COMMON/IGLPCS/ZPCSRY,NERROR,NVERS,NRNCAP,NPCSRY,QPCSRY
     LOGICAL QPCSRY(29)
     REAL ZPCSRY(78)
     INTEGER NPCSRY(226),NERROR,NVERS,NRNCAP
     INTEGER  NBFCNT
     EQUIVALENCE(NPCSRY(1),NBFCNT)
     INTEGER  NBUFMX
     EQUIVALENCE(NPCSRY(3),NBUFMX)