#!/bin/csh

#######################################################################################################################################
#                                                                                                                                     #
#         C H O I X   D U   D I R E C T O R Y   D E   G E N E R A T I O N   D E S   I M A G E S  :                                    #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xrq/proton.J0.1$Y' :                                                                                            #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

switch    ("$mHOTE")
                                        # Definition du choix du directory de generation des images.                                  #
                                        #                                                                                             #
                                        # Discrimination des differentes MACHINEs possibles :                                         #
     case "$CMAP23":
     case "$CMAP24":
     case "$INFO23":
     case "$LACT11":
     case "$LACT12":
     case "$LACT71":
     case "$LACT23":
     case "$LACT27":
     case "$LACT28":
     case "$LACT29":
          set       images="$xw1/PROTON"
          breaksw
     case "$CCVR11":
     case "$CCVR12":
     case "$CCVR13":
     case "$CCVR14":
     case "$CCVR21":
     case "$CMAP21":
     case "$CMAP22":
     case "$CMAP25":
     case "$CMAP26":
     case "$CMAP27":
     case "$CMAP28":
     case "$CMAP29":
     case "$EDFR11":
     case "$EDFR12":
     case "$EDFR13":
     case "$EDFR14":
     case "$EDFR15":
     case "$EDFR21":
     case "$EDFR22":
     case "$EDFR22h":
     case "$HOME11":
     case "$IDRI11":
     case "$IDRI21":
     case "$INFO11":
     case "$INFO21":
     case "$INFO22":
     case "$INFO24":
     case "$INFO25":
     case "$INFO26":
     case "$LACT14":
     case "$LACT15":
     case "$LACT16":
     case "$LACT17":
     case "$LACT18":
     case "$LACT19":
     case "$LACT1A":
     case "$LACT1B":
     case "$LACT21":
     case "$LACT22":
     case "$LHYX11":
     case "$LINX11":
     case "$LINX12":
          set       images="$xiim/PROTON"
          breaksw
     default:
                                        # Cas des MACHINEs non reconnues :                                                            #
          EROR      "['"'$xrq/proton.J0.1$Y'"'] MACHINE 'mHOTE' (='$mHOTE') inconnue ('sHOTE'='$sHOTE')."
          breaksw
endsw

if   ("$?images" == "$NEXIST") then
     set       images="$xiim/PROTON"
else
endif