From df1b7fb30add08234121f96bbb150af92fd51f6e Mon Sep 17 00:00:00 2001
From: Yeongdo Park <ignis@postech.ac.kr>
Date: Mon, 18 Mar 2019 16:26:08 -0400
Subject: [PATCH] read input from stdin

---
 code/ysolve.f90 | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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)