linse/sics
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

M.Z.

Browse Source
This commit is contained in:
cvs
2002-08-12 09:07:08 +00:00
parent bde19bb973
commit 643f0d81be
10 changed files with 187 additions and 73 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
tecs/tecs_for.f
View File

@@ -121,7 +121,7 @@ c if INIT exists, read it to get the port number and the start command
startcmd=' '
open (lun, file=init, status='old', iostat=ios)
call sys_open_read(lun, init, ios)
if (ios .eq. 0) read (lun, *, iostat=ios) port
if (ios .eq. 0) read (lun, *, iostat=ios) ! skip options line
if (ios .eq. 0) read (lun, '(a)', iostat=ios) startcmd