When subroutine IB01AD call with parameters ALG='F' and BATCH='O' minimal needed workspace should be calculated by expression MINWRK = 2*NR*( M + L + 1 ) + NR (line 584) but it calculating in line 582 MINWRK = NR*( M + L + 1 ). It is because logical FIRST is always true when BATCH='O' .
When subroutine IB01AD call with parameters
ALG='F'andBATCH='O'minimal needed workspace should be calculated by expressionMINWRK = 2*NR*( M + L + 1 ) + NR(line 584) but it calculating in line 582MINWRK = NR*( M + L + 1 ). It is because logicalFIRSTis alwaystruewhenBATCH='O'.