From 527417cd8fbfcb8d3758f9cd30c29e8dd59a8521 Mon Sep 17 00:00:00 2001
From: q-posev <posenitskiy@irsamc.ups-tlse.fr>
Date: Thu, 18 Nov 2021 14:33:18 +0100
Subject: [PATCH] fix type conversion for 32-bit indices

---
 src/templates_front/templator_front.org | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/templates_front/templator_front.org b/src/templates_front/templator_front.org
index 5f9f3f3..3a81741 100644
--- a/src/templates_front/templator_front.org
+++ b/src/templates_front/templator_front.org
@@ -1699,7 +1699,7 @@ trexio_read_$group_dset$_64 (trexio_t* const file, $group_dset_dtype_double$* co
         dim_size *= dims[i];
     }
     for (uint64_t i=0; i<dim_size; ++i){
-       $group_dset$[i] += ($group_dset_dtype_single$) 1;
+       $group_dset$[i] += ($group_dset_dtype_double$) 1;
     }
   }
   
@@ -1742,7 +1742,7 @@ trexio_write_$group_dset$_64 (trexio_t* const file, const $group_dset_dtype_doub
     if ($group_dset$_p == NULL) return TREXIO_ALLOCATION_FAILED;
 
     for (uint64_t i=0; i<dim_size; ++i){
-       $group_dset$_p[i] = $group_dset$_p[i] - ($group_dset_dtype_single$) 1;
+       $group_dset$_p[i] -= ($group_dset_dtype_double$) 1;
     }
   }
 
@@ -1840,7 +1840,7 @@ trexio_read_$group_dset$_32 (trexio_t* const file, $group_dset_dtype_single$* co
 
   if ($is_index$) {
     for (uint64_t i=0; i<dim_size; ++i){
-      $group_dset$[i] = ($group_dset_dtype_single$) $group_dset$_64[i] + ($group_dset_dtype_single$) 1;
+      $group_dset$[i] = ($group_dset_dtype_single$) $group_dset$_64[i] + 1;
     }
   } else {
     for (uint64_t i=0; i<dim_size; ++i){