[Commits] [svn:einsteintoolkit] incoming/PITTNullCode/ (Rev. 54)

[yosef at astro.rit.edu]

User: zlochower
Date: 2011/08/09 12:55 PM

Modified:
 /PITTNullCode/NullDecomp/src/
  Startup.F90
 /PITTNullCode/NullExact/src/
  NullExact_MoLRegister.c
 /PITTNullCode/NullGrid/src/
  NullGrid_Setup.F90
 /PITTNullCode/NullPsiInt/src/
  NullPsiInt_MoLRegister.c
 /PITTNullCode/NullSHRExtract/src/
  NullSHRE_Pointing.F90
 /PITTNullCode/SphericalHarmonicDecomp/doc/
  documentation.tex

Log:
 -- fixes so that the code compiles with gfortran.
   -- fixed function prototypes for scheduled functions

File Changes:

Directory: /PITTNullCode/SphericalHarmonicDecomp/doc/
=====================================================

File [modified]: documentation.tex
Delta lines: +1 -1
===================================================================
--- PITTNullCode/SphericalHarmonicDecomp/doc/documentation.tex	2011-08-05 12:37:09 UTC (rev 53)
+++ PITTNullCode/SphericalHarmonicDecomp/doc/documentation.tex	2011-08-09 17:55:57 UTC (rev 54)
@@ -160,7 +160,7 @@
 in radius. Minimally, we would need the number of angular points to be
 equal to the number of angular spectral functions $\ell^2 + 2\ell$,
 in this case we have many more angular modes ($41*82$) than angular
-spectral functions. Similarly num\_\x\_points must be greater than
+spectral functions. Similarly num\_x\_points must be greater than
 num\_n\_modes. The number of n modes is set by the need to accurately
 model the radial derivative of the mertric functions in the spherical
 shell. The larger the difference between EM\_Rin[] and EM\_Rout[] the

Directory: /PITTNullCode/NullDecomp/src/
========================================

File [modified]: Startup.F90
Delta lines: +2 -1
===================================================================
--- PITTNullCode/NullDecomp/src/Startup.F90	2011-08-05 12:37:09 UTC (rev 53)
+++ PITTNullCode/NullDecomp/src/Startup.F90	2011-08-09 17:55:57 UTC (rev 54)
@@ -17,10 +17,11 @@
     CCTK_INT :: l, m
     CCTK_INT :: two = 2
 
+    TARGET:: area, kern
+
     DECLARE_CCTK_FUNCTIONS
     DECLARE_CCTK_ARGUMENTS
 
-    TARGET:: area, kern
 
     DECLARE_CCTK_PARAMETERS
 

Directory: /PITTNullCode/NullExact/src/
=======================================

File [modified]: NullExact_MoLRegister.c
Delta lines: +2 -2
===================================================================
--- PITTNullCode/NullExact/src/NullExact_MoLRegister.c	2011-08-05 12:37:09 UTC (rev 53)
+++ PITTNullCode/NullExact/src/NullExact_MoLRegister.c	2011-08-09 17:55:57 UTC (rev 54)
@@ -13,9 +13,9 @@
 
 static const char *rcsid = "$Header$";
 
-int NullExact_MoLRegister(CCTK_ARGUMENTS);
+void NullExact_MoLRegister(CCTK_ARGUMENTS);
 
-int NullExact_MoLRegister(CCTK_ARGUMENTS)
+void NullExact_MoLRegister(CCTK_ARGUMENTS)
 {
 
   DECLARE_CCTK_ARGUMENTS;

Directory: /PITTNullCode/NullGrid/src/
======================================

File [modified]: NullGrid_Setup.F90
Delta lines: +4 -3
===================================================================
--- PITTNullCode/NullGrid/src/NullGrid_Setup.F90	2011-08-05 12:37:09 UTC (rev 53)
+++ PITTNullCode/NullGrid/src/NullGrid_Setup.F90	2011-08-09 17:55:57 UTC (rev 54)
@@ -9,12 +9,13 @@
     use NullGrid_Vars
     implicit none
 
+    TARGET :: null_xb, null_xbh, stereo_q, stereo_p, stereo_pp, zeta, guard_mask, EG_mask,&
+       null_rb, null_rbh
+
+
     DECLARE_CCTK_ARGUMENTS
     DECLARE_CCTK_PARAMETERS
 
-    target :: null_xb, null_xbh, stereo_q, stereo_p, stereo_pp, zeta, guard_mask, EG_mask,&
-       null_rb, null_rbh
-
     gsh = null_gsh
     lsh = null_lsh
 

Directory: /PITTNullCode/NullPsiInt/src/
========================================

File [modified]: NullPsiInt_MoLRegister.c
Delta lines: +2 -2
===================================================================
--- PITTNullCode/NullPsiInt/src/NullPsiInt_MoLRegister.c	2011-08-05 12:37:09 UTC (rev 53)
+++ PITTNullCode/NullPsiInt/src/NullPsiInt_MoLRegister.c	2011-08-09 17:55:57 UTC (rev 54)
@@ -13,9 +13,9 @@
 
 static const char *rcsid = "$Header$";
 
-int NullPsiInt_MoLRegister(CCTK_ARGUMENTS);
+void NullPsiInt_MoLRegister(CCTK_ARGUMENTS);
 
-int NullPsiInt_MoLRegister(CCTK_ARGUMENTS)
+void NullPsiInt_MoLRegister(CCTK_ARGUMENTS)
 {
 
   DECLARE_CCTK_ARGUMENTS;

Directory: /PITTNullCode/NullSHRExtract/src/
============================================

File [modified]: NullSHRE_Pointing.F90
Delta lines: +11 -8
===================================================================
--- PITTNullCode/NullSHRExtract/src/NullSHRE_Pointing.F90	2011-08-05 12:37:09 UTC (rev 53)
+++ PITTNullCode/NullSHRExtract/src/NullSHRE_Pointing.F90	2011-08-09 17:55:57 UTC (rev 54)
@@ -8,10 +8,6 @@
   use NullSHRE_modVars
   implicit none
 
-  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 
@@ -19,6 +15,11 @@
   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
+ 
   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)