*KEEP,CMUNPU.
       DIMENSION NIP(12)
       REAL*8 PCC(12),PPNB(5)
       COMMON/CMUNPU/PCC,PPNB,NIP
C
C    CALOR random seed