rem gfortran -o f90_GMTseep.exe f90_GMTseep.f90 copy 0_cpt_dam.cpt 0_cpt.cpt rem define of mesh colour (1:MATEL) echo 255 255 204 > _col_mesh.txt echo 0 255 255 >> _col_mesh.txt echo 255 0 255 >> _col_mesh.txt echo 0 255 255 >> _col_mesh.txt echo 255 255 204 >> _col_mesh.txt rem integer::ind,ibc,iph,ivc,isc rem real(4)::baselength,grdspc rem real(4)::bav,bfv rem real(4)::conint,annint rem character::strx*100,strz*100 echo 0 1 1 1 1 > _inp_base.txt echo 12.0 0.1 >> _inp_base.txt echo 10.0 5.0 >> _inp_base.txt echo 1.0 5.0 >> _inp_base.txt echo "Distance (m)" >> _inp_base.txt echo "Altitude (m)" >> _inp_base.txt f90_GMTseep out_core1_3.csv copy fig_gmt_mesh.eps fig_gmt_mesh_earth.eps copy fig_gmt_conp.eps fig_gmt_conp_earth.eps copy fig_gmt_vect.eps fig_gmt_vect_earth.eps del fig_gmt_mesh.eps del fig_gmt_conp.eps del fig_gmt_conh.eps del fig_gmt_vect.eps del _*