Statistics
| Revision:

root / src / Read_geom.f90 @ 8

History | View | Annotate | Download (885 Bytes)

1 1 pfleura2
SUBROUTINE Read_Geom(input)
2 1 pfleura2
3 5 pfleura2
  Use VarTypes
4 5 pfleura2
  Use Path_module, only : NGeomI
5 1 pfleura2
  Use Io_module
6 1 pfleura2
7 1 pfleura2
  IMPLICIT NONE
8 1 pfleura2
9 1 pfleura2
10 1 pfleura2
  CHARACTER(32), INTENT(IN) :: input
11 1 pfleura2
12 8 pfleura2
  LOGICAL :: Debug
13 1 pfleura2
14 1 pfleura2
15 1 pfleura2
  INTERFACE
16 1 pfleura2
     function valid(string) result (isValid)
17 1 pfleura2
       CHARACTER(*), intent(in) :: string
18 1 pfleura2
       logical                  :: isValid
19 1 pfleura2
     END function VALID
20 1 pfleura2
  END INTERFACE
21 1 pfleura2
22 1 pfleura2
  debug=valid('Read_geom')
23 1 pfleura2
 if (debug) Call Header("Entering Read_Geom")
24 1 pfleura2
  if (debug) WRITE(*,*) "Input:",Trim(Input)
25 1 pfleura2
  if (debug) WRITE(*,*) "NgeomI:",NGeomI
26 1 pfleura2
27 1 pfleura2
  SELECT CASE(Input)
28 1 pfleura2
  CASE ('XYZ','CART')
29 5 pfleura2
     Call ReadGeom_cart
30 1 pfleura2
  CASE ('TURBOMOLE')
31 5 pfleura2
     Call ReadGeom_turbomole
32 1 pfleura2
  CASE ('VASP')
33 5 pfleura2
     Call ReadGeom_vasp
34 5 pfleura2
  CASE ('SIESTA')
35 5 pfleura2
     Call ReadGeom_siesta
36 1 pfleura2
  CASE Default
37 1 pfleura2
     WRITe(*,*) 'Input=',trim(Input),' UNKNOWN. Stop'
38 1 pfleura2
     STOP
39 1 pfleura2
40 1 pfleura2
  END SELECT
41 1 pfleura2
42 1 pfleura2
43 1 pfleura2
 if (debug) Call Header("Exiting Read_Geom")
44 1 pfleura2
45 1 pfleura2
END SUBROUTINE Read_Geom