gfortran -o f90_gmt_heat f90_gmt_heat.f90

# definition of mesh colour (1:MATEL)
echo 255,255,255 > _col_mesh.txt

# definition of basic data
# integer::ind,ibc
# real(4)::baselength,baseheight
# real(4)::bavx,bfvx
# real(4)::bavz,bfvz
# character::strx*100,stry*100
cat << EOT > _inp_base.txt
0 0
10.0 5.0
0.1 0.1
10 5
"x-distance (m)"
"y-distance (m)"
EOT

./f90_gmt_heat out_11_div20_10m.csv
mv -f _fig_gmt_mesh.eps fig_gmt_mesh_div20.eps
for f in _fig_gmt_xyz_??.eps
do
    mv -f $f ${f/_/}
done

rm _*