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