Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10.2 9/18/84; site ames.UUCP
Path: utzoo!watmath!clyde!burl!ulysses!allegra!bellcore!decvax!ittvax!dcdwest!sdcsvax!sdcrdcf!hplabs!ames!eugene
From: eugene@ames.UUCP (Eugene Miya)
Newsgroups: net.unix-wizards
Subject: vgrindef for f77
Message-ID: <749@ames.UUCP>
Date: Fri, 4-Jan-85 20:18:04 EST
Article-I.D.: ames.749
Posted: Fri Jan  4 20:18:04 1985
Date-Received: Mon, 7-Jan-85 02:47:05 EST
Distribution: net
Organization: NASA-Ames Research Center, Mtn. View, CA
Lines: 23

Here is a vgrindef for FORTRAN (hiss!).  It lacks the more sophistcated
keywords like "namelist" which you can add yourself if you want them.  I hacked
it from the ratfor def while working on the Cray.

fortran|FORTRAN|f77|fc|f:\
	:pb=(function|subroutine|program)\d\p\d?\(\a?\):\
	:bb=(function|subroutine|program)\d\p\d?\(\a?\):be=^\dend:\
	:cb=^c:\
	:ce=$:\
	:sb=':\
	:se=':\
	:oc:\
	:kw=call common complex continue dimension do double else elseif\
	end endif equivalence format function\
	goto if include integer \
	parameter precision real return stop subroutine:

It works on our laser printer.

--eugene miya
  NASA Ames Research Center
  {hplabs,ihnp4,dual,hao,vortex}!ames!aurora!eugene
  emiya@ames-vmsb.ARPA