new copyright; att/bsd/shared

author Keith Bostic <bostic@ucbvax.Berkeley.EDU>

Sat, 13 Apr 1991 06:42:43 +0000 (22:42 -0800)

committer Keith Bostic <bostic@ucbvax.Berkeley.EDU>

Sat, 13 Apr 1991 06:42:43 +0000 (22:42 -0800)
author Keith Bostic <bostic@ucbvax.Berkeley.EDU>
Sat, 13 Apr 1991 06:42:43 +0000 (22:42 -0800)
committer Keith Bostic <bostic@ucbvax.Berkeley.EDU>
Sat, 13 Apr 1991 06:42:43 +0000 (22:42 -0800)
diff --git a/usr/src/usr.bin/f77/libF77/CCI/h_indx_s.s b/usr/src/usr.bin/f77/libF77/CCI/h_indx_s.s

index 521bcfd..3a504cd 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/CCI/h_indx_s.s
+++ b/usr/src/usr.bin/f77/libF77/CCI/h_indx_s.s
@@ -1,4 +1,16 @@
-#      "@(#)h_indx_s.s 5.1 (Berkeley) %G%"
+/*-
+ * Copyright (c) 1991 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * This code is derived from software contributed to Berkeley by
+ * Computer Consoles Inc.
+ *
+ * %sccs.include.proprietary.c%
+ */
+
+#ifndef lint
+       .asciz "@(#)h_indx_s.s  5.2 (Berkeley) %G%"
+#endif /* not lint */
  
  .data
  .text
  
  .data
  .text
diff --git a/usr/src/usr.bin/f77/libF77/CCI/hl_ge_s.s b/usr/src/usr.bin/f77/libF77/CCI/hl_ge_s.s

index 65a2a06..5005927 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/CCI/hl_ge_s.s
+++ b/usr/src/usr.bin/f77/libF77/CCI/hl_ge_s.s
@@ -1,4 +1,16 @@
-#      "@(#)hl_ge_s.s  5.1 (Berkeley) %G%"
+/*-
+ * Copyright (c) 1991 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * This code is derived from software contributed to Berkeley by
+ * Computer Consoles Inc.
+ *
+ * %sccs.include.proprietary.c%
+ */
+
+#ifndef lint
+       .asciz "@(#)hl_ge_s.s   5.2 (Berkeley) %G%"
+#endif /* not lint */
  
  .data
  .text
  
  .data
  .text
diff --git a/usr/src/usr.bin/f77/libF77/CCI/hl_gt_s.s b/usr/src/usr.bin/f77/libF77/CCI/hl_gt_s.s

index f88cf61..ac99fe3 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/CCI/hl_gt_s.s
+++ b/usr/src/usr.bin/f77/libF77/CCI/hl_gt_s.s
@@ -1,4 +1,16 @@
-#      "@(#)hl_gt_s.s  5.1 (Berkeley) %G%"
+/*-
+ * Copyright (c) 1991 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * This code is derived from software contributed to Berkeley by
+ * Computer Consoles Inc.
+ *
+ * %sccs.include.proprietary.c%
+ */
+
+#ifndef lint
+       .asciz "@(#)hl_gt_s.s   5.2 (Berkeley) %G%"
+#endif /* not lint */
  
  .data
  .text
  
  .data
  .text
diff --git a/usr/src/usr.bin/f77/libF77/CCI/hl_le_s.s b/usr/src/usr.bin/f77/libF77/CCI/hl_le_s.s

index 8524f29..e78d11d 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/CCI/hl_le_s.s
+++ b/usr/src/usr.bin/f77/libF77/CCI/hl_le_s.s
@@ -1,4 +1,16 @@
-#      "@(#)hl_le_s.s  5.1 (Berkeley) %G%"
+/*-
+ * Copyright (c) 1991 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * This code is derived from software contributed to Berkeley by
+ * Computer Consoles Inc.
+ *
+ * %sccs.include.proprietary.c%
+ */
+
+#ifndef lint
+       .asciz "@(#)hl_le_s.s   5.2 (Berkeley) %G%"
+#endif /* not lint */
  
  .data
  .text
  
  .data
  .text
diff --git a/usr/src/usr.bin/f77/libF77/CCI/hl_lt_s.s b/usr/src/usr.bin/f77/libF77/CCI/hl_lt_s.s

index f18171c..563fed4 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/CCI/hl_lt_s.s
+++ b/usr/src/usr.bin/f77/libF77/CCI/hl_lt_s.s
@@ -1,4 +1,16 @@
-#      "@(#)hl_lt_s.s  5.1 (Berkeley) %G%"
+/*-
+ * Copyright (c) 1991 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * This code is derived from software contributed to Berkeley by
+ * Computer Consoles Inc.
+ *
+ * %sccs.include.proprietary.c%
+ */
+
+#ifndef lint
+       .asciz "@(#)hl_lt_s.s   5.2 (Berkeley) %G%"
+#endif /* not lint */
  
  .data
  .text
  
  .data
  .text
diff --git a/usr/src/usr.bin/f77/libF77/CCI/i_indx_s.s b/usr/src/usr.bin/f77/libF77/CCI/i_indx_s.s

index 9d7757d..e984232 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/CCI/i_indx_s.s
+++ b/usr/src/usr.bin/f77/libF77/CCI/i_indx_s.s
@@ -1,4 +1,16 @@
-#      "@(#)i_indx_s.s 5.1 (Berkeley) %G%"
+/*-
+ * Copyright (c) 1991 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * This code is derived from software contributed to Berkeley by
+ * Computer Consoles Inc.
+ *
+ * %sccs.include.proprietary.c%
+ */
+
+#ifndef lint
+       .asciz "@(#)i_indx_s.s  5.2 (Berkeley) %G%"
+#endif /* not lint */
  
  .data
  .text
  
  .data
  .text
diff --git a/usr/src/usr.bin/f77/libF77/CCI/iargc_.c b/usr/src/usr.bin/f77/libF77/CCI/iargc_.c

index 323f1da..17adc9f 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/CCI/iargc_.c
+++ b/usr/src/usr.bin/f77/libF77/CCI/iargc_.c
@@ -1,7 +1,17 @@
-/*
- *     @(#)iargc_.c    5.1 (Berkeley) %G%
+/*-
+ * Copyright (c) 1991 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * This code is derived from software contributed to Berkeley by
+ * Computer Consoles Inc.
+ *
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)iargc_.c   5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  long int iargc_()
  {
  extern int xargc;
  long int iargc_()
  {
  extern int xargc;
diff --git a/usr/src/usr.bin/f77/libF77/CCI/l_ge_s.s b/usr/src/usr.bin/f77/libF77/CCI/l_ge_s.s

index 0fca4ee..0ef2ebc 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/CCI/l_ge_s.s
+++ b/usr/src/usr.bin/f77/libF77/CCI/l_ge_s.s
@@ -1,4 +1,16 @@
-#      "@(#)l_ge_s.s   5.1 (Berkeley) %G%"
+/*-
+ * Copyright (c) 1991 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * This code is derived from software contributed to Berkeley by
+ * Computer Consoles Inc.
+ *
+ * %sccs.include.proprietary.c%
+ */
+
+#ifndef lint
+       .asciz "@(#)l_ge_s.s    5.2 (Berkeley) %G%"
+#endif /* not lint */
  
  .data
  .text
  
  .data
  .text
diff --git a/usr/src/usr.bin/f77/libF77/CCI/l_gt_s.s b/usr/src/usr.bin/f77/libF77/CCI/l_gt_s.s

index 00431e9..c191dd5 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/CCI/l_gt_s.s
+++ b/usr/src/usr.bin/f77/libF77/CCI/l_gt_s.s
@@ -1,4 +1,16 @@
-#      "@(#)l_gt_s.s   5.1 (Berkeley) %G%"
+/*-
+ * Copyright (c) 1991 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * This code is derived from software contributed to Berkeley by
+ * Computer Consoles Inc.
+ *
+ * %sccs.include.proprietary.c%
+ */
+
+#ifndef lint
+       .asciz "@(#)l_gt_s.s    5.2 (Berkeley) %G%"
+#endif /* not lint */
  
  .data
  .text
  
  .data
  .text
diff --git a/usr/src/usr.bin/f77/libF77/CCI/l_le_s.s b/usr/src/usr.bin/f77/libF77/CCI/l_le_s.s

index 914db18..b8d68a5 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/CCI/l_le_s.s
+++ b/usr/src/usr.bin/f77/libF77/CCI/l_le_s.s
@@ -1,4 +1,16 @@
-#      "@(#)l_le_s.s   5.1 (Berkeley) %G%"
+/*-
+ * Copyright (c) 1991 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * This code is derived from software contributed to Berkeley by
+ * Computer Consoles Inc.
+ *
+ * %sccs.include.proprietary.c%
+ */
+
+#ifndef lint
+       .asciz "@(#)l_le_s.s    5.2 (Berkeley) %G%"
+#endif /* not lint */
  
  .data
  .text
  
  .data
  .text
diff --git a/usr/src/usr.bin/f77/libF77/CCI/l_lt_s.s b/usr/src/usr.bin/f77/libF77/CCI/l_lt_s.s

index ac5b097..e5873f3 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/CCI/l_lt_s.s
+++ b/usr/src/usr.bin/f77/libF77/CCI/l_lt_s.s
@@ -1,4 +1,16 @@
-#      "@(#)l_lt_s.s   5.1 (Berkeley) %G%"
+/*-
+ * Copyright (c) 1991 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * This code is derived from software contributed to Berkeley by
+ * Computer Consoles Inc.
+ *
+ * %sccs.include.proprietary.c%
+ */
+
+#ifndef lint
+       .asciz "@(#)l_lt_s.s    5.2 (Berkeley) %G%"
+#endif /* not lint */
  
  .data
  .text
  
  .data
  .text
diff --git a/usr/src/usr.bin/f77/libF77/CCI/mclock_.c b/usr/src/usr.bin/f77/libF77/CCI/mclock_.c

index 5d12076..cfbeb0f 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/CCI/mclock_.c
+++ b/usr/src/usr.bin/f77/libF77/CCI/mclock_.c
@@ -1,7 +1,17 @@
-/*
- *     @(#)mclock_.c   5.1 (Berkeley) %G%
+/*-
+ * Copyright (c) 1991 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * This code is derived from software contributed to Berkeley by
+ * Computer Consoles Inc.
+ *
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)mclock_.c  5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  long int  mclock_()
    {
    int  buf[6];
  long int  mclock_()
    {
    int  buf[6];
diff --git a/usr/src/usr.bin/f77/libF77/CCI/no_lg.c b/usr/src/usr.bin/f77/libF77/CCI/no_lg.c

index 5ed67d0..8e4ddc3 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/CCI/no_lg.c
+++ b/usr/src/usr.bin/f77/libF77/CCI/no_lg.c
@@ -1,7 +1,17 @@
-/*
- *     @(#)no_lg.c     5.1 (Berkeley) %G%
+/*-
+ * Copyright (c) 1991 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * This code is derived from software contributed to Berkeley by
+ * Computer Consoles Inc.
+ *
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)no_lg.c    5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   *     @(#)no_lg.c     1.2
   *
  /*
   *     @(#)no_lg.c     1.2
   *
diff --git a/usr/src/usr.bin/f77/libF77/CCI/outstr_.c b/usr/src/usr.bin/f77/libF77/CCI/outstr_.c

index ef70003..d1a0d06 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/CCI/outstr_.c
+++ b/usr/src/usr.bin/f77/libF77/CCI/outstr_.c
@@ -1,7 +1,17 @@
-/*
- *     @(#)outstr_.c   5.1 (Berkeley) %G%
+/*-
+ * Copyright (c) 1991 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * This code is derived from software contributed to Berkeley by
+ * Computer Consoles Inc.
+ *
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)outstr_.c  5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  #include <stdio.h>
  
  /* print a character string */
  #include <stdio.h>
  
  /* print a character string */
diff --git a/usr/src/usr.bin/f77/libF77/CCI/range_s.s b/usr/src/usr.bin/f77/libF77/CCI/range_s.s

index 3277b7c..4a4f6c8 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/CCI/range_s.s
+++ b/usr/src/usr.bin/f77/libF77/CCI/range_s.s
@@ -1,4 +1,16 @@
-#      "@(#)range_s.s  5.1 (Berkeley) %G%"
+/*-
+ * Copyright (c) 1991 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * This code is derived from software contributed to Berkeley by
+ * Computer Consoles Inc.
+ *
+ * %sccs.include.proprietary.c%
+ */
+
+#ifndef lint
+       .asciz "@(#)range_s.s   5.2 (Berkeley) %G%"
+#endif /* not lint */
  
  .data
  .text
  
  .data
  .text
diff --git a/usr/src/usr.bin/f77/libF77/CCI/range_s_p.s b/usr/src/usr.bin/f77/libF77/CCI/range_s_p.s

index 433196b..501cf1e 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/CCI/range_s_p.s
+++ b/usr/src/usr.bin/f77/libF77/CCI/range_s_p.s
@@ -1,4 +1,16 @@
-#      "@(#)range_s_p.s        5.1 (Berkeley) %G%"
+/*-
+ * Copyright (c) 1991 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * This code is derived from software contributed to Berkeley by
+ * Computer Consoles Inc.
+ *
+ * %sccs.include.proprietary.c%
+ */
+
+#ifndef lint
+       .asciz "@(#)range_s_p.s 5.2 (Berkeley) %G%"
+#endif /* not lint */
  
  .data
  .text
  
  .data
  .text
diff --git a/usr/src/usr.bin/f77/libF77/CCI/rindex_s.s b/usr/src/usr.bin/f77/libF77/CCI/rindex_s.s

index 36a3720..b4dea13 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/CCI/rindex_s.s
+++ b/usr/src/usr.bin/f77/libF77/CCI/rindex_s.s
@@ -1,4 +1,16 @@
-#      "@(#)rindex_s.s 5.1 (Berkeley) %G%"
+/*-
+ * Copyright (c) 1991 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * This code is derived from software contributed to Berkeley by
+ * Computer Consoles Inc.
+ *
+ * %sccs.include.proprietary.c%
+ */
+
+#ifndef lint
+       .asciz "@(#)rindex_s.s  5.2 (Berkeley) %G%"
+#endif /* not lint */
  
  .data
  .text
  
  .data
  .text
diff --git a/usr/src/usr.bin/f77/libF77/CCI/s_cat_s.s b/usr/src/usr.bin/f77/libF77/CCI/s_cat_s.s

index 36e9d6b..fe7ddcb 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/CCI/s_cat_s.s
+++ b/usr/src/usr.bin/f77/libF77/CCI/s_cat_s.s
@@ -1,4 +1,16 @@
-#      "@(#)s_cat_s.s  5.1 (Berkeley) %G%"
+/*-
+ * Copyright (c) 1991 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * This code is derived from software contributed to Berkeley by
+ * Computer Consoles Inc.
+ *
+ * %sccs.include.proprietary.c%
+ */
+
+#ifndef lint
+       .asciz "@(#)s_cat_s.s   5.2 (Berkeley) %G%"
+#endif /* not lint */
  
  .data
  .text
  
  .data
  .text
diff --git a/usr/src/usr.bin/f77/libF77/CCI/s_cmp_s.s b/usr/src/usr.bin/f77/libF77/CCI/s_cmp_s.s

index 34d7f8d..6c450d1 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/CCI/s_cmp_s.s
+++ b/usr/src/usr.bin/f77/libF77/CCI/s_cmp_s.s
@@ -1,4 +1,16 @@
-#      "@(#)s_cmp_s.s  5.1 (Berkeley) %G%"
+/*-
+ * Copyright (c) 1991 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * This code is derived from software contributed to Berkeley by
+ * Computer Consoles Inc.
+ *
+ * %sccs.include.proprietary.c%
+ */
+
+#ifndef lint
+       .asciz "@(#)s_cmp_s.s   5.2 (Berkeley) %G%"
+#endif /* not lint */
  
  .data
  .text
  
  .data
  .text
diff --git a/usr/src/usr.bin/f77/libF77/CCI/s_copy_s.s b/usr/src/usr.bin/f77/libF77/CCI/s_copy_s.s

index 5ccd335..095759e 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/CCI/s_copy_s.s
+++ b/usr/src/usr.bin/f77/libF77/CCI/s_copy_s.s
@@ -1,4 +1,16 @@
-#      "@(#)s_copy_s.s 5.1 (Berkeley) %G%"
+/*-
+ * Copyright (c) 1991 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * This code is derived from software contributed to Berkeley by
+ * Computer Consoles Inc.
+ *
+ * %sccs.include.proprietary.c%
+ */
+
+#ifndef lint
+       .asciz "@(#)s_copy_s.s  5.2 (Berkeley) %G%"
+#endif /* not lint */
  
  .data
  .text
  
  .data
  .text
diff --git a/usr/src/usr.bin/f77/libF77/CCI/system_.c b/usr/src/usr.bin/f77/libF77/CCI/system_.c

index 7810fb4..55dc9f0 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/CCI/system_.c
+++ b/usr/src/usr.bin/f77/libF77/CCI/system_.c
@@ -1,7 +1,17 @@
-/*
- *     @(#)system_.c   5.1 (Berkeley) %G%
+/*-
+ * Copyright (c) 1991 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * This code is derived from software contributed to Berkeley by
+ * Computer Consoles Inc.
+ *
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)system_.c  5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  /* f77 interface to system routine */
  
  system_(s, n)
  /* f77 interface to system routine */
  
  system_(s, n)
diff --git a/usr/src/usr.bin/f77/libF77/CCI/system_s.s b/usr/src/usr.bin/f77/libF77/CCI/system_s.s

index 397dbb0..89e124c 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/CCI/system_s.s
+++ b/usr/src/usr.bin/f77/libF77/CCI/system_s.s
@@ -1,4 +1,16 @@
-#      "@(#)system_s.s 5.1 (Berkeley) %G%"
+/*-
+ * Copyright (c) 1991 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * This code is derived from software contributed to Berkeley by
+ * Computer Consoles Inc.
+ *
+ * %sccs.include.proprietary.c%
+ */
+
+#ifndef lint
+       .asciz "@(#)system_s.s  5.2 (Berkeley) %G%"
+#endif /* not lint */
  
  .data
  .text
  
  .data
  .text
diff --git a/usr/src/usr.bin/f77/libF77/CCI/tanh.c b/usr/src/usr.bin/f77/libF77/CCI/tanh.c

index 4cea8d7..50754d9 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/CCI/tanh.c
+++ b/usr/src/usr.bin/f77/libF77/CCI/tanh.c
@@ -1,7 +1,17 @@
-/*
- *     @(#)tanh.c      5.1 (Berkeley) %G%
+/*-
+ * Copyright (c) 1991 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * This code is derived from software contributed to Berkeley by
+ * Computer Consoles Inc.
+ *
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)tanh.c     5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
         tanh(arg) computes the hyperbolic tangent of its floating
         point argument.
  /*
         tanh(arg) computes the hyperbolic tangent of its floating
         point argument.
diff --git a/usr/src/usr.bin/f77/libF77/Usef.c b/usr/src/usr.bin/f77/libF77/Usef.c

index 5bfc4dd..94fcd87 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/Usef.c
+++ b/usr/src/usr.bin/f77/libF77/Usef.c
@@ -1,11 +1,20 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)Usef.c      1.4     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+char copyright[] =
+"@(#) Copyright (c) 1980 The Regents of the University of California.\n\
+ All rights reserved.\n";
+#endif /* not lint */
+
+#ifndef lint
+static char sccsid[] = "@(#)Usef.c     1.5 (Berkeley) %G%";
+#endif /* not lint */
+
  /*             returns '-f' if need to use -f to bypass C bug          */
  
  static char *needs_f[] = {
  /*             returns '-f' if need to use -f to bypass C bug          */
  
  static char *needs_f[] = {
diff --git a/usr/src/usr.bin/f77/libF77/abort_.c b/usr/src/usr.bin/f77/libF77/abort_.c

index 825e185..f97b7e1 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/abort_.c
+++ b/usr/src/usr.bin/f77/libF77/abort_.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)abort_.c    5.2     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)abort_.c   5.3 (Berkeley) %G%";
+#endif /* not lint */
+
  #include <stdio.h>
  
  #if    pdp11
  #include <stdio.h>
  
  #if    pdp11
