CIPRIME CNVMAX                                                          CNVMAX      1
C                                                                       CNVMAX      2
*IF -MI2                                                                CNVMAX      3
      INTEGER*2 IVMAX                                                   CNVMAX      4
*ENDIF                                                                  CNVMAX      5
      COMMON /SCRAT7/ VMTI(MONL4),IVMAX(NB),IVLAST,JVLAST               CNVMAX      6
      DIMENSION IVMTI(MONL4)                                            CNVMAX      7
      EQUIVALENCE (VMTI(1),IVMTI(1))                                    CNVMAX      8
C                                                                       CNVMAX      9
