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