diff options
author | tradke <tradke@5301f0c2-dbc4-4cee-b2f5-8d7afba4d129> | 2003-07-22 12:29:14 +0000 |
---|---|---|
committer | tradke <tradke@5301f0c2-dbc4-4cee-b2f5-8d7afba4d129> | 2003-07-22 12:29:14 +0000 |
commit | 1f71fb3dacbc563b6f4b6e6d7d94d62ce382a326 (patch) | |
tree | 8a38e6869d7fa6eb2deb06b4d5d0c3180e9504b4 | |
parent | 4794a0175b42dd8fe4117edf36869cc2737d5416 (diff) |
Fixed another CCTK_INT <-> INTEGER type problem.
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/Extract/trunk@87 5301f0c2-dbc4-4cee-b2f5-8d7afba4d129
-rw-r--r-- | src/D3_to_D2.F | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/D3_to_D2.F b/src/D3_to_D2.F index 6c7597c..ba77d99 100644 --- a/src/D3_to_D2.F +++ b/src/D3_to_D2.F @@ -80,7 +80,7 @@ c Local variables, here only INTEGER :: i, j, num_arrays, vindex, ierror INTEGER :: interp_handle, param_table_handle, coord_system_handle CCTK_POINTER, dimension(3) :: interp_coords - INTEGER, dimension(8) :: in_array_indices + CCTK_INT, dimension(8) :: in_array_indices CCTK_POINTER, dimension(8) :: out_arrays CCTK_INT, dimension(8) :: out_array_type_codes |