From 009052a9a65de2ad0efd4287ee8dd51c9624d588 Mon Sep 17 00:00:00 2001 From: schnetter Date: Sat, 1 Nov 2003 10:41:44 +0000 Subject: Add some prototypes. Change charater*(*) to character(*). git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinUtils/TGRtensor/trunk@8 b716e942-a2de-43ad-8f52-f3dfe468e4e7 --- src/cactus.F90 | 272 ++++++++++++++++++++++++++++----------------------------- 1 file changed, 136 insertions(+), 136 deletions(-) diff --git a/src/cactus.F90 b/src/cactus.F90 index e26b803..fc1f8e3 100644 --- a/src/cactus.F90 +++ b/src/cactus.F90 @@ -23,93 +23,93 @@ module cactus & systemname) implicit none integer ierr - CCTK_POINTER cctkgh - CCTK_REAL lower - CCTK_REAL upper - integer dir - character*(*) name - character*(*) systemname + 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 + integer handle + character(*) coordsystem end subroutine cctk_coordsystemhandle function cctk_equals (arg1, arg2) implicit none - integer cctk_equals - CCTK_POINTER arg1 - character*(*) arg2 + 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 + 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 + 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 + 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 + 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 + 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 + 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 + 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 + character(*) thorn + character(*) message end subroutine cctk_info subroutine cctk_interpgridarrays & @@ -137,14 +137,14 @@ module cactus subroutine cctk_interphandle (handle, interp) implicit none - integer handle - character*(*) interp + integer handle + character(*) interp end subroutine cctk_interphandle function cctk_isthornactive (name) implicit none - integer cctk_isthornactive - character*(*) name + integer cctk_isthornactive + character(*) name end function cctk_isthornactive function cctk_myproc (cctkgh) @@ -166,8 +166,8 @@ module cactus subroutine cctk_paramwarn (thorn, message) implicit none - character*(*) thorn - character*(*) message + character(*) thorn + character(*) message end subroutine cctk_paramwarn !!$ function cctk_pointerto (var) @@ -178,21 +178,21 @@ module cactus subroutine cctk_reductionarrayhandle (handle, reduction) implicit none - integer handle - character*(*) reduction + integer handle + character(*) reduction end subroutine cctk_reductionarrayhandle subroutine cctk_registerbanner (ierr, banner) implicit none - integer ierr - character*(*) banner + integer ierr + character(*) banner end subroutine cctk_registerbanner subroutine cctk_syncgroup (ierr, cctkgh, groupname) implicit none - integer ierr - CCTK_POINTER cctkgh - character*(*) groupname + integer ierr + CCTK_POINTER cctkgh + character(*) groupname end subroutine cctk_syncgroup subroutine cctk_syncgroupi (ierr, cctkgh, group) @@ -204,9 +204,9 @@ module cactus subroutine cctk_syncgroupwithvar (ierr, cctkgh, varname) implicit none - integer ierr - CCTK_POINTER cctkgh - character*(*) varname + integer ierr + CCTK_POINTER cctkgh + character(*) varname end subroutine cctk_syncgroupwithvar subroutine cctk_syncgroupwithvari (ierr, cctkgh, var) @@ -218,8 +218,8 @@ module cactus subroutine cctk_varindex (vi, vname) implicit none - integer vi - character*(*) vname + integer vi + character(*) vname end subroutine cctk_varindex subroutine cctk_vartypei (vartype, varindex) @@ -230,11 +230,11 @@ module cactus subroutine cctk_warn (level, line, file, thorn, message) implicit none - integer level - integer line - character*(*) file - character*(*) thorn - character*(*) message + integer level + integer line + character(*) file + character(*) thorn + character(*) message end subroutine cctk_warn @@ -242,19 +242,19 @@ module cactus ! 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 + 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 + integer ierr + CCTK_POINTER cctkgh + integer sw(3) + character(*) groupname end subroutine bndflatgn subroutine bndradiativegn (ierr, cctkgh, sw, var0, v0, & @@ -265,48 +265,48 @@ module cactus integer sw(3) CCTK_REAL var0 CCTK_REAL v0 - character*(*) togroupname - character*(*) fromgroupname + 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 + 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 + 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 + 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 + integer ierr + CCTK_POINTER cctkgh + integer sw(3) + CCTK_REAL var0 + character(*) varname end subroutine bndscalarvn @@ -315,17 +315,17 @@ module cactus subroutine cartsymgn (ierr, cctkgh, groupname) implicit none - integer ierr - CCTK_POINTER cctkgh - character*(*) groupname + 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 + integer ierr + CCTK_POINTER cctkgh + integer sw(3) + character(*) varname end subroutine setcartsymvn @@ -334,47 +334,47 @@ module cactus subroutine cart3dsymvi (ierr, cctkgh, vi) implicit none - integer ierr - CCTK_POINTER cctkgh - integer vi + integer ierr + CCTK_POINTER cctkgh + integer vi end subroutine cart3dsymvi subroutine cart3dsymvn (ierr, cctkgh, vn) implicit none - integer ierr - CCTK_POINTER cctkgh - character*(*) vn + integer ierr + CCTK_POINTER cctkgh + character(*) vn end subroutine cart3dsymvn subroutine cart3dsymgi (ierr, cctkgh, gi) implicit none - integer ierr - CCTK_POINTER cctkgh - integer gi + integer ierr + CCTK_POINTER cctkgh + integer gi end subroutine cart3dsymgi subroutine cart3dsymgn (ierr, cctkgh, gn) implicit none - integer ierr - CCTK_POINTER cctkgh - character*(*) gn + 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 + 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 + integer ierr + CCTK_POINTER cctkgh + character(*) vn + character(*) typename end subroutine cart3dsettensortypevn subroutine cart3dgetsymmetriesvi (ierr, cctkgh, sym, vi) @@ -387,10 +387,10 @@ module cactus subroutine cart3dgetsymmetriesvn (ierr, cctkgh, sym, vn) implicit none - integer ierr - CCTK_POINTER cctkgh - integer sym(6) - character*(*) vn + integer ierr + CCTK_POINTER cctkgh + integer sym(6) + character(*) vn end subroutine cart3dgetsymmetriesvn subroutine cart3dgetsymmetryboundaries (ierr, cctkgh, symbnd) @@ -421,6 +421,6 @@ module cactus integer periodic(6) end subroutine cart3dgetperiodic -end interface + end interface end module cactus -- cgit v1.2.3