MODULE gtestmuoneNP
contains
  FUNCTION ARGS(w,z)
  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) :: w,z
  complex(kind=prec) :: args(1733,5)
  args = 1.e15

  args(1,1:2) = (/ zero,  z /)
  args(2,1:2) = (/ one,  w /)
  args(3,1:2) = (/ z**2,  w /)
  args(4,1:2) = (/ (1 - Sqrt(-3 + 4*z**2))/2.,  w /)
  args(5,1:2) = (/ (1 + Sqrt(-3 + 4*z**2))/2.,  w /)
  args(6,1:3) = (/ mone, zero,  z /)
  args(7,1:3) = (/ zero, zero,  z /)
  args(8,1:3) = (/ one, zero,  z /)
  args(9,1:3) = (/ one, one,  w /)
  args(10,1:3) = (/ one, z**2,  w /)
  args(11,1:3) = (/ (1 - Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(12,1:3) = (/ (1 - Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(13,1:3) = (/ (1 + Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(14,1:3) = (/ (1 + Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(15,1:3) = (/ z**2, one,  w /)
  args(16,1:3) = (/ z**2, z**2,  w /)
  args(17,1:2) = (/ mone,  z /)
  args(18,1:2) = (/ one,  z /)
  args(19,1:3) = (/ one, (1 - Sqrt(-3 + 4*z**2))/2.,  w /)
  args(20,1:3) = (/ one, (1 + Sqrt(-3 + 4*z**2))/2.,  w /)
  args(21,1:3) = (/ (1 - Sqrt(-3 + 4*z**2))/2., (1 - Sqrt(-3 + 4*z**2))/2.,  w /)
  args(22,1:3) = (/ (1 - Sqrt(-3 + 4*z**2))/2., (1 + Sqrt(-3 + 4*z**2))/2.,  w /)
  args(23,1:3) = (/ (1 + Sqrt(-3 + 4*z**2))/2., (1 - Sqrt(-3 + 4*z**2))/2.,  w /)
  args(24,1:3) = (/ (1 + Sqrt(-3 + 4*z**2))/2., (1 + Sqrt(-3 + 4*z**2))/2.,  w /)
  args(25,1:3) = (/ z**2, (1 - Sqrt(-3 + 4*z**2))/2.,  w /)
  args(26,1:3) = (/ z**2, (1 + Sqrt(-3 + 4*z**2))/2.,  w /)
  args(27,1:4) = (/ mone, mone, zero,  z /)
  args(28,1:4) = (/ mone, zero, zero,  z /)
  args(29,1:4) = (/ mone, one, zero,  z /)
  args(30,1:4) = (/ zero, mone, zero,  z /)
  args(31,1:4) = (/ zero, zero, zero,  z /)
  args(32,1:4) = (/ zero, one, zero,  z /)
  args(33,1:4) = (/ one, mone, zero,  z /)
  args(34,1:4) = (/ one, zero, zero,  z /)
  args(35,1:4) = (/ one, one, zero,  z /)
  args(36,1:4) = (/ one, one, one,  w /)
  args(37,1:4) = (/ one, one, z**2,  w /)
  args(38,1:4) = (/ one, (1 - Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(39,1:4) = (/ one, (1 - Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(40,1:4) = (/ one, (1 + Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(41,1:4) = (/ one, (1 + Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(42,1:4) = (/ one, z**2, one,  w /)
  args(43,1:4) = (/ one, z**2, z**2,  w /)
  args(44,1:4) = (/ (1 - Sqrt(-3 + 4*z**2))/2., one, one,  w /)
  args(45,1:4) = (/ (1 - Sqrt(-3 + 4*z**2))/2., one, z**2,  w /)
  args(46,1:4) = (/ (1 - Sqrt(-3 + 4*z**2))/2., (1 - Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(47,1:4) = (/ (1 - Sqrt(-3 + 4*z**2))/2., (1 - Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(48,1:4) = (/ (1 - Sqrt(-3 + 4*z**2))/2., (1 + Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(49,1:4) = (/ (1 - Sqrt(-3 + 4*z**2))/2., (1 + Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(50,1:4) = (/ (1 - Sqrt(-3 + 4*z**2))/2., z**2, one,  w /)
  args(51,1:4) = (/ (1 - Sqrt(-3 + 4*z**2))/2., z**2, z**2,  w /)
  args(52,1:4) = (/ (1 + Sqrt(-3 + 4*z**2))/2., one, one,  w /)
  args(53,1:4) = (/ (1 + Sqrt(-3 + 4*z**2))/2., one, z**2,  w /)
  args(54,1:4) = (/ (1 + Sqrt(-3 + 4*z**2))/2., (1 - Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(55,1:4) = (/ (1 + Sqrt(-3 + 4*z**2))/2., (1 - Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(56,1:4) = (/ (1 + Sqrt(-3 + 4*z**2))/2., (1 + Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(57,1:4) = (/ (1 + Sqrt(-3 + 4*z**2))/2., (1 + Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(58,1:4) = (/ (1 + Sqrt(-3 + 4*z**2))/2., z**2, one,  w /)
  args(59,1:4) = (/ (1 + Sqrt(-3 + 4*z**2))/2., z**2, z**2,  w /)
  args(60,1:4) = (/ z**2, one, one,  w /)
  args(61,1:4) = (/ z**2, one, z**2,  w /)
  args(62,1:4) = (/ z**2, (1 - Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(63,1:4) = (/ z**2, (1 - Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(64,1:4) = (/ z**2, (1 + Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(65,1:4) = (/ z**2, (1 + Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(66,1:4) = (/ z**2, z**2, one,  w /)
  args(67,1:4) = (/ z**2, z**2, z**2,  w /)
  args(68,1:3) = (/ mone, mone,  z /)
  args(69,1:3) = (/ mone, one,  z /)
  args(70,1:3) = (/ zero, mone,  z /)
  args(71,1:3) = (/ zero, one,  z /)
  args(72,1:3) = (/ one, mone,  z /)
  args(73,1:3) = (/ one, one,  z /)
  args(74,1:4) = (/ one, one, (1 - Sqrt(-3 + 4*z**2))/2.,  w /)
  args(75,1:4) = (/ one, one, (1 + Sqrt(-3 + 4*z**2))/2.,  w /)
  args(76,1:4) = (/ one, (1 - Sqrt(-3 + 4*z**2))/2., (1 - Sqrt(-3 + 4*z**2))/2.,  w /)
  args(77,1:4) = (/ one, (1 - Sqrt(-3 + 4*z**2))/2., (1 + Sqrt(-3 + 4*z**2))/2.,  w /)
  args(78,1:4) = (/ one, (1 + Sqrt(-3 + 4*z**2))/2., (1 - Sqrt(-3 + 4*z**2))/2.,  w /)
  args(79,1:4) = (/ one, (1 + Sqrt(-3 + 4*z**2))/2., (1 + Sqrt(-3 + 4*z**2))/2.,  w /)
  args(80,1:4) = (/ one, z**2, (1 - Sqrt(-3 + 4*z**2))/2.,  w /)
  args(81,1:4) = (/ one, z**2, (1 + Sqrt(-3 + 4*z**2))/2.,  w /)
  args(82,1:4) = (/ (1 - Sqrt(-3 + 4*z**2))/2., one, (1 - Sqrt(-3 + 4*z**2))/2.,  w /)
  args(83,1:4) = (/ (1 - Sqrt(-3 + 4*z**2))/2., one, (1 + Sqrt(-3 + 4*z**2))/2.,  w /)
  args(84,1:4) = (/ (1 - Sqrt(-3 + 4*z**2))/2., (1 - Sqrt(-3 + 4*z**2))/2., (1 - Sqrt(-3 + 4*z**2))/2.,  w /)
  args(85,1:4) = (/ (1 - Sqrt(-3 + 4*z**2))/2., (1 - Sqrt(-3 + 4*z**2))/2., (1 + Sqrt(-3 + 4*z**2))/2.,  w /)
  args(86,1:4) = (/ (1 - Sqrt(-3 + 4*z**2))/2., (1 + Sqrt(-3 + 4*z**2))/2., (1 - Sqrt(-3 + 4*z**2))/2.,  w /)
  args(87,1:4) = (/ (1 - Sqrt(-3 + 4*z**2))/2., (1 + Sqrt(-3 + 4*z**2))/2., (1 + Sqrt(-3 + 4*z**2))/2.,  w /)
  args(88,1:4) = (/ (1 - Sqrt(-3 + 4*z**2))/2., z**2, (1 - Sqrt(-3 + 4*z**2))/2.,  w /)
  args(89,1:4) = (/ (1 - Sqrt(-3 + 4*z**2))/2., z**2, (1 + Sqrt(-3 + 4*z**2))/2.,  w /)
  args(90,1:4) = (/ (1 + Sqrt(-3 + 4*z**2))/2., one, (1 - Sqrt(-3 + 4*z**2))/2.,  w /)
  args(91,1:4) = (/ (1 + Sqrt(-3 + 4*z**2))/2., one, (1 + Sqrt(-3 + 4*z**2))/2.,  w /)
  args(92,1:4) = (/ (1 + Sqrt(-3 + 4*z**2))/2., (1 - Sqrt(-3 + 4*z**2))/2., (1 - Sqrt(-3 + 4*z**2))/2.,  w /)
  args(93,1:4) = (/ (1 + Sqrt(-3 + 4*z**2))/2., (1 - Sqrt(-3 + 4*z**2))/2., (1 + Sqrt(-3 + 4*z**2))/2.,  w /)
  args(94,1:4) = (/ (1 + Sqrt(-3 + 4*z**2))/2., (1 + Sqrt(-3 + 4*z**2))/2., (1 - Sqrt(-3 + 4*z**2))/2.,  w /)
  args(95,1:4) = (/ (1 + Sqrt(-3 + 4*z**2))/2., (1 + Sqrt(-3 + 4*z**2))/2., (1 + Sqrt(-3 + 4*z**2))/2.,  w /)
  args(96,1:4) = (/ (1 + Sqrt(-3 + 4*z**2))/2., z**2, (1 - Sqrt(-3 + 4*z**2))/2.,  w /)
  args(97,1:4) = (/ (1 + Sqrt(-3 + 4*z**2))/2., z**2, (1 + Sqrt(-3 + 4*z**2))/2.,  w /)
  args(98,1:4) = (/ z**2, one, (1 - Sqrt(-3 + 4*z**2))/2.,  w /)
  args(99,1:4) = (/ z**2, one, (1 + Sqrt(-3 + 4*z**2))/2.,  w /)
  args(100,1:4) = (/ z**2, (1 - Sqrt(-3 + 4*z**2))/2., (1 - Sqrt(-3 + 4*z**2))/2.,  w /)
  args(101,1:4) = (/ z**2, (1 - Sqrt(-3 + 4*z**2))/2., (1 + Sqrt(-3 + 4*z**2))/2.,  w /)
  args(102,1:4) = (/ z**2, (1 + Sqrt(-3 + 4*z**2))/2., (1 - Sqrt(-3 + 4*z**2))/2.,  w /)
  args(103,1:4) = (/ z**2, (1 + Sqrt(-3 + 4*z**2))/2., (1 + Sqrt(-3 + 4*z**2))/2.,  w /)
  args(104,1:4) = (/ z**2, z**2, (1 - Sqrt(-3 + 4*z**2))/2.,  w /)
  args(105,1:4) = (/ z**2, z**2, (1 + Sqrt(-3 + 4*z**2))/2.,  w /)
  args(106,1:5) = (/ mone, mone, mone, zero,  z /)
  args(107,1:5) = (/ mone, mone, zero, zero,  z /)
  args(108,1:5) = (/ mone, mone, one, zero,  z /)
  args(109,1:5) = (/ mone, zero, mone, zero,  z /)
  args(110,1:5) = (/ mone, zero, zero, zero,  z /)
  args(111,1:5) = (/ mone, zero, one, zero,  z /)
  args(112,1:5) = (/ mone, one, mone, zero,  z /)
  args(113,1:5) = (/ mone, one, zero, zero,  z /)
  args(114,1:5) = (/ mone, one, one, zero,  z /)
  args(115,1:5) = (/ zero, mone, mone, zero,  z /)
  args(116,1:5) = (/ zero, mone, zero, zero,  z /)
  args(117,1:5) = (/ zero, mone, one, zero,  z /)
  args(118,1:5) = (/ zero, zero, mone, zero,  z /)
  args(119,1:5) = (/ zero, zero, zero, zero,  z /)
  args(120,1:5) = (/ zero, zero, one, zero,  z /)
  args(121,1:5) = (/ zero, one, mone, zero,  z /)
  args(122,1:5) = (/ zero, one, zero, zero,  z /)
  args(123,1:5) = (/ zero, one, one, zero,  z /)
  args(124,1:5) = (/ one, mone, mone, zero,  z /)
  args(125,1:5) = (/ one, mone, zero, zero,  z /)
  args(126,1:5) = (/ one, mone, one, zero,  z /)
  args(127,1:5) = (/ one, zero, mone, zero,  z /)
  args(128,1:5) = (/ one, zero, zero, zero,  z /)
  args(129,1:5) = (/ one, zero, one, zero,  z /)
  args(130,1:5) = (/ one, one, mone, zero,  z /)
  args(131,1:5) = (/ one, one, zero, zero,  z /)
  args(132,1:5) = (/ one, one, one, zero,  z /)
  args(133,1:5) = (/ one, one, one, one,  w /)
  args(134,1:5) = (/ one, one, one, z**2,  w /)
  args(135,1:5) = (/ one, one, (1 - Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(136,1:5) = (/ one, one, (1 - Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(137,1:5) = (/ one, one, (1 + Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(138,1:5) = (/ one, one, (1 + Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(139,1:5) = (/ one, one, z**2, one,  w /)
  args(140,1:5) = (/ one, one, z**2, z**2,  w /)
  args(141,1:5) = (/ one, (1 - Sqrt(-3 + 4*z**2))/2., one, one,  w /)
  args(142,1:5) = (/ one, (1 - Sqrt(-3 + 4*z**2))/2., one, z**2,  w /)
  args(143,1:5) = (/ one, (1 - Sqrt(-3 + 4*z**2))/2., (1 - Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(144,1:5) = (/ one, (1 - Sqrt(-3 + 4*z**2))/2., (1 - Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(145,1:5) = (/ one, (1 - Sqrt(-3 + 4*z**2))/2., (1 + Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(146,1:5) = (/ one, (1 - Sqrt(-3 + 4*z**2))/2., (1 + Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(147,1:5) = (/ one, (1 - Sqrt(-3 + 4*z**2))/2., z**2, one,  w /)
  args(148,1:5) = (/ one, (1 - Sqrt(-3 + 4*z**2))/2., z**2, z**2,  w /)
  args(149,1:5) = (/ one, (1 + Sqrt(-3 + 4*z**2))/2., one, one,  w /)
  args(150,1:5) = (/ one, (1 + Sqrt(-3 + 4*z**2))/2., one, z**2,  w /)
  args(151,1:5) = (/ one, (1 + Sqrt(-3 + 4*z**2))/2., (1 - Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(152,1:5) = (/ one, (1 + Sqrt(-3 + 4*z**2))/2., (1 - Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(153,1:5) = (/ one, (1 + Sqrt(-3 + 4*z**2))/2., (1 + Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(154,1:5) = (/ one, (1 + Sqrt(-3 + 4*z**2))/2., (1 + Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(155,1:5) = (/ one, (1 + Sqrt(-3 + 4*z**2))/2., z**2, one,  w /)
  args(156,1:5) = (/ one, (1 + Sqrt(-3 + 4*z**2))/2., z**2, z**2,  w /)
  args(157,1:5) = (/ one, z**2, one, one,  w /)
  args(158,1:5) = (/ one, z**2, one, z**2,  w /)
  args(159,1:5) = (/ one, z**2, (1 - Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(160,1:5) = (/ one, z**2, (1 - Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(161,1:5) = (/ one, z**2, (1 + Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(162,1:5) = (/ one, z**2, (1 + Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(163,1:5) = (/ one, z**2, z**2, one,  w /)
  args(164,1:5) = (/ one, z**2, z**2, z**2,  w /)
  args(165,1:5) = (/ (1 - Sqrt(-3 + 4*z**2))/2., one, one, one,  w /)
  args(166,1:5) = (/ (1 - Sqrt(-3 + 4*z**2))/2., one, one, z**2,  w /)
  args(167,1:5) = (/ (1 - Sqrt(-3 + 4*z**2))/2., one, (1 - Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(168,1:5) = (/ (1 - Sqrt(-3 + 4*z**2))/2., one, (1 - Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(169,1:5) = (/ (1 - Sqrt(-3 + 4*z**2))/2., one, (1 + Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(170,1:5) = (/ (1 - Sqrt(-3 + 4*z**2))/2., one, (1 + Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(171,1:5) = (/ (1 - Sqrt(-3 + 4*z**2))/2., one, z**2, one,  w /)
  args(172,1:5) = (/ (1 - Sqrt(-3 + 4*z**2))/2., one, z**2, z**2,  w /)
  args(173,1:5) = (/ (1 - Sqrt(-3 + 4*z**2))/2., (1 - Sqrt(-3 + 4*z**2))/2., one, one,  w /)
  args(174,1:5) = (/ (1 - Sqrt(-3 + 4*z**2))/2., (1 - Sqrt(-3 + 4*z**2))/2., one, z**2,  w /)
  args(175,1:5) = (/ (1 - Sqrt(-3 + 4*z**2))/2., (1 - Sqrt(-3 + 4*z**2))/2., (1 - Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(176,1:5) = (/ (1 - Sqrt(-3 + 4*z**2))/2., (1 - Sqrt(-3 + 4*z**2))/2., (1 - Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(177,1:5) = (/ (1 - Sqrt(-3 + 4*z**2))/2., (1 - Sqrt(-3 + 4*z**2))/2., (1 + Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(178,1:5) = (/ (1 - Sqrt(-3 + 4*z**2))/2., (1 - Sqrt(-3 + 4*z**2))/2., (1 + Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(179,1:5) = (/ (1 - Sqrt(-3 + 4*z**2))/2., (1 - Sqrt(-3 + 4*z**2))/2., z**2, one,  w /)
  args(180,1:5) = (/ (1 - Sqrt(-3 + 4*z**2))/2., (1 - Sqrt(-3 + 4*z**2))/2., z**2, z**2,  w /)
  args(181,1:5) = (/ (1 - Sqrt(-3 + 4*z**2))/2., (1 + Sqrt(-3 + 4*z**2))/2., one, one,  w /)
  args(182,1:5) = (/ (1 - Sqrt(-3 + 4*z**2))/2., (1 + Sqrt(-3 + 4*z**2))/2., one, z**2,  w /)
  args(183,1:5) = (/ (1 - Sqrt(-3 + 4*z**2))/2., (1 + Sqrt(-3 + 4*z**2))/2., (1 - Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(184,1:5) = (/ (1 - Sqrt(-3 + 4*z**2))/2., (1 + Sqrt(-3 + 4*z**2))/2., (1 - Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(185,1:5) = (/ (1 - Sqrt(-3 + 4*z**2))/2., (1 + Sqrt(-3 + 4*z**2))/2., (1 + Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(186,1:5) = (/ (1 - Sqrt(-3 + 4*z**2))/2., (1 + Sqrt(-3 + 4*z**2))/2., (1 + Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(187,1:5) = (/ (1 - Sqrt(-3 + 4*z**2))/2., (1 + Sqrt(-3 + 4*z**2))/2., z**2, one,  w /)
  args(188,1:5) = (/ (1 - Sqrt(-3 + 4*z**2))/2., (1 + Sqrt(-3 + 4*z**2))/2., z**2, z**2,  w /)
  args(189,1:5) = (/ (1 - Sqrt(-3 + 4*z**2))/2., z**2, one, one,  w /)
  args(190,1:5) = (/ (1 - Sqrt(-3 + 4*z**2))/2., z**2, one, z**2,  w /)
  args(191,1:5) = (/ (1 - Sqrt(-3 + 4*z**2))/2., z**2, (1 - Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(192,1:5) = (/ (1 - Sqrt(-3 + 4*z**2))/2., z**2, (1 - Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(193,1:5) = (/ (1 - Sqrt(-3 + 4*z**2))/2., z**2, (1 + Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(194,1:5) = (/ (1 - Sqrt(-3 + 4*z**2))/2., z**2, (1 + Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(195,1:5) = (/ (1 - Sqrt(-3 + 4*z**2))/2., z**2, z**2, one,  w /)
  args(196,1:5) = (/ (1 - Sqrt(-3 + 4*z**2))/2., z**2, z**2, z**2,  w /)
  args(197,1:5) = (/ (1 + Sqrt(-3 + 4*z**2))/2., one, one, one,  w /)
  args(198,1:5) = (/ (1 + Sqrt(-3 + 4*z**2))/2., one, one, z**2,  w /)
  args(199,1:5) = (/ (1 + Sqrt(-3 + 4*z**2))/2., one, (1 - Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(200,1:5) = (/ (1 + Sqrt(-3 + 4*z**2))/2., one, (1 - Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(201,1:5) = (/ (1 + Sqrt(-3 + 4*z**2))/2., one, (1 + Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(202,1:5) = (/ (1 + Sqrt(-3 + 4*z**2))/2., one, (1 + Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(203,1:5) = (/ (1 + Sqrt(-3 + 4*z**2))/2., one, z**2, one,  w /)
  args(204,1:5) = (/ (1 + Sqrt(-3 + 4*z**2))/2., one, z**2, z**2,  w /)
  args(205,1:5) = (/ (1 + Sqrt(-3 + 4*z**2))/2., (1 - Sqrt(-3 + 4*z**2))/2., one, one,  w /)
  args(206,1:5) = (/ (1 + Sqrt(-3 + 4*z**2))/2., (1 - Sqrt(-3 + 4*z**2))/2., one, z**2,  w /)
  args(207,1:5) = (/ (1 + Sqrt(-3 + 4*z**2))/2., (1 - Sqrt(-3 + 4*z**2))/2., (1 - Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(208,1:5) = (/ (1 + Sqrt(-3 + 4*z**2))/2., (1 - Sqrt(-3 + 4*z**2))/2., (1 - Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(209,1:5) = (/ (1 + Sqrt(-3 + 4*z**2))/2., (1 - Sqrt(-3 + 4*z**2))/2., (1 + Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(210,1:5) = (/ (1 + Sqrt(-3 + 4*z**2))/2., (1 - Sqrt(-3 + 4*z**2))/2., (1 + Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(211,1:5) = (/ (1 + Sqrt(-3 + 4*z**2))/2., (1 - Sqrt(-3 + 4*z**2))/2., z**2, one,  w /)
  args(212,1:5) = (/ (1 + Sqrt(-3 + 4*z**2))/2., (1 - Sqrt(-3 + 4*z**2))/2., z**2, z**2,  w /)
  args(213,1:5) = (/ (1 + Sqrt(-3 + 4*z**2))/2., (1 + Sqrt(-3 + 4*z**2))/2., one, one,  w /)
  args(214,1:5) = (/ (1 + Sqrt(-3 + 4*z**2))/2., (1 + Sqrt(-3 + 4*z**2))/2., one, z**2,  w /)
  args(215,1:5) = (/ (1 + Sqrt(-3 + 4*z**2))/2., (1 + Sqrt(-3 + 4*z**2))/2., (1 - Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(216,1:5) = (/ (1 + Sqrt(-3 + 4*z**2))/2., (1 + Sqrt(-3 + 4*z**2))/2., (1 - Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(217,1:5) = (/ (1 + Sqrt(-3 + 4*z**2))/2., (1 + Sqrt(-3 + 4*z**2))/2., (1 + Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(218,1:5) = (/ (1 + Sqrt(-3 + 4*z**2))/2., (1 + Sqrt(-3 + 4*z**2))/2., (1 + Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(219,1:5) = (/ (1 + Sqrt(-3 + 4*z**2))/2., (1 + Sqrt(-3 + 4*z**2))/2., z**2, one,  w /)
  args(220,1:5) = (/ (1 + Sqrt(-3 + 4*z**2))/2., (1 + Sqrt(-3 + 4*z**2))/2., z**2, z**2,  w /)
  args(221,1:5) = (/ (1 + Sqrt(-3 + 4*z**2))/2., z**2, one, one,  w /)
  args(222,1:5) = (/ (1 + Sqrt(-3 + 4*z**2))/2., z**2, one, z**2,  w /)
  args(223,1:5) = (/ (1 + Sqrt(-3 + 4*z**2))/2., z**2, (1 - Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(224,1:5) = (/ (1 + Sqrt(-3 + 4*z**2))/2., z**2, (1 - Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(225,1:5) = (/ (1 + Sqrt(-3 + 4*z**2))/2., z**2, (1 + Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(226,1:5) = (/ (1 + Sqrt(-3 + 4*z**2))/2., z**2, (1 + Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(227,1:5) = (/ (1 + Sqrt(-3 + 4*z**2))/2., z**2, z**2, one,  w /)
  args(228,1:5) = (/ (1 + Sqrt(-3 + 4*z**2))/2., z**2, z**2, z**2,  w /)
  args(229,1:5) = (/ z**2, one, one, one,  w /)
  args(230,1:5) = (/ z**2, one, one, z**2,  w /)
  args(231,1:5) = (/ z**2, one, (1 - Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(232,1:5) = (/ z**2, one, (1 - Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(233,1:5) = (/ z**2, one, (1 + Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(234,1:5) = (/ z**2, one, (1 + Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(235,1:5) = (/ z**2, one, z**2, one,  w /)
  args(236,1:5) = (/ z**2, one, z**2, z**2,  w /)
  args(237,1:5) = (/ z**2, (1 - Sqrt(-3 + 4*z**2))/2., one, one,  w /)
  args(238,1:5) = (/ z**2, (1 - Sqrt(-3 + 4*z**2))/2., one, z**2,  w /)
  args(239,1:5) = (/ z**2, (1 - Sqrt(-3 + 4*z**2))/2., (1 - Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(240,1:5) = (/ z**2, (1 - Sqrt(-3 + 4*z**2))/2., (1 - Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(241,1:5) = (/ z**2, (1 - Sqrt(-3 + 4*z**2))/2., (1 + Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(242,1:5) = (/ z**2, (1 - Sqrt(-3 + 4*z**2))/2., (1 + Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(243,1:5) = (/ z**2, (1 - Sqrt(-3 + 4*z**2))/2., z**2, one,  w /)
  args(244,1:5) = (/ z**2, (1 - Sqrt(-3 + 4*z**2))/2., z**2, z**2,  w /)
  args(245,1:5) = (/ z**2, (1 + Sqrt(-3 + 4*z**2))/2., one, one,  w /)
  args(246,1:5) = (/ z**2, (1 + Sqrt(-3 + 4*z**2))/2., one, z**2,  w /)
  args(247,1:5) = (/ z**2, (1 + Sqrt(-3 + 4*z**2))/2., (1 - Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(248,1:5) = (/ z**2, (1 + Sqrt(-3 + 4*z**2))/2., (1 - Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(249,1:5) = (/ z**2, (1 + Sqrt(-3 + 4*z**2))/2., (1 + Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(250,1:5) = (/ z**2, (1 + Sqrt(-3 + 4*z**2))/2., (1 + Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(251,1:5) = (/ z**2, (1 + Sqrt(-3 + 4*z**2))/2., z**2, one,  w /)
  args(252,1:5) = (/ z**2, (1 + Sqrt(-3 + 4*z**2))/2., z**2, z**2,  w /)
  args(253,1:5) = (/ z**2, z**2, one, one,  w /)
  args(254,1:5) = (/ z**2, z**2, one, z**2,  w /)
  args(255,1:5) = (/ z**2, z**2, (1 - Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(256,1:5) = (/ z**2, z**2, (1 - Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(257,1:5) = (/ z**2, z**2, (1 + Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(258,1:5) = (/ z**2, z**2, (1 + Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(259,1:5) = (/ z**2, z**2, z**2, one,  w /)
  args(260,1:5) = (/ z**2, z**2, z**2, z**2,  w /)
  args(261,1:2) = (/ zero,  w /)
  args(262,1:2) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(263,1:2) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(264,1:3) = (/ zero, zero,  w /)
  args(265,1:3) = (/ zero, one,  w /)
  args(266,1:3) = (/ zero, z**2,  w /)
  args(267,1:3) = (/ one, zero,  w /)
  args(268,1:3) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(269,1:3) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(270,1:3) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(271,1:3) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(272,1:3) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(273,1:3) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(274,1:3) = (/ z**2, zero,  w /)
  args(275,1:3) = (/ zero, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(276,1:3) = (/ zero, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(277,1:3) = (/ one, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(278,1:3) = (/ one, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(279,1:3) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(280,1:3) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(281,1:3) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(282,1:3) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(283,1:3) = (/ z**2, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(284,1:3) = (/ z**2, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(285,1:4) = (/ zero, zero, zero,  w /)
  args(286,1:4) = (/ zero, zero, one,  w /)
  args(287,1:4) = (/ zero, zero, z**2,  w /)
  args(288,1:4) = (/ zero, one, zero,  w /)
  args(289,1:4) = (/ zero, one, one,  w /)
  args(290,1:4) = (/ zero, one, z**2,  w /)
  args(291,1:4) = (/ zero, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(292,1:4) = (/ zero, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(293,1:4) = (/ zero, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(294,1:4) = (/ zero, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(295,1:4) = (/ zero, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(296,1:4) = (/ zero, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(297,1:4) = (/ zero, z**2, zero,  w /)
  args(298,1:4) = (/ zero, z**2, one,  w /)
  args(299,1:4) = (/ zero, z**2, z**2,  w /)
  args(300,1:4) = (/ one, zero, zero,  w /)
  args(301,1:4) = (/ one, zero, one,  w /)
  args(302,1:4) = (/ one, zero, z**2,  w /)
  args(303,1:4) = (/ one, one, zero,  w /)
  args(304,1:4) = (/ one, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(305,1:4) = (/ one, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(306,1:4) = (/ one, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(307,1:4) = (/ one, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(308,1:4) = (/ one, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(309,1:4) = (/ one, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(310,1:4) = (/ one, z**2, zero,  w /)
  args(311,1:4) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, zero,  w /)
  args(312,1:4) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, one,  w /)
  args(313,1:4) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, z**2,  w /)
  args(314,1:4) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, zero,  w /)
  args(315,1:4) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, one,  w /)
  args(316,1:4) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, z**2,  w /)
  args(317,1:4) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(318,1:4) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(319,1:4) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(320,1:4) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(321,1:4) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(322,1:4) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(323,1:4) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, zero,  w /)
  args(324,1:4) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, one,  w /)
  args(325,1:4) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, z**2,  w /)
  args(326,1:4) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, zero,  w /)
  args(327,1:4) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, one,  w /)
  args(328,1:4) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, z**2,  w /)
  args(329,1:4) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, zero,  w /)
  args(330,1:4) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, one,  w /)
  args(331,1:4) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, z**2,  w /)
  args(332,1:4) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(333,1:4) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(334,1:4) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(335,1:4) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(336,1:4) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(337,1:4) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(338,1:4) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, zero,  w /)
  args(339,1:4) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, one,  w /)
  args(340,1:4) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, z**2,  w /)
  args(341,1:4) = (/ z**2, zero, zero,  w /)
  args(342,1:4) = (/ z**2, zero, one,  w /)
  args(343,1:4) = (/ z**2, zero, z**2,  w /)
  args(344,1:4) = (/ z**2, one, zero,  w /)
  args(345,1:4) = (/ z**2, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(346,1:4) = (/ z**2, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(347,1:4) = (/ z**2, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(348,1:4) = (/ z**2, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(349,1:4) = (/ z**2, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(350,1:4) = (/ z**2, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(351,1:4) = (/ z**2, z**2, zero,  w /)
  args(352,1:5) = (/ zero, zero, zero, zero,  w /)
  args(353,1:5) = (/ zero, zero, zero, one,  w /)
  args(354,1:5) = (/ zero, zero, zero, z**2,  w /)
  args(355,1:5) = (/ zero, zero, one, zero,  w /)
  args(356,1:5) = (/ zero, zero, one, one,  w /)
  args(357,1:5) = (/ zero, zero, one, z**2,  w /)
  args(358,1:5) = (/ zero, zero, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(359,1:5) = (/ zero, zero, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(360,1:5) = (/ zero, zero, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(361,1:5) = (/ zero, zero, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(362,1:5) = (/ zero, zero, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(363,1:5) = (/ zero, zero, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(364,1:5) = (/ zero, zero, z**2, zero,  w /)
  args(365,1:5) = (/ zero, zero, z**2, one,  w /)
  args(366,1:5) = (/ zero, zero, z**2, z**2,  w /)
  args(367,1:5) = (/ zero, one, zero, zero,  w /)
  args(368,1:5) = (/ zero, one, zero, one,  w /)
  args(369,1:5) = (/ zero, one, zero, z**2,  w /)
  args(370,1:5) = (/ zero, one, one, zero,  w /)
  args(371,1:5) = (/ zero, one, one, one,  w /)
  args(372,1:5) = (/ zero, one, one, z**2,  w /)
  args(373,1:5) = (/ zero, one, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(374,1:5) = (/ zero, one, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(375,1:5) = (/ zero, one, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(376,1:5) = (/ zero, one, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(377,1:5) = (/ zero, one, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(378,1:5) = (/ zero, one, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(379,1:5) = (/ zero, one, z**2, zero,  w /)
  args(380,1:5) = (/ zero, one, z**2, one,  w /)
  args(381,1:5) = (/ zero, one, z**2, z**2,  w /)
  args(382,1:5) = (/ zero, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, zero,  w /)
  args(383,1:5) = (/ zero, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, one,  w /)
  args(384,1:5) = (/ zero, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, z**2,  w /)
  args(385,1:5) = (/ zero, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, zero,  w /)
  args(386,1:5) = (/ zero, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, one,  w /)
  args(387,1:5) = (/ zero, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, z**2,  w /)
  args(388,1:5) = (/ zero, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(389,1:5) = (/ zero, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(390,1:5) = (/ zero, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(391,1:5) = (/ zero, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(392,1:5) = (/ zero, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(393,1:5) = (/ zero, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(394,1:5) = (/ zero, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, zero,  w /)
  args(395,1:5) = (/ zero, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, one,  w /)
  args(396,1:5) = (/ zero, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, z**2,  w /)
  args(397,1:5) = (/ zero, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, zero,  w /)
  args(398,1:5) = (/ zero, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, one,  w /)
  args(399,1:5) = (/ zero, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, z**2,  w /)
  args(400,1:5) = (/ zero, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, zero,  w /)
  args(401,1:5) = (/ zero, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, one,  w /)
  args(402,1:5) = (/ zero, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, z**2,  w /)
  args(403,1:5) = (/ zero, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(404,1:5) = (/ zero, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(405,1:5) = (/ zero, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(406,1:5) = (/ zero, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(407,1:5) = (/ zero, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(408,1:5) = (/ zero, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(409,1:5) = (/ zero, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, zero,  w /)
  args(410,1:5) = (/ zero, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, one,  w /)
  args(411,1:5) = (/ zero, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, z**2,  w /)
  args(412,1:5) = (/ zero, z**2, zero, zero,  w /)
  args(413,1:5) = (/ zero, z**2, zero, one,  w /)
  args(414,1:5) = (/ zero, z**2, zero, z**2,  w /)
  args(415,1:5) = (/ zero, z**2, one, zero,  w /)
  args(416,1:5) = (/ zero, z**2, one, one,  w /)
  args(417,1:5) = (/ zero, z**2, one, z**2,  w /)
  args(418,1:5) = (/ zero, z**2, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(419,1:5) = (/ zero, z**2, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(420,1:5) = (/ zero, z**2, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(421,1:5) = (/ zero, z**2, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(422,1:5) = (/ zero, z**2, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(423,1:5) = (/ zero, z**2, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(424,1:5) = (/ zero, z**2, z**2, zero,  w /)
  args(425,1:5) = (/ zero, z**2, z**2, one,  w /)
  args(426,1:5) = (/ zero, z**2, z**2, z**2,  w /)
  args(427,1:5) = (/ one, zero, zero, zero,  w /)
  args(428,1:5) = (/ one, zero, zero, one,  w /)
  args(429,1:5) = (/ one, zero, zero, z**2,  w /)
  args(430,1:5) = (/ one, zero, one, zero,  w /)
  args(431,1:5) = (/ one, zero, one, one,  w /)
  args(432,1:5) = (/ one, zero, one, z**2,  w /)
  args(433,1:5) = (/ one, zero, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(434,1:5) = (/ one, zero, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(435,1:5) = (/ one, zero, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(436,1:5) = (/ one, zero, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(437,1:5) = (/ one, zero, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(438,1:5) = (/ one, zero, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(439,1:5) = (/ one, zero, z**2, zero,  w /)
  args(440,1:5) = (/ one, zero, z**2, one,  w /)
  args(441,1:5) = (/ one, zero, z**2, z**2,  w /)
  args(442,1:5) = (/ one, one, zero, zero,  w /)
  args(443,1:5) = (/ one, one, zero, one,  w /)
  args(444,1:5) = (/ one, one, zero, z**2,  w /)
  args(445,1:5) = (/ one, one, one, zero,  w /)
  args(446,1:5) = (/ one, one, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(447,1:5) = (/ one, one, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(448,1:5) = (/ one, one, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(449,1:5) = (/ one, one, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(450,1:5) = (/ one, one, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(451,1:5) = (/ one, one, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(452,1:5) = (/ one, one, z**2, zero,  w /)
  args(453,1:5) = (/ one, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, zero,  w /)
  args(454,1:5) = (/ one, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, one,  w /)
  args(455,1:5) = (/ one, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, z**2,  w /)
  args(456,1:5) = (/ one, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, zero,  w /)
  args(457,1:5) = (/ one, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, one,  w /)
  args(458,1:5) = (/ one, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, z**2,  w /)
  args(459,1:5) = (/ one, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(460,1:5) = (/ one, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(461,1:5) = (/ one, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(462,1:5) = (/ one, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(463,1:5) = (/ one, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(464,1:5) = (/ one, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(465,1:5) = (/ one, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, zero,  w /)
  args(466,1:5) = (/ one, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, one,  w /)
  args(467,1:5) = (/ one, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, z**2,  w /)
  args(468,1:5) = (/ one, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, zero,  w /)
  args(469,1:5) = (/ one, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, one,  w /)
  args(470,1:5) = (/ one, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, z**2,  w /)
  args(471,1:5) = (/ one, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, zero,  w /)
  args(472,1:5) = (/ one, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, one,  w /)
  args(473,1:5) = (/ one, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, z**2,  w /)
  args(474,1:5) = (/ one, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(475,1:5) = (/ one, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(476,1:5) = (/ one, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(477,1:5) = (/ one, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(478,1:5) = (/ one, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(479,1:5) = (/ one, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(480,1:5) = (/ one, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, zero,  w /)
  args(481,1:5) = (/ one, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, one,  w /)
  args(482,1:5) = (/ one, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, z**2,  w /)
  args(483,1:5) = (/ one, z**2, zero, zero,  w /)
  args(484,1:5) = (/ one, z**2, zero, one,  w /)
  args(485,1:5) = (/ one, z**2, zero, z**2,  w /)
  args(486,1:5) = (/ one, z**2, one, zero,  w /)
  args(487,1:5) = (/ one, z**2, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(488,1:5) = (/ one, z**2, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(489,1:5) = (/ one, z**2, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(490,1:5) = (/ one, z**2, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(491,1:5) = (/ one, z**2, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(492,1:5) = (/ one, z**2, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(493,1:5) = (/ one, z**2, z**2, zero,  w /)
  args(494,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, zero, zero,  w /)
  args(495,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, zero, one,  w /)
  args(496,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, zero, z**2,  w /)
  args(497,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, one, zero,  w /)
  args(498,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, one, one,  w /)
  args(499,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, one, z**2,  w /)
  args(500,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(501,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(502,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(503,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(504,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(505,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(506,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, z**2, zero,  w /)
  args(507,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, z**2, one,  w /)
  args(508,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, z**2, z**2,  w /)
  args(509,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, zero, zero,  w /)
  args(510,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, zero, one,  w /)
  args(511,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, zero, z**2,  w /)
  args(512,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, one, zero,  w /)
  args(513,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, one, one,  w /)
  args(514,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, one, z**2,  w /)
  args(515,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(516,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(517,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(518,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(519,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(520,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(521,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, z**2, zero,  w /)
  args(522,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, z**2, one,  w /)
  args(523,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, z**2, z**2,  w /)
  args(524,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, zero,  w /)
  args(525,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, one,  w /)
  args(526,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, z**2,  w /)
  args(527,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, zero,  w /)
  args(528,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, one,  w /)
  args(529,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, z**2,  w /)
  args(530,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(531,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(532,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(533,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(534,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(535,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(536,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, zero,  w /)
  args(537,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, one,  w /)
  args(538,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, z**2,  w /)
  args(539,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, zero,  w /)
  args(540,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, one,  w /)
  args(541,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, z**2,  w /)
  args(542,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, zero,  w /)
  args(543,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, one,  w /)
  args(544,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, z**2,  w /)
  args(545,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(546,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(547,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(548,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(549,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(550,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(551,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, zero,  w /)
  args(552,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, one,  w /)
  args(553,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, z**2,  w /)
  args(554,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, zero, zero,  w /)
  args(555,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, zero, one,  w /)
  args(556,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, zero, z**2,  w /)
  args(557,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, one, zero,  w /)
  args(558,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, one, one,  w /)
  args(559,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, one, z**2,  w /)
  args(560,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(561,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(562,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(563,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(564,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(565,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(566,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, z**2, zero,  w /)
  args(567,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, z**2, one,  w /)
  args(568,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, z**2, z**2,  w /)
  args(569,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, zero, zero,  w /)
  args(570,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, zero, one,  w /)
  args(571,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, zero, z**2,  w /)
  args(572,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, one, zero,  w /)
  args(573,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, one, one,  w /)
  args(574,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, one, z**2,  w /)
  args(575,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(576,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(577,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(578,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(579,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(580,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(581,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, z**2, zero,  w /)
  args(582,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, z**2, one,  w /)
  args(583,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, z**2, z**2,  w /)
  args(584,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, zero, zero,  w /)
  args(585,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, zero, one,  w /)
  args(586,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, zero, z**2,  w /)
  args(587,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, one, zero,  w /)
  args(588,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, one, one,  w /)
  args(589,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, one, z**2,  w /)
  args(590,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(591,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(592,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(593,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(594,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(595,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(596,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, z**2, zero,  w /)
  args(597,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, z**2, one,  w /)
  args(598,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, z**2, z**2,  w /)
  args(599,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, zero,  w /)
  args(600,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, one,  w /)
  args(601,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, z**2,  w /)
  args(602,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, zero,  w /)
  args(603,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, one,  w /)
  args(604,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, z**2,  w /)
  args(605,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(606,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(607,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(608,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(609,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(610,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(611,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, zero,  w /)
  args(612,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, one,  w /)
  args(613,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, z**2,  w /)
  args(614,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, zero,  w /)
  args(615,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, one,  w /)
  args(616,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, z**2,  w /)
  args(617,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, zero,  w /)
  args(618,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, one,  w /)
  args(619,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, z**2,  w /)
  args(620,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(621,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(622,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(623,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(624,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(625,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(626,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, zero,  w /)
  args(627,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, one,  w /)
  args(628,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, z**2,  w /)
  args(629,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, zero, zero,  w /)
  args(630,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, zero, one,  w /)
  args(631,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, zero, z**2,  w /)
  args(632,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, one, zero,  w /)
  args(633,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, one, one,  w /)
  args(634,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, one, z**2,  w /)
  args(635,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(636,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(637,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(638,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(639,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(640,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(641,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, z**2, zero,  w /)
  args(642,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, z**2, one,  w /)
  args(643,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, z**2, z**2,  w /)
  args(644,1:5) = (/ z**2, zero, zero, zero,  w /)
  args(645,1:5) = (/ z**2, zero, zero, one,  w /)
  args(646,1:5) = (/ z**2, zero, zero, z**2,  w /)
  args(647,1:5) = (/ z**2, zero, one, zero,  w /)
  args(648,1:5) = (/ z**2, zero, one, one,  w /)
  args(649,1:5) = (/ z**2, zero, one, z**2,  w /)
  args(650,1:5) = (/ z**2, zero, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(651,1:5) = (/ z**2, zero, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(652,1:5) = (/ z**2, zero, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(653,1:5) = (/ z**2, zero, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(654,1:5) = (/ z**2, zero, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(655,1:5) = (/ z**2, zero, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(656,1:5) = (/ z**2, zero, z**2, zero,  w /)
  args(657,1:5) = (/ z**2, zero, z**2, one,  w /)
  args(658,1:5) = (/ z**2, zero, z**2, z**2,  w /)
  args(659,1:5) = (/ z**2, one, zero, zero,  w /)
  args(660,1:5) = (/ z**2, one, zero, one,  w /)
  args(661,1:5) = (/ z**2, one, zero, z**2,  w /)
  args(662,1:5) = (/ z**2, one, one, zero,  w /)
  args(663,1:5) = (/ z**2, one, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(664,1:5) = (/ z**2, one, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(665,1:5) = (/ z**2, one, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(666,1:5) = (/ z**2, one, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(667,1:5) = (/ z**2, one, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(668,1:5) = (/ z**2, one, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(669,1:5) = (/ z**2, one, z**2, zero,  w /)
  args(670,1:5) = (/ z**2, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, zero,  w /)
  args(671,1:5) = (/ z**2, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, one,  w /)
  args(672,1:5) = (/ z**2, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, z**2,  w /)
  args(673,1:5) = (/ z**2, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, zero,  w /)
  args(674,1:5) = (/ z**2, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, one,  w /)
  args(675,1:5) = (/ z**2, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, z**2,  w /)
  args(676,1:5) = (/ z**2, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(677,1:5) = (/ z**2, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(678,1:5) = (/ z**2, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(679,1:5) = (/ z**2, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(680,1:5) = (/ z**2, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(681,1:5) = (/ z**2, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(682,1:5) = (/ z**2, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, zero,  w /)
  args(683,1:5) = (/ z**2, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, one,  w /)
  args(684,1:5) = (/ z**2, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, z**2,  w /)
  args(685,1:5) = (/ z**2, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, zero,  w /)
  args(686,1:5) = (/ z**2, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, one,  w /)
  args(687,1:5) = (/ z**2, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, z**2,  w /)
  args(688,1:5) = (/ z**2, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, zero,  w /)
  args(689,1:5) = (/ z**2, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, one,  w /)
  args(690,1:5) = (/ z**2, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, z**2,  w /)
  args(691,1:5) = (/ z**2, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(692,1:5) = (/ z**2, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(693,1:5) = (/ z**2, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(694,1:5) = (/ z**2, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(695,1:5) = (/ z**2, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(696,1:5) = (/ z**2, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(697,1:5) = (/ z**2, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, zero,  w /)
  args(698,1:5) = (/ z**2, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, one,  w /)
  args(699,1:5) = (/ z**2, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, z**2,  w /)
  args(700,1:5) = (/ z**2, z**2, zero, zero,  w /)
  args(701,1:5) = (/ z**2, z**2, zero, one,  w /)
  args(702,1:5) = (/ z**2, z**2, zero, z**2,  w /)
  args(703,1:5) = (/ z**2, z**2, one, zero,  w /)
  args(704,1:5) = (/ z**2, z**2, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(705,1:5) = (/ z**2, z**2, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(706,1:5) = (/ z**2, z**2, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(707,1:5) = (/ z**2, z**2, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(708,1:5) = (/ z**2, z**2, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(709,1:5) = (/ z**2, z**2, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(710,1:5) = (/ z**2, z**2, z**2, zero,  w /)
  args(711,1:4) = (/ zero, zero, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(712,1:4) = (/ zero, zero, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(713,1:4) = (/ zero, one, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(714,1:4) = (/ zero, one, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(715,1:4) = (/ zero, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(716,1:4) = (/ zero, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(717,1:4) = (/ zero, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(718,1:4) = (/ zero, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(719,1:4) = (/ zero, z**2, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(720,1:4) = (/ zero, z**2, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(721,1:4) = (/ one, zero, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(722,1:4) = (/ one, zero, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(723,1:4) = (/ one, one, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(724,1:4) = (/ one, one, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(725,1:4) = (/ one, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(726,1:4) = (/ one, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(727,1:4) = (/ one, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(728,1:4) = (/ one, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(729,1:4) = (/ one, z**2, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(730,1:4) = (/ one, z**2, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(731,1:4) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(732,1:4) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(733,1:4) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(734,1:4) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(735,1:4) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(736,1:4) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(737,1:4) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(738,1:4) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(739,1:4) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(740,1:4) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(741,1:4) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(742,1:4) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(743,1:4) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(744,1:4) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(745,1:4) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(746,1:4) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(747,1:4) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(748,1:4) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(749,1:4) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(750,1:4) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(751,1:4) = (/ z**2, zero, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(752,1:4) = (/ z**2, zero, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(753,1:4) = (/ z**2, one, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(754,1:4) = (/ z**2, one, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(755,1:4) = (/ z**2, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(756,1:4) = (/ z**2, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(757,1:4) = (/ z**2, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(758,1:4) = (/ z**2, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(759,1:4) = (/ z**2, z**2, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(760,1:4) = (/ z**2, z**2, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(761,1:2) = (/ mone,  w /)
  args(762,1:4) = (/ mone, zero, zero,  w /)
  args(763,1:4) = (/ mone, zero, one,  w /)
  args(764,1:3) = (/ mone, mone,  w /)
  args(765,1:3) = (/ mone, zero,  w /)
  args(766,1:3) = (/ mone, one,  w /)
  args(767,1:3) = (/ zero, mone,  w /)
  args(768,1:3) = (/ one, mone,  w /)
  args(769,1:5) = (/ mone, mone, zero, zero,  w /)
  args(770,1:5) = (/ mone, mone, zero, one,  w /)
  args(771,1:5) = (/ mone, zero, zero, zero,  w /)
  args(772,1:5) = (/ mone, zero, zero, one,  w /)
  args(773,1:5) = (/ mone, zero, one, zero,  w /)
  args(774,1:5) = (/ mone, zero, one, one,  w /)
  args(775,1:5) = (/ mone, one, zero, zero,  w /)
  args(776,1:5) = (/ mone, one, zero, one,  w /)
  args(777,1:5) = (/ zero, mone, zero, zero,  w /)
  args(778,1:5) = (/ zero, mone, zero, one,  w /)
  args(779,1:5) = (/ one, mone, zero, zero,  w /)
  args(780,1:5) = (/ one, mone, zero, one,  w /)
  args(781,1:2) = (/ mim,  z /)
  args(782,1:2) = (/ im,  z /)
  args(783,1:2) = (/ (3 - Sqrt(5 - 4*z**2))/2.,  w /)
  args(784,1:2) = (/ (3 + Sqrt(5 - 4*z**2))/2.,  w /)
  args(785,1:3) = (/ (3 - Sqrt(5 - 4*z**2))/2., one,  w /)
  args(786,1:3) = (/ (3 - Sqrt(5 - 4*z**2))/2., z**2,  w /)
  args(787,1:3) = (/ (3 + Sqrt(5 - 4*z**2))/2., one,  w /)
  args(788,1:3) = (/ (3 + Sqrt(5 - 4*z**2))/2., z**2,  w /)
  args(789,1:4) = (/ mim, zero, zero,  z /)
  args(790,1:4) = (/ im, zero, zero,  z /)
  args(791,1:4) = (/ (3 - Sqrt(5 - 4*z**2))/2., one, one,  w /)
  args(792,1:4) = (/ (3 - Sqrt(5 - 4*z**2))/2., one, z**2,  w /)
  args(793,1:4) = (/ (3 - Sqrt(5 - 4*z**2))/2., z**2, one,  w /)
  args(794,1:4) = (/ (3 - Sqrt(5 - 4*z**2))/2., z**2, z**2,  w /)
  args(795,1:4) = (/ (3 + Sqrt(5 - 4*z**2))/2., one, one,  w /)
  args(796,1:4) = (/ (3 + Sqrt(5 - 4*z**2))/2., one, z**2,  w /)
  args(797,1:4) = (/ (3 + Sqrt(5 - 4*z**2))/2., z**2, one,  w /)
  args(798,1:4) = (/ (3 + Sqrt(5 - 4*z**2))/2., z**2, z**2,  w /)
  args(799,1:3) = (/ zero, mim,  z /)
  args(800,1:3) = (/ zero, im,  z /)
  args(801,1:3) = (/ mim, zero,  z /)
  args(802,1:3) = (/ im, zero,  z /)
  args(803,1:3) = (/ one, (3 - Sqrt(5 - 4*z**2))/2.,  w /)
  args(804,1:3) = (/ one, (3 + Sqrt(5 - 4*z**2))/2.,  w /)
  args(805,1:3) = (/ z**2, (3 - Sqrt(5 - 4*z**2))/2.,  w /)
  args(806,1:3) = (/ z**2, (3 + Sqrt(5 - 4*z**2))/2.,  w /)
  args(807,1:4) = (/ one, (3 - Sqrt(5 - 4*z**2))/2., one,  w /)
  args(808,1:4) = (/ one, (3 - Sqrt(5 - 4*z**2))/2., z**2,  w /)
  args(809,1:4) = (/ one, (3 + Sqrt(5 - 4*z**2))/2., one,  w /)
  args(810,1:4) = (/ one, (3 + Sqrt(5 - 4*z**2))/2., z**2,  w /)
  args(811,1:4) = (/ (3 - Sqrt(5 - 4*z**2))/2., one, (1 - Sqrt(-3 + 4*z**2))/2.,  w /)
  args(812,1:4) = (/ (3 - Sqrt(5 - 4*z**2))/2., one, (1 + Sqrt(-3 + 4*z**2))/2.,  w /)
  args(813,1:4) = (/ (3 - Sqrt(5 - 4*z**2))/2., z**2, (1 - Sqrt(-3 + 4*z**2))/2.,  w /)
  args(814,1:4) = (/ (3 - Sqrt(5 - 4*z**2))/2., z**2, (1 + Sqrt(-3 + 4*z**2))/2.,  w /)
  args(815,1:4) = (/ (3 + Sqrt(5 - 4*z**2))/2., one, (1 - Sqrt(-3 + 4*z**2))/2.,  w /)
  args(816,1:4) = (/ (3 + Sqrt(5 - 4*z**2))/2., one, (1 + Sqrt(-3 + 4*z**2))/2.,  w /)
  args(817,1:4) = (/ (3 + Sqrt(5 - 4*z**2))/2., z**2, (1 - Sqrt(-3 + 4*z**2))/2.,  w /)
  args(818,1:4) = (/ (3 + Sqrt(5 - 4*z**2))/2., z**2, (1 + Sqrt(-3 + 4*z**2))/2.,  w /)
  args(819,1:4) = (/ z**2, (3 - Sqrt(5 - 4*z**2))/2., one,  w /)
  args(820,1:4) = (/ z**2, (3 - Sqrt(5 - 4*z**2))/2., z**2,  w /)
  args(821,1:4) = (/ z**2, (3 + Sqrt(5 - 4*z**2))/2., one,  w /)
  args(822,1:4) = (/ z**2, (3 + Sqrt(5 - 4*z**2))/2., z**2,  w /)
  args(823,1:5) = (/ zero, mim, zero, zero,  z /)
  args(824,1:5) = (/ zero, im, zero, zero,  z /)
  args(825,1:5) = (/ mim, zero, mone, zero,  z /)
  args(826,1:5) = (/ mim, zero, zero, zero,  z /)
  args(827,1:5) = (/ mim, zero, one, zero,  z /)
  args(828,1:5) = (/ im, zero, mone, zero,  z /)
  args(829,1:5) = (/ im, zero, zero, zero,  z /)
  args(830,1:5) = (/ im, zero, one, zero,  z /)
  args(831,1:5) = (/ one, (3 - Sqrt(5 - 4*z**2))/2., one, one,  w /)
  args(832,1:5) = (/ one, (3 - Sqrt(5 - 4*z**2))/2., one, z**2,  w /)
  args(833,1:5) = (/ one, (3 - Sqrt(5 - 4*z**2))/2., z**2, one,  w /)
  args(834,1:5) = (/ one, (3 - Sqrt(5 - 4*z**2))/2., z**2, z**2,  w /)
  args(835,1:5) = (/ one, (3 + Sqrt(5 - 4*z**2))/2., one, one,  w /)
  args(836,1:5) = (/ one, (3 + Sqrt(5 - 4*z**2))/2., one, z**2,  w /)
  args(837,1:5) = (/ one, (3 + Sqrt(5 - 4*z**2))/2., z**2, one,  w /)
  args(838,1:5) = (/ one, (3 + Sqrt(5 - 4*z**2))/2., z**2, z**2,  w /)
  args(839,1:5) = (/ (3 - Sqrt(5 - 4*z**2))/2., one, one, one,  w /)
  args(840,1:5) = (/ (3 - Sqrt(5 - 4*z**2))/2., one, one, z**2,  w /)
  args(841,1:5) = (/ (3 - Sqrt(5 - 4*z**2))/2., one, (1 - Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(842,1:5) = (/ (3 - Sqrt(5 - 4*z**2))/2., one, (1 - Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(843,1:5) = (/ (3 - Sqrt(5 - 4*z**2))/2., one, (1 + Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(844,1:5) = (/ (3 - Sqrt(5 - 4*z**2))/2., one, (1 + Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(845,1:5) = (/ (3 - Sqrt(5 - 4*z**2))/2., one, z**2, one,  w /)
  args(846,1:5) = (/ (3 - Sqrt(5 - 4*z**2))/2., one, z**2, z**2,  w /)
  args(847,1:5) = (/ (3 - Sqrt(5 - 4*z**2))/2., z**2, one, one,  w /)
  args(848,1:5) = (/ (3 - Sqrt(5 - 4*z**2))/2., z**2, one, z**2,  w /)
  args(849,1:5) = (/ (3 - Sqrt(5 - 4*z**2))/2., z**2, (1 - Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(850,1:5) = (/ (3 - Sqrt(5 - 4*z**2))/2., z**2, (1 - Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(851,1:5) = (/ (3 - Sqrt(5 - 4*z**2))/2., z**2, (1 + Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(852,1:5) = (/ (3 - Sqrt(5 - 4*z**2))/2., z**2, (1 + Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(853,1:5) = (/ (3 - Sqrt(5 - 4*z**2))/2., z**2, z**2, one,  w /)
  args(854,1:5) = (/ (3 - Sqrt(5 - 4*z**2))/2., z**2, z**2, z**2,  w /)
  args(855,1:5) = (/ (3 + Sqrt(5 - 4*z**2))/2., one, one, one,  w /)
  args(856,1:5) = (/ (3 + Sqrt(5 - 4*z**2))/2., one, one, z**2,  w /)
  args(857,1:5) = (/ (3 + Sqrt(5 - 4*z**2))/2., one, (1 - Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(858,1:5) = (/ (3 + Sqrt(5 - 4*z**2))/2., one, (1 - Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(859,1:5) = (/ (3 + Sqrt(5 - 4*z**2))/2., one, (1 + Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(860,1:5) = (/ (3 + Sqrt(5 - 4*z**2))/2., one, (1 + Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(861,1:5) = (/ (3 + Sqrt(5 - 4*z**2))/2., one, z**2, one,  w /)
  args(862,1:5) = (/ (3 + Sqrt(5 - 4*z**2))/2., one, z**2, z**2,  w /)
  args(863,1:5) = (/ (3 + Sqrt(5 - 4*z**2))/2., z**2, one, one,  w /)
  args(864,1:5) = (/ (3 + Sqrt(5 - 4*z**2))/2., z**2, one, z**2,  w /)
  args(865,1:5) = (/ (3 + Sqrt(5 - 4*z**2))/2., z**2, (1 - Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(866,1:5) = (/ (3 + Sqrt(5 - 4*z**2))/2., z**2, (1 - Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(867,1:5) = (/ (3 + Sqrt(5 - 4*z**2))/2., z**2, (1 + Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(868,1:5) = (/ (3 + Sqrt(5 - 4*z**2))/2., z**2, (1 + Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(869,1:5) = (/ (3 + Sqrt(5 - 4*z**2))/2., z**2, z**2, one,  w /)
  args(870,1:5) = (/ (3 + Sqrt(5 - 4*z**2))/2., z**2, z**2, z**2,  w /)
  args(871,1:5) = (/ z**2, (3 - Sqrt(5 - 4*z**2))/2., one, one,  w /)
  args(872,1:5) = (/ z**2, (3 - Sqrt(5 - 4*z**2))/2., one, z**2,  w /)
  args(873,1:5) = (/ z**2, (3 - Sqrt(5 - 4*z**2))/2., z**2, one,  w /)
  args(874,1:5) = (/ z**2, (3 - Sqrt(5 - 4*z**2))/2., z**2, z**2,  w /)
  args(875,1:5) = (/ z**2, (3 + Sqrt(5 - 4*z**2))/2., one, one,  w /)
  args(876,1:5) = (/ z**2, (3 + Sqrt(5 - 4*z**2))/2., one, z**2,  w /)
  args(877,1:5) = (/ z**2, (3 + Sqrt(5 - 4*z**2))/2., z**2, one,  w /)
  args(878,1:5) = (/ z**2, (3 + Sqrt(5 - 4*z**2))/2., z**2, z**2,  w /)
  args(879,1:2) = (/ -z,  w /)
  args(880,1:2) = (/ z,  w /)
  args(881,1:3) = (/ zero, (1 - Sqrt(-3 + 4*z**2))/2.,  w /)
  args(882,1:3) = (/ zero, (1 + Sqrt(-3 + 4*z**2))/2.,  w /)
  args(883,1:3) = (/ -z, zero,  w /)
  args(884,1:3) = (/ -z, one,  w /)
  args(885,1:3) = (/ -z, (1 - Sqrt(-3 + 4*z**2))/2.,  w /)
  args(886,1:3) = (/ -z, (1 + Sqrt(-3 + 4*z**2))/2.,  w /)
  args(887,1:3) = (/ -z, z**2,  w /)
  args(888,1:3) = (/ z, zero,  w /)
  args(889,1:3) = (/ z, one,  w /)
  args(890,1:3) = (/ z, (1 - Sqrt(-3 + 4*z**2))/2.,  w /)
  args(891,1:3) = (/ z, (1 + Sqrt(-3 + 4*z**2))/2.,  w /)
  args(892,1:3) = (/ z, z**2,  w /)
  args(893,1:4) = (/ zero, (1 - Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(894,1:4) = (/ zero, (1 - Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(895,1:4) = (/ zero, (1 + Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(896,1:4) = (/ zero, (1 + Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(897,1:4) = (/ -z, zero, zero,  w /)
  args(898,1:4) = (/ -z, zero, z**2,  w /)
  args(899,1:4) = (/ -z, one, zero,  w /)
  args(900,1:4) = (/ -z, one, one,  w /)
  args(901,1:4) = (/ -z, one, z**2,  w /)
  args(902,1:4) = (/ -z, (1 - Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(903,1:4) = (/ -z, (1 - Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(904,1:4) = (/ -z, (1 + Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(905,1:4) = (/ -z, (1 + Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(906,1:4) = (/ -z, z**2, zero,  w /)
  args(907,1:4) = (/ -z, z**2, z**2,  w /)
  args(908,1:4) = (/ z, zero, zero,  w /)
  args(909,1:4) = (/ z, zero, z**2,  w /)
  args(910,1:4) = (/ z, one, zero,  w /)
  args(911,1:4) = (/ z, one, one,  w /)
  args(912,1:4) = (/ z, one, z**2,  w /)
  args(913,1:4) = (/ z, (1 - Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(914,1:4) = (/ z, (1 - Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(915,1:4) = (/ z, (1 + Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(916,1:4) = (/ z, (1 + Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(917,1:4) = (/ z, z**2, zero,  w /)
  args(918,1:4) = (/ z, z**2, z**2,  w /)
  args(919,1:3) = (/ zero, -z,  w /)
  args(920,1:3) = (/ zero, z,  w /)
  args(921,1:3) = (/ one, -z,  w /)
  args(922,1:3) = (/ one, z,  w /)
  args(923,1:3) = (/ -z, -z,  w /)
  args(924,1:3) = (/ -z, z,  w /)
  args(925,1:3) = (/ z, -z,  w /)
  args(926,1:3) = (/ z, z,  w /)
  args(927,1:3) = (/ -z, mone,  w /)
  args(928,1:3) = (/ z, mone,  w /)
  args(929,1:4) = (/ zero, zero, (1 - Sqrt(-3 + 4*z**2))/2.,  w /)
  args(930,1:4) = (/ zero, zero, (1 + Sqrt(-3 + 4*z**2))/2.,  w /)
  args(931,1:4) = (/ zero, one, (1 - Sqrt(-3 + 4*z**2))/2.,  w /)
  args(932,1:4) = (/ zero, one, (1 + Sqrt(-3 + 4*z**2))/2.,  w /)
  args(933,1:4) = (/ zero, (1 - Sqrt(-3 + 4*z**2))/2., (1 - Sqrt(-3 + 4*z**2))/2.,  w /)
  args(934,1:4) = (/ zero, (1 - Sqrt(-3 + 4*z**2))/2., (1 + Sqrt(-3 + 4*z**2))/2.,  w /)
  args(935,1:4) = (/ zero, (1 + Sqrt(-3 + 4*z**2))/2., (1 - Sqrt(-3 + 4*z**2))/2.,  w /)
  args(936,1:4) = (/ zero, (1 + Sqrt(-3 + 4*z**2))/2., (1 + Sqrt(-3 + 4*z**2))/2.,  w /)
  args(937,1:4) = (/ zero, -z, zero,  w /)
  args(938,1:4) = (/ zero, -z, one,  w /)
  args(939,1:4) = (/ zero, -z, (1 - Sqrt(-3 + 4*z**2))/2.,  w /)
  args(940,1:4) = (/ zero, -z, (1 + Sqrt(-3 + 4*z**2))/2.,  w /)
  args(941,1:4) = (/ zero, -z, z**2,  w /)
  args(942,1:4) = (/ zero, z, zero,  w /)
  args(943,1:4) = (/ zero, z, one,  w /)
  args(944,1:4) = (/ zero, z, (1 - Sqrt(-3 + 4*z**2))/2.,  w /)
  args(945,1:4) = (/ zero, z, (1 + Sqrt(-3 + 4*z**2))/2.,  w /)
  args(946,1:4) = (/ zero, z, z**2,  w /)
  args(947,1:4) = (/ zero, z**2, (1 - Sqrt(-3 + 4*z**2))/2.,  w /)
  args(948,1:4) = (/ zero, z**2, (1 + Sqrt(-3 + 4*z**2))/2.,  w /)
  args(949,1:4) = (/ one, zero, (1 - Sqrt(-3 + 4*z**2))/2.,  w /)
  args(950,1:4) = (/ one, zero, (1 + Sqrt(-3 + 4*z**2))/2.,  w /)
  args(951,1:4) = (/ one, -z, zero,  w /)
  args(952,1:4) = (/ one, -z, one,  w /)
  args(953,1:4) = (/ one, -z, (1 - Sqrt(-3 + 4*z**2))/2.,  w /)
  args(954,1:4) = (/ one, -z, (1 + Sqrt(-3 + 4*z**2))/2.,  w /)
  args(955,1:4) = (/ one, -z, z**2,  w /)
  args(956,1:4) = (/ one, z, zero,  w /)
  args(957,1:4) = (/ one, z, one,  w /)
  args(958,1:4) = (/ one, z, (1 - Sqrt(-3 + 4*z**2))/2.,  w /)
  args(959,1:4) = (/ one, z, (1 + Sqrt(-3 + 4*z**2))/2.,  w /)
  args(960,1:4) = (/ one, z, z**2,  w /)
  args(961,1:4) = (/ -z, zero, one,  w /)
  args(962,1:4) = (/ -z, zero, (1 - Sqrt(-3 + 4*z**2))/2.,  w /)
  args(963,1:4) = (/ -z, zero, (1 + Sqrt(-3 + 4*z**2))/2.,  w /)
  args(964,1:4) = (/ -z, one, (1 - Sqrt(-3 + 4*z**2))/2.,  w /)
  args(965,1:4) = (/ -z, one, (1 + Sqrt(-3 + 4*z**2))/2.,  w /)
  args(966,1:4) = (/ -z, (1 - Sqrt(-3 + 4*z**2))/2., (1 - Sqrt(-3 + 4*z**2))/2.,  w /)
  args(967,1:4) = (/ -z, (1 - Sqrt(-3 + 4*z**2))/2., (1 + Sqrt(-3 + 4*z**2))/2.,  w /)
  args(968,1:4) = (/ -z, (1 + Sqrt(-3 + 4*z**2))/2., (1 - Sqrt(-3 + 4*z**2))/2.,  w /)
  args(969,1:4) = (/ -z, (1 + Sqrt(-3 + 4*z**2))/2., (1 + Sqrt(-3 + 4*z**2))/2.,  w /)
  args(970,1:4) = (/ -z, -z, zero,  w /)
  args(971,1:4) = (/ -z, -z, one,  w /)
  args(972,1:4) = (/ -z, -z, (1 - Sqrt(-3 + 4*z**2))/2.,  w /)
  args(973,1:4) = (/ -z, -z, (1 + Sqrt(-3 + 4*z**2))/2.,  w /)
  args(974,1:4) = (/ -z, -z, z**2,  w /)
  args(975,1:4) = (/ -z, z, zero,  w /)
  args(976,1:4) = (/ -z, z, one,  w /)
  args(977,1:4) = (/ -z, z, (1 - Sqrt(-3 + 4*z**2))/2.,  w /)
  args(978,1:4) = (/ -z, z, (1 + Sqrt(-3 + 4*z**2))/2.,  w /)
  args(979,1:4) = (/ -z, z, z**2,  w /)
  args(980,1:4) = (/ -z, z**2, one,  w /)
  args(981,1:4) = (/ -z, z**2, (1 - Sqrt(-3 + 4*z**2))/2.,  w /)
  args(982,1:4) = (/ -z, z**2, (1 + Sqrt(-3 + 4*z**2))/2.,  w /)
  args(983,1:4) = (/ z, zero, one,  w /)
  args(984,1:4) = (/ z, zero, (1 - Sqrt(-3 + 4*z**2))/2.,  w /)
  args(985,1:4) = (/ z, zero, (1 + Sqrt(-3 + 4*z**2))/2.,  w /)
  args(986,1:4) = (/ z, one, (1 - Sqrt(-3 + 4*z**2))/2.,  w /)
  args(987,1:4) = (/ z, one, (1 + Sqrt(-3 + 4*z**2))/2.,  w /)
  args(988,1:4) = (/ z, (1 - Sqrt(-3 + 4*z**2))/2., (1 - Sqrt(-3 + 4*z**2))/2.,  w /)
  args(989,1:4) = (/ z, (1 - Sqrt(-3 + 4*z**2))/2., (1 + Sqrt(-3 + 4*z**2))/2.,  w /)
  args(990,1:4) = (/ z, (1 + Sqrt(-3 + 4*z**2))/2., (1 - Sqrt(-3 + 4*z**2))/2.,  w /)
  args(991,1:4) = (/ z, (1 + Sqrt(-3 + 4*z**2))/2., (1 + Sqrt(-3 + 4*z**2))/2.,  w /)
  args(992,1:4) = (/ z, -z, zero,  w /)
  args(993,1:4) = (/ z, -z, one,  w /)
  args(994,1:4) = (/ z, -z, (1 - Sqrt(-3 + 4*z**2))/2.,  w /)
  args(995,1:4) = (/ z, -z, (1 + Sqrt(-3 + 4*z**2))/2.,  w /)
  args(996,1:4) = (/ z, -z, z**2,  w /)
  args(997,1:4) = (/ z, z, zero,  w /)
  args(998,1:4) = (/ z, z, one,  w /)
  args(999,1:4) = (/ z, z, (1 - Sqrt(-3 + 4*z**2))/2.,  w /)
  args(1000,1:4) = (/ z, z, (1 + Sqrt(-3 + 4*z**2))/2.,  w /)
  args(1001,1:4) = (/ z, z, z**2,  w /)
  args(1002,1:4) = (/ z, z**2, one,  w /)
  args(1003,1:4) = (/ z, z**2, (1 - Sqrt(-3 + 4*z**2))/2.,  w /)
  args(1004,1:4) = (/ z, z**2, (1 + Sqrt(-3 + 4*z**2))/2.,  w /)
  args(1005,1:5) = (/ zero, zero, (1 - Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1006,1:5) = (/ zero, zero, (1 - Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1007,1:5) = (/ zero, zero, (1 + Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1008,1:5) = (/ zero, zero, (1 + Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1009,1:5) = (/ zero, one, (1 - Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1010,1:5) = (/ zero, one, (1 - Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1011,1:5) = (/ zero, one, (1 + Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1012,1:5) = (/ zero, one, (1 + Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1013,1:5) = (/ zero, (1 - Sqrt(-3 + 4*z**2))/2., one, one,  w /)
  args(1014,1:5) = (/ zero, (1 - Sqrt(-3 + 4*z**2))/2., one, z**2,  w /)
  args(1015,1:5) = (/ zero, (1 - Sqrt(-3 + 4*z**2))/2., (1 - Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1016,1:5) = (/ zero, (1 - Sqrt(-3 + 4*z**2))/2., (1 - Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1017,1:5) = (/ zero, (1 - Sqrt(-3 + 4*z**2))/2., (1 + Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1018,1:5) = (/ zero, (1 - Sqrt(-3 + 4*z**2))/2., (1 + Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1019,1:5) = (/ zero, (1 - Sqrt(-3 + 4*z**2))/2., z**2, one,  w /)
  args(1020,1:5) = (/ zero, (1 - Sqrt(-3 + 4*z**2))/2., z**2, z**2,  w /)
  args(1021,1:5) = (/ zero, (1 + Sqrt(-3 + 4*z**2))/2., one, one,  w /)
  args(1022,1:5) = (/ zero, (1 + Sqrt(-3 + 4*z**2))/2., one, z**2,  w /)
  args(1023,1:5) = (/ zero, (1 + Sqrt(-3 + 4*z**2))/2., (1 - Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1024,1:5) = (/ zero, (1 + Sqrt(-3 + 4*z**2))/2., (1 - Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1025,1:5) = (/ zero, (1 + Sqrt(-3 + 4*z**2))/2., (1 + Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1026,1:5) = (/ zero, (1 + Sqrt(-3 + 4*z**2))/2., (1 + Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1027,1:5) = (/ zero, (1 + Sqrt(-3 + 4*z**2))/2., z**2, one,  w /)
  args(1028,1:5) = (/ zero, (1 + Sqrt(-3 + 4*z**2))/2., z**2, z**2,  w /)
  args(1029,1:5) = (/ zero, -z, zero, zero,  w /)
  args(1030,1:5) = (/ zero, -z, zero, z**2,  w /)
  args(1031,1:5) = (/ zero, -z, one, zero,  w /)
  args(1032,1:5) = (/ zero, -z, one, one,  w /)
  args(1033,1:5) = (/ zero, -z, one, z**2,  w /)
  args(1034,1:5) = (/ zero, -z, (1 - Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1035,1:5) = (/ zero, -z, (1 - Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1036,1:5) = (/ zero, -z, (1 + Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1037,1:5) = (/ zero, -z, (1 + Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1038,1:5) = (/ zero, -z, z**2, zero,  w /)
  args(1039,1:5) = (/ zero, -z, z**2, z**2,  w /)
  args(1040,1:5) = (/ zero, z, zero, zero,  w /)
  args(1041,1:5) = (/ zero, z, zero, z**2,  w /)
  args(1042,1:5) = (/ zero, z, one, zero,  w /)
  args(1043,1:5) = (/ zero, z, one, one,  w /)
  args(1044,1:5) = (/ zero, z, one, z**2,  w /)
  args(1045,1:5) = (/ zero, z, (1 - Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1046,1:5) = (/ zero, z, (1 - Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1047,1:5) = (/ zero, z, (1 + Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1048,1:5) = (/ zero, z, (1 + Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1049,1:5) = (/ zero, z, z**2, zero,  w /)
  args(1050,1:5) = (/ zero, z, z**2, z**2,  w /)
  args(1051,1:5) = (/ zero, z**2, (1 - Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1052,1:5) = (/ zero, z**2, (1 - Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1053,1:5) = (/ zero, z**2, (1 + Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1054,1:5) = (/ zero, z**2, (1 + Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1055,1:5) = (/ one, zero, (1 - Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1056,1:5) = (/ one, zero, (1 - Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1057,1:5) = (/ one, zero, (1 + Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1058,1:5) = (/ one, zero, (1 + Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1059,1:5) = (/ one, -z, zero, zero,  w /)
  args(1060,1:5) = (/ one, -z, zero, z**2,  w /)
  args(1061,1:5) = (/ one, -z, one, zero,  w /)
  args(1062,1:5) = (/ one, -z, one, one,  w /)
  args(1063,1:5) = (/ one, -z, one, z**2,  w /)
  args(1064,1:5) = (/ one, -z, (1 - Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1065,1:5) = (/ one, -z, (1 - Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1066,1:5) = (/ one, -z, (1 + Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1067,1:5) = (/ one, -z, (1 + Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1068,1:5) = (/ one, -z, z**2, zero,  w /)
  args(1069,1:5) = (/ one, -z, z**2, z**2,  w /)
  args(1070,1:5) = (/ one, z, zero, zero,  w /)
  args(1071,1:5) = (/ one, z, zero, z**2,  w /)
  args(1072,1:5) = (/ one, z, one, zero,  w /)
  args(1073,1:5) = (/ one, z, one, one,  w /)
  args(1074,1:5) = (/ one, z, one, z**2,  w /)
  args(1075,1:5) = (/ one, z, (1 - Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1076,1:5) = (/ one, z, (1 - Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1077,1:5) = (/ one, z, (1 + Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1078,1:5) = (/ one, z, (1 + Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1079,1:5) = (/ one, z, z**2, zero,  w /)
  args(1080,1:5) = (/ one, z, z**2, z**2,  w /)
  args(1081,1:5) = (/ -z, mone, zero, zero,  w /)
  args(1082,1:5) = (/ -z, mone, zero, one,  w /)
  args(1083,1:5) = (/ -z, zero, zero, zero,  w /)
  args(1084,1:5) = (/ -z, zero, zero, one,  w /)
  args(1085,1:5) = (/ -z, zero, zero, z**2,  w /)
  args(1086,1:5) = (/ -z, zero, one, zero,  w /)
  args(1087,1:5) = (/ -z, zero, one, one,  w /)
  args(1088,1:5) = (/ -z, zero, one, z**2,  w /)
  args(1089,1:5) = (/ -z, zero, (1 - Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1090,1:5) = (/ -z, zero, (1 - Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1091,1:5) = (/ -z, zero, (1 + Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1092,1:5) = (/ -z, zero, (1 + Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1093,1:5) = (/ -z, zero, z**2, zero,  w /)
  args(1094,1:5) = (/ -z, zero, z**2, one,  w /)
  args(1095,1:5) = (/ -z, zero, z**2, z**2,  w /)
  args(1096,1:5) = (/ -z, one, zero, zero,  w /)
  args(1097,1:5) = (/ -z, one, zero, one,  w /)
  args(1098,1:5) = (/ -z, one, zero, z**2,  w /)
  args(1099,1:5) = (/ -z, one, one, zero,  w /)
  args(1100,1:5) = (/ -z, one, one, one,  w /)
  args(1101,1:5) = (/ -z, one, one, z**2,  w /)
  args(1102,1:5) = (/ -z, one, (1 - Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1103,1:5) = (/ -z, one, (1 - Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1104,1:5) = (/ -z, one, (1 + Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1105,1:5) = (/ -z, one, (1 + Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1106,1:5) = (/ -z, one, z**2, zero,  w /)
  args(1107,1:5) = (/ -z, one, z**2, one,  w /)
  args(1108,1:5) = (/ -z, one, z**2, z**2,  w /)
  args(1109,1:5) = (/ -z, (1 - Sqrt(-3 + 4*z**2))/2., one, one,  w /)
  args(1110,1:5) = (/ -z, (1 - Sqrt(-3 + 4*z**2))/2., one, z**2,  w /)
  args(1111,1:5) = (/ -z, (1 - Sqrt(-3 + 4*z**2))/2., (1 - Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1112,1:5) = (/ -z, (1 - Sqrt(-3 + 4*z**2))/2., (1 - Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1113,1:5) = (/ -z, (1 - Sqrt(-3 + 4*z**2))/2., (1 + Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1114,1:5) = (/ -z, (1 - Sqrt(-3 + 4*z**2))/2., (1 + Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1115,1:5) = (/ -z, (1 - Sqrt(-3 + 4*z**2))/2., z**2, one,  w /)
  args(1116,1:5) = (/ -z, (1 - Sqrt(-3 + 4*z**2))/2., z**2, z**2,  w /)
  args(1117,1:5) = (/ -z, (1 + Sqrt(-3 + 4*z**2))/2., one, one,  w /)
  args(1118,1:5) = (/ -z, (1 + Sqrt(-3 + 4*z**2))/2., one, z**2,  w /)
  args(1119,1:5) = (/ -z, (1 + Sqrt(-3 + 4*z**2))/2., (1 - Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1120,1:5) = (/ -z, (1 + Sqrt(-3 + 4*z**2))/2., (1 - Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1121,1:5) = (/ -z, (1 + Sqrt(-3 + 4*z**2))/2., (1 + Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1122,1:5) = (/ -z, (1 + Sqrt(-3 + 4*z**2))/2., (1 + Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1123,1:5) = (/ -z, (1 + Sqrt(-3 + 4*z**2))/2., z**2, one,  w /)
  args(1124,1:5) = (/ -z, (1 + Sqrt(-3 + 4*z**2))/2., z**2, z**2,  w /)
  args(1125,1:5) = (/ -z, -z, zero, zero,  w /)
  args(1126,1:5) = (/ -z, -z, zero, z**2,  w /)
  args(1127,1:5) = (/ -z, -z, one, zero,  w /)
  args(1128,1:5) = (/ -z, -z, one, one,  w /)
  args(1129,1:5) = (/ -z, -z, one, z**2,  w /)
  args(1130,1:5) = (/ -z, -z, (1 - Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1131,1:5) = (/ -z, -z, (1 - Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1132,1:5) = (/ -z, -z, (1 + Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1133,1:5) = (/ -z, -z, (1 + Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1134,1:5) = (/ -z, -z, z**2, zero,  w /)
  args(1135,1:5) = (/ -z, -z, z**2, z**2,  w /)
  args(1136,1:5) = (/ -z, z, zero, zero,  w /)
  args(1137,1:5) = (/ -z, z, zero, z**2,  w /)
  args(1138,1:5) = (/ -z, z, one, zero,  w /)
  args(1139,1:5) = (/ -z, z, one, one,  w /)
  args(1140,1:5) = (/ -z, z, one, z**2,  w /)
  args(1141,1:5) = (/ -z, z, (1 - Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1142,1:5) = (/ -z, z, (1 - Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1143,1:5) = (/ -z, z, (1 + Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1144,1:5) = (/ -z, z, (1 + Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1145,1:5) = (/ -z, z, z**2, zero,  w /)
  args(1146,1:5) = (/ -z, z, z**2, z**2,  w /)
  args(1147,1:5) = (/ -z, z**2, zero, zero,  w /)
  args(1148,1:5) = (/ -z, z**2, zero, one,  w /)
  args(1149,1:5) = (/ -z, z**2, one, zero,  w /)
  args(1150,1:5) = (/ -z, z**2, one, one,  w /)
  args(1151,1:5) = (/ -z, z**2, one, z**2,  w /)
  args(1152,1:5) = (/ -z, z**2, (1 - Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1153,1:5) = (/ -z, z**2, (1 - Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1154,1:5) = (/ -z, z**2, (1 + Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1155,1:5) = (/ -z, z**2, (1 + Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1156,1:5) = (/ -z, z**2, z**2, one,  w /)
  args(1157,1:5) = (/ -z, z**2, z**2, z**2,  w /)
  args(1158,1:5) = (/ z, mone, zero, zero,  w /)
  args(1159,1:5) = (/ z, mone, zero, one,  w /)
  args(1160,1:5) = (/ z, zero, zero, zero,  w /)
  args(1161,1:5) = (/ z, zero, zero, one,  w /)
  args(1162,1:5) = (/ z, zero, zero, z**2,  w /)
  args(1163,1:5) = (/ z, zero, one, zero,  w /)
  args(1164,1:5) = (/ z, zero, one, one,  w /)
  args(1165,1:5) = (/ z, zero, one, z**2,  w /)
  args(1166,1:5) = (/ z, zero, (1 - Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1167,1:5) = (/ z, zero, (1 - Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1168,1:5) = (/ z, zero, (1 + Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1169,1:5) = (/ z, zero, (1 + Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1170,1:5) = (/ z, zero, z**2, zero,  w /)
  args(1171,1:5) = (/ z, zero, z**2, one,  w /)
  args(1172,1:5) = (/ z, zero, z**2, z**2,  w /)
  args(1173,1:5) = (/ z, one, zero, zero,  w /)
  args(1174,1:5) = (/ z, one, zero, one,  w /)
  args(1175,1:5) = (/ z, one, zero, z**2,  w /)
  args(1176,1:5) = (/ z, one, one, zero,  w /)
  args(1177,1:5) = (/ z, one, one, one,  w /)
  args(1178,1:5) = (/ z, one, one, z**2,  w /)
  args(1179,1:5) = (/ z, one, (1 - Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1180,1:5) = (/ z, one, (1 - Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1181,1:5) = (/ z, one, (1 + Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1182,1:5) = (/ z, one, (1 + Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1183,1:5) = (/ z, one, z**2, zero,  w /)
  args(1184,1:5) = (/ z, one, z**2, one,  w /)
  args(1185,1:5) = (/ z, one, z**2, z**2,  w /)
  args(1186,1:5) = (/ z, (1 - Sqrt(-3 + 4*z**2))/2., one, one,  w /)
  args(1187,1:5) = (/ z, (1 - Sqrt(-3 + 4*z**2))/2., one, z**2,  w /)
  args(1188,1:5) = (/ z, (1 - Sqrt(-3 + 4*z**2))/2., (1 - Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1189,1:5) = (/ z, (1 - Sqrt(-3 + 4*z**2))/2., (1 - Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1190,1:5) = (/ z, (1 - Sqrt(-3 + 4*z**2))/2., (1 + Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1191,1:5) = (/ z, (1 - Sqrt(-3 + 4*z**2))/2., (1 + Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1192,1:5) = (/ z, (1 - Sqrt(-3 + 4*z**2))/2., z**2, one,  w /)
  args(1193,1:5) = (/ z, (1 - Sqrt(-3 + 4*z**2))/2., z**2, z**2,  w /)
  args(1194,1:5) = (/ z, (1 + Sqrt(-3 + 4*z**2))/2., one, one,  w /)
  args(1195,1:5) = (/ z, (1 + Sqrt(-3 + 4*z**2))/2., one, z**2,  w /)
  args(1196,1:5) = (/ z, (1 + Sqrt(-3 + 4*z**2))/2., (1 - Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1197,1:5) = (/ z, (1 + Sqrt(-3 + 4*z**2))/2., (1 - Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1198,1:5) = (/ z, (1 + Sqrt(-3 + 4*z**2))/2., (1 + Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1199,1:5) = (/ z, (1 + Sqrt(-3 + 4*z**2))/2., (1 + Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1200,1:5) = (/ z, (1 + Sqrt(-3 + 4*z**2))/2., z**2, one,  w /)
  args(1201,1:5) = (/ z, (1 + Sqrt(-3 + 4*z**2))/2., z**2, z**2,  w /)
  args(1202,1:5) = (/ z, -z, zero, zero,  w /)
  args(1203,1:5) = (/ z, -z, zero, z**2,  w /)
  args(1204,1:5) = (/ z, -z, one, zero,  w /)
  args(1205,1:5) = (/ z, -z, one, one,  w /)
  args(1206,1:5) = (/ z, -z, one, z**2,  w /)
  args(1207,1:5) = (/ z, -z, (1 - Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1208,1:5) = (/ z, -z, (1 - Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1209,1:5) = (/ z, -z, (1 + Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1210,1:5) = (/ z, -z, (1 + Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1211,1:5) = (/ z, -z, z**2, zero,  w /)
  args(1212,1:5) = (/ z, -z, z**2, z**2,  w /)
  args(1213,1:5) = (/ z, z, zero, zero,  w /)
  args(1214,1:5) = (/ z, z, zero, z**2,  w /)
  args(1215,1:5) = (/ z, z, one, zero,  w /)
  args(1216,1:5) = (/ z, z, one, one,  w /)
  args(1217,1:5) = (/ z, z, one, z**2,  w /)
  args(1218,1:5) = (/ z, z, (1 - Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1219,1:5) = (/ z, z, (1 - Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1220,1:5) = (/ z, z, (1 + Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1221,1:5) = (/ z, z, (1 + Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1222,1:5) = (/ z, z, z**2, zero,  w /)
  args(1223,1:5) = (/ z, z, z**2, z**2,  w /)
  args(1224,1:5) = (/ z, z**2, zero, zero,  w /)
  args(1225,1:5) = (/ z, z**2, zero, one,  w /)
  args(1226,1:5) = (/ z, z**2, one, zero,  w /)
  args(1227,1:5) = (/ z, z**2, one, one,  w /)
  args(1228,1:5) = (/ z, z**2, one, z**2,  w /)
  args(1229,1:5) = (/ z, z**2, (1 - Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1230,1:5) = (/ z, z**2, (1 - Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1231,1:5) = (/ z, z**2, (1 + Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1232,1:5) = (/ z, z**2, (1 + Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1233,1:5) = (/ z, z**2, z**2, one,  w /)
  args(1234,1:5) = (/ z, z**2, z**2, z**2,  w /)
  args(1235,1:3) = (/ z**2, -z,  w /)
  args(1236,1:3) = (/ z**2, z,  w /)
  args(1237,1:4) = (/ z**2, zero, (1 - Sqrt(-3 + 4*z**2))/2.,  w /)
  args(1238,1:4) = (/ z**2, zero, (1 + Sqrt(-3 + 4*z**2))/2.,  w /)
  args(1239,1:4) = (/ z**2, -z, zero,  w /)
  args(1240,1:4) = (/ z**2, -z, one,  w /)
  args(1241,1:4) = (/ z**2, -z, (1 - Sqrt(-3 + 4*z**2))/2.,  w /)
  args(1242,1:4) = (/ z**2, -z, (1 + Sqrt(-3 + 4*z**2))/2.,  w /)
  args(1243,1:4) = (/ z**2, -z, z**2,  w /)
  args(1244,1:4) = (/ z**2, z, zero,  w /)
  args(1245,1:4) = (/ z**2, z, one,  w /)
  args(1246,1:4) = (/ z**2, z, (1 - Sqrt(-3 + 4*z**2))/2.,  w /)
  args(1247,1:4) = (/ z**2, z, (1 + Sqrt(-3 + 4*z**2))/2.,  w /)
  args(1248,1:4) = (/ z**2, z, z**2,  w /)
  args(1249,1:5) = (/ -z, z**2, zero, z**2,  w /)
  args(1250,1:5) = (/ -z, z**2, z**2, zero,  w /)
  args(1251,1:5) = (/ z, z**2, zero, z**2,  w /)
  args(1252,1:5) = (/ z, z**2, z**2, zero,  w /)
  args(1253,1:5) = (/ z**2, zero, (1 - Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1254,1:5) = (/ z**2, zero, (1 - Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1255,1:5) = (/ z**2, zero, (1 + Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1256,1:5) = (/ z**2, zero, (1 + Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1257,1:5) = (/ z**2, -z, zero, zero,  w /)
  args(1258,1:5) = (/ z**2, -z, zero, z**2,  w /)
  args(1259,1:5) = (/ z**2, -z, one, zero,  w /)
  args(1260,1:5) = (/ z**2, -z, one, one,  w /)
  args(1261,1:5) = (/ z**2, -z, one, z**2,  w /)
  args(1262,1:5) = (/ z**2, -z, (1 - Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1263,1:5) = (/ z**2, -z, (1 - Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1264,1:5) = (/ z**2, -z, (1 + Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1265,1:5) = (/ z**2, -z, (1 + Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1266,1:5) = (/ z**2, -z, z**2, zero,  w /)
  args(1267,1:5) = (/ z**2, -z, z**2, z**2,  w /)
  args(1268,1:5) = (/ z**2, z, zero, zero,  w /)
  args(1269,1:5) = (/ z**2, z, zero, z**2,  w /)
  args(1270,1:5) = (/ z**2, z, one, zero,  w /)
  args(1271,1:5) = (/ z**2, z, one, one,  w /)
  args(1272,1:5) = (/ z**2, z, one, z**2,  w /)
  args(1273,1:5) = (/ z**2, z, (1 - Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1274,1:5) = (/ z**2, z, (1 - Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1275,1:5) = (/ z**2, z, (1 + Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1276,1:5) = (/ z**2, z, (1 + Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1277,1:5) = (/ z**2, z, z**2, zero,  w /)
  args(1278,1:5) = (/ z**2, z, z**2, z**2,  w /)
  args(1279,1:3) = (/ -z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(1280,1:3) = (/ -z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(1281,1:3) = (/ z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(1282,1:3) = (/ z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(1283,1:4) = (/ -z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(1284,1:4) = (/ -z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(1285,1:4) = (/ -z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(1286,1:4) = (/ -z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(1287,1:4) = (/ -z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(1288,1:4) = (/ -z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(1289,1:4) = (/ z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(1290,1:4) = (/ z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(1291,1:4) = (/ z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(1292,1:4) = (/ z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(1293,1:4) = (/ z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(1294,1:4) = (/ z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(1295,1:4) = (/ zero, -z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(1296,1:4) = (/ zero, -z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(1297,1:4) = (/ zero, z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(1298,1:4) = (/ zero, z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(1299,1:4) = (/ -z, zero, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(1300,1:4) = (/ -z, zero, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(1301,1:4) = (/ -z, one, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(1302,1:4) = (/ -z, one, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(1303,1:4) = (/ -z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(1304,1:4) = (/ -z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(1305,1:4) = (/ -z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(1306,1:4) = (/ -z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(1307,1:4) = (/ -z, -z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(1308,1:4) = (/ -z, -z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(1309,1:4) = (/ -z, z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(1310,1:4) = (/ -z, z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(1311,1:4) = (/ -z, z**2, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(1312,1:4) = (/ -z, z**2, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(1313,1:4) = (/ z, zero, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(1314,1:4) = (/ z, zero, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(1315,1:4) = (/ z, one, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(1316,1:4) = (/ z, one, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(1317,1:4) = (/ z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(1318,1:4) = (/ z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(1319,1:4) = (/ z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(1320,1:4) = (/ z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(1321,1:4) = (/ z, -z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(1322,1:4) = (/ z, -z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(1323,1:4) = (/ z, z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(1324,1:4) = (/ z, z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(1325,1:4) = (/ z, z**2, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(1326,1:4) = (/ z, z**2, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(1327,1:4) = (/ z**2, -z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(1328,1:4) = (/ z**2, -z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(1329,1:4) = (/ z**2, z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(1330,1:4) = (/ z**2, z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(1331,1:5) = (/ zero, -z, zero, one,  w /)
  args(1332,1:5) = (/ zero, -z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(1333,1:5) = (/ zero, -z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(1334,1:5) = (/ zero, -z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(1335,1:5) = (/ zero, -z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(1336,1:5) = (/ zero, -z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(1337,1:5) = (/ zero, -z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(1338,1:5) = (/ zero, z, zero, one,  w /)
  args(1339,1:5) = (/ zero, z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(1340,1:5) = (/ zero, z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(1341,1:5) = (/ zero, z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(1342,1:5) = (/ zero, z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(1343,1:5) = (/ zero, z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(1344,1:5) = (/ zero, z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(1345,1:5) = (/ -z, zero, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(1346,1:5) = (/ -z, zero, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(1347,1:5) = (/ -z, zero, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(1348,1:5) = (/ -z, zero, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(1349,1:5) = (/ -z, zero, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(1350,1:5) = (/ -z, zero, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(1351,1:5) = (/ -z, one, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(1352,1:5) = (/ -z, one, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(1353,1:5) = (/ -z, one, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(1354,1:5) = (/ -z, one, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(1355,1:5) = (/ -z, one, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(1356,1:5) = (/ -z, one, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(1357,1:5) = (/ -z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, zero,  w /)
  args(1358,1:5) = (/ -z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, one,  w /)
  args(1359,1:5) = (/ -z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, z**2,  w /)
  args(1360,1:5) = (/ -z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, zero,  w /)
  args(1361,1:5) = (/ -z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, one,  w /)
  args(1362,1:5) = (/ -z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, z**2,  w /)
  args(1363,1:5) = (/ -z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(1364,1:5) = (/ -z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(1365,1:5) = (/ -z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(1366,1:5) = (/ -z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(1367,1:5) = (/ -z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(1368,1:5) = (/ -z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(1369,1:5) = (/ -z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, zero,  w /)
  args(1370,1:5) = (/ -z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, one,  w /)
  args(1371,1:5) = (/ -z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, z**2,  w /)
  args(1372,1:5) = (/ -z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, zero,  w /)
  args(1373,1:5) = (/ -z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, one,  w /)
  args(1374,1:5) = (/ -z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, z**2,  w /)
  args(1375,1:5) = (/ -z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, zero,  w /)
  args(1376,1:5) = (/ -z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, one,  w /)
  args(1377,1:5) = (/ -z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, z**2,  w /)
  args(1378,1:5) = (/ -z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(1379,1:5) = (/ -z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(1380,1:5) = (/ -z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(1381,1:5) = (/ -z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(1382,1:5) = (/ -z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(1383,1:5) = (/ -z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(1384,1:5) = (/ -z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, zero,  w /)
  args(1385,1:5) = (/ -z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, one,  w /)
  args(1386,1:5) = (/ -z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, z**2,  w /)
  args(1387,1:5) = (/ -z, -z, zero, one,  w /)
  args(1388,1:5) = (/ -z, -z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(1389,1:5) = (/ -z, -z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(1390,1:5) = (/ -z, -z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(1391,1:5) = (/ -z, -z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(1392,1:5) = (/ -z, -z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(1393,1:5) = (/ -z, -z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(1394,1:5) = (/ -z, z, zero, one,  w /)
  args(1395,1:5) = (/ -z, z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(1396,1:5) = (/ -z, z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(1397,1:5) = (/ -z, z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(1398,1:5) = (/ -z, z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(1399,1:5) = (/ -z, z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(1400,1:5) = (/ -z, z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(1401,1:5) = (/ -z, z**2, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(1402,1:5) = (/ -z, z**2, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(1403,1:5) = (/ -z, z**2, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(1404,1:5) = (/ -z, z**2, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(1405,1:5) = (/ -z, z**2, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(1406,1:5) = (/ -z, z**2, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(1407,1:5) = (/ z, zero, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(1408,1:5) = (/ z, zero, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(1409,1:5) = (/ z, zero, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(1410,1:5) = (/ z, zero, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(1411,1:5) = (/ z, zero, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(1412,1:5) = (/ z, zero, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(1413,1:5) = (/ z, one, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(1414,1:5) = (/ z, one, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(1415,1:5) = (/ z, one, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(1416,1:5) = (/ z, one, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(1417,1:5) = (/ z, one, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(1418,1:5) = (/ z, one, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(1419,1:5) = (/ z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, zero,  w /)
  args(1420,1:5) = (/ z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, one,  w /)
  args(1421,1:5) = (/ z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, z**2,  w /)
  args(1422,1:5) = (/ z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, zero,  w /)
  args(1423,1:5) = (/ z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, one,  w /)
  args(1424,1:5) = (/ z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, z**2,  w /)
  args(1425,1:5) = (/ z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(1426,1:5) = (/ z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(1427,1:5) = (/ z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(1428,1:5) = (/ z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(1429,1:5) = (/ z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(1430,1:5) = (/ z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(1431,1:5) = (/ z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, zero,  w /)
  args(1432,1:5) = (/ z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, one,  w /)
  args(1433,1:5) = (/ z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, z**2,  w /)
  args(1434,1:5) = (/ z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, zero,  w /)
  args(1435,1:5) = (/ z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, one,  w /)
  args(1436,1:5) = (/ z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, z**2,  w /)
  args(1437,1:5) = (/ z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, zero,  w /)
  args(1438,1:5) = (/ z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, one,  w /)
  args(1439,1:5) = (/ z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, z**2,  w /)
  args(1440,1:5) = (/ z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(1441,1:5) = (/ z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(1442,1:5) = (/ z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(1443,1:5) = (/ z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(1444,1:5) = (/ z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(1445,1:5) = (/ z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(1446,1:5) = (/ z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, zero,  w /)
  args(1447,1:5) = (/ z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, one,  w /)
  args(1448,1:5) = (/ z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, z**2,  w /)
  args(1449,1:5) = (/ z, -z, zero, one,  w /)
  args(1450,1:5) = (/ z, -z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(1451,1:5) = (/ z, -z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(1452,1:5) = (/ z, -z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(1453,1:5) = (/ z, -z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(1454,1:5) = (/ z, -z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(1455,1:5) = (/ z, -z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(1456,1:5) = (/ z, z, zero, one,  w /)
  args(1457,1:5) = (/ z, z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(1458,1:5) = (/ z, z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(1459,1:5) = (/ z, z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(1460,1:5) = (/ z, z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(1461,1:5) = (/ z, z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(1462,1:5) = (/ z, z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(1463,1:5) = (/ z, z**2, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(1464,1:5) = (/ z, z**2, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(1465,1:5) = (/ z, z**2, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(1466,1:5) = (/ z, z**2, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(1467,1:5) = (/ z, z**2, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(1468,1:5) = (/ z, z**2, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(1469,1:5) = (/ z**2, -z, zero, one,  w /)
  args(1470,1:5) = (/ z**2, -z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(1471,1:5) = (/ z**2, -z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(1472,1:5) = (/ z**2, -z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(1473,1:5) = (/ z**2, -z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(1474,1:5) = (/ z**2, -z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(1475,1:5) = (/ z**2, -z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(1476,1:5) = (/ z**2, z, zero, one,  w /)
  args(1477,1:5) = (/ z**2, z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(1478,1:5) = (/ z**2, z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(1479,1:5) = (/ z**2, z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(1480,1:5) = (/ z**2, z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(1481,1:5) = (/ z**2, z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(1482,1:5) = (/ z**2, z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(1483,1:5) = (/ one, -z, zero, one,  w /)
  args(1484,1:5) = (/ one, -z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(1485,1:5) = (/ one, -z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(1486,1:5) = (/ one, -z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(1487,1:5) = (/ one, -z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(1488,1:5) = (/ one, -z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(1489,1:5) = (/ one, -z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(1490,1:5) = (/ one, z, zero, one,  w /)
  args(1491,1:5) = (/ one, z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(1492,1:5) = (/ one, z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(1493,1:5) = (/ one, z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(1494,1:5) = (/ one, z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(1495,1:5) = (/ one, z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(1496,1:5) = (/ one, z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(1497,1:4) = (/ one, -z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(1498,1:4) = (/ one, -z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(1499,1:4) = (/ one, z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(1500,1:4) = (/ one, z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(1501,1:3) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (3 - Sqrt(5 - 4*z**2))/2.,  w /)
  args(1502,1:3) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (3 + Sqrt(5 - 4*z**2))/2.,  w /)
  args(1503,1:3) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (3 - Sqrt(5 - 4*z**2))/2.,  w /)
  args(1504,1:3) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (3 + Sqrt(5 - 4*z**2))/2.,  w /)
  args(1505,1:3) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), -z,  w /)
  args(1506,1:3) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z,  w /)
  args(1507,1:3) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), -z,  w /)
  args(1508,1:3) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z,  w /)
  args(1509,1:4) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, (1 - Sqrt(-3 + 4*z**2))/2.,  w /)
  args(1510,1:4) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, (1 + Sqrt(-3 + 4*z**2))/2.,  w /)
  args(1511,1:4) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, (1 - Sqrt(-3 + 4*z**2))/2.,  w /)
  args(1512,1:4) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, (1 + Sqrt(-3 + 4*z**2))/2.,  w /)
  args(1513,1:4) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (3 - Sqrt(5 - 4*z**2))/2., one,  w /)
  args(1514,1:4) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (3 - Sqrt(5 - 4*z**2))/2., z**2,  w /)
  args(1515,1:4) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (3 + Sqrt(5 - 4*z**2))/2., one,  w /)
  args(1516,1:4) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (3 + Sqrt(5 - 4*z**2))/2., z**2,  w /)
  args(1517,1:4) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), -z, zero,  w /)
  args(1518,1:4) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), -z, (1 - Sqrt(-3 + 4*z**2))/2.,  w /)
  args(1519,1:4) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), -z, (1 + Sqrt(-3 + 4*z**2))/2.,  w /)
  args(1520,1:4) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), -z, z**2,  w /)
  args(1521,1:4) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z, zero,  w /)
  args(1522,1:4) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z, (1 - Sqrt(-3 + 4*z**2))/2.,  w /)
  args(1523,1:4) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z, (1 + Sqrt(-3 + 4*z**2))/2.,  w /)
  args(1524,1:4) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z, z**2,  w /)
  args(1525,1:4) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, (1 - Sqrt(-3 + 4*z**2))/2.,  w /)
  args(1526,1:4) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, (1 + Sqrt(-3 + 4*z**2))/2.,  w /)
  args(1527,1:4) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, (1 - Sqrt(-3 + 4*z**2))/2.,  w /)
  args(1528,1:4) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, (1 + Sqrt(-3 + 4*z**2))/2.,  w /)
  args(1529,1:4) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, (1 - Sqrt(-3 + 4*z**2))/2.,  w /)
  args(1530,1:4) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, (1 + Sqrt(-3 + 4*z**2))/2.,  w /)
  args(1531,1:4) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (3 - Sqrt(5 - 4*z**2))/2., one,  w /)
  args(1532,1:4) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (3 - Sqrt(5 - 4*z**2))/2., z**2,  w /)
  args(1533,1:4) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (3 + Sqrt(5 - 4*z**2))/2., one,  w /)
  args(1534,1:4) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (3 + Sqrt(5 - 4*z**2))/2., z**2,  w /)
  args(1535,1:4) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), -z, zero,  w /)
  args(1536,1:4) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), -z, (1 - Sqrt(-3 + 4*z**2))/2.,  w /)
  args(1537,1:4) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), -z, (1 + Sqrt(-3 + 4*z**2))/2.,  w /)
  args(1538,1:4) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), -z, z**2,  w /)
  args(1539,1:4) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z, zero,  w /)
  args(1540,1:4) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z, (1 - Sqrt(-3 + 4*z**2))/2.,  w /)
  args(1541,1:4) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z, (1 + Sqrt(-3 + 4*z**2))/2.,  w /)
  args(1542,1:4) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z, z**2,  w /)
  args(1543,1:4) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, (1 - Sqrt(-3 + 4*z**2))/2.,  w /)
  args(1544,1:4) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, (1 + Sqrt(-3 + 4*z**2))/2.,  w /)
  args(1545,1:5) = (/ zero, -z, z**2, one,  w /)
  args(1546,1:5) = (/ zero, z, z**2, one,  w /)
  args(1547,1:5) = (/ one, -z, z**2, one,  w /)
  args(1548,1:5) = (/ one, z, z**2, one,  w /)
  args(1549,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, (1 - Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1550,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, (1 - Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1551,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, (1 + Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1552,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, (1 + Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1553,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, (1 - Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1554,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, (1 - Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1555,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, (1 + Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1556,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, (1 + Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1557,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (3 - Sqrt(5 - 4*z**2))/2., one, one,  w /)
  args(1558,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (3 - Sqrt(5 - 4*z**2))/2., one, z**2,  w /)
  args(1559,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (3 - Sqrt(5 - 4*z**2))/2., z**2, one,  w /)
  args(1560,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (3 - Sqrt(5 - 4*z**2))/2., z**2, z**2,  w /)
  args(1561,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (3 + Sqrt(5 - 4*z**2))/2., one, one,  w /)
  args(1562,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (3 + Sqrt(5 - 4*z**2))/2., one, z**2,  w /)
  args(1563,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (3 + Sqrt(5 - 4*z**2))/2., z**2, one,  w /)
  args(1564,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (3 + Sqrt(5 - 4*z**2))/2., z**2, z**2,  w /)
  args(1565,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), -z, zero, one,  w /)
  args(1566,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), -z, zero, z**2,  w /)
  args(1567,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), -z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(1568,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), -z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(1569,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), -z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(1570,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), -z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(1571,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), -z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(1572,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), -z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(1573,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), -z, (1 - Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1574,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), -z, (1 - Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1575,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), -z, (1 + Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1576,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), -z, (1 + Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1577,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), -z, z**2, zero,  w /)
  args(1578,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), -z, z**2, one,  w /)
  args(1579,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), -z, z**2, z**2,  w /)
  args(1580,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z, zero, one,  w /)
  args(1581,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z, zero, z**2,  w /)
  args(1582,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(1583,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(1584,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(1585,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(1586,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(1587,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(1588,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z, (1 - Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1589,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z, (1 - Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1590,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z, (1 + Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1591,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z, (1 + Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1592,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z, z**2, zero,  w /)
  args(1593,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z, z**2, one,  w /)
  args(1594,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z, z**2, z**2,  w /)
  args(1595,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, (1 - Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1596,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, (1 - Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1597,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, (1 + Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1598,1:5) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, (1 + Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1599,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, (1 - Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1600,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, (1 - Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1601,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, (1 + Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1602,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero, (1 + Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1603,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, (1 - Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1604,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, (1 - Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1605,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, (1 + Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1606,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one, (1 + Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1607,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (3 - Sqrt(5 - 4*z**2))/2., one, one,  w /)
  args(1608,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (3 - Sqrt(5 - 4*z**2))/2., one, z**2,  w /)
  args(1609,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (3 - Sqrt(5 - 4*z**2))/2., z**2, one,  w /)
  args(1610,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (3 - Sqrt(5 - 4*z**2))/2., z**2, z**2,  w /)
  args(1611,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (3 + Sqrt(5 - 4*z**2))/2., one, one,  w /)
  args(1612,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (3 + Sqrt(5 - 4*z**2))/2., one, z**2,  w /)
  args(1613,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (3 + Sqrt(5 - 4*z**2))/2., z**2, one,  w /)
  args(1614,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), (3 + Sqrt(5 - 4*z**2))/2., z**2, z**2,  w /)
  args(1615,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), -z, zero, one,  w /)
  args(1616,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), -z, zero, z**2,  w /)
  args(1617,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), -z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(1618,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), -z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(1619,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), -z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(1620,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), -z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(1621,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), -z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(1622,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), -z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(1623,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), -z, (1 - Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1624,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), -z, (1 - Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1625,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), -z, (1 + Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1626,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), -z, (1 + Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1627,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), -z, z**2, zero,  w /)
  args(1628,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), -z, z**2, one,  w /)
  args(1629,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), -z, z**2, z**2,  w /)
  args(1630,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z, zero, one,  w /)
  args(1631,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z, zero, z**2,  w /)
  args(1632,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(1633,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(1634,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(1635,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(1636,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(1637,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(1638,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z, (1 - Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1639,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z, (1 - Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1640,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z, (1 + Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1641,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z, (1 + Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1642,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z, z**2, zero,  w /)
  args(1643,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z, z**2, one,  w /)
  args(1644,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z, z**2, z**2,  w /)
  args(1645,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, (1 - Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1646,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, (1 - Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1647,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, (1 + Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1648,1:5) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2, (1 + Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1649,1:5) = (/ -z, -z, z**2, one,  w /)
  args(1650,1:5) = (/ -z, z, z**2, one,  w /)
  args(1651,1:5) = (/ z, -z, z**2, one,  w /)
  args(1652,1:5) = (/ z, z, z**2, one,  w /)
  args(1653,1:5) = (/ z**2, -z, z**2, one,  w /)
  args(1654,1:5) = (/ z**2, z, z**2, one,  w /)
  args(1655,1:4) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), -z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(1656,1:4) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), -z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(1657,1:4) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(1658,1:4) = (/ (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(1659,1:4) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), -z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(1660,1:4) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), -z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(1661,1:4) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(1662,1:4) = (/ (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(1663,1:3) = (/ mone, -z,  w /)
  args(1664,1:3) = (/ mone, z,  w /)
  args(1665,1:4) = (/ mone, zero, (1 - Sqrt(-3 + 4*z**2))/2.,  w /)
  args(1666,1:4) = (/ mone, zero, (1 + Sqrt(-3 + 4*z**2))/2.,  w /)
  args(1667,1:4) = (/ mone, zero, z**2,  w /)
  args(1668,1:4) = (/ mone, -z, zero,  w /)
  args(1669,1:4) = (/ mone, -z, one,  w /)
  args(1670,1:4) = (/ mone, -z, (1 - Sqrt(-3 + 4*z**2))/2.,  w /)
  args(1671,1:4) = (/ mone, -z, (1 + Sqrt(-3 + 4*z**2))/2.,  w /)
  args(1672,1:4) = (/ mone, -z, z**2,  w /)
  args(1673,1:4) = (/ mone, z, zero,  w /)
  args(1674,1:4) = (/ mone, z, one,  w /)
  args(1675,1:4) = (/ mone, z, (1 - Sqrt(-3 + 4*z**2))/2.,  w /)
  args(1676,1:4) = (/ mone, z, (1 + Sqrt(-3 + 4*z**2))/2.,  w /)
  args(1677,1:4) = (/ mone, z, z**2,  w /)
  args(1678,1:5) = (/ mone, zero, zero, z**2,  w /)
  args(1679,1:5) = (/ mone, zero, one, z**2,  w /)
  args(1680,1:5) = (/ mone, zero, (1 - Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1681,1:5) = (/ mone, zero, (1 - Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1682,1:5) = (/ mone, zero, (1 + Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1683,1:5) = (/ mone, zero, (1 + Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1684,1:5) = (/ mone, zero, z**2, zero,  w /)
  args(1685,1:5) = (/ mone, zero, z**2, z**2,  w /)
  args(1686,1:5) = (/ mone, -z, zero, zero,  w /)
  args(1687,1:5) = (/ mone, -z, zero, z**2,  w /)
  args(1688,1:5) = (/ mone, -z, one, zero,  w /)
  args(1689,1:5) = (/ mone, -z, one, one,  w /)
  args(1690,1:5) = (/ mone, -z, one, z**2,  w /)
  args(1691,1:5) = (/ mone, -z, (1 - Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1692,1:5) = (/ mone, -z, (1 - Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1693,1:5) = (/ mone, -z, (1 + Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1694,1:5) = (/ mone, -z, (1 + Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1695,1:5) = (/ mone, -z, z**2, zero,  w /)
  args(1696,1:5) = (/ mone, -z, z**2, z**2,  w /)
  args(1697,1:5) = (/ mone, z, zero, zero,  w /)
  args(1698,1:5) = (/ mone, z, zero, z**2,  w /)
  args(1699,1:5) = (/ mone, z, one, zero,  w /)
  args(1700,1:5) = (/ mone, z, one, one,  w /)
  args(1701,1:5) = (/ mone, z, one, z**2,  w /)
  args(1702,1:5) = (/ mone, z, (1 - Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1703,1:5) = (/ mone, z, (1 - Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1704,1:5) = (/ mone, z, (1 + Sqrt(-3 + 4*z**2))/2., one,  w /)
  args(1705,1:5) = (/ mone, z, (1 + Sqrt(-3 + 4*z**2))/2., z**2,  w /)
  args(1706,1:5) = (/ mone, z, z**2, zero,  w /)
  args(1707,1:5) = (/ mone, z, z**2, z**2,  w /)
  args(1708,1:4) = (/ mone, zero, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(1709,1:4) = (/ mone, zero, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(1710,1:4) = (/ mone, -z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(1711,1:4) = (/ mone, -z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(1712,1:4) = (/ mone, z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(1713,1:4) = (/ mone, z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)),  w /)
  args(1714,1:5) = (/ mone, zero, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(1715,1:5) = (/ mone, zero, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(1716,1:5) = (/ mone, zero, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(1717,1:5) = (/ mone, zero, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(1718,1:5) = (/ mone, zero, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(1719,1:5) = (/ mone, zero, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(1720,1:5) = (/ mone, -z, zero, one,  w /)
  args(1721,1:5) = (/ mone, -z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(1722,1:5) = (/ mone, -z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(1723,1:5) = (/ mone, -z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(1724,1:5) = (/ mone, -z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(1725,1:5) = (/ mone, -z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(1726,1:5) = (/ mone, -z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(1727,1:5) = (/ mone, z, zero, one,  w /)
  args(1728,1:5) = (/ mone, z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(1729,1:5) = (/ mone, z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(1730,1:5) = (/ mone, z, (z**2 - Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  args(1731,1:5) = (/ mone, z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), zero,  w /)
  args(1732,1:5) = (/ mone, z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), one,  w /)
  args(1733,1:5) = (/ mone, z, (z**2 + Sqrt(4*z**2 - 3*z**4))/(2.*(-1 + z**2)), z**2,  w /)
  END FUNCTION
END MODULE