MODULE gtestmuone
contains
  FUNCTION ARGS(x,y)
  use globals, only: prec
  implicit none
  complex(kind=prec), parameter :: zero = ( 0., 0.)
  complex(kind=prec), parameter ::  one = ( 1., 0.)
  complex(kind=prec), parameter :: mone = (-1., 0.)
  complex(kind=prec), parameter ::   im = ( 0., 1.)
  complex(kind=prec), parameter ::  mim = ( 0.,-1.)
  complex(kind=prec), parameter :: deg60 = (0.5,0.8660254038)
  complex(kind=prec), parameter :: degm60 = (0.5,-0.8660254038)
  complex(kind=prec) :: x,y
  complex(kind=prec) :: args(198,5)
  args = 1.e15

  args(1,1:2) = (/ mone,  x /)
  args(2,1:3) = (/ mone, mone,  x /)
  args(3,1:3) = (/ zero, mone,  x /)
  args(4,1:4) = (/ mone, mone, mone,  x /)
  args(5,1:4) = (/ mone, zero, mone,  x /)
  args(6,1:4) = (/ zero, mone, mone,  x /)
  args(7,1:4) = (/ zero, zero, mone,  x /)
  args(8,1:5) = (/ mone, mone, mone, mone,  x /)
  args(9,1:5) = (/ mone, mone, zero, mone,  x /)
  args(10,1:5) = (/ mone, zero, mone, mone,  x /)
  args(11,1:5) = (/ mone, zero, zero, mone,  x /)
  args(12,1:5) = (/ zero, mone, mone, mone,  x /)
  args(13,1:5) = (/ zero, mone, zero, mone,  x /)
  args(14,1:5) = (/ zero, zero, mone, mone,  x /)
  args(15,1:5) = (/ zero, zero, zero, mone,  x /)
  args(16,1:2) = (/ zero,  y /)
  args(17,1:2) = (/ one,  y /)
  args(18,1:3) = (/ zero, zero,  y /)
  args(19,1:3) = (/ zero, one,  y /)
  args(20,1:3) = (/ one, zero,  y /)
  args(21,1:3) = (/ one, one,  y /)
  args(22,1:4) = (/ zero, zero, zero,  y /)
  args(23,1:4) = (/ zero, zero, one,  y /)
  args(24,1:4) = (/ zero, one, zero,  y /)
  args(25,1:4) = (/ zero, one, one,  y /)
  args(26,1:4) = (/ one, zero, zero,  y /)
  args(27,1:4) = (/ one, zero, one,  y /)
  args(28,1:4) = (/ one, one, zero,  y /)
  args(29,1:4) = (/ one, one, one,  y /)
  args(30,1:5) = (/ zero, zero, zero, zero,  y /)
  args(31,1:5) = (/ zero, zero, zero, one,  y /)
  args(32,1:5) = (/ zero, zero, one, zero,  y /)
  args(33,1:5) = (/ zero, zero, one, one,  y /)
  args(34,1:5) = (/ zero, one, zero, zero,  y /)
  args(35,1:5) = (/ zero, one, zero, one,  y /)
  args(36,1:5) = (/ zero, one, one, zero,  y /)
  args(37,1:5) = (/ zero, one, one, one,  y /)
  args(38,1:5) = (/ one, zero, zero, zero,  y /)
  args(39,1:5) = (/ one, zero, zero, one,  y /)
  args(40,1:5) = (/ one, zero, one, zero,  y /)
  args(41,1:5) = (/ one, zero, one, one,  y /)
  args(42,1:5) = (/ one, one, zero, zero,  y /)
  args(43,1:5) = (/ one, one, zero, one,  y /)
  args(44,1:5) = (/ one, one, one, zero,  y /)
  args(45,1:5) = (/ one, one, one, one,  y /)
  args(46,1:2) = (/ mone,  y /)
  args(47,1:4) = (/ mone, zero, zero,  y /)
  args(48,1:4) = (/ mone, zero, one,  y /)
  args(49,1:3) = (/ mone, mone,  y /)
  args(50,1:3) = (/ mone, zero,  y /)
  args(51,1:3) = (/ mone, one,  y /)
  args(52,1:3) = (/ zero, mone,  y /)
  args(53,1:3) = (/ one, mone,  y /)
  args(54,1:5) = (/ mone, mone, zero, zero,  y /)
  args(55,1:5) = (/ mone, mone, zero, one,  y /)
  args(56,1:5) = (/ mone, zero, zero, zero,  y /)
  args(57,1:5) = (/ mone, zero, zero, one,  y /)
  args(58,1:5) = (/ mone, zero, one, zero,  y /)
  args(59,1:5) = (/ mone, zero, one, one,  y /)
  args(60,1:5) = (/ mone, one, zero, zero,  y /)
  args(61,1:5) = (/ mone, one, zero, one,  y /)
  args(62,1:5) = (/ zero, mone, zero, zero,  y /)
  args(63,1:5) = (/ zero, mone, zero, one,  y /)
  args(64,1:5) = (/ one, mone, zero, zero,  y /)
  args(65,1:5) = (/ one, mone, zero, one,  y /)
  args(66,1:2) = (/ -(1/y),  x /)
  args(67,1:2) = (/ -y,  x /)
  args(68,1:3) = (/ -(1/y), mone,  x /)
  args(69,1:3) = (/ -y, mone,  x /)
  args(70,1:4) = (/ -(1/y), mone, mone,  x /)
  args(71,1:4) = (/ -(1/y), zero, mone,  x /)
  args(72,1:4) = (/ -y, mone, mone,  x /)
  args(73,1:4) = (/ -y, zero, mone,  x /)
  args(74,1:3) = (/ 1 - 1/y - y, -(1/y),  x /)
  args(75,1:3) = (/ -(1/y), -(1/y),  x /)
  args(76,1:3) = (/ -y, -(1/y),  x /)
  args(77,1:2) = (/ 1 - 1/y - y,  x /)
  args(78,1:3) = (/ degm60, zero,  y /)
  args(79,1:3) = (/ degm60, one,  y /)
  args(80,1:3) = (/ deg60, zero,  y /)
  args(81,1:3) = (/ deg60, one,  y /)
  args(82,1:3) = (/ 1 - 1/y - y, mone,  x /)
  args(83,1:3) = (/ 1 - 1/y - y, -y,  x /)
  args(84,1:3) = (/ -(1/y), -y,  x /)
  args(85,1:3) = (/ -y, -y,  x /)
  args(86,1:4) = (/ 1 - 1/y - y, -(1/y), mone,  x /)
  args(87,1:4) = (/ 1 - 1/y - y, -y, mone,  x /)
  args(88,1:4) = (/ -(1/y), -(1/y), mone,  x /)
  args(89,1:4) = (/ -(1/y), -y, mone,  x /)
  args(90,1:4) = (/ -y, -(1/y), mone,  x /)
  args(91,1:4) = (/ -y, -y, mone,  x /)
  args(92,1:5) = (/ degm60, zero, zero, zero,  y /)
  args(93,1:5) = (/ degm60, zero, zero, one,  y /)
  args(94,1:5) = (/ degm60, zero, one, zero,  y /)
  args(95,1:5) = (/ degm60, zero, one, one,  y /)
  args(96,1:5) = (/ degm60, one, zero, zero,  y /)
  args(97,1:5) = (/ degm60, one, zero, one,  y /)
  args(98,1:5) = (/ degm60, one, one, zero,  y /)
  args(99,1:5) = (/ degm60, one, one, one,  y /)
  args(100,1:5) = (/ deg60, zero, zero, zero,  y /)
  args(101,1:5) = (/ deg60, zero, zero, one,  y /)
  args(102,1:5) = (/ deg60, zero, one, zero,  y /)
  args(103,1:5) = (/ deg60, zero, one, one,  y /)
  args(104,1:5) = (/ deg60, one, zero, zero,  y /)
  args(105,1:5) = (/ deg60, one, zero, one,  y /)
  args(106,1:5) = (/ deg60, one, one, zero,  y /)
  args(107,1:5) = (/ deg60, one, one, one,  y /)
  args(108,1:5) = (/ 1 - 1/y - y, mone, zero, mone,  x /)
  args(109,1:5) = (/ 1 - 1/y - y, -(1/y), mone, mone,  x /)
  args(110,1:5) = (/ 1 - 1/y - y, -(1/y), zero, mone,  x /)
  args(111,1:5) = (/ 1 - 1/y - y, -y, mone, mone,  x /)
  args(112,1:5) = (/ 1 - 1/y - y, -y, zero, mone,  x /)
  args(113,1:5) = (/ -(1/y), mone, mone, mone,  x /)
  args(114,1:5) = (/ -(1/y), mone, zero, mone,  x /)
  args(115,1:5) = (/ -(1/y), zero, mone, mone,  x /)
  args(116,1:5) = (/ -(1/y), zero, zero, mone,  x /)
  args(117,1:5) = (/ -(1/y), -(1/y), mone, mone,  x /)
  args(118,1:5) = (/ -(1/y), -(1/y), zero, mone,  x /)
  args(119,1:5) = (/ -(1/y), -y, mone, mone,  x /)
  args(120,1:5) = (/ -(1/y), -y, zero, mone,  x /)
  args(121,1:5) = (/ -y, mone, mone, mone,  x /)
  args(122,1:5) = (/ -y, mone, zero, mone,  x /)
  args(123,1:5) = (/ -y, zero, mone, mone,  x /)
  args(124,1:5) = (/ -y, zero, zero, mone,  x /)
  args(125,1:5) = (/ -y, -(1/y), mone, mone,  x /)
  args(126,1:5) = (/ -y, -(1/y), zero, mone,  x /)
  args(127,1:5) = (/ -y, -y, mone, mone,  x /)
  args(128,1:5) = (/ -y, -y, zero, mone,  x /)
  args(129,1:2) = (/ degm60,  y /)
  args(130,1:2) = (/ deg60,  y /)
  args(131,1:3) = (/ mone, -y,  x /)
  args(132,1:3) = (/ mone, -(1/y),  x /)
  args(133,1:4) = (/ mone, -(1/y), mone,  x /)
  args(134,1:4) = (/ mone, -y, mone,  x /)
  args(135,1:5) = (/ mone, -(1/y), mone, mone,  x /)
  args(136,1:5) = (/ mone, -(1/y), zero, mone,  x /)
  args(137,1:5) = (/ mone, -y, mone, mone,  x /)
  args(138,1:5) = (/ mone, -y, zero, mone,  x /)
  args(139,1:3) = (/ zero, -(1/y),  x /)
  args(140,1:3) = (/ zero, -y,  x /)
  args(141,1:4) = (/ zero, -(1/y), mone,  x /)
  args(142,1:4) = (/ zero, -y, mone,  x /)
  args(143,1:5) = (/ zero, -(1/y), mone, mone,  x /)
  args(144,1:5) = (/ zero, -(1/y), zero, mone,  x /)
  args(145,1:5) = (/ zero, -y, mone, mone,  x /)
  args(146,1:5) = (/ zero, -y, zero, mone,  x /)
  args(147,1:4) = (/ mone, mone, zero,  y /)
  args(148,1:4) = (/ zero, mone, zero,  y /)
  args(149,1:5) = (/ mone, mone, mone, zero,  y /)
  args(150,1:5) = (/ mone, zero, mone, zero,  y /)
  args(151,1:5) = (/ zero, mone, mone, zero,  y /)
  args(152,1:5) = (/ zero, zero, mone, zero,  y /)
  args(153,1:5) = (/ zero, mone, one, zero,  y /)
  args(154,1:5) = (/ zero, one, mone, zero,  y /)
  args(155,1:5) = (/ one, zero, mone, zero,  y /)
  args(156,1:4) = (/ mone, one, zero,  y /)
  args(157,1:4) = (/ one, mone, zero,  y /)
  args(158,1:5) = (/ mone, mone, one, zero,  y /)
  args(159,1:5) = (/ mone, one, mone, zero,  y /)
  args(160,1:5) = (/ mone, one, one, zero,  y /)
  args(161,1:5) = (/ one, mone, mone, zero,  y /)
  args(162,1:5) = (/ one, mone, one, zero,  y /)
  args(163,1:5) = (/ one, one, mone, zero,  y /)
  args(164,1:3) = (/ zero, one,  x /)
  args(165,1:5) = (/ zero, one, zero, mone,  x /)
  args(166,1:4) = (/ one, zero, mone,  x /)
  args(167,1:2) = (/ one,  x /)
  args(168,1:5) = (/ mone, one, zero, mone,  x /)
  args(169,1:5) = (/ one, mone, zero, mone,  x /)
  args(170,1:5) = (/ one, zero, mone, mone,  x /)
  args(171,1:5) = (/ one, zero, zero, mone,  x /)
  args(172,1:5) = (/ one, one, zero, mone,  x /)
  args(173,1:3) = (/ mone, one,  x /)
  args(174,1:3) = (/ one, mone,  x /)
  args(175,1:3) = (/ one, one,  x /)
  args(176,1:3) = (/ -(1/y), one,  x /)
  args(177,1:3) = (/ -y, one,  x /)
  args(178,1:5) = (/ -(1/y), one, zero, mone,  x /)
  args(179,1:5) = (/ -y, one, zero, mone,  x /)
  args(180,1:2) = (/ (-1 + y - y**2)/y,  x /)
  args(181,1:3) = (/ deg60, zero,  y /)
  args(182,1:3) = (/ degm60, zero,  y /)
  args(183,1:3) = (/ (-1 + y - y**2)/y, mone,  x /)
  args(184,1:3) = (/ (-1 + y - y**2)/y, -(1/y),  x /)
  args(185,1:3) = (/ (-1 + y - y**2)/y, -y,  x /)
  args(186,1:4) = (/ (-1 + y - y**2)/y, -(1/y), mone,  x /)
  args(187,1:4) = (/ (-1 + y - y**2)/y, -y, mone,  x /)
  args(188,1:5) = (/ deg60, zero, zero, zero,  y /)
  args(189,1:5) = (/ deg60, zero, one, zero,  y /)
  args(190,1:5) = (/ deg60, one, zero, zero,  y /)
  args(191,1:5) = (/ degm60, zero, zero, zero,  y /)
  args(192,1:5) = (/ degm60, zero, one, zero,  y /)
  args(193,1:5) = (/ degm60, one, zero, zero,  y /)
  args(194,1:5) = (/ (-1 + y - y**2)/y, mone, zero, mone,  x /)
  args(195,1:5) = (/ (-1 + y - y**2)/y, -(1/y), zero, mone,  x /)
  args(196,1:5) = (/ (-1 + y - y**2)/y, -y, zero, mone,  x /)
  args(197,1:2) = (/ deg60,  y /)
  args(198,1:2) = (/ degm60,  y /)
  END FUNCTION
END MODULE