diff options
Diffstat (limited to 'src/cctk_IOMethods.F90')
-rw-r--r-- | src/cctk_IOMethods.F90 | 73 |
1 files changed, 73 insertions, 0 deletions
diff --git a/src/cctk_IOMethods.F90 b/src/cctk_IOMethods.F90 new file mode 100644 index 0000000..bbfbc57 --- /dev/null +++ b/src/cctk_IOMethods.F90 @@ -0,0 +1,73 @@ +/*@@ + @file $RCSfile$ + @author $Author$ + @date $Date$ + @desc + Fortran 90 interface declarations for the routines + which have their C declarations in cctk_IOMethods.h + @enddesc + @version $Header$ +@@*/ + +#include "cctk.h" + +module cctk_IOMethods + implicit none + + interface + + subroutine CCTKi_RegisterIOMethod (ierr, thorn, name) + implicit none + integer ierr + character(*) thorn + character(*) name + end subroutine CCTKi_RegisterIOMethod + + subroutine CCTK_RegisterIOMethodOutputGH (ierr, handle, OutputGH) + implicit none + integer ierr + integer handle + CCTK_FPOINTER OutputGH + end subroutine CCTK_RegisterIOMethodOutputGH + + subroutine CCTK_RegisterIOMethodTimeToOutput (ierr, handle, TimeToOutput) + implicit none + integer ierr + integer handle + CCTK_FPOINTER TimeToOutput + end subroutine CCTK_RegisterIOMethodTimeToOutput + + subroutine CCTK_RegisterIOMethodTriggerOutput (ierr, handle, TriggerOutput) + implicit none + integer ierr + integer handle + CCTK_FPOINTER TriggerOutput + end subroutine CCTK_RegisterIOMethodTriggerOutput + + subroutine CCTK_RegisterIOMethodOutputVarAs (ierr, handle, OutputVarAs) + implicit none + integer ierr + integer handle + CCTK_FPOINTER OutputVarAs + end subroutine CCTK_RegisterIOMethodOutputVarAs + + subroutine CCTK_IOMethodImplementation (imp, handle) + implicit none + character(*) imp + integer handle + end subroutine CCTK_IOMethodImplementation + + subroutine CCTK_IOMethod (method, handle) + implicit none + character(*) method + integer handle + end subroutine CCTK_IOMethod + + subroutine CCTK_NumIOMethods (num) + implicit none + integer num + end subroutine CCTK_NumIOMethods + + end interface + +end module cctk_IOMethods |