Lines Matching refs:q
2 subroutine setup(ctx,q,u1,u2,u3,u4,u5,u6,u7,u8,u9,u10,u11,u12,u13,u14,&
9 integer q,ierr
11 do i=1,q
12 w=u2(i)/(u1(i+q*0)*u1(i+q*3)-u1(i+q*1)*u1(i+q*2))
13 v1(i+q*0)=w*(u1(i+q*2)*u1(i+q*2)+u1(i+q*3)*u1(i+q*3))
14 v1(i+q*1)=w*(u1(i+q*0)*u1(i+q*0)+u1(i+q*1)*u1(i+q*1))
15 v1(i+q*2)=-w*(u1(i+q*0)*u1(i+q*2)+u1(i+q*2)*u1(i+q*3))
21 subroutine diff(ctx,q,u1,u2,u3,u4,u5,u6,u7,u8,u9,u10,u11,u12,u13,u14,&
28 integer q,ierr
30 do i=1,q
31 du0=u1(i+q*0)
32 du1=u1(i+q*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,&
47 integer q,ierr
49 do i=1,q
50 du0=u1(i+q*0)
51 du1=u1(i+q*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