[Commits] [svn:einsteintoolkit] NullSHRExtract/trunk/src/ (Rev. 4)

[yosef at astro.rit.edu]

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)