Commit 6f9f734e authored by Matthias Redies's avatar Matthias Redies

fix warnings from #432

parent a39c5a8f
......@@ -91,10 +91,10 @@ SUBROUTINE bfgs_b2(vecLength,gradient,lastGradient,minConstraints,maxConstraints
IF(ANY(lastGradient(:).NE.0.0).OR.ANY(lastParameters(:).NE.0.0)) THEN
WRITE(2501,'(a,12f10.6)'), ' gradient: ', gradient(:)
WRITE(2501,'(a,12f10.6)'), 'lastGradient: ', lastGradient(:)
WRITE(2502,'(a,12f10.6)'), ' parameters: ', parameters(:)
WRITE(2502,'(a,12f10.6)'), 'lastParameters: ', lastParameters(:)
WRITE(2501,'(a,12f10.6)') ' gradient: ', gradient(:)
WRITE(2501,'(a,12f10.6)') 'lastGradient: ', lastGradient(:)
WRITE(2502,'(a,12f10.6)') ' parameters: ', parameters(:)
WRITE(2502,'(a,12f10.6)') 'lastParameters: ', lastParameters(:)
lastGradCorrection(:) = gradient(:) - lastGradient(:)
lastParamCorrection(:) = parameters(:) - lastParameters(:)
......
......@@ -45,7 +45,7 @@ CONTAINS
TYPE(t_atoms) :: atoms
INTEGER,INTENT(in) :: jspins
LOGICAL,INTENT(IN) :: l_offdiag
INTEGER :: err(7),lmd,mlolotot
INTEGER :: err(9),lmd,mlolotot
mlolotot=DOT_PRODUCT(atoms%nlo,atoms%nlo+1)/2
lmd=atoms%lmaxd*(atoms%lmaxd+2)
!lmplmd=(lmd*(lmd+3))/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