Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!seismo!ut-sally!husc6!cmcl2!brl-adm!adm!gonzalez@VAX.BBN.COM
From: gonzalez@VAX.BBN.COM
Newsgroups: comp.unix.questions
Subject: SCCS question
Message-ID: <8218@brl-adm.ARPA>
Date: Wed, 8-Jul-87 15:24:00 EDT
Article-I.D.: brl-adm.8218
Posted: Wed Jul  8 15:24:00 1987
Date-Received: Sat, 11-Jul-87 05:41:47 EDT
Sender: news@brl-adm.ARPA
Lines: 26

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