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)