Lines Matching refs:azone3
33 INTEGER azone1,azone2,azone3,azone4
138 DO azone3 = 1,atpart !sigma
139 DO azone4 = azone3,atpart !rho
140 taskl_az12(taskl,1)=azone3
265 azone3=taskl_az12(ipip,1)
270 1 nalength(azone3)*nalength(azone4)
298 do sigma = a2length(azone3)+1,a2length(azone3+1)
322 1 nalength(azone4)+irho1-1)*nalength(azone3)
341 key_4af=azone4 - 1 + atpart * (azone3 - 1 +
398 azone3=taskl_az12(ipip,1)
402 1 nalength(azone3)*nalength(azone4)
415 key_4af=azone4 - 1 + atpart * (azone3 - 1 +
428 1 *nalength(azone3)*nalength(azone4)
433 if(azone3.ne.azone4) then
435 tot_azone3_sh=tot_zone(azone3)
438 do isigma1 = 1,nalength(azone3)
459 if(azone3.eq.azone4) then
461 tot_azone3_sh=tot_zone(azone3)
464 do isigma1 = 1,nalength(azone3)
483 1 nalength(azone3)*nalength(azone4), !k
487 1 dbl_mb(k_4a),nalength(azone3)*nalength(azone4), ! B,ldb