Commit 2c2994a0 authored by Daniel Wortmann's avatar Daniel Wortmann

Bugfixes found by using gfortran

parent e8f30e83
......@@ -98,8 +98,6 @@ CONTAINS
LOGICAL,OPTIONAL,INTENT(IN) :: realdata
!Locals
REAL :: time1
REAL :: time2
INTEGER :: ndim,err,n,nn,i,ndim1
LOGICAL :: parallel
CHARACTER(len=20)::f
......
......@@ -76,7 +76,6 @@ CONTAINS
!to select real/complex data
LOGICAL:: l_real
l_real=zMat%l_real
! IF (l_real.AND.PRESENT(a_c)) CALL juDFT_error("BUG in franza, call either with real OR complex data")
IF (l_real) THEN
......@@ -161,7 +160,6 @@ CONTAINS
ENDIF
ENDDO
nsize=nred
ENDIF
!-gu
! --> start with Cholesky factorization of b ( so that b = l * l^t)
......@@ -228,9 +226,9 @@ CONTAINS
ENDDO
ENDIF
IF (l_real) THEN
zMat%z_r = zz_r(:,:ne)
zMat%z_r(:,:ne) = zz_r(:,:ne)
ELSE
zMat%z_c = zz_c(:,:ne)
zMat%z_c(:,:ne) = zz_c(:,:ne)
END IF
!
IF (ne.GT.neigd) THEN
......
......@@ -253,7 +253,7 @@ CONTAINS
IF (.NOT.PRESENT(k2).OR..NOT.PRESENT(k3)) CALL juDFT_error("BUG: always read k1,k2,k3")
k1=d%eig_int(3+1:3+size(k1),nrec)
k2=d%eig_int(3+d%nmat+1:3+d%nmat+size(k1),nrec)
k3=d%eig_int(3+2*d%nmat+1:3+2*d%nmat*size(k1),nrec)
k3=d%eig_int(3+2*d%nmat+1:3+2*d%nmat+size(k1),nrec)
ENDIF
IF (PRESENT(kveclo)) kveclo=d%eig_int(4+3*d%nmat:3+3*d%nmat+SIZE(kveclo),nrec)
......
......@@ -381,7 +381,7 @@ MODULE m_xmlOutput
IMPLICIT NONE
CHARACTER(LEN= 30), INTENT(IN) :: contentList(:)
CHARACTER(LEN= *), INTENT(IN) :: contentList(:)
CHARACTER(LEN=200), INTENT(INOUT) :: contentLineList(:)
INTEGER, INTENT(IN) :: contentLineLength
INTEGER :: i, j
......
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