diff --git a/usr/src/usr.bin/f77/libF77/besj0_.c b/usr/src/usr.bin/f77/libF77/besj0_.c

index 1412735..e15cfe3 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/besj0_.c
+++ b/usr/src/usr.bin/f77/libF77/besj0_.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)besj0_.c    5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)besj0_.c   5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  double j0();
  
  float besj0_(x)
  double j0();
  
  float besj0_(x)
diff --git a/usr/src/usr.bin/f77/libF77/besj1_.c b/usr/src/usr.bin/f77/libF77/besj1_.c

index 4722f80..906cb9c 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/besj1_.c
+++ b/usr/src/usr.bin/f77/libF77/besj1_.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)besj1_.c    5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)besj1_.c   5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  double j1();
  
  float besj1_(x)
  double j1();
  
  float besj1_(x)
diff --git a/usr/src/usr.bin/f77/libF77/besjn_.c b/usr/src/usr.bin/f77/libF77/besjn_.c

index 78c0679..6cb4c6e 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/besjn_.c
+++ b/usr/src/usr.bin/f77/libF77/besjn_.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)besjn_.c    5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)besjn_.c   5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  double jn();
  
  float besjn_(n, x)
  double jn();
  
  float besjn_(n, x)
diff --git a/usr/src/usr.bin/f77/libF77/besy0_.c b/usr/src/usr.bin/f77/libF77/besy0_.c

index aeb2fa4..2632ef0 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/besy0_.c
+++ b/usr/src/usr.bin/f77/libF77/besy0_.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)besy0_.c    5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)besy0_.c   5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  double y0();
  
  float besy0_(x)
  double y0();
  
  float besy0_(x)
diff --git a/usr/src/usr.bin/f77/libF77/besy1_.c b/usr/src/usr.bin/f77/libF77/besy1_.c

index 132c099..bbc288f 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/besy1_.c
+++ b/usr/src/usr.bin/f77/libF77/besy1_.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)besy1_.c    5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)besy1_.c   5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  double y1();
  
  float besy1_(x)
  double y1();
  
  float besy1_(x)
diff --git a/usr/src/usr.bin/f77/libF77/besyn_.c b/usr/src/usr.bin/f77/libF77/besyn_.c

index 6aceaa5..f50ceba 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/besyn_.c
+++ b/usr/src/usr.bin/f77/libF77/besyn_.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)besyn_.c    5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)besyn_.c   5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  double yn();
  
  float besyn_(n, x)
  double yn();
  
  float besyn_(n, x)
diff --git a/usr/src/usr.bin/f77/libF77/c_abs.c b/usr/src/usr.bin/f77/libF77/c_abs.c

index d90b2dd..ff7c44f 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/c_abs.c
+++ b/usr/src/usr.bin/f77/libF77/c_abs.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)c_abs.c     5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)c_abs.c    5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  #include "complex"
  
  float c_abs(z)
  #include "complex"
  
  float c_abs(z)
diff --git a/usr/src/usr.bin/f77/libF77/c_cos.c b/usr/src/usr.bin/f77/libF77/c_cos.c

index 6494907..5d7b9c5 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/c_cos.c
+++ b/usr/src/usr.bin/f77/libF77/c_cos.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)c_cos.c     5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)c_cos.c    5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  #include "complex"
  
  c_cos(r, z)
  #include "complex"
  
  c_cos(r, z)
diff --git a/usr/src/usr.bin/f77/libF77/c_div.c b/usr/src/usr.bin/f77/libF77/c_div.c

index c116f08..68c8fb1 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/c_div.c
+++ b/usr/src/usr.bin/f77/libF77/c_div.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)c_div.c     5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)c_div.c    5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  #include "complex"
  #include <stdio.h>
  #include <errno.h>
  #include "complex"
  #include <stdio.h>
  #include <errno.h>
diff --git a/usr/src/usr.bin/f77/libF77/c_exp.c b/usr/src/usr.bin/f77/libF77/c_exp.c

index d298206..ed3acee 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/c_exp.c
+++ b/usr/src/usr.bin/f77/libF77/c_exp.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)c_exp.c     5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)c_exp.c    5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  #include "complex"
  
  c_exp(r, z)
  #include "complex"
  
  c_exp(r, z)
diff --git a/usr/src/usr.bin/f77/libF77/c_log.c b/usr/src/usr.bin/f77/libF77/c_log.c

index 3d40479..839542a 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/c_log.c
+++ b/usr/src/usr.bin/f77/libF77/c_log.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)c_log.c     5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)c_log.c    5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  #include "complex"
  
  c_log(r, z)
  #include "complex"
  
  c_log(r, z)
diff --git a/usr/src/usr.bin/f77/libF77/c_sin.c b/usr/src/usr.bin/f77/libF77/c_sin.c

index b6e029a..626dd77 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/c_sin.c
+++ b/usr/src/usr.bin/f77/libF77/c_sin.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)c_sin.c     5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)c_sin.c    5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  #include "complex"
  
  c_sin(r, z)
  #include "complex"
  
  c_sin(r, z)
diff --git a/usr/src/usr.bin/f77/libF77/c_sqrt.c b/usr/src/usr.bin/f77/libF77/c_sqrt.c

index 75cbecb..06424c3 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/c_sqrt.c
+++ b/usr/src/usr.bin/f77/libF77/c_sqrt.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)c_sqrt.c    5.3     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)c_sqrt.c   5.4 (Berkeley) %G%";
+#endif /* not lint */
+
  #include "complex"
  #ifdef tahoe
  #include <tahoe/math/FP.h>
  #include "complex"
  #ifdef tahoe
  #include <tahoe/math/FP.h>
diff --git a/usr/src/usr.bin/f77/libF77/complex b/usr/src/usr.bin/f77/libF77/complex

index 1bb1fb0..bb797ed 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/complex
+++ b/usr/src/usr.bin/f77/libF77/complex
@@ -1,2 +1,11 @@
+/*-
+ * Copyright (c) 1991 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.proprietary.c%
+ *
+ *     @(#)complex     5.2 (Berkeley) %G%
+ */
+
  typedef struct { float real, imag; } complex;
  typedef struct { double dreal, dimag; } dcomplex;
  typedef struct { float real, imag; } complex;
  typedef struct { double dreal, dimag; } dcomplex;
diff --git a/usr/src/usr.bin/f77/libF77/d_abs.c b/usr/src/usr.bin/f77/libF77/d_abs.c

index e1dab6d..9700292 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/d_abs.c
+++ b/usr/src/usr.bin/f77/libF77/d_abs.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)d_abs.c     5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)d_abs.c    5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  double d_abs(x)
  double *x;
  {
  double d_abs(x)
  double *x;
  {
diff --git a/usr/src/usr.bin/f77/libF77/d_acos.c b/usr/src/usr.bin/f77/libF77/d_acos.c

index 74bf870..0fc7149 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/d_acos.c
+++ b/usr/src/usr.bin/f77/libF77/d_acos.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)d_acos.c    5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)d_acos.c   5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  double d_acos(x)
  double *x;
  {
  double d_acos(x)
  double *x;
  {
diff --git a/usr/src/usr.bin/f77/libF77/d_asin.c b/usr/src/usr.bin/f77/libF77/d_asin.c

index 4c70e70..d6ffd71 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/d_asin.c
+++ b/usr/src/usr.bin/f77/libF77/d_asin.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)d_asin.c    5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)d_asin.c   5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  double d_asin(x)
  double *x;
  {
  double d_asin(x)
  double *x;
  {
diff --git a/usr/src/usr.bin/f77/libF77/d_atan.c b/usr/src/usr.bin/f77/libF77/d_atan.c

index e4395e2..81c1a19 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/d_atan.c
+++ b/usr/src/usr.bin/f77/libF77/d_atan.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)d_atan.c    5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)d_atan.c   5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  double d_atan(x)
  double *x;
  {
  double d_atan(x)
  double *x;
  {
diff --git a/usr/src/usr.bin/f77/libF77/d_atn2.c b/usr/src/usr.bin/f77/libF77/d_atn2.c

index eb06eb0..b780f29 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/d_atn2.c
+++ b/usr/src/usr.bin/f77/libF77/d_atn2.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)d_atn2.c    5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)d_atn2.c   5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  double d_atn2(x,y)
  double *x, *y;
  {
  double d_atn2(x,y)
  double *x, *y;
  {
diff --git a/usr/src/usr.bin/f77/libF77/d_cnjg.c b/usr/src/usr.bin/f77/libF77/d_cnjg.c

index 113ff51..ac9bed2 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/d_cnjg.c
+++ b/usr/src/usr.bin/f77/libF77/d_cnjg.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)d_cnjg.c    5.3     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)d_cnjg.c   5.4 (Berkeley) %G%";
+#endif /* not lint */
+
  #include "complex"
  #ifdef tahoe
  #include <tahoe/math/FP.h>
  #include "complex"
  #ifdef tahoe
  #include <tahoe/math/FP.h>
diff --git a/usr/src/usr.bin/f77/libF77/d_cos.c b/usr/src/usr.bin/f77/libF77/d_cos.c

index aee6d50..f109c7e 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/d_cos.c
+++ b/usr/src/usr.bin/f77/libF77/d_cos.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)d_cos.c     5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)d_cos.c    5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  double d_cos(x)
  double *x;
  {
  double d_cos(x)
  double *x;
  {
diff --git a/usr/src/usr.bin/f77/libF77/d_cosh.c b/usr/src/usr.bin/f77/libF77/d_cosh.c

index 7384406..fba1ff7 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/d_cosh.c
+++ b/usr/src/usr.bin/f77/libF77/d_cosh.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)d_cosh.c    5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)d_cosh.c   5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  double d_cosh(x)
  double *x;
  {
  double d_cosh(x)
  double *x;
  {
diff --git a/usr/src/usr.bin/f77/libF77/d_dim.c b/usr/src/usr.bin/f77/libF77/d_dim.c

index a13e69d..2a183b6 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/d_dim.c
+++ b/usr/src/usr.bin/f77/libF77/d_dim.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)d_dim.c     5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)d_dim.c    5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  double d_dim(a,b)
  double *a, *b;
  {
  double d_dim(a,b)
  double *a, *b;
  {
diff --git a/usr/src/usr.bin/f77/libF77/d_dprod.c b/usr/src/usr.bin/f77/libF77/d_dprod.c

index 7420656..ef1ff38 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/d_dprod.c
+++ b/usr/src/usr.bin/f77/libF77/d_dprod.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)d_dprod.c   5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)d_dprod.c  5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  double d_dprod(x,y)
  double *x, *y;
  {
  double d_dprod(x,y)
  double *x, *y;
  {
diff --git a/usr/src/usr.bin/f77/libF77/d_exp.c b/usr/src/usr.bin/f77/libF77/d_exp.c

index bc116f1..ae93301 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/d_exp.c
+++ b/usr/src/usr.bin/f77/libF77/d_exp.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)d_exp.c     5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)d_exp.c    5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  double d_exp(x)
  double *x;
  {
  double d_exp(x)
  double *x;
  {
diff --git a/usr/src/usr.bin/f77/libF77/d_imag.c b/usr/src/usr.bin/f77/libF77/d_imag.c

index e8e30ea..d76ad78 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/d_imag.c
+++ b/usr/src/usr.bin/f77/libF77/d_imag.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)d_imag.c    5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)d_imag.c   5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  #include "complex"
  
  double d_imag(z)
  #include "complex"
  
  double d_imag(z)
diff --git a/usr/src/usr.bin/f77/libF77/d_int.c b/usr/src/usr.bin/f77/libF77/d_int.c

index 7184987..4f78335 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/d_int.c
+++ b/usr/src/usr.bin/f77/libF77/d_int.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)d_int.c     5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)d_int.c    5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  double d_int(x)
  double *x;
  {
  double d_int(x)
  double *x;
  {
diff --git a/usr/src/usr.bin/f77/libF77/d_lg10.c b/usr/src/usr.bin/f77/libF77/d_lg10.c

index 535bc75..34799d2 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/d_lg10.c
+++ b/usr/src/usr.bin/f77/libF77/d_lg10.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)d_lg10.c    5.3     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)d_lg10.c   5.4 (Berkeley) %G%";
+#endif /* not lint */
+
  double d_lg10(x)
  double *x;
  {
  double d_lg10(x)
  double *x;
  {
diff --git a/usr/src/usr.bin/f77/libF77/d_log.c b/usr/src/usr.bin/f77/libF77/d_log.c

index b02de8f..7077fff 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/d_log.c
+++ b/usr/src/usr.bin/f77/libF77/d_log.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)d_log.c     5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)d_log.c    5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  double d_log(x)
  double *x;
  {
  double d_log(x)
  double *x;
  {
diff --git a/usr/src/usr.bin/f77/libF77/d_mod.c b/usr/src/usr.bin/f77/libF77/d_mod.c

index 24d0cb6..cb0dd3c 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/d_mod.c
+++ b/usr/src/usr.bin/f77/libF77/d_mod.c
@@ -1,10 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)d_mod.c     5.4     %G%
+ * %sccs.include.proprietary.c%
   */
   */
+
+#ifndef lint
+static char sccsid[] = "@(#)d_mod.c    5.5 (Berkeley) %G%";
+#endif /* not lint */
+
  #ifdef tahoe
  #include <tahoe/math/FP.h>
  #endif
  #ifdef tahoe
  #include <tahoe/math/FP.h>
  #endif
diff --git a/usr/src/usr.bin/f77/libF77/d_nint.c b/usr/src/usr.bin/f77/libF77/d_nint.c

index 18e1713..d046260 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/d_nint.c
+++ b/usr/src/usr.bin/f77/libF77/d_nint.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)d_nint.c    5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)d_nint.c   5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  double d_nint(x)
  double *x;
  {
  double d_nint(x)
  double *x;
  {
diff --git a/usr/src/usr.bin/f77/libF77/d_prod.c b/usr/src/usr.bin/f77/libF77/d_prod.c

index 0afa084..ce7e6fa 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/d_prod.c
+++ b/usr/src/usr.bin/f77/libF77/d_prod.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)d_prod.c    5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)d_prod.c   5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  double d_prod(x,y)
  float *x, *y;
  {
  double d_prod(x,y)
  float *x, *y;
  {
diff --git a/usr/src/usr.bin/f77/libF77/d_sign.c b/usr/src/usr.bin/f77/libF77/d_sign.c

index 9c7df2a..c526d00 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/d_sign.c
+++ b/usr/src/usr.bin/f77/libF77/d_sign.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)d_sign.c    5.3     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)d_sign.c   5.4 (Berkeley) %G%";
+#endif /* not lint */
+
  #ifndef tahoe
  double d_sign(a,b)
  double *a, *b;
  #ifndef tahoe
  double d_sign(a,b)
  double *a, *b;
diff --git a/usr/src/usr.bin/f77/libF77/d_sin.c b/usr/src/usr.bin/f77/libF77/d_sin.c

index 098c6bc..f7bb274 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/d_sin.c
+++ b/usr/src/usr.bin/f77/libF77/d_sin.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)d_sin.c     5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)d_sin.c    5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  double d_sin(x)
  double *x;
  {
  double d_sin(x)
  double *x;
  {
diff --git a/usr/src/usr.bin/f77/libF77/d_sinh.c b/usr/src/usr.bin/f77/libF77/d_sinh.c

index 907c6c2..7a1f4b6 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/d_sinh.c
+++ b/usr/src/usr.bin/f77/libF77/d_sinh.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)d_sinh.c    5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)d_sinh.c   5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  double d_sinh(x)
  double *x;
  {
  double d_sinh(x)
  double *x;
  {
diff --git a/usr/src/usr.bin/f77/libF77/d_tan.c b/usr/src/usr.bin/f77/libF77/d_tan.c

index 089b306..a597531 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/d_tan.c
+++ b/usr/src/usr.bin/f77/libF77/d_tan.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)d_tan.c     5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)d_tan.c    5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  double d_tan(x)
  double *x;
  {
  double d_tan(x)
  double *x;
  {
diff --git a/usr/src/usr.bin/f77/libF77/d_tanh.c b/usr/src/usr.bin/f77/libF77/d_tanh.c

index 56e4503..494b199 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/d_tanh.c
+++ b/usr/src/usr.bin/f77/libF77/d_tanh.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)d_tanh.c    5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)d_tanh.c   5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  double d_tanh(x)
  double *x;
  {
  double d_tanh(x)
  double *x;
  {
diff --git a/usr/src/usr.bin/f77/libF77/dbesj0_.c b/usr/src/usr.bin/f77/libF77/dbesj0_.c

index 8e79cfa..3d77c5f 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/dbesj0_.c
+++ b/usr/src/usr.bin/f77/libF77/dbesj0_.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)dbesj0_.c   5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)dbesj0_.c  5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  double j0();
  
  double dbesj0_(x)
  double j0();
  
  double dbesj0_(x)
diff --git a/usr/src/usr.bin/f77/libF77/dbesj1_.c b/usr/src/usr.bin/f77/libF77/dbesj1_.c

index 5efd4d8..a9277ac 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/dbesj1_.c
+++ b/usr/src/usr.bin/f77/libF77/dbesj1_.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)dbesj1_.c   5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)dbesj1_.c  5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  double j1();
  
  double dbesj1_(x)
  double j1();
  
  double dbesj1_(x)
diff --git a/usr/src/usr.bin/f77/libF77/dbesjn_.c b/usr/src/usr.bin/f77/libF77/dbesjn_.c

index 4cadd16..3c86171 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/dbesjn_.c
+++ b/usr/src/usr.bin/f77/libF77/dbesjn_.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)dbesjn_.c   5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)dbesjn_.c  5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  double jn();
  
  double dbesjn_(n, x)
  double jn();
  
  double dbesjn_(n, x)
diff --git a/usr/src/usr.bin/f77/libF77/dbesy0_.c b/usr/src/usr.bin/f77/libF77/dbesy0_.c

index a8ee697..7834634 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/dbesy0_.c
+++ b/usr/src/usr.bin/f77/libF77/dbesy0_.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)dbesy0_.c   5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)dbesy0_.c  5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  double y0();
  
  double dbesy0_(x)
  double y0();
  
  double dbesy0_(x)
diff --git a/usr/src/usr.bin/f77/libF77/dbesy1_.c b/usr/src/usr.bin/f77/libF77/dbesy1_.c

index 0a453aa..3c46b85 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/dbesy1_.c
+++ b/usr/src/usr.bin/f77/libF77/dbesy1_.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)dbesy1_.c   5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)dbesy1_.c  5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  double y1();
  
  double dbesy1_(x)
  double y1();
  
  double dbesy1_(x)
diff --git a/usr/src/usr.bin/f77/libF77/dbesyn_.c b/usr/src/usr.bin/f77/libF77/dbesyn_.c

index 44d92f8..b111fb5 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/dbesyn_.c
+++ b/usr/src/usr.bin/f77/libF77/dbesyn_.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)dbesyn_.c   5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)dbesyn_.c  5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  double yn();
  
  double dbesyn_(n, x)
  double yn();
  
  double dbesyn_(n, x)
diff --git a/usr/src/usr.bin/f77/libF77/derf_.c b/usr/src/usr.bin/f77/libF77/derf_.c

