Lines Matching refs:total

35       real*8 total  variable
130       total=0.
132         total=total+hv(voffset+i)
134       if (abs(total-1.)>1.0d-10) then
136         write(*,*) 'Computed Area: ',total,' != True Area: 1.0'
153       total=0.
155         total=total+hv(voffset+i)
157       if (abs(total-1.)>1.0d-10) then
159         write(*,*) 'Computed Area Fine Grid: ',total,' != True Area: 1.0'
170       total=0.
172         total=total+hv(voffset+i)
174       if (abs(total-1.)>1.0d-10) then
176         write(*,*) 'Computed Area Coarse Grid: ',total,' != True Area: 1.0'