logical iopts, lprint
      character*6 system
      integer ioseq, iscan
      real sunmax, xlatlo, xlathi, wlenth, xlonlo, xlonhi
c
      common /contrl/ ioseq,iscan,sunmax,
     1                xlatlo,xlathi,xlonlo,xlonhi,wlenth(12),
     2                iopts(20),lprint(30),system