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