🚀 go-pugleaf

I am attempting to put some (somebody else's) FORTRAN source under SCCS.  
Being a C hacker, I am somewhat unfamiliar with how f77 stores strings.  
In C, a convenient way to embed an SCCS string, for later detection by
what(1) and strings(1), is to begin each source file with:

	static char *
	sccsid = "%W% (...) %G%";

The closest I've been able to get with f77 is to declare a character array 
in the first function of each source file, and then assign to it:

	character*72	sccsid
		.
		.
	sccsid = '%W% (...) %G%'

There several problems with this.  First of all, strings(1) doesn't find 
the string unless you give it the - switch, because it is unitialized
data.  Secondly, the function in each source file that has this is doing 
busy work (the assignment) each time it is called.  I first thought that 
the parameter mechanism was what I wanted, but it appears to be more like 
#define (the string appears *nowhere* in the object file).  Any ideas?

				-Jim Gonzalez
				 BBN Laboratories, Inc.
				 gonzalez@vax.bbn.com