Lines Matching refs:d0
108 IF (ABS(angle_rot(smat(1,1,elem(1,iclass)))-120.d0)<eps) THEN
126 IF (ABS(ars-90.d0)<eps) THEN
128 ELSEIF (ABS(ars-270.d0)<eps) THEN
148 IF (ABS(ars-60.d0)<eps) THEN
150 ELSEIF (ABS(ars-120.d0)<eps) THEN
152 ELSEIF (ABS(ars-240.d0)<eps) THEN
154 ELSEIF (ABS(ars-300.d0)<eps) THEN
241 IF ((ABS(ars-60.d0)<eps).OR.(ABS(ars-300.d0)<eps) ) THEN
352 IF ((ABS(ars-60.d0)<eps).OR.(ABS(ars-300.d0)<eps)) THEN
396 IF (ABS(angle_rot(smat(1,1,elem(1,iclass)))-120.d0)<eps) THEN
404 IF (ABS(angle_rot_s(smat(1,1,elem(1,iclass)))-120.d0)<eps) THEN
421 IF (angle_rot(smat(1,1,elem(1,iclass)))-90.d0<eps) THEN
433 IF (ABS(angle_rot_s(smat(1,1,elem(1,iclass)))-90.d0)<eps) THEN
451 IF (ABS(ars-60.d0)<eps) THEN
453 ELSEIF (ABS(ars-120.d0)<eps) THEN
455 ELSEIF (ABS(ars-240.d0)<eps) THEN
457 ELSEIF (ABS(ars-300.d0)<eps) THEN
468 IF (ABS(ars-60.d0)<eps) THEN
470 ELSEIF (ABS(ars-120.d0)<eps) THEN
472 ELSEIF (ABS(ars-240.d0)<eps) THEN
474 ELSEIF (ABS(ars-300.d0)<eps) THEN
627 IF ((ABS(ars-60.d0)<eps).OR.(ABS(ars-300.d0)<eps)) THEN
664 IF ((ABS(ars-60.d0)<eps).OR.(ABS(ars-300.d0)<eps)) THEN
723 IF (ABS(angle_rot_s(smat(1,1,elem(1,iclass)))-90.d0)<eps) THEN
740 IF (ABS(angle_rot(smat(1,1,elem(1,iclass)))-120.d0)<eps) THEN
748 IF (ABS(angle_rot_s(smat(1,1,elem(1,iclass)))-60.d0)<eps) THEN
764 IF (ABS(ars-120.d0)<eps) THEN
766 ELSE IF (ABS(ars-240.d0)<eps) THEN
768 ELSE IF (ABS(ars-180.d0)<eps) THEN
782 IF (ABS(angle_rot(smat(1,1,elem(1,iclass)))-120.d0)<eps) THEN
792 IF (ABS(angle_rot_s(smat(1,1,elem(1,iclass)))-60.d0)<eps) THEN
983 ax=0.d0
985 IF (ABS(smat(ipol,ipol)-1.d0) < eps ) ax(ipol)=1.d0
993 a1(ipol)=SQRT(ABS(smat(ipol,ipol)+1.d0)/2.d0)
1076 angle_rot=180.d0
1119 cost=(smat(1,1)-ax(1)**2)/(1.d0-ax(1)**2)
1121 cost=(smat(2,2)-ax(2)**2)/(1.d0-ax(2)**2)
1123 cost=(smat(3,3)-ax(3)**2)/(1.d0-ax(3)**2)
1130 IF (cost < 0.d0) THEN
1131 angle_rot1=-angle_rot1+180.d0
1133 angle_rot1=360.d0+angle_rot1
1136 IF (cost < 0.d0) angle_rot1=-angle_rot1+180.d0
1205 char_mat=(1.d0,0.d0)
1232 char_mat(2,2)=(-1.d0,0.d0)
1246 char_mat(2,2)=(-1.d0,0.d0)
1260 char_mat(2,2)=(-1.d0,0.d0)
1298 char_mat(2,2)=(-1.d0,0.d0)
1299 char_mat(2,4)=(-1.d0,0.d0)
1303 char_mat(3,2)=( 0.d0,1.d0)
1304 char_mat(3,3)=(-1.d0,0.d0)
1305 char_mat(3,4)=( 0.d0,-1.d0)
1309 char_mat(4,2)=( 0.d0,-1.d0)
1310 char_mat(4,3)=(-1.d0,0.d0)
1311 char_mat(4,4)=( 0.d0,1.d0)
1329 char_mat(2,2)=(-1.d0,0.d0)
1330 char_mat(2,4)=(-1.d0,0.d0)
1331 char_mat(2,6)=(-1.d0,0.d0)
1337 char_mat(3,4)=(-1.d0,0.d0)
1345 char_mat(4,4)=(-1.d0,0.d0)
1377 char_mat(2,3)=(-1.d0,0.d0)
1378 char_mat(2,4)=(-1.d0,0.d0)
1382 char_mat(3,2)=(-1.d0,0.d0)
1383 char_mat(3,4)=(-1.d0,0.d0)
1387 char_mat(4,2)=(-1.d0,0.d0)
1388 char_mat(4,3)=(-1.d0,0.d0)
1403 char_mat(2,3)=(-1.d0,0.d0)
1407 char_mat(3,1)=( 2.d0,0.d0)
1408 char_mat(3,2)=(-1.d0,0.d0)
1409 char_mat(3,3)=( 0.d0,0.d0)
1426 char_mat(2,4)=(-1.d0,0.d0)
1427 char_mat(2,5)=(-1.d0,0.d0)
1431 char_mat(3,2)=(-1.d0,0.d0)
1432 char_mat(3,5)=(-1.d0,0.d0)
1436 char_mat(4,2)=(-1.d0,0.d0)
1437 char_mat(4,4)=(-1.d0,0.d0)
1441 char_mat(5,1)=( 2.d0,0.d0)
1442 char_mat(5,2)=( 0.d0,0.d0)
1443 char_mat(5,3)=(-2.d0,0.d0)
1444 char_mat(5,4)=( 0.d0,0.d0)
1445 char_mat(5,5)=( 0.d0,0.d0)
1463 char_mat(2,5)=(-1.d0,0.d0)
1464 char_mat(2,6)=(-1.d0,0.d0)
1467 char_mat(3,2)=(-1.d0,0.d0)
1468 char_mat(3,4)=(-1.d0,0.d0)
1469 char_mat(3,6)=(-1.d0,0.d0)
1472 char_mat(4,2)=(-1.d0,0.d0)
1473 char_mat(4,4)=(-1.d0,0.d0)
1474 char_mat(4,5)=(-1.d0,0.d0)
1478 char_mat(5,1)=( 2.d0,0.d0)
1479 char_mat(5,3)=(-1.d0,0.d0)
1480 char_mat(5,4)=(-2.d0,0.d0)
1481 char_mat(5,5)=( 0.d0,0.d0)
1482 char_mat(5,6)=( 0.d0,0.d0)
1486 char_mat(6,1)=( 2.d0,0.d0)
1487 char_mat(6,2)=(-1.d0,0.d0)
1488 char_mat(6,3)=(-1.d0,0.d0)
1489 char_mat(6,4)=( 2.d0,0.d0)
1490 char_mat(6,5)=( 0.d0,0.d0)
1491 char_mat(6,6)=( 0.d0,0.d0)
1507 char_mat(2,3)=(-1.d0,0.d0)
1508 char_mat(2,4)=(-1.d0,0.d0)
1512 char_mat(3,2)=(-1.d0,0.d0)
1513 char_mat(3,4)=(-1.d0,0.d0)
1517 char_mat(4,2)=(-1.d0,0.d0)
1518 char_mat(4,3)=(-1.d0,0.d0)
1532 char_mat(2,3)=(-1.d0,0.d0)
1536 char_mat(3,1)=( 2.d0,0.d0)
1537 char_mat(3,2)=(-1.d0,0.d0)
1538 char_mat(3,3)=( 0.d0,0.d0)
1554 char_mat(2,4)=(-1.d0,0.d0)
1555 char_mat(2,5)=(-1.d0,0.d0)
1559 char_mat(3,2)=(-1.d0,0.d0)
1560 char_mat(3,5)=(-1.d0,0.d0)
1564 char_mat(4,2)=(-1.d0,0.d0)
1565 char_mat(4,4)=(-1.d0,0.d0)
1569 char_mat(5,1)=( 2.d0,0.d0)
1570 char_mat(5,2)=( 0.d0,0.d0)
1571 char_mat(5,3)=(-2.d0,0.d0)
1572 char_mat(5,4)=( 0.d0,0.d0)
1573 char_mat(5,5)=( 0.d0,0.d0)
1590 char_mat(2,5)=(-1.d0,0.d0)
1591 char_mat(2,6)=(-1.d0,0.d0)
1594 char_mat(3,2)=(-1.d0,0.d0)
1595 char_mat(3,4)=(-1.d0,0.d0)
1596 char_mat(3,6)=(-1.d0,0.d0)
1599 char_mat(4,2)=(-1.d0,0.d0)
1600 char_mat(4,4)=(-1.d0,0.d0)
1601 char_mat(4,5)=(-1.d0,0.d0)
1605 char_mat(5,1)=( 2.d0,0.d0)
1606 char_mat(5,3)=(-1.d0,0.d0)
1607 char_mat(5,4)=(-2.d0,0.d0)
1608 char_mat(5,5)=( 0.d0,0.d0)
1609 char_mat(5,6)=( 0.d0,0.d0)
1613 char_mat(6,1)=( 2.d0,0.d0)
1614 char_mat(6,2)=(-1.d0,0.d0)
1615 char_mat(6,3)=(-1.d0,0.d0)
1616 char_mat(6,4)=( 2.d0,0.d0)
1617 char_mat(6,5)=( 0.d0,0.d0)
1618 char_mat(6,6)=( 0.d0,0.d0)
1634 char_mat(2,2)=(-1.d0,0.d0)
1635 char_mat(2,4)=(-1.d0,0.d0)
1639 char_mat(3,3)=(-1.d0,0.d0)
1640 char_mat(3,4)=(-1.d0,0.d0)
1644 char_mat(4,2)=(-1.d0,0.d0)
1645 char_mat(4,3)=(-1.d0,0.d0)
1677 char_mat(4,4)=(-1.d0,0.d0)
1678 char_mat(4,5)=(-1.d0,0.d0)
1679 char_mat(4,6)=(-1.d0,0.d0)
1685 char_mat(5,4)=(-1.d0,0.d0)
1693 char_mat(6,4)=(-1.d0,0.d0)
1716 char_mat(2,2)=(-1.d0,0.d0)
1717 char_mat(2,4)=(-1.d0,0.d0)
1718 char_mat(2,6)=(-1.d0,0.d0)
1719 char_mat(2,8)=(-1.d0,0.d0)
1723 char_mat(3,2)=( 0.d0,1.d0)
1724 char_mat(3,3)=(-1.d0,0.d0)
1725 char_mat(3,4)=( 0.d0,-1.d0)
1726 char_mat(3,6)=( 0.d0,1.d0)
1727 char_mat(3,7)=(-1.d0,0.d0)
1728 char_mat(3,8)=( 0.d0,-1.d0)
1732 char_mat(4,2)=(0.d0,-1.d0)
1733 char_mat(4,3)=(-1.d0,0.d0)
1734 char_mat(4,4)=( 0.d0,1.d0)
1735 char_mat(4,6)=( 0.d0,-1.d0)
1736 char_mat(4,7)=(-1.d0,0.d0)
1737 char_mat(4,8)=( 0.d0,1.d0)
1741 char_mat(5,5)=(-1.d0,0.d0)
1742 char_mat(5,6)=(-1.d0,0.d0)
1743 char_mat(5,7)=(-1.d0,0.d0)
1744 char_mat(5,8)=(-1.d0,0.d0)
1747 char_mat(6,2)=(-1.d0,0.d0)
1748 char_mat(6,4)=(-1.d0,0.d0)
1749 char_mat(6,5)=(-1.d0,0.d0)
1750 char_mat(6,7)=(-1.d0,0.d0)
1754 char_mat(7,2)=( 0.d0,1.d0)
1755 char_mat(7,3)=(-1.d0,0.d0)
1756 char_mat(7,4)=( 0.d0,-1.d0)
1757 char_mat(7,5)=(-1.d0, 0.d0)
1758 char_mat(7,6)=( 0.d0,-1.d0)
1759 char_mat(7,8)=( 0.d0,1.d0)
1763 char_mat(8,2)=( 0.d0,-1.d0)
1764 char_mat(8,3)=(-1.d0,0.d0)
1765 char_mat(8,4)=( 0.d0,1.d0)
1766 char_mat(8,5)=(-1.d0, 0.d0)
1767 char_mat(8,6)=( 0.d0,1.d0)
1768 char_mat(8,8)=( 0.d0,-1.d0)
1791 char_mat(2,2)=(-1.d0,0.d0)
1792 char_mat(2,4)=(-1.d0,0.d0)
1793 char_mat(2,6)=(-1.d0,0.d0)
1794 char_mat(2,8)=(-1.d0,0.d0)
1795 char_mat(2,10)=(-1.d0,0.d0)
1796 char_mat(2,12)=(-1.d0,0.d0)
1802 char_mat(3,4)=(-1.d0,0.d0)
1807 char_mat(3,10)=(-1.d0,0.d0)
1815 char_mat(4,4)=(-1.d0,0.d0)
1820 char_mat(4,10)=(-1.d0,0.d0)
1848 char_mat(7,7)=(-1.d0,0.d0)
1849 char_mat(7,8)=(-1.d0,0.d0)
1850 char_mat(7,9)=(-1.d0,0.d0)
1851 char_mat(7,10)=(-1.d0,0.d0)
1852 char_mat(7,11)=(-1.d0,0.d0)
1853 char_mat(7,12)=(-1.d0,0.d0)
1856 char_mat(8,2)=(-1.d0,0.d0)
1857 char_mat(8,4)=(-1.d0,0.d0)
1858 char_mat(8,6)=(-1.d0,0.d0)
1859 char_mat(8,7)=(-1.d0,0.d0)
1860 char_mat(8,9)=(-1.d0,0.d0)
1861 char_mat(8,11)=(-1.d0,0.d0)
1867 char_mat(9,4)=(-1.d0,0.d0)
1870 char_mat(9,7)=(-1.d0,0.d0)
1880 char_mat(10,4)=(-1.d0,0.d0)
1883 char_mat(10,7)=(-1.d0,0.d0)
1894 char_mat(11,7)=(-1.d0,0.d0)
1897 char_mat(11,10)=(-1.d0,0.d0)
1906 char_mat(12,7)=(-1.d0,0.d0)
1909 char_mat(12,10)=(-1.d0,0.d0)
1931 char_mat(2,3)=(-1.d0,0.d0)
1932 char_mat(2,4)=(-1.d0,0.d0)
1933 char_mat(2,7)=(-1.d0,0.d0)
1934 char_mat(2,8)=(-1.d0,0.d0)
1938 char_mat(3,2)=(-1.d0,0.d0)
1939 char_mat(3,4)=(-1.d0,0.d0)
1940 char_mat(3,6)=(-1.d0,0.d0)
1941 char_mat(3,8)=(-1.d0,0.d0)
1945 char_mat(4,2)=(-1.d0,0.d0)
1946 char_mat(4,3)=(-1.d0,0.d0)
1947 char_mat(4,6)=(-1.d0,0.d0)
1948 char_mat(4,7)=(-1.d0,0.d0)
1951 char_mat(5,5)=(-1.d0,0.d0)
1952 char_mat(5,6)=(-1.d0,0.d0)
1953 char_mat(5,7)=(-1.d0,0.d0)
1954 char_mat(5,8)=(-1.d0,0.d0)
1958 char_mat(6,3)=(-1.d0,0.d0)
1959 char_mat(6,4)=(-1.d0,0.d0)
1960 char_mat(6,5)=(-1.d0,0.d0)
1961 char_mat(6,6)=(-1.d0,0.d0)
1965 char_mat(7,2)=(-1.d0,0.d0)
1966 char_mat(7,4)=(-1.d0,0.d0)
1967 char_mat(7,5)=(-1.d0,0.d0)
1968 char_mat(7,7)=(-1.d0,0.d0)
1972 char_mat(8,2)=(-1.d0,0.d0)
1973 char_mat(8,3)=(-1.d0,0.d0)
1974 char_mat(8,5)=(-1.d0,0.d0)
1975 char_mat(8,8)=(-1.d0,0.d0)
1992 char_mat(2,3)=(-1.d0,0.d0)
1993 char_mat(2,6)=(-1.d0,0.d0)
1997 char_mat(3,1)=( 2.d0,0.d0)
1998 char_mat(3,2)=(-1.d0,0.d0)
1999 char_mat(3,3)=( 0.d0,0.d0)
2000 char_mat(3,4)=( 2.d0,0.d0)
2001 char_mat(3,5)=(-1.d0,0.d0)
2002 char_mat(3,6)=( 0.d0,0.d0)
2005 char_mat(4,4)=(-1.d0,0.d0)
2006 char_mat(4,5)=(-1.d0,0.d0)
2007 char_mat(4,6)=(-1.d0,0.d0)
2011 char_mat(5,3)=(-1.d0,0.d0)
2012 char_mat(5,4)=(-1.d0,0.d0)
2013 char_mat(5,5)=(-1.d0,0.d0)
2017 char_mat(6,1)=( 2.d0,0.d0)
2018 char_mat(6,2)=(-1.d0,0.d0)
2019 char_mat(6,3)=( 0.d0,0.d0)
2020 char_mat(6,4)=(-2.d0,0.d0)
2021 char_mat(6,6)=( 0.d0,0.d0)
2043 char_mat(2,4)=(-1.d0,0.d0)
2044 char_mat(2,5)=(-1.d0,0.d0)
2045 char_mat(2,9)=(-1.d0,0.d0)
2046 char_mat(2,10)=(-1.d0,0.d0)
2050 char_mat(3,2)=(-1.d0,0.d0)
2051 char_mat(3,5)=(-1.d0,0.d0)
2052 char_mat(3,7)=(-1.d0,0.d0)
2053 char_mat(3,10)=(-1.d0,0.d0)
2057 char_mat(4,2)=(-1.d0,0.d0)
2058 char_mat(4,4)=(-1.d0,0.d0)
2059 char_mat(4,7)=(-1.d0,0.d0)
2060 char_mat(4,9)=(-1.d0,0.d0)
2064 char_mat(5,1)=( 2.d0,0.d0)
2065 char_mat(5,2)=( 0.d0,0.d0)
2066 char_mat(5,3)=(-2.d0,0.d0)
2067 char_mat(5,4)=( 0.d0,0.d0)
2068 char_mat(5,5)=( 0.d0,0.d0)
2069 char_mat(5,6)=( 2.d0,0.d0)
2070 char_mat(5,7)=( 0.d0,0.d0)
2071 char_mat(5,8)=(-2.d0,0.d0)
2072 char_mat(5,9)=( 0.d0,0.d0)
2073 char_mat(5,10)=( 0.d0,0.d0)
2076 char_mat(6,6)=(-1.d0,0.d0)
2077 char_mat(6,7)=(-1.d0,0.d0)
2078 char_mat(6,8)=(-1.d0,0.d0)
2079 char_mat(6,9)=(-1.d0,0.d0)
2080 char_mat(6,10)=(-1.d0,0.d0)
2084 char_mat(7,4)=(-1.d0,0.d0)
2085 char_mat(7,5)=(-1.d0,0.d0)
2086 char_mat(7,6)=(-1.d0,0.d0)
2087 char_mat(7,7)=(-1.d0,0.d0)
2088 char_mat(7,8)=(-1.d0,0.d0)
2091 char_mat(8,2)=(-1.d0,0.d0)
2092 char_mat(8,5)=(-1.d0,0.d0)
2093 char_mat(8,6)=(-1.d0,0.d0)
2094 char_mat(8,8)=(-1.d0,0.d0)
2095 char_mat(8,9)=(-1.d0,0.d0)
2098 char_mat(9,2)=(-1.d0,0.d0)
2099 char_mat(9,4)=(-1.d0,0.d0)
2100 char_mat(9,6)=(-1.d0,0.d0)
2101 char_mat(9,8)=(-1.d0,0.d0)
2102 char_mat(9,10)=(-1.d0,0.d0)
2106 char_mat(10,1)=( 2.d0,0.d0)
2107 char_mat(10,2)=( 0.d0,0.d0)
2108 char_mat(10,3)=(-2.d0,0.d0)
2109 char_mat(10,4)=( 0.d0,0.d0)
2110 char_mat(10,5)=( 0.d0,0.d0)
2111 char_mat(10,6)=(-2.d0,0.d0)
2112 char_mat(10,7)=( 0.d0,0.d0)
2113 char_mat(10,8)=( 2.d0,0.d0)
2114 char_mat(10,9)=( 0.d0,0.d0)
2115 char_mat(10,10)=( 0.d0,0.d0)
2138 char_mat(2,5)=(-1.d0,0.d0)
2139 char_mat(2,6)=(-1.d0,0.d0)
2140 char_mat(2,11)=(-1.d0,0.d0)
2141 char_mat(2,12)=(-1.d0,0.d0)
2144 char_mat(3,2)=(-1.d0,0.d0)
2145 char_mat(3,4)=(-1.d0,0.d0)
2146 char_mat(3,6)=(-1.d0,0.d0)
2147 char_mat(3,8)=(-1.d0,0.d0)
2148 char_mat(3,10)=(-1.d0,0.d0)
2149 char_mat(3,12)=(-1.d0,0.d0)
2152 char_mat(4,2)=(-1.d0,0.d0)
2153 char_mat(4,4)=(-1.d0,0.d0)
2154 char_mat(4,5)=(-1.d0,0.d0)
2155 char_mat(4,8)=(-1.d0,0.d0)
2156 char_mat(4,10)=(-1.d0,0.d0)
2157 char_mat(4,11)=(-1.d0,0.d0)
2161 char_mat(5,1)=( 2.d0,0.d0)
2162 char_mat(5,3)=(-1.d0,0.d0)
2163 char_mat(5,4)=(-2.d0,0.d0)
2164 char_mat(5,5)=( 0.d0,0.d0)
2165 char_mat(5,6)=( 0.d0,0.d0)
2166 char_mat(5,7)=( 2.d0,0.d0)
2167 char_mat(5,9)=(-1.d0,0.d0)
2168 char_mat(5,10)=(-2.d0,0.d0)
2169 char_mat(5,11)=( 0.d0,0.d0)
2170 char_mat(5,12)=( 0.d0,0.d0)
2174 char_mat(6,1)=( 2.d0,0.d0)
2175 char_mat(6,2)=(-1.d0,0.d0)
2176 char_mat(6,3)=(-1.d0,0.d0)
2177 char_mat(6,4)=( 2.d0,0.d0)
2178 char_mat(6,5)=( 0.d0,0.d0)
2179 char_mat(6,6)=( 0.d0,0.d0)
2180 char_mat(6,7)=( 2.d0,0.d0)
2181 char_mat(6,8)=(-1.d0,0.d0)
2182 char_mat(6,9)=(-1.d0,0.d0)
2183 char_mat(6,10)=( 2.d0,0.d0)
2184 char_mat(6,11)=( 0.d0,0.d0)
2185 char_mat(6,12)=( 0.d0,0.d0)
2188 char_mat(7,7)=(-1.d0,0.d0)
2189 char_mat(7,8)=(-1.d0,0.d0)
2190 char_mat(7,9)=(-1.d0,0.d0)
2191 char_mat(7,10)=(-1.d0,0.d0)
2192 char_mat(7,11)=(-1.d0,0.d0)
2193 char_mat(7,12)=(-1.d0,0.d0)
2197 char_mat(8,5)=(-1.d0,0.d0)
2198 char_mat(8,6)=(-1.d0,0.d0)
2199 char_mat(8,7)=(-1.d0,0.d0)
2200 char_mat(8,8)=(-1.d0,0.d0)
2201 char_mat(8,9)=(-1.d0,0.d0)
2202 char_mat(8,10)=(-1.d0,0.d0)
2205 char_mat(9,2)=(-1.d0,0.d0)
2206 char_mat(9,4)=(-1.d0,0.d0)
2207 char_mat(9,6)=(-1.d0,0.d0)
2208 char_mat(9,7)=(-1.d0,0.d0)
2209 char_mat(9,9)=(-1.d0,0.d0)
2210 char_mat(9,11)=(-1.d0,0.d0)
2213 char_mat(10,2)=(-1.d0,0.d0)
2214 char_mat(10,4)=(-1.d0,0.d0)
2215 char_mat(10,5)=(-1.d0,0.d0)
2216 char_mat(10,7)=(-1.d0,0.d0)
2217 char_mat(10,9)=(-1.d0,0.d0)
2218 char_mat(10,12)=(-1.d0,0.d0)
2222 char_mat(11,1)=( 2.d0,0.d0)
2223 char_mat(11,3)=(-1.d0,0.d0)
2224 char_mat(11,4)=(-2.d0,0.d0)
2225 char_mat(11,5)=( 0.d0,0.d0)
2226 char_mat(11,6)=( 0.d0,0.d0)
2227 char_mat(11,7)=(-2.d0,0.d0)
2228 char_mat(11,8)=(-1.d0,0.d0)
2229 char_mat(11,10)=( 2.d0,0.d0)
2230 char_mat(11,11)=( 0.d0,0.d0)
2231 char_mat(11,12)=( 0.d0,0.d0)
2234 char_mat(12,1)=( 2.d0,0.d0)
2235 char_mat(12,2)=(-1.d0,0.d0)
2236 char_mat(12,3)=(-1.d0,0.d0)
2237 char_mat(12,4)=( 2.d0,0.d0)
2238 char_mat(12,5)=( 0.d0,0.d0)
2239 char_mat(12,6)=( 0.d0,0.d0)
2240 char_mat(12,7)=(-2.d0,0.d0)
2241 char_mat(12,10)=(-2.d0,0.d0)
2242 char_mat(12,11)=( 0.d0,0.d0)
2243 char_mat(12,12)=( 0.d0,0.d0)
2259 char_mat(2,4)=(-1.d0,0.d0)
2260 char_mat(2,5)=(-1.d0,0.d0)
2264 char_mat(3,2)=(-1.d0,0.d0)
2265 char_mat(3,5)=(-1.d0,0.d0)
2269 char_mat(4,2)=(-1.d0,0.d0)
2270 char_mat(4,4)=(-1.d0,0.d0)
2274 char_mat(5,1)=( 2.d0,0.d0)
2275 char_mat(5,2)=( 0.d0,0.d0)
2276 char_mat(5,3)=(-2.d0,0.d0)
2277 char_mat(5,4)=( 0.d0,0.d0)
2278 char_mat(5,5)=( 0.d0,0.d0)
2295 char_mat(2,3)=(-1.d0,0.d0)
2296 char_mat(2,6)=(-1.d0,0.d0)
2300 char_mat(3,1)=( 2.d0,0.d0)
2301 char_mat(3,2)=(-1.d0,0.d0)
2302 char_mat(3,3)=( 0.d0,0.d0)
2303 char_mat(3,4)=( 2.d0,0.d0)
2304 char_mat(3,5)=(-1.d0,0.d0)
2305 char_mat(3,6)=( 0.d0,0.d0)
2308 char_mat(4,4)=(-1.d0,0.d0)
2309 char_mat(4,5)=(-1.d0,0.d0)
2310 char_mat(4,6)=(-1.d0,0.d0)
2314 char_mat(5,3)=(-1.d0,0.d0)
2315 char_mat(5,4)=(-1.d0,0.d0)
2316 char_mat(5,5)=(-1.d0,0.d0)
2320 char_mat(6,1)=( 2.d0,0.d0)
2321 char_mat(6,2)=(-1.d0,0.d0)
2322 char_mat(6,3)=( 0.d0,0.d0)
2323 char_mat(6,4)=(-2.d0,0.d0)
2324 char_mat(6,6)=( 0.d0,0.d0)
2340 char_mat(2,2)=(-1.d0,0.d0)
2341 char_mat(2,4)=(-1.d0,0.d0)
2345 char_mat(3,2)=( 0.d0, 1.d0)
2346 char_mat(3,3)=(-1.d0,0.d0)
2347 char_mat(3,4)=( 0.d0,-1.d0)
2351 char_mat(4,2)=( 0.d0,-1.d0)
2352 char_mat(4,3)=(-1.d0,0.d0)
2353 char_mat(4,4)=( 0.d0, 1.d0)
2386 char_mat(4,4)=(-1.d0,0.d0)
2387 char_mat(4,5)=(-1.d0,0.d0)
2388 char_mat(4,6)=(-1.d0,0.d0)
2394 char_mat(5,4)=(-1.d0,0.d0)
2402 char_mat(6,4)=(-1.d0,0.d0)
2431 char_mat(4,1)=( 3.0d0,0.d0)
2432 char_mat(4,3)=( 0.0d0,0.d0)
2433 char_mat(4,4)=( 0.0d0,0.d0)
2434 char_mat(4,2)=(-1.0d0,0.d0)
2468 char_mat(4,1)=( 3.0d0,0.d0)
2469 char_mat(4,2)=(-1.0d0,0.d0)
2470 char_mat(4,3)=( 0.0d0,0.d0)
2471 char_mat(4,4)=( 0.0d0,0.d0)
2472 char_mat(4,5)=( 3.0d0,0.d0)
2473 char_mat(4,6)=(-1.0d0,0.d0)
2474 char_mat(4,7)=( 0.0d0,0.d0)
2475 char_mat(4,8)=( 0.0d0,0.d0)
2478 char_mat(5,5)=(-1.0d0,0.d0)
2479 char_mat(5,6)=(-1.0d0,0.d0)
2480 char_mat(5,7)=(-1.0d0,0.d0)
2481 char_mat(5,8)=(-1.0d0,0.d0)
2486 char_mat(6,6)=(-1.0d0,0.d0)
2487 char_mat(6,5)=(-1.0d0,0.d0)
2494 char_mat(7,5)=(-1.0d0,0.d0)
2495 char_mat(7,6)=(-1.0d0,0.d0)
2501 char_mat(8,1)=( 3.0d0,0.d0)
2502 char_mat(8,2)=(-1.0d0,0.d0)
2503 char_mat(8,3)=( 0.0d0,0.d0)
2504 char_mat(8,4)=( 0.0d0,0.d0)
2505 char_mat(8,5)=(-3.0d0,0.d0)
2506 char_mat(8,7)=( 0.0d0,0.d0)
2507 char_mat(8,8)=( 0.0d0,0.d0)
2524 char_mat(2,4)=(-1.d0,0.d0)
2525 char_mat(2,5)=(-1.d0,0.d0)
2529 char_mat(3,1)=( 2.d0,0.d0)
2530 char_mat(3,2)=(-1.d0,0.d0)
2531 char_mat(3,3)=( 2.d0,0.d0)
2532 char_mat(3,4)=( 0.d0,0.d0)
2533 char_mat(3,5)=( 0.d0,0.d0)
2536 char_mat(4,1)=( 3.d0,0.d0)
2537 char_mat(4,2)=( 0.d0,0.d0)
2538 char_mat(4,3)=(-1.d0,0.d0)
2539 char_mat(4,5)=(-1.d0,0.d0)
2543 char_mat(5,1)=( 3.d0,0.d0)
2544 char_mat(5,2)=( 0.d0,0.d0)
2545 char_mat(5,3)=(-1.d0,0.d0)
2546 char_mat(5,4)=(-1.d0,0.d0)
2562 char_mat(2,4)=(-1.d0,0.d0)
2563 char_mat(2,5)=(-1.d0,0.d0)
2567 char_mat(3,1)=( 2.d0,0.d0)
2568 char_mat(3,2)=(-1.d0,0.d0)
2569 char_mat(3,3)=( 2.d0,0.d0)
2570 char_mat(3,4)=( 0.d0,0.d0)
2571 char_mat(3,5)=( 0.d0,0.d0)
2575 char_mat(4,1)=( 3.d0,0.d0)
2576 char_mat(4,2)=( 0.d0,0.d0)
2577 char_mat(4,3)=(-1.d0,0.d0)
2578 char_mat(4,5)=(-1.d0,0.d0)
2582 char_mat(5,1)=( 3.d0,0.d0)
2583 char_mat(5,2)=( 0.d0,0.d0)
2584 char_mat(5,3)=(-1.d0,0.d0)
2585 char_mat(5,4)=(-1.d0,0.d0)
2606 char_mat(2,4)=(-1.d0,0.d0)
2607 char_mat(2,5)=(-1.d0,0.d0)
2608 char_mat(2,9)=(-1.d0,0.d0)
2609 char_mat(2,10)=(-1.d0,0.d0)
2613 char_mat(3,1)=( 2.d0,0.d0)
2614 char_mat(3,2)=(-1.d0,0.d0)
2615 char_mat(3,3)=( 2.d0,0.d0)
2616 char_mat(3,4)=( 0.d0,0.d0)
2617 char_mat(3,5)=( 0.d0,0.d0)
2618 char_mat(3,6)=( 2.d0,0.d0)
2619 char_mat(3,7)=(-1.d0,0.d0)
2620 char_mat(3,8)=( 2.d0,0.d0)
2621 char_mat(3,9)=( 0.d0,0.d0)
2622 char_mat(3,10)=( 0.d0,0.d0)
2625 char_mat(4,1)=( 3.d0,0.d0)
2626 char_mat(4,2)=( 0.d0,0.d0)
2627 char_mat(4,5)=(-1.d0,0.d0)
2628 char_mat(4,3)=(-1.d0,0.d0)
2629 char_mat(4,6)=( 3.d0,0.d0)
2630 char_mat(4,7)=( 0.d0,0.d0)
2631 char_mat(4,8)=(-1.d0,0.d0)
2632 char_mat(4,10)=(-1.d0,0.d0)
2637 char_mat(5,1)=( 3.d0,0.d0)
2638 char_mat(5,2)=( 0.d0,0.d0)
2639 char_mat(5,3)=(-1.d0,0.d0)
2640 char_mat(5,4)=(-1.d0,0.d0)
2641 char_mat(5,6)=( 3.d0,0.d0)
2642 char_mat(5,7)=( 0.d0,0.d0)
2643 char_mat(5,8)=(-1.d0,0.d0)
2644 char_mat(5,9)=(-1.d0,0.d0)
2647 char_mat(6,6)=(-1.d0,0.d0)
2648 char_mat(6,7)=(-1.d0,0.d0)
2649 char_mat(6,8)=(-1.d0,0.d0)
2650 char_mat(6,9)=(-1.d0,0.d0)
2651 char_mat(6,10)=(-1.d0,0.d0)
2654 char_mat(7,4)=(-1.d0,0.d0)
2655 char_mat(7,5)=(-1.d0,0.d0)
2656 char_mat(7,6)=(-1.d0,0.d0)
2657 char_mat(7,7)=(-1.d0,0.d0)
2658 char_mat(7,8)=(-1.d0,0.d0)
2661 char_mat(8,1)=( 2.d0,0.d0)
2662 char_mat(8,2)=(-1.d0,0.d0)
2663 char_mat(8,3)=( 2.d0,0.d0)
2664 char_mat(8,4)=( 0.d0,0.d0)
2665 char_mat(8,5)=( 0.d0,0.d0)
2666 char_mat(8,6)=(-2.d0,0.d0)
2667 char_mat(8,8)=(-2.d0,0.d0)
2668 char_mat(8,9)=( 0.d0,0.d0)
2669 char_mat(8,10)=( 0.d0,0.d0)
2673 char_mat(9,1)=( 3.d0,0.d0)
2674 char_mat(9,2)=( 0.d0,0.d0)
2675 char_mat(9,3)=(-1.d0,0.d0)
2676 char_mat(9,5)=(-1.d0,0.d0)
2677 char_mat(9,6)=(-3.d0,0.d0)
2678 char_mat(9,7)=( 0.d0,0.d0)
2679 char_mat(9,9)=(-1.d0,0.d0)
2682 char_mat(10,1)=( 3.d0,0.d0)
2683 char_mat(10,2)=( 0.d0,0.d0)
2684 char_mat(10,3)=(-1.d0,0.d0)
2685 char_mat(10,4)=(-1.d0,0.d0)
2686 char_mat(10,6)=(-3.d0,0.d0)
2687 char_mat(10,7)=( 0.d0,0.d0)
2688 char_mat(10,10)=(-1.d0,0.d0)