File: pick-dir/lspec.f90

    1       FUNCTION LSPEC(String,Speci,Nspec,MAXN)
    2       IMPLICIT NONE
    3 !
    4 ! Dummy arguments
    5 !
    6       LOGICAL :: LSPEC
    7       INTEGER :: MAXN
    8       INTEGER :: Nspec
    9       CHARACTER(*) :: String
   10       CHARACTER(20) , DIMENSION(MAXN) :: Speci
   11       INTENT (IN) MAXN , Nspec , Speci , String
   12 !
   13 ! Local variables
   14 !
   15       INTEGER :: js
   16 !
   17 !-----------------------------------------------------------------------
   18 !
   19 !     written by:   David Lary
   20 !
   21 !     started:      7/1/1993
   22 !
   23 !     last updated: 27/1/2004
   24 !
   25 !----------------------------------------------------------------------
   26 !
   27 !     find if the species is one of the specie list.
   28 !
   29 !----------------------------------------------------------------------
   30 !
   31       LSPEC = .FALSE.
   32       DO js = 1 , Nspec
   33          IF ( Speci(js)==String ) THEN
   34             LSPEC = .TRUE.
   35             RETURN
   36          ENDIF
   37       ENDDO
   38 !
   39 !----------------------------------------------------------------------
   40 !
   41       END FUNCTION LSPEC