From 20f2ab777d1e642e41611b82ebfc0ed745405106 Mon Sep 17 00:00:00 2001
From: Antoine Cyril David Hoffmann <ahoffman@spcpc606.epfl.ch>
Date: Tue, 4 May 2021 08:39:16 +0200
Subject: [PATCH] Typo
---
src/compute_Sapj.F90 | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/src/compute_Sapj.F90 b/src/compute_Sapj.F90
index 81fc11f3..4ef4f87d 100644
--- a/src/compute_Sapj.F90
+++ b/src/compute_Sapj.F90
@@ -128,9 +128,9 @@ SUBROUTINE compute_Sapj
! Set non linear sum truncation
IF (NL_CLOS .EQ. -2) THEN
- nmax = Jmaxe
+ nmax = Jmaxi
ELSEIF (NL_CLOS .EQ. -1) THEN
- nmax = Jmaxe-(ij-1)
+ nmax = Jmaxi-(ij-1)
ELSE
nmax = NL_CLOS
ENDIF
@@ -150,7 +150,7 @@ SUBROUTINE compute_Sapj
Gz_cmpx(ikr,ikz) = 0._dp ! initialization of the sum
Gr_cmpx(ikr,ikz) = 0._dp ! initialization of the sum
- smax = MIN( (in-1)+(ij-1), jmaxe );
+ smax = MIN( (in-1)+(ij-1), jmaxi );
DO is = 1, smax+1 ! sum truncation on number of moments
Gz_cmpx(ikr,ikz) = Gz_cmpx(ikr,ikz) + &
dnjs(in,ij,is) * moments_i(ip,is,ikr,ikz,updatetlevel)
--
GitLab