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

schnetter at cct.lsu.edu schnetter at cct.lsu.edu
Tue Sep 20 15:16:58 CDT 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)



More information about the Commits mailing list