[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