From 1f71fb3dacbc563b6f4b6e6d7d94d62ce382a326 Mon Sep 17 00:00:00 2001 From: tradke Date: Tue, 22 Jul 2003 12:29:14 +0000 Subject: Fixed another CCTK_INT <-> INTEGER type problem. git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/Extract/trunk@87 5301f0c2-dbc4-4cee-b2f5-8d7afba4d129 --- src/D3_to_D2.F | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- cgit v1.2.3