C                                           *--> FROM PDBCOMMON.PDI2MAX
C  PREPROCESSOR DATA BASE RECORD NUMBER MAX (I2) COMMON BLOCK
      COMMON /PDI2MAX/ I2MAX
C