From 74b1afeaf084016e59c847867424ae38248941ce Mon Sep 17 00:00:00 2001 From: Erik Schnetter Date: Mon, 21 Jan 2013 11:05:32 -0500 Subject: TestLoopControl: Use module loopcontrol --- CarpetExtra/TestLoopControl/src/TestLoopFortran.F90 | 17 +++++++++++------ 1 file changed, 11 insertions(+), 6 deletions(-) (limited to 'CarpetExtra') diff --git a/CarpetExtra/TestLoopControl/src/TestLoopFortran.F90 b/CarpetExtra/TestLoopControl/src/TestLoopFortran.F90 index 9d9a8f7ad..e421ae940 100644 --- a/CarpetExtra/TestLoopControl/src/TestLoopFortran.F90 +++ b/CarpetExtra/TestLoopControl/src/TestLoopFortran.F90 @@ -8,13 +8,14 @@ subroutine TestLoopControlFortran_all(CCTK_ARGUMENTS) + use loopcontrol implicit none DECLARE_CCTK_ARGUMENTS DECLARE_CCTK_FUNCTIONS DECLARE_CCTK_PARAMETERS CCTK_LOOP3_ALL_DECLARE(all3) - integer :: i,j,k + integer :: i,j,k call CCTK_INFO("TestLoopControlFortran_all") fsum_all = 0 @@ -26,13 +27,14 @@ end subroutine TestLoopControlFortran_all subroutine TestLoopControlFortran_int(CCTK_ARGUMENTS) + use loopcontrol implicit none DECLARE_CCTK_ARGUMENTS DECLARE_CCTK_FUNCTIONS DECLARE_CCTK_PARAMETERS CCTK_LOOP3_INT_DECLARE(int3) - integer :: i,j,k + integer :: i,j,k call CCTK_INFO("TestLoopControlFortran_int") fsum_int = 0 @@ -44,14 +46,15 @@ end subroutine TestLoopControlFortran_int subroutine TestLoopControlFortran_bnd(CCTK_ARGUMENTS) + use loopcontrol implicit none DECLARE_CCTK_ARGUMENTS DECLARE_CCTK_FUNCTIONS DECLARE_CCTK_PARAMETERS CCTK_LOOP3_BND_DECLARE(bnd3) - integer :: i,j,k - integer :: ni,nj,nk + integer :: i,j,k + integer :: ni,nj,nk call CCTK_INFO("TestLoopControlFortran_bnd") fsum_bnd = 0 @@ -63,14 +66,15 @@ end subroutine TestLoopControlFortran_bnd subroutine TestLoopControlFortran_intbnd(CCTK_ARGUMENTS) + use loopcontrol implicit none DECLARE_CCTK_ARGUMENTS DECLARE_CCTK_FUNCTIONS DECLARE_CCTK_PARAMETERS CCTK_LOOP3_INTBND_DECLARE(intbnd3) - integer :: i,j,k - integer :: ni,nj,nk + integer :: i,j,k + integer :: ni,nj,nk call CCTK_INFO("TestLoopControlFortran_intbnd") fsum_intbnd = 0 @@ -82,6 +86,7 @@ end subroutine TestLoopControlFortran_intbnd subroutine TestLoopControlFortran(CCTK_ARGUMENTS) + use loopcontrol implicit none DECLARE_CCTK_ARGUMENTS DECLARE_CCTK_FUNCTIONS -- cgit v1.2.3