#           Define FORTRAN Language Editing Environment
#
SET FIND 7;SET INS 7
Def WFOR/H ENV ISU INC IIN ICA IF IRE IEN;H ICF IS RN > < >> << STUB;H FORDEL/
Def ISU /BR;I7SUBROUTINE;VE;R18/;     Def INC /I7INCLUDE '/
Def ICA /BR;I CALL;VE;R+5/;           Def IF  /I IF (/
Def IC  /BR;I6-;VE;R+3/;              Def RN "C1 6/::/"
Def IIN /BR;I7INTEGER;VE;R15/;        Def IRE /I RETURN/;   Def IEN/I7END/
Def >   "C//      /;# SHIFT RIGHT";   Def < "C/      //;# SHIFT LEFT"
Def >>  "BR;C//   /;RES;VE;C";        Def << "BR;C/   //;RES;VE;C"
Def IS  "BR;I1C;C1 49/ /-/G;VE;R50";  Def ICF "I6-      /"
Def STUB/#  Make Stub ;I1C----;INC X';IIN J;IRE;IEN;U4;ISU/
Def FORDEL/READ EEMacroDir:FORDEL.DEF/
Def ENV/ECHO    FORTRAN Language Editing Environment/;Def CMDS /WFOR/
