blob: e540cb2edf78483b5daa89bc15aa01a56442d0a4 (
plain)
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
|
! $Header$
#include "cctk.h"
module hyperslab
implicit none
public
interface
subroutine hyperslab_fillhyperslab (ierr, cctkgh, target_proc, &
vindex, vtimelevel, &
hdim, global_startpoint, directions, lengths, downsample, &
nhdata, hdata, hsize)
implicit none
integer ierr
CCTK_POINTER cctkgh
integer target_proc
integer vindex
integer vtimelevel
integer hdim
integer global_startpoint(*) ! vdim
integer directions(*) ! vdim
integer lengths(hdim)
integer downsample(hdim)
integer nhdata
CCTK_REAL hdata(*)
integer hsize(hdim)
end subroutine hyperslab_fillhyperslab
end interface
end module hyperslab
|