diff options
author | schnetter <schnetter@51d2df92-0e4f-0410-a727-bd43d766d6b6> | 2005-04-16 15:30:37 +0000 |
---|---|---|
committer | schnetter <schnetter@51d2df92-0e4f-0410-a727-bd43d766d6b6> | 2005-04-16 15:30:37 +0000 |
commit | 8a3fd1c16ff51bdcb96f8434d1cc2bcfcbf4f770 (patch) | |
tree | 3a1f76b56cbc8ab230efa37368a7671612bd54f7 /src/cctk_Sync.F90 | |
parent | 3b60528507a27432ede15bb169288e80f50ba647 (diff) |
Add more Fortran interfaces
git-svn-id: http://svn.cactuscode.org/arrangements/CactusBase/Fortran/trunk@27 51d2df92-0e4f-0410-a727-bd43d766d6b6
Diffstat (limited to 'src/cctk_Sync.F90')
-rw-r--r-- | src/cctk_Sync.F90 | 50 |
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 |