_RL SPDepth (imt )
I , boplume,SPDepth
_RL SPDepth (imt)
I imt, hbf,SPDepth,
I imt,minusone,SPDepth,
dd20 = (abs(SPDepth(i)))
I imax, fact,SPDepth,
dd = abs(SPDepth(i))
_RL plumek(imax), SPDepth(imax)
IF (SPDepth(i).GE.facz .and. SPDepth(i) .GT. zero) THEN