write(*,*)'3 = input the vehicle weight (lb.)'
write(*,*)'4 = input frost depth and vehicle class or weight'
read(*,*)nput
write(*,*)'choose a soil condition'
write(*,*)'1 = wet'
write(*,*)'2 = dry'
read(*,*)cond
if(nput.eq.1)then
write(*,*)'input the frost depth (cm)'
read(*,*)fdepth
fdepth = fdepth/100.
!CONVERT TO METERS
C CALCULATE THE MAXIMUM LOAD THAT A SPECIFIED FROST DEPTH WILL HOLD
if(cond.eq.1)then
p = 0.86*fdepth**2.
else if(cond.eq.2)then
p = 0.35*fdepth**2.
end if
write(*,*)'maximum load that can travel on',fdepth,'m =',p,'MN'
c convert dimensions of p from MN to pounds
p=p/(4.448222e-6)
write(*,*)'maximum load that can travel on',fdepth,'m =',p,'pounds'
else if(nput.eq.2)then
write(*,*)'input the vehicle class'
read(*,*)vclass
C CALCULATE THE MINIMUM FROST DEPTH THAT WILL HOLD A SPECIFIED VEHICLE
if(cond.eq.1)then
fdepth = 10*(vclass)**.5
else if(cond.eq.2)then
fdepth = 16*(vclass)**.5
end if
fdepth = fdepth/100
!convert from cm to m
write(*,*)'minimum frost depth that can hold class',vclass,'=',
& fdepth,'m'
else if(nput.eq.3)then
c
write(*,*)'input the vehicle weight (MN)'
write(*,*)'input the vehicle weight (pounds)'
read(*,*)vwght
vwght=vwght*4.448222e-6
!convert to MN
C CALCULATE THE MINIMUM FROST DEPTH THAT WILL HOLD A SPECIFIED LOAD
if(cond.eq.1)then
c
fdepth = (0.86/p)**.5
fdepth = (vwght/0.86)**.5
else if(cond.eq.2)then
c
fdepth = (0.35/p)**.5
fdepth = (vwght/0.35)**.5
end if
write(*,*)'minimum frost depth that can hold',vwght,'MN =',fdepth,'m'
36