Lines Matching refs:azone3
33 INTEGER azone1,azone2,azone3,azone4
138 DO azone3 =1,atpart
139 size_full_length = size_full_length+nalength(azone3)
152 DO azone3 = 1,atpart
155 1 nalength(azone3)*int_mb(k_range_alpha+g3b-1))
160 1 nalength(azone3)*nalength(azone4))
256 DO azone3 = 1,atpart !sigma
257 DO azone4 = azone3,atpart !rho
259 1 nalength(azone3)*nalength(azone4)
260 key_4af=azone4 - 1 + atpart * (azone3 - 1 +
289 do sigma = a2length(azone3)+1,a2length(azone3+1)
311 1 nalength(azone4)+irho1-1)*nalength(azone3)
452 DO azone3 = 1,atpart
454 1 nalength(azone3)*int_mb(k_range_alpha+g3b-1)
459 1 nalength(azone3)*nalength(azone4)
471 if(azone4.le.azone3) then ! azone4 <= azone3
472 key_aaaa=azone3-1+atpart*(azone4-1+
480 1 nalength(azone1)*nalength(azone2)*nalength(azone3), !n
489 key_aaaa=azone4-1+atpart*(azone3-1+
495 & nalength(azone3),nalength(azone4),
501 1 nalength(azone1)*nalength(azone2)*nalength(azone3), !n
514 & int_mb(k_range_alpha+g3b-1),nalength(azone3),
566 DO azone3=1,atpart
567 tot_azone3_sh=tot_zone(azone3)
569 1 int_mb(k_range_alpha+g3b-1)*nalength(azone3)
575 do isigma1 = 1,nalength(azone3)
588 1 nalength(azone3), !k
592 1 dbl_mb(k_loc_agaa_f+k_offset_agaa_f),nalength(azone3), ! B,ldb
906 INTEGER g3b,azone1,azone2,azone3,azone2_para
913 DO azone3 = 1,atpart
927 DO azone3 = 1,atpart
929 int_mb(k_a_offset+addr) = azone3 - 1 + atpart * (g3b - 1 +
933 & int_mb(k_range_alpha+g3b-1) * nalength(azone3)
1014 INTEGER azone1,azone2,azone3,azone4,azone2_pa
1019 DO azone3 = 1,atpart !sigma
1020 DO azone4 = azone3,atpart !rho
1033 DO azone3 = 1,atpart !sigma
1034 DO azone4 = azone3,atpart !rho
1036 int_mb(k_a_offset+addr) = azone4 - 1 + atpart * (azone3 - 1 +
1040 & nalength(azone3) * nalength(azone4)