Commit cf2c1e13 authored by Gregor Michalicek's avatar Gregor Michalicek

Replaced POINTER with ALLOCATABLE for z_r and z_c in types.F90

The temporary change to POINTER lead to the error:

/usr/users/iff_th1/micha/FLEUR-git-repo/fleur/cdn/cdnval.F90(525): error #6547: The ARRAY argument of the ALLOCATED inquiry intrinsic function shall be an allocatable array.   [Z_R]
             IF (.NOT.ALLOCATED(zMat%z_r)) THEN
-------------------------------------^
/usr/users/iff_th1/micha/FLEUR-git-repo/fleur/cdn/cdnval.F90(540): error #6547: The ARRAY argument of the ALLOCATED inquiry intrinsic function shall be an allocatable array.   [Z_C]
             IF (.NOT.ALLOCATED(zMat%z_c)) THEN
-------------------------------------^
compilation aborted for /usr/users/iff_th1/micha/FLEUR-git-repo/fleur/cdn/cdnval.F90 (code 1)
parent 24653086
......@@ -759,8 +759,8 @@
LOGICAL :: l_real
INTEGER :: nbasfcn
INTEGER :: nbands
REAL, POINTER :: z_r(:,:) ! z_r(nbasfcn,nbands)
COMPLEX, POINTER :: z_c(:,:) ! z_c(nbasfcn,nbands)
REAL, ALLOCATABLE :: z_r(:,:) ! z_r(nbasfcn,nbands)
COMPLEX, ALLOCATABLE :: z_c(:,:) ! z_c(nbasfcn,nbands)
END TYPE
TYPE t_hamOvlp
......
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