File: pick-dir/rd_all_bi.f90
1 SUBROUTINE RD_ALL_BI(Jchan,Fnbi,Bimolecular,Lverb,MAXBI,Nkb)
2 USE KINETIC
3 IMPLICIT NONE
4 !
5 ! Dummy arguments
6 !
7 CHARACTER(200) :: Fnbi
8 INTEGER :: Jchan , Nkb
9 LOGICAL :: Lverb
10 INTEGER :: MAXBI
11 TYPE (BIMOLECULAR_RECORD) , DIMENSION(MAXBI) :: Bimolecular
12 INTENT (IN) Fnbi , MAXBI
13 INTENT (INOUT) Nkb
14 !
15 ! Local variables
16 !
17 INTEGER :: i , j
18 LOGICAL :: lend
19 !
20 !-----------------------------------------------------------------------
21 !
22 ! written by: David Lary
23 !
24 ! started: 7/1/1993
25 !
26 ! last updated: 22/1/2004
27 !
28 !----------------------------------------------------------------------
29 !
30 ! Reads in an AutoChem bimolecular kinetic data file.
31 !
32 !----------------------------------------------------------------------
33 !
34 WRITE (6,*) TRIM(Fnbi)
35 OPEN (Jchan,FILE=TRIM(Fnbi),STATUS="old')
36 !
37 !----------------------------------------------------------------------
38 !
39 ! Skip header
40 DO i = 1 , 3
41 READ (Jchan,*)
42 ENDDO
43 !
44 !----------------------------------------------------------------------
45 !
46 ! Read bimolecular reactions
47 j = 0
48 DO WHILE ( .TRUE. )
49 CALL RD_BI(Jchan,Bimolecular(j+1),lend,Lverb,j)
50 IF ( lend ) THEN
51 Nkb = j
52 PRINT * , "Read :' , Nkb , " bimolecular reactions.'
53 CLOSE (Jchan)
54 EXIT
55 ENDIF
56 ENDDO
57 !
58 !----------------------------------------------------------------------
59 !
60 END SUBROUTINE RD_ALL_BI