37 lines
774 B
Tcsh
37 lines
774 B
Tcsh
#!/bin/tcsh
|
|
if ($# < 1) then
|
|
echo " "
|
|
if (-e fitexample.f) then
|
|
echo "fitexample.f is already present"
|
|
else
|
|
set b=`dirname $0`
|
|
echo "fitexample.f created"
|
|
cp $b/../lib/fitexample.f .
|
|
endif
|
|
echo " "
|
|
echo "Create your own fit function:"
|
|
echo " "
|
|
echo "- rename fitexample.f to an other name (i.e. xxx.f)"
|
|
echo "- edit xxx.f changing the parameter list and the function"
|
|
echo " and type"
|
|
echo " "
|
|
echo " myfit -o xxx xxx.f"
|
|
echo " "
|
|
exit
|
|
endif
|
|
if ($# == 1) then
|
|
if (-r "$1.f") then
|
|
set argv=(-o $1 $1.f)
|
|
else
|
|
set f="${1}_"
|
|
set s=${f:s/.f_//:s/.for_//}
|
|
if ($s != $f && -r $1) then
|
|
set argv=(-o $s $1)
|
|
else
|
|
echo "Usage: myfit -o xxx xxx.f"
|
|
exit
|
|
endif
|
|
endif
|
|
echo myfit $argv
|
|
endif
|