Lines Matching refs:J
73 void POUT(long N, long J, long K, double X1, double X2, double X3, double X4);
83 int J,K,L; variable
215 J = 1; in main()
217 if (J == 1) in main()
218 J = 2; in main()
220 J = 3; in main()
222 if (J > 2) in main()
223 J = 0; in main()
225 J = 1; in main()
227 if (J < 1) in main()
228 J = 1; in main()
230 J = 0; in main()
234 IF (JJ==II)POUT(N4,J,J,X1,X2,X3,X4); in main()
244 J = 1; in main()
249 J = J * (K-J) * (L-K); in main()
250 K = L * K - (L-J) * K; in main()
251 L = (L-K) * (K+J); in main()
252 E1[L-1] = J + K + L; in main()
253 E1[K-1] = J * K * L; in main()
257 IF (JJ==II)POUT(N6,J,K,E1[1],E1[2],E1[3],E1[4]); in main()
274 IF (JJ==II)POUT(N7,J,K,X,X,Y,Y); in main()
290 IF (JJ==II)POUT(N8,J,K,X,Y,Z,Z); in main()
298 J = 1; in main()
309 IF (JJ==II)POUT(N9,J,K,E1[1],E1[2],E1[3],E1[4]); in main()
317 J = 2; in main()
321 J = J + K; in main()
322 K = J + K; in main()
323 J = K - J; in main()
324 K = K - J - J; in main()
328 IF (JJ==II)POUT(N10,J,K,X1,X2,X3,X4); in main()
342 IF (JJ==II)POUT(N11,J,K,X,X,X,X); in main()
393 J = 0; in PA()
400 J += 1; in PA()
402 if (J < 6) in PA()
409 E1[J] = E1[K]; in P0()
411 E1[L] = E1[J]; in P0()
428 POUT(long N, long J, long K, double X1, double X2, double X3, double X4) in POUT() argument
431 N, J, K, X1, X2, X3, X4); in POUT()