From bob@uhmanoa.ics.hawaii.edu Wed Apr 20 18:06:01 1988 Return-Path: Received: from anl-mcs.ARPA by antares.mcs.anl (3.2/SMI-3.2) id AA06725; Wed, 20 Apr 88 18:04:17 CDT Received: from uhmanoa.ics.hawaii.edu (101ab80) by anl-mcs.ARPA (4.12/4.9) id AA10160; Wed, 20 Apr 88 18:07:07 cst Received: by uhmanoa.ics.hawaii.edu; Wed, 20 Apr 88 13:08:55-1000 Received: by loihi.HIG.HAWAII.EDU (4.12/UUCP-Uhmanoa-2-7-87) id AA07458; Wed, 20 Apr 88 12:17:32-1000 Date: Wed, 20 Apr 88 12:17:32-1000 From: Bob Cunningham Message-Id: <8804202217.AA07458@loihi.HIG.HAWAII.EDU> To: info-alliant@anl-mcs.arpa Subject: vgrindefs additions for Alliant fortran Status: R Appending this to your /usr/lib/vgrindefs file allows you to use "vgrind -lf" on your *.f files. Nothing fancy. ----------------------------cut here------------------------ fortran|F|f:\ :pb=^\d?program|subroutine|function|(integer|real|complex|character\dfun:\ :cb=^c|^C:ce=$:\ :ab=!:ae=$:\ :sb=':se=\e':\ :lb=":le=\e":\ :oc:tl:\ :kw=accept allocate assign\ backspace block\ call close\ common complex continue\ data deallocate\ decode define dimension do dummy\ else elseif encode end enddo endfile endif endwhere\ entry equivalence external\ file find format function\ go goto\ if implicit include inquire integer intent intrinsic\ namelist none\ open options otherwise\ parameter pause print program\ read real retain return rewind\ save stop subroutine\ then to type\ virtual where while write: