73 void POUT(long N, long J, long K, double X1, double X2, double X3, double X4);
91 	double X1,X2,X3,X4,X,Y,Z;  in main()  local
163 	X2  = -1.0;  in main()
168 	    X1 = (X1 + X2 + X3 - X4) * T;  in main()
169 	    X2 = (X1 + X2 - X3 + X4) * T;  in main()
170 	    X3 = (X1 - X2 + X3 + X4) * T;  in main()
171 	    X4 = (-X1+ X2 + X3 + X4) * T;  in main()
174 	IF (JJ==II)POUT(N1,N1,N1,X1,X2,X3,X4);  in main()
234 	IF (JJ==II)POUT(N4,J,J,X1,X2,X3,X4);  in main()
328 	IF (JJ==II)POUT(N10,J,K,X1,X2,X3,X4);  in main()
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()