1 SUBROUTINE XPERNM 2C 3C DEFINE THE NUMBER OF CARDS IN EACH EXPERIMENTAL DATA NAMELIST 4C 5 COMMON /EXPER/ KLIST, NLIST(100), NNAMES, IMACH, MDATA, 6 1 KBODY, KWING, KHT, KVT, KWB, KDWASH(3), 7 2 ALPOW, ALPLW, ALPOH, ALPLH 8 COMMON /CONSNT/ PI,DEG,UNUSED,RAD,KAND 9 LOGICAL FIRST, TEST 10 DIMENSION KOL(80), KEXP(4) 11 DATA KEXP / 1HE, 1HX, 1HP, 1HR / 12 REWIND 8 13 K = 0 14 N = 0 15 IER = 0 16 NCARDS = 0 17 FIRST = .TRUE. 18 1000 CONTINUE 19C 20C*** THE FOLLOWING TWO CARDS ARE FOR FORTRAN-IV 21C 22C READ(8,1060) (KOL(I), I=1,80) 23C IF(EOF(8)) 1040,1010 24C 25C*** THE FOLLOWING CARD IS FOR FORTRAN-V 26C 27 READ(8,1060,END=1040) (KOL(I), I=1,80) 28C 29C SET THE NUMBER OF CARDS IN NLIST 30C 31 1010 CONTINUE 32 IF(KOL(2) .NE. KAND) GO TO 1030 33 IF(.NOT. TEST(KOL(3),KEXP,4)) GO TO 1030 34 IF(FIRST .OR. (IER .GT. 0)) GO TO 1020 35 IF(NLIST(K) .LT. 1000) NLIST(K) = NLIST(K)+1000*NCARDS 36 1020 CONTINUE 37 K = K+1 38 NCARDS = 0 39 FIRST = .FALSE. 40 IF(K .GT. 100) IER = 1 41 1030 CONTINUE 42 NCARDS = NCARDS+1 43 GO TO 1000 44C 45C END OF FILE ENCOUNTERED ON TAPE-8 46C 47 1040 CONTINUE 48 IF((NLIST(K) .LT. 1000) .AND. (IER .LE. 0)) 49 1 NLIST(K) = NLIST(K) + 1000*NCARDS 50 KLIST = K 51 IF(IER .EQ. 0) GO TO 1050 52 WRITE(6,1070) KLIST 53 KLIST = 100 54 1050 CONTINUE 55 1060 FORMAT(80A1) 56 1070 FORMAT(23H0 **WARNING** THERE ARE,I4,18H EXPERIMENTAL DATA, 57 1 44H NAMELISTS FOR THIS CASE, THE MAXIMUM IS 100 / 58 2 14X,26HTHE FIRST 100 WILL BE USED //) 59 RETURN 60 END 61