diff options
| author | Erik Schnetter <schnetter@gmail.com> | 2013-01-21 11:05:32 -0500 |
|---|---|---|
| committer | Erik Schnetter <schnetter@gmail.com> | 2013-01-21 11:05:32 -0500 |
| commit | 74b1afeaf084016e59c847867424ae38248941ce (patch) | |
| tree | 5cdea6957f295d3e0d5d8410489674a4db88766c /CarpetExtra | |
| parent | 8c3e6378ed7611f479813ef9c780d2b2811a284b (diff) | |
TestLoopControl: Use module loopcontrol
Diffstat (limited to 'CarpetExtra')
| -rw-r--r-- | CarpetExtra/TestLoopControl/src/TestLoopFortran.F90 | 17 |
1 files changed, 11 insertions, 6 deletions
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 |