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

4
tecs/tecs_client.f
View File

@@ -18,7 +18,7 @@
integer tecs_get_par, tecs_quit_server, tecs_set_par, tecs_watch_log
integer tecs_get, tecs_rights, show_log, instr_host, tecs_start
call sys_load_env('cho')
call sys_loadenv
call sys_getenv('CHOOSER_GDEV', line)
if (line .ne. ' ') then
call sys_setenv('PGPLOT_DEV', '/'//line)
@@ -100,7 +100,7 @@
else
call sys_get_lun(luns(idx))
endif
call sys_open_read(luns(idx), line(2:), i)
call sys_open(luns(idx), line(2:), 'R', i)
if (i .ne. 0) then
print *,'error opening ',line(2:)
close(luns(idx))