anchor.diff:  	real,	  intent(in)  :: steof(nchan*nwindow,nkeep), stpc(nt-nwindow+1,nkeep)
   	real,   intent(out) :: ffrec(nchan,nt)
   
  -	! Internal
  -	! --------
  -	real, allocatable :: myffrec(:,:)
  -
   	! Call to original subroutine
   	! ---------------------------
  -	call sl_mssarec(steof, stpc, nwindow, ffrec=myffrec, istart=istart, iend=iend)
  -
  -	! Recover results
  -	! ---------------
  -	ffrec = myffrec
  +	call sl_mssarec(steof, stpc, nwindow, ffrec=ffrec, istart=istart, iend=iend)
   
   end subroutine mssarec
   
  
positive.code: 	real,   intent(in)  :: ff(nchan,nt)
  	real,	  intent(out) :: steof(nchan*nwindow,nkeep), stpc(nt-nwindow+1,nkeep), ev(nkeep)
  
  	! Internal
  	! --------
  	real, allocatable :: mysteof(:,:), mystpc(:,:), myev(:)
  
  	! Call to original subroutine
  	! ---------------------------
  	call sl_mssa(ff, nwindow, nkeep, steof=mysteof, stpc=mystpc, ev=myev)
  		
  	! Recover results
  	! ---------------
  	steof = mysteof
  	stpc  = mystpc
  	ev    = myev
  
  end subroutine mssa
  
  
  
negative.code: 	real,    intent(in)  :: xeof(ns,nkept), pc(nt,nkept)
  	real,    intent(out) :: ffrec(ns,nt)
  
  	! Call to original subroutine
  	! ---------------------------
  	call sl_pcarec(xeof, pc, ffrec=ffrec, istart=istart, iend=iend)
  
  end subroutine pcarec
  
  