[cig-commits] [commit] Include_averaging_programs: Fix bug in counting number of components in spherical transform (8e5b4fe)

[cig_noreply at geodynamics.org]

Repository : https://github.com/geodynamics/calypso

On branch  : Include_averaging_programs
Link       : https://github.com/geodynamics/calypso/compare/0000000000000000000000000000000000000000...8e5b4fefdb5b27c6ed0b1448a44005ea47b02322

>---------------------------------------------------------------

commit 8e5b4fefdb5b27c6ed0b1448a44005ea47b02322
Author: Hiroaki Matsui <h_kemono at mac.com>
Date:   Mon Apr 28 11:18:17 2014 -0700

    Fix bug in counting number of components in spherical transform


>---------------------------------------------------------------

8e5b4fefdb5b27c6ed0b1448a44005ea47b02322
 src/Fortran_libraries/MHD_src/sph_MHD/m_addresses_trans_sph_snap.f90 | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/Fortran_libraries/MHD_src/sph_MHD/m_addresses_trans_sph_snap.f90 b/src/Fortran_libraries/MHD_src/sph_MHD/m_addresses_trans_sph_snap.f90
index 1787d3f..7086b89 100644
--- a/src/Fortran_libraries/MHD_src/sph_MHD/m_addresses_trans_sph_snap.f90
+++ b/src/Fortran_libraries/MHD_src/sph_MHD/m_addresses_trans_sph_snap.f90
@@ -164,7 +164,8 @@
 !
       ncomp_bwd = 3*nvector_snap_rj_2_rtp + nscalar_snap_rj_2_rtp
       ncomp_fwd = 3*nvector_snap_rtp_2_rj + nscalar_snap_rtp_2_rj
-      ncomp_sph_trans = max(ncomp_bwd,ncomp_fwd)
+      ncomp_sph_trans = max(ncomp_sph_trans, ncomp_fwd)
+      ncomp_sph_trans = max(ncomp_sph_trans, ncomp_bwd)
 !
       end subroutine set_addresses_snapshot_trans
 !