diff options
author | Erik Schnetter <schnetter@gmail.com> | 2012-05-11 12:52:09 -0400 |
---|---|---|
committer | Barry Wardell <barry.wardell@gmail.com> | 2012-09-11 18:23:20 +0100 |
commit | b2816d0fead5b5f23b4474ba5dd868d51f97aa8c (patch) | |
tree | 370e1d2c58a8a6a09d2efbd34d17a44d8b95d9ad /Carpet/LoopControl | |
parent | 9063dd2373225196b85f61833b8caa4b1ef40c56 (diff) |
LoopControl: Explain why downcast is safe
Diffstat (limited to 'Carpet/LoopControl')
-rw-r--r-- | Carpet/LoopControl/src/lc_get_type_sizes.F90 | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/Carpet/LoopControl/src/lc_get_type_sizes.F90 b/Carpet/LoopControl/src/lc_get_type_sizes.F90 index 6d8fdfce7..8d60c58bf 100644 --- a/Carpet/LoopControl/src/lc_get_type_sizes.F90 +++ b/Carpet/LoopControl/src/lc_get_type_sizes.F90 @@ -14,6 +14,7 @@ subroutine lc_get_fortran_type_sizes (lc_control_size, lc_statmap_size) type(lc_control_t), dimension(2) :: lc_lc type(lc_statmap_t), dimension(2) :: lc_lm + ! Note: This conversion from pointer to (small) integer is safe 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)) |