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