| /phasta/phSolver/incompressible/ |
| H A D | lesSparse.f | 28 real*8 lhsK(9,nnz_tot), lhsP(4,nnz_tot) 29 integer rowp(nnz_tot), colm(nshg+1) 156 & rowp(nnz_tot), colm(nshg+1) 158 real*8 sclrDiag(nshg), lhsS(nnz_tot), BC(nshg,ndofBC) 206 & nnz_tot ) 211 integer nNodes, nnz_tot 212 integer col(nNodes+1), row(nnz_tot) 213 real*8 pLhs(4,nnz_tot), p(nNodes), q(nNodes,3) 262 integer col(nNodes+1), row(nnz_tot) 263 real*8 kLhs(9,nnz_tot), pLhs(4,nnz_tot) [all …]
|
| H A D | solvedata.f | 17 allocate (lhsP(4,nnz_tot)) 18 allocate (lhsK(9,nnz_tot)) 29 allocate (lhsS(nnz_tot,nsclrsol))
|
| H A D | solfar.f | 170 ALLOCATE (Res4(dof,nshg), Val4(dof*dof,nnz_tot)) 177 DO i=1, nnz_tot 253 & nnz_tot, CGsol ) 279 & nnz_tot, CGsol ) 459 ALLOCATE (Res1(dof,nshg), Val1(dof*dof,nnz_tot)) 466 DO i=1, nnz_tot 500 & nnz_tot, CGsol )
|
| H A D | elmStats.f | 92 & BC(nshg,ndofBC), lhsK(9,nnz_tot), 93 & lhsP(4,nnz_tot), res(nshg,ndof)
|
| H A D | usr.h | 43 int* nnz_tot ; /* factor for number of nonzeros) */ member 133 int* nnz_tot,
|
| H A D | genlmass.f | 179 real*8 lhsK(9,nnz_tot), gmass(nshg), rho(nshg) 221 real*8 lhsS(nnz_tot), gmass(nshg), rho(nshg)
|
| H A D | usr.c | 64 int* nnz_tot, in usrNew() 97 usrHd->nnz_tot = nnz_tot ; in usrNew()
|
| H A D | lestools.c | 916 &(usrHd->nnz_tot)); in lesApG() 1001 &(usrHd->nNodes),&(usrHd->nnz_tot)); in lesApKG() 1066 &(usrHd->nNodes),&(usrHd->nnz_tot)); in lesApNGt() 1150 &(usrHd->nNodes),&(usrHd->nnz_tot)); in lesApNGtC() 1214 &(usrHd->nNodes),&(usrHd->nnz_tot)); in lesApFull() 1284 &(usrHd->nNodes),&(usrHd->nnz_tot)); in lesApSclr()
|
| H A D | elmgmr.f | 48 real*8 lhsK(9,nnz_tot), lhsP(4,nnz_tot) 402 real*8 lhsS(nnz_tot)
|
| H A D | stats.f | 203 & BC(nshg,ndofBC), lhsK(9,nnz_tot), 204 & lhsP(4,nnz_tot), x(numnp,nsd)
|
| /phasta/phSolver/AMG/ |
| H A D | ramg_driver.f | 30 integer,intent(in),dimension(nnz_tot) :: rowp 31 real(kind=8),intent(in),dimension(9,nnz_tot) :: lhsK 32 real(kind=8),intent(in),dimension(4,nnz_tot) :: lhsP 118 integer,intent(in),dimension(nnz_tot) :: rowp 120 real(kind=8),intent(in),dimension(9,nnz_tot) :: lhsK 121 real(kind=8),intent(in),dimension(4,nnz_tot) :: lhsP 180 integer,intent(in),dimension(nnz_tot) :: rowp 181 real(kind=8),intent(in),dimension(9,nnz_tot) :: lhsK 182 real(kind=8),intent(in),dimension(4,nnz_tot) :: lhsP 294 integer,intent(in),dimension(nnz_tot) :: rowp [all …]
|
| H A D | ramg_mls.f | 21 integer,intent(in),dimension(nnz_tot) :: rowp 23 real(kind=8),intent(in),dimension(9,nnz_tot) :: lhsK 24 real(kind=8),intent(in),dimension(4,nnz_tot) :: lhsP 201 integer,intent(in),dimension(nnz_tot) :: rowp 203 real(kind=8),intent(in),dimension(9,nnz_tot) :: lhsK 204 real(kind=8),intent(in),dimension(4,nnz_tot) :: lhsP 379 integer,intent(in),dimension(nnz_tot) :: rowp 380 real(kind=8),intent(in),dimension(9,nnz_tot) :: lhsK 381 real(kind=8),intent(in),dimension(4,nnz_tot) :: lhsP 506 integer,intent(in),dimension(nnz_tot) :: rowp [all …]
|
| H A D | ramg_cheby.f | 20 integer,intent(in),dimension(nnz_tot) :: rowp 22 real(kind=8),intent(in),dimension(9,nnz_tot) :: lhsK 23 real(kind=8),intent(in),dimension(4,nnz_tot) :: lhsP 114 integer,intent(in),dimension(nnz_tot) :: rowp 115 real(kind=8),intent(in),dimension(9,nnz_tot) :: lhsK 116 real(kind=8),intent(in),dimension(4,nnz_tot) :: lhsP
|
| H A D | ramg_smoother.f | 13 integer,intent(in),dimension(nnz_tot) :: rowp 14 real(kind=8),intent(in),dimension(9,nnz_tot) :: lhsK 15 real(kind=8),intent(in),dimension(4,nnz_tot) :: lhsP 28 call fLesSparseApG(colm,rowp,lhsP,v,utmp,nshg,nnz_tot) 42 call fLesSparseApNGtC(colm,rowp,lhsP,utmp4,u,nshg,nnz_tot) 336 integer,intent(in),dimension(nnz_tot) :: rowp 337 real(kind=8),intent(in),dimension(9,nnz_tot) :: lhsK 338 real(kind=8),intent(in),dimension(4,nnz_tot) :: lhsP 407 integer,intent(in),dimension(nnz_tot) :: rowp 409 real(kind=8),intent(in),dimension(9,nnz_tot) :: lhsK [all …]
|
| H A D | ramg_ggb.f | 11 integer,intent(in),dimension(nnz_tot) :: rowp 13 real(kind=8),intent(in),dimension(9,nnz_tot) :: lhsK 14 real(kind=8),intent(in),dimension(4,nnz_tot) :: lhsP 285 integer,intent(in),dimension(nnz_tot) :: rowp 286 real(kind=8),intent(in),dimension(9,nnz_tot) :: lhsK 287 real(kind=8),intent(in),dimension(4,nnz_tot) :: lhsP 328 integer,intent(in),dimension(nnz_tot) :: rowp 329 real(kind=8),intent(in),dimension(9,nnz_tot) :: lhsK 330 real(kind=8),intent(in),dimension(4,nnz_tot) :: lhsP
|
| H A D | ramg_paratools.f | 496 integer,intent(in),dimension(nnz_tot) :: rowp 497 real(kind=8),intent(in),dimension(9,nnz_tot) :: lhsK 498 real(kind=8),intent(in),dimension(4,nnz_tot) :: lhsP 516 call fLesSparseApG(colm,rowp,lhsP,t1,t2,nshg,nnz_tot) 527 call fLesSparseApNGtC(colm,rowp,lhsP,t2b,t1,nshg,nnz_tot) 553 integer,intent(in),dimension(nnz_tot) :: rowp 554 real(kind=8),intent(in),dimension(9,nnz_tot) :: lhsK 555 real(kind=8),intent(in),dimension(4,nnz_tot) :: lhsP 570 call fLesSparseApG(colm,rowp,lhsP,t1,t2,nshg,nnz_tot) 581 call fLesSparseApNGtC(colm,rowp,lhsP,t2b,t1,nshg,nnz_tot) [all …]
|
| H A D | ramg_extract.f | 29 integer,intent(in),dimension(nnz_tot) :: rowp 30 real(kind=8),intent(in),dimension(9,nnz_tot) :: lhsK 31 real(kind=8),intent(in),dimension(4,nnz_tot) :: lhsP 120 call ramg_global_lhs(colm,rowp,lhsP,nnz_tot,
|
| H A D | ramg_control.f | 13 integer,intent(in),dimension(nnz_tot) :: rowp 14 real(kind=8),intent(in),dimension(9,nnz_tot) :: lhsK 15 real(kind=8),intent(in),dimension(4,nnz_tot) :: lhsP
|
| H A D | ramg_tools.f | 148 integer,intent(in),dimension(nnz_tot) :: rowp 150 real(kind=8),intent(in),dimension(9,nnz_tot) :: lhsK 151 real(kind=8),intent(in),dimension(4,nnz_tot) :: lhsP 442 subroutine ramg_check_diag(colm,rowp,lhs,nshg,nnz_tot) argument 444 integer,intent(in) :: nshg,nnz_tot local 446 integer,intent(in),dimension(nnz_tot) :: rowp 447 real(kind=8),intent(in),dimension(nnz_tot) :: lhs
|
| /phasta/phSolver/common/ |
| H A D | fillsparse.f | 10 real*8 lhsK(9,nnz_tot), lhsP(4,nnz_tot) 83 real*8 lhsK(nflow*nflow,nnz_tot) 146 real*8 lhsK(nflow*nflow,nnz_tot) 200 real*8 lhsS(nnz_tot)
|
| H A D | input.f | 225 & nshg, nnz, istop, nflow, nnz_tot, idtn,
|
| /phasta/phSolver/compressible/ |
| H A D | sparseap.f | 20 real*8 lhsK(nflow*nflow,nnz_tot)
|
| H A D | itrdrv.f | 171 nnz_tot=icnt ! this is exactly the number of non-zero 177 allocate (lhsK(nflow*nflow,nnz_tot))
|
| /phasta/AcuStat/include/ |
| H A D | commonAcuStat_c.h | 210 int nnz_tot; member
|
| /phasta/M2N/include/ |
| H A D | commonM2N_c.h | 210 int nnz_tot; member
|