ABINIT Discussion Forums

Hello,

Is this a known problem in complete_gkk.F90?
It complains about these wrappers for allocate:

symmetrized_qpt(:) = -1

isppol=1

ABI_ALLOCATE(gkk_qpt_new,(2,elph_ds%ngkkband*elph_ds%ngkkband,elph_ds%nbranch*elph_ds%nbranch,elph_ds%k_phon%nkpt,elph_ds%nsppol))
ABI_ALLOCATE(gkk_qpt_tmp,(2,elph_ds%ngkkband*elph_ds%ngkkband,elph_ds%nbranch*elph_ds%nbranch,elph_ds%k_phon%nkpt,elph_ds%nsppol))


Does anybody where the wrapper is define?

abinit-6.12.1/tmp/fallbacks/exports/include -ffree-form -J/lus/scratch/cpsosa/csm/abinit-6.12.1/tmp/src/mods -O3 -c -o complete_gkk.o ../../../src/77_ddb/complete_gkk.F90
../../../src/77_ddb/complete_gkk.F90:119.127:

kkband,elph_ds%nbranch*elph_ds%nbranch,elph_ds%k_phon%nkpt,elph_ds%nsppol),stat=
1
Error: Allocate-object at (1) is not a nonprocedure pointer or an allocatable variable
../../../src/77_ddb/complete_gkk.F90:120.127:

kkband,elph_ds%nbranch*elph_ds%nbranch,elph_ds%k_phon%nkpt,elph_ds%nsppol),stat=
1
Error: Allocate-object at (1) is not a nonprocedure pointer or an allocatable variable
make[3]: *** [complete_gkk.o] Error 1
make[3]: Leaving directory `/lus/nid00030/cpsosa/csm/abinit-6.12.1/tmp/src/77_ddb'
make[2]: *** [all-recursive] Error 1
make[2]: Leaving directory `/lus/nid00030/cpsosa/csm/abinit-6.12.1/tmp/src'
make[1]: *** [all-recursive] Error 1
make[1]: Leaving directory `/lus/nid00030/cpsosa/csm/abinit-6.12.1/tmp'

It looks like the line is too long after expanding the macro: "the compiler is chopping the line" What flag do you use to avoid this?

isppol=1

allocate(gkk_qpt_new (2,elph_ds%ngkkband*elph_ds%ngkkband,elph_ds%nbranch*elph_ds%nbranch,elph_ds%k_phon%nkpt,elph_ds%nsppol),stat=ABI_ALLOC_STAT)
allocate(gkk_qpt_tmp (2,elph_ds%ngkkband*elph_ds%ngkkband,elph_ds%nbranch*elph_ds%nbranch,elph_ds%k_phon%nkpt,elph_ds%nsppol),stat=ABI_ALLOC_STAT)

Solved: Thanks to the Cray compiler developers.

Use: FCFLAGS_FREEFORM='-ffree-line-length-none'