diff options
Diffstat (limited to 'src/slab.inc')
-rw-r--r-- | src/slab.inc | 33 |
1 files changed, 33 insertions, 0 deletions
diff --git a/src/slab.inc b/src/slab.inc new file mode 100644 index 0000000..a0f9bdc --- /dev/null +++ b/src/slab.inc @@ -0,0 +1,33 @@ +! -*-F90-*- +! $Header$ + +interface + subroutine Slab_Transfer (ierr, cctkGH, dim, & + src_gsh, src_lbnd, src_lsh, & + src_lbbox, src_ubbox, src_nghostzones, & + src_off, src_str, src_len, & + dst_gsh, dst_lbnd, dst_lsh, & + dst_lbbox, dst_ubbox, dst_nghostzones, & + dst_off, dst_str, dst_len, & + xpose, flip, & + options, & + srctype, srcptr, & + dsttype, dstptr) + implicit none + integer ierr + CCTK_POINTER cctkGH + integer dim + integer src_gsh, src_lbnd, src_lsh + integer src_lbbox, src_ubbox, src_nghostzones + integer src_off, src_str, src_len + integer dst_gsh, dst_lbnd, dst_lsh + integer dst_lbbox, dst_ubbox, dst_nghostzones + integer dst_off, dst_str, dst_len + integer xpose, flip + integer options + integer srctype + CCTK_POINTER srcptr + integer dsttype + CCTK_POINTER dstptr + end subroutine Slab_Transfer +end interface |