Statistiques
| Révision :

root / src / Read_geom.f90 @ 8

Historique | Voir | Annoter | Télécharger (885 octet)

1
SUBROUTINE Read_Geom(input)
2

    
3
  Use VarTypes
4
  Use Path_module, only : NGeomI
5
  Use Io_module
6

    
7
  IMPLICIT NONE
8

    
9

    
10
  CHARACTER(32), INTENT(IN) :: input    
11

    
12
  LOGICAL :: Debug
13

    
14

    
15
  INTERFACE
16
     function valid(string) result (isValid)
17
       CHARACTER(*), intent(in) :: string
18
       logical                  :: isValid
19
     END function VALID
20
  END INTERFACE
21

    
22
  debug=valid('Read_geom')
23
 if (debug) Call Header("Entering Read_Geom")
24
  if (debug) WRITE(*,*) "Input:",Trim(Input)
25
  if (debug) WRITE(*,*) "NgeomI:",NGeomI
26

    
27
  SELECT CASE(Input)
28
  CASE ('XYZ','CART')
29
     Call ReadGeom_cart
30
  CASE ('TURBOMOLE')
31
     Call ReadGeom_turbomole
32
  CASE ('VASP')
33
     Call ReadGeom_vasp
34
  CASE ('SIESTA')
35
     Call ReadGeom_siesta
36
  CASE Default
37
     WRITe(*,*) 'Input=',trim(Input),' UNKNOWN. Stop'
38
     STOP
39

    
40
  END SELECT
41

    
42

    
43
 if (debug) Call Header("Exiting Read_Geom")
44

    
45
END SUBROUTINE Read_Geom