User: zlochower Date: 2011/08/25 07:49 AM

Modified: /trunk/src/ NullSHRE_Pointing.F90

Log: Fixes for gnu compilers. Target needs to be before array declaration.

File Changes:

Directory: /trunk/src/ ======================

File [modified]: NullSHRE_Pointing.F90 Delta lines: +14 -11 =================================================================== --- trunk/src/NullSHRE_Pointing.F90 2011-08-25 12:38:16 UTC (rev 3) +++ trunk/src/NullSHRE_Pointing.F90 2011-08-25 12:49:30 UTC (rev 4) @@ -8,17 +8,18 @@ use NullSHRE_modVars implicit none

+ TARGET :: SHRE_alpha + TARGET :: SHRE_dralpha, SHRE_dqalpha, SHRE_dpalpha, SHRE_dtalpha + TARGET :: WT_detg, WT_temp, WT_sigma2, WT_elld, WT_r0, WT_r1 + TARGET :: WT_r1_p, WT_r1_p_p + TARGET :: qa_2, qa_3, x_wt, j_wt, j_l + TARGET :: beta_wt, beta_l, u_wt, u_l, q_wt, w_wt, w_l + + DECLARE_CCTK_ARGUMENTS DECLARE_CCTK_PARAMETERS CCTK_INT :: i, j

- target :: SHRE_alpha - target :: SHRE_dralpha, SHRE_dqalpha, SHRE_dpalpha, SHRE_dtalpha - target :: WT_detg, WT_temp, WT_sigma2, WT_elld, WT_r0, WT_r1 - target :: WT_r1_p, WT_r1_p_p - target :: qa_2, qa_3, x_wt, j_wt, j_l - target :: beta_wt, beta_l, u_wt, u_l, q_wt, w_wt, w_l - logical, save :: first_call = .true. if (first_call) call nullify_all

@@ -149,11 +150,12 @@ use NullSHRE_modVars implicit none

+ TARGET :: SHRE_alpha_p, WT_r1_p + TARGET :: SHRE_dralpha_p, SHRE_dqalpha_p, SHRE_dpalpha_p, SHRE_dtalpha_p + DECLARE_CCTK_ARGUMENTS DECLARE_CCTK_PARAMETERS

- target :: SHRE_alpha_p, WT_r1_p - target :: SHRE_dralpha_p, SHRE_dqalpha_p, SHRE_dpalpha_p, SHRE_dtalpha_p

call NullSHRE_Pointing(CCTK_PASS_FTOF)

@@ -206,11 +208,12 @@ use NullSHRE_modVars implicit none

+ TARGET :: SHRE_alpha_p_p, WT_r1_p_p + TARGET :: SHRE_dralpha_p_p, SHRE_dqalpha_p_p, SHRE_dpalpha_p_p, SHRE_dtalpha_p_p + DECLARE_CCTK_ARGUMENTS DECLARE_CCTK_PARAMETERS

- target :: SHRE_alpha_p_p, WT_r1_p_p - target :: SHRE_dralpha_p_p, SHRE_dqalpha_p_p, SHRE_dpalpha_p_p, SHRE_dtalpha_p_p

call NullSHRE_Pointing(CCTK_PASS_FTOF)