























































































































 


































































































































































 























































































































































































 





















































 










 








































































































































































































































 










                                
                                

                                
                                

                                
                                

                                





































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

     
     
     subroutine CCTK_FortranString (nchars, c_string, f_string)
       implicit none
       integer               nchars
       integer*8 c_string
       character(*)          f_string
     end subroutine CCTK_FortranString

     subroutine Util_NullTerminateString (c_string, f_string)
       implicit none
       integer*8 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
       integer*8 data
       character(*) value
     end subroutine CCTK_SetString

     subroutine CCTK_SetBoolean (ierr, data, value)
       implicit none
       integer      ierr
       INTEGER*4     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
  
  
  






  
end module cctk_Misc
