File: pick-dir/rd_all_bulkbi.f90

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