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

Works now under OSF1 and Linux

Browse Source
This commit is contained in:
cvs
2002-01-24 14:55:05 +00:00
parent e3c9ba56e6
commit 213a6f2f00
3 changed files with 23 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
tecs/tecs_client.f
View File

@@ -29,7 +29,7 @@
if (line(1:l) .eq. 'off' .or. line(1:l) .eq. 'OFF') then
call tecs_open(0, ' ', iret)
if (iret .lt. 0) goto 91
iret=tecs_quit_server()
iret=tecs_quit_server(0)
if (iret .lt. 0) goto 91
goto 99
endif