Lines Matching refs:lvl
390 integer :: i,j,k,lvl,ideg local
400 do lvl=1,ramg_levelx
401 call ramg_mls_eigen(evmax,lvl,1,colm,rowp,lhsK,lhsP,
404 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)
452 mlsOm(lvl,i) = omloc(i)
470 smlsOm(lvl,1) = 2.0/(1.025*rho2)!*mlsCf(lvl,1)
477 write(*,*)'MLS: Setup finished at level:',lvl,mlsCf(lvl,1)
544 integer :: i,j,k,lvl variable
546 do lvl = 1,ramg_levelx
547 call ramg_mls_eigen(evmax,lvl,2,colm,rowp,lhsK,lhsP,
549 smlsOm(lvl,2) = 1.0/(1.025*evmax)!*mlsCf(lvl,1)
551 write(*,*)'mcheck: post,',evmax,smlsOm(lvl,2)