IF ( plotMode .EQ. PRINT_MAP_XY ) THEN
ELSEIF ( plotMode .EQ. PRINT_MAP_XZ ) THEN
ELSEIF ( plotMode .EQ. PRINT_MAP_YZ ) THEN
SUBROUTINE PRINT_MAPRL ( fld, fldTitle, plotMode,
CHARACTER*(*) plotMode
SUBROUTINE PRINT_MAPRS ( fld, fldTitle, plotMode,