home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / MATH / VISSIM.ZIP / FUSER.FOR < prev    next >
Text File  |  1993-05-13  |  1KB  |  57 lines
  1. C  FUSER.FOR
  2.  
  3.       interface to subroutine debmsg[c,varying](fmt)
  4.       character*32 fmt[reference]
  5.       end
  6.  
  7. c================================================
  8.       subroutine runavg(param, insig, outsig)
  9. c*
  10. c*
  11. c*    INPUT(S):   insig(1)  = data to be averaged
  12. c*    OUTPUT(S):  outsig(1) = running average
  13. c*    PARAMETERS: param(1)  = data count
  14. c*                param(2)  = running sum
  15. c*
  16. c*************** Dimensioning *****************************
  17.       real*8 param(2), insig(1), outsig(1)
  18.  
  19.       param(1) = param(1) + 1
  20.       param(2) = param(2) + insig(1)
  21.       outsig(1) = param(2)/param(1)
  22. ! Uncomment next line to get debug output
  23. !     call debMsg('data=%g count=%g sum=%g'c,insig(1),param(1),param(2))
  24.       end
  25.  
  26.       subroutine runavgPI( param )
  27.       real*8 param(2)
  28.       param(1) = 0
  29.       param(2) = 0
  30.       end
  31.  
  32.       integer*4 function runavgPA( pCount )
  33.       integer*2 pCount
  34.       pCount = 2
  35.       runavgPA = 8*2     ! room for 2 real*8's
  36.       end
  37.  
  38.       integer*4 function runavgPC( )
  39.       runavgPC = LOC( 'Data Count;Sum'c)
  40.       end
  41.  
  42. C Place holders for Simulation Start and End events
  43.       subroutine runavgSE( param, runCount )
  44.       real*8 param(2)
  45.       integer*4 runCount
  46.       param(1) = 0
  47.       param(2) = 0
  48.       end
  49.  
  50.       subroutine runavgSS( param, runCount )
  51.       real*8 param(2)
  52.       integer*4 runCount    
  53.       param(1) = 0
  54.       param(2) = 0
  55.       end
  56.  
  57.