diff options
Diffstat (limited to 'src/cctk_IO.F90')
-rw-r--r-- | src/cctk_IO.F90 | 50 |
1 files changed, 50 insertions, 0 deletions
diff --git a/src/cctk_IO.F90 b/src/cctk_IO.F90 new file mode 100644 index 0000000..c6a65a8 --- /dev/null +++ b/src/cctk_IO.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_IO.h + @enddesc + @version $Header$ +@@*/ + +#include "cctk.h" + +module cctk_IO + implicit none + + interface + + subroutine CCTK_OutputGH (ierr, GH) + implicit none + integer ierr + CCTK_POINTER_TO_CONST GH + end subroutine CCTK_OutputGH + + subroutine CCTK_OutputVarAs (ierr, GH, var, alias) + implicit none + integer ierr + CCTK_POINTER_TO_CONST GH + character(*) var + character(*) alias + end subroutine CCTK_OutputVarAs + + subroutine CCTK_OutputVar (ierr, GH, var) + implicit none + integer ierr + CCTK_POINTER_TO_CONST GH + character(*) var + end subroutine CCTK_OutputVar + + subroutine CCTK_OutputVarByMethod (ierr, GH, var, method) + implicit none + integer ierr + CCTK_POINTER_TO_CONST GH + character(*) var + character(*) method + end subroutine CCTK_OutputVarByMethod + + end interface + +end module cctk_Groups |