Révision 8 src/ReadInput_gaussian.f90

ReadInput_gaussian.f90 (revision 8)
16 16
  END INTERFACE
17 17

  
18 18

  
19
  CHARACTER(132) ::  Line,Line2
19
  CHARACTER(132) ::  Line
20 20
  INTEGER(KINT) :: LineL, Idx, Iat
21 21
  INTEGER(KINT) :: I
22
  REAL(KREAL) :: Xtmp,YTmp,ZTmp  
23
  LOGICAL :: Tchk
24 22
  
25 23
  LOGICAL :: Debug
26 24

  

Formats disponibles : Unified diff