Lines Matching refs:u2
2 subroutine setup(ctx,q,u1,u2,u3,u4,u5,u6,u7,u8,u9,u10,u11,u12,u13,u14,&
6 real*8 u2(1)
12 w=u2(i)/(u1(i+q*0)*u1(i+q*3)-u1(i+q*1)*u1(i+q*2))
21 subroutine diff(ctx,q,u1,u2,u3,u4,u5,u6,u7,u8,u9,u10,u11,u12,u13,u14,&
25 real*8 u2(1)
33 v1(i+q*0)=u2(i+q*0)*du0+u2(i+q*1)*du1
34 v1(i+q*1)=u2(i+q*1)*du0+u2(i+q*2)*du1
40 subroutine diff_lin(ctx,q,u1,u2,u3,u4,u5,u6,u7,u8,u9,u10,u11,u12,u13,u14,&
44 real*8 u2(1)
52 v1(i+q*0)=u2(i+q*0)*du0+u2(i+q*1)*du1
53 v1(i+q*1)=u2(i+q*2)*du0+u2(i+q*3)*du1