← Back to branch summary

~ubuntu-branches/ubuntu/hoary/scilab/hoary

« back to all changes in this revision

Viewing changes to routines/scicos/mux.f

  • Committer: Bazaar Package Importer
  • Author(s): Torsten Werner
  • Date: 2002-03-21 16:57:43 UTC
  • Revision ID: james.westby@ubuntu.com-20020321165743-e9mv12c1tb1plztg
Tags: upstream-2.6
Import upstream version 2.6

Show diffs side-by-side

added added

removed removed

Lines of Context:
routines/scicos/mux.f
 
1
      subroutine mux(flag,nevprt,t,xd,x,nx,z,nz,tvec,ntvec,
 
2
     &     rpar,nrpar,ipar,nipar,uy1,nuy1,uy2,nuy2,uy3,nuy3,uy4,
 
3
c     Copyright INRIA
 
4
 
 
5
     &     nuy4,uy5,nuy5,uy6,nuy6,uy7,nuy7,uy8,nuy8,uy9,nuy9)
 
6
c     Scicos block simulator
 
7
c     ipar(1) : the number of input
 
8
c
 
9
      double precision t,xd(*),x(*),z(*),tvec(*),rpar(*)
 
10
      double precision uy1(*),uy2(*),uy3(*),uy4(*),uy5(*),uy6(*)
 
11
      double precision uy7(*),uy8(*),uy9(*)
 
12
      integer flag,nevprt,nx,nz,ntvec,nrpar,ipar(*)
 
13
      integer nipar
 
14
      integer k
 
15
c
 
16
      common /dbcos/ idb
 
17
c
 
18
      if(idb.eq.1) then
 
19
         write(6,'(''mux     t='',e10.3,'' flag='',i1)') t,flag
 
20
      endif
 
21
c    
 
22
      k=0
 
23
      goto(20,30,40,50,60,70,80),ipar(1)-1
 
24
c
 
25
 20   do 25 i=1,nuy1
 
26
         k=k+1
 
27
         uy3(k)=uy1(i)
 
28
 25   continue
 
29
      do 27 i=1,nuy2
 
30
         k=k+1
 
31
         uy3(k)=uy2(i)
 
32
 27   continue
 
33
      return
 
34
c
 
35
 30   do 35 i=1,nuy1
 
36
         k=k+1
 
37
         uy4(k)=uy1(i)
 
38
 35   continue
 
39
      do 37 i=1,nuy2
 
40
         k=k+1
 
41
         uy4(k)=uy2(i)
 
42
 37   continue
 
43
      do 38 i=1,nuy3
 
44
         k=k+1
 
45
         uy4(k)=uy3(i)
 
46
 38   continue
 
47
      return
 
48
c
 
49
 40   do 41 i=1,nuy1
 
50
         k=k+1
 
51
         uy5(k)=uy1(i)
 
52
 41   continue
 
53
      do 42 i=1,nuy2
 
54
         k=k+1
 
55
         uy5(k)=uy2(i)
 
56
 42   continue
 
57
      do 43 i=1,nuy3
 
58
         k=k+1
 
59
         uy5(k)=uy3(i)
 
60
 43   continue
 
61
      do 44 i=1,nuy4
 
62
         k=k+1
 
63
         uy5(k)=uy4(i)
 
64
 44   continue
 
65
      return
 
66
c
 
67
 50   do 51 i=1,nuy1
 
68
         k=k+1
 
69
         uy6(k)=uy1(i)
 
70
 51   continue
 
71
      do 52 i=1,nuy2
 
72
         k=k+1
 
73
         uy6(k)=uy2(i)
 
74
 52   continue
 
75
      do 53 i=1,nuy3
 
76
         k=k+1
 
77
         uy6(k)=uy3(i)
 
78
 53   continue
 
79
      do 54 i=1,nuy4
 
80
         k=k+1
 
81
         uy6(k)=uy4(i)
 
82
 54   continue
 
83
      do 55 i=1,nuy5
 
84
         k=k+1
 
85
         uy6(k)=uy5(i)
 
86
 55   continue
 
87
      return
 
88
c
 
89
 60   do 61 i=1,nuy1
 
90
         k=k+1
 
91
         uy7(k)=uy1(i)
 
92
 61   continue
 
93
      do 62 i=1,nuy2
 
94
         k=k+1
 
95
         uy7(k)=uy2(i)
 
96
 62   continue
 
97
      do 63 i=1,nuy3
 
98
         k=k+1
 
99
         uy7(k)=uy3(i)
 
100
 63   continue
 
101
      do 64 i=1,nuy4
 
102
         k=k+1
 
103
         uy7(k)=uy4(i)
 
104
 64   continue
 
105
      do 65 i=1,nuy5
 
106
         k=k+1
 
107
         uy7(k)=uy5(i)
 
108
 65   continue
 
109
      do 66 i=1,nuy6
 
110
         k=k+1
 
111
         uy7(k)=uy6(i)
 
112
 66   continue
 
113
      return
 
114
c
 
115
 70   do 71 i=1,nuy1
 
116
         k=k+1
 
117
         uy8(k)=uy1(i)
 
118
 71   continue
 
119
      do 72 i=1,nuy2
 
120
         k=k+1
 
121
         uy8(k)=uy2(i)
 
122
 72   continue
 
123
      do 73 i=1,nuy3
 
124
         k=k+1
 
125
         uy8(k)=uy3(i)
 
126
 73   continue
 
127
      do 74 i=1,nuy4
 
128
         k=k+1
 
129
         uy8(k)=uy4(i)
 
130
 74   continue
 
131
      do 75 i=1,nuy5
 
132
         k=k+1
 
133
         uy8(k)=uy5(i)
 
134
 75   continue
 
135
      do 76 i=1,nuy6
 
136
         k=k+1
 
137
         uy8(k)=uy6(i)
 
138
 76   continue
 
139
      do 77 i=1,nuy7
 
140
         k=k+1
 
141
         uy8(k)=uy7(i)
 
142
 77   continue
 
143
      return
 
144
c
 
145
 80   do 81 i=1,nuy1
 
146
         k=k+1
 
147
         uy9(k)=uy1(i)
 
148
 81   continue
 
149
      do 82 i=1,nuy2
 
150
         k=k+1
 
151
         uy9(k)=uy2(i)
 
152
 82   continue
 
153
      do 83 i=1,nuy3
 
154
         k=k+1
 
155
         uy9(k)=uy3(i)
 
156
 83   continue
 
157
      do 84 i=1,nuy4
 
158
         k=k+1
 
159
         uy9(k)=uy4(i)
 
160
 84   continue
 
161
      do 85 i=1,nuy5
 
162
         k=k+1
 
163
         uy9(k)=uy5(i)
 
164
 85   continue
 
165
      do 86 i=1,nuy6
 
166
         k=k+1
 
167
         uy9(k)=uy6(i)
 
168
 86   continue
 
169
      do 87 i=1,nuy7
 
170
         k=k+1
 
171
         uy9(k)=uy7(i)
 
172
 87   continue
 
173
      do 88 i=1,nuy8
 
174
         k=k+1
 
175
         uy9(k)=uy8(i)
 
176
 88   continue
 
177
      return
 
178
      end