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 15:01:19 +00:00
parent 213a6f2f00
commit 2378909981
11 changed files with 607 additions and 228 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(0)
iret=tecs_quit_server(0)
if (iret .lt. 0) goto 91
goto 99
endif