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