Subversion Repositories lagranto.arpege

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
3 michaesp 1 
#!/bin/csh
2 
 
3 
# Write usage information
4 
if ( ${#argv} == 0) then
5 
  echo
6 
  /home/binderh/prog/programs/lagranto.mf/bin/lagrantohelp tracal short
7 
  echo
8 
  exit 0
9 
endif
10 
 
11 
set inpfile = $1
12 
set outfile = $2
13 
set expr    = $3
14 
 
15 
set dim=`/home/binderh/prog/programs/lagranto.mf/goodies/trainfo.sh  ${inpfile} dim`
16 
 
17 
\rm -f tracal.param
18 
echo \"${inpfile}\"  >! tracal.param
19 
echo \"${outfile}\"  >> tracal.param
20 
echo \"${expr}\"     >> tracal.param
21 
echo ${dim}          >> tracal.param
22 
 
23 
/home/binderh/prog/programs/lagranto.mf/goodies/tracal
24 
 
25 
\rm -f tracal.param
26 
 
27 
exit 0
28