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

20 Sep 2011

User: eschnett
Date: 2011/09/20 03:16 PM
Modified:
 /trunk/src/
  NullSHRE_Pointing.F90
Log:
 Declare explicit interfaces for subroutines using the target attribute
File Changes:
Directory: /trunk/src/
======================
File [modified]: NullSHRE_Pointing.F90
Delta lines: +29 -1
===================================================================

--- trunk/src/NullSHRE_Pointing.F90	2011-08-25 12:49:30 UTC (rev 4)
+++ trunk/src/NullSHRE_Pointing.F90	2011-09-20 20:16:58 UTC (rev 5)
@@ -135,7 +135,7 @@
   w_l_n%d => w_l(:,:,1)
   w_l_s%d => w_l(:,:,2)
-  if (first_call) first_call = .false.
+  first_call = .false.
contains
@@ -157,6 +157,20 @@
   DECLARE_CCTK_PARAMETERS
+  interface
+     subroutine NullSHRE_Pointing (CCTK_ARGUMENTS)
+       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
+     end subroutine NullSHRE_Pointing
+  end interface
+
+
   call NullSHRE_Pointing(CCTK_PASS_FTOF)
alpha_n%d => SHRE_alpha_p(:,:,1)
@@ -215,6 +229,20 @@
   DECLARE_CCTK_PARAMETERS
+  interface
+     subroutine NullSHRE_Pointing (CCTK_ARGUMENTS)
+       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
+     end subroutine NullSHRE_Pointing
+  end interface
+
+
   call NullSHRE_Pointing(CCTK_PASS_FTOF)
alpha_n%d => SHRE_alpha_p_p(:,:,1)

    