parameter(nrec=4779,nflds=8)
      character*56 mssfile
      character*128 sendcgm,sendlex
      integer iflex(nflds), ifplt(nflds)
      common/rdgpi/ mssfile,iyds(2),idates(3,2),ipltline,
     +  iyd(nrec),f107d(nrec),f107a(nrec),fkp(8,nrec),
     +  ctpoten(8,nrec),hpower(8,nrec),fkp_daily(nrec),
     +  cp_daily(nrec),hp_daily(nrec),ndays,sendcgm,sendlex,
     +  iwrlex,iflex,ifplt