anchor.diff:  
   	! External
   	! --------
  -	real,	intent(in)				:: xeof(:,:), pc(:,:)
  -	real,	intent(out) :: ffrec(size(xeof,1),size(pc,1))
  +	real,	intent(in)              :: xeof(:,:), pc(:,:)
  +	real,	intent(out)             :: ffrec(size(xeof,1),size(pc,1))
   	integer,intent(in),	optional	:: istart, iend
   
   	! Internal
   	! --------
  -	integer 				:: nkept, itmp, zistart=1, ziend, nt, ns, i
  +	integer           :: nkept, itmp, zistart=1, ziend, nt, ns, i
   	real, allocatable	:: zpc(:,:)
   
   
  
positive.code: 
  	! External
  	! --------
  	real,   intent(in)									:: ff(:,:)
  	integer,intent(in)									:: nwindow, nkeep
  	real,	  intent(out), optional	:: steof(size(ff,1)*nwindow, nkeep), stpc(size(ff,2)-nwindow+1, nkeep), ev(nkeep)
  
  	! Internal
  	! --------
  	real, allocatable :: cov(:,:), eig(:), trff(:,:), zff(:,:), zsteof(:,:)
  	real :: wsteof
  	integer :: nchan, nsteof, nt
  	integer :: iw, iw1, iw2, i1, i2, im, ic1, ic2
  
  
  
negative.code: 		zsteof = cov(:, nsteof : nsteof-nkeep+1 : -1)
  		deallocate(cov)
  		if(present(steof))then
  			steof = zsteof
  			deallocate(zsteof)
  		end if
  