home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-387-Vol-3of3.iso / h / house_ii.zip / FOR / HILIM.FOR < prev    next >
Text File  |  1992-04-07  |  723b  |  26 lines

  1.       SUBROUTINE HILIM(THLOFF,THLON,TSHLIM,TCONTROL)
  2. C
  3. C  HIGH LIMIT SWITCH
  4. C INPUTS:   (READ IN NAMELIST INPGSF IN GASF)
  5. C  THLOFF - HIGH LIMIT SENSOR SWITCH WILL OPEN WHEN SENSOR TEMP > THLOFF
  6. C  THLON  - SWITCH WILL REMAIN OPEN UNTIL SENSOR TEMP < THLON
  7. C  TSHLIM - HIGH-LIMIT SENSOR TIME CONSTANT, HR
  8. CMDK TIMEB
  9. CMDK HILIMB
  10.       DATA NTIM/1/
  11.       IF(NTIM.EQ.1)THEN
  12.         NTIM=0
  13.         TCTHLM=DTIME/TSHLIM
  14.         THLIM=TCONTROL
  15.         IBRNHLS=1
  16.       ENDIF
  17.       THLIM=THLIM+TCTHLM*(TCONTROL-THLIM)
  18.       IF(IBRNHLS.EQ.0)THEN
  19.         IF(THLIM.LT.THLON)IBRNHI=1
  20.       ELSE
  21.         IF(THLIM.GT.THLOFF)IBRNHI=0
  22.       ENDIF
  23.       IBRNHLS=IBRNHI
  24.       RETURN
  25.       END
  26.