1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
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
|