research/incomp-flame-1d
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

read input from stdin

Browse source
This commit is contained in:
Yeongdo Park 2019-03-18 16:26:08 -04:00
parent b03880aa48
commit df1b7fb30a
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
code/ysolve.f90
View file

@ -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)