program main
      include 'maincomo.for'
      include 'homerc.for'
      real temp(15000)
      line=0
      linemx=66
      ipage=0
      iolp=6
      iocr=4
      iobcd2=3
      open(unit=iocr,file='homer.dat',status='old',err=30)
      open(unit=iobcd2,file='iobcd2.tmp',status='unknown')
      idic=0
      nsmax=200
      noob=0
      mxvar=6
      mxrvar=30
      do 10 i=1,mxrvar
         qmiss(i)=.false.
         vfmt(i)=11
 10      continue
      formt=' '
      string=' '
      tabchr=':'
      qfirst=.true.
      qoptsr(1)=.false.
      nfld=15000
      call homer0(temp,nfld)
      stop
 30   write(0,*) 'File HOMER.DAT does not exist.'
      stop 'Missing file'
      end