Revision 10 src/ReadInput_vasp.f90

ReadInput_vasp.f90 (revision 10)
33 33

  
34 34
  if (debug) Call Header("Entering ReadInput_Vasp")
35 35

  
36
  FPBC=.TRUE.
37

  
36 38
 if (Input/="VASP") THEN
37 39

  
38 40
     ! Input was not Vasp, so many parameters are missing like lattice 
......
138 140
        Latr(1:3,2)=Lat_b
139 141
        Latr(1:3,3)=Lat_c
140 142
        B=1.
143
! TO DO: replace by LAPACK
141 144
        CALL Gaussj(Latr,3,3,B,1,1)
142 145
     ELSE
143 146
        Latr=0.
......
180 183
        Vasp_Title=Trim(Line) // " " // Trim(adjustL(Vasp_Title))
181 184
        if (debug) WRITE(*,*) "DBG MAIN, L809, VMD=T, Vasp_Title=",TRIM(Vasp_Title)
182 185
     END IF
183
     Call CheckPeriodicBound
184 186

  
185 187
 if (debug) Call Header("Exiting ReadInput_Vasp")
186 188

  

Also available in: Unified diff