File: pick-dir/rd_all_bulktrans.f90
1 SUBROUTINE RD_ALL_BULKTRANS(Jchan,Fnbulktrans,Bulktransfer,Lverb, &
2 & MAXBULKTRANS,Nkbulktrans)
3 USE KINETIC
4 IMPLICIT NONE
5 !
6 ! Dummy arguments
7 !
8 CHARACTER(200) :: Fnbulktrans
9 INTEGER :: Jchan , Nkbulktrans
10 LOGICAL :: Lverb
11 INTEGER :: MAXBULKTRANS
12 TYPE (BULKTRANSFER_RECORD) , DIMENSION(MAXBULKTRANS) &
13 & :: Bulktransfer
14 INTENT (IN) Fnbulktrans , MAXBULKTRANS
15 INTENT (INOUT) Nkbulktrans
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 bulk transfer data file.
33 !
34 !----------------------------------------------------------------------
35 !
36 WRITE (6,*) TRIM(Fnbulktrans)
37 OPEN (Jchan,FILE=TRIM(Fnbulktrans),STATUS="old')
38 !
39 !----------------------------------------------------------------------
40 !
41 ! Skip header
42 DO i = 1 , 3
43 READ (Jchan,*)
44 ENDDO
45 !
46 !----------------------------------------------------------------------
47 !
48 ! Read bulktransmolecular reactions
49 j = 0
50 DO WHILE ( .TRUE. )
51 CALL RD_BULKTRANS(Jchan,Bulktransfer(j+1),lend,Lverb,j)
52 IF ( lend ) THEN
53 Nkbulktrans = j
54 PRINT * , "Read :' , Nkbulktrans , &
55 &" bulk transfer reactions.'
56 CLOSE (Jchan)
57 EXIT
58 ENDIF
59 ENDDO
60 !
61 !----------------------------------------------------------------------
62 !
63 END SUBROUTINE RD_ALL_BULKTRANS