Lines Matching refs:total

38       real*8 total
141       total=0.
143         total=total+hv(voffset+i)
145       if (abs(total-2.)>1.0d-10) then
147         write(*,*) 'Computed Area: ',total,' != True Area: 1.0'
164       total=0.
166         total=total+hv(voffset+i)
168       if (abs(total-2.)>1.0d-10) then
170         write(*,*) 'Computed Area Fine Grid: ',total,' != True Area: 1.0'
181       total=0.
183         total=total+hv(voffset+i)
185       if (abs(total-2.)>1.0d-10) then
187         write(*,*) 'Computed Area Coarse Grid: ',total,' != True Area: 1.0'