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