search

ternaus / quest-qmc

Automatically exported from code.google.com/p/quest-qmc
2 stars 11 forks source link

I get an error when I compile QUEST with current-current correltion at PUMA #56

Closed GoogleCodeExporter closed 9 years ago

GoogleCodeExporter commented 9 years ago 
I get this error message only when I compile the code at the PUMA cluster, and 
not other computer, for example JAGUAR is fine.

May be it is related to the old gcc version:

gcc version 4.4.7 20120313 (Red Hat 4.4.7-4)

icpc 14.0.1
ifort 14.0.1

dqmc_tdm1.F90 that calculates current-current correlation function attached.

----

ifort -m64 -warn all -O3 -unroll   -DDQMC_CKB    -c dqmc_mpi.F90
ifort -m64 -warn all -O3 -unroll   -DDQMC_CKB    -c dqmc_util.F90
ifort -m64 -warn all -O3 -unroll   -DDQMC_CKB    -c dqmc_cfg.F90
ifort -m64 -warn all -O3 -unroll   -DDQMC_CKB    -c dqmc_geom_param.F90
ifort -m64 -warn all -O3 -unroll   -DDQMC_CKB    -c dqmc_latt.F90
ifort -m64 -warn all -O3 -unroll   -DDQMC_CKB    -c dqmc_bonds.F90
ifort -m64 -warn all -O3 -unroll   -DDQMC_CKB    -c dqmc_reclatt.F90
ifort -m64 -warn all -O3 -unroll   -DDQMC_CKB    -c dqmc_hamilt.F90
ifort -m64 -warn all -O3 -unroll   -DDQMC_CKB    -c dqmc_symm.F90
ifort -m64 -warn all -O3 -unroll   -DDQMC_CKB    -c dqmc_wspace.F90
ifort -m64 -warn all -O3 -unroll   -DDQMC_CKB    -c dqmc_struct.F90
ifort -m64 -warn all -O3 -unroll   -DDQMC_CKB    -c dqmc_geom_wrap.F90
ifort -m64 -warn all -O3 -unroll   -DDQMC_CKB    -c dqmc_checkerboard.F90
ifort -m64 -warn all -O3 -unroll   -DDQMC_CKB    -c dqmc_seqb.F90
ifort -m64 -warn all -O3 -unroll   -DDQMC_CKB    -c dqmc_gfun.F90
ifort -m64 -warn all -O3 -unroll   -DDQMC_CKB    -c dqmc_phy0.F90
ifort -m64 -warn all -O3 -unroll   -DDQMC_CKB    -c dqmc_phy2.F90
ifort -m64 -warn all -O3 -unroll   -DDQMC_CKB    -c dqmc_hubbard.F90
ifort -m64 -warn all -O3 -unroll   -DDQMC_CKB    -c dqmc_gtau.F90
ifort -m64 -warn all -O3 -unroll   -DDQMC_CKB    -c dqmc_tdm1.F90
dqmc_tdm1.F90(1344): error #5082: Syntax error, found END-OF-STATEMENT when 
expecting one of: ( % [ : . = =>
au
--^
dqmc_tdm1.F90(1365): error #6235: Executable statements are invalid within the 
BLOCK DATA unit.
    if (.not.T1%compute) return
----^
dqmc_tdm1.F90(1345): error #6849: This attribute specification is not valid in 
a BLOCK DATA program unit.   [INTENT]
    integer, intent(in)       :: OPT
-------------^
dqmc_tdm1.F90(1347): error #6683: A kind type parameter must be a compile-time 
constant.   [WP]
    real(wp),    allocatable  :: g0tau(:,:), tdmg0(:,:)
---------^
dqmc_tdm1.F90(1347): error #6849: This attribute specification is not valid in 
a BLOCK DATA program unit.   [ALLOCATABLE]
    real(wp),    allocatable  :: g0tau(:,:), tdmg0(:,:)
-----------------^
dqmc_tdm1.F90(1348): error #6683: A kind type parameter must be a compile-time 
constant.   [WP]
    complex(wp), allocatable  :: tdmg0k(:,:), tdmgk(:,:)
------------^
dqmc_tdm1.F90(1348): error #6849: This attribute specification is not valid in 
a BLOCK DATA program unit.   [ALLOCATABLE]
    complex(wp), allocatable  :: tdmg0k(:,:), tdmgk(:,:)
-----------------^
dqmc_tdm1.F90(1349): error #6683: A kind type parameter must be a compile-time 
constant.   [WP]
    complex(wp), allocatable  :: tdmg0kw(:,:,:), tdmgkw(:,:,:)
------------^
dqmc_tdm1.F90(1349): error #6849: This attribute specification is not valid in 
a BLOCK DATA program unit.   [ALLOCATABLE]
    complex(wp), allocatable  :: tdmg0kw(:,:,:), tdmgkw(:,:,:)
-----------------^
dqmc_tdm1.F90(1350): error #6683: A kind type parameter must be a compile-time 
constant.   [WP]
    complex(wp), allocatable  :: avgSE(:,:,:), errSE(:,:,:), binSE(:,:,:)
------------^
dqmc_tdm1.F90(1350): error #6849: This attribute specification is not valid in 
a BLOCK DATA program unit.   [ALLOCATABLE]
    complex(wp), allocatable  :: avgSE(:,:,:), errSE(:,:,:), binSE(:,:,:)
-----------------^
dqmc_tdm1.F90(1355): error #6683: A kind type parameter must be a compile-time 
constant.   [WP]
    complex(wp), pointer :: ftk(:,:), ftw(:,:)
------------^
dqmc_tdm1.F90(1357): error #6683: A kind type parameter must be a compile-time 
constant.   [WP]
    complex(wp)          :: tmp(T1%L,2)
------------^
dqmc_tdm1.F90(1357): warning #6717: This name has not been given an explicit 
type.   [T1]
    complex(wp)          :: tmp(T1%L,2)
--------------------------------^
dqmc_tdm1.F90(1357): error #6158: The structure-name is invalid or is missing.
    complex(wp)          :: tmp(T1%L,2)
--------------------------------^
dqmc_tdm1.F90(1358): error #6158: The structure-name is invalid or is missing.
    character(len=10)    :: label(T1%L)
----------------------------------^
dqmc_tdm1.F90(1361): error #6592: This symbol must be a defined parameter, an 
enumerator, or an argument of an inquiry function that evaluates to a 
compile-time constant.   [IGFUN]
    integer, parameter  :: gflist(3) = (/IGFUN, IGFUP, IGFDN/)
-----------------------------------------^
dqmc_tdm1.F90(1361): warning #6717: This name has not been given an explicit 
type.   [IGFUN]
    integer, parameter  :: gflist(3) = (/IGFUN, IGFUP, IGFDN/)
-----------------------------------------^
dqmc_tdm1.F90(1362): error #6592: This symbol must be a defined parameter, an 
enumerator, or an argument of an inquiry function that evaluates to a 
compile-time constant.   [TAU_UP]
    integer, parameter  :: splist(3) = (/  0, TAU_UP, TAU_DN/)
----------------------------------------------^
dqmc_tdm1.F90(1362): warning #6717: This name has not been given an explicit 
type.   [TAU_UP]
    integer, parameter  :: splist(3) = (/  0, TAU_UP, TAU_DN/)
----------------------------------------------^
dqmc_tdm1.F90(1363): error #6683: A kind type parameter must be a compile-time 
constant.   [WP]
    real(wp), parameter :: pi = 3.1415926535898
---------^
dqmc_tdm1.F90(1490): error #6683: A kind type parameter must be a compile-time 
constant.   [WP]
          complex(wp), intent(in)  :: tdmgtau(npp, 0:L-1)
------------------^
dqmc_tdm1.F90(1490): error #6849: This attribute specification is not valid in 
a BLOCK DATA program unit.   [INTENT]
          complex(wp), intent(in)  :: tdmgtau(npp, 0:L-1)
-----------------------^
dqmc_tdm1.F90(1491): error #6683: A kind type parameter must be a compile-time 
constant.   [WP]
          complex(wp), intent(out) :: tdmgw(np, np, 0:L-1)
------------------^
dqmc_tdm1.F90(1491): error #6849: This attribute specification is not valid in 
a BLOCK DATA program unit.   [INTENT]
          complex(wp), intent(out) :: tdmgw(np, np, 0:L-1)
-----------------------^
dqmc_tdm1.F90(1493): error #6683: A kind type parameter must be a compile-time 
constant.   [WP]
          complex(wp) :: valuetl(0:L-1), valuewl(0:L-1)
------------------^
dqmc_tdm1.F90(1495): error #6683: A kind type parameter must be a compile-time 
constant.   [WP]
          complex(wp), parameter :: unum=(1.0_wp,0.0_wp), nil=(0.0_wp,0.0_wp)
------------------^
dqmc_tdm1.F90(1495): warning #6717: This name has not been given an explicit 
type.   [WP]
          complex(wp), parameter :: unum=(1.0_wp,0.0_wp), nil=(0.0_wp,0.0_wp)
---------------------------------------------^
dqmc_tdm1.F90(1495): error #6975: A kind-param must be a digit-string or a 
scalar-int-constant-name   [WP]
          complex(wp), parameter :: unum=(1.0_wp,0.0_wp), nil=(0.0_wp,0.0_wp)
---------------------------------------------^
dqmc_tdm1.F90(1495): error #6975: A kind-param must be a digit-string or a 
scalar-int-constant-name   [WP]
          complex(wp), parameter :: unum=(1.0_wp,0.0_wp), nil=(0.0_wp,0.0_wp)
----------------------------------------------------^
dqmc_tdm1.F90(1495): error #6975: A kind-param must be a digit-string or a 
scalar-int-constant-name   [WP]
          complex(wp), parameter :: unum=(1.0_wp,0.0_wp), nil=(0.0_wp,0.0_wp)
------------------------------------------------------------------^
dqmc_tdm1.F90(1495): error #6975: A kind-param must be a digit-string or a 
scalar-int-constant-name   [WP]
          complex(wp), parameter :: unum=(1.0_wp,0.0_wp), nil=(0.0_wp,0.0_wp)
-------------------------------------------------------------------------^
/tmp/ifortG0pgFx.i90(1505): catastrophic error: Too many errors, exiting
compilation aborted for dqmc_tdm1.F90 (code 1)
make[1]: *** [dqmc_tdm1.o] Error 1

Original issue reported on code.google.com by iglovi...@gmail.com on 18 Oct 2014 at 1:24

Attachments:

GoogleCodeExporter commented 9 years ago 
In the attached dqmc_tdm1.F90, part of the code got truncated (near line 1344).
I am not sure why that happened, but that's what caused the issue.

Original comment by cxc639 on 20 Oct 2014 at 9:33

GoogleCodeExporter commented 9 years ago

Original comment by iglovi...@gmail.com on 24 Oct 2014 at 4:46