INTEGER preDefTopol
& preDefTopol,
IF ( preDefTopol.EQ.0 ) THEN
ELSEIF ( preDefTopol.EQ.1 ) THEN
ELSEIF ( preDefTopol.EQ.2 ) THEN
ELSEIF ( preDefTopol.EQ.3 ) THEN
IF ( preDefTopol.EQ.1 ) THEN
ELSEIF ( preDefTopol .EQ. 3 ) THEN
& ' preDefTopol=', preDefTopol
preDefTopol = 3
preDefTopol = 1
& ' preDefTopol=', preDefTopol, ' selected'