From 5bd1c78be55b84ba6daeca571a2b4dba3b2f8739 Mon Sep 17 00:00:00 2001
From: Hiroaki Matsui <hrmatsui@ucdavis.edu>
Date: Fri, 13 Dec 2024 10:39:01 -0800
Subject: [PATCH] Fix VTK converter program name

---
 src/programs/data_utilities/VIZ_only/Makefile            | 2 +-
 src/programs/data_utilities/VIZ_only/psf_file_to_VTK.f90 | 2 +-
 src/programs/mesh_utilities/cmp_trans_sph_indices.f90    | 3 +--
 3 files changed, 3 insertions(+), 4 deletions(-)

diff --git a/src/programs/data_utilities/VIZ_only/Makefile b/src/programs/data_utilities/VIZ_only/Makefile
index 7e836c4b..e3771416 100644
--- a/src/programs/data_utilities/VIZ_only/Makefile
+++ b/src/programs/data_utilities/VIZ_only/Makefile
@@ -6,7 +6,7 @@ VIZ_PLUG_DIR = $$(DATA_UTILS_DIR)/VIZ_only
 
 TARGET_PSF =         utilities/sectioning
 TARGET_VTK_CONVERT = utilities/field_to_VTK
-TARGET_PSF_2_VTK =   utilities/section_to_vtk
+TARGET_PSF_2_VTK =   utilities/section_to_VTK
 
 SOURCES = $(shell ls *.f90)
 
diff --git a/src/programs/data_utilities/VIZ_only/psf_file_to_VTK.f90 b/src/programs/data_utilities/VIZ_only/psf_file_to_VTK.f90
index 200ba60e..3aae15a3 100644
--- a/src/programs/data_utilities/VIZ_only/psf_file_to_VTK.f90
+++ b/src/programs/data_utilities/VIZ_only/psf_file_to_VTK.f90
@@ -21,7 +21,7 @@ program psf_file_to_VTK
       character(len = kchara) :: file_ext, tmpchara
 !
       if(iargc_kemo() .lt. 5) then
-        write(*,*) 'section_to_vtk ',                                   &
+        write(*,*) 'section_to_VTK ',                                   &
      &    'FILE_PREFIX EXTENSION_WITH_GZ START_STEP END_STEP INCREMENT'
         stop
       end if
diff --git a/src/programs/mesh_utilities/cmp_trans_sph_indices.f90 b/src/programs/mesh_utilities/cmp_trans_sph_indices.f90
index b734217c..499c8d04 100644
--- a/src/programs/mesh_utilities/cmp_trans_sph_indices.f90
+++ b/src/programs/mesh_utilities/cmp_trans_sph_indices.f90
@@ -355,8 +355,7 @@ integer(kind = kint) function check_missing_sph_indices           &
      &     'local_id, global_r, global_j, global_r, global_l, global_m'
       do kr = 1, sph%sph_rj%nidx_rj(1)
         do j = 1, sph%sph_rj%nidx_rj(2)
-          inod = 1 + (kr-1) * sph%sph_rj%istep_rj(1)                    &
-     &             + (j-1) *  sph%sph_rj%istep_rj(2)
+          inod = j + (kr-1) * sph%sph_rj%nidx_rj(2)
           if(      idx_rj_recieve(inod,1) .lt. 0                        &
      &        .or. idx_rj_recieve(inod,2) .lt. 0) then
               write(id_file,'(4i16,6i5)') inod,                         &