Lines Matching refs:adim
21 integer anlo,anhi,amlo,amhi,k_a,adim
35 adim=anhi-anlo+1
36 if (.not.ma_push_get(mt_dbl,adim,'Temp1',l_t1,k_t1))
39 call ga_get(g_a,anlo,anhi,k,k,dbl_mb(k_t1),adim)
40 call tga_ddot_oper(x,dbl_mb(k_t1),dbl_mb(k_t1),adim)
42 if (.not.ma_push_get(mt_dbl,adim,'Temp2',l_t2,k_t2))
44 call ga_get(g_a,anlo,anhi,l,l,dbl_mb(k_t2),adim)
45 call tga_ddot_oper(x,dbl_mb(k_t1),dbl_mb(k_t2),adim)
54 adim=anhi-anlo+1
56 if (.not.ma_push_get(mt_dbl,adim,'Temp',l_t1,k_t1))
60 call ga_get(g_a,anlo,anhi,k,k,dbl_mb(k_t1),adim)
62 call tga_ddot_oper(x,dbl_mb(k_t1),dbl_mb(k_t2),adim)
99 integer anlo,anhi,amlo,amhi,k_a,adim
110 adim=anhi-anlo+1
112 if (.not.ma_push_get(mt_dbl,adim*m,'Temp1',l_t1,k_t1))
116 call ga_get(g_a,anlo,anhi,k,k+m-1,dbl_mb(k_t1),adim)
118 call tga_add_oper(x,dbl_mb(k_t1),dbl_mb(k_t2),adim,m)