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