c
      parameter(mxalt=25,mxrec=1000,cpspval=1.e36)
      common/dat/ nrec,nalt,alt(mxalt),ut(mxrec),un(mxrec,mxalt),
     +  vn(mxrec,mxalt),slt(mxrec),glat(mxrec),glon(mxrec),sza(mxrec),
     +  iframe,iplcon,iplvec,iplmap