C CALCULATE GVW FOR WHEELED VEHICLES
do i=1,nunits
gvw=gvw+(pload(i)*nwhls(i))
end do
write(*,115)nunits
write(*,220)gclear
write(*,110)(nwhls(i),i=1,nunits)
write(*,110)(ip(i),i=1,nunits)
write(*,120)(rads(i),i=1,nunits)
write(*,120)(width(i),i=1,nunits)
write(*,120)(pload(i),i=1,nunits)
write(*,120)(area(i),i=1,nunits)
write(*,*)sec,def
write (*,*)gvw
else
C
READ TRACK VEHICLE DATA - ENGLISH UNITS
read(21,215)nunits
read(21,120)(width(i),i=1,nunits)
!TRACK WIDTH
read(21,120)(tlength(i),i=1,nunits)
!TRACK LENGTH
read(21,220)gvw
!GROSS VEHICLE WEIGHT
read(21,220)gclear
!GROUND CLEARANCE
read(21,120)(aa(i),i=1,nunits)
!ENTRY ANGLE
write(*,215)nunits
write(*,120)(width(i),i=1,nunits)
write(*,120)(tlength(i),i=1,nunits)
write(*,220)gvw
write(*,220)gclear
write(*,120)(aa(i),i=1,nunits)
end if
10
format(a12)
100
format(2a4)
110
format(10i2)
115
format(i2)
120
format(10f7.2)
130
format(f6.2,f6.3)
215
format(i2)
220
format(f10.2)
close(21)
return
end
C *******************************************************************
subroutine snow(hsnow,sigma0)
C THIS SUBROUTINE READS IN SNOW AND TERRAIN DATA
25
Previous Page
