Commit 1e25f5e8 authored by Gregor Michalicek's avatar Gregor Michalicek

Reverted initialization of fg2 arrau in fft2d to previous approach

The error

forrtl: severe (408): fort: (2): Subscript #2 of the array FGXY has value 34 which is greater than the upper bound of 33

Image              PC                Routine            Line        Source
fleur              000000000197775A  Unknown               Unknown  Unknown
fleur              0000000001976256  Unknown               Unknown  Unknown
fleur              00000000019200C0  Unknown               Unknown  Unknown
fleur              00000000018A8A5F  Unknown               Unknown  Unknown
fleur              00000000018A8F81  Unknown               Unknown  Unknown
fleur              0000000000DD50A2  m_fft2d_mp_fft2d_          47  fft2d.F90
fleur              0000000001264290  m_vvacxcg_mp_vvac         257  vvacxcg.f90
fleur              00000000007C8301  m_vgen_mp_vgen_           547  vgen.F90
fleur              00000000004077E3  m_fleur_mp_fleur_         406  fleur.F90
fleur              0000000000794AF2  m_fleur_jobs_mp_f         170  fleur_job.F90
fleur              0000000000794FF0  MAIN__                    238  fleur_job.F90
fleur              00000000004061DC  Unknown               Unknown  Unknown
libc.so.6          000000368A01D9F4  Unknown               Unknown  Unknown
fleur              00000000004060E9  Unknown               Unknown  Unknown

was thrown.
parent 5acbc10d
......@@ -19,6 +19,7 @@ CONTAINS
!* stars%pgfft2(i) contains the phases of the G-vectors of sph. *
!* *
!*************************************************************
#include"cpp_double.h"
USE m_cfft
USE m_types
IMPLICIT NONE
......@@ -43,8 +44,8 @@ CONTAINS
! ---> put stars onto the fft-grid
!
fg2(1) = CMPLX(fg,fgi)
!CALL CPP_BLAS_ccopy(stars%ng2-1,fgxy,stride,fg2(2),1)
fg2(2:)=fgxy(1,:)
CALL CPP_BLAS_ccopy(stars%ng2-1,fgxy,stride,fg2(2),1)
!fg2(2:)=fgxy(1,:)
afft2=0.0
bfft2=0.0
IF (PRESENT(gfxy)) THEN
......
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