Révision 8 src/ReadInput_vasp.f90

ReadInput_vasp.f90 (revision 8)
15 15
     END function VALID
16 16
  END INTERFACE
17 17

  
18
  CHARACTER(LCHARS) ::  Line,Line2
19
  INTEGER(KINT) :: LineL, Idx, Iat
18
  CHARACTER(LCHARS) ::  Line
19
  INTEGER(KINT) ::  Iat
20 20
  INTEGER(KINT) :: I,J
21 21

  
22 22
  INTEGER(KINT), ALLOCATABLE :: NbAtType(:) !na

Formats disponibles : Unified diff