107usage=
"usage: mkgeo_contraction
118 [0-9]*)
if test x$n = x
""; then n=$1;
else m=$1; fi;;
121 -name) name=$2; shift;;
123 -noclean) clean=false;;
124 -verbose) verbose=true;;
125 -noverbose) verbose=false;;
126 -h) echo ${usage} >&2; exit 0;;
127 *) echo ${usage} >&2; exit 1;;
131if test x
"$n" = x
""; then
137h=`echo $n | awk
'{printf("%.15g\n", 1./$1)}'`
138cat > $name.bamgcad << EOF1
156echo
"! file $name.bamgcad created" 1>&2
158cat > $name.dmn << EOF2
165echo
"! file $name.dmn created" 1>&2
167command=
"bamg -g $name.bamgcad -o $name.bamg"
169 echo
"! $command" 1>&2
170 command=
"$command 1>&2"
172 command=
"($command 2>&1) > $name.bamglog"
173 to_clean=
"$to_clean $name.bamglog"
176if test $? -ne 0; then
177 echo
"$0: command failed"
178 if $verbose; then true;
else cat $name.bamglog; fi
181echo
"! file $name.bamg created" 1>&2
183command=
"bamg2geo $name.bamg $name.dmn > $name.geo"
185 echo
"! $command" 1>&2
187 command=
"$command 2> $name.bamglog"
188 to_clean=
"$to_clean $name.bamglog"
191if test $? -ne 0; then
192 echo
"$0: command failed"
193 if $verbose; then true;
else cat $name.bamglog; fi
196echo
"! file $name.geo created" 1>&2
199 command=
"rm -f $to_clean"
200 $verbose && echo
"! $command" 1>&2