You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
558 lines
26 KiB
558 lines
26 KiB
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
|