val(i,j) = eigval(1)
val(i,j)=zeroRL
IF (kLow(i,j).GT.2 .AND. val(i,j).NE.zeroRL) THEN
Rmid(i,j) = 1.0/(SQRT(ABS(val(i,j)))+small)
_RL val( 1-Olx:sNx+Olx,1-Oly:sNy+Oly)
val = fld(I,J,K,bi,bj)
val = fld(I,K,J,bi,bk)
val = fld(K,I,J,bk,bi)
IF ( validRange .AND. val .NE. 0. ) THEN
& FLOAT( lChList-1 )*( val-fMin ) / (fRange)
IF ( val .EQ. 0. ) THEN
_RL val