CJPB
      SUBROUTINE PRMFLD(NUM,IOPEN)
CJPB  SUBROUTINE PRMFLD(NUM)
      DIMENSION NUM(28)
      DO 1 I=1,28
1     NUM(I)=0
CJPB  READ(5,100)NUM
CJPB
      IF(IOPEN.EQ.1) THEN
      ASSIGN 100 TO IFMT
      ELSE
      ASSIGN 102 TO IFMT
      ENDIF
C
      READ(5,IFMT)NUM
100   FORMAT(28I2)
102   FORMAT(/,28I2)
CJPB
      WRITE(6,101)NUM
101   FORMAT(1H0,'NUM=',28(1X,I2))
      RETURN
      END
