C*    SFSCM - SEARCH FORTRAN SOURCE COMMON
      COMMON INDX, NRFIL(100), NROFS(100), NRTOT, NR, NERC
      COMMON NFILE, NAVS, MXNAV, NAVSV, MXVAR, IPVEC(27)
      COMMON INCLD, INCMN, NOFOR, IPRNT(2), ILGFL, IHVEC(36), NOEND
      COMMON IBUF(10), ISTMT
      COMMON BUFR(128), FID(3,1), BUFWS(1280), FIDWS(3)
      COMMON IVARI(12000)