Home
last modified time | relevance | path

Searched refs:mlsCf (Results 1 – 4 of 4) sorted by relevance

/phasta/phSolver/AMG/
H A Dramg_cheby.f41 beta = 1.1*mlsCf(level,1) ! 1.1 * Ev_max
42 alpha = mlsCf(level,1)*ramg_chebyratio
129 call ramg_mls_eigen(mlsCf(lvl,1),lvl,1,colm,rowp,lhsK,lhsP,
135 write(*,7000)lvl,mlsCf(lvl,1)
H A Dramg_mls.f404 mlsCf(lvl,:) = 0
424 mlsCf(lvl,1) = omloc(1)+omloc(2)+omloc(3)+omloc(4)+omloc(5)
426 mlsCf(lvl,2) = -( omloc(1)*omloc(2)+omloc(1)*omloc(3)
432 mlsCf(lvl,3) = ( omloc(1)*omloc(2)*omloc(3)
443 mlsCf(lvl,4) = -( omloc(1)*omloc(2)*omloc(3)*omloc(4)
449 mlsCf(lvl,5) = omloc(1)*omloc(2)*omloc(3)*omloc(4)*omloc(5)
477 write(*,*)'MLS: Setup finished at level:',lvl,mlsCf(lvl,1)
638 cf = mlsCf(level,1)
645 cf = mlsCf(level,i)
H A Dramg_data.f104 real(kind=8),dimension(MAXAMGLVL,10) :: mlsCf,mlsOm variable
H A Dramg_smoother.f137 cf1 = 1.1*mlsCf(clevel,1)