index e0aed12..0f06dde 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/derf_.c
+++ b/usr/src/usr.bin/f77/libF77/derf_.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)derf_.c     5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)derf_.c    5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  double derf_(x)
  double *x;
  {
  double derf_(x)
  double *x;
  {
diff --git a/usr/src/usr.bin/f77/libF77/derfc_.c b/usr/src/usr.bin/f77/libF77/derfc_.c

index c192041..b8ce276 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/derfc_.c
+++ b/usr/src/usr.bin/f77/libF77/derfc_.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)derfc_.c    5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)derfc_.c   5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  double derfc_(x)
  double *x;
  {
  double derfc_(x)
  double *x;
  {
diff --git a/usr/src/usr.bin/f77/libF77/ef1asc_.c b/usr/src/usr.bin/f77/libF77/ef1asc_.c

index d97280e..735a260 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/ef1asc_.c
+++ b/usr/src/usr.bin/f77/libF77/ef1asc_.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)ef1asc_.c   5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)ef1asc_.c  5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  /* EFL support routine to copy string b to string a */
  
  #define M      ( (long) (sizeof(long) - 1) )
  /* EFL support routine to copy string b to string a */
  
  #define M      ( (long) (sizeof(long) - 1) )
diff --git a/usr/src/usr.bin/f77/libF77/ef1cmc_.c b/usr/src/usr.bin/f77/libF77/ef1cmc_.c

index c15d07c..b6fdf80 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/ef1cmc_.c
+++ b/usr/src/usr.bin/f77/libF77/ef1cmc_.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)ef1cmc_.c   5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)ef1cmc_.c  5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  /* EFL support routine to compare two character strings */
  
  long int ef1cmc_(a, la, b, lb)
  /* EFL support routine to compare two character strings */
  
  long int ef1cmc_(a, la, b, lb)
diff --git a/usr/src/usr.bin/f77/libF77/erf_.c b/usr/src/usr.bin/f77/libF77/erf_.c

index e78ed69..5721110 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/erf_.c
+++ b/usr/src/usr.bin/f77/libF77/erf_.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)erf_.c      5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)erf_.c     5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  float erf_(x)
  float *x;
  {
  float erf_(x)
  float *x;
  {
diff --git a/usr/src/usr.bin/f77/libF77/erfc_.c b/usr/src/usr.bin/f77/libF77/erfc_.c

index 82d2702..1012ec4 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/erfc_.c
+++ b/usr/src/usr.bin/f77/libF77/erfc_.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)erfc_.c     5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)erfc_.c    5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  float erfc_(x)
  float *x;
  {
  float erfc_(x)
  float *x;
  {
diff --git a/usr/src/usr.bin/f77/libF77/exit_.c b/usr/src/usr.bin/f77/libF77/exit_.c

index 34aeea3..908f559 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/exit_.c
+++ b/usr/src/usr.bin/f77/libF77/exit_.c
@@ -1,11 +1,13 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)exit_.c     5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)exit_.c    5.2 (Berkeley) %G%";
+#endif /* not lint */
  
  exit_(n)
  long *n;
  
  exit_(n)
  long *n;
diff --git a/usr/src/usr.bin/f77/libF77/h_abs.c b/usr/src/usr.bin/f77/libF77/h_abs.c

index 74e215a..4b694bc 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/h_abs.c
+++ b/usr/src/usr.bin/f77/libF77/h_abs.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)h_abs.c     5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)h_abs.c    5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  short h_abs(x)
  short *x;
  {
  short h_abs(x)
  short *x;
  {
diff --git a/usr/src/usr.bin/f77/libF77/h_dim.c b/usr/src/usr.bin/f77/libF77/h_dim.c

index 3065473..ef4b981 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/h_dim.c
+++ b/usr/src/usr.bin/f77/libF77/h_dim.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)h_dim.c     5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)h_dim.c    5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  short h_dim(a,b)
  short *a, *b;
  {
  short h_dim(a,b)
  short *a, *b;
  {
diff --git a/usr/src/usr.bin/f77/libF77/h_dnnt.c b/usr/src/usr.bin/f77/libF77/h_dnnt.c

index 1461f4e..77eaf4f 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/h_dnnt.c
+++ b/usr/src/usr.bin/f77/libF77/h_dnnt.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)h_dnnt.c    5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)h_dnnt.c   5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  short h_dnnt(x)
  double *x;
  {
  short h_dnnt(x)
  double *x;
  {
diff --git a/usr/src/usr.bin/f77/libF77/h_indx.c b/usr/src/usr.bin/f77/libF77/h_indx.c

index 3adf34e..96f2bfd 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/h_indx.c
+++ b/usr/src/usr.bin/f77/libF77/h_indx.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)h_indx.c    5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)h_indx.c   5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  short h_indx(a, b, la, lb)
  char *a, *b;
  long int la, lb;
  short h_indx(a, b, la, lb)
  char *a, *b;
  long int la, lb;
diff --git a/usr/src/usr.bin/f77/libF77/h_len.c b/usr/src/usr.bin/f77/libF77/h_len.c

index daae00d..8a9b2c2 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/h_len.c
+++ b/usr/src/usr.bin/f77/libF77/h_len.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)h_len.c     5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)h_len.c    5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  short h_len(s, n)
  char *s;
  long int n;
  short h_len(s, n)
  char *s;
  long int n;
diff --git a/usr/src/usr.bin/f77/libF77/h_mod.c b/usr/src/usr.bin/f77/libF77/h_mod.c

index a4468f5..0ccb6e8 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/h_mod.c
+++ b/usr/src/usr.bin/f77/libF77/h_mod.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)h_mod.c     5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)h_mod.c    5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  short h_mod(a,b)
  short *a, *b;
  {
  short h_mod(a,b)
  short *a, *b;
  {
diff --git a/usr/src/usr.bin/f77/libF77/h_nint.c b/usr/src/usr.bin/f77/libF77/h_nint.c

index 739b2b3..da9db6d 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/h_nint.c
+++ b/usr/src/usr.bin/f77/libF77/h_nint.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)h_nint.c    5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)h_nint.c   5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  short h_nint(x)
  float *x;
  {
  short h_nint(x)
  float *x;
  {
diff --git a/usr/src/usr.bin/f77/libF77/h_sign.c b/usr/src/usr.bin/f77/libF77/h_sign.c

index 2c6077d..912d5ed 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/h_sign.c
+++ b/usr/src/usr.bin/f77/libF77/h_sign.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)h_sign.c    5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)h_sign.c   5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  short h_sign(a,b)
  short *a, *b;
  {
  short h_sign(a,b)
  short *a, *b;
  {
diff --git a/usr/src/usr.bin/f77/libF77/hl_ge.c b/usr/src/usr.bin/f77/libF77/hl_ge.c

index 0daf5e9..f9acb62 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/hl_ge.c
+++ b/usr/src/usr.bin/f77/libF77/hl_ge.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)hl_ge.c     5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)hl_ge.c    5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  short hl_ge(a,b,la,lb)
  char *a, *b;
  long int la, lb;
  short hl_ge(a,b,la,lb)
  char *a, *b;
  long int la, lb;
diff --git a/usr/src/usr.bin/f77/libF77/hl_gt.c b/usr/src/usr.bin/f77/libF77/hl_gt.c

index 70be64a..5cc79a1 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/hl_gt.c
+++ b/usr/src/usr.bin/f77/libF77/hl_gt.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)hl_gt.c     5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)hl_gt.c    5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  short hl_gt(a,b,la,lb)
  char *a, *b;
  long int la, lb;
  short hl_gt(a,b,la,lb)
  char *a, *b;
  long int la, lb;
diff --git a/usr/src/usr.bin/f77/libF77/hl_le.c b/usr/src/usr.bin/f77/libF77/hl_le.c

index 96c3a68..34738d4 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/hl_le.c
+++ b/usr/src/usr.bin/f77/libF77/hl_le.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)hl_le.c     5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)hl_le.c    5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  short hl_le(a,b,la,lb)
  char *a, *b;
  long int la, lb;
  short hl_le(a,b,la,lb)
  char *a, *b;
  long int la, lb;
diff --git a/usr/src/usr.bin/f77/libF77/hl_lt.c b/usr/src/usr.bin/f77/libF77/hl_lt.c

index 5bc3bcb..6776556 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/hl_lt.c
+++ b/usr/src/usr.bin/f77/libF77/hl_lt.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)hl_lt.c     5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)hl_lt.c    5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  short hl_lt(a,b,la,lb)
  char *a, *b;
  long int la, lb;
  short hl_lt(a,b,la,lb)
  char *a, *b;
  long int la, lb;
diff --git a/usr/src/usr.bin/f77/libF77/i_abs.c b/usr/src/usr.bin/f77/libF77/i_abs.c

index 3cda820..75f77ac 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/i_abs.c
+++ b/usr/src/usr.bin/f77/libF77/i_abs.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)i_abs.c     5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)i_abs.c    5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  long int i_abs(x)
  long int *x;
  {
  long int i_abs(x)
  long int *x;
  {
diff --git a/usr/src/usr.bin/f77/libF77/i_dim.c b/usr/src/usr.bin/f77/libF77/i_dim.c

index a57cb81..bc746b2 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/i_dim.c
+++ b/usr/src/usr.bin/f77/libF77/i_dim.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)i_dim.c     5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)i_dim.c    5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  long int i_dim(a,b)
  long int *a, *b;
  {
  long int i_dim(a,b)
  long int *a, *b;
  {
diff --git a/usr/src/usr.bin/f77/libF77/i_dnnt.c b/usr/src/usr.bin/f77/libF77/i_dnnt.c

index c0ad86e..18ad0d0 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/i_dnnt.c
+++ b/usr/src/usr.bin/f77/libF77/i_dnnt.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)i_dnnt.c    5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)i_dnnt.c   5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  long int i_dnnt(x)
  double *x;
  {
  long int i_dnnt(x)
  double *x;
  {
diff --git a/usr/src/usr.bin/f77/libF77/i_indx.c b/usr/src/usr.bin/f77/libF77/i_indx.c

index b5ca797..d6b9f38 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/i_indx.c
+++ b/usr/src/usr.bin/f77/libF77/i_indx.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)i_indx.c    5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)i_indx.c   5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  long int i_indx(a, b, la, lb)
  char *a, *b;
  long int la, lb;
  long int i_indx(a, b, la, lb)
  char *a, *b;
  long int la, lb;
diff --git a/usr/src/usr.bin/f77/libF77/i_len.c b/usr/src/usr.bin/f77/libF77/i_len.c

index a1e35bc..e03362e 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/i_len.c
+++ b/usr/src/usr.bin/f77/libF77/i_len.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)i_len.c     5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)i_len.c    5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  long int i_len(s, n)
  char *s;
  long int n;
  long int i_len(s, n)
  char *s;
  long int n;
diff --git a/usr/src/usr.bin/f77/libF77/i_mod.c b/usr/src/usr.bin/f77/libF77/i_mod.c

index 5c7485d..3a1ed64 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/i_mod.c
+++ b/usr/src/usr.bin/f77/libF77/i_mod.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)i_mod.c     5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)i_mod.c    5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  long int i_mod(a,b)
  long int *a, *b;
  {
  long int i_mod(a,b)
  long int *a, *b;
  {
diff --git a/usr/src/usr.bin/f77/libF77/i_nint.c b/usr/src/usr.bin/f77/libF77/i_nint.c

index 0063427..13b8863 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/i_nint.c
+++ b/usr/src/usr.bin/f77/libF77/i_nint.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)i_nint.c    5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)i_nint.c   5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  long int i_nint(x)
  float *x;
  {
  long int i_nint(x)
  float *x;
  {
diff --git a/usr/src/usr.bin/f77/libF77/i_sign.c b/usr/src/usr.bin/f77/libF77/i_sign.c

index c6f23ce..0f735ee 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/i_sign.c
+++ b/usr/src/usr.bin/f77/libF77/i_sign.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)i_sign.c    5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)i_sign.c   5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  long int i_sign(a,b)
  long int *a, *b;
  {
  long int i_sign(a,b)
  long int *a, *b;
  {
diff --git a/usr/src/usr.bin/f77/libF77/l_ge.c b/usr/src/usr.bin/f77/libF77/l_ge.c

index 81a9a9f..5d65417 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/l_ge.c
+++ b/usr/src/usr.bin/f77/libF77/l_ge.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)l_ge.c      5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)l_ge.c     5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  long int l_ge(a,b,la,lb)
  char *a, *b;
  long int la, lb;
  long int l_ge(a,b,la,lb)
  char *a, *b;
  long int la, lb;
diff --git a/usr/src/usr.bin/f77/libF77/l_gt.c b/usr/src/usr.bin/f77/libF77/l_gt.c

index 72ca499..49614ba 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/l_gt.c
+++ b/usr/src/usr.bin/f77/libF77/l_gt.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)l_gt.c      5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)l_gt.c     5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  long int l_gt(a,b,la,lb)
  char *a, *b;
  long int la, lb;
  long int l_gt(a,b,la,lb)
  char *a, *b;
  long int la, lb;
diff --git a/usr/src/usr.bin/f77/libF77/l_le.c b/usr/src/usr.bin/f77/libF77/l_le.c

index 8b7264b..0b0bb89 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/l_le.c
+++ b/usr/src/usr.bin/f77/libF77/l_le.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)l_le.c      5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)l_le.c     5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  long int l_le(a,b,la,lb)
  char *a, *b;
  long int la, lb;
  long int l_le(a,b,la,lb)
  char *a, *b;
  long int la, lb;
diff --git a/usr/src/usr.bin/f77/libF77/l_lt.c b/usr/src/usr.bin/f77/libF77/l_lt.c

index fc8c9d0..9f3bc7e 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/l_lt.c
+++ b/usr/src/usr.bin/f77/libF77/l_lt.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)l_lt.c      5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)l_lt.c     5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  long int l_lt(a,b,la,lb)
  char *a, *b;
  long int la, lb;
  long int l_lt(a,b,la,lb)
  char *a, *b;
  long int la, lb;
diff --git a/usr/src/usr.bin/f77/libF77/lnblnk_.c b/usr/src/usr.bin/f77/libF77/lnblnk_.c

index 39e9d0e..b043de2 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/lnblnk_.c
+++ b/usr/src/usr.bin/f77/libF77/lnblnk_.c
@@ -1,10 +1,15 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
- *
- *     @(#)lnblnk_.c   5.2     %G%
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
+ * %sccs.include.proprietary.c%
+ */
+
+#ifndef lint
+static char sccsid[] = "@(#)lnblnk_.c  5.3 (Berkeley) %G%";
+#endif /* not lint */
+
+/*
   * find last occurrence of a non-blank character in string
   *
   * calling sequence:
   * find last occurrence of a non-blank character in string
   *
   * calling sequence:
diff --git a/usr/src/usr.bin/f77/libF77/long_.c b/usr/src/usr.bin/f77/libF77/long_.c

index 9054451..9657a3c 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/long_.c
+++ b/usr/src/usr.bin/f77/libF77/long_.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)long_.c     5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)long_.c    5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * convert short ints to long.
   * Needed for literals in -I2 compiles.
  /*
   * convert short ints to long.
   * Needed for literals in -I2 compiles.
diff --git a/usr/src/usr.bin/f77/libF77/main.c b/usr/src/usr.bin/f77/libF77/main.c

index 73bcd19..1930df0 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/main.c
+++ b/usr/src/usr.bin/f77/libF77/main.c
@@ -1,10 +1,20 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)main.c      5.5     %G%
+ * %sccs.include.proprietary.c%
   */
   */
+
+#ifndef lint
+char copyright[] =
+"@(#) Copyright (c) 1980 The Regents of the University of California.\n\
+ All rights reserved.\n";
+#endif /* not lint */
+
+#ifndef lint
+static char sccsid[] = "@(#)main.c     5.6 (Berkeley) %G%";
+#endif /* not lint */
+
  #include <stdio.h>
  #include <signal.h>
  #include "../libI77/fiodefs.h"
  #include <stdio.h>
  #include <signal.h>
  #include "../libI77/fiodefs.h"
diff --git a/usr/src/usr.bin/f77/libF77/mkindx.c b/usr/src/usr.bin/f77/libF77/mkindx.c

index f8fa70a..4a38132 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/mkindx.c
+++ b/usr/src/usr.bin/f77/libF77/mkindx.c
@@ -1,9 +1,20 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+char copyright[] =
+"@(#) Copyright (c) 1980 The Regents of the University of California.\n\
+ All rights reserved.\n";
+#endif /* not lint */
+
+#ifndef lint
+static char sccsid[] = "@(#)mkindx.c   1.2 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   *  mkindx.c - utility to format a nice index to source files, etc.
   *
  /*
   *  mkindx.c - utility to format a nice index to source files, etc.
   *
@@ -12,7 +23,7 @@
  
  # include      <stdio.h>
  
  
  # include      <stdio.h>
  
-char id_mkindx[] = "@(#)mkindx.c       1.1 %G%";
+char id_mkindx[] = "@(#)mkindx.c       1.2 %G%";
  
  char list[10000] = "pwd >>index; echo \" \" >>index; ls -l ";
  char *apndx = ">>index";
  
  char list[10000] = "pwd >>index; echo \" \" >>index; ls -l ";
  char *apndx = ">>index";
diff --git a/usr/src/usr.bin/f77/libF77/mkvers.c b/usr/src/usr.bin/f77/libF77/mkvers.c

index 291b12d..430fa1b 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/mkvers.c
+++ b/usr/src/usr.bin/f77/libF77/mkvers.c
@@ -1,10 +1,22 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.proprietary.c%
   */
  
   */
  
-char id_mkvers[] = "@(#)mkvers.c       1.1 %G%";
+#ifndef lint
+char copyright[] =
+"@(#) Copyright (c) 1980 The Regents of the University of California.\n\
+ All rights reserved.\n";
+#endif /* not lint */
+
+#ifndef lint
+static char sccsid[] = "@(#)mkvers.c   1.2 (Berkeley) %G%";
+#endif /* not lint */
+
+char id_mkvers[] = "@(#)mkvers.c       1.2 %G%";
+
  /*
   * extract sccs id strings from source files
   * first arg is lib name.
  /*
   * extract sccs id strings from source files
   * first arg is lib name.
diff --git a/usr/src/usr.bin/f77/libF77/opcodes.h b/usr/src/usr.bin/f77/libF77/opcodes.h

index 681902b..56fd081 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/opcodes.h
+++ b/usr/src/usr.bin/f77/libF77/opcodes.h
@@ -1,10 +1,13 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)opcodes.h   5.1 (Berkeley) %G%
+ * %sccs.include.proprietary.c%
   *
   *
+ *     @(#)opcodes.h   5.2 (Berkeley) %G%
+ */
+
+/*
   * We just define the floating-point opcodes, to ease our minds.
   */
  
   * We just define the floating-point opcodes, to ease our minds.
   */
  
diff --git a/usr/src/usr.bin/f77/libF77/operand.h b/usr/src/usr.bin/f77/libF77/operand.h

index 3d2ddc7..0b8c626 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/operand.h
+++ b/usr/src/usr.bin/f77/libF77/operand.h
@@ -1,10 +1,13 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)operand.h   5.1 (Berkeley) %G%
+ * %sccs.include.proprietary.c%
   *
   *
+ *     @(#)operand.h   5.2 (Berkeley) %G%
+ */
+
+/*
   * operand.h  --  definitions useful to VAX operand decoding
   */
  
   * operand.h  --  definitions useful to VAX operand decoding
   */
  
diff --git a/usr/src/usr.bin/f77/libF77/pow_ci.c b/usr/src/usr.bin/f77/libF77/pow_ci.c

index 6a240b0..a17a03e 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/pow_ci.c
+++ b/usr/src/usr.bin/f77/libF77/pow_ci.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)pow_ci.c    5.3     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)pow_ci.c   5.4 (Berkeley) %G%";
+#endif /* not lint */
+
  #include "complex"
  
  #ifdef tahoe
  #include "complex"
  
  #ifdef tahoe
diff --git a/usr/src/usr.bin/f77/libF77/pow_dd.c b/usr/src/usr.bin/f77/libF77/pow_dd.c

