#file=cross_post_moletps_nu
#on entry: $menu_opt=...Moles=[sel|all]&...Mole_mmm=on&...
# ...Mole_mmm_iii=on&...
# ...Numin=min&...Numax=max&...
# ...Nu1=nnn&...Nu2=ppp&... (POST method)
#on exit: defines $execute_parms=$execute_parms",mol='mmm',tp=iii,jjj,..."
# if Moles=sel,
# $execute_parms=$execute_parms",mol='all'"
# if Moles=all,
# $nu1=nnn,
# $nu2=ppp,
# $execute_parms=$execute_parms",nu1=nnn,nu2=ppp"
ifs=$IFS;IFS="&";all=0;none=1;
for s in $menu_opt; do [ "$s" = "Moles=all" ]&&{ all=1;break;}
[ "`expr \"$s\" : 'Mole_\(.*\)='`" ]&&none=0;done
[ $all = 0 -a $none = 1 ]&&
{
echo ""
echol "Erreur: Aucune molécule sélectionnée" "Error: No selected molecule"
echo "!
"
error=1
}
if [ $all = 0 ]; then
for s in $menu_opt;do
l=`expr "$s" : 'Mole_\(.*\)='`;[ "$l" = "" ]&&continue
m=`expr "$l" : '\(.*\)_.*'`;i=`expr "$l" : '.*_\(.*\)'`
if [ "$m" != "" -a "$m" != "$mp" ]; then
execute_parms=$execute_parms,"mol='$m',tp=$i";mp=$m;d=;
else
execute_parms=$execute_parms,$i
fi
done
else
execute_parms=$execute_parms,"mol='all'"
fi
for s in $menu_opt;do
l=`expr "$s" : 'Numin=\(.*\)'`;[ "$l" ]&&numin="$l"
l=`expr "$s" : 'Numax=\(.*\)'`;[ "$l" ]&&numax="$l"
l=`expr "$s" : 'Nu1=\(.*\)'`;[ "$l" ]&&nu1="$l"
l=`expr "$s" : 'Nu2=\(.*\)'`;[ "$l" ]&&nu2="$l"
done;IFS=$ifs
numin=`$HOME_GEISA/unescape -b "$numin"`
numax=`$HOME_GEISA/unescape -b "$numax"`
nu1=`$HOME_GEISA/unescape -b "$nu1"`
nu2=`$HOME_GEISA/unescape -b "$nu2"`
[ `$HOME_GEISA/vreal "$nu1"` = 1 -o `$HOME_GEISA/vord "$nu1" "$numin"` = 0 -o `$HOME_GEISA/vord "$numax" "$nu1"` = 0 ]&&
{
echo ""
echol "Erreur: La limite inférieure du domaine spectral est incorrecte"
"Error: The lower spectral limit is invalid"
echo "!
"
error=2
}
[ `$HOME_GEISA/vreal "$nu2"` = 1 -o `$HOME_GEISA/vord "$nu2" "$numin"` = 0 -o `$HOME_GEISA/vord "$numax" "$nu2"` = 0 ]&&
{
echo ""
echol "Erreur: La limite supérieure du domaine spectral est incorrecte"
"Error: The upper spectral limit is invalid"
echo "!
"
error=2
}
[ ${error:-0} -lt 2 -a `$HOME_GEISA/vord "$nu1" "$nu2"` = 1 ]&&
{
echo ""
echol "Erreur: Les limites du domaine spectral sont incorrectes" "Error: The spectral limits are not valid"
echo "!
"
error=1
}
execute_parms=$execute_parms",nu1=$nu1,nu2=$nu2"