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'
[SOLVED]Error: Allocate-object is not a nonprocedure pointer
Moderators: fgoudreault, mcote
Forum rules
Please have a look at ~abinit/doc/config/build-config.ac in the source package for detailed and up-to-date information about the configuration of Abinit 8 builds.
For a video explanation on how to build Abinit 7.x for Linux, please go to: http://www.youtube.com/watch?v=DppLQ-KQA68.
IMPORTANT: when an answer solves your problem, please check the little green V-like button on its upper-right corner to accept it.
Please have a look at ~abinit/doc/config/build-config.ac in the source package for detailed and up-to-date information about the configuration of Abinit 8 builds.
For a video explanation on how to build Abinit 7.x for Linux, please go to: http://www.youtube.com/watch?v=DppLQ-KQA68.
IMPORTANT: when an answer solves your problem, please check the little green V-like button on its upper-right corner to accept it.
Re: Error: Allocate-object at (1) is not a nonprocedure poin
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)
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)
Re: Error: Allocate-object at (1) is not a nonprocedure poin
Solved: Thanks to the Cray compiler developers.
Use: FCFLAGS_FREEFORM='-ffree-line-length-none'
Use: FCFLAGS_FREEFORM='-ffree-line-length-none'