index 074e45d..728d60f 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/pow_dd.c
+++ b/usr/src/usr.bin/f77/libF77/pow_dd.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)pow_dd.c    5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)pow_dd.c   5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  double pow_dd(ap, bp)
  double *ap, *bp;
  {
  double pow_dd(ap, bp)
  double *ap, *bp;
  {
diff --git a/usr/src/usr.bin/f77/libF77/pow_di.c b/usr/src/usr.bin/f77/libF77/pow_di.c

index 7feb531..cf6eed5 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/pow_di.c
+++ b/usr/src/usr.bin/f77/libF77/pow_di.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)pow_di.c    5.3     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)pow_di.c   5.4 (Berkeley) %G%";
+#endif /* not lint */
+
  double
  pow_di(ap, bp)
         double *ap;
  double
  pow_di(ap, bp)
         double *ap;
diff --git a/usr/src/usr.bin/f77/libF77/pow_hh.c b/usr/src/usr.bin/f77/libF77/pow_hh.c

index 68694c9..0de4457 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/pow_hh.c
+++ b/usr/src/usr.bin/f77/libF77/pow_hh.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)pow_hh.c    5.2     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)pow_hh.c   5.3 (Berkeley) %G%";
+#endif /* not lint */
+
  short pow_hh(ap, bp)
  short *ap, *bp;
  {
  short pow_hh(ap, bp)
  short *ap, *bp;
  {
diff --git a/usr/src/usr.bin/f77/libF77/pow_ii.c b/usr/src/usr.bin/f77/libF77/pow_ii.c

index 3bdf0f1..3cfe6b8 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/pow_ii.c
+++ b/usr/src/usr.bin/f77/libF77/pow_ii.c
@@ -1,14 +1,17 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)pow_ii.c    5.3     %G%
- *
- *  Corrections by Robert P. Corbett, 1983 March 2
- *  Revised to restore portability, 1983 March 4
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)pow_ii.c   5.4 (Berkeley) %G%";
+#endif /* not lint */
+
+/*  Corrections by Robert P. Corbett, 1983 March 2
+ *  Revised to restore portability, 1983 March 4
+ */
  
  long int pow_ii(ap, bp)
  long int *ap, *bp;
  
  long int pow_ii(ap, bp)
  long int *ap, *bp;
diff --git a/usr/src/usr.bin/f77/libF77/pow_ri.c b/usr/src/usr.bin/f77/libF77/pow_ri.c

index 793e42c..862d5d4 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/pow_ri.c
+++ b/usr/src/usr.bin/f77/libF77/pow_ri.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)pow_ri.c    5.4     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)pow_ri.c   5.5 (Berkeley) %G%";
+#endif /* not lint */
+
  #ifdef tahoe
  #define        double  float
  #endif /* tahoe */
  #ifdef tahoe
  #define        double  float
  #endif /* tahoe */
diff --git a/usr/src/usr.bin/f77/libF77/pow_zi.c b/usr/src/usr.bin/f77/libF77/pow_zi.c

index 1e3f098..da2981d 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/pow_zi.c
+++ b/usr/src/usr.bin/f77/libF77/pow_zi.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)pow_zi.c    5.2     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)pow_zi.c   5.3 (Berkeley) %G%";
+#endif /* not lint */
+
  #include "complex"
  
  #define        Z_MULEQ(A,B)    \
  #include "complex"
  
  #define        Z_MULEQ(A,B)    \
diff --git a/usr/src/usr.bin/f77/libF77/pow_zz.c b/usr/src/usr.bin/f77/libF77/pow_zz.c

index 2f6e865..ee5678e 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/pow_zz.c
+++ b/usr/src/usr.bin/f77/libF77/pow_zz.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)pow_zz.c    5.2     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)pow_zz.c   5.3 (Berkeley) %G%";
+#endif /* not lint */
+
  #include "complex"
  #ifdef tahoe
  #define cabs zabs
  #include "complex"
  #ifdef tahoe
  #define cabs zabs
diff --git a/usr/src/usr.bin/f77/libF77/r_abs.c b/usr/src/usr.bin/f77/libF77/r_abs.c

index d671ce0..80da51a 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/r_abs.c
+++ b/usr/src/usr.bin/f77/libF77/r_abs.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)r_abs.c     5.2     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)r_abs.c    5.3 (Berkeley) %G%";
+#endif /* not lint */
+
  float r_abs(x)
  float *x;
  {
  float r_abs(x)
  float *x;
  {
diff --git a/usr/src/usr.bin/f77/libF77/r_acos.c b/usr/src/usr.bin/f77/libF77/r_acos.c

index 15efded..764034a 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/r_acos.c
+++ b/usr/src/usr.bin/f77/libF77/r_acos.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)r_acos.c    5.2     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)r_acos.c   5.3 (Berkeley) %G%";
+#endif /* not lint */
+
  float r_acos(x)
  float *x;
  {
  float r_acos(x)
  float *x;
  {
diff --git a/usr/src/usr.bin/f77/libF77/r_asin.c b/usr/src/usr.bin/f77/libF77/r_asin.c

index 5df2a97..6e557a4 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/r_asin.c
+++ b/usr/src/usr.bin/f77/libF77/r_asin.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)r_asin.c    5.2     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)r_asin.c   5.3 (Berkeley) %G%";
+#endif /* not lint */
+
  float r_asin(x)
  float *x;
  {
  float r_asin(x)
  float *x;
  {
diff --git a/usr/src/usr.bin/f77/libF77/r_atan.c b/usr/src/usr.bin/f77/libF77/r_atan.c

index a38e18c..3a29b57 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/r_atan.c
+++ b/usr/src/usr.bin/f77/libF77/r_atan.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)r_atan.c    5.2     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)r_atan.c   5.3 (Berkeley) %G%";
+#endif /* not lint */
+
  float r_atan(x)
  float *x;
  {
  float r_atan(x)
  float *x;
  {
diff --git a/usr/src/usr.bin/f77/libF77/r_atn2.c b/usr/src/usr.bin/f77/libF77/r_atn2.c

index bcc8ca2..0ee246c 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/r_atn2.c
+++ b/usr/src/usr.bin/f77/libF77/r_atn2.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)r_atn2.c    5.2     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)r_atn2.c   5.3 (Berkeley) %G%";
+#endif /* not lint */
+
  float r_atn2(x,y)
  float *x, *y;
  {
  float r_atn2(x,y)
  float *x, *y;
  {
diff --git a/usr/src/usr.bin/f77/libF77/r_cnjg.c b/usr/src/usr.bin/f77/libF77/r_cnjg.c

index cc1fca2..7e8a080 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/r_cnjg.c
+++ b/usr/src/usr.bin/f77/libF77/r_cnjg.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)r_cnjg.c    5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)r_cnjg.c   5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  #include "complex"
  
  r_cnjg(r, z)
  #include "complex"
  
  r_cnjg(r, z)
diff --git a/usr/src/usr.bin/f77/libF77/r_cos.c b/usr/src/usr.bin/f77/libF77/r_cos.c

index 716dc5e..e99b167 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/r_cos.c
+++ b/usr/src/usr.bin/f77/libF77/r_cos.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)r_cos.c     5.2     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)r_cos.c    5.3 (Berkeley) %G%";
+#endif /* not lint */
+
  float r_cos(x)
  float *x;
  {
  float r_cos(x)
  float *x;
  {
diff --git a/usr/src/usr.bin/f77/libF77/r_cosh.c b/usr/src/usr.bin/f77/libF77/r_cosh.c

index 0b1b521..42a0c71 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/r_cosh.c
+++ b/usr/src/usr.bin/f77/libF77/r_cosh.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)r_cosh.c    5.2     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)r_cosh.c   5.3 (Berkeley) %G%";
+#endif /* not lint */
+
  float r_cosh(x)
  float *x;
  {
  float r_cosh(x)
  float *x;
  {
diff --git a/usr/src/usr.bin/f77/libF77/r_dim.c b/usr/src/usr.bin/f77/libF77/r_dim.c

index 580c945..712aaf3 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/r_dim.c
+++ b/usr/src/usr.bin/f77/libF77/r_dim.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)r_dim.c     5.3     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)r_dim.c    5.4 (Berkeley) %G%";
+#endif /* not lint */
+
  float flt_retval;
  
  float r_dim(a,b)
  float flt_retval;
  
  float r_dim(a,b)
diff --git a/usr/src/usr.bin/f77/libF77/r_exp.c b/usr/src/usr.bin/f77/libF77/r_exp.c

index 8aa0007..94327ee 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/r_exp.c
+++ b/usr/src/usr.bin/f77/libF77/r_exp.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)r_exp.c     5.2     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)r_exp.c    5.3 (Berkeley) %G%";
+#endif /* not lint */
+
  float r_exp(x)
  float *x;
  {
  float r_exp(x)
  float *x;
  {
diff --git a/usr/src/usr.bin/f77/libF77/r_imag.c b/usr/src/usr.bin/f77/libF77/r_imag.c

index dd41c77..7c7c09c 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/r_imag.c
+++ b/usr/src/usr.bin/f77/libF77/r_imag.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)r_imag.c    5.2     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)r_imag.c   5.3 (Berkeley) %G%";
+#endif /* not lint */
+
  #include "complex"
  
  float r_imag(z)
  #include "complex"
  
  float r_imag(z)
diff --git a/usr/src/usr.bin/f77/libF77/r_int.c b/usr/src/usr.bin/f77/libF77/r_int.c

index ae672e3..a519e4e 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/r_int.c
+++ b/usr/src/usr.bin/f77/libF77/r_int.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)r_int.c     5.2     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)r_int.c    5.3 (Berkeley) %G%";
+#endif /* not lint */
+
  float r_int(x)
  float *x;
  {
  float r_int(x)
  float *x;
  {
diff --git a/usr/src/usr.bin/f77/libF77/r_lg10.c b/usr/src/usr.bin/f77/libF77/r_lg10.c

index d2576a9..e4ac0f9 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/r_lg10.c
+++ b/usr/src/usr.bin/f77/libF77/r_lg10.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)r_lg10.c    5.3     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)r_lg10.c   5.4 (Berkeley) %G%";
+#endif /* not lint */
+
  float r_lg10(x)
  float *x;
  {
  float r_lg10(x)
  float *x;
  {
diff --git a/usr/src/usr.bin/f77/libF77/r_log.c b/usr/src/usr.bin/f77/libF77/r_log.c

index ed82927..8702ed7 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/r_log.c
+++ b/usr/src/usr.bin/f77/libF77/r_log.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)r_log.c     5.2     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)r_log.c    5.3 (Berkeley) %G%";
+#endif /* not lint */
+
  float r_log(x)
  float *x;
  {
  float r_log(x)
  float *x;
  {
diff --git a/usr/src/usr.bin/f77/libF77/r_mod.c b/usr/src/usr.bin/f77/libF77/r_mod.c

index c7c9d2c..96bfd42 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/r_mod.c
+++ b/usr/src/usr.bin/f77/libF77/r_mod.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)r_mod.c     5.5     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)r_mod.c    5.6 (Berkeley) %G%";
+#endif /* not lint */
+
  #ifndef tahoe
  float flt_retval;
  
  #ifndef tahoe
  float flt_retval;
  
diff --git a/usr/src/usr.bin/f77/libF77/r_nint.c b/usr/src/usr.bin/f77/libF77/r_nint.c

index 27f7c9f..7361328 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/r_nint.c
+++ b/usr/src/usr.bin/f77/libF77/r_nint.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)r_nint.c    5.3     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)r_nint.c   5.4 (Berkeley) %G%";
+#endif /* not lint */
+
  float flt_retval;
  
  float r_nint(x)
  float flt_retval;
  
  float r_nint(x)
diff --git a/usr/src/usr.bin/f77/libF77/r_sign.c b/usr/src/usr.bin/f77/libF77/r_sign.c

index c6c1600..ec56a33 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/r_sign.c
+++ b/usr/src/usr.bin/f77/libF77/r_sign.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)r_sign.c    5.2     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)r_sign.c   5.3 (Berkeley) %G%";
+#endif /* not lint */
+
  float r_sign(a,b)
  float *a, *b;
  {
  float r_sign(a,b)
  float *a, *b;
  {
diff --git a/usr/src/usr.bin/f77/libF77/r_sin.c b/usr/src/usr.bin/f77/libF77/r_sin.c

index 065af0b..12dc41f 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/r_sin.c
+++ b/usr/src/usr.bin/f77/libF77/r_sin.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)r_sin.c     5.2     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)r_sin.c    5.3 (Berkeley) %G%";
+#endif /* not lint */
+
  float r_sin(x)
  float *x;
  {
  float r_sin(x)
  float *x;
  {
diff --git a/usr/src/usr.bin/f77/libF77/r_sinh.c b/usr/src/usr.bin/f77/libF77/r_sinh.c

index 15e949b..41b0854 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/r_sinh.c
+++ b/usr/src/usr.bin/f77/libF77/r_sinh.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)r_sinh.c    5.2     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)r_sinh.c   5.3 (Berkeley) %G%";
+#endif /* not lint */
+
  float r_sinh(x)
  float *x;
  {
  float r_sinh(x)
  float *x;
  {
diff --git a/usr/src/usr.bin/f77/libF77/r_sqrt.c b/usr/src/usr.bin/f77/libF77/r_sqrt.c

index 29252c3..e125b65 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/r_sqrt.c
+++ b/usr/src/usr.bin/f77/libF77/r_sqrt.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)r_sqrt.c    5.2     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)r_sqrt.c   5.3 (Berkeley) %G%";
+#endif /* not lint */
+
  float r_sqrt(x)
  float *x;
  {
  float r_sqrt(x)
  float *x;
  {
diff --git a/usr/src/usr.bin/f77/libF77/r_tan.c b/usr/src/usr.bin/f77/libF77/r_tan.c

index 221c0f6..e899c88 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/r_tan.c
+++ b/usr/src/usr.bin/f77/libF77/r_tan.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)r_tan.c     5.4     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)r_tan.c    5.5 (Berkeley) %G%";
+#endif /* not lint */
+
  #ifndef tahoe
  float r_tan(x)
  float *x;
  #ifndef tahoe
  float r_tan(x)
  float *x;
diff --git a/usr/src/usr.bin/f77/libF77/r_tanh.c b/usr/src/usr.bin/f77/libF77/r_tanh.c

index 7cb93ee..f1ccd20 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/r_tanh.c
+++ b/usr/src/usr.bin/f77/libF77/r_tanh.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)r_tanh.c    5.2     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)r_tanh.c   5.3 (Berkeley) %G%";
+#endif /* not lint */
+
  float r_tanh(x)
  float *x;
  {
  float r_tanh(x)
  float *x;
  {
diff --git a/usr/src/usr.bin/f77/libF77/rand_.c b/usr/src/usr.bin/f77/libF77/rand_.c

index d65b6a7..8e89895 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/rand_.c
+++ b/usr/src/usr.bin/f77/libF77/rand_.c
@@ -1,10 +1,15 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
- *
- *     @(#)rand_.c     5.4     %G%
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
+ * %sccs.include.proprietary.c%
+ */
+
+#ifndef lint
+static char sccsid[] = "@(#)rand_.c    5.5 (Berkeley) %G%";
+#endif /* not lint */
+
+/*
   * Routines to return random values
   *
   * calling sequence:
   * Routines to return random values
   *
   * calling sequence:
diff --git a/usr/src/usr.bin/f77/libF77/rand_.c.other b/usr/src/usr.bin/f77/libF77/rand_.c.other

index cecfbda..d45f9b0 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/rand_.c.other
+++ b/usr/src/usr.bin/f77/libF77/rand_.c.other
@@ -1,3 +1,14 @@
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.proprietary.c%
+ */
+
+#ifndef lint
+static char sccsid[] = "@(#)rand_.c.other      5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
  Uniform random number generator.  Code courtesy of Bob Morris.
  Linear congruential generator, suitable for 32 bit machines;
  /*
  Uniform random number generator.  Code courtesy of Bob Morris.
  Linear congruential generator, suitable for 32 bit machines;
diff --git a/usr/src/usr.bin/f77/libF77/random_.c b/usr/src/usr.bin/f77/libF77/random_.c

index bf04995..794469f 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/random_.c
+++ b/usr/src/usr.bin/f77/libF77/random_.c
@@ -1,10 +1,15 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)random_.c   5.4     %G%
- * 
+ * %sccs.include.proprietary.c%
+ */
+
+#ifndef lint
+static char sccsid[] = "@(#)random_.c  5.5 (Berkeley) %G%";
+#endif /* not lint */
+
+/* 
   * Routines to return random values
   *
   * calling sequence:
   * Routines to return random values
   *
   * calling sequence:
diff --git a/usr/src/usr.bin/f77/libF77/range.c b/usr/src/usr.bin/f77/libF77/range.c

index d9a4872..d6fe495 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/range.c
+++ b/usr/src/usr.bin/f77/libF77/range.c
@@ -1,10 +1,15 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
- *
- *     @(#)range.c     5.4     %G%
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
+ * %sccs.include.proprietary.c%
+ */
+
+#ifndef lint
+static char sccsid[] = "@(#)range.c    5.5 (Berkeley) %G%";
+#endif /* not lint */
+
+/*
   * routines to return extreme values
   * VERY MACHINE DEPENDENT
   */
   * routines to return extreme values
   * VERY MACHINE DEPENDENT
   */
diff --git a/usr/src/usr.bin/f77/libF77/rindex_.c b/usr/src/usr.bin/f77/libF77/rindex_.c

index dd0dbfd..7bdf229 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/rindex_.c
+++ b/usr/src/usr.bin/f77/libF77/rindex_.c
@@ -1,10 +1,15 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
- *
- *     @(#)rindex_.c   5.2     %G%
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
+ * %sccs.include.proprietary.c%
+ */
+
+#ifndef lint
+static char sccsid[] = "@(#)rindex_.c  5.3 (Berkeley) %G%";
+#endif /* not lint */
+
+/*
   * find last occurrence of substring in string
   *
   * calling sequence:
   * find last occurrence of substring in string
   *
   * calling sequence:
diff --git a/usr/src/usr.bin/f77/libF77/s_cat.c b/usr/src/usr.bin/f77/libF77/s_cat.c

index c4af195..76ff671 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/s_cat.c
+++ b/usr/src/usr.bin/f77/libF77/s_cat.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)s_cat.c     5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)s_cat.c    5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  s_cat(lp, rpp, rnp, np, ll)
  char *lp, *rpp[];
  long int rnp[], *np, ll;
  s_cat(lp, rpp, rnp, np, ll)
  char *lp, *rpp[];
  long int rnp[], *np, ll;
diff --git a/usr/src/usr.bin/f77/libF77/s_cmp.c b/usr/src/usr.bin/f77/libF77/s_cmp.c

index c38c32b..b26f13e 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/s_cmp.c
+++ b/usr/src/usr.bin/f77/libF77/s_cmp.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)s_cmp.c     5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)s_cmp.c    5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  int s_cmp(a, b, la, lb)        /* compare two strings */
  register char *a, *b;
  long int la, lb;
  int s_cmp(a, b, la, lb)        /* compare two strings */
  register char *a, *b;
  long int la, lb;
diff --git a/usr/src/usr.bin/f77/libF77/s_copy.c b/usr/src/usr.bin/f77/libF77/s_copy.c

index 905df24..0b32423 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/s_copy.c
+++ b/usr/src/usr.bin/f77/libF77/s_copy.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)s_copy.c    5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)s_copy.c   5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  s_copy(a, b, la, lb)   /* assign strings:  a = b */
  char *a, *b;
  long int la, lb;
  s_copy(a, b, la, lb)   /* assign strings:  a = b */
  char *a, *b;
  long int la, lb;
diff --git a/usr/src/usr.bin/f77/libF77/s_paus.c b/usr/src/usr.bin/f77/libF77/s_paus.c

index 0c0089a..c40494a 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/s_paus.c
+++ b/usr/src/usr.bin/f77/libF77/s_paus.c
@@ -1,15 +1,17 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)s_paus.c    5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)s_paus.c   5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  #include <stdio.h>
  #define PAUSESIG 15
  
  #include <stdio.h>
  #define PAUSESIG 15
  
-
  s_paus(s, n)
  char *s;
  long int n;
  s_paus(s, n)
  char *s;
  long int n;
diff --git a/usr/src/usr.bin/f77/libF77/s_rnge.c b/usr/src/usr.bin/f77/libF77/s_rnge.c

