Commit 258eaf2e authored by Daniel Wortmann's avatar Daniel Wortmann

BUGFIX: there should be no comma after write(...)

parent fbce74a5
...@@ -359,10 +359,10 @@ enddo ...@@ -359,10 +359,10 @@ enddo
WRITE (6,FMT=8030) n,smom, (chmom(n,j),j=1,input%jspins) WRITE (6,FMT=8030) n,smom, (chmom(n,j),j=1,input%jspins)
WRITE (16,FMT=8030) n,smom, (chmom(n,j),j=1,input%jspins) WRITE (16,FMT=8030) n,smom, (chmom(n,j),j=1,input%jspins)
attributes = '' attributes = ''
WRITE(attributes(1),'(i0)'), n WRITE(attributes(1),'(i0)') n
WRITE(attributes(2),'(f15.10)'), smom WRITE(attributes(2),'(f15.10)') smom
WRITE(attributes(3),'(f15.10)'), chmom(n,1) WRITE(attributes(3),'(f15.10)') chmom(n,1)
WRITE(attributes(4),'(f15.10)'), chmom(n,2) WRITE(attributes(4),'(f15.10)') chmom(n,2)
CALL writeXMLElementFormPoly('magneticMoment',(/'atomType ','moment ','spinUpCharge ',& CALL writeXMLElementFormPoly('magneticMoment',(/'atomType ','moment ','spinUpCharge ',&
'spinDownCharge'/),& 'spinDownCharge'/),&
attributes,reshape((/8,6,12,14,6,15,15,15/),(/4,2/))) attributes,reshape((/8,6,12,14,6,15,15,15/),(/4,2/)))
......
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