write(*,*)'****************************************'
write(*,*)'the ground can support this vehicle!'
write(*,*)'****************************************'
else
write(*,*)'****************************************'
write(*,*)'the ground can not support this vehicle!'
write(*,*)'****************************************'
end if
end if
end if
end if
if(fdepth.ge.0.5)then
write(*,*)'**************************************************'
write(*,*)'0.5m frost will prevent breakthrough of most heavy'
write(*,*)'equipement but mobility may be limited by crushing'
write(*,*)'failure of the surface material.'
write(*,*)'**************************************************'
end if
return
end
38