CIPRIME CNLIN1                                                          CNLIN1      1
      COMMON /SCRAT6/ LINEPO(NPL2),IARCCT(NPL)                          CNLIN1      2
