src/cctk_Flesh.F90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

#include "cctk.h"

module cctk_Flesh
  implicit none

  interface

     subroutine CCTK_Traverse (ierr, GH, where)
       implicit none
       integer      ierr
       CCTK_POINTER GH
       character(*) where
     end subroutine CCTK_Traverse
     
  end interface
  
end module cctk_Flesh