CIPRIME CNSPLI                                                          CNSPLI      1
*IF -MI2                                                                CNSPLI      2
      INTEGER*2 KTNODE,IRET,NODES,MODIA                                 CNSPLI      3
*ENDIF                                                                  CNSPLI      4
      COMMON /SCRAT1/ LBRIST(NB),NELIST(NPL6),KTNODE(NPL6)              CNSPLI      5
     &               ,IRET(NB),NODES(NB),MODIA(NB)                      CNSPLI      6
