Lines Matching refs:omloc
388 real(kind=8),dimension(10) :: omloc local
405 omloc = 0
419 omloc(i) = 1.0/auxom
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)
427 & +omloc(1)*omloc(4)+omloc(1)*omloc(5)
428 & +omloc(2)*omloc(3)+omloc(2)*omloc(4)
429 & +omloc(2)*omloc(5)+omloc(3)*omloc(4)
430 & +omloc(3)*omloc(5)+omloc(4)*omloc(5) )
432 mlsCf(lvl,3) = ( omloc(1)*omloc(2)*omloc(3)
433 & +omloc(1)*omloc(2)*omloc(4)
434 & +omloc(1)*omloc(2)*omloc(5)
435 & +omloc(1)*omloc(3)*omloc(4)
436 & +omloc(1)*omloc(3)*omloc(5)
437 & +omloc(1)*omloc(4)*omloc(5)
438 & +omloc(2)*omloc(3)*omloc(4)
439 & +omloc(2)*omloc(3)*omloc(5)
440 & +omloc(2)*omloc(4)*omloc(5)
441 & +omloc(3)*omloc(4)*omloc(5) )
443 mlsCf(lvl,4) = -( omloc(1)*omloc(2)*omloc(3)*omloc(4)
444 & +omloc(1)*omloc(2)*omloc(3)*omloc(5)
445 & +omloc(1)*omloc(2)*omloc(4)*omloc(5)
446 & +omloc(1)*omloc(3)*omloc(4)*omloc(5)
447 & +omloc(2)*omloc(3)*omloc(4)*omloc(5) )
449 mlsCf(lvl,5) = omloc(1)*omloc(2)*omloc(3)*omloc(4)*omloc(5)
452 mlsOm(lvl,i) = omloc(i)
463 samplej=1.0-omloc(1)*coord
465 samplej=samplej*(1.0-omloc(i)*coord)
543 real(kind=8),dimension(10) :: omloc variable