Lines Matching refs:total

41       real*8 total
151       total=0.
153         total=total+hv(voffset+i)
155       if (abs(total-2.)>1.0d-10) then
157         write(*,*) 'Computed Area: ',total,' != True Area: 1.0'
174       total=0.
176         total=total+hv(voffset+i)
178       if (abs(total-2.)>1.0d-10) then
180         write(*,*) 'Computed Area Fine Grid: ',total,' != True Area: 1.0'
191       total=0.
193         total=total+hv(voffset+i)
195       if (abs(total-2.)>1.0d-10) then
197         write(*,*) 'Computed Area Coarse Grid: ',total,' != True Area: 1.0'