Searched refs:omloc (Results 1 – 1 of 1) sorted by relevance
388 real(kind=8),dimension(10) :: omloc local405 omloc = 0419 omloc(i) = 1.0/auxom424 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)[all …]