Searched defs:ramg_check_diag (Results 1 – 1 of 1) sorted by relevance
| /phasta/phSolver/AMG/ |
| H A D | ramg_tools.f | 442 subroutine ramg_check_diag(colm,rowp,lhs,nshg,nnz_tot) subroutine
444 integer,intent(in) :: nshg,nnz_tot
445 integer,intent(in),dimension(nshg+1) :: colm
446 integer,intent(in),dimension(nnz_tot) :: rowp
447 real(kind=8),intent(in),dimension(nnz_tot) :: lhs
449 integer :: i,j,p
450 real(kind=8) :: diagrow
451 logical :: diagokay
|