gfortran -o f90_gmt_ini4_vec f90_gmt_ini4_vec.f90


# define of drawing data
# integer::ind,ibc,ifc,isc
# real(4)::baselength,grdspc
# real(4)::bav,bfv
# real(4)::conint,annint
# character::strx*100,stry*100
# integer::ncut,numcut(10)
cat << EOT > _inp_base.txt
 0 1 1 1
 12.0 0.1
 5.0 5.0
 0.5 0.5
 "x-distance (m)"
 "y-distance (m)"
 0 0
EOT

# define of mesh colour (1:MATEL)
cat << EOT > _col_mesh.txt
 255,255,204
EOT

./f90_gmt_ini4_vec out_div_tunnel.prn
cp _fig_gmt_vec1.eps fig_gmt_vec1.eps
cp _fig_gmt_vec2.eps fig_gmt_vec2.eps
cp _fig_gmt_disp.eps fig_gmt_disp.eps