To compile and link:
 
 gfortran -c epc_or.f
 gfortran -o epc_or.exe epc_or.o
 
 Compile warnings and errors (fixed):
 
 twist ~/qfs $ gfortran epc_or.f
 epc_or.f:247.7:

     1 ' mev/c')                                                        
       1
 Warning: Extension: Tab character in format at (1) 
 (=> changed TAB between 1 and ' to space)
 epc_or.f:327.18:

      open(unit=1,name='epc.top',status='unknown',form='formatted')     
                  1
 Error: Syntax error in OPEN statement at (1)
 (=> changed "name" to "file")
 
 To run
 twist ~/qfs $ ./epc_or.exe
 
 To get good TOPDRAWER display, changed all Greek symbols to be UPPERCASE 
 in the Title commands. The CASE command makes lowercase Greek with "g" and
 uppercase with "f"
 
 To display TOPDRAWER superscripts correctly use
 td -b *.top
 
 To produce a PS output file (=> ugdevice.ps)
 td -b -d postscript
 TD: set file in *.top
 exit