vwght=vwght/4.448222e-6
!convert to pounds
write(*,*)'minimum frost depth that can hold',vwght,'pounds =',
& fdepth,'m'
C CALCULATE THE GO/NO GO SITUATION OF BOTH VALUES INPUTTED
C EITHER THE WEIGHT OR THE CLASS WILL BE READ
else if(nput.eq.4)then
write(*,*)'input the frost depth (cm)'
read(*,*)fdepth
fdepth = fdepth/100.
!CONVERT TO METERS
write(*,*)'are you using vehicle weight (1) or class (2)'
read(*,*)ans
if(ans.eq.1)then
c
write(*,*)'input the vehicle weight (MN)'
write(*,*)'input the vehicle weight in pounds'
read(*,*)vwght
vwght=vwght*4.448222e-6
if(cond.eq.1)then
if(vwght.le.0.86*fdepth**2.)then
write(*,*)'****************************************'
write(*,*)'the ground can support this vehicle!'
write(*,*)'****************************************'
else
write(*,*)'****************************************'
write(*,*)'the ground can not support this vehicle!'
write(*,*)'****************************************'
end if
else if(cond.eq.2)then
if(vwght.le.0.35*fdepth**2.)then
write(*,*)'****************************************'
write(*,*)'the ground can support this vehicle!'
write(*,*)'****************************************'
else
write(*,*)'****************************************'
write(*,*)'the ground can not support this vehicle!'
write(*,*)'****************************************'
end if
end if
else if(ans.eq.2)then
write(*,*)'input the vehicle class (tons)'
read(*,*)vclass
if(cond.eq.1)then
if(fdepth.ge.10.*(vclass)**.5)then
write(*,*)'****************************************'
write(*,*)'the ground can support this vehicle!'
write(*,*)'****************************************'
else
write(*,*)'****************************************'
write(*,*)'the ground can not support this vehicle!'
write(*,*)'****************************************'
end if
else if(cond.eq.2)then
if(fdepth.ge.16.*(vclass)**.5)then
37
Previous Page
