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