Computational routine
eng

demux

File content

      subroutine demux(flag,nevprt,t,xd,x,nx,z,nz,tvec,ntvec,
     &     rpar,nrpar,ipar,nipar,uy1,nuy1,uy2,nuy2,uy3,nuy3,uy4,
c     Copyright INRIA

     &     nuy4,uy5,nuy5,uy6,nuy6,uy7,nuy7,uy8,nuy8,uy9,nuy9)
c     Scicos block simulator
c
      double precision t,xd(*),x(*),z(*),tvec(*),rpar(*)
      double precision uy1(*),uy2(*),uy3(*),uy4(*),uy5(*),uy6(*)
      double precision uy7(*),uy8(*),uy9(*)
      integer flag,nevprt,nx,nz,ntvec,nrpar,ipar(*)
      integer nipar
      integer k
c

      k=0
      goto(20,30,40,50,60,70,80),ipar(1)-1
c
 20   do 25 i=1,nuy2
         k=k+1
         uy2(i)=uy1(k)
 25   continue
      do 27 i=1,nuy3
         k=k+1
         uy3(i)=uy1(k)
 27   continue
      return
c
 30   do 35 i=1,nuy2
         k=k+1
         uy2(i)=uy1(k)
 35   continue
      do 37 i=1,nuy3
         k=k+1
         uy3(i)=uy1(k)
 37   continue
      do 38 i=1,nuy4
         k=k+1
         uy4(i)=uy1(k)
 38   continue
      return
c
 40   do 41 i=1,nuy2
         k=k+1
         uy2(i)=uy1(k)
 41   continue
      do 42 i=1,nuy3
         k=k+1
         uy3(i)=uy1(k)
 42   continue
      do 43 i=1,nuy4
         k=k+1
         uy4(i)=uy1(k)
 43   continue
      do 44 i=1,nuy5
         k=k+1
         uy5(i)=uy1(k)
 44   continue
      return
c
 50   do 51 i=1,nuy2
         k=k+1
         uy2(i)=uy1(k)
 51   continue
      do 52 i=1,nuy3
         k=k+1
         uy3(i)=uy1(k)
 52   continue
      do 53 i=1,nuy4
         k=k+1
         uy4(i)=uy1(k)
 53   continue
      do 54 i=1,nuy5
         k=k+1
         uy5(i)=uy1(k)
 54   continue
      do 55 i=1,nuy6
         k=k+1
         uy6(i)=uy1(k)
 55   continue
      return
c
 60   do 61 i=1,nuy2
         k=k+1
         uy2(i)=uy1(k)
 61   continue
      do 62 i=1,nuy3
         k=k+1
         uy3(i)=uy1(k)
 62   continue
      do 63 i=1,nuy4
         k=k+1
         uy4(i)=uy1(k)
 63   continue
      do 64 i=1,nuy5
         k=k+1
         uy5(i)=uy1(k)
 64   continue
      do 65 i=1,nuy6
         k=k+1
         uy6(i)=uy1(k)
 65   continue
      do 66 i=1,nuy7
         k=k+1
         uy7(i)=uy1(k)
 66   continue
      return
c
 70   do 71 i=1,nuy2
         k=k+1
         uy2(i)=uy1(k)
 71   continue
      do 72 i=1,nuy3
         k=k+1
         uy3(i)=uy1(k)
 72   continue
      do 73 i=1,nuy4
         k=k+1
         uy4(i)=uy1(k)
 73   continue
      do 74 i=1,nuy5
         k=k+1
         uy5(i)=uy1(k)
 74   continue
      do 75 i=1,nuy6
         k=k+1
         uy6(i)=uy1(k)
 75   continue
      do 76 i=1,nuy7
         k=k+1
         uy7(i)=uy1(k)
 76   continue
      do 77 i=1,nuy8
         k=k+1
         uy8(i)=uy1(k)
 77   continue
      return
c
 80   do 81 i=1,nuy2
         k=k+1
         uy2(i)=uy1(k)
 81   continue
      do 82 i=1,nuy3
         k=k+1
         uy3(i)=uy1(k)
 82   continue
      do 83 i=1,nuy4
         k=k+1
         uy4(i)=uy1(k)
 83   continue
      do 84 i=1,nuy5
         k=k+1
         uy5(i)=uy1(k)
 84   continue
      do 85 i=1,nuy6
         k=k+1
         uy6(i)=uy1(k)
 85   continue
      do 86 i=1,nuy7
         k=k+1
         uy7(i)=uy1(k)
 86   continue
      do 87 i=1,nuy8
         k=k+1
         uy8(i)=uy1(k)
 87   continue
      do 88 i=1,nuy9
         k=k+1
         uy9(i)=uy1(k)
 88   continue
      return
      end