C-----------------------------------------------------------------
 
C...Internal variables.
      COMMON/PYINT1/MINT(400),VINT(400)
      INTEGER MINT
      DOUBLE PRECISION VINT
      SAVE/PYINT1/