diff options
Diffstat (limited to 'src/cctk_Misc.F90')
-rw-r--r-- | src/cctk_Misc.F90 | 105 |
1 files changed, 105 insertions, 0 deletions
diff --git a/src/cctk_Misc.F90 b/src/cctk_Misc.F90 new file mode 100644 index 0000000..313fa33 --- /dev/null +++ b/src/cctk_Misc.F90 @@ -0,0 +1,105 @@ +/*@@ + @file $RCSfile$ + @author $Author$ + @date $Date$ + @desc + Fortran 90 interface declarations for the routines + which have their C declarations in cctk_Misc.h + @enddesc + @version $Header$ +@@*/ + +#include "cctk.h" + +module cctk_Misc + implicit none + + interface + + subroutine Util_SplitString (ierr, before, before_length, after, after_length, string, sep) + implicit none + integer ierr + character(*) before + integer before_length + character(*) after + integer after_length + character(*) string + character(*) sep + end subroutine Util_SplitString + + ! CCTK_Equals is declared in cctk.h + + subroutine CCTK_FortranString (nchars, c_string, f_string) + implicit none + integer nchars + CCTK_POINTER_TO_CONST c_string + character(*) f_string + end subroutine CCTK_FortranString + + subroutine Util_NullTerminateString (c_string, f_string) + implicit none + CCTK_POINTER c_string + character(*) f_string + end subroutine Util_NullTerminateString + + subroutine Util_IntInRange (inrange, inval, range) + implicit none + integer inrange + integer inval + character(*) range + end subroutine Util_IntInRange + + subroutine Util_DoubleInRange (inrange, inval, range) + implicit none + integer inrange + double precision inval + character(*) range + end subroutine Util_DoubleInRange + + subroutine CCTK_SetString (ierr, data, value) + implicit none + integer ierr + CCTK_POINTER data + character(*) value + end subroutine CCTK_SetString + + subroutine CCTK_SetBoolean (ierr, data, value) + implicit none + integer ierr + CCTK_INT data + character(*) value + end subroutine CCTK_SetBoolean + + subroutine CCTK_RunTime (time) + implicit none + integer time + end subroutine CCTK_RunTime + + subroutine Util_CurrentTime (ierr, now) + implicit none + integer ierr + character(*) now + end subroutine Util_CurrentTime + + subroutine Util_CurrentDate (ierr, now) + implicit none + integer ierr + character(*) now + end subroutine Util_CurrentDate + + subroutine Util_RunTitle (ierr, title) + implicit none + integer ierr + character(*) title + end subroutine Util_RunTitle + + end interface + + external Util_InList + external IntInRangeList + external DoubleInRangeList + external SetDoubleInRangeList + external SetIntInRangeList + external SetKeywordInRangeList + +end module cctk_Misc |