diff options
Diffstat (limited to 'src/cactus.F90')
| -rw-r--r-- | src/cactus.F90 | 389 |
1 files changed, 389 insertions, 0 deletions
diff --git a/src/cactus.F90 b/src/cactus.F90 new file mode 100644 index 0000000..5d0c278 --- /dev/null +++ b/src/cactus.F90 @@ -0,0 +1,389 @@ +! $Header$ + +#include "cctk.h" + +module cactus + implicit none + public + + interface + + ! from Cactus: + + subroutine cctk_barrier (ierr, cctkgh) + implicit none + integer ierr + CCTK_POINTER cctkgh + end subroutine cctk_barrier + + subroutine cctk_coordrange (ierr, cctkgh, lower, upper, dir, name, & + & systemname) + implicit none + integer ierr + CCTK_POINTER cctkgh + CCTK_REAL lower + CCTK_REAL upper + integer dir + character*(*) name + character*(*) systemname + end subroutine cctk_coordrange + + subroutine cctk_coordsystemhandle (handle, coordsystem) + implicit none + integer handle + character*(*) coordsystem + end subroutine cctk_coordsystemhandle + + function cctk_equals (arg1, arg2) + implicit none + integer cctk_equals + CCTK_POINTER arg1 + character*(*) arg2 + end function cctk_equals + + subroutine cctk_fortranstring (clength, cstring, fortstring) + implicit none + CCTK_INT clength ! intent(out) + CCTK_POINTER cstring + character*(*) fortstring + end subroutine cctk_fortranstring + + subroutine cctk_groupbboxgn (ierr, cctkgh, nbbox, bbox, groupname) + implicit none + integer ierr + CCTK_POINTER cctkgh + integer nbbox + integer bbox(nbbox) + character*(*) groupname + end subroutine cctk_groupbboxgn + + subroutine cctk_groupgshgn (ierr, cctkgh, ngsh, gsh, groupname) + implicit none + integer ierr + CCTK_POINTER cctkgh + integer ngsh + integer gsh(ngsh) + character*(*) groupname + end subroutine cctk_groupgshgn + + subroutine cctk_grouplbndgn (ierr, cctkgh, nlbnd, lbnd, groupname) + implicit none + integer ierr + CCTK_POINTER cctkgh + integer nlbnd + integer lbnd(nlbnd) + character*(*) groupname + end subroutine cctk_grouplbndgn + + subroutine cctk_grouplshgn (ierr, cctkgh, nlsh, lsh, groupname) + implicit none + integer ierr + CCTK_POINTER cctkgh + integer nlsh + integer lsh(nlsh) + character*(*) groupname + end subroutine cctk_grouplshgn + + subroutine cctk_groupnghostzonesgn & + (ierr, cctkgh, nnghostzones, nghostzones, groupname) + implicit none + integer ierr + CCTK_POINTER cctkgh + integer nnghostzones + integer nghostzones(nnghostzones) + character*(*) groupname + end subroutine cctk_groupnghostzonesgn + + subroutine cctk_groupubndgn (ierr, cctkgh, nubnd, ubnd, groupname) + implicit none + integer ierr + CCTK_POINTER cctkgh + integer nubnd + integer ubnd(nubnd) + character*(*) groupname + end subroutine cctk_groupubndgn + + subroutine cctk_info (thorn, message) + implicit none + character*(*) thorn + character*(*) message + end subroutine cctk_info + + subroutine cctk_interphandle (handle, interp) + implicit none + integer handle + character*(*) interp + end subroutine cctk_interphandle + + function cctk_isthornactive (name) + implicit none + integer cctk_isthornactive + character*(*) name + end function cctk_isthornactive + + function cctk_myproc (cctkgh) + implicit none + integer cctk_myproc + CCTK_POINTER cctkgh + end function cctk_myproc + + function cctk_nprocs (cctkgh) + implicit none + integer cctk_nprocs + CCTK_POINTER cctkgh + end function cctk_nprocs + + subroutine cctk_paramwarn (thorn, message) + implicit none + character*(*) thorn + character*(*) message + end subroutine cctk_paramwarn + + subroutine cctk_reductionarrayhandle (handle, reduction) + implicit none + integer handle + character*(*) reduction + end subroutine cctk_reductionarrayhandle + + subroutine cctk_registerbanner (ierr, banner) + implicit none + integer ierr + character*(*) banner + end subroutine cctk_registerbanner + + subroutine cctk_syncgroup (ierr, cctkgh, groupname) + implicit none + integer ierr + CCTK_POINTER cctkgh + character*(*) groupname + end subroutine cctk_syncgroup + + subroutine cctk_syncgroupi (ierr, cctkgh, group) + implicit none + integer ierr + CCTK_POINTER cctkgh + integer group + end subroutine cctk_syncgroupi + + subroutine cctk_syncgroupwithvar (ierr, cctkgh, varname) + implicit none + integer ierr + CCTK_POINTER cctkgh + character*(*) varname + end subroutine cctk_syncgroupwithvar + + subroutine cctk_syncgroupwithvari (ierr, cctkgh, var) + implicit none + integer ierr + CCTK_POINTER cctkgh + integer var + end subroutine cctk_syncgroupwithvari + + subroutine cctk_varindex (vi, vname) + implicit none + integer vi + character*(*) vname + end subroutine cctk_varindex + + subroutine cctk_vartypei (vartype, varindex) + implicit none + integer vartype + integer varindex + end subroutine cctk_vartypei + + subroutine cctk_warn (level, line, file, thorn, message) + implicit none + integer level + integer line + character*(*) file + character*(*) thorn + character*(*) message + end subroutine cctk_warn + + + + ! from thorn CactusBase/Boundary: + subroutine bndcopygn (ierr, cctkgh, sw, togroupname, fromgroupname) + implicit none + integer ierr + CCTK_POINTER cctkgh + integer sw(3) + character*(*) togroupname + character*(*) fromgroupname + end subroutine bndcopygn + + subroutine bndflatgn (ierr, cctkgh, sw, groupname) + implicit none + integer ierr + CCTK_POINTER cctkgh + integer sw(3) + character*(*) groupname + end subroutine bndflatgn + + subroutine bndradiativegn (ierr, cctkgh, sw, var0, v0, & + & togroupname, fromgroupname) + implicit none + integer ierr + CCTK_POINTER cctkgh + integer sw(3) + CCTK_REAL var0 + CCTK_REAL v0 + character*(*) togroupname + character*(*) fromgroupname + end subroutine bndradiativegn + + subroutine bndradiativevn (ierr, cctkgh, sw, var0, v0, & + & tovarname, fromvarname) + implicit none + integer ierr + CCTK_POINTER cctkgh + integer sw(3) + CCTK_REAL var0 + CCTK_REAL v0 + character*(*) tovarname + character*(*) fromvarname + end subroutine bndradiativevn + + subroutine bndrobinvn (ierr, cctkgh, sw, finf, npow, varname) + implicit none + integer ierr + CCTK_POINTER cctkgh + integer sw(3) + CCTK_REAL finf + integer npow + character*(*) varname + end subroutine bndrobinvn + + subroutine bndscalargn (ierr, cctkgh, sw, var0, groupname) + implicit none + integer ierr + CCTK_POINTER cctkgh + integer sw(3) + CCTK_REAL var0 + character*(*) groupname + end subroutine bndscalargn + + subroutine bndscalarvn (ierr, cctkgh, sw, var0, varname) + implicit none + integer ierr + CCTK_POINTER cctkgh + integer sw(3) + CCTK_REAL var0 + character*(*) varname + end subroutine bndscalarvn + + + + ! from thorn CactusBase/CartGrid3D: + + subroutine cartsymgn (ierr, cctkgh, groupname) + implicit none + integer ierr + CCTK_POINTER cctkgh + character*(*) groupname + end subroutine cartsymgn + + subroutine setcartsymvn (ierr, cctkgh, sw, varname) + implicit none + integer ierr + CCTK_POINTER cctkgh + integer sw(3) + character*(*) varname + end subroutine setcartsymvn + + + + ! from thorn AlphaThorns/Cart3D: + + subroutine cart3dsymvi (ierr, cctkgh, vi) + implicit none + integer ierr + CCTK_POINTER cctkgh + integer vi + end subroutine cart3dsymvi + + subroutine cart3dsymvn (ierr, cctkgh, vn) + implicit none + integer ierr + CCTK_POINTER cctkgh + character*(*) vn + end subroutine cart3dsymvn + + subroutine cart3dsymgi (ierr, cctkgh, gi) + implicit none + integer ierr + CCTK_POINTER cctkgh + integer gi + end subroutine cart3dsymgi + + subroutine cart3dsymgn (ierr, cctkgh, gn) + implicit none + integer ierr + CCTK_POINTER cctkgh + character*(*) gn + end subroutine cart3dsymgn + + subroutine cart3dsettensortypevi (ierr, cctkgh, nvars, vi, typename) + implicit none + integer ierr + CCTK_POINTER cctkgh + integer nvars + integer vi(nvars) + character*(*) typename + end subroutine cart3dsettensortypevi + + subroutine cart3dsettensortypevn (ierr, cctkgh, vn, typename) + implicit none + integer ierr + CCTK_POINTER cctkgh + character*(*) vn + character*(*) typename + end subroutine cart3dsettensortypevn + + subroutine cart3dgetsymmetriesvi (ierr, cctkgh, sym, vi) + implicit none + integer ierr + CCTK_POINTER cctkgh + integer sym(6) + integer vi + end subroutine cart3dgetsymmetriesvi + + subroutine cart3dgetsymmetriesvn (ierr, cctkgh, sym, vn) + implicit none + integer ierr + CCTK_POINTER cctkgh + integer sym(6) + character*(*) vn + end subroutine cart3dgetsymmetriesvn + + subroutine cart3dgetsymmetryboundaries (ierr, cctkgh, symbnd) + implicit none + integer ierr + CCTK_POINTER cctkgh + integer symbnd(6) + end subroutine cart3dgetsymmetryboundaries + + subroutine cart3dgetsymmetric (ierr, cctkgh, symmetric) + implicit none + integer ierr + CCTK_POINTER cctkgh + integer symmetric(6) + end subroutine cart3dgetsymmetric + + subroutine cart3dgetstaggered (ierr, cctkgh, staggered) + implicit none + integer ierr + CCTK_POINTER cctkgh + integer staggered(6) + end subroutine cart3dgetstaggered + + subroutine cart3dgetperiodic (ierr, cctkgh, periodic) + implicit none + integer ierr + CCTK_POINTER cctkgh + integer periodic(6) + end subroutine cart3dgetperiodic + +end interface + +end module cactus |