emit_script

计算STM诱导金属表面等离激元发光的程序

#/bin/tcsh
rm -f parameters.dat
rm -f epstip.dat
rm -f epssample.dat
rm -f doublecheck
rm -f output.dat
cat > parameters.dat << parameters
w
au
100
45
3
i
1
1.60
4.50
0.01
parameters
cat 'w.eps' > epstip.dat
cat 'au.eps' > epssample.dat
f77 -o emit.ex rademit.f matrizgalfa.f materials.f molpam.f distance.f mfi0newmod.f ginter.f bessel.f gauss.f qfint.f dcadre.f currentz0.f 
./emit.ex > doublecheck &