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