Lines Matching refs:u3
14 subroutine masssetupf(ctx,q,u1,u2,u3,u4,u5,u6,u7,
18 C Input: u1,u2,u3,q Output: v1,v2,ierr
23 real*8 u3(q)
59 v1(i)=u3(i)*jacmq
62 v2(i)=u3(i)*jacmq
71 subroutine massf(ctx,q,u1,u2,u3,u4,u5,u6,u7,
90 subroutine diffsetupf(ctx,q,u1,u2,u3,u4,u5,u6,u7,
94 C Input: u1,u2,u3,q Output: v1,v2,ierr
99 real*8 u3(q)
144 scl = u3(i)/jacmq
159 v2(i) = u3(i)*jacmq*pi*pi
170 subroutine diffusionf(ctx,q,u1,u2,u3,u4,u5,u6,u7,