gfortran -o f90_GMTheat.exe f90_GMTheat.f90

rem definition of mesh colour (1:MATEL)
echo 255,192,203 > _col_mesh.txt
echo 255,250,205 >> _col_mesh.txt

rem definition of basic data 
rem integer::ind,ibc
rem real(4)::baselength,baseheight
rem real(4)::bavx,bfvx
rem real(4)::bavz,bfvz
rem character::strx*100,stry*100
echo 0 0 > _inp_base.txt
echo 10.0 5.0 >> _inp_base.txt
echo 10.0 5.0 >> _inp_base.txt
echo 5.0 1.0 >> _inp_base.txt
echo "x-distance (m)" >> _inp_base.txt
echo "y-distance (m)" >> _inp_base.txt

f90_GMTheat out_CPT_ondom.csv


del _*