From 5551a25c6425e52fb2a50bda8e4dc6fad2a13fe1 Mon Sep 17 00:00:00 2001 From: Chongyang Chen Date: Tue, 6 Oct 2020 14:39:16 +0200 Subject: [PATCH] RCSFGENERATE bug fix by C. Y. Chen Line 265 and 315 is changed according to: if (Y(2:2).GE.'1' .AND. Y(2:2).LE.'9') & --> if (Y(2:2).GE.'0' .AND. Y(2:2).LE.'9') & --- src/appl/rcsfgenerate90/matain.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/appl/rcsfgenerate90/matain.f90 b/src/appl/rcsfgenerate90/matain.f90 index 53f7ca7b9..c59c96404 100644 --- a/src/appl/rcsfgenerate90/matain.f90 +++ b/src/appl/rcsfgenerate90/matain.f90 @@ -262,7 +262,7 @@ subroutine matain(org, lock, closed, varmax, skal, nmax, anel, par, low, & if (Y(1:1).GE.'0' .AND. Y(1:1).LE.'9') then if (org(i,j).GT.0) then tmp = ICHAR(Y(1:1))-ICHAR('0') - if (Y(2:2).GE.'1' .AND. Y(2:2).LE.'9') & + if (Y(2:2).GE.'0' .AND. Y(2:2).LE.'9') & tmp = tmp*10 + ICHAR(Y(2:2))-ICHAR('0') low(i,j) = min(org(i,j),tmp) endif @@ -312,7 +312,7 @@ subroutine matain(org, lock, closed, varmax, skal, nmax, anel, par, low, & if (Y(1:1).GE.'0' .AND. Y(1:1).LE.'9') then if (org(i,j).GT.0) then tmp = ICHAR(Y(1:1))-ICHAR('0') - if (Y(2:2).GE.'1' .AND. Y(2:2).LE.'9') & + if (Y(2:2).GE.'0' .AND. Y(2:2).LE.'9') & tmp = tmp*10 + ICHAR(Y(2:2))-ICHAR('0') low(i,j) = min(org(i,j),tmp) endif