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