Add some prototypes.

Change charater*(*) to character(*).


git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinUtils/TGRtensor/trunk@8 b716e942-a2de-43ad-8f52-f3dfe468e4e7

1 files 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