Computational routine
eng


cna

File content


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

c     REVISION HISTORY :
c     $Log: cna_routcos.htm,v $
c     Revision 1.1  2016-07-22 04:27:08  jpc
c     added
c
c     Revision 1.1  2015-12-25 15:47:30  layec
c     add
c
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