MODULE gtestchenff contains FUNCTION ARGS(x,y) use globals, only: prec implicit none complex(kind=prec), parameter :: zero = ( 0., 0.) complex(kind=prec), parameter :: one = ( 1., 0.) complex(kind=prec), parameter :: mone = (-1., 0.) complex(kind=prec), parameter :: im = ( 0., 1.) complex(kind=prec), parameter :: mim = ( 0.,-1.) complex(kind=prec), parameter :: deg60 = (0.5,0.8660254038) complex(kind=prec), parameter :: degm60 = (0.5,-0.8660254038) complex(kind=prec) :: x,y complex(kind=prec) :: args(540,5) args = 1.e15 args(1,1:2) = (/ zero, x /) args(2,1:2) = (/ zero, y /) args(3,1:2) = (/ 1/y, one /) args(4,1:2) = (/ 1/y, x /) args(5,1:2) = (/ y, one /) args(6,1:2) = (/ y, x /) args(7,1:2) = (/ -(1/y), one /) args(8,1:3) = (/ zero, zero, y /) args(9,1:2) = (/ -y, x /) args(10,1:2) = (/ -y, one /) args(11,1:2) = (/ -(1/y), x /) args(12,1:3) = (/ zero, -(1/y), one /) args(13,1:3) = (/ zero, -(1/y), x /) args(14,1:3) = (/ zero, -y, one /) args(15,1:3) = (/ zero, -y, x /) args(16,1:3) = (/ 1/y, zero, one /) args(17,1:3) = (/ 1/y, one, x /) args(18,1:3) = (/ y, zero, one /) args(19,1:2) = (/ y - Sqrt(-1 + y**2), x /) args(20,1:3) = (/ mone, zero, y /) args(21,1:3) = (/ one, zero, y /) args(22,1:2) = (/ y + Sqrt(-1 + y**2), x /) args(23,1:2) = (/ (1 - Sqrt(1 - y**2))/y, x /) args(24,1:2) = (/ (1 + Sqrt(1 - y**2))/y, x /) args(25,1:2) = (/ (1 - Sqrt(1 - y**2))/y, one /) args(26,1:2) = (/ (1 + Sqrt(1 - y**2))/y, one /) args(27,1:2) = (/ y - Sqrt(-1 + y**2), one /) args(28,1:2) = (/ y + Sqrt(-1 + y**2), one /) args(29,1:3) = (/ 1/y, one, one /) args(30,1:3) = (/ 1/y, y, x /) args(31,1:3) = (/ y, mone, x /) args(32,1:3) = (/ 1/y, mone, one /) args(33,1:3) = (/ zero, 1/y, one /) args(34,1:3) = (/ zero, y, y /) args(35,1:3) = (/ 1/y, zero, y /) args(36,1:3) = (/ one, 1/y, x /) args(37,1:3) = (/ mone, 1/y, x /) args(38,1:3) = (/ mone, y, one /) args(39,1:3) = (/ 1/y, (1 - Sqrt(1 - y**2))/y, x /) args(40,1:3) = (/ 1/y, (1 + Sqrt(1 - y**2))/y, x /) args(41,1:3) = (/ zero, (1 - Sqrt(1 - y**2))/y, x /) args(42,1:3) = (/ zero, (1 + Sqrt(1 - y**2))/y, x /) args(43,1:3) = (/ zero, y, one /) args(44,1:3) = (/ zero, one, x /) args(45,1:3) = (/ zero, mone, x /) args(46,1:3) = (/ 1/y, 1/y, one /) args(47,1:3) = (/ zero, y, x /) args(48,1:3) = (/ 1/y, 1/y, x /) args(49,1:3) = (/ 1/y, (1 - Sqrt(1 - y**2))/y, one /) args(50,1:3) = (/ 1/y, (1 + Sqrt(1 - y**2))/y, one /) args(51,1:3) = (/ zero, (1 - Sqrt(1 - y**2))/y, one /) args(52,1:3) = (/ zero, (1 + Sqrt(1 - y**2))/y, one /) args(53,1:3) = (/ one, y, x /) args(54,1:3) = (/ mone, 1/y, one /) args(55,1:3) = (/ mone, y, x /) args(56,1:3) = (/ zero, 1/y, x /) args(57,1:3) = (/ y, mone, one /) args(58,1:3) = (/ 1/y, mone, x /) args(59,1:3) = (/ 1/y, y, one /) args(60,1:2) = (/ one, y /) args(61,1:2) = (/ mone, y /) args(62,1:2) = (/ 1/y, y /) args(63,1:3) = (/ y, one, one /) args(64,1:3) = (/ y, 1/y, one /) args(65,1:3) = (/ y, 1/y, x /) args(66,1:3) = (/ y, y, one /) args(67,1:3) = (/ y, y, x /) args(68,1:3) = (/ one, zero, x /) args(69,1:3) = (/ 1/y, zero, x /) args(70,1:3) = (/ y, zero, x /) args(71,1:3) = (/ y, (1 - Sqrt(1 - y**2))/y, one /) args(72,1:3) = (/ y, (1 - Sqrt(1 - y**2))/y, x /) args(73,1:3) = (/ y, (1 + Sqrt(1 - y**2))/y, one /) args(74,1:3) = (/ y, (1 + Sqrt(1 - y**2))/y, x /) args(75,1:4) = (/ mone, mone, zero, x /) args(76,1:4) = (/ mone, mone, zero, y /) args(77,1:4) = (/ mone, zero, zero, x /) args(78,1:4) = (/ mone, zero, zero, y /) args(79,1:4) = (/ mone, zero, y, y /) args(80,1:4) = (/ mone, one, zero, x /) args(81,1:4) = (/ mone, one, zero, y /) args(82,1:4) = (/ mone, 1/y, zero, one /) args(83,1:4) = (/ mone, 1/y, zero, x /) args(84,1:4) = (/ mone, 1/y, zero, y /) args(85,1:4) = (/ mone, y, zero, one /) args(86,1:4) = (/ mone, y, zero, x /) args(87,1:4) = (/ mone, y, zero, y /) args(88,1:4) = (/ zero, mone, zero, x /) args(89,1:4) = (/ zero, mone, zero, y /) args(90,1:4) = (/ zero, zero, zero, x /) args(91,1:4) = (/ zero, zero, zero, y /) args(92,1:4) = (/ zero, zero, y, y /) args(93,1:4) = (/ zero, one, zero, x /) args(94,1:4) = (/ zero, one, zero, y /) args(95,1:4) = (/ zero, 1/y, zero, x /) args(96,1:4) = (/ zero, 1/y, zero, y /) args(97,1:4) = (/ zero, y, zero, x /) args(98,1:4) = (/ zero, y, zero, y /) args(99,1:4) = (/ zero, y, y, y /) args(100,1:4) = (/ one, mone, zero, x /) args(101,1:4) = (/ one, mone, zero, y /) args(102,1:4) = (/ one, zero, zero, x /) args(103,1:4) = (/ one, zero, zero, y /) args(104,1:4) = (/ one, zero, y, y /) args(105,1:4) = (/ one, one, zero, x /) args(106,1:4) = (/ one, one, zero, y /) args(107,1:4) = (/ one, 1/y, zero, x /) args(108,1:4) = (/ one, 1/y, zero, y /) args(109,1:4) = (/ one, y, zero, x /) args(110,1:4) = (/ one, y, zero, y /) args(111,1:4) = (/ -(1/y), zero, zero, one /) args(112,1:4) = (/ -(1/y), zero, zero, x /) args(113,1:4) = (/ 1/y, mone, zero, x /) args(114,1:4) = (/ 1/y, mone, zero, y /) args(115,1:4) = (/ 1/y, zero, zero, x /) args(116,1:4) = (/ 1/y, zero, zero, y /) args(117,1:4) = (/ 1/y, zero, one, one /) args(118,1:4) = (/ 1/y, zero, y, y /) args(119,1:4) = (/ 1/y, one, zero, x /) args(120,1:4) = (/ 1/y, one, zero, y /) args(121,1:4) = (/ 1/y, 1/y, zero, x /) args(122,1:4) = (/ 1/y, 1/y, zero, y /) args(123,1:4) = (/ 1/y, y, zero, x /) args(124,1:4) = (/ 1/y, y, zero, y /) args(125,1:4) = (/ -y, zero, zero, one /) args(126,1:4) = (/ -y, zero, zero, x /) args(127,1:4) = (/ y, mone, zero, x /) args(128,1:4) = (/ y, zero, zero, x /) args(129,1:4) = (/ y, zero, one, one /) args(130,1:4) = (/ y, one, zero, x /) args(131,1:4) = (/ y, 1/y, zero, x /) args(132,1:2) = (/ one, x /) args(133,1:4) = (/ zero, 1/y, zero, one /) args(134,1:4) = (/ zero, y, zero, one /) args(135,1:4) = (/ 1/y, zero, zero, one /) args(136,1:4) = (/ 1/y, 1/y, zero, one /) args(137,1:4) = (/ 1/y, y, zero, one /) args(138,1:4) = (/ y, zero, zero, one /) args(139,1:4) = (/ y, 1/y, zero, one /) args(140,1:4) = (/ y, y, zero, one /) args(141,1:2) = (/ mone, x /) args(142,1:4) = (/ y, y, zero, x /) args(143,1:4) = (/ (1 - Sqrt(1 - y**2))/y, zero, zero, one /) args(144,1:4) = (/ (1 - Sqrt(1 - y**2))/y, zero, zero, x /) args(145,1:4) = (/ (1 - Sqrt(1 - y**2))/y, 1/y, zero, one /) args(146,1:4) = (/ (1 - Sqrt(1 - y**2))/y, 1/y, zero, x /) args(147,1:4) = (/ (1 - Sqrt(1 - y**2))/y, y, zero, one /) args(148,1:4) = (/ (1 - Sqrt(1 - y**2))/y, y, zero, x /) args(149,1:4) = (/ (1 + Sqrt(1 - y**2))/y, zero, zero, one /) args(150,1:4) = (/ (1 + Sqrt(1 - y**2))/y, zero, zero, x /) args(151,1:4) = (/ (1 + Sqrt(1 - y**2))/y, 1/y, zero, one /) args(152,1:4) = (/ (1 + Sqrt(1 - y**2))/y, 1/y, zero, x /) args(153,1:4) = (/ (1 + Sqrt(1 - y**2))/y, y, zero, one /) args(154,1:4) = (/ (1 + Sqrt(1 - y**2))/y, y, zero, x /) args(155,1:4) = (/ y - Sqrt(-1 + y**2), zero, zero, one /) args(156,1:4) = (/ y - Sqrt(-1 + y**2), zero, zero, x /) args(157,1:4) = (/ y - Sqrt(-1 + y**2), 1/y, zero, one /) args(158,1:4) = (/ y - Sqrt(-1 + y**2), 1/y, zero, x /) args(159,1:4) = (/ y - Sqrt(-1 + y**2), y, zero, one /) args(160,1:4) = (/ y - Sqrt(-1 + y**2), y, zero, x /) args(161,1:4) = (/ y + Sqrt(-1 + y**2), zero, zero, one /) args(162,1:4) = (/ y + Sqrt(-1 + y**2), zero, zero, x /) args(163,1:4) = (/ y + Sqrt(-1 + y**2), 1/y, zero, one /) args(164,1:4) = (/ y + Sqrt(-1 + y**2), 1/y, zero, x /) args(165,1:4) = (/ y + Sqrt(-1 + y**2), y, zero, one /) args(166,1:4) = (/ y + Sqrt(-1 + y**2), y, zero, x /) args(167,1:5) = (/ mone, mone, zero, zero, x /) args(168,1:5) = (/ mone, zero, mone, zero, x /) args(169,1:5) = (/ mone, zero, zero, zero, x /) args(170,1:5) = (/ mone, zero, one, zero, x /) args(171,1:5) = (/ mone, zero, 1/y, zero, one /) args(172,1:5) = (/ mone, zero, 1/y, zero, x /) args(173,1:5) = (/ mone, zero, y, zero, one /) args(174,1:5) = (/ mone, zero, y, zero, x /) args(175,1:5) = (/ mone, one, zero, zero, x /) args(176,1:5) = (/ mone, 1/y, zero, zero, one /) args(177,1:5) = (/ mone, 1/y, zero, zero, x /) args(178,1:5) = (/ mone, 1/y, 1/y, zero, one /) args(179,1:5) = (/ mone, 1/y, 1/y, zero, x /) args(180,1:5) = (/ mone, 1/y, y, zero, one /) args(181,1:5) = (/ mone, 1/y, y, zero, x /) args(182,1:5) = (/ mone, y, zero, zero, one /) args(183,1:5) = (/ mone, y, zero, zero, x /) args(184,1:5) = (/ mone, y, 1/y, zero, one /) args(185,1:5) = (/ mone, y, 1/y, zero, x /) args(186,1:5) = (/ mone, y, y, zero, one /) args(187,1:5) = (/ mone, y, y, zero, x /) args(188,1:5) = (/ zero, mone, mone, zero, x /) args(189,1:5) = (/ zero, mone, zero, zero, x /) args(190,1:5) = (/ zero, mone, one, zero, x /) args(191,1:5) = (/ zero, mone, 1/y, zero, one /) args(192,1:5) = (/ zero, mone, 1/y, zero, x /) args(193,1:5) = (/ zero, mone, y, zero, one /) args(194,1:5) = (/ zero, mone, y, zero, x /) args(195,1:5) = (/ zero, zero, mone, zero, x /) args(196,1:5) = (/ zero, zero, zero, zero, x /) args(197,1:5) = (/ zero, zero, zero, zero, y /) args(198,1:5) = (/ zero, zero, one, zero, x /) args(199,1:5) = (/ zero, zero, 1/y, zero, one /) args(200,1:5) = (/ zero, zero, 1/y, zero, x /) args(201,1:5) = (/ zero, zero, y, zero, one /) args(202,1:5) = (/ zero, zero, y, zero, x /) args(203,1:5) = (/ zero, one, mone, zero, x /) args(204,1:5) = (/ zero, one, zero, zero, x /) args(205,1:5) = (/ zero, one, one, zero, x /) args(206,1:5) = (/ zero, one, 1/y, zero, one /) args(207,1:5) = (/ zero, one, 1/y, zero, x /) args(208,1:5) = (/ zero, one, y, zero, one /) args(209,1:5) = (/ zero, one, y, zero, x /) args(210,1:5) = (/ zero, -(1/y), zero, zero, one /) args(211,1:5) = (/ zero, -(1/y), zero, zero, x /) args(212,1:5) = (/ zero, 1/y, mone, zero, one /) args(213,1:5) = (/ zero, 1/y, mone, zero, x /) args(214,1:5) = (/ zero, 1/y, zero, zero, one /) args(215,1:5) = (/ zero, 1/y, zero, zero, x /) args(216,1:5) = (/ zero, 1/y, zero, one, one /) args(217,1:5) = (/ zero, 1/y, one, zero, one /) args(218,1:5) = (/ zero, 1/y, one, zero, x /) args(219,1:5) = (/ zero, 1/y, 1/y, zero, one /) args(220,1:5) = (/ zero, 1/y, 1/y, zero, x /) args(221,1:5) = (/ zero, 1/y, y, zero, one /) args(222,1:5) = (/ zero, 1/y, y, zero, x /) args(223,1:5) = (/ zero, -y, zero, zero, one /) args(224,1:5) = (/ zero, -y, zero, zero, x /) args(225,1:5) = (/ zero, y, mone, zero, one /) args(226,1:5) = (/ zero, y, mone, zero, x /) args(227,1:5) = (/ zero, y, zero, zero, one /) args(228,1:5) = (/ zero, y, zero, zero, x /) args(229,1:5) = (/ zero, y, zero, one, one /) args(230,1:5) = (/ zero, y, one, zero, one /) args(231,1:5) = (/ zero, y, one, zero, x /) args(232,1:5) = (/ zero, y, 1/y, zero, one /) args(233,1:5) = (/ zero, y, 1/y, zero, x /) args(234,1:5) = (/ zero, y, y, zero, one /) args(235,1:5) = (/ zero, y, y, zero, x /) args(236,1:5) = (/ zero, (1 - Sqrt(1 - y**2))/y, zero, zero, one /) args(237,1:5) = (/ zero, (1 - Sqrt(1 - y**2))/y, zero, zero, x /) args(238,1:5) = (/ zero, (1 - Sqrt(1 - y**2))/y, 1/y, zero, one /) args(239,1:5) = (/ zero, (1 - Sqrt(1 - y**2))/y, 1/y, zero, x /) args(240,1:5) = (/ zero, (1 - Sqrt(1 - y**2))/y, y, zero, one /) args(241,1:5) = (/ zero, (1 - Sqrt(1 - y**2))/y, y, zero, x /) args(242,1:5) = (/ zero, (1 + Sqrt(1 - y**2))/y, zero, zero, one /) args(243,1:5) = (/ zero, (1 + Sqrt(1 - y**2))/y, zero, zero, x /) args(244,1:5) = (/ zero, (1 + Sqrt(1 - y**2))/y, 1/y, zero, one /) args(245,1:5) = (/ zero, (1 + Sqrt(1 - y**2))/y, 1/y, zero, x /) args(246,1:5) = (/ zero, (1 + Sqrt(1 - y**2))/y, y, zero, one /) args(247,1:5) = (/ zero, (1 + Sqrt(1 - y**2))/y, y, zero, x /) args(248,1:5) = (/ one, mone, zero, zero, x /) args(249,1:5) = (/ one, zero, mone, zero, x /) args(250,1:5) = (/ one, zero, zero, zero, x /) args(251,1:5) = (/ one, zero, one, zero, x /) args(252,1:5) = (/ one, zero, 1/y, zero, x /) args(253,1:5) = (/ one, zero, y, zero, x /) args(254,1:5) = (/ one, one, zero, zero, x /) args(255,1:5) = (/ one, 1/y, zero, zero, x /) args(256,1:5) = (/ one, 1/y, 1/y, zero, x /) args(257,1:5) = (/ one, 1/y, y, zero, x /) args(258,1:5) = (/ one, y, zero, zero, x /) args(259,1:5) = (/ one, y, 1/y, zero, x /) args(260,1:5) = (/ one, y, y, zero, x /) args(261,1:5) = (/ 1/y, mone, zero, zero, one /) args(262,1:5) = (/ 1/y, mone, zero, zero, x /) args(263,1:5) = (/ 1/y, mone, 1/y, zero, one /) args(264,1:5) = (/ 1/y, mone, 1/y, zero, x /) args(265,1:5) = (/ 1/y, mone, y, zero, one /) args(266,1:5) = (/ 1/y, mone, y, zero, x /) args(267,1:5) = (/ 1/y, zero, mone, zero, one /) args(268,1:5) = (/ 1/y, zero, mone, zero, x /) args(269,1:5) = (/ 1/y, zero, zero, zero, one /) args(270,1:5) = (/ 1/y, zero, zero, zero, x /) args(271,1:5) = (/ 1/y, zero, zero, one, one /) args(272,1:5) = (/ 1/y, zero, one, zero, one /) args(273,1:5) = (/ 1/y, zero, one, zero, x /) args(274,1:5) = (/ 1/y, zero, 1/y, zero, one /) args(275,1:5) = (/ 1/y, zero, 1/y, zero, x /) args(276,1:5) = (/ 1/y, zero, y, zero, one /) args(277,1:5) = (/ 1/y, zero, y, zero, x /) args(278,1:5) = (/ 1/y, one, zero, zero, one /) args(279,1:5) = (/ 1/y, one, zero, zero, x /) args(280,1:5) = (/ 1/y, one, 1/y, zero, one /) args(281,1:5) = (/ 1/y, one, 1/y, zero, x /) args(282,1:5) = (/ 1/y, one, y, zero, one /) args(283,1:5) = (/ 1/y, one, y, zero, x /) args(284,1:5) = (/ 1/y, 1/y, mone, zero, one /) args(285,1:5) = (/ 1/y, 1/y, mone, zero, x /) args(286,1:5) = (/ 1/y, 1/y, zero, zero, one /) args(287,1:5) = (/ 1/y, 1/y, zero, zero, x /) args(288,1:5) = (/ 1/y, 1/y, zero, one, one /) args(289,1:5) = (/ 1/y, 1/y, one, zero, one /) args(290,1:5) = (/ 1/y, 1/y, one, zero, x /) args(291,1:5) = (/ 1/y, 1/y, 1/y, zero, one /) args(292,1:5) = (/ 1/y, 1/y, 1/y, zero, x /) args(293,1:5) = (/ 1/y, 1/y, y, zero, one /) args(294,1:5) = (/ 1/y, 1/y, y, zero, x /) args(295,1:5) = (/ 1/y, y, mone, zero, one /) args(296,1:5) = (/ 1/y, y, mone, zero, x /) args(297,1:5) = (/ 1/y, y, zero, zero, one /) args(298,1:5) = (/ 1/y, y, zero, zero, x /) args(299,1:5) = (/ 1/y, y, zero, one, one /) args(300,1:5) = (/ 1/y, y, one, zero, one /) args(301,1:5) = (/ 1/y, y, one, zero, x /) args(302,1:5) = (/ 1/y, y, 1/y, zero, one /) args(303,1:5) = (/ 1/y, y, 1/y, zero, x /) args(304,1:5) = (/ 1/y, y, y, zero, one /) args(305,1:5) = (/ 1/y, y, y, zero, x /) args(306,1:5) = (/ 1/y, (1 - Sqrt(1 - y**2))/y, zero, zero, one /) args(307,1:5) = (/ 1/y, (1 - Sqrt(1 - y**2))/y, zero, zero, x /) args(308,1:5) = (/ 1/y, (1 - Sqrt(1 - y**2))/y, 1/y, zero, one /) args(309,1:5) = (/ 1/y, (1 - Sqrt(1 - y**2))/y, 1/y, zero, x /) args(310,1:5) = (/ 1/y, (1 - Sqrt(1 - y**2))/y, y, zero, one /) args(311,1:5) = (/ 1/y, (1 - Sqrt(1 - y**2))/y, y, zero, x /) args(312,1:5) = (/ 1/y, (1 + Sqrt(1 - y**2))/y, zero, zero, one /) args(313,1:5) = (/ 1/y, (1 + Sqrt(1 - y**2))/y, zero, zero, x /) args(314,1:5) = (/ 1/y, (1 + Sqrt(1 - y**2))/y, 1/y, zero, one /) args(315,1:5) = (/ 1/y, (1 + Sqrt(1 - y**2))/y, 1/y, zero, x /) args(316,1:5) = (/ 1/y, (1 + Sqrt(1 - y**2))/y, y, zero, one /) args(317,1:5) = (/ 1/y, (1 + Sqrt(1 - y**2))/y, y, zero, x /) args(318,1:5) = (/ y, mone, zero, zero, one /) args(319,1:5) = (/ y, mone, zero, zero, x /) args(320,1:5) = (/ y, mone, 1/y, zero, one /) args(321,1:5) = (/ y, mone, 1/y, zero, x /) args(322,1:5) = (/ y, mone, y, zero, one /) args(323,1:5) = (/ y, mone, y, zero, x /) args(324,1:5) = (/ y, zero, mone, zero, one /) args(325,1:5) = (/ y, zero, mone, zero, x /) args(326,1:5) = (/ y, zero, zero, zero, one /) args(327,1:5) = (/ y, zero, zero, zero, x /) args(328,1:5) = (/ y, zero, zero, one, one /) args(329,1:5) = (/ y, zero, one, zero, one /) args(330,1:5) = (/ y, zero, one, zero, x /) args(331,1:5) = (/ y, zero, 1/y, zero, one /) args(332,1:5) = (/ y, zero, 1/y, zero, x /) args(333,1:5) = (/ y, zero, y, zero, one /) args(334,1:5) = (/ y, zero, y, zero, x /) args(335,1:5) = (/ y, one, zero, zero, one /) args(336,1:5) = (/ y, one, zero, zero, x /) args(337,1:5) = (/ y, one, 1/y, zero, one /) args(338,1:5) = (/ y, one, 1/y, zero, x /) args(339,1:5) = (/ y, one, y, zero, one /) args(340,1:5) = (/ y, one, y, zero, x /) args(341,1:5) = (/ y, 1/y, mone, zero, one /) args(342,1:5) = (/ y, 1/y, mone, zero, x /) args(343,1:5) = (/ y, 1/y, zero, zero, one /) args(344,1:5) = (/ y, 1/y, zero, zero, x /) args(345,1:5) = (/ y, 1/y, zero, one, one /) args(346,1:5) = (/ y, 1/y, one, zero, one /) args(347,1:5) = (/ y, 1/y, one, zero, x /) args(348,1:5) = (/ y, 1/y, 1/y, zero, one /) args(349,1:5) = (/ y, 1/y, 1/y, zero, x /) args(350,1:5) = (/ y, 1/y, y, zero, one /) args(351,1:5) = (/ y, 1/y, y, zero, x /) args(352,1:5) = (/ y, y, mone, zero, one /) args(353,1:5) = (/ y, y, mone, zero, x /) args(354,1:5) = (/ y, y, zero, zero, one /) args(355,1:5) = (/ y, y, zero, zero, x /) args(356,1:5) = (/ y, y, zero, one, one /) args(357,1:5) = (/ y, y, one, zero, one /) args(358,1:5) = (/ y, y, one, zero, x /) args(359,1:5) = (/ y, y, 1/y, zero, one /) args(360,1:5) = (/ y, y, 1/y, zero, x /) args(361,1:5) = (/ y, y, y, zero, one /) args(362,1:5) = (/ y, y, y, zero, x /) args(363,1:5) = (/ y, (1 - Sqrt(1 - y**2))/y, zero, zero, one /) args(364,1:5) = (/ y, (1 - Sqrt(1 - y**2))/y, zero, zero, x /) args(365,1:5) = (/ y, (1 - Sqrt(1 - y**2))/y, 1/y, zero, one /) args(366,1:5) = (/ y, (1 - Sqrt(1 - y**2))/y, 1/y, zero, x /) args(367,1:5) = (/ y, (1 - Sqrt(1 - y**2))/y, y, zero, one /) args(368,1:5) = (/ y, (1 - Sqrt(1 - y**2))/y, y, zero, x /) args(369,1:5) = (/ y, (1 + Sqrt(1 - y**2))/y, zero, zero, one /) args(370,1:5) = (/ y, (1 + Sqrt(1 - y**2))/y, zero, zero, x /) args(371,1:5) = (/ y, (1 + Sqrt(1 - y**2))/y, 1/y, zero, one /) args(372,1:5) = (/ y, (1 + Sqrt(1 - y**2))/y, 1/y, zero, x /) args(373,1:5) = (/ y, (1 + Sqrt(1 - y**2))/y, y, zero, one /) args(374,1:5) = (/ y, (1 + Sqrt(1 - y**2))/y, y, zero, x /) args(375,1:3) = (/ zero, zero, x /) args(376,1:4) = (/ 1/y, mone, zero, one /) args(377,1:4) = (/ 1/y, one, zero, one /) args(378,1:4) = (/ y, mone, zero, one /) args(379,1:4) = (/ y, one, zero, one /) args(380,1:3) = (/ mone, zero, x /) args(381,1:3) = (/ y, one, x /) args(382,1:3) = (/ mone, 1/y, y /) args(383,1:3) = (/ mone, y, y /) args(384,1:3) = (/ zero, 1/y, y /) args(385,1:3) = (/ one, 1/y, y /) args(386,1:3) = (/ one, y, y /) args(387,1:3) = (/ -(1/y), zero, one /) args(388,1:3) = (/ 1/y, 1/y, y /) args(389,1:3) = (/ 1/y, y, y /) args(390,1:3) = (/ -y, zero, one /) args(391,1:3) = (/ (1 - Sqrt(1 - y**2))/y, zero, one /) args(392,1:3) = (/ (1 - Sqrt(1 - y**2))/y, 1/y, one /) args(393,1:3) = (/ (1 - Sqrt(1 - y**2))/y, y, one /) args(394,1:3) = (/ (1 + Sqrt(1 - y**2))/y, zero, one /) args(395,1:3) = (/ (1 + Sqrt(1 - y**2))/y, 1/y, one /) args(396,1:3) = (/ (1 + Sqrt(1 - y**2))/y, y, one /) args(397,1:3) = (/ -(1/y), zero, x /) args(398,1:3) = (/ -y, zero, x /) args(399,1:3) = (/ (1 - Sqrt(1 - y**2))/y, zero, x /) args(400,1:3) = (/ (1 - Sqrt(1 - y**2))/y, 1/y, x /) args(401,1:3) = (/ (1 - Sqrt(1 - y**2))/y, y, x /) args(402,1:3) = (/ (1 + Sqrt(1 - y**2))/y, zero, x /) args(403,1:3) = (/ (1 + Sqrt(1 - y**2))/y, 1/y, x /) args(404,1:3) = (/ (1 + Sqrt(1 - y**2))/y, y, x /) args(405,1:3) = (/ y - Sqrt(-1 + y**2), zero, one /) args(406,1:3) = (/ y - Sqrt(-1 + y**2), zero, x /) args(407,1:3) = (/ y - Sqrt(-1 + y**2), 1/y, one /) args(408,1:3) = (/ y - Sqrt(-1 + y**2), 1/y, x /) args(409,1:3) = (/ y - Sqrt(-1 + y**2), y, one /) args(410,1:3) = (/ y - Sqrt(-1 + y**2), y, x /) args(411,1:3) = (/ y + Sqrt(-1 + y**2), zero, one /) args(412,1:3) = (/ y + Sqrt(-1 + y**2), zero, x /) args(413,1:3) = (/ y + Sqrt(-1 + y**2), 1/y, one /) args(414,1:3) = (/ y + Sqrt(-1 + y**2), 1/y, x /) args(415,1:3) = (/ y + Sqrt(-1 + y**2), y, one /) args(416,1:3) = (/ y + Sqrt(-1 + y**2), y, x /) args(417,1:4) = (/ mone, zero, 1/y, one /) args(418,1:4) = (/ mone, zero, 1/y, x /) args(419,1:4) = (/ mone, zero, y, one /) args(420,1:4) = (/ mone, zero, y, x /) args(421,1:4) = (/ mone, 1/y, 1/y, one /) args(422,1:4) = (/ mone, 1/y, 1/y, x /) args(423,1:4) = (/ mone, 1/y, y, one /) args(424,1:4) = (/ mone, 1/y, y, x /) args(425,1:4) = (/ mone, y, 1/y, one /) args(426,1:4) = (/ mone, y, 1/y, x /) args(427,1:4) = (/ mone, y, y, one /) args(428,1:4) = (/ mone, y, y, x /) args(429,1:4) = (/ zero, mone, 1/y, one /) args(430,1:4) = (/ zero, mone, 1/y, x /) args(431,1:4) = (/ zero, mone, y, one /) args(432,1:4) = (/ zero, mone, y, x /) args(433,1:4) = (/ zero, zero, 1/y, one /) args(434,1:4) = (/ zero, zero, 1/y, x /) args(435,1:4) = (/ zero, zero, y, one /) args(436,1:4) = (/ zero, zero, y, x /) args(437,1:4) = (/ zero, one, 1/y, one /) args(438,1:4) = (/ zero, one, 1/y, x /) args(439,1:4) = (/ zero, one, y, one /) args(440,1:4) = (/ zero, one, y, x /) args(441,1:4) = (/ zero, -(1/y), zero, one /) args(442,1:4) = (/ zero, -(1/y), zero, x /) args(443,1:4) = (/ zero, 1/y, one, one /) args(444,1:4) = (/ zero, 1/y, 1/y, one /) args(445,1:4) = (/ zero, 1/y, 1/y, x /) args(446,1:4) = (/ zero, 1/y, y, one /) args(447,1:4) = (/ zero, 1/y, y, x /) args(448,1:4) = (/ zero, -y, zero, one /) args(449,1:4) = (/ zero, -y, zero, x /) args(450,1:4) = (/ zero, y, one, one /) args(451,1:4) = (/ zero, y, 1/y, one /) args(452,1:4) = (/ zero, y, 1/y, x /) args(453,1:4) = (/ zero, y, y, one /) args(454,1:4) = (/ zero, y, y, x /) args(455,1:4) = (/ zero, (1 - Sqrt(1 - y**2))/y, zero, one /) args(456,1:4) = (/ zero, (1 - Sqrt(1 - y**2))/y, zero, x /) args(457,1:4) = (/ zero, (1 - Sqrt(1 - y**2))/y, 1/y, one /) args(458,1:4) = (/ zero, (1 - Sqrt(1 - y**2))/y, 1/y, x /) args(459,1:4) = (/ zero, (1 - Sqrt(1 - y**2))/y, y, one /) args(460,1:4) = (/ zero, (1 - Sqrt(1 - y**2))/y, y, x /) args(461,1:4) = (/ zero, (1 + Sqrt(1 - y**2))/y, zero, one /) args(462,1:4) = (/ zero, (1 + Sqrt(1 - y**2))/y, zero, x /) args(463,1:4) = (/ zero, (1 + Sqrt(1 - y**2))/y, 1/y, one /) args(464,1:4) = (/ zero, (1 + Sqrt(1 - y**2))/y, 1/y, x /) args(465,1:4) = (/ zero, (1 + Sqrt(1 - y**2))/y, y, one /) args(466,1:4) = (/ zero, (1 + Sqrt(1 - y**2))/y, y, x /) args(467,1:4) = (/ one, zero, 1/y, x /) args(468,1:4) = (/ one, zero, y, x /) args(469,1:4) = (/ one, 1/y, 1/y, x /) args(470,1:4) = (/ one, 1/y, y, x /) args(471,1:4) = (/ one, y, 1/y, x /) args(472,1:4) = (/ one, y, y, x /) args(473,1:4) = (/ 1/y, mone, 1/y, one /) args(474,1:4) = (/ 1/y, mone, 1/y, x /) args(475,1:4) = (/ 1/y, mone, y, one /) args(476,1:4) = (/ 1/y, mone, y, x /) args(477,1:4) = (/ 1/y, zero, 1/y, one /) args(478,1:4) = (/ 1/y, zero, 1/y, x /) args(479,1:4) = (/ 1/y, zero, y, one /) args(480,1:4) = (/ 1/y, zero, y, x /) args(481,1:4) = (/ 1/y, one, 1/y, one /) args(482,1:4) = (/ 1/y, one, 1/y, x /) args(483,1:4) = (/ 1/y, one, y, one /) args(484,1:4) = (/ 1/y, one, y, x /) args(485,1:4) = (/ 1/y, 1/y, one, one /) args(486,1:4) = (/ 1/y, 1/y, 1/y, one /) args(487,1:4) = (/ 1/y, 1/y, 1/y, x /) args(488,1:4) = (/ 1/y, 1/y, y, one /) args(489,1:4) = (/ 1/y, 1/y, y, x /) args(490,1:4) = (/ 1/y, y, one, one /) args(491,1:4) = (/ 1/y, y, 1/y, one /) args(492,1:4) = (/ 1/y, y, 1/y, x /) args(493,1:4) = (/ 1/y, y, y, one /) args(494,1:4) = (/ 1/y, y, y, x /) args(495,1:4) = (/ 1/y, (1 - Sqrt(1 - y**2))/y, zero, one /) args(496,1:4) = (/ 1/y, (1 - Sqrt(1 - y**2))/y, zero, x /) args(497,1:4) = (/ 1/y, (1 - Sqrt(1 - y**2))/y, 1/y, one /) args(498,1:4) = (/ 1/y, (1 - Sqrt(1 - y**2))/y, 1/y, x /) args(499,1:4) = (/ 1/y, (1 - Sqrt(1 - y**2))/y, y, one /) args(500,1:4) = (/ 1/y, (1 - Sqrt(1 - y**2))/y, y, x /) args(501,1:4) = (/ 1/y, (1 + Sqrt(1 - y**2))/y, zero, one /) args(502,1:4) = (/ 1/y, (1 + Sqrt(1 - y**2))/y, zero, x /) args(503,1:4) = (/ 1/y, (1 + Sqrt(1 - y**2))/y, 1/y, one /) args(504,1:4) = (/ 1/y, (1 + Sqrt(1 - y**2))/y, 1/y, x /) args(505,1:4) = (/ 1/y, (1 + Sqrt(1 - y**2))/y, y, one /) args(506,1:4) = (/ 1/y, (1 + Sqrt(1 - y**2))/y, y, x /) args(507,1:4) = (/ y, mone, 1/y, one /) args(508,1:4) = (/ y, mone, 1/y, x /) args(509,1:4) = (/ y, mone, y, one /) args(510,1:4) = (/ y, mone, y, x /) args(511,1:4) = (/ y, zero, 1/y, one /) args(512,1:4) = (/ y, zero, 1/y, x /) args(513,1:4) = (/ y, zero, y, one /) args(514,1:4) = (/ y, zero, y, x /) args(515,1:4) = (/ y, one, 1/y, one /) args(516,1:4) = (/ y, one, 1/y, x /) args(517,1:4) = (/ y, one, y, one /) args(518,1:4) = (/ y, one, y, x /) args(519,1:4) = (/ y, 1/y, one, one /) args(520,1:4) = (/ y, 1/y, 1/y, one /) args(521,1:4) = (/ y, 1/y, 1/y, x /) args(522,1:4) = (/ y, 1/y, y, one /) args(523,1:4) = (/ y, 1/y, y, x /) args(524,1:4) = (/ y, y, one, one /) args(525,1:4) = (/ y, y, 1/y, one /) args(526,1:4) = (/ y, y, 1/y, x /) args(527,1:4) = (/ y, y, y, one /) args(528,1:4) = (/ y, y, y, x /) args(529,1:4) = (/ y, (1 - Sqrt(1 - y**2))/y, zero, one /) args(530,1:4) = (/ y, (1 - Sqrt(1 - y**2))/y, zero, x /) args(531,1:4) = (/ y, (1 - Sqrt(1 - y**2))/y, 1/y, one /) args(532,1:4) = (/ y, (1 - Sqrt(1 - y**2))/y, 1/y, x /) args(533,1:4) = (/ y, (1 - Sqrt(1 - y**2))/y, y, one /) args(534,1:4) = (/ y, (1 - Sqrt(1 - y**2))/y, y, x /) args(535,1:4) = (/ y, (1 + Sqrt(1 - y**2))/y, zero, one /) args(536,1:4) = (/ y, (1 + Sqrt(1 - y**2))/y, zero, x /) args(537,1:4) = (/ y, (1 + Sqrt(1 - y**2))/y, 1/y, one /) args(538,1:4) = (/ y, (1 + Sqrt(1 - y**2))/y, 1/y, x /) args(539,1:4) = (/ y, (1 + Sqrt(1 - y**2))/y, y, one /) args(540,1:4) = (/ y, (1 + Sqrt(1 - y**2))/y, y, x /) END FUNCTION END MODULE