vgrindef for f77

[Eugene Miya]

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 at ames-vmsb.ARPA