File: pick-dir/ispec.f90

    1       FUNCTION ISPEC(String,Species,NSPEC)
    2       USE KINETIC
    3       IMPLICIT NONE
    4 !
    5 !
    6 ! Dummy arguments
    7 !
    8       INTEGER :: ISPEC
    9       INTEGER :: NSPEC
   10       CHARACTER(20) :: String
   11       TYPE (SPECIES_RECORD) , DIMENSION(NSPEC) :: Species
   12       INTENT (IN) NSPEC , Species , String
   13 !
   14 ! Local variables
   15 !
   16       INTEGER :: js
   17       EXTERNAL BLANK
   18 !     CHARACTER(20) :: blank_st
   19 !
   20 !-----------------------------------------------------------------------
   21 !
   22 !     Written by:   David Lary
   23 !
   24 !     Started:      7/1/1993
   25 !
   26 !     Last updated: 27/1/2004
   27 !
   28 !-----------------------------------------------------------------------
   29 !
   30 !     find the species index number of the species.
   31 !
   32 !-----------------------------------------------------------------------
   33 !
   34       ISPEC = 0
   35       DO js = 1 , NSPEC
   36          IF ( Species(js)%speci==String ) THEN
   37             ISPEC = js
   38             RETURN
   39          ENDIF
   40       ENDDO
   41 !
   42 !     CALL BLANK(blank_st)
   43 !     IF ( String/=blank_st) print *, 'Ispec: not found:' , String
   44 !
   45 !-----------------------------------------------------------------------
   46 !
   47       END FUNCTION ISPEC