C                                           *--> FROM SCOMMON.DIMTEMP
C  ARRAYS FOR TEMP PARAMETERS
      PARAMETER (MAXTMP=12)
      DIMENSION TMPMAX(MAXTMP),TMPMIN(MAXTMP)
      PARAMETER (MAXCF=2)
      DIMENSION TEMPCF(MAXCF)
      DIMENSION IPDMMT(3,4),WTMMT(3,4),IPDINS(3,4)
      DIMENSION WTINS(3,4),IPDFMM(2,4),WTFMM(2,4)
C