Lines Matching refs:alo

57       integer alo(3), ahi(3), blo(3), bhi(3), clo(3), chi(3)
108       alo(1) = nbf
109       alo(2) = -1
110       alo(3) = -1
114       if (.not.nga_create(MT_DBL,3,ahi,'aor U(1)',alo,g_u)) call 
127       alo(1) = nocc+1
129       alo(3) = 1
132         alo(2) = iocc
134         call nga_scale_patch(g_smat1,alo,ahi,-epst(iocc)) 
140       alo(2) = 1
150         call nga_copy_patch('n',g_smat1,alo,ahi,g_rhs(ipm),blo,bhi)
162       alo(1) = 1
164       call nga_scale_patch(g_smat1,alo,ahi,-0.5d0)
165       call nga_copy_patch('n',g_smat1,alo,ahi,g_u,alo,ahi)
171         call nga_copy_patch('n',g_smat1,alo,ahi,g_amat(ipm),alo,ahi)
202       alo(1) = 1
203       alo(2) = 1
224         alo(3) = ifld
234      &     g_u,alo,ahi,g_smat1,dlo,dhi)  
253      &     g_smat1,alo,ahi,g_d1,clo,chi)  
320       alo(1) = 1
322       alo(2) = 1
325         alo(3) = ifld
331      $     g_vectors,alo,ahi,
332      $     g_smat1,alo,ahi)
345         alo(3) = ifld
351      $     g_smat1, alo,ahi,
426       alo(1) = -1 
427       alo(2) = -1
428       alo(3) = 1
432       if (.not.nga_create(MT_DBL,3,ahi,'aor_giao F2',alo,g_fock)) call 
458       alo(1) = nocc+1
460       alo(2) = 1
462       alo(3) = 1
471       call nga_add_patch(1.0d0,g_rhs(ipm),blo,bhi,1.0d0,g_fock,alo,ahi,
494           alo(1) = 1
496           alo(2) = 1
498           alo(3) = ifld
501           call nga_copy_patch('t',g_sket1,alo,ahi,g_smat1,alo,ahi)
505         alo(1) = nocc+1
507         alo(2) = 1
509         alo(3) = 1
525      &     alo,ahi,1d0,g_rhs(1),blo,bhi,
535      &       alo,ahi,1d0,g_rhs(2),blo,bhi,