Lines Matching refs:u2
14 subroutine masssetupf(ctx,q,u1,u2,u3,u4,u5,u6,u7,
18 C Input: u1,u2,u3,q Output: v1,v2,ierr
22 real*8 u2(9*q)
32 a11=u2(i+q*0)
33 a12=u2(i+q*3)
34 a13=u2(i+q*6)
36 a21=u2(i+q*1)
37 a22=u2(i+q*4)
38 a23=u2(i+q*7)
40 a31=u2(i+q*2)
41 a32=u2(i+q*5)
42 a33=u2(i+q*8)
71 subroutine massf(ctx,q,u1,u2,u3,u4,u5,u6,u7,
75 C Input: u1,u2,q Output: v1,ierr
79 real*8 u2(q)
84 v1(i)=u2(i)*u1(i)
90 subroutine diffsetupf(ctx,q,u1,u2,u3,u4,u5,u6,u7,
94 C Input: u1,u2,u3,q Output: v1,v2,ierr
98 real*8 u2(9*q)
118 a11=u2(i+q*0)
119 a12=u2(i+q*3)
120 a13=u2(i+q*6)
122 a21=u2(i+q*1)
123 a22=u2(i+q*4)
124 a23=u2(i+q*7)
126 a31=u2(i+q*2)
127 a32=u2(i+q*5)
128 a33=u2(i+q*8)
170 subroutine diffusionf(ctx,q,u1,u2,u3,u4,u5,u6,u7,
174 C Input: u1,u2,q Output: v1,ierr
178 real*8 u2(6*q)
184 $ u2(i+0*q)*u1(i)+u2(i+5*q)*u1(i+q)+u2(i+4*q)*u1(i+2*q)
186 $ u2(i+5*q)*u1(i)+u2(i+1*q)*u1(i+q)+u2(i+3*q)*u1(i+2*q)
188 $ u2(i+4*q)*u1(i)+u2(i+3*q)*u1(i+q)+u2(i+2*q)*u1(i+2*q)