CIPRIME CNSPVI                                                          CNSPVI      1
*IF -MI2                                                                CNSPVI      2
      INTEGER*2 NOROI,NOROV,NOROV2,NOROR,NORO,NOROCO,NOROL              CNSPVI      3
*ENDIF                                                                  CNSPVI      4
      COMMON /SPVI/ NOROWI,NOROWR,NOROWV,NORWV2,NOROWL,NORC,NETRC       CNSPVI      5
     &,NOROI(NB*2/3),NOROV(NB*2/3),NOROV2(NB*2/3),NOROR(NB)             CNSPVI      6
     &,NOROCO(NB*2/3),NORO(NB),NOROL(NB)                                CNSPVI      7
