Skip to content

GitLab

fleur
fleur
Commit e8d96bd5 authored by Daniel Wortmann's avatar Daniel Wortmann
Browse files
Options

Removed invalid file opening for nstm3 mode

parent 694ff79e
Hide whitespace changes
Inline Side-by-side
Showing with 1 addition and 1 deletion
dos/doswrite.f90
View file @ e8d96bd5
...@@ -140,7 +140,7 @@ CONTAINS ...@@ -140,7 +140,7 @@ CONTAINS
! !
IF (vacuum%nstm.EQ.3) THEN IF (vacuum%nstm.EQ.3) THEN
call juDFT_error("nstm=3 not implemented in doswrite") call juDFT_error("nstm=3 not implemented in doswrite")
OPEN (89,file='tmp_vacwave',status='old',access='direct')!, recl=reclength_vw) !OPEN (89,file='tmp_vacwave',status='old',access='direct')!, recl=reclength_vw)
ALLOCATE ( ac(n2max,DIMENSION%neigd),bc(n2max,DIMENSION%neigd) ) ALLOCATE ( ac(n2max,DIMENSION%neigd),bc(n2max,DIMENSION%neigd) )
DO ikpt = 1,kpts%nkpt DO ikpt = 1,kpts%nkpt
WRITE(*,*) 'Read rec',ikpt,'from vacwave' WRITE(*,*) 'Read rec',ikpt,'from vacwave'
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment