Skip to content

GitLab

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

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