index 77db24c..dcbcd70 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/s_rnge.c
+++ b/usr/src/usr.bin/f77/libF77/s_rnge.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)s_rnge.c    5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)s_rnge.c   5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  #include <stdio.h>
  
  /* called when a subscript is out of range */
  #include <stdio.h>
  
  /* called when a subscript is out of range */
diff --git a/usr/src/usr.bin/f77/libF77/s_stop.c b/usr/src/usr.bin/f77/libF77/s_stop.c

index 7ae6c94..08ca263 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/s_stop.c
+++ b/usr/src/usr.bin/f77/libF77/s_stop.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)s_stop.c    5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)s_stop.c   5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  #include <stdio.h>
  
  s_stop(s, n)
  #include <stdio.h>
  
  s_stop(s, n)
diff --git a/usr/src/usr.bin/f77/libF77/short_.c b/usr/src/usr.bin/f77/libF77/short_.c

index bf20a73..e6e4a92 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/short_.c
+++ b/usr/src/usr.bin/f77/libF77/short_.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)short_.c    5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)short_.c   5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * convert long ints to short.
   *
  /*
   * convert long ints to short.
   *
diff --git a/usr/src/usr.bin/f77/libF77/sigframe.h b/usr/src/usr.bin/f77/libF77/sigframe.h

index bdb6190..c06cce0 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/sigframe.h
+++ b/usr/src/usr.bin/f77/libF77/sigframe.h
@@ -1,3 +1,12 @@
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.proprietary.c%
+ *
+ *     @(#)sigframe.h  5.2 (Berkeley) %G%
+ */
+
  /*
   * Definition of signal handler frame.
   */
  /*
   * Definition of signal handler frame.
   */
diff --git a/usr/src/usr.bin/f77/libF77/signal_.c b/usr/src/usr.bin/f77/libF77/signal_.c

index d6f0d60..a76dabb 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/signal_.c
+++ b/usr/src/usr.bin/f77/libF77/signal_.c
@@ -1,10 +1,15 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
- *
- *     @(#)signal_.c   5.3     %G%
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
+ * %sccs.include.proprietary.c%
+ */
+
+#ifndef lint
+static char sccsid[] = "@(#)signal_.c  5.4 (Berkeley) %G%";
+#endif /* not lint */
+
+/*
   * change the action for a specified signal
   *
   * calling sequence:
   * change the action for a specified signal
   *
   * calling sequence:
diff --git a/usr/src/usr.bin/f77/libF77/subout.c b/usr/src/usr.bin/f77/libF77/subout.c

index fcf00cb..47c853c 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/subout.c
+++ b/usr/src/usr.bin/f77/libF77/subout.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)subout.c    5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)subout.c   5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  #include <stdio.h>
  
  subout(varn, offset, procn, line)
  #include <stdio.h>
  
  subout(varn, offset, procn, line)
diff --git a/usr/src/usr.bin/f77/libF77/traper_.c b/usr/src/usr.bin/f77/libF77/traper_.c

index 9ae0ad5..e703775 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/traper_.c
+++ b/usr/src/usr.bin/f77/libF77/traper_.c
@@ -1,10 +1,15 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
- *
- *     @(#)traper_.c   5.3     %G%
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
+ * %sccs.include.proprietary.c%
+ */
+
+#ifndef lint
+static char sccsid[] = "@(#)traper_.c  5.4 (Berkeley) %G%";
+#endif /* not lint */
+
+/*
   * Full of Magic! DON'T CHANGE ANYTHING !!
   *
   * To use from f77:
   * Full of Magic! DON'T CHANGE ANYTHING !!
   *
   * To use from f77:
diff --git a/usr/src/usr.bin/f77/libF77/trapov_.c b/usr/src/usr.bin/f77/libF77/trapov_.c

index 6fd7cdd..6c9267a 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/trapov_.c
+++ b/usr/src/usr.bin/f77/libF77/trapov_.c
@@ -1,10 +1,15 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
- *
- *     @(#)trapov_.c   5.5     %G%
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
+ * %sccs.include.proprietary.c%
+ */
+
+#ifndef lint
+static char sccsid[] = "@(#)trapov_.c  5.6 (Berkeley) %G%";
+#endif /* not lint */
+
+/*
   *     Fortran/C floating-point overflow handler
   *
   *     The idea of these routines is to catch floating-point overflows
   *     Fortran/C floating-point overflow handler
   *
   *     The idea of these routines is to catch floating-point overflows
diff --git a/usr/src/usr.bin/f77/libF77/trpfpe_.c b/usr/src/usr.bin/f77/libF77/trpfpe_.c

index 2b3edf4..6fbbe6f 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/trpfpe_.c
+++ b/usr/src/usr.bin/f77/libF77/trpfpe_.c
@@ -1,12 +1,17 @@
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.proprietary.c%
+ */
+
+#ifndef lint
+static char sccsid[] = "@(#)trpfpe_.c  5.7 (Berkeley) %G%";
+#endif /* not lint */
+
  /* #define OLD_BSD if you're running < 4.2 bsd */
  /* #define OLD_BSD if you're running < 4.2 bsd */
+
  /*
  /*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
- *
- *     @(#)trpfpe_.c   5.6     %G%
- *
- *
   *     Fortran floating-point error handler
   *
   *     Synopsis:
   *     Fortran floating-point error handler
   *
   *     Synopsis:
diff --git a/usr/src/usr.bin/f77/libF77/z_cos.c b/usr/src/usr.bin/f77/libF77/z_cos.c

index d4fd787..6d97573 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/z_cos.c
+++ b/usr/src/usr.bin/f77/libF77/z_cos.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)z_cos.c     5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)z_cos.c    5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  #include "complex"
  
  z_cos(r, z)
  #include "complex"
  
  z_cos(r, z)
diff --git a/usr/src/usr.bin/f77/libF77/z_div.c b/usr/src/usr.bin/f77/libF77/z_div.c

index a356dbd..ad6b9b2 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/z_div.c
+++ b/usr/src/usr.bin/f77/libF77/z_div.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)z_div.c     5.3     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)z_div.c    5.4 (Berkeley) %G%";
+#endif /* not lint */
+
  #include "complex"
  #include <stdio.h>
  #include <errno.h>
  #include "complex"
  #include <stdio.h>
  #include <errno.h>
diff --git a/usr/src/usr.bin/f77/libF77/z_exp.c b/usr/src/usr.bin/f77/libF77/z_exp.c

index 4554594..0e40513 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/z_exp.c
+++ b/usr/src/usr.bin/f77/libF77/z_exp.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)z_exp.c     5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)z_exp.c    5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  #include "complex"
  
  z_exp(r, z)
  #include "complex"
  
  z_exp(r, z)
diff --git a/usr/src/usr.bin/f77/libF77/z_log.c b/usr/src/usr.bin/f77/libF77/z_log.c

index 79e385a..d819213 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/z_log.c
+++ b/usr/src/usr.bin/f77/libF77/z_log.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)z_log.c     5.2     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)z_log.c    5.3 (Berkeley) %G%";
+#endif /* not lint */
+
  #include "complex"
  #ifdef tahoe
  #define cabs zabs
  #include "complex"
  #ifdef tahoe
  #define cabs zabs
diff --git a/usr/src/usr.bin/f77/libF77/z_sin.c b/usr/src/usr.bin/f77/libF77/z_sin.c

index 0c0a1b0..f6a835e 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/z_sin.c
+++ b/usr/src/usr.bin/f77/libF77/z_sin.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)z_sin.c     5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)z_sin.c    5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  #include "complex"
  
  z_sin(r, z)
  #include "complex"
  
  z_sin(r, z)
diff --git a/usr/src/usr.bin/f77/libF77/z_sqrt.c b/usr/src/usr.bin/f77/libF77/z_sqrt.c

index e04f094..23de5a7 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/z_sqrt.c
+++ b/usr/src/usr.bin/f77/libF77/z_sqrt.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)z_sqrt.c    5.3     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)z_sqrt.c   5.4 (Berkeley) %G%";
+#endif /* not lint */
+
  #include "complex"
  #ifdef tahoe
  #include <tahoe/math/FP.h>
  #include "complex"
  #ifdef tahoe
  #include <tahoe/math/FP.h>
diff --git a/usr/src/usr.bin/f77/libF77/zabs.c b/usr/src/usr.bin/f77/libF77/zabs.c

index dd43d4b..183bf07 100644 (file)
--- a/usr/src/usr.bin/f77/libF77/zabs.c
+++ b/usr/src/usr.bin/f77/libF77/zabs.c
@@ -1,7 +1,14 @@
-/*
- *     @(#)zabs.c      5.2     %G%
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)zabs.c     5.3 (Berkeley) %G%";
+#endif /* not lint */
+
  #ifdef tahoe
  /* THIS IS BASED ON TAHOE FP REPRESENTATION */
  #include <tahoemath/FP.h>
  #ifdef tahoe
  /* THIS IS BASED ON TAHOE FP REPRESENTATION */
  #include <tahoemath/FP.h>
diff --git a/usr/src/usr.bin/f77/libI77/backspace.c b/usr/src/usr.bin/f77/libI77/backspace.c

index 1ee4d1d..c212ea2 100644 (file)
--- a/usr/src/usr.bin/f77/libI77/backspace.c
+++ b/usr/src/usr.bin/f77/libI77/backspace.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)backspace.c 5.2     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)backspace.c        5.3 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * Backspace records
   */
  /*
   * Backspace records
   */
diff --git a/usr/src/usr.bin/f77/libI77/c_dfe.c b/usr/src/usr.bin/f77/libI77/c_dfe.c

index b7ab49c..3eb4366 100644 (file)
--- a/usr/src/usr.bin/f77/libI77/c_dfe.c
+++ b/usr/src/usr.bin/f77/libI77/c_dfe.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)c_dfe.c     5.3     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)c_dfe.c    5.4 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * direct formatted external i/o - common read/write routines
   */
  /*
   * direct formatted external i/o - common read/write routines
   */
diff --git a/usr/src/usr.bin/f77/libI77/c_iio.c b/usr/src/usr.bin/f77/libI77/c_iio.c

index a014e23..b0cfce9 100644 (file)
--- a/usr/src/usr.bin/f77/libI77/c_iio.c
+++ b/usr/src/usr.bin/f77/libI77/c_iio.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)c_iio.c     5.2     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)c_iio.c    5.3 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * internal (character array) i/o: common portions
   */
  /*
   * internal (character array) i/o: common portions
   */
diff --git a/usr/src/usr.bin/f77/libI77/c_sfe.c b/usr/src/usr.bin/f77/libI77/c_sfe.c

index d4b4c25..20ac55e 100644 (file)
--- a/usr/src/usr.bin/f77/libI77/c_sfe.c
+++ b/usr/src/usr.bin/f77/libI77/c_sfe.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)c_sfe.c     5.3     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)c_sfe.c    5.4 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * sequential formatted external I/O - common read & write routines
   */
  /*
   * sequential formatted external I/O - common read & write routines
   */
diff --git a/usr/src/usr.bin/f77/libI77/close.c b/usr/src/usr.bin/f77/libI77/close.c

index 479aa4e..9595e34 100644 (file)
--- a/usr/src/usr.bin/f77/libI77/close.c
+++ b/usr/src/usr.bin/f77/libI77/close.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)close.c     5.3     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)close.c    5.4 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * f_clos(): f77 file close
   * t_runc(): truncation
  /*
   * f_clos(): f77 file close
   * t_runc(): truncation
diff --git a/usr/src/usr.bin/f77/libI77/dofio.c b/usr/src/usr.bin/f77/libI77/dofio.c

index 604b4c9..ad0b83d 100644 (file)
--- a/usr/src/usr.bin/f77/libI77/dofio.c
+++ b/usr/src/usr.bin/f77/libI77/dofio.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)dofio.c     5.2     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)dofio.c    5.3 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * fortran format executer
   */
  /*
   * fortran format executer
   */
diff --git a/usr/src/usr.bin/f77/libI77/dolio.c b/usr/src/usr.bin/f77/libI77/dolio.c

index 7932acb..a7a8d2d 100644 (file)
--- a/usr/src/usr.bin/f77/libI77/dolio.c
+++ b/usr/src/usr.bin/f77/libI77/dolio.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)dolio.c     5.3     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)dolio.c    5.4 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * list directed and namelist i/o common routines
   */
  /*
   * list directed and namelist i/o common routines
   */
diff --git a/usr/src/usr.bin/f77/libI77/douio.c b/usr/src/usr.bin/f77/libI77/douio.c

index b677b94..4521645 100644 (file)
--- a/usr/src/usr.bin/f77/libI77/douio.c
+++ b/usr/src/usr.bin/f77/libI77/douio.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)douio.c     5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)douio.c    5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * unformatted external i/o
   */
  /*
   * unformatted external i/o
   */
diff --git a/usr/src/usr.bin/f77/libI77/due.c b/usr/src/usr.bin/f77/libI77/due.c

index e7d6efd..81a041c 100644 (file)
--- a/usr/src/usr.bin/f77/libI77/due.c
+++ b/usr/src/usr.bin/f77/libI77/due.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)due.c       5.2     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)due.c      5.3 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * direct unformatted external i/o
   */
  /*
   * direct unformatted external i/o
   */
diff --git a/usr/src/usr.bin/f77/libI77/endfile.c b/usr/src/usr.bin/f77/libI77/endfile.c

index fa30df0..49fc68b 100644 (file)
--- a/usr/src/usr.bin/f77/libI77/endfile.c
+++ b/usr/src/usr.bin/f77/libI77/endfile.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)endfile.c   5.2     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)endfile.c  5.3 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * endfile
   */
  /*
   * endfile
   */
diff --git a/usr/src/usr.bin/f77/libI77/err.c b/usr/src/usr.bin/f77/libI77/err.c

index f3fb509..61c83cf 100644 (file)
--- a/usr/src/usr.bin/f77/libI77/err.c
+++ b/usr/src/usr.bin/f77/libI77/err.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)err.c       5.3     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)err.c      5.4 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * fatal(): i/o error routine
   * flush_(): flush file buffer
  /*
   * fatal(): i/o error routine
   * flush_(): flush file buffer
diff --git a/usr/src/usr.bin/f77/libI77/f77_abort.c b/usr/src/usr.bin/f77/libI77/f77_abort.c

index f793472..54d6029 100644 (file)
--- a/usr/src/usr.bin/f77/libI77/f77_abort.c
+++ b/usr/src/usr.bin/f77/libI77/f77_abort.c
@@ -1,10 +1,15 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
- *
- *     @(#)f77_abort.c 5.2     %G%
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
+ * %sccs.include.proprietary.c%
+ */
+
+#ifndef lint
+static char sccsid[] = "@(#)f77_abort.c        5.3 (Berkeley) %G%";
+#endif /* not lint */
+
+/*
   *     all f77 aborts eventually call f77_abort.
   *     f77_abort cleans up open files and terminates with a dump if needed,
   *     with a message otherwise.       
   *     all f77 aborts eventually call f77_abort.
   *     f77_abort cleans up open files and terminates with a dump if needed,
   *     with a message otherwise.       
diff --git a/usr/src/usr.bin/f77/libI77/f_errlist.c b/usr/src/usr.bin/f77/libI77/f_errlist.c

index 1b0a3dd..8d5d3a0 100644 (file)
--- a/usr/src/usr.bin/f77/libI77/f_errlist.c
+++ b/usr/src/usr.bin/f77/libI77/f_errlist.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)f_errlist.c 5.2     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)f_errlist.c        5.3 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * f77 I/O error messages
   */
  /*
   * f77 I/O error messages
   */
diff --git a/usr/src/usr.bin/f77/libI77/f_errno.h b/usr/src/usr.bin/f77/libI77/f_errno.h

index 6fa5f23..3dc75ee 100644 (file)
--- a/usr/src/usr.bin/f77/libI77/f_errno.h
+++ b/usr/src/usr.bin/f77/libI77/f_errno.h
@@ -1,9 +1,10 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.proprietary.c%
   *
   *
- *     @(#)f_errno.h   5.2 (Berkeley) %G%
+ *     @(#)f_errno.h   5.3 (Berkeley) %G%
   */
  
  /*
   */
  
  /*
diff --git a/usr/src/usr.bin/f77/libI77/fio.h b/usr/src/usr.bin/f77/libI77/fio.h

index 98d3288..fdbcee2 100644 (file)
--- a/usr/src/usr.bin/f77/libI77/fio.h
+++ b/usr/src/usr.bin/f77/libI77/fio.h
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)fio.h       5.1 (Berkeley) %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)fio.h      5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * f77 file i/o common definitions
   */
  /*
   * f77 file i/o common definitions
   */
diff --git a/usr/src/usr.bin/f77/libI77/fiodefs.h b/usr/src/usr.bin/f77/libI77/fiodefs.h

index fcda0f3..8f060ee 100644 (file)
--- a/usr/src/usr.bin/f77/libI77/fiodefs.h
+++ b/usr/src/usr.bin/f77/libI77/fiodefs.h
@@ -1,9 +1,10 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.proprietary.c%
   *
   *
- *     @(#)fiodefs.h   5.2 (Berkeley) %G%
+ *     @(#)fiodefs.h   5.3 (Berkeley) %G%
   */
  
  /*
   */
  
  /*
diff --git a/usr/src/usr.bin/f77/libI77/fmt.c b/usr/src/usr.bin/f77/libI77/fmt.c

index ec5e522..96224e5 100644 (file)
--- a/usr/src/usr.bin/f77/libI77/fmt.c
+++ b/usr/src/usr.bin/f77/libI77/fmt.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)fmt.c       5.3     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)fmt.c      5.4 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * fortran format parser
   */
  /*
   * fortran format parser
   */
diff --git a/usr/src/usr.bin/f77/libI77/fmtlib.c b/usr/src/usr.bin/f77/libI77/fmtlib.c

index 477c376..40b46e3 100644 (file)
--- a/usr/src/usr.bin/f77/libI77/fmtlib.c
+++ b/usr/src/usr.bin/f77/libI77/fmtlib.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)fmtlib.c    5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)fmtlib.c   5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * integer to ascii conversion
   *
  /*
   * integer to ascii conversion
   *
diff --git a/usr/src/usr.bin/f77/libI77/format.h b/usr/src/usr.bin/f77/libI77/format.h

index 1348dbe..bb5541b 100644 (file)
--- a/usr/src/usr.bin/f77/libI77/format.h
+++ b/usr/src/usr.bin/f77/libI77/format.h
@@ -1,9 +1,10 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.proprietary.c%
   *
   *
- *     @(#)format.h    5.1 (Berkeley) %G%
+ *     @(#)format.h    5.2 (Berkeley) %G%
   */
  
  /*
   */
  
  /*
diff --git a/usr/src/usr.bin/f77/libI77/inquire.c b/usr/src/usr.bin/f77/libI77/inquire.c

index 0b0d826..0c74584 100644 (file)
--- a/usr/src/usr.bin/f77/libI77/inquire.c
+++ b/usr/src/usr.bin/f77/libI77/inquire.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)inquire.c   5.2     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)inquire.c  5.3 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * inquire.c - f77 i/o inquire statement routine
   */
  /*
   * inquire.c - f77 i/o inquire statement routine
   */
diff --git a/usr/src/usr.bin/f77/libI77/libI66.c b/usr/src/usr.bin/f77/libI77/libI66.c

index 8a8af0e..1be7888 100644 (file)
--- a/usr/src/usr.bin/f77/libI77/libI66.c
+++ b/usr/src/usr.bin/f77/libI77/libI66.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)libI66.c    5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)libI66.c   5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * set flag to initialize fortran-66 mods
   *
  /*
   * set flag to initialize fortran-66 mods
   *
diff --git a/usr/src/usr.bin/f77/libI77/lio.h b/usr/src/usr.bin/f77/libI77/lio.h

index 10652df..2cb4587 100644 (file)
--- a/usr/src/usr.bin/f77/libI77/lio.h
+++ b/usr/src/usr.bin/f77/libI77/lio.h
@@ -1,9 +1,10 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.proprietary.c%
   *
   *
- *     @(#)lio.h       5.3 (Berkeley) %G%
+ *     @(#)lio.h       5.4 (Berkeley) %G%
   */
  
  /*
   */
  
  /*
diff --git a/usr/src/usr.bin/f77/libI77/lread.c b/usr/src/usr.bin/f77/libI77/lread.c

index 50ee840..c935274 100644 (file)
--- a/usr/src/usr.bin/f77/libI77/lread.c
+++ b/usr/src/usr.bin/f77/libI77/lread.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)lread.c     5.2     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)lread.c    5.3 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * list directed read
   */
  /*
   * list directed read
   */
