























































































































 


































































































































































 























































































































































































 





















































 










 








































































































































































































































 










                                
                                

                                
                                

                                
                                

                                





































module cctk_Parameter
  implicit none

  interface

     subroutine CCTK_ParameterLevel (level)
       implicit none
       integer level
     end subroutine CCTK_ParameterLevel

     subroutine CCTK_ParameterSet (ierr, name, thorn, value)
       implicit none
       integer      ierr
       character(*) name
       character(*) thorn
       character(*) value
     end subroutine CCTK_ParameterSet

     subroutine CCTK_ParameterGet (param, name, thorn, type)
       implicit none
       integer*8 param
       character(*)          name
       character(*)          thorn
       integer               type
     end subroutine CCTK_ParameterGet

     subroutine CCTK_ParameterValString (nchars, param, thorn, value)
       implicit none
       integer      nchars
       character(*) param
       character(*) thorn
       character(*) value
     end subroutine CCTK_ParameterValString
  
     subroutine CCTK_ParameterWalk (ierr, first, origin, pfullname, pdata)
       implicit none
       integer      ierr
       integer      first
       character(*) origin
       integer*8 pfullname
       integer*8 pdata
     end subroutine CCTK_ParameterWalk

     subroutine CCTK_ParameterData (data, name, thorn)
       implicit none
       integer*8 data
       character(*)          name
       character(*)          thorn
     end subroutine CCTK_ParameterData

     subroutine CCTK_ParameterQueryTimesSet (ierr, name, thorn)
       implicit none
       integer ierr
       character(*) name
       character(*) thorn
     end subroutine CCTK_ParameterQueryTimesSet

  end interface

end module cctk_Parameter
