From 637b4a794827accfb8f114f758fc0ee6efcc8f87 Mon Sep 17 00:00:00 2001
From: Antoine Cyril David Hoffmann <ahoffman@spcpc606.epfl.ch>
Date: Fri, 19 Feb 2021 11:24:28 +0100
Subject: [PATCH] minor changes
---
src/compute_Sapj.F90 | 10 ++++++----
1 file changed, 6 insertions(+), 4 deletions(-)
diff --git a/src/compute_Sapj.F90 b/src/compute_Sapj.F90
index 32f4fd13..f080ac15 100644
--- a/src/compute_Sapj.F90
+++ b/src/compute_Sapj.F90
@@ -44,8 +44,9 @@ SUBROUTINE compute_Sapj
! Second convolution terms
Gz_cmpx(ikr,ikz) = 0._dp ! initialization of the sum
Gr_cmpx(ikr,ikz) = 0._dp ! initialization of the sum
- DO is = 1, MIN( in+ij-1, jmaxe+1 ) ! sum truncation on number of moments
- Gz_cmpx(ikr,ikz) = Gz_cmpx(ikr,ikz) + &
+ ! DO is = 1, MIN( in+ij-1, jmaxe+1 ) ! sum truncation on number of moments
+ DO is = 1, MIN( in+ij-1, 2 ) ! sum truncation on number of moments
+ Gz_cmpx(ikr,ikz) = Gz_cmpx(ikr,ikz) + &
dnjs(in,ij,is) * moments_e(ip,is,ikr,ikz,updatetlevel)
Gr_cmpx(ikr,ikz) = Gr_cmpx(ikr,ikz) + &
dnjs(in,ij,is) * moments_e(ip,is,ikr,ikz,updatetlevel)
@@ -116,8 +117,9 @@ SUBROUTINE compute_Sapj
! Second convolution terms
Gz_cmpx(ikr,ikz) = 0._dp ! initialization of the sum
Gr_cmpx(ikr,ikz) = 0._dp ! initialization of the sum
- DO is = 1, MIN( in+ij-1, jmaxi+1 ) ! sum truncation on number of moments
- Gz_cmpx(ikr,ikz) = Gz_cmpx(ikr,ikz) + &
+ ! DO is = 1, MIN( in+ij-1, jmaxi+1 ) ! sum truncation on number of moments
+ DO is = 1, MIN( in+ij-1, 2 ) ! 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)
Gr_cmpx(ikr,ikz) = Gr_cmpx(ikr,ikz) + &
dnjs(in,ij,is) * moments_i(ip,is,ikr,ikz,updatetlevel)
--
GitLab