common/m7/ibase,rci,idist,slope
C ENTER TERRAIN DATA
write(*,*)'enter snow base code:'
write(*,*)'1 = super highways/primary roads'
write(*,*)'2 = secondary roads'
write(*,*)'3 = off-road terrain/trails/strong frozen soil'
write(*,*)'4 = ice (if snow depth is < 1.0cm then ice only)'
write(*,*)'5 = unfrozen soil'
read(*,*) ibase
write(*,*)'input the snow depth (cm)'
read(*,*)hsnow
if ((ibase.ne.4).or.(hsnow .ge. 1.0)) then
write(*,*)'enter the type of snow'
write(*,*)'6 = disturbed snow (more than 4 vehicle passes)'
write(*,*)'7 = undisturbed snow'
read(*,*)idist
end if
if (ibase.eq.5) then
write(*,*)'input rating cone index of the soil'
write(*,*)'20 < RCI < 100'
read(*,*) rci
end if
if (idist.eq.6) then
if (sigma0.le.0.55) then
sigma0 = 0.55
end if
else
if ((ibase.ne. 4).or.(hsnow .ge. 1.0)) then
write(*,*)'input the snow density (g/cm**3)'
read(*,*)sigma0
end if
end if
write(*,*)'enter the angle of the slope (degrees)'
read(*,*)slope
return
end
C **************************************************************************
subroutine pressure
C THIS SUBROUTINE CALCULATES THE CONTACT PRESSURE
common/m1/nwhls(10),rads(10),width(10),pload(10),area(10),aa(10)
common/m2/ip(10),pres1(10),tlength(10)
26
Previous Page
