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