anchor.diff:  	COMPLEX(kind=8), DIMENSION(:), ALLOCATABLE	::  kx,ky,kz
   	REAL(kind=8),  	 DIMENSION(:), ALLOCATABLE	::  x,y,z 
   	COMPLEX(kind=8), DIMENSION(:,:,:), ALLOCATABLE	::  u,v,pot 
  +	REAL(kind=8), 	 DIMENSION(:,:,:), ALLOCATABLE  ::  uabs
   	REAL(kind=8), 	 DIMENSION(:), ALLOCATABLE	::  time
   	INTEGER(KIND=4), DIMENSION(1:5)	::  intcomm
   	REAL(KIND=8), DIMENSION(1:5)	::  dpcomm
  
positive.code: 	! clean up 
    	CALL decomp_2d_fft_finalize
    	CALL decomp_2d_finalize
   	DEALLOCATE(u,v,pot,&
     			kx,ky,kz,x,y,z,&
     			time,stat=AllocateStatus)	
  	IF (AllocateStatus .ne. 0) STOP 
  	IF (myid.eq.0) THEN
  	   	PRINT *,'Program execution complete'
  	END IF
  	CALL MPI_FINALIZE(ierr)		
  	END PROGRAM main
negative.code: 	nameconfig=nameconfig(1:ind)//numberfile
  	ind=index(nameconfig,' ') -1
  	nameconfig=nameconfig(1:ind)//'.datbin'
  	CALL decomp_2d_write_one(1,uabs,nameconfig)
    
  	CALL decomp_2d_fft_3d(u,v,DECOMP_2D_FFT_FORWARD)
  	IF (myid.eq.0) THEN
  