diff options
| author | Erik Schnetter <schnetter@gmail.com> | 2012-05-11 12:52:09 -0400 |
|---|---|---|
| committer | Erik Schnetter <schnetter@gmail.com> | 2012-05-11 12:52:09 -0400 |
| commit | 47a0152285825b99fe9aaf1e860fe1c84548c7fe (patch) | |
| tree | 1f388e8aaebd1cb2fd5a8f631499b7158dd5a0fc /Carpet | |
| parent | acfe9f9ff9b87e825fcdc93edb03c95180d9e6e9 (diff) | |
LoopControl: Explain why downcast is safe
Diffstat (limited to 'Carpet')
| -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)) |