h57624
s 00027/00000/00000
d D 1.1 83/01/20 11:22:19 tes 1 0
c date and time created 83/01/20 11:22:19 by tes
e
u
tes
mjb
U
t
T
I 1
set filein=$1
set null=
if (-e graphdef) then
else echo ... copying /u/lib/GKS/graphdef
     cp /u/lib/GRAPH/graphdef .
endif
if (-e mnucom) then
else echo ... copying /u/lib/GRAPH/mnucom
     cp /u/lib/GRAPH/mnucom .
endif
if (-e gphcom) then
else echo ... copying /u/lib/GRAPH/gphcom
     cp /u/lib/GRAPH/gphcom .
endif
while ($filein != $null)
   set file=$filein:r
   if (-e ${file}.r) then
      echo ... RAT4ing ${file}.r
      m4 graphdef ${file}.r > ${file}.t
      ratfor -6x /u/lib/ratdef ${file}.t > ${file}.f
      rm ${file}.t
      f77 -uc ${file}.f
   else echo '***' no \'${file}.r\' '***'
   endif
   shift
   set filein=$1
end
E 1
