diff --git a/files_src_PLUS/frun_HBANLIB_DMod_D.f b/files_src_PLUS/frun_HBANLIB_DMod_D.f index 22114796131b609516362c1c4e20541240c6e40a..46e0d7602fb2881049deaca829b4f397e3e95fb2 100644 --- a/files_src_PLUS/frun_HBANLIB_DMod_D.f +++ b/files_src_PLUS/frun_HBANLIB_DMod_D.f @@ -1400,7 +1400,7 @@ C Convolution délai DO 3 K=1,3*NH-1 X(7+K)=X(8+K)+XV(3*NPX+K)*(QS+Q2) 3 CONTINUE - X(7+3*NH)=XV(3*NPX+3*NH)*(QS*Q2) + X(7+3*NH)=XV(3*NPX+3*NH)*(QS+Q2) C Débit total Q=X(8) @@ -1547,7 +1547,7 @@ C Convolution délai DO 3 K=1,3*NH-1 X(7+K)=X(8+K)+XV(3*NPX+K)*(QS+Q3) 3 CONTINUE - X(7+3*NH)=XV(3*NPX+3*NH)*(QS*Q3) + X(7+3*NH)=XV(3*NPX+3*NH)*(QS+Q3) C Débit total Q=X(8) diff --git a/files_src_PLUS/frun_HBANLIB_DMod_S.f b/files_src_PLUS/frun_HBANLIB_DMod_S.f index 22e1d4e34a82eab0dba29ee85fd66faeacca9e99..91c4966d8d502e9265f094a41f75c4ef720f324c 100644 --- a/files_src_PLUS/frun_HBANLIB_DMod_S.f +++ b/files_src_PLUS/frun_HBANLIB_DMod_S.f @@ -1400,7 +1400,7 @@ C Convolution délai DO 3 K=1,3*NH-1 X(7+K)=X(8+K)+XV(3*NPX+K)*(QS+Q2) 3 CONTINUE - X(7+3*NH)=XV(3*NPX+3*NH)*(QS*Q2) + X(7+3*NH)=XV(3*NPX+3*NH)*(QS+Q2) C Débit total Q=X(8) @@ -1547,7 +1547,7 @@ C Convolution délai DO 3 K=1,3*NH-1 X(7+K)=X(8+K)+XV(3*NPX+K)*(QS+Q3) 3 CONTINUE - X(7+3*NH)=XV(3*NPX+3*NH)*(QS*Q3) + X(7+3*NH)=XV(3*NPX+3*NH)*(QS+Q3) C Débit total Q=X(8)