diagonalNumber = 3
IF ( diagonalNumber .EQ. 3 ) THEN
ELSEIF ( diagonalNumber .NE. 1 ) THEN
INTEGER diagonalNumber, errCode
diagonalNumber = 1
diagonalNumber = 5
ELSEIF ( diagonalNumber .EQ. 5 ) THEN