; ; NAME: MM_FER_N ; function mm_fer_n,a,n, NO_INPLACE = noinpl forward_function mm_ero_n, mm_dil_n if n_params() eq 1 then n=1 if (size(a))(0) ne 3 then begin return,mm_ero_n(mm_dil_n(a,n),n) endif else BEGIN IF keyword_set(noinpl) THEN $ return,mm_ero_n(mm_dil_n(a,n, /NO_INPLACE),n, /NO_INPLACE) $ ELSE BEGIN T=MM_DIL_N(A,N) & T=MM_ERO_N(A,N) & RETURN,-1L ENDELSE ENDELSE END ;-