! Command procedure for invoking Flecs and Fortran. The listing is ! scratched to a work file then copied to the specified disk. ! Parm 1 is the Primary flecs file name (without the extension) ! Parm 2 is the optional list device (defaults to DK:) ! Parm 3 is the optional Fortran switches (see below for default) ! R FLECS.AL wf:^1.Ftx,wf:^1.FLL=^1.FLX ! The input Flecs file ^1.FLX ^C ! R INDEX ! LP:=^1.FOR/A/O/L/N ! ^C Fort/LIST:Wf:^1.Sym/WARN/SHOW:2/NOOPT:SPD wf:^1.Ftx^3 DEL/NOQUERY wf:^1.Ftx Copy/Con wf:^1.(FLL,Sym) ^2^1.Lst Del/noquery wf:^1.(Fll,Sym)