djmc.jpg (3333 bytes)

Doug McMillin, Vice President and Senior Analyst, DM&A

B.Sc., M.Sc.

Research Interests:

ERROR:
      if(logfile.ge.0) then
        write(logfile,"(t80,'!'/t80,'!'/1x,79('*'))")
        else write(*,"(' no logfile')")
      endif
      write(*,"('0 Press Enter to start me')")
      read(*,"(a1)") code
      if(code.eq.'/') runame='exit'
C
      Return
      end