File: delay.f

package info (click to toggle)

scilab 2.2-4

links: PTS
area: non-free
in suites: hamm
size: 31,472 kB
ctags: 21,963
sloc: fortran: 110,983; ansic: 89,717; makefile: 3,016; sh: 1,892; csh: 150; cpp: 101

file content (20 lines) | stat: -rw-r--r-- 503 bytes

      subroutine delay(t,x,nx,z,nz,u,nu,rpar,nrpar,ipar,nipar,nclock,
     &     out,nout,flag)
c     delay
c     delay=nx*dt
c!
      double precision t,x(*),z(*),u(*),rpar(*),out(*)
      integer ipar(*),flag,i
c
      if(flag.eq.1) then
c     interpolate to find values at t-delay
         out(1)=z(1)
      elseif(flag.eq.2) then
c     .  shift buffer   
         do 10 i=1,nz
            z(i)=z(i+1)
 10      continue
c     .  add new point to the buffer
         z(nz)=u(1)
       endif
      end