Subversion Repositories lagranto.arpege

Rev

Details | Last modification | View Log | RSS feed

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