diff --git a/code/ysolve.f90 b/code/ysolve.f90
index ae3f5bf..42553ff 100644
--- a/code/ysolve.f90
+++ b/code/ysolve.f90
@@ -253,10 +253,10 @@
 
      SUBROUTINE READ_INTRO
        CHARACTER(LEN=8) :: cdum
-       INTEGER :: itape=300,otape=301,ierr
+       INTEGER :: itape=5,otape=301,ierr
 
 
-       OPEN(itape,FILE='itape')
+       ! OPEN(itape,FILE='itape')
        OPEN(otape,FILE='otape')
         READ(itape,*) cdum,nx
         WRITE(otape,*) cdum,nx
@@ -301,7 +301,7 @@
         READ(itape,*) cdum,cstar
         WRITE(otape,*) cdum,cstar
 
-       CLOSE(itape)
+       ! CLOSE(itape)
 
 !       hx=l_0*pi/REAL(nx)
        hx=l_0*pi/REAL(nx-1)