O errCode,
INTEGER errCode
errCode = 0
errCode = 1
IF (errCode.GE.1) THEN
INTEGER diagonalNumber, errCode