diff --git a/usr/src/usr.bin/f77/libI77/lwrite.c b/usr/src/usr.bin/f77/libI77/lwrite.c

index e56c27b..cae18e1 100644 (file)
--- a/usr/src/usr.bin/f77/libI77/lwrite.c
+++ b/usr/src/usr.bin/f77/libI77/lwrite.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)lwrite.c    5.3     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)lwrite.c   5.4 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * list directed write
   */
  /*
   * list directed write
   */
diff --git a/usr/src/usr.bin/f77/libI77/mkindx.c b/usr/src/usr.bin/f77/libI77/mkindx.c

index 207f8a9..c70a14a 100644 (file)
--- a/usr/src/usr.bin/f77/libI77/mkindx.c
+++ b/usr/src/usr.bin/f77/libI77/mkindx.c
@@ -1,9 +1,20 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+char copyright[] =
+"@(#) Copyright (c) 1980 The Regents of the University of California.\n\
+ All rights reserved.\n";
+#endif /* not lint */
+
+#ifndef lint
+static char sccsid[] = "@(#)mkindx.c   5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   *  mkindx.c - utility to format a nice index to source files, etc.
   *
  /*
   *  mkindx.c - utility to format a nice index to source files, etc.
   *
@@ -12,7 +23,7 @@
  
  # include      <stdio.h>
  
  
  # include      <stdio.h>
  
-char id_mkindx[] = "@(#)mkindx.c       5.1 %G%";
+char id_mkindx[] = "@(#)mkindx.c       5.2 %G%";
  
  char list[10000] = "pwd >>index; echo \" \" >>index; ls -l ";
  char *apndx = ">>index";
  
  char list[10000] = "pwd >>index; echo \" \" >>index; ls -l ";
  char *apndx = ">>index";
diff --git a/usr/src/usr.bin/f77/libI77/mkvers.c b/usr/src/usr.bin/f77/libI77/mkvers.c

index 9e424e5..97d8546 100644 (file)
--- a/usr/src/usr.bin/f77/libI77/mkvers.c
+++ b/usr/src/usr.bin/f77/libI77/mkvers.c
@@ -1,10 +1,22 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.proprietary.c%
   */
  
   */
  
-char id_mkvers[] = "@(#)mkvers.c       5.1 %G%";
+#ifndef lint
+char copyright[] =
+"@(#) Copyright (c) 1980 The Regents of the University of California.\n\
+ All rights reserved.\n";
+#endif /* not lint */
+
+#ifndef lint
+static char sccsid[] = "@(#)mkvers.c   5.2 (Berkeley) %G%";
+#endif /* not lint */
+
+char id_mkvers[] = "@(#)mkvers.c       5.2 %G%";
+
  /*
   * extract sccs id strings from source files
   * first arg is lib name.
  /*
   * extract sccs id strings from source files
   * first arg is lib name.
diff --git a/usr/src/usr.bin/f77/libI77/nmlio.h b/usr/src/usr.bin/f77/libI77/nmlio.h

index e65bce2..f2ebaef 100644 (file)
--- a/usr/src/usr.bin/f77/libI77/nmlio.h
+++ b/usr/src/usr.bin/f77/libI77/nmlio.h
@@ -1,9 +1,10 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)nmlio.h     5.1     %G%
+ * %sccs.include.proprietary.c%
+ *
+ *     @(#)nmlio.h     5.2 (Berkeley) %G%
   */
  
  /*     header for namelist I/O */
   */
  
  /*     header for namelist I/O */
diff --git a/usr/src/usr.bin/f77/libI77/open.c b/usr/src/usr.bin/f77/libI77/open.c

index 319b89d..4a9a1ec 100644 (file)
--- a/usr/src/usr.bin/f77/libI77/open.c
+++ b/usr/src/usr.bin/f77/libI77/open.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)open.c      5.3     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)open.c     5.4 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * open.c  -  f77 file open and I/O library initialization routines
   */
  /*
   * open.c  -  f77 file open and I/O library initialization routines
   */
diff --git a/usr/src/usr.bin/f77/libI77/rdfe.c b/usr/src/usr.bin/f77/libI77/rdfe.c

index 00fe21c..44eab11 100644 (file)
--- a/usr/src/usr.bin/f77/libI77/rdfe.c
+++ b/usr/src/usr.bin/f77/libI77/rdfe.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)rdfe.c      5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)rdfe.c     5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * read direct formatted external i/o
   */
  /*
   * read direct formatted external i/o
   */
diff --git a/usr/src/usr.bin/f77/libI77/rdfmt.c b/usr/src/usr.bin/f77/libI77/rdfmt.c

index 4f79b75..367c5b7 100644 (file)
--- a/usr/src/usr.bin/f77/libI77/rdfmt.c
+++ b/usr/src/usr.bin/f77/libI77/rdfmt.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)rdfmt.c     5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)rdfmt.c    5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * formatted read routines
   */
  /*
   * formatted read routines
   */
diff --git a/usr/src/usr.bin/f77/libI77/rewind.c b/usr/src/usr.bin/f77/libI77/rewind.c

index fd01db0..6a8a113 100644 (file)
--- a/usr/src/usr.bin/f77/libI77/rewind.c
+++ b/usr/src/usr.bin/f77/libI77/rewind.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)rewind.c    5.2     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)rewind.c   5.3 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * rewind.c  -  f77 file rewind
   */
  /*
   * rewind.c  -  f77 file rewind
   */
diff --git a/usr/src/usr.bin/f77/libI77/rfi.c b/usr/src/usr.bin/f77/libI77/rfi.c

index b31bd9e..79af962 100644 (file)
--- a/usr/src/usr.bin/f77/libI77/rfi.c
+++ b/usr/src/usr.bin/f77/libI77/rfi.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)rfi.c       5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)rfi.c      5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * internal (character array) i/o: read formatted, sequential and direct
   */
  /*
   * internal (character array) i/o: read formatted, sequential and direct
   */
diff --git a/usr/src/usr.bin/f77/libI77/rsfe.c b/usr/src/usr.bin/f77/libI77/rsfe.c

index 9eea165..2c37d22 100644 (file)
--- a/usr/src/usr.bin/f77/libI77/rsfe.c
+++ b/usr/src/usr.bin/f77/libI77/rsfe.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)rsfe.c      5.2     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)rsfe.c     5.3 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * read sequential formatted external
   */
  /*
   * read sequential formatted external
   */
diff --git a/usr/src/usr.bin/f77/libI77/rsli.c b/usr/src/usr.bin/f77/libI77/rsli.c

index 216c976..c93ce84 100644 (file)
--- a/usr/src/usr.bin/f77/libI77/rsli.c
+++ b/usr/src/usr.bin/f77/libI77/rsli.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)rsli.c      5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)rsli.c     5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * internal (character array) i/o: read sequential list
   */
  /*
   * internal (character array) i/o: read sequential list
   */
diff --git a/usr/src/usr.bin/f77/libI77/rsnmle.c b/usr/src/usr.bin/f77/libI77/rsnmle.c

index 8141032..91dbfa9 100644 (file)
--- a/usr/src/usr.bin/f77/libI77/rsnmle.c
+++ b/usr/src/usr.bin/f77/libI77/rsnmle.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)rsnmle.c    5.4     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)rsnmle.c   5.5 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   *             name-list read
   */
  /*
   *             name-list read
   */
diff --git a/usr/src/usr.bin/f77/libI77/sue.c b/usr/src/usr.bin/f77/libI77/sue.c

index b33bda9..aaf6d35 100644 (file)
--- a/usr/src/usr.bin/f77/libI77/sue.c
+++ b/usr/src/usr.bin/f77/libI77/sue.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)sue.c       5.2     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)sue.c      5.3 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * sequential unformatted external read/write routines
   */
  /*
   * sequential unformatted external read/write routines
   */
diff --git a/usr/src/usr.bin/f77/libI77/util.c b/usr/src/usr.bin/f77/libI77/util.c

index d2d7b6f..49a22c3 100644 (file)
--- a/usr/src/usr.bin/f77/libI77/util.c
+++ b/usr/src/usr.bin/f77/libI77/util.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)util.c      5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)util.c     5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * utility routines
   */
  /*
   * utility routines
   */
diff --git a/usr/src/usr.bin/f77/libI77/wdfe.c b/usr/src/usr.bin/f77/libI77/wdfe.c

index 72a054b..d094268 100644 (file)
--- a/usr/src/usr.bin/f77/libI77/wdfe.c
+++ b/usr/src/usr.bin/f77/libI77/wdfe.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)wdfe.c      5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)wdfe.c     5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * write direct formatted external i/o
   */
  /*
   * write direct formatted external i/o
   */
diff --git a/usr/src/usr.bin/f77/libI77/wfi.c b/usr/src/usr.bin/f77/libI77/wfi.c

index 83c94a8..2b9f2e5 100644 (file)
--- a/usr/src/usr.bin/f77/libI77/wfi.c
+++ b/usr/src/usr.bin/f77/libI77/wfi.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)wfi.c       5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)wfi.c      5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * internal (character array) i/o: write formatted, sequential and direct
   */
  /*
   * internal (character array) i/o: write formatted, sequential and direct
   */
diff --git a/usr/src/usr.bin/f77/libI77/wrtfmt.c b/usr/src/usr.bin/f77/libI77/wrtfmt.c

index db67438..c06d737 100644 (file)
--- a/usr/src/usr.bin/f77/libI77/wrtfmt.c
+++ b/usr/src/usr.bin/f77/libI77/wrtfmt.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)wrtfmt.c    5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)wrtfmt.c   5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * formatted write routines
   */
  /*
   * formatted write routines
   */
diff --git a/usr/src/usr.bin/f77/libI77/wsfe.c b/usr/src/usr.bin/f77/libI77/wsfe.c

index 9095bdd..29aef80 100644 (file)
--- a/usr/src/usr.bin/f77/libI77/wsfe.c
+++ b/usr/src/usr.bin/f77/libI77/wsfe.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)wsfe.c      5.3     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)wsfe.c     5.4 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * write sequential formatted external
   */
  /*
   * write sequential formatted external
   */
diff --git a/usr/src/usr.bin/f77/libI77/wsli.c b/usr/src/usr.bin/f77/libI77/wsli.c

index c431691..e712272 100644 (file)
--- a/usr/src/usr.bin/f77/libI77/wsli.c
+++ b/usr/src/usr.bin/f77/libI77/wsli.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)wsli.c      5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)wsli.c     5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * internal (character array) i/o: write sequential list
   */
  /*
   * internal (character array) i/o: write sequential list
   */
diff --git a/usr/src/usr.bin/f77/libI77/wsnmle.c b/usr/src/usr.bin/f77/libI77/wsnmle.c

index e09260d..633eb24 100644 (file)
--- a/usr/src/usr.bin/f77/libI77/wsnmle.c
+++ b/usr/src/usr.bin/f77/libI77/wsnmle.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)wsnmle.c    5.3     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)wsnmle.c   5.4 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   *             name-list write
   */
  /*
   *             name-list write
   */
diff --git a/usr/src/usr.bin/f77/libU77/access_.c b/usr/src/usr.bin/f77/libU77/access_.c

