File: pick-dir/rd_all_tri.f90

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