Lines Matching refs:v1
15 $ u8,u9,u10,u11,u12,u13,u14,u15,u16,v1,v2,v3,v4,v5,v6,v7,v8,
18 C Input: u1,u2,u3,q Output: v1,v2,ierr
24 real*8 v1(q)
59 v1(i)=u3(i)*jacmq
72 $ u8,u9,u10,u11,u12,u13,u14,u15,u16,v1,v2,v3,v4,v5,v6,v7,v8,
75 C Input: u1,u2,q Output: v1,ierr
80 real*8 v1(q)
84 v1(i)=u2(i)*u1(i)
91 $ u8,u9,u10,u11,u12,u13,u14,u15,u16,v1,v2,v3,v4,v5,v6,v7,v8,
94 C Input: u1,u2,u3,q Output: v1,v2,ierr
100 real*8 v1(6*q)
151 v1(i+0*q) = scl*(g11*g11+g12*g12+g13*g13) ! Grr
152 v1(i+1*q) = scl*(g21*g21+g22*g22+g23*g23) ! Gss
153 v1(i+2*q) = scl*(g31*g31+g32*g32+g33*g33) ! Gtt
154 v1(i+3*q) = scl*(g21*g31+g22*g32+g23*g33) ! Gst
155 v1(i+4*q) = scl*(g11*g31+g12*g32+g13*g33) ! Grt
156 v1(i+5*q) = scl*(g11*g21+g12*g22+g13*g23) ! Grs
171 $ u8,u9,u10,u11,u12,u13,u14,u15,u16,v1,v2,v3,v4,v5,v6,v7,v8,
174 C Input: u1,u2,q Output: v1,ierr
179 real*8 v1(3*q)
183 v1(i+0*q)=
185 v1(i+1*q)=
187 v1(i+2*q)=