Fix VTK converter program name

geodynamics · Dec 13, 2024 · 5bd1c78 · 5bd1c78
1 parent f6c3366
commit 5bd1c78
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 4 deletions.
diff --git 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
@@ -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
@@ -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,                         &