File: pick-dir/rd_all_unihet.f90

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