index 0db158d..5faa789 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/access_.c
+++ b/usr/src/usr.bin/f77/libU77/access_.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)access_.c   5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)access_.c  5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * determine accessability of a file
   *
  /*
   * determine accessability of a file
   *
diff --git a/usr/src/usr.bin/f77/libU77/alarm_.c b/usr/src/usr.bin/f77/libU77/alarm_.c

index ff12685..9319e63 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/alarm_.c
+++ b/usr/src/usr.bin/f77/libU77/alarm_.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)alarm_.c    5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)alarm_.c   5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * set an alarm time, arrange for user specified action, and return.
   *
  /*
   * set an alarm time, arrange for user specified action, and return.
   *
diff --git a/usr/src/usr.bin/f77/libU77/chdir_.c b/usr/src/usr.bin/f77/libU77/chdir_.c

index ef769d0..b38a842 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/chdir_.c
+++ b/usr/src/usr.bin/f77/libU77/chdir_.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)chdir_.c    5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)chdir_.c   5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * change default directory
   *
  /*
   * change default directory
   *
diff --git a/usr/src/usr.bin/f77/libU77/chmod_.c b/usr/src/usr.bin/f77/libU77/chmod_.c

index e8774b2..bb5b16f 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/chmod_.c
+++ b/usr/src/usr.bin/f77/libU77/chmod_.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)chmod_.c    5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)chmod_.c   5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * chmod - change file mode bits
   *
  /*
   * chmod - change file mode bits
   *
diff --git a/usr/src/usr.bin/f77/libU77/ctime_.c b/usr/src/usr.bin/f77/libU77/ctime_.c

index d005cf0..7b1aadd 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/ctime_.c
+++ b/usr/src/usr.bin/f77/libU77/ctime_.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)ctime_.c    5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)ctime_.c   5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * convert system time to ascii string
   *
  /*
   * convert system time to ascii string
   *
diff --git a/usr/src/usr.bin/f77/libU77/dtime_.c b/usr/src/usr.bin/f77/libU77/dtime_.c

index 818f927..2ff6f1f 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/dtime_.c
+++ b/usr/src/usr.bin/f77/libU77/dtime_.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)dtime_.c    5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)dtime_.c   5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * Returns the delta time since the last call to dtime.
   *
  /*
   * Returns the delta time since the last call to dtime.
   *
diff --git a/usr/src/usr.bin/f77/libU77/etime_.c b/usr/src/usr.bin/f77/libU77/etime_.c

index 09d7460..c2d48ba 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/etime_.c
+++ b/usr/src/usr.bin/f77/libU77/etime_.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)etime_.c    5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)etime_.c   5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * Return the elapsed execution time for this process.
   *
  /*
   * Return the elapsed execution time for this process.
   *
diff --git a/usr/src/usr.bin/f77/libU77/f77lid_.c b/usr/src/usr.bin/f77/libU77/f77lid_.c

index 803465f..2eadfb9 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/f77lid_.c
+++ b/usr/src/usr.bin/f77/libU77/f77lid_.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)f77lid_.c   5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)f77lid_.c  5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * f77lid_ - the ID strings for f77 libraries.
   *
  /*
   * f77lid_ - the ID strings for f77 libraries.
   *
diff --git a/usr/src/usr.bin/f77/libU77/fdate_.c b/usr/src/usr.bin/f77/libU77/fdate_.c

index f35ecc5..b3ce660 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/fdate_.c
+++ b/usr/src/usr.bin/f77/libU77/fdate_.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)fdate_.c    5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)fdate_.c   5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * Return date and time in an ASCII string.
   *
  /*
   * Return date and time in an ASCII string.
   *
diff --git a/usr/src/usr.bin/f77/libU77/fgetc_.c b/usr/src/usr.bin/f77/libU77/fgetc_.c

index dd007f3..a8cd67c 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/fgetc_.c
+++ b/usr/src/usr.bin/f77/libU77/fgetc_.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)fgetc_.c    5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)fgetc_.c   5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * get a character from a logical unit bypassing formatted I/O
   *
  /*
   * get a character from a logical unit bypassing formatted I/O
   *
diff --git a/usr/src/usr.bin/f77/libU77/fork_.c b/usr/src/usr.bin/f77/libU77/fork_.c

index 34b48c3..d3b12ad 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/fork_.c
+++ b/usr/src/usr.bin/f77/libU77/fork_.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)fork_.c     5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)fork_.c    5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * fork a copy of this process
   *
  /*
   * fork a copy of this process
   *
diff --git a/usr/src/usr.bin/f77/libU77/fputc_.c b/usr/src/usr.bin/f77/libU77/fputc_.c

index de82608..c65a65c 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/fputc_.c
+++ b/usr/src/usr.bin/f77/libU77/fputc_.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)fputc_.c    5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)fputc_.c   5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * write a character to a logical unit bypassing formatted I/O
   *
  /*
   * write a character to a logical unit bypassing formatted I/O
   *
diff --git a/usr/src/usr.bin/f77/libU77/fseek_.c b/usr/src/usr.bin/f77/libU77/fseek_.c

index 7e28675..d54b4c2 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/fseek_.c
+++ b/usr/src/usr.bin/f77/libU77/fseek_.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)fseek_.c    5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)fseek_.c   5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * position a file associated with a fortran logical unit
   *
  /*
   * position a file associated with a fortran logical unit
   *
diff --git a/usr/src/usr.bin/f77/libU77/fstat_.c b/usr/src/usr.bin/f77/libU77/fstat_.c

index 9070feb..e7b8946 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/fstat_.c
+++ b/usr/src/usr.bin/f77/libU77/fstat_.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)fstat_.c    5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)fstat_.c   5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * get file status
   *
  /*
   * get file status
   *
diff --git a/usr/src/usr.bin/f77/libU77/ftell_.c b/usr/src/usr.bin/f77/libU77/ftell_.c

index 805b26e..8f9faea 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/ftell_.c
+++ b/usr/src/usr.bin/f77/libU77/ftell_.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)ftell_.c    5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)ftell_.c   5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * return current file position
   *
  /*
   * return current file position
   *
diff --git a/usr/src/usr.bin/f77/libU77/gerror_.c b/usr/src/usr.bin/f77/libU77/gerror_.c

index 5bd2b6e..ee5f7d2 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/gerror_.c
+++ b/usr/src/usr.bin/f77/libU77/gerror_.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)gerror_.c   5.2     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)gerror_.c  5.3 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * Return a standard error message in a character string.
   *
  /*
   * Return a standard error message in a character string.
   *
diff --git a/usr/src/usr.bin/f77/libU77/getarg_.c b/usr/src/usr.bin/f77/libU77/getarg_.c

index b3a9c3e..d091028 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/getarg_.c
+++ b/usr/src/usr.bin/f77/libU77/getarg_.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)getarg_.c   5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)getarg_.c  5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * return a specified command line argument
   *
  /*
   * return a specified command line argument
   *
diff --git a/usr/src/usr.bin/f77/libU77/getc_.c b/usr/src/usr.bin/f77/libU77/getc_.c

index 1f26f82..2655c2d 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/getc_.c
+++ b/usr/src/usr.bin/f77/libU77/getc_.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)getc_.c     5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)getc_.c    5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * get a character from the standard input
   *
  /*
   * get a character from the standard input
   *
diff --git a/usr/src/usr.bin/f77/libU77/getcwd_.c b/usr/src/usr.bin/f77/libU77/getcwd_.c

index 8aa93d6..aa87600 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/getcwd_.c
+++ b/usr/src/usr.bin/f77/libU77/getcwd_.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)getcwd_.c   5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)getcwd_.c  5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * Get pathname of current working directory.
   *
  /*
   * Get pathname of current working directory.
   *
diff --git a/usr/src/usr.bin/f77/libU77/getenv_.c b/usr/src/usr.bin/f77/libU77/getenv_.c

index 173cb5b..23bb7ae 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/getenv_.c
+++ b/usr/src/usr.bin/f77/libU77/getenv_.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)getenv_.c   5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)getenv_.c  5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * return environment variables
   *
  /*
   * return environment variables
   *
diff --git a/usr/src/usr.bin/f77/libU77/getgid_.c b/usr/src/usr.bin/f77/libU77/getgid_.c

index 39872f1..b822635 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/getgid_.c
+++ b/usr/src/usr.bin/f77/libU77/getgid_.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)getgid_.c   5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)getgid_.c  5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * get group id
   *
  /*
   * get group id
   *
diff --git a/usr/src/usr.bin/f77/libU77/getlog_.c b/usr/src/usr.bin/f77/libU77/getlog_.c

index e5c4243..0eb4b01 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/getlog_.c
+++ b/usr/src/usr.bin/f77/libU77/getlog_.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)getlog_.c   5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)getlog_.c  5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * get login name of user
   *
  /*
   * get login name of user
   *
diff --git a/usr/src/usr.bin/f77/libU77/getpid_.c b/usr/src/usr.bin/f77/libU77/getpid_.c

index 15ee5a5..f5b4e80 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/getpid_.c
+++ b/usr/src/usr.bin/f77/libU77/getpid_.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)getpid_.c   5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)getpid_.c  5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * get process id
   *
  /*
   * get process id
   *
diff --git a/usr/src/usr.bin/f77/libU77/getuid_.c b/usr/src/usr.bin/f77/libU77/getuid_.c

index 792c7d4..f518eef 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/getuid_.c
+++ b/usr/src/usr.bin/f77/libU77/getuid_.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)getuid_.c   5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)getuid_.c  5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * get user id
   *
  /*
   * get user id
   *
diff --git a/usr/src/usr.bin/f77/libU77/gmtime_.c b/usr/src/usr.bin/f77/libU77/gmtime_.c

index dcefd65..15b634a 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/gmtime_.c
+++ b/usr/src/usr.bin/f77/libU77/gmtime_.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)gmtime_.c   5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)gmtime_.c  5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * return broken down time
   *
  /*
   * return broken down time
   *
diff --git a/usr/src/usr.bin/f77/libU77/hostnm_.c b/usr/src/usr.bin/f77/libU77/hostnm_.c

index 806f121..b486a1e 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/hostnm_.c
+++ b/usr/src/usr.bin/f77/libU77/hostnm_.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)hostnm_.c   5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)hostnm_.c  5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * hostnm - return this machines hostname
   *
  /*
   * hostnm - return this machines hostname
   *
diff --git a/usr/src/usr.bin/f77/libU77/iargc_.c b/usr/src/usr.bin/f77/libU77/iargc_.c

index 716fdab..1081470 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/iargc_.c
+++ b/usr/src/usr.bin/f77/libU77/iargc_.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)iargc_.c    5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)iargc_.c   5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * return the number of args on the command line following the command name
   *
  /*
   * return the number of args on the command line following the command name
   *
diff --git a/usr/src/usr.bin/f77/libU77/idate_.c b/usr/src/usr.bin/f77/libU77/idate_.c

index 9dd3dae..af3bf7d 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/idate_.c
+++ b/usr/src/usr.bin/f77/libU77/idate_.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)idate_.c    5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)idate_.c   5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * return date in numerical form
   *
  /*
   * return date in numerical form
   *
diff --git a/usr/src/usr.bin/f77/libU77/ierrno_.c b/usr/src/usr.bin/f77/libU77/ierrno_.c

index 7e78ba4..b5129a0 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/ierrno_.c
+++ b/usr/src/usr.bin/f77/libU77/ierrno_.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)ierrno_.c   5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)ierrno_.c  5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * return the current value of the system error register
   *
  /*
   * return the current value of the system error register
   *
diff --git a/usr/src/usr.bin/f77/libU77/ioinit.f b/usr/src/usr.bin/f77/libU77/ioinit.f

index ca4f3e2..328dce5 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/ioinit.f
+++ b/usr/src/usr.bin/f77/libU77/ioinit.f
@@ -1,11 +1,12 @@
  C
  C
-C Copyright (c) 1980 Regents of the University of California.
-C All rights reserved.  The Berkeley software License Agreement
-C specifies the terms and conditions for redistribution.
+C Copyright (c) 1980 The Regents of the University of California.
+C All rights reserved.
  C
  C
-C      @(#)ioinit.f    5.1 (Berkeley) %G%
+C %sccs.include.proprietary.f%
  C
  C
+C      @(#)ioinit.f    5.2 (Berkeley) %G%
  C
  C
+
  C ioinit - initialize the I/O system
  C
  C synopsis:
  C ioinit - initialize the I/O system
  C
  C synopsis:
diff --git a/usr/src/usr.bin/f77/libU77/isatty_.c b/usr/src/usr.bin/f77/libU77/isatty_.c

index 30a895e..034413b 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/isatty_.c
+++ b/usr/src/usr.bin/f77/libU77/isatty_.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)isatty_.c   5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)isatty_.c  5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * determine if stream is associated with a tty (async port)
   *
  /*
   * determine if stream is associated with a tty (async port)
   *
diff --git a/usr/src/usr.bin/f77/libU77/itime_.c b/usr/src/usr.bin/f77/libU77/itime_.c

index f901c3d..357248a 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/itime_.c
+++ b/usr/src/usr.bin/f77/libU77/itime_.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)itime_.c    5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)itime_.c   5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * return the current time in numerical form
   *
  /*
   * return the current time in numerical form
   *
diff --git a/usr/src/usr.bin/f77/libU77/kill_.c b/usr/src/usr.bin/f77/libU77/kill_.c

index 6dbde45..eadda9b 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/kill_.c
+++ b/usr/src/usr.bin/f77/libU77/kill_.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)kill_.c     5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)kill_.c    5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * send a signal to a process
   *
  /*
   * send a signal to a process
   *
diff --git a/usr/src/usr.bin/f77/libU77/link_.c b/usr/src/usr.bin/f77/libU77/link_.c

index d826d55..600aed0 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/link_.c
+++ b/usr/src/usr.bin/f77/libU77/link_.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)link_.c     5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)link_.c    5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * make a link to an existing file
   *
  /*
   * make a link to an existing file
   *
diff --git a/usr/src/usr.bin/f77/libU77/loc_.c b/usr/src/usr.bin/f77/libU77/loc_.c

index eb6cce8..50f9d68 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/loc_.c
+++ b/usr/src/usr.bin/f77/libU77/loc_.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)loc_.c      5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)loc_.c     5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * Return the address of the argument.
   *
  /*
   * Return the address of the argument.
   *
diff --git a/usr/src/usr.bin/f77/libU77/lstat_.c b/usr/src/usr.bin/f77/libU77/lstat_.c

index 4d3a979..5a85ad5 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/lstat_.c
+++ b/usr/src/usr.bin/f77/libU77/lstat_.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)lstat_.c    5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)lstat_.c   5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * get file status
   *
  /*
   * get file status
   *
diff --git a/usr/src/usr.bin/f77/libU77/ltime_.c b/usr/src/usr.bin/f77/libU77/ltime_.c

index 9693f63..c5fd92b 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/ltime_.c
+++ b/usr/src/usr.bin/f77/libU77/ltime_.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)ltime_.c    5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)ltime_.c   5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * return broken down time
   *
  /*
   * return broken down time
   *
diff --git a/usr/src/usr.bin/f77/libU77/malloc_.c b/usr/src/usr.bin/f77/libU77/malloc_.c

index 29232e9..8149191 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/malloc_.c
+++ b/usr/src/usr.bin/f77/libU77/malloc_.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)malloc_.c   5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)malloc_.c  5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   *     allows f77 programs to dynamicly allocate space
   *     three routines:
  /*
   *     allows f77 programs to dynamicly allocate space
   *     three routines:
diff --git a/usr/src/usr.bin/f77/libU77/mkindx.c b/usr/src/usr.bin/f77/libU77/mkindx.c

index 207f8a9..c70a14a 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/mkindx.c
+++ b/usr/src/usr.bin/f77/libU77/mkindx.c
@@ -1,9 +1,20 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+char copyright[] =
+"@(#) Copyright (c) 1980 The Regents of the University of California.\n\
+ All rights reserved.\n";
+#endif /* not lint */
+
+#ifndef lint
+static char sccsid[] = "@(#)mkindx.c   5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   *  mkindx.c - utility to format a nice index to source files, etc.
   *
  /*
   *  mkindx.c - utility to format a nice index to source files, etc.
   *
@@ -12,7 +23,7 @@
  
  # include      <stdio.h>
  
  
  # include      <stdio.h>
  
-char id_mkindx[] = "@(#)mkindx.c       5.1 %G%";
+char id_mkindx[] = "@(#)mkindx.c       5.2 %G%";
  
  char list[10000] = "pwd >>index; echo \" \" >>index; ls -l ";
  char *apndx = ">>index";
  
  char list[10000] = "pwd >>index; echo \" \" >>index; ls -l ";
  char *apndx = ">>index";
diff --git a/usr/src/usr.bin/f77/libU77/mkvers.c b/usr/src/usr.bin/f77/libU77/mkvers.c

index 9e424e5..97d8546 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/mkvers.c
+++ b/usr/src/usr.bin/f77/libU77/mkvers.c
@@ -1,10 +1,22 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.proprietary.c%
   */
  
   */
  
-char id_mkvers[] = "@(#)mkvers.c       5.1 %G%";
+#ifndef lint
+char copyright[] =
+"@(#) Copyright (c) 1980 The Regents of the University of California.\n\
+ All rights reserved.\n";
+#endif /* not lint */
+
+#ifndef lint
+static char sccsid[] = "@(#)mkvers.c   5.2 (Berkeley) %G%";
+#endif /* not lint */
+
+char id_mkvers[] = "@(#)mkvers.c       5.2 %G%";
+
  /*
   * extract sccs id strings from source files
   * first arg is lib name.
  /*
   * extract sccs id strings from source files
   * first arg is lib name.
diff --git a/usr/src/usr.bin/f77/libU77/perror_.c b/usr/src/usr.bin/f77/libU77/perror_.c

index 47292b7..134c5b8 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/perror_.c
+++ b/usr/src/usr.bin/f77/libU77/perror_.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)perror_.c   5.2     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)perror_.c  5.3 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * write a standard error message to the standard error output
   *
  /*
   * write a standard error message to the standard error output
   *
diff --git a/usr/src/usr.bin/f77/libU77/putc_.c b/usr/src/usr.bin/f77/libU77/putc_.c

index a63d21f..824e273 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/putc_.c
+++ b/usr/src/usr.bin/f77/libU77/putc_.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)putc_.c     5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)putc_.c    5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * write a character to the standard output
   *
  /*
   * write a character to the standard output
   *
diff --git a/usr/src/usr.bin/f77/libU77/qsort_.c b/usr/src/usr.bin/f77/libU77/qsort_.c

index 2bc5fe0..23cd2d5 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/qsort_.c
+++ b/usr/src/usr.bin/f77/libU77/qsort_.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)qsort_.c    5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)qsort_.c   5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * quick sort interface
   *
  /*
   * quick sort interface
   *
diff --git a/usr/src/usr.bin/f77/libU77/rename_.c b/usr/src/usr.bin/f77/libU77/rename_.c

index b486cc3..281777d 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/rename_.c
+++ b/usr/src/usr.bin/f77/libU77/rename_.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)rename_.c   5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)rename_.c  5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * rename a file atomically
   *
  /*
   * rename a file atomically
   *
diff --git a/usr/src/usr.bin/f77/libU77/sleep_.c b/usr/src/usr.bin/f77/libU77/sleep_.c

index 8546867..82507c3 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/sleep_.c
+++ b/usr/src/usr.bin/f77/libU77/sleep_.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)sleep_.c    5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)sleep_.c   5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * sleep for awhile
   *
  /*
   * sleep for awhile
   *
diff --git a/usr/src/usr.bin/f77/libU77/stat_.c b/usr/src/usr.bin/f77/libU77/stat_.c

index 3d63957..42449ed 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/stat_.c
+++ b/usr/src/usr.bin/f77/libU77/stat_.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)stat_.c     5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)stat_.c    5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * get file status
   *
  /*
   * get file status
   *
diff --git a/usr/src/usr.bin/f77/libU77/symlnk_.c b/usr/src/usr.bin/f77/libU77/symlnk_.c

index c359f7f..71f3c15 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/symlnk_.c
+++ b/usr/src/usr.bin/f77/libU77/symlnk_.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)symlnk_.c   5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)symlnk_.c  5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * make a symbolic link to a file
   *
  /*
   * make a symbolic link to a file
   *
diff --git a/usr/src/usr.bin/f77/libU77/system_.c b/usr/src/usr.bin/f77/libU77/system_.c

index 38563e7..dbbc0ee 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/system_.c
+++ b/usr/src/usr.bin/f77/libU77/system_.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)system_.c   5.3     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)system_.c  5.4 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * execute a unix command
   *
  /*
   * execute a unix command
   *
diff --git a/usr/src/usr.bin/f77/libU77/tapeio.c b/usr/src/usr.bin/f77/libU77/tapeio.c

index 5c72ce6..e0ca1bb 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/tapeio.c
+++ b/usr/src/usr.bin/f77/libU77/tapeio.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)tapeio.c    5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)tapeio.c   5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * tapeio - tape device specific I/O routines
   *
  /*
   * tapeio - tape device specific I/O routines
   *
diff --git a/usr/src/usr.bin/f77/libU77/test/actst.f b/usr/src/usr.bin/f77/libU77/test/actst.f

index a09d44f..550ffda 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/test/actst.f
+++ b/usr/src/usr.bin/f77/libU77/test/actst.f
@@ -1,3 +1,12 @@
+C
+C Copyright (c) 1980 The Regents of the University of California.
+C All rights reserved.
+C
+C %sccs.include.proprietary.f%
+C
+C      @(#)actst.f     5.2 (Berkeley) %G%
+C
+
         integer access
         write(*,*) "exist?", access("actst.f", " ")
         write(*,*) "execute?", access("actst.f", "x")
         integer access
         write(*,*) "exist?", access("actst.f", " ")
         write(*,*) "execute?", access("actst.f", "x")
diff --git a/usr/src/usr.bin/f77/libU77/test/argtst.f b/usr/src/usr.bin/f77/libU77/test/argtst.f

index cec7e38..821e3a1 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/test/argtst.f
+++ b/usr/src/usr.bin/f77/libU77/test/argtst.f
@@ -1,3 +1,12 @@
+C
+C Copyright (c) 1980 The Regents of the University of California.
+C All rights reserved.
+C
+C %sccs.include.proprietary.f%
+C
+C      @(#)argtst.f    5.2 (Berkeley) %G%
+C
+
         character*16 arg, env
         n = iargc()
         call getarg(0, arg)
         character*16 arg, env
         n = iargc()
         call getarg(0, arg)
diff --git a/usr/src/usr.bin/f77/libU77/test/bitst.f b/usr/src/usr.bin/f77/libU77/test/bitst.f

index 1c042e4..f43cf42 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/test/bitst.f
+++ b/usr/src/usr.bin/f77/libU77/test/bitst.f
@@ -1,3 +1,12 @@
+C
+C Copyright (c) 1980 The Regents of the University of California.
+C All rights reserved.
+C
+C %sccs.include.proprietary.f%
+C
+C      @(#)bitst.f     5.2 (Berkeley) %G%
+C
+
         logical bit
         i = 0
         call bis(30, i)
         logical bit
         i = 0
         call bis(30, i)
diff --git a/usr/src/usr.bin/f77/libU77/test/chdtst.f b/usr/src/usr.bin/f77/libU77/test/chdtst.f

index 0b719f5..a3a8867 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/test/chdtst.f
+++ b/usr/src/usr.bin/f77/libU77/test/chdtst.f
@@ -1,3 +1,12 @@
+C
+C Copyright (c) 1980 The Regents of the University of California.
+C All rights reserved.
+C
+C %sccs.include.proprietary.f%
+C
+C      @(#)chdtst.f    5.2 (Berkeley) %G%
+C
+
         integer chdir, unlink, access, ier(8)
         write(*,*) "moving to /tmp"
         ier(1) = chdir("/tmp")
         integer chdir, unlink, access, ier(8)
         write(*,*) "moving to /tmp"
         ier(1) = chdir("/tmp")
diff --git a/usr/src/usr.bin/f77/libU77/test/datst.f b/usr/src/usr.bin/f77/libU77/test/datst.f

index 406084b..bec978f 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/test/datst.f
+++ b/usr/src/usr.bin/f77/libU77/test/datst.f
@@ -1,3 +1,12 @@
+C
+C Copyright (c) 1980 The Regents of the University of California.
+C All rights reserved.
+C
+C %sccs.include.proprietary.f%
+C
+C      @(#)datst.f     5.2 (Berkeley) %G%
+C
+
         character*24 fdate
         integer id(3), it(3)
         write(*,*) fdate()
         character*24 fdate
         integer id(3), it(3)
         write(*,*) fdate()
diff --git a/usr/src/usr.bin/f77/libU77/test/ertst.f b/usr/src/usr.bin/f77/libU77/test/ertst.f

index 1505a88..8018dd7 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/test/ertst.f
+++ b/usr/src/usr.bin/f77/libU77/test/ertst.f
@@ -1,3 +1,12 @@
+C
+C Copyright (c) 1980 The Regents of the University of California.
+C All rights reserved.
+C
+C %sccs.include.proprietary.f%
+C
+C      @(#)ertst.f     5.2 (Berkeley) %G%
+C
+
         character*39 errno
         character*32 gerror
         external gerror
         character*39 errno
         character*32 gerror
         external gerror
diff --git a/usr/src/usr.bin/f77/libU77/test/fktst.f b/usr/src/usr.bin/f77/libU77/test/fktst.f

index 56e36db..f522668 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/test/fktst.f
+++ b/usr/src/usr.bin/f77/libU77/test/fktst.f
@@ -1,3 +1,12 @@
+C
+C Copyright (c) 1980 The Regents of the University of California.
+C All rights reserved.
+C
+C %sccs.include.proprietary.f%
+C
+C      @(#)fktst.f     5.2 (Berkeley) %G%
+C
+
         common/sig/whoami
         character*6 whoami
         integer fork, getpid, wait, tick
         common/sig/whoami
         character*6 whoami
         integer fork, getpid, wait, tick
diff --git a/usr/src/usr.bin/f77/libU77/test/flid.f b/usr/src/usr.bin/f77/libU77/test/flid.f

index 8e77d75..7630471 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/test/flid.f
+++ b/usr/src/usr.bin/f77/libU77/test/flid.f
@@ -1,3 +1,12 @@
+C
+C Copyright (c) 1980 The Regents of the University of California.
+C All rights reserved.
+C
+C %sccs.include.proprietary.f%
+C
+C      @(#)flid.f      5.2 (Berkeley) %G%
+C
+
         program flid
         external f77lid
         end
         program flid
         external f77lid
         end
diff --git a/usr/src/usr.bin/f77/libU77/test/gpctst.f b/usr/src/usr.bin/f77/libU77/test/gpctst.f

index 0c690af..d4d7cf0 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/test/gpctst.f
+++ b/usr/src/usr.bin/f77/libU77/test/gpctst.f
@@ -1,3 +1,12 @@
+C
+C Copyright (c) 1980 The Regents of the University of California.
+C All rights reserved.
+C
+C %sccs.include.proprietary.f%
+C
+C      @(#)gpctst.f    5.2 (Berkeley) %G%
+C
+
         integer getc, putc, fgetc, fputc, oer
         character c
         open(1,status='s')
         integer getc, putc, fgetc, fputc, oer
         character c
         open(1,status='s')
diff --git a/usr/src/usr.bin/f77/libU77/test/gwdtst.f b/usr/src/usr.bin/f77/libU77/test/gwdtst.f

index 7c7291c..0fb9137 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/test/gwdtst.f
+++ b/usr/src/usr.bin/f77/libU77/test/gwdtst.f
@@ -1,3 +1,12 @@
+C
+C Copyright (c) 1980 The Regents of the University of California.
+C All rights reserved.
+C
+C %sccs.include.proprietary.f%
+C
+C      @(#)gwdtst.f    5.2 (Berkeley) %G%
+C
+
         character*50 path
         integer getcwd, chdir
  
         character*50 path
         integer getcwd, chdir
  
diff --git a/usr/src/usr.bin/f77/libU77/test/idtst.f b/usr/src/usr.bin/f77/libU77/test/idtst.f

index 91d2275..6a0519f 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/test/idtst.f
+++ b/usr/src/usr.bin/f77/libU77/test/idtst.f
@@ -1,3 +1,12 @@
+C
+C Copyright (c) 1980 The Regents of the University of California.
+C All rights reserved.
+C
+C %sccs.include.proprietary.f%
+C
+C      @(#)idtst.f     5.2 (Berkeley) %G%
+C
+
         character*8 getlog
         integer getuid, getgid, getpid
         write(*,*) "I am", getlog(), "uid:", getuid(), "gid:", getgid()
         character*8 getlog
         integer getuid, getgid, getpid
         write(*,*) "I am", getlog(), "uid:", getuid(), "gid:", getgid()
diff --git a/usr/src/usr.bin/f77/libU77/test/loctst.f b/usr/src/usr.bin/f77/libU77/test/loctst.f

index 5ebea2a..ff95c8c 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/test/loctst.f
+++ b/usr/src/usr.bin/f77/libU77/test/loctst.f
@@ -1,3 +1,12 @@
+C
+C Copyright (c) 1980 The Regents of the University of California.
+C All rights reserved.
+C
+C %sccs.include.proprietary.f%
+C
+C      @(#)loctst.f    5.2 (Berkeley) %G%
+C
+
         common/blah/i,j,k
         double precision d
         equivalence (d,i),(x,i)
         common/blah/i,j,k
         double precision d
         equivalence (d,i),(x,i)
diff --git a/usr/src/usr.bin/f77/libU77/test/rngtst.f b/usr/src/usr.bin/f77/libU77/test/rngtst.f

index 4a13569..c6958ee 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/test/rngtst.f
+++ b/usr/src/usr.bin/f77/libU77/test/rngtst.f
@@ -1,3 +1,12 @@
+C
+C Copyright (c) 1980 The Regents of the University of California.
+C All rights reserved.
+C
+C %sccs.include.proprietary.f%
+C
+C      @(#)rngtst.f    5.2 (Berkeley) %G%
+C
+
         double precision dflmax, dflmin
         write(*,*) flmax(), flmin(), inmax(), dflmax(), dflmin()
         end
         double precision dflmax, dflmin
         write(*,*) flmax(), flmin(), inmax(), dflmax(), dflmin()
         end
diff --git a/usr/src/usr.bin/f77/libU77/test/rnmtst.f b/usr/src/usr.bin/f77/libU77/test/rnmtst.f

index 08b7d94..5e8dca6 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/test/rnmtst.f
+++ b/usr/src/usr.bin/f77/libU77/test/rnmtst.f
@@ -1,3 +1,12 @@
+C
+C Copyright (c) 1980 The Regents of the University of California.
+C All rights reserved.
+C
+C %sccs.include.proprietary.f%
+C
+C      @(#)rnmtst.f    5.2 (Berkeley) %G%
+C
+
         program rnmtst
         integer rename
         external rename
         program rnmtst
         integer rename
         external rename
diff --git a/usr/src/usr.bin/f77/libU77/test/seektst.f b/usr/src/usr.bin/f77/libU77/test/seektst.f

index 8490ff2..9f07c34 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/test/seektst.f
+++ b/usr/src/usr.bin/f77/libU77/test/seektst.f
@@ -1,3 +1,12 @@
+C
+C Copyright (c) 1980 The Regents of the University of California.
+C All rights reserved.
+C
+C %sccs.include.proprietary.f%
+C
+C      @(#)seektst.f   5.2 (Berkeley) %G%
+C
+
         character*20 word1, word2
         integer ftell, fseek
         open(1, file="/usr/dict/words")
         character*20 word1, word2
         integer ftell, fseek
         open(1, file="/usr/dict/words")
diff --git a/usr/src/usr.bin/f77/libU77/test/serrno_.c b/usr/src/usr.bin/f77/libU77/test/serrno_.c

index 1230f93..8e2f497 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/test/serrno_.c
+++ b/usr/src/usr.bin/f77/libU77/test/serrno_.c
@@ -1,3 +1,14 @@
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.proprietary.c%
+ */
+
+#ifndef lint
+static char sccsid[] = "@(#)serrno_.c  5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  extern int errno;
  serrno_(n)
  long *n;
  extern int errno;
  serrno_(n)
  long *n;
