rres1(i)=rres1(i)/4.4482
!CONVERT TO lbs
C ADD SLOPE TO RESISTANCE AND SUM RESISTANCE FOR WHOLE VEHICLE
C UP TO 4 UNITS ONLY FOR WHEELED VEHICLE SNOW RESISTANCE,
C 1 UNIT LIMIT FOR TRACKS
sloper=slope*3.14159265/180. !SLOPE IN RADIANS
if(iveh.eq.0)then
do j=1,nunits
rres1(j)=rres1(1)
if (j.gt.4) then
rres1(j)=0.0
end if
rsnow= rsnow+((rres1(j)+pload(j)*sin(sloper))*nwhls(j))
end do
else
rsnow=rres1(1)*nwhls(1)+gvw*sin(sloper)
end if
return
end
C ****************************************************************
subroutine hard(reshard)
common/m1/nwhls(10),rads(10),width(10),pload(10),area(10),aa(10)
common/m2/ip(10),pres1(10),tlength(10)
common/m5/iveh,nunits,pmax,gclear,gvw
common/m6/def,sec
common/m7/ibase,rci,idist,slope
dimension cpffg(10)
C CPFFG = F-G CONTACT PRESSURE FACTOR FOR EACH ELEMENT
C W = WEIGHT BENEATH SUSPENSION ASSEMBLY (TRACK PAIR OR AXLE) IN LBS
C RHARD = HARD SURFACE RESISTANCE COEFFICIENT
reshard = 0.0
C WHEELED VEHICLES
if(iveh.eq.0)then
do i = 1,nunits
w = pload(i)*nwhls(i)
cpffg(i) = w/(nwhls(i)*width(i)*rads(i))
if((ibase.eq.3).or.(ibase.eq.5))then
if(cpffg(i).ge.4.0)then
30
Previous Page
