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

improved tecs driver M.Z.

Browse Source
This commit is contained in:
cvs
2004-03-09 15:18:01 +00:00
parent 7422a261ea
commit 55848218a4
23 changed files with 1372 additions and 713 deletions
Download Patch File Download Diff File Expand all files Collapse all files

56
tecs/tecs_client.f
View File

@@ -37,10 +37,12 @@
oneCommand=.true.
port=instr_host(line, inst, host, user, pcod)
else
call sys_getenv('HOST', line)
port=instr_host(line, inst, host, user, pcod)
oneCommand=.false.
port=0
endif
call sys_getenv('TECS_START', start)
if (port .gt. 0) then
if (port .eq. 1) port=9753
@@ -60,26 +62,12 @@
if (oneCommand) goto 11
print *
print *,'Tecs Client'
print *,'-----------'
print *
print *,'set <temp> set temperature'
print *,'send <command> direct command to LSC340'
print *,'device <device> set cryo device'
print *,'<parameter> show parameter'
print *,'<parameter> <value> set parameter'
print *
print *,'<empty line> show summary'
print *,'plot <var> chart for temperature and <var>'
1 ,' var = P (default), He, Aux'
print *,'log <n> show last n lines of logfile'
print *,'remote set to remote mode'
print *,'reset reset alarms'
print *,'kill shut down TecsServer'
print *,'restart restart TecsServer'
print *,'exit,quit exit tecs client'
print *,'help show list of parameters and cryo devices'
line='tecs'
line(52-i:64)='connected to '//inst(1:i)
print '(x,64(''-''))'
print '(x,a)',line(1:64)
print '(x,64(''-''))'
print '(33x,a)','type help for a list of commands'
print *
l=0
@@ -180,7 +168,26 @@
call tecs_plot(' ')
elseif (cmd .eq. 'help') then
print *
print *,'Writeable parameters:'
print *,'tecs client commands (can not be used from SICS)'
print *
print *,'<empty line> show summary'
print *,'plot chart for temperature'
print *,'log <n> show last n lines of logfile'
print *,'remote set to remote mode'
print *,'reset reset alarms'
print *,'kill shut down TecsServer'
print *,'restart restart TecsServer'
print *,'exit, quit exit tecs client'
print *
print *,'commands/parameters:'
print *
print *,' From tecs: <parameter> show parameter'
print *,' <parameter> <value> set parameter'
print *
print *,' From SICS: tt <parameter> show parameter'
print *,' tt <parameter> <value> set parameter'
print *
print *,'changeable parameters:'
print *
print *,'set temperature set-point'
print *,'device temperature device'
@@ -193,14 +200,15 @@
print *,'deriv PID derivation term'
print *,'maxShift maximum (set-tempH) for controlMode=2'
print *,'int2 integration time (sec) for controlMode=2'
print *,'tLimit temperature limit'
! print *,'remoteMode 1: local, 2: remote'
print *,'send direct command to LSC340'
print *
print *,'Read only parameters:'
print *,'read only parameters:'
print *
print *,'Tm main temperature'
print *,'Ts sample temperature'
print *,'Tr set-point on regulation'
print *,'tLimit temperature limit'
print *,'helium helium level'
print *,'htr heater current percentage'
print *,'resist heater resistance'