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

revision of TecsServer / treat "interest" correctly

Browse Source
This commit is contained in:
cvs
2000-06-02 07:27:19 +00:00
parent 9c093bc2ac
commit 82097034d5
13 changed files with 309 additions and 182 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
tecs/tecs_client.f
View File

@@ -106,7 +106,7 @@
print *,'device temperature device'
print *,'controlMode control on: 0: heat exchanger, '
1 ,'1: sample, 2: second loop'
print *,'power heater max. power'
print *,'maxPower heater max. power'
print *,'prop PID gain'
print *,'int PID integration time: 1000/int sec'
print *,'deriv PID derivation term'
@@ -116,7 +116,7 @@
print *,'Read only parameters:'
print *
print *,'tX heat exchanger temperature'
print *,'tP sample temperature'
print *,'tS sample temperature'
print *,'tempH set-point on regulation'
print *,'tLimit temperature limit'
print *,'htr heater current percentage'
@@ -167,7 +167,11 @@
endif
goto 1
19 call tecs_write_error(6)
19 if (iret .eq. -2) then
call tecs_write_msg(6)
else
call tecs_write_error(6)
endif
goto 1
91 if (iret .lt. 0) then