Computational routine
eng

cna

File content

c     cna.f Digital to Analog Convertor
c     IRCOM Group - A. Layec

c     REVISION HISTORY :
c     $Log$
c     
      subroutine cna(flag,nevprt,t,xd,x,nx,z,nz,tvec,ntvec,
     &     rpar,nrpar,ipar,nipar,u,nu,y,ny)

      double precision t,xd(*),x(*),z(*),tvec(*),rpar(*),u(*),y(*)
      integer flag,nevprt,nx,nz,ntvec,nrpar,ipar(*)
      integer nipar,nu,ny

      integer i,j
      double precision fsr

      do 15 i=1,nu
         if(ipar(i+nu).eq.1) then
            y(i)=rpar(i)*(u(i)+(2**(ipar(i)-1)))+rpar(i+nu)
         else 
            y(i)=rpar(i)*u(i)+rpar(i+nu)
         endif
 15   continue
 
      end