Commit 36edbcaa authored by Gregor Michalicek's avatar Gregor Michalicek

Remove leading comma in WRITE statement

parent 687daedf
......@@ -695,7 +695,7 @@ SUBROUTINE rdmft(eig_id,mpi,input,kpts,banddos,sliceplot,cell,atoms,enpara,stars
theta = ASIN(SQRT(occStateI))! * 2.0 / pi_const
WRITE(7865,'(i7,4f15.10)'), iState, occStateI, theta, sin(theta), cos(theta)
WRITE(7865,'(i7,4f15.10)') iState, occStateI, theta, sin(theta), cos(theta)
! occStateI = MAX(occStateI,minOcc)
equalityLinCombi(iState) = kpts%wtkpt(ikpt)
......
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