blob: 86e8304d8c383828d8457d3b92a611ba462c4d58 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
#include "cctk.h"
#include "cctk_Functions.h"
subroutine lc_get_fortran_type_sizes(type_sizes)
use loopcontrol_types
implicit none
DECLARE_CCTK_FUNCTIONS
CCTK_POINTER :: type_sizes(4)
type(lc_vec_t) :: vec(2)
type(lc_ivec_t) :: ivec(2)
type(lc_space_t) :: space(2)
type(lc_control_t) :: control(2)
type_sizes(1) = CCTK_PointerTo(vec(2)) - CCTK_PointerTo(vec(1))
type_sizes(2) = CCTK_PointerTo(ivec(2)) - CCTK_PointerTo(ivec(1))
type_sizes(3) = CCTK_PointerTo(space(2)) - CCTK_PointerTo(space(1))
type_sizes(4) = CCTK_PointerTo(control(2)) - CCTK_PointerTo(control(1))
end subroutine lc_get_fortran_type_sizes
|
