aboutsummaryrefslogtreecommitdiff
path: root/src/cctk_Sync.F90
diff options
context:
space:
mode:
Diffstat (limited to 'src/cctk_Sync.F90')
-rw-r--r--src/cctk_Sync.F9050
1 files changed, 50 insertions, 0 deletions
diff --git a/src/cctk_Sync.F90 b/src/cctk_Sync.F90
new file mode 100644
index 0000000..d4ed01c
--- /dev/null
+++ b/src/cctk_Sync.F90
@@ -0,0 +1,50 @@
+/*@@
+ @file $RCSfile$
+ @author $Author$
+ @date $Date$
+ @desc
+ Fortran 90 interface declarations for the routines
+ which have their C declarations in cctk_Sync.h
+ @enddesc
+ @version $Header$
+@@*/
+
+#include "cctk.h"
+
+module cctk_Sync
+ implicit none
+
+ interface
+
+ subroutine CCTK_SyncGroupI (ierr, cctkGH, group)
+ implicit none
+ integer ierr
+ CCTK_POINTER_TO_CONST cctkGH
+ integer group
+ end subroutine CCTK_SyncGroupI
+
+ subroutine CCTK_SyncGroupWithVar (ierr, cctkGH, varname)
+ implicit none
+ integer ierr
+ CCTK_POINTER_TO_CONST cctkGH
+ character(*) varname
+ end subroutine CCTK_SyncGroupWithVar
+
+ subroutine CCTK_SyncGroupWithVarI (ierr, cctkGH, var)
+ implicit none
+ integer ierr
+ CCTK_POINTER_TO_CONST cctkGH
+ integer var
+ end subroutine CCTK_SyncGroupWithVarI
+
+ subroutine CCTK_SyncGroups (ierr, cctkGH, n_groups, groups)
+ implicit none
+ integer ierr
+ CCTK_POINTER_TO_CONST cctkGH
+ integer n_groups
+ integer groups(n_groups)
+ end subroutine CCTK_SyncGroups
+
+ end interface
+
+end module cctk_Sync