From 8c3e6378ed7611f479813ef9c780d2b2811a284b Mon Sep 17 00:00:00 2001
From: Erik Schnetter <schnetter@gmail.com>
Date: Sun, 20 Jan 2013 17:38:06 -0500
Subject: TestLoopControl: New thorn

---
 .../TestLoopControl/src/TestLoopFortran.F90        | 94 ++++++++++++++++++++++
 1 file changed, 94 insertions(+)
 create mode 100644 CarpetExtra/TestLoopControl/src/TestLoopFortran.F90

(limited to 'CarpetExtra/TestLoopControl/src/TestLoopFortran.F90')

diff --git a/CarpetExtra/TestLoopControl/src/TestLoopFortran.F90 b/CarpetExtra/TestLoopControl/src/TestLoopFortran.F90
new file mode 100644
index 000000000..9d9a8f7ad
--- /dev/null
+++ b/CarpetExtra/TestLoopControl/src/TestLoopFortran.F90
@@ -0,0 +1,94 @@
+#include "cctk.h"
+#include "cctk_Arguments.h"
+#include "cctk_Functions.h"
+#include "cctk_Parameters.h"
+
+#include "loopcontrol.h"
+
+
+
+subroutine TestLoopControlFortran_all(CCTK_ARGUMENTS)
+  implicit none
+  DECLARE_CCTK_ARGUMENTS
+  DECLARE_CCTK_FUNCTIONS
+  DECLARE_CCTK_PARAMETERS
+  
+  CCTK_LOOP3_ALL_DECLARE(all3)
+  integer   :: i,j,k
+  
+  call CCTK_INFO("TestLoopControlFortran_all")
+  fsum_all = 0
+  CCTK_LOOP3_ALL(all3, i,j,k)
+     fsum_all = fsum_all + r(i,j,k)
+  CCTK_ENDLOOP3_ALL(all3)
+end subroutine TestLoopControlFortran_all
+
+
+
+subroutine TestLoopControlFortran_int(CCTK_ARGUMENTS)
+  implicit none
+  DECLARE_CCTK_ARGUMENTS
+  DECLARE_CCTK_FUNCTIONS
+  DECLARE_CCTK_PARAMETERS
+  
+  CCTK_LOOP3_INT_DECLARE(int3)
+  integer   :: i,j,k
+  
+  call CCTK_INFO("TestLoopControlFortran_int")
+  fsum_int = 0
+  CCTK_LOOP3_INT(int3, i,j,k)
+     fsum_int = fsum_int + r(i,j,k)
+  CCTK_ENDLOOP3_INT(int3)
+end subroutine TestLoopControlFortran_int
+
+
+
+subroutine TestLoopControlFortran_bnd(CCTK_ARGUMENTS)
+  implicit none
+  DECLARE_CCTK_ARGUMENTS
+  DECLARE_CCTK_FUNCTIONS
+  DECLARE_CCTK_PARAMETERS
+  
+  CCTK_LOOP3_BND_DECLARE(bnd3)
+  integer   :: i,j,k
+  integer   :: ni,nj,nk
+  
+  call CCTK_INFO("TestLoopControlFortran_bnd")
+  fsum_bnd = 0
+  CCTK_LOOP3_BND(bnd3, i,j,k, ni,nj,nk)
+     fsum_bnd = fsum_bnd + r(i,j,k)
+  CCTK_ENDLOOP3_BND(bnd3)
+end subroutine TestLoopControlFortran_bnd
+
+
+
+subroutine TestLoopControlFortran_intbnd(CCTK_ARGUMENTS)
+  implicit none
+  DECLARE_CCTK_ARGUMENTS
+  DECLARE_CCTK_FUNCTIONS
+  DECLARE_CCTK_PARAMETERS
+  
+  CCTK_LOOP3_INTBND_DECLARE(intbnd3)
+  integer   :: i,j,k
+  integer   :: ni,nj,nk
+  
+  call CCTK_INFO("TestLoopControlFortran_intbnd")
+  fsum_intbnd = 0
+  CCTK_LOOP3_INTBND(intbnd3, i,j,k, ni,nj,nk)
+     fsum_intbnd = fsum_intbnd + r(i,j,k)
+  CCTK_ENDLOOP3_INTBND(intbnd3)
+end subroutine TestLoopControlFortran_intbnd
+
+
+
+subroutine TestLoopControlFortran(CCTK_ARGUMENTS)
+  implicit none
+  DECLARE_CCTK_ARGUMENTS
+  DECLARE_CCTK_FUNCTIONS
+  DECLARE_CCTK_PARAMETERS
+  
+  call TestLoopControlFortran_all(CCTK_PASS_FTOF)
+  call TestLoopControlFortran_int(CCTK_PASS_FTOF)
+  call TestLoopControlFortran_bnd(CCTK_PASS_FTOF)
+  call TestLoopControlFortran_intbnd(CCTK_PASS_FTOF)
+end subroutine TestLoopControlFortran
-- 
cgit v1.2.3