IF ( eMode .EQ. errorModeSTOP ) THEN
theErrorMode = errorModeSTOP
INTEGER errorModeSTOP
PARAMETER ( errorModeSTOP = 0 )