zero

su 的源代码库

#! /bin/sh
# 1) Zero-velocity layer statics are computed
# 2) Thin-lens and diffraction term velocity
#    fields are created

make
modelstat

a2b < zsou.dat n1=1 > zsou.b
a2b < zrec.dat n1=1 > zrec.b

a2b < vfp1.dat n1=1 > vfp1.b
a2b < vfp2.dat n1=1 > vfp2.b


cp *.b ../

rm -f *.dat

exit 0