blob: 6d8fdfce76e19257f3ca099ba4c8555f3b90803c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
#include "cctk.h"
#include "cctk_Functions.h"
subroutine lc_get_fortran_type_sizes (lc_control_size, lc_statmap_size)
use loopcontrol_types
implicit none
DECLARE_CCTK_FUNCTIONS
integer, intent(out) :: lc_control_size, lc_statmap_size
type(lc_control_t), dimension(2) :: lc_lc
type(lc_statmap_t), dimension(2) :: lc_lm
lc_control_size = CCTK_PointerTo(lc_lc(2)) - CCTK_PointerTo(lc_lc(1))
lc_statmap_size = CCTK_PointerTo(lc_lm(2)) - CCTK_PointerTo(lc_lm(1))
end subroutine lc_get_fortran_type_sizes
|
