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

unified some functions with fit. M.Z.

Browse Source
This commit is contained in:
cvs
2003-05-20 13:22:03 +00:00
parent b6c6868f24
commit 3231e3e630
23 changed files with 802 additions and 1190 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=' '
call sys_open_read(lun, init, ios)
call sys_open(lun, init, 'R', 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