diff --git a/usr/src/usr.bin/f77/libU77/test/sigfpe.f b/usr/src/usr.bin/f77/libU77/test/sigfpe.f

index 56f20d3..f3e661c 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/test/sigfpe.f
+++ b/usr/src/usr.bin/f77/libU77/test/sigfpe.f
@@ -1,3 +1,12 @@
+C
+C Copyright (c) 1980 The Regents of the University of California.
+C All rights reserved.
+C
+C %sccs.include.proprietary.f%
+C
+C      @(#)sigfpe.f    5.2 (Berkeley) %G%
+C
+
         subroutine sigfpe()
         call signal(8, sigfpe, -1)
         return
         subroutine sigfpe()
         call signal(8, sigfpe, -1)
         return
diff --git a/usr/src/usr.bin/f77/libU77/test/sigfpe.s b/usr/src/usr.bin/f77/libU77/test/sigfpe.s

index b55b0b2..543be81 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/test/sigfpe.s
+++ b/usr/src/usr.bin/f77/libU77/test/sigfpe.s
@@ -1,3 +1,14 @@
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
+ *
+ * %sccs.include.proprietary.c%
+ */
+
+#ifndef lint
+       .asciz "@(#)sigfpe.s    5.2 (Berkeley) %G%"
+#endif /* not lint */
+
         .data
         .even
  L16:
         .data
         .even
  L16:
diff --git a/usr/src/usr.bin/f77/libU77/test/sigtrtst.f b/usr/src/usr.bin/f77/libU77/test/sigtrtst.f

index a007131..3f992d0 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/test/sigtrtst.f
+++ b/usr/src/usr.bin/f77/libU77/test/sigtrtst.f
@@ -1,3 +1,12 @@
+C
+C Copyright (c) 1980 The Regents of the University of California.
+C All rights reserved.
+C
+C %sccs.include.proprietary.f%
+C
+C      @(#)sigtrtst.f  5.2 (Berkeley) %G%
+C
+
         integer signal
         external trap
         isav = signal(8, 0, 1)
         integer signal
         external trap
         isav = signal(8, 0, 1)
diff --git a/usr/src/usr.bin/f77/libU77/test/sigtst.f b/usr/src/usr.bin/f77/libU77/test/sigtst.f

index b7e14b3..de035f3 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/test/sigtst.f
+++ b/usr/src/usr.bin/f77/libU77/test/sigtst.f
@@ -1,3 +1,12 @@
+C
+C Copyright (c) 1980 The Regents of the University of California.
+C All rights reserved.
+C
+C %sccs.include.proprietary.f%
+C
+C      @(#)sigtst.f    5.2 (Berkeley) %G%
+C
+
         external fpe
         integer signal
         isave = signal(8, 0, 1)
         external fpe
         integer signal
         isave = signal(8, 0, 1)
diff --git a/usr/src/usr.bin/f77/libU77/test/sortst.f b/usr/src/usr.bin/f77/libU77/test/sortst.f

index 3c8625a..e684d4b 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/test/sortst.f
+++ b/usr/src/usr.bin/f77/libU77/test/sortst.f
@@ -1,3 +1,12 @@
+C
+C Copyright (c) 1980 The Regents of the University of California.
+C All rights reserved.
+C
+C %sccs.include.proprietary.f%
+C
+C      @(#)sortst.f    5.2 (Berkeley) %G%
+C
+
         program tst
  c to test various syslib routines
         external ntest
         program tst
  c to test various syslib routines
         external ntest
diff --git a/usr/src/usr.bin/f77/libU77/test/statst.f b/usr/src/usr.bin/f77/libU77/test/statst.f

index 6790a72..dd88307 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/test/statst.f
+++ b/usr/src/usr.bin/f77/libU77/test/statst.f
@@ -1,3 +1,12 @@
+C
+C Copyright (c) 1980 The Regents of the University of California.
+C All rights reserved.
+C
+C %sccs.include.proprietary.f%
+C
+C      @(#)statst.f    5.2 (Berkeley) %G%
+C
+
         character*24 ctime
         integer stata(11), statb(11), i1, i2
         open(1, file='statst.f')
         character*24 ctime
         integer stata(11), statb(11), i1, i2
         open(1, file='statst.f')
diff --git a/usr/src/usr.bin/f77/libU77/test/syml.f b/usr/src/usr.bin/f77/libU77/test/syml.f

index 4446cad..defb314 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/test/syml.f
+++ b/usr/src/usr.bin/f77/libU77/test/syml.f
@@ -1,3 +1,12 @@
+C
+C Copyright (c) 1980 The Regents of the University of California.
+C All rights reserved.
+C
+C %sccs.include.proprietary.f%
+C
+C      @(#)syml.f      5.2 (Berkeley) %G%
+C
+
         program syml
  
         integer symlnk
         program syml
  
         integer symlnk
diff --git a/usr/src/usr.bin/f77/libU77/test/systst.f b/usr/src/usr.bin/f77/libU77/test/systst.f

index ab69406..d4c1c99 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/test/systst.f
+++ b/usr/src/usr.bin/f77/libU77/test/systst.f
@@ -1,3 +1,12 @@
+C
+C Copyright (c) 1980 The Regents of the University of California.
+C All rights reserved.
+C
+C %sccs.include.proprietary.f%
+C
+C      @(#)systst.f    5.2 (Berkeley) %G%
+C
+
         program systst
         integer system
         write(*,*) "date", system("date")
         program systst
         integer system
         write(*,*) "date", system("date")
diff --git a/usr/src/usr.bin/f77/libU77/test/taptst.f b/usr/src/usr.bin/f77/libU77/test/taptst.f

index 5bfad67..0f3c53d 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/test/taptst.f
+++ b/usr/src/usr.bin/f77/libU77/test/taptst.f
@@ -1,3 +1,12 @@
+C
+C Copyright (c) 1980 The Regents of the University of California.
+C All rights reserved.
+C
+C %sccs.include.proprietary.f%
+C
+C      @(#)taptst.f    5.2 (Berkeley) %G%
+C
+
         program taptst
  C
  C Test the tape I/O routines
         program taptst
  C
  C Test the tape I/O routines
diff --git a/usr/src/usr.bin/f77/libU77/test/timtst.f b/usr/src/usr.bin/f77/libU77/test/timtst.f

index 76f266e..3e42bef 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/test/timtst.f
+++ b/usr/src/usr.bin/f77/libU77/test/timtst.f
@@ -1,3 +1,12 @@
+C
+C Copyright (c) 1980 The Regents of the University of California.
+C All rights reserved.
+C
+C %sccs.include.proprietary.f%
+C
+C      @(#)timtst.f    5.2 (Berkeley) %G%
+C
+
         character*24 ctime, fdate
         integer time, tl(9), tgm(9)
         write(*,*) ctime(time()), fdate()
         character*24 ctime, fdate
         integer time, tl(9), tgm(9)
         write(*,*) ctime(time()), fdate()
diff --git a/usr/src/usr.bin/f77/libU77/test/ttnam.f b/usr/src/usr.bin/f77/libU77/test/ttnam.f

index 0605b4b..19774f0 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/test/ttnam.f
+++ b/usr/src/usr.bin/f77/libU77/test/ttnam.f
@@ -1,3 +1,12 @@
+C
+C Copyright (c) 1980 The Regents of the University of California.
+C All rights reserved.
+C
+C %sccs.include.proprietary.f%
+C
+C      @(#)ttnam.f     5.2 (Berkeley) %G%
+C
+
         program ttnam
         character*19 ttynam
         write(*,*) ttynam(6), ":", ttynam(1), ":"
         program ttnam
         character*19 ttynam
         write(*,*) ttynam(6), ":", ttynam(1), ":"
diff --git a/usr/src/usr.bin/f77/libU77/time_.c b/usr/src/usr.bin/f77/libU77/time_.c

index 4f814c7..5124413 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/time_.c
+++ b/usr/src/usr.bin/f77/libU77/time_.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)time_.c     5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)time_.c    5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * return the current time as an integer
   *
  /*
   * return the current time as an integer
   *
diff --git a/usr/src/usr.bin/f77/libU77/ttynam_.c b/usr/src/usr.bin/f77/libU77/ttynam_.c

index e53e08c..688623e 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/ttynam_.c
+++ b/usr/src/usr.bin/f77/libU77/ttynam_.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)ttynam_.c   5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)ttynam_.c  5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * Return name of tty port associated with lunit
   *
  /*
   * Return name of tty port associated with lunit
   *
diff --git a/usr/src/usr.bin/f77/libU77/unlink_.c b/usr/src/usr.bin/f77/libU77/unlink_.c

index 592686c..5e9492c 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/unlink_.c
+++ b/usr/src/usr.bin/f77/libU77/unlink_.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)unlink_.c   5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)unlink_.c  5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * unlink (remove) a file
   *
  /*
   * unlink (remove) a file
   *
diff --git a/usr/src/usr.bin/f77/libU77/wait_.c b/usr/src/usr.bin/f77/libU77/wait_.c

index 14f56bb..f0305e7 100644 (file)
--- a/usr/src/usr.bin/f77/libU77/wait_.c
+++ b/usr/src/usr.bin/f77/libU77/wait_.c
@@ -1,11 +1,14 @@
-/*
- * Copyright (c) 1980 Regents of the University of California.
- * All rights reserved.  The Berkeley software License Agreement
- * specifies the terms and conditions for redistribution.
+/*-
+ * Copyright (c) 1980 The Regents of the University of California.
+ * All rights reserved.
   *
   *
- *     @(#)wait_.c     5.1     %G%
+ * %sccs.include.proprietary.c%
   */
  
   */
  
+#ifndef lint
+static char sccsid[] = "@(#)wait_.c    5.2 (Berkeley) %G%";
+#endif /* not lint */
+
  /*
   * wait for a child to die
   *
  /*
   * wait for a child to die
   *
author	Keith Bostic <bostic@ucbvax.Berkeley.EDU>
	Sat, 13 Apr 1991 06:42:43 +0000 (22:42 -0800)
committer	Keith Bostic <bostic@ucbvax.Berkeley.EDU>
	Sat, 13 Apr 1991 06:42:43 +0000 (22:42 -0800)
usr/src/usr.bin/f77/libF77/CCI/h_indx_s.s		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/CCI/hl_ge_s.s		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/CCI/hl_gt_s.s		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/CCI/hl_le_s.s		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/CCI/hl_lt_s.s		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/CCI/i_indx_s.s		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/CCI/iargc_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/CCI/l_ge_s.s		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/CCI/l_gt_s.s		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/CCI/l_le_s.s		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/CCI/l_lt_s.s		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/CCI/mclock_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/CCI/no_lg.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/CCI/outstr_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/CCI/range_s.s		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/CCI/range_s_p.s		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/CCI/rindex_s.s		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/CCI/s_cat_s.s		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/CCI/s_cmp_s.s		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/CCI/s_copy_s.s		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/CCI/system_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/CCI/system_s.s		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/CCI/tanh.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/Usef.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/abort_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/besj0_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/besj1_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/besjn_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/besy0_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/besy1_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/besyn_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/c_abs.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/c_cos.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/c_div.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/c_exp.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/c_log.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/c_sin.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/c_sqrt.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/complex		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/d_abs.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/d_acos.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/d_asin.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/d_atan.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/d_atn2.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/d_cnjg.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/d_cos.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/d_cosh.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/d_dim.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/d_dprod.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/d_exp.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/d_imag.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/d_int.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/d_lg10.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/d_log.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/d_mod.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/d_nint.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/d_prod.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/d_sign.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/d_sin.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/d_sinh.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/d_tan.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/d_tanh.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/dbesj0_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/dbesj1_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/dbesjn_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/dbesy0_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/dbesy1_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/dbesyn_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/derf_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/derfc_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/ef1asc_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/ef1cmc_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/erf_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/erfc_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/exit_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/h_abs.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/h_dim.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/h_dnnt.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/h_indx.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/h_len.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/h_mod.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/h_nint.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/h_sign.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/hl_ge.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/hl_gt.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/hl_le.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/hl_lt.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/i_abs.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/i_dim.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/i_dnnt.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/i_indx.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/i_len.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/i_mod.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/i_nint.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/i_sign.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/l_ge.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/l_gt.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/l_le.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/l_lt.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/lnblnk_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/long_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/main.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/mkindx.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/mkvers.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/opcodes.h		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/operand.h		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/pow_ci.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/pow_dd.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/pow_di.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/pow_hh.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/pow_ii.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/pow_ri.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/pow_zi.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/pow_zz.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/r_abs.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/r_acos.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/r_asin.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/r_atan.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/r_atn2.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/r_cnjg.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/r_cos.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/r_cosh.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/r_dim.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/r_exp.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/r_imag.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/r_int.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/r_lg10.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/r_log.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/r_mod.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/r_nint.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/r_sign.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/r_sin.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/r_sinh.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/r_sqrt.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/r_tan.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/r_tanh.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/rand_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/rand_.c.other		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/random_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/range.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/rindex_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/s_cat.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/s_cmp.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/s_copy.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/s_paus.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/s_rnge.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/s_stop.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/short_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/sigframe.h		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/signal_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/subout.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/traper_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/trapov_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/trpfpe_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/z_cos.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/z_div.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/z_exp.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/z_log.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/z_sin.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/z_sqrt.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libF77/zabs.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libI77/backspace.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libI77/c_dfe.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libI77/c_iio.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libI77/c_sfe.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libI77/close.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libI77/dofio.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libI77/dolio.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libI77/douio.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libI77/due.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libI77/endfile.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libI77/err.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libI77/f77_abort.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libI77/f_errlist.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libI77/f_errno.h		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libI77/fio.h		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libI77/fiodefs.h		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libI77/fmt.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libI77/fmtlib.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libI77/format.h		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libI77/inquire.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libI77/libI66.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libI77/lio.h		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libI77/lread.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libI77/lwrite.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libI77/mkindx.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libI77/mkvers.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libI77/nmlio.h		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libI77/open.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libI77/rdfe.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libI77/rdfmt.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libI77/rewind.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libI77/rfi.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libI77/rsfe.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libI77/rsli.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libI77/rsnmle.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libI77/sue.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libI77/util.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libI77/wdfe.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libI77/wfi.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libI77/wrtfmt.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libI77/wsfe.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libI77/wsli.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libI77/wsnmle.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/access_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/alarm_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/chdir_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/chmod_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/ctime_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/dtime_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/etime_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/f77lid_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/fdate_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/fgetc_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/fork_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/fputc_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/fseek_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/fstat_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/ftell_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/gerror_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/getarg_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/getc_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/getcwd_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/getenv_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/getgid_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/getlog_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/getpid_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/getuid_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/gmtime_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/hostnm_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/iargc_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/idate_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/ierrno_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/ioinit.f		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/isatty_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/itime_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/kill_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/link_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/loc_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/lstat_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/ltime_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/malloc_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/mkindx.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/mkvers.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/perror_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/putc_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/qsort_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/rename_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/sleep_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/stat_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/symlnk_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/system_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/tapeio.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/test/actst.f		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/test/argtst.f		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/test/bitst.f		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/test/chdtst.f		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/test/datst.f		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/test/ertst.f		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/test/fktst.f		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/test/flid.f		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/test/gpctst.f		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/test/gwdtst.f		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/test/idtst.f		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/test/loctst.f		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/test/rngtst.f		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/test/rnmtst.f		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/test/seektst.f		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/test/serrno_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/test/sigfpe.f		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/test/sigfpe.s		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/test/sigtrtst.f		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/test/sigtst.f		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/test/sortst.f		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/test/statst.f		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/test/syml.f		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/test/systst.f		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/test/taptst.f		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/test/timtst.f		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/test/ttnam.f		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/time_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/ttynam_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/unlink_.c		patch \| blob \| blame \| history
usr/src/usr.bin/f77/libU77/wait_.c		patch \| blob \| blame \| history