Lines Matching refs:d0
150 IF (ABS(angle_rot(smat(1,1,elem(1,iclass)))-120.d0)<eps) THEN
170 IF (ABS(ars-90.d0)<eps) THEN
172 ELSEIF (ABS(ars-270.d0)<eps) THEN
194 IF (ABS(ars-60.d0)<eps) THEN
196 ELSEIF (ABS(ars-120.d0)<eps) THEN
198 ELSEIF (ABS(ars-240.d0)<eps) THEN
200 ELSEIF (ABS(ars-300.d0)<eps) THEN
305 IF ((ABS(ars-60.d0)<eps).OR.(ABS(ars-300.d0)<eps) ) THEN
420 IF ((ABS(ars-60.d0)<eps).OR.(ABS(ars-300.d0)<eps)) THEN
469 IF (ABS(ars-120.d0)<eps) THEN
477 IF (ABS(angle_rot_s(smat(1,1,elem(1,iclass)))-120.d0)<eps) THEN
496 IF (angle_rot(smat(1,1,elem(1,iclass)))-90.d0<eps) THEN
508 IF (angle_rot_s(smat(1,1,elem(1,iclass)))-90.d0<eps) THEN
528 IF (ABS(ars-60.d0)<eps) THEN
530 ELSEIF (ABS(ars-120.d0)<eps) THEN
532 ELSEIF (ABS(ars-240.d0)<eps) THEN
534 ELSEIF (ABS(ars-300.d0)<eps) THEN
545 IF (ABS(ars-60.d0)<eps) THEN
547 ELSEIF (ABS(ars-120.d0)<eps) THEN
549 ELSEIF (ABS(ars-240.d0)<eps) THEN
551 ELSEIF (ABS(ars-300.d0)<eps) THEN
714 IF ((ABS(ars-60.d0)<eps).OR.(ABS(ars-300.d0)<eps)) THEN
757 IF ((ABS(ars-60.d0)<eps).OR.(ABS(ars-300.d0)<eps)) THEN
822 IF (ABS(angle_rot_s(smat(1,1,elem(1,iclass)))-90.d0)<eps) THEN
841 IF (ABS(angle_rot(smat(1,1,elem(1,iclass)))-120.d0)<eps) THEN
849 IF (ABS(angle_rot_s(smat(1,1,elem(1,iclass)))-60.d0)<eps) THEN
870 IF (ABS(angle_rot(smat(1,1,elem(1,iclass)))-120.d0)<eps) THEN
872 ELSE IF (ABS(angle_rot(smat(1,1,elem(1,iclass)))-240.d0)<eps) THEN
889 IF (ABS(angle_rot(smat(1,1,elem(1,iclass)))-120.d0)<eps) THEN
899 IF (ABS(angle_rot_s(smat(1,1,elem(1,iclass)))-60.d0)<eps) THEN
1038 csum=0.d0
1086 char_mat=(1.d0,0.d0)
1087 char_mat(:,2)=(-1.d0,0.d0)
1115 char_mat(1,4)=(-1.d0,0.d0)
1118 char_mat(2,3)=(-1.d0,0.d0)
1131 char_mat(1,3)=(0.d0, 1.d0)
1132 char_mat(1,4)=(0.d0,-1.d0)
1135 char_mat(2,3)=(0.d0,-1.d0)
1136 char_mat(2,4)=(0.d0, 1.d0)
1149 char_mat(1,3)=(0.d0, 1.d0)
1150 char_mat(1,4)=(0.d0,-1.d0)
1153 char_mat(2,3)=(0.d0,-1.d0)
1154 char_mat(2,4)=(0.d0, 1.d0)
1189 char_mat(3,3)=(-1.0d0,0.d0)
1191 char_mat(3,5)=(-1.0d0,0.d0)
1213 char_mat(1,5)=( 0.d0,1.d0)
1214 char_mat(1,6)=( 0.d0,-1.d0)
1223 char_mat(2,5)=( 0.d0,-1.d0)
1224 char_mat(2,6)=( 0.d0, 1.d0)
1233 char_mat(3,5)=( 0.d0,1.d0)
1234 char_mat(3,6)=( 0.d0,-1.d0)
1243 char_mat(4,5)=( 0.d0,-1.d0)
1244 char_mat(4,6)=( 0.d0, 1.d0)
1273 char_mat(1,2)=(-1.d0, 0.d0)
1278 char_mat(1,7)=( 0.d0, 1.d0)
1279 char_mat(1,8)=( 0.d0,-1.d0)
1290 char_mat(2,2)=(-1.d0, 0.d0)
1295 char_mat(2,7)=( 0.d0,-1.d0)
1296 char_mat(2,8)=( 0.d0, 1.d0)
1307 char_mat(3,2)=(-1.d0, 0.d0)
1312 char_mat(3,7)=( 0.d0,-1.d0)
1313 char_mat(3,8)=( 0.d0, 1.d0)
1324 char_mat(4,2)=(-1.d0, 0.d0)
1329 char_mat(4,7)=( 0.d0, 1.d0)
1330 char_mat(4,8)=( 0.d0,-1.d0)
1341 char_mat(5,2)=(-1.d0, 0.d0)
1342 char_mat(5,3)=( 0.d0, 1.d0)
1343 char_mat(5,4)=( 0.d0,-1.d0)
1344 char_mat(5,5)=(-1.d0, 0.d0)
1345 char_mat(5,7)=( 0.d0,-1.d0)
1346 char_mat(5,8)=( 0.d0, 1.d0)
1350 char_mat(5,9)=(-1.d0, 0.d0)
1351 char_mat(5,11)=( 0.d0,-1.d0)
1352 char_mat(5,12)=( 0.d0, 1.d0)
1355 char_mat(6,2)=(-1.d0, 0.d0)
1356 char_mat(6,3)=( 0.d0,-1.d0)
1357 char_mat(6,4)=( 0.d0, 1.d0)
1358 char_mat(6,5)=(-1.d0, 0.d0)
1359 char_mat(6,7)=( 0.d0, 1.d0)
1360 char_mat(6,8)=( 0.d0,-1.d0)
1364 char_mat(6,9)=(-1.d0, 0.d0)
1365 char_mat(6,11)=( 0.d0, 1.d0)
1366 char_mat(6,12)=( 0.d0,-1.d0)
1383 char_mat(1,1)=( 2.d0, 0.d0)
1384 char_mat(1,2)=(-2.d0, 0.d0)
1385 char_mat(1,3)=( 0.d0, 0.d0)
1386 char_mat(1,4)=( 0.d0, 0.d0)
1387 char_mat(1,5)=( 0.d0, 0.d0)
1402 char_mat(1,1)=( 2.d0, 0.d0)
1403 char_mat(1,2)=(-2.d0, 0.d0)
1404 char_mat(1,4)=(-1.d0, 0.d0)
1405 char_mat(1,5)=( 0.d0, 0.d0)
1406 char_mat(1,6)=( 0.d0, 0.d0)
1409 char_mat(2,2)=(-1.d0, 0.d0)
1410 char_mat(2,3)=(-1.d0, 0.d0)
1411 char_mat(2,5)=( 0.d0, 1.d0)
1412 char_mat(2,6)=( 0.d0,-1.d0)
1415 char_mat(3,2)=(-1.d0, 0.d0)
1416 char_mat(3,3)=(-1.d0, 0.d0)
1417 char_mat(3,5)=( 0.d0,-1.d0)
1418 char_mat(3,6)=( 0.d0, 1.d0)
1438 char_mat(1,1)=( 2.d0, 0.d0)
1439 char_mat(1,2)=(-2.d0, 0.d0)
1440 char_mat(1,3)=CMPLX( sqrt2, 0.d0,kind=DP)
1441 char_mat(1,4)=CMPLX(-sqrt2, 0.d0,kind=DP)
1442 char_mat(1,5)=( 0.d0, 0.d0)
1443 char_mat(1,6)=( 0.d0, 0.d0)
1444 char_mat(1,7)=( 0.d0, 0.d0)
1447 char_mat(2,1)=( 2.d0, 0.d0)
1448 char_mat(2,2)=(-2.d0, 0.d0)
1449 char_mat(2,3)=CMPLX(-sqrt2, 0.d0,kind=DP)
1450 char_mat(2,4)=CMPLX( sqrt2, 0.d0,kind=DP)
1451 char_mat(2,5)=( 0.d0, 0.d0)
1452 char_mat(2,6)=( 0.d0, 0.d0)
1453 char_mat(2,7)=( 0.d0, 0.d0)
1471 char_mat(1,1)=( 2.d0, 0.d0)
1472 char_mat(1,2)=(-2.d0, 0.d0)
1473 char_mat(1,3)=( 0.d0, 0.d0)
1474 char_mat(1,4)=( 0.d0, 0.d0)
1475 char_mat(1,5)=( 0.d0, 0.d0)
1490 char_mat(1,1)=( 2.d0, 0.d0)
1491 char_mat(1,2)=(-2.d0, 0.d0)
1492 char_mat(1,4)=(-1.d0, 0.d0)
1493 char_mat(1,5)=( 0.d0, 0.d0)
1494 char_mat(1,6)=( 0.d0, 0.d0)
1497 char_mat(2,3)=(-1.d0, 0.d0)
1498 char_mat(2,5)=( 0.d0, 1.d0)
1499 char_mat(2,6)=( 0.d0,-1.d0)
1502 char_mat(3,3)=(-1.d0, 0.d0)
1503 char_mat(3,5)=( 0.d0,-1.d0)
1504 char_mat(3,6)=( 0.d0, 1.d0)
1523 char_mat(1,1)=( 2.d0, 0.d0)
1524 char_mat(1,2)=(-2.d0, 0.d0)
1525 char_mat(1,3)=CMPLX( sqrt2, 0.d0,kind=DP)
1526 char_mat(1,4)=CMPLX(-sqrt2, 0.d0,kind=DP)
1527 char_mat(1,5)=( 0.d0, 0.d0)
1528 char_mat(1,6)=( 0.d0, 0.d0)
1529 char_mat(1,7)=( 0.d0, 0.d0)
1532 char_mat(2,1)=( 2.d0, 0.d0)
1533 char_mat(2,2)=(-2.d0, 0.d0)
1534 char_mat(2,3)=CMPLX(-sqrt2, 0.d0,kind=DP)
1535 char_mat(2,4)=CMPLX( sqrt2, 0.d0,kind=DP)
1536 char_mat(2,5)=( 0.d0, 0.d0)
1537 char_mat(2,6)=( 0.d0, 0.d0)
1538 char_mat(2,7)=( 0.d0, 0.d0)
1566 char_mat(1,1)=( 2.d0, 0.d0)
1567 char_mat(1,2)=(-2.d0, 0.d0)
1568 char_mat(1,3)=CMPLX( sqrt3, 0.d0,kind=DP)
1569 char_mat(1,4)=CMPLX(-sqrt3, 0.d0,kind=DP)
1570 char_mat(1,6)=(-1.d0, 0.d0)
1571 char_mat(1,7)=( 0.d0, 0.d0)
1572 char_mat(1,8)=( 0.d0, 0.d0)
1573 char_mat(1,9)=( 0.d0, 0.d0)
1576 char_mat(2,1)=( 2.d0, 0.d0)
1577 char_mat(2,2)=(-2.d0, 0.d0)
1578 char_mat(2,3)=CMPLX(-sqrt3, 0.d0,kind=DP)
1579 char_mat(2,4)=CMPLX( sqrt3, 0.d0,kind=DP)
1580 char_mat(2,6)=(-1.d0, 0.d0)
1581 char_mat(2,7)=( 0.d0, 0.d0)
1582 char_mat(2,8)=( 0.d0, 0.d0)
1583 char_mat(2,9)=( 0.d0, 0.d0)
1586 char_mat(3,1)=( 2.d0, 0.d0)
1587 char_mat(3,2)=(-2.d0, 0.d0)
1588 char_mat(3,3)=( 0.d0, 0.d0)
1589 char_mat(3,4)=( 0.d0, 0.d0)
1590 char_mat(3,5)=(-2.d0, 0.d0)
1591 char_mat(3,6)=( 2.d0, 0.d0)
1592 char_mat(3,7)=( 0.d0, 0.d0)
1593 char_mat(3,8)=( 0.d0, 0.d0)
1594 char_mat(3,9)=( 0.d0, 0.d0)
1611 char_mat(1,3)=( 0.d0, 1.d0)
1612 char_mat(1,4)=( 0.d0,-1.d0)
1613 char_mat(1,6)=(-1.d0, 0.d0)
1614 char_mat(1,7)=( 0.d0, 1.d0)
1615 char_mat(1,8)=( 0.d0,-1.d0)
1618 char_mat(2,3)=( 0.d0,-1.d0)
1619 char_mat(2,4)=( 0.d0, 1.d0)
1620 char_mat(2,6)=(-1.d0, 0.d0)
1621 char_mat(2,7)=( 0.d0,-1.d0)
1622 char_mat(2,8)=( 0.d0, 1.d0)
1625 char_mat(3,3)=( 0.d0, 1.d0)
1626 char_mat(3,4)=( 0.d0,-1.d0)
1627 char_mat(3,5)=(-1.d0, 0.d0)
1628 char_mat(3,7)=( 0.d0,-1.d0)
1629 char_mat(3,8)=( 0.d0, 1.d0)
1632 char_mat(4,3)=( 0.d0,-1.d0)
1633 char_mat(4,4)=( 0.d0, 1.d0)
1634 char_mat(4,5)=(-1.d0, 0.d0)
1635 char_mat(4,7)=( 0.d0, 1.d0)
1636 char_mat(4,8)=( 0.d0,-1.d0)
1661 char_mat(1,2)=(-1.d0, 0.d0)
1668 char_mat(1,7)=( 0.d0, 1.d0)
1669 char_mat(1,8)=( 0.d0,-1.d0)
1678 char_mat(2,2)=(-1.d0, 0.d0)
1685 char_mat(2,7)=( 0.d0,-1.d0)
1686 char_mat(2,8)=( 0.d0, 1.d0)
1695 char_mat(3,2)=(-1.d0, 0.d0)
1702 char_mat(3,7)=( 0.d0,-1.d0)
1703 char_mat(3,8)=( 0.d0, 1.d0)
1712 char_mat(4,2)=(-1.d0, 0.d0)
1719 char_mat(4,7)=( 0.d0, 1.d0)
1720 char_mat(4,8)=( 0.d0,-1.d0)
1729 char_mat(5,2)=(-1.d0, 0.d0)
1730 char_mat(5,3)=(-1.d0, 0.d0)
1735 char_mat(5,5)=(-1.d0, 0.d0)
1736 char_mat(5,6)=( 1.d0, 0.d0)
1737 char_mat(5,7)=( 0.d0,-1.d0)
1738 char_mat(5,8)=( 0.d0, 1.d0)
1739 char_mat(5,9)=( 0.d0,-1.d0)
1740 char_mat(5,10)=( 0.d0, 1.d0)
1743 char_mat(5,11)=( 0.d0, 1.d0)
1744 char_mat(5,12)=( 0.d0,-1.d0)
1747 char_mat(6,2)=(-1.d0, 0.d0)
1748 char_mat(6,3)=(-1.d0, 0.d0)
1753 char_mat(6,5)=(-1.d0, 0.d0)
1754 char_mat(6,6)=( 1.d0, 0.d0)
1755 char_mat(6,7)=( 0.d0, 1.d0)
1756 char_mat(6,8)=( 0.d0,-1.d0)
1757 char_mat(6,9)=( 0.d0, 1.d0)
1758 char_mat(6,10)=( 0.d0,-1.d0)
1761 char_mat(6,11)=( 0.d0,-1.d0)
1762 char_mat(6,12)=( 0.d0, 1.d0)
1792 char_mat(1,5)=( 0.d0, 1.d0)
1793 char_mat(1,6)=( 0.d0,-1.d0)
1796 char_mat(1,10)=(-1.d0, 0.d0)
1799 char_mat(1,13)=( 0.d0, 1.d0)
1800 char_mat(1,14)=( 0.d0,-1.d0)
1807 char_mat(2,5)=( 0.d0,-1.d0)
1808 char_mat(2,6)=( 0.d0, 1.d0)
1811 char_mat(2,10)=(-1.d0, 0.d0)
1814 char_mat(2,13)=( 0.d0,-1.d0)
1815 char_mat(2,14)=( 0.d0, 1.d0)
1822 char_mat(3,5)=( 0.d0, 1.d0)
1823 char_mat(3,6)=( 0.d0,-1.d0)
1826 char_mat(3,10)=(-1.d0, 0.d0)
1829 char_mat(3,13)=( 0.d0, 1.d0)
1830 char_mat(3,14)=( 0.d0,-1.d0)
1837 char_mat(4,5)=( 0.d0,-1.d0)
1838 char_mat(4,6)=( 0.d0, 1.d0)
1841 char_mat(4,10)=(-1.d0, 0.d0)
1844 char_mat(4,13)=( 0.d0,-1.d0)
1845 char_mat(4,14)=( 0.d0, 1.d0)
1852 char_mat(5,5)=( 0.d0, 1.d0)
1853 char_mat(5,6)=( 0.d0,-1.d0)
1856 char_mat(5,9)=(-1.d0, 0.d0)
1859 char_mat(5,13)=( 0.d0,-1.d0)
1860 char_mat(5,14)=( 0.d0, 1.d0)
1867 char_mat(6,5)=( 0.d0,-1.d0)
1868 char_mat(6,6)=( 0.d0, 1.d0)
1871 char_mat(6,9)=(-1.d0, 0.d0)
1874 char_mat(6,13)=( 0.d0, 1.d0)
1875 char_mat(6,14)=( 0.d0,-1.d0)
1882 char_mat(7,5)=( 0.d0, 1.d0)
1883 char_mat(7,6)=( 0.d0,-1.d0)
1886 char_mat(7,9)=(-1.d0, 0.d0)
1889 char_mat(7,13)=( 0.d0,-1.d0)
1890 char_mat(7,14)=( 0.d0, 1.d0)
1897 char_mat(8,5)=( 0.d0,-1.d0)
1898 char_mat(8,6)=( 0.d0, 1.d0)
1901 char_mat(8,9)=(-1.d0, 0.d0)
1904 char_mat(8,13)=( 0.d0, 1.d0)
1905 char_mat(8,14)=( 0.d0,-1.d0)
1948 char_mat(1,7)=( 0.d0, 1.0d0)
1949 char_mat(1,8)=( 0.d0,-1.0d0)
1958 char_mat(1,14)=(-1.0d0, 0.d0)
1963 char_mat(1,19)=( 0.d0, 1.0d0)
1964 char_mat(1,20)=( 0.d0,-1.0d0)
1979 char_mat(2,7)=( 0.d0,-1.0d0)
1980 char_mat(2,8)=( 0.d0, 1.0d0)
1989 char_mat(2,14)=(-1.0d0, 0.d0)
1994 char_mat(2,19)=( 0.d0,-1.0d0)
1995 char_mat(2,20)=( 0.d0, 1.0d0)
2011 char_mat(3,7)=( 0.d0,-1.0d0)
2012 char_mat(3,8)=( 0.d0, 1.0d0)
2021 char_mat(3,14)=(-1.0d0, 0.d0)
2026 char_mat(3,19)=( 0.d0,-1.0d0)
2027 char_mat(3,20)=( 0.d0, 1.0d0)
2042 char_mat(4,7)=( 0.d0, 1.0d0)
2043 char_mat(4,8)=( 0.d0,-1.0d0)
2052 char_mat(4,14)=(-1.0d0, 0.d0)
2057 char_mat(4,19)=( 0.d0, 1.0d0)
2058 char_mat(4,20)=( 0.d0,-1.0d0)
2069 char_mat(5,3)=( 0.d0, 1.0d0)
2070 char_mat(5,4)=( 0.d0,-1.0d0)
2071 char_mat(5,5)=(-1.d0, 0.d0 )
2072 char_mat(5,7)=( 0.d0,-1.0d0)
2073 char_mat(5,8)=( 0.d0, 1.0d0)
2077 char_mat(5,9)=(-1.d0, 0.d0 )
2078 char_mat(5,11)=( 0.d0,-1.0d0)
2079 char_mat(5,12)=( 0.d0, 1.0d0)
2080 char_mat(5,14)=(-1.0d0, 0.d0)
2081 char_mat(5,15)=( 0.d0, 1.0d0)
2082 char_mat(5,16)=( 0.d0,-1.0d0)
2083 char_mat(5,17)=(-1.0d0, 0.d0)
2084 char_mat(5,19)=( 0.d0,-1.0d0)
2085 char_mat(5,20)=( 0.d0, 1.0d0)
2089 char_mat(5,21)=(-1.0d0, 0.d0)
2090 char_mat(5,23)=( 0.d0,-1.0d0)
2091 char_mat(5,24)=( 0.d0, 1.0d0)
2094 char_mat(6,3)=( 0.d0,-1.0d0)
2095 char_mat(6,4)=( 0.d0, 1.0d0)
2096 char_mat(6,5)=(-1.d0, 0.d0 )
2097 char_mat(6,7)=( 0.d0, 1.0d0)
2098 char_mat(6,8)=( 0.d0,-1.0d0)
2102 char_mat(6,9)=(-1.d0, 0.d0 )
2103 char_mat(6,11)=( 0.d0, 1.0d0)
2104 char_mat(6,12)=( 0.d0,-1.0d0)
2105 char_mat(6,14)=(-1.0d0, 0.d0)
2106 char_mat(6,15)=( 0.d0,-1.0d0)
2107 char_mat(6,16)=( 0.d0, 1.0d0)
2108 char_mat(6,17)=(-1.0d0, 0.d0)
2109 char_mat(6,19)=( 0.d0, 1.0d0)
2110 char_mat(6,20)=( 0.d0,-1.0d0)
2114 char_mat(6,21)=(-1.0d0, 0.d0)
2115 char_mat(6,23)=( 0.d0, 1.0d0)
2116 char_mat(6,24)=( 0.d0,-1.0d0)
2124 char_mat(7,7)=( 0.d0, 1.0d0)
2125 char_mat(7,8)=( 0.d0,-1.0d0)
2134 char_mat(7,13)=(-1.0d0, 0.d0)
2139 char_mat(7,19)=( 0.d0,-1.0d0)
2140 char_mat(7,20)=( 0.d0, 1.0d0)
2155 char_mat(8,7)=( 0.d0,-1.0d0)
2156 char_mat(8,8)=( 0.d0, 1.0d0)
2165 char_mat(8,13)=(-1.0d0, 0.d0)
2170 char_mat(8,19)=( 0.d0, 1.0d0)
2171 char_mat(8,20)=( 0.d0,-1.0d0)
2187 char_mat(9,7)=( 0.d0,-1.0d0)
2188 char_mat(9,8)=( 0.d0, 1.0d0)
2197 char_mat(9,13)=(-1.0d0, 0.d0)
2202 char_mat(9,19)=( 0.d0, 1.0d0)
2203 char_mat(9,20)=( 0.d0,-1.0d0)
2218 char_mat(10,7)=( 0.d0, 1.0d0)
2219 char_mat(10,8)=( 0.d0,-1.0d0)
2228 char_mat(10,13)=(-1.0d0, 0.d0)
2233 char_mat(10,19)=( 0.d0,-1.0d0)
2234 char_mat(10,20)=( 0.d0, 1.0d0)
2245 char_mat(11,3)=( 0.d0, 1.0d0)
2246 char_mat(11,4)=( 0.d0,-1.0d0)
2247 char_mat(11,5)=(-1.d0, 0.d0 )
2248 char_mat(11,7)=( 0.d0,-1.0d0)
2249 char_mat(11,8)=( 0.d0, 1.0d0)
2253 char_mat(11,9)=(-1.d0, 0.d0 )
2254 char_mat(11,11)=( 0.d0,-1.0d0)
2255 char_mat(11,12)=( 0.d0, 1.0d0)
2256 char_mat(11,13)=(-1.0d0, 0.d0)
2257 char_mat(11,15)=( 0.d0,-1.0d0)
2258 char_mat(11,16)=( 0.d0, 1.0d0)
2259 char_mat(11,18)=(-1.0d0, 0.d0)
2260 char_mat(11,19)=( 0.d0, 1.0d0)
2261 char_mat(11,20)=( 0.d0,-1.0d0)
2265 char_mat(11,22)=(-1.0d0, 0.d0)
2266 char_mat(11,23)=( 0.d0, 1.0d0)
2267 char_mat(11,24)=( 0.d0,-1.0d0)
2270 char_mat(12,3) =( 0.d0,-1.0d0)
2271 char_mat(12,4) =( 0.d0, 1.0d0)
2272 char_mat(12,5) =(-1.d0, 0.d0 )
2273 char_mat(12,7) =( 0.d0, 1.0d0)
2274 char_mat(12,8) =( 0.d0,-1.0d0)
2278 char_mat(12,9)=(-1.d0, 0.d0 )
2279 char_mat(12,11)=( 0.d0, 1.0d0)
2280 char_mat(12,12)=( 0.d0,-1.0d0)
2281 char_mat(12,13)=(-1.0d0, 0.d0)
2282 char_mat(12,15)=( 0.d0, 1.0d0)
2283 char_mat(12,16)=( 0.d0,-1.0d0)
2284 char_mat(12,18)=(-1.0d0, 0.d0)
2285 char_mat(12,19)=( 0.d0,-1.0d0)
2286 char_mat(12,20)=( 0.d0, 1.0d0)
2290 char_mat(12,22)=(-1.0d0, 0.d0)
2291 char_mat(12,23)=( 0.d0,-1.0d0)
2292 char_mat(12,24)=( 0.d0, 1.0d0)
2319 char_mat(1,1)=( 2.d0, 0.d0)
2320 char_mat(1,2)=(-2.d0, 0.d0)
2321 char_mat(1,3)=( 0.d0, 0.d0)
2322 char_mat(1,4)=( 0.d0, 0.d0)
2323 char_mat(1,5)=( 0.d0, 0.d0)
2324 char_mat(1,6)=( 2.d0, 0.d0)
2325 char_mat(1,7)=(-2.d0, 0.d0)
2326 char_mat(1,8)=( 0.d0, 0.d0)
2327 char_mat(1,9)=( 0.d0, 0.d0)
2328 char_mat(1,10)=( 0.d0, 0.d0)
2331 char_mat(2,1)=( 2.d0, 0.d0)
2332 char_mat(2,2)=(-2.d0, 0.d0)
2333 char_mat(2,3)=( 0.d0, 0.d0)
2334 char_mat(2,4)=( 0.d0, 0.d0)
2335 char_mat(2,5)=( 0.d0, 0.d0)
2336 char_mat(2,6)=(-2.d0, 0.d0)
2337 char_mat(2,7)=( 2.d0, 0.d0)
2338 char_mat(2,8)=( 0.d0, 0.d0)
2339 char_mat(2,9)=( 0.d0, 0.d0)
2340 char_mat(2,10)=( 0.d0, 0.d0)
2361 char_mat(1,1)=( 2.d0, 0.d0)
2362 char_mat(1,2)=(-2.d0, 0.d0)
2363 char_mat(1,4)=(-1.d0, 0.d0)
2364 char_mat(1,5)=( 0.d0, 0.d0)
2365 char_mat(1,6)=( 0.d0, 0.d0)
2366 char_mat(1,7)=CMPLX( sqrt3, 0.d0,kind=DP)
2367 char_mat(1,8)=CMPLX(-sqrt3, 0.d0,kind=DP)
2368 char_mat(1,9)=( 0.d0, 0.d0)
2371 char_mat(2,1)=( 2.d0, 0.d0)
2372 char_mat(2,2)=(-2.d0, 0.d0)
2373 char_mat(2,4)=(-1.d0, 0.d0)
2374 char_mat(2,5)=( 0.d0, 0.d0)
2375 char_mat(2,6)=( 0.d0, 0.d0)
2376 char_mat(2,7)=CMPLX(-sqrt3, 0.d0,kind=DP)
2377 char_mat(2,8)=CMPLX( sqrt3, 0.d0,kind=DP)
2378 char_mat(2,9)=( 0.d0, 0.d0)
2381 char_mat(3,1)=( 2.d0, 0.d0)
2382 char_mat(3,2)=(-2.d0, 0.d0)
2383 char_mat(3,3)=(-2.d0, 0.d0)
2384 char_mat(3,4)=( 2.d0, 0.d0)
2385 char_mat(3,5)=( 0.d0, 0.d0)
2386 char_mat(3,6)=( 0.d0, 0.d0)
2387 char_mat(3,7)=( 0.d0, 0.d0)
2388 char_mat(3,8)=( 0.d0, 0.d0)
2389 char_mat(3,9)=( 0.d0, 0.d0)
2418 char_mat(1,1)=( 2.d0, 0.d0)
2419 char_mat(1,2)=(-2.d0, 0.d0)
2420 char_mat(1,3)=CMPLX( sqrt2, 0.d0,kind=DP)
2421 char_mat(1,4)=CMPLX(-sqrt2, 0.d0,kind=DP)
2422 char_mat(1,5)=( 0.d0, 0.d0)
2423 char_mat(1,6)=( 0.d0, 0.d0)
2424 char_mat(1,7)=( 0.d0, 0.d0)
2425 char_mat(1,8)=( 2.d0, 0.d0)
2426 char_mat(1,9)=(-2.d0, 0.d0)
2427 char_mat(1,10)=CMPLX( sqrt2, 0.d0,kind=DP)
2428 char_mat(1,11)=CMPLX(-sqrt2, 0.d0,kind=DP)
2429 char_mat(1,12)=( 0.d0, 0.d0)
2430 char_mat(1,13)=( 0.d0, 0.d0)
2431 char_mat(1,14)=( 0.d0, 0.d0)
2434 char_mat(2,1)=( 2.d0, 0.d0)
2435 char_mat(2,2)=(-2.d0, 0.d0)
2436 char_mat(2,3)=CMPLX(-sqrt2, 0.d0,kind=DP)
2437 char_mat(2,4)=CMPLX( sqrt2, 0.d0,kind=DP)
2438 char_mat(2,5)=( 0.d0, 0.d0)
2439 char_mat(2,6)=( 0.d0, 0.d0)
2440 char_mat(2,7)=( 0.d0, 0.d0)
2441 char_mat(2,8)=( 2.d0, 0.d0)
2442 char_mat(2,9)=(-2.d0, 0.d0)
2443 char_mat(2,10)=CMPLX(-sqrt2, 0.d0,kind=DP)
2444 char_mat(2,11)=CMPLX( sqrt2, 0.d0,kind=DP)
2445 char_mat(2,12)=( 0.d0, 0.d0)
2446 char_mat(2,13)=( 0.d0, 0.d0)
2447 char_mat(2,14)=( 0.d0, 0.d0)
2450 char_mat(3,1)=( 2.d0, 0.d0)
2451 char_mat(3,2)=(-2.d0, 0.d0)
2452 char_mat(3,3)=CMPLX( sqrt2, 0.d0,kind=DP)
2453 char_mat(3,4)=CMPLX(-sqrt2, 0.d0,kind=DP)
2454 char_mat(3,5)=( 0.d0, 0.d0)
2455 char_mat(3,6)=( 0.d0, 0.d0)
2456 char_mat(3,7)=( 0.d0, 0.d0)
2457 char_mat(3,8)=(-2.d0, 0.d0)
2458 char_mat(3,9)=( 2.d0, 0.d0)
2459 char_mat(3,10)=CMPLX(-sqrt2, 0.d0,kind=DP)
2460 char_mat(3,11)=CMPLX( sqrt2, 0.d0,kind=DP)
2461 char_mat(3,12)=( 0.d0, 0.d0)
2462 char_mat(3,13)=( 0.d0, 0.d0)
2463 char_mat(3,14)=( 0.d0, 0.d0)
2466 char_mat(4,1)=( 2.d0, 0.d0)
2467 char_mat(4,2)=(-2.d0, 0.d0)
2468 char_mat(4,3)=CMPLX(-sqrt2, 0.d0,kind=DP)
2469 char_mat(4,4)=CMPLX( sqrt2, 0.d0,kind=DP)
2470 char_mat(4,5)=( 0.d0, 0.d0)
2471 char_mat(4,6)=( 0.d0, 0.d0)
2472 char_mat(4,7)=( 0.d0, 0.d0)
2473 char_mat(4,8)=(-2.d0, 0.d0)
2474 char_mat(4,9)=( 2.d0, 0.d0)
2475 char_mat(4,10)=CMPLX( sqrt2, 0.d0,kind=DP)
2476 char_mat(4,11)=CMPLX(-sqrt2, 0.d0,kind=DP)
2477 char_mat(4,12)=( 0.d0, 0.d0)
2478 char_mat(4,13)=( 0.d0, 0.d0)
2479 char_mat(4,14)=( 0.d0, 0.d0)
2512 char_mat(1,1)=( 2.d0, 0.d0)
2513 char_mat(1,2)=(-2.d0, 0.d0)
2514 char_mat(1,3)=CMPLX( sqrt3, 0.d0,kind=DP)
2515 char_mat(1,4)=CMPLX(-sqrt3, 0.d0,kind=DP)
2516 char_mat(1,5)=( 1.d0, 0.d0)
2517 char_mat(1,6)=(-1.d0, 0.d0)
2518 char_mat(1,7)=( 0.d0, 0.d0)
2519 char_mat(1,8)=( 0.d0, 0.d0)
2520 char_mat(1,9)=( 0.d0, 0.d0)
2521 char_mat(1,10)=( 2.d0, 0.d0)
2522 char_mat(1,11)=(-2.d0, 0.d0)
2523 char_mat(1,12)=CMPLX( sqrt3, 0.d0,kind=DP)
2524 char_mat(1,13)=CMPLX(-sqrt3, 0.d0,kind=DP)
2525 char_mat(1,14)=( 1.d0, 0.d0)
2526 char_mat(1,15)=(-1.d0, 0.d0)
2527 char_mat(1,16)=( 0.d0, 0.d0)
2528 char_mat(1,17)=( 0.d0, 0.d0)
2529 char_mat(1,18)=( 0.d0, 0.d0)
2532 char_mat(2,1)=( 2.d0, 0.d0)
2533 char_mat(2,2)=(-2.d0, 0.d0)
2534 char_mat(2,3)=CMPLX(-sqrt3, 0.d0,kind=DP)
2535 char_mat(2,4)=CMPLX( sqrt3, 0.d0,kind=DP)
2536 char_mat(2,5)=( 1.d0, 0.d0)
2537 char_mat(2,6)=(-1.d0, 0.d0)
2538 char_mat(2,7)=( 0.d0, 0.d0)
2539 char_mat(2,8)=( 0.d0, 0.d0)
2540 char_mat(2,9)=( 0.d0, 0.d0)
2541 char_mat(2,10)=( 2.d0, 0.d0)
2542 char_mat(2,11)=(-2.d0, 0.d0)
2543 char_mat(2,12)=CMPLX(-sqrt3, 0.d0,kind=DP)
2544 char_mat(2,13)=CMPLX( sqrt3, 0.d0,kind=DP)
2545 char_mat(2,14)=( 1.d0, 0.d0)
2546 char_mat(2,15)=(-1.d0, 0.d0)
2547 char_mat(2,16)=( 0.d0, 0.d0)
2548 char_mat(2,17)=( 0.d0, 0.d0)
2549 char_mat(2,18)=( 0.d0, 0.d0)
2552 char_mat(3,1)=( 2.d0, 0.d0)
2553 char_mat(3,2)=(-2.d0, 0.d0)
2554 char_mat(3,3)=( 0.d0, 0.d0)
2555 char_mat(3,4)=( 0.d0, 0.d0)
2556 char_mat(3,5)=(-2.d0, 0.d0)
2557 char_mat(3,6)=( 2.d0, 0.d0)
2558 char_mat(3,7)=( 0.d0, 0.d0)
2559 char_mat(3,8)=( 0.d0, 0.d0)
2560 char_mat(3,9)=( 0.d0, 0.d0)
2561 char_mat(3,10)=( 2.d0, 0.d0)
2562 char_mat(3,11)=(-2.d0, 0.d0)
2563 char_mat(3,12)=( 0.d0, 0.d0)
2564 char_mat(3,13)=( 0.d0, 0.d0)
2565 char_mat(3,14)=(-2.d0, 0.d0)
2566 char_mat(3,15)=( 2.d0, 0.d0)
2567 char_mat(3,16)=( 0.d0, 0.d0)
2568 char_mat(3,17)=( 0.d0, 0.d0)
2569 char_mat(3,18)=( 0.d0, 0.d0)
2572 char_mat(4,1)=( 2.d0, 0.d0)
2573 char_mat(4,2)=(-2.d0, 0.d0)
2574 char_mat(4,3)=CMPLX( sqrt3, 0.d0,kind=DP)
2575 char_mat(4,4)=CMPLX(-sqrt3, 0.d0,kind=DP)
2576 char_mat(4,5)=( 1.d0, 0.d0)
2577 char_mat(4,6)=(-1.d0, 0.d0)
2578 char_mat(4,7)=( 0.d0, 0.d0)
2579 char_mat(4,8)=( 0.d0, 0.d0)
2580 char_mat(4,9)=( 0.d0, 0.d0)
2581 char_mat(4,10)=(-2.d0, 0.d0)
2582 char_mat(4,11)=( 2.d0, 0.d0)
2583 char_mat(4,12)=CMPLX(-sqrt3, 0.d0,kind=DP)
2584 char_mat(4,13)=CMPLX( sqrt3, 0.d0,kind=DP)
2585 char_mat(4,14)=(-1.d0, 0.d0)
2586 char_mat(4,15)=( 1.d0, 0.d0)
2587 char_mat(4,16)=( 0.d0, 0.d0)
2588 char_mat(4,17)=( 0.d0, 0.d0)
2589 char_mat(4,18)=( 0.d0, 0.d0)
2592 char_mat(5,1)=( 2.d0, 0.d0)
2593 char_mat(5,2)=(-2.d0, 0.d0)
2594 char_mat(5,3)=CMPLX(-sqrt3, 0.d0,kind=DP)
2595 char_mat(5,4)=CMPLX( sqrt3, 0.d0,kind=DP)
2596 char_mat(5,5)=( 1.d0, 0.d0)
2597 char_mat(5,6)=(-1.d0, 0.d0)
2598 char_mat(5,7)=( 0.d0, 0.d0)
2599 char_mat(5,8)=( 0.d0, 0.d0)
2600 char_mat(5,9)=( 0.d0, 0.d0)
2601 char_mat(5,10)=(-2.d0, 0.d0)
2602 char_mat(5,11)=( 2.d0, 0.d0)
2603 char_mat(5,12)=CMPLX( sqrt3, 0.d0,kind=DP)
2604 char_mat(5,13)=CMPLX(-sqrt3, 0.d0,kind=DP)
2605 char_mat(5,14)=(-1.d0, 0.d0)
2606 char_mat(5,15)=( 1.d0, 0.d0)
2607 char_mat(5,16)=( 0.d0, 0.d0)
2608 char_mat(5,17)=( 0.d0, 0.d0)
2609 char_mat(5,18)=( 0.d0, 0.d0)
2612 char_mat(6,1)=( 2.d0, 0.d0)
2613 char_mat(6,2)=(-2.d0, 0.d0)
2614 char_mat(6,3)=( 0.d0, 0.d0)
2615 char_mat(6,4)=( 0.d0, 0.d0)
2616 char_mat(6,5)=(-2.d0, 0.d0)
2617 char_mat(6,6)=( 2.d0, 0.d0)
2618 char_mat(6,7)=( 0.d0, 0.d0)
2619 char_mat(6,8)=( 0.d0, 0.d0)
2620 char_mat(6,9)=( 0.d0, 0.d0)
2621 char_mat(6,10)=(-2.d0, 0.d0)
2622 char_mat(6,11)=( 2.d0, 0.d0)
2623 char_mat(6,12)=( 0.d0, 0.d0)
2624 char_mat(6,13)=( 0.d0, 0.d0)
2625 char_mat(6,14)=( 2.d0, 0.d0)
2626 char_mat(6,15)=(-2.d0, 0.d0)
2627 char_mat(6,16)=( 0.d0, 0.d0)
2628 char_mat(6,17)=( 0.d0, 0.d0)
2629 char_mat(6,18)=( 0.d0, 0.d0)
2648 char_mat(1,1)=( 2.d0, 0.d0)
2649 char_mat(1,2)=(-2.d0, 0.d0)
2650 char_mat(1,3)=CMPLX( sqrt2, 0.d0,kind=DP)
2651 char_mat(1,4)=CMPLX(-sqrt2, 0.d0,kind=DP)
2652 char_mat(1,5)=( 0.d0, 0.d0)
2653 char_mat(1,6)=( 0.d0, 0.d0)
2654 char_mat(1,7)=( 0.d0, 0.d0)
2657 char_mat(2,1)=( 2.d0, 0.d0)
2658 char_mat(2,2)=(-2.d0, 0.d0)
2659 char_mat(2,3)=CMPLX(-sqrt2, 0.d0,kind=DP)
2660 char_mat(2,4)=CMPLX( sqrt2, 0.d0,kind=DP)
2661 char_mat(2,5)=( 0.d0, 0.d0)
2662 char_mat(2,6)=( 0.d0, 0.d0)
2663 char_mat(2,7)=( 0.d0, 0.d0)
2684 char_mat(1,1)=( 2.d0, 0.d0)
2685 char_mat(1,2)=(-2.d0, 0.d0)
2686 char_mat(1,4)=(-1.d0, 0.d0)
2687 char_mat(1,5)=( 0.d0, 0.d0)
2688 char_mat(1,6)=( 0.d0, 0.d0)
2689 char_mat(1,7)=( 2.d0, 0.d0)
2690 char_mat(1,8)=(-2.d0, 0.d0)
2691 char_mat(1,10)=(-1.d0, 0.d0)
2692 char_mat(1,11)=( 0.d0, 0.d0)
2693 char_mat(1,12)=( 0.d0, 0.d0)
2696 char_mat(2,2)=(-1.d0, 0.d0)
2697 char_mat(2,3)=(-1.d0, 0.d0)
2698 char_mat(2,5)=( 0.d0, 1.d0)
2699 char_mat(2,6)=( 0.d0,-1.d0)
2700 char_mat(2,8)=(-1.d0, 0.d0)
2701 char_mat(2,9)=(-1.d0, 0.d0)
2702 char_mat(2,11)=( 0.d0, 1.d0)
2703 char_mat(2,12)=( 0.d0,-1.d0)
2706 char_mat(3,2)=(-1.d0, 0.d0)
2707 char_mat(3,3)=(-1.d0, 0.d0)
2708 char_mat(3,5)=( 0.d0,-1.d0)
2709 char_mat(3,6)=( 0.d0, 1.d0)
2710 char_mat(3,8)=(-1.d0, 0.d0)
2711 char_mat(3,9)=(-1.d0, 0.d0)
2712 char_mat(3,11)=( 0.d0,-1.d0)
2713 char_mat(3,12)=( 0.d0, 1.d0)
2716 char_mat(4,1)=( 2.d0, 0.d0)
2717 char_mat(4,2)=(-2.d0, 0.d0)
2718 char_mat(4,4)=(-1.d0, 0.d0)
2719 char_mat(4,5)=( 0.d0, 0.d0)
2720 char_mat(4,6)=( 0.d0, 0.d0)
2721 char_mat(4,7)=(-2.d0, 0.d0)
2722 char_mat(4,8)=( 2.d0, 0.d0)
2723 char_mat(4,9)=(-1.d0, 0.d0)
2724 char_mat(4,11)=( 0.d0, 0.d0)
2725 char_mat(4,12)=( 0.d0, 0.d0)
2728 char_mat(5,2)=(-1.d0, 0.d0)
2729 char_mat(5,3)=(-1.d0, 0.d0)
2730 char_mat(5,5)=( 0.d0, 1.d0)
2731 char_mat(5,6)=( 0.d0,-1.d0)
2732 char_mat(5,7)=(-1.d0, 0.d0)
2733 char_mat(5,10)=(-1.d0, 0.d0)
2734 char_mat(5,11)=( 0.d0,-1.d0)
2735 char_mat(5,12)=( 0.d0, 1.d0)
2738 char_mat(6,2)=(-1.d0, 0.d0)
2739 char_mat(6,3)=(-1.d0, 0.d0)
2740 char_mat(6,5)=( 0.d0,-1.d0)
2741 char_mat(6,6)=( 0.d0, 1.d0)
2742 char_mat(6,7)=(-1.d0, 0.d0)
2743 char_mat(6,10)=(-1.d0, 0.d0)
2744 char_mat(6,11)=( 0.d0, 1.d0)
2745 char_mat(6,12)=( 0.d0,-1.d0)
2771 char_mat(1,5)=( 0.d0, 1.d0)
2772 char_mat(1,6)=( 0.d0,-1.d0)
2781 char_mat(2,5)=( 0.d0,-1.d0)
2782 char_mat(2,6)=( 0.d0, 1.d0)
2791 char_mat(3,5)=( 0.d0, 1.d0)
2792 char_mat(3,6)=( 0.d0,-1.d0)
2801 char_mat(4,5)=( 0.d0,-1.d0)
2802 char_mat(4,6)=( 0.d0, 1.d0)
2839 char_mat(1,8)=(-1.0d0, 0.d0 )
2856 char_mat(2,8)=(-1.0d0, 0.d0 )
2865 char_mat(3,3)=(-1.0d0, 0.d0 )
2867 char_mat(3,5)=(-1.0d0, 0.d0 )
2868 char_mat(3,8)=(-1.0d0, 0.d0 )
2869 char_mat(3,9)=(-1.0d0, 0.d0 )
2871 char_mat(3,11)=(-1.0d0, 0.d0 )
2880 char_mat(4,7)=(-1.0d0, 0.d0 )
2895 char_mat(5,7)=(-1.0d0, 0.d0 )
2904 char_mat(6,3)=(-1.0d0, 0.d0 )
2906 char_mat(6,5)=(-1.0d0, 0.d0 )
2907 char_mat(6,7)=(-1.0d0, 0.d0 )
2908 char_mat(6,10)=(-1.0d0, 0.d0 )
2910 char_mat(6,12)=(-1.0d0, 0.d0 )
2934 char_mat(1,1)=( 2.d0, 0.d0)
2935 char_mat(1,2)=(-2.d0, 0.d0)
2936 char_mat(1,3)=( 0.d0, 0.d0)
2937 char_mat(1,5)=(-1.d0, 0.d0)
2938 char_mat(1,7)=(-1.d0, 0.d0)
2941 char_mat(2,1)=( 2.d0, 0.d0)
2942 char_mat(2,2)=(-2.d0, 0.d0)
2943 char_mat(2,3)=( 0.d0, 0.d0)
2954 char_mat(3,1)=( 2.d0, 0.d0)
2955 char_mat(3,2)=(-2.d0, 0.d0)
2956 char_mat(3,3)=( 0.d0, 0.d0)
2993 char_mat(1,1)=( 2.d0, 0.d0)
2994 char_mat(1,2)=(-2.d0, 0.d0)
2995 char_mat(1,3)=( 0.d0, 0.d0)
2996 char_mat(1,5)=(-1.d0, 0.d0)
2997 char_mat(1,7)=(-1.d0, 0.d0)
2998 char_mat(1,8)=( 2.d0, 0.d0)
2999 char_mat(1,9)=(-2.d0, 0.d0)
3000 char_mat(1,10)=( 0.d0, 0.d0)
3001 char_mat(1,12)=(-1.d0, 0.d0)
3002 char_mat(1,14)=(-1.d0, 0.d0)
3005 char_mat(2,1)=( 2.d0, 0.d0)
3006 char_mat(2,2)=(-2.d0, 0.d0)
3007 char_mat(2,3)=( 0.d0, 0.d0)
3016 char_mat(2,8)=( 2.d0, 0.d0)
3017 char_mat(2,9)=(-2.d0, 0.d0)
3018 char_mat(2,10)=( 0.d0, 0.d0)
3029 char_mat(3,1)=( 2.d0, 0.d0)
3030 char_mat(3,2)=(-2.d0, 0.d0)
3031 char_mat(3,3)=( 0.d0, 0.d0)
3040 char_mat(3,8)=( 2.d0, 0.d0)
3041 char_mat(3,9)=(-2.d0, 0.d0)
3042 char_mat(3,10)=( 0.d0, 0.d0)
3053 char_mat(4,1)=( 2.d0, 0.d0)
3054 char_mat(4,2)=(-2.d0, 0.d0)
3055 char_mat(4,3)=( 0.d0, 0.d0)
3056 char_mat(4,5)=(-1.d0, 0.d0)
3057 char_mat(4,7)=(-1.d0, 0.d0)
3058 char_mat(4,8)=(-2.d0, 0.d0)
3059 char_mat(4,9)=( 2.d0, 0.d0)
3060 char_mat(4,10)=( 0.d0, 0.d0)
3061 char_mat(4,11)=(-1.d0, 0.d0)
3062 char_mat(4,13)=(-1.d0, 0.d0)
3066 char_mat(5,1)=( 2.d0, 0.d0)
3067 char_mat(5,2)=(-2.d0, 0.d0)
3068 char_mat(5,3)=( 0.d0, 0.d0)
3077 char_mat(5,8)=(-2.d0, 0.d0)
3078 char_mat(5,9)=( 2.d0, 0.d0)
3079 char_mat(5,10)=( 0.d0, 0.d0)
3090 char_mat(6,1)=( 2.d0, 0.d0)
3091 char_mat(6,2)=(-2.d0, 0.d0)
3092 char_mat(6,3)=( 0.d0, 0.d0)
3101 char_mat(6,8)=(-2.d0, 0.d0)
3102 char_mat(6,9)=( 2.d0, 0.d0)
3103 char_mat(6,10)=( 0.d0, 0.d0)
3130 char_mat(1,1)=( 2.d0, 0.d0)
3131 char_mat(1,2)=(-2.d0, 0.d0)
3132 char_mat(1,4)=(-1.d0, 0.d0)
3133 char_mat(1,5)=( 0.d0, 0.d0)
3134 char_mat(1,6)=CMPLX( sqrt2, 0.d0,kind=DP)
3135 char_mat(1,7)=CMPLX(-sqrt2, 0.d0,kind=DP)
3136 char_mat(1,8)=( 0.d0, 0.d0)
3139 char_mat(2,1)=( 2.d0, 0.d0)
3140 char_mat(2,2)=(-2.d0, 0.d0)
3141 char_mat(2,4)=(-1.d0, 0.d0)
3142 char_mat(2,5)=( 0.d0, 0.d0)
3143 char_mat(2,6)=CMPLX(-sqrt2, 0.d0,kind=DP)
3144 char_mat(2,7)=CMPLX( sqrt2, 0.d0,kind=DP)
3145 char_mat(2,8)=( 0.d0, 0.d0)
3148 char_mat(3,1)=( 4.d0, 0.d0)
3149 char_mat(3,2)=(-4.d0, 0.d0)
3150 char_mat(3,3)=(-1.d0, 0.d0)
3151 char_mat(3,5)=( 0.d0, 0.d0)
3152 char_mat(3,6)=( 0.d0, 0.d0)
3153 char_mat(3,7)=( 0.d0, 0.d0)
3154 char_mat(3,8)=( 0.d0, 0.d0)
3174 char_mat(1,1)=( 2.d0, 0.d0)
3175 char_mat(1,2)=( -2.d0, 0.d0)
3176 char_mat(1,4)=( -1.d0, 0.d0)
3177 char_mat(1,5)=( 0.d0, 0.d0)
3178 char_mat(1,6)=CMPLX( sqrt2, 0.d0,kind=DP)
3179 char_mat(1,7)=CMPLX(-sqrt2, 0.d0,kind=DP)
3180 char_mat(1,8)=( 0.d0, 0.d0)
3183 char_mat(2,1)=( 2.d0, 0.d0)
3184 char_mat(2,2)=( -2.d0, 0.d0)
3185 char_mat(2,4)=( -1.d0, 0.d0)
3186 char_mat(2,5)=( 0.d0, 0.d0)
3187 char_mat(2,6)=CMPLX(-sqrt2, 0.d0,kind=DP)
3188 char_mat(2,7)=CMPLX( sqrt2, 0.d0,kind=DP)
3189 char_mat(2,8)=( 0.d0, 0.d0)
3192 char_mat(3,1)=( 4.d0, 0.d0)
3193 char_mat(3,2)=( -4.d0, 0.d0)
3194 char_mat(3,3)=( -1.d0, 0.d0)
3195 char_mat(3,5)=( 0.d0, 0.d0)
3196 char_mat(3,6)=( 0.d0, 0.d0)
3197 char_mat(3,7)=( 0.d0, 0.d0)
3198 char_mat(3,8)=( 0.d0, 0.d0)
3228 char_mat(1,1)=( 2.d0, 0.d0)
3229 char_mat(1,2)=(-2.d0, 0.d0)
3230 char_mat(1,4)=(-1.d0, 0.d0)
3231 char_mat(1,5)=( 0.d0, 0.d0)
3232 char_mat(1,6)=CMPLX( sqrt2, 0.d0,kind=DP)
3233 char_mat(1,7)=CMPLX(-sqrt2, 0.d0,kind=DP)
3234 char_mat(1,8)=( 0.d0, 0.d0)
3235 char_mat(1,9)=( 2.d0, 0.d0)
3236 char_mat(1,10)=(-2.d0, 0.d0)
3237 char_mat(1,12)=(-1.d0, 0.d0)
3238 char_mat(1,13)=( 0.d0, 0.d0)
3239 char_mat(1,14)=CMPLX( sqrt2, 0.d0,kind=DP)
3240 char_mat(1,15)=CMPLX(-sqrt2, 0.d0,kind=DP)
3241 char_mat(1,16)=( 0.d0, 0.d0)
3244 char_mat(2,1)=( 2.d0, 0.d0)
3245 char_mat(2,2)=(-2.d0, 0.d0)
3246 char_mat(2,4)=(-1.d0, 0.d0)
3247 char_mat(2,5)=( 0.d0, 0.d0)
3248 char_mat(2,6)=CMPLX(-sqrt2, 0.d0,kind=DP)
3249 char_mat(2,7)=CMPLX( sqrt2, 0.d0,kind=DP)
3250 char_mat(2,8)=( 0.d0, 0.d0)
3251 char_mat(2,9)=( 2.d0, 0.d0)
3252 char_mat(2,10)=(-2.d0, 0.d0)
3253 char_mat(2,12)=(-1.d0, 0.d0)
3254 char_mat(2,13)=( 0.d0, 0.d0)
3255 char_mat(2,14)=CMPLX(-sqrt2, 0.d0,kind=DP)
3256 char_mat(2,15)=CMPLX( sqrt2, 0.d0,kind=DP)
3257 char_mat(2,16)=( 0.d0, 0.d0)
3260 char_mat(3,1)=( 4.d0, 0.d0)
3261 char_mat(3,2)=(-4.d0, 0.d0)
3262 char_mat(3,3)=(-1.d0, 0.d0)
3263 char_mat(3,5)=( 0.d0, 0.d0)
3264 char_mat(3,6)=( 0.d0, 0.d0)
3265 char_mat(3,7)=( 0.d0, 0.d0)
3266 char_mat(3,8)=( 0.d0, 0.d0)
3267 char_mat(3,9)=( 4.d0, 0.d0)
3268 char_mat(3,10)=(-4.d0, 0.d0)
3269 char_mat(3,11)=(-1.d0, 0.d0)
3270 char_mat(3,13)=( 0.d0, 0.d0)
3271 char_mat(3,14)=( 0.d0, 0.d0)
3272 char_mat(3,15)=( 0.d0, 0.d0)
3273 char_mat(3,16)=( 0.d0, 0.d0)
3276 char_mat(4,1)=( 2.d0, 0.d0)
3277 char_mat(4,2)=(-2.d0, 0.d0)
3278 char_mat(4,4)=(-1.d0, 0.d0)
3279 char_mat(4,5)=( 0.d0, 0.d0)
3280 char_mat(4,6)=CMPLX(sqrt2, 0.d0,kind=DP)
3281 char_mat(4,7)=CMPLX(-sqrt2, 0.d0,kind=DP)
3282 char_mat(4,8)=( 0.d0, 0.d0)
3283 char_mat(4,9)=(-2.d0, 0.d0)
3284 char_mat(4,10)=( 2.d0, 0.d0)
3285 char_mat(4,11)=(-1.d0, 0.d0)
3286 char_mat(4,13)=( 0.d0, 0.d0)
3287 char_mat(4,14)=CMPLX(-sqrt2, 0.d0,kind=DP)
3288 char_mat(4,15)=CMPLX( sqrt2, 0.d0,kind=DP)
3289 char_mat(4,16)=( 0.d0, 0.d0)
3292 char_mat(5,1)=( 2.d0, 0.d0)
3293 char_mat(5,2)=(-2.d0, 0.d0)
3294 char_mat(5,4)=(-1.d0, 0.d0)
3295 char_mat(5,5)=( 0.d0, 0.d0)
3296 char_mat(5,6)=CMPLX(-sqrt2, 0.d0,kind=DP)
3297 char_mat(5,7)=CMPLX( sqrt2, 0.d0,kind=DP)
3298 char_mat(5,8)=( 0.d0, 0.d0)
3299 char_mat(5,9)=(-2.d0, 0.d0)
3300 char_mat(5,10)=( 2.d0, 0.d0)
3301 char_mat(5,11)=(-1.d0, 0.d0)
3302 char_mat(5,13)=( 0.d0, 0.d0)
3303 char_mat(5,14)=CMPLX( sqrt2, 0.d0,kind=DP)
3304 char_mat(5,15)=CMPLX(-sqrt2, 0.d0,kind=DP)
3305 char_mat(5,16)=( 0.d0, 0.d0)
3309 char_mat(6,1)=( 4.d0, 0.d0)
3310 char_mat(6,2)=(-4.d0, 0.d0)
3311 char_mat(6,3)=(-1.d0, 0.d0)
3312 char_mat(6,5)=( 0.d0, 0.d0)
3313 char_mat(6,6)=( 0.d0, 0.d0)
3314 char_mat(6,7)=( 0.d0, 0.d0)
3315 char_mat(6,8)=( 0.d0, 0.d0)
3316 char_mat(6,9)=(-4.d0, 0.d0)
3317 char_mat(6,10)=( 4.d0, 0.d0)
3318 char_mat(6,12)=(-1.d0, 0.d0)
3319 char_mat(6,13)=( 0.d0, 0.d0)
3320 char_mat(6,14)=( 0.d0, 0.d0)
3321 char_mat(6,15)=( 0.d0, 0.d0)
3322 char_mat(6,16)=( 0.d0, 0.d0)
3558 (ABS(saux(2,2)-1.d0) < eps).AND. &
3559 (ABS(saux(3,3)-1.d0) < eps).AND. &
3564 u(1,1)=(1.d0,0.d0)
3565 u(1,2)=(0.d0,0.d0)
3566 u(2,1)=(0.d0,0.d0)
3567 u(2,2)=(1.d0,0.d0)