diff --git a/src/genepsi3d.f90 b/src/genepsi3d.f90
index 2ecd5d40063e005b3e943c8f7c05b94527d15f3f..72f48df5bcd29df566d7ec8ebee8c5b7816fe1db 100644
--- a/src/genepsi3d.f90
+++ b/src/genepsi3d.f90
@@ -314,7 +314,7 @@ contains
     else
        dyraf =yly/real(nyraf-1, mytype)
     endif
-    write(*,*) ny, size(yp), size(ypraf), nraf
+   !  write(*,*) ny, size(yp), size(ypraf), nraf
     do j=1,ny-1
        do jraf=1,nraf
           ypraf(jraf+nraf*(j-1))=yp(j)+real(jraf-1, mytype)*(yp(j+1)-yp(j))/real(nraf, mytype)