c c This program is for mopac93 to run on Dec Fortran c function IARGC() IARGC=1 return end c subroutine GETARG(i,c) character*80 c open(unit=53,file='jobname.dat',status='old') read(53,153) c 153 format(a30) write(*,*) c close(53) return end c subroutine FDATE(IDATE) CHARACTER IDATE*24 call DATE(IDATE) return end c