Lines Matching refs:g_u
36 integer g_d1(3),g_rhs,g_u(2)
79 if (.not.nga_create(MT_DBL,3,ahi,'U matrix',alo,g_u(1))) call
81 call ga_zero(g_u(1))
82 if (.not.nga_create(MT_DBL,3,ahi,'U matrix',alo,g_u(2))) call
84 call ga_zero(g_u(2))
240 call nga_copy_patch('n',g_rhs,blo,bhi,g_u(1),alo,ahi)
243 call nga_copy_patch('n',g_rhs,blo,bhi,g_u(2),alo,ahi)
293 & g_u(ii),alo,ahi,g_d1(ii),dlo,dhi)
294 call nga_copy_patch('n',g_d1(ii),dlo,dhi,g_u(ii),dlo,dhi)
303 & g_u(ii),alo,ahi,g_d1(ii),clo,chi)
304 call nga_matmul_patch('n','t',1.0d0,0.0d0,g_u(ii),blo,bhi,
311 if (.not.ga_destroy(g_u(1))) call
313 if (.not.ga_destroy(g_u(2))) call