From 0fe1a134bfd693652a2990a4dc37b4538fc691c0 Mon Sep 17 00:00:00 2001
From: Dominik Bongartz <dominik.bongartz@rwth-aachen.de>
Date: Tue, 22 Dec 2020 17:16:59 +0100
Subject: [PATCH] Remove svn files

---
 cpplapack-r198/.svn/entries                   |    1 -
 cpplapack-r198/.svn/format                    |    1 -
 ...c862da2e4a0388c9ce483dc3634364e70.svn-base |   84 -
 ...36ac0752ab9fbdf72554629b0ecf2b4dc.svn-base |   50 -
 ...14e20f83bfcc37e9885b6f33eff85d46c.svn-base |  140 -
 ...a468909a296e9e70527c68a3c81df37df.svn-base |   73 -
 ...5ce976d768b6c9ae8b64657609958e246.svn-base |   73 -
 ...76e869b8da4ec06e83d5f810789bba656.svn-base |   20 -
 ...24be52ab1d4282380feabe9d3207e12b2.svn-base |   18 -
 ...646d120ea2b44aad30a226fe91cd6bb2a.svn-base |   50 -
 ...6b3279f6fd88f910e438926abd5a9895c.svn-base | 1062 --------
 ...55071e6eb1a0e0d90f887dd14a5519909.svn-base |   36 -
 ...50f69a30df8690545764e99bb5a83451b.svn-base |   24 -
 ...34db6056df628c71d9530bc0eb9bdf3be.svn-base |   11 -
 ...67890db9285f0b6bea8f2efc6ab367dd7.svn-base |   40 -
 ...860db19f97814c9af7552d7329cce1162.svn-base |  283 --
 ...f90a5cc45b53098cc892ce00622f6a7ef.svn-base |   25 -
 ...9f3977ab3841af59b41b1a22490e29f0d.svn-base |   28 -
 ...cc4a3c561f806e36f564977164ca736d8.svn-base |  143 -
 ...c7fec620da893085573d850cbc0cbd8ca.svn-base |    7 -
 ...cdf7cc0f52bb77f9ab953fab8a9728e26.svn-base |   24 -
 ...82602124fd4b0f9fe92731e33402e7f85.svn-base |   41 -
 ...e4332aefe3551c83de06a627b389ba749.svn-base |   78 -
 ...c475d4dacbaf3cfbc1c952bee2f00deb4.svn-base |  134 -
 ...997a9292c7d9039c46ab76c3ffed2b96a.svn-base |   48 -
 ...9c5cfdf23607cc28306bb0b09706d7658.svn-base |    9 -
 ...8c4b30001e43047744bf73150bf52b34f.svn-base |   46 -
 ...47acb773190a6a2d9edb62d580607855b.svn-base |   76 -
 ...e5c96f7d5b31b57bca0bfe260590cd185.svn-base |   76 -
 ...f9512eec35e7e039e639ea85977928064.svn-base |   96 -
 ...3150b189351d2f7dfa1689ec3be4465bb.svn-base |   48 -
 ...5184e66911685554a2cbb77f5440c1545.svn-base |   71 -
 ...d014e60de0cea70b1b90c3fe2a70c8286.svn-base |   74 -
 ...97d61601aa3e13e2a92b8e93bf0ad502c.svn-base |    8 -
 ...d06bb6e976b5ca47f774b1801d4585987.svn-base |   54 -
 ...dd9bfa0fc825a1c3ac784885472bffce0.svn-base |  140 -
 ...fb2b37981867231f056bccf404c93d321.svn-base |   71 -
 ...29aedc96ff1d336422757ce0591261352.svn-base |   23 -
 ...02f8f9ee7a57313b778c9d9c76f8a0eaf.svn-base |   15 -
 ...eabb9ee309f766c756effc019cea48a6b.svn-base |  174 --
 ...bc38d98ab44bff8bcf74ef8c5e6762107.svn-base |   72 -
 ...26739cc982ac3b3a87381f54d071e1259.svn-base |   94 -
 ...a8e4fd065f95cb0362d2d92811b4e36e0.svn-base |  131 -
 ...83d3c5325385dddb0d644b3517ba21cbb.svn-base |   14 -
 ...1344b58eb98494f1c191af1e31b0e39b8.svn-base |   41 -
 ...1b25902662180170357af97343a7fd8a4.svn-base |  140 -
 ...388dd38783e0a43d09e711a37fa836adc.svn-base |   38 -
 ...ac1f19f2e936cf9780172e653f5e2e4af.svn-base |   24 -
 ...5bc005748538ab1c5c3fe27233275f767.svn-base |   77 -
 ...0046ac16199d7cc6601fba85f26aad89d.svn-base |   35 -
 ...ad786e9e9243347625f489a29283b9b24.svn-base |   14 -
 ...e0bcedbb35f4b86825568601dd2aa1b76.svn-base |  157 --
 ...7f8d1a270b255891045597ab4c91a0630.svn-base |   32 -
 ...1d27e44ae5c85435eca884f5d2644b51c.svn-base |   24 -
 ...82fc0896d3c963b7492a7c565d6df9b7a.svn-base |   74 -
 ...41ebb5ea9e5ef321f06dbbf0f519ce68b.svn-base |   95 -
 ...83176c692037609f839e94f8e0287d36d.svn-base |   77 -
 ...cb6651c39cb4884912394ad7df95cd5e0.svn-base |   49 -
 ...227b780577961060a0e3198313e87172e.svn-base |   27 -
 ...e59bc640bfd8b1bbc6c0393121d3c610d.svn-base |   37 -
 ...4b9563393ac931aaa32b1d464a503ff52.svn-base |  180 --
 ...39e51515abe6350d9a5e5c4f479f61d30.svn-base |   36 -
 ...e434aff8537a412adb3da2ae671a7201e.svn-base |   41 -
 ...9ad1d7fd5972ba84088e8fa009d4ef319.svn-base |   33 -
 ...d53071d5382c162729ac32d03c6521806.svn-base |   96 -
 ...5d517bf7c03f5fef359a554428696ebcb.svn-base |   71 -
 ...2fc08f299f525b3ea231afd1145022ea0.svn-base |   61 -
 ...18f0bfc2e60881082b719b2af94f2a350.svn-base |   71 -
 ...ce3a4b373a8f6a533d8d7e1b4788a4a2c.svn-base |   47 -
 ...88f6362b0a3db56060cefcdbf968aa622.svn-base |   36 -
 ...cd184177c303b518454a2919c1e50e71d.svn-base |   71 -
 ...732c88b000af05f311d9c6e354d33ac19.svn-base |   18 -
 ...0040ded6644e08cac7782fc6ab487d040.svn-base |   41 -
 ...e7632ef38187e7345f994a6ad3ad6d16d.svn-base |  144 -
 ...a35265ea155bf87e8768e033f5127d1f2.svn-base |   28 -
 ...9bab02f118af2ba28b27b36b78e6e9eef.svn-base |   83 -
 ...1fd65e0fa01543953cb99ba10805210ad.svn-base |  139 -
 ...096dae7bee12cf1af02a511663af11c78.svn-base |   48 -
 ...69202f5149711d827e613ca2002cfab44.svn-base |   66 -
 ...4053553221385ab55bc57d5f1bf99ae64.svn-base |   37 -
 ...49779a7a52fcd70f7b0d2838be76e4d9b.svn-base |   74 -
 ...5b2aee2986f6937f71ccc4293d871c562.svn-base |   76 -
 ...59cd20aace7e7f9912ed6e965cfa4bc60.svn-base |  247 --
 ...ca6083f8bd398e662995358e3c4899e69.svn-base |   79 -
 ...aa4c860871a243fca2002a3bd8b52ba34.svn-base |   36 -
 ...a5fc79cc1ce78da670b173deee64bd391.svn-base |  576 ----
 ...de69757c61b0e58cb47fe7e83e1736a43.svn-base |   88 -
 ...65eb4530afbe3bfbc3a489e00412580b0.svn-base |   58 -
 ...a8a959eda14e358ab178c6843723ff3ba.svn-base |    5 -
 ...6fb7be9abedba5eb8df9e3e40a21580e3.svn-base |   46 -
 ...b1be56ba0e4c98cec5e02877eef53095a.svn-base |   89 -
 ...42cca438a89b5b7f655e2697034779996.svn-base |  508 ----
 ...af1793c0968a5edc251414f62c8c3608f.svn-base |   25 -
 ...2792865b928cf8139e51866ff7f9cb21f.svn-base |  103 -
 ...b76a233506737652758a11108c876180b.svn-base |  100 -
 ...c52cac621830258d7dfcad35c1532ec1a.svn-base |  102 -
 ...15c4e131718a5bc76318b5a28c1d6c8d4.svn-base |   17 -
 ...9b208da33a8040edc7d909ad840452333.svn-base |   71 -
 ...060de3bdaf855e75cab07129c839b81ab.svn-base |   35 -
 ...4449d5b87d0c828bca8fe5c2cb94162aa.svn-base |   36 -
 ...27a1a77e84e423629ee4fb5f2cc4e2f76.svn-base |   18 -
 ...a36a28dcdb2a57b9d37a230ec7bb30b84.svn-base |   49 -
 ...efa4f5cedc9c06a7ebfff319ed1e49f4f.svn-base |   45 -
 ...21d91610cf4cd30a422ee3c4a2f6d302c.svn-base |   18 -
 ...c244f48c916503b82a8405342372bac09.svn-base |   38 -
 ...4ff33e5542f5ffbe61707fbfebe407841.svn-base |   24 -
 ...1171b6cc90b8b33d2c21163893b3c6094.svn-base |   73 -
 ...a785dd9f012c42051238b4234f0a08085.svn-base |  183 --
 ...b2e0a167c0fa26fecca0c80cb94b1e0e6.svn-base |   11 -
 ...8f1ae2ee487cdd7f0e81915e0576275a7.svn-base |   26 -
 ...2dd7343347a8b0b1b18849acb9dfe5728.svn-base |   79 -
 ...17b9405d52d9350951a31e18087af808d.svn-base |   24 -
 ...e08e6ac4a7344aade5774ccb80924ec87.svn-base |   24 -
 ...5553d38769c66194d2f4014aacf8859f1.svn-base |  323 ---
 ...f4cdbd20a8c722cbc1a98c48239ce5658.svn-base |   52 -
 ...9872ab85f8e8c3e25067f7f0c6c858e08.svn-base |   24 -
 ...991bd888f410e98c35c42b62204f099f8.svn-base |   71 -
 ...3082fd7df4407df26277a4ce22d2b0605.svn-base |   19 -
 ...99be8cf8d066d0bd3abddb88820b1a582.svn-base |   52 -
 ...3aa6af60c8b041dbea78d1f8fe64c9f86.svn-base |   27 -
 ...c84c67c2edd0c0a558a2f1c7e25e9eab0.svn-base |  543 ----
 ...812990d83aedf5a708fbad86907fd1541.svn-base |   12 -
 ...6c1b6995fc5723a65d270dd1a631beb78.svn-base |   12 -
 ...af4dfe0901aa8aee173f2b7875362156b.svn-base |   88 -
 ...837cf4ad0ffabe9ea9c987061e74f5495.svn-base |   37 -
 ...58516cf7d96ce5e858ce5139e562a4f1c.svn-base |   73 -
 ...c0d06cbc4b1393dec7f38c42fc8076f2e.svn-base |   19 -
 ...84ba72868dd47e115b37f350fc3c72ac8.svn-base |   69 -
 ...11bf1860dcbe434890264e9e0910262c8.svn-base |   52 -
 ...e236c8ba3ee5c4f25c4574dc36d1da324.svn-base |  328 ---
 ...d981b0195a84f1f0f188258e8de1eb2db.svn-base |  100 -
 ...7f7ba35b0066d191578a8333a42f1c3f0.svn-base |   81 -
 ...87691aa85fe174ec3d63ad9fb5c0852f6.svn-base |   37 -
 ...9e74aa03243d0cb86068fab3813ed8ae5.svn-base |   97 -
 ...5d5486c38799bd9d9bb622ed119f335f5.svn-base |   23 -
 ...1319869d1a511a4b712d08ba58c1521a9.svn-base |  123 -
 ...87bebf29b1f0299106f3948823181ab92.svn-base |   35 -
 ...f69597f31d35b452aed2f9731d2a1f8c1.svn-base |  425 ---
 ...211225752b491efd0e47a4442fb5a970e.svn-base |  240 --
 ...a0d1bdd7636b58ef2e6eeb114102de1dd.svn-base |   15 -
 ...95d1ead8ca1adb3e5cc04acb062c9402f.svn-base |   48 -
 ...f787d6ad3e9b92f00d44b7be77133d0c7.svn-base |   76 -
 ...94aac62d5712f342b16432be5b87cb9fc.svn-base |  140 -
 ...de9aaef4456f54ff6398127bd4c518d62.svn-base |   30 -
 ...14047d3953b0ba8c2749200be2dc43521.svn-base |   17 -
 ...246bcd8a1d836adf1c05efc5ccbc3713a.svn-base |  116 -
 ...a29f79450f06410f319488ced2868442e.svn-base |   52 -
 ...99c3bf351979822817b26c562e1940073.svn-base |   52 -
 ...65d2607b757119b9faebd2aae77c69239.svn-base |   20 -
 ...143bcf2b4d0e5cf98b9d8789c05fbd75d.svn-base |  155 --
 ...a2268d64ad3e7a891aa2acb765ad6c37e.svn-base |   77 -
 ...8917a62cdd6ff967a1027db002308db1f.svn-base |   45 -
 ...0790fe96a3025b76d795b68bbe3e3bb14.svn-base |   83 -
 ...9a33dd02e684ce284e6d306dfc7f0258b.svn-base |  567 ----
 ...e1f97b039039f7392fdd30da46e65b4f0.svn-base |   74 -
 ...0c2556ac529ffcaeff514075ab22bf678.svn-base |   38 -
 ...d1f0e802eadcfa16126f0a1cf483f3428.svn-base |   79 -
 ...08b96cd47ffeed6818bd5775f8edfc4de.svn-base |   45 -
 ...9943062d1462c9d538547de95e338040f.svn-base |   66 -
 ...f3b51aa029592b5730436682afb19c129.svn-base |  181 --
 ...4de6e402adb36d2d4722386d6c01612f1.svn-base |   48 -
 ...078c50965dcae49d4bdc152974d14fb26.svn-base |   17 -
 ...aebaaae1b665e318acc8eaa27501683f3.svn-base |   63 -
 ...22adfe03baf1e7d86d7e8e8d38dd2e657.svn-base |   93 -
 ...7e0fbbc9d729eb03d3a98e2c1af8cf267.svn-base |   24 -
 ...148a92928f972ba39024f6e7b11e07a12.svn-base |   79 -
 ...89e8a6c406636b4a6c7fff0311fc4a356.svn-base |  106 -
 ...0481e909f8978f88336d38ba5fbf88e22.svn-base |   16 -
 ...1536785485dde4b83bd42c3e24c121772.svn-base |   24 -
 ...dc03a1290d20a164207777fd1511f0fc9.svn-base |  132 -
 ...d80b4a684538b9832fe9443effad3a3ff.svn-base | 1035 --------
 ...9703cd08c09fbc0f4ac41ff7fe0e4bc4e.svn-base |   24 -
 ...4a7e7a5c2d291284c126a078de0561f92.svn-base |  101 -
 ...06d1b55f196cc71a49c95230fae40d5e3.svn-base |   34 -
 ...9ed02089ce4e517cd2160e477f01ee722.svn-base |   60 -
 ...836a5f7b1dda0f1920fb8aa1abd9de93c.svn-base |   90 -
 ...415a2ad7aad3920a35ae75dd516fc3993.svn-base |   74 -
 ...7c8b41f1255264b6291a4604e91656447.svn-base |   15 -
 ...4e73113c989f0441f64b1bda3539d2f0c.svn-base |   60 -
 ...56a888f53477d3ad37b26cdc28eab9359.svn-base |   15 -
 ...4da494edec78dae872f2e4042b3534803.svn-base |   25 -
 ...4f4eb461d9a77e39a247a1989e9989d95.svn-base |   27 -
 ...b0608eab5d94c1ed33ed2be14baccaf73.svn-base |   20 -
 ...e3b350dbf15e24d126304ceac1ea7d66b.svn-base |  225 --
 ...afdfbbab1563d0099aa3067b6bbb95bf0.svn-base |   76 -
 ...ec5fc0ab5201bac05e299f89a83f351c9.svn-base |   20 -
 ...39def74b231254e7913d242c406518837.svn-base |   13 -
 ...92d77744d97c15098616d7d6ed37c4cec.svn-base |   32 -
 ...7dc08762abf8b91c5fea8a584b3c6cefa.svn-base |   23 -
 ...7eb1d24628e0584063447fbce88d24b21.svn-base |   23 -
 ...7ed201059a29a8fd10c12ceae81a437d6.svn-base |   25 -
 ...92900a6dc1f05c041367dd6cbff18389a.svn-base |   96 -
 ...d33001c277e85e3820db55b4719fc581a.svn-base |  160 --
 ...1cc8dff18c2fda667ccde5c32fdd7871d.svn-base |   48 -
 ...2209ddaa22f39abca37d26a3234d35d08.svn-base |   72 -
 ...daf2e4ba18626408b2637f0f9816ecf4b.svn-base |  134 -
 ...29179a127d3ada13dd1844b132daac4e5.svn-base |   79 -
 ...49d0ae86835c515a77b3528e0f4007679.svn-base |    7 -
 ...ad873dcce87deb5cd867504c1379d3d90.svn-base |   66 -
 ...e00a9fb00ea8abe4bacfd6a7b458b940f.svn-base |   23 -
 ...2fec61f020a64e91f15c532853058dc9b.svn-base |  130 -
 ...014bd3d3ae945a3f7e19bbf13c59f008b.svn-base |   30 -
 ...f846f203aad8d540f8243d0406b785cbf.svn-base |   22 -
 ...0c5778256d563bb4ab9c0fbd0577023fa.svn-base |   77 -
 ...12d5ac8401e6f381375936125e0c4db19.svn-base |    8 -
 ...49ce2a9b5a7997a4c8244315d523ca67e.svn-base |  548 ----
 ...c08920baacb48ef3bfba8b17aad4bb66a.svn-base |  126 -
 ...2db1d8cacc1ed37031b8c96b9cbabd9f5.svn-base |   70 -
 ...11046a67b4b4373f7a519d2ae0c98b341.svn-base |  273 --
 ...17e73f96b3bb05faf878dbd7d92c27bcf.svn-base | 2308 -----------------
 ...c5a43e90fd32bb9331e624f3f30caae24.svn-base |   80 -
 ...912fca201c13c6938ed37544d50dc2870.svn-base |   18 -
 ...d929ed4fe4d142a7191d202f9bad83660.svn-base |   80 -
 ...f3421ec3b941b1a02477473f8a38dd937.svn-base |  160 --
 ...861ded5e86d772e39e7d4aeb1af1ba41f.svn-base |  134 -
 ...23ba3dec74418b08c6ca1262dbc6b2917.svn-base |   77 -
 ...0bb4768b3fe13c320e245befdcd5e9c7f.svn-base |   46 -
 ...fe89abc41198a534ddd97366081db1059.svn-base |   81 -
 ...1614f0ad0891f479c3b2ceef9d248e109.svn-base |   50 -
 ...84108eb8fb71ed97700adc900d766b47a.svn-base |   24 -
 ...95e65c203ff59b76bccdddd3d7fef50fa.svn-base |   70 -
 ...a75511be1f18e0f7e11cfa5b428ec4714.svn-base |   15 -
 ...ec3579c7a9465a25693aeb00804558260.svn-base |   11 -
 ...6c3bde2f03c2ea710c0d453397575d036.svn-base |   32 -
 ...a2062cde38a17782495e8ae80999b084c.svn-base |   72 -
 ...cb1b3ec095ef8b25284e53eb987d9a0d4.svn-base |   69 -
 ...c8588258822ff402edce2e4922bee1f02.svn-base |   26 -
 ...13cf55890f9c0933b02825aab21a7c71a.svn-base |   51 -
 ...01a91d73a08238b59103614f660c6fa6a.svn-base |   37 -
 ...a660322927d08083257c95c769d7c261b.svn-base |  161 --
 ...6349176c83fa25e31b277918f86274aea.svn-base |   76 -
 ...3eca4eaaada686af9ae3f79f824aa2783.svn-base |   66 -
 ...2f65e0262b256823529cf426b75b22dbf.svn-base |   27 -
 ...f06891a77f4a9269537cbbe9d36afa1b2.svn-base |   13 -
 ...f9804701137124cbbda625455ba566142.svn-base |  124 -
 ...2474a70041fce17a1ad335ed38914c908.svn-base |  160 --
 ...07ef6456780ad90276d22593a956128b8.svn-base |   71 -
 ...d5dc89c785a43d135e75b52eec37e3fb0.svn-base |   23 -
 ...78a63dd94217d577c1bbdd41f9904281c.svn-base |   24 -
 ...0970c51a83c051237fc5d7b20a08fe82c.svn-base |   25 -
 ...7d461662626bae101fb9749c70bfca7bd.svn-base |   62 -
 ...4fd4b5aa919bff79cfff430821487c1b5.svn-base |    8 -
 ...bd04ed4b652e1dd583c90f1bd35abe0ae.svn-base |   52 -
 ...f1f16985244deaeab492a2a452f6b3624.svn-base |   48 -
 ...2b5dba585588c78bce72becd9c795ed1d.svn-base |  106 -
 ...ee36be618775136cc3cbdb59eb7112289.svn-base |   77 -
 ...3771fb6da754e0beb718f67eb10834dcf.svn-base |   69 -
 ...fa25390f1a73973b7e6fd1e39e0e0f42c.svn-base |   42 -
 ...807b18e5012534489409e44ef8cf1b8ec.svn-base |   15 -
 ...75f93c641bc254626ac438cb849897adc.svn-base |   66 -
 ...7d0030f67b35d1d50d1e20f2953c0d36a.svn-base |   52 -
 ...8432649b4599bcd758c5f9a12b9cadbc6.svn-base |   23 -
 ...227febc5525e58de16d4622b47aaaeafa.svn-base |  292 ---
 ...7b2e996b9354d5add8f7a9f756d1ab5a4.svn-base |   96 -
 ...105441e4e89ea1be8810a4269f484159f.svn-base |   24 -
 ...7a9fb8ea2c213a8cc1b265bda60e5cc18.svn-base |  194 --
 ...977ec90049f80f43e899ce926b29dfce4.svn-base |  176 --
 ...9ec840fa66390c6c6c28c1d2214eb4cd4.svn-base |   65 -
 ...9e808f8ce0a775b4a733b4224f7acf6d8.svn-base |   71 -
 ...7f9b174a433209914f0ff822fa33589c7.svn-base |   68 -
 ...e71c699c0d8f1eb91dbcfd13590de404f.svn-base |   77 -
 ...dd9c30bd492b461cbc3104e143458cec9.svn-base |   23 -
 ...2947a607cadaa5823b7f33f4945ffca72.svn-base |   70 -
 ...98e0373107664d24c5769e086cac631bb.svn-base |   74 -
 ...83abf9b26c98f0ba63ccc7066c020c362.svn-base |  118 -
 ...8d72e9adf4ae0620314bfd1d592685e2e.svn-base |   35 -
 ...1c2f3c2bb05747a47d2c742b4e492ab42.svn-base |   52 -
 ...ffb24a399a5e8f9d23f6e49681dd7f2b1.svn-base |   91 -
 ...3759d8839abff0faf702da0ee41a77857.svn-base |   71 -
 ...80f50d771f7ec7f6b1160ef68a08b6876.svn-base |  128 -
 ...3c0a3912379c253e6304d0688065a41ec.svn-base |  126 -
 ...b2da452b2bbfd20972ff2de1a0c04753d.svn-base |   36 -
 ...2eb0370895c2b945fe00029d322253621.svn-base |   68 -
 ...307e277ab1952fb27faf129022cf20fe4.svn-base |   90 -
 ...895fe7d8f81a8480672d65c65a6344666.svn-base |   24 -
 ...5add727ad52ec7bcd2ca0ca0a8c2fa815.svn-base |   25 -
 ...96f4c8d822f53e0e7b861cd3b9e15ff27.svn-base |   72 -
 ...0de666cf86c897cb5b5b44e47a5138b91.svn-base |   23 -
 ...257d4d7c7681d3984312c3f0fd7e34de9.svn-base |   97 -
 ...c7d1faed945260fbe2a0ad885e613b630.svn-base |   46 -
 ...f4a791a0927887bbc5ca4a392c378940c.svn-base |  337 ---
 ...6ae108aea12d9074894a6ef7b8a4b9181.svn-base |   18 -
 ...d15a40d3f558b9d6aae50f3009b5358f6.svn-base |   59 -
 ...ecfe3e3e8cc5cf92375c8cd6eb1db595e.svn-base |   15 -
 ...4fd69773d72f01f3bd8da69fba1a63e3b.svn-base |   24 -
 ...1f885f7b81fa22bdd57ac8ec0ddcced8c.svn-base |   45 -
 ...b32fa52b73e81552ade7c3dcfbcdb6669.svn-base |    2 -
 ...d7f4c3d3b208f89d90d8c6d0ea2b5b769.svn-base |  282 --
 ...b10e9221e93f4a0c0ce08420c668f722d.svn-base |   96 -
 ...185ba64c27ef5b3d6f6cf96744b2cdb0f.svn-base |   20 -
 ...1872f9c87c0ea27bf86fefd327785f974.svn-base |   86 -
 ...7bf7ed18cbe633c24f7e7757a3174f0f5.svn-base |   79 -
 ...a2f0a14669a85fde8d2caffa9670dfaa7.svn-base |  129 -
 ...196d67051e39945eaf4540e8b7e9c0678.svn-base |   38 -
 ...72b6e9cc2b9785a927433723c6cf72be9.svn-base |  387 ---
 ...3e4c1be672bfcb7abbaf36738719e2618.svn-base |   52 -
 ...479ab3322cf381d0e1536b5e1fc1ecb9f.svn-base |  142 -
 ...32f6482fd5d97ac1bfdd444116798d099.svn-base |   63 -
 ...ec35e4012e38d33b7b8e4f002c1ba4022.svn-base |  127 -
 ...1dfb4992ecfd8f172486c81f19e98cfd9.svn-base |   20 -
 ...8602e51498670ad0d5e3afa4277a794b0.svn-base |   75 -
 ...45520e4ed403663298de1967adbba3f4f.svn-base |   29 -
 ...4593d65f3cb717f88eafc051c44333d87.svn-base |   38 -
 ...637bf65735c44531f94e8d96b5f215716.svn-base |   25 -
 ...bd25a7519fa2ca86e4fb4187ea37ad9ca.svn-base |  401 ---
 ...25bf0529c4ffc7b367b80f54100d21c01.svn-base |  144 -
 ...149f1fbfab6a0d92d867a9081b770297c.svn-base |   98 -
 ...945285ff7abe977d7c78fcaa039f62e4f.svn-base |   40 -
 ...adda4370b2369a743d8e1174d21c6205c.svn-base |   25 -
 ...86ba4a1fac3edd0964c41eb1570994ae8.svn-base |   44 -
 ...9dea35b826c74fee44be1c61d6b93e965.svn-base |   21 -
 ...089847bc1de16738978d760aa861d0626.svn-base |   73 -
 ...2a279982a392df56a0d542a0807b5ae1f.svn-base |   46 -
 ...b50aa2a71b5ec5a6252293e8474e900ea.svn-base |  102 -
 ...40b20758d02505aade9f1dbbfb300bbc8.svn-base |   18 -
 ...cde52080839a2bcde3f878e2f27948233.svn-base |  148 --
 ...ba6c81210e93af8b46b5e3d9f70176a27.svn-base |   24 -
 ...c2a3a849b9c8ca6d9d85aa0dc0072c417.svn-base |   33 -
 ...8fcbe00ae011674a6339458de9829befc.svn-base |   31 -
 ...386a8409b4e024ce7e2189da262d97e61.svn-base |   52 -
 ...24eea13e059b4091f1c3ca098b831f558.svn-base |   71 -
 ...ba845df562bf0a7d11df9f81c61e63b78.svn-base |  134 -
 ...8ff18674ff0c7254b7dba99eb9676b32a.svn-base |   97 -
 ...b6f71045d5a6fab03ade554fcbf7da634.svn-base |   77 -
 ...77bcc3b0306502eb067bdf81c8af687da.svn-base |  163 --
 ...34d99a65b08255c87ae914f645c11497f.svn-base |   26 -
 ...61703f52e227f3bdf7a5e541d36fb9939.svn-base |    8 -
 ...e2bda970e065f5909a4b5dbe857afdf9c.svn-base |   86 -
 ...db39a717da205e134be6627cdcac83bf5.svn-base |  134 -
 ...d1f115c158e8f0bede237acda58fbbac0.svn-base |   82 -
 ...73eb6a134d6c6cb54c5eb8f982b703afa.svn-base |    4 -
 ...eb3b68cb47182c9d4e0a1d79179626f0f.svn-base |  336 ---
 ...49c55976c8f997a91e7ce9445f4b6ed7f.svn-base |   12 -
 ...0a6f3846eded4a3ad112a4f65c36db7dc.svn-base |   14 -
 ...f9f0a2e319eff709a3613aee173edec1e.svn-base |  128 -
 ...990c458f498a25de0237b06b206d96ca6.svn-base |   40 -
 ...7220598b47b8328c802b1ed310d1aab81.svn-base |   25 -
 ...0f660c53c9ccd8cab66ee006f59ff85c1.svn-base |    9 -
 ...925614a08c3035d6bb29aa50cfe3151c0.svn-base |   95 -
 ...b77536b3d60dfedc993f54e33273a0150.svn-base |  312 ---
 ...2044af715adfa3d0a60406b71a04e8dff.svn-base |   30 -
 ...48cc99c2da50ac79b7d025cfc3e0d6629.svn-base |   15 -
 ...31cb635c000e7d266bb7ba0a172a55623.svn-base |   13 -
 ...91a4c2a9077d361432e98864089966a0b.svn-base |   71 -
 ...6d917be2ed4759ddd2e95fcae37c4f04e.svn-base |   74 -
 ...88dc2b79ad99a34957dd92f41b8796f20.svn-base |   14 -
 ...b1269d09348eb8d84cb8af573f2f8bcc4.svn-base |   46 -
 ...1efcc1e2baada812cb8e26849798c4d1a.svn-base |  145 --
 ...4bbb898c2ca3146c340984ff9a8aeaed4.svn-base |   27 -
 ...aad8c4e033671bdfb197a6499b0fb9298.svn-base |  132 -
 ...675a5e205bb760caa4eb16f86863a59b9.svn-base |   68 -
 ...5794b0e8d2c1cc4e218959fce6ce9e5f6.svn-base |  194 --
 ...da43125eadd7ca6296c387ca19dfb720f.svn-base |   70 -
 ...b35c84ac79cb19e8c4e5f67c4809c4a0a.svn-base |   16 -
 ...b3b5eec0f5c9995524eb5bc1085ddc192.svn-base |   21 -
 ...630666f3e8fb68bc8a62d9e39b9643c36.svn-base |   57 -
 ...84d14ef09bf3c8c330ed41e2735ada902.svn-base |  113 -
 ...e443592ec0aa665bc9693da6e87a47cb3.svn-base |   71 -
 ...adcf74368262ee13766d26a5981c7c0de.svn-base | 1012 --------
 ...ed8085570d72da5e3a439c3ed91f1034f.svn-base |   74 -
 ...8a212415ad1bb4aa806abcc147aad004a.svn-base |   77 -
 ...f5b9c89a3d18e0506d5eba4ae50e3ab11.svn-base |   93 -
 ...13043aac06369f24a0b9a39ab673ffe4f.svn-base |  144 -
 ...435ee1808af207272d92b8c503b4e5239.svn-base |   74 -
 ...3ba8866fd7f85c38e03b30f4d76f9b5ab.svn-base |  692 -----
 ...9f29e5547cb4efb9b7bce055538e4ee16.svn-base |   28 -
 ...62e12221a4fb355618e4aee6d339c0d72.svn-base |   72 -
 ...28f5d7633ab97e3693b255036457c6ab6.svn-base |   28 -
 ...3e623f9c8d7393c8727c65d493e37834d.svn-base |  131 -
 ...41a42899b66b56484160f2f017b73cfe3.svn-base |   11 -
 ...6f2dad993d1da91185e48a3dcaedc38d9.svn-base |  263 --
 ...7623a8706c8d9d66b0498a9f6eeb34b6a.svn-base |   69 -
 ...ecc17271323194fb794de0a791b6a3398.svn-base |   71 -
 ...f1f33ce4291a43b31d94c1bd21f26ed7a.svn-base |   49 -
 ...dddcc1a2b834797328598c03050c67138.svn-base |   82 -
 ...24774b90d79ffb837b5db81e46d625117.svn-base |   52 -
 ...2361533fb5edbe501b1298dd48ca16b95.svn-base |   14 -
 ...690a59cf637415f48c45e58569b9c235a.svn-base |  150 --
 ...725a4f15c9a3be40e1ad0910b120525a4.svn-base |   27 -
 ...0952e87a2df995208d041dcf4fccc611a.svn-base |   13 -
 ...25ece50a6b426ebb7c647e0156ccd4bef.svn-base |  142 -
 ...d6e9079a8c5bc368fe2a9a6e21ba2d6b6.svn-base |    9 -
 ...91370dac7b9f4ebed9989871a50c211f9.svn-base |  187 --
 ...2d4a7097fb96a605d3fc71f45ccbb9858.svn-base |   55 -
 ...864f94938bf5dadafdf3c10571c7a8ba7.svn-base |   48 -
 ...5cda4d8f30379a011fc45f62b340cae4c.svn-base |   38 -
 ...5dc71fc34511597cab5bfe51e837cae49.svn-base |   16 -
 ...2963ecdc65ed5b0bcf492aa6b384a3b83.svn-base |   55 -
 ...1bca1b249ac0780961a35ec36e94c5dea.svn-base |   53 -
 ...90be449756a63bf512ba10d84c341ffd0.svn-base |  151 --
 ...322d58dda351cf2bdc474d69f8c72040c.svn-base |   18 -
 ...8bad878c35bd132fd025d850c13d151ad.svn-base |   55 -
 ...14e204d754747d135fdd512da86c6536d.svn-base |   68 -
 ...c4567e9e5cb05ce69b5e4467f369f02b7.svn-base |   39 -
 ...b1ee11e4820fdf2e4ecbfbde337c29ea2.svn-base |   98 -
 ...797617593aafebd85616772161c21a355.svn-base |   24 -
 ...c5563f7940f73c704b60510342c2194ee.svn-base |  200 --
 ...7ea9444ad092ad5f5a0c1b1a5c9b02910.svn-base |  242 --
 ...3c83f5c16e705b41fec9996942f5e2cd9.svn-base |   95 -
 ...5540aa46e4a1f55cb219c096799c37d44.svn-base |   20 -
 ...0fb54cb6c42640dd5d439591eb2ea7582.svn-base |   36 -
 ...caeeb13e375e6015a1863c255235c1ce7.svn-base |   73 -
 ...c13eb29ce20c3f01ecd3c1257240cb6ff.svn-base |   47 -
 ...0d068d3cd793a7d52a327fffdfde4d937.svn-base |   94 -
 ...2b9bb408c6bf7297e7a6f94731ca5c60c.svn-base |   73 -
 ...22197ed4d1119a3ee788205df0aced813.svn-base |   86 -
 ...45305f73787977d648b6614e86c5ed4b4.svn-base |  203 --
 ...e8dfba97afac239b3beb3da19974d4721.svn-base |   83 -
 ...72e02036e58bd926380b6afb51218f44c.svn-base |   79 -
 ...3d2b37f978c61396c96ce7d70ba961cdb.svn-base |   38 -
 ...d8c52dd6443238c75bd6f53129d201d63.svn-base |  141 -
 ...d0997725798c308bdd551aa28287081dc.svn-base |   77 -
 ...2d9c432401036b6e7f951dd2860c45d69.svn-base |   58 -
 ...c39d26c09b768c22da01bbeb1aa54f487.svn-base |   30 -
 ...c870715ae81c26bbf96bc91f0e24f1edf.svn-base |  140 -
 ...2b7c57cec52aea598ccaa87210c46b0b5.svn-base |   13 -
 ...329f63662cd778ae46647ed3ad7434113.svn-base |    3 -
 ...036ddbf08c8bf16ed3a285d10bb2cc17b.svn-base |   80 -
 ...eb61733107564a7c063411080c78eac3d.svn-base |   80 -
 ...0c0c587f28c221ce44f5925bb40136a22.svn-base |   88 -
 ...2e771d6d06299946209f5bd834aa4d5fb.svn-base |  113 -
 ...ac0b9e018aa04f1f2c50b3a1539a504ff.svn-base |   49 -
 ...1c19a554527ef29c973eb60130faae10a.svn-base |   86 -
 ...76718d437faad0d2447b17c8dd4c16284.svn-base |  120 -
 ...d7014bfd19981d6348d3bc1f85fbcf75e.svn-base |   99 -
 ...8f23ee5dcf1d25ef98ed49f57d38e4ba5.svn-base |   19 -
 ...49959db2a2e7ef5115414c14c2a21704b.svn-base |   13 -
 ...ccbca980eaedc0fcd4787e43a46686a7a.svn-base |  526 ----
 ...d404575dc6cbd0f599f299b476b9f795a.svn-base |   73 -
 ...3fb8f877637b7c0834a4e248ec6e1988d.svn-base |   14 -
 ...2f41076133ba54a581801e5800d5524e4.svn-base |   38 -
 ...41183c4e9c5a6ab50262311fdd4664297.svn-base |  172 --
 ...7fc012d34b0a4d365776646e53e8e9a5d.svn-base |   77 -
 ...a546ce216f80f4040f88d2c06c550d90d.svn-base |  116 -
 ...75dc2c2f31e54ee6cbfee4255e8bdf5a6.svn-base |   52 -
 ...a679700ce45d5031af690725e0a861c7a.svn-base |    8 -
 ...400e50f22b97b89e0f853f4c2c5bd204a.svn-base |   73 -
 ...aef5e7b6d4529b13821d939dda4d29ea4.svn-base |   73 -
 ...8fe6fe66e62ea829226345b9512733322.svn-base |   18 -
 ...427a164304566f6f0a4d6a4b1d91adf6e.svn-base |   50 -
 ...e6191a24db8fbf8a501231f8063893429.svn-base |  160 --
 ...1a37bde24250a92845b3f4a3c9d5cfb19.svn-base |   41 -
 ...f107152c9e940497311c0af05af88961b.svn-base |   18 -
 ...7a401c9d55a2adfb066b91515db2b9dfb.svn-base |   71 -
 ...3bb5cd720a8f405fe5ef66488274acf09.svn-base |   13 -
 ...22291c2f3a4b4d96eb367215463f94a9b.svn-base |   76 -
 ...093abc92df6bb324f3fe322dfe7af998d.svn-base |   13 -
 ...a959178c771da9e5ea9d3cf0ad2676d89.svn-base |   11 -
 ...5a484635448ca20ac61f97f886a6899f4.svn-base |   84 -
 ...8373a29beadf7596753aed7efb580189e.svn-base |  323 ---
 ...134fe9b09f680adc8e26195e3b90baaed.svn-base |  123 -
 ...f17a061010f65f2f4195626ac2df73b65.svn-base |   25 -
 ...73ca802b619e8e839bd3081c6c37fbae2.svn-base |   23 -
 ...d9167eb1033bdccf0e5ce3f4ca8e02ba4.svn-base |   45 -
 ...7a1c9e04cf3e458fc13429b0366a5f957.svn-base |   71 -
 ...15f38357643af88b69e50bc7755fd5a62.svn-base |   16 -
 ...0857435f70d0d2fd00688e30bd1a12574.svn-base |  117 -
 ...b77e7fb8b1327bb0e59d97e44e0a05698.svn-base |   11 -
 ...3f57aea58b0161399d8b08ddaf36f892d.svn-base |   20 -
 ...5d0641cf46d7a2a3fcb8c40e3b0714c3a.svn-base |   68 -
 ...44892a682a9365c75d3aa318ddc59778a.svn-base |   23 -
 ...7f45bf2a701ef4fbf015faec6b0576785.svn-base |   25 -
 ...0275b35a4fd711d7dc9b3553886a11c9d.svn-base |   77 -
 ...88ee9d62df02f188f4bbc9aed156a756a.svn-base |   20 -
 ...a9b9c8d0f59b206cdea24b10d199a897a.svn-base |   25 -
 ...1ded8568eec71f9c17617c8c26b535543.svn-base |   36 -
 ...f2e652d84ba17af8b3b38ac4b2e0e1f70.svn-base |   50 -
 ...0c295bf923fab3a95b1ece20bf34cabd7.svn-base |   38 -
 ...e0fb27c377991b1cc3add43d38e8a570f.svn-base |  210 --
 ...f841586cf54f1ee622b417fdf25fd3f79.svn-base |  273 --
 ...22156ba5b109e0816a652e49b4967d963.svn-base |   48 -
 ...1151f9a19fa6241552e05e6c72d93c396.svn-base |   77 -
 ...be13ff2e54e9a1114cd070e249b538869.svn-base |   83 -
 ...cc62149ca2cb3aff1def0b065e8998332.svn-base |   45 -
 ...ef66468ba460303a58631385e1d37e870.svn-base |   34 -
 ...ec84071a130b96d6b582ada8543803c55.svn-base |   14 -
 ...24f793280e72efd514a2be0a814b0280c.svn-base |  114 -
 ...391702559cd495197a6cfbd971b1c39fa.svn-base |   24 -
 ...b5db343e508d916768657ea110264971a.svn-base |   85 -
 ...9d44431c0cecff7e279fb95114867e2e6.svn-base |   10 -
 ...78d8af86d6e68432f4895481be5c184e4.svn-base |   25 -
 ...af153b72235d6e0e65f3435a1e9932d35.svn-base |   46 -
 ...090d86e4c92f97fad436facf1858e06b8.svn-base |   75 -
 ...6e6bd4aa499eabd6781d96574ffd84be5.svn-base |   37 -
 ...93a9ad349e3a5f5cc5e61e7dc41c09338.svn-base |   74 -
 ...4ebcab2e6da0d9308d853fee78e98c8d3.svn-base |  147 --
 ...d40f668db5dcfd3119d5c7f936872e263.svn-base |   29 -
 ...731fbb44dcab9c5602cff951248456906.svn-base |   15 -
 ...354d4bde6dac0c511e066ff7824c871b6.svn-base |   94 -
 ...7fa63790fdb0f6ee7f76c1921bcb22e86.svn-base |   98 -
 ...c02552e4587b2b8c505118942d0aa503e.svn-base |   77 -
 ...481a4cb31789713976f7afa9a17efcdcc.svn-base |   82 -
 ...81d7cf9888b5b251e12bf05d96c0929dc.svn-base |    2 -
 ...6758bba22abe4674534309584489ddcce.svn-base |  163 --
 ...036fd8d6a9dbeb4f3fb38235e853b9984.svn-base |    1 -
 ...7d2f0259a598a77a99de53b5c49f3ab4c.svn-base |   21 -
 ...83dd86b3cbbd8efb1ae78c771442372eb.svn-base |   35 -
 ...8deafa736814f1609ad3ee16cee34caed.svn-base |   95 -
 ...3e39b3a89b7d1e7d1ea6a355688d3dd58.svn-base |   37 -
 ...5245bfea69cab9fcabf64d64e00416911.svn-base |   73 -
 ...5a0d5dd1bffde0ff1d8822fbea7068d7a.svn-base |   60 -
 ...ecb43ff6af77173f93774e9f0f0a369e1.svn-base |   32 -
 ...abe1af6d890eb96b59e51ad615f8467a5.svn-base |  295 ---
 ...e3a6953bb50f6a9254ae37c02d1a064be.svn-base |   54 -
 ...e5a962ab9c0ab94691ec5af4de718650f.svn-base |   59 -
 ...83c71913099aeb128b02ed14a2785fb2f.svn-base |   35 -
 ...e275477f2e2adbc055d6702c2bde4c04b.svn-base |   38 -
 ...22aa94f87cc3559d06ac0a1195fdde7a1.svn-base |   27 -
 ...a55f0a4563ca5b6a2125ca9e8683a26ac.svn-base |   41 -
 ...0a39fd78853d922fdf6c2deda0e480dfe.svn-base |   96 -
 ...ab4d5d1824efdfca0603ea076f8de4cd3.svn-base |   69 -
 ...24401b9d028d8deb3c213d703af54cb93.svn-base |   37 -
 ...a9e12cf42f1f7e1467d20c2b111b080b8.svn-base |   28 -
 ...03fc14115d477ca08cab9ea4730e81d01.svn-base |   82 -
 ...5fb4015b47e04f58596e22f829e915726.svn-base |  106 -
 ...d33d671866e1ffbe7837c9d9af151e4af.svn-base |   46 -
 ...a81d273df1b9b25d1260cf2d30310880c.svn-base |    3 -
 ...1babb8929a13941ca942a28a94439c137.svn-base |   20 -
 ...8b63f1dcdf3e43a2bf9e2b2d7792468cb.svn-base |   25 -
 ...eda30cb7a21ed1802afb12c64d1bc6943.svn-base |   16 -
 ...9f1a287ce1b8f2199247cbd101a80997d.svn-base |   26 -
 ...70a332439f2cd30d33f589f37833f2815.svn-base |   24 -
 ...ae8beb915da4802d257f2f7fb6304fbb9.svn-base |   47 -
 ...7d01830b0ce2f85d691da3b2cbfaa953c.svn-base |  116 -
 ...fcae4b9fb51b82872aa84a7519a3477ee.svn-base |   23 -
 ...ac4d7d7160ed1a11b601a3f6a3a63818b.svn-base |  202 --
 ...8c2999fd6a18f6e744fa22ceb42ef7162.svn-base |   87 -
 ...77d16f62b797b56868b5fcf052626abdc.svn-base |   19 -
 ...c36ae66c856e22e24d8827efe68ba057b.svn-base |   70 -
 ...64be8b62b02c9ef27b3cdcee02e59824f.svn-base |   53 -
 ...b5f169638c1f5bae3bfb2c437d3bd38d8.svn-base |   12 -
 ...2a0c9bf5353d2a934185736d0190e0e78.svn-base |   13 -
 ...4a962dd3fce8431d4f8e18d2b0cc5090c.svn-base |  145 --
 ...51d012ef4ded62d30059cee1e39815e9f.svn-base |  144 -
 ...beb976966aa9e20c7f4078a695288bf55.svn-base |   11 -
 ...54d8366d6e73ae37572e7666bf78c4c8e.svn-base |   29 -
 ...09996f5a2451e02311cc0908ac7f154a6.svn-base |   16 -
 ...9c9f66c89db11b65455bfe929f2b3dbdc.svn-base |   13 -
 ...b04a59b9901bd33283b92dd33f55ecbd5.svn-base |   57 -
 ...b03b5ecb328caa8bedbec04fd6f8f87ca.svn-base |  141 -
 ...98e230700b636c09839a04edebee4e651.svn-base |   24 -
 ...7724830512a56fccc17a9755f97f04443.svn-base |   18 -
 ...bca9e3e84bdcb8cc425056122852ba5df.svn-base |   76 -
 ...ec1d385b7f62dcd8878fea92909ec24e7.svn-base |   72 -
 ...e5fe6e7d57fbfef87f17c993a685dd4c4.svn-base |   88 -
 ...d86d59357fd94a65c5f477a1f063c2ed2.svn-base |   16 -
 ...d5e5891541e2ec7568e693d86f7ae63f7.svn-base |   68 -
 ...caaf5cb43d7d698d7e47b56d9f31ffa7a.svn-base |   66 -
 ...9ef452886fba14f9a93e65ae415bdbd29.svn-base |   12 -
 ...14e32ab582f14052990bb70d05b857714.svn-base |   52 -
 ...12ce6757a1e9f8851bc28e49e6c84d4fb.svn-base |  240 --
 ...569d55a25398ff18342bacd387a6feee5.svn-base |   50 -
 ...bfe76333057c06198a88674c6a28cdbd9.svn-base |   76 -
 ...7f2207b14e81f247c3724a98be9379975.svn-base |   32 -
 ...92056852b9faf5839edf31f9fac50d7d4.svn-base |    9 -
 ...164f0ad22ec57d5120bcfdca304b24e83.svn-base |   38 -
 ...aee3818cc07f79211140be8cf8e9a1183.svn-base |   11 -
 ...c58edaabff409603d1e06039eaab69aeb.svn-base |   97 -
 ...d0e6a170afaef99e3b7d562d709b52804.svn-base |   52 -
 ...4a0cc903d7664497576f0c58c2207a52f.svn-base |   42 -
 ...9a4d6c3abb380e471d397c522ba7f7ac2.svn-base |   70 -
 ...fe02382cda2e2b418bb0feef00429ab08.svn-base |   86 -
 ...67a1ea4877937f4aef09cef04018da578.svn-base |   62 -
 ...1eb4bb7048f8154e320ae4b25d0566d50.svn-base |  277 --
 ...8d54d56badc64ca0188dfb786641e44dc.svn-base |   77 -
 ...bc849a27c1c6c06de7fa37426b6c40c48.svn-base |   19 -
 ...3b060685e19bdeaa505772daba2ab9974.svn-base |   49 -
 ...cba84cb79f10acfaf0f33212649a0a337.svn-base |   48 -
 ...43ba7cd406ef7a53584826021d8c7d0cb.svn-base |   58 -
 ...60a6a3be26b9e2e6302c80a893fa12f1e.svn-base |   74 -
 ...d36ffef90aa4b25ac353ae6533c6e19e5.svn-base |   83 -
 ...4e6bd56d1357b54d00164375864146fb3.svn-base |   75 -
 ...6837ad63eb020086926ca24fa930b650a.svn-base |   81 -
 ...e1f1684102a34700f334f2d12fd7bf9a4.svn-base |  130 -
 ...4adcd9383bfc29e65ff2499574f913f6d.svn-base |   59 -
 ...f4bea05dcc383a7e928d8bd0ceea18883.svn-base |  154 --
 ...6c694a0d78b48042c77f42cd124e5e87b.svn-base |   14 -
 ...ccc308d0d0fc331749d770c5cf94c6d01.svn-base |  111 -
 ...c1cdccda82dfa65a4f1e3f89e5fc62b2a.svn-base |   38 -
 ...8ec244eb1a8f9edd59b4b458275810316.svn-base |   59 -
 ...79e1a32026ce444a97403ee6552ece677.svn-base |   38 -
 ...94fa60e35ba86b576f07c01358657789a.svn-base |   14 -
 ...cc5af9e54b7567b8929935b8765b89f40.svn-base |   26 -
 ...42710b9b541bf6a91baf48694ef729abc.svn-base |   15 -
 ...d222b770dac6740c80d7ce374f82c0f79.svn-base |   24 -
 ...1c15785bdd788231c2b330f91757a9caa.svn-base |   47 -
 ...22c7b834a7f0e371328c7e791989d5b49.svn-base |   19 -
 ...5c927b98edd7ed22882110ef366894d2b.svn-base |   76 -
 ...eb815705a4734e0f0100b0393d951a56a.svn-base |   74 -
 ...6dcb0c857945adbc488b901a82cf0db99.svn-base |   18 -
 ...16f36636681682a581ef8cae6fdc44be2.svn-base |   20 -
 ...79484776b67b9c816c78560987803da0b.svn-base |   79 -
 ...0a1272bc2aa6e0dcdb182f9a348e4b70e.svn-base |   54 -
 ...424fc3154242cef41d84ccdad6f7f63ab.svn-base |   46 -
 ...b479731e8b9adab8369818f8aa10075e6.svn-base |   13 -
 ...98964e210354944a2e6abd7c775139c9f.svn-base |   24 -
 ...9f385cf061685eeabeb38a375875eb3a2.svn-base |   19 -
 ...815e8d68b8ad7cdbe632a9fcc6384a923.svn-base |   79 -
 ...adcccbbd5a66993cca36a2297b6badfe2.svn-base |   60 -
 ...3c1646d5b528660afaefff53c4d10d41e.svn-base |   41 -
 ...97b41384b8b4822b3c269914a7e2fcdb4.svn-base |  152 --
 ...32c82ac945aa39ebddc58ec29b3db62bd.svn-base |   74 -
 ...c5cb547f36777941e08521b9b5c2e6eb4.svn-base |   21 -
 ...44e18436454a06afe639b1abd8a8f66cf.svn-base |   70 -
 ...3ff8ead8f22d598f493d35a30e1669536.svn-base | 1036 --------
 ...e18332c96395f704ade236a14acba2dd3.svn-base |   99 -
 ...9542807681e45e5796d49295a76e5a6f9.svn-base |   28 -
 ...b143238d14207d5b697d665bcdbba7bd6.svn-base |   90 -
 ...9713f2f44f460bda2a90e7ca3edaffc88.svn-base |   13 -
 ...0f7593ea92029d258a6a9f8eaea81bbde.svn-base |    9 -
 ...5423aa6eb4f0d8d705c77485818d741ea.svn-base |   24 -
 ...b374bcde9164d6456e65beb8cb0e6d843.svn-base |   77 -
 ...8408e355791c8c092c1e9a523d0aebf11.svn-base |   73 -
 ...d291f5eeda4d9aed4cfaab254aa659921.svn-base |    9 -
 ...ee34b16fa0d35d91099d45b9f898cda68.svn-base |   65 -
 ...ec08b0a3f675dc3621b3deadd6c8c53c9.svn-base |   32 -
 ...1b8991cb69d0d113b28fa666d1ad4d1fa.svn-base |   43 -
 ...516e0bf490cd86e4663f6632f33f75a5c.svn-base |    9 -
 ...83281a00b03948daf3950746f1c5780f2.svn-base |   80 -
 ...7e34eb817f135b4f3f17a277767a219f5.svn-base |   74 -
 ...aa2bcb4652c3a61edfca4dc57b96c01bb.svn-base |  133 -
 ...34040b0de660213fc0c4916332248e602.svn-base |   74 -
 ...55a3c2d238119d09905cc792062c2608f.svn-base |   13 -
 ...7a996f5a6c025df07c22dac7b93ef3115.svn-base |   70 -
 ...2356bb4a9f81620db30d6c4e6aa559570.svn-base |   69 -
 ...5c45aec4e05b441c04a7e5220b83bf0bb.svn-base |   49 -
 ...d75ef0b16be9435240cbd7af802fc83ff.svn-base |   20 -
 ...7f7220740e01a97cb9f3b62dbaeabf9ae.svn-base |   88 -
 ...f7c3fb37ad216d46a4884342eb4da77db.svn-base |  105 -
 ...14048010efd381af4dc9f9680d128dfc6.svn-base |  100 -
 ...6a6e17b0f59bb8a04e4899d9cd5946196.svn-base |   77 -
 ...93ae3cba3e88e895397d9839491598ce1.svn-base |    8 -
 ...c39c4231850a031529c511d7d6ab4639c.svn-base |   23 -
 ...ce0c9081cfc366c169af73ab3097b67a4.svn-base |   74 -
 ...101c265f07b47e1bc3657f6c1f148545b.svn-base |   17 -
 ...97674c8688b42ab0eaf11ea92920f1290.svn-base |   76 -
 ...e548abc635f9fc55a72604ff7a79a5fe8.svn-base |  152 --
 ...15dff9f8bf69fd53dc77b9337bb0c527d.svn-base |   13 -
 ...26f88c46694b9b611ed12e5533d38a1c7.svn-base |  144 -
 ...ce7ac8768c688754bb78978226b430106.svn-base |   15 -
 ...45cf8d14f6b053919dc06ccbcd33e95dd.svn-base |  375 ---
 ...873da92e4a8378e45895678271297db8b.svn-base |   23 -
 ...71a2538bb84399b2db3340fed0b083cc4.svn-base |  432 ---
 ...cd1dab796d1e62adffc57bd2a6fbf95be.svn-base |  112 -
 ...bd146c404af122fa83d227f1554141d47.svn-base |   27 -
 ...1a70bda17c8aec63c241d577619ccbe10.svn-base |   19 -
 ...9d9fc2cb35b536e8f316adc466fe8f2a8.svn-base |  454 ----
 ...9f65e69e9a57333d364ea054e03f3daa2.svn-base |   73 -
 ...97ffbea7661c2b8ea3f5255dde5fff3ef.svn-base |   25 -
 ...834678b657004388345396143c1850cce.svn-base |   55 -
 ...1bfcf201110bdca4c35780db90616afed.svn-base |  151 --
 ...4fb17735812e263c3c237b86bece109f3.svn-base |   16 -
 ...cc7750a33390fed8ae3684c21972735da.svn-base |   38 -
 ...2c94c802e346ec1fce1097bf4d11bf592.svn-base |   94 -
 ...40aa5b85dc1a03c1f5c64e818b91d53f0.svn-base |  155 --
 ...40b3741f011edf45964354888e8a74747.svn-base |   25 -
 ...78238259a2318c0fbcc71ebae48da7ff1.svn-base |   38 -
 ...6640ff2c9d6a6aeacf1d64e1071bd8f7a.svn-base |   16 -
 ...70e780f499a79fe0ac9029aefe2bb10e4.svn-base |   27 -
 ...838d53ab4b409f361e49ccdcdf04ef6b6.svn-base |   40 -
 ...cf9813a1613f87a0bfc4e0ee0b62c93d0.svn-base |   52 -
 ...769a793051389ed8cfcfee84b90aadd0a.svn-base |   97 -
 ...526650cfa9600962753f18ffa5b56317a.svn-base |  106 -
 ...947f17713e881b0b59ba2a091474614a4.svn-base |   29 -
 ...657ca2d6798adccebe0fa79d8376e176f.svn-base |   78 -
 ...77be10fb96799bca8e3f043fe24969e68.svn-base |   44 -
 ...76fd8dae16ba1407e696a1b66cdcf435d.svn-base |   74 -
 ...3f780cf967e5f0e851f6bb03ad61fe9a9.svn-base |   52 -
 ...d7e71b4270476805f8699ab736ec8a5a7.svn-base |   95 -
 ...9e49f36cb62b1caa6987bb0c88d19afb0.svn-base |   20 -
 ...e1c6450813255faaf52526173dbf65bb6.svn-base |   46 -
 ...edfb002a3e797adbce2c65fa63a9bc02a.svn-base |   25 -
 ...8a051659157dcf494ce557998397fe6d5.svn-base |   13 -
 ...2cb9dfad7ebcafef65507ead23e6b7638.svn-base |   74 -
 ...7a1211f478511d3ece98a39f0ea427639.svn-base |   65 -
 ...33f0599c4f46f7d60fed70e3f3dcdc396.svn-base |   79 -
 ...8a836bafcd5779b993dcc5adde36c21e0.svn-base |  212 --
 ...42a1ae4b7858ba69d989403e9d1be4133.svn-base |   18 -
 ...49d20daf3ef105f177d63dca56162943a.svn-base |   12 -
 ...b7023c72eabd74f8e47bcb2222604fa49.svn-base |   87 -
 ...2a05b606fee3c49378e1470d3814a7f04.svn-base |   36 -
 ...ac6b52534fa64e42285749b3633848eaf.svn-base |   18 -
 ...6952a1984f4a7ca525c981aec8a66f7a4.svn-base |  281 --
 ...95d47fd3251e36e7eb17c129f0fa9eea5.svn-base |  161 --
 ...69e9b913155b32b3add962e1afa7121e1.svn-base |   86 -
 ...b8cdfd3a8ca7a85e15ef027aebbfa2eab.svn-base |   52 -
 ...16fb3429777518f44a352c98f3e04e8e1.svn-base |   48 -
 ...edcbbc9e97dd5e8887c6ff72c05fd9227.svn-base |   13 -
 ...672e2cef191a70818441297a72b775739.svn-base |   30 -
 ...e82aab219b3659b1dfdb2ae3ddf315ddc.svn-base |   71 -
 ...5186e929e6d9c326a084422512456d6c8.svn-base |   51 -
 ...be46bb8bd132c239ba44c716b0c13ffaf.svn-base |   12 -
 ...afdba32c10612454d4b178f3538bb0368.svn-base |   24 -
 ...bcc033f8c41f10c01defeeba6e8cbe529.svn-base |   86 -
 ...1ed80f6d56563b9e39faf01562521bbf7.svn-base |  147 --
 ...2a30637dafc2d5c5fca997e659b6c469e.svn-base |  192 --
 ...7181d42b42804af6c1a02d4a14f239ad5.svn-base |   20 -
 ...4c44397cdca8b394aab874e44e8d067ea.svn-base |  173 --
 ...e5e6b4b0d3255bfef95601890afd80709.svn-base |    0
 ...39c23f77b7db5be0e2640e7ea7e3b61c7.svn-base |   76 -
 ...83e4848413b822c117144dff2298a2026.svn-base |  412 ---
 ...1facff7bcc314aee119bb1315d2f4f61d.svn-base |   55 -
 ...546278d4f69e114a32e99ce9e8d14f155.svn-base |   38 -
 ...ed0f2a7c8bd4c7772323378afa1907128.svn-base |   20 -
 ...a9d6513d369e28390e22a8ebc76dd682a.svn-base |  160 --
 ...2fb6ee05ddaabfc65a0314f520e147e4e.svn-base |   24 -
 ...6f4aa67a2124bfd7b47e3c99533d56e65.svn-base |   20 -
 ...d45312ad472e30d469b88a42b8c318465.svn-base |   12 -
 ...7aabbd724821fefdade418d56376ab841.svn-base |   15 -
 ...14960ad3b0d47ae5891ba22bf895e581b.svn-base |   52 -
 ...8f9d61a9ecb8d487ddf9bb4d0be727106.svn-base |   33 -
 ...67681ab81cbf5ac8a8f21bdc73ccc02a7.svn-base |   82 -
 ...4341b4070fb580f934587c5964c7d373d.svn-base |   12 -
 ...478e71e8a1f6922a9a3c53abb44a8eab2.svn-base |   23 -
 ...dbbd15f5706c7d8d0c937f5ade3c43b49.svn-base |   26 -
 ...afc044c6e418e46404c18c677092da4bf.svn-base |   73 -
 ...1b57985cdc0fda4cd6b4e080dc2e239b4.svn-base |   30 -
 ...198989f7a0ee3d1463377101b2ab82063.svn-base |   36 -
 ...69a27ec118b34385e1809d80391acf29c.svn-base |   61 -
 ...850ef207375126b262fd6d46d43e11407.svn-base |  133 -
 ...b691e87484f432a82d3dc622d0dd0161e.svn-base |   16 -
 ...628530cc8996317afcb6b0b4b52dfc1a4.svn-base |   89 -
 ...295bb5189191871098791eb563eba4367.svn-base |    8 -
 ...8a3e224b1c212ea6c3d9f08db5d037ca5.svn-base |   79 -
 ...9161b29141242fd0fd2326d88897520a6.svn-base |   79 -
 ...93f8247eda58c7bf3af65371444846ff2.svn-base |   74 -
 ...942404451367c01ac9927a1b441a9070d.svn-base |   26 -
 ...aa886da9894776187c2280c73d2169faa.svn-base |   80 -
 ...c3968a2b87ed340e0d65c128b8c1af5b1.svn-base |   71 -
 ...5506665ac177b23c551ef2d71c50bdc96.svn-base |   20 -
 ...a65e301bf8b8fb5757bd322c6d7cb826f.svn-base |   19 -
 ...6fbd9bea2c6ba958ad7b1d50fc61895cd.svn-base |   14 -
 ...59e53e720501f34b110e616e1f4928c03.svn-base |   24 -
 ...efac52eb0419ef09562342ea949a70357.svn-base |   23 -
 ...e3adc70b10b26e5e9866ba1e0fb209826.svn-base |   72 -
 ...0993651371bd2f188732ff3ebc6fb29e0.svn-base |   22 -
 ...1d3e40114fc419b569a208c7884cc5295.svn-base |   27 -
 ...91c43894802680bdb6c94c154ad7d386f.svn-base |   77 -
 ...33c7d9d6d8a8226d629693c4030e73af9.svn-base |   52 -
 ...cd9843ab66a284353e54534e863628cac.svn-base |  256 --
 ...ecb50608b3d0056118157052c554ffeeb.svn-base |   71 -
 ...3a643f9af8c960184e8f671c42e5c65df.svn-base |   12 -
 ...925dbce3e4c88e1ae2475b1d803a46931.svn-base |   71 -
 ...9c9000de04b24c1e582e05b4db05273e1.svn-base |   79 -
 ...511b90caff8056dd105302a90f1b837df.svn-base |   16 -
 ...2b6c379a753a6b276b40ec0a26a9c4ad7.svn-base |   23 -
 ...9428083bd8532d22fd976b58ff81e8db1.svn-base |   74 -
 ...bc6d78371ea1c2f867d2ec2e59e3905f3.svn-base |   18 -
 ...9b057c9a2a021a2ebee75d899faa9f0dc.svn-base |  133 -
 ...03cf64dc6b1d962dac87bf6d77e699d0c.svn-base |   38 -
 ...f9b9e4e9a305db7381f0e8c3fd248046d.svn-base |  265 --
 ...ee4e5940986c1e9a63ffe547464c2e412.svn-base |   52 -
 ...25dfa3df1bd3c22d05a6f7561403add98.svn-base |   13 -
 ...baf50b86bd0b2ed39918865764bac073b.svn-base |   24 -
 ...70d06d21bba4cceac3f89e4db1649a2b5.svn-base |   73 -
 ...cc2c6cb597acedcc6703bc8ba3bd6e7b5.svn-base |  111 -
 ...b9d79b959dde99cde3d5a56a6fb3f6c33.svn-base |   24 -
 ...047f67dafc8968bba0e1efbf05590e80b.svn-base |   37 -
 ...8a754d2d345bdf0326098af64fa3d0830.svn-base |   52 -
 ...deff4a7cebe92dbc6eb0d4c308f5e22ab.svn-base |   66 -
 ...4ccafb59c773b5cc791bbb80fb9f18a38.svn-base |   37 -
 ...ebff82db6b6be3918f2972aaec267347d.svn-base |   74 -
 ...d0b4803a8e0aeec9b4ec6eb744e07c0cc.svn-base |  268 --
 ...86e8312de73f02d329260bd8505098057.svn-base |   44 -
 ...49277b5b45ec728119ff59dce90ccdc38.svn-base |   55 -
 ...25a41602ba1e4b7c2940f2da1364c45fb.svn-base |   75 -
 ...4daff4add8a125eef43cf47b18ce3fa93.svn-base |   26 -
 ...f99da1579ced5a146d5de4a1ceafe2394.svn-base |   66 -
 ...852120a87926d002f84a242504e7a8991.svn-base |   75 -
 ...3dd9e4c094e993a7056338fda5a2ffcdd.svn-base |   73 -
 ...3a8b9f97c580cd478d4af948cff4292af.svn-base |   16 -
 ...65d6eb528cc193724fd73329d20bc9b20.svn-base |   25 -
 ...24fc74043774c6e3e5cf37697154bb275.svn-base |   25 -
 ...c660ddc245a59780a0f8cd2eb86245f91.svn-base |   89 -
 ...88dd50ae6f490b5d29a45c2da26aa33a1.svn-base |   83 -
 ...62925f1b7a6c1912edb5b32501c1c3be0.svn-base |    9 -
 ...89bc0c2ad512e7ab5dd1465bd49e6325c.svn-base |   30 -
 ...974de03277af93283450d3cd69442305f.svn-base |   16 -
 ...6c36118a41cc4f27af3b8fa4df485540e.svn-base |   23 -
 ...1d93be9f69c80dd3c86e17e8de9c85873.svn-base |   51 -
 ...9abc81fed4a908387ceb1f796c4ca34b7.svn-base |  186 --
 ...52fe227df9f91ff5dd9f7f8dca7aa03c4.svn-base |  126 -
 ...a39802f59b226eb2f9e7b61aca911d70f.svn-base |  129 -
 ...95b767bb2bd09cec93254db8c47bcf682.svn-base |   52 -
 ...e12d29bd6992d11881c17811802c970d7.svn-base |   42 -
 ...6e184abfad4fc6ed780291942cea3ee92.svn-base |  112 -
 ...1dcc27cf4abbcfe1df59aa324df755383.svn-base |   35 -
 ...daa6d544fb663be62c26ce5d8e9e998be.svn-base |   26 -
 ...1782ade88a4004e18dce6acacc948a3e8.svn-base |   86 -
 ...8f9c9c48294e0d7a4e64f5afa49e02724.svn-base |   70 -
 ...1dbc0859a7de685aeef535a048805ca3d.svn-base |   48 -
 ...7ecafe58c875f9fab1467adcf3b058136.svn-base |   80 -
 ...1022274d7a1717f9a5adfb677504d55a4.svn-base |   30 -
 ...a32448a3d0c6ac2423e54ae0233c9a0cb.svn-base |   73 -
 ...800e2f951d5e12fd5b042d061c170d94f.svn-base |   76 -
 ...e92c1dc4ac0922e8efd892aaf7f23876d.svn-base |   25 -
 ...e4cfa875c1bbb506fc0203c59f9e83003.svn-base |  225 --
 ...73dff1891b2122ebdca4a2bdf5f23d5d9.svn-base |  Bin 3317 -> 0 bytes
 ...3f9a71aa8d6e2da97dbc7c87c955c729c.svn-base |   80 -
 ...6036f5f3001524ae84157a0c906c2790d.svn-base |   52 -
 ...70b911ce3131070211120e88d8c365634.svn-base |   41 -
 ...11e69af0f29518deaf1dacbe74284fdbe.svn-base |   41 -
 ...92be68c191a34c3ee7971deb0a4c27bf4.svn-base |   77 -
 ...40ca26e51ca9db982af9a586d1e0b85d7.svn-base |   56 -
 ...dda336a421c1fc15d8dbb2519d2a5e65d.svn-base |   79 -
 ...499f9ab2b366f598f961d8ecfd13925f7.svn-base |   25 -
 ...15dc25915abba0f8d7c97474269e040e6.svn-base |  152 --
 ...d519f4ac2f1e67ef6e142dde79c0aec1f.svn-base |   49 -
 ...4b602d1d6d36d95826e55579b10037539.svn-base |   66 -
 ...4531d04e5dbfb1375ed694a18caba11ef.svn-base |   74 -
 ...1f02d2e82b43855d89f6f193ade7b9197.svn-base |   39 -
 ...20d6f2a5eacbd41802fad590bb277381c.svn-base |    9 -
 cpplapack-r198/.svn/wc.db                     |  Bin 827392 -> 0 bytes
 cpplapack-r198/.svn/wc.db-journal             |    0
 814 files changed, 65812 deletions(-)
 delete mode 100644 cpplapack-r198/.svn/entries
 delete mode 100644 cpplapack-r198/.svn/format
 delete mode 100644 cpplapack-r198/.svn/pristine/00/0013303c862da2e4a0388c9ce483dc3634364e70.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/00/00553ab36ac0752ab9fbdf72554629b0ecf2b4dc.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/00/006a09b14e20f83bfcc37e9885b6f33eff85d46c.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/00/006dcc7a468909a296e9e70527c68a3c81df37df.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/00/00966895ce976d768b6c9ae8b64657609958e246.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/01/011bc1776e869b8da4ec06e83d5f810789bba656.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/01/018792524be52ab1d4282380feabe9d3207e12b2.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/01/01b23fa646d120ea2b44aad30a226fe91cd6bb2a.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/01/01f3f666b3279f6fd88f910e438926abd5a9895c.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/02/0262df855071e6eb1a0e0d90f887dd14a5519909.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/02/02cb39550f69a30df8690545764e99bb5a83451b.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/02/02f5fd034db6056df628c71d9530bc0eb9bdf3be.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/03/0313faa67890db9285f0b6bea8f2efc6ab367dd7.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/03/038926d860db19f97814c9af7552d7329cce1162.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/03/03f000cf90a5cc45b53098cc892ce00622f6a7ef.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/04/0460c589f3977ab3841af59b41b1a22490e29f0d.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/05/05a336bcc4a3c561f806e36f564977164ca736d8.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/06/067e450c7fec620da893085573d850cbc0cbd8ca.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/06/06ecab1cdf7cc0f52bb77f9ab953fab8a9728e26.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/06/06f57ff82602124fd4b0f9fe92731e33402e7f85.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/06/06f7ef4e4332aefe3551c83de06a627b389ba749.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/07/0724728c475d4dacbaf3cfbc1c952bee2f00deb4.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/07/07ab887997a9292c7d9039c46ab76c3ffed2b96a.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/07/07ca02f9c5cfdf23607cc28306bb0b09706d7658.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/08/083b9348c4b30001e43047744bf73150bf52b34f.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/08/089043f47acb773190a6a2d9edb62d580607855b.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/08/08e120fe5c96f7d5b31b57bca0bfe260590cd185.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/08/08f8e24f9512eec35e7e039e639ea85977928064.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/09/0943bb83150b189351d2f7dfa1689ec3be4465bb.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/09/095bbe45184e66911685554a2cbb77f5440c1545.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/09/09708f5d014e60de0cea70b1b90c3fe2a70c8286.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/09/09924cc97d61601aa3e13e2a92b8e93bf0ad502c.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/09/09a4271d06bb6e976b5ca47f774b1801d4585987.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/09/09a83d3dd9bfa0fc825a1c3ac784885472bffce0.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/0a/0a37eb7fb2b37981867231f056bccf404c93d321.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/0a/0a6c95129aedc96ff1d336422757ce0591261352.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/0a/0affc6f02f8f9ee7a57313b778c9d9c76f8a0eaf.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/0b/0b23f11eabb9ee309f766c756effc019cea48a6b.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/0b/0b6649fbc38d98ab44bff8bcf74ef8c5e6762107.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/0b/0b6ca2226739cc982ac3b3a87381f54d071e1259.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/0b/0b81a25a8e4fd065f95cb0362d2d92811b4e36e0.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/0b/0b95be583d3c5325385dddb0d644b3517ba21cbb.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/0c/0c5d76d1344b58eb98494f1c191af1e31b0e39b8.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/0c/0c8cd851b25902662180170357af97343a7fd8a4.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/0c/0cd5026388dd38783e0a43d09e711a37fa836adc.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/0c/0ce6471ac1f19f2e936cf9780172e653f5e2e4af.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/0c/0cef1705bc005748538ab1c5c3fe27233275f767.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/0e/0e0bc390046ac16199d7cc6601fba85f26aad89d.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/0e/0e41e94ad786e9e9243347625f489a29283b9b24.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/0e/0ea7d04e0bcedbb35f4b86825568601dd2aa1b76.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/0f/0f239d17f8d1a270b255891045597ab4c91a0630.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/0f/0fa0e571d27e44ae5c85435eca884f5d2644b51c.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/0f/0fef21b82fc0896d3c963b7492a7c565d6df9b7a.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/10/107bb5141ebb5ea9e5ef321f06dbbf0f519ce68b.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/10/109c48a83176c692037609f839e94f8e0287d36d.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/10/10f9508cb6651c39cb4884912394ad7df95cd5e0.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/11/1131fe8227b780577961060a0e3198313e87172e.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/11/1174f3be59bc640bfd8b1bbc6c0393121d3c610d.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/11/11fa21c4b9563393ac931aaa32b1d464a503ff52.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/12/123e64439e51515abe6350d9a5e5c4f479f61d30.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/12/1290c40e434aff8537a412adb3da2ae671a7201e.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/12/12b4f8b9ad1d7fd5972ba84088e8fa009d4ef319.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/13/132e66fd53071d5382c162729ac32d03c6521806.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/14/14357e05d517bf7c03f5fef359a554428696ebcb.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/14/1464e442fc08f299f525b3ea231afd1145022ea0.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/14/1472c5718f0bfc2e60881082b719b2af94f2a350.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/14/14fb986ce3a4b373a8f6a533d8d7e1b4788a4a2c.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/15/150c44188f6362b0a3db56060cefcdbf968aa622.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/15/15a1b92cd184177c303b518454a2919c1e50e71d.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/16/16594a8732c88b000af05f311d9c6e354d33ac19.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/16/166598d0040ded6644e08cac7782fc6ab487d040.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/16/16b63d5e7632ef38187e7345f994a6ad3ad6d16d.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/16/16f43a7a35265ea155bf87e8768e033f5127d1f2.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/17/17558489bab02f118af2ba28b27b36b78e6e9eef.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/17/17dd75e1fd65e0fa01543953cb99ba10805210ad.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/18/1838382096dae7bee12cf1af02a511663af11c78.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/18/1898fe569202f5149711d827e613ca2002cfab44.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/19/19487274053553221385ab55bc57d5f1bf99ae64.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/19/19a0dfc49779a7a52fcd70f7b0d2838be76e4d9b.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/19/19ccce35b2aee2986f6937f71ccc4293d871c562.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/19/19fb70159cd20aace7e7f9912ed6e965cfa4bc60.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/1a/1a0489bca6083f8bd398e662995358e3c4899e69.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/1a/1aadb91aa4c860871a243fca2002a3bd8b52ba34.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/1a/1ab3993a5fc79cc1ce78da670b173deee64bd391.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/1b/1b23632de69757c61b0e58cb47fe7e83e1736a43.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/1b/1b8401b65eb4530afbe3bfbc3a489e00412580b0.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/1b/1badd32a8a959eda14e358ab178c6843723ff3ba.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/1c/1c0e7506fb7be9abedba5eb8df9e3e40a21580e3.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/1c/1c32112b1be56ba0e4c98cec5e02877eef53095a.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/1c/1c4555e42cca438a89b5b7f655e2697034779996.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/1c/1c6bd24af1793c0968a5edc251414f62c8c3608f.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/1c/1c93f492792865b928cf8139e51866ff7f9cb21f.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/1c/1cda490b76a233506737652758a11108c876180b.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/1d/1df48c9c52cac621830258d7dfcad35c1532ec1a.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/1f/1f1f82515c4e131718a5bc76318b5a28c1d6c8d4.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/1f/1f8a07a9b208da33a8040edc7d909ad840452333.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/1f/1fbdda1060de3bdaf855e75cab07129c839b81ab.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/21/2124c4e4449d5b87d0c828bca8fe5c2cb94162aa.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/21/212fb4027a1a77e84e423629ee4fb5f2cc4e2f76.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/21/21ef75da36a28dcdb2a57b9d37a230ec7bb30b84.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/22/222116defa4f5cedc9c06a7ebfff319ed1e49f4f.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/22/2231fb021d91610cf4cd30a422ee3c4a2f6d302c.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/22/22ac116c244f48c916503b82a8405342372bac09.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/22/22cd2404ff33e5542f5ffbe61707fbfebe407841.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/23/230a0fd1171b6cc90b8b33d2c21163893b3c6094.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/23/2345b84a785dd9f012c42051238b4234f0a08085.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/23/23bd85cb2e0a167c0fa26fecca0c80cb94b1e0e6.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/24/2435bd68f1ae2ee487cdd7f0e81915e0576275a7.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/24/246b7d42dd7343347a8b0b1b18849acb9dfe5728.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/25/25437f317b9405d52d9350951a31e18087af808d.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/26/26672c7e08e6ac4a7344aade5774ccb80924ec87.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/26/267b49f5553d38769c66194d2f4014aacf8859f1.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/27/27788abf4cdbd20a8c722cbc1a98c48239ce5658.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/27/27aeef49872ab85f8e8c3e25067f7f0c6c858e08.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/27/27da72d991bd888f410e98c35c42b62204f099f8.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/28/283578f3082fd7df4407df26277a4ce22d2b0605.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/28/28e2dad99be8cf8d066d0bd3abddb88820b1a582.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/29/292eb3b3aa6af60c8b041dbea78d1f8fe64c9f86.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/29/2952b9bc84c67c2edd0c0a558a2f1c7e25e9eab0.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/29/29ec0c4812990d83aedf5a708fbad86907fd1541.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/2a/2a621cd6c1b6995fc5723a65d270dd1a631beb78.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/2b/2b6f12daf4dfe0901aa8aee173f2b7875362156b.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/2b/2be10ba837cf4ad0ffabe9ea9c987061e74f5495.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/2b/2bf67a858516cf7d96ce5e858ce5139e562a4f1c.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/2c/2c46db2c0d06cbc4b1393dec7f38c42fc8076f2e.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/2c/2c7c22484ba72868dd47e115b37f350fc3c72ac8.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/2c/2c85e0e11bf1860dcbe434890264e9e0910262c8.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/2c/2ce0ac4e236c8ba3ee5c4f25c4574dc36d1da324.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/2c/2ceccfcd981b0195a84f1f0f188258e8de1eb2db.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/2d/2dc0b457f7ba35b0066d191578a8333a42f1c3f0.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/2d/2dc9c4b87691aa85fe174ec3d63ad9fb5c0852f6.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/2e/2e303f99e74aa03243d0cb86068fab3813ed8ae5.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/2e/2e356455d5486c38799bd9d9bb622ed119f335f5.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/2e/2e52bd51319869d1a511a4b712d08ba58c1521a9.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/2e/2e5ccc487bebf29b1f0299106f3948823181ab92.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/2e/2ea2a05f69597f31d35b452aed2f9731d2a1f8c1.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/2e/2edf659211225752b491efd0e47a4442fb5a970e.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/2f/2f06eb2a0d1bdd7636b58ef2e6eeb114102de1dd.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/2f/2f524bd95d1ead8ca1adb3e5cc04acb062c9402f.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/2f/2f95513f787d6ad3e9b92f00d44b7be77133d0c7.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/2f/2fadc4694aac62d5712f342b16432be5b87cb9fc.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/2f/2fe1cacde9aaef4456f54ff6398127bd4c518d62.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/30/30c88ec14047d3953b0ba8c2749200be2dc43521.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/31/312c9f7246bcd8a1d836adf1c05efc5ccbc3713a.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/31/31408c1a29f79450f06410f319488ced2868442e.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/31/31dc12899c3bf351979822817b26c562e1940073.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/32/322355965d2607b757119b9faebd2aae77c69239.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/32/32bd1f8143bcf2b4d0e5cf98b9d8789c05fbd75d.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/33/3364beaa2268d64ad3e7a891aa2acb765ad6c37e.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/33/33750fb8917a62cdd6ff967a1027db002308db1f.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/33/33af6500790fe96a3025b76d795b68bbe3e3bb14.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/33/33ce4169a33dd02e684ce284e6d306dfc7f0258b.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/34/343ebf6e1f97b039039f7392fdd30da46e65b4f0.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/34/345a5d70c2556ac529ffcaeff514075ab22bf678.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/34/34cf3d3d1f0e802eadcfa16126f0a1cf483f3428.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/35/351c2de08b96cd47ffeed6818bd5775f8edfc4de.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/36/3604e6c9943062d1462c9d538547de95e338040f.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/36/3636490f3b51aa029592b5730436682afb19c129.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/36/363cb4c4de6e402adb36d2d4722386d6c01612f1.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/37/378c50d078c50965dcae49d4bdc152974d14fb26.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/37/37b6f58aebaaae1b665e318acc8eaa27501683f3.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/38/3811a6b22adfe03baf1e7d86d7e8e8d38dd2e657.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/38/382b0d17e0fbbc9d729eb03d3a98e2c1af8cf267.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/38/38452f9148a92928f972ba39024f6e7b11e07a12.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/38/388944c89e8a6c406636b4a6c7fff0311fc4a356.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/38/389e1b20481e909f8978f88336d38ba5fbf88e22.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/38/38a40611536785485dde4b83bd42c3e24c121772.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/38/38cdbb8dc03a1290d20a164207777fd1511f0fc9.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/38/38cef6ad80b4a684538b9832fe9443effad3a3ff.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/39/391b1759703cd08c09fbc0f4ac41ff7fe0e4bc4e.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/39/391fd8a4a7e7a5c2d291284c126a078de0561f92.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/39/39b4e5206d1b55f196cc71a49c95230fae40d5e3.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/39/39f148e9ed02089ce4e517cd2160e477f01ee722.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/3a/3a10799836a5f7b1dda0f1920fb8aa1abd9de93c.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/3a/3aeb852415a2ad7aad3920a35ae75dd516fc3993.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/3c/3c0387f7c8b41f1255264b6291a4604e91656447.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/3c/3c3d34a4e73113c989f0441f64b1bda3539d2f0c.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/3d/3d08fd156a888f53477d3ad37b26cdc28eab9359.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/3d/3d4ae814da494edec78dae872f2e4042b3534803.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/3d/3d6f3094f4eb461d9a77e39a247a1989e9989d95.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/3d/3df6c62b0608eab5d94c1ed33ed2be14baccaf73.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/3e/3e3e4a9e3b350dbf15e24d126304ceac1ea7d66b.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/3e/3e82ffdafdfbbab1563d0099aa3067b6bbb95bf0.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/3f/3f70d36ec5fc0ab5201bac05e299f89a83f351c9.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/40/409bfa139def74b231254e7913d242c406518837.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/41/4112be592d77744d97c15098616d7d6ed37c4cec.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/41/414411a7dc08762abf8b91c5fea8a584b3c6cefa.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/41/41478147eb1d24628e0584063447fbce88d24b21.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/41/41a24267ed201059a29a8fd10c12ceae81a437d6.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/41/41b367f92900a6dc1f05c041367dd6cbff18389a.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/42/42104d0d33001c277e85e3820db55b4719fc581a.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/42/423337b1cc8dff18c2fda667ccde5c32fdd7871d.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/42/429972f2209ddaa22f39abca37d26a3234d35d08.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/42/42bff0fdaf2e4ba18626408b2637f0f9816ecf4b.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/42/42d69b629179a127d3ada13dd1844b132daac4e5.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/43/434d07749d0ae86835c515a77b3528e0f4007679.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/43/436058cad873dcce87deb5cd867504c1379d3d90.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/43/43a4a89e00a9fb00ea8abe4bacfd6a7b458b940f.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/43/43d383b2fec61f020a64e91f15c532853058dc9b.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/43/43e39dc014bd3d3ae945a3f7e19bbf13c59f008b.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/44/441d4e2f846f203aad8d540f8243d0406b785cbf.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/44/44bb8d90c5778256d563bb4ab9c0fbd0577023fa.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/45/456eeef12d5ac8401e6f381375936125e0c4db19.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/45/4576b5b49ce2a9b5a7997a4c8244315d523ca67e.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/45/458d2f0c08920baacb48ef3bfba8b17aad4bb66a.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/45/45c1fa72db1d8cacc1ed37031b8c96b9cbabd9f5.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/45/45c7bf611046a67b4b4373f7a519d2ae0c98b341.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/46/46034aa17e73f96b3bb05faf878dbd7d92c27bcf.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/46/461c1d0c5a43e90fd32bb9331e624f3f30caae24.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/46/462fe16912fca201c13c6938ed37544d50dc2870.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/46/46717a2d929ed4fe4d142a7191d202f9bad83660.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/47/47a0a8ff3421ec3b941b1a02477473f8a38dd937.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/48/482fd6b861ded5e86d772e39e7d4aeb1af1ba41f.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/48/486304223ba3dec74418b08c6ca1262dbc6b2917.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/48/48afe1a0bb4768b3fe13c320e245befdcd5e9c7f.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/48/48b9811fe89abc41198a534ddd97366081db1059.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/49/49c4e5b1614f0ad0891f479c3b2ceef9d248e109.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/49/49cebd584108eb8fb71ed97700adc900d766b47a.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/4a/4a7eef395e65c203ff59b76bccdddd3d7fef50fa.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/4a/4a98f63a75511be1f18e0f7e11cfa5b428ec4714.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/4a/4ae8a24ec3579c7a9465a25693aeb00804558260.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/4a/4ae8ca06c3bde2f03c2ea710c0d453397575d036.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/4a/4aefc31a2062cde38a17782495e8ae80999b084c.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/4b/4b4f304cb1b3ec095ef8b25284e53eb987d9a0d4.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/4b/4b5c339c8588258822ff402edce2e4922bee1f02.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/4b/4b8eacc13cf55890f9c0933b02825aab21a7c71a.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/4b/4bc5cde01a91d73a08238b59103614f660c6fa6a.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/4b/4be0f2fa660322927d08083257c95c769d7c261b.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/4b/4bf04bc6349176c83fa25e31b277918f86274aea.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/4c/4c1de7b3eca4eaaada686af9ae3f79f824aa2783.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/4d/4d3ba882f65e0262b256823529cf426b75b22dbf.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/4d/4d933faf06891a77f4a9269537cbbe9d36afa1b2.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/4d/4dc6be0f9804701137124cbbda625455ba566142.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/4e/4e035ab2474a70041fce17a1ad335ed38914c908.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/4e/4e6b8cd07ef6456780ad90276d22593a956128b8.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/4e/4e9a1c6d5dc89c785a43d135e75b52eec37e3fb0.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/4f/4f1d3b578a63dd94217d577c1bbdd41f9904281c.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/4f/4f6d6720970c51a83c051237fc5d7b20a08fe82c.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/4f/4ffcdb17d461662626bae101fb9749c70bfca7bd.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/50/50042064fd4b5aa919bff79cfff430821487c1b5.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/50/500f83abd04ed4b652e1dd583c90f1bd35abe0ae.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/50/50698d4f1f16985244deaeab492a2a452f6b3624.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/50/5071ab22b5dba585588c78bce72becd9c795ed1d.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/50/507e2a3ee36be618775136cc3cbdb59eb7112289.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/50/5084c5e3771fb6da754e0beb718f67eb10834dcf.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/50/50dd391fa25390f1a73973b7e6fd1e39e0e0f42c.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/51/517ef98807b18e5012534489409e44ef8cf1b8ec.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/51/51b25d075f93c641bc254626ac438cb849897adc.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/51/51dddf87d0030f67b35d1d50d1e20f2953c0d36a.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/52/521af338432649b4599bcd758c5f9a12b9cadbc6.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/52/524961c227febc5525e58de16d4622b47aaaeafa.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/53/5362f797b2e996b9354d5add8f7a9f756d1ab5a4.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/54/5404edb105441e4e89ea1be8810a4269f484159f.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/54/54aa7c37a9fb8ea2c213a8cc1b265bda60e5cc18.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/55/5584dc7977ec90049f80f43e899ce926b29dfce4.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/55/55be3b79ec840fa66390c6c6c28c1d2214eb4cd4.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/55/55c6fd59e808f8ce0a775b4a733b4224f7acf6d8.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/55/55d748e7f9b174a433209914f0ff822fa33589c7.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/55/55db70ee71c699c0d8f1eb91dbcfd13590de404f.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/57/57b3dd6dd9c30bd492b461cbc3104e143458cec9.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/57/57e29a42947a607cadaa5823b7f33f4945ffca72.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/58/581a4ed98e0373107664d24c5769e086cac631bb.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/58/583520883abf9b26c98f0ba63ccc7066c020c362.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/58/585ef9d8d72e9adf4ae0620314bfd1d592685e2e.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/58/587b79f1c2f3c2bb05747a47d2c742b4e492ab42.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/58/58a495cffb24a399a5e8f9d23f6e49681dd7f2b1.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/59/59196703759d8839abff0faf702da0ee41a77857.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/59/598076280f50d771f7ec7f6b1160ef68a08b6876.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/5a/5a13b1f3c0a3912379c253e6304d0688065a41ec.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/5a/5aaddacb2da452b2bbfd20972ff2de1a0c04753d.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/5a/5aafeb42eb0370895c2b945fe00029d322253621.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/5a/5ad6ddc307e277ab1952fb27faf129022cf20fe4.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/5a/5ae3763895fe7d8f81a8480672d65c65a6344666.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/5b/5b6e1855add727ad52ec7bcd2ca0ca0a8c2fa815.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/5c/5ccddc596f4c8d822f53e0e7b861cd3b9e15ff27.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/5d/5d2353f0de666cf86c897cb5b5b44e47a5138b91.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/5d/5defd92257d4d7c7681d3984312c3f0fd7e34de9.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/5e/5e087e6c7d1faed945260fbe2a0ad885e613b630.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/5e/5eec2a2f4a791a0927887bbc5ca4a392c378940c.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/5f/5f2fe3a6ae108aea12d9074894a6ef7b8a4b9181.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/5f/5f4e99cd15a40d3f558b9d6aae50f3009b5358f6.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/5f/5f6d144ecfe3e3e8cc5cf92375c8cd6eb1db595e.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/5f/5f6dc984fd69773d72f01f3bd8da69fba1a63e3b.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/60/6075a0c1f885f7b81fa22bdd57ac8ec0ddcced8c.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/60/60e5aceb32fa52b73e81552ade7c3dcfbcdb6669.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/61/610a6d8d7f4c3d3b208f89d90d8c6d0ea2b5b769.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/61/614a17eb10e9221e93f4a0c0ce08420c668f722d.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/61/618b3e8185ba64c27ef5b3d6f6cf96744b2cdb0f.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/62/62188c51872f9c87c0ea27bf86fefd327785f974.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/62/621f2177bf7ed18cbe633c24f7e7757a3174f0f5.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/62/6240fd4a2f0a14669a85fde8d2caffa9670dfaa7.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/62/625e5f1196d67051e39945eaf4540e8b7e9c0678.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/62/62b8e8872b6e9cc2b9785a927433723c6cf72be9.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/63/6303fef3e4c1be672bfcb7abbaf36738719e2618.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/63/630b4be479ab3322cf381d0e1536b5e1fc1ecb9f.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/63/6341f8e32f6482fd5d97ac1bfdd444116798d099.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/63/635ff7eec35e4012e38d33b7b8e4f002c1ba4022.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/63/637c59b1dfb4992ecfd8f172486c81f19e98cfd9.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/63/63a0c4a8602e51498670ad0d5e3afa4277a794b0.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/63/63ac3f145520e4ed403663298de1967adbba3f4f.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/63/63e09a14593d65f3cb717f88eafc051c44333d87.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/64/643875e637bf65735c44531f94e8d96b5f215716.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/64/64d2c99bd25a7519fa2ca86e4fb4187ea37ad9ca.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/64/64de2b925bf0529c4ffc7b367b80f54100d21c01.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/64/64f0f69149f1fbfab6a0d92d867a9081b770297c.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/65/65038a8945285ff7abe977d7c78fcaa039f62e4f.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/65/6511bb7adda4370b2369a743d8e1174d21c6205c.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/65/6554a5286ba4a1fac3edd0964c41eb1570994ae8.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/65/6589e889dea35b826c74fee44be1c61d6b93e965.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/65/65a90e8089847bc1de16738978d760aa861d0626.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/65/65bd4142a279982a392df56a0d542a0807b5ae1f.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/66/6611da8b50aa2a71b5ec5a6252293e8474e900ea.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/66/662dbd240b20758d02505aade9f1dbbfb300bbc8.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/66/66864d6cde52080839a2bcde3f878e2f27948233.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/67/6711236ba6c81210e93af8b46b5e3d9f70176a27.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/67/6736d65c2a3a849b9c8ca6d9d85aa0dc0072c417.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/68/681def88fcbe00ae011674a6339458de9829befc.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/68/6840681386a8409b4e024ce7e2189da262d97e61.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/68/68453b524eea13e059b4091f1c3ca098b831f558.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/68/68a5065ba845df562bf0a7d11df9f81c61e63b78.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/68/68b45158ff18674ff0c7254b7dba99eb9676b32a.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/68/68e3db5b6f71045d5a6fab03ade554fcbf7da634.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/69/695cbe977bcc3b0306502eb067bdf81c8af687da.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/69/696a2b134d99a65b08255c87ae914f645c11497f.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/69/698a9c061703f52e227f3bdf7a5e541d36fb9939.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/69/698aa3ee2bda970e065f5909a4b5dbe857afdf9c.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/6a/6a282cbdb39a717da205e134be6627cdcac83bf5.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/6a/6a544bfd1f115c158e8f0bede237acda58fbbac0.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/6a/6a69af273eb6a134d6c6cb54c5eb8f982b703afa.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/6a/6ac2823eb3b68cb47182c9d4e0a1d79179626f0f.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/6a/6ac9bc249c55976c8f997a91e7ce9445f4b6ed7f.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/6b/6b3da5c0a6f3846eded4a3ad112a4f65c36db7dc.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/6b/6b7ed97f9f0a2e319eff709a3613aee173edec1e.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/6c/6c07fc8990c458f498a25de0237b06b206d96ca6.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/6c/6c1eee77220598b47b8328c802b1ed310d1aab81.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/6c/6cbfb9e0f660c53c9ccd8cab66ee006f59ff85c1.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/6d/6d1b9d9925614a08c3035d6bb29aa50cfe3151c0.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/6d/6d23affb77536b3d60dfedc993f54e33273a0150.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/6d/6d3ce712044af715adfa3d0a60406b71a04e8dff.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/6d/6da224748cc99c2da50ac79b7d025cfc3e0d6629.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/6d/6dec26f31cb635c000e7d266bb7ba0a172a55623.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/6d/6dec4e491a4c2a9077d361432e98864089966a0b.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/6d/6df12e96d917be2ed4759ddd2e95fcae37c4f04e.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/6d/6df222688dc2b79ad99a34957dd92f41b8796f20.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/6e/6e5b96bb1269d09348eb8d84cb8af573f2f8bcc4.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/6e/6e789611efcc1e2baada812cb8e26849798c4d1a.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/6e/6e8b40e4bbb898c2ca3146c340984ff9a8aeaed4.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/6e/6ea1933aad8c4e033671bdfb197a6499b0fb9298.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/6e/6eb6ef5675a5e205bb760caa4eb16f86863a59b9.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/6e/6ec5f8e5794b0e8d2c1cc4e218959fce6ce9e5f6.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/6e/6ee8590da43125eadd7ca6296c387ca19dfb720f.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/6f/6f261e8b35c84ac79cb19e8c4e5f67c4809c4a0a.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/70/7023b7eb3b5eec0f5c9995524eb5bc1085ddc192.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/70/703be71630666f3e8fb68bc8a62d9e39b9643c36.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/70/709df5684d14ef09bf3c8c330ed41e2735ada902.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/71/7111f28e443592ec0aa665bc9693da6e87a47cb3.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/71/716564eadcf74368262ee13766d26a5981c7c0de.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/71/71cfce7ed8085570d72da5e3a439c3ed91f1034f.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/72/729441c8a212415ad1bb4aa806abcc147aad004a.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/72/72aaf09f5b9c89a3d18e0506d5eba4ae50e3ab11.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/72/72bd5eb13043aac06369f24a0b9a39ab673ffe4f.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/73/730e361435ee1808af207272d92b8c503b4e5239.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/73/732a1eb3ba8866fd7f85c38e03b30f4d76f9b5ab.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/73/73b69299f29e5547cb4efb9b7bce055538e4ee16.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/73/73fe37362e12221a4fb355618e4aee6d339c0d72.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/74/741157d28f5d7633ab97e3693b255036457c6ab6.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/74/74119b63e623f9c8d7393c8727c65d493e37834d.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/74/744144541a42899b66b56484160f2f017b73cfe3.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/74/7452ca86f2dad993d1da91185e48a3dcaedc38d9.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/74/74858d77623a8706c8d9d66b0498a9f6eeb34b6a.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/75/75813d2ecc17271323194fb794de0a791b6a3398.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/75/75ad00df1f33ce4291a43b31d94c1bd21f26ed7a.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/76/760b6f5dddcc1a2b834797328598c03050c67138.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/77/771a6b224774b90d79ffb837b5db81e46d625117.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/77/773fff42361533fb5edbe501b1298dd48ca16b95.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/77/7779aec690a59cf637415f48c45e58569b9c235a.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/77/77b127a725a4f15c9a3be40e1ad0910b120525a4.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/77/77c7bc60952e87a2df995208d041dcf4fccc611a.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/77/77cca1325ece50a6b426ebb7c647e0156ccd4bef.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/78/784dbbad6e9079a8c5bc368fe2a9a6e21ba2d6b6.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/78/78f2faf91370dac7b9f4ebed9989871a50c211f9.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/79/796538d2d4a7097fb96a605d3fc71f45ccbb9858.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/79/7989116864f94938bf5dadafdf3c10571c7a8ba7.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/79/79891de5cda4d8f30379a011fc45f62b340cae4c.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/79/79aaffb5dc71fc34511597cab5bfe51e837cae49.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/79/79bc3b82963ecdc65ed5b0bcf492aa6b384a3b83.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/7a/7aa659b1bca1b249ac0780961a35ec36e94c5dea.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/7a/7af0d3d90be449756a63bf512ba10d84c341ffd0.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/7b/7b783f5322d58dda351cf2bdc474d69f8c72040c.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/7b/7b814d08bad878c35bd132fd025d850c13d151ad.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/7b/7be82f314e204d754747d135fdd512da86c6536d.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/7b/7beb78fc4567e9e5cb05ce69b5e4467f369f02b7.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/7c/7cc34a7b1ee11e4820fdf2e4ecbfbde337c29ea2.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/7d/7d4a867797617593aafebd85616772161c21a355.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/7d/7d78139c5563f7940f73c704b60510342c2194ee.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/7d/7db6f397ea9444ad092ad5f5a0c1b1a5c9b02910.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/7e/7e23e1b3c83f5c16e705b41fec9996942f5e2cd9.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/7f/7f0158e5540aa46e4a1f55cb219c096799c37d44.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/7f/7f5b5530fb54cb6c42640dd5d439591eb2ea7582.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/7f/7fd6ce1caeeb13e375e6015a1863c255235c1ce7.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/7f/7fdce7ac13eb29ce20c3f01ecd3c1257240cb6ff.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/7f/7fde3ee0d068d3cd793a7d52a327fffdfde4d937.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/7f/7fed0f42b9bb408c6bf7297e7a6f94731ca5c60c.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/7f/7ff8baa22197ed4d1119a3ee788205df0aced813.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/80/80726ac45305f73787977d648b6614e86c5ed4b4.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/80/80a41a2e8dfba97afac239b3beb3da19974d4721.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/80/80ad04972e02036e58bd926380b6afb51218f44c.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/81/812dc673d2b37f978c61396c96ce7d70ba961cdb.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/81/816def3d8c52dd6443238c75bd6f53129d201d63.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/81/81a9225d0997725798c308bdd551aa28287081dc.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/81/81b2b642d9c432401036b6e7f951dd2860c45d69.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/82/8251f0bc39d26c09b768c22da01bbeb1aa54f487.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/82/826c057c870715ae81c26bbf96bc91f0e24f1edf.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/82/82ad6562b7c57cec52aea598ccaa87210c46b0b5.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/82/82b71dc329f63662cd778ae46647ed3ad7434113.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/82/82d48ad036ddbf08c8bf16ed3a285d10bb2cc17b.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/82/82e344ceb61733107564a7c063411080c78eac3d.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/83/83148350c0c587f28c221ce44f5925bb40136a22.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/83/8376bcc2e771d6d06299946209f5bd834aa4d5fb.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/84/840399aac0b9e018aa04f1f2c50b3a1539a504ff.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/84/84152da1c19a554527ef29c973eb60130faae10a.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/84/841d9de76718d437faad0d2447b17c8dd4c16284.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/84/8467d1bd7014bfd19981d6348d3bc1f85fbcf75e.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/84/84ae6e68f23ee5dcf1d25ef98ed49f57d38e4ba5.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/84/84dc69449959db2a2e7ef5115414c14c2a21704b.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/85/8534120ccbca980eaedc0fcd4787e43a46686a7a.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/85/85693cad404575dc6cbd0f599f299b476b9f795a.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/85/85f7a503fb8f877637b7c0834a4e248ec6e1988d.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/86/864d0582f41076133ba54a581801e5800d5524e4.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/86/868ade341183c4e9c5a6ab50262311fdd4664297.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/86/86fdd747fc012d34b0a4d365776646e53e8e9a5d.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/87/874933fa546ce216f80f4040f88d2c06c550d90d.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/87/87ac05875dc2c2f31e54ee6cbfee4255e8bdf5a6.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/87/87b6b83a679700ce45d5031af690725e0a861c7a.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/88/8815b52400e50f22b97b89e0f853f4c2c5bd204a.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/88/882d154aef5e7b6d4529b13821d939dda4d29ea4.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/88/888ab6a8fe6fe66e62ea829226345b9512733322.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/88/888d074427a164304566f6f0a4d6a4b1d91adf6e.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/88/8896eb9e6191a24db8fbf8a501231f8063893429.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/88/88babc41a37bde24250a92845b3f4a3c9d5cfb19.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/89/8960e60f107152c9e940497311c0af05af88961b.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/89/899ce857a401c9d55a2adfb066b91515db2b9dfb.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/89/89b146f3bb5cd720a8f405fe5ef66488274acf09.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/8b/8b32c9922291c2f3a4b4d96eb367215463f94a9b.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/8b/8b39767093abc92df6bb324f3fe322dfe7af998d.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/8b/8bbf087a959178c771da9e5ea9d3cf0ad2676d89.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/8c/8cbe7365a484635448ca20ac61f97f886a6899f4.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/8c/8cd5e148373a29beadf7596753aed7efb580189e.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/8d/8d44ee5134fe9b09f680adc8e26195e3b90baaed.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/8d/8d4c8d2f17a061010f65f2f4195626ac2df73b65.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/8d/8d7f8e373ca802b619e8e839bd3081c6c37fbae2.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/8e/8e024e2d9167eb1033bdccf0e5ce3f4ca8e02ba4.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/8f/8f19ace7a1c9e04cf3e458fc13429b0366a5f957.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/8f/8f7b75d15f38357643af88b69e50bc7755fd5a62.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/8f/8f7e9230857435f70d0d2fd00688e30bd1a12574.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/8f/8f8cc5cb77e7fb8b1327bb0e59d97e44e0a05698.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/8f/8fdcd8f3f57aea58b0161399d8b08ddaf36f892d.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/90/902c79a5d0641cf46d7a2a3fcb8c40e3b0714c3a.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/90/907409f44892a682a9365c75d3aa318ddc59778a.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/90/90d1da47f45bf2a701ef4fbf015faec6b0576785.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/91/9162cba0275b35a4fd711d7dc9b3553886a11c9d.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/91/91c6d4f88ee9d62df02f188f4bbc9aed156a756a.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/92/9232e77a9b9c8d0f59b206cdea24b10d199a897a.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/92/92580771ded8568eec71f9c17617c8c26b535543.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/92/9291ac7f2e652d84ba17af8b3b38ac4b2e0e1f70.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/93/9380e280c295bf923fab3a95b1ece20bf34cabd7.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/93/93d0bfee0fb27c377991b1cc3add43d38e8a570f.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/93/93f9588f841586cf54f1ee622b417fdf25fd3f79.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/94/941a88b22156ba5b109e0816a652e49b4967d963.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/94/94764c41151f9a19fa6241552e05e6c72d93c396.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/94/947b441be13ff2e54e9a1114cd070e249b538869.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/94/949e462cc62149ca2cb3aff1def0b065e8998332.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/94/94a0c76ef66468ba460303a58631385e1d37e870.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/95/953a971ec84071a130b96d6b582ada8543803c55.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/95/9588af124f793280e72efd514a2be0a814b0280c.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/95/95d5bce391702559cd495197a6cfbd971b1c39fa.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/96/96132b6b5db343e508d916768657ea110264971a.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/96/9614e749d44431c0cecff7e279fb95114867e2e6.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/96/9626ce778d8af86d6e68432f4895481be5c184e4.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/96/967bf43af153b72235d6e0e65f3435a1e9932d35.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/96/96b1585090d86e4c92f97fad436facf1858e06b8.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/96/96e289a6e6bd4aa499eabd6781d96574ffd84be5.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/96/96fac8993a9ad349e3a5f5cc5e61e7dc41c09338.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/97/970dd964ebcab2e6da0d9308d853fee78e98c8d3.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/97/97240d4d40f668db5dcfd3119d5c7f936872e263.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/97/97f2ad9731fbb44dcab9c5602cff951248456906.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/97/97fee6b354d4bde6dac0c511e066ff7824c871b6.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/98/9864a637fa63790fdb0f6ee7f76c1921bcb22e86.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/99/9911b81c02552e4587b2b8c505118942d0aa503e.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/99/992bb12481a4cb31789713976f7afa9a17efcdcc.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/99/9977bdc81d7cf9888b5b251e12bf05d96c0929dc.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/99/99a31026758bba22abe4674534309584489ddcce.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/9a/9a0b251036fd8d6a9dbeb4f3fb38235e853b9984.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/9a/9a445007d2f0259a598a77a99de53b5c49f3ab4c.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/9a/9aa3fbd83dd86b3cbbd8efb1ae78c771442372eb.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/9a/9af10718deafa736814f1609ad3ee16cee34caed.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/9b/9b8bcb63e39b3a89b7d1e7d1ea6a355688d3dd58.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/9b/9b9562c5245bfea69cab9fcabf64d64e00416911.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/9c/9c183e65a0d5dd1bffde0ff1d8822fbea7068d7a.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/9c/9c392daecb43ff6af77173f93774e9f0f0a369e1.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/9c/9c5290eabe1af6d890eb96b59e51ad615f8467a5.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/9c/9c73100e3a6953bb50f6a9254ae37c02d1a064be.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/9c/9c944d8e5a962ab9c0ab94691ec5af4de718650f.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/9e/9e62e8a83c71913099aeb128b02ed14a2785fb2f.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/9e/9e99463e275477f2e2adbc055d6702c2bde4c04b.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/9e/9ebac4022aa94f87cc3559d06ac0a1195fdde7a1.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/9e/9ee3eada55f0a4563ca5b6a2125ca9e8683a26ac.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/9f/9f120d20a39fd78853d922fdf6c2deda0e480dfe.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/9f/9f53fb1ab4d5d1824efdfca0603ea076f8de4cd3.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/9f/9fe333424401b9d028d8deb3c213d703af54cb93.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/a0/a05135aa9e12cf42f1f7e1467d20c2b111b080b8.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/a0/a0f373803fc14115d477ca08cab9ea4730e81d01.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/a1/a1e90765fb4015b47e04f58596e22f829e915726.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/a2/a250ce3d33d671866e1ffbe7837c9d9af151e4af.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/a2/a2de093a81d273df1b9b25d1260cf2d30310880c.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/a3/a3618a61babb8929a13941ca942a28a94439c137.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/a3/a37bb7a8b63f1dcdf3e43a2bf9e2b2d7792468cb.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/a4/a459e40eda30cb7a21ed1802afb12c64d1bc6943.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/a4/a45ca659f1a287ce1b8f2199247cbd101a80997d.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/a4/a47948470a332439f2cd30d33f589f37833f2815.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/a4/a47eb88ae8beb915da4802d257f2f7fb6304fbb9.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/a4/a4adfd17d01830b0ce2f85d691da3b2cbfaa953c.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/a5/a52916efcae4b9fb51b82872aa84a7519a3477ee.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/a5/a5331b1ac4d7d7160ed1a11b601a3f6a3a63818b.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/a5/a5420738c2999fd6a18f6e744fa22ceb42ef7162.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/a5/a553ce577d16f62b797b56868b5fcf052626abdc.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/a5/a56dd9fc36ae66c856e22e24d8827efe68ba057b.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/a5/a5862a064be8b62b02c9ef27b3cdcee02e59824f.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/a5/a5deb86b5f169638c1f5bae3bfb2c437d3bd38d8.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/a6/a645ede2a0c9bf5353d2a934185736d0190e0e78.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/a7/a7489c14a962dd3fce8431d4f8e18d2b0cc5090c.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/a7/a7816cf51d012ef4ded62d30059cee1e39815e9f.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/a7/a785542beb976966aa9e20c7f4078a695288bf55.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/a7/a7bbccd54d8366d6e73ae37572e7666bf78c4c8e.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/a8/a83009609996f5a2451e02311cc0908ac7f154a6.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/a8/a8ced4e9c9f66c89db11b65455bfe929f2b3dbdc.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/a9/a97deb2b04a59b9901bd33283b92dd33f55ecbd5.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/a9/a9a429ab03b5ecb328caa8bedbec04fd6f8f87ca.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/a9/a9addb498e230700b636c09839a04edebee4e651.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/aa/aa9401d7724830512a56fccc17a9755f97f04443.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/aa/aaf2d33bca9e3e84bdcb8cc425056122852ba5df.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/ab/ab4e51cec1d385b7f62dcd8878fea92909ec24e7.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/ab/ab94e8ce5fe6e7d57fbfef87f17c993a685dd4c4.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/ab/abb81ecd86d59357fd94a65c5f477a1f063c2ed2.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/ac/ac67701d5e5891541e2ec7568e693d86f7ae63f7.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/ac/ac68a4acaaf5cb43d7d698d7e47b56d9f31ffa7a.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/ac/aca22b99ef452886fba14f9a93e65ae415bdbd29.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/ac/acd651d14e32ab582f14052990bb70d05b857714.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/ac/ace7ce112ce6757a1e9f8851bc28e49e6c84d4fb.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/ad/add0f5b569d55a25398ff18342bacd387a6feee5.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/ad/add3351bfe76333057c06198a88674c6a28cdbd9.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/ad/addc96a7f2207b14e81f247c3724a98be9379975.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/ad/adfd04b92056852b9faf5839edf31f9fac50d7d4.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/ae/aee4d3c164f0ad22ec57d5120bcfdca304b24e83.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/af/af36aa0aee3818cc07f79211140be8cf8e9a1183.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/af/af650cfc58edaabff409603d1e06039eaab69aeb.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/af/af8a980d0e6a170afaef99e3b7d562d709b52804.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/af/afc9a304a0cc903d7664497576f0c58c2207a52f.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/b0/b00c47a9a4d6c3abb380e471d397c522ba7f7ac2.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/b0/b01fa84fe02382cda2e2b418bb0feef00429ab08.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/b0/b0e1b1267a1ea4877937f4aef09cef04018da578.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/b0/b0f6fbb1eb4bb7048f8154e320ae4b25d0566d50.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/b1/b1d21598d54d56badc64ca0188dfb786641e44dc.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/b1/b1fafc3bc849a27c1c6c06de7fa37426b6c40c48.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/b2/b23ab873b060685e19bdeaa505772daba2ab9974.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/b2/b2af91ccba84cb79f10acfaf0f33212649a0a337.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/b2/b2c7ef243ba7cd406ef7a53584826021d8c7d0cb.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/b2/b2e0b9660a6a3be26b9e2e6302c80a893fa12f1e.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/b2/b2f0948d36ffef90aa4b25ac353ae6533c6e19e5.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/b3/b30ca5a4e6bd56d1357b54d00164375864146fb3.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/b3/b3428206837ad63eb020086926ca24fa930b650a.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/b3/b3c37fee1f1684102a34700f334f2d12fd7bf9a4.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/b4/b43ecd04adcd9383bfc29e65ff2499574f913f6d.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/b5/b50adaff4bea05dcc383a7e928d8bd0ceea18883.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/b5/b53016b6c694a0d78b48042c77f42cd124e5e87b.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/b6/b6451f6ccc308d0d0fc331749d770c5cf94c6d01.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/b6/b6f7a6bc1cdccda82dfa65a4f1e3f89e5fc62b2a.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/b7/b72576b8ec244eb1a8f9edd59b4b458275810316.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/b7/b737cf379e1a32026ce444a97403ee6552ece677.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/b7/b73ea7d94fa60e35ba86b576f07c01358657789a.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/b7/b79cf0dcc5af9e54b7567b8929935b8765b89f40.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/b7/b7a5cca42710b9b541bf6a91baf48694ef729abc.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/b8/b8e758bd222b770dac6740c80d7ce374f82c0f79.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/b8/b8fc0131c15785bdd788231c2b330f91757a9caa.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/b9/b90ca4222c7b834a7f0e371328c7e791989d5b49.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/b9/b9194e75c927b98edd7ed22882110ef366894d2b.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/b9/b97662ceb815705a4734e0f0100b0393d951a56a.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/b9/b9940976dcb0c857945adbc488b901a82cf0db99.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/ba/ba02b9316f36636681682a581ef8cae6fdc44be2.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/ba/ba3a7fd79484776b67b9c816c78560987803da0b.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/ba/ba6a00c0a1272bc2aa6e0dcdb182f9a348e4b70e.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/ba/baff396424fc3154242cef41d84ccdad6f7f63ab.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/bc/bcd19fab479731e8b9adab8369818f8aa10075e6.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/bd/bd2518e98964e210354944a2e6abd7c775139c9f.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/bd/bd4184a9f385cf061685eeabeb38a375875eb3a2.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/bd/bd4bc55815e8d68b8ad7cdbe632a9fcc6384a923.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/bd/bd667d3adcccbbd5a66993cca36a2297b6badfe2.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/bd/bd8f1cf3c1646d5b528660afaefff53c4d10d41e.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/bd/bdade9897b41384b8b4822b3c269914a7e2fcdb4.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/be/be5fc4c32c82ac945aa39ebddc58ec29b3db62bd.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/be/bef73c8c5cb547f36777941e08521b9b5c2e6eb4.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/bf/bf2bd2444e18436454a06afe639b1abd8a8f66cf.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/bf/bf903e03ff8ead8f22d598f493d35a30e1669536.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/c0/c015b79e18332c96395f704ade236a14acba2dd3.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/c0/c073b519542807681e45e5796d49295a76e5a6f9.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/c0/c081944b143238d14207d5b697d665bcdbba7bd6.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/c0/c0f8ce29713f2f44f460bda2a90e7ca3edaffc88.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/c1/c1cdf020f7593ea92029d258a6a9f8eaea81bbde.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/c1/c1f37db5423aa6eb4f0d8d705c77485818d741ea.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/c3/c3aa3ecb374bcde9164d6456e65beb8cb0e6d843.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/c3/c3b61418408e355791c8c092c1e9a523d0aebf11.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/c4/c4efb26d291f5eeda4d9aed4cfaab254aa659921.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/c5/c5260f4ee34b16fa0d35d91099d45b9f898cda68.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/c5/c53448dec08b0a3f675dc3621b3deadd6c8c53c9.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/c5/c5439591b8991cb69d0d113b28fa666d1ad4d1fa.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/c5/c565e88516e0bf490cd86e4663f6632f33f75a5c.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/c5/c5ad99e83281a00b03948daf3950746f1c5780f2.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/c5/c5b0b0c7e34eb817f135b4f3f17a277767a219f5.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/c5/c5d57abaa2bcb4652c3a61edfca4dc57b96c01bb.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/c5/c5e109434040b0de660213fc0c4916332248e602.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/c6/c61162d55a3c2d238119d09905cc792062c2608f.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/c6/c6610e37a996f5a6c025df07c22dac7b93ef3115.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/c6/c6ee09c2356bb4a9f81620db30d6c4e6aa559570.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/c7/c74a7985c45aec4e05b441c04a7e5220b83bf0bb.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/c7/c7ca1c8d75ef0b16be9435240cbd7af802fc83ff.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/c8/c80a2a07f7220740e01a97cb9f3b62dbaeabf9ae.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/c8/c8359f4f7c3fb37ad216d46a4884342eb4da77db.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/c8/c874d0e14048010efd381af4dc9f9680d128dfc6.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/c8/c8841c66a6e17b0f59bb8a04e4899d9cd5946196.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/c8/c8be23493ae3cba3e88e895397d9839491598ce1.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/c8/c8cb445c39c4231850a031529c511d7d6ab4639c.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/c8/c8d033bce0c9081cfc366c169af73ab3097b67a4.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/c9/c961c05101c265f07b47e1bc3657f6c1f148545b.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/c9/c96667597674c8688b42ab0eaf11ea92920f1290.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/c9/c982b02e548abc635f9fc55a72604ff7a79a5fe8.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/c9/c98cf8215dff9f8bf69fd53dc77b9337bb0c527d.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/c9/c9e7af626f88c46694b9b611ed12e5533d38a1c7.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/c9/c9fdc12ce7ac8768c688754bb78978226b430106.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/ca/caa603f45cf8d14f6b053919dc06ccbcd33e95dd.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/ca/cae3f13873da92e4a8378e45895678271297db8b.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/ca/caf097571a2538bb84399b2db3340fed0b083cc4.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/cb/cb577b1cd1dab796d1e62adffc57bd2a6fbf95be.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/cb/cba2f00bd146c404af122fa83d227f1554141d47.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/cc/cc078d61a70bda17c8aec63c241d577619ccbe10.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/cc/cc0dcad9d9fc2cb35b536e8f316adc466fe8f2a8.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/cc/cc3c9419f65e69e9a57333d364ea054e03f3daa2.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/cc/cc7081597ffbea7661c2b8ea3f5255dde5fff3ef.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/cd/cd41c7a834678b657004388345396143c1850cce.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/cd/cd6231b1bfcf201110bdca4c35780db90616afed.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/cd/cdc5ad74fb17735812e263c3c237b86bece109f3.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/cd/cde335bcc7750a33390fed8ae3684c21972735da.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/ce/ce7ca9f2c94c802e346ec1fce1097bf4d11bf592.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/ce/ce9955e40aa5b85dc1a03c1f5c64e818b91d53f0.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/ce/cea1ac740b3741f011edf45964354888e8a74747.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/cf/cf2bcc178238259a2318c0fbcc71ebae48da7ff1.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/d0/d0627cb6640ff2c9d6a6aeacf1d64e1071bd8f7a.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/d0/d07977870e780f499a79fe0ac9029aefe2bb10e4.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/d0/d079bce838d53ab4b409f361e49ccdcdf04ef6b6.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/d0/d0eb247cf9813a1613f87a0bfc4e0ee0b62c93d0.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/d1/d105207769a793051389ed8cfcfee84b90aadd0a.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/d1/d164643526650cfa9600962753f18ffa5b56317a.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/d1/d17e901947f17713e881b0b59ba2a091474614a4.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/d1/d1ce10b657ca2d6798adccebe0fa79d8376e176f.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/d1/d1d452577be10fb96799bca8e3f043fe24969e68.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/d2/d206cb976fd8dae16ba1407e696a1b66cdcf435d.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/d2/d2155cd3f780cf967e5f0e851f6bb03ad61fe9a9.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/d2/d23b51dd7e71b4270476805f8699ab736ec8a5a7.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/d2/d2eaa839e49f36cb62b1caa6987bb0c88d19afb0.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/d3/d341740e1c6450813255faaf52526173dbf65bb6.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/d3/d3820eeedfb002a3e797adbce2c65fa63a9bc02a.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/d3/d3dfa8e8a051659157dcf494ce557998397fe6d5.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/d3/d3e20912cb9dfad7ebcafef65507ead23e6b7638.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/d4/d4899fd7a1211f478511d3ece98a39f0ea427639.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/d4/d4a6a8a33f0599c4f46f7d60fed70e3f3dcdc396.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/d4/d4da3458a836bafcd5779b993dcc5adde36c21e0.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/d4/d4e1dd542a1ae4b7858ba69d989403e9d1be4133.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/d5/d52e59149d20daf3ef105f177d63dca56162943a.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/d5/d5a6fb7b7023c72eabd74f8e47bcb2222604fa49.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/d6/d6098062a05b606fee3c49378e1470d3814a7f04.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/d6/d650cd1ac6b52534fa64e42285749b3633848eaf.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/d6/d652a916952a1984f4a7ca525c981aec8a66f7a4.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/d6/d6b25a095d47fd3251e36e7eb17c129f0fa9eea5.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/d7/d71259569e9b913155b32b3add962e1afa7121e1.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/d7/d78ca33b8cdfd3a8ca7a85e15ef027aebbfa2eab.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/d7/d7cd71d16fb3429777518f44a352c98f3e04e8e1.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/d8/d82472bedcbbc9e97dd5e8887c6ff72c05fd9227.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/d8/d8360ad672e2cef191a70818441297a72b775739.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/d8/d849f69e82aab219b3659b1dfdb2ae3ddf315ddc.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/d8/d8534f65186e929e6d9c326a084422512456d6c8.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/d8/d8c4c10be46bb8bd132c239ba44c716b0c13ffaf.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/d9/d933572afdba32c10612454d4b178f3538bb0368.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/d9/d94bc41bcc033f8c41f10c01defeeba6e8cbe529.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/d9/d9850d81ed80f6d56563b9e39faf01562521bbf7.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/d9/d99fc5a2a30637dafc2d5c5fca997e659b6c469e.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/d9/d9b30187181d42b42804af6c1a02d4a14f239ad5.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/da/da164c54c44397cdca8b394aab874e44e8d067ea.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/da/da39a3ee5e6b4b0d3255bfef95601890afd80709.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/db/dba4f8439c23f77b7db5be0e2640e7ea7e3b61c7.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/db/dbe465283e4848413b822c117144dff2298a2026.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/dc/dc829351facff7bcc314aee119bb1315d2f4f61d.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/dd/dd2bb9d546278d4f69e114a32e99ce9e8d14f155.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/dd/dd573a2ed0f2a7c8bd4c7772323378afa1907128.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/dd/ddc20d5a9d6513d369e28390e22a8ebc76dd682a.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/dd/ddd621d2fb6ee05ddaabfc65a0314f520e147e4e.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/dd/dddce256f4aa67a2124bfd7b47e3c99533d56e65.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/de/de1a664d45312ad472e30d469b88a42b8c318465.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/de/de32ee47aabbd724821fefdade418d56376ab841.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/de/de4e67014960ad3b0d47ae5891ba22bf895e581b.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/de/de59c358f9d61a9ecb8d487ddf9bb4d0be727106.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/df/df0381167681ab81cbf5ac8a8f21bdc73ccc02a7.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/df/df1a68e4341b4070fb580f934587c5964c7d373d.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/df/df38886478e71e8a1f6922a9a3c53abb44a8eab2.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/df/df3bfe7dbbd15f5706c7d8d0c937f5ade3c43b49.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/df/df42fa7afc044c6e418e46404c18c677092da4bf.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/df/df4e43c1b57985cdc0fda4cd6b4e080dc2e239b4.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/df/dfc3518198989f7a0ee3d1463377101b2ab82063.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/e0/e057b2069a27ec118b34385e1809d80391acf29c.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/e0/e07216b850ef207375126b262fd6d46d43e11407.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/e0/e075d03b691e87484f432a82d3dc622d0dd0161e.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/e0/e08f01e628530cc8996317afcb6b0b4b52dfc1a4.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/e0/e0f996a295bb5189191871098791eb563eba4367.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/e1/e1279a58a3e224b1c212ea6c3d9f08db5d037ca5.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/e1/e12a23e9161b29141242fd0fd2326d88897520a6.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/e1/e13c3be93f8247eda58c7bf3af65371444846ff2.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/e1/e1e68b5942404451367c01ac9927a1b441a9070d.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/e2/e27c872aa886da9894776187c2280c73d2169faa.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/e3/e307da2c3968a2b87ed340e0d65c128b8c1af5b1.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/e3/e3ed1205506665ac177b23c551ef2d71c50bdc96.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/e4/e457c0ea65e301bf8b8fb5757bd322c6d7cb826f.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/e4/e47a9036fbd9bea2c6ba958ad7b1d50fc61895cd.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/e4/e4a1f2759e53e720501f34b110e616e1f4928c03.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/e4/e4f9f3cefac52eb0419ef09562342ea949a70357.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/e5/e56fb09e3adc70b10b26e5e9866ba1e0fb209826.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/e5/e59448f0993651371bd2f188732ff3ebc6fb29e0.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/e6/e66cf4c1d3e40114fc419b569a208c7884cc5295.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/e6/e6a9fe091c43894802680bdb6c94c154ad7d386f.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/e7/e737e9433c7d9d6d8a8226d629693c4030e73af9.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/e7/e7510d7cd9843ab66a284353e54534e863628cac.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/e7/e7cc57decb50608b3d0056118157052c554ffeeb.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/e8/e8063763a643f9af8c960184e8f671c42e5c65df.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/e8/e82e97f925dbce3e4c88e1ae2475b1d803a46931.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/e8/e837fd19c9000de04b24c1e582e05b4db05273e1.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/e8/e85f66f511b90caff8056dd105302a90f1b837df.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/e8/e8b8ffd2b6c379a753a6b276b40ec0a26a9c4ad7.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/e8/e8c6e169428083bd8532d22fd976b58ff81e8db1.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/e8/e8cfd7bbc6d78371ea1c2f867d2ec2e59e3905f3.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/e9/e9109079b057c9a2a021a2ebee75d899faa9f0dc.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/e9/e99359203cf64dc6b1d962dac87bf6d77e699d0c.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/e9/e9b35eef9b9e4e9a305db7381f0e8c3fd248046d.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/ea/ea263e2ee4e5940986c1e9a63ffe547464c2e412.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/ea/ea5c25025dfa3df1bd3c22d05a6f7561403add98.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/ea/ea78caabaf50b86bd0b2ed39918865764bac073b.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/ea/ea8e43670d06d21bba4cceac3f89e4db1649a2b5.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/eb/eb2631bcc2c6cb597acedcc6703bc8ba3bd6e7b5.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/eb/ebb356db9d79b959dde99cde3d5a56a6fb3f6c33.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/eb/ebcdde0047f67dafc8968bba0e1efbf05590e80b.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/ec/ecabc4c8a754d2d345bdf0326098af64fa3d0830.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/ec/ecc2083deff4a7cebe92dbc6eb0d4c308f5e22ab.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/ed/ed6f70a4ccafb59c773b5cc791bbb80fb9f18a38.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/ee/ee2dac8ebff82db6b6be3918f2972aaec267347d.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/ee/ee625f1d0b4803a8e0aeec9b4ec6eb744e07c0cc.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/ef/ef1ea1986e8312de73f02d329260bd8505098057.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/ef/ef2958c49277b5b45ec728119ff59dce90ccdc38.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/ef/effe7dd25a41602ba1e4b7c2940f2da1364c45fb.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/f0/f00f5c74daff4add8a125eef43cf47b18ce3fa93.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/f0/f05b8cff99da1579ced5a146d5de4a1ceafe2394.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/f0/f083e7d852120a87926d002f84a242504e7a8991.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/f0/f0910cd3dd9e4c094e993a7056338fda5a2ffcdd.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/f1/f10ae373a8b9f97c580cd478d4af948cff4292af.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/f1/f18334365d6eb528cc193724fd73329d20bc9b20.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/f3/f324d0d24fc74043774c6e3e5cf37697154bb275.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/f4/f44dcedc660ddc245a59780a0f8cd2eb86245f91.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/f4/f483bc188dd50ae6f490b5d29a45c2da26aa33a1.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/f4/f4bf09262925f1b7a6c1912edb5b32501c1c3be0.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/f4/f4d974e89bc0c2ad512e7ab5dd1465bd49e6325c.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/f5/f5e04ea974de03277af93283450d3cd69442305f.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/f6/f6010566c36118a41cc4f27af3b8fa4df485540e.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/f6/f6280051d93be9f69c80dd3c86e17e8de9c85873.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/f6/f65d5fe9abc81fed4a908387ceb1f796c4ca34b7.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/f6/f680c1552fe227df9f91ff5dd9f7f8dca7aa03c4.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/f6/f68302da39802f59b226eb2f9e7b61aca911d70f.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/f6/f69759d95b767bb2bd09cec93254db8c47bcf682.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/f6/f6a2c05e12d29bd6992d11881c17811802c970d7.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/f6/f6b92696e184abfad4fc6ed780291942cea3ee92.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/f7/f722a721dcc27cf4abbcfe1df59aa324df755383.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/f7/f74eaf8daa6d544fb663be62c26ce5d8e9e998be.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/f7/f75dfef1782ade88a4004e18dce6acacc948a3e8.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/f7/f7a31da8f9c9c48294e0d7a4e64f5afa49e02724.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/f7/f7f28021dbc0859a7de685aeef535a048805ca3d.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/f8/f809ac17ecafe58c875f9fab1467adcf3b058136.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/f8/f86dcd21022274d7a1717f9a5adfb677504d55a4.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/f9/f985baba32448a3d0c6ac2423e54ae0233c9a0cb.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/f9/f98ab3f800e2f951d5e12fd5b042d061c170d94f.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/f9/f98ee25e92c1dc4ac0922e8efd892aaf7f23876d.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/fa/fa02dfce4cfa875c1bbb506fc0203c59f9e83003.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/fa/fa502bf73dff1891b2122ebdca4a2bdf5f23d5d9.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/fa/fa7f5753f9a71aa8d6e2da97dbc7c87c955c729c.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/fa/fa81ecd6036f5f3001524ae84157a0c906c2790d.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/fa/fac100070b911ce3131070211120e88d8c365634.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/fb/fb78bed11e69af0f29518deaf1dacbe74284fdbe.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/fb/fbd326792be68c191a34c3ee7971deb0a4c27bf4.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/fc/fc49b1640ca26e51ca9db982af9a586d1e0b85d7.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/fd/fd6f992dda336a421c1fc15d8dbb2519d2a5e65d.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/fd/fda1a38499f9ab2b366f598f961d8ecfd13925f7.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/fe/fe0f78b15dc25915abba0f8d7c97474269e040e6.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/fe/fec05a0d519f4ac2f1e67ef6e142dde79c0aec1f.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/fe/fede6c54b602d1d6d36d95826e55579b10037539.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/ff/ff3af754531d04e5dbfb1375ed694a18caba11ef.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/ff/ff8fe391f02d2e82b43855d89f6f193ade7b9197.svn-base
 delete mode 100644 cpplapack-r198/.svn/pristine/ff/ffbdd7020d6f2a5eacbd41802fad590bb277381c.svn-base
 delete mode 100644 cpplapack-r198/.svn/wc.db
 delete mode 100644 cpplapack-r198/.svn/wc.db-journal

diff --git a/cpplapack-r198/.svn/entries b/cpplapack-r198/.svn/entries
deleted file mode 100644
index 48082f7..0000000
--- a/cpplapack-r198/.svn/entries
+++ /dev/null
@@ -1 +0,0 @@
-12
diff --git a/cpplapack-r198/.svn/format b/cpplapack-r198/.svn/format
deleted file mode 100644
index 48082f7..0000000
--- a/cpplapack-r198/.svn/format
+++ /dev/null
@@ -1 +0,0 @@
-12
diff --git a/cpplapack-r198/.svn/pristine/00/0013303c862da2e4a0388c9ce483dc3634364e70.svn-base b/cpplapack-r198/.svn/pristine/00/0013303c862da2e4a0388c9ce483dc3634364e70.svn-base
deleted file mode 100644
index ba79329..0000000
--- a/cpplapack-r198/.svn/pristine/00/0013303c862da2e4a0388c9ce483dc3634364e70.svn-base
+++ /dev/null
@@ -1,84 +0,0 @@
-//=============================================================================
-/*! dgbmatrix+_dsymatrix operator */
-inline _dgematrix operator+(const dgbmatrix& matA, const _dsymatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat(matB.n,matB.n);
-  for(CPPL_INT i=0; i<matA.m; i++){
-    for(CPPL_INT j=0; j<matB.n; j++){
-      newmat(i,j) = matB(i,j);
-    }
-    const CPPL_INT jmax =std::min(matA.n,i+matA.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matA.kl); j<jmax; j++){
-      newmat(i,j)+=matA(i,j);
-    }
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! dgbmatrix-_dsymatrix operator */
-inline _dgematrix operator-(const dgbmatrix& matA, const _dsymatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat(matB.n,matB.n);
-  for(CPPL_INT i=0; i<matA.m; i++){
-    for(CPPL_INT j=0; j<matB.n; j++){
-      newmat(i,j) = -matB(i,j);
-    }
-    const CPPL_INT jmax =std::min(matA.n,i+matA.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matA.kl); j<jmax; j++){
-      newmat(i,j) += matA(i,j);
-    }
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! dgbmatrix*_dsymatrix operator */
-inline _dgematrix operator*(const dgbmatrix& matA, const _dsymatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat( matA.m, matB.n );
-  newmat.zero();
-  
-  for(CPPL_INT i=0; i<newmat.m; i++){
-    for(CPPL_INT j=0; j<newmat.n; j++){
-      const CPPL_INT kmax =std::min(matA.n,i+matA.ku+1);
-      for(CPPL_INT k=std::max(CPPL_INT(0),i-matA.kl); k<kmax; k++){
-        newmat(i,j)+=matA(i,k)*matB(k,j);
-      }
-    }
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/00/00553ab36ac0752ab9fbdf72554629b0ecf2b4dc.svn-base b/cpplapack-r198/.svn/pristine/00/00553ab36ac0752ab9fbdf72554629b0ecf2b4dc.svn-base
deleted file mode 100644
index f27af06..0000000
--- a/cpplapack-r198/.svn/pristine/00/00553ab36ac0752ab9fbdf72554629b0ecf2b4dc.svn-base
+++ /dev/null
@@ -1,50 +0,0 @@
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int L(4);
-  
-  //// make dcovector x ////
-  CPPL::dcovector x(L);
-  for(int i=0; i<x.l; i++){
-    x(i) =double( rand() /(RAND_MAX/10) );
-  }
-  
-  //// print x in two ways ////
-  cout << "x =\n" << x << endl;
-  for(int i=0; i<x.l; i++){
-    cout << "x(" << i << ") =" << x(i) << endl;
-  }
-  
-  //// make dcovector y ////
-  CPPL::dcovector y(x);
-  
-  //// print y in two ways ////
-  cout << "y =\n" << y << endl;
-  for(int i=0; i<y.l; i++){
-    cout << "y(" << i << ") =" << y(i) << endl;
-  }
-  
-  //// print x+y ////
-  cout << "x+y=\n" << x+y << endl;
-  
-  //// write/read ////
-  x.write( "tmp.txt" );
-  CPPL::dcovector z;
-  z.read( "tmp.txt" );
-  cout << "z-x =\n" << z-x << "<-Should be zero." << endl;
-  
-  //// const ////
-  CPPL::dcovector X(CPPL::dcovector(3).set(0,1).set(1,2).set(2,3));
-  cout << "X=\n" << X << endl;
-
-  return 0;
-}
diff --git a/cpplapack-r198/.svn/pristine/00/006a09b14e20f83bfcc37e9885b6f33eff85d46c.svn-base b/cpplapack-r198/.svn/pristine/00/006a09b14e20f83bfcc37e9885b6f33eff85d46c.svn-base
deleted file mode 100644
index c66a35d..0000000
--- a/cpplapack-r198/.svn/pristine/00/006a09b14e20f83bfcc37e9885b6f33eff85d46c.svn-base
+++ /dev/null
@@ -1,140 +0,0 @@
-//=============================================================================
-//! Real Double-precision Symmetric Matrix Class [l-type (UPLO=l) Strage]
-class dsymatrix
-{
-public:
-  ///////////////////////////////////////////////
-  /////////////////// objects ///////////////////
-  ///////////////////////////////////////////////
-  CPPL_INT const& m; //!< matrix row size
-  CPPL_INT n; //!< matrix column size
-  double* array; //!< 1D array to store matrix data
-  double** darray; //!< array of pointers of column head addresses
-  
-  ///////////////////////////////////////////////
-  ///////////////// constructors ////////////////
-  ///////////////////////////////////////////////
-  inline dsymatrix();
-  inline dsymatrix(const dsymatrix&);
-  inline dsymatrix(const _dsymatrix&);
-  inline dsymatrix(const CPPL_INT&);
-  inline dsymatrix(const char*);
-  inline ~dsymatrix(); //destructor
-  
-  ///////////////////////////////////////////////
-  ////////////////// functions //////////////////
-  ///////////////////////////////////////////////
-  //////// cast ////////
-  inline _zhematrix to_zhematrix() const;
-  inline _dgematrix to_dgematrix() const;
-  inline _dssmatrix to_dssmatrix(const double eps=-1) const;
-  
-  //////// io ////////
-  inline double& operator()(const CPPL_INT&, const CPPL_INT&);
-  inline double operator()(const CPPL_INT&, const CPPL_INT&) const;
-  inline dsymatrix& set(const CPPL_INT&, const CPPL_INT&, const double&);
-  inline friend std::ostream& operator<<(std::ostream&, const dsymatrix&);
-  inline void write(const char*) const;
-  inline void read(const char*);
-  
-  //////// misc ////////
-  inline void complete() const;
-  inline void clear();
-  inline dsymatrix& zero();
-  inline dsymatrix& identity();
-  inline void chsign();
-  inline void copy(const dsymatrix&);
-  inline void shallow_copy(const _dsymatrix&);
-  inline dsymatrix& resize(const CPPL_INT&);
-  inline _drovector row(const CPPL_INT&) const;
-  inline _dcovector col(const CPPL_INT&) const;
-  inline friend void swap(dsymatrix&, dsymatrix&);
-  inline friend _dsymatrix _(dsymatrix&);
-  
-  //////// calc ////////
-  inline friend _dsymatrix t(const dsymatrix&);
-  inline friend _dsymatrix i(const dsymatrix&);
-  inline friend void idamax(CPPL_INT&, CPPL_INT&, const dsymatrix&);
-  inline friend double damax(const dsymatrix&);
-  
-  //////// lapack ////////
-  inline CPPL_INT dsysv(dgematrix&);
-  inline CPPL_INT dsysv(dcovector&);
-  inline CPPL_INT dsyev(std::vector<double>&, const bool&);
-  inline CPPL_INT dsyev(std::vector<double>&, std::vector<dcovector>&);
-  inline CPPL_INT dsyev(std::vector<double>&, std::vector<drovector>&);
-  inline CPPL_INT dsygv(dsymatrix&, std::vector<double>&);
-  inline CPPL_INT dsygv(dsymatrix&, std::vector<double>&, std::vector<dcovector>&);
-  
-  ///////////////////////////////////////////////
-  ///////////// numerical operators /////////////
-  ///////////////////////////////////////////////
-  //////// = ////////
-  inline dsymatrix& operator=(const  dsymatrix&);
-  inline dsymatrix& operator=(const _dsymatrix&);
-  
-  //////// += ////////
-  inline dsymatrix& operator+=(const  dsymatrix&);
-  inline dsymatrix& operator+=(const _dsymatrix&);
-  
-  //////// -= ////////
-  inline dsymatrix& operator-=(const  dsymatrix&);
-  inline dsymatrix& operator-=(const _dsymatrix&);
-  
-  //////// *= ////////
-  inline dsymatrix& operator*=(const  dsymatrix&);
-  inline dsymatrix& operator*=(const _dsymatrix&);
-  inline dsymatrix& operator*=(const     double&);
-  
-  //////// /= ////////
-  inline dsymatrix& operator/=(const     double&);
-  
-  //////// unary ////////
-  inline friend const dsymatrix& operator+(const dsymatrix&);
-  inline friend _dsymatrix operator-(const  dsymatrix&);
-  
-  //////// + ////////
-  inline friend _dgematrix operator+(const  dsymatrix&, const  dgematrix&);
-  inline friend _dgematrix operator+(const  dsymatrix&, const _dgematrix&);
-  inline friend _dsymatrix operator+(const  dsymatrix&, const  dsymatrix&);
-  inline friend _dsymatrix operator+(const  dsymatrix&, const _dsymatrix&);
-  inline friend _dgematrix operator+(const  dsymatrix&, const  dgbmatrix&);
-  inline friend _dgematrix operator+(const  dsymatrix&, const _dgbmatrix&);
-  inline friend _dgematrix operator+(const  dsymatrix&, const  dgsmatrix&);
-  inline friend _dgematrix operator+(const  dsymatrix&, const _dgsmatrix&);
-  inline friend _dsymatrix operator+(const  dsymatrix&, const  dssmatrix&);
-  inline friend _dsymatrix operator+(const  dsymatrix&, const _dssmatrix&);
-  
-  //////// - ////////
-  inline friend _dgematrix operator-(const  dsymatrix&, const  dgematrix&);
-  inline friend _dgematrix operator-(const  dsymatrix&, const _dgematrix&);
-  inline friend _dsymatrix operator-(const  dsymatrix&, const  dsymatrix&);
-  inline friend _dsymatrix operator-(const  dsymatrix&, const _dsymatrix&);
-  inline friend _dgematrix operator-(const  dsymatrix&, const  dgbmatrix&);
-  inline friend _dgematrix operator-(const  dsymatrix&, const _dgbmatrix&);
-  inline friend _dgematrix operator-(const  dsymatrix&, const  dgsmatrix&);
-  inline friend _dgematrix operator-(const  dsymatrix&, const _dgsmatrix&);
-  inline friend _dsymatrix operator-(const  dsymatrix&, const  dssmatrix&);
-  inline friend _dsymatrix operator-(const  dsymatrix&, const _dssmatrix&);
-  
-  //////// * ////////
-  inline friend _dcovector operator*(const  dsymatrix&, const  dcovector&);
-  inline friend _dcovector operator*(const  dsymatrix&, const _dcovector&);
-  inline friend _dgematrix operator*(const  dsymatrix&, const  dgematrix&);
-  inline friend _dgematrix operator*(const  dsymatrix&, const _dgematrix&);
-  inline friend _dgematrix operator*(const  dsymatrix&, const  dsymatrix&);
-  inline friend _dgematrix operator*(const  dsymatrix&, const _dsymatrix&);
-  inline friend _dgematrix operator*(const  dsymatrix&, const  dgbmatrix&);
-  inline friend _dgematrix operator*(const  dsymatrix&, const _dgbmatrix&);
-  inline friend _dgematrix operator*(const  dsymatrix&, const  dgsmatrix&);
-  inline friend _dgematrix operator*(const  dsymatrix&, const _dgsmatrix&);
-  inline friend _dsymatrix operator*(const  dsymatrix&, const  dssmatrix&);
-  inline friend _dsymatrix operator*(const  dsymatrix&, const _dssmatrix&);
-  inline friend _dsymatrix operator*(const  dsymatrix&, const     double&);
-  
-  //////// / ////////
-  inline friend _dsymatrix operator/(const  dsymatrix&, const     double&);
-  
-  //////// double ////////
-  inline friend _dsymatrix operator*(const     double&, const  dsymatrix&);
-};
diff --git a/cpplapack-r198/.svn/pristine/00/006dcc7a468909a296e9e70527c68a3c81df37df.svn-base b/cpplapack-r198/.svn/pristine/00/006dcc7a468909a296e9e70527c68a3c81df37df.svn-base
deleted file mode 100644
index cc1c539..0000000
--- a/cpplapack-r198/.svn/pristine/00/006dcc7a468909a296e9e70527c68a3c81df37df.svn-base
+++ /dev/null
@@ -1,73 +0,0 @@
-//=============================================================================
-/*! _zgsmatrix+zgsmatrix operator */
-inline _zgsmatrix operator+(const _zgsmatrix& matA, const zgsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgsmatrix newmat(matA);
-  
-  const std::vector<zcomponent>::const_iterator matB_data_end =matB.data.end();
-  for(std::vector<zcomponent>::const_iterator it=matB.data.begin(); it!=matB_data_end; it++){
-    newmat(it->i, it->j) +=it->v;
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _zgsmatrix-zgsmatrix operator */
-inline _zgsmatrix operator-(const _zgsmatrix& matA, const zgsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") - (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  zgsmatrix newmat(matA);
-  
-  const std::vector<zcomponent>::const_iterator matB_data_end =matB.data.end();
-  for(std::vector<zcomponent>::const_iterator it=matB.data.begin(); it!=matB_data_end; it++){
-    newmat(it->i, it->j) -=it->v;
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _zgsmatrix*zgsmatrix operator */
-inline _zgsmatrix operator*(const _zgsmatrix& matA, const zgsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgsmatrix newmat(matA.m, matB.n);
-  
-  const std::vector<zcomponent>::const_iterator matA_data_end =matA.data.end();
-  for(std::vector<zcomponent>::const_iterator it=matA.data.begin(); it!=matA_data_end; it++){
-    CPPL_INT k =it->j;
-    const std::vector<CPPL_INT>::const_iterator matB_rows_k_end =matB.rows[k].end();
-    for(std::vector<CPPL_INT>::const_iterator p=matB.rows[k].begin(); p!=matB_rows_k_end; p++){
-      newmat(it->i,matB.data[*p].j) +=it->v*matB.data[*p].v;
-    }
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/00/00966895ce976d768b6c9ae8b64657609958e246.svn-base b/cpplapack-r198/.svn/pristine/00/00966895ce976d768b6c9ae8b64657609958e246.svn-base
deleted file mode 100644
index 501cf3e..0000000
--- a/cpplapack-r198/.svn/pristine/00/00966895ce976d768b6c9ae8b64657609958e246.svn-base
+++ /dev/null
@@ -1,73 +0,0 @@
-//=============================================================================
-/*! zgsmatrix+zhematrix operator */
-inline _zgematrix operator+(const zgsmatrix& matA, const zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.n || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat( matB.to_zgematrix() );
-  
-  const std::vector<zcomponent>::const_iterator matA_data_end =matA.data.end();
-  for(std::vector<zcomponent>::const_iterator it=matA.data.begin(); it!=matA_data_end; it++){
-    newmat(it->i,it->j) += it->v;
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! zgsmatrix-zhematrix operator */
-inline _zgematrix operator-(const zgsmatrix& matA, const zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.n || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") - (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  //// shallow copy to zgematrix ////
-  zgematrix newmat( (-matB).to_zgematrix() );
-  
-  //// add ////
-  const std::vector<zcomponent>::const_iterator matA_data_end =matA.data.end();
-  for(std::vector<zcomponent>::const_iterator it=matA.data.begin(); it!=matA_data_end; it++){
-    newmat(it->i,it->j) += it->v;
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! zgsmatrix*zhematrix operator */
-inline _zgematrix operator*(const zgsmatrix& matA, const zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(matA.m, matB.n);
-  newmat.zero();
-  
-  const std::vector<zcomponent>::const_iterator matA_data_end =matA.data.end();
-  for(std::vector<zcomponent>::const_iterator it=matA.data.begin(); it!=matA_data_end; it++){
-    for(CPPL_INT i=0; i<matB.n; i++){
-      newmat(it->i,i) += it->v*matB(it->j,i);
-    }
-  }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/01/011bc1776e869b8da4ec06e83d5f810789bba656.svn-base b/cpplapack-r198/.svn/pristine/01/011bc1776e869b8da4ec06e83d5f810789bba656.svn-base
deleted file mode 100644
index c919a4d..0000000
--- a/cpplapack-r198/.svn/pristine/01/011bc1776e869b8da4ec06e83d5f810789bba656.svn-base
+++ /dev/null
@@ -1,20 +0,0 @@
-
-Microsoft Visual Studio Solution File, Format Version 11.00
-# Visual C++ Express 2010
-Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "vc_sample", "vc_sample.vcxproj", "{61037E7C-EF94-43D7-B5DF-74F1BEB33710}"
-EndProject
-Global
-	GlobalSection(SolutionConfigurationPlatforms) = preSolution
-		Debug|Win32 = Debug|Win32
-		Release|Win32 = Release|Win32
-	EndGlobalSection
-	GlobalSection(ProjectConfigurationPlatforms) = postSolution
-		{61037E7C-EF94-43D7-B5DF-74F1BEB33710}.Debug|Win32.ActiveCfg = Debug|Win32
-		{61037E7C-EF94-43D7-B5DF-74F1BEB33710}.Debug|Win32.Build.0 = Debug|Win32
-		{61037E7C-EF94-43D7-B5DF-74F1BEB33710}.Release|Win32.ActiveCfg = Release|Win32
-		{61037E7C-EF94-43D7-B5DF-74F1BEB33710}.Release|Win32.Build.0 = Release|Win32
-	EndGlobalSection
-	GlobalSection(SolutionProperties) = preSolution
-		HideSolutionNode = FALSE
-	EndGlobalSection
-EndGlobal
diff --git a/cpplapack-r198/.svn/pristine/01/018792524be52ab1d4282380feabe9d3207e12b2.svn-base b/cpplapack-r198/.svn/pristine/01/018792524be52ab1d4282380feabe9d3207e12b2.svn-base
deleted file mode 100644
index c901331..0000000
--- a/cpplapack-r198/.svn/pristine/01/018792524be52ab1d4282380feabe9d3207e12b2.svn-base
+++ /dev/null
@@ -1,18 +0,0 @@
-//=============================================================================
-/*! +dgbmatrix operator */
-inline const dgbmatrix& operator+(const dgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  return mat;
-}
-
-//=============================================================================
-/*! -dgbmatrix operator */
-inline _dgbmatrix operator-(const dgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  dgbmatrix newmat(mat.m,mat.n,mat.kl,mat.ku);
-  for(CPPL_INT i=0; i<(newmat.kl+newmat.ku+1)*newmat.n; i++){
-    newmat.array[i]=-mat.array[i];
-  }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/01/01b23fa646d120ea2b44aad30a226fe91cd6bb2a.svn-base b/cpplapack-r198/.svn/pristine/01/01b23fa646d120ea2b44aad30a226fe91cd6bb2a.svn-base
deleted file mode 100644
index 09d560d..0000000
--- a/cpplapack-r198/.svn/pristine/01/01b23fa646d120ea2b44aad30a226fe91cd6bb2a.svn-base
+++ /dev/null
@@ -1,50 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int M(3), N(4), KL(2), KU(1);
-  
-  CPPL::zgbmatrix A(M,N,KL,KU);
-  for(int i=0; i<A.m; i++){
-    for(int j=std::max(0,i-A.kl); j<std::min(A.n,i+A.ku+1); j++){
-      A(i,j) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-    }
-  }
-  
-  cout << "A =\n" << A << endl;
-  
-  cout << "#### t(A) ####" << endl;
-  cout << "t(A) =\n" << CPPL::t(A) << endl;
-  
-  cout << "#### i(A) ####" << endl;
-  A.resize(M,M,KL,KU);
-  for(int i=0; i<A.m; i++){ for(int j=0; j<A.n; j++){
-    if( !((i-j)>A.kl || (j-i)>A.ku) ){
-      A(i,j) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-    }
-  }}
-  CPPL::zgematrix A_inv;
-  A_inv =CPPL::i(A);
-  //A_inv =i(A); // g++ cannot compile this line
-  
-  cout << "A =\n" << A << endl;
-  cout << "A_inv =\n" << A_inv << endl;
-  cout << "A*A_inv =\n" << A*A_inv << endl;
-  cout << "A_inv*A =\n" << A_inv*A << endl;
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/01/01f3f666b3279f6fd88f910e438926abd5a9895c.svn-base b/cpplapack-r198/.svn/pristine/01/01f3f666b3279f6fd88f910e438926abd5a9895c.svn-base
deleted file mode 100644
index ac954df..0000000
--- a/cpplapack-r198/.svn/pristine/01/01f3f666b3279f6fd88f910e438926abd5a9895c.svn-base
+++ /dev/null
@@ -1,1062 +0,0 @@
-/*****************************************************************************/
-/*                              cpplapack.h                                  */
-/*****************************************************************************/
-
-#ifndef CPPLAPACK_H
-#define CPPLAPACK_H
-
-//=============================================================================
-#include <iostream>
-#include <iomanip>
-#include <cstdlib>
-#include <complex>
-#include <cmath>
-#include <cfloat>
-#include <vector>//only for ?geev, ?gegv, etc.
-#include <map>
-#include <fstream>
-#include <string>
-#include <algorithm>
-#include <stdint.h>
-
-//=============================================================================
-#ifdef  __INTEL_COMPILER
-#define CPPL_INT MKL_INT
-#define MKL_Complex16 std::complex<double>
-#else //__INTEL_COMPILER
-typedef int CPPL_INT;
-#endif//__INTEL_COMPILER
-
-//=============================================================================
-namespace CPPL{
-#ifdef  __INTEL_COMPILER
-#include <mkl.h>
-#include "prototype/mkl_blas.h"
-#include "prototype/mkl_lapack.h"
-#else //__INTEL_COMPILER
-#include "prototype/dblas.h"
-#include "prototype/zblas.h"
-#include "prototype/dlapack.h"
-#include "prototype/zlapack.h"
-#endif//__INTEL_COMPILER
-}
-
-//=============================================================================
-#ifdef  _OPENMP
-#include <omp.h>
-#endif//_OPENMP
-
-//=============================================================================
-#ifndef M_PI
-#define M_PI 3.14159265358979
-#endif//M_PI
-
-//=============================================================================
-#ifdef  _MSC_VER
-#define __func__ __FUNCTION__
-#endif//_MSC_VER
-
-//=============================================================================
-/////// ERROR_REPORT ///////
-#ifdef  __GNUC__
-#define ERROR_REPORT std::cerr << "\n[ERROR]@" << __PRETTY_FUNCTION__ << " in \"" << __FILE__ << "\" at l." << __LINE__ << std::endl;
-#else //__GNUC__
-#define ERROR_REPORT std::cerr << "\n[ERROR]@" << __func__ << " in \"" << __FILE__ << "\" at l." << __LINE__ << std::endl;
-#endif//__GNUC__
-
-//=============================================================================
-/////// WARNING_REPORT ///////
-#ifdef  __GNUC__
-#define WARNING_REPORT std::cerr << "\n[WARNING]@" << __PRETTY_FUNCTION__ << " in \"" << __FILE__ << "\" at l." << __LINE__ << std::endl;
-#else //__GNUC__
-#define WARNING_REPORT std::cerr << "\n[WARNING]@" << __func__ << " in \"" << __FILE__ << "\" at l." << __LINE__ << std::endl;
-#endif//__GNUC__
-
-//=============================================================================
-/////// DEBUG_REPORT ///////
-#ifdef  DEBUG
-#ifdef  __GNUC__
-#define DEBUG_REPORT std::cerr << "\n[DEBUG]@" << __PRETTY_FUNCTION__ << " in \"" << __FILE__ << "\" at l." << __LINE__ << std::endl;
-#else //__GNUC__
-#define DEBUG_REPORT std::cerr << "\n[DEBUG]@" << __func__ << " in \"" << __FILE__ << "\" at l." << __LINE__ << std::endl;
-#endif//__GNUC__
-#else //DEBIG
-#define DEBUG_REPORT ;
-#endif//DEBUG
-
-//=============================================================================
-/////// VERBOSE_REPORT ///////
-#ifdef  VERBOSE
-#ifdef  __GNUC__
-#define VERBOSE_REPORT std::cerr << "\n[VERBOSE]@" << __PRETTY_FUNCTION__ << " in \"" << __FILE__ << "\" at l." << __LINE__ << std::endl;
-#else //__GNUC__
-#define VERBOSE_REPORT std::cerr << "\n[VERBOSE]@" << __func__ << " in \"" << __FILE__ << "\" at l." << __LINE__ << std::endl;
-#endif//__GNUC__
-#else //VERBOSE
-#define VERBOSE_REPORT ;
-#endif//VERBOSE
-
-//=============================================================================
-/////// CPPL_VERBOSE_REPORT ///////
-#ifdef  CPPL_VERBOSE
-#ifdef  __GNUC__
-#define CPPL_VERBOSE_REPORT std::cerr << "\n[VERBOSE]@" << __PRETTY_FUNCTION__ << " in \"" << __FILE__ << "\" at l." << __LINE__ << std::endl;
-#else //__GNUC__
-#define CPPL_VERBOSE_REPORT std::cerr << "\n[VERBOSE]@" << __func__ << " in \"" << __FILE__ << "\" at l." << __LINE__ << std::endl;
-#endif//__GNUC__
-#else //CPPL_VERBOSE
-#define CPPL_VERBOSE_REPORT ;
-#endif//CPPL_VERBOSE
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-namespace CPPL{ //!< namespace for CPPLapack
-
-///////////////////////////////////////////////////////////
-///////////////////// class prototype /////////////////////
-///////////////////////////////////////////////////////////
-class dcomponent;
-class zcomponent;
-class zhecomplex;
-//////////////////////////////////
-class dcovector; class _dcovector;
-class drovector; class _drovector;
-class dgematrix; class _dgematrix;
-class dgbmatrix; class _dgbmatrix;
-class dsymatrix; class _dsymatrix;
-class dgsmatrix; class _dgsmatrix;
-class dssmatrix; class _dssmatrix;
-class dgrmatrix;
-//////////////////////////////////
-class zcovector; class _zcovector;
-class zrovector; class _zrovector;
-class zgematrix; class _zgematrix;
-class zgbmatrix; class _zgbmatrix;
-class zhematrix; class _zhematrix;
-class zgsmatrix; class _zgsmatrix;
-class zhsmatrix; class _zhsmatrix;
-//class zgrmatrix;
-//////////////////////////////////
-template<CPPL_INT>      class dcovector_small;
-template<CPPL_INT>      class drovector_small;
-template<CPPL_INT,CPPL_INT> class dgematrix_small;
-template<CPPL_INT>      class dsymatrix_small;
-//////////////////////////////////
-template<CPPL_INT>      class zcovector_small;
-template<CPPL_INT>      class zrovector_small;
-template<CPPL_INT,CPPL_INT> class zgematrix_small;
-template<CPPL_INT>      class zhematrix_small;
-
-///////////////////////////////////////////////////////////
-///////////////////////// typedef /////////////////////////
-///////////////////////////////////////////////////////////
-//////// complex ////////
-typedef std::complex<double> comple;//double-precision complex
-//////// double small ////////
-typedef dcovector_small<1>   dcovec1;//1D column vector
-typedef drovector_small<1>   drovec1;//1D row vector
-typedef dgematrix_small<1,1> dgemat1;//1x1 dense matrix
-typedef dsymatrix_small<1>   dsymat1;//1x1 symmetric matrix
-typedef dcovector_small<2>   dcovec2;//2D column vector
-typedef drovector_small<2>   drovec2;//2D row vector
-typedef dgematrix_small<2,2> dgemat2;//2x2 dense matrix
-typedef dsymatrix_small<2>   dsymat2;//2x2 symmetric matrix
-typedef dcovector_small<3>   dcovec3;//3D column vector
-typedef drovector_small<3>   drovec3;//3D row vector
-typedef dgematrix_small<3,3> dgemat3;//3x3 dense matrix
-typedef dsymatrix_small<3>   dsymat3;//3x3 symmetric matrix
-typedef dcovector_small<4>   dquater;//quaternion(xi+yj+zk+r)
-typedef dcovector_small<4>   dcovec4;//4D column vector
-typedef drovector_small<4>   drovec4;//4D row vector
-typedef dgematrix_small<4,4> dgemat4;//4x4 dense matrix
-typedef dsymatrix_small<4>   dsymat4;//4x4 symmetric matrix
-//////// complex small ////////
-typedef zcovector_small<1>   zcovec1;//1D column vector
-typedef zrovector_small<1>   zrovec1;//1D row vector
-typedef zgematrix_small<1,1> zgemat1;//1x1 dense matrix
-typedef zhematrix_small<1>   zhemat1;//1x1 hermitian matrix
-typedef zcovector_small<2>   zcovec2;//2D column vector
-typedef zrovector_small<2>   zrovec2;//2D row vector
-typedef zgematrix_small<2,2> zgemat2;//2x2 dense matrix
-typedef zhematrix_small<2>   zhemat2;//2x2 hermitian matrix
-typedef zcovector_small<3>   zcovec3;//3D column vector
-typedef zrovector_small<3>   zrovec3;//3D row vector
-typedef zgematrix_small<3,3> zgemat3;//3x3 dense matrix
-typedef zhematrix_small<3>   zhemat3;//3x3 hermitian matrix
-typedef zcovector_small<4>   zcovec4;//4D column vector
-typedef zrovector_small<4>   zrovec4;//4D row vector
-typedef zgematrix_small<4,4> zgemat4;//4x4 dense matrix
-typedef zhematrix_small<4>   zhemat4;//4x4 hermitian matrix
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-///////////////////////////////////////////////////////////
-//////////////////// class definition /////////////////////
-///////////////////////////////////////////////////////////
-#include "misc/dcomponent.hpp"
-#include "misc/zcomponent.hpp"
-#include "misc/zhecomplex.hpp"
-///////////////////////////////////////
-#include "dcovector-/dcovector.hpp"
-#include "drovector-/drovector.hpp"
-#include "dgematrix-/dgematrix.hpp"
-#include "dgbmatrix-/dgbmatrix.hpp"
-#include "dsymatrix-/dsymatrix.hpp"
-#include "dgsmatrix-/dgsmatrix.hpp"
-#include "dssmatrix-/dssmatrix.hpp"
-#include "dgrmatrix-/dgrmatrix.hpp"
-///////////////////////////////////////
-#include "_dcovector-/_dcovector.hpp"
-#include "_drovector-/_drovector.hpp"
-#include "_dgematrix-/_dgematrix.hpp"
-#include "_dgbmatrix-/_dgbmatrix.hpp"
-#include "_dsymatrix-/_dsymatrix.hpp"
-#include "_dgsmatrix-/_dgsmatrix.hpp"
-#include "_dssmatrix-/_dssmatrix.hpp"
-///////////////////////////////////////
-#include "zcovector-/zcovector.hpp"
-#include "zrovector-/zrovector.hpp"
-#include "zgematrix-/zgematrix.hpp"
-#include "zgbmatrix-/zgbmatrix.hpp"
-#include "zhematrix-/zhematrix.hpp"
-#include "zgsmatrix-/zgsmatrix.hpp"
-#include "zhsmatrix-/zhsmatrix.hpp"
-///////////////////////////////////////
-#include "_zcovector-/_zcovector.hpp"
-#include "_zrovector-/_zrovector.hpp"
-#include "_zgematrix-/_zgematrix.hpp"
-#include "_zgbmatrix-/_zgbmatrix.hpp"
-#include "_zhematrix-/_zhematrix.hpp"
-#include "_zgsmatrix-/_zgsmatrix.hpp"
-#include "_zhsmatrix-/_zhsmatrix.hpp"
-///////////////////////////////////////
-#include "small/dcovector_small.hpp"
-#include "small/drovector_small.hpp"
-#include "small/dgematrix_small.hpp"
-#include "small/dsymatrix_small.hpp"
-///////////////////////////////////////
-#include "small/zcovector_small.hpp"
-#include "small/zrovector_small.hpp"
-#include "small/zgematrix_small.hpp"
-#include "small/zhematrix_small.hpp"
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-///////////////////////////////////////////////////////////
-//////////////////////// dcovector ////////////////////////
-///////////////////////////////////////////////////////////
-#include "dcovector-/dcovector-constructor.hpp"
-#include "dcovector-/dcovector-cast.hpp"
-#include "dcovector-/dcovector-io.hpp"
-#include "dcovector-/dcovector-calc.hpp"
-#include "dcovector-/dcovector-misc.hpp"
-#include "dcovector-/dcovector-unary.hpp"
-#include "dcovector-/dcovector-dcovector.hpp"
-#include "dcovector-/dcovector-_dcovector.hpp"
-#include "dcovector-/dcovector-drovector.hpp"
-#include "dcovector-/dcovector-_drovector.hpp"
-#include "dcovector-/dcovector-dgematrix.hpp"
-#include "dcovector-/dcovector-_dgematrix.hpp"
-#include "dcovector-/dcovector-dgbmatrix.hpp"
-#include "dcovector-/dcovector-_dgbmatrix.hpp"
-#include "dcovector-/dcovector-dsymatrix.hpp"
-#include "dcovector-/dcovector-_dsymatrix.hpp"
-#include "dcovector-/dcovector-dgsmatrix.hpp"
-#include "dcovector-/dcovector-_dgsmatrix.hpp"
-//#include "dcovector-/dcovector-dssmatrix.hpp"
-//#include "dcovector-/dcovector-_dssmatrix.hpp"
-#include "dcovector-/dcovector-double.hpp"
-/////////////////////// _dcovector ////////////////////////
-#include "_dcovector-/_dcovector-constructor.hpp"
-#include "_dcovector-/_dcovector-cast.hpp"
-#include "_dcovector-/_dcovector-io.hpp"
-#include "_dcovector-/_dcovector-calc.hpp"
-#include "_dcovector-/_dcovector-misc.hpp"
-#include "_dcovector-/_dcovector-unary.hpp"
-#include "_dcovector-/_dcovector-dcovector.hpp"
-#include "_dcovector-/_dcovector-_dcovector.hpp"
-#include "_dcovector-/_dcovector-drovector.hpp"
-#include "_dcovector-/_dcovector-_drovector.hpp"
-#include "_dcovector-/_dcovector-dgematrix.hpp"
-#include "_dcovector-/_dcovector-_dgematrix.hpp"
-#include "_dcovector-/_dcovector-dgbmatrix.hpp"
-#include "_dcovector-/_dcovector-_dgbmatrix.hpp"
-#include "_dcovector-/_dcovector-dsymatrix.hpp"
-#include "_dcovector-/_dcovector-_dsymatrix.hpp"
-#include "_dcovector-/_dcovector-dgsmatrix.hpp"
-#include "_dcovector-/_dcovector-_dgsmatrix.hpp"
-//#include "_dcovector-/_dcovector-dssmatrix.hpp"
-//#include "_dcovector-/_dcovector-_dssmatrix.hpp"
-#include "_dcovector-/_dcovector-double.hpp"
-
-///////////////////////////////////////////////////////////
-//////////////////////// drovector ////////////////////////
-///////////////////////////////////////////////////////////
-#include "drovector-/drovector-constructor.hpp"
-#include "drovector-/drovector-cast.hpp"
-#include "drovector-/drovector-io.hpp"
-#include "drovector-/drovector-calc.hpp"
-#include "drovector-/drovector-misc.hpp"
-#include "drovector-/drovector-unary.hpp"
-#include "drovector-/drovector-dcovector.hpp"
-#include "drovector-/drovector-_dcovector.hpp"
-#include "drovector-/drovector-drovector.hpp"
-#include "drovector-/drovector-_drovector.hpp"
-#include "drovector-/drovector-dgematrix.hpp"
-#include "drovector-/drovector-_dgematrix.hpp"
-#include "drovector-/drovector-dgbmatrix.hpp"
-#include "drovector-/drovector-_dgbmatrix.hpp"
-#include "drovector-/drovector-dsymatrix.hpp"
-#include "drovector-/drovector-_dsymatrix.hpp"
-#include "drovector-/drovector-dgsmatrix.hpp"
-#include "drovector-/drovector-_dgsmatrix.hpp"
-#include "drovector-/drovector-dssmatrix.hpp"
-#include "drovector-/drovector-_dssmatrix.hpp"
-#include "drovector-/drovector-double.hpp"
-/////////////////////// _drovector ////////////////////////
-#include "_drovector-/_drovector-constructor.hpp"
-#include "_drovector-/_drovector-cast.hpp"
-#include "_drovector-/_drovector-io.hpp"
-#include "_drovector-/_drovector-calc.hpp"
-#include "_drovector-/_drovector-misc.hpp"
-#include "_drovector-/_drovector-unary.hpp"
-#include "_drovector-/_drovector-dcovector.hpp"
-#include "_drovector-/_drovector-_dcovector.hpp"
-#include "_drovector-/_drovector-drovector.hpp"
-#include "_drovector-/_drovector-_drovector.hpp"
-#include "_drovector-/_drovector-dgematrix.hpp"
-#include "_drovector-/_drovector-_dgematrix.hpp"
-#include "_drovector-/_drovector-dgbmatrix.hpp"
-#include "_drovector-/_drovector-_dgbmatrix.hpp"
-#include "_drovector-/_drovector-dsymatrix.hpp"
-#include "_drovector-/_drovector-_dsymatrix.hpp"
-#include "_drovector-/_drovector-dgsmatrix.hpp"
-#include "_drovector-/_drovector-_dgsmatrix.hpp"
-#include "_drovector-/_drovector-dssmatrix.hpp"
-#include "_drovector-/_drovector-_dssmatrix.hpp"
-#include "_drovector-/_drovector-double.hpp"
-
-///////////////////////////////////////////////////////////
-//////////////////////// dgematrix ////////////////////////
-///////////////////////////////////////////////////////////
-#include "dgematrix-/dgematrix-constructor.hpp"
-#include "dgematrix-/dgematrix-cast.hpp"
-#include "dgematrix-/dgematrix-io.hpp"
-#include "dgematrix-/dgematrix-misc.hpp"
-#include "dgematrix-/dgematrix-calc.hpp"
-#include "dgematrix-/dgematrix-lapack.hpp"
-#include "dgematrix-/dgematrix-unary.hpp"
-#include "dgematrix-/dgematrix-dcovector.hpp"
-#include "dgematrix-/dgematrix-_dcovector.hpp"
-#include "dgematrix-/dgematrix-drovector.hpp"
-#include "dgematrix-/dgematrix-_drovector.hpp"
-#include "dgematrix-/dgematrix-dgematrix.hpp"
-#include "dgematrix-/dgematrix-_dgematrix.hpp"
-#include "dgematrix-/dgematrix-dgbmatrix.hpp"
-#include "dgematrix-/dgematrix-_dgbmatrix.hpp"
-#include "dgematrix-/dgematrix-dsymatrix.hpp"
-#include "dgematrix-/dgematrix-_dsymatrix.hpp"
-#include "dgematrix-/dgematrix-dgsmatrix.hpp"
-#include "dgematrix-/dgematrix-_dgsmatrix.hpp"
-//#include "dgematrix-/dgematrix-dssmatrix.hpp"
-//#include "dgematrix-/dgematrix-_dssmatrix.hpp"
-#include "dgematrix-/dgematrix-double.hpp"
-/////////////////////// _dgematrix ////////////////////////
-#include "_dgematrix-/_dgematrix-constructor.hpp"
-#include "_dgematrix-/_dgematrix-cast.hpp"
-#include "_dgematrix-/_dgematrix-io.hpp"
-#include "_dgematrix-/_dgematrix-misc.hpp"
-#include "_dgematrix-/_dgematrix-calc.hpp"
-#include "_dgematrix-/_dgematrix-unary.hpp"
-#include "_dgematrix-/_dgematrix-dcovector.hpp"
-#include "_dgematrix-/_dgematrix-_dcovector.hpp"
-#include "_dgematrix-/_dgematrix-drovector.hpp"
-#include "_dgematrix-/_dgematrix-_drovector.hpp"
-#include "_dgematrix-/_dgematrix-dgematrix.hpp"
-#include "_dgematrix-/_dgematrix-_dgematrix.hpp"
-#include "_dgematrix-/_dgematrix-dgbmatrix.hpp"
-#include "_dgematrix-/_dgematrix-_dgbmatrix.hpp"
-#include "_dgematrix-/_dgematrix-dsymatrix.hpp"
-#include "_dgematrix-/_dgematrix-_dsymatrix.hpp"
-#include "_dgematrix-/_dgematrix-dgsmatrix.hpp"
-#include "_dgematrix-/_dgematrix-_dgsmatrix.hpp"
-#include "_dgematrix-/_dgematrix-dssmatrix.hpp"
-//#include "_dgematrix-/_dgematrix-_dssmatrix.hpp"
-#include "_dgematrix-/_dgematrix-double.hpp"
-
-
-///////////////////////////////////////////////////////////
-//////////////////////// dgbmatrix ////////////////////////
-///////////////////////////////////////////////////////////
-#include "dgbmatrix-/dgbmatrix-constructor.hpp"
-#include "dgbmatrix-/dgbmatrix-cast.hpp"
-#include "dgbmatrix-/dgbmatrix-io.hpp"
-#include "dgbmatrix-/dgbmatrix-misc.hpp"
-#include "dgbmatrix-/dgbmatrix-calc.hpp"
-#include "dgbmatrix-/dgbmatrix-lapack.hpp"
-#include "dgbmatrix-/dgbmatrix-unary.hpp"
-#include "dgbmatrix-/dgbmatrix-dcovector.hpp"
-#include "dgbmatrix-/dgbmatrix-_dcovector.hpp"
-#include "dgbmatrix-/dgbmatrix-drovector.hpp"
-#include "dgbmatrix-/dgbmatrix-_drovector.hpp"
-#include "dgbmatrix-/dgbmatrix-dgematrix.hpp"
-#include "dgbmatrix-/dgbmatrix-_dgematrix.hpp"
-#include "dgbmatrix-/dgbmatrix-dgbmatrix.hpp"
-#include "dgbmatrix-/dgbmatrix-_dgbmatrix.hpp"
-#include "dgbmatrix-/dgbmatrix-dsymatrix.hpp"
-#include "dgbmatrix-/dgbmatrix-_dsymatrix.hpp"
-#include "dgbmatrix-/dgbmatrix-dgsmatrix.hpp"
-#include "dgbmatrix-/dgbmatrix-_dgsmatrix.hpp"
-//#include "dgbmatrix-/dgbmatrix-dssmatrix.hpp"
-//#include "dgbmatrix-/dgbmatrix-_dssmatrix.hpp"
-#include "dgbmatrix-/dgbmatrix-double.hpp"
-/////////////////////// _dgbmatrix ////////////////////////
-#include "_dgbmatrix-/_dgbmatrix-constructor.hpp"
-#include "_dgbmatrix-/_dgbmatrix-cast.hpp"
-#include "_dgbmatrix-/_dgbmatrix-io.hpp"
-#include "_dgbmatrix-/_dgbmatrix-misc.hpp"
-#include "_dgbmatrix-/_dgbmatrix-calc.hpp"
-#include "_dgbmatrix-/_dgbmatrix-unary.hpp"
-#include "_dgbmatrix-/_dgbmatrix-dcovector.hpp"
-#include "_dgbmatrix-/_dgbmatrix-_dcovector.hpp"
-#include "_dgbmatrix-/_dgbmatrix-drovector.hpp"
-#include "_dgbmatrix-/_dgbmatrix-_drovector.hpp"
-#include "_dgbmatrix-/_dgbmatrix-dgematrix.hpp"
-#include "_dgbmatrix-/_dgbmatrix-_dgematrix.hpp"
-#include "_dgbmatrix-/_dgbmatrix-dgbmatrix.hpp"
-#include "_dgbmatrix-/_dgbmatrix-_dgbmatrix.hpp"
-#include "_dgbmatrix-/_dgbmatrix-dsymatrix.hpp"
-#include "_dgbmatrix-/_dgbmatrix-_dsymatrix.hpp"
-#include "_dgbmatrix-/_dgbmatrix-dgsmatrix.hpp"
-#include "_dgbmatrix-/_dgbmatrix-_dgsmatrix.hpp"
-//#include "_dgbmatrix-/_dgbmatrix-dssmatrix.hpp"
-//#include "_dgbmatrix-/_dgbmatrix-_dssmatrix.hpp"
-#include "_dgbmatrix-/_dgbmatrix-double.hpp"
-
-
-///////////////////////////////////////////////////////////
-//////////////////////// dsymatrix ////////////////////////
-///////////////////////////////////////////////////////////
-#include "dsymatrix-/dsymatrix-constructor.hpp"
-#include "dsymatrix-/dsymatrix-cast.hpp"
-#include "dsymatrix-/dsymatrix-io.hpp"
-#include "dsymatrix-/dsymatrix-misc.hpp"
-#include "dsymatrix-/dsymatrix-calc.hpp"
-#include "dsymatrix-/dsymatrix-lapack.hpp"
-#include "dsymatrix-/dsymatrix-unary.hpp"
-#include "dsymatrix-/dsymatrix-dcovector.hpp"
-#include "dsymatrix-/dsymatrix-_dcovector.hpp"
-#include "dsymatrix-/dsymatrix-drovector.hpp"
-#include "dsymatrix-/dsymatrix-_drovector.hpp"
-#include "dsymatrix-/dsymatrix-dgematrix.hpp"
-#include "dsymatrix-/dsymatrix-_dgematrix.hpp"
-#include "dsymatrix-/dsymatrix-dgbmatrix.hpp"
-#include "dsymatrix-/dsymatrix-_dgbmatrix.hpp"
-#include "dsymatrix-/dsymatrix-dsymatrix.hpp"
-#include "dsymatrix-/dsymatrix-_dsymatrix.hpp"
-#include "dsymatrix-/dsymatrix-dgsmatrix.hpp"
-#include "dsymatrix-/dsymatrix-_dgsmatrix.hpp"
-//#include "dsymatrix-/dsymatrix-dssmatrix.hpp"
-//#include "dsymatrix-/dsymatrix-_dssmatrix.hpp"
-#include "dsymatrix-/dsymatrix-double.hpp"
-/////////////////////// _dsymatrix ////////////////////////
-#include "_dsymatrix-/_dsymatrix-constructor.hpp"
-#include "_dsymatrix-/_dsymatrix-cast.hpp"
-#include "_dsymatrix-/_dsymatrix-io.hpp"
-#include "_dsymatrix-/_dsymatrix-misc.hpp"
-#include "_dsymatrix-/_dsymatrix-calc.hpp"
-#include "_dsymatrix-/_dsymatrix-unary.hpp"
-#include "_dsymatrix-/_dsymatrix-dcovector.hpp"
-#include "_dsymatrix-/_dsymatrix-_dcovector.hpp"
-#include "_dsymatrix-/_dsymatrix-drovector.hpp"
-#include "_dsymatrix-/_dsymatrix-_drovector.hpp"
-#include "_dsymatrix-/_dsymatrix-dgematrix.hpp"
-#include "_dsymatrix-/_dsymatrix-_dgematrix.hpp"
-#include "_dsymatrix-/_dsymatrix-dgbmatrix.hpp"
-#include "_dsymatrix-/_dsymatrix-_dgbmatrix.hpp"
-#include "_dsymatrix-/_dsymatrix-dsymatrix.hpp"
-#include "_dsymatrix-/_dsymatrix-_dsymatrix.hpp"
-#include "_dsymatrix-/_dsymatrix-dgsmatrix.hpp"
-#include "_dsymatrix-/_dsymatrix-_dgsmatrix.hpp"
-//#include "_dsymatrix-/_dsymatrix-dssmatrix.hpp"
-//#include "_dsymatrix-/_dsymatrix-_dssmatrix.hpp"
-#include "_dsymatrix-/_dsymatrix-double.hpp"
-
-///////////////////////////////////////////////////////////
-//////////////////////// dgsmatrix ////////////////////////
-///////////////////////////////////////////////////////////
-#include "dgsmatrix-/dgsmatrix-constructor.hpp"
-#include "dgsmatrix-/dgsmatrix-cast.hpp"
-#include "dgsmatrix-/dgsmatrix-io.hpp"
-#include "dgsmatrix-/dgsmatrix-misc.hpp"
-#include "dgsmatrix-/dgsmatrix-calc.hpp"
-#include "dgsmatrix-/dgsmatrix-pardiso.hpp"
-#include "dgsmatrix-/dgsmatrix-unary.hpp"
-#include "dgsmatrix-/dgsmatrix-dcovector.hpp"
-#include "dgsmatrix-/dgsmatrix-_dcovector.hpp"
-#include "dgsmatrix-/dgsmatrix-drovector.hpp"
-#include "dgsmatrix-/dgsmatrix-_drovector.hpp"
-#include "dgsmatrix-/dgsmatrix-dgematrix.hpp"
-#include "dgsmatrix-/dgsmatrix-_dgematrix.hpp"
-#include "dgsmatrix-/dgsmatrix-dgbmatrix.hpp"
-#include "dgsmatrix-/dgsmatrix-_dgbmatrix.hpp"
-#include "dgsmatrix-/dgsmatrix-dsymatrix.hpp"
-#include "dgsmatrix-/dgsmatrix-_dsymatrix.hpp"
-#include "dgsmatrix-/dgsmatrix-dgsmatrix.hpp"
-#include "dgsmatrix-/dgsmatrix-_dgsmatrix.hpp"
-//#include "dgsmatrix-/dgsmatrix-dssmatrix.hpp"
-//#include "dgsmatrix-/dgsmatrix-_dssmatrix.hpp"
-#include "dgsmatrix-/dgsmatrix-double.hpp"
-/////////////////////// _dgsmatrix ////////////////////////
-#include "_dgsmatrix-/_dgsmatrix-constructor.hpp"
-#include "_dgsmatrix-/_dgsmatrix-cast.hpp"
-#include "_dgsmatrix-/_dgsmatrix-io.hpp"
-#include "_dgsmatrix-/_dgsmatrix-misc.hpp"
-#include "_dgsmatrix-/_dgsmatrix-calc.hpp"
-#include "_dgsmatrix-/_dgsmatrix-unary.hpp"
-#include "_dgsmatrix-/_dgsmatrix-dcovector.hpp"
-#include "_dgsmatrix-/_dgsmatrix-_dcovector.hpp"
-#include "_dgsmatrix-/_dgsmatrix-drovector.hpp"
-#include "_dgsmatrix-/_dgsmatrix-_drovector.hpp"
-#include "_dgsmatrix-/_dgsmatrix-dgematrix.hpp"
-#include "_dgsmatrix-/_dgsmatrix-_dgematrix.hpp"
-#include "_dgsmatrix-/_dgsmatrix-dgbmatrix.hpp"
-#include "_dgsmatrix-/_dgsmatrix-_dgbmatrix.hpp"
-#include "_dgsmatrix-/_dgsmatrix-dsymatrix.hpp"
-#include "_dgsmatrix-/_dgsmatrix-_dsymatrix.hpp"
-#include "_dgsmatrix-/_dgsmatrix-dgsmatrix.hpp"
-#include "_dgsmatrix-/_dgsmatrix-_dgsmatrix.hpp"
-//#include "_dgsmatrix-/_dgsmatrix-dssmatrix.hpp"
-//#include "_dgsmatrix-/_dgsmatrix-_dssmatrix.hpp"
-#include "_dgsmatrix-/_dgsmatrix-double.hpp"
-
-///////////////////////////////////////////////////////////
-//////////////////////// dssmatrix ////////////////////////
-///////////////////////////////////////////////////////////
-#include "dssmatrix-/dssmatrix-constructor.hpp"
-#include "dssmatrix-/dssmatrix-cast.hpp"
-#include "dssmatrix-/dssmatrix-io.hpp"
-#include "dssmatrix-/dssmatrix-misc.hpp"
-#include "dssmatrix-/dssmatrix-calc.hpp"
-#include "dssmatrix-/dssmatrix-pardiso.hpp"
-#include "dssmatrix-/dssmatrix-unary.hpp"
-#include "dssmatrix-/dssmatrix-dcovector.hpp"
-#include "dssmatrix-/dssmatrix-_dcovector.hpp"
-#include "dssmatrix-/dssmatrix-drovector.hpp"
-#include "dssmatrix-/dssmatrix-_drovector.hpp"
-#include "dssmatrix-/dssmatrix-dgematrix.hpp"
-#include "dssmatrix-/dssmatrix-_dgematrix.hpp"
-#include "dssmatrix-/dssmatrix-dgbmatrix.hpp"
-#include "dssmatrix-/dssmatrix-_dgbmatrix.hpp"
-#include "dssmatrix-/dssmatrix-dsymatrix.hpp"
-#include "dssmatrix-/dssmatrix-_dsymatrix.hpp"
-#include "dssmatrix-/dssmatrix-dssmatrix.hpp"
-#include "dssmatrix-/dssmatrix-_dssmatrix.hpp"
-#include "dssmatrix-/dssmatrix-double.hpp"
-/////////////////////// _dssmatrix ////////////////////////
-#include "_dssmatrix-/_dssmatrix-constructor.hpp"
-#include "_dssmatrix-/_dssmatrix-cast.hpp"
-#include "_dssmatrix-/_dssmatrix-io.hpp"
-#include "_dssmatrix-/_dssmatrix-misc.hpp"
-#include "_dssmatrix-/_dssmatrix-calc.hpp"
-#include "_dssmatrix-/_dssmatrix-unary.hpp"
-#include "_dssmatrix-/_dssmatrix-dcovector.hpp"
-#include "_dssmatrix-/_dssmatrix-_dcovector.hpp"
-#include "_dssmatrix-/_dssmatrix-drovector.hpp"
-#include "_dssmatrix-/_dssmatrix-_drovector.hpp"
-#include "_dssmatrix-/_dssmatrix-dgematrix.hpp"
-#include "_dssmatrix-/_dssmatrix-_dgematrix.hpp"
-#include "_dssmatrix-/_dssmatrix-dgbmatrix.hpp"
-#include "_dssmatrix-/_dssmatrix-_dgbmatrix.hpp"
-#include "_dssmatrix-/_dssmatrix-dsymatrix.hpp"
-#include "_dssmatrix-/_dssmatrix-_dsymatrix.hpp"
-#include "_dssmatrix-/_dssmatrix-dssmatrix.hpp"
-#include "_dssmatrix-/_dssmatrix-_dssmatrix.hpp"
-#include "_dssmatrix-/_dssmatrix-double.hpp"
-
-///////////////////////////////////////////////////////////
-//////////////////////// dgrmatrix ////////////////////////
-///////////////////////////////////////////////////////////
-#include "dgrmatrix-/dgrmatrix-constructor.hpp"
-#include "dgrmatrix-/dgrmatrix-cast.hpp"
-#include "dgrmatrix-/dgrmatrix-io.hpp"
-#include "dgrmatrix-/dgrmatrix-misc.hpp"
-#include "dgrmatrix-/dgrmatrix-calc.hpp"
-#include "dgrmatrix-/dgrmatrix-pardiso.hpp"
-#include "dgrmatrix-/dgrmatrix-rci.hpp"
-#include "dgrmatrix-/dgrmatrix-unary.hpp"
-#include "dgrmatrix-/dgrmatrix-dcovector.hpp"
-#include "dgrmatrix-/dgrmatrix-_dcovector.hpp"
-#include "dgrmatrix-/dgrmatrix-double.hpp"
-
-///////////////////////////////////////////////////////////
-///////////////////////// double //////////////////////////
-///////////////////////////////////////////////////////////
-#include "double-/double-dcovector.hpp"
-#include "double-/double-_dcovector.hpp"
-#include "double-/double-drovector.hpp"
-#include "double-/double-_drovector.hpp"
-#include "double-/double-dgematrix.hpp"
-#include "double-/double-_dgematrix.hpp"
-#include "double-/double-dgbmatrix.hpp"
-#include "double-/double-_dgbmatrix.hpp"
-#include "double-/double-dsymatrix.hpp"
-#include "double-/double-_dsymatrix.hpp"
-#include "double-/double-dgsmatrix.hpp"
-#include "double-/double-_dgsmatrix.hpp"
-#include "double-/double-dssmatrix.hpp"
-#include "double-/double-_dssmatrix.hpp"
-#include "double-/double-dgrmatrix.hpp"
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-///////////////////////////////////////////////////////////
-//////////////////////// zcovector ////////////////////////
-///////////////////////////////////////////////////////////
-#include "zcovector-/zcovector-constructor.hpp"
-#include "zcovector-/zcovector-io.hpp"
-#include "zcovector-/zcovector-calc.hpp"
-#include "zcovector-/zcovector-misc.hpp"
-#include "zcovector-/zcovector-unary.hpp"
-#include "zcovector-/zcovector-zcovector.hpp"
-#include "zcovector-/zcovector-_zcovector.hpp"
-#include "zcovector-/zcovector-zrovector.hpp"
-#include "zcovector-/zcovector-_zrovector.hpp"
-#include "zcovector-/zcovector-zgematrix.hpp"
-#include "zcovector-/zcovector-_zgematrix.hpp"
-#include "zcovector-/zcovector-zgbmatrix.hpp"
-#include "zcovector-/zcovector-_zgbmatrix.hpp"
-#include "zcovector-/zcovector-zhematrix.hpp"
-#include "zcovector-/zcovector-_zhematrix.hpp"
-#include "zcovector-/zcovector-zgsmatrix.hpp"
-#include "zcovector-/zcovector-_zgsmatrix.hpp"
-#include "zcovector-/zcovector-zhsmatrix.hpp"
-#include "zcovector-/zcovector-_zhsmatrix.hpp"
-#include "zcovector-/zcovector-double.hpp"
-#include "zcovector-/zcovector-complex.hpp"
-/////////////////////// _zcovector ////////////////////////
-#include "_zcovector-/_zcovector-constructor.hpp"
-#include "_zcovector-/_zcovector-io.hpp"
-#include "_zcovector-/_zcovector-calc.hpp"
-#include "_zcovector-/_zcovector-misc.hpp"
-#include "_zcovector-/_zcovector-unary.hpp"
-#include "_zcovector-/_zcovector-zcovector.hpp"
-#include "_zcovector-/_zcovector-_zcovector.hpp"
-#include "_zcovector-/_zcovector-zrovector.hpp"
-#include "_zcovector-/_zcovector-_zrovector.hpp"
-#include "_zcovector-/_zcovector-zgematrix.hpp"
-#include "_zcovector-/_zcovector-_zgematrix.hpp"
-#include "_zcovector-/_zcovector-zgbmatrix.hpp"
-#include "_zcovector-/_zcovector-_zgbmatrix.hpp"
-#include "_zcovector-/_zcovector-zhematrix.hpp"
-#include "_zcovector-/_zcovector-_zhematrix.hpp"
-#include "_zcovector-/_zcovector-zgsmatrix.hpp"
-#include "_zcovector-/_zcovector-_zgsmatrix.hpp"
-#include "_zcovector-/_zcovector-zhsmatrix.hpp"
-#include "_zcovector-/_zcovector-_zhsmatrix.hpp"
-#include "_zcovector-/_zcovector-zhsmatrix.hpp"
-#include "_zcovector-/_zcovector-_zhsmatrix.hpp"
-#include "_zcovector-/_zcovector-double.hpp"
-#include "_zcovector-/_zcovector-complex.hpp"
-
-///////////////////////////////////////////////////////////
-//////////////////////// zrovector ////////////////////////
-///////////////////////////////////////////////////////////
-#include "zrovector-/zrovector-constructor.hpp"
-#include "zrovector-/zrovector-io.hpp"
-#include "zrovector-/zrovector-calc.hpp"
-#include "zrovector-/zrovector-misc.hpp"
-#include "zrovector-/zrovector-unary.hpp"
-#include "zrovector-/zrovector-zcovector.hpp"
-#include "zrovector-/zrovector-_zcovector.hpp"
-#include "zrovector-/zrovector-zrovector.hpp"
-#include "zrovector-/zrovector-_zrovector.hpp"
-#include "zrovector-/zrovector-zgematrix.hpp"
-#include "zrovector-/zrovector-_zgematrix.hpp"
-#include "zrovector-/zrovector-zgbmatrix.hpp"
-#include "zrovector-/zrovector-_zgbmatrix.hpp"
-#include "zrovector-/zrovector-zhematrix.hpp"
-#include "zrovector-/zrovector-_zhematrix.hpp"
-#include "zrovector-/zrovector-zgsmatrix.hpp"
-#include "zrovector-/zrovector-_zgsmatrix.hpp"
-#include "zrovector-/zrovector-zhsmatrix.hpp"
-#include "zrovector-/zrovector-_zhsmatrix.hpp"
-#include "zrovector-/zrovector-double.hpp"
-#include "zrovector-/zrovector-complex.hpp"
-/////////////////////// _zrovector ////////////////////////
-#include "_zrovector-/_zrovector-constructor.hpp"
-#include "_zrovector-/_zrovector-io.hpp"
-#include "_zrovector-/_zrovector-calc.hpp"
-#include "_zrovector-/_zrovector-misc.hpp"
-#include "_zrovector-/_zrovector-unary.hpp"
-#include "_zrovector-/_zrovector-zcovector.hpp"
-#include "_zrovector-/_zrovector-_zcovector.hpp"
-#include "_zrovector-/_zrovector-zrovector.hpp"
-#include "_zrovector-/_zrovector-_zrovector.hpp"
-#include "_zrovector-/_zrovector-zgematrix.hpp"
-#include "_zrovector-/_zrovector-_zgematrix.hpp"
-#include "_zrovector-/_zrovector-zgbmatrix.hpp"
-#include "_zrovector-/_zrovector-_zgbmatrix.hpp"
-#include "_zrovector-/_zrovector-zhematrix.hpp"
-#include "_zrovector-/_zrovector-_zhematrix.hpp"
-#include "_zrovector-/_zrovector-zgsmatrix.hpp"
-#include "_zrovector-/_zrovector-_zgsmatrix.hpp"
-#include "_zrovector-/_zrovector-zhsmatrix.hpp"
-#include "_zrovector-/_zrovector-_zhsmatrix.hpp"
-#include "_zrovector-/_zrovector-double.hpp"
-#include "_zrovector-/_zrovector-complex.hpp"
-
-///////////////////////////////////////////////////////////
-//////////////////////// zgematrix ////////////////////////
-///////////////////////////////////////////////////////////
-#include "zgematrix-/zgematrix-constructor.hpp"
-#include "zgematrix-/zgematrix-cast.hpp"
-#include "zgematrix-/zgematrix-io.hpp"
-#include "zgematrix-/zgematrix-misc.hpp"
-#include "zgematrix-/zgematrix-calc.hpp"
-#include "zgematrix-/zgematrix-lapack.hpp"
-#include "zgematrix-/zgematrix-unary.hpp"
-#include "zgematrix-/zgematrix-zcovector.hpp"
-#include "zgematrix-/zgematrix-_zcovector.hpp"
-#include "zgematrix-/zgematrix-zrovector.hpp"
-#include "zgematrix-/zgematrix-_zrovector.hpp"
-#include "zgematrix-/zgematrix-zgematrix.hpp"
-#include "zgematrix-/zgematrix-_zgematrix.hpp"
-#include "zgematrix-/zgematrix-zgbmatrix.hpp"
-#include "zgematrix-/zgematrix-_zgbmatrix.hpp"
-#include "zgematrix-/zgematrix-zhematrix.hpp"
-#include "zgematrix-/zgematrix-_zhematrix.hpp"
-#include "zgematrix-/zgematrix-zgsmatrix.hpp"
-#include "zgematrix-/zgematrix-_zgsmatrix.hpp"
-//#include "zgematrix-/zgematrix-zhsmatrix.hpp"
-//#include "zgematrix-/zgematrix-_zhsmatrix.hpp"
-#include "zgematrix-/zgematrix-double.hpp"
-#include "zgematrix-/zgematrix-complex.hpp"
-/////////////////////// _zgematrix ////////////////////////
-#include "_zgematrix-/_zgematrix-constructor.hpp"
-#include "_zgematrix-/_zgematrix-cast.hpp"
-#include "_zgematrix-/_zgematrix-io.hpp"
-#include "_zgematrix-/_zgematrix-misc.hpp"
-#include "_zgematrix-/_zgematrix-calc.hpp"
-#include "_zgematrix-/_zgematrix-unary.hpp"
-#include "_zgematrix-/_zgematrix-zcovector.hpp"
-#include "_zgematrix-/_zgematrix-_zcovector.hpp"
-#include "_zgematrix-/_zgematrix-zrovector.hpp"
-#include "_zgematrix-/_zgematrix-_zrovector.hpp"
-#include "_zgematrix-/_zgematrix-zgematrix.hpp"
-#include "_zgematrix-/_zgematrix-_zgematrix.hpp"
-#include "_zgematrix-/_zgematrix-zgbmatrix.hpp"
-#include "_zgematrix-/_zgematrix-_zgbmatrix.hpp"
-#include "_zgematrix-/_zgematrix-zhematrix.hpp"
-#include "_zgematrix-/_zgematrix-_zhematrix.hpp"
-#include "_zgematrix-/_zgematrix-zgsmatrix.hpp"
-#include "_zgematrix-/_zgematrix-_zgsmatrix.hpp"
-//#include "_zgematrix-/_zgematrix-zhsmatrix.hpp"
-//#include "_zgematrix-/_zgematrix-_zhsmatrix.hpp"
-#include "_zgematrix-/_zgematrix-double.hpp"
-#include "_zgematrix-/_zgematrix-complex.hpp"
-
-
-///////////////////////////////////////////////////////////
-//////////////////////// zgbmatrix ////////////////////////
-///////////////////////////////////////////////////////////
-#include "zgbmatrix-/zgbmatrix-constructor.hpp"
-#include "zgbmatrix-/zgbmatrix-cast.hpp"
-#include "zgbmatrix-/zgbmatrix-io.hpp"
-#include "zgbmatrix-/zgbmatrix-misc.hpp"
-#include "zgbmatrix-/zgbmatrix-calc.hpp"
-#include "zgbmatrix-/zgbmatrix-lapack.hpp"
-#include "zgbmatrix-/zgbmatrix-unary.hpp"
-#include "zgbmatrix-/zgbmatrix-zcovector.hpp"
-#include "zgbmatrix-/zgbmatrix-_zcovector.hpp"
-#include "zgbmatrix-/zgbmatrix-zrovector.hpp"
-#include "zgbmatrix-/zgbmatrix-_zrovector.hpp"
-#include "zgbmatrix-/zgbmatrix-zgematrix.hpp"
-#include "zgbmatrix-/zgbmatrix-_zgematrix.hpp"
-#include "zgbmatrix-/zgbmatrix-zgbmatrix.hpp"
-#include "zgbmatrix-/zgbmatrix-_zgbmatrix.hpp"
-#include "zgbmatrix-/zgbmatrix-zhematrix.hpp"
-#include "zgbmatrix-/zgbmatrix-_zhematrix.hpp"
-//#include "zgbmatrix-/zgbmatrix-zgsmatrix.hpp"
-//#include "zgbmatrix-/zgbmatrix-_zgsmatrix.hpp"
-//#include "zgbmatrix-/zgbmatrix-zhsmatrix.hpp"
-//#include "zgbmatrix-/zgbmatrix-_zhsmatrix.hpp"
-#include "zgbmatrix-/zgbmatrix-double.hpp"
-#include "zgbmatrix-/zgbmatrix-complex.hpp"
-/////////////////////// _zgbmatrix ////////////////////////
-#include "_zgbmatrix-/_zgbmatrix-constructor.hpp"
-#include "_zgbmatrix-/_zgbmatrix-cast.hpp"
-#include "_zgbmatrix-/_zgbmatrix-io.hpp"
-#include "_zgbmatrix-/_zgbmatrix-misc.hpp"
-#include "_zgbmatrix-/_zgbmatrix-calc.hpp"
-#include "_zgbmatrix-/_zgbmatrix-unary.hpp"
-#include "_zgbmatrix-/_zgbmatrix-zcovector.hpp"
-#include "_zgbmatrix-/_zgbmatrix-_zcovector.hpp"
-#include "_zgbmatrix-/_zgbmatrix-zrovector.hpp"
-#include "_zgbmatrix-/_zgbmatrix-_zrovector.hpp"
-#include "_zgbmatrix-/_zgbmatrix-zgematrix.hpp"
-#include "_zgbmatrix-/_zgbmatrix-_zgematrix.hpp"
-#include "_zgbmatrix-/_zgbmatrix-zgbmatrix.hpp"
-#include "_zgbmatrix-/_zgbmatrix-_zgbmatrix.hpp"
-#include "_zgbmatrix-/_zgbmatrix-zhematrix.hpp"
-#include "_zgbmatrix-/_zgbmatrix-_zhematrix.hpp"
-//#include "_zgbmatrix-/_zgbmatrix-zgsmatrix.hpp"
-//#include "_zgbmatrix-/_zgbmatrix-_zgsmatrix.hpp"
-//#include "_zgbmatrix-/_zgbmatrix-zhsmatrix.hpp"
-//#include "_zgbmatrix-/_zgbmatrix-_zhsmatrix.hpp"
-#include "_zgbmatrix-/_zgbmatrix-double.hpp"
-#include "_zgbmatrix-/_zgbmatrix-complex.hpp"
-
-
-///////////////////////////////////////////////////////////
-//////////////////////// zhematrix ////////////////////////
-///////////////////////////////////////////////////////////
-#include "zhematrix-/zhematrix-constructor.hpp"
-#include "zhematrix-/zhematrix-cast.hpp"
-#include "zhematrix-/zhematrix-io.hpp"
-#include "zhematrix-/zhematrix-misc.hpp"
-#include "zhematrix-/zhematrix-calc.hpp"
-#include "zhematrix-/zhematrix-lapack.hpp"
-#include "zhematrix-/zhematrix-unary.hpp"
-#include "zhematrix-/zhematrix-zcovector.hpp"
-#include "zhematrix-/zhematrix-_zcovector.hpp"
-#include "zhematrix-/zhematrix-zrovector.hpp"
-#include "zhematrix-/zhematrix-_zrovector.hpp"
-#include "zhematrix-/zhematrix-zgematrix.hpp"
-#include "zhematrix-/zhematrix-_zgematrix.hpp"
-#include "zhematrix-/zhematrix-zgbmatrix.hpp"
-#include "zhematrix-/zhematrix-_zgbmatrix.hpp"
-#include "zhematrix-/zhematrix-zhematrix.hpp"
-#include "zhematrix-/zhematrix-_zhematrix.hpp"
-//#include "zhematrix-/zhematrix-zhsmatrix.hpp"
-//#include "zhematrix-/zhematrix-_zhsmatrix.hpp"
-#include "zhematrix-/zhematrix-double.hpp"
-#include "zhematrix-/zhematrix-complex.hpp"
-/////////////////////// _zhematrix ////////////////////////
-#include "_zhematrix-/_zhematrix-constructor.hpp"
-#include "_zhematrix-/_zhematrix-cast.hpp"
-#include "_zhematrix-/_zhematrix-io.hpp"
-#include "_zhematrix-/_zhematrix-misc.hpp"
-#include "_zhematrix-/_zhematrix-calc.hpp"
-#include "_zhematrix-/_zhematrix-unary.hpp"
-#include "_zhematrix-/_zhematrix-zcovector.hpp"
-#include "_zhematrix-/_zhematrix-_zcovector.hpp"
-#include "_zhematrix-/_zhematrix-zrovector.hpp"
-#include "_zhematrix-/_zhematrix-_zrovector.hpp"
-#include "_zhematrix-/_zhematrix-zgematrix.hpp"
-#include "_zhematrix-/_zhematrix-_zgematrix.hpp"
-#include "_zhematrix-/_zhematrix-zgbmatrix.hpp"
-#include "_zhematrix-/_zhematrix-_zgbmatrix.hpp"
-#include "_zhematrix-/_zhematrix-zhematrix.hpp"
-#include "_zhematrix-/_zhematrix-_zhematrix.hpp"
-//#include "_zhematrix-/_zhematrix-zhsmatrix.hpp"
-//#include "_zhematrix-/_zhematrix-_zhsmatrix.hpp"
-#include "_zhematrix-/_zhematrix-double.hpp"
-#include "_zhematrix-/_zhematrix-complex.hpp"
-
-
-///////////////////////////////////////////////////////////
-//////////////////////// zgsmatrix ////////////////////////
-///////////////////////////////////////////////////////////
-#include "zgsmatrix-/zgsmatrix-constructor.hpp"
-#include "zgsmatrix-/zgsmatrix-cast.hpp"
-#include "zgsmatrix-/zgsmatrix-io.hpp"
-#include "zgsmatrix-/zgsmatrix-misc.hpp"
-#include "zgsmatrix-/zgsmatrix-calc.hpp"
-#include "zgsmatrix-/zgsmatrix-unary.hpp"
-#include "zgsmatrix-/zgsmatrix-zcovector.hpp"
-#include "zgsmatrix-/zgsmatrix-_zcovector.hpp"
-#include "zgsmatrix-/zgsmatrix-zrovector.hpp"
-#include "zgsmatrix-/zgsmatrix-_zrovector.hpp"
-#include "zgsmatrix-/zgsmatrix-zgematrix.hpp"
-#include "zgsmatrix-/zgsmatrix-_zgematrix.hpp"
-#include "zgsmatrix-/zgsmatrix-zgbmatrix.hpp"
-#include "zgsmatrix-/zgsmatrix-_zgbmatrix.hpp"
-#include "zgsmatrix-/zgsmatrix-zhematrix.hpp"
-#include "zgsmatrix-/zgsmatrix-_zhematrix.hpp"
-#include "zgsmatrix-/zgsmatrix-zgsmatrix.hpp"
-#include "zgsmatrix-/zgsmatrix-_zgsmatrix.hpp"
-//#include "zgsmatrix-/zgsmatrix-zhsmatrix.hpp"
-//#include "zgsmatrix-/zgsmatrix-_zhsmatrix.hpp"
-#include "zgsmatrix-/zgsmatrix-double.hpp"
-#include "zgsmatrix-/zgsmatrix-complex.hpp"
-/////////////////////// _zgsmatrix ////////////////////////
-#include "_zgsmatrix-/_zgsmatrix-constructor.hpp"
-#include "_zgsmatrix-/_zgsmatrix-cast.hpp"
-#include "_zgsmatrix-/_zgsmatrix-io.hpp"
-#include "_zgsmatrix-/_zgsmatrix-misc.hpp"
-#include "_zgsmatrix-/_zgsmatrix-calc.hpp"
-#include "_zgsmatrix-/_zgsmatrix-unary.hpp"
-#include "_zgsmatrix-/_zgsmatrix-zcovector.hpp"
-#include "_zgsmatrix-/_zgsmatrix-_zcovector.hpp"
-#include "_zgsmatrix-/_zgsmatrix-zrovector.hpp"
-#include "_zgsmatrix-/_zgsmatrix-_zrovector.hpp"
-#include "_zgsmatrix-/_zgsmatrix-zgematrix.hpp"
-#include "_zgsmatrix-/_zgsmatrix-_zgematrix.hpp"
-#include "_zgsmatrix-/_zgsmatrix-zgbmatrix.hpp"
-#include "_zgsmatrix-/_zgsmatrix-_zgbmatrix.hpp"
-#include "_zgsmatrix-/_zgsmatrix-zhematrix.hpp"
-#include "_zgsmatrix-/_zgsmatrix-_zhematrix.hpp"
-#include "_zgsmatrix-/_zgsmatrix-zgsmatrix.hpp"
-#include "_zgsmatrix-/_zgsmatrix-_zgsmatrix.hpp"
-//#include "_zgsmatrix-/_zgsmatrix-zhsmatrix.hpp"
-//#include "_zgsmatrix-/_zgsmatrix-_zhsmatrix.hpp"
-#include "_zgsmatrix-/_zgsmatrix-double.hpp"
-#include "_zgsmatrix-/_zgsmatrix-complex.hpp"
-
-///////////////////////////////////////////////////////////
-//////////////////////// zhsmatrix ////////////////////////
-///////////////////////////////////////////////////////////
-#include "zhsmatrix-/zhsmatrix-constructor.hpp"
-#include "zhsmatrix-/zhsmatrix-cast.hpp"
-#include "zhsmatrix-/zhsmatrix-io.hpp"
-#include "zhsmatrix-/zhsmatrix-misc.hpp"
-#include "zhsmatrix-/zhsmatrix-calc.hpp"
-#include "zhsmatrix-/zhsmatrix-unary.hpp"
-#include "zhsmatrix-/zhsmatrix-zcovector.hpp"
-#include "zhsmatrix-/zhsmatrix-_zcovector.hpp"
-#include "zhsmatrix-/zhsmatrix-zrovector.hpp"
-#include "zhsmatrix-/zhsmatrix-_zrovector.hpp"
-#include "zhsmatrix-/zhsmatrix-zgematrix.hpp"
-#include "zhsmatrix-/zhsmatrix-_zgematrix.hpp"
-#include "zhsmatrix-/zhsmatrix-zgbmatrix.hpp"
-#include "zhsmatrix-/zhsmatrix-_zgbmatrix.hpp"
-#include "zhsmatrix-/zhsmatrix-zhematrix.hpp"
-#include "zhsmatrix-/zhsmatrix-_zhematrix.hpp"
-#include "zhsmatrix-/zhsmatrix-zhsmatrix.hpp"
-#include "zhsmatrix-/zhsmatrix-_zhsmatrix.hpp"
-#include "zhsmatrix-/zhsmatrix-double.hpp"
-#include "zhsmatrix-/zhsmatrix-complex.hpp"
-/////////////////////// _zhsmatrix ////////////////////////
-#include "_zhsmatrix-/_zhsmatrix-constructor.hpp"
-#include "_zhsmatrix-/_zhsmatrix-cast.hpp"
-#include "_zhsmatrix-/_zhsmatrix-io.hpp"
-#include "_zhsmatrix-/_zhsmatrix-misc.hpp"
-#include "_zhsmatrix-/_zhsmatrix-calc.hpp"
-#include "_zhsmatrix-/_zhsmatrix-unary.hpp"
-#include "_zhsmatrix-/_zhsmatrix-zcovector.hpp"
-#include "_zhsmatrix-/_zhsmatrix-_zcovector.hpp"
-#include "_zhsmatrix-/_zhsmatrix-zrovector.hpp"
-#include "_zhsmatrix-/_zhsmatrix-_zrovector.hpp"
-#include "_zhsmatrix-/_zhsmatrix-zgematrix.hpp"
-#include "_zhsmatrix-/_zhsmatrix-_zgematrix.hpp"
-#include "_zhsmatrix-/_zhsmatrix-zgbmatrix.hpp"
-#include "_zhsmatrix-/_zhsmatrix-_zgbmatrix.hpp"
-#include "_zhsmatrix-/_zhsmatrix-zhematrix.hpp"
-#include "_zhsmatrix-/_zhsmatrix-_zhematrix.hpp"
-#include "_zhsmatrix-/_zhsmatrix-zhsmatrix.hpp"
-#include "_zhsmatrix-/_zhsmatrix-_zhsmatrix.hpp"
-#include "_zhsmatrix-/_zhsmatrix-double.hpp"
-#include "_zhsmatrix-/_zhsmatrix-complex.hpp"
-
-///////////////////////////////////////////////////////////
-///////////////////////// double //////////////////////////
-///////////////////////////////////////////////////////////
-#include "double-/double-zcovector.hpp"
-#include "double-/double-_zcovector.hpp"
-#include "double-/double-zrovector.hpp"
-#include "double-/double-_zrovector.hpp"
-#include "double-/double-zgematrix.hpp"
-#include "double-/double-_zgematrix.hpp"
-#include "double-/double-zgbmatrix.hpp"
-#include "double-/double-_zgbmatrix.hpp"
-#include "double-/double-zhematrix.hpp"
-#include "double-/double-_zhematrix.hpp"
-#include "double-/double-zgsmatrix.hpp"
-#include "double-/double-_zgsmatrix.hpp"
-#include "double-/double-zhsmatrix.hpp"
-#include "double-/double-_zhsmatrix.hpp"
-
-///////////////////////////////////////////////////////////
-///////////////////////// complex /////////////////////////
-///////////////////////////////////////////////////////////
-#include "complex-/complex-zcovector.hpp"
-#include "complex-/complex-_zcovector.hpp"
-#include "complex-/complex-zrovector.hpp"
-#include "complex-/complex-_zrovector.hpp"
-#include "complex-/complex-zgematrix.hpp"
-#include "complex-/complex-_zgematrix.hpp"
-#include "complex-/complex-zgbmatrix.hpp"
-#include "complex-/complex-_zgbmatrix.hpp"
-#include "complex-/complex-zhematrix.hpp"
-#include "complex-/complex-_zhematrix.hpp"
-#include "complex-/complex-zgsmatrix.hpp"
-#include "complex-/complex-_zgsmatrix.hpp"
-#include "complex-/complex-zhsmatrix.hpp"
-#include "complex-/complex-_zhsmatrix.hpp"
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-///////////////////////////////////////////////////////////
-////////////////////////// small //////////////////////////
-///////////////////////////////////////////////////////////
-//// dcovector_small ////
-#include "small/dcovector_small-constructors.hpp"
-#include "small/dcovector_small-functions.hpp"
-#include "small/dcovector_small-specialized.hpp"
-//// drovector_small ////
-#include "small/drovector_small-constructors.hpp"
-#include "small/drovector_small-functions.hpp"
-#include "small/drovector_small-specialized.hpp"
-//// dgematrix_small ////
-#include "small/dgematrix_small-constructors.hpp"
-#include "small/dgematrix_small-functions.hpp"
-#include "small/dgematrix_small-specialized.hpp"
-//// dsymatrix_small ////
-#include "small/dsymatrix_small-constructors.hpp"
-#include "small/dsymatrix_small-functions.hpp"
-#include "small/dsymatrix_small-specialized.hpp"
-/////////////////////////////////////////////////
-//// zcovector_small ////
-#include "small/zcovector_small-constructors.hpp"
-#include "small/zcovector_small-functions.hpp"
-#include "small/zcovector_small-specialized.hpp"
-//// zrovector_small ////
-#include "small/zrovector_small-constructors.hpp"
-#include "small/zrovector_small-functions.hpp"
-#include "small/zrovector_small-specialized.hpp"
-//// zgematrix_small ////
-#include "small/zgematrix_small-constructors.hpp"
-#include "small/zgematrix_small-functions.hpp"
-#include "small/zgematrix_small-specialized.hpp"
-//// zhematrix_small ////
-#include "small/zhematrix_small-constructors.hpp"
-#include "small/zhematrix_small-functions.hpp"
-#include "small/zhematrix_small-specialized.hpp"
-/////////////////////////////////////////////////
-//// double ////
-#include "small/double-small.hpp"
-//// comple ////
-#include "small/comple-small.hpp"
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-}//namespace CPPL
-#endif//CPPLAPACK_H
diff --git a/cpplapack-r198/.svn/pristine/02/0262df855071e6eb1a0e0d90f887dd14a5519909.svn-base b/cpplapack-r198/.svn/pristine/02/0262df855071e6eb1a0e0d90f887dd14a5519909.svn-base
deleted file mode 100644
index 869987e..0000000
--- a/cpplapack-r198/.svn/pristine/02/0262df855071e6eb1a0e0d90f887dd14a5519909.svn-base
+++ /dev/null
@@ -1,36 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int M(4), N(3);
-  
-  CPPL::zgematrix A;
-  cout << "A || m=" << A.m << " n=" << A.n << " array=" << A.array << endl;
-  
-  CPPL::zgematrix B(M,N);
-  for(int i=0; i<B.m; i++){ for(int j=0; j<B.n; j++){
-    B(i,j) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-  }}
-  cout << "B || m=" << B.m << " n=" << B.n << " array=" << B.array << endl;
-  cout << B << endl;
-  
-  CPPL::zgematrix C(B);
-  cout << "C || m=" << C.m << " n=" << C.n << " array=" << C.array << endl;
-  cout << C << endl;
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/02/02cb39550f69a30df8690545764e99bb5a83451b.svn-base b/cpplapack-r198/.svn/pristine/02/02cb39550f69a30df8690545764e99bb5a83451b.svn-base
deleted file mode 100644
index 3d89e44..0000000
--- a/cpplapack-r198/.svn/pristine/02/02cb39550f69a30df8690545764e99bb5a83451b.svn-base
+++ /dev/null
@@ -1,24 +0,0 @@
-//=============================================================================
-/*! zrovector*_zhematrix operator */
-inline _zrovector operator*(const zrovector& vec, const _zhematrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vec.l!=mat.n){
-    ERROR_REPORT;
-    std::cerr << "These vector and matrix can not make a product." << std::endl
-              << "Your input was (" << vec.l << ") * (" << mat.n << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zrovector newvec(mat.n);
-  char uplo ='l';
-  comple alpha =comple(1.,0.);
-  CPPL_INT inc =1;
-  comple beta =comple(0.,0.);
-  
-  zhemv_( &uplo, &mat.n, &alpha, mat.array, &mat.n, vec.array, &inc, &beta, newvec.array, &inc );
-  
-  mat.destroy();
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/02/02f5fd034db6056df628c71d9530bc0eb9bdf3be.svn-base b/cpplapack-r198/.svn/pristine/02/02f5fd034db6056df628c71d9530bc0eb9bdf3be.svn-base
deleted file mode 100644
index bbe84dc..0000000
--- a/cpplapack-r198/.svn/pristine/02/02f5fd034db6056df628c71d9530bc0eb9bdf3be.svn-base
+++ /dev/null
@@ -1,11 +0,0 @@
-//=============================================================================
-/*! double*_dgsmatrix operator */
-inline _dgsmatrix operator*(const double& d, const _dgsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  const std::vector<dcomponent>::iterator mat_data_end =mat.data.end();
-  for(std::vector<dcomponent>::iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    it->v *= d;
-  }
-  
-  return mat;
-}
diff --git a/cpplapack-r198/.svn/pristine/03/0313faa67890db9285f0b6bea8f2efc6ab367dd7.svn-base b/cpplapack-r198/.svn/pristine/03/0313faa67890db9285f0b6bea8f2efc6ab367dd7.svn-base
deleted file mode 100644
index 5f8679e..0000000
--- a/cpplapack-r198/.svn/pristine/03/0313faa67890db9285f0b6bea8f2efc6ab367dd7.svn-base
+++ /dev/null
@@ -1,40 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int M(4), N(3), KL(1), KU(2);
-  
-  CPPL::zgbmatrix A(M,N,KL,KU);
-  for(int i=0; i<A.m; i++){ for(int j=0; j<A.n; j++){
-    if(!( i-j>A.kl || j-i>A.ku )){
-      A(i,j) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-    }
-  }}
-  
-  cout << "A =\n" << A << endl;
-  cout << "A*10. =\n" << A*10. << endl;
-  cout << "A/10. =\n" << A/10. << endl;
-  
-  cout << "#### A*=10.; ####" << endl;
-  A*=10.;
-  cout << "A =\n" << A << endl;
-  cout << "#### A/=10.; ####" << endl;
-  A/=10.;
-  cout << "A =\n" << A << endl;
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/03/038926d860db19f97814c9af7552d7329cce1162.svn-base b/cpplapack-r198/.svn/pristine/03/038926d860db19f97814c9af7552d7329cce1162.svn-base
deleted file mode 100644
index fc880ce..0000000
--- a/cpplapack-r198/.svn/pristine/03/038926d860db19f97814c9af7552d7329cce1162.svn-base
+++ /dev/null
@@ -1,283 +0,0 @@
-//=============================================================================
-/*! operator() for const object */
-inline comple zgsmatrix::operator()(const CPPL_INT& i, const CPPL_INT& j) const
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || j<0 || m<=i || n<=j ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the matrix size." << std::endl
-              << "Your input is (" << i << "," << j << "), whereas the matrix size is " << m << "x" << n << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //// search (i,j) component ////
-  const std::vector<CPPL_INT>::const_iterator rows_i_end =rows[i].end();
-  for(std::vector<CPPL_INT>::const_iterator p=rows[i].begin(); p!=rows_i_end; p++){
-    if(data[*p].j==j){ return data[*p].v; }
-  }
-  
-  //// (i,j) component was not found ////
-  return comple(0.0,0.0);
-}
-
-//=============================================================================
-/*! operator() for const object */
-inline comple& zgsmatrix::operator()(const CPPL_INT& i, const CPPL_INT& j)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || j<0 || m<=i || n<=j ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the matrix size." << std::endl
-              << "Your input is (" << i << "," << j << "), whereas the matrix size is " << m << "x" << n << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //////// search (i,j) component ////////
-  const std::vector<CPPL_INT>::iterator rows_i_end =rows[i].end();
-  for(std::vector<CPPL_INT>::iterator p=rows[i].begin(); p!=rows_i_end; p++){
-    if(data[*p].j==j){ return data[*p].v; }
-  }
-  
-  //////// (i,j) component not found ////////
-  rows[i].push_back(CPPL_INT(data.size()));
-  cols[j].push_back(CPPL_INT(data.size()));
-  data.push_back( zcomponent(i,j, comple(0.,0.)) );
-  return data.back().v;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! put value without isListed check */
-inline zgsmatrix& zgsmatrix::put(const CPPL_INT& i, const CPPL_INT& j, const comple& v)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || j<0 || m<=i || n<=j ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the matrix size." << std::endl
-              << "Your input is (" << i << "," << j << "), whereas the matrix size is " << m << "x" << n << "." << std::endl;
-    exit(1);
-  }
-  
-  if( isListed(i,j) ){
-    ERROR_REPORT;
-    std::cerr << "The required component is already listed." << std::endl
-              << "Your input was (" << i << "," << j << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //// push ////
-  rows[i].push_back(CPPL_INT(data.size()));
-  cols[j].push_back(CPPL_INT(data.size()));
-  data.push_back(zcomponent(i,j,v));
-  
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! delete the entry of a component */
-inline zgsmatrix& zgsmatrix::del(const CPPL_INT i, const CPPL_INT j)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || j<0 || m<=i || n<=j ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the matrix size." << std::endl
-              << "Your input is (" << i << "," << j << "), whereas the matrix size is " << m << "x" << n << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //// search (i,j) component ////
-  const std::vector<CPPL_INT>::iterator rows_i_end =rows[i].end();  
-  for(std::vector<CPPL_INT>::iterator p=rows[i].begin(); p!=rows_i_end; p++){
-    if(data[*p].j==j){//exists
-      //// save position ////
-      CPPL_INT c =*p;
-      CPPL_INT C =CPPL_INT(data.size()-1);
-      
-      //// data translation ////
-      data[c]=data.back();
-      data.pop_back();
-      
-      //// remove from List ////
-      rows[i].erase(p);
-      const std::vector<CPPL_INT>::iterator cols_j_end =cols[j].end();
-      for(std::vector<CPPL_INT>::iterator q=cols[j].begin(); q!=cols_j_end; q++){
-        if(*q==c){ cols[j].erase(q); break; }
-      }
-      
-      //// modify the entry of translated component ////
-      CPPL_INT I(data[c].i), J(data[c].j);
-      const std::vector<CPPL_INT>::iterator rows_I_end =rows[I].end();
-      for(std::vector<CPPL_INT>::iterator q=rows[I].begin(); q!=rows_I_end; q++){
-        if(*q==C){ *q=c; break; }
-      }
-      const std::vector<CPPL_INT>::iterator cols_J_end =cols[J].end();
-      for(std::vector<CPPL_INT>::iterator q=cols[J].begin(); q!=cols_J_end; q++){
-        if(*q==C){ *q=c; break; }
-      }
-      return *this;
-    }
-  }
-  
-#ifdef  CPPL_DEBUG
-  std::cerr << "# [NOTE] zgsmatrix::del(CPPL_INT&, CPPL_INT&): The required component was not listed. Your input was (" << i << "," << j << ")." << std::endl;
-#endif//CPPL_DEBUG
-  
-  return *this;
-}
-
-//=============================================================================
-/*! delete the entry of an element */
-inline zgsmatrix& zgsmatrix::del(const CPPL_INT c)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( c<0 || c>=CPPL_INT(data.size()) ){
-    ERROR_REPORT;
-    std::cerr << "The required element is out of the matrix volume." << std::endl
-              << "Your input was (" << c << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  if( c==CPPL_INT(data.size()-1) ){//if c is the last element
-    CPPL_INT i(data[c].i), j(data[c].j);
-    const std::vector<CPPL_INT>::iterator rows_i_end =rows[i].end();
-    for(std::vector<CPPL_INT>::iterator q=rows[i].begin(); q!=rows_i_end; q++){
-      if(*q==c){ rows[i].erase(q); break; }
-    }
-    const std::vector<CPPL_INT>::iterator cols_j_end =cols[j].end();
-    for(std::vector<CPPL_INT>::iterator q=cols[j].begin(); q!=cols_j_end; q++){
-      if(*q==c){ cols[j].erase(q); break; }
-    }
-    data.pop_back();
-  }
-
-  else{//if c is NOT the last element
-    //// data translation ////
-    CPPL_INT C =CPPL_INT(data.size()-1);
-    CPPL_INT i(data[c].i), j(data[c].j), I(data.back().i), J(data.back().j);
-    data[c]=data.back();
-    //// remove entry of component ////
-    const std::vector<CPPL_INT>::iterator rows_i_end =rows[i].end();
-    for(std::vector<CPPL_INT>::iterator q=rows[i].begin(); q!=rows_i_end; q++){
-      if(*q==c){ rows[i].erase(q); break; }
-    }
-    const std::vector<CPPL_INT>::iterator cols_j_end =cols[j].end();
-    for(std::vector<CPPL_INT>::iterator q=cols[j].begin(); q!=cols_j_end; q++){
-      if(*q==c){ cols[j].erase(q); break; }
-    }
-    //// modify the entry of translated component ////
-    const std::vector<CPPL_INT>::iterator rows_I_end =rows[I].end();
-    for(std::vector<CPPL_INT>::iterator q=rows[I].begin(); q!=rows_I_end; q++){
-      if(*q==C){ *q=c; break; }
-    }
-    const std::vector<CPPL_INT>::iterator cols_J_end =cols[J].end();
-    for(std::vector<CPPL_INT>::iterator q=cols[J].begin(); q!=cols_J_end; q++){
-      if(*q==C){ *q=c; break; }
-    }
-    //// pop_back ////
-    data.pop_back();
-  }
-  
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-inline std::ostream& operator<<(std::ostream& s, const zgsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<mat.m; i++){
-    const std::vector<CPPL_INT>::const_iterator mat_rows_i_end =mat.rows[i].end();
-    for(CPPL_INT j=0; j<mat.n; j++){
-      std::vector<CPPL_INT>::const_iterator q;
-      for(q=mat.rows[i].begin(); q!=mat_rows_i_end; q++){
-        if(mat.data[*q].j==j){ break; }
-      }
-      if(q!=mat_rows_i_end){ s << " " << mat.data[*q].v; }
-      else{ s << " x"; }
-    }
-    s << std::endl;
-  }
-  
-  return s;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-inline void zgsmatrix::write(const char* filename) const
-{CPPL_VERBOSE_REPORT;
-  std::ofstream ofs(filename, std::ios::trunc);
-  ofs.setf(std::cout.flags());
-  ofs.precision(std::cout.precision());
-  ofs.width(std::cout.width());
-  ofs.fill(std::cout.fill());
-  
-  ofs << "#zgsmatrix " << m << " " << n << " " << data.size() << std::endl;
-  
-  const std::vector<zcomponent>::const_iterator data_end =data.end();
-  for(std::vector<zcomponent>::const_iterator it=data.begin(); it!=data_end; it++){
-    ofs << it->i << " " << it->j << " " << it->v << std::endl;
-  }
-  
-  ofs.close();
-}
-
-//=============================================================================
-inline void zgsmatrix::read(const char* filename)
-{CPPL_VERBOSE_REPORT;
-  std::ifstream s( filename );
-  if(!s){
-    ERROR_REPORT;
-    std::cerr << "The file \"" << filename << "\" can not be opened." << std::endl;
-    exit(1);
-  }
-
-  std::string id;
-  s >> id;
-  if( id != "zgsmatrix" && id != "#zgsmatrix" ){
-    ERROR_REPORT;
-    std::cerr << "The type name of the file \"" << filename << "\" is not zgsmatrix." << std::endl
-              << "Its type name was " << id << " ." << std::endl;
-    exit(1);
-  }
-  
-  //////// m, n, size ////////
-  size_t size;
-  s >> m >> n >> size;
-  resize(m, n);
-  data.reserve(size);//NOT resize.
-  
-  //////// i, j, v ////////
-  CPPL_INT i, j;
-  comple v;
-  for(size_t k=0; k<size; k++){
-    s >> i >> j >> v;
-    put(i,j, v);
-  }
-  
-  //// check ////
-  s >> i;
-  if(!s.eof()){
-    ERROR_REPORT;
-    std::cerr << "There is something is wrong with the file \"" << filename << " ." << std::endl
-              << "Most likely, there are too many data components over the context." << std::endl;
-    exit(1);
-  }
-  s.close();
-}
diff --git a/cpplapack-r198/.svn/pristine/03/03f000cf90a5cc45b53098cc892ce00622f6a7ef.svn-base b/cpplapack-r198/.svn/pristine/03/03f000cf90a5cc45b53098cc892ce00622f6a7ef.svn-base
deleted file mode 100644
index a5a0339..0000000
--- a/cpplapack-r198/.svn/pristine/03/03f000cf90a5cc45b53098cc892ce00622f6a7ef.svn-base
+++ /dev/null
@@ -1,25 +0,0 @@
-//=============================================================================
-/*! zgbmatrix*_zcovector operator */
-inline _zcovector operator*(const zgbmatrix& mat, const _zcovector& vec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(mat.n!=vec.l){
-    ERROR_REPORT;
-    std::cerr << "These matrix and vector can not make a product." << std::endl
-              << "Your input was (" << mat.m << "x" << mat.n << ") * (" << vec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zcovector newvec(mat.m);
-  char trans ='n';
-  comple alpha =comple(1.,0.);
-  CPPL_INT lda =mat.kl+mat.ku+1;
-  CPPL_INT inc =1;
-  comple beta =comple(0.,0.);
-  
-  zgbmv_( &trans, &mat.m, &mat.n, &mat.kl, &mat.ku, &alpha, mat.array, &lda, vec.array, &inc, &beta, newvec.array, &inc );
-  
-  vec.destroy();
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/04/0460c589f3977ab3841af59b41b1a22490e29f0d.svn-base b/cpplapack-r198/.svn/pristine/04/0460c589f3977ab3841af59b41b1a22490e29f0d.svn-base
deleted file mode 100644
index 2015f77..0000000
--- a/cpplapack-r198/.svn/pristine/04/0460c589f3977ab3841af59b41b1a22490e29f0d.svn-base
+++ /dev/null
@@ -1,28 +0,0 @@
-//=============================================================================
-/*! _zcovector constructor */
-inline _zcovector::_zcovector()
-{CPPL_VERBOSE_REPORT;
-  l =0;
-  array =NULL;
-}
-
-//=============================================================================
-/*! _zcovector copy constructor */
-inline _zcovector::_zcovector(const _zcovector& vec)
-{CPPL_VERBOSE_REPORT;
-  l =vec.l;
-  array =vec.array;
-  
-  vec.nullify();
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! _zcovector destructor */
-inline _zcovector::~_zcovector()
-{CPPL_VERBOSE_REPORT;
-  delete [] array;
-}
diff --git a/cpplapack-r198/.svn/pristine/05/05a336bcc4a3c561f806e36f564977164ca736d8.svn-base b/cpplapack-r198/.svn/pristine/05/05a336bcc4a3c561f806e36f564977164ca736d8.svn-base
deleted file mode 100644
index f1adcbc..0000000
--- a/cpplapack-r198/.svn/pristine/05/05a336bcc4a3c561f806e36f564977164ca736d8.svn-base
+++ /dev/null
@@ -1,143 +0,0 @@
-//=============================================================================
-//! Complex Double-precision General Band Matrix Class
-class zgbmatrix
-{
-public:
-  ///////////////////////////////////////////////
-  /////////////////// objects ///////////////////
-  ///////////////////////////////////////////////
-  CPPL_INT m; //!< matrix row size
-  CPPL_INT n; //!< matrix column size
-  CPPL_INT kl; //!< lower band width
-  CPPL_INT ku; //!< upper band width
-  comple* array; //!< 1D array to store matrix data
-  comple** darray; //!< array of pointers of column head addresses
-  
-  ///////////////////////////////////////////////
-  ///////////////// constructors ////////////////
-  ///////////////////////////////////////////////
-  inline zgbmatrix();
-  inline zgbmatrix(const zgbmatrix&);
-  inline zgbmatrix(const _zgbmatrix&);
-  inline zgbmatrix(const CPPL_INT&, const CPPL_INT&, const CPPL_INT&, const CPPL_INT&);
-  inline zgbmatrix(const char*);
-  inline ~zgbmatrix(); //destructor
-  
-  ///////////////////////////////////////////////
-  ////////////////// functions //////////////////
-  ///////////////////////////////////////////////
-  //////// cast ////////
-  inline _zgematrix to_zgematrix() const;
-  
-  //////// io ////////
-  inline comple& operator()(const CPPL_INT&, const CPPL_INT&);
-  inline comple operator()(const CPPL_INT&, const CPPL_INT&) const;
-  inline zgbmatrix& set(const CPPL_INT&, const CPPL_INT&, const comple&);
-  inline friend std::ostream& operator<<(std::ostream&, const zgbmatrix&);
-  inline void write(const char*) const;
-  inline void read(const char*);
-  
-  //////// misc ////////
-  inline void clear();
-  inline zgbmatrix& zero();
-  inline zgbmatrix& identity();
-  inline void chsign();
-  inline void copy(const zgbmatrix&);
-  inline void shallow_copy(const _zgbmatrix&);
-  inline void resize(const CPPL_INT&, const CPPL_INT&, const CPPL_INT&, const CPPL_INT&);
-  inline _zrovector row(const CPPL_INT&) const;
-  inline _zcovector col(const CPPL_INT&) const;
-  inline _dgbmatrix real() const;
-  inline _dgbmatrix imag() const;
-  inline _dgbmatrix abs() const;
-  inline _dgbmatrix arg() const;
-  inline friend void swap(zgbmatrix&, zgbmatrix&);
-  inline friend _zgbmatrix _(zgbmatrix&);
-  
-  //////// calc ////////
-  inline friend _zgbmatrix t(const zgbmatrix&);
-  inline friend _zgematrix i(const zgbmatrix&);
-  inline friend _zgbmatrix conj(const zgbmatrix&);
-  inline friend _zgbmatrix conjt(const zgbmatrix&);
-  
-  //////// lapack ////////
-  inline CPPL_INT zgbsv(zgematrix&);
-  inline CPPL_INT zgbsv(zcovector&);
-  
-  ///////////////////////////////////////////////
-  ///////////// numerical operators /////////////
-  ///////////////////////////////////////////////
-  //////// = ////////
-  inline zgbmatrix& operator=(const  zgbmatrix&);
-  inline zgbmatrix& operator=(const _zgbmatrix&);
-  
-  //////// += ////////
-  inline zgbmatrix& operator+=(const  zgbmatrix&);
-  inline zgbmatrix& operator+=(const _zgbmatrix&);
-  
-  //////// -= ////////
-  inline zgbmatrix& operator-=(const  zgbmatrix&);
-  inline zgbmatrix& operator-=(const _zgbmatrix&);
-  
-  //////// *= ////////
-  inline zgbmatrix& operator*=(const  zgbmatrix&);
-  inline zgbmatrix& operator*=(const _zgbmatrix&);
-  inline zgbmatrix& operator*=(const     double&);
-  inline zgbmatrix& operator*=(const     comple&);
-  
-  //////// /= ////////
-  inline zgbmatrix& operator/=(const     double&);  
-  inline zgbmatrix& operator/=(const     comple&);
-  
-  //////// unary ////////
-  inline friend const zgbmatrix& operator+(const zgbmatrix&);
-  inline friend _zgbmatrix operator-(const  zgbmatrix&);
-  
-  //////// + ////////
-  inline friend _zgematrix operator+(const  zgbmatrix&, const  zgematrix&);
-  inline friend _zgematrix operator+(const  zgbmatrix&, const _zgematrix&);
-  inline friend _zgematrix operator+(const  zgbmatrix&, const  zhematrix&);
-  inline friend _zgematrix operator+(const  zgbmatrix&, const _zhematrix&);
-  inline friend _zgbmatrix operator+(const  zgbmatrix&, const  zgbmatrix&);
-  inline friend _zgbmatrix operator+(const  zgbmatrix&, const _zgbmatrix&);
-  inline friend _zgematrix operator+(const  zgbmatrix&, const  zgsmatrix&);
-  inline friend _zgematrix operator+(const  zgbmatrix&, const _zgsmatrix&);
-  inline friend _zgematrix operator+(const  zgbmatrix&, const  zhsmatrix&);
-  inline friend _zgematrix operator+(const  zgbmatrix&, const _zhsmatrix&);
-  
-  //////// - ////////
-  inline friend _zgematrix operator-(const  zgbmatrix&, const  zgematrix&);
-  inline friend _zgematrix operator-(const  zgbmatrix&, const _zgematrix&);
-  inline friend _zgematrix operator-(const  zgbmatrix&, const  zhematrix&);
-  inline friend _zgematrix operator-(const  zgbmatrix&, const _zhematrix&);
-  inline friend _zgbmatrix operator-(const  zgbmatrix&, const  zgbmatrix&);
-  inline friend _zgbmatrix operator-(const  zgbmatrix&, const _zgbmatrix&);
-  inline friend _zgematrix operator-(const  zgbmatrix&, const  zgsmatrix&);
-  inline friend _zgematrix operator-(const  zgbmatrix&, const _zgsmatrix&);
-  inline friend _zgematrix operator-(const  zgbmatrix&, const  zhsmatrix&);
-  inline friend _zgematrix operator-(const  zgbmatrix&, const _zhsmatrix&);
-  
-  //////// * ////////
-  inline friend _zcovector operator*(const  zgbmatrix&, const  zcovector&);
-  inline friend _zcovector operator*(const  zgbmatrix&, const _zcovector&);
-  inline friend _zgematrix operator*(const  zgbmatrix&, const  zgematrix&);
-  inline friend _zgematrix operator*(const  zgbmatrix&, const _zgematrix&);
-  inline friend _zgematrix operator*(const  zgbmatrix&, const  zhematrix&);
-  inline friend _zgematrix operator*(const  zgbmatrix&, const _zhematrix&);
-  inline friend _zgbmatrix operator*(const  zgbmatrix&, const  zgbmatrix&);
-  inline friend _zgbmatrix operator*(const  zgbmatrix&, const _zgbmatrix&);
-  inline friend _zgematrix operator*(const  zgbmatrix&, const  zgsmatrix&);
-  inline friend _zgematrix operator*(const  zgbmatrix&, const _zgsmatrix&);
-  inline friend _zgematrix operator*(const  zgbmatrix&, const  zhsmatrix&);
-  inline friend _zgematrix operator*(const  zgbmatrix&, const _zhsmatrix&);
-  inline friend _zgbmatrix operator*(const  zgbmatrix&, const     double&);
-  inline friend _zgbmatrix operator*(const  zgbmatrix&, const     comple&);
-  
-  //////// / ////////
-  inline friend _zgbmatrix operator/(const  zgbmatrix&, const     double&);
-  inline friend _zgbmatrix operator/(const  zgbmatrix&, const     comple&);
-  
-  //////// double, comple ////////
-  inline friend _zgbmatrix operator*(const     double&, const  zgbmatrix&);
-  inline friend _zgbmatrix operator*(const     comple&, const  zgbmatrix&);
-};
diff --git a/cpplapack-r198/.svn/pristine/06/067e450c7fec620da893085573d850cbc0cbd8ca.svn-base b/cpplapack-r198/.svn/pristine/06/067e450c7fec620da893085573d850cbc0cbd8ca.svn-base
deleted file mode 100644
index 773b1b0..0000000
--- a/cpplapack-r198/.svn/pristine/06/067e450c7fec620da893085573d850cbc0cbd8ca.svn-base
+++ /dev/null
@@ -1,7 +0,0 @@
-//=============================================================================
-/*! complex*zhsmatrix operator */
-inline _zgsmatrix operator*(const comple& d, const zhsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  zgsmatrix newmat =mat.to_zgsmatrix();
-  return d*newmat;
-}
diff --git a/cpplapack-r198/.svn/pristine/06/06ecab1cdf7cc0f52bb77f9ab953fab8a9728e26.svn-base b/cpplapack-r198/.svn/pristine/06/06ecab1cdf7cc0f52bb77f9ab953fab8a9728e26.svn-base
deleted file mode 100644
index 87567cb..0000000
--- a/cpplapack-r198/.svn/pristine/06/06ecab1cdf7cc0f52bb77f9ab953fab8a9728e26.svn-base
+++ /dev/null
@@ -1,24 +0,0 @@
-//=============================================================================
-/*! zrovector*_zgematrix operator */
-inline _zrovector operator*(const zrovector& vec, const _zgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vec.l!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These vector and matrix can not make a product." << std::endl
-              << "Your input was (" << vec.l << ") * (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zrovector newvec(mat.n);
-  char trans ='T';
-  comple alpha =comple(1.,0.);
-  CPPL_INT inc =1;
-  comple beta =comple(0.,0.);
-
-  zgemv_( &trans, &mat.m, &mat.n, &alpha, mat.array, &mat.m, vec.array, &inc, &beta, newvec.array, &inc );
-  
-  mat.destroy();
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/06/06f57ff82602124fd4b0f9fe92731e33402e7f85.svn-base b/cpplapack-r198/.svn/pristine/06/06f57ff82602124fd4b0f9fe92731e33402e7f85.svn-base
deleted file mode 100644
index b7fb0b1..0000000
--- a/cpplapack-r198/.svn/pristine/06/06f57ff82602124fd4b0f9fe92731e33402e7f85.svn-base
+++ /dev/null
@@ -1,41 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int N(3);
-  
-  CPPL::zhematrix A(N);
-  for(int i=0; i<A.n; i++){
-    for(int j=0; j<i; j++){
-      A(i,j) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-    }
-    A(i,i) =complex<double>(rand()/(RAND_MAX/10), 0.0);
-  }
-  
-  cout << "A =\n" << A << endl;
-  cout << "A*10. =\n" << A*10. << endl;
-  cout << "A/10. =\n" << A/10. << endl;
-  
-  cout << "#### A*=10.; ####" << endl;
-  A*=10.;
-  cout << "A =\n" << A << endl;
-  cout << "#### A/=10.; ####" << endl;
-  A/=10.;
-  cout << "A =\n" << A << endl;
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/06/06f7ef4e4332aefe3551c83de06a627b389ba749.svn-base b/cpplapack-r198/.svn/pristine/06/06f7ef4e4332aefe3551c83de06a627b389ba749.svn-base
deleted file mode 100644
index e5ce088..0000000
--- a/cpplapack-r198/.svn/pristine/06/06f7ef4e4332aefe3551c83de06a627b389ba749.svn-base
+++ /dev/null
@@ -1,78 +0,0 @@
-//=============================================================================
-/*! _dgbmatrix+dsymatrix operator */
-inline _dgematrix operator+(const _dgbmatrix& matA, const dsymatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.n || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat(matB.to_dgematrix());
-  for(CPPL_INT i=0; i<matA.m; i++){
-    const CPPL_INT jmax =std::min(matA.n,i+matA.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matA.kl); j<jmax; j++){
-      newmat(i,j) += matA(i,j);
-    }
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _dgbmatrix-dsymatrix operator */
-inline _dgematrix operator-(const _dgbmatrix& matA, const dsymatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.n || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat( (-matB).to_dgematrix() );
-  for(CPPL_INT i=0; i<matA.m; i++){
-    const CPPL_INT jmax =std::min(matA.n,i+matA.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matA.kl); j<jmax; j++){
-      newmat(i,j) += matA(i,j);
-    }
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _dgbmatrix*dgematrix operator */
-inline _dgematrix operator*(const _dgbmatrix& matA, const dsymatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat( matA.m, matB.n );
-  newmat.zero();
-  
-  for(CPPL_INT i=0; i<newmat.m; i++){
-    for(CPPL_INT j=0; j<newmat.n; j++){
-      const CPPL_INT kmax =std::min(matA.n,i+matA.ku+1);
-      for(CPPL_INT k=std::max(CPPL_INT(0),i-matA.kl); k<kmax; k++){
-        newmat(i,j) += matA(i,k)*matB(k,j);
-      }
-    }
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/07/0724728c475d4dacbaf3cfbc1c952bee2f00deb4.svn-base b/cpplapack-r198/.svn/pristine/07/0724728c475d4dacbaf3cfbc1c952bee2f00deb4.svn-base
deleted file mode 100644
index 4b8f11b..0000000
--- a/cpplapack-r198/.svn/pristine/07/0724728c475d4dacbaf3cfbc1c952bee2f00deb4.svn-base
+++ /dev/null
@@ -1,134 +0,0 @@
-//=============================================================================
-/*! _zgbmatrix+_zgbmatrix operator */
-inline _zgbmatrix operator+(const _zgbmatrix& matA, const _zgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  if(matA.kl>matB.kl && matA.ku>matB.ku){
-    for(CPPL_INT i=0; i<matB.m; i++){
-      const CPPL_INT jmax =std::min(matB.n,i+matB.ku+1);
-      for(CPPL_INT j=std::max(CPPL_INT(0),i-matB.kl); j<jmax; j++){
-        matA(i,j) += matB(i,j);
-      }
-    }
-    
-    matB.destroy();
-    return matA;
-  }
-
-  else if(matB.kl>matA.kl && matB.ku>matA.ku){
-    for(CPPL_INT i=0; i<matA.m; i++){
-      const CPPL_INT jmax =std::min(matA.n,i+matA.ku+1);
-      for(CPPL_INT j=std::max(CPPL_INT(0),i-matA.kl); j<jmax; j++){
-        matB(i,j) += matA(i,j);
-      }
-    }
-    
-    matA.destroy();
-    return matB;
-  }
-  
-  else{
-    zgbmatrix newmat(matA.m,matA.n,std::max(matA.kl,matB.kl),std::max(matA.ku,matB.ku));
-    newmat.zero();
-    
-    for(CPPL_INT i=0; i<matA.m; i++){
-      const CPPL_INT jmax1 =std::min(matA.n,i+matA.ku+1);
-      for(CPPL_INT j=std::max(CPPL_INT(0),i-matA.kl); j<jmax1; j++){
-        newmat(i,j) += matA(i,j);
-      }
-      const CPPL_INT jmax2 =std::min(matB.n,i+matB.ku+1);
-      for(CPPL_INT j=std::max(CPPL_INT(0),i-matB.kl); j<jmax2; j++){
-        newmat(i,j) += matB(i,j);
-      }
-    }
-    
-    matA.destroy();
-    matB.destroy();
-    return _(newmat);
-  }
-}
-
-//=============================================================================
-/*! _zgbmatrix-_zgbmatrix operator */
-inline _zgbmatrix operator-(const _zgbmatrix& matA, const _zgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") - (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  if(matA.kl>matB.kl && matA.ku>matB.ku){
-    for(CPPL_INT i=0; i<matB.m; i++){
-      const CPPL_INT jmax =std::min(matB.n,i+matB.ku+1);
-      for(CPPL_INT j=std::max(CPPL_INT(0),i-matB.kl); j<jmax; j++){
-        matA(i,j) -= matB(i,j);
-      }
-    }
-    
-    matB.destroy();
-    return matA;
-  }
-  
-  else{
-    zgbmatrix newmat(matA.m,matA.n,std::max(matA.kl,matB.kl),std::max(matA.ku,matB.ku));
-    newmat.zero();
-    
-    for(CPPL_INT i=0; i<matA.m; i++){
-      const CPPL_INT jmax1 =std::min(matA.n,i+matA.ku+1);
-      for(CPPL_INT j=std::max(CPPL_INT(0),i-matA.kl); j<jmax1; j++){
-        newmat(i,j) += matA(i,j);
-      }
-      const CPPL_INT jmax2 =std::min(matB.n,i+matB.ku+1);
-      for(CPPL_INT j=std::max(CPPL_INT(0),i-matB.kl); j<jmax2; j++){
-        newmat(i,j) -= matB(i,j);
-      }
-    }
-    
-    matA.destroy();
-    matB.destroy();
-    return _(newmat);
-  }
-}
-
-//=============================================================================
-/*! _zgbmatrix*_zgbmatrix operator */
-inline _zgbmatrix operator*(const _zgbmatrix& matA, const _zgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgbmatrix newmat( matA.m, matB.n, std::min(matA.kl+matB.kl,matA.m-1), std::min(matA.ku+matB.ku,matB.n-1) );
-  newmat.zero();
-  
-  for(CPPL_INT i=0; i<newmat.m; i++){
-    const CPPL_INT jmax =std::min(newmat.n,i+newmat.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-newmat.kl); j<jmax; j++){
-      const CPPL_INT kmax =std::min( std::min(matA.n,i+matA.ku+1), std::min(matB.m,j+matB.kl+1) );
-      for(CPPL_INT k=std::max( std::max(CPPL_INT(0),i-matA.kl), std::max(CPPL_INT(0),j-matB.ku) );  k<kmax; k++){
-        newmat(i,j) += matA(i,k)*matB(k,j);
-      }
-    }
-  }
-  
-  matA.destroy();
-  matB.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/07/07ab887997a9292c7d9039c46ab76c3ffed2b96a.svn-base b/cpplapack-r198/.svn/pristine/07/07ab887997a9292c7d9039c46ab76c3ffed2b96a.svn-base
deleted file mode 100644
index 4e1137d..0000000
--- a/cpplapack-r198/.svn/pristine/07/07ab887997a9292c7d9039c46ab76c3ffed2b96a.svn-base
+++ /dev/null
@@ -1,48 +0,0 @@
-//=============================================================================
-/*! zrovector*=comple operator */
-inline zrovector& zrovector::operator*=(const comple& d)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT inc =1;
-  zscal_(&l, &d, array, &inc);
-  return *this;
-}
-
-//=============================================================================
-/*! zrovector/=comple operator */
-inline zrovector& zrovector::operator/=(const comple& d)
-{CPPL_VERBOSE_REPORT;
-  comple dinv =1./d;
-  CPPL_INT inc =1;
-  zscal_(&l, &dinv, array, &inc);
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zrovector*comple operator */
-inline _zrovector operator*(const zrovector& vec, const comple& d)
-{CPPL_VERBOSE_REPORT;
-  zrovector newvec(vec.l);
-  
-  for(CPPL_INT i=0; i<vec.l; i++){
-    newvec.array[i] =vec.array[i]*d;
-  }
-  
-  return _(newvec);
-}
-
-//=============================================================================
-/*! zrovector/comple operator */
-inline _zrovector operator/(const zrovector& vec, const comple& d)
-{CPPL_VERBOSE_REPORT;
-  zrovector newvec(vec.l);
-  
-  for(CPPL_INT i=0; i<vec.l; i++){
-    newvec.array[i] =vec.array[i]/d;
-  }
-  
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/07/07ca02f9c5cfdf23607cc28306bb0b09706d7658.svn-base b/cpplapack-r198/.svn/pristine/07/07ca02f9c5cfdf23607cc28306bb0b09706d7658.svn-base
deleted file mode 100644
index 157f637..0000000
--- a/cpplapack-r198/.svn/pristine/07/07ca02f9c5cfdf23607cc28306bb0b09706d7658.svn-base
+++ /dev/null
@@ -1,9 +0,0 @@
-dcovector 8
-0.000000e+00
-0.000000e+00
-0.000000e+00
-0.000000e+00
-0.000000e+00
-1.000000e+00
--0.000000e+00
--0.000000e+00
diff --git a/cpplapack-r198/.svn/pristine/08/083b9348c4b30001e43047744bf73150bf52b34f.svn-base b/cpplapack-r198/.svn/pristine/08/083b9348c4b30001e43047744bf73150bf52b34f.svn-base
deleted file mode 100644
index 76d4cbe..0000000
--- a/cpplapack-r198/.svn/pristine/08/083b9348c4b30001e43047744bf73150bf52b34f.svn-base
+++ /dev/null
@@ -1,46 +0,0 @@
-###############################################################################
-##                                 Makefile                                  ##
-###############################################################################
-
-A.OUT = dge2png
-
-###############################################################################
-
-#include Makefile.compiler
-include Makefile.g++
-#include Makefile.icpc
-
-###############################################################################
-
-HEADERS:= $(shell find -iname '*.hpp')
-SOURCES:= $(shell find -iname '*.cpp')
-OBJECTS:= $(SOURCES:%.cpp=%.o)
-
-###############################################################################
-
-all: depend $(OBJECTS)
-	$(CXX) $(OBJECTS) $(LFLAGS) $(LIB_DIRS) $(LIBS) -o $(A.OUT)
-	@echo
-
-.SUFFIXES: .cpp .o
-.cpp.o:
-	$(CXX) -c $< $(CFLAGS) $(INCLUDE_DIRS) $(MACROS) -o $@
-	@echo
-
-depend:
-#	touch main.cpp
-	makedepend -f- -Y $(SOURCES) > Makefile.depend 2> /dev/null
-#	gccmakedep -- -I./ -MM -- $(SOURCES)
-#	$(CXX) -MM -I./ $(SOURCES) > Makefile.depend
-	@echo
-
-clean:
-	rm -f $(OBJECTS)
-
-fullclean:
-	rm -f $(shell find -name '*.o') std err Makefile.depend $(A.OUT)
-
-remake: clean all
-
-###############################################################################
--include Makefile.depend
diff --git a/cpplapack-r198/.svn/pristine/08/089043f47acb773190a6a2d9edb62d580607855b.svn-base b/cpplapack-r198/.svn/pristine/08/089043f47acb773190a6a2d9edb62d580607855b.svn-base
deleted file mode 100644
index 8fc448b..0000000
--- a/cpplapack-r198/.svn/pristine/08/089043f47acb773190a6a2d9edb62d580607855b.svn-base
+++ /dev/null
@@ -1,76 +0,0 @@
-//=============================================================================
-/*! zgbmatrix+_zhematrix operator */
-inline _zgematrix operator+(const zgbmatrix& matA, const _zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(matB);
-  
-  for(CPPL_INT i=0; i<matA.m; i++){
-    for(CPPL_INT j=max(0,i-matA.kl); j<min(matA.n,i+matA.ku+1); j++){
-      newmat(i,j)+=matA(i,j);
-    }
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! zgbmatrix-_zhematrix operator */
-inline _zgematrix operator-(const zgbmatrix& matA, const _zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(-matB);
-  
-  for(CPPL_INT i=0; i<matA.m; i++){
-    for(CPPL_INT j=max(0,i-matA.kl); j<min(matA.n,i+matA.ku+1); j++){
-      newmat(i,j)-=matA(i,j);
-    }
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! zgbmatrix*_zhematrix operator */
-inline _zgematrix operator*(const zgbmatrix& matA, const _zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat( matA.m, matB.n );
-  newmat.zero();
-  
-  for(CPPL_INT c=0; c<matB.vol; c++){
-    for(CPPL_INT i=max(0,matB.indx[c]-(matA.ku+1));
-        i<min(matA.m,matB.indx[c]+matA.kl); i++){
-      newmat(i,matB.jndx[c]) += matA(i,matB.indx[c])*matB.array[c];
-    }
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/08/08e120fe5c96f7d5b31b57bca0bfe260590cd185.svn-base b/cpplapack-r198/.svn/pristine/08/08e120fe5c96f7d5b31b57bca0bfe260590cd185.svn-base
deleted file mode 100644
index 9d66ae9..0000000
--- a/cpplapack-r198/.svn/pristine/08/08e120fe5c96f7d5b31b57bca0bfe260590cd185.svn-base
+++ /dev/null
@@ -1,76 +0,0 @@
-//=============================================================================
-/*! zgematrix+_zgsmatrix operator */
-inline _zgematrix operator+(const zgematrix& matA, const _zgsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(matA);
-  const size_t matB_data_size =matB.data.size();
-  for(size_t c=0; c<matB_data_size; c++){
-    const zcomponent& z =matB.data[c];
-    newmat(z.i,z.j) += z.v;
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! zgematrix-_zgsmatrix operator */
-inline _zgematrix operator-(const zgematrix& matA, const _zgsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") - (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  zgematrix newmat(matA);
-  
-  const size_t matB_data_size =matB.data.size();
-  for(size_t c=0; c<matB_data_size; c++){
-    const zcomponent& z =matB.data[c];
-    newmat(z.i,z.j) -= z.v;
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! zgematrix*_zgsmatrix operator */
-inline _zgematrix operator*(const zgematrix& matA, const _zgsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(matA.m, matB.n);
-  newmat.zero();
-  
-  const size_t matB_data_size =matB.data.size();
-  for(size_t c=0; c<matB_data_size; c++){
-    const zcomponent& z =matB.data[c];
-    for(CPPL_INT i=0; i<matA.m; i++){
-      newmat(i,z.j) += matA(i,z.i)*z.v;
-    }
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/08/08f8e24f9512eec35e7e039e639ea85977928064.svn-base b/cpplapack-r198/.svn/pristine/08/08f8e24f9512eec35e7e039e639ea85977928064.svn-base
deleted file mode 100644
index fca7ad7..0000000
--- a/cpplapack-r198/.svn/pristine/08/08f8e24f9512eec35e7e039e639ea85977928064.svn-base
+++ /dev/null
@@ -1,96 +0,0 @@
-//=============================================================================
-//! (DO NOT USE) Smart-temporary Real Double-precision General Sparse Matrix Class
-class _zgsmatrix
-{
-public:
-  ///////////////////////////////////////////////
-  /////////////////// objects ///////////////////
-  ///////////////////////////////////////////////
-  mutable CPPL_INT m; //!< matrix row size
-  mutable CPPL_INT n; //!< matrix column size
-  mutable std::vector<zcomponent> data; //!< matrix data
-  mutable std::vector< std::vector<CPPL_INT> > rows; //!< array of vector to store the entry information of component for each row
-  mutable std::vector< std::vector<CPPL_INT> > cols; //!< array of vector to store the entry information of component for each column
-  
-  ///////////////////////////////////////////////
-  ///////////////// constructors ////////////////
-  ///////////////////////////////////////////////
-  inline _zgsmatrix();
-  inline _zgsmatrix(const _zgsmatrix&);
-  inline ~_zgsmatrix(); //destructor
-  
-  ///////////////////////////////////////////////
-  ////////////////// functions //////////////////
-  ///////////////////////////////////////////////
-  //////// cast ////////
-  inline _zgematrix to_zgematrix() const;
-  
-  //////// io ////////
-  inline comple operator()(const CPPL_INT&, const CPPL_INT&) const;//not return comple&
-  inline friend std::ostream& operator<<(std::ostream&, const _zgsmatrix&);
-  inline void write(const char*) const;
-  
-  //////// misc ////////
-  inline void nullify() const;
-  inline void destroy() const;
-  
-  //////// calc ////////
-  inline friend _zgsmatrix t(const zgsmatrix&);
-  inline friend void idamax(CPPL_INT&, CPPL_INT&, const zgsmatrix&);
-  inline friend comple damax(const zgsmatrix&);
-  
-  ///////////////////////////////////////////////
-  ///////////// numerical operators /////////////
-  ///////////////////////////////////////////////
-  //////// unary ////////
-  inline friend const _zgsmatrix& operator+(const _zgsmatrix&);
-  inline friend _zgsmatrix operator-(const _zgsmatrix&);
-  
-  //////// + ////////
-  inline friend _zgematrix operator+(const _zgsmatrix&, const  zgematrix&);
-  inline friend _zgematrix operator+(const _zgsmatrix&, const _zgematrix&);
-  inline friend _zgematrix operator+(const _zgsmatrix&, const  zhematrix&);
-  inline friend _zgematrix operator+(const _zgsmatrix&, const _zhematrix&);
-  inline friend _zgematrix operator+(const _zgsmatrix&, const  zgbmatrix&);
-  inline friend _zgematrix operator+(const _zgsmatrix&, const _zgbmatrix&);
-  inline friend _zgsmatrix operator+(const _zgsmatrix&, const  zgsmatrix&);
-  inline friend _zgsmatrix operator+(const _zgsmatrix&, const _zgsmatrix&);
-  inline friend _zgsmatrix operator+(const _zgsmatrix&, const  zhsmatrix&);
-  inline friend _zgsmatrix operator+(const _zgsmatrix&, const _zhsmatrix&);
-  
-  //////// - ////////
-  inline friend _zgematrix operator-(const _zgsmatrix&, const  zgematrix&);
-  inline friend _zgematrix operator-(const _zgsmatrix&, const _zgematrix&);
-  inline friend _zgematrix operator-(const _zgsmatrix&, const  zhematrix&);
-  inline friend _zgematrix operator-(const _zgsmatrix&, const _zhematrix&);
-  inline friend _zgematrix operator-(const _zgsmatrix&, const  zgbmatrix&);
-  inline friend _zgematrix operator-(const _zgsmatrix&, const _zgbmatrix&);
-  inline friend _zgsmatrix operator-(const _zgsmatrix&, const  zgsmatrix&);
-  inline friend _zgsmatrix operator-(const _zgsmatrix&, const _zgsmatrix&);
-  inline friend _zgsmatrix operator-(const _zgsmatrix&, const  zhsmatrix&);
-  inline friend _zgsmatrix operator-(const _zgsmatrix&, const _zhsmatrix&);
-  
-  //////// * ////////
-  inline friend _zcovector operator*(const _zgsmatrix&, const  zcovector&);
-  inline friend _zcovector operator*(const _zgsmatrix&, const _zcovector&);
-  inline friend _zgematrix operator*(const _zgsmatrix&, const  zgematrix&);
-  inline friend _zgematrix operator*(const _zgsmatrix&, const _zgematrix&);
-  inline friend _zgematrix operator*(const _zgsmatrix&, const  zhematrix&);
-  inline friend _zgematrix operator*(const _zgsmatrix&, const _zhematrix&);
-  inline friend _zgematrix operator*(const _zgsmatrix&, const  zgbmatrix&);
-  inline friend _zgematrix operator*(const _zgsmatrix&, const _zgbmatrix&);
-  inline friend _zgsmatrix operator*(const _zgsmatrix&, const  zgsmatrix&);
-  inline friend _zgsmatrix operator*(const _zgsmatrix&, const _zgsmatrix&);
-  inline friend _zgsmatrix operator*(const _zgsmatrix&, const  zhsmatrix&);
-  inline friend _zgsmatrix operator*(const _zgsmatrix&, const _zhsmatrix&);
-  inline friend _zgsmatrix operator*(const _zgsmatrix&, const     double&);
-  inline friend _zgsmatrix operator*(const _zgsmatrix&, const     comple&);
-  
-  //////// / ////////
-  inline friend _zgsmatrix operator/(const _zgsmatrix&, const     double&);
-  inline friend _zgsmatrix operator/(const _zgsmatrix&, const     comple&);
-  
-  //////// double, complex ////////
-  inline friend _zgsmatrix operator*(const     double&, const _zgsmatrix&);
-  inline friend _zgsmatrix operator*(const     comple&, const _zgsmatrix&);
-};
diff --git a/cpplapack-r198/.svn/pristine/09/0943bb83150b189351d2f7dfa1689ec3be4465bb.svn-base b/cpplapack-r198/.svn/pristine/09/0943bb83150b189351d2f7dfa1689ec3be4465bb.svn-base
deleted file mode 100644
index d96dbc5..0000000
--- a/cpplapack-r198/.svn/pristine/09/0943bb83150b189351d2f7dfa1689ec3be4465bb.svn-base
+++ /dev/null
@@ -1,48 +0,0 @@
-//=============================================================================
-/*! zcovector*=double operator */
-inline zcovector& zcovector::operator*=(const double& d)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT inc =1;
-  zdscal_(&l, &d, array, &inc);
-  return *this;
-}
-
-//=============================================================================
-/*! zcovector/=double operator */
-inline zcovector& zcovector::operator/=(const double& d)
-{CPPL_VERBOSE_REPORT;
-  double dinv =1./d;
-  CPPL_INT inc =1;
-  zdscal_(&l, &dinv, array, &inc);
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zcovector*double operator */
-inline _zcovector operator*(const zcovector& vec, const double& d)
-{CPPL_VERBOSE_REPORT;
-  zcovector newvec(vec.l);
-  
-  for(CPPL_INT i=0; i<vec.l; i++){
-    newvec.array[i] =vec.array[i]*d;
-  }
-  
-  return _(newvec);
-}
-
-//=============================================================================
-/*! zcovector/double operator */
-inline _zcovector operator/(const zcovector& vec, const double& d)
-{CPPL_VERBOSE_REPORT;
-  zcovector newvec(vec.l);
-  
-  for(CPPL_INT i=0; i<vec.l; i++){
-    newvec.array[i] =vec.array[i]/d;
-  }
-  
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/09/095bbe45184e66911685554a2cbb77f5440c1545.svn-base b/cpplapack-r198/.svn/pristine/09/095bbe45184e66911685554a2cbb77f5440c1545.svn-base
deleted file mode 100644
index 22797a9..0000000
--- a/cpplapack-r198/.svn/pristine/09/095bbe45184e66911685554a2cbb77f5440c1545.svn-base
+++ /dev/null
@@ -1,71 +0,0 @@
-//=============================================================================
-/*! return its transposed zgbmatrix */
-inline _zgbmatrix t(const _zgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  zgbmatrix newmat(mat.n, mat.m, mat.ku, mat.kl);
-  for(CPPL_INT i=0; i<newmat.m; i++){
-    const CPPL_INT jmax =std::min(newmat.n,i+newmat.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-newmat.kl); j<jmax; j++){
-      newmat(i,j) =mat(j,i);
-    }
-  }
-  
-  mat.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! return its inverse matrix */
-inline _zgematrix i(const _zgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(mat.m!=mat.n){
-    ERROR_REPORT;
-    std::cerr << "This matrix is not square and has no inverse matrix." << std::endl
-              << "Your input was (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgbmatrix mat_cp(mat);
-  zgematrix mat_inv(mat_cp.m,mat_cp.n);
-  mat_inv.identity();
-  mat_cp.zgbsv(mat_inv);
-  
-  return _(mat_inv);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! return its conjugate matrix */
-inline _zgbmatrix conj(const _zgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<mat.m; i++){
-    const CPPL_INT jmax =std::min(mat.n,i+mat.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-mat.kl); j<jmax; j++){
-      mat(i,j) =std::conj(mat(i,j));
-    }
-  }
-  
-  return mat;
-}
-
-//=============================================================================
-/*! return its conjugate transposed zgbmatrix */
-inline _zgbmatrix conjt(const _zgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  zgbmatrix newmat(mat.n, mat.m, mat.ku, mat.kl);
-  
-  for(CPPL_INT i=0; i<newmat.m; i++){
-    const CPPL_INT jmax =std::min(newmat.n,i+newmat.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-newmat.kl); j<jmax; j++){
-      newmat(i,j) =std::conj(mat(j,i));
-    }
-  }
-  
-  mat.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/09/09708f5d014e60de0cea70b1b90c3fe2a70c8286.svn-base b/cpplapack-r198/.svn/pristine/09/09708f5d014e60de0cea70b1b90c3fe2a70c8286.svn-base
deleted file mode 100644
index 47941d4..0000000
--- a/cpplapack-r198/.svn/pristine/09/09708f5d014e60de0cea70b1b90c3fe2a70c8286.svn-base
+++ /dev/null
@@ -1,74 +0,0 @@
-//=============================================================================
-/*! _dgematrix+dgbmatrix operator */
-inline _dgematrix operator+(const _dgematrix& matA, const dgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<matB.m; i++){
-    const CPPL_INT jmax =std::min(matB.n,i+matB.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matB.kl); j<jmax; j++){
-      matA(i,j) += matB(i,j);
-    }
-  }
-  
-  return matA;
-}
-
-//=============================================================================
-/*! _dgematrix-dgbmatrix operator */
-inline _dgematrix operator-(const _dgematrix& matA, const dgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<matB.m; i++){
-    const CPPL_INT jmax =std::min(matB.n,i+matB.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matB.kl); j<jmax; j++){
-      matA(i,j) -= matB(i,j);
-    }
-  }
-  
-  return matA;
-}
-
-//=============================================================================
-/*! _dgematrix*dgbmatrix operator */
-inline _dgematrix operator*(const _dgematrix& matA, const dgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat( matA.m, matB.n );
-  newmat.zero();
-  
-  for(CPPL_INT i=0; i<newmat.m; i++){
-    for(CPPL_INT j=0; j<newmat.n; j++){
-      const CPPL_INT kmax =std::min(matB.m,j+matB.kl+1);
-      for(CPPL_INT k=std::max(CPPL_INT(0),j-matB.ku); k<kmax; k++){
-        newmat(i,j) += matA(i,k)*matB(k,j);
-      }
-    }
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/09/09924cc97d61601aa3e13e2a92b8e93bf0ad502c.svn-base b/cpplapack-r198/.svn/pristine/09/09924cc97d61601aa3e13e2a92b8e93bf0ad502c.svn-base
deleted file mode 100644
index 674f8d1..0000000
--- a/cpplapack-r198/.svn/pristine/09/09924cc97d61601aa3e13e2a92b8e93bf0ad502c.svn-base
+++ /dev/null
@@ -1,8 +0,0 @@
-//=============================================================================
-/*! double*_dcovector operator */
-inline _dcovector operator*(const double& d, const _dcovector& vec)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT inc =1;
-  dscal_(&vec.l, &d, vec.array, &inc);
-  return vec;
-}
diff --git a/cpplapack-r198/.svn/pristine/09/09a4271d06bb6e976b5ca47f774b1801d4585987.svn-base b/cpplapack-r198/.svn/pristine/09/09a4271d06bb6e976b5ca47f774b1801d4585987.svn-base
deleted file mode 100644
index 204052c..0000000
--- a/cpplapack-r198/.svn/pristine/09/09a4271d06bb6e976b5ca47f774b1801d4585987.svn-base
+++ /dev/null
@@ -1,54 +0,0 @@
-//=============================================================================
-/*! return transposed dssmatrix */
-inline _dssmatrix t(const dssmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  WARNING_REPORT;
-  std::cerr << "This function call has no effect since the matrix is symmetric." << std::endl;
-#endif//CPPL_DEBUG
-
-  dssmatrix newmat(mat);
-  return _(newmat);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! search the index of element having the largest absolute value
-  in 0-based numbering system */
-inline void idamax(CPPL_INT& i, CPPL_INT& j, const dssmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  std::vector<dcomponent>::const_iterator itx(mat.data.begin());
-  double vmax =0.;
-  
-  const std::vector<dcomponent>::const_iterator mat_data_end =mat.data.end();
-  for(std::vector<dcomponent>::const_iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    if( vmax < fabs(it->v) ){
-      vmax =fabs(it->v);
-      itx =it;
-    }
-  }
-  
-  i =itx->i;
-  j =itx->j;
-}
-
-//=============================================================================
-/*! return its largest absolute value */
-inline double damax(const dssmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  std::vector<dcomponent>::const_iterator itx(mat.data.begin());
-  double vmax =0.;
-  
-  const std::vector<dcomponent>::const_iterator mat_data_end =mat.data.end();
-  for(std::vector<dcomponent>::const_iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    if( vmax < fabs(it->v) ){
-      vmax =fabs(it->v);
-      itx =it;
-    }
-  }
-  
-  return itx->v;
-}
diff --git a/cpplapack-r198/.svn/pristine/09/09a83d3dd9bfa0fc825a1c3ac784885472bffce0.svn-base b/cpplapack-r198/.svn/pristine/09/09a83d3dd9bfa0fc825a1c3ac784885472bffce0.svn-base
deleted file mode 100644
index 058ba77..0000000
--- a/cpplapack-r198/.svn/pristine/09/09a83d3dd9bfa0fc825a1c3ac784885472bffce0.svn-base
+++ /dev/null
@@ -1,140 +0,0 @@
-//=============================================================================
-//! Complex Double-precision Hermitian Sparse Matrix Class
-class zhsmatrix
-{
-public:
-  ///////////////////////////////////////////////
-  /////////////////// objects ///////////////////
-  ///////////////////////////////////////////////
-  CPPL_INT const& m; //!< matrix row size
-  CPPL_INT n; //!< matrix column size
-  std::vector<zcomponent> data; //!< matrix data
-  std::vector< std::vector<CPPL_INT> > line; //!< vector of vector to store the entry information of component for each row and column
-  
-  ///////////////////////////////////////////////
-  ///////////////// constructors ////////////////
-  ///////////////////////////////////////////////
-  inline zhsmatrix();
-  inline zhsmatrix(const zhsmatrix&);
-  inline zhsmatrix(const _zhsmatrix&);
-  inline zhsmatrix(const CPPL_INT&, const CPPL_INT=0);
-  inline zhsmatrix(const char*);
-  inline zhsmatrix(const zgematrix&);
-  inline ~zhsmatrix(); //destructor
-  
-  ///////////////////////////////////////////////
-  ////////////////// functions //////////////////
-  ///////////////////////////////////////////////
-  //////// cast ////////
-  inline _zgematrix to_zgematrix() const;
-  inline _zhematrix to_zhematrix() const;
-  inline _zgsmatrix to_zgsmatrix() const;
-  
-  //////// io ////////
-  inline comple operator()(const CPPL_INT&, const CPPL_INT&) const;
-  inline zhecomplex operator()(const CPPL_INT&, const CPPL_INT&);
-  inline zhsmatrix& put(const CPPL_INT&, const CPPL_INT&, const comple&);
-  inline zhsmatrix& del(const CPPL_INT, const CPPL_INT); //<-- NOT (const CPPL_INT&)
-  inline zhsmatrix& del(const CPPL_INT); //<-- NOT (const CPPL_INT&)
-  inline friend std::ostream& operator<<(std::ostream&, const zhsmatrix&);
-  inline void write(const char*) const;
-  inline void read(const char*);
-
-  //////// misc ////////
-  inline void clear();
-  inline zhsmatrix& zero();
-  inline zhsmatrix& identity();
-  inline void chsign();
-  inline void copy(const zhsmatrix&);
-  inline void shallow_copy(const _zhsmatrix&);
-  inline zhsmatrix& resize(const CPPL_INT&, const CPPL_INT=0, const CPPL_INT=0);
-  inline void stretch(const CPPL_INT&);
-  inline void expand(const CPPL_INT&);
-  inline bool isListed(const CPPL_INT&, const CPPL_INT&) const;
-  inline CPPL_INT number(const CPPL_INT&, const CPPL_INT&) const;
-  //inline void unique();
-  inline void checkup();
-  inline _zrovector row(const CPPL_INT&) const;
-  inline _zcovector col(const CPPL_INT&) const;
-  inline void diet(const double=DBL_MIN);
-  inline friend void swap(zhsmatrix&, zhsmatrix&);
-  inline friend _zhsmatrix _(zhsmatrix&);
-  
-  //////// calc ////////
-  inline friend _zhsmatrix t(const zhsmatrix&);
-  inline friend void idamax(CPPL_INT&, CPPL_INT&, const zhsmatrix&);
-  inline friend comple damax(const zhsmatrix&);
-  
-  ///////////////////////////////////////////////
-  ///////////// numerical operators /////////////
-  ///////////////////////////////////////////////
-  //////// = ////////
-  inline zhsmatrix& operator=(const  zhsmatrix&);
-  inline zhsmatrix& operator=(const _zhsmatrix&);
-  
-  //////// += ////////
-  inline zhsmatrix& operator+=(const  zhsmatrix&);
-  inline zhsmatrix& operator+=(const _zhsmatrix&);
-  
-  //////// -= ////////
-  inline zhsmatrix& operator-=(const  zhsmatrix&);
-  inline zhsmatrix& operator-=(const _zhsmatrix&);
-  
-  //////// *= ////////
-  inline zhsmatrix& operator*=(const     double&);
-  
-  //////// /= ////////
-  inline zhsmatrix& operator/=(const     double&);
-  
-  //////// unary ////////
-  inline friend const zhsmatrix& operator+(const zhsmatrix&);
-  inline friend _zhsmatrix operator-(const  zhsmatrix&);
-  
-  //////// + ////////
-  inline friend _zgematrix operator+(const  zhsmatrix&, const  zgematrix&);
-  inline friend _zgematrix operator+(const  zhsmatrix&, const _zgematrix&);
-  inline friend _zgematrix operator+(const  zhsmatrix&, const  zhematrix&);
-  inline friend _zgematrix operator+(const  zhsmatrix&, const _zhematrix&);
-  inline friend _zgematrix operator+(const  zhsmatrix&, const  zgbmatrix&);
-  inline friend _zgematrix operator+(const  zhsmatrix&, const _zgbmatrix&);
-  inline friend _zgsmatrix operator+(const  zhsmatrix&, const  zgsmatrix&);
-  inline friend _zgsmatrix operator+(const  zhsmatrix&, const _zgsmatrix&);
-  inline friend _zhsmatrix operator+(const  zhsmatrix&, const  zhsmatrix&);
-  inline friend _zhsmatrix operator+(const  zhsmatrix&, const _zhsmatrix&);
-  
-  //////// - ////////
-  inline friend _zgematrix operator-(const  zhsmatrix&, const  zgematrix&);
-  inline friend _zgematrix operator-(const  zhsmatrix&, const _zgematrix&);
-  inline friend _zgematrix operator-(const  zhsmatrix&, const  zhematrix&);
-  inline friend _zgematrix operator-(const  zhsmatrix&, const _zhematrix&);
-  inline friend _zgematrix operator-(const  zhsmatrix&, const  zgbmatrix&);
-  inline friend _zgematrix operator-(const  zhsmatrix&, const _zgbmatrix&);
-  inline friend _zgsmatrix operator-(const  zhsmatrix&, const  zgsmatrix&);
-  inline friend _zgsmatrix operator-(const  zhsmatrix&, const _zgsmatrix&);
-  inline friend _zhsmatrix operator-(const  zhsmatrix&, const  zhsmatrix&);
-  inline friend _zhsmatrix operator-(const  zhsmatrix&, const _zhsmatrix&);
-  
-  //////// * ////////
-  inline friend _zcovector operator*(const  zhsmatrix&, const  zcovector&);
-  inline friend _zcovector operator*(const  zhsmatrix&, const _zcovector&);
-  inline friend _zgematrix operator*(const  zhsmatrix&, const  zgematrix&);
-  inline friend _zgematrix operator*(const  zhsmatrix&, const _zgematrix&);  
-  inline friend _zgematrix operator*(const  zhsmatrix&, const  zhematrix&);
-  inline friend _zgematrix operator*(const  zhsmatrix&, const _zhematrix&);
-  inline friend _zgematrix operator*(const  zhsmatrix&, const  zgbmatrix&);
-  inline friend _zgematrix operator*(const  zhsmatrix&, const _zgbmatrix&);  
-  inline friend _zgsmatrix operator*(const  zhsmatrix&, const  zgsmatrix&);
-  inline friend _zgsmatrix operator*(const  zhsmatrix&, const _zgsmatrix&);
-  inline friend _zgsmatrix operator*(const  zhsmatrix&, const  zhsmatrix&);
-  inline friend _zgsmatrix operator*(const  zhsmatrix&, const _zhsmatrix&);
-  inline friend _zhsmatrix operator*(const  zhsmatrix&, const     double&);
-  inline friend _zgsmatrix operator*(const  zhsmatrix&, const     comple&);
-  
-  //////// / ////////
-  inline friend _zhsmatrix operator/(const  zhsmatrix&, const     double&);
-  inline friend _zgsmatrix operator/(const  zhsmatrix&, const     comple&);
-  
-  //////// double, comple ////////
-  inline friend _zhsmatrix operator*(const     double&, const  zhsmatrix&);
-  inline friend _zgsmatrix operator*(const     comple&, const  zhsmatrix&);
-};
diff --git a/cpplapack-r198/.svn/pristine/0a/0a37eb7fb2b37981867231f056bccf404c93d321.svn-base b/cpplapack-r198/.svn/pristine/0a/0a37eb7fb2b37981867231f056bccf404c93d321.svn-base
deleted file mode 100644
index 169a73e..0000000
--- a/cpplapack-r198/.svn/pristine/0a/0a37eb7fb2b37981867231f056bccf404c93d321.svn-base
+++ /dev/null
@@ -1,71 +0,0 @@
-//=============================================================================
-/*! dgematrix+dgsmatrix operator */
-inline _dgematrix operator+(const dgematrix& matA, const dgsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat(matA);
-  
-  const std::vector<dcomponent>::const_iterator matB_data_end =matB.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matB.data.begin(); it!=matB_data_end; it++){
-    newmat(it->i,it->j) += it->v;
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! dgematrix-dgsmatrix operator */
-inline _dgematrix operator-(const dgematrix& matA, const dgsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") - (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat(matA);
-  
-  const std::vector<dcomponent>::const_iterator matB_data_end =matB.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matB.data.begin(); it!=matB_data_end; it++){
-    newmat(it->i,it->j) -= it->v;
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! dgematrix*dgsmatrix operator */
-inline _dgematrix operator*(const dgematrix& matA, const dgsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat(matA.m, matB.n);
-  newmat.zero();
-  
-  const std::vector<dcomponent>::const_iterator matB_data_end =matB.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matB.data.begin(); it!=matB_data_end; it++){
-    for(CPPL_INT i=0; i<matA.m; i++){
-      newmat(i,it->j) += matA(i,it->i)*it->v;
-    }
-  }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/0a/0a6c95129aedc96ff1d336422757ce0591261352.svn-base b/cpplapack-r198/.svn/pristine/0a/0a6c95129aedc96ff1d336422757ce0591261352.svn-base
deleted file mode 100644
index 47008bf..0000000
--- a/cpplapack-r198/.svn/pristine/0a/0a6c95129aedc96ff1d336422757ce0591261352.svn-base
+++ /dev/null
@@ -1,23 +0,0 @@
-//=============================================================================
-/*! zrovector*zgsmatrix operator */
-inline _zrovector operator*(const zrovector& vec, const zgsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vec.l!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These vector and matrix can not make a product." << std::endl
-              << "Your input was (" << vec.l << ") * (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zrovector newvec(mat.n);
-  newvec.zero();
-  
-  const std::vector<zcomponent>::const_iterator mat_data_end =mat.data.end();
-  for(std::vector<zcomponent>::const_iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    newvec(it->j) += vec(it->i)*it->v;
-  }
-  
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/0a/0affc6f02f8f9ee7a57313b778c9d9c76f8a0eaf.svn-base b/cpplapack-r198/.svn/pristine/0a/0affc6f02f8f9ee7a57313b778c9d9c76f8a0eaf.svn-base
deleted file mode 100644
index 117c6bc..0000000
--- a/cpplapack-r198/.svn/pristine/0a/0affc6f02f8f9ee7a57313b778c9d9c76f8a0eaf.svn-base
+++ /dev/null
@@ -1,15 +0,0 @@
-//=============================================================================
-/*! +_dgematrix operator */
-inline const _dgematrix& operator+(const _dgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-  return mat;
-}
-
-//=============================================================================
-/*! -_dgematrix operator */
-inline _dgematrix operator-(const _dgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<mat.m*mat.n; i++){ mat.array[i]=-mat.array[i]; }
-  
-  return mat;
-}
diff --git a/cpplapack-r198/.svn/pristine/0b/0b23f11eabb9ee309f766c756effc019cea48a6b.svn-base b/cpplapack-r198/.svn/pristine/0b/0b23f11eabb9ee309f766c756effc019cea48a6b.svn-base
deleted file mode 100644
index c98329c..0000000
--- a/cpplapack-r198/.svn/pristine/0b/0b23f11eabb9ee309f766c756effc019cea48a6b.svn-base
+++ /dev/null
@@ -1,174 +0,0 @@
-//=============================================================================
-/*! calculate inverse */
-inline dgemat1 inv(const dgemat1& A)
-{CPPL_VERBOSE_REPORT;
-  dgemat1 Ainv;
-  Ainv(0,0) =1./A(0,0);
-  return Ainv;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! calculate determinant */
-inline double det(const dgemat2& A)
-{CPPL_VERBOSE_REPORT;
-  return A(0,0)*A(1,1)-A(0,1)*A(1,0);
-}
-
-//=============================================================================
-/*! calculate inverse */
-inline dgemat2 inv(const dgemat2& A)
-{CPPL_VERBOSE_REPORT;
-  const double Adet( det(A) );
-  dgemat2 Ainv;
-  Ainv(0,0)= A(1,1)/Adet;  Ainv(0,1)=-A(0,1)/Adet;
-  Ainv(1,0)=-A(1,0)/Adet;  Ainv(1,1)= A(0,0)/Adet;
-  return Ainv;
-}
-
-//=============================================================================
-/*! return rotated tensor */
-inline dgemat2 rotate(const dgemat2& m, const double& theta)
-{CPPL_VERBOSE_REPORT;
-  //dgemat2 R(t2m(theta)); return R*m*t(R);//too slow
-  double c(std::cos(theta)), s(std::sin(theta));
-  double cc(c*c), cs(c*s), ss(s*s);
-  dgemat2 mat;
-  mat(0,0) =m(0,0)*cc -(m(0,1)+m(1,0))*cs +m(1,1)*ss;
-  mat(0,1) =m(0,1)*cc +(m(0,0)-m(1,1))*cs -m(1,0)*ss;
-  mat(1,0) =m(1,0)*cc +(m(0,0)-m(1,1))*cs -m(0,1)*ss;
-  mat(1,1) =m(1,1)*cc +(m(0,1)+m(1,0))*cs +m(0,0)*ss;
-  return mat;
-}
-
-//=============================================================================
-/*! convert theta to 2x2 rotational matrix */
-inline dgemat2 t2m(const double& theta)
-{CPPL_VERBOSE_REPORT;
-  dgemat2 R;
-  R(0,0)=std::cos(theta); R(0,1)=-std::sin(theta);
-  R(1,0)=std::sin(theta); R(1,1)= std::cos(theta);
-  return R;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! calculate determinant */
-inline double det(const dgemat3& A)
-{CPPL_VERBOSE_REPORT;
-  return
-    +A(0,0)*A(1,1)*A(2,2) -A(0,0)*A(1,2)*A(2,1)
-    +A(0,1)*A(1,2)*A(2,0) -A(0,1)*A(1,0)*A(2,2)
-    +A(0,2)*A(1,0)*A(2,1) -A(0,2)*A(1,1)*A(2,0);
-}
-
-//=============================================================================
-/*! calculate the 2nd invariant */
-inline double II(const dgemat3& A)
-{CPPL_VERBOSE_REPORT;
-  return
-    +A(0,0)*A(1,1) +A(1,1)*A(2,2) +A(2,2)*A(0,0)
-    -A(0,1)*A(1,0) -A(1,2)*A(2,1) -A(2,0)*A(0,2);
-}
-
-//=============================================================================
-/*! calculate inverse */
-inline dgemat3 inv(const dgemat3& A)
-{CPPL_VERBOSE_REPORT;
-  const double Adet( det(A) );
-  dgemat3 Ainv;
-  Ainv(0,0) =(A(1,1)*A(2,2)-A(1,2)*A(2,1))/Adet;
-  Ainv(0,1) =(A(0,2)*A(2,1)-A(0,1)*A(2,2))/Adet;
-  Ainv(0,2) =(A(0,1)*A(1,2)-A(0,2)*A(1,1))/Adet;
-  Ainv(1,0) =(A(1,2)*A(2,0)-A(1,0)*A(2,2))/Adet;
-  Ainv(1,1) =(A(0,0)*A(2,2)-A(0,2)*A(2,0))/Adet;
-  Ainv(1,2) =(A(0,2)*A(1,0)-A(0,0)*A(1,2))/Adet;
-  Ainv(2,0) =(A(1,0)*A(2,1)-A(1,1)*A(2,0))/Adet;
-  Ainv(2,1) =(A(0,1)*A(2,0)-A(0,0)*A(2,1))/Adet;
-  Ainv(2,2) =(A(0,0)*A(1,1)-A(0,1)*A(1,0))/Adet;
-  return Ainv;
-}
-
-//=============================================================================
-/*! rotate 3D matrix by quaternion */
-inline dgemat3 rotate(const dgemat3& m, const dquater& q)
-{CPPL_VERBOSE_REPORT;
-  dgemat3 R(q2m(q));
-  return R*m*t(R);
-}
-
-//=============================================================================
-/*! convert 3D rotational matrix to quaternion */
-inline dquater m2q(const dgemat3& m)
-{CPPL_VERBOSE_REPORT;
-  dcovec3 v( m(2,1)-m(1,2), m(0,2)-m(2,0), m(1,0)-m(0,1) );
-  double t( std::acos(0.5*(m(0,0)+m(1,1)+m(2,2)-1.)) );
-  return vt2q(v,t);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! calculate determinant */
-inline double det(const dgemat4& A)
-{CPPL_VERBOSE_REPORT;
-  return
-    ((A(0,0)*A(1,1)-A(0,1)*A(1,0))*A(2,2)+(A(0,2)*A(1,0)-A(0,0)*A(1,2))*A(2,1)+(A(0,1)*A(1,2)-A(0,2)*A(1,1))*A(2,0))*A(3,3)
-    +((A(0,1)*A(1,0)-A(0,0)*A(1,1))*A(2,3)+(A(0,0)*A(1,3)-A(0,3)*A(1,0))*A(2,1)+(A(0,3)*A(1,1)-A(0,1)*A(1,3))*A(2,0))*A(3,2)
-    +((A(0,0)*A(1,2)-A(0,2)*A(1,0))*A(2,3)+(A(0,3)*A(1,0)-A(0,0)*A(1,3))*A(2,2)+(A(0,2)*A(1,3)-A(0,3)*A(1,2))*A(2,0))*A(3,1)
-    +((A(0,2)*A(1,1)-A(0,1)*A(1,2))*A(2,3)+(A(0,1)*A(1,3)-A(0,3)*A(1,1))*A(2,2)+(A(0,3)*A(1,2)-A(0,2)*A(1,3))*A(2,1))*A(3,0);
-}
-
-//=============================================================================
-/*! calculate inverse */
-inline dgemat4 inv(const dgemat4& A)
-{CPPL_VERBOSE_REPORT;
-  const double Adet =det(A);
-  
-  dgemat4 Ainv;
-  Ainv(0,0) =(A(1,1)*A(2,2)-A(1,2)*A(2,1))*A(3,3)+(A(1,3)*A(2,1)-A(1,1)*A(2,3))*A(3,2)+(A(1,2)*A(2,3)-A(1,3)*A(2,2))*A(3,1);
-  Ainv(0,1) =(A(0,2)*A(2,1)-A(0,1)*A(2,2))*A(3,3)+(A(0,1)*A(2,3)-A(0,3)*A(2,1))*A(3,2)+(A(0,3)*A(2,2)-A(0,2)*A(2,3))*A(3,1);
-  Ainv(0,2) =(A(0,1)*A(1,2)-A(0,2)*A(1,1))*A(3,3)+(A(0,3)*A(1,1)-A(0,1)*A(1,3))*A(3,2)+(A(0,2)*A(1,3)-A(0,3)*A(1,2))*A(3,1);
-  Ainv(0,3) =(A(0,2)*A(1,1)-A(0,1)*A(1,2))*A(2,3)+(A(0,1)*A(1,3)-A(0,3)*A(1,1))*A(2,2)+(A(0,3)*A(1,2)-A(0,2)*A(1,3))*A(2,1);
-  Ainv(1,0) =(A(1,2)*A(2,0)-A(1,0)*A(2,2))*A(3,3)+(A(1,0)*A(2,3)-A(1,3)*A(2,0))*A(3,2)+(A(1,3)*A(2,2)-A(1,2)*A(2,3))*A(3,0);
-  Ainv(1,1) =(A(0,0)*A(2,2)-A(0,2)*A(2,0))*A(3,3)+(A(0,3)*A(2,0)-A(0,0)*A(2,3))*A(3,2)+(A(0,2)*A(2,3)-A(0,3)*A(2,2))*A(3,0);
-  Ainv(1,2) =(A(0,2)*A(1,0)-A(0,0)*A(1,2))*A(3,3)+(A(0,0)*A(1,3)-A(0,3)*A(1,0))*A(3,2)+(A(0,3)*A(1,2)-A(0,2)*A(1,3))*A(3,0);
-  Ainv(1,3) =(A(0,0)*A(1,2)-A(0,2)*A(1,0))*A(2,3)+(A(0,3)*A(1,0)-A(0,0)*A(1,3))*A(2,2)+(A(0,2)*A(1,3)-A(0,3)*A(1,2))*A(2,0);
-  Ainv(2,0) =(A(1,0)*A(2,1)-A(1,1)*A(2,0))*A(3,3)+(A(1,3)*A(2,0)-A(1,0)*A(2,3))*A(3,1)+(A(1,1)*A(2,3)-A(1,3)*A(2,1))*A(3,0);
-  Ainv(2,1) =(A(0,1)*A(2,0)-A(0,0)*A(2,1))*A(3,3)+(A(0,0)*A(2,3)-A(0,3)*A(2,0))*A(3,1)+(A(0,3)*A(2,1)-A(0,1)*A(2,3))*A(3,0);
-  Ainv(2,2) =(A(0,0)*A(1,1)-A(0,1)*A(1,0))*A(3,3)+(A(0,3)*A(1,0)-A(0,0)*A(1,3))*A(3,1)+(A(0,1)*A(1,3)-A(0,3)*A(1,1))*A(3,0);
-  Ainv(2,3) =(A(0,1)*A(1,0)-A(0,0)*A(1,1))*A(2,3)+(A(0,0)*A(1,3)-A(0,3)*A(1,0))*A(2,1)+(A(0,3)*A(1,1)-A(0,1)*A(1,3))*A(2,0);
-  Ainv(3,0) =(A(1,1)*A(2,0)-A(1,0)*A(2,1))*A(3,2)+(A(1,0)*A(2,2)-A(1,2)*A(2,0))*A(3,1)+(A(1,2)*A(2,1)-A(1,1)*A(2,2))*A(3,0);
-  Ainv(3,1) =(A(0,0)*A(2,1)-A(0,1)*A(2,0))*A(3,2)+(A(0,2)*A(2,0)-A(0,0)*A(2,2))*A(3,1)+(A(0,1)*A(2,2)-A(0,2)*A(2,1))*A(3,0);
-  Ainv(3,2) =(A(0,1)*A(1,0)-A(0,0)*A(1,1))*A(3,2)+(A(0,0)*A(1,2)-A(0,2)*A(1,0))*A(3,1)+(A(0,2)*A(1,1)-A(0,1)*A(1,2))*A(3,0);
-  Ainv(3,3) =(A(0,0)*A(1,1)-A(0,1)*A(1,0))*A(2,2)+(A(0,2)*A(1,0)-A(0,0)*A(1,2))*A(2,1)+(A(0,1)*A(1,2)-A(0,2)*A(1,1))*A(2,0);
-  
-  Ainv /=Adet;
-  return Ainv;
-}
diff --git a/cpplapack-r198/.svn/pristine/0b/0b6649fbc38d98ab44bff8bcf74ef8c5e6762107.svn-base b/cpplapack-r198/.svn/pristine/0b/0b6649fbc38d98ab44bff8bcf74ef8c5e6762107.svn-base
deleted file mode 100644
index 1f4d4f0..0000000
--- a/cpplapack-r198/.svn/pristine/0b/0b6649fbc38d98ab44bff8bcf74ef8c5e6762107.svn-base
+++ /dev/null
@@ -1,72 +0,0 @@
-//=============================================================================
-/*! zhsmatrix+zgematrix operator */
-/*
-inline _zgematrix operator+(const zhsmatrix& matA, const zgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(matB);
-  for(CPPL_INT c=0; c<matA.vol; c++){
-    newmat(matA.indx[c],matA.jndx[c]) += matA.array[c];
-  }
-  
-  return _(newmat);
-}
-*/
-
-//=============================================================================
-/*! zhsmatrix-zgematrix operator */
-/*
-inline _zgematrix operator-(const zhsmatrix& matA, const zgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") - (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  zgematrix newmat(-matB);
-  for(CPPL_INT c=0; c<matA.vol; c++){
-    newmat(matA.indx[c],matA.jndx[c]) += matA.array[c];
-  }
-  
-  return _(newmat);
-}
-*/
-
-//=============================================================================
-/*! zhsmatrix*zgematrix operator */
-/*
-inline _zgematrix operator*(const zhsmatrix& matA, const zgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(matA.m, matB.n);
-  newmat.zero();
-  
-  for(CPPL_INT c=0; c<matA.vol; c++){
-    for(CPPL_INT j=0; j<matB.n; j++){
-      newmat(matA.indx[c],j) += matA.array[c]*matB(matA.jndx[c],j);
-    }
-  }
-  
-  return _(newmat);
-}
-*/
diff --git a/cpplapack-r198/.svn/pristine/0b/0b6ca2226739cc982ac3b3a87381f54d071e1259.svn-base b/cpplapack-r198/.svn/pristine/0b/0b6ca2226739cc982ac3b3a87381f54d071e1259.svn-base
deleted file mode 100644
index c2a4b24..0000000
--- a/cpplapack-r198/.svn/pristine/0b/0b6ca2226739cc982ac3b3a87381f54d071e1259.svn-base
+++ /dev/null
@@ -1,94 +0,0 @@
-//=============================================================================
-//! (DO NOT USE) Smart-temporary Real Double-precision General Band Matrix Class
-class _dgbmatrix
-{
-public:
-  ///////////////////////////////////////////////
-  /////////////////// objects ///////////////////
-  ///////////////////////////////////////////////
-  mutable CPPL_INT m; //!< matrix row size
-  mutable CPPL_INT n; //!< matrix column size
-  mutable CPPL_INT kl; //!< lower band width 
-  mutable CPPL_INT ku; //!< upper band width 
-  mutable double* array; //!< 1D array to store matrix data
-  mutable double** darray; //!< array of pointers of column head addresses
-  
-  ///////////////////////////////////////////////
-  ///////////////// constructors ////////////////
-  ///////////////////////////////////////////////
-  inline _dgbmatrix();
-  inline _dgbmatrix(const _dgbmatrix&);
-  inline ~_dgbmatrix(); //destructor
-  
-  ///////////////////////////////////////////////
-  ////////////////// functions //////////////////
-  ///////////////////////////////////////////////
-  //////// cast ////////
-  inline _zgbmatrix to_zgbmatrix() const;
-  inline _dgematrix to_dgematrix() const;
-  
-  //////// io ////////
-  inline double& operator()(const CPPL_INT&, const CPPL_INT&) const;
-  inline friend std::ostream& operator<<(std::ostream&, const _dgbmatrix&);
-  inline void write(const char*) const;
-  
-  //////// misc ////////
-  inline void nullify() const;
-  inline void destroy() const;
-  
-  //////// calc ////////
-  inline friend _dgbmatrix t(const _dgbmatrix&);
-  inline friend _dgematrix i(const _dgbmatrix&);
-  
-  ///////////////////////////////////////////////
-  ///////////// numerical operators /////////////
-  ///////////////////////////////////////////////
-  //////// unary ////////
-  inline friend const _dgbmatrix& operator+(const _dgbmatrix&);
-  inline friend _dgbmatrix operator-(const _dgbmatrix&);
-  
-  //////// + ////////
-  inline friend _dgematrix operator+(const _dgbmatrix&, const  dgematrix&);
-  inline friend _dgematrix operator+(const _dgbmatrix&, const _dgematrix&);
-  inline friend _dgematrix operator+(const _dgbmatrix&, const  dsymatrix&);
-  inline friend _dgematrix operator+(const _dgbmatrix&, const _dsymatrix&);
-  inline friend _dgbmatrix operator+(const _dgbmatrix&, const  dgbmatrix&);
-  inline friend _dgbmatrix operator+(const _dgbmatrix&, const _dgbmatrix&);
-  inline friend _dgematrix operator+(const _dgbmatrix&, const  dgsmatrix&);
-  inline friend _dgematrix operator+(const _dgbmatrix&, const _dgsmatrix&);
-  inline friend _dgematrix operator+(const _dgbmatrix&, const  dssmatrix&);
-  inline friend _dgematrix operator+(const _dgbmatrix&, const _dssmatrix&);
-  
-  //////// - ////////
-  inline friend _dgematrix operator-(const _dgbmatrix&, const  dgematrix&);
-  inline friend _dgematrix operator-(const _dgbmatrix&, const _dgematrix&);
-  inline friend _dgematrix operator-(const _dgbmatrix&, const  dsymatrix&);
-  inline friend _dgematrix operator-(const _dgbmatrix&, const _dsymatrix&);
-  inline friend _dgbmatrix operator-(const _dgbmatrix&, const  dgbmatrix&);
-  inline friend _dgbmatrix operator-(const _dgbmatrix&, const _dgbmatrix&);
-  inline friend _dgematrix operator-(const _dgbmatrix&, const  dgsmatrix&);
-  inline friend _dgematrix operator-(const _dgbmatrix&, const _dgsmatrix&);
-  inline friend _dgematrix operator-(const _dgbmatrix&, const  dssmatrix&);
-  inline friend _dgematrix operator-(const _dgbmatrix&, const _dssmatrix&);
-  
-  //////// * ////////
-  inline friend _dcovector operator*(const _dgbmatrix&, const  dcovector&);
-  inline friend _dcovector operator*(const _dgbmatrix&, const _dcovector&);
-  inline friend _dgematrix operator*(const _dgbmatrix&, const  dgematrix&);
-  inline friend _dgematrix operator*(const _dgbmatrix&, const _dgematrix&);
-  inline friend _dgematrix operator*(const _dgbmatrix&, const  dsymatrix&);
-  inline friend _dgematrix operator*(const _dgbmatrix&, const _dsymatrix&);
-  inline friend _dgbmatrix operator*(const _dgbmatrix&, const  dgbmatrix&);
-  inline friend _dgbmatrix operator*(const _dgbmatrix&, const _dgbmatrix&);
-  inline friend _dgematrix operator*(const _dgbmatrix&, const  dgsmatrix&);
-  inline friend _dgematrix operator*(const _dgbmatrix&, const _dgsmatrix&);
-  inline friend _dgematrix operator*(const _dgbmatrix&, const  dssmatrix&);
-  inline friend _dgematrix operator*(const _dgbmatrix&, const _dssmatrix&);
-  inline friend _dgbmatrix operator*(const _dgbmatrix&, const     double&);
-  
-  //////// / ////////
-  inline friend _dgbmatrix operator/(const _dgbmatrix&, const     double&);
-  
-  //////// double ////////
-  inline friend _dgbmatrix operator*(const     double&, const _dgbmatrix&);
-};
diff --git a/cpplapack-r198/.svn/pristine/0b/0b81a25a8e4fd065f95cb0362d2d92811b4e36e0.svn-base b/cpplapack-r198/.svn/pristine/0b/0b81a25a8e4fd065f95cb0362d2d92811b4e36e0.svn-base
deleted file mode 100644
index 58ad337..0000000
--- a/cpplapack-r198/.svn/pristine/0b/0b81a25a8e4fd065f95cb0362d2d92811b4e36e0.svn-base
+++ /dev/null
@@ -1,131 +0,0 @@
-//=============================================================================
-/*! dsymatrix=dsymatrix operator */
-inline dsymatrix& dsymatrix::operator=(const dsymatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  if(array!=mat.array){ // if it is NOT self substitution
-    copy(mat);
-  }
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! dsymatrix+=dsymatrix operator */
-inline dsymatrix& dsymatrix::operator+=(const dsymatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << n << "x" << n << ") += (" << mat.n << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT j=0; j<n; j++){
-    for(CPPL_INT i=j; i<n; i++){
-      darray[j][i] +=mat.darray[j][i];
-    }
-  }
-  
-  return *this;
-}
-
-//=============================================================================
-/*! dsymatrix operator-= */
-inline dsymatrix& dsymatrix::operator-=(const dsymatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a sutraction." << std::endl
-              << "Your input was (" << n << "x" << n << ") -= (" << mat.n << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT j=0; j<n; j++){
-    for(CPPL_INT i=j; i<n; i++){
-      darray[j][i] -=mat.darray[j][i];
-    }
-  }
-  
-  return *this;
-}
-
-//=============================================================================
-/*! dsymatrix+dsymatrix operator */
-inline _dsymatrix operator+(const dsymatrix& matA, const dsymatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") + (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dsymatrix newmat(matA.n);
-  
-  for(CPPL_INT j=0; j<matA.n; j++){
-    for(CPPL_INT i=j; i<matA.n; i++){
-      newmat.darray[j][i] =matA.darray[j][i] +matB.darray[j][i];
-    }
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! dsymatrix-dsymatrix operator */
-inline _dsymatrix operator-(const dsymatrix& matA, const dsymatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") - (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dsymatrix newmat(matA.n);
-  
-  for(CPPL_INT j=0; j<matA.n; j++){
-    for(CPPL_INT i=j; i<matA.n; i++){
-      newmat.darray[j][i] =matA.darray[j][i] -matB.darray[j][i];
-    }
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! dsymatrix*dsymatrix operator */
-inline _dgematrix operator*(const dsymatrix& matA, const dsymatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") * (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  matB.complete();
-  
-  dgematrix newmat(matA.n, matA.n);
-  char side ='l';
-  char uplo ='l';
-  double alpha =1.;
-  double beta =0.;
-  
-  dsymm_( &side, &uplo, &matA.n, &matB.n, &alpha, matA.array, &matA.n, matB.array, &matB.m, &beta, newmat.array, &newmat.m );
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/0b/0b95be583d3c5325385dddb0d644b3517ba21cbb.svn-base b/cpplapack-r198/.svn/pristine/0b/0b95be583d3c5325385dddb0d644b3517ba21cbb.svn-base
deleted file mode 100644
index 5b04245..0000000
--- a/cpplapack-r198/.svn/pristine/0b/0b95be583d3c5325385dddb0d644b3517ba21cbb.svn-base
+++ /dev/null
@@ -1,14 +0,0 @@
-//=============================================================================
-/*! +_zcovector operator */
-inline const _zcovector& operator+(const _zcovector& vec)
-{CPPL_VERBOSE_REPORT;
-  return vec;
-}
-
-//=============================================================================
-/*! -_zcovector operator */
-inline _zcovector operator-(const _zcovector& vec)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<vec.l; i++){ vec.array[i]=-vec.array[i]; }
-  return vec;
-}
diff --git a/cpplapack-r198/.svn/pristine/0c/0c5d76d1344b58eb98494f1c191af1e31b0e39b8.svn-base b/cpplapack-r198/.svn/pristine/0c/0c5d76d1344b58eb98494f1c191af1e31b0e39b8.svn-base
deleted file mode 100644
index ce65b57..0000000
--- a/cpplapack-r198/.svn/pristine/0c/0c5d76d1344b58eb98494f1c191af1e31b0e39b8.svn-base
+++ /dev/null
@@ -1,41 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int N(3);
-  
-  CPPL::zhematrix A;
-  cout << "A || n=" << A.n << " array=" << A.array << " " << endl;
-  
-  
-  CPPL::zhematrix B(N);
-  for(int i=0; i<B.n; i++){
-    for(int j=0; j<i; j++){
-      B(i,j) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-    }
-    B(i,i) =complex<double>(rand()/(RAND_MAX/10), 0.0);
-  }
-  
-  cout << "B || n=" << B.n << " array=" << B.array << " " << endl;
-  cout << B << endl;
-  
-  CPPL::zhematrix C(B);
-  cout << "C || n=" << C.n << " array=" << C.array << " " << endl;
-  cout << C << endl;
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/0c/0c8cd851b25902662180170357af97343a7fd8a4.svn-base b/cpplapack-r198/.svn/pristine/0c/0c8cd851b25902662180170357af97343a7fd8a4.svn-base
deleted file mode 100644
index 5e03657..0000000
--- a/cpplapack-r198/.svn/pristine/0c/0c8cd851b25902662180170357af97343a7fd8a4.svn-base
+++ /dev/null
@@ -1,140 +0,0 @@
-extern "C" {
-  // Level 1 BLAS
-  /* Vector rotation: x := c*x[i] + s*y[i], y[i] := - s*x[i] + c*y[i] */
-  void drot_( const CPPL_INT *N, double *x, const CPPL_INT *incx, double *y,
-              const CPPL_INT *incy, const double *c, const double *s );
-  /* x <--> y */
-  void dswap_( const CPPL_INT *N, double *x, const CPPL_INT *incx, double *y,
-               const CPPL_INT *incy );
-  /* x := alpha * x */
-  void dscal_( const CPPL_INT *N, const double *alpha, double *x,
-               const CPPL_INT *incx );
-  /* y := x */
-  void dcopy_( const CPPL_INT *N, const double *x, const CPPL_INT *incx,
-               double *y, const CPPL_INT *incy );
-  /* y := alpha * x + y */
-  void daxpy_( const CPPL_INT *N, const double *alpha, const double *x,
-               const CPPL_INT *incx, double *y, const CPPL_INT *incy );
-  /* return x^T y */
-  double ddot_( const CPPL_INT *N, const double *x, const CPPL_INT *incx,
-                const double *y, const CPPL_INT *incy );
-  /* return N2 norm */
-  double dnrm2_( const CPPL_INT *N, const double *x, const CPPL_INT *incx );
-  /* return sum of abs(x[i]) */
-  double dasum_( const CPPL_INT *N, const double *x, const CPPL_INT *incx );
-  /* return the index of element having the largest absolute value */
-  CPPL_INT idamax_( const CPPL_INT *N, const double *x, const CPPL_INT *incx );
-
-  // Level 2 BLAS
-  /* y := alpha * A * x + beta * y for General M by N Matrix */
-  void dgemv_( const char *trans, const CPPL_INT *M, const CPPL_INT *N,
-               const double *alpha, const double *a, const CPPL_INT *lda,
-               const double *x, const CPPL_INT *incx, const double *beta,
-               double *y, const CPPL_INT *incy );
-  /* y := alpha * A * x + beta * y for General M by N Band Matrix */
-  void dgbmv_( const char *trans, const CPPL_INT *M, const CPPL_INT *N,
-               const CPPL_INT *KL, const CPPL_INT *KU, const double *alpha,
-               const double *a, const CPPL_INT *lda, const double *x,
-               const CPPL_INT *incx, const double *beta, double *y,
-               const CPPL_INT *incy );
-  /* y := alpha * A * x + beta * y for Symmetric Matrix */
-  void dsymv_( const char *uplo, const CPPL_INT *N, const double *alpha,
-               const double *a, const CPPL_INT *lda, const double *x,
-               const CPPL_INT *incx, const double *beta, double *y,
-               const CPPL_INT *incy );
-  /* y := alpha * A * x + beta * y for Symmetric Band Matrix */
-  void dsbmv_( const char *uplo, const CPPL_INT *N, const CPPL_INT *k,
-               const double *alpha, const double *a, const CPPL_INT *lda,
-               const double *x, const CPPL_INT *incx, const double *beta,
-               double *y, const CPPL_INT *incy );
-  /* y := alpha * A * x + beta * y for Symmetric Packed Matrix */
-  void dspmv_( const char *uplo, const CPPL_INT *N, const double *alpha,
-               const double *ap, const double *x, const CPPL_INT *incx,
-               const double *beta, double *y, const CPPL_INT *incy );
-
-  /* x := A * x for Triangular Matrix */
-  void dtrmv_( const char *uplo, const char *trans, const char *diag,
-               const CPPL_INT *N, const double *a, const CPPL_INT *lda,
-               double *x, const CPPL_INT *incx );
-  /* x := A * x for Triangular (Banded Storage) Matrix */
-  void dtbmv_( const char *uplo, const char *trans, const char *diag,
-               const CPPL_INT *N, const CPPL_INT *k, const double *a,
-               const CPPL_INT *lda, double *x, const CPPL_INT *incx );
-  /* x := A * x for Triangular (Packed Storage) Matrix */
-  void dtpmv_( const char *uplo, const char *trans, const char *diag,
-               const CPPL_INT *N, const double *ap, double *x,
-               const CPPL_INT *incx );
-
-  /* Solve A * x = b for Triangular Matrix */
-  void dtrsv_( const char *uplo, const char *trans, const char *diag,
-               const CPPL_INT *N, const double *a, const CPPL_INT *lda, double *x,
-               const CPPL_INT *incx );
-  /* Solve A * x = b for Triangular (Banded Storage) Matrix */
-  void dtbsv_( const char *uplo, const char *trans, const char *diag,
-               const CPPL_INT *N, const CPPL_INT *k, const double *a,
-               const CPPL_INT *lda, double *x, const CPPL_INT *incx );
-  /* Solve A * x = b for Triangular (Packed Storage) Matrix */
-  void dtpsv_( const char *uplo, const char *trans, const char *diag,
-               const CPPL_INT *N, const double *ap, double *x,
-               const CPPL_INT *incx );
-
-  /* A := alpha * x * y' + A  (A: M by N Matrix) */
-  void dger_( const CPPL_INT *M, const CPPL_INT *N, const double *alpha,
-              const double *x, const CPPL_INT *incx, const double *y,
-              const CPPL_INT *incy, double *a, const CPPL_INT *lda );
-  /* A := alpha * x * x' + A  (A: Symmetric N by N Matrix) */
-  void dsyr_( const char *uplo, const CPPL_INT *N, const double *alpha,
-              const double *x, const CPPL_INT *incx, double *a,
-              const CPPL_INT *lda );
-  /* A := alpha * x * x' + A
-     (A: Symmetric N by N Packed Storage Matrix) */
-  void dspr_( const char *uplo, const CPPL_INT *N, const double *alpha,
-              const double *x, const CPPL_INT *incx, double *ap );
-  /* A := alpha * x * y' + alpha * y * x' + A
-     (A: Symmetric N by N Matrix) */
-  void dsyr2_( const char *uplo, const CPPL_INT *N, const double *alpha,
-               const double *x, const CPPL_INT *incx, const double *y,
-               const CPPL_INT *incy, double *a, const CPPL_INT *lda );
-  /* A := alpha * x * y' + alpha * y * x' + A
-     (A: Symmetric N by N Packed Storage Matrix) */
-  void dspr2_( const char *uplo, const CPPL_INT *N, const double *alpha,
-               const double *x, const CPPL_INT *incx, const double *y,
-               const CPPL_INT *incy, double *ap );
-
-  // Level 3 BLAS
-  /* C := alpha * A * B + beta * C  (C: M by N Matrix) */
-  void dgemm_( const char *transa, const char *transb, const CPPL_INT *M,
-               const CPPL_INT *N, const CPPL_INT *k, const double *alpha,
-               const double *a, const CPPL_INT *lda, const double *b,
-               const CPPL_INT *ldb, const double *beta, double *c,
-               const CPPL_INT *ldc );
-  /* C := alpha * A * B + beta * C
-     (A: Symmetric Matrix,  B, C: M by N Matrices) */
-  void dsymm_( const char *side, const char *uplo, const CPPL_INT *M,
-               const CPPL_INT *N, const double *alpha, const double *a,
-               const CPPL_INT *lda, const double *b, const CPPL_INT *ldb,
-               const double *beta, double *c, const CPPL_INT *ldc );
-  /* C:= alpha * A * A' + beta * C
-     (A: N by k Matrix,  C: Symmetric Matrix) */
-  void dsyrk_( const char *uplo, const char *trans, const CPPL_INT *N,
-               const CPPL_INT *k, const double *alpha, const double *a,
-               const CPPL_INT *lda, const double *beta, double *c,
-               const CPPL_INT *ldc );
-  /* C := alpha * A * B' + alpha * B * A' + beta * C
-     (A, B: N by k Marices,  C: Symmetric Matrix ) */
-  void dsyr2k_( const char *uplo, const char *trans, const CPPL_INT *N,
-                const CPPL_INT *k, const double *alpha, const double *a,
-                const CPPL_INT *lda, const double *b, const CPPL_INT *ldb,
-                const double *beta, double *c, const CPPL_INT *ldc );
-  /* B := alpha * A * B  (A: Triangular Matrix,  B: M by N Matrix) */
-  void dtrmm_( const char *side, const char *uplo, const char *transa,
-               const char *diag, const CPPL_INT *M, const CPPL_INT *N,
-               const double *alpha, const double *a, const CPPL_INT *lda,
-               double *b, const CPPL_INT *ldb );
-  /* Solve A * X = alpha * B
-     (A: Triangular Matrix,  X, B: M by N Matrices) */
-  void dtrsm_( const char *side, const char *uplo, const char *transa,
-               const char *diag, const CPPL_INT *M, const CPPL_INT *N,
-               const double *alpha, const double *a, const CPPL_INT *lda,
-               double *b, const CPPL_INT *ldb );
-}
diff --git a/cpplapack-r198/.svn/pristine/0c/0cd5026388dd38783e0a43d09e711a37fa836adc.svn-base b/cpplapack-r198/.svn/pristine/0c/0cd5026388dd38783e0a43d09e711a37fa836adc.svn-base
deleted file mode 100644
index 440f013..0000000
--- a/cpplapack-r198/.svn/pristine/0c/0cd5026388dd38783e0a43d09e711a37fa836adc.svn-base
+++ /dev/null
@@ -1,38 +0,0 @@
-//=============================================================================
-/*! dgesvd_check */
-void dgesvd_check()
-{
-  std::cout << "############ check dgesvd ############" << std::endl;
-  
-  srand(unsigned(time(NULL)));
-  int M(4), N(3);
-  
-  //// make dgematrix A  ////
-  CPPL::dgematrix A(M,N);
-  for(int i=0; i<A.m; i++){ for(int j=0; j<A.n; j++){
-	A(i,j) =double( rand() /(RAND_MAX/10) );
-  }}
-  
-  //// make A_original ////
-  CPPL::dgematrix A_original(A);
-  
-  //// make S, U and VT ////
-  CPPL::dcovector S;
-  CPPL::dgematrix U, VT;
-  
-  //// SVD A ////
-  A.dgesvd(S,U,VT);
-  
-  //// print A, S, U, and VT ////
-  std::cout << "A=\n" << A << std::endl;
-  std::cout << "S=\n" << S << std::endl;
-  std::cout << "U=\n" << U << std::endl;
-  std::cout << "VT=\n" << VT << std::endl;
-  
-  CPPL::dgematrix S_matrix(M,N);
-  S_matrix.zero();
-  for(int i=0; i<std::min(M,N); i++){ S_matrix(i,i) =S(i); }
-  std::cout << "S_matrix=\n" << S_matrix << std::endl;
-  std::cout << "A_original=\n" << A_original << std::endl;
-  std::cout << "U*S_matrix*VT=\n" << U*S_matrix*VT << std::endl;
-}
diff --git a/cpplapack-r198/.svn/pristine/0c/0ce6471ac1f19f2e936cf9780172e653f5e2e4af.svn-base b/cpplapack-r198/.svn/pristine/0c/0ce6471ac1f19f2e936cf9780172e653f5e2e4af.svn-base
deleted file mode 100644
index e556111..0000000
--- a/cpplapack-r198/.svn/pristine/0c/0ce6471ac1f19f2e936cf9780172e653f5e2e4af.svn-base
+++ /dev/null
@@ -1,24 +0,0 @@
-//=============================================================================
-/*! zgematrix*_zcovector operator */
-inline _zcovector operator*(const zgematrix& mat, const _zcovector& vec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(mat.n!=vec.l){
-    ERROR_REPORT;
-    std::cerr << "These matrix and vector can not make a product." << std::endl
-              << "Your input was (" << mat.m << "x" << mat.n << ") * (" << vec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zcovector newvec(mat.m);
-  char trans ='n';
-  comple alpha =comple(1.,0.);
-  CPPL_INT inc =1;
-  comple beta =comple(0.,0.);
-  
-  zgemv_( &trans, &mat.m, &mat.n, &alpha, mat.array, &mat.m, vec.array, &inc, &beta, newvec.array, &inc );
-  
-  vec.destroy();
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/0c/0cef1705bc005748538ab1c5c3fe27233275f767.svn-base b/cpplapack-r198/.svn/pristine/0c/0cef1705bc005748538ab1c5c3fe27233275f767.svn-base
deleted file mode 100644
index dc1b59b..0000000
--- a/cpplapack-r198/.svn/pristine/0c/0cef1705bc005748538ab1c5c3fe27233275f767.svn-base
+++ /dev/null
@@ -1,77 +0,0 @@
-//=============================================================================
-/*! dssmatrix+_dgematrix operator */
-/*
-inline _dgematrix operator+(const dssmatrix& matA, const _dgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT c=0; c<matA.vol; c++){
-    matB(matA.indx[c],matA.jndx[c]) += matA.array[c];
-    matB(matA.jndx[c],matA.indx[c]) += matA.array[c];
-  }
-  
-  return matB;
-}
-*/
-
-//=============================================================================
-/*! dssmatrix-_dgematrix operator */
-/*
-inline _dgematrix operator-(const dssmatrix& matA, const _dgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") - (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //// change sign ////
-  for(CPPL_INT i=0; i<matB.m*matB.n; i++){
-    matB.array[i]=-matB.array[i];
-  }
-  
-  //// add ////
-  for(CPPL_INT c=0; c<matA.vol; c++){
-    matB(matA.indx[c],matA.jndx[c]) += matA.array[c];
-  }
-  
-  return matB;
-}
-*/
-//=============================================================================
-/*! dssmatrix*_dgematrix operator */
-/*
-inline _dgematrix operator*(const dssmatrix& matA, const _dgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat(matA.m, matB.n);
-  newmat.zero();
-  
-  for(CPPL_INT c=0; c<matA.vol; c++){
-    for(CPPL_INT j=0; j<matB.n; j++){
-      newmat(matA.indx[c],j) += matA.array[c]*matB(matA.jndx[c],j);
-    }
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
-*/
diff --git a/cpplapack-r198/.svn/pristine/0e/0e0bc390046ac16199d7cc6601fba85f26aad89d.svn-base b/cpplapack-r198/.svn/pristine/0e/0e0bc390046ac16199d7cc6601fba85f26aad89d.svn-base
deleted file mode 100644
index b8413f4..0000000
--- a/cpplapack-r198/.svn/pristine/0e/0e0bc390046ac16199d7cc6601fba85f26aad89d.svn-base
+++ /dev/null
@@ -1,35 +0,0 @@
-//=============================================================================
-/*! _zhematrix constructor without arguments */
-inline _zhematrix::_zhematrix()
-  :m(n)
-{CPPL_VERBOSE_REPORT;
-  //////// initialize ////////
-  n =0;
-  array =NULL;
-  darray =NULL;
-}
-
-//=============================================================================
-/*! _zhematrix copy constructor */
-inline _zhematrix::_zhematrix(const _zhematrix& mat)
-  :m(n)
-{CPPL_VERBOSE_REPORT;
-  //////// initialize ////////
-  n =mat.n;
-  array =mat.array;
-  darray =mat.darray;
-  
-  mat.nullify();
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zhematrix destructor */
-inline _zhematrix::~_zhematrix()
-{CPPL_VERBOSE_REPORT;
-  delete [] array;
-  delete [] darray;
-}
diff --git a/cpplapack-r198/.svn/pristine/0e/0e41e94ad786e9e9243347625f489a29283b9b24.svn-base b/cpplapack-r198/.svn/pristine/0e/0e41e94ad786e9e9243347625f489a29283b9b24.svn-base
deleted file mode 100644
index 13ed0e3..0000000
--- a/cpplapack-r198/.svn/pristine/0e/0e41e94ad786e9e9243347625f489a29283b9b24.svn-base
+++ /dev/null
@@ -1,14 +0,0 @@
-//=============================================================================
-/*! +_zrovector operator */
-inline const _zrovector& operator+(const _zrovector& vec)
-{CPPL_VERBOSE_REPORT;
-  return vec;
-}
-
-//=============================================================================
-/*! -_zrovector operator */
-inline _zrovector operator-(const _zrovector& vec)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<vec.l; i++){ vec.array[i]=-vec.array[i]; }
-  return vec;
-}
diff --git a/cpplapack-r198/.svn/pristine/0e/0ea7d04e0bcedbb35f4b86825568601dd2aa1b76.svn-base b/cpplapack-r198/.svn/pristine/0e/0ea7d04e0bcedbb35f4b86825568601dd2aa1b76.svn-base
deleted file mode 100644
index 4398e4e..0000000
--- a/cpplapack-r198/.svn/pristine/0e/0ea7d04e0bcedbb35f4b86825568601dd2aa1b76.svn-base
+++ /dev/null
@@ -1,157 +0,0 @@
-//=============================================================================
-/*! operator() for non-const object */
-inline double& dsymatrix::operator()(const CPPL_INT& i, const CPPL_INT& j)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || j<0 || n<=i || n<=j ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the matrix size." << std::endl
-              << "Your input is (" << i << "," << j << "), whereas the matrix size is " << n << "x" << n << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  if( i >= j ) {
-    //return array[i+n*j];
-    return darray[j][i];
-  } else {
-    //return array[j+n*i];
-    return darray[i][j];
-  }
-}
-
-//=============================================================================
-/*! operator() for const object */
-inline double dsymatrix::operator()(const CPPL_INT& i, const CPPL_INT& j) const
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || j<0 || n<=i || n<=j ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the matrix size." << std::endl
-              << "Your input is (" << i << "," << j << "), whereas the matrix size is " << n << "x" << n << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  if( i >= j ) {
-    //return array[i+n*j];
-    return darray[j][i];
-  } else {
-    //return array[j+n*i];
-    return darray[i][j];
-  }
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! set value for const object */
-inline dsymatrix& dsymatrix::set(const CPPL_INT& i, const CPPL_INT& j, const double& v) //const
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || j<0 || n<=i || n<=j ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the matrix size." << std::endl
-              << "Your input is (" << i << "," << j << "), whereas the matrix size is " << n << "x" << n << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  if( i >= j ) {
-    //array[i+n*j] = v;
-    darray[j][i] =v;
-  } else {
-    //array[j+n*i] = v;
-    darray[i][j] =v;
-  }
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-inline std::ostream& operator<<(std::ostream& s, const dsymatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<mat.n; i++){
-    for(CPPL_INT j=0; j<=i; j++){
-      s << " " << mat(i,j) << " ";
-    }
-    for(CPPL_INT j=i+1; j<mat.n; j++){
-      s << "{" << mat(i,j) << "}";
-    }
-    s << std::endl;
-  }
-  return s;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-inline void dsymatrix::write(const char* filename) const
-{CPPL_VERBOSE_REPORT;
-  std::ofstream ofs(filename, std::ios::trunc);
-  ofs.setf(std::cout.flags());
-  ofs.precision(std::cout.precision());
-  ofs.width(std::cout.width());
-  ofs.fill(std::cout.fill());
-  
-  ofs << "#dsymatrix " << n << std::endl;
-  for(CPPL_INT i=0; i<n; i++){
-    for(CPPL_INT j=0; j<=i; j++){
-      ofs << operator()(i,j) << " ";
-    }
-    ofs << std::endl;
-  }
-  
-  ofs.close();
-}
-
-//=============================================================================
-inline void dsymatrix::read(const char* filename)
-{CPPL_VERBOSE_REPORT;
-  std::ifstream s(filename);
-  if(!s){
-    ERROR_REPORT;
-    std::cerr << "The file \"" << filename << "\" can not be opened." << std::endl;
-    exit(1);
-  }
-
-  std::string id;
-  s >> id;
-  if( id != "dsymatrix" && id != "#dsymatrix" ){
-    ERROR_REPORT;
-    std::cerr << "The type name of the file \"" << filename << "\" is not dsymatrix." << std::endl
-              << "Its type name was " << id << " ." << std::endl;
-    exit(1);
-  }
-  
-  s >> n;
-  resize(n);
-  for(CPPL_INT i=0; i<n; i++){
-    for(CPPL_INT j=0; j<=i; j++ ){
-      s >> operator()(i,j);
-    }
-  }
-  if(s.eof()){
-    ERROR_REPORT;
-    std::cerr << "There is something is wrong with the file \"" << filename << " ." << std::endl
-              << "Most likely, there is not enough data components, or a linefeed code or space code is missing at the end of the last line." << std::endl;
-    exit(1);
-  }
-  
-  s >> id;
-  if(!s.eof()){
-    ERROR_REPORT;
-    std::cerr << "There is something is wrong with the file \"" << filename << "\"." << std::endl
-              << "Most likely, there are extra data components." << std::endl;
-    exit(1);
-  }
-
-  s.close();
-}
diff --git a/cpplapack-r198/.svn/pristine/0f/0f239d17f8d1a270b255891045597ab4c91a0630.svn-base b/cpplapack-r198/.svn/pristine/0f/0f239d17f8d1a270b255891045597ab4c91a0630.svn-base
deleted file mode 100644
index 44a3490..0000000
--- a/cpplapack-r198/.svn/pristine/0f/0f239d17f8d1a270b255891045597ab4c91a0630.svn-base
+++ /dev/null
@@ -1,32 +0,0 @@
-//=============================================================================
-/*! cast to _zgbmatrix */
-inline _zgbmatrix dgbmatrix::to_zgbmatrix() const
-{CPPL_VERBOSE_REPORT;
-  zgbmatrix newmat(m,n,kl,ku);
-  
-  for(CPPL_INT i=0; i<(kl+ku+1)*n; i++){
-    newmat.array[i] =comple(array[i],0.0);
-  }
-  
-  return _(newmat);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! convert to _dgematrix */
-inline _dgematrix dgbmatrix::to_dgematrix() const
-{CPPL_VERBOSE_REPORT;
-  dgematrix newmat( dgematrix(m,n).zero() );
-  
-  for(CPPL_INT i=0; i<m; i++){
-    const CPPL_INT jmax =std::min(n,i+ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-kl); j<jmax; j++){
-      newmat(i,j) =(*this)(i,j);
-    }
-  }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/0f/0fa0e571d27e44ae5c85435eca884f5d2644b51c.svn-base b/cpplapack-r198/.svn/pristine/0f/0fa0e571d27e44ae5c85435eca884f5d2644b51c.svn-base
deleted file mode 100644
index 6fd90d2..0000000
--- a/cpplapack-r198/.svn/pristine/0f/0fa0e571d27e44ae5c85435eca884f5d2644b51c.svn-base
+++ /dev/null
@@ -1,24 +0,0 @@
-//=============================================================================
-/*! zgsmatrix*_zcovector operator */
-inline _zcovector operator*(const zgsmatrix& mat, const _zcovector& vec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(mat.n!=vec.l){
-    ERROR_REPORT;
-    std::cerr << "These matrix and vector can not make a product." << std::endl
-              << "Your input was (" << mat.m << "x" << mat.n << ") * (" << vec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zcovector newvec(mat.m);
-  newvec.zero();
-  
-  const std::vector<zcomponent>::const_iterator mat_data_end =mat.data.end();
-  for(std::vector<zcomponent>::const_iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    newvec(it->i) += it->v*vec(it->j);
-  }
-  
-  vec.destroy();
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/0f/0fef21b82fc0896d3c963b7492a7c565d6df9b7a.svn-base b/cpplapack-r198/.svn/pristine/0f/0fef21b82fc0896d3c963b7492a7c565d6df9b7a.svn-base
deleted file mode 100644
index 77e4233..0000000
--- a/cpplapack-r198/.svn/pristine/0f/0fef21b82fc0896d3c963b7492a7c565d6df9b7a.svn-base
+++ /dev/null
@@ -1,74 +0,0 @@
-//=============================================================================
-/*! _dgsmatrix+dgematrix operator */
-inline _dgematrix operator+(const _dgsmatrix& matA, const dgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat(matB);
-  
-  const std::vector<dcomponent>::const_iterator matA_data_end =matA.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matA.data.begin(); it!=matA_data_end; it++){
-    newmat(it->i,it->j) += it->v;
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _dgsmatrix-dgematrix operator */
-inline _dgematrix operator-(const _dgsmatrix& matA, const dgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") - (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat(-matB);
-  
-  const std::vector<dcomponent>::const_iterator matA_data_end =matA.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matA.data.begin(); it!=matA_data_end; it++){
-    newmat(it->i,it->j) += it->v;
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _dgsmatrix*dgematrix operator */
-inline _dgematrix operator*(const _dgsmatrix& matA, const dgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat(matA.m, matB.n);
-  newmat.zero();
-  
-  const std::vector<dcomponent>::const_iterator matA_data_end =matA.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matA.data.begin(); it!=matA_data_end; it++){
-    for(CPPL_INT j=0; j<matB.n; j++){
-      newmat(it->i,j) += it->v*matB(it->j,j);
-    }
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/10/107bb5141ebb5ea9e5ef321f06dbbf0f519ce68b.svn-base b/cpplapack-r198/.svn/pristine/10/107bb5141ebb5ea9e5ef321f06dbbf0f519ce68b.svn-base
deleted file mode 100644
index 4cdac82..0000000
--- a/cpplapack-r198/.svn/pristine/10/107bb5141ebb5ea9e5ef321f06dbbf0f519ce68b.svn-base
+++ /dev/null
@@ -1,95 +0,0 @@
-//=============================================================================
-/*! zgsmatrix constructor without arguments */
-inline zgsmatrix::zgsmatrix()
-{CPPL_VERBOSE_REPORT;
-  //////// initialize ////////
-  m =0;
-  n =0;
-  data.clear();
-  rows.clear();
-  cols.clear();
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zgsmatrix copy constructor */
-inline zgsmatrix::zgsmatrix(const zgsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  m =mat.m;
-  n =mat.n;
-  data.clear();
-  rows.clear();
-  cols.clear();
-  copy(mat);
-}
-
-//=============================================================================
-/*! zgsmatrix constructor to cast _zgsmatrix */
-inline zgsmatrix::zgsmatrix(const _zgsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  m =mat.m;
-  n =mat.n;
-  data.clear();
-  rows.clear();
-  cols.clear();
-  
-  data.swap(mat.data);
-  rows.swap(mat.rows);
-  cols.swap(mat.cols);
-  
-  mat.nullify();
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zgsmatrix constructor with size specification */
-inline zgsmatrix::zgsmatrix(const CPPL_INT& _m, const CPPL_INT& _n, const CPPL_INT _c)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( _m<0 || _n<0 || _c<0 ){
-    ERROR_REPORT;
-    std::cerr << "Matrix sizes and the length of arrays must be positive integers. " << std::endl
-              << "Your input was (" << _m << "," << _n << "," << _c << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //////// initialize ////////
-  m =_m;
-  n =_n;
-  data.resize(0);
-  data.reserve(_c);
-  rows.resize(m);
-  cols.resize(n);
-}
-
-//=============================================================================
-/*! zgsmatrix constructor with filename */
-inline zgsmatrix::zgsmatrix(const char* filename)
-{CPPL_VERBOSE_REPORT;
-  data.clear();
-  rows.clear();
-  cols.clear();
-  
-  //// read ////
-  read(filename);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zgsmatrix destructor */
-inline zgsmatrix::~zgsmatrix()
-{CPPL_VERBOSE_REPORT;
-  data.clear();
-  rows.clear();
-  cols.clear();
-}
diff --git a/cpplapack-r198/.svn/pristine/10/109c48a83176c692037609f839e94f8e0287d36d.svn-base b/cpplapack-r198/.svn/pristine/10/109c48a83176c692037609f839e94f8e0287d36d.svn-base
deleted file mode 100644
index a247502..0000000
--- a/cpplapack-r198/.svn/pristine/10/109c48a83176c692037609f839e94f8e0287d36d.svn-base
+++ /dev/null
@@ -1,77 +0,0 @@
-//=============================================================================
-/*! zhesv_check */
-void zhesv_check_vector()
-{
-  cout << "############ check zhesv vector ############" << endl;
-  
-  srand(unsigned(time(NULL)));
-  int N(3);
-  
-  //// make zhematrix A  ////
-  CPPL::zhematrix A(N);
-  for(int i=0; i<A.n; i++){
-    for(int j=0; j<i; j++){
-      A(i,j) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-    }
-    A(i,i) =complex<double>(rand()/(RAND_MAX/10), 0.0);
-  }
-  
-  //// make zcovector y ////
-  CPPL::zcovector y(N);
-  for(int i=0; i<y.l; i++){
-    y(i) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-  }
-  
-  //// make A_original and y_original ////
-  CPPL::zhematrix A_original(A);
-  CPPL::zcovector y_original(y);
-  cout << "A_original=\n" << A_original << endl;
-  cout << "y_original=\n" << y_original << endl;
-  
-  //// solve Ax=y ////
-  A.zhesv(y);
-    
-  //// print A, y and A_original*y ////
-  cout << "A=\n" << A << endl;
-  cout << "y=\n" << y << endl;
-  cout << "A_original*y=\n" << A_original*y << endl;
-}
-
-//=============================================================================
-void zhesv_check_matrix()
-{
-  cout << "############ check zhesv matrix ############" << endl;
-  
-  srand(unsigned(time(NULL)));
-  int N(3);
-  
-
-  //// make zhematrix A  ////
-  CPPL::zhematrix A(N);
-  for(int i=0; i<A.n; i++){
-    for(int j=0; j<i; j++){
-      A(i,j) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-    }
-    A(i,i) =complex<double>(rand()/(RAND_MAX/10), 0.0);
-  }
-  
-  //// make zhematrix Y  ////
-  CPPL::zgematrix Y(N,N);
-  for(int i=0; i<Y.m; i++){ for(int j=0; j<Y.n; j++){
-    Y(i,j) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-  }}
-   
-  //// make A_original and Y_original ////
-  CPPL::zhematrix A_original(A);
-  CPPL::zgematrix Y_original(Y);
-  cout << "A_original=\n" << A_original << endl;
-  cout << "Y_original=\n" << Y_original << endl;
-  
-  //// solve AY=B ////
-  A.zhesv(Y);
-    
-  //// print A, Y and A_original*Y ////
-  cout << "A=\n" << A << endl;
-  cout << "Y=\n" << Y << endl;
-  cout << "A_original*Y=\n" << A_original*Y << endl;
-}
diff --git a/cpplapack-r198/.svn/pristine/10/10f9508cb6651c39cb4884912394ad7df95cd5e0.svn-base b/cpplapack-r198/.svn/pristine/10/10f9508cb6651c39cb4884912394ad7df95cd5e0.svn-base
deleted file mode 100644
index 7ddf2a7..0000000
--- a/cpplapack-r198/.svn/pristine/10/10f9508cb6651c39cb4884912394ad7df95cd5e0.svn-base
+++ /dev/null
@@ -1,49 +0,0 @@
-//=============================================================================
-/*! dgglse_check */
-void dgglse_check()
-{
-  std::cout << "############ check dgglse ############" << std::endl;
-  
-  srand(unsigned(time(NULL)));
-  int M(3), N(4), P(2);
-  
-  //////// make A ////////
-  CPPL::dgematrix A(M,N);
-  for(int i=0; i<A.m; i++){
-    for(int j=0; j<A.n; j++){
-      A(i,j) =double( rand() /(RAND_MAX/10) );
-    }
-  }
-  CPPL::dgematrix A0(A);
-  
-  //////// make B ////////
-  CPPL::dgematrix B(P,N);
-  for(int i=0; i<B.m; i++){
-    for(int j=0; j<B.n; j++){
-      B(i,j) =double( rand() /(RAND_MAX/10) );
-    }
-  }
-  CPPL::dgematrix B0(B);
-  
-  //////// make c ////////
-  CPPL::dcovector c(M);
-  for(int i=0; i<c.l; i++){
-    c(i) =double( rand() /(RAND_MAX/10) );
-  }
-  CPPL::dcovector c0(c);
-  
-  //////// make d ////////
-  CPPL::dcovector d(P);
-  for(int i=0; i<d.l; i++){
-    d(i) =double( rand() /(RAND_MAX/10) );
-  }
-  CPPL::dcovector d0(d);
-  
-  //////// solve LSE ////////
-  CPPL::dcovector x;
-  A.dgglse(B,c,d,x);
-  
-  //// print ////
-  std::cout << "t(c0-A0*x)=" << t(c0-A0*x) << std::endl;
-  std::cout << "t(d0-B0*x)=" << t(d0-B0*x) << std::endl;
-}
diff --git a/cpplapack-r198/.svn/pristine/11/1131fe8227b780577961060a0e3198313e87172e.svn-base b/cpplapack-r198/.svn/pristine/11/1131fe8227b780577961060a0e3198313e87172e.svn-base
deleted file mode 100644
index b5b55a7..0000000
--- a/cpplapack-r198/.svn/pristine/11/1131fe8227b780577961060a0e3198313e87172e.svn-base
+++ /dev/null
@@ -1,27 +0,0 @@
-#!/bin/sh
-
-rootdir=`pwd`
-MAKEFILE=$HOME/local/cpplapack/makefiles/Makefile
-
-for i in `find * -type d | grep -v .svn`; do
-    if [ -d $i ]; then
-        echo "################ Enter into $i/ ################"
-        cd $i
-        if [ -f SUCCEEDED ]; then
-            echo "======== Skipping cause already succeeded ========"
-        elif [ -f main.cpp ]; then
-            echo "======== Making ========" &&\
-                make -f $MAKEFILE &&\
-                echo "======== Executing ./A.OUT ========" &&\
-                ./A.OUT &&\
-                make -f $MAKEFILE fullclean
-            if [ $? != 0 ]; then exit 1; fi
-            echo "======== Succeeded ========"
-            touch SUCCEEDED
-        else
-            echo "======== No main.cpp ========"
-        fi
-        cd $rootdir
-        echo "################ Exit  from $i/ ################"
-    fi
-done
diff --git a/cpplapack-r198/.svn/pristine/11/1174f3be59bc640bfd8b1bbc6c0393121d3c610d.svn-base b/cpplapack-r198/.svn/pristine/11/1174f3be59bc640bfd8b1bbc6c0393121d3c610d.svn-base
deleted file mode 100644
index f354432..0000000
--- a/cpplapack-r198/.svn/pristine/11/1174f3be59bc640bfd8b1bbc6c0393121d3c610d.svn-base
+++ /dev/null
@@ -1,37 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int M(4);
-  
-  CPPL::zcovector x;
-  cout << "x || l=" << x.l << ", array=" << x.array << endl;
-  
-  
-  CPPL::zcovector y(M);
-  for(int i=0; i<y.l; i++){
-    y(i) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-  }
-  cout << "y || l=" << y.l << ", array=" << y.array << endl;
-  cout << y << endl;
-  
-  CPPL::zcovector z(y);
-  cout << "z || l=" << z.l << ", array=" << z.array << endl;
-  cout << z << endl;
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/11/11fa21c4b9563393ac931aaa32b1d464a503ff52.svn-base b/cpplapack-r198/.svn/pristine/11/11fa21c4b9563393ac931aaa32b1d464a503ff52.svn-base
deleted file mode 100644
index 83ed418..0000000
--- a/cpplapack-r198/.svn/pristine/11/11fa21c4b9563393ac931aaa32b1d464a503ff52.svn-base
+++ /dev/null
@@ -1,180 +0,0 @@
-//=============================================================================
-/*! zgematrix=zgematrix operator */
-inline zgematrix& zgematrix::operator=(const zgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-  if(array!=mat.array){ // if it is NOT self substitution
-    copy(mat);
-  }
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zgematrix+=zgematrix operator */
-inline zgematrix& zgematrix::operator+=(const zgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.n || m!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << m << "x" << n << ") += (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  const CPPL_INT size =m*n;
-  for(CPPL_INT i=0; i<size; i++){
-    array[i]+=mat.array[i];
-  }
-  return *this;
-}
-
-//=============================================================================
-/*! zgematrix operator-= */
-inline zgematrix& zgematrix::operator-=(const zgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.n || m!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a sutraction." << std::endl
-              << "Your input was (" << m << "x" << n << ") -= (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  const CPPL_INT size =m*n;
-  for(CPPL_INT i=0; i<size; i++){
-    array[i]-=mat.array[i];
-  }
-  return *this;
-}
-
-//=============================================================================
-/*! zgematrix operator*= */
-inline zgematrix& zgematrix::operator*=(const zgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << m << "x" << n << ") *= (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat( m, mat.n );
-  char transa ='n';
-  char transb ='n';
-  comple alpha =comple(1.,0.);
-  comple beta =comple(0.,0.);
-  
-  zgemm_( &transa, &transb, &m, &mat.n, &n, &alpha, array, &m, mat.array, &mat.m, &beta, newmat.array, &m );
-  
-  swap(*this,newmat);
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zgematrix+zgematrix operator */
-inline _zgematrix operator+(const zgematrix& matA, const zgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  zgematrix newmat(matA.m,matA.n);
-  
-  const CPPL_INT size =matA.m*matA.n;
-  for(CPPL_INT i=0; i<size; i++){
-    newmat.array[i] =matA.array[i]+matB.array[i];
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! zgematrix-zgematrix operator */
-inline _zgematrix operator-(const zgematrix& matA, const zgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") - (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  zgematrix newmat(matA.m,matA.n);
-  
-  const CPPL_INT size =matA.m*matA.n;
-  for(CPPL_INT i=0; i<size; i++){
-    newmat.array[i] =matA.array[i]-matB.array[i];
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! zgematrix*zgematrix operator */
-inline _zgematrix operator*(const zgematrix& matA, const zgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat( matA.m, matB.n );
-  char transa ='n';
-  char transb ='n';
-  comple alpha =comple(1.,0.);
-  comple beta =comple(0.,0.);
-  
-  zgemm_( &transa, &transb, &matA.m, &matB.n, &matA.n, &alpha, matA.array, &matA.m, matB.array, &matB.m, &beta, newmat.array, &matA.m );
-  
-  return _(newmat);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! return Hadamerd product */
-inline _zgematrix hadamerd(const zgematrix& matA, const zgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( matA.m!=matB.m || matA.n!=matB.n ){
-    ERROR_REPORT;
-    std::cerr << "These two matrices can not make Hadamerd product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") and (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(matA.m,matA.n);
-  
-  for(CPPL_INT i=0; i<newmat.m; i++){
-    for(CPPL_INT j=0; j<newmat.n; j++){
-      newmat(i,j) =matA(i,j)*matB(i,j);
-    }
-  }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/12/123e64439e51515abe6350d9a5e5c4f479f61d30.svn-base b/cpplapack-r198/.svn/pristine/12/123e64439e51515abe6350d9a5e5c4f479f61d30.svn-base
deleted file mode 100644
index 72eb98f..0000000
--- a/cpplapack-r198/.svn/pristine/12/123e64439e51515abe6350d9a5e5c4f479f61d30.svn-base
+++ /dev/null
@@ -1,36 +0,0 @@
-#include <Magick++.h>
-#include <cpplapack.h>
-
-//=============================================================================
-int main(int argc, char** argv)
-{
-  //////// argc check ////////
-  if(argc!=2){
-    std::cerr << "[ERROR] invalid usage" << std::endl;
-    std::cerr << "USAGE: " << argv[0] << " xxxx.dgematrix" << std::endl;
-    exit(1);
-  }
-  
-  //////// open ////////
-  CPPL::dgematrix mat(argv[1]);
-  std::cerr << "mat size = " << mat.m << "x" << mat.n << std::endl;
-  Magick::Image img(Magick::Geometry(mat.n,mat.m),Magick::ColorGray(0));
-  std::cerr << "img size = " << img.columns() << "x" << img.rows() << std::endl;
-  
-  //////// assign pixelcolor ////////
-  int n(16);
-  double maximum(fabs(damax(mat)));
-  std::cerr << "maximum = " << maximum << std::endl;
-  for(int i=0; i<mat.m; i++){
-    for(int j=0; j<mat.n; j++){
-      double x;
-      x = ( log10(maximum)-log10(fabs(mat(i,j))) )/double(n);
-      x = std::min(x,1.);
-      img.pixelColor(j,i, Magick::ColorGray(x));
-    }
-  }
-  
-  //////// write ////////
-  img.write(std::string(argv[1])+".png");
-  return 0;
-}
diff --git a/cpplapack-r198/.svn/pristine/12/1290c40e434aff8537a412adb3da2ae671a7201e.svn-base b/cpplapack-r198/.svn/pristine/12/1290c40e434aff8537a412adb3da2ae671a7201e.svn-base
deleted file mode 100644
index cc969e5..0000000
--- a/cpplapack-r198/.svn/pristine/12/1290c40e434aff8537a412adb3da2ae671a7201e.svn-base
+++ /dev/null
@@ -1,41 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int M(5), N(5), CAP(4);
-  int KL(1), KU(2);
-  
-  CPPL::dgsmatrix A(M,N,CAP);
-  A.put(0,0, 1.);
-  A.put(3,2, 2.);
-  A.put(1,2, 3.);
-  A.put(4,1, 4.);
-  std::cout << "A =\n" << A << std::endl;
-  
-  CPPL::dgbmatrix B(M,N,KL,KU);
-  for(int i=0; i<B.m; i++){
-    for(int j=std::max(0,i-B.kl); j<std::min(B.n,i+B.ku+1); j++){
-      B(i,j) =double( rand() /(RAND_MAX/10) );
-    }
-  }
-  std::cout << "B =\n" << B << std::endl;
-  
-  std::cout << "A+B =\n" << A+B << std::endl;
-  std::cout << "A-B =\n" << A-B << std::endl;
-  std::cout << "A*B =\n" << A*B << std::endl;
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/12/12b4f8b9ad1d7fd5972ba84088e8fa009d4ef319.svn-base b/cpplapack-r198/.svn/pristine/12/12b4f8b9ad1d7fd5972ba84088e8fa009d4ef319.svn-base
deleted file mode 100644
index fd07df6..0000000
--- a/cpplapack-r198/.svn/pristine/12/12b4f8b9ad1d7fd5972ba84088e8fa009d4ef319.svn-base
+++ /dev/null
@@ -1,33 +0,0 @@
-//=============================================================================
-/*! _dssmatrix constructor without arguments */
-inline _dssmatrix::_dssmatrix()
-  :m(n)
-{CPPL_VERBOSE_REPORT;
-  n =0;
-  data.clear();
-  line.clear();
-}
-
-//=============================================================================
-/*! _dssmatrix copy constructor */
-inline _dssmatrix::_dssmatrix(const _dssmatrix& mat)
-  :m(n)
-{CPPL_VERBOSE_REPORT;
-  n =mat.n;
-  data.swap(mat.data);
-  line.swap(mat.line);
-  
-  mat.nullify();
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! _dssmatrix destructor */
-inline _dssmatrix::~_dssmatrix()
-{CPPL_VERBOSE_REPORT;
-  data.clear();
-  line.clear();
-}
diff --git a/cpplapack-r198/.svn/pristine/13/132e66fd53071d5382c162729ac32d03c6521806.svn-base b/cpplapack-r198/.svn/pristine/13/132e66fd53071d5382c162729ac32d03c6521806.svn-base
deleted file mode 100644
index 469cdad..0000000
--- a/cpplapack-r198/.svn/pristine/13/132e66fd53071d5382c162729ac32d03c6521806.svn-base
+++ /dev/null
@@ -1,96 +0,0 @@
-###############################################################################
-##                               Makefile.g++                                ##
-###############################################################################
-
-#######################################
-############### common ################
-#######################################
-
-CXX = g++ -pipe
-
-######## FLAGS ########
-#FLAGS += -std=c++0x # -std=c++98
-#FLAGS += -fopenmp
-
-######## CFLAGS ########
-CFLAGS += -Wall -Wno-unknown-pragmas -Wextra -Wshadow -Wformat=2
-CFLAGS += -ftree-vectorizer-verbose=0
-
-######## LFLAGS ########
-#LFLAGS += -static
-
-######## others ########
-INCLUDE_DIRS += -I./  -I$(HOME)/local/cpplapack/include
-LIB_DIRS += 
-LIBS += -lm
-LIBS += -llapack -lblas -lgfortran
-##LIBS += $(HOME)/local/lapack-3.2.2/liblapack.a $(HOME)/local/lapack-3.2.2/libblas.a -lgfortran
-##LIBS += $(HOME)/local/CLAPACK-3.2.1/liblapack.a $(HOME)/local/CLAPACK-3.2.1/libblas.a $(HOME)/local/CLAPACK-3.2.1/libf2c.a
-##LIBS += /usr/lib/sse2/liblapack.a /usr/lib/sse2/libblas.a -lgfortran
-##LIBS += -llapack $(HOME)/local/ATLAS/libatlas.a -lgfortran
-#LIBS += -lgsl -lgslcblas
-#LIBS += -lboost_filesystem -lboost_system
-##MACROS += -DUSE_LIBF2C
-
-#######################################
-############ release mode #############
-#######################################
-ifdef RELEASE
-#### FLAGS ####
-FLAGS += -O2 #### -O3 is dangerous
-FLAGS += -mtune=native -march=native
-#FLAGS += -funroll-loops -ffast-math -fno-math-errno #-mfpmath=sse
-FLAGS += -fprefetch-loop-arrays -fstrength-reduce -malign-double
-FLAGS += -fomit-frame-pointer
-##FLAGS += -fforce-addr -falign-functions=4 -ftree-vectorize -ftree-vectorizer-verbose=5 -funsafe-loop-optimizations -Wunsafe-loop-optimizations
-#### CFLAGS ####
-##CFLAGS += -fimplement-inlines -finline-limit=0 --param large-function-growth=0 --param max-inline-insns-single=0 --param inline-unit-growth=0
-##CFLAGS += --param large-function-growth=99999 --param max-inline-insns-single=99999 --param inline-unit-growth=99999 -Winline
-#### LFLAGS ####
-#LFLAGS += 
-#### others ####
-MACROS += -DBOOST_DISABLE_ASSERTS
-endif
-
-#######################################
-############ profile mode #############
-#######################################
-ifdef PROFILE
-#### FLAGS ####
-#### CFLAGS ####
-CFLAGS += -pg #-g
-#### LFLAGS ####
-LFLAGS += -pg #-g
-#### others ####
-MACROS += -DBOOST_DISABLE_ASSERTS
-endif
-
-#######################################
-############## debug mode #############
-#######################################
-ifdef DEBUG
-#### FLAGS ####
-FLAGS += -g -O0
-#FLAGS += -fmudflap -fmudflapir ## not reliable
-#### CFLAGS ####
-CFLAGS += -fstack-protector-all -fbounds-check -ftrapv -ftrapping-math #-ffpe-trap=invalid,zero,overflow,underflow
-CFLAGS += #-mfp-trap-mode=sui
-#### LFLAGS ####
-#LFLAGS += -lefence
-#### others ####
-#LIBS += -lmudflap ## not reliable
-MACROS += -DDEBUG
-MACROS += -DCPPL_DEBUG
-endif
-
-#######################################
-############ verbose mode #############
-#######################################
-ifdef VERBOSE
-#### FLAGS ####
-#### CFLAGS ####
-#### LFLAGS ####
-#### others ####
-MACROS += -DVERBOSE
-MACROS += -DCPPL_VERBOSE
-endif
diff --git a/cpplapack-r198/.svn/pristine/14/14357e05d517bf7c03f5fef359a554428696ebcb.svn-base b/cpplapack-r198/.svn/pristine/14/14357e05d517bf7c03f5fef359a554428696ebcb.svn-base
deleted file mode 100644
index 75a5e1e..0000000
--- a/cpplapack-r198/.svn/pristine/14/14357e05d517bf7c03f5fef359a554428696ebcb.svn-base
+++ /dev/null
@@ -1,71 +0,0 @@
-//=============================================================================
-/*! cast to _zgsmatrix */
-inline _zgsmatrix dgsmatrix::to_zgsmatrix() const
-{CPPL_VERBOSE_REPORT;
-  zgsmatrix newmat(m,n,CPPL_INT(data.size()));
-  
-  const std::vector<dcomponent>::const_iterator data_end =data.end();
-  for(std::vector<dcomponent>::const_iterator it=data.begin(); it!=data_end; it++){
-    newmat.put(it->i, it->j, comple(it->v,0.));
-  }
-  
-  return _(newmat);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! convert to _dgematrix */
-inline _dgematrix dgsmatrix::to_dgematrix() const
-{CPPL_VERBOSE_REPORT;
-  dgematrix newmat(m,n);
-  newmat.zero();
-  
-  const std::vector<dcomponent>::const_iterator data_end =data.end();
-  for(std::vector<dcomponent>::const_iterator it=data.begin(); it!=data_end; it++){
-    newmat(it->i,it->j) = it->v;
-  }
-  
-  return _(newmat);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! convert to dgrmatrix */
-inline dgrmatrix dgsmatrix::to_dgrmatrix() const
-{CPPL_VERBOSE_REPORT;
-  //////// resize ////////
-  dgrmatrix newmat;
-  newmat.m =m;
-  newmat.n =n;
-  newmat.a.resize(data.size());
-  newmat.ia.resize(m+1);
-  newmat.ja.resize(data.size());
-  
-  //////// copy ////////
-  newmat.ia[0] =1;//one-based
-  CPPL_INT k=0;
-  for(CPPL_INT i=0; i<m; i++){
-    //// make map ////
-    const std::vector<CPPL_INT>::const_iterator rows_i_end =rows[i].end();
-    std::map<CPPL_INT,CPPL_INT> jc;
-    for(std::vector<CPPL_INT>::const_iterator rit=rows[i].begin(); rit!=rows_i_end; rit++){
-      jc.insert( std::make_pair(data[*rit].j, *rit) );
-    }
-    //// assign ////
-    const std::map<CPPL_INT,CPPL_INT>::const_iterator jc_end =jc.end();
-    for(std::map<CPPL_INT,CPPL_INT>::const_iterator jcit=jc.begin(); jcit!=jc_end; jcit++){
-      newmat.a[k] =data[(*jcit).second].v;
-      newmat.ja[k] =CPPL_INT((*jcit).first)+1;//one-based
-      k++;
-    }
-    newmat.ia[i+1] =k+1;//one-based
-  }
-  
-  return newmat;
-}
diff --git a/cpplapack-r198/.svn/pristine/14/1464e442fc08f299f525b3ea231afd1145022ea0.svn-base b/cpplapack-r198/.svn/pristine/14/1464e442fc08f299f525b3ea231afd1145022ea0.svn-base
deleted file mode 100644
index 21df657..0000000
--- a/cpplapack-r198/.svn/pristine/14/1464e442fc08f299f525b3ea231afd1145022ea0.svn-base
+++ /dev/null
@@ -1,61 +0,0 @@
-//=============================================================================
-/*! operator() for const object */
-inline comple& _zgbmatrix::operator()(const CPPL_INT& i, const CPPL_INT& j) const
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || j<0 || m<=i || n<=j || i-j>kl || j-i>ku ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the matrix size." << std::endl
-              << "Your input is (" << i << "," << j << "), whereas the matrix size is " << n << "x" << n << " with kl=" << kl << ", ku=" << ku << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //return array[ku+i+(kl+ku)*j];
-  return darray[j][ku-j+i];
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-inline std::ostream& operator<<(std::ostream& s, const _zgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<mat.m; i++){
-    for(CPPL_INT j=0; j<mat.n; j++){
-      if( i-j>mat.kl || j-i>mat.ku ){ s << " x"; }
-      else{ s << " " << mat(i,j); }
-    }
-    s << std::endl;
-  }
-  
-  mat.destroy();
-  return s;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-inline void _zgbmatrix::write(const char* filename) const
-{CPPL_VERBOSE_REPORT;
-  std::ofstream ofs(filename, std::ios::trunc);
-  ofs.setf(std::cout.flags());
-  ofs.precision(std::cout.precision());
-  ofs.width(std::cout.width());
-  ofs.fill(std::cout.fill());
-  
-  ofs << "#zgbmatrix" << " " << m << " " << n << " " << kl << " " << ku << std::endl;
-  for(CPPL_INT i=0; i<m; i++){
-    const CPPL_INT jmax =std::min(n,i+ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-kl); j<jmax; j++){
-      ofs << operator()(i,j) << " ";
-    }
-    ofs << std::endl;
-  }
-  
-  ofs.close();
-  destroy();
-}
diff --git a/cpplapack-r198/.svn/pristine/14/1472c5718f0bfc2e60881082b719b2af94f2a350.svn-base b/cpplapack-r198/.svn/pristine/14/1472c5718f0bfc2e60881082b719b2af94f2a350.svn-base
deleted file mode 100644
index e5a274f..0000000
--- a/cpplapack-r198/.svn/pristine/14/1472c5718f0bfc2e60881082b719b2af94f2a350.svn-base
+++ /dev/null
@@ -1,71 +0,0 @@
-//=============================================================================
-/*! zgesv_check */
-void zgesv_check_vector()
-{
-  cout << "############ check zgesv vector ############" << endl;
-  
-  srand(unsigned(time(NULL)));
-  int M(3);
-  
-  //// make zgematrix A  ////
-  CPPL::zgematrix A(M,M);
-  for(int i=0; i<A.m; i++){ for(int j=0; j<A.n; j++){
-    A(i,j) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-  }}
-  
-  //// make zcovector y ////
-  CPPL::zcovector y(M);
-  for(int i=0; i<y.l; i++){
-    y(i) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-  }
-  
-  //// make A_original and y_original ////
-  CPPL::zgematrix A_original(A);
-  CPPL::zcovector y_original(y);
-  cout << "A_original=\n" << A_original << endl;
-  cout << "y_original=\n" << y_original << endl;
-  
-  //// solve Ax=y ////
-  A.zgesv(y);
-    
-  //// print A, y and A_original*y ////
-  cout << "A=\n" << A << endl;
-  cout << "y=\n" << y << endl;
-  cout << "A_original*y=\n" << A_original*y << endl;
-}
-
-//=============================================================================
-void zgesv_check_matrix()
-{
-  cout << "############ check zgesv matrix ############" << endl;
-  
-  srand(unsigned(time(NULL)));
-  int M(3);
-  
-
-  //// make zgematrix A  ////
-  CPPL::zgematrix A(M,M);
-  for(int i=0; i<A.m; i++){ for(int j=0; j<A.n; j++){
-    A(i,j) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-  }}
-   
-  //// make zgematrix Y  ////
-  CPPL::zgematrix Y(M,M);
-  for(int i=0; i<Y.m; i++){ for(int j=0; j<Y.n; j++){
-    Y(i,j) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-  }}
-   
-  //// make A_original and Y_original ////
-  CPPL::zgematrix A_original(A);
-  CPPL::zgematrix Y_original(Y);
-  cout << "A_original=\n" << A_original << endl;
-  cout << "Y_original=\n" << Y_original << endl;
-  
-  //// solve AY=B ////
-  A.zgesv(Y);
-    
-  //// print A, Y and A_original*Y ////
-  cout << "A=\n" << A << endl;
-  cout << "Y=\n" << Y << endl;
-  cout << "A_original*Y=\n" << A_original*Y << endl;
-}
diff --git a/cpplapack-r198/.svn/pristine/14/14fb986ce3a4b373a8f6a533d8d7e1b4788a4a2c.svn-base b/cpplapack-r198/.svn/pristine/14/14fb986ce3a4b373a8f6a533d8d7e1b4788a4a2c.svn-base
deleted file mode 100644
index cdba58e..0000000
--- a/cpplapack-r198/.svn/pristine/14/14fb986ce3a4b373a8f6a533d8d7e1b4788a4a2c.svn-base
+++ /dev/null
@@ -1,47 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int M(3), N(4);
-  
-  CPPL::dsymatrix A(N);
-  for(int i=0; i<A.n; i++){
-    for(int j=0; j<=i; j++){
-      A(i,j) =double( rand() /(RAND_MAX/10) );
-    }
-  }
-  
-  cout << "A =\n" << A << endl;
-  
-  cout << "#### t(A) ####" << endl;
-  cout << "t(A) =\n" << CPPL::t(A) << endl;
-  
-  cout << "#### i(A) ####" << endl;
-  A.resize(M);
-  for(int i=0; i<A.n; i++){
-    for(int j=0; j<=i; j++){
-      A(i,j) =double( rand() /(RAND_MAX/10) );
-    }
-  }
-  cout << "A =\n" << A << endl;
-  
-  CPPL::dsymatrix A_inv = CPPL::i(A);
-  cout << "A_inv =\n" << A_inv << endl;
-  cout << "A*A_inv =\n" << A*A_inv << endl;
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/15/150c44188f6362b0a3db56060cefcdbf968aa622.svn-base b/cpplapack-r198/.svn/pristine/15/150c44188f6362b0a3db56060cefcdbf968aa622.svn-base
deleted file mode 100644
index dbdd9af..0000000
--- a/cpplapack-r198/.svn/pristine/15/150c44188f6362b0a3db56060cefcdbf968aa622.svn-base
+++ /dev/null
@@ -1,36 +0,0 @@
-//=============================================================================
-/*! _dgsmatrix constructor without arguments */
-inline _dgsmatrix::_dgsmatrix()
-{CPPL_VERBOSE_REPORT;
-  m =0;
-  n =0;
-  data.clear();
-  rows.clear();
-  cols.clear();
-}
-
-//=============================================================================
-/*! _dgsmatrix copy constructor */
-inline _dgsmatrix::_dgsmatrix(const _dgsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  m =mat.m;
-  n =mat.n;
-  data.swap(mat.data);
-  rows.swap(mat.rows);
-  cols.swap(mat.cols);
-  
-  mat.nullify();
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! _dgsmatrix destructor */
-inline _dgsmatrix::~_dgsmatrix()
-{CPPL_VERBOSE_REPORT;
-  data.clear();
-  rows.clear();
-  cols.clear();
-}
diff --git a/cpplapack-r198/.svn/pristine/15/15a1b92cd184177c303b518454a2919c1e50e71d.svn-base b/cpplapack-r198/.svn/pristine/15/15a1b92cd184177c303b518454a2919c1e50e71d.svn-base
deleted file mode 100644
index c91f47b..0000000
--- a/cpplapack-r198/.svn/pristine/15/15a1b92cd184177c303b518454a2919c1e50e71d.svn-base
+++ /dev/null
@@ -1,71 +0,0 @@
-//=============================================================================
-/*! _zhematrix+zssmatrix operator */
-inline _zgematrix operator+(const _zhematrix& matA, const zssmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat =matA;
-  
-  for(CPPL_INT c=0; c<matB.vol; c++){
-    newmat(matB.indx[c],matB.jndx[c]) += matB.array[c];
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _zhematrix-zssmatrix operator */
-inline _zgematrix operator-(const _zhematrix& matA, const zssmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") - (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  zgematrix newmat =matA;
-  
-  for(CPPL_INT c=0; c<matB.vol; c++){
-    newmat(matB.indx[c],matB.jndx[c]) -= matB.array[c];
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _zhematrix*zssmatrix operator */
-inline _zgematrix operator*(const _zhematrix& matA, const zssmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(matA.n, matB.n);
-  newmat.zero();
-  
-  for(CPPL_INT c=0; c<matB.vol; c++){
-    for(CPPL_INT i=0; i<matA.n; i++){
-      newmat(i,matB.jndx[c]) += matA(i,matB.indx[c])*matB.array[c];
-    }
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/16/16594a8732c88b000af05f311d9c6e354d33ac19.svn-base b/cpplapack-r198/.svn/pristine/16/16594a8732c88b000af05f311d9c6e354d33ac19.svn-base
deleted file mode 100644
index 2e9778a..0000000
--- a/cpplapack-r198/.svn/pristine/16/16594a8732c88b000af05f311d9c6e354d33ac19.svn-base
+++ /dev/null
@@ -1,18 +0,0 @@
-//=============================================================================
-/*! +_dsymatrix operator */
-inline const _dsymatrix& operator+(const _dsymatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  return mat;
-}
-
-//=============================================================================
-/*! -_dsymatrix operator */
-inline _dsymatrix operator-(const _dsymatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  const CPPL_INT size =mat.n*mat.n;
-  for(CPPL_INT i=0; i<size; i++){
-    mat.array[i] =-mat.array[i];
-  }
-  
-  return mat;
-}
diff --git a/cpplapack-r198/.svn/pristine/16/166598d0040ded6644e08cac7782fc6ab487d040.svn-base b/cpplapack-r198/.svn/pristine/16/166598d0040ded6644e08cac7782fc6ab487d040.svn-base
deleted file mode 100644
index c5ea355..0000000
--- a/cpplapack-r198/.svn/pristine/16/166598d0040ded6644e08cac7782fc6ab487d040.svn-base
+++ /dev/null
@@ -1,41 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int M(4), N(3), KL(2), KU(1);
-  
-  CPPL::zrovector x(M), y;
-  CPPL::zgbmatrix A(M,N,KL,KU);
-  for(int i=0; i<x.l; i++){
-    x(i) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-  }
-  
-  for(int i=0; i<A.m; i++){
-    for(int j=std::max(0,i-A.kl); j<std::min(A.n,i+A.ku+1); j++){
-      A(i,j) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-    }
-  }
-  
-  cout << "x =\n" << x << endl;
-  cout << "A =\n" << A << endl;
-  
-  cout << "#### y=x*A; ####" << endl;
-  y=x*A;
-  cout << "y =\n" << y << endl;
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/16/16b63d5e7632ef38187e7345f994a6ad3ad6d16d.svn-base b/cpplapack-r198/.svn/pristine/16/16b63d5e7632ef38187e7345f994a6ad3ad6d16d.svn-base
deleted file mode 100644
index 92a7e68..0000000
--- a/cpplapack-r198/.svn/pristine/16/16b63d5e7632ef38187e7345f994a6ad3ad6d16d.svn-base
+++ /dev/null
@@ -1,144 +0,0 @@
-//=============================================================================
-/*! zrovector=zrovector operator */
-inline zrovector& zrovector::operator=(const zrovector& vec)
-{CPPL_VERBOSE_REPORT;
-  if(array!=vec.array){ // if it is NOT self substitution
-    copy(vec);
-  }
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zrovector+=zrovector operator */
-inline zrovector& zrovector::operator+=(const zrovector& vec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( l!=vec.l ){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make a sumation." << std::endl
-              << "Your input was (" << l << ") += (" << vec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<l; i++){
-    array[i] += vec.array[i];
-  }
-  
-  return *this;
-}
-
-//=============================================================================
-/*! zrovector operator-= */
-inline zrovector& zrovector::operator-=(const zrovector& vec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( l!=vec.l ){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make a subtraction." << std::endl
-              << "Your input was (" << l << ") -= (" << vec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<l; i++){
-    array[i] -= vec.array[i];
-  }
-  
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zrovector+zrovector operator */
-inline _zrovector operator+(const zrovector& vecA, const zrovector& vecB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vecA.l!=vecB.l){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make a sumation." << std::endl
-              << "Your input was (" << vecA.l << ") + (" << vecB.l << ")." << std::endl;
-    exit(1);
-  }
-  
-#endif//CPPL_DEBUG
-  
-  zrovector newvec(vecA.l);
-  
-  for(CPPL_INT i=0; i<newvec.l; i++){
-    newvec.array[i] =vecA.array[i]+vecB.array[i];
-  }
-  
-  return _(newvec);
-}
-
-//=============================================================================
-/*! zrovector-zrovector operator */
-inline _zrovector operator-(const zrovector& vecA, const zrovector& vecB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vecA.l!=vecB.l){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make a subtraction." << std::endl
-              << "Your input was (" << vecA.l << ") - (" << vecB.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zrovector newvec(vecA.l);
-  
-  for(CPPL_INT i=0; i<newvec.l; i++){
-    newvec.array[i] =vecA.array[i]-vecB.array[i];
-  }
-  
-  return _(newvec);
-}
-
-//=============================================================================
-/*! zrovector^T*zrovector operator (inner product) */
-inline comple operator%(const zrovector& vecA, const zrovector& vecB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vecA.l!=vecB.l){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make a dot product." << std::endl
-              << "Your input was (" << vecA.l << ") % (" << vecB.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  CPPL_INT inc =1;
-  comple val =zdotu_( &vecA.l, vecA.array, &inc, vecB.array, &inc );
-  return val;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! return Hadamerd product */
-inline _zrovector hadamerd(const zrovector& vecA, const zrovector& vecB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( vecA.l!=vecB.l ){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make Hadamerd product." << std::endl
-              << "Your input was (" << vecA.l << ") and (" << vecB.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  zrovector newvec(vecA.l);
-  for(CPPL_INT i=0; i<newvec.l; i++){
-    newvec(i) =vecA(i)*vecB(i);
-  }
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/16/16f43a7a35265ea155bf87e8768e033f5127d1f2.svn-base b/cpplapack-r198/.svn/pristine/16/16f43a7a35265ea155bf87e8768e033f5127d1f2.svn-base
deleted file mode 100644
index 8a87613..0000000
--- a/cpplapack-r198/.svn/pristine/16/16f43a7a35265ea155bf87e8768e033f5127d1f2.svn-base
+++ /dev/null
@@ -1,28 +0,0 @@
-//=============================================================================
-/*! _zhsmatrix*_zcovector operator */
-inline _zcovector operator*(const _zhsmatrix& mat, const _zcovector& vec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(mat.n!=vec.l){
-    ERROR_REPORT;
-    std::cerr << "These matrix and vector can not make a product." << std::endl
-              << "Your input was (" << mat.n << "x" << mat.n << ") * (" << vec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zcovector newvec(mat.n);
-  newvec.zero();
-  
-  const std::vector<zcomponent>::const_iterator mat_data_end =mat.data.end();
-  for(std::vector<zcomponent>::const_iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    newvec(it->i) +=it->v*vec(it->j);
-    if(it->i!=it->j){
-      newvec(it->j) +=std::conj(it->v)*vec(it->i);
-    }
-  }
-  
-  mat.destroy();
-  vec.destroy();
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/17/17558489bab02f118af2ba28b27b36b78e6e9eef.svn-base b/cpplapack-r198/.svn/pristine/17/17558489bab02f118af2ba28b27b36b78e6e9eef.svn-base
deleted file mode 100644
index dbdaedf..0000000
--- a/cpplapack-r198/.svn/pristine/17/17558489bab02f118af2ba28b27b36b78e6e9eef.svn-base
+++ /dev/null
@@ -1,83 +0,0 @@
-//=============================================================================
-/*! operator() for const object */
-inline double _dssmatrix::operator()(const CPPL_INT& i, const CPPL_INT& j) const
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || j<0 || n<=i || n<=j ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the matrix size." << std::endl
-              << "Your input is (" << i << "," << j << "), whereas the matrix size is (" << n << "," << n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //// search (i,j) component ////
-  const CPPL_INT ii(std::max(i,j)), jj(std::min(i,j));
-  
-  const std::vector<CPPL_INT>::iterator line_ii_end =line[ii].end();
-  for(std::vector<CPPL_INT>::iterator p=line[ii].begin(); p!=line_ii_end; p++){
-    if(data[*p].i==ii && data[*p].j==jj){ return data[*p].v; }
-  }
-  
-  //// (i,j) component was not found ////
-  return 0.0;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-inline std::ostream& operator<<(std::ostream& s, const _dssmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<mat.n; i++){
-    for(CPPL_INT j=0; j<mat.n; j++){
-      if( i >= j ){
-        std::vector<CPPL_INT>::iterator q;
-        const std::vector<CPPL_INT>::iterator mat_line_i_end =mat.line[i].end();
-        for(q=mat.line[i].begin(); q!=mat_line_i_end; q++){
-          if(mat.data[*q].j==j){ break; }
-        }
-        if(q!=mat_line_i_end){ s << " " << mat.data[*q].v << " "; }
-        else{ s << " x "; }
-      }
-      else{//i<j
-        std::vector<CPPL_INT>::iterator q;
-        const std::vector<CPPL_INT>::iterator mat_line_i_end =mat.line[i].end();
-        for(q=mat.line[i].begin(); q!=mat_line_i_end; q++){
-          if(mat.data[*q].j==j){ break; }
-        }
-        if(q!=mat_line_i_end){ s << "{" << mat.data[*q].v << "}"; }
-        else{ s << "{x}"; }
-      }
-    }
-    s << std::endl;
-  }
-  
-  mat.destroy();
-  return s;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-inline void _dssmatrix::write(const char* filename) const
-{CPPL_VERBOSE_REPORT;
-  std::ofstream ofs(filename, std::ios::trunc);
-  ofs.setf(std::cout.flags());
-  ofs.precision(std::cout.precision());
-  ofs.width(std::cout.width());
-  ofs.fill(std::cout.fill());
-  
-  ofs << "#dssmatrix " << n << " " << data.size() << std::endl;
-  
-  const std::vector<dcomponent>::const_iterator data_end =data.end();
-  for(std::vector<dcomponent>::const_iterator it=data.begin(); it!=data_end; it++){
-    ofs << it->i << " " << it->j << " " << it->v << std::endl;
-  }
-  
-  ofs.close();
-  destroy();
-}
diff --git a/cpplapack-r198/.svn/pristine/17/17dd75e1fd65e0fa01543953cb99ba10805210ad.svn-base b/cpplapack-r198/.svn/pristine/17/17dd75e1fd65e0fa01543953cb99ba10805210ad.svn-base
deleted file mode 100644
index bb3e97c..0000000
--- a/cpplapack-r198/.svn/pristine/17/17dd75e1fd65e0fa01543953cb99ba10805210ad.svn-base
+++ /dev/null
@@ -1,139 +0,0 @@
-//=============================================================================
-/*! drovector=drovector operator */
-inline drovector& drovector::operator=(const drovector& vec)
-{CPPL_VERBOSE_REPORT;
-  if(array!=vec.array){ // if it is NOT self substitution
-    copy(vec);
-  }
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! drovector+=drovector operator */
-inline drovector& drovector::operator+=(const drovector& vec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( l!=vec.l ){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make a sumation." << std::endl
-              << "Your input was (" << l << ") += (" << vec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<l; i++){ array[i]+=vec.array[i]; }
-  
-  return *this;
-}
-
-//=============================================================================
-/*! drovector operator-= */
-inline drovector& drovector::operator-=(const drovector& vec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( l!=vec.l ){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make a subtraction." << std::endl
-              << "Your input was (" << l << ") -= (" << vec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<l; i++){ array[i]-=vec.array[i]; }
-  
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! drovector+drovector operator */
-inline _drovector operator+(const drovector& vecA, const drovector& vecB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vecA.l!=vecB.l){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make a sumation." << std::endl
-              << "Your input was (" << vecA.l << ") + (" << vecB.l << ")." << std::endl;
-    exit(1);
-  }
-  
-#endif//CPPL_DEBUG
-  
-  drovector newvec(vecA.l);
-  for(CPPL_INT i=0; i<newvec.l; i++){
-    newvec.array[i] =vecA.array[i]+vecB.array[i];
-  }
-  
-  return _(newvec);
-}
-
-//=============================================================================
-/*! drovector-drovector operator */
-inline _drovector operator-(const drovector& vecA, const drovector& vecB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vecA.l!=vecB.l){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make a subtraction." << std::endl
-              << "Your input was (" << vecA.l << ") - (" << vecB.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  drovector newvec(vecA.l);
-  for(CPPL_INT i=0; i<newvec.l; i++){
-    newvec.array[i] =vecA.array[i]-vecB.array[i];
-  }
-  
-  return _(newvec);
-}
-
-//=============================================================================
-/*! drovector^T*drovector operator (inner product) */
-inline double operator%(const drovector& vecA, const drovector& vecB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vecA.l!=vecB.l){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make a dot product." << std::endl
-              << "Your input was (" << vecA.l << ") % (" << vecB.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  CPPL_INT inc =1;
-  double val =ddot_( &vecA.l, vecA.array, &inc, vecB.array, &inc );
-  
-  return val;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! return Hadamerd product */
-inline _drovector hadamerd(const drovector& vecA, const drovector& vecB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( vecA.l!=vecB.l ){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make Hadamerd product." << std::endl
-              << "Your input was (" << vecA.l << ") and (" << vecB.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  drovector newvec(vecA.l);
-  for(CPPL_INT i=0; i<newvec.l; i++){
-    newvec(i) =vecA(i)*vecB(i);
-  }
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/18/1838382096dae7bee12cf1af02a511663af11c78.svn-base b/cpplapack-r198/.svn/pristine/18/1838382096dae7bee12cf1af02a511663af11c78.svn-base
deleted file mode 100644
index 3d3cf6d..0000000
--- a/cpplapack-r198/.svn/pristine/18/1838382096dae7bee12cf1af02a511663af11c78.svn-base
+++ /dev/null
@@ -1,48 +0,0 @@
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-
-#include "dgesv_check.hpp"
-#include "dgels_check.hpp"
-#include "dgelss_check.hpp"
-#include "dgeev_check.hpp"
-#include "dggev_check.hpp"
-#include "dgesvd_check.hpp"
-#include "dgglse_check.hpp"
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  //////// dgesv ////////
-  dgesv_check_vector();
-  dgesv_check_matrix();
-  
-  //////// dgels ////////
-  dgels_check_vector();
-  dgels_check_matrix();
-  
-  //////// dgelss ////////
-  dgelss_check_vector();
-  dgelss_check_matrix();
-  
-  //////// dgeev ////////
-  dgeev_check_value();
-  dgeev_check_right();
-  dgeev_check_left();
-  
-  //////// dggev ////////
-  dggev_check_value();
-  dggev_check_right();
-  dggev_check_left();
-  
-  //////// dgesvd ////////
-  dgesvd_check();
-
-  //////// dgglse ////////
-  dgglse_check();
-  
-  return 0;
-}
diff --git a/cpplapack-r198/.svn/pristine/18/1898fe569202f5149711d827e613ca2002cfab44.svn-base b/cpplapack-r198/.svn/pristine/18/1898fe569202f5149711d827e613ca2002cfab44.svn-base
deleted file mode 100644
index a3d4e8f..0000000
--- a/cpplapack-r198/.svn/pristine/18/1898fe569202f5149711d827e613ca2002cfab44.svn-base
+++ /dev/null
@@ -1,66 +0,0 @@
-//=============================================================================
-/*! return transposed dgematrix */
-inline _dgematrix t(const _dgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-  dgematrix newmat(mat.n,mat.m);
-  
-  for(CPPL_INT i=0; i<newmat.m; i++){
-    for(CPPL_INT j=0; j<newmat.n; j++){
-      newmat(i,j) =mat(j,i);
-    }
-  }
-  
-  mat.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! return its inverse matrix */
-inline _dgematrix i(const _dgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(mat.m!=mat.n){
-    ERROR_REPORT;
-    std::cerr << "This matrix is not square and has no inverse matrix." << std::endl
-              << "Your input was (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix mat_cp(mat);
-  dgematrix mat_inv(mat_cp.m,mat_cp.n);
-  mat_inv.identity();
-  mat_cp.dgesv(mat_inv);
-  
-  return _(mat_inv);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! search the index of element having the largest absolute value
-  in 0-based numbering system */
-inline void idamax(CPPL_INT& i, CPPL_INT& j, const _dgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT mn =mat.m*mat.n;
-  CPPL_INT inc =1;
-  CPPL_INT index =idamax_(&mn, mat.array, &inc) -1;
-  i =index%mat.m;
-  j =index/mat.m;
-  
-  mat.destroy();
-}
-
-//=============================================================================
-/*! return its largest absolute value */
-inline double damax(const _dgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT mn =mat.m*mat.n;
-  CPPL_INT inc =1;
-  double val =mat.array[idamax_(&mn, mat.array, &inc) -1];
-  
-  mat.destroy();
-  return val;
-}
diff --git a/cpplapack-r198/.svn/pristine/19/19487274053553221385ab55bc57d5f1bf99ae64.svn-base b/cpplapack-r198/.svn/pristine/19/19487274053553221385ab55bc57d5f1bf99ae64.svn-base
deleted file mode 100644
index ef95ddf..0000000
--- a/cpplapack-r198/.svn/pristine/19/19487274053553221385ab55bc57d5f1bf99ae64.svn-base
+++ /dev/null
@@ -1,37 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int N(3), CAP(4);
-  
-  CPPL::zhsmatrix A(N,CAP);
-  A.put(0,0, complex<double>(1.,0) );
-  A.put(1,0, complex<double>(3.,4.) );
-  A.put(1,1, complex<double>(2.,0.) );
-  A.put(2,1, complex<double>(7.,8.) );
-  cout << "A =\n" << A << endl;
-  
-  CPPL::zcovector x(N);
-  x(0)=complex<double>(1,1);
-  x(1)=complex<double>(2,2);
-  x(2)=complex<double>(3,3);
-  cout << "x =\n" << x << endl;
-  
-  cout << "A*x =\n" << A*x << endl;
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/19/19a0dfc49779a7a52fcd70f7b0d2838be76e4d9b.svn-base b/cpplapack-r198/.svn/pristine/19/19a0dfc49779a7a52fcd70f7b0d2838be76e4d9b.svn-base
deleted file mode 100644
index e7c732b..0000000
--- a/cpplapack-r198/.svn/pristine/19/19a0dfc49779a7a52fcd70f7b0d2838be76e4d9b.svn-base
+++ /dev/null
@@ -1,74 +0,0 @@
-//=============================================================================
-/*! _zgematrix+_zhematrix operator */
-inline _zgematrix operator+(const _zgematrix& matA, const _zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT c=0; c<matB.vol; c++){
-    matA(matB.indx[c],matB.jndx[c]) += matB.array[c];
-  }
-  
-  matB.destroy();
-  return matA;
-}
-
-//=============================================================================
-/*! _zgematrix-_zhematrix operator */
-inline _zgematrix operator-(const _zgematrix& matA, const _zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") - (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //// change sign ////
-  for(CPPL_INT i=0; i<matA.m*matA.n; i++){
-    matA.array[i]=-matA.array[i];
-  }
-  
-  //// add ////
-  for(CPPL_INT c=0; c<matB.vol; c++){
-    matA(matB.indx[c],matB.jndx[c]) += matB.array[c];
-  }
-  
-  matB.destroy();
-  return matA;
-}
-
-//=============================================================================
-/*! _zgematrix*_zhematrix operator */
-inline _zgematrix operator*(const _zgematrix& matA, const _zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(matA.m, matB.n);
-  newmat.zero();
-  
-  for(CPPL_INT c=0; c<matB.vol; c++){
-    for(CPPL_INT i=0; i<matA.m; i++){
-      newmat(i,matB.jndx[c]) += matA(i,matB.indx[c])*matB.array[c];
-    }
-  }
-  
-  matA.destroy();
-  matB.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/19/19ccce35b2aee2986f6937f71ccc4293d871c562.svn-base b/cpplapack-r198/.svn/pristine/19/19ccce35b2aee2986f6937f71ccc4293d871c562.svn-base
deleted file mode 100644
index 1e10897..0000000
--- a/cpplapack-r198/.svn/pristine/19/19ccce35b2aee2986f6937f71ccc4293d871c562.svn-base
+++ /dev/null
@@ -1,76 +0,0 @@
-#include "cpplapack.h"
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  
-  /////////////////////////////////////
-  //////////////// 2D /////////////////
-  /////////////////////////////////////
-  CPPL::dcovec2 cv2;
-  CPPL::drovec2 rv2;
-  CPPL::dgemat2 gm2;
-  CPPL::dsymat2 sm2;
-  
-  //////// dcovec2 ////////
-  cv2(0) =1.; cv2(1) =2.;
-  std::cout << "hadamard(cv2,cv2) =\n" << hadamard(cv2,cv2) << std::endl;
-  
-  //////// drovec2 ////////
-  rv2(0) =3.; rv2(1) =4.;
-  std::cout << "hadamard(rv2,rv2) =\n" << hadamard(rv2,rv2) << std::endl;
-  
-  //////// dgemat2 ////////
-  gm2.identity();
-  std::cout << "gm2=\n" << gm2 << std::endl;
-  std::cout << "t2m(0.1)*gm2=\n" << CPPL::t2m(0.1)*gm2 << std::endl;
-  gm2(0,0) =1.; gm2(0,1) =2.;
-  gm2(1,0) =3.; gm2(1,1) =4.;
-  std::cout << "gm2=\n" << gm2 << std::endl;
-  std::cout << "inv(gm2)=\n" << inv(gm2) << std::endl;
-  std::cout << "gm2*inv(gm2)=\n" << gm2*inv(gm2) << std::endl;
-  std::cout << "rotate(gm2,0.1)=\n" << rotate(gm2,0.1) << std::endl;
-  
-  //////// dsymat2 ////////
-  sm2(0,0) =1.;
-  sm2(1,0) =2.; sm2(1,1) =3.;
-  std::cout << "sm2=\n" << sm2 << std::endl;
-  std::cout << "inv(sm2)=\n" << inv(sm2) << std::endl;
-  std::cout << "sm2*inv(sm2)=\n" << sm2*inv(sm2) << std::endl;
-  std::cout << "rotate(sm2,0.1)=\n" << rotate(sm2,0.1) << std::endl;
-  std::cout << "rotate(sm2,0.1)=\n" << rotate(sm2,0.1) << std::endl;
-  std::cout << "gm2*sm2=\n" << gm2*sm2 << std::endl;
-  
-  ////////  ////////
-  cv2 += t(rv2);
-  
-  
-  /////////////////////////////////////
-  //////////////// 3D /////////////////
-  /////////////////////////////////////
-  CPPL::dcovec3 cv3;
-  CPPL::drovec3 rv3;
-  CPPL::dgemat3 gm3;
-  CPPL::dsymat3 sm3;
-  CPPL::dquater q;
-  
-  gm3.identity();
-  //std::cout << "gm3=\n" << gm3 << std::endl;
-  //std::cout << "vt2q(0.1)*gm2=\n" << CPPL::t2m(0.1)*gm2 << std::endl;
-  
-  sm3(0,0)=1.;
-  sm3(1,0)=2.; sm3(1,1)=3.;
-  sm3(2,0)=4.; sm3(2,1)=5.; sm3(2,2)=6.;
-  std::cout << "sm3=\n" << sm3 << std::endl;
-  std::cout << "inv(sm3)=\n" << inv(sm3) << std::endl;
-  std::cout << "sm3*inv(sm3)=\n" << sm3*inv(sm3) << std::endl;
-  
-  /////////////////////////////////////
-  /////////////////////////////////////
-  /////////////////////////////////////
-  //CPPL::dcovector_small<5> cv5 ={{1,2,3,4,5}};
-  
-  return 0;
-}
diff --git a/cpplapack-r198/.svn/pristine/19/19fb70159cd20aace7e7f9912ed6e965cfa4bc60.svn-base b/cpplapack-r198/.svn/pristine/19/19fb70159cd20aace7e7f9912ed6e965cfa4bc60.svn-base
deleted file mode 100644
index d02608a..0000000
--- a/cpplapack-r198/.svn/pristine/19/19fb70159cd20aace7e7f9912ed6e965cfa4bc60.svn-base
+++ /dev/null
@@ -1,247 +0,0 @@
-// ISO C9x  compliant stdint.h for Microsoft Visual Studio
-// Based on ISO/IEC 9899:TC2 Committee draft (May 6, 2005) WG14/N1124 
-// 
-//  Copyright (c) 2006-2008 Alexander Chemeris
-// 
-// Redistribution and use in source and binary forms, with or without
-// modification, are permitted provided that the following conditions are met:
-// 
-//   1. Redistributions of source code must retain the above copyright notice,
-//      this list of conditions and the following disclaimer.
-// 
-//   2. Redistributions in binary form must reproduce the above copyright
-//      notice, this list of conditions and the following disclaimer in the
-//      documentation and/or other materials provided with the distribution.
-// 
-//   3. The name of the author may be used to endorse or promote products
-//      derived from this software without specific prior written permission.
-// 
-// THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR IMPLIED
-// WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
-// MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO
-// EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
-// SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
-// PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
-// OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, 
-// WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
-// OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
-// ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-// 
-///////////////////////////////////////////////////////////////////////////////
-
-#ifndef _MSC_VER // [
-#error "Use this header only with Microsoft Visual C++ compilers!"
-#endif // _MSC_VER ]
-
-#ifndef _MSC_STDINT_H_ // [
-#define _MSC_STDINT_H_
-
-#if _MSC_VER > 1000
-#pragma once
-#endif
-
-#include <limits.h>
-
-// For Visual Studio 6 in C++ mode and for many Visual Studio versions when
-// compiling for ARM we should wrap <wchar.h> include with 'extern "C++" {}'
-// or compiler give many errors like this:
-//   error C2733: second C linkage of overloaded function 'wmemchr' not allowed
-#ifdef __cplusplus
-extern "C" {
-#endif
-#  include <wchar.h>
-#ifdef __cplusplus
-}
-#endif
-
-// Define _W64 macros to mark types changing their size, like intptr_t.
-#ifndef _W64
-#  if !defined(__midl) && (defined(_X86_) || defined(_M_IX86)) && _MSC_VER >= 1300
-#     define _W64 __w64
-#  else
-#     define _W64
-#  endif
-#endif
-
-
-// 7.18.1 Integer types
-
-// 7.18.1.1 Exact-width integer types
-
-// Visual Studio 6 and Embedded Visual C++ 4 doesn't
-// realize that, e.g. char has the same size as __int8
-// so we give up on __intX for them.
-#if (_MSC_VER < 1300)
-   typedef signed char       int8_t;
-   typedef signed short      int16_t;
-   typedef signed int        int32_t;
-   typedef unsigned char     uint8_t;
-   typedef unsigned short    uint16_t;
-   typedef unsigned int      uint32_t;
-#else
-   typedef signed __int8     int8_t;
-   typedef signed __int16    int16_t;
-   typedef signed __int32    int32_t;
-   typedef unsigned __int8   uint8_t;
-   typedef unsigned __int16  uint16_t;
-   typedef unsigned __int32  uint32_t;
-#endif
-typedef signed __int64       int64_t;
-typedef unsigned __int64     uint64_t;
-
-
-// 7.18.1.2 Minimum-width integer types
-typedef int8_t    int_least8_t;
-typedef int16_t   int_least16_t;
-typedef int32_t   int_least32_t;
-typedef int64_t   int_least64_t;
-typedef uint8_t   uint_least8_t;
-typedef uint16_t  uint_least16_t;
-typedef uint32_t  uint_least32_t;
-typedef uint64_t  uint_least64_t;
-
-// 7.18.1.3 Fastest minimum-width integer types
-typedef int8_t    int_fast8_t;
-typedef int16_t   int_fast16_t;
-typedef int32_t   int_fast32_t;
-typedef int64_t   int_fast64_t;
-typedef uint8_t   uint_fast8_t;
-typedef uint16_t  uint_fast16_t;
-typedef uint32_t  uint_fast32_t;
-typedef uint64_t  uint_fast64_t;
-
-// 7.18.1.4 Integer types capable of holding object pointers
-#ifdef _WIN64 // [
-   typedef signed __int64    intptr_t;
-   typedef unsigned __int64  uintptr_t;
-#else // _WIN64 ][
-   typedef _W64 signed int   intptr_t;
-   typedef _W64 unsigned int uintptr_t;
-#endif // _WIN64 ]
-
-// 7.18.1.5 Greatest-width integer types
-typedef int64_t   intmax_t;
-typedef uint64_t  uintmax_t;
-
-
-// 7.18.2 Limits of specified-width integer types
-
-#if !defined(__cplusplus) || defined(__STDC_LIMIT_MACROS) // [   See footnote 220 at page 257 and footnote 221 at page 259
-
-// 7.18.2.1 Limits of exact-width integer types
-#define INT8_MIN     ((int8_t)_I8_MIN)
-#define INT8_MAX     _I8_MAX
-#define INT16_MIN    ((int16_t)_I16_MIN)
-#define INT16_MAX    _I16_MAX
-#define INT32_MIN    ((int32_t)_I32_MIN)
-#define INT32_MAX    _I32_MAX
-#define INT64_MIN    ((int64_t)_I64_MIN)
-#define INT64_MAX    _I64_MAX
-#define UINT8_MAX    _UI8_MAX
-#define UINT16_MAX   _UI16_MAX
-#define UINT32_MAX   _UI32_MAX
-#define UINT64_MAX   _UI64_MAX
-
-// 7.18.2.2 Limits of minimum-width integer types
-#define INT_LEAST8_MIN    INT8_MIN
-#define INT_LEAST8_MAX    INT8_MAX
-#define INT_LEAST16_MIN   INT16_MIN
-#define INT_LEAST16_MAX   INT16_MAX
-#define INT_LEAST32_MIN   INT32_MIN
-#define INT_LEAST32_MAX   INT32_MAX
-#define INT_LEAST64_MIN   INT64_MIN
-#define INT_LEAST64_MAX   INT64_MAX
-#define UINT_LEAST8_MAX   UINT8_MAX
-#define UINT_LEAST16_MAX  UINT16_MAX
-#define UINT_LEAST32_MAX  UINT32_MAX
-#define UINT_LEAST64_MAX  UINT64_MAX
-
-// 7.18.2.3 Limits of fastest minimum-width integer types
-#define INT_FAST8_MIN    INT8_MIN
-#define INT_FAST8_MAX    INT8_MAX
-#define INT_FAST16_MIN   INT16_MIN
-#define INT_FAST16_MAX   INT16_MAX
-#define INT_FAST32_MIN   INT32_MIN
-#define INT_FAST32_MAX   INT32_MAX
-#define INT_FAST64_MIN   INT64_MIN
-#define INT_FAST64_MAX   INT64_MAX
-#define UINT_FAST8_MAX   UINT8_MAX
-#define UINT_FAST16_MAX  UINT16_MAX
-#define UINT_FAST32_MAX  UINT32_MAX
-#define UINT_FAST64_MAX  UINT64_MAX
-
-// 7.18.2.4 Limits of integer types capable of holding object pointers
-#ifdef _WIN64 // [
-#  define INTPTR_MIN   INT64_MIN
-#  define INTPTR_MAX   INT64_MAX
-#  define UINTPTR_MAX  UINT64_MAX
-#else // _WIN64 ][
-#  define INTPTR_MIN   INT32_MIN
-#  define INTPTR_MAX   INT32_MAX
-#  define UINTPTR_MAX  UINT32_MAX
-#endif // _WIN64 ]
-
-// 7.18.2.5 Limits of greatest-width integer types
-#define INTMAX_MIN   INT64_MIN
-#define INTMAX_MAX   INT64_MAX
-#define UINTMAX_MAX  UINT64_MAX
-
-// 7.18.3 Limits of other integer types
-
-#ifdef _WIN64 // [
-#  define PTRDIFF_MIN  _I64_MIN
-#  define PTRDIFF_MAX  _I64_MAX
-#else  // _WIN64 ][
-#  define PTRDIFF_MIN  _I32_MIN
-#  define PTRDIFF_MAX  _I32_MAX
-#endif  // _WIN64 ]
-
-#define SIG_ATOMIC_MIN  INT_MIN
-#define SIG_ATOMIC_MAX  INT_MAX
-
-#ifndef SIZE_MAX // [
-#  ifdef _WIN64 // [
-#     define SIZE_MAX  _UI64_MAX
-#  else // _WIN64 ][
-#     define SIZE_MAX  _UI32_MAX
-#  endif // _WIN64 ]
-#endif // SIZE_MAX ]
-
-// WCHAR_MIN and WCHAR_MAX are also defined in <wchar.h>
-#ifndef WCHAR_MIN // [
-#  define WCHAR_MIN  0
-#endif  // WCHAR_MIN ]
-#ifndef WCHAR_MAX // [
-#  define WCHAR_MAX  _UI16_MAX
-#endif  // WCHAR_MAX ]
-
-#define WINT_MIN  0
-#define WINT_MAX  _UI16_MAX
-
-#endif // __STDC_LIMIT_MACROS ]
-
-
-// 7.18.4 Limits of other integer types
-
-#if !defined(__cplusplus) || defined(__STDC_CONSTANT_MACROS) // [   See footnote 224 at page 260
-
-// 7.18.4.1 Macros for minimum-width integer constants
-
-#define INT8_C(val)  val##i8
-#define INT16_C(val) val##i16
-#define INT32_C(val) val##i32
-#define INT64_C(val) val##i64
-
-#define UINT8_C(val)  val##ui8
-#define UINT16_C(val) val##ui16
-#define UINT32_C(val) val##ui32
-#define UINT64_C(val) val##ui64
-
-// 7.18.4.2 Macros for greatest-width integer constants
-#define INTMAX_C   INT64_C
-#define UINTMAX_C  UINT64_C
-
-#endif // __STDC_CONSTANT_MACROS ]
-
-
-#endif // _MSC_STDINT_H_ ]
diff --git a/cpplapack-r198/.svn/pristine/1a/1a0489bca6083f8bd398e662995358e3c4899e69.svn-base b/cpplapack-r198/.svn/pristine/1a/1a0489bca6083f8bd398e662995358e3c4899e69.svn-base
deleted file mode 100644
index a236365..0000000
--- a/cpplapack-r198/.svn/pristine/1a/1a0489bca6083f8bd398e662995358e3c4899e69.svn-base
+++ /dev/null
@@ -1,79 +0,0 @@
-//=============================================================================
-/*! zhsmatrix+zgbmatrix operator */
-/*
-inline _zgematrix operator+(const zhsmatrix& matA, const zgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(matA);
-  
-  for(CPPL_INT i=0; i<matB.m; i++){
-    for(CPPL_INT j=max(0,i-matB.kl); j<min(matB.n,i+matB.ku+1); j++){
-      newmat(i,j)+=matB(i,j);
-    }
-  }
-  
-  return _(newmat);
-}
-*/
-
-//=============================================================================
-/*! zhsmatrix-zgbmatrix operator */
-/*
-inline _zgematrix operator-(const zhsmatrix& matA, const zgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(matA);
-  
-  for(CPPL_INT i=0; i<matB.m; i++){
-    for(CPPL_INT j=max(0,i-matB.kl); j<min(matB.n,i+matB.ku+1); j++){
-      newmat(i,j)-=matB(i,j);
-    }
-  }
-  
-  return _(newmat);
-}
-*/
-
-//=============================================================================
-/*! zhsmatrix*zgbmatrix operator */
-/*
-inline _zgematrix operator*(const zhsmatrix& matA, const zgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat( matA.m, matB.n );
-  newmat.zero();
-  
-  for(CPPL_INT c=0; c<matA.vol; c++){
-    for(CPPL_INT j=max(0,matA.jndx[c]-matB.kl);
-        j<min(matB.n,matA.jndx[c]+matB.ku+1); j++){
-      newmat(matA.indx[c],j) += matA.array[c]*matB(matA.jndx[c],j);
-    }
-  }
-  
-  return _(newmat);
-}
-*/
diff --git a/cpplapack-r198/.svn/pristine/1a/1aadb91aa4c860871a243fca2002a3bd8b52ba34.svn-base b/cpplapack-r198/.svn/pristine/1a/1aadb91aa4c860871a243fca2002a3bd8b52ba34.svn-base
deleted file mode 100644
index 635ff3b..0000000
--- a/cpplapack-r198/.svn/pristine/1a/1aadb91aa4c860871a243fca2002a3bd8b52ba34.svn-base
+++ /dev/null
@@ -1,36 +0,0 @@
-//=============================================================================
-/*! return transposed dgbmatrix */
-inline _dgbmatrix t(const dgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  dgbmatrix newmat(mat.n, mat.m, mat.ku, mat.kl);
-  
-  for(CPPL_INT i=0; i<newmat.m; i++){
-    const CPPL_INT jmax =std::min(newmat.n,i+newmat.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-newmat.kl); j<jmax; j++){
-      newmat(i,j) =mat(j,i);
-    }
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! return its inverse matrix */
-inline _dgematrix i(const dgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(mat.m!=mat.n){
-    ERROR_REPORT;
-    std::cerr << "This matrix is not square and has no inverse matrix." << std::endl
-              << "Your input was (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgbmatrix mat_cp(mat);
-  dgematrix mat_inv(mat.m,mat.n);
-  mat_inv.identity();
-  mat_cp.dgbsv(mat_inv);
-  
-  return _(mat_inv);
-}
diff --git a/cpplapack-r198/.svn/pristine/1a/1ab3993a5fc79cc1ce78da670b173deee64bd391.svn-base b/cpplapack-r198/.svn/pristine/1a/1ab3993a5fc79cc1ce78da670b173deee64bd391.svn-base
deleted file mode 100644
index 16a22e8..0000000
--- a/cpplapack-r198/.svn/pristine/1a/1ab3993a5fc79cc1ce78da670b173deee64bd391.svn-base
+++ /dev/null
@@ -1,576 +0,0 @@
-//=============================================================================
-/*! convert zhematrix_small to zgematrix_small */
-template<CPPL_INT n>
-inline zgematrix_small<n,n> zhematrix_small<n>::to_zgematrix_small() const
-{CPPL_VERBOSE_REPORT;
-  zgematrix_small<n,n> newmat;
-  for(CPPL_INT i=0; i<n; i++){
-    for(CPPL_INT j=0;   j<=i; j++){ newmat(i,j) =(*this)(i,j); }
-    for(CPPL_INT j=i+1; j<n;  j++){ newmat(i,j) =(*this)(j,i); }
-  }
-  return newmat;
-}
-
-//=============================================================================
-/*! convert zhematrix_small to zhematrix */
-template<CPPL_INT n>
-inline zhematrix zhematrix_small<n>::to_zhematrix() const
-{CPPL_VERBOSE_REPORT;
-  zhematrix newmat(n);
-  for(CPPL_INT i=0; i<n; i++){
-    for(CPPL_INT j=0; j<=i; j++){
-      newmat(i,j) =(*this)(i,j);
-    }
-  }
-  return newmat;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! operator() */
-template<CPPL_INT n>
-inline comple& zhematrix_small<n>::operator()(const CPPL_INT& i, const CPPL_INT& j)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(i<j){
-    ERROR_REPORT;
-    std::cerr << "i must be greater than or equal to j since dsymatrix_small is L strage. " << std::endl;
-    std::cerr << "Your input was (" << i << ", " << j << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //const CPPL_INT I(max(i,j)), J(min(i,j)); return array[(I*(I+1))/2 +J];
-  return array[(i*(i+1))/2 +j]; //l storage
-}
-
-//=============================================================================
-/*! operator() for const */
-template<CPPL_INT n>
-inline comple zhematrix_small<n>::operator()(const CPPL_INT& i, const CPPL_INT& j) const
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(i<j){
-    ERROR_REPORT;
-    std::cerr << "i must be greater than or equal to j since dsymatrix_small is L strage. " << std::endl;
-    std::cerr << "Your input was (" << i << ", " << j << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //const CPPL_INT I(max(i,j)), J(min(i,j)); return array[(I*(I+1))/2 +J];
-  return array[(i*(i+1))/2 +j];
-}
-
-//=============================================================================
-/*! set */
-template<CPPL_INT n>
-inline zhematrix_small<n>& zhematrix_small<n>::set(const CPPL_INT& i, const CPPL_INT& j, const comple& v)
-{CPPL_VERBOSE_REPORT;
-  (*this)(i,j)=v;
-  return *this;
-}
-
-//=============================================================================
-/*! operator<< */
-template<CPPL_INT n>
-inline std::ostream& operator<<(std::ostream& s, const zhematrix_small<n>& A)
-{CPPL_VERBOSE_REPORT;
-  s << std::setiosflags(std::ios::showpos);
-  for(CPPL_INT i=0; i<n; i++){
-    for(CPPL_INT j=0;   j<=i; j++){ s << " " << A(i,j) << " "<< std::flush; }
-    for(CPPL_INT j=i+1; j<n;  j++){ s << "{" << A(j,i) << "}" << std::flush; }
-    s << std::endl;
-  }
-  return s;
-}
-
-//=============================================================================
-/*! write to file */
-template<CPPL_INT n>
-inline void zhematrix_small<n>::write(const char* filename) const
-{CPPL_VERBOSE_REPORT;
-  std::ofstream ofs(filename, std::ios::trunc);
-  ofs.setf(std::cout.flags());
-  ofs.precision(std::cout.precision());
-  ofs.width(std::cout.width());
-  ofs.fill(std::cout.fill());
-  ofs << "#zhematrix" << " " << n << std::endl;
-  for(CPPL_INT i=0; i<n; i++){
-    for(CPPL_INT j=0; j<=i; j++){
-      ofs << (*this)(i,j) << " ";
-    }
-    ofs << std::endl;
-  }
-  ofs.close();
-}
-
-//=============================================================================
-/*! read from file */
-template<CPPL_INT n>
-inline void zhematrix_small<n>::read(const char* filename)
-{CPPL_VERBOSE_REPORT;
-  std::ifstream s(filename);
-  if(!s){
-    ERROR_REPORT;
-    std::cerr << "The file \"" << filename << "\" can not be opened." << std::endl;
-    exit(1);
-  }
-  
-  std::string id;
-  s >> id;
-  if( id != "zhematrix" && id != "#zhematrix" ){
-    ERROR_REPORT;
-    std::cerr << "The type name of the file \"" << filename << "\" is not zhematrix." << std::endl
-              << "Its type name was " << id << " ." << std::endl;
-    exit(1);
-  }
-  
-  CPPL_INT _n;
-  s >> _n;
-  if(n!=_n){
-    ERROR_REPORT;
-    std::cerr << "Matrix size is invalid." << std::endl;
-    exit(1);
-  }
-  
-  for(CPPL_INT i=0; i<n; i++){
-    for(CPPL_INT j=0; j<=i; j++ ){
-      s >> operator()(i,j);
-    }
-  }
-  if(s.eof()){
-    ERROR_REPORT;
-    std::cerr << "There is something is wrong with the file \"" << filename << "\"." << std::endl
-              << "Most likely, there is a lack of data components, or a linefeed code or space code is missing at the end of the last line." << std::endl;
-    exit(1);
-  }
-  
-  s.close();
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zero */
-template<CPPL_INT n>
-inline zhematrix_small<n>& zhematrix_small<n>::zero()
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<n; i++){
-    for(CPPL_INT j=0; j<=i; j++){
-      (*this)(i,j) =0.;
-    }
-  }
-  return *this;
-}
-
-//=============================================================================
-/*! identity */
-template<CPPL_INT n>
-inline zhematrix_small<n>& zhematrix_small<n>::identity()
-{CPPL_VERBOSE_REPORT;
-  zero();
-  for(CPPL_INT k=0; k<n; k++){
-    (*this)(k,k) =1.;
-  }
-  return *this;
-}
-
-//=============================================================================
-/*! return its trace */
-template<CPPL_INT n>
-inline comple trace(const zhematrix_small<n>& A)
-{CPPL_VERBOSE_REPORT;
-  comple trace =comple(0.,0.);
-  for(CPPL_INT i=0; i<n; i++){
-    trace +=A(i,i);
-  }
-  return trace;
-}
-
-//=============================================================================
-/*! find index of the maximum component */
-template<CPPL_INT n>
-inline void idamax(CPPL_INT& I, CPPL_INT& J, const zhematrix_small<n>& A)
-{CPPL_VERBOSE_REPORT;
-  double max(-1.);
-  for(CPPL_INT i=0; i<n; i++){
-    for(CPPL_INT j=0; j<=i; j++){
-      if( max<fabs(A(i,j)) ){
-        I=i;
-        J=j;
-        max =fabs(A(i,j));
-      }
-    }
-  }
-  return;  
-}
-
-//=============================================================================
-/*! return the maximum component */
-template<CPPL_INT n>
-inline comple damax(const zhematrix_small<n>& A)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT i(0),j(0);
-  idamax(i,j,A);
-  return A(i,j);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zhematrix_small+=zhematrix_small operator */
-template<CPPL_INT n>
-inline zhematrix_small<n>& operator+=(zhematrix_small<n>& A, const zhematrix_small<n>& B)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT k=0; k<(n*(n+1))/2; k++){
-    A.array[k] +=B.array[k];
-  }
-  return A;
-}
-
-//=============================================================================
-/*! zhematrix_small-=zhematrix_small operator */
-template<CPPL_INT n>
-inline zhematrix_small<n>& operator-=(zhematrix_small<n>& A, const zhematrix_small<n>& B)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT k=0; k<(n*(n+1))/2; k++){
-    A.array[k] -=B.array[k];
-  }
-  return A;
-}
-
-//=============================================================================
-/*! zhematrix_small*=double operator */
-template<CPPL_INT n>
-inline zhematrix_small<n>& operator*=(zhematrix_small<n>& A, const double& v)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<n; i++){
-    for(CPPL_INT j=0; j<=i; j++){
-      A(i,j) *=v;
-    }
-  }
-  return A;
-}
-
-//=============================================================================
-/*! zhematrix_small*=comple operator */
-template<CPPL_INT n>
-inline zhematrix_small<n>& operator*=(zhematrix_small<n>& A, const comple& v)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<n; i++){
-    for(CPPL_INT j=0; j<=i; j++){
-      A(i,j) *=v;
-    }
-  }
-  return A;
-}
-
-//=============================================================================
-/*! zhematrix_small/=double operator */
-template<CPPL_INT n>
-inline zhematrix_small<n>& operator/=(zhematrix_small<n>& A, const double& v)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<n; i++){
-    for(CPPL_INT j=0; j<=i; j++){
-      A(i,j) /=v;
-    }
-  }
-  return A;
-}
-
-//=============================================================================
-/*! zhematrix_small/=comple operator */
-template<CPPL_INT n>
-inline zhematrix_small<n>& operator/=(zhematrix_small<n>& A, const comple& v)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<n; i++){
-    for(CPPL_INT j=0; j<=i; j++){
-      A(i,j) /=v;
-    }
-  }
-  return A;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! unary */
-template<CPPL_INT n>
-inline const zhematrix_small<n>& operator+(const zhematrix_small<n>& A)
-{CPPL_VERBOSE_REPORT;
-  return A;
-}
-
-//=============================================================================
-/*! unary */
-template<CPPL_INT n>
-inline zhematrix_small<n> operator-(const zhematrix_small<n>& A)
-{CPPL_VERBOSE_REPORT;
-  zhematrix_small<n> X;
-  for(CPPL_INT i=0; i<n; i++){
-    for(CPPL_INT j=0; j<=i; j++){
-      X(i,j) =-A(i,j);
-    }
-  }
-  return X;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zhematrix_small+zgematrix_small operator */
-template<CPPL_INT n>
-inline zgematrix_small<n,n> operator+(const zhematrix_small<n>& A, const zgematrix_small<n,n>& B)
-{CPPL_VERBOSE_REPORT;
-  zgematrix_small<n,n> X;
-  for(CPPL_INT i=0; i<n; i++){
-    for(CPPL_INT j=0; j<i; j++){
-      X(i,j) =A(i,j)+B(i,j);
-    }
-    for(CPPL_INT j=i; j<n; j++){
-      X(i,j) =A(j,i)+B(i,j);
-    }
-  }
-  return X;
-}
-
-//=============================================================================
-/*! zhematrix_small+zhematrix_small operator */
-template<CPPL_INT n>
-inline zhematrix_small<n> operator+(const zhematrix_small<n>& A, const zhematrix_small<n>& B)
-{CPPL_VERBOSE_REPORT;
-  zhematrix_small<n> X;
-  for(CPPL_INT i=0; i<n; i++){
-    for(CPPL_INT j=0; j<=i; j++){
-      X(i,j) =A(i,j)+B(i,j);
-    }
-  }
-  return X;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zhematrix_small-zgematrix_small operator */
-template<CPPL_INT n>
-inline zgematrix_small<n,n> operator-(const zhematrix_small<n>& A, const zgematrix_small<n,n>& B)
-{CPPL_VERBOSE_REPORT;
-  zgematrix_small<n,n> X;
-  for(CPPL_INT i=0; i<n; i++){
-    for(CPPL_INT j=0; j<i; j++){
-      X(i,j) =A(i,j)-B(i,j);
-    }
-    for(CPPL_INT j=i; j<n; j++){
-      X(i,j) =A(j,i)-B(i,j);
-    }
-  }
-  return X;
-}
-
-//=============================================================================
-/*! zhematrix_small-zhematrix_small operator */
-template<CPPL_INT n>
-inline zhematrix_small<n> operator-(const zhematrix_small<n>& A, const zhematrix_small<n>& B)
-{CPPL_VERBOSE_REPORT;
-  zhematrix_small<n> X;
-  for(CPPL_INT i=0; i<n; i++){
-    for(CPPL_INT j=0; j<=i; j++){
-      X(i,j) =A(i,j)-B(i,j);
-    }
-  }
-  return X;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zhematrix_small*zcovector_small operator */
-template<CPPL_INT n>
-inline zcovector_small<n> operator*(const zhematrix_small<n>& A, const zcovector_small<n>& B)
-{CPPL_VERBOSE_REPORT;
-  zcovector_small<n> C;
-  C.zero();
-  for(CPPL_INT i=0; i<n; i++){
-    for(CPPL_INT j=0; j<i; j++){
-      C(i) +=A(i,j)*B(j);
-    }
-    for(CPPL_INT j=i; j<n; j++){
-      C(i) +=A(j,i)*B(j);
-    }
-  }
-  return C;
-}
-
-//=============================================================================
-/*! zhematrix_small*zgematrix_small operator */
-template<CPPL_INT m, CPPL_INT n>
-inline zgematrix_small<m,n> operator*(const zhematrix_small<m>& A, const zgematrix_small<m,n>& B)
-{CPPL_VERBOSE_REPORT;
-  zgematrix_small<m,n> X;
-  X.zero();
-  for(CPPL_INT i=0; i<m; i++){
-    for(CPPL_INT j=0; j<n; j++){
-      for(CPPL_INT k=0; k<i; k++){
-        X(i,j) +=A(i,k)*B(k,j);
-      }
-      for(CPPL_INT k=i; k<m; k++){
-        X(i,j) +=A(k,i)*B(k,j);
-      }
-    }
-  }
-  return X;
-}
-
-//=============================================================================
-/*! zhematrix_small*zhematrix_small operator */
-template<CPPL_INT n>
-inline zgematrix_small<n,n> operator*(const zhematrix_small<n>& A, const zhematrix_small<n>& B)
-{CPPL_VERBOSE_REPORT;
-  zgematrix_small<n,n> X;
-  X.zero();
-  for(CPPL_INT i=0; i<n; i++){
-    for(CPPL_INT j=0; j<i; j++){
-      for(CPPL_INT k=0; k<j; k++){
-        X(i,j) +=A(i,k)*B(j,k);
-      }
-      for(CPPL_INT k=j; k<i; k++){
-        X(i,j) +=A(i,k)*B(k,j);
-      }
-      for(CPPL_INT k=i; k<n; k++){
-        X(i,j) +=A(k,i)*B(k,j);
-      }
-    }
-    for(CPPL_INT j=i; j<n; j++){
-      for(CPPL_INT k=0; k<i; k++){
-        X(i,j) +=A(i,k)*B(j,k);
-      }
-      for(CPPL_INT k=i; k<j; k++){
-        X(i,j) +=A(k,i)*B(j,k);
-      }
-      for(CPPL_INT k=j; k<n; k++){
-        X(i,j) +=A(k,i)*B(k,j);
-      }
-    }
-  }
-  return X;
-}
-
-//=============================================================================
-/*! zhematrix_small*double operator */
-template<CPPL_INT n>
-inline zhematrix_small<n> operator*(const zhematrix_small<n>& A, const double& v)
-{CPPL_VERBOSE_REPORT;
-  zhematrix_small<n> C;
-  for(CPPL_INT i=0; i<n; i++){
-    for(CPPL_INT j=0; j<=i; j++){
-      C(i,j) =A(i,j)*v;
-    }
-  }
-  return C;
-}
-
-//=============================================================================
-/*! zhematrix_small*comple operator */
-template<CPPL_INT n>
-inline zhematrix_small<n> operator*(const zhematrix_small<n>& A, const comple& v)
-{CPPL_VERBOSE_REPORT;
-  zhematrix_small<n> C;
-  for(CPPL_INT i=0; i<n; i++){
-    for(CPPL_INT j=0; j<=i; j++){
-      C(i,j) =A(i,j)*v;
-    }
-  }
-  return C;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zhematrix_small/double operator */
-template<CPPL_INT n>
-inline zhematrix_small<n> operator/(const zhematrix_small<n>& A, const double& v)
-{CPPL_VERBOSE_REPORT;
-  zhematrix_small<n> C;
-  for(CPPL_INT i=0; i<n; i++){
-    for(CPPL_INT j=0; j<=i; j++){
-      C(i,j) =A(i,j)/v;
-    }
-  }
-  return C;
-}
-
-//=============================================================================
-/*! zhematrix_small/comple operator */
-template<CPPL_INT n>
-inline zhematrix_small<n> operator/(const zhematrix_small<n>& A, const comple& v)
-{CPPL_VERBOSE_REPORT;
-  zhematrix_small<n> C;
-  for(CPPL_INT i=0; i<n; i++){
-    for(CPPL_INT j=0; j<=i; j++){
-      C(i,j) =A(i,j)/v;
-    }
-  }
-  return C;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! Hadamard product */
-template<CPPL_INT n>
-inline zgematrix_small<n,n> hadamard(const zhematrix_small<n>& A, const zgematrix_small<n,n>& B)
-{CPPL_VERBOSE_REPORT;
-  zgematrix_small<n,n> C;
-  for(CPPL_INT i=0; i<n; i++){
-    for(CPPL_INT j=0; j<=i; j++){
-      C(i,j) =A(i,j)*B(i,j);
-    }
-    for(CPPL_INT j=i+1; j<n; j++){
-      C(i,j) =conj(A(j,i))*B(i,j);
-    }
-  }
-  return C;
-}
-
-//=============================================================================
-/*! Hadamard product */
-template<CPPL_INT n>
-inline zhematrix_small<n> hadamard(const zhematrix_small<n>& A, const zhematrix_small<n>& B)
-{CPPL_VERBOSE_REPORT;
-  zhematrix_small<n> C;
-  for(CPPL_INT i=0; i<n; i++){
-    for(CPPL_INT j=0; j<=i; j++){
-      C(i,j) =A(i,j)*B(i,j);
-    }
-  }
-  return C;
-}
diff --git a/cpplapack-r198/.svn/pristine/1b/1b23632de69757c61b0e58cb47fe7e83e1736a43.svn-base b/cpplapack-r198/.svn/pristine/1b/1b23632de69757c61b0e58cb47fe7e83e1736a43.svn-base
deleted file mode 100644
index 48daaf9..0000000
--- a/cpplapack-r198/.svn/pristine/1b/1b23632de69757c61b0e58cb47fe7e83e1736a43.svn-base
+++ /dev/null
@@ -1,88 +0,0 @@
-//=============================================================================
-/*! dssmatrix constructor without arguments */
-inline dssmatrix::dssmatrix()
-  : m(n)
-{CPPL_VERBOSE_REPORT;
-  //////// initialize ////////
-  n =0;
-  data.clear();
-  line.clear();
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! dssmatrix copy constructor */
-inline dssmatrix::dssmatrix(const dssmatrix& mat)
-  : m(n)
-{CPPL_VERBOSE_REPORT;
-  data.clear();
-  line.clear();
-  copy(mat);
-}
-
-//=============================================================================
-/*! dssmatrix constructor to cast _dssmatrix */
-inline dssmatrix::dssmatrix(const _dssmatrix& mat)
-  : m(n)
-{CPPL_VERBOSE_REPORT;
-  n =mat.n;
-  data.clear();
-  line.clear();
-  
-  data.swap(mat.data);
-  line.swap(mat.line);
-  
-  mat.nullify();
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! dssmatrix constructor with size specification */
-inline dssmatrix::dssmatrix(const CPPL_INT& _n, const CPPL_INT _c)
-  : m(n)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( _n<0 || _c<0 ){
-    ERROR_REPORT;
-    std::cerr << "Matrix sizes and the length of arrays must be positive integers. " << std::endl
-              << "Your input was (" << _n << "," << _c << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //////// initialize ////////
-  n =_n;
-  data.resize(0);
-  data.reserve(_c);
-  line.resize(n);
-}
-
-//=============================================================================
-/*! dssmatrix constructor with filename */
-inline dssmatrix::dssmatrix(const char* filename)
-  : m(n)
-{CPPL_VERBOSE_REPORT;
-  data.clear();
-  line.clear();
-  
-  //// read ////
-  read(filename);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! dssmatrix destructor */
-inline dssmatrix::~dssmatrix()
-{CPPL_VERBOSE_REPORT;
-  data.clear();
-  line.clear();
-}
diff --git a/cpplapack-r198/.svn/pristine/1b/1b8401b65eb4530afbe3bfbc3a489e00412580b0.svn-base b/cpplapack-r198/.svn/pristine/1b/1b8401b65eb4530afbe3bfbc3a489e00412580b0.svn-base
deleted file mode 100644
index a8d1eb9..0000000
--- a/cpplapack-r198/.svn/pristine/1b/1b8401b65eb4530afbe3bfbc3a489e00412580b0.svn-base
+++ /dev/null
@@ -1,58 +0,0 @@
-//=============================================================================
-/*! return transposed _dgsmatrix */
-inline _dgsmatrix t(const _dgsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  const std::vector<dcomponent>::iterator mat_data_end =mat.data.end();
-  for(std::vector<dcomponent>::iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    std::swap(it->i,it->j);
-  }
-  
-  std::swap(mat.rows,mat.cols);
-  
-  return mat;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! search the index of element having the largest absolute value
-  in 0-based numbering system */
-inline void idamax(CPPL_INT& i, CPPL_INT& j, const _dgsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  std::vector<dcomponent>::const_iterator itx(mat.data.begin());
-  double vmax(0);
-  
-  const std::vector<dcomponent>::const_iterator mat_data_end =mat.data.end();
-  for(std::vector<dcomponent>::const_iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    if(vmax < it->v){
-      vmax=fabs(it->v);
-      itx=it;
-    }
-  }
-  
-  i=itx->i;
-  j=itx->j;
-  
-  mat.destroy();
-}
-
-//=============================================================================
-/*! return its largest absolute value */
-inline double damax(const _dgsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  std::vector<dcomponent>::const_iterator itx(mat.data.begin());
-  double vmax(0);
-  
-  const std::vector<dcomponent>::const_iterator mat_data_end =mat.data.end();
-  for(std::vector<dcomponent>::const_iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    if(vmax < it->v){
-      vmax=fabs(it->v);
-      itx=it;
-    }
-  }
-  
-  mat.destroy();
-  return itx->v;
-}
diff --git a/cpplapack-r198/.svn/pristine/1b/1badd32a8a959eda14e358ab178c6843723ff3ba.svn-base b/cpplapack-r198/.svn/pristine/1b/1badd32a8a959eda14e358ab178c6843723ff3ba.svn-base
deleted file mode 100644
index c306dc3..0000000
--- a/cpplapack-r198/.svn/pristine/1b/1badd32a8a959eda14e358ab178c6843723ff3ba.svn-base
+++ /dev/null
@@ -1,5 +0,0 @@
-#zhematrix 4
-(0,0) 
-(1,-0) (1,0) 
-(2,-0) (2,-1) (2,0) 
-(3,-0) (3,-1) (3,-2) (3,0) 
diff --git a/cpplapack-r198/.svn/pristine/1c/1c0e7506fb7be9abedba5eb8df9e3e40a21580e3.svn-base b/cpplapack-r198/.svn/pristine/1c/1c0e7506fb7be9abedba5eb8df9e3e40a21580e3.svn-base
deleted file mode 100644
index 27ce253..0000000
--- a/cpplapack-r198/.svn/pristine/1c/1c0e7506fb7be9abedba5eb8df9e3e40a21580e3.svn-base
+++ /dev/null
@@ -1,46 +0,0 @@
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int L(4);
-  
-  //// make zrovector x ////
-  CPPL::zrovector x(L);
-  for(int i=0; i<x.l; i++){
-    x(i) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-  }
-  
-  //// print x in two ways ////
-  cout << "x =\n" << x << endl;
-  for(int i=0; i<x.l; i++){
-    cout << "x(" << i << ") =" << x(i) << endl;
-  }
-  
-  //// make zrovector y ////
-  CPPL::zrovector y(x);
-  
-  //// print y in two ways ////
-  cout << "y =\n" << y << endl;
-  for(int i=0; i<y.l; i++){
-    cout << "y(" << i << ") =" << y(i) << endl;
-  }
-  
-  //// print x+y ////
-  cout << "x+y=\n" << x+y << endl;
-  
-  //// write/read ////
-  x.write( "tmp.txt" );
-  CPPL::zrovector z;
-  z.read( "tmp.txt" );
-  cout << "z-x =\n" << z-x << "<-Should be zero." << endl;
-  
-  return 0;
-}
diff --git a/cpplapack-r198/.svn/pristine/1c/1c32112b1be56ba0e4c98cec5e02877eef53095a.svn-base b/cpplapack-r198/.svn/pristine/1c/1c32112b1be56ba0e4c98cec5e02877eef53095a.svn-base
deleted file mode 100644
index 66bf3c9..0000000
--- a/cpplapack-r198/.svn/pristine/1c/1c32112b1be56ba0e4c98cec5e02877eef53095a.svn-base
+++ /dev/null
@@ -1,89 +0,0 @@
-/*****************************************************************************/
-/*                                main.cpp                                   */
-/*****************************************************************************/
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include <vector>
-#include "cpplapack.h"
-
-//=============================================================================
-bool bicgstab
-(
- const CPPL::dgematrix& A,
- CPPL::dcovector& x,
- const double& eps
-)
-{
-  double alpha(0.0), zeta(1.0);
-  CPPL::dcovector t, R(x), r(R), p(x.l), Ap(x.l), At;
-  x.zero(); p.zero(); Ap.zero();
-
-  int itc(0);
-  const int itmax(2*x.l);
-  while(fabs(damax(r))>eps && itc<itmax){
-    std::cerr << "itc=" << itc << ", fabs(damax(r))=" << fabs(damax(r)) << std::endl;
-
-    p =r +(alpha/zeta)*p -alpha*Ap;
-
-    Ap =A*p;
-    alpha =(R%r)/(R%Ap);
-    t =r -alpha*Ap;
-    At =A*t;
-    zeta =(At%t)/(At%At);
-
-    x +=alpha*p +zeta*t;
-    r =t -zeta*At;
-    alpha =(R%r)/(R%Ap);
-
-    itc++;
-  }
-  std::cerr << "fabs(damax(r))=" << fabs(damax(r)) << std::endl;
-  
-  if(itc<itmax){ return 0; }
-  else{ return 1; }
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-int main(int argc, char** argv)
-{
-  srand(time(NULL));
-  
-  const int size(100);
-  CPPL::dgematrix A(size,size);
-  
-  for(int i=0; i<size; i++){
-    for(int j=0; j<size; j++){
-      A(i,j) =(double(rand())/double(RAND_MAX))*2.0 -1.0;
-    }
-    A(i,i)+=10.;
-  }
-  A.write("A.dgematrix");
-  
-  CPPL::dcovector x(size);
-  for(int i=0; i<size; i++){
-    x(i) =(double(rand())/double(RAND_MAX))*1. -0.5;
-  }
-  x.write("answer.dcovector");//solution
-  std::cerr << "answer=\n" << t(x) << std::endl;
-  
-  CPPL::dcovector y(size);
-  y=A*x;
-  y.write("y.dcovector");
-  
-  double eps(fabs(damax(y))*1e-6);
-  //std::cerr << "eps=" << eps << std::endl;
-  if( bicgstab(A, y, eps) ){
-    std::cerr << "failed." << std::endl;
-    exit(1);
-  }
-  y.write("solution.dcovector");
-  std::cout << "solution=\n" << t(y) << std::endl;
-  
-  return 0;
-}
diff --git a/cpplapack-r198/.svn/pristine/1c/1c4555e42cca438a89b5b7f655e2697034779996.svn-base b/cpplapack-r198/.svn/pristine/1c/1c4555e42cca438a89b5b7f655e2697034779996.svn-base
deleted file mode 100644
index 0c52329..0000000
--- a/cpplapack-r198/.svn/pristine/1c/1c4555e42cca438a89b5b7f655e2697034779996.svn-base
+++ /dev/null
@@ -1,508 +0,0 @@
-//=============================================================================
-/*! convert dsymatrix_small to dgematrix_small */
-template<CPPL_INT n>
-inline dgematrix_small<n,n> dsymatrix_small<n>::to_dgematrix_small() const
-{CPPL_VERBOSE_REPORT;
-  dgematrix_small<n,n> newmat;
-  for(CPPL_INT i=0; i<n; i++){
-    for(CPPL_INT j=0;   j<=i; j++){ newmat(i,j) =(*this)(i,j); }
-    for(CPPL_INT j=i+1; j<n;  j++){ newmat(i,j) =(*this)(j,i); }
-  }
-  return newmat;
-}
-
-//=============================================================================
-/*! convert dsymatrix_small to dsymatrix */
-template<CPPL_INT n>
-inline dsymatrix dsymatrix_small<n>::to_dsymatrix() const
-{CPPL_VERBOSE_REPORT;
-  dsymatrix newmat(n);
-  for(CPPL_INT i=0; i<n; i++){
-    for(CPPL_INT j=0; j<=i; j++){
-      newmat(i,j) =(*this)(i,j);
-    }
-  }
-  return newmat;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! operator() */
-template<CPPL_INT n>
-inline double& dsymatrix_small<n>::operator()(const CPPL_INT& i, const CPPL_INT& j)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(i<j){
-    ERROR_REPORT;
-    std::cerr << "i must be greater than or equal to j since dsymatrix_small is L strage. " << std::endl;
-    std::cerr << "Your input was (" << i << ", " << j << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //const CPPL_INT I(max(i,j)), J(min(i,j)); return array[(I*(I+1))/2 +J];
-  return array[(i*(i+1))/2 +j]; //L storage
-}
-
-//=============================================================================
-/*! operator() for const */
-template<CPPL_INT n>
-inline double dsymatrix_small<n>::operator()(const CPPL_INT& i, const CPPL_INT& j) const
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(i<j){
-    ERROR_REPORT;
-    std::cerr << "i must be greater than or equal to j since dsymatrix_small is L strage. " << std::endl;
-    std::cerr << "Your input was (" << i << ", " << j << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //const CPPL_INT I(max(i,j)), J(min(i,j)); return array[(I*(I+1))/2 +J];
-  return array[(i*(i+1))/2 +j];
-}
-
-//=============================================================================
-/*! set function */
-template<CPPL_INT n>
-inline dsymatrix_small<n>& dsymatrix_small<n>::set(const CPPL_INT& i, const CPPL_INT& j, const double& v)
-{CPPL_VERBOSE_REPORT;
-  (*this)(i,j)=v;
-  return *this;
-}
-
-//=============================================================================
-/*! operator<< */
-template<CPPL_INT n>
-inline std::ostream& operator<<(std::ostream& s, const dsymatrix_small<n>& A)
-{CPPL_VERBOSE_REPORT;
-  s << std::setiosflags(std::ios::showpos);
-  for(CPPL_INT i=0; i<n; i++){
-    for(CPPL_INT j=0;   j<=i; j++){ s << " " << A(i,j) << " "<< std::flush; }
-    for(CPPL_INT j=i+1; j<n;  j++){ s << "{" << A(j,i) << "}" << std::flush; }
-    s << std::endl;
-  }
-  return s;
-}
-
-//=============================================================================
-/*! write to file */
-template<CPPL_INT n>
-inline void dsymatrix_small<n>::write(const char* filename) const
-{CPPL_VERBOSE_REPORT;
-  std::ofstream ofs(filename, std::ios::trunc);
-  ofs.setf(std::cout.flags());
-  ofs.precision(std::cout.precision());
-  ofs.width(std::cout.width());
-  ofs.fill(std::cout.fill());
-  ofs << "#dsymatrix" << " " << n << std::endl;
-  for(CPPL_INT i=0; i<n; i++){
-    for(CPPL_INT j=0; j<=i; j++){
-      ofs << (*this)(i,j) << " ";
-    }
-    ofs << std::endl;
-  }
-  ofs.close();
-}
-
-//=============================================================================
-/*! read from file */
-template<CPPL_INT n>
-inline void dsymatrix_small<n>::read(const char* filename)
-{CPPL_VERBOSE_REPORT;
-  std::ifstream s(filename);
-  if(!s){
-    ERROR_REPORT;
-    std::cerr << "The file \"" << filename << "\" can not be opened." << std::endl;
-    exit(1);
-  }
-  
-  std::string id;
-  s >> id;
-  if( id != "dsymatrix" && id != "#dsymatrix" ){
-    ERROR_REPORT;
-    std::cerr << "The type name of the file \"" << filename << "\" is not dsymatrix." << std::endl
-              << "Its type name was " << id << " ." << std::endl;
-    exit(1);
-  }
-  
-  CPPL_INT _n;
-  s >> _n;
-  if(n!=_n){
-    ERROR_REPORT;
-    std::cerr << "Matrix size is invalid." << std::endl;
-    exit(1);
-  }
-  
-  for(CPPL_INT i=0; i<n; i++){
-    for(CPPL_INT j=0; j<=i; j++ ){
-      s >> operator()(i,j);
-    }
-  }
-  if(s.eof()){
-    ERROR_REPORT;
-    std::cerr << "There is something is wrong with the file \"" << filename << "\"." << std::endl
-              << "Most likely, there is a lack of data components, or a linefeed code or space code is missing at the end of the last line." << std::endl;
-    exit(1);
-  }
-  
-  s.close();
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zero */
-template<CPPL_INT n>
-inline dsymatrix_small<n>& dsymatrix_small<n>::zero()
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<n; i++){
-    for(CPPL_INT j=0; j<=i; j++){
-      (*this)(i,j) =0.;
-    }
-  }
-  return *this;
-}
-
-//=============================================================================
-/*! identity */
-template<CPPL_INT n>
-inline dsymatrix_small<n>& dsymatrix_small<n>::identity()
-{CPPL_VERBOSE_REPORT;
-  zero();
-  for(CPPL_INT k=0; k<n; k++){
-    (*this)(k,k) =1.;
-  }
-  return *this;
-}
-
-//=============================================================================
-/*! return its trace */
-template<CPPL_INT n>
-inline double trace(const dsymatrix_small<n>& A)
-{CPPL_VERBOSE_REPORT;
-  double trace =0.;
-  for(CPPL_INT i=0; i<n; i++){
-    trace +=A(i,i);
-  }
-  return trace;
-}
-
-//=============================================================================
-/*! return index of maximum component */
-template<CPPL_INT n>
-inline void idamax(CPPL_INT& I, CPPL_INT& J, const dsymatrix_small<n>& A)
-{CPPL_VERBOSE_REPORT;
-  double max(-1.);
-  for(int i=0; i<n; i++){
-    for(int j=0; j<=i; j++){
-      if( max<fabs(A(i,j)) ){
-        I=i;
-        J=j;
-        max =fabs(A(i,j));
-      }
-    }
-  }
-  return;  
-}
-
-//=============================================================================
-/*! return maximum component */
-template<CPPL_INT n>
-inline double damax(const dsymatrix_small<n>& A)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT i(0),j(0);
-  idamax(i,j,A);
-  return A(i,j);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-
-//=============================================================================
-/*! dsymatrix_small+=dsymatrix_small operator */
-template<CPPL_INT n>
-inline dsymatrix_small<n>& operator+=(dsymatrix_small<n>& A, const dsymatrix_small<n>& B)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT k=0; k<(n*(n+1))/2; k++){ A.array[k]+=B.array[k]; }
-  return A;
-}
-
-//=============================================================================
-/*! dsymatrix_small-=dsymatrix_small operator */
-template<CPPL_INT n>
-inline dsymatrix_small<n>& operator-=(dsymatrix_small<n>& A, const dsymatrix_small<n>& B)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT k=0; k<(n*(n+1))/2; k++){ A.array[k]-=B.array[k]; }
-  return A;
-}
-
-//=============================================================================
-/*! dsymatrix_small*=double operator */
-template<CPPL_INT n>
-inline dsymatrix_small<n>& operator*=(dsymatrix_small<n>& A, const double& v)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<n; i++){
-    for(CPPL_INT j=0; j<=i; j++){
-      A(i,j)*=v;
-    }
-  }
-  return A;
-}
-
-//=============================================================================
-/*! dsymatrix_small/=double operator */
-template<CPPL_INT n>
-inline dsymatrix_small<n>& operator/=(dsymatrix_small<n>& A, const double& v)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<n; i++){
-    for(CPPL_INT j=0; j<=i; j++){
-      A(i,j)/=v;
-    }
-  }
-  return A;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! unary + operator */
-template<CPPL_INT n>
-inline const dsymatrix_small<n>& operator+(const dsymatrix_small<n>& A)
-{CPPL_VERBOSE_REPORT;
-  return A;
-}
-
-//=============================================================================
-/*! unary - operator */
-template<CPPL_INT n>
-inline dsymatrix_small<n> operator-(const dsymatrix_small<n>& A)
-{CPPL_VERBOSE_REPORT;
-  dsymatrix_small<n> X;
-  for(CPPL_INT i=0; i<n; i++){
-    for(CPPL_INT j=0; j<=i; j++){
-      X(i,j)=-A(i,j);
-    }
-  }
-  return X;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! dsymatrix_small+dgematrix_small operator */
-template<CPPL_INT n>
-inline dgematrix_small<n,n> operator+(const dsymatrix_small<n>& A, const dgematrix_small<n,n>& B)
-{CPPL_VERBOSE_REPORT;
-  dgematrix_small<n,n> X;
-  for(CPPL_INT i=0; i<n; i++){
-    for(CPPL_INT j=0; j<i; j++){
-      X(i,j) =A(i,j)+B(i,j);
-    }
-    for(CPPL_INT j=i; j<n; j++){
-      X(i,j) =A(j,i)+B(i,j);
-    }
-  }
-  return X;
-}
-
-//=============================================================================
-/*! dsymatrix_small+dsymatrix_small operator */
-template<CPPL_INT n>
-inline dsymatrix_small<n> operator+(const dsymatrix_small<n>& A, const dsymatrix_small<n>& B)
-{CPPL_VERBOSE_REPORT;
-  dsymatrix_small<n> X;
-  for(CPPL_INT i=0; i<n; i++){
-    for(CPPL_INT j=0; j<=i; j++){
-      X(i,j) =A(i,j)+B(i,j);
-    }
-  }
-  return X;
-}
-
-
-//=============================================================================
-/*! dsymatrix_small-dgematrix_small operator */
-template<CPPL_INT n>
-inline dgematrix_small<n,n> operator-(const dsymatrix_small<n>& A, const dgematrix_small<n,n>& B)
-{CPPL_VERBOSE_REPORT;
-  dgematrix_small<n,n> X;
-  for(CPPL_INT i=0; i<n; i++){
-    for(CPPL_INT j=0; j<i; j++){
-      X(i,j) =A(i,j)-B(i,j);
-    }
-    for(CPPL_INT j=i; j<n; j++){
-      X(i,j) =A(j,i)-B(i,j);
-    }
-  }
-  return X;
-}
-
-//=============================================================================
-/*! dsymatrix_small-dsymatrix_small operator */
-template<CPPL_INT n>
-inline dsymatrix_small<n> operator-(const dsymatrix_small<n>& A, const dsymatrix_small<n>& B)
-{CPPL_VERBOSE_REPORT;
-  dsymatrix_small<n> X;
-  for(CPPL_INT i=0; i<n; i++){
-    for(CPPL_INT j=0; j<=i; j++){
-      X(i,j) =A(i,j)-B(i,j);
-    }
-  }
-  return X;
-}
-
-//=============================================================================
-/*! dsymatrix_small*dcovector_small operator */
-template<CPPL_INT n>
-inline dcovector_small<n> operator*(const dsymatrix_small<n>& A, const dcovector_small<n>& B)
-{CPPL_VERBOSE_REPORT;
-  dcovector_small<n> C;
-  C.zero();
-  for(CPPL_INT i=0; i<n; i++){
-    for(CPPL_INT j=0; j<i; j++){
-      C(i) +=A(i,j)*B(j);
-    }
-    for(CPPL_INT j=i; j<n; j++){
-      C(i) +=A(j,i)*B(j);
-    }
-  }
-  return C;
-}
-
-//=============================================================================
-/*! dsymatrix_small*dgematrix_small operator */
-template<CPPL_INT m, CPPL_INT n>
-inline dgematrix_small<m,n> operator*(const dsymatrix_small<m>& A, const dgematrix_small<m,n>& B)
-{CPPL_VERBOSE_REPORT;
-  dgematrix_small<m,n> X;
-  X.zero();
-  for(CPPL_INT i=0; i<m; i++){
-    for(CPPL_INT j=0; j<n; j++){
-      for(CPPL_INT k=0; k<i; k++){
-        X(i,j) +=A(i,k)*B(k,j);
-      }
-      for(CPPL_INT k=i; k<m; k++){
-        X(i,j) +=A(k,i)*B(k,j);
-      }
-    }
-  }
-  return X;
-}
-
-//=============================================================================
-/*! dsymatrix_small*dsymatrix_small operator */
-template<CPPL_INT n>
-inline dgematrix_small<n,n> operator*(const dsymatrix_small<n>& A, const dsymatrix_small<n>& B)
-{CPPL_VERBOSE_REPORT;
-  dgematrix_small<n,n> X;
-  X.zero();
-  for(CPPL_INT i=0; i<n; i++){
-    for(CPPL_INT j=0; j<i; j++){
-      for(CPPL_INT k=0; k<j; k++){
-        X(i,j) +=A(i,k)*B(j,k);
-      }
-      for(CPPL_INT k=j; k<i; k++){
-        X(i,j) +=A(i,k)*B(k,j);
-      }
-      for(CPPL_INT k=i; k<n; k++){
-        X(i,j) +=A(k,i)*B(k,j);
-      }
-    }
-    for(CPPL_INT j=i; j<n; j++){
-      for(CPPL_INT k=0; k<i; k++){
-        X(i,j) +=A(i,k)*B(j,k);
-      }
-      for(CPPL_INT k=i; k<j; k++){
-        X(i,j) +=A(k,i)*B(j,k);
-      }
-      for(CPPL_INT k=j; k<n; k++){
-        X(i,j) +=A(k,i)*B(k,j);
-      }
-    }
-  }
-  return X;
-}
-
-//=============================================================================
-/*! dsymatrix_small*double operator */
-template<CPPL_INT n>
-inline dsymatrix_small<n> operator*(const dsymatrix_small<n>& A, const double& v)
-{CPPL_VERBOSE_REPORT;
-  dsymatrix_small<n> C;
-  for(CPPL_INT i=0; i<n; i++){
-    for(CPPL_INT j=0; j<=i; j++){
-      C(i,j) =A(i,j)*v;
-    }
-  }
-  return C;
-}
-
-//=============================================================================
-/*! dsymatrix_small/double operator */
-template<CPPL_INT n>
-inline dsymatrix_small<n> operator/(const dsymatrix_small<n>& A, const double& v)
-{CPPL_VERBOSE_REPORT;
-  dsymatrix_small<n> C;
-  for(CPPL_INT i=0; i<n; i++){
-    for(CPPL_INT j=0; j<=i; j++){
-      C(i,j) =A(i,j)/v;
-    }
-  }
-  return C;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! Hadamerd operator */
-template<CPPL_INT n>
-inline dgematrix_small<n,n> hadamerd(const dsymatrix_small<n>& A, const dgematrix_small<n,n>& B)
-{CPPL_VERBOSE_REPORT;
-  dsymatrix_small<n> C;
-  for(CPPL_INT i=0; i<n; i++){
-    for(CPPL_INT j=0; j<=i; j++){
-      C(i,j) =A(i,j)*B(i,j);
-    }
-    for(CPPL_INT j=i+1; j<n; j++){
-      C(i,j) =A(j,i)*B(i,j);
-    }
-  }
-  return C;
-}
-
-//=============================================================================
-/*! Hadamerd operator */
-template<CPPL_INT n>
-inline dsymatrix_small<n> hadamerd(const dsymatrix_small<n>& A, const dsymatrix_small<n>& B)
-{CPPL_VERBOSE_REPORT;
-  dsymatrix_small<n> C;
-  for(CPPL_INT i=0; i<n; i++){
-    for(CPPL_INT j=0; j<=i; j++){
-      C(i,j) =A(i,j)*B(i,j);
-    }
-  }
-  return C;
-}
diff --git a/cpplapack-r198/.svn/pristine/1c/1c6bd24af1793c0968a5edc251414f62c8c3608f.svn-base b/cpplapack-r198/.svn/pristine/1c/1c6bd24af1793c0968a5edc251414f62c8c3608f.svn-base
deleted file mode 100644
index 6597651..0000000
--- a/cpplapack-r198/.svn/pristine/1c/1c6bd24af1793c0968a5edc251414f62c8c3608f.svn-base
+++ /dev/null
@@ -1,25 +0,0 @@
-//=============================================================================
-/*! _dgbmatrix*dcovector operator */
-inline _dcovector operator*(const _dgbmatrix& mat, const dcovector& vec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(mat.n!=vec.l){
-    ERROR_REPORT;
-    std::cerr << "These matrix and vector can not make a product." << std::endl
-              << "Your input was (" << mat.m << "x" << mat.n << ") * (" << vec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dcovector newvec(mat.m);
-  char trans ='n';
-  double alpha =1.;
-  CPPL_INT lda =mat.kl+mat.ku+1;
-  CPPL_INT inc =1;
-  double beta =0.;
-  
-  dgbmv_( &trans, &mat.m, &mat.n, &mat.kl, &mat.ku, &alpha, mat.array, &lda, vec.array, &inc, &beta, newvec.array, &inc );
-  
-  mat.destroy();
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/1c/1c93f492792865b928cf8139e51866ff7f9cb21f.svn-base b/cpplapack-r198/.svn/pristine/1c/1c93f492792865b928cf8139e51866ff7f9cb21f.svn-base
deleted file mode 100644
index 6ae32a9..0000000
--- a/cpplapack-r198/.svn/pristine/1c/1c93f492792865b928cf8139e51866ff7f9cb21f.svn-base
+++ /dev/null
@@ -1,103 +0,0 @@
-//=============================================================================
-/*! double*dcovector_small operator */
-template<CPPL_INT l>
-inline dcovector_small<l> operator*(const double& v, const dcovector_small<l>& A)
-{CPPL_VERBOSE_REPORT;
-  dcovector_small<l> X;
-  for(CPPL_INT i=0; i<l; i++){
-    X(i) =v*A(i);
-  }
-  return X;
-}
-
-//=============================================================================
-/*! double*drovector_small operator */
-template<CPPL_INT l>
-inline drovector_small<l> operator*(const double& v, const drovector_small<l>& A)
-{CPPL_VERBOSE_REPORT;
-  drovector_small<l> X;
-  for(CPPL_INT i=0; i<l; i++){
-    X(i) =v*A(i);
-  }
-  return X;
-}
-
-//=============================================================================
-/*! double*dgematrix_small operator */
-template<CPPL_INT m, CPPL_INT n>
-inline dgematrix_small<m,n> operator*(const double& v, const dgematrix_small<m,n>& A)
-{CPPL_VERBOSE_REPORT;
-  dgematrix_small<m,n> C;
-  for(CPPL_INT i=0; i<m; i++){
-    for(CPPL_INT j=0; j<n; j++){
-      C(i,j) =v*A(i,j);
-    }
-  }
-  return C;
-}
-
-//=============================================================================
-/*! double*dsymatrix_small operator */
-template<CPPL_INT n>
-inline dsymatrix_small<n> operator*(const double& v, const dsymatrix_small<n>& A)
-{CPPL_VERBOSE_REPORT;
-  dsymatrix_small<n> X;
-  for(CPPL_INT k=0; k<(n*(n+1))/2; k++){
-    X.array[k] =v*A.array[k];
-  }
-  return X;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! double*zcovector_small operator */
-template<CPPL_INT l>
-inline zcovector_small<l> operator*(const double& v, const zcovector_small<l>& A)
-{CPPL_VERBOSE_REPORT;
-  zcovector_small<l> X;
-  for(CPPL_INT i=0; i<l; i++){
-    X(i) =v*A(i);
-  }
-  return X;
-}
-
-//=============================================================================
-/*! double*zrovector_small operator */
-template<CPPL_INT l>
-inline zrovector_small<l> operator*(const double& v, const zrovector_small<l>& A)
-{CPPL_VERBOSE_REPORT;
-  zrovector_small<l> X;
-  for(CPPL_INT i=0; i<l; i++){
-    X(i) =v*A(i);
-  }
-  return X;
-}
-
-//=============================================================================
-/*! double*zgematrix_small operator */
-template<CPPL_INT m, CPPL_INT n>
-inline zgematrix_small<m,n> operator*(const double& v, const zgematrix_small<m,n>& A)
-{CPPL_VERBOSE_REPORT;
-  zgematrix_small<m,n> C;
-  for(CPPL_INT i=0; i<m; i++){
-    for(CPPL_INT j=0; j<n; j++){
-      C(i,j) =v*A(i,j);
-    }
-  }
-  return C;
-}
-
-//=============================================================================
-/*! double*zhematrix_small operator */
-template<CPPL_INT n>
-inline zhematrix_small<n> operator*(const double& v, const zhematrix_small<n>& A)
-{CPPL_VERBOSE_REPORT;
-  zhematrix_small<n> X;
-  for(CPPL_INT k=0; k<(n*(n+1))/2; k++){
-    X.array[k] =v*A.array[k];
-  }
-  return X;
-}
diff --git a/cpplapack-r198/.svn/pristine/1c/1cda490b76a233506737652758a11108c876180b.svn-base b/cpplapack-r198/.svn/pristine/1c/1cda490b76a233506737652758a11108c876180b.svn-base
deleted file mode 100644
index 89c09e1..0000000
--- a/cpplapack-r198/.svn/pristine/1c/1cda490b76a233506737652758a11108c876180b.svn-base
+++ /dev/null
@@ -1,100 +0,0 @@
-//=============================================================================
-void zgeev_check_value()
-{
-  cout << "############ check zgeev value ############" << endl;
-  
-  srand(unsigned(time(NULL)));
-  int M(3);
-  
-  //// make zgematrix A  ////
-  CPPL::zgematrix A(M,M);
-  for(int i=0; i<A.m; i++){ for(int j=0; j<A.n; j++){
-    A(i,j) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-  }}
-  
-  //// make w ////
-  vector< complex<double> > w;
-  
-  //// make A_original ////
-  CPPL::zgematrix A_original(A);
-  
-  //// zgeev ////
-  A.zgeev(w);
-  
-  //// print ////
-  cout << "A_original=\n" << A_original << endl;
-  for(int i=0; i<A.m; i++){
-    cout << "#### " << i << "th eigen ####" << endl;
-    cout << "w=" << w[i] <<endl;
-  }
-}
-
-//=============================================================================
-void zgeev_check_right()
-{
-  cout << "############ check zgeev right ############" << endl;
-  
-  srand(unsigned(time(NULL)));
-  int M(3);
-  
-  //// make zgematrix A  ////
-  CPPL::zgematrix A(M,M);
-  for(int i=0; i<A.m; i++){ for(int j=0; j<A.n; j++){
-    A(i,j) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-  }}
-  
-  //// make w v ////
-  vector< complex<double> > w;
-  vector<CPPL::zcovector> vr;
-  
-  //// make A_original ////
-  CPPL::zgematrix A_original(A);
-  
-  //// zgeev ////
-  A.zgeev(w, vr);
-  
-  //// print ////
-  cout << "A_original=\n" << A_original << endl;
-  for(int i=0; i<A.m; i++){
-    cout << "#### " << i << "th eigen ####" << endl;
-    cout << "w=" << w[i] <<endl;
-    cout << "vr=\n" << vr[i] <<endl;
-    cout << "[A]*{x} -lambda*{x} = (Should be zeros)\n"
-         << A_original*vr[i] -w[i]*vr[i] << endl;
-  }
-}
-
-//=============================================================================
-void zgeev_check_left()
-{
-  cout << "############ check zgeev left ############" << endl;
-  
-  //srand(unsigned(time(NULL)));
-  int M(3);
-  
-  //// make zgematrix A  ////
-  CPPL::zgematrix A(M,M);
-  for(int i=0; i<A.m; i++){ for(int j=0; j<A.n; j++){
-    A(i,j) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-  }}
-  
-  //// make w v ////
-  vector< complex<double> > w;
-  vector<CPPL::zrovector> vl;
-  
-  //// make A_original ////
-  CPPL::zgematrix A_original(A);
-  
-  //// zgeev ////
-  A.zgeev(w, vl);
-  
-  //// print ////
-  cout << "A_original=\n" << A_original << endl;
-  for(int i=0; i<A.m; i++){
-    cout << "#### " << i << "th eigen ####" << endl;
-    cout << "w= " << w[i] << endl;
-    cout << "vl = " << vl[i] << endl;
-    cout << "{x}*[A] -{x}*lambda = (Should be zeros)\n"
-         << vl[i]*A_original -vl[i]*w[i] << endl;
-  }
-}
diff --git a/cpplapack-r198/.svn/pristine/1d/1df48c9c52cac621830258d7dfcad35c1532ec1a.svn-base b/cpplapack-r198/.svn/pristine/1d/1df48c9c52cac621830258d7dfcad35c1532ec1a.svn-base
deleted file mode 100644
index cc123f3..0000000
--- a/cpplapack-r198/.svn/pristine/1d/1df48c9c52cac621830258d7dfcad35c1532ec1a.svn-base
+++ /dev/null
@@ -1,102 +0,0 @@
-//=============================================================================
-/*! return transposed zgematrix */
-inline _zgematrix t(const zgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-  zgematrix newmat(mat.n,mat.m);
-  
-  for(CPPL_INT i=0; i<newmat.m; i++){
-    for(CPPL_INT j=0; j<newmat.n; j++){
-      newmat(i,j) =mat(j,i);
-    }
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! return its inverse matrix */
-inline _zgematrix i(const zgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(mat.m!=mat.n){
-    ERROR_REPORT;
-    std::cerr << "This matrix is not square and has no inverse matrix." << std::endl
-              << "Your input was (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix mat_cp(mat), mat_inv(mat.m,mat.n);
-  mat_inv.identity();
-  mat_cp.zgesv(mat_inv);
-  
-  return _(mat_inv);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! return its conjugate matrix */
-inline _zgematrix conj(const zgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-  zgematrix newmat(mat.m,mat.n);
-  
-  for(CPPL_INT i=0; i<mat.m; i++){
-    for(CPPL_INT j=0; j<mat.n; j++){
-      newmat(i,j) =std::conj(mat(i,j));
-    }
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! return its conjugate transposed matrix */
-inline _zgematrix conjt(const zgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-  zgematrix newmat(mat.n,mat.m);
-  
-  for(CPPL_INT i=0; i<newmat.m; i++){
-    for(CPPL_INT j=0; j<newmat.n; j++){
-      newmat(i,j) =std::conj(mat(j,i));
-    }
-  }
-  
-  return _(newmat);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! return its Euclidean norm */
-inline comple nrm2(const zgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT N =mat.m*mat.n;
-  CPPL_INT INCX =1;
-  return dznrm2_(&N, mat.array, &INCX);
-}
-
-//=============================================================================
-/*! search the index of element having the largest absolute value
-  in 0-based numbering system */
-inline void idamax(CPPL_INT& i, CPPL_INT& j, const zgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT size =mat.m*mat.n;
-  CPPL_INT inc =1;
-  CPPL_INT index =izamax_(&size, mat.array, &inc) -1;
-  i =index%mat.m;
-  j =index/mat.m;
-}
-
-//=============================================================================
-/*! return its largest absolute value */
-inline comple damax(const zgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT size =mat.m*mat.n;
-  CPPL_INT inc =1;
-  return mat.array[izamax_(&size, mat.array, &inc) -1];
-}
diff --git a/cpplapack-r198/.svn/pristine/1f/1f1f82515c4e131718a5bc76318b5a28c1d6c8d4.svn-base b/cpplapack-r198/.svn/pristine/1f/1f1f82515c4e131718a5bc76318b5a28c1d6c8d4.svn-base
deleted file mode 100644
index 00211bc..0000000
--- a/cpplapack-r198/.svn/pristine/1f/1f1f82515c4e131718a5bc76318b5a28c1d6c8d4.svn-base
+++ /dev/null
@@ -1,17 +0,0 @@
-#!/bin/sh
-
-version=2015.05.11-1
-
-name=cpplapack-$version
-dir=/tmp/$name
-
-mkdir $dir || exit 1
-cp -r ../../* $dir || exit 1
-rm -rf `find $dir -type d -name .svn` || exit 1
-
-cd /tmp || exit 1
-rm -f $name.tar.gz || exit 1
-tar czf $name.tar.gz $name || exit 1
-rm -rf $dir || exit 1
-mv $name.tar.gz ~/ || exit 1
-echo "~/$name.tar.gz was successfully created."
diff --git a/cpplapack-r198/.svn/pristine/1f/1f8a07a9b208da33a8040edc7d909ad840452333.svn-base b/cpplapack-r198/.svn/pristine/1f/1f8a07a9b208da33a8040edc7d909ad840452333.svn-base
deleted file mode 100644
index 63503b3..0000000
--- a/cpplapack-r198/.svn/pristine/1f/1f8a07a9b208da33a8040edc7d909ad840452333.svn-base
+++ /dev/null
@@ -1,71 +0,0 @@
-//=============================================================================
-/*! zgsmatrix+zgematrix operator */
-inline _zgematrix operator+(const zgsmatrix& matA, const zgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(matB);
-  
-  const std::vector<zcomponent>::const_iterator matA_data_end =matA.data.end();
-  for(std::vector<zcomponent>::const_iterator it=matA.data.begin(); it!=matA_data_end; it++){
-    newmat(it->i,it->j) += it->v;
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! zgsmatrix-zgematrix operator */
-inline _zgematrix operator-(const zgsmatrix& matA, const zgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") - (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  zgematrix newmat(-matB);
-
-  const std::vector<zcomponent>::const_iterator matA_data_end =matA.data.end();
-  for(std::vector<zcomponent>::const_iterator it=matA.data.begin(); it!=matA_data_end; it++){
-    newmat(it->i,it->j) += it->v;
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! zgsmatrix*zgematrix operator */
-inline _zgematrix operator*(const zgsmatrix& matA, const zgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(matA.m, matB.n);
-  newmat.zero();
-  
-  const std::vector<zcomponent>::const_iterator matA_data_end =matA.data.end();
-  for(std::vector<zcomponent>::const_iterator it=matA.data.begin(); it!=matA_data_end; it++){
-    for(CPPL_INT j=0; j<matB.n; j++){
-      newmat(it->i,j) += it->v*matB(it->j,j);
-    }
-  }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/1f/1fbdda1060de3bdaf855e75cab07129c839b81ab.svn-base b/cpplapack-r198/.svn/pristine/1f/1fbdda1060de3bdaf855e75cab07129c839b81ab.svn-base
deleted file mode 100644
index 74dc003..0000000
--- a/cpplapack-r198/.svn/pristine/1f/1fbdda1060de3bdaf855e75cab07129c839b81ab.svn-base
+++ /dev/null
@@ -1,35 +0,0 @@
-//=============================================================================
-/*! _zhsmatrix constructor without arguments */
-inline _zhsmatrix::_zhsmatrix()
-  :m(n)
-{CPPL_VERBOSE_REPORT;
-  //////// initialize ////////
-  n =0;
-  data.clear();
-  line.clear();
-}
-
-//=============================================================================
-/*! _zhsmatrix copy constructor */
-inline _zhsmatrix::_zhsmatrix(const _zhsmatrix& mat)
-  :m(n)
-{CPPL_VERBOSE_REPORT;
-  //////// initialize ////////
-  n =mat.n;
-  data.swap(mat.data);
-  line.swap(mat.line);
-  
-  mat.nullify();
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! _zhsmatrix destructor */
-inline _zhsmatrix::~_zhsmatrix()
-{CPPL_VERBOSE_REPORT;
-  data.clear();
-  line.clear();
-}
diff --git a/cpplapack-r198/.svn/pristine/21/2124c4e4449d5b87d0c828bca8fe5c2cb94162aa.svn-base b/cpplapack-r198/.svn/pristine/21/2124c4e4449d5b87d0c828bca8fe5c2cb94162aa.svn-base
deleted file mode 100644
index 64f3af2..0000000
--- a/cpplapack-r198/.svn/pristine/21/2124c4e4449d5b87d0c828bca8fe5c2cb94162aa.svn-base
+++ /dev/null
@@ -1,36 +0,0 @@
-//=============================================================================
-/*! return a transposed column vector */
-inline _dcovector t(const drovector& rovec)
-{CPPL_VERBOSE_REPORT;
-  dcovector covec(rovec.l);
-  
-  CPPL_INT inc =1;
-  dcopy_(&rovec.l, rovec.array, &inc, covec.array, &inc);
-  
-  return _(covec);
-}
-
-//=============================================================================
-/*! return its Euclidean norm */
-inline double nrm2(const drovector& vec)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT inc =1;
-  return dnrm2_(&vec.l, vec.array, &inc);
-}
-
-//=============================================================================
-/*! return the index of element having the largest absolute value
-  in 0-based numbering system */
-inline CPPL_INT idamax(const drovector& vec)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT inc =1;
-  return idamax_(&vec.l, vec.array, &inc) -1;
-}
-
-//=============================================================================
-/*! return its largest absolute value */
-inline double damax(const drovector& vec)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT inc =1;
-  return vec.array[idamax_(&vec.l, vec.array, &inc) -1];
-}
diff --git a/cpplapack-r198/.svn/pristine/21/212fb4027a1a77e84e423629ee4fb5f2cc4e2f76.svn-base b/cpplapack-r198/.svn/pristine/21/212fb4027a1a77e84e423629ee4fb5f2cc4e2f76.svn-base
deleted file mode 100644
index 6cbb6d4..0000000
--- a/cpplapack-r198/.svn/pristine/21/212fb4027a1a77e84e423629ee4fb5f2cc4e2f76.svn-base
+++ /dev/null
@@ -1,18 +0,0 @@
-//=============================================================================
-/*! _dcovector*double operator */
-inline _dcovector operator*(const _dcovector& vec, const double& d)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT inc =1;
-  dscal_(&vec.l, &d, vec.array, &inc);
-  return vec;
-}
-
-//=============================================================================
-/*! _dcovector/double operator */
-inline _dcovector operator/(const _dcovector& vec, const double& d)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT inc =1;
-  double dinv =1./d;
-  dscal_(&vec.l, &dinv, vec.array, &inc);
-  return vec;
-}
diff --git a/cpplapack-r198/.svn/pristine/21/21ef75da36a28dcdb2a57b9d37a230ec7bb30b84.svn-base b/cpplapack-r198/.svn/pristine/21/21ef75da36a28dcdb2a57b9d37a230ec7bb30b84.svn-base
deleted file mode 100644
index 0dcc752..0000000
--- a/cpplapack-r198/.svn/pristine/21/21ef75da36a28dcdb2a57b9d37a230ec7bb30b84.svn-base
+++ /dev/null
@@ -1,49 +0,0 @@
-//=============================================================================
-/*! calculate determinant */
-inline comple det(const zgemat2& A)
-{CPPL_VERBOSE_REPORT;
-  return A(0,0)*A(1,1)-A(0,1)*A(1,0);
-}
-
-//=============================================================================
-/*! calculate inverse */
-inline zgemat2 inv(const zgemat2& A)
-{CPPL_VERBOSE_REPORT;
-  const comple Adet( det(A) );
-  zgemat2 Ainv;
-  Ainv(0,0)= A(1,1)/Adet;  Ainv(0,1)=-A(0,1)/Adet;
-  Ainv(1,0)=-A(1,0)/Adet;  Ainv(1,1)= A(0,0)/Adet;
-  return Ainv;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! calculate determinant */
-inline comple det(const zgemat3& A)
-{CPPL_VERBOSE_REPORT;
-  return
-    +A(0,0)*A(1,1)*A(2,2) -A(0,0)*A(1,2)*A(2,1)
-    +A(0,1)*A(1,2)*A(2,0) -A(0,1)*A(1,0)*A(2,2)
-    +A(0,2)*A(1,0)*A(2,1) -A(0,2)*A(1,1)*A(2,0);
-}
-
-//=============================================================================
-/*! calculate inverse */
-inline zgemat3 inv(const zgemat3& A)
-{CPPL_VERBOSE_REPORT;
-  const comple Adet( det(A) );
-  zgemat3 Ainv;
-  Ainv(0,0) =(A(1,1)*A(2,2)-A(1,2)*A(2,1))/Adet;
-  Ainv(0,1) =(A(0,2)*A(2,1)-A(0,1)*A(2,2))/Adet;
-  Ainv(0,2) =(A(0,1)*A(1,2)-A(0,2)*A(1,1))/Adet;
-  Ainv(1,0) =(A(1,2)*A(2,0)-A(1,0)*A(2,2))/Adet;
-  Ainv(1,1) =(A(0,0)*A(2,2)-A(0,2)*A(2,0))/Adet;
-  Ainv(1,2) =(A(0,2)*A(1,0)-A(0,0)*A(1,2))/Adet;
-  Ainv(2,0) =(A(1,0)*A(2,1)-A(1,1)*A(2,0))/Adet;
-  Ainv(2,1) =(A(0,1)*A(2,0)-A(0,0)*A(2,1))/Adet;
-  Ainv(2,2) =(A(0,0)*A(1,1)-A(0,1)*A(1,0))/Adet;
-  return Ainv;
-}
diff --git a/cpplapack-r198/.svn/pristine/22/222116defa4f5cedc9c06a7ebfff319ed1e49f4f.svn-base b/cpplapack-r198/.svn/pristine/22/222116defa4f5cedc9c06a7ebfff319ed1e49f4f.svn-base
deleted file mode 100644
index 0e2808f..0000000
--- a/cpplapack-r198/.svn/pristine/22/222116defa4f5cedc9c06a7ebfff319ed1e49f4f.svn-base
+++ /dev/null
@@ -1,45 +0,0 @@
-//=============================================================================
-/*! zgelss_check */
-void zgelss_check()
-{
-  cout << "############ check zgelss ############" << endl;
-  
-  srand(unsigned(time(NULL)));
-  int M(3), N(4);
-  int RANK(0);
-  double RCOND(-1.0);
-  
-  //// make zgematrix A  ////
-  CPPL::zgematrix A(M,N);
-  for(int i=0; i<A.m; i++){ for(int j=0; j<A.n; j++){
-    A(i,j) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-  }}
-
-  //// make dcovector b  ////
-  CPPL::zcovector b(M);
-  for(int i=0; i<b.l; i++){
-    b(i) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-  }
-
-  //// make dcovector s  ////
-  CPPL::dcovector s;
-   
-  //// make A_original ////
-  CPPL::zgematrix A_original(A);
-  
-  //// make b_original ////
-  CPPL::zcovector b_original(b);
-  
-  //// zgels ////
-  A.zgelss(b,s,RANK,RCOND);
-  
-  //// print ////
-  cout << "A_original=\n" << A_original << endl;
-  cout << "b_original=\n" << b_original << endl;
-  cout << "A=\n" << A << endl;
-  cout << "b=\n" << b << endl;
-  cout << "s=\n" << s << endl;
-  cout << "A_original*b=\n" << A_original*b << endl;
-  cout << "RANK =" << RANK << endl;
-}
-
diff --git a/cpplapack-r198/.svn/pristine/22/2231fb021d91610cf4cd30a422ee3c4a2f6d302c.svn-base b/cpplapack-r198/.svn/pristine/22/2231fb021d91610cf4cd30a422ee3c4a2f6d302c.svn-base
deleted file mode 100644
index 03b18fb..0000000
--- a/cpplapack-r198/.svn/pristine/22/2231fb021d91610cf4cd30a422ee3c4a2f6d302c.svn-base
+++ /dev/null
@@ -1,18 +0,0 @@
-//=============================================================================
-/*! +zgbmatrix operator */
-inline const zgbmatrix& operator+(const zgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  return mat;
-}
-
-//=============================================================================
-/*! -zgbmatrix operator */
-inline _zgbmatrix operator-(const zgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  zgbmatrix newmat(mat.m,mat.n,mat.kl,mat.ku);
-  for(CPPL_INT i=0; i<(newmat.kl+newmat.ku+1)*newmat.n; i++){
-    newmat.array[i]=-mat.array[i];
-  }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/22/22ac116c244f48c916503b82a8405342372bac09.svn-base b/cpplapack-r198/.svn/pristine/22/22ac116c244f48c916503b82a8405342372bac09.svn-base
deleted file mode 100644
index 95f7645..0000000
--- a/cpplapack-r198/.svn/pristine/22/22ac116c244f48c916503b82a8405342372bac09.svn-base
+++ /dev/null
@@ -1,38 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int L(4);
-  
-  CPPL::zcovector x(L);
-  for(int i=0; i<x.l; i++){
-    x(i) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-  }
-  
-  cout << "x =\n" << x << endl;
-  cout << "x*10. =\n" << x*10. << endl;
-  cout << "x/10. =\n" << x/10. << endl;
-  
-  cout << "#### x*=10.; ####" << endl;
-  x*=10.;
-  cout << "x =\n" << x << endl;
-  cout << "#### x/=10.; ####" << endl;
-  x/=10.;
-  cout << "x =\n" << x << endl;
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/22/22cd2404ff33e5542f5ffbe61707fbfebe407841.svn-base b/cpplapack-r198/.svn/pristine/22/22cd2404ff33e5542f5ffbe61707fbfebe407841.svn-base
deleted file mode 100644
index 314b781..0000000
--- a/cpplapack-r198/.svn/pristine/22/22cd2404ff33e5542f5ffbe61707fbfebe407841.svn-base
+++ /dev/null
@@ -1,24 +0,0 @@
-//=============================================================================
-/*! drovector*_dgematrix operator */
-inline _drovector operator*(const drovector& vec, const _dgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vec.l!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These vector and matrix can not make a product." << std::endl
-              << "Your input was (" << vec.l << ") * (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  drovector newvec(mat.n);
-  char trans ='T';
-  double alpha =1.;
-  CPPL_INT inc =1;
-  double beta =0.;
-  
-  dgemv_( &trans, &mat.m, &mat.n, &alpha, mat.array, &mat.m, vec.array, &inc, &beta, newvec.array, &inc );
-  
-  mat.destroy();
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/23/230a0fd1171b6cc90b8b33d2c21163893b3c6094.svn-base b/cpplapack-r198/.svn/pristine/23/230a0fd1171b6cc90b8b33d2c21163893b3c6094.svn-base
deleted file mode 100644
index 1084683..0000000
--- a/cpplapack-r198/.svn/pristine/23/230a0fd1171b6cc90b8b33d2c21163893b3c6094.svn-base
+++ /dev/null
@@ -1,73 +0,0 @@
-//=============================================================================
-/*! _zhematrix+_zhematrix operator */
-inline _zhematrix operator+(const _zhematrix& matA, const _zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") + (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT j=0; j<matA.n; j++){
-    for(CPPL_INT i=j; i<matA.n; i++){
-      matA.darray[j][i] += matB.darray[j][i];
-    }
-  }
-  
-  matB.destroy();
-  return matA;
-}
-
-//=============================================================================
-/*! _zhematrix-_zhematrix operator */
-inline _zhematrix operator-(const _zhematrix& matA, const _zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") - (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  for(CPPL_INT j=0; j<matA.n; j++){
-    for(CPPL_INT i=j; i<matA.n; i++){
-      matA.darray[j][i] -= matB.darray[j][i];
-    }
-  }
-  
-  matB.destroy();
-  return matA;
-}
-
-//=============================================================================
-/*! _zhematrix*_zhematrix operator */
-inline _zgematrix operator*(const _zhematrix& matA, const _zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") * (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  matB.complete();
-  
-  zgematrix newmat( matA.n, matB.n );
-  char side ='l';
-  char uplo ='l';
-  comple alpha =comple(1.,0.);
-  comple beta =comple(0.,0.);
-  
-  zhemm_( &side, &uplo, &matA.n, &matB.n, &alpha, matA.array, &matA.n, matB.array, &matB.n, &beta, newmat.array, &newmat.m );
-  
-  matA.destroy();
-  matB.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/23/2345b84a785dd9f012c42051238b4234f0a08085.svn-base b/cpplapack-r198/.svn/pristine/23/2345b84a785dd9f012c42051238b4234f0a08085.svn-base
deleted file mode 100644
index 57a32ad..0000000
--- a/cpplapack-r198/.svn/pristine/23/2345b84a785dd9f012c42051238b4234f0a08085.svn-base
+++ /dev/null
@@ -1,183 +0,0 @@
-//=============================================================================
-//! Real Double-precision General Dence Matrix Class
-class dgematrix
-{
-public:
-  ///////////////////////////////////////////////
-  /////////////////// objects ///////////////////
-  ///////////////////////////////////////////////
-  CPPL_INT m; //!< matrix row size
-  CPPL_INT n; //!< matrix column size
-  double* array; //!< 1D array to store matrix data
-  double** darray; //!< array of pointers of column head addresses
-  
-  ///////////////////////////////////////////////
-  ///////////////// constructors ////////////////
-  ///////////////////////////////////////////////
-  inline dgematrix();
-  inline dgematrix(const dgematrix&);
-  inline dgematrix(const _dgematrix&);
-  inline dgematrix(const CPPL_INT&, const CPPL_INT&);
-  inline dgematrix(const char*);
-  inline ~dgematrix(); //destructor
-  
-  ///////////////////////////////////////////////
-  ////////////////// functions //////////////////
-  ///////////////////////////////////////////////
-  //////// cast ////////
-  inline _zgematrix to_zgematrix() const;
-  
-  //////// io ////////
-  inline double& operator()(const CPPL_INT&, const CPPL_INT&);
-  inline double operator()(const CPPL_INT&, const CPPL_INT&) const;
-  inline dgematrix& set(const CPPL_INT&, const CPPL_INT&, const double&); //const;
-  inline friend std::ostream& operator<<(std::ostream&, const dgematrix&);
-  inline void write(const char*) const;
-  inline void read(const char*);
-  
-  //////// misc ////////
-  inline void clear();
-  inline dgematrix& zero();
-  inline dgematrix& identity();
-  inline void chsign();
-  inline void copy(const dgematrix&);
-  inline void shallow_copy(const _dgematrix&);
-  inline dgematrix& resize(const CPPL_INT&, const CPPL_INT&);
-  inline _drovector row(const CPPL_INT&) const;
-  inline _dcovector col(const CPPL_INT&) const;
-  inline friend void swap(dgematrix&, dgematrix&);
-  inline friend _dgematrix _(dgematrix&);
-  
-  //////// calc ////////
-  inline friend _dgematrix t(const dgematrix&);
-  inline friend _dgematrix i(const dgematrix&);
-  inline friend double nrm2(const dgematrix&);
-  inline friend void idamax(CPPL_INT&, CPPL_INT&, const dgematrix&);
-  inline friend double damax(const dgematrix&);
-  
-  //////// lapack ////////
-  inline CPPL_INT dgesv(dgematrix&);
-  inline CPPL_INT dgesv(dcovector&);
-  inline CPPL_INT dgels(dgematrix&);
-  inline CPPL_INT dgels(dcovector&);
-  inline CPPL_INT dgels(dgematrix&, drovector&);
-  inline CPPL_INT dgels(dcovector&, double&);
-  //inline CPPL_INT dgelss(dcovector&);
-  inline CPPL_INT dgelss(dcovector&, dcovector&, CPPL_INT&, const double);
-  inline CPPL_INT dgelss(dgematrix&, dcovector&, CPPL_INT&, const double);
-  inline CPPL_INT dgelsd(dcovector&, dcovector&, CPPL_INT&, const double);
-  //inline CPPL_INT dgelsd(dgematrix&, dcovector&, CPPL_INT&, const double);
-  inline CPPL_INT dgeev(std::vector<double>&, std::vector<double>&);
-  inline CPPL_INT dgeev(zcovector&);
-  inline CPPL_INT dgeev(std::vector<comple>&, std::vector<zcovector>&);
-  inline CPPL_INT dgeev(std::vector<double>&, std::vector<double>&, std::vector<dcovector>&, std::vector<dcovector>&);
-  inline CPPL_INT dgeev(std::vector<double>&, std::vector<double>&, std::vector<drovector>&, std::vector<drovector>&);
-  inline CPPL_INT dggev(dgematrix&, std::vector<double>&, std::vector<double>&);
-  inline CPPL_INT dggev(dgematrix&, std::vector<double>&, std::vector<double>&, std::vector<dcovector>&, std::vector<dcovector>&);
-  inline CPPL_INT dggev(dgematrix&, std::vector<double>&, std::vector<double>&, std::vector<drovector>&, std::vector<drovector>&);
-  inline CPPL_INT dgesvd(dgbmatrix&);
-  inline CPPL_INT dgesvd(dcovector&, dgematrix&, dgematrix&);
-  inline CPPL_INT dgglse(dgematrix&, dcovector&, dcovector&, dcovector&);
-  
-  ///////////////////////////////////////////////
-  ///////////// numerical operators /////////////
-  ///////////////////////////////////////////////
-  //////// = ////////
-  inline dgematrix& operator=(const  dgematrix&);
-  inline dgematrix& operator=(const _dgematrix&);
-  
-  //////// += ////////
-  inline dgematrix& operator+=(const  dgematrix&);
-  inline dgematrix& operator+=(const _dgematrix&);
-  inline dgematrix& operator+=(const  dsymatrix&);
-  inline dgematrix& operator+=(const _dsymatrix&);
-  inline dgematrix& operator+=(const  dgbmatrix&);
-  inline dgematrix& operator+=(const _dgbmatrix&);
-  inline dgematrix& operator+=(const  dgsmatrix&);
-  inline dgematrix& operator+=(const _dgsmatrix&);
-  inline dgematrix& operator+=(const  dssmatrix&);
-  inline dgematrix& operator+=(const _dssmatrix&);
-  
-  //////// -= ////////
-  inline dgematrix& operator-=(const  dgematrix&);
-  inline dgematrix& operator-=(const _dgematrix&);
-  inline dgematrix& operator-=(const  dsymatrix&);
-  inline dgematrix& operator-=(const _dsymatrix&);
-  inline dgematrix& operator-=(const  dgbmatrix&);
-  inline dgematrix& operator-=(const _dgbmatrix&);
-  inline dgematrix& operator-=(const  dgsmatrix&);
-  inline dgematrix& operator-=(const _dgsmatrix&);
-  inline dgematrix& operator-=(const  dssmatrix&);
-  inline dgematrix& operator-=(const _dssmatrix&);
-  
-  //////// *= ////////
-  inline dgematrix& operator*=(const  dgematrix&);
-  inline dgematrix& operator*=(const _dgematrix&);
-  inline dgematrix& operator*=(const  dsymatrix&);
-  inline dgematrix& operator*=(const _dsymatrix&);
-  inline dgematrix& operator*=(const  dgbmatrix&);
-  inline dgematrix& operator*=(const _dgbmatrix&);
-  inline dgematrix& operator*=(const  dgsmatrix&);
-  inline dgematrix& operator*=(const _dgsmatrix&);
-  inline dgematrix& operator*=(const  dssmatrix&);
-  inline dgematrix& operator*=(const _dssmatrix&);
-  inline dgematrix& operator*=(const     double&);
-  
-  //////// /= ////////
-  inline dgematrix& operator/=(const     double&);
-
-  //////// unary ////////
-  inline friend const dgematrix& operator+(const dgematrix&);
-  inline friend _dgematrix operator-(const  dgematrix&);
-  
-  //////// + ////////
-  inline friend _dgematrix operator+(const  dgematrix&, const  dgematrix&);
-  inline friend _dgematrix operator+(const  dgematrix&, const _dgematrix&);
-  inline friend _dgematrix operator+(const  dgematrix&, const  dsymatrix&);
-  inline friend _dgematrix operator+(const  dgematrix&, const _dsymatrix&);
-  inline friend _dgematrix operator+(const  dgematrix&, const  dgbmatrix&);
-  inline friend _dgematrix operator+(const  dgematrix&, const _dgbmatrix&);
-  inline friend _dgematrix operator+(const  dgematrix&, const  dgsmatrix&);
-  inline friend _dgematrix operator+(const  dgematrix&, const _dgsmatrix&);
-  inline friend _dgematrix operator+(const  dgematrix&, const  dssmatrix&);
-  inline friend _dgematrix operator+(const  dgematrix&, const _dssmatrix&);
-  
-  //////// - ////////
-  inline friend _dgematrix operator-(const  dgematrix&, const  dgematrix&);
-  inline friend _dgematrix operator-(const  dgematrix&, const _dgematrix&);
-  inline friend _dgematrix operator-(const  dgematrix&, const  dsymatrix&);
-  inline friend _dgematrix operator-(const  dgematrix&, const _dsymatrix&);
-  inline friend _dgematrix operator-(const  dgematrix&, const  dgbmatrix&);
-  inline friend _dgematrix operator-(const  dgematrix&, const _dgbmatrix&);
-  inline friend _dgematrix operator-(const  dgematrix&, const  dgsmatrix&);
-  inline friend _dgematrix operator-(const  dgematrix&, const _dgsmatrix&);
-  inline friend _dgematrix operator-(const  dgematrix&, const  dssmatrix&);
-  inline friend _dgematrix operator-(const  dgematrix&, const _dssmatrix&);
-  
-  //////// * ////////
-  inline friend _dcovector operator*(const  dgematrix&, const  dcovector&);
-  inline friend _dcovector operator*(const  dgematrix&, const _dcovector&);
-  inline friend _dgematrix operator*(const  dgematrix&, const  dgematrix&);
-  inline friend _dgematrix operator*(const  dgematrix&, const _dgematrix&);
-  inline friend _dgematrix operator*(const  dgematrix&, const  dsymatrix&);
-  inline friend _dgematrix operator*(const  dgematrix&, const _dsymatrix&);
-  inline friend _dgematrix operator*(const  dgematrix&, const  dgbmatrix&);
-  inline friend _dgematrix operator*(const  dgematrix&, const _dgbmatrix&);  
-  inline friend _dgematrix operator*(const  dgematrix&, const  dgsmatrix&);
-  inline friend _dgematrix operator*(const  dgematrix&, const _dgsmatrix&);
-  inline friend _dgematrix operator*(const  dgematrix&, const  dssmatrix&);
-  inline friend _dgematrix operator*(const  dgematrix&, const _dssmatrix&);
-  inline friend _dgematrix operator*(const  dgematrix&, const     double&);
-  
-  //////// / ////////
-  inline friend _dgematrix operator/(const  dgematrix&, const     double&);
-  
-  //////// % ////////
-  inline friend _drovector operator%(const  dgematrix&, const  dgematrix&);
-  
-  //////// double ////////
-  inline friend _dgematrix operator*(const     double&, const  dgematrix&);
-  
-  //////// hadamard ////////
-  inline friend _dgematrix hadamard(const dgematrix&, const dgematrix&);
-};
diff --git a/cpplapack-r198/.svn/pristine/23/23bd85cb2e0a167c0fa26fecca0c80cb94b1e0e6.svn-base b/cpplapack-r198/.svn/pristine/23/23bd85cb2e0a167c0fa26fecca0c80cb94b1e0e6.svn-base
deleted file mode 100644
index 51dbee4..0000000
--- a/cpplapack-r198/.svn/pristine/23/23bd85cb2e0a167c0fa26fecca0c80cb94b1e0e6.svn-base
+++ /dev/null
@@ -1,11 +0,0 @@
-//=============================================================================
-/*! double*_dssmatrix operator */
-inline _dssmatrix operator*(const double& d, const _dssmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  const std::vector<dcomponent>::iterator mat_data_end =mat.data.end();
-  for(std::vector<dcomponent>::iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    it->v *=d;
-  }
-  
-  return mat;
-}
diff --git a/cpplapack-r198/.svn/pristine/24/2435bd68f1ae2ee487cdd7f0e81915e0576275a7.svn-base b/cpplapack-r198/.svn/pristine/24/2435bd68f1ae2ee487cdd7f0e81915e0576275a7.svn-base
deleted file mode 100644
index e1a0441..0000000
--- a/cpplapack-r198/.svn/pristine/24/2435bd68f1ae2ee487cdd7f0e81915e0576275a7.svn-base
+++ /dev/null
@@ -1,26 +0,0 @@
-//=============================================================================
-/*! _dgbmatrix*_dcovector operator */
-inline _dcovector operator*(const _dgbmatrix& mat, const _dcovector& vec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(mat.n!=vec.l){
-    ERROR_REPORT;
-    std::cerr << "These matrix and vector can not make a product." << std::endl
-              << "Your input was (" << mat.m << "x" << mat.n << ") * (" << vec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dcovector newvec(mat.m);
-  char trans ='n';
-  double alpha =1.;
-  CPPL_INT lda =mat.kl+mat.ku+1;
-  CPPL_INT inc =1;
-  double beta =0.;
-  
-  dgbmv_( &trans, &mat.m, &mat.n, &mat.kl, &mat.ku, &alpha, mat.array, &lda, vec.array, &inc, &beta, newvec.array, &inc );
-  
-  mat.destroy();
-  vec.destroy();
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/24/246b7d42dd7343347a8b0b1b18849acb9dfe5728.svn-base b/cpplapack-r198/.svn/pristine/24/246b7d42dd7343347a8b0b1b18849acb9dfe5728.svn-base
deleted file mode 100644
index 4fc4103..0000000
--- a/cpplapack-r198/.svn/pristine/24/246b7d42dd7343347a8b0b1b18849acb9dfe5728.svn-base
+++ /dev/null
@@ -1,79 +0,0 @@
-//=============================================================================
-/*! _zgsmatrix+zgbmatrix operator */
-inline _zgematrix operator+(const _zgsmatrix& matA, const zgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat( matA.to_zgematrix() );
-  
-  for(CPPL_INT i=0; i<matB.m; i++){
-    const CPPL_INT jmax =std::min(matB.n,i+matB.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matB.kl); j<jmax; j++){
-      newmat(i,j) +=matB(i,j);
-    }
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _zgsmatrix-zgbmatrix operator */
-inline _zgematrix operator-(const _zgsmatrix& matA, const zgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat( matA.to_zgematrix() );
-  
-  for(CPPL_INT i=0; i<matB.m; i++){
-    const CPPL_INT jmax =std::min(matB.n,i+matB.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matB.kl); j<jmax; j++){
-      newmat(i,j) -=matB(i,j);
-    }
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _zgsmatrix*zgbmatrix operator */
-inline _zgematrix operator*(const _zgsmatrix& matA, const zgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat( matA.m, matB.n );
-  newmat.zero();
-  
-  const std::vector<zcomponent>::const_iterator matA_data_end =matA.data.end();
-  for(std::vector<zcomponent>::const_iterator it=matA.data.begin(); it!=matA_data_end; it++){
-    const CPPL_INT jmax =std::min(matB.n,it->j+matB.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),it->j-matB.kl); j<jmax; j++){
-      newmat(it->i,j) += it->v*matB(it->j,j);
-    }
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/25/25437f317b9405d52d9350951a31e18087af808d.svn-base b/cpplapack-r198/.svn/pristine/25/25437f317b9405d52d9350951a31e18087af808d.svn-base
deleted file mode 100644
index 0845f77..0000000
--- a/cpplapack-r198/.svn/pristine/25/25437f317b9405d52d9350951a31e18087af808d.svn-base
+++ /dev/null
@@ -1,24 +0,0 @@
-//=============================================================================
-/*! zrovector*zgbmatrix operator */
-inline _zrovector operator*(const zrovector& vec, const zgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vec.l!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These vector and matrix can not make a product." << std::endl
-              << "Your input was (" << vec.l << ") * (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zrovector newvec(mat.n);
-  char trans ='T';
-  comple alpha =comple(1.,0.);
-  CPPL_INT lda =mat.kl+mat.ku+1;
-  CPPL_INT inc =1;
-  comple beta =comple(0.,0.);
-  
-  zgbmv_( &trans, &mat.m, &mat.n, &mat.kl, &mat.ku, &alpha, mat.array, &lda, vec.array, &inc, &beta, newvec.array, &inc );
-  
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/26/26672c7e08e6ac4a7344aade5774ccb80924ec87.svn-base b/cpplapack-r198/.svn/pristine/26/26672c7e08e6ac4a7344aade5774ccb80924ec87.svn-base
deleted file mode 100644
index 9b65d85..0000000
--- a/cpplapack-r198/.svn/pristine/26/26672c7e08e6ac4a7344aade5774ccb80924ec87.svn-base
+++ /dev/null
@@ -1,24 +0,0 @@
-//=============================================================================
-/*! _drovector*dsymatrix operator */
-inline _drovector operator*(const _drovector& vec, const dsymatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vec.l!=mat.n){
-    ERROR_REPORT;
-    std::cerr << "These vector and matrix can not make a product." << std::endl
-              << "Your input was (" << vec.l << ") * (" << mat.n << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  drovector newvec(mat.n);
-  char uplo ='l';
-  double alpha =1.;
-  CPPL_INT inc =1;
-  double beta =0.;
-  
-  dsymv_( &uplo, &mat.n, &alpha, mat.array, &mat.n, vec.array, &inc, &beta, newvec.array, &inc );
-  
-  vec.destroy();
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/26/267b49f5553d38769c66194d2f4014aacf8859f1.svn-base b/cpplapack-r198/.svn/pristine/26/267b49f5553d38769c66194d2f4014aacf8859f1.svn-base
deleted file mode 100644
index 5274d8e..0000000
--- a/cpplapack-r198/.svn/pristine/26/267b49f5553d38769c66194d2f4014aacf8859f1.svn-base
+++ /dev/null
@@ -1,323 +0,0 @@
-/*****************************************************************************/
-/*                                main.cpp                                   */
-/*****************************************************************************/
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include <vector>
-#include "cpplapack.h"
-
-//=============================================================================
-/* the simplest block subspace itration */
-template <typename MATRIX>
-bool block_subspace_simplest
-(
- const MATRIX& A,
- CPPL::drovector& lambda,
- CPPL::dgematrix& V, //V.m >= V.n
- const double& eps,
- const int& itmax
- )
-{
-  //////// initialization ////////
-  srand(time(NULL));
-  for(int i=0; i<V.m; i++){ for(int j=0;j<V.n; j++){ V(i,j)=rand(); } }
-  CPPL::dgematrix V_new;
-  double *tau(new double[V.n]), *work(new double[V.n]);
-  int info, itc(0);
-  
-  //////// loop ////////
-  while(++itc<itmax){
-    //// ortonormalize ////
-    CPPL::dgeqrf_(&V.m, &V.n, V.array, &V.m, tau, work, &V.n, &info);
-    if(info!=0){ std::cerr << "info = " << info << std::endl; }
-    CPPL::dorgqr_(&V.m, &V.n, &V.n, V.array, &V.m, tau, work, &V.n, &info);
-    if(info!=0){ std::cerr << "info = " << info << std::endl; }
-    
-    //// power method ////
-    V_new =A*V;
-    lambda =V_new%V;
-    
-    //// convergence check ////
-    double rmax(0.);
-    for(int k=0; k<V.n; k++){
-      CPPL::dcovector rv( V_new.col(k)/lambda(k) -V.col(k) );
-      rmax =std::max( rmax, fabs(damax(rv)) );
-      if(rmax>eps){ break; }//failed
-    }
-    if(rmax<eps){ break; }//converged
-    
-    //// update ////
-    swap(V,V_new);
-  }
-  std::cerr << "itc=" << itc << std::endl;
-  
-  if(itc<itmax){
-    std::cerr << "[NOTE]@block_subspace_simplest: converged!!!!!!\n" << std::endl;
-    return 0;
-  }
-  else{
-    std::cerr << "[WARNING]@block_subspace_simplest: not converged......\n" << std::endl;
-    return 1;
-  }
-}
-
-//=============================================================================
-/* block subspace itration with projection */
-template <typename MATRIX>
-bool block_subspace_projection
-(
- const MATRIX& A,//a symmetrix matrix
- CPPL::drovector& lambda,
- CPPL::dgematrix& V, //V.m >= V.n
- const double& eps,
- const int& itmax
- )
-{
-  //////// initialization ////////
-  char jobz ='V';
-  char uplo ='L';
-  double *tau =new double[V.n];
-  double *work =new double[V.n];
-  double *work2 =new double[3*V.n-1];
-  int lwork =3*V.n-1;
-  int info;
-  //// make initial V ////
-  srand(time(NULL));
-  for(int i=0; i<V.m; i++){
-    for(int j=0;j<V.n; j++){
-      V(i,j) =double(rand())/double(RAND_MAX);
-    }
-  }
-  
-  //////// loop ////////
-  size_t itc =0;
-  while(++itc<itmax){
-    //// ortonormalize ////
-    CPPL::dgeqrf_(&V.m, &V.n, V.array, &V.m, tau, work, &V.n, &info);
-    if(info!=0){ std::cerr << "[ERROR]dgeqrf_ info = " << info << std::endl; exit(1); }
-    CPPL::dorgqr_(&V.m, &V.n, &V.n, V.array, &V.m, tau, work, &V.n, &info);
-    if(info!=0){ std::cerr << "[ERROR]dorgqr_ info = " << info << std::endl; exit(1); }
-    std::cerr << "V=\n" << V;
-    
-    //// make Schur vectors S ////
-    CPPL::dgematrix S =(t(V)*A)*V;
-    CPPL::dsyev_(&jobz, &uplo, &S.n, S.array, &S.n, lambda.array, work2, &lwork, &info);
-    if(info!=0){ std::cerr << "[ERROR]dsyev_ info = " << info << std::endl; exit(1); }
-    //std::cerr << "lambda = " << lambda << std::endl;
-    
-    //// convergence check ////
-    CPPL::dgematrix lhs =A*V;
-    CPPL::dgematrix tmp =lhs;
-    for(int j=0; j<tmp.n; j++){
-      for(int i=0; i<tmp.m; i++){
-        tmp(i,j) /=lambda(j);
-      }
-    }
-    std::cerr << "tmp=\n" << tmp;
-    double rmax =fabs(damax((tmp-V)));
-    std::cerr << "rmax=" << rmax << std::endl;
-    if(rmax<eps){ break; }//converged
-    
-    //// update ////
-    V =lhs*S;
-  }
-  std::cerr << "itc=" << itc << std::endl;
-  
-  if(itc<itmax){
-    std::cerr << "[NOTE]@block_subspace_projection: converged!!!!!!\n" << std::endl;
-    return 0;
-  }
-  else{
-    std::cerr << "[WARNING]@block_subspace_projection: not converged......\n" << std::endl;
-    return 1;
-  }
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/* block subspace itration with projection and deflation */
-template <typename MATRIX>
-bool block_subspace_projection_deflation
-(
- const MATRIX& A,//a symmetrix matrix
- CPPL::drovector& lambda,
- CPPL::dgematrix& V, //V.m >= V.n
- const double& eps,
- const int& itmax
- )
-{
-  //////// initialization ////////
-  srand(time(NULL));
-  lambda.resize(V.n);
-  CPPL::dgematrix V_yet, AV_yet, Y(V.m,V.n), V_new(V.m,V.n);
-  CPPL::drovector lambda_yet(V.n);
-  double *tau(new double[V.n]), *work(new double[V.n]), *work2(new double[3*V.n-1]);
-  int info, itc(0);
-  int nconv(0);
-  
-  //// make initial V ////
-  for(int i=0; i<V.m; i++){ for(int j=0;j<V.n; j++){ V(i,j)=rand(); } }
-  CPPL::dgeqrf_(&V.m, &V.n, V.array, &V.m, tau, work, &V.n, &info);
-  if(info!=0){ std::cerr << "[ERROR]dgeqrf_ info = " << info << std::endl; exit(1); }
-  CPPL::dorgqr_(&V.m, &V.n, &V.n, V.array, &V.m, tau, work, &V.n, &info);
-  if(info!=0){ std::cerr << "[ERROR]dorgqr_ info = " << info << std::endl; exit(1); }
-  
-  //////// main loop ////////
-  char jobz ='V';
-  char uplo ='L';
-  int lwork =3*V.n-1;
-  while(++itc<itmax){
-    //// make V_yet ////
-    V_yet.resize(V.m, V.n-nconv);
-    for(int j=0; j<V.n-nconv; j++){
-      for(int i=0; i<V.m; i++){
-        V_yet(i,j) =V(i,j);
-      }
-    }
-h    
-    //// power method ////
-    AV_yet =A*V_yet;
-    
-    //// make Y ////
-    for(int j=0; j<V.n-nconv; j++){
-      for(int i=0; i<V.m; i++){
-        Y(i,j) =AV_yet(i,j);
-      }
-    }
-    for(int j=V.n-nconv; j<V.n; j++){
-      for(int i=0; i<V.m; i++){
-        Y(i,j) =V(i,j);
-      }
-    }
-    
-    //// ortonormalize ////
-    CPPL::dgeqrf_(&Y.m, &Y.n, Y.array, &Y.m, tau, work, &Y.n, &info);
-    if(info!=0){ std::cerr << "[ERROR]dgeqrf_ info = " << info << std::endl; exit(1); }
-    CPPL::dorgqr_(&Y.m, &Y.n, &Y.n, Y.array, &Y.m, tau, work, &Y.n, &info);
-    if(info!=0){ std::cerr << "[ERROR]dorgqr_ info = " << info << std::endl; exit(1); }
-    
-    //// remake V_yet ////
-    for(int j=0; j<V.n-nconv; j++){
-      for(int i=0; i<V.m; i++){
-        V_yet(i,j) =Y(i,j);
-      }
-    }
-    
-    //// make Schur vectors S ////
-    CPPL::dgematrix S( t(V_yet)*(A*V_yet) );
-    CPPL::dsyev_(&jobz, &uplo, &S.n, S.array, &S.n, lambda_yet.array, work2, &lwork, &info);
-    
-    if(info!=0){ std::cerr << "[ERROR]dsyev_ info = " << info << std::endl; exit(1); }
-    //std::cerr << "lambda_yet B= " << lambda_yet << std::endl;
-    
-    //// update lambda ////
-    for(int j=0; j<V.n-nconv; j++){
-      lambda(j) =lambda_yet(j);
-    }
-    
-    //// make V_new ////
-    V_yet =V_yet*S;
-    for(int j=0; j<V.n-nconv; j++){
-      for(int i=0; i<V.m; i++){
-        V_new(i,j) =V_yet(i,j);
-      }
-    }
-    for(int j=V.n-nconv; j<V.n; j++){
-      for(int i=0; i<V.m; i++){
-        V_new(i,j) =V(i,j);
-      }
-    }
-    
-    //// convergence check ////
-    int nconv_new(nconv);
-    for(int j=V.n-nconv-1; j>=0; j--){
-      //if( nconv_new>0 ){
-      //std::cerr << "lambda(j)             = " << lambda(j) << std::endl;
-      //std::cerr << "lambda(V.n-nconv_new) = " << lambda(V.n-nconv_new) << std::endl;
-      //}
-      if( nconv_new>0 && lambda(j)>lambda(V.n-nconv_new) ){ break; }//failed
-      CPPL::dcovector rv( V_new.col(j) -V.col(j) );
-      if(fabs(damax(rv))>eps){ break; }//failed
-      nconv_new++;
-    }
-    if(nconv_new==V.n){ break; }//all converged
-    //std::cerr << "nconv_new = " << nconv_new << std::endl;
-    
-    //// update ////
-    V =V_new;
-    nconv =nconv_new;
-  }
-  std::cerr << "itc=" << itc << std::endl;
-  
-  if(itc<itmax){
-    std::cerr << "[NOTE]@block_subspace_projection_deflation: converged!!!!!!\n" << std::endl;
-    return 0;
-  }
-  else{
-    std::cerr << "[WARNING]@block_subspace_projection_deflation: not converged......\n" << std::endl;
-    return 1;
-  }
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-int main(int /*argc*/, char** /*argv*/)
-{
-  std::cout.precision(6);
-  std::cout.setf(std::ios::scientific, std::ios::floatfield);
-  std::cout.setf(std::ios::showpos);
-  std::cerr.precision(6);
-  std::cerr.setf(std::ios::scientific, std::ios::floatfield);
-  std::cerr.setf(std::ios::showpos);
-  
-  //////// objects ////////
-  CPPL::dssmatrix A("K6.dssmatrix");
-  //CPPL::dssmatrix A("K810.dssmatrix");
-  std::cout << "A=\n" << A << std::endl;
-  
-  const int num_of_eigen(3);
-  CPPL::drovector lambda(num_of_eigen);
-  CPPL::dgematrix V(A.m,num_of_eigen);
-  
-  //////// subspace ////////
-  //block_subspace_simplest(A,lambda,V,1e-3,A.m*A.n);//unstable
-  //block_subspace_projection(A,lambda,V,1e-3,A.m*A.n);//better
-  block_subspace_projection_deflation(A,lambda,V,1e-3,A.m*A.n);//YET UNSTABLE!!!!!!!
-  
-  //////// print ////////
-  for(int k=V.n-1; k>=0; k--){
-    std::cout << "lambda(" << k << ") = " << lambda(k) << std::endl;
-    std::cout << "v(" << k << ") = " << t(V.col(k)) << std::flush;
-    //std::cout << "residual=" << t( A*V.col(k)/lambda(k)-V.col(k) ) << std::endl;
-    //std::cout << "nrm2(residual)=" << nrm2( A*V.col(k)/lambda(k)-V.col(k) ) << std::endl;
-    std::cout << std::endl;
-  }
-  
-  std::cout << std::endl << std::endl;
-  
-  //////// verify ////////
-  CPPL::dsymatrix B(A.to_dsymatrix());
-  std::vector<double> w;
-  std::vector<CPPL::dcovector> v;
-  B.dsyev(w,v);
-  for(int k=B.n-1; k>=B.n-V.n; k--){
-    std::cout << "answer lambda[" << k << "] = " << w[k] << std::endl;
-    std::cout << "answer v[" << k << "] = " << t(v[k]) << std::endl;
-  }
-  
-  return 0;
-}
diff --git a/cpplapack-r198/.svn/pristine/27/27788abf4cdbd20a8c722cbc1a98c48239ce5658.svn-base b/cpplapack-r198/.svn/pristine/27/27788abf4cdbd20a8c722cbc1a98c48239ce5658.svn-base
deleted file mode 100644
index 2f645c3..0000000
--- a/cpplapack-r198/.svn/pristine/27/27788abf4cdbd20a8c722cbc1a98c48239ce5658.svn-base
+++ /dev/null
@@ -1,52 +0,0 @@
-//=============================================================================
-/*! zgematrix*=double operator */
-inline zgematrix& zgematrix::operator*=(const double& d)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT size =m*n;
-  CPPL_INT inc =1;
-  zdscal_(&size, &d, array, &inc);
-  return *this;
-}
-
-//=============================================================================
-/*! zgematrix/=double operator */
-inline zgematrix& zgematrix::operator/=(const double& d)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT size =m*n;
-  double dinv =1./d;
-  CPPL_INT inc =1;
-  zdscal_(&size, &dinv, array, &inc);
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zgematrix*double operator */
-inline _zgematrix operator*(const zgematrix& mat, const double& d)
-{CPPL_VERBOSE_REPORT;
-  zgematrix newmat(mat.m, mat.n);
-  
-  const CPPL_INT size =mat.m*mat.n;
-  for(CPPL_INT i=0; i<size; i++){
-    newmat.array[i] =mat.array[i]*d;
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! zgematrix/double operator */
-inline _zgematrix operator/(const zgematrix& mat, const double& d)
-{CPPL_VERBOSE_REPORT;
-  zgematrix newmat(mat.m, mat.n);
-  
-  const CPPL_INT size =mat.m*mat.n;
-  for(CPPL_INT i=0; i<size; i++){
-    newmat.array[i] =mat.array[i]/d;
-  }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/27/27aeef49872ab85f8e8c3e25067f7f0c6c858e08.svn-base b/cpplapack-r198/.svn/pristine/27/27aeef49872ab85f8e8c3e25067f7f0c6c858e08.svn-base
deleted file mode 100644
index 9664fcc..0000000
--- a/cpplapack-r198/.svn/pristine/27/27aeef49872ab85f8e8c3e25067f7f0c6c858e08.svn-base
+++ /dev/null
@@ -1,24 +0,0 @@
-//=============================================================================
-/*! _drovector*dgematrix operator */
-inline _drovector operator*(const _drovector& vec, const dgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vec.l!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These vector and matrix can not make a product." << std::endl
-              << "Your input was (" << vec.l << ") * (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  drovector newvec(mat.n);
-  char trans ='T';
-  double alpha =1.;
-  CPPL_INT inc =1;
-  double beta =0.;
-  
-  dgemv_( &trans, &mat.m, &mat.n, &alpha, mat.array, &mat.m, vec.array, &inc, &beta, newvec.array, &inc );
-  
-  vec.destroy();
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/27/27da72d991bd888f410e98c35c42b62204f099f8.svn-base b/cpplapack-r198/.svn/pristine/27/27da72d991bd888f410e98c35c42b62204f099f8.svn-base
deleted file mode 100644
index b0dcef2..0000000
--- a/cpplapack-r198/.svn/pristine/27/27da72d991bd888f410e98c35c42b62204f099f8.svn-base
+++ /dev/null
@@ -1,71 +0,0 @@
-//=============================================================================
-/*! _dgematrix+_dsymatrix operator */
-inline _dgematrix operator+(const _dgematrix& matA, const _dsymatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<matB.n; i++) {
-    for(CPPL_INT j=0; j<matB.n; j++) {
-      matA(i,j)+=matB(i,j);
-    }
-  }
-  
-  matB.destroy();
-  return matA;
-}
-
-//=============================================================================
-/*! _dgematrix-_dsymatrix operator */
-inline _dgematrix operator-(const _dgematrix& matA, const _dsymatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<matB.n; i++) {
-    for(CPPL_INT j=0; j<matB.n; j++) {
-      matA(i,j)-=matB(i,j);
-    }
-  }
-  
-  matB.destroy();
-  return matA;
-}
-
-//=============================================================================
-/*! _dgematrix*_dsymatrix operator */
-inline _dgematrix operator*(const _dgematrix& matA, const _dsymatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat( matA.m, matB.n );
-  char side ='R';
-  char uplo ='l';
-  double alpha =1.;
-  double beta =0.;
-
-  dsymm_( &side, &uplo, &newmat.m, &newmat.n, &alpha, matB.array, &matB.n, matA.array, &matA.m, &beta, newmat.array, &newmat.m );
-  
-  matA.destroy();
-  matB.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/28/283578f3082fd7df4407df26277a4ce22d2b0605.svn-base b/cpplapack-r198/.svn/pristine/28/283578f3082fd7df4407df26277a4ce22d2b0605.svn-base
deleted file mode 100644
index aa96eea..0000000
--- a/cpplapack-r198/.svn/pristine/28/283578f3082fd7df4407df26277a4ce22d2b0605.svn-base
+++ /dev/null
@@ -1,19 +0,0 @@
-//=============================================================================
-/*! +_zhematrix operator */
-inline const _zhematrix& operator+(const _zhematrix& mat)
-{CPPL_VERBOSE_REPORT;
-  return mat;
-}
-
-//=============================================================================
-/*! -_zhematrix operator */
-inline _zhematrix operator-(const _zhematrix& mat)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT j=0; j<mat.n; j++){
-    for(CPPL_INT i=j; i<mat.n; i++){
-      mat.darray[j][i] =-mat.darray[j][i];
-    }
-  }
-  
-  return mat;
-}
diff --git a/cpplapack-r198/.svn/pristine/28/28e2dad99be8cf8d066d0bd3abddb88820b1a582.svn-base b/cpplapack-r198/.svn/pristine/28/28e2dad99be8cf8d066d0bd3abddb88820b1a582.svn-base
deleted file mode 100644
index d5203f0..0000000
--- a/cpplapack-r198/.svn/pristine/28/28e2dad99be8cf8d066d0bd3abddb88820b1a582.svn-base
+++ /dev/null
@@ -1,52 +0,0 @@
-//=============================================================================
-/*! dgematrix*=double operator */
-inline dgematrix& dgematrix::operator*=(const double& d)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT mn =m*n;
-  CPPL_INT inc =1;
-  dscal_(&mn, &d, array, &inc);
-  return *this;
-}
-
-//=============================================================================
-/*! dgematrix/=double operator */
-inline dgematrix& dgematrix::operator/=(const double& d)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT mn =m*n;
-  double dinv =1./d;
-  CPPL_INT inc =1;
-  dscal_(&mn, &dinv, array, &inc);
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! dgematrix*double operator */
-inline _dgematrix operator*(const dgematrix& mat, const double& d)
-{CPPL_VERBOSE_REPORT;
-  dgematrix newmat(mat.m, mat.n);
-  
-  const CPPL_INT mn =mat.m*mat.n;
-  for(CPPL_INT i=0; i<mn; i++){
-    newmat.array[i] =mat.array[i]*d;
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! dgematrix/double operator */
-inline _dgematrix operator/(const dgematrix& mat, const double& d)
-{CPPL_VERBOSE_REPORT;
-  dgematrix newmat(mat.m, mat.n);
-  
-  const CPPL_INT mn =mat.m*mat.n;
-  for(CPPL_INT i=0; i<mn; i++){
-    newmat.array[i] =mat.array[i]/d;
-  }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/29/292eb3b3aa6af60c8b041dbea78d1f8fe64c9f86.svn-base b/cpplapack-r198/.svn/pristine/29/292eb3b3aa6af60c8b041dbea78d1f8fe64c9f86.svn-base
deleted file mode 100644
index 3031487..0000000
--- a/cpplapack-r198/.svn/pristine/29/292eb3b3aa6af60c8b041dbea78d1f8fe64c9f86.svn-base
+++ /dev/null
@@ -1,27 +0,0 @@
-//=============================================================================
-/*! _zhsmatrix*zcovector operator */
-inline _zcovector operator*(const _zhsmatrix& mat, const zcovector& vec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(mat.n!=vec.l){
-    ERROR_REPORT;
-    std::cerr << "These matrix and vector can not make a product." << std::endl
-              << "Your input was (" << mat.n << "x" << mat.n << ") * (" << vec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zcovector newvec(mat.n);
-  newvec.zero();
-  
-  const std::vector<zcomponent>::const_iterator mat_data_end =mat.data.end();
-  for(std::vector<zcomponent>::const_iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    newvec(it->i) +=it->v*vec(it->j);
-    if(it->i!=it->j){
-      newvec(it->j) +=std::conj(it->v)*vec(it->i);
-    }
-  }
-  
-  mat.destroy();
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/29/2952b9bc84c67c2edd0c0a558a2f1c7e25e9eab0.svn-base b/cpplapack-r198/.svn/pristine/29/2952b9bc84c67c2edd0c0a558a2f1c7e25e9eab0.svn-base
deleted file mode 100644
index 5a00927..0000000
--- a/cpplapack-r198/.svn/pristine/29/2952b9bc84c67c2edd0c0a558a2f1c7e25e9eab0.svn-base
+++ /dev/null
@@ -1,543 +0,0 @@
-%!PS-Adobe-3.0 EPSF-3.0
-%%BoundingBox: 70 496 343 561
-%%Title: dssmatrix-array
-%%CreationDate: Thu Nov  4 02:07:04 2004
-%%Creator: Tgif-4.1.43-QPL written by William Chia-Wei Cheng (bill.cheng@acm.org)
-%%ProducedBy: (unknown)
-%%Pages: 1
-%%DocumentFonts: (atend)
-%%EndComments
-%%BeginProlog
-
-/tgifdict 86 dict def
-tgifdict begin
-
-/tgifellipsedict 6 dict def
-tgifellipsedict /mtrx matrix put
-
-/TGEL % tgifellipse
- { tgifellipsedict begin
-      /yrad exch def
-      /xrad exch def
-      /y exch def
-      /x exch def
-      /savematrix mtrx currentmatrix def
-      x y translate
-      xrad yrad scale
-      0 0 1 0 360 arc
-      savematrix setmatrix
-   end
- } def
-
-/tgifpatdict 10 dict def
-
-/tgifpatbyte
- { currentdict /retstr get exch
-   pat i cellsz mod get put
- } def
-
-/tgifpatproc
- { 0 1 widthlim {tgifpatbyte} for retstr
-   /i i 1 add def
- } def
-
-/TGPF % tgifpatfill
- { tgifpatdict begin
-      /h exch def
-      /w exch def
-      /lty exch def
-      /ltx exch def
-      /cellsz exch def
-      /pat exch def
-
-      /widthlim w cellsz div cvi 1 sub def
-      /retstr widthlim 1 add string def
-      /i 0 def
-
-      tgiforigctm setmatrix
-      ltx lty translate
-      w h true [1 0 0 1 0 0] {tgifpatproc} imagemask
-      ltx neg lty neg translate
-   end
- } def
-
-/pat3 <8000000008000000> def
-/pat4 <8800000022000000> def
-/pat5 <8800220088002200> def
-/pat6 <8822882288228822> def
-/pat7 <aa55aa55aa55aa55> def
-/pat8 <77dd77dd77dd77dd> def
-/pat9 <77ffddff77ffddff> def
-/pat10 <77ffffff77ffffff> def
-/pat11 <7fffffff7fffffff> def
-/pat12 <8040200002040800> def
-/pat13 <40a00000040a0000> def
-/pat14 <ff888888ff888888> def
-/pat15 <ff808080ff080808> def
-/pat16 <f87422478f172271> def
-/pat17 <038448300c020101> def
-/pat18 <081c22c180010204> def
-/pat19 <8080413e080814e3> def
-/pat20 <8040201008040201> def
-/pat21 <8844221188442211> def
-/pat22 <77bbddee77bbddee> def
-/pat23 <c1e070381c0e0783> def
-/pat24 <7fbfdfeff7fbfdfe> def
-/pat25 <3e1f8fc7e3f1f87c> def
-/pat26 <0102040810204080> def
-/pat27 <1122448811224488> def
-/pat28 <eeddbb77eeddbb77> def
-/pat29 <83070e1c3870e0c1> def
-/pat30 <fefdfbf7efdfbf7f> def
-/pat31 <7cf8f1e3c78f1f3e> def
-
-/TGMAX
- { exch dup 3 1 roll exch dup 3 1 roll gt { pop } { exch pop } ifelse
- } def
-/TGMIN
- { exch dup 3 1 roll exch dup 3 1 roll lt { pop } { exch pop } ifelse
- } def
-/TGSW { stringwidth pop } def
-
-/bd { bind def } bind def
-
-/GS { gsave } bd
-/GR { grestore } bd
-/NP { newpath } bd
-/CP { closepath } bd
-/CHP { charpath } bd
-/CT { curveto } bd
-/L { lineto } bd
-/RL { rlineto } bd
-/M { moveto } bd
-/RM { rmoveto } bd
-/S { stroke } bd
-/F { fill } bd
-/TR { translate } bd
-/RO { rotate } bd
-/SC { scale } bd
-/MU { mul } bd
-/DI { div } bd
-/DU { dup } bd
-/NE { neg } bd
-/AD { add } bd
-/SU { sub } bd
-/PO { pop } bd
-/EX { exch } bd
-/CO { concat } bd
-/CL { clip } bd
-/EC { eoclip } bd
-/EF { eofill } bd
-/IM { image } bd
-/IMM { imagemask } bd
-/ARY { array } bd
-/SG { setgray } bd
-/RG { setrgbcolor } bd
-/SD { setdash } bd
-/W { setlinewidth } bd
-/SM { setmiterlimit } bd
-/SLC { setlinecap } bd
-/SLJ { setlinejoin } bd
-/SH { show } bd
-/FF { findfont } bd
-/MS { makefont setfont } bd
-/AR { arcto 4 {pop} repeat } bd
-/CURP { currentpoint } bd
-/FLAT { flattenpath strokepath clip newpath } bd
-/TGSM { tgiforigctm setmatrix } def
-/TGRM { savematrix setmatrix } def
-
-end
-
-%%EndProlog
-%%Page: 1 1
-
-%%PageBoundingBox: 70 496 343 561
-tgifdict begin
-/tgifsavedpage save def
-
-1 SM
-1 W
-
-0 SG
-
-72 0 MU 72 8.203 MU TR
-72 128 DI 100.000 MU 100 DI DU NE SC
-
-GS
-
-/tgiforigctm matrix currentmatrix def
-
-% BOX
-0 SG
-GS
-   10 SM
-   GS
-      NP 552 128 M 608 128 L 608 164 L 552 164 L CP
-      S
-   GR
-GR
-
-% BOX
-0 SG
-GS
-   10 SM
-   GS
-      NP 452 128 M 508 128 L 508 164 L 452 164 L CP
-      S
-   GR
-GR
-
-% BOX
-0 SG
-GS
-   NP 396 128 M 452 128 L 452 164 L 396 164 L CP EC NP
-   pat5 8 392 120 64 48 TGPF
-GR
-GS
-   10 SM
-   GS
-      NP 396 128 M 452 128 L 452 164 L 396 164 L CP
-      S
-   GR
-GR
-
-% BOX
-0 SG
-GS
-   NP 340 128 M 396 128 L 396 164 L 340 164 L CP EC NP
-   pat5 8 336 120 64 48 TGPF
-GR
-GS
-   10 SM
-   GS
-      NP 340 128 M 396 128 L 396 164 L 340 164 L CP
-      S
-   GR
-GR
-
-% BOX
-0 SG
-GS
-   NP 240 128 M 296 128 L 296 164 L 240 164 L CP EC NP
-   pat5 8 232 120 72 48 TGPF
-GR
-GS
-   10 SM
-   GS
-      NP 240 128 M 296 128 L 296 164 L 240 164 L CP
-      S
-   GR
-GR
-
-% BOX
-0 SG
-GS
-   NP 184 128 M 240 128 L 240 164 L 184 164 L CP EC NP
-   pat5 8 176 120 72 48 TGPF
-GR
-GS
-   10 SM
-   GS
-      NP 184 128 M 240 128 L 240 164 L 184 164 L CP
-      S
-   GR
-GR
-
-% BOX
-0 SG
-GS
-   NP 128 128 M 184 128 L 184 164 L 128 164 L CP EC NP
-   pat5 8 120 120 72 48 TGPF
-GR
-GS
-   10 SM
-   GS
-      NP 128 128 M 184 128 L 184 164 L 128 164 L CP
-      S
-   GR
-GR
-
-% TEXT
-NP
-0 SG
-   GS
-      1 W
-      156 152 M
-      GS
-        GS
-        0
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (0) TGSW 
-        AD
-        GR
-      2 DI NE 0 RM
-            0 SG
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (0) SH
-      GR
-   GR
-
-% TEXT
-NP
-0 SG
-   GS
-      1 W
-      212 152 M
-      GS
-        GS
-        0
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (1) TGSW 
-        AD
-        GR
-      2 DI NE 0 RM
-            0 SG
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (1) SH
-      GR
-   GR
-
-% TEXT
-NP
-0 SG
-   GS
-      1 W
-      268 152 M
-      GS
-        GS
-        0
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (2) TGSW 
-        AD
-        GR
-      2 DI NE 0 RM
-            0 SG
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (2) SH
-      GR
-   GR
-
-% TEXT
-NP
-0 SG
-   GS
-      1 W
-      368 152 M
-      GS
-        GS
-        0
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (vol-2) TGSW 
-        AD
-        GR
-      2 DI NE 0 RM
-            0 SG
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (vol-2) SH
-      GR
-   GR
-
-% TEXT
-NP
-0 SG
-   GS
-      1 W
-      580 152 M
-      GS
-        GS
-        0
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (cap-1) TGSW 
-        AD
-        GR
-      2 DI NE 0 RM
-            0 SG
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (cap-1) SH
-      GR
-   GR
-
-% OVAL
-0 SG
-NP 306 146 2 2 TGEL F
-GS
-   GS
-      NP 306 146 2 2 TGEL
-      3 W
-      S
-   GR
-GR
-
-% OVAL
-0 SG
-NP 318 146 2 2 TGEL F
-GS
-   GS
-      NP 318 146 2 2 TGEL
-      3 W
-      S
-   GR
-GR
-
-% OVAL
-0 SG
-NP 330 146 2 2 TGEL F
-GS
-   GS
-      NP 330 146 2 2 TGEL
-      3 W
-      S
-   GR
-GR
-
-% TEXT
-NP
-0 SG
-   GS
-      1 W
-      424 152 M
-      GS
-        GS
-        0
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (vol-1) TGSW 
-        AD
-        GR
-      2 DI NE 0 RM
-            0 SG
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (vol-1) SH
-      GR
-   GR
-
-% TEXT
-NP
-0 SG
-   GS
-      1 W
-      480 152 M
-      GS
-        GS
-        0
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (vol) TGSW 
-        AD
-        GR
-      2 DI NE 0 RM
-            0 SG
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (vol) SH
-      GR
-   GR
-
-% OVAL
-0 SG
-NP 518 146 2 2 TGEL F
-GS
-   GS
-      NP 518 146 2 2 TGEL
-      3 W
-      S
-   GR
-GR
-
-% OVAL
-0 SG
-NP 530 146 2 2 TGEL F
-GS
-   GS
-      NP 530 146 2 2 TGEL
-      3 W
-      S
-   GR
-GR
-
-% OVAL
-0 SG
-NP 542 146 2 2 TGEL F
-GS
-   GS
-      NP 542 146 2 2 TGEL
-      3 W
-      S
-   GR
-GR
-
-% POLY/OPEN-SPLINE
-0 SG
-GS
-   NP
-      128 124 M
-      128 116 L
-      452 116 L
-      452 124 L
-   TGSM
-   2 W
-   S
-   1 W
-GR
-
-% TEXT
-NP
-0 SG
-   GS
-      1 W
-      288 112 M
-      GS
-        GS
-        0
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (Effective Data) TGSW 
-        AD
-        GR
-      2 DI NE 0 RM
-            0 SG
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (Effective Data) SH
-      GR
-   GR
-
-% POLY/OPEN-SPLINE
-0 SG
-GS
-   NP
-      128 96 M
-      128 76 L
-      608 76 L
-      608 96 L
-   TGSM
-   2 W
-   S
-   1 W
-GR
-
-% TEXT
-NP
-0 SG
-   GS
-      1 W
-      368 72 M
-      GS
-        GS
-        0
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (Data Capacity) TGSW 
-        AD
-        GR
-      2 DI NE 0 RM
-            0 SG
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (Data Capacity) SH
-      GR
-   GR
-
-GR
-tgifsavedpage restore
-end
-showpage
-
-%%Trailer
-%MatchingCreationDate: Thu Nov  4 02:07:04 2004
-%%DocumentFonts: Helvetica
-%%EOF
diff --git a/cpplapack-r198/.svn/pristine/29/29ec0c4812990d83aedf5a708fbad86907fd1541.svn-base b/cpplapack-r198/.svn/pristine/29/29ec0c4812990d83aedf5a708fbad86907fd1541.svn-base
deleted file mode 100644
index 3cba9c1..0000000
--- a/cpplapack-r198/.svn/pristine/29/29ec0c4812990d83aedf5a708fbad86907fd1541.svn-base
+++ /dev/null
@@ -1,12 +0,0 @@
-//=============================================================================
-/*! double*_dsymatrix operator */
-inline _dsymatrix operator*(const double& d, const _dsymatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT j=0; j<mat.n; j++){
-    for(CPPL_INT i=j; i<mat.n; i++){
-      mat.darray[j][i] *=d;
-    }
-  }
-  
-  return mat;
-}
diff --git a/cpplapack-r198/.svn/pristine/2a/2a621cd6c1b6995fc5723a65d270dd1a631beb78.svn-base b/cpplapack-r198/.svn/pristine/2a/2a621cd6c1b6995fc5723a65d270dd1a631beb78.svn-base
deleted file mode 100644
index f1aa5a9..0000000
--- a/cpplapack-r198/.svn/pristine/2a/2a621cd6c1b6995fc5723a65d270dd1a631beb78.svn-base
+++ /dev/null
@@ -1,12 +0,0 @@
-//=============================================================================
-/*! double*zcovector operator */
-inline _zcovector operator*(const double& d, const zcovector& vec)
-{CPPL_VERBOSE_REPORT;
-  zcovector newvec(vec.l);
-  
-  for(CPPL_INT i=0; i<vec.l; i++){
-    newvec.array[i] =d*vec.array[i];
-  }
-  
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/2b/2b6f12daf4dfe0901aa8aee173f2b7875362156b.svn-base b/cpplapack-r198/.svn/pristine/2b/2b6f12daf4dfe0901aa8aee173f2b7875362156b.svn-base
deleted file mode 100644
index a90254a..0000000
--- a/cpplapack-r198/.svn/pristine/2b/2b6f12daf4dfe0901aa8aee173f2b7875362156b.svn-base
+++ /dev/null
@@ -1,88 +0,0 @@
-<p>
-Let A, B, C, and X be the dgematrix objects, 
-and A, B, and C be the same size and initialized properly. 
-</p>
-
-<!---------------------------------------------------------------------------->
-<center><table border="3">
-<caption align="top">
-Calculation Procedures to Process "X=A*B+C;"</caption>
-<tr>
-  <td></td>
-  <td>CPPLapack</td>
-  <td>ordinary matrix libraries</td>
-</tr>
-
-<tr>
-  <td>operator*</td>
-  <td>calculate A*B, and put it to a local _dgematrix object P to return</td>
-  <td>calculate A*B, and put it to a local  dgematrix object P to return</td>
-</tr>
-
-<tr>
-  <td>passing of returned object</td>
-  <td>make a temporary _dgematrix object Q as the shallow copy of P</td>
-  <td>make a temporary  dgematrix object Q as the    deep copy of P</td>
-</tr>
-
-<tr>
-  <td>destructor for local object</td>
-  <td>destruct local object P without deleting the array data</td>
-  <td>destruct local object P    with deleting the array data</td>
-</tr>
-
-<tr>
-  <td>operator+</td>
-  <td>add C into Q, and return Q.</td>
-  <td>calculate C+Q and, put it to a local dgematrix object R to return.</td>
-</tr>
-
-<tr>
-  <td>passing of returned object</td>
-  <td>make a temporary _dgematrix object R as the shallow copy of Q</td>
-  <td>make a temporary  dgematrix object S as the    deep copy of R</td>
-</tr>
-
-<tr>
-  <td>destructor for local object</td>
-  <td>destruct local object Q without deleting the array data</td>
-  <td>destruct local object R    with deleting the array data</td>
-</tr>
-
-<tr>
-  <td>operator=</td>
-  <td>set the array address of X to that of R</td>
-  <td>copy whole the data of S to X</td>
-</tr>
-
-<tr>
-  <td>implicit destructer (;)</td>
-  <td>destruct the temporary object R without deleting the array data</td>
-  <td>destruct the temporary objects Q and S with deleting the array data</td>
-</tr>
-
-</table></center>
-<!---------------------------------------------------------------------------->
-
-<p>
-CPPLapack does not consume any extra memory space 
-using its original "Smart-Temporary" system.
-On the other hand, ordinary matrix libraries always generate useless 
-temporary objects implicitly and consume a lot of extra memory space.
-CPPLapack is efficient not only in computing speed 
-but also in saving memory space.
-</p>
-
-
-<p>
-[NOTE]
-Recent advanced compilers automatically optimize 
-the way of passing returned objects. 
-The steps shown above is the case of the most primitive compiler. 
-The performance of ordinary matrix libraries using advanced compilers
-becomes close to the performance of CPPLapack.
-However, CPPLapack still has some advantages in terms of 
-the stepwise elimination, minimization of the number of temporary objects,
-and so on.
-</p>
-
diff --git a/cpplapack-r198/.svn/pristine/2b/2be10ba837cf4ad0ffabe9ea9c987061e74f5495.svn-base b/cpplapack-r198/.svn/pristine/2b/2be10ba837cf4ad0ffabe9ea9c987061e74f5495.svn-base
deleted file mode 100644
index c39e555..0000000
--- a/cpplapack-r198/.svn/pristine/2b/2be10ba837cf4ad0ffabe9ea9c987061e74f5495.svn-base
+++ /dev/null
@@ -1,37 +0,0 @@
-//=============================================================================
-/*! _dgbmatrix constructor */
-inline _dgbmatrix::_dgbmatrix()
-{CPPL_VERBOSE_REPORT;
-  m =0;
-  n =0;
-  kl =0;
-  ku =0;
-  array =NULL;
-  darray =NULL;
-}
-
-//=============================================================================
-/*! _dgbmatrix copy constructor */
-inline _dgbmatrix::_dgbmatrix(const _dgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  m =mat.m;
-  n =mat.n;
-  kl =mat.kl;
-  ku =mat.ku;
-  array =mat.array;
-  darray =mat.darray;
-  
-  mat.nullify();
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! _dgbmatrix destructor */
-inline _dgbmatrix::~_dgbmatrix()
-{CPPL_VERBOSE_REPORT;
-  delete[] array;
-  delete[] darray;
-}
diff --git a/cpplapack-r198/.svn/pristine/2b/2bf67a858516cf7d96ce5e858ce5139e562a4f1c.svn-base b/cpplapack-r198/.svn/pristine/2b/2bf67a858516cf7d96ce5e858ce5139e562a4f1c.svn-base
deleted file mode 100644
index 0e8b598..0000000
--- a/cpplapack-r198/.svn/pristine/2b/2bf67a858516cf7d96ce5e858ce5139e562a4f1c.svn-base
+++ /dev/null
@@ -1,73 +0,0 @@
-//=============================================================================
-/*! _zgsmatrix+zgematrix operator */
-/*
-inline _zgematrix operator+(const _zgsmatrix& matA, const zgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(matB);
-  for(CPPL_INT c=0; c<matA.vol; c++){
-    newmat(matA.indx[c],matA.jndx[c]) += matA.array[c];
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
-*/
-//=============================================================================
-/*! _zgsmatrix-zgematrix operator */
-/*
-inline _zgematrix operator-(const _zgsmatrix& matA, const zgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") - (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  zgematrix newmat(-matB);
-  for(CPPL_INT c=0; c<matA.vol; c++){
-    newmat(matA.indx[c],matA.jndx[c]) += matA.array[c];
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
-*/
-//=============================================================================
-/*! _zgsmatrix*zgematrix operator */
-/*
-inline _zgematrix operator*(const _zgsmatrix& matA, const zgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(matA.m, matB.n);
-  newmat.zero();
-  
-  for(CPPL_INT c=0; c<matA.vol; c++){
-    for(CPPL_INT j=0; j<matB.n; j++){
-      newmat(matA.indx[c],j) += matA.array[c]*matB(matA.jndx[c],j);
-    }
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
-*/
diff --git a/cpplapack-r198/.svn/pristine/2c/2c46db2c0d06cbc4b1393dec7f38c42fc8076f2e.svn-base b/cpplapack-r198/.svn/pristine/2c/2c46db2c0d06cbc4b1393dec7f38c42fc8076f2e.svn-base
deleted file mode 100644
index 3ddffb8..0000000
--- a/cpplapack-r198/.svn/pristine/2c/2c46db2c0d06cbc4b1393dec7f38c42fc8076f2e.svn-base
+++ /dev/null
@@ -1,19 +0,0 @@
-//=============================================================================
-/*! nullify all the matrix data */
-inline void _zgematrix::nullify() const
-{CPPL_VERBOSE_REPORT;
-  m=0;
-  n=0;
-  array=NULL;
-  darray=NULL;
-}
-
-//=============================================================================
-/*! destroy all the matrix data */
-inline void _zgematrix::destroy() const
-{CPPL_VERBOSE_REPORT;
-  delete [] array;
-  delete [] darray;
-  array=NULL;
-  darray=NULL;
-}
diff --git a/cpplapack-r198/.svn/pristine/2c/2c7c22484ba72868dd47e115b37f350fc3c72ac8.svn-base b/cpplapack-r198/.svn/pristine/2c/2c7c22484ba72868dd47e115b37f350fc3c72ac8.svn-base
deleted file mode 100644
index 531e5a5..0000000
--- a/cpplapack-r198/.svn/pristine/2c/2c7c22484ba72868dd47e115b37f350fc3c72ac8.svn-base
+++ /dev/null
@@ -1,69 +0,0 @@
-//=============================================================================
-/*! _dgematrix+_dgematrix operator */
-inline _dgematrix operator+(const _dgematrix& matA, const _dgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  const CPPL_INT mn =matA.m*matA.n;
-  for(CPPL_INT i=0; i<mn; i++){
-    matA.array[i]+=matB.array[i];
-  }
-
-  matB.destroy();
-  return matA;
-}
-
-//=============================================================================
-/*! _dgematrix-_dgematrix operator */
-inline _dgematrix operator-(const _dgematrix& matA, const _dgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") - (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  const CPPL_INT mn =matA.m*matA.n;
-  for(CPPL_INT i=0; i<mn; i++){
-    matA.array[i]-=matB.array[i];
-  }
-  
-  matB.destroy();
-  return matA;
-}
-
-//=============================================================================
-/*! _dgematrix*_dgematrix operator */
-inline _dgematrix operator*(const _dgematrix& matA, const _dgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat( matA.m, matB.n );
-  char transa ='n';
-  char transb ='n';
-  double alpha =1.;
-  double beta =0.;
-  
-  dgemm_( &transa, &transb, &matA.m, &matB.n, &matA.n, &alpha, matA.array, &matA.m, matB.array, &matB.m, &beta, newmat.array, &matA.m );
-  
-  matA.destroy();
-  matB.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/2c/2c85e0e11bf1860dcbe434890264e9e0910262c8.svn-base b/cpplapack-r198/.svn/pristine/2c/2c85e0e11bf1860dcbe434890264e9e0910262c8.svn-base
deleted file mode 100644
index a1f3c49..0000000
--- a/cpplapack-r198/.svn/pristine/2c/2c85e0e11bf1860dcbe434890264e9e0910262c8.svn-base
+++ /dev/null
@@ -1,52 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <ctime>
-#include "cpplapack.h"
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int N(5);
-  
-  //////// A ////////
-  CPPL::dssmatrix A(N);
-  A.put(0,0, 1.);
-  A.put(3,2, 2.);
-  A.put(1,3, 3.);
-  A.put(3,4, 4.);
-  A.put(1,2, 5.);
-  A.put(2,2, 6.);
-  A.put(4,1, 7.);
-  A.put(1,1, 8.);
-  std::cout << "A =\n" << A << std::endl;
-  
-  //////// B ////////
-  CPPL::dssmatrix B(A);
-  for(int i=0; i<B.n; i++){
-    B.del(i,i);
-  }
-  std::cout << "B =\n" << B << std::endl;
-  
-  //////// reorder A ////////
-  //A.checkup();
-  std::cout << "==============================================" << std::endl;
-  A.reorder(0);
-  A.checkup();
-
-  std::cout << "##############################################" << std::endl;
-
-  //////// reorder B ////////
-  //B.checkup();
-  std::cout << "==============================================" << std::endl;
-  B.reorder(1);
-  B.checkup();
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/2c/2ce0ac4e236c8ba3ee5c4f25c4574dc36d1da324.svn-base b/cpplapack-r198/.svn/pristine/2c/2ce0ac4e236c8ba3ee5c4f25c4574dc36d1da324.svn-base
deleted file mode 100644
index d1ccf1e..0000000
--- a/cpplapack-r198/.svn/pristine/2c/2ce0ac4e236c8ba3ee5c4f25c4574dc36d1da324.svn-base
+++ /dev/null
@@ -1,328 +0,0 @@
-//=============================================================================
-/*! clear all the matrix data and set the sizes 0 */
-inline void zgsmatrix::clear()
-{CPPL_VERBOSE_REPORT;
-  m =0;
-  n =0;
-  data.clear();
-  rows.clear();
-  cols.clear();
-}
-
-//=============================================================================
-/*! change the matrix into a zero matrix */
-inline zgsmatrix& zgsmatrix::zero()
-{CPPL_VERBOSE_REPORT;
-  data.resize(0);
-  for(CPPL_INT i=0; i<m; i++){ rows[i].resize(0); }
-  for(CPPL_INT j=0; j<n; j++){ cols[j].resize(0); }
-  return *this;
-}
-
-//=============================================================================
-/*! change the matrix into an identity matrix */
-inline zgsmatrix& zgsmatrix::identity()
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(m!=n){
-    ERROR_REPORT;
-    std::cerr << "Only square matrix can be a identity matrix." << std::endl
-              << "The matrix size was " << m << "x" << n << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zero();
-  for(CPPL_INT i=0; i<m; i++){
-    put(i,i, comple(1.,0.));
-  }
-  return *this;
-}
-
-//=============================================================================
-/*! change sign(+/-) of the matrix */
-inline void zgsmatrix::chsign()
-{CPPL_VERBOSE_REPORT;
-  const std::vector<zcomponent>::iterator data_end =data.end();
-  for(std::vector<zcomponent>::iterator it=data.begin(); it!=data_end; it++){
-    it->v =-it->v;
-  }
-}
-
-//=============================================================================
-/*! make a deep copy of the matrix */
-inline void zgsmatrix::copy(const zgsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  m =mat.m;
-  n =mat.n;
-  data =mat.data;
-  rows =mat.rows;
-  cols =mat.cols;
-}
-
-//=============================================================================
-/*! make a shallow copy of the matrix\n
-  This function is not designed to be used in project codes. */
-inline void zgsmatrix::shallow_copy(const _zgsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  data.clear();
-  rows.clear();
-  cols.clear();
-
-  m =mat.m;
-  n =mat.n;
-  data.swap(mat.data);
-  rows.swap(mat.rows);
-  cols.swap(mat.cols);
-
-  mat.nullify();
-}
-
-//=============================================================================
-/*! resize the matrix */
-inline zgsmatrix& zgsmatrix::resize(const CPPL_INT& _m, const CPPL_INT& _n, const CPPL_INT _c, const CPPL_INT _l)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( _m<0 || _n<0 || _c<0 ){
-    ERROR_REPORT;
-    std::cerr << "Matrix sizes and the length of arrays must be positive integers. " << std::endl
-              << "Your input was (" << _m << "," << _n << "," << _c << "," << _l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  m =_m;
-  n =_n;
-  data.resize(0);
-  data.reserve(_c);
-  rows.resize(m);
-  for(CPPL_INT i=0; i<m; i++){
-    rows[i].resize(0);
-    rows[i].reserve(_l);
-  }
-  cols.resize(n);
-  for(CPPL_INT i=0; i<n; i++){
-    cols[i].resize(0);
-    cols[i].reserve(_l);
-  }
-  
-  return *this;
-}
-
-//=============================================================================
-/*! stretch the matrix size */
-inline void zgsmatrix::stretch(const CPPL_INT& dm, const CPPL_INT& dn)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( m+dm<0 || n+dn<0 ){
-    ERROR_REPORT;
-    std::cerr << "The new matrix size must be larger than zero. " << std::endl
-              << "Your input was (" << dm << ", " << dn << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //////// zero ////////
-  if(dm==0 && dn==0){ return; }
-  
-  //////// non-zero ////////
-  m +=dm;
-  n +=dn;
-  
-  //// for rows ////
-  if(dm<0){
-    //// delete components over the new size ////
-    const std::vector<zcomponent>::reverse_iterator data_rend =data.rend();
-    for(std::vector<zcomponent>::reverse_iterator it=data.rbegin(); it!=data_rend; it++){
-      if( it->i>=m ){ del( CPPL_INT(data_rend-it-1) ); }
-    }
-    //// shrink rows ////
-    for(CPPL_INT i=0; i<-dm; i++){
-      rows.pop_back();
-    }
-  }
-  else{//dm>0
-    //// expand rows ////
-    for(CPPL_INT i=0; i<dm; i++){
-      rows.push_back( std::vector<CPPL_INT>(0) );
-    }
-  }
-
-  //// for cols ////
-  if(dn<0){
-    //// delete components over the new size ////
-    const std::vector<zcomponent>::reverse_iterator data_rend =data.rend();
-    for(std::vector<zcomponent>::reverse_iterator it=data.rbegin(); it!=data_rend; it++){
-      if( it->j>=n ){ del( CPPL_INT(data_rend-it-1) ); }
-    }
-    for(CPPL_INT j=0; j<-dn; j++){
-      cols.pop_back();
-    }
-  }
-  else{//dn>0
-    //// expand cols ////
-    for(CPPL_INT j=0; j<dn; j++){
-      cols.push_back( std::vector<CPPL_INT>(0) );
-    }
-  }
-}
-
-//=============================================================================
-/*! check if the component is listed */
-inline bool zgsmatrix::isListed(const CPPL_INT& i, const CPPL_INT& j)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || j<0 || m<=i || n<=j ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the matrix size." << std::endl
-              << "Your input is (" << i << "," << j << "), whereas the matrix size is " << m << "x" << n << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  const std::vector<CPPL_INT>::const_iterator rows_i_end =rows[i].end();
-  for(std::vector<CPPL_INT>::const_iterator p=rows[i].begin(); p!=rows_i_end; p++){
-    if( data[*p].j==j ){ return 1; }
-  }
-  
-  return 0;
-}
-
-//=============================================================================
-/*! return the element number of the component */
-inline CPPL_INT zgsmatrix::number(const CPPL_INT& i, const CPPL_INT& j)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || j<0 || m<=i || n<=j ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the matrix size." << std::endl
-              << "Your input is (" << i << "," << j << "), whereas the matrix size is " << m << "x" << n << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  const std::vector<CPPL_INT>::iterator rows_i_end =rows[i].end();
-  for(std::vector<CPPL_INT>::iterator p=rows[i].begin(); p!=rows_i_end; p++){
-    if( data[*p].j==j ){ return *p; }
-  }
-  
-  return -1;
-}
-
-//=============================================================================
-/*! erase components less than DBL_MIN */
-inline void zgsmatrix::diet(const double eps)
-{CPPL_VERBOSE_REPORT;
-  const std::vector<zcomponent>::reverse_iterator data_rend =data.rend();
-  for(std::vector<zcomponent>::reverse_iterator it=data.rbegin(); it!=data_rend; it++){
-    if( fabs(it->v.real())<eps && fabs(it->v.imag())<eps ){ del( CPPL_INT(data_rend-it-1) ); }
-  }
-}
-
-//=============================================================================
-/*! health checkup */
-inline void zgsmatrix::checkup()
-{CPPL_VERBOSE_REPORT;
-  //////////////// data ////////////////
-  //////// check i,j ////////
-  const std::vector<zcomponent>::const_iterator data_end =data.end();
-  for(std::vector<zcomponent>::const_iterator it=data.begin(); it!=data_end; it++){
-    if( it->i>=m || it->j>=n ){
-      ERROR_REPORT;
-      std::cerr << "A component, (" << it->i << ", " << it->j << "), is out of matrix size." << std::endl;
-      exit(1);
-    }
-  }
-  //////// check double listing ////////
-  
-  //////////////// rows ////////////////
-  //////////////// cols ////////////////
-  
-  //////////////// NOTE ////////////////
-  std::cerr << "# [NOTE] zgsmatrix::checkup(): This sparse matrix is fine." << std::endl;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! get row of the matrix */
-inline _zrovector zgsmatrix::row(const CPPL_INT& _m) const
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( _m<0 || _m>m ){
-    ERROR_REPORT;
-    std::cerr << "Input row number must be between 0 and " << m << "." << std::endl
-              << "Your input was " << _m << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zrovector vec( zrovector(n).zero() );
-  
-  const std::vector<CPPL_INT>::const_iterator rows__m_end =rows[_m].end();
-  for(std::vector<CPPL_INT>::const_iterator p=rows[_m].begin(); p!=rows__m_end; p++){
-    vec(data[*p].j) =data[*p].v;
-  }
-  
-  return _(vec);
-}
-
-//=============================================================================
-/*! get column of the matrix */
-inline _zcovector zgsmatrix::col(const CPPL_INT& _n) const
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( _n<0 || _n>n ){
-    ERROR_REPORT;
-    std::cerr << "Input row number must be between 0 and " << n << "." << std::endl
-              << "Your input was " << _n << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zcovector vec( zcovector(m).zero() );
-  
-  const std::vector<CPPL_INT>::const_iterator cols__n_end =cols[_n].end();
-  for(std::vector<CPPL_INT>::const_iterator p=cols[_n].begin(); p!=cols__n_end; p++){
-    vec(data[*p].i) =data[*p].v;
-  }
-  
-  return _(vec);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! swap two matrices */
-inline void swap(zgsmatrix& A, zgsmatrix& B)
-{CPPL_VERBOSE_REPORT;
-  std::swap(A.n,B.n);
-  std::swap(A.m,B.m);
-  std::swap(A.data,B.data);
-  std::swap(A.rows,B.rows);
-  std::swap(A.cols,B.cols);
-}
-
-//=============================================================================
-/*! convert user object to smart-temporary object */
-inline _zgsmatrix _(zgsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  _zgsmatrix newmat;
-  
-  //////// shallow copy ////////
-  newmat.n =mat.n;
-  newmat.m =mat.m;
-  std::swap(newmat.data,mat.data);
-  std::swap(newmat.rows,mat.rows);
-  std::swap(newmat.cols,mat.cols);
-
-  //////// nullify ////////
-  mat.m =0;
-  mat.n =0;
-  
-  return newmat;
-}
diff --git a/cpplapack-r198/.svn/pristine/2c/2ceccfcd981b0195a84f1f0f188258e8de1eb2db.svn-base b/cpplapack-r198/.svn/pristine/2c/2ceccfcd981b0195a84f1f0f188258e8de1eb2db.svn-base
deleted file mode 100644
index efa2f65..0000000
--- a/cpplapack-r198/.svn/pristine/2c/2ceccfcd981b0195a84f1f0f188258e8de1eb2db.svn-base
+++ /dev/null
@@ -1,100 +0,0 @@
-//=============================================================================
-//! Samll Real Double-precision General Dence Matrix Class
-template<CPPL_INT m, CPPL_INT n> class dgematrix_small
-{
-public:
-  ///////////////////////////////////////////////
-  /////////////////// objects ///////////////////
-  ///////////////////////////////////////////////
-  double array[m*n]; //!< 1D array to store vector data
-  
-  ///////////////////////////////////////////////
-  ///////////////// constructors ////////////////
-  ///////////////////////////////////////////////
-  inline dgematrix_small();
-  inline explicit dgematrix_small(const dgematrix&);
-  inline ~dgematrix_small();
-  
-  ///////////////////////////////////////////////
-  ////////////////// functions //////////////////
-  ///////////////////////////////////////////////
-  //////// cast ////////
-  inline _dgematrix to_dgematrix() const;
-  
-  //////// io ////////
-  inline double& operator()(const CPPL_INT& i, const CPPL_INT& j);
-  inline double  operator()(const CPPL_INT& i, const CPPL_INT& j) const;
-  inline dgematrix_small<m,n>& set(const CPPL_INT& i, const CPPL_INT& j, const double& v);
-  template<CPPL_INT _m, CPPL_INT _n> inline friend std::ostream& operator<<(std::ostream&, const dgematrix_small<_m,_n>&);
-  inline void read(const char* filename);
-  inline void write(const char* filename) const;
-  
-  //////// calc ////////
-#ifndef _MSC_VER
-  template<CPPL_INT _m, CPPL_INT _n> inline friend dgematrix_small<n,m> t(const dgematrix_small<m,n>&);
-  template<CPPL_INT _m, CPPL_INT _n> inline friend void idamax(CPPL_INT&, CPPL_INT&, const dgematrix_small&);
-  template<CPPL_INT _m, CPPL_INT _n> inline friend double damax(const dgematrix_small&);
-#endif//_MSC_VER
-  
-  //////// misc ////////
-  inline dgematrix_small<m,n>& zero();
-  inline dgematrix_small<m,n>& identity();
-  inline dcovector_small<m> col(const CPPL_INT& j) const;
-  inline drovector_small<n> row(const CPPL_INT& i) const;
-
-  ///////////////////////////////////////////////
-  ///////////// numerical operators /////////////
-  ///////////////////////////////////////////////
-#ifndef _MSC_VER
-  //////// = ////////
-  template<CPPL_INT M, CPPL_INT N> inline dgematrix_small<M,N>& operator=(const dgematrix_small<M,N>&);
-  //////// += ////////
-  template<CPPL_INT M, CPPL_INT N> inline friend dgematrix_small<M,N>& operator+=(dgematrix_small<M,N>&, const dgematrix_small<M,N>&);
-  //////// -= ////////
-  template<CPPL_INT M, CPPL_INT N> inline friend dgematrix_small<M,N>& operator-=(dgematrix_small<M,N>&, const dgematrix_small<M,N>&);
-  //////// *= ////////
-  template<CPPL_INT M, CPPL_INT L, CPPL_INT N> inline friend dgematrix_small<M,N>& operator*=(dgematrix_small<M,L>&, const dgematrix_small<L,N>&);
-  template<CPPL_INT M, CPPL_INT N> inline friend dgematrix_small<M,N>& operator*=(dgematrix_small<M,N>&, const dsymatrix_small< N >&);
-  template<CPPL_INT M, CPPL_INT N> inline friend dgematrix_small<M,N>& operator*=(dgematrix_small<M,N>&, const               double&);
-  //////// /= ////////
-  template<CPPL_INT M, CPPL_INT N> inline friend dgematrix_small<M,N>& operator/=(dgematrix_small<M,N>&, const               double&);
-  //////// unary ////////
-  template<CPPL_INT M, CPPL_INT N> inline friend const dgematrix_small<M,N>& operator+(const dgematrix_small<M,N>&);
-  template<CPPL_INT M, CPPL_INT N> inline friend dgematrix_small<M,N> operator-(const dgematrix_small<M,N>&);
-  //////// + ////////
-  template<CPPL_INT M, CPPL_INT N> inline friend dgematrix_small<M,N> operator+(const dgematrix_small<M,N>&, const dgematrix_small<M,N>&);
-  template<CPPL_INT M, CPPL_INT N> inline friend dgematrix_small<M,N> operator+(const dgematrix_small<M,N>&, const dsymatrix_small< N >&);
-  //////// - ////////
-  template<CPPL_INT M, CPPL_INT N> inline friend dgematrix_small<M,N> operator-(const dgematrix_small<M,N>&, const dgematrix_small<M,N>&);
-  template<CPPL_INT M, CPPL_INT N> inline friend dgematrix_small<M,N> operator-(const dgematrix_small<M,N>&, const dsymatrix_small< N >&);
-  //////// * ////////
-  template<CPPL_INT M, CPPL_INT N> inline friend dcovector_small< M > operator*(const dgematrix_small<M,N>&, const dcovector_small< N >&);
-  template<CPPL_INT M, CPPL_INT L, CPPL_INT N> inline friend dgematrix_small<M,N> operator*(const dgematrix_small<M,L>&, const dgematrix_small<L,N>&);
-  template<CPPL_INT M, CPPL_INT N> inline friend dgematrix_small<M,N> operator*(const dgematrix_small<M,N>&, const dsymatrix_small< N >&);
-  template<CPPL_INT M, CPPL_INT N> inline friend dgematrix_small<M,N> operator*(const dgematrix_small<M,N>&, const               double&);
-  //////// / ////////
-  template<CPPL_INT M, CPPL_INT N> inline friend dgematrix_small<M,N> operator/(const dgematrix_small<M,N>&, const               double&);
-  //////// double ////////
-  template<CPPL_INT M, CPPL_INT N> inline friend dgematrix_small<M,N> operator*(const               double&, const dgematrix_small<M,N>&);
-  //////// hadamerd ////////
-  template<CPPL_INT M, CPPL_INT N> inline friend dgematrix_small<M,N>  hadamerd(const dgematrix_small<M,N>&, const dgematrix_small<M,N>&);
-  template<CPPL_INT N>         inline friend dgematrix_small<N,N>  hadamerd(const dgematrix_small<N,N>&, const dsymatrix_small< N >&);
-#endif//_MSC_VER
-};
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-inline double det(const dgemat2&);
-inline dgemat2 inv(const dgemat2&);
-inline dgemat2 rotate(const dgemat2&, const double&);
-inline dgemat2 t2m(const double&);
-
-inline double det(const dgemat3&);
-inline dgemat3 inv(const dgemat3&);
-inline dgemat3 rotate(const dgemat3&, const dquater&);
-inline dquater m2q(const dgemat3&);
-
-inline double det(const dgemat4&);
-inline dgemat4 inv(const dgemat4&);
diff --git a/cpplapack-r198/.svn/pristine/2d/2dc0b457f7ba35b0066d191578a8333a42f1c3f0.svn-base b/cpplapack-r198/.svn/pristine/2d/2dc0b457f7ba35b0066d191578a8333a42f1c3f0.svn-base
deleted file mode 100644
index ead916d..0000000
--- a/cpplapack-r198/.svn/pristine/2d/2dc0b457f7ba35b0066d191578a8333a42f1c3f0.svn-base
+++ /dev/null
@@ -1,81 +0,0 @@
-//=============================================================================
-/*! zhsmatrix+_zgbmatrix operator */
-/*
-inline _zgematrix operator+(const zhsmatrix& matA, const _zgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(matA);
-  
-  for(CPPL_INT i=0; i<matB.m; i++){
-    for(CPPL_INT j=max(0,i-matB.kl); j<min(matB.n,i+matB.ku+1); j++){
-      newmat(i,j)+=matB(i,j);
-    }
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
-*/
-//=============================================================================
-/*! zhsmatrix-_zgbmatrix operator */
-/*
-inline _zgematrix operator-(const zhsmatrix& matA, const _zgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(matA);
-  
-  for(CPPL_INT i=0; i<matB.m; i++){
-    for(CPPL_INT j=max(0,i-matB.kl); j<min(matB.n,i+matB.ku+1); j++){
-      newmat(i,j)-=matB(i,j);
-    }
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
-*/
-
-//=============================================================================
-/*! zhsmatrix*_zgbmatrix operator */
-/*
-inline _zgematrix operator*(const zhsmatrix& matA, const _zgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat( matA.m, matB.n );
-  newmat.zero();
-  
-  for(CPPL_INT c=0; c<matA.vol; c++){
-    for(CPPL_INT j=max(0,matA.jndx[c]-matB.kl);
-        j<min(matB.n,matA.jndx[c]+matB.ku+1); j++){
-      newmat(matA.indx[c],j) += matA.array[c]*matB(matA.jndx[c],j);
-    }
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
-*/
diff --git a/cpplapack-r198/.svn/pristine/2d/2dc9c4b87691aa85fe174ec3d63ad9fb5c0852f6.svn-base b/cpplapack-r198/.svn/pristine/2d/2dc9c4b87691aa85fe174ec3d63ad9fb5c0852f6.svn-base
deleted file mode 100644
index 553a46a..0000000
--- a/cpplapack-r198/.svn/pristine/2d/2dc9c4b87691aa85fe174ec3d63ad9fb5c0852f6.svn-base
+++ /dev/null
@@ -1,37 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int N(3);
-  
-  CPPL::dsymatrix A;
-  cout << "A || n=" << A.n << " array=" << A.array << " " << endl;
-  
-  
-  CPPL::dsymatrix B(N);
-  for(int i=0; i<B.n; i++){ for(int j=0; j<=i; j++){
-    B(i,j) =double( rand() /(RAND_MAX/10) );
-  }}
-  cout << "B || n=" << B.n << " array=" << B.array << " " << endl;
-  cout << B << endl;
-  
-  CPPL::dsymatrix C(B);
-  cout << "C || n=" << C.n << " array=" << C.array << " " << endl;
-  cout << C << endl;
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/2e/2e303f99e74aa03243d0cb86068fab3813ed8ae5.svn-base b/cpplapack-r198/.svn/pristine/2e/2e303f99e74aa03243d0cb86068fab3813ed8ae5.svn-base
deleted file mode 100644
index 8f45b4e..0000000
--- a/cpplapack-r198/.svn/pristine/2e/2e303f99e74aa03243d0cb86068fab3813ed8ae5.svn-base
+++ /dev/null
@@ -1,97 +0,0 @@
-//=============================================================================
-//! (DO NOT USE) Smart-temporary Real Double-precision Symmetric Matrix Class
-class _dsymatrix
-{
-public:
-  ///////////////////////////////////////////////
-  /////////////////// objects ///////////////////
-  ///////////////////////////////////////////////
-  //mutable CPPL_INT const& m; //!< matrix row size
-  CPPL_INT const& m; //!< matrix row size
-  mutable CPPL_INT n; //!< matrix column size
-  mutable double* array; //!< 1D array to store matrix data
-  mutable double** darray; //!< array of pointers of column head addresses
-  
-  ///////////////////////////////////////////////
-  ///////////////// constructors ////////////////
-  ///////////////////////////////////////////////
-  inline _dsymatrix();
-  inline _dsymatrix(const _dsymatrix&);
-  inline ~_dsymatrix(); //destructor
-  
-  ///////////////////////////////////////////////
-  ////////////////// functions //////////////////
-  ///////////////////////////////////////////////
-  //////// cast ////////
-  inline _zhematrix to_zhematrix() const;
-  inline _dgematrix to_dgematrix() const;
-  inline _dssmatrix to_dssmatrix(const double=DBL_MIN) const;
-  
-  //////// io ////////
-  inline double& operator()(const CPPL_INT&, const CPPL_INT&) const;
-  inline friend std::ostream& operator<<(std::ostream&, const dsymatrix&);
-  inline void write(const char*) const;
-  
-  //////// misc ////////
-  inline void nullify() const;
-  inline void destroy() const;
-  inline void complete() const;
-  
-  //////// calc ////////
-  inline friend _dsymatrix t(const _dsymatrix&);
-  inline friend _dsymatrix i(const _dsymatrix&);
-  inline friend void idamax(CPPL_INT&, CPPL_INT&, const _dsymatrix&);
-  inline friend double damax(const _dsymatrix&);
-  
-  ///////////////////////////////////////////////
-  ///////////// numerical operators /////////////
-  ///////////////////////////////////////////////
-  //////// unary ////////
-  inline friend const _dsymatrix& operator+(const _dsymatrix&);
-  inline friend _dsymatrix operator-(const _dsymatrix&);
-  
-  //////// + ////////
-  inline friend _dgematrix operator+(const _dsymatrix&, const  dgematrix&);
-  inline friend _dgematrix operator+(const _dsymatrix&, const _dgematrix&);
-  inline friend _dsymatrix operator+(const _dsymatrix&, const  dsymatrix&);
-  inline friend _dsymatrix operator+(const _dsymatrix&, const _dsymatrix&);
-  inline friend _dgematrix operator+(const _dsymatrix&, const  dgbmatrix&);
-  inline friend _dgematrix operator+(const _dsymatrix&, const _dgbmatrix&);
-  inline friend _dgematrix operator+(const _dsymatrix&, const  dgsmatrix&);
-  inline friend _dgematrix operator+(const _dsymatrix&, const _dgsmatrix&);
-  inline friend _dsymatrix operator+(const _dsymatrix&, const  dssmatrix&);
-  inline friend _dsymatrix operator+(const _dsymatrix&, const _dssmatrix&);
-  
-  //////// - ////////
-  inline friend _dgematrix operator-(const _dsymatrix&, const  dgematrix&);  
-  inline friend _dgematrix operator-(const _dsymatrix&, const _dgematrix&);
-  inline friend _dsymatrix operator-(const _dsymatrix&, const  dsymatrix&);
-  inline friend _dsymatrix operator-(const _dsymatrix&, const _dsymatrix&);
-  inline friend _dgematrix operator-(const _dsymatrix&, const  dgbmatrix&);  
-  inline friend _dgematrix operator-(const _dsymatrix&, const _dgbmatrix&);
-  inline friend _dgematrix operator-(const _dsymatrix&, const  dgsmatrix&);
-  inline friend _dgematrix operator-(const _dsymatrix&, const _dgsmatrix&);
-  inline friend _dsymatrix operator-(const _dsymatrix&, const  dssmatrix&);
-  inline friend _dsymatrix operator-(const _dsymatrix&, const _dssmatrix&);
-  
-  //////// * ////////
-  inline friend _dcovector operator*(const _dsymatrix&, const  dcovector&);
-  inline friend _dcovector operator*(const _dsymatrix&, const _dcovector&);
-  inline friend _dgematrix operator*(const _dsymatrix&, const  dgematrix&);
-  inline friend _dgematrix operator*(const _dsymatrix&, const _dgematrix&);
-  inline friend _dgematrix operator*(const _dsymatrix&, const  dsymatrix&);
-  inline friend _dgematrix operator*(const _dsymatrix&, const _dsymatrix&);
-  inline friend _dgematrix operator*(const _dsymatrix&, const  dgbmatrix&);
-  inline friend _dgematrix operator*(const _dsymatrix&, const _dgbmatrix&);
-  inline friend _dgematrix operator*(const _dsymatrix&, const  dgsmatrix&);
-  inline friend _dgematrix operator*(const _dsymatrix&, const _dgsmatrix&);
-  inline friend _dgematrix operator*(const _dsymatrix&, const  dssmatrix&);
-  inline friend _dgematrix operator*(const _dsymatrix&, const _dssmatrix&);
-  inline friend _dsymatrix operator*(const _dsymatrix&, const     double&);
-  
-  //////// / ////////
-  inline friend _dsymatrix operator/(const _dsymatrix&, const     double&);
-  
-  //////// double ////////
-  inline friend _dsymatrix operator*(const     double&, const _dsymatrix&);
-};
diff --git a/cpplapack-r198/.svn/pristine/2e/2e356455d5486c38799bd9d9bb622ed119f335f5.svn-base b/cpplapack-r198/.svn/pristine/2e/2e356455d5486c38799bd9d9bb622ed119f335f5.svn-base
deleted file mode 100644
index 42b8cb0..0000000
--- a/cpplapack-r198/.svn/pristine/2e/2e356455d5486c38799bd9d9bb622ed119f335f5.svn-base
+++ /dev/null
@@ -1,23 +0,0 @@
-//=============================================================================
-/*! zhematrix*zcovector operator */
-inline _zcovector operator*(const zhematrix& mat, const zcovector& vec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(mat.n!=vec.l){
-    ERROR_REPORT;
-    std::cerr << "These matrix and vector can not make a product." << std::endl
-              << "Your input was (" << mat.n << "x" << mat.n << ") * (" << vec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zcovector newvec(mat.n);
-  char uplo ='l';
-  comple alpha =comple(1.,0.);
-  CPPL_INT inc =1;
-  comple beta =comple(0.,0.);
-  
-  zhemv_( &uplo, &mat.n, &alpha, mat.array, &mat.n, vec.array, &inc, &beta, newvec.array, &inc );
-  
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/2e/2e52bd51319869d1a511a4b712d08ba58c1521a9.svn-base b/cpplapack-r198/.svn/pristine/2e/2e52bd51319869d1a511a4b712d08ba58c1521a9.svn-base
deleted file mode 100644
index 93d6522..0000000
--- a/cpplapack-r198/.svn/pristine/2e/2e52bd51319869d1a511a4b712d08ba58c1521a9.svn-base
+++ /dev/null
@@ -1,123 +0,0 @@
-/*****************************************************************************/
-/*                                main.cpp                                   */
-/*****************************************************************************/
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include <vector>
-#include "cpplapack.h"
-
-//=============================================================================
-CPPL::dcovector solve
-(
- const CPPL::dsymatrix& A,
- const CPPL::dcovector& inv_D,
- const CPPL::dcovector& y
- )
-{
-  CPPL::dcovector z(y.l);
-  for(long i=0; i<y.l; i++){
-    double sum_lz(0.0);
-    for(long j=0; j<i; j++){ sum_lz +=A(i,j)*z(j); }
-    z(i) =inv_D(i)*(y(i)-sum_lz);
-  }
-  
-  CPPL::dcovector x(y.l);
-  for(long i=y.l-1; i>=0; i--){
-    double sum_ux(0.0);
-    for(long j=y.l-1; j>i; j--){ sum_ux +=A(i,j)*x(j); }
-    x(i) =z(i) -inv_D(i)*sum_ux;
-  }
-  
-  return x;
-}
-
-//=============================================================================
-bool dilucg
-(
- const CPPL::dsymatrix& A, 
- CPPL::dcovector& x, 
- const double& eps
-)
-{
-  CPPL::dcovector inv_D(x.l);
-  for(long i=0; i<x.l; i++){ inv_D(i)=A(i,i); }
-  for(long i=0; i<x.l; i++){
-    inv_D(i) =1./inv_D(i);
-    for(long j=i+1; j<x.l; j++){
-      inv_D(j) -=pow(A(i,j),2)*inv_D(i);
-    }
-  }
-  //inv_D.write("inv_D");
-  
-  double alpha, beta, rho(1.0), rho2;
-  const CPPL::dcovector y(x);
-  CPPL::dcovector z, r(x), p(x.l), q;
-  x.zero(); p.zero();
-  
-  int itc(0);
-  const int itmax(2*x.l);
-  while(fabs(damax(r))>eps && ++itc<itmax){
-    std::cout << itc << " "  << fabs(damax(r)) << " " << fabs(damax(y-A*x)) << " " << rho << std::endl;
-    z =solve(A,inv_D,r);
-    
-    rho2=r%z;
-    beta=rho2/rho;
-    rho=rho2;
-    
-    p =z +beta*p;
-    q =A*p;
-    alpha=rho/(p%q);
-    
-    x+=alpha*p;
-    r-=alpha*q;
-  }
-  std::cerr << "itc=" << itc << "  fabs(damax(r))=" << fabs(damax(r)) << std::endl;
-  
-  if(itc<itmax){ return 0; }
-  else{ return 1; }
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-int main(int argc, char** argv)
-{
-  srand(time(NULL));
-
-  const int size(100);
-  CPPL::dsymatrix A(size);
-
-  for(int i=0; i<size; i++){
-    for(int j=0; j<=i; j++){
-      A(i,j) =(double(rand())/double(RAND_MAX))*2.0 -1.0;
-    }
-    A(i,i)+=10.;
-  }
-  A.write("A.dsymatrix");
-
-  CPPL::dcovector x(size);
-  for(int i=0; i<size; i++){
-    x(i) =(double(rand())/double(RAND_MAX))*1. -0.5;
-  }
-  x.write("answer.dcovector");//solution
-  std::cerr << "answer=\n" << t(x) << std::endl;
-
-  CPPL::dcovector y(size);
-  y=A*x;
-  y.write("y.dcovector");
-
-  double eps(fabs(damax(y))*1e-6);
-  //std::cerr << "eps=" << eps << std::endl;
-  if( dilucg(A, y, eps) ){
-    std::cerr << "failed." << std::endl;
-    exit(1);
-  }
-  y.write("solution.dcovector");
-  std::cout << "solution=\n" << t(y) << std::endl;
-
-  return 0;
-}
diff --git a/cpplapack-r198/.svn/pristine/2e/2e5ccc487bebf29b1f0299106f3948823181ab92.svn-base b/cpplapack-r198/.svn/pristine/2e/2e5ccc487bebf29b1f0299106f3948823181ab92.svn-base
deleted file mode 100644
index 9841ec8..0000000
--- a/cpplapack-r198/.svn/pristine/2e/2e5ccc487bebf29b1f0299106f3948823181ab92.svn-base
+++ /dev/null
@@ -1,35 +0,0 @@
-//=============================================================================
-/*! _zgematrix constructor without arguments */
-inline _zgematrix::_zgematrix()
-{CPPL_VERBOSE_REPORT;
-  //////// initialize ////////
-  m =0;
-  n =0;
-  array =NULL;
-  darray =NULL;
-}
-
-//=============================================================================
-/*! _zgematrix copy constructor */
-inline _zgematrix::_zgematrix(const _zgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-  //////// initialize ////////
-  m =mat.m;
-  n =mat.n;
-  array =mat.array;
-  darray =mat.darray;
-  
-  mat.nullify();
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zgematrix destructor */
-inline _zgematrix::~_zgematrix()
-{CPPL_VERBOSE_REPORT;
-  delete [] array;
-  delete [] darray;
-}
diff --git a/cpplapack-r198/.svn/pristine/2e/2ea2a05f69597f31d35b452aed2f9731d2a1f8c1.svn-base b/cpplapack-r198/.svn/pristine/2e/2ea2a05f69597f31d35b452aed2f9731d2a1f8c1.svn-base
deleted file mode 100644
index 7731cfc..0000000
--- a/cpplapack-r198/.svn/pristine/2e/2ea2a05f69597f31d35b452aed2f9731d2a1f8c1.svn-base
+++ /dev/null
@@ -1,425 +0,0 @@
-//=============================================================================
-/*! convert drovector_small to drovector */
-template<CPPL_INT l>
-inline _drovector drovector_small<l>::to_drovector() const
-{CPPL_VERBOSE_REPORT;
-  drovector vec(l);
-  for(CPPL_INT k=0; k<l; k++){
-    vec(k)=(*this)(k);
-  }
-  return _(vec);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! operator() */
-template<CPPL_INT l>
-inline double& drovector_small<l>::operator()(const CPPL_INT& k)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( k<0 || l<=k ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the vector size." << std::endl
-              << "Your input is (" << k << "), whereas the vector size is " << l << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  return array[k];
-}
-
-//=============================================================================
-/*! operator() for const */
-template<CPPL_INT l>
-inline double drovector_small<l>::operator()(const CPPL_INT& k) const
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( k<0 || l<=k ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the vector size." << std::endl
-              << "Your input is (" << k << "), whereas the vector size is " << l << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  return array[k];
-}
-
-//=============================================================================
-/*! set function */
-template<CPPL_INT l>
-inline drovector_small<l>& drovector_small<l>::set(const CPPL_INT& k, const double& v)
-{CPPL_VERBOSE_REPORT;
-  (*this)(k) =v;
-  return *this;
-}
-
-//=============================================================================
-/*! operator<< */
-template<CPPL_INT l>
-inline std::ostream& operator<<(std::ostream& s, const drovector_small<l>& A)
-{CPPL_VERBOSE_REPORT;
-  s << std::setiosflags(std::ios::showpos);
-  for(CPPL_INT i=0; i<l; i++){
-    s << " " << A(i) << std::flush;
-  }
-  s << std::endl;
-  return s;
-}
-
-//=============================================================================
-/*! write to file */
-template<CPPL_INT l>
-inline void drovector_small<l>::write(const char* filename) const
-{CPPL_VERBOSE_REPORT;
-  std::ofstream ofs(filename, std::ios::trunc);
-  ofs.setf(std::cout.flags());
-  ofs.precision(std::cout.precision());
-  ofs.width(std::cout.width());
-  ofs.fill(std::cout.fill());
-  
-  ofs << "#drovector" << " " << l << std::endl;
-  for(CPPL_INT k=0; k<l; k++){
-    ofs << (*this)(k) << " ";
-  }
-  ofs << std::endl;
-  ofs.close();
-}
-
-//=============================================================================
-/*! read from file */
-template<CPPL_INT l>
-inline void drovector_small<l>::read(const char* filename)
-{CPPL_VERBOSE_REPORT;
-  std::ifstream s( filename );
-  if(!s){
-    ERROR_REPORT;
-    std::cerr << "The file \"" << filename << "\" can not be opened." << std::endl;
-    exit(1);
-  }
-  
-  std::string id;
-  s >> id;
-  if( id != "drovector" && id != "#drovector" ){
-    ERROR_REPORT;
-    std::cerr << "The type name of the file \"" << filename << "\" is not drovector." << std::endl
-              << "Its type name was " << id << " ." << std::endl;
-    exit(1);
-  }
-  
-  CPPL_INT _l;
-  s >> _l;
-  if(l!=_l){
-    ERROR_REPORT;
-    std::cerr << "Matrix size is invalid." << std::endl;
-    exit(1);
-  }
-  for(CPPL_INT k=0; k<l; k++){
-    s >> (*this)(k);
-  }
-  if(s.eof()){
-    ERROR_REPORT;
-    std::cerr << "There is something is wrong with the file \"" << filename << "\"." << std::endl
-              << "Most likely, there is not enough data components, or a linefeed code or space code is missing at the end of the last line." << std::endl;
-    exit(1);
-  }
-  
-  s >> id;//tmp
-  if(!s.eof()){
-    ERROR_REPORT;
-    std::cerr << "There is something is wrong with the file \"" << filename << "\"." << std::endl
-              << "Most likely, there are extra data components." << std::endl;
-    exit(1);
-  }
-  
-  s.close();    
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! return transposed column vector  */
-template<CPPL_INT n>
-inline dcovector_small<n> t(const drovector_small<n>& A)
-{CPPL_VERBOSE_REPORT;
-  dcovector_small<n> X;
-  for(CPPL_INT i=0; i<n; i++){
-    X(i)=A(i);
-  }
-  return X;
-}
-
-//=============================================================================
-/*!  */
-template<CPPL_INT l>
-inline double nrm2(const drovector_small<l>& A)
-{CPPL_VERBOSE_REPORT;
-  double v(0.);
-  for(CPPL_INT i=0; i<l; i++){
-    v+=A(i)*A(i);
-  }
-  return std::sqrt(v);
-}
-
-//=============================================================================
-/*!  */
-template<CPPL_INT l>
-inline void idamax(CPPL_INT& K, const drovector_small<l>& A)
-{CPPL_VERBOSE_REPORT;
-  double max(-1.);
-  for(int k=0; k<l; k++){
-    if( max<fabs(A(k)) ){
-      K=k;
-      max =fabs(A(k));
-    }
-  }
-  return;
-}
-
-//=============================================================================
-/*!  */
-template<CPPL_INT l>
-inline double damax(const drovector_small<l>& A)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT k(0);
-  idamax(k,A);
-  return A(k);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*!  */
-template<CPPL_INT l>
-inline drovector_small<l>& drovector_small<l>::zero()
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT k=0; k<l; k++){
-    array[k] =0.;
-  }
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*!  */
-template<CPPL_INT l>
-inline drovector_small<l>& operator+=(drovector_small<l>& A, const drovector_small<l>& B)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<l; i++){
-    A(i) +=B(i);
-  }
-  return A;
-}
-
-//=============================================================================
-/*!  */
-template<CPPL_INT l>
-inline drovector_small<l>& operator-=(drovector_small<l>& A, const drovector_small<l>& B)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<l; i++){
-    A(i) -=B(i);
-  }
-  return A;
-}
-
-//=============================================================================
-/*!  */
-template<CPPL_INT l>
-inline drovector_small<l>& operator*=(drovector_small<l>& A, const double& d)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<l; i++){
-    A(i) *=d;
-  }
-  return A;
-}
-
-//=============================================================================
-/*!  */
-template<CPPL_INT l>
-inline drovector_small<l>& operator/=(drovector_small<l>& A, const double& d)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<l; i++){
-    A(i) /=d;
-  }
-  return A;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! unary */
-template<CPPL_INT l>
-inline const drovector_small<l>& operator+(const drovector_small<l>& A)
-{CPPL_VERBOSE_REPORT;
-  return A;
-}
-
-//=============================================================================
-/*! unary */
-template<CPPL_INT l>
-inline drovector_small<l> operator-(const drovector_small<l>& A)
-{CPPL_VERBOSE_REPORT;
-  drovector_small<l> X;
-  for(CPPL_INT i=0; i<l; i++){
-    X(i) =-A(i);
-  }
-  return X;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*!  */
-template<CPPL_INT l>
-inline drovector_small<l> operator+(const drovector_small<l>& A, const drovector_small<l>& B)
-{CPPL_VERBOSE_REPORT;
-  drovector_small<l> X;
-  for(CPPL_INT i=0; i<l; i++){
-    X(i) =A(i)+B(i);
-  }
-  return X;
-}
-
-//=============================================================================
-/*!  */
-template<CPPL_INT l>
-inline drovector_small<l> operator-(const drovector_small<l>& A, const drovector_small<l>& B)
-{CPPL_VERBOSE_REPORT;
-  drovector_small<l> X;
-  for(CPPL_INT i=0; i<l; i++){
-    X(i) =A(i)-B(i);
-  }
-  return X;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*!  */
-template<CPPL_INT l>
-inline double operator*(const drovector_small<l>& A, const dcovector_small<l>& B)
-{CPPL_VERBOSE_REPORT;
-  double x =0.;
-  for(CPPL_INT i=0; i<l; i++){
-    x +=A(i)*B(i);
-  }
-  return x;
-}
-
-//=============================================================================
-/*!  */
-template<CPPL_INT m, CPPL_INT n>
-inline drovector_small<n> operator*(const drovector_small<m>& A, const dgematrix_small<m,n>& B)
-{CPPL_VERBOSE_REPORT;
-  drovector_small<n> C;
-  C.zero();
-  for(CPPL_INT j=0; j<n; j++){
-    for(CPPL_INT i=0; i<m; i++){
-      C(j) +=A(i)*B(i,j);
-    }
-  }
-  return C;
-}
-
-//=============================================================================
-/*!  */
-template<CPPL_INT l>
-inline drovector_small<l> operator*(const drovector_small<l>& A, const dsymatrix_small<l>& B)
-{CPPL_VERBOSE_REPORT;
-  drovector_small<l> C;
-  C.zero();
-  for(CPPL_INT j=0; j<l; j++){
-    for(CPPL_INT i=0; i<j; i++){
-      C(j) +=A(i)*B(j,i);
-    }
-    for(CPPL_INT i=j; i<l; i++){
-      C(j) +=A(i)*B(i,j);
-    }    
-  }
-  return C;
-}
-
-//=============================================================================
-/*!  */
-template<CPPL_INT l>
-inline drovector_small<l> operator*(const drovector_small<l>& A, const double& v)
-{CPPL_VERBOSE_REPORT;
-  drovector_small<l> C;
-  for(CPPL_INT i=0; i<l; i++){
-    C(i) =A(i)*v;
-  }
-  return C;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*!  */
-template<CPPL_INT l>
-inline drovector_small<l> operator/(const drovector_small<l>& A, const double& v)
-{CPPL_VERBOSE_REPORT;
-  drovector_small<l> C;
-  for(CPPL_INT i=0; i<l; i++){
-    C(i) =A(i)/v;
-  }
-  return C;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! drovector_small%drovector_small (inner product) operator */
-template<CPPL_INT l>
-inline double operator%(const drovector_small<l>& A, const drovector_small<l>& B)
-{CPPL_VERBOSE_REPORT;
-  double v(0.);
-  for(CPPL_INT i=0; i<l; i++){
-    v +=A(i)*B(i);
-  }
-  return v;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! Hadamard product */
-template<CPPL_INT l>
-inline drovector_small<l> hadamard(const drovector_small<l>& A, const drovector_small<l>& B)
-{CPPL_VERBOSE_REPORT;
-  drovector_small<l> C;
-  for(CPPL_INT i=0; i<l; i++){
-    C(i) =A(i)*B(i);
-  }
-  return C;
-}
diff --git a/cpplapack-r198/.svn/pristine/2e/2edf659211225752b491efd0e47a4442fb5a970e.svn-base b/cpplapack-r198/.svn/pristine/2e/2edf659211225752b491efd0e47a4442fb5a970e.svn-base
deleted file mode 100644
index ad9f8aa..0000000
--- a/cpplapack-r198/.svn/pristine/2e/2edf659211225752b491efd0e47a4442fb5a970e.svn-base
+++ /dev/null
@@ -1,240 +0,0 @@
-//=============================================================================
-/*! zgbmatrix=_zgbmatrix operator */
-inline zgbmatrix& zgbmatrix::operator=(const _zgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  shallow_copy(mat);
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zgbmatrix+=_zgbmatrix operator\n
-  If the band width of the left side matrix is narrower than the right side matrix, the band width of the left side matrix become thicker as same as the right side matrix. */
-inline zgbmatrix& zgbmatrix::operator+=(const _zgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.n || m!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was" << "(" << m <<"x"<< n <<","<< kl <<":"<< ku << ") "<< "+=" << "("<< mat.m <<"x"<< mat.n <<","<< mat.kl <<":"<< mat.ku <<") " << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  if(kl>=mat.kl && ku>=mat.ku){
-    for(CPPL_INT i=0; i<m; i++){
-      const CPPL_INT jmax =std::min(n,i+mat.ku+1);
-      for(CPPL_INT j=std::max(CPPL_INT(0),i-mat.kl); j<jmax; j++){
-        operator()(i,j) += mat(i,j);
-      }
-    }
-    
-    mat.destroy();
-    return *this;
-  }
-  else{
-    zgbmatrix newmat(m,n,std::max(kl,mat.kl),std::max(ku,mat.ku));
-    newmat.zero();
-    for(CPPL_INT i=0; i<m; i++){
-      const CPPL_INT jmax1 =std::min(n,i+ku+1);
-      for(CPPL_INT j=std::max(CPPL_INT(0),i-kl); j<jmax1; j++){
-        newmat(i,j) += operator()(i,j);
-      }
-      const CPPL_INT jmax2 =std::min(mat.n,i+mat.ku+1);
-      for(CPPL_INT j=std::max(CPPL_INT(0),i-mat.kl); j<jmax2; j++){
-        newmat(i,j) += mat(i,j);
-      }
-    }
-    
-    swap(*this,newmat);
-    mat.destroy();
-    return *this;
-  }
-}
-
-//=============================================================================
-/*! zgbmatrix-=_zgbmatrix operator\n
-  If the band width of the left side matrix is narrower than the right side matrix, the band width of the left side matrix become thicker as same as the right side matrix. */
-inline zgbmatrix& zgbmatrix::operator-=(const _zgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.n || m!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was" << "(" << m <<"x"<< n <<","<< kl <<":"<< ku << ") "<< "-=" << "("<< mat.m <<"x"<< mat.n <<","<< mat.kl <<":"<< mat.ku <<") " << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  if(kl>=mat.kl && ku>=mat.ku){
-    for(CPPL_INT i=0; i<m; i++){
-      const CPPL_INT jmax =std::min(n,i+mat.ku+1);
-      for(CPPL_INT j=std::max(CPPL_INT(0),i-mat.kl); j<jmax; j++){
-        operator()(i,j) -= mat(i,j);
-      }
-    }
-    
-    mat.destroy();
-    return *this;
-  }
-  else{
-    zgbmatrix newmat(m,n,std::max(kl,mat.kl),std::max(ku,mat.ku));
-    newmat.zero();
-    for(CPPL_INT i=0; i<m; i++){
-      const CPPL_INT jmax1 =std::min(n,i+ku+1);
-      for(CPPL_INT j=std::max(CPPL_INT(0),i-kl); j<jmax1; j++){
-        newmat(i,j) += operator()(i,j);
-      }
-      const CPPL_INT jmax2 =std::min(mat.n,i+mat.ku+1);
-      for(CPPL_INT j=std::max(CPPL_INT(0),i-mat.kl); j<jmax2; j++){
-        newmat(i,j) -= mat(i,j);
-      }
-    }
-    
-    swap(*this,newmat);
-    mat.destroy();
-    return *this;
-  }
-}
-
-//=============================================================================
-/*! zgbmatrix*=_zgbmatrix operator */
-inline zgbmatrix& zgbmatrix::operator*=(const _zgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << m << "x" << n << ") * (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgbmatrix newmat( m, mat.n, std::min(kl+mat.kl, m-1), std::min(ku+mat.ku, mat.n-1) );
-  newmat.zero();
-  
-  for(CPPL_INT i=0; i<newmat.m; i++){
-    const CPPL_INT jmax =std::min(newmat.n,i+newmat.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-newmat.kl); j<jmax; j++){
-      const CPPL_INT kmax =std::min( std::min(n,i+ku+1), std::min(mat.m,j+mat.kl+1) );
-      for(CPPL_INT k=std::max( std::max(CPPL_INT(0),i-kl), std::max(CPPL_INT(0),j-mat.ku) ); k<kmax; k++){
-        newmat(i,j) += operator()(i,k)*mat(k,j);
-      }
-    }
-  }
-  
-  swap(*this,newmat);
-  mat.destroy();
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zgbmatrix+_zgbmatrix operator */
-inline _zgbmatrix operator+(const zgbmatrix& matA, const _zgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  if(matB.kl>matA.kl && matB.ku>matA.ku){
-    for(CPPL_INT i=0; i<matA.m; i++){
-      const CPPL_INT jmax =std::min(matA.n,i+matA.ku+1);
-      for(CPPL_INT j=std::max(CPPL_INT(0),i-matA.kl); j<jmax; j++){
-        matB(i,j) += matA(i,j);
-      }
-    }
-    return matB;
-  }
-  
-  else{
-    zgbmatrix newmat(matA.m,matA.n,std::max(matA.kl,matB.kl),std::max(matA.ku,matB.ku));
-    newmat.zero();
-    
-    for(CPPL_INT i=0; i<matA.m; i++){
-      const CPPL_INT jmax1 =std::min(matA.n,i+matA.ku+1);
-      for(CPPL_INT j=std::max(CPPL_INT(0),i-matA.kl); j<jmax1; j++){
-        newmat(i,j) += matA(i,j);
-      }
-      const CPPL_INT jmax2 =std::min(matB.n,i+matB.ku+1);
-      for(CPPL_INT j=std::max(CPPL_INT(0),i-matB.kl); j<jmax2; j++){
-        newmat(i,j) += matB(i,j);
-      }
-    }
-    
-    matB.destroy();
-    return _(newmat);
-  }
-}
-
-//=============================================================================
-/*! zgbmatrix-_zgbmatrix operator */
-inline _zgbmatrix operator-(const zgbmatrix& matA, const _zgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") - (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgbmatrix newmat(matA.m,matA.n,std::max(matA.kl,matB.kl),std::max(matA.ku,matB.ku));
-  newmat.zero();
-  
-  for(CPPL_INT i=0; i<matA.m; i++){
-    const CPPL_INT jmax1 =std::min(matA.n,i+matA.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matA.kl); j<jmax1; j++){
-      newmat(i,j) += matA(i,j);
-    }
-    const CPPL_INT jmax2 =std::min(matB.n,i+matB.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matB.kl); j<jmax2; j++){
-      newmat(i,j) -= matB(i,j);
-    }
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! zgbmatrix*_zgbmatrix operator */
-inline _zgbmatrix operator*(const zgbmatrix& matA, const _zgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgbmatrix newmat( matA.m, matB.n, std::min(matA.kl+matB.kl,matA.m-1), std::min(matA.ku+matB.ku,matB.n-1) );
-  newmat.zero();
-  
-  for(CPPL_INT i=0; i<newmat.m; i++){
-    const CPPL_INT jmax =std::min(newmat.n,i+newmat.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-newmat.kl); j<jmax; j++){
-      const CPPL_INT kmax =std::min( std::min(matA.n,i+matA.ku+1), std::min(matB.m,j+matB.kl+1) );
-      for(CPPL_INT k=std::max( std::max(CPPL_INT(0),i-matA.kl), std::max(CPPL_INT(0),j-matB.ku) ); k<kmax; k++){
-        newmat(i,j) += matA(i,k)*matB(k,j);
-      }
-    }
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/2f/2f06eb2a0d1bdd7636b58ef2e6eeb114102de1dd.svn-base b/cpplapack-r198/.svn/pristine/2f/2f06eb2a0d1bdd7636b58ef2e6eeb114102de1dd.svn-base
deleted file mode 100644
index b75fc3d..0000000
--- a/cpplapack-r198/.svn/pristine/2f/2f06eb2a0d1bdd7636b58ef2e6eeb114102de1dd.svn-base
+++ /dev/null
@@ -1,15 +0,0 @@
-//=============================================================================
-/*! convert to _zgematrix */
-inline _zgematrix _zhematrix::to_zgematrix() const
-{CPPL_VERBOSE_REPORT;
-  zgematrix newmat(n,n);
-  
-  for(CPPL_INT i=0; i<n; i++){
-    for(CPPL_INT j=0; j<n; j++){
-      newmat(i,j) =(*this)(i,j);
-    }
-  }
-  
-  destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/2f/2f524bd95d1ead8ca1adb3e5cc04acb062c9402f.svn-base b/cpplapack-r198/.svn/pristine/2f/2f524bd95d1ead8ca1adb3e5cc04acb062c9402f.svn-base
deleted file mode 100644
index 68254b0..0000000
--- a/cpplapack-r198/.svn/pristine/2f/2f524bd95d1ead8ca1adb3e5cc04acb062c9402f.svn-base
+++ /dev/null
@@ -1,48 +0,0 @@
-/*****************************************************************************/
-/*                                 main.cpp                                  */
-/*****************************************************************************/
-#undef CPPL_VERBOSE
-#undef CPPL_DEBUG
-
-//=============================================================================
-#include "cpplapack.h"
-#include <cstring>
-#include <ctime>
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  int size(3000);
-  CPPL::dgematrix A(size,size);
-  
-  srand(unsigned(time(NULL)));
-  for(int i=0; i<size; i++){ for(int j=0; j<size; j++){
-      A(i,j) =double(rand())/double(RAND_MAX);
-  }}
-  
-  clock_t t0, t1, t2, t3;
-  /*
-  t0=clock();
-  
-  A.zero();
-  
-  t1=clock();
-  
-  for(int i=0; i<size*size; i++){
-    A.array[i] =0.;
-  }
-  */
-  t2=clock();
-  
-  memset(A.array, 0, size*size*sizeof(double));
-  
-  t3=clock();
-  A.write("aho");
-  
-  std::cout << "\"A.zero()\"   took "<< (1000./CLOCKS_PER_SEC)*(t1-t0) << "[ms]." << std::endl;
-  std::cout << "\"loop\"  took "<< (1000./CLOCKS_PER_SEC)*(t2-t1) << "[ms]." << std::endl;
-  std::cout << "\"memset\" took "<< (1000./CLOCKS_PER_SEC)*(t3-t2) << "[ms]." << std::endl;
-  
-  return 0;
-}
diff --git a/cpplapack-r198/.svn/pristine/2f/2f95513f787d6ad3e9b92f00d44b7be77133d0c7.svn-base b/cpplapack-r198/.svn/pristine/2f/2f95513f787d6ad3e9b92f00d44b7be77133d0c7.svn-base
deleted file mode 100644
index 79d4ec8..0000000
--- a/cpplapack-r198/.svn/pristine/2f/2f95513f787d6ad3e9b92f00d44b7be77133d0c7.svn-base
+++ /dev/null
@@ -1,76 +0,0 @@
-//=============================================================================
-/*! zgsmatrix+zgbmatrix operator */
-inline _zgematrix operator+(const zgsmatrix& matA, const zgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat( matA.to_zgematrix() );
-  
-  for(CPPL_INT i=0; i<matB.m; i++){
-    const CPPL_INT jmax =std::min(matB.n,i+matB.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matB.kl); j<jmax; j++){
-      newmat(i,j) +=matB(i,j);
-    }
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! zgsmatrix-zgbmatrix operator */
-inline _zgematrix operator-(const zgsmatrix& matA, const zgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat( matA.to_zgematrix() );
-  
-  for(CPPL_INT i=0; i<matB.m; i++){
-    const CPPL_INT jmax =std::min(matB.n,i+matB.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matB.kl); j<jmax; j++){
-      newmat(i,j) -=matB(i,j);
-    }
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! zgsmatrix*zgbmatrix operator */
-inline _zgematrix operator*(const zgsmatrix& matA, const zgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat( matA.m, matB.n );
-  newmat.zero();
-  
-  const std::vector<zcomponent>::const_iterator matA_data_end =matA.data.end();
-  for(std::vector<zcomponent>::const_iterator it=matA.data.begin(); it!=matA_data_end; it++){
-    const CPPL_INT jmax =std::min(matB.n,it->j+matB.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),it->j-matB.kl); j<jmax; j++){
-      newmat(it->i,j) += it->v*matB(it->j,j);
-    }
-  }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/2f/2fadc4694aac62d5712f342b16432be5b87cb9fc.svn-base b/cpplapack-r198/.svn/pristine/2f/2fadc4694aac62d5712f342b16432be5b87cb9fc.svn-base
deleted file mode 100644
index fb2660a..0000000
--- a/cpplapack-r198/.svn/pristine/2f/2fadc4694aac62d5712f342b16432be5b87cb9fc.svn-base
+++ /dev/null
@@ -1,140 +0,0 @@
-//=============================================================================
-/*! dcovector=dcovector operator */
-inline dcovector& dcovector::operator=(const dcovector& vec)
-{CPPL_VERBOSE_REPORT;
-  if(array!=vec.array){ // if it is NOT self substitution
-    copy(vec);
-  }
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! dcovector+=dcovector operator */
-inline dcovector& dcovector::operator+=(const dcovector& vec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( l!=vec.l ){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make a sumation." << std::endl
-              << "Your input was (" << l << ") += (" << vec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<l; i++){ array[i]+=vec.array[i]; }
-  
-  return *this;
-}
-
-//=============================================================================
-/*! dcovector operator-= */
-inline dcovector& dcovector::operator-=(const dcovector& vec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( l!=vec.l ){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make a subtraction." << std::endl
-              << "Your input was (" << l << ") -= (" << vec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<l; i++){ array[i]-=vec.array[i]; }
-  
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! dcovector+dcovector operator */
-inline _dcovector operator+(const dcovector& vecA, const dcovector& vecB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vecA.l!=vecB.l){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make a sumation." << std::endl
-              << "Your input was (" << vecA.l << ") + (" << vecB.l << ")." << std::endl;
-    exit(1);
-  }
-  
-#endif//CPPL_DEBUG
-  
-  dcovector newvec(vecA.l);
-  for(CPPL_INT i=0; i<newvec.l; i++){
-    newvec.array[i] =vecA.array[i]+vecB.array[i];
-  }
-  
-  return _(newvec);
-}
-
-//=============================================================================
-/*! dcovector-dcovector operator */
-inline _dcovector operator-(const dcovector& vecA, const dcovector& vecB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vecA.l!=vecB.l){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make a subtraction." << std::endl
-              << "Your input was (" << vecA.l << ") - (" << vecB.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dcovector newvec(vecA.l);
-  for(CPPL_INT i=0; i<newvec.l; i++){
-    newvec.array[i] =vecA.array[i]-vecB.array[i];
-  }
-  
-  return _(newvec);
-}
-
-//=============================================================================
-/*! dcovector^T*dcovector operator (inner product) */
-inline double operator%(const dcovector& vecA, const dcovector& vecB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vecA.l!=vecB.l){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make a dot product." << std::endl
-              << "Your input was (" << vecA.l << ") % (" << vecB.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  CPPL_INT inc =1;
-  
-  double val( ddot_( &vecA.l, vecA.array, &inc, vecB.array, &inc ) );
-  
-  return val;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! return Hadamerd product */
-inline _dcovector hadamerd(const dcovector& vecA, const dcovector& vecB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( vecA.l!=vecB.l ){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make Hadamerd product." << std::endl
-              << "Your input was (" << vecA.l << ") and (" << vecB.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dcovector newvec(vecA.l);
-  for(CPPL_INT i=0; i<newvec.l; i++){
-    newvec(i) =vecA(i)*vecB(i);
-  }
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/2f/2fe1cacde9aaef4456f54ff6398127bd4c518d62.svn-base b/cpplapack-r198/.svn/pristine/2f/2fe1cacde9aaef4456f54ff6398127bd4c518d62.svn-base
deleted file mode 100644
index 8020341..0000000
--- a/cpplapack-r198/.svn/pristine/2f/2fe1cacde9aaef4456f54ff6398127bd4c518d62.svn-base
+++ /dev/null
@@ -1,30 +0,0 @@
-#!/bin/sh
-
-MAKEFILE=$HOME/local/cpplapack/makefiles/Makefile
-rootdir=`pwd`
-logfile="$rootdir/do.log"
-rm -f $logfile
-echo "writing in $logfile"
-
-for i in `find * -type d | grep -v .svn`; do
-  if [ -d $i ]; then
-    echo "################ Enter into $i/ ################" >> $logfile 2>&1 || exit 1
-    cd $i || exit 1
-    if [ -f SUCCEEDED ]; then
-      echo "======== Skipping cause already succeeded ========" >> $logfile 2>&1 || exit 1
-    elif [ -f main.cpp ]; then
-      echo "======== Making ========" >> $logfile 2>&1 || exit 1
-      make -f $MAKEFILE fullclean >> $logfile 2>&1 || exit 1
-      make -f $MAKEFILE debug  >> $logfile 2>&1 || exit 1
-      echo "======== Executing ./A.OUT ========" >> $logfile 2>&1 || exit 1
-      valgrind ./A.OUT >> $logfile 2>&1 || exit 1
-      make -f $MAKEFILE fullclean >> $logfile 2>&1 || exit 1
-      echo "======== Succeeded ========" >> $logfile 2>&1 || exit 1
-      touch SUCCEEDED
-    else
-      echo "======== No main.cpp ========" >> $logfile 2>&1 || exit 1
-    fi
-    cd $rootdir
-    echo "################ Exit  from $i/ ################" >> $logfile 2>&1 || exit 1
-  fi
-done
diff --git a/cpplapack-r198/.svn/pristine/30/30c88ec14047d3953b0ba8c2749200be2dc43521.svn-base b/cpplapack-r198/.svn/pristine/30/30c88ec14047d3953b0ba8c2749200be2dc43521.svn-base
deleted file mode 100644
index f803259..0000000
--- a/cpplapack-r198/.svn/pristine/30/30c88ec14047d3953b0ba8c2749200be2dc43521.svn-base
+++ /dev/null
@@ -1,17 +0,0 @@
-//=============================================================================
-/*! dgrmatrix*_dcovector operator */
-inline _dcovector operator*(const dgrmatrix& mat, const _dcovector& vec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(mat.n!=vec.l){
-    ERROR_REPORT;
-    std::cerr << "These matrix and vector can not make a product." << std::endl
-              << "Your input was (" << mat.m << "x" << mat.n << ") * (" << vec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dcovector VEC =vec;
-  dcovector newvec =mat*VEC;
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/31/312c9f7246bcd8a1d836adf1c05efc5ccbc3713a.svn-base b/cpplapack-r198/.svn/pristine/31/312c9f7246bcd8a1d836adf1c05efc5ccbc3713a.svn-base
deleted file mode 100644
index 688ddf6..0000000
--- a/cpplapack-r198/.svn/pristine/31/312c9f7246bcd8a1d836adf1c05efc5ccbc3713a.svn-base
+++ /dev/null
@@ -1,116 +0,0 @@
-//=============================================================================
-/*! _dgbmatrix+dgbmatrix operator */
-inline _dgbmatrix operator+(const _dgbmatrix& matA, const dgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  if(matA.kl>=matB.kl && matA.ku>=matB.ku){
-    for(CPPL_INT i=0; i<matB.m; i++){
-      const CPPL_INT jmax =std::min(matB.n,i+matB.ku+1);
-      for(CPPL_INT j=std::max(CPPL_INT(0),i-matB.kl); j<jmax; j++){
-        matA(i,j) += matB(i,j);
-      }
-    }
-    
-    return matA;
-  }
-  
-  else{
-    dgbmatrix newmat(matA.m,matA.n,std::max(matA.kl,matB.kl),std::max(matA.ku,matB.ku));
-    newmat.zero();
-    
-    for(CPPL_INT i=0; i<matA.m; i++){
-      const CPPL_INT jmax1 =std::min(matA.n,i+matA.ku+1);
-      for(CPPL_INT j=std::max(CPPL_INT(0),i-matA.kl); j<jmax1; j++){
-        newmat(i,j) += matA(i,j);
-      }
-      const CPPL_INT jmax2 =std::min(matB.n,i+matB.ku+1);
-      for(CPPL_INT j=std::max(CPPL_INT(0),i-matB.kl); j<jmax2; j++){
-        newmat(i,j) += matB(i,j);
-      }
-    }
-    
-    matA.destroy();
-    return _(newmat);
-  }
-}
-
-//=============================================================================
-/*! _dgbmatrix-dgbmatrix operator */
-inline _dgbmatrix operator-(const _dgbmatrix& matA, const dgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") - (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  if(matA.kl>=matB.kl && matA.ku>=matB.ku){
-    for(CPPL_INT i=0; i<matB.m; i++){
-      const CPPL_INT jmax =std::min(matB.n,i+matB.ku+1);
-      for(CPPL_INT j=std::max(CPPL_INT(0),i-matB.kl); j<jmax; j++){
-        matA(i,j) -= matB(i,j);
-      }
-    }
-    
-    return matA;
-  }
-  
-  else{
-    dgbmatrix newmat(matA.m,matA.n,std::max(matA.kl,matB.kl),std::max(matA.ku,matB.ku));
-    newmat.zero();
-    
-    for(CPPL_INT i=0; i<matA.m; i++){
-      const CPPL_INT jmax1 =std::min(matA.n,i+matA.ku+1);
-      for(CPPL_INT j=std::max(CPPL_INT(0),i-matA.kl); j<jmax1; j++){
-        newmat(i,j) += matA(i,j);
-      }
-      const CPPL_INT jmax2 =std::min(matB.n,i+matB.ku+1);
-      for(CPPL_INT j=std::max(CPPL_INT(0),i-matB.kl); j<jmax2; j++){
-        newmat(i,j) -= matB(i,j);
-      }
-    }
-    
-    return _(newmat);
-  }
-}
-
-//=============================================================================
-/*! _dgbmatrix*dgbmatrix operator */
-inline _dgbmatrix operator*(const _dgbmatrix& matA, const dgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgbmatrix newmat( matA.m, matB.n, std::min(matA.kl+matB.kl,matA.m-1), std::min(matA.ku+matB.ku,matB.n-1) );
-  newmat.zero();
-  
-  for(CPPL_INT i=0; i<newmat.m; i++){
-    const CPPL_INT jmax =std::min(newmat.n,i+newmat.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-newmat.kl); j<jmax; j++){
-      const CPPL_INT kmax =std::min( std::min(matA.n,i+matA.ku+1), std::min(matB.m,j+matB.kl+1) );
-      for(CPPL_INT k=std::max( std::max(CPPL_INT(0),i-matA.kl), std::max(CPPL_INT(0),j-matB.ku) ); k<kmax; k++){
-        newmat(i,j) += matA(i,k)*matB(k,j);
-      }
-    }
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/31/31408c1a29f79450f06410f319488ced2868442e.svn-base b/cpplapack-r198/.svn/pristine/31/31408c1a29f79450f06410f319488ced2868442e.svn-base
deleted file mode 100644
index 4ee4ffd..0000000
--- a/cpplapack-r198/.svn/pristine/31/31408c1a29f79450f06410f319488ced2868442e.svn-base
+++ /dev/null
@@ -1,52 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int M(5), N(4), KL(3), KU(2);
-  
-  CPPL::zgbmatrix A(M,N,KL,KU);
-  for(int i=0; i<A.m; i++){ for(int j=0; j<A.n; j++){
-    if(!( i-j>A.kl || j-i>A.ku )){
-      A(i,j) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-    }
-  }}
-  
-  cout << "A =\n" << A << endl;
-  for(int i=0; i<A.m; i++){ for(int j=0; j<A.n; j++){
-    if(!( i-j>A.kl || j-i>A.ku )){
-      cout << "A(" << i << "," << j << ") =" << A(i,j) << endl;
-    }
-  }}
-  
-  
-  
-  const CPPL::zgbmatrix B(A);
-  cout << "B =\n" << B << endl;
-  
-  //B*=10.; //compile error
-  //B(0,0)=0.; //compile error
-  
-  //cout << "A+B=\n" << A+B << endl;
-  
-  //// write/read ////
-  B.write( "tmp.txt" );
-  CPPL::zgbmatrix C;
-  C.read( "tmp.txt" );
-  cout << "C-B =\n" << C-B << "<-Should be zero." << endl;
-
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/31/31dc12899c3bf351979822817b26c562e1940073.svn-base b/cpplapack-r198/.svn/pristine/31/31dc12899c3bf351979822817b26c562e1940073.svn-base
deleted file mode 100644
index dd22767..0000000
--- a/cpplapack-r198/.svn/pristine/31/31dc12899c3bf351979822817b26c562e1940073.svn-base
+++ /dev/null
@@ -1,52 +0,0 @@
-//=============================================================================
-/*! zgematrix*=comple operator */
-inline zgematrix& zgematrix::operator*=(const comple& d)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT size =m*n;
-  CPPL_INT inc =1;
-  zscal_(&size, &d, array, &inc);
-  return *this;
-}
-
-//=============================================================================
-/*! zgematrix/=comple operator */
-inline zgematrix& zgematrix::operator/=(const comple& d)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT size =m*n;
-  comple dinv =1./d;
-  CPPL_INT inc =1;
-  zscal_(&size, &dinv, array, &inc);
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zgematrix*comple operator */
-inline _zgematrix operator*(const zgematrix& mat, const comple& d)
-{CPPL_VERBOSE_REPORT;
-  zgematrix newmat(mat.m, mat.n);
-  
-  const CPPL_INT size =mat.m*mat.n;
-  for(CPPL_INT i=0; i<size; i++){
-    newmat.array[i] =mat.array[i]*d;
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! zgematrix/comple operator */
-inline _zgematrix operator/(const zgematrix& mat, const comple& d)
-{CPPL_VERBOSE_REPORT;
-  zgematrix newmat(mat.m, mat.n);
-  
-  const CPPL_INT size =mat.m*mat.n;
-  for(CPPL_INT i=0; i<size; i++){
-    newmat.array[i] =mat.array[i]/d;
-  }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/32/322355965d2607b757119b9faebd2aae77c69239.svn-base b/cpplapack-r198/.svn/pristine/32/322355965d2607b757119b9faebd2aae77c69239.svn-base
deleted file mode 100644
index b25cf08..0000000
--- a/cpplapack-r198/.svn/pristine/32/322355965d2607b757119b9faebd2aae77c69239.svn-base
+++ /dev/null
@@ -1,20 +0,0 @@
-//=============================================================================
-/*! +dssmatrix operator */
-inline const dssmatrix& operator+(const dssmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  return mat;
-}
-
-//=============================================================================
-/*! -dssmatrix operator */
-inline _dssmatrix operator-(const dssmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  dssmatrix newmat(mat);
-  
-  const std::vector<dcomponent>::iterator newmat_data_end =newmat.data.end();
-  for(std::vector<dcomponent>::iterator it=newmat.data.begin(); it!=newmat_data_end; it++){
-    it->v =-it->v;
-  }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/32/32bd1f8143bcf2b4d0e5cf98b9d8789c05fbd75d.svn-base b/cpplapack-r198/.svn/pristine/32/32bd1f8143bcf2b4d0e5cf98b9d8789c05fbd75d.svn-base
deleted file mode 100644
index 3476e51..0000000
--- a/cpplapack-r198/.svn/pristine/32/32bd1f8143bcf2b4d0e5cf98b9d8789c05fbd75d.svn-base
+++ /dev/null
@@ -1,155 +0,0 @@
-<!---------------------------------------------------------------------------->
-<!---------------------------------------------------------------------------->
-<!---------------------------------------------------------------------------->
-<hr>
-<h3>Ideas of Implementation</h3>
-<p>
-The sparse-matrix classes of CPPLapack is designed in the following policies.
-<ul>
-<li>The matrix data must be stored continuously in the memory space.
-The link-list is not adopted because it is too slow.</li>
-<li>The put and del operation of a component should not come with the relocation of the matrix data as the push_back and pop_back functions of std::vector always do.</li>
-</ul>
-</p>
-
-<p>
-Each sparse-matrix object has the following important member variables.
-<center><table border="3">
-<tr>
-  <td><code>int cap</code></td>
-  <td>size of matrix data array (capacity of the number of components)</td>
-</tr>
-<tr>
-  <td><code>int vol</code></td>
-  <td>current volume of array size (current number of non-zero component)</td>
-</tr>
-<tr>
-  <td><code>int* indx</code></td>
-  <td>row index of matrix data</td>
-</tr>
-<tr>
-  <td><code>int* jndx</code></td>
-  <td>column index of matrix data</td>
-</tr>
-</table></center>
-
-<p>
-The size of <code>array</code> is determined by <code>cap</code>.
-The volume of the matrix <code>vol</code> is changed each time when a non-zero component is put or deleted.
-</p>
-
-<p>
-For example, <code>CPPL::dssmatrix A(m,n,cap);</code> makes a <code>m</code>x<code>n</code> matrix <code>A</code> which has <code>cap</code> free data space.
-Its <code>vol</code> is automatically set to zero in this case.
-</p>
-
-<!---------------------------------------------------------------------------->
-<!---------------------------------------------------------------------------->
-<!---------------------------------------------------------------------------->
-<hr>
-<h3>"put" and "fput"</h3>
-<p>
-To assign a value to a component of dssmatrix or zssmatrix,  use "put" or "fput" function.
-</p>
-
-<p>
-The <code>"put(i,j,v)"</code> function checks if the (i,j) component already exists.
-When the (i,j) component exists, <code>put</code> function overwrite the existing value.
-When the (i,j) component doesn't exist, <code>put</code> function creates a new element and increase the volume(VOL++;).
-In case VOL=CAP, <code>put</code> function calls <code>expand</code> function before creating a new element.
-</p>
-
-<p>
-On the other hand, the <code>"fput(i,j,v)"</code> function doesn't check if the (i,j) component already exists and if VOL=CAP.
-The <code>fput</code> function always suppose that the (i,j) component doesn't exist and VOL&lt;CAP,
-and simply creates a new element and increase the volume(VOL++;).
-</p>
-
-<p>
-The <code>"fput(i,j,v)"</code> function is faster but more dangerous than the <code>"put(i,j,v)"</code> function.
-</p>
-
-<!---------------------------------------------------------------------------->
-<!---------------------------------------------------------------------------->
-<!---------------------------------------------------------------------------->
-<hr>
-<h3>"add", "sub", "mult", and "div"</h3>
-<p>
-To add, subtract, multiply, and divide a component of dssmatrix or zssmatrix, use the <code>add</code>, <code>sub</code>, <code>mult</code>, and <code>div</code> functions, respectively.
-</p>
-
-<p>
-These functions check if the (i,j) component already exists.
-When the (i,j) component exists, these functions operate the existing value.
-When the (i,j) component doesn't exist, the <code>add</code> and <code>sub</code> functions create a new element, set to v and -v respectively, and VOL++, and the <code>mult</code> and <code>div</code> functions do nothing.
-</p>
-
-<!---------------------------------------------------------------------------->
-<!---------------------------------------------------------------------------->
-<!---------------------------------------------------------------------------->
-<hr>
-<h3>"del" and "fdel"</h3>
-<p>
-To delete a component of dssmatrix or zssmatrix, use <code>del</code> or <code>fdel</code> function.
-</p>
-
-<p>
-The <code>del(i,j)</code> function deletes the (i,j) component when it exists.
-The <code>fdel(c)</code> function deletes the cth element of the array when it exists.
-</p>
-
-<p>When you use <code>del</code> or <code>fdel</code> in a loop, you must pay a lot of attention to what they do.
-
-For example, the following for-loop doesn't work as it seems to be.
-<br><code>
-for(int c=0; c<A.vol; c++){<br>
- if(A.indx[i]==A.jndx[c]){ A.fdel(c); }<br>
-}
-</code><br>
-
-To make the code work as we expect, 
-<br><code>
-for(int c=0; c<A.vol; c++){<br>
- if(A.indx[i]==A.jndx[c]){ A.fdel(c); c--; }<br>
-}
-</code><br>
-
-<!---------------------------------------------------------------------------->
-<!---------------------------------------------------------------------------->
-<!---------------------------------------------------------------------------->
-<hr>
-<h3>"expand" and "CPPL_SS_SECTOR"</h3>
-<p>
-The <code>expand</code> function creates an array which is "a little bit" larger than the current array, copies the data of current array to the new array, and deletes the current array.
-The size of "a little bit" is defined in cpplapack.h as a macro "CPPL_SS_SECTOR".
-You can edit cpplapack.h and change the value of "CPPL_SS_SECTOR".
-</p>
-
-
-<!---------------------------------------------------------------------------->
-<!---------------------------------------------------------------------------->
-<!---------------------------------------------------------------------------->
-<hr>
-<h3>"isListed" and "number"</h3>
-<p>
-The <code>isListed(i,j)</code> function checks if the (i,j) component is listed.
-When the (i,j) component is listed, this function returns 1, otherwise 0.
-</p>
-
-<p>
-The <code>number(i,j)</code> function returns the element number of the (i,j) component if it is listed.
-When the (i,j) component is no listed, this function returns -1.
-</p>
-
-<!---------------------------------------------------------------------------->
-<!---------------------------------------------------------------------------->
-<!---------------------------------------------------------------------------->
-<hr>
-<h3>"checkup"</h3>
-<p>
-After using fput, read, etc., you may break the consistency of the object.
-The <code>checkup</code> function is helpful for the debugging.
-It checks the bounds of <code>cap</code>, <code>vol</code>, <code>indx</code>, and <code>jndx</code>, and the double-entry of the elements.
-</p>
-
-
diff --git a/cpplapack-r198/.svn/pristine/33/3364beaa2268d64ad3e7a891aa2acb765ad6c37e.svn-base b/cpplapack-r198/.svn/pristine/33/3364beaa2268d64ad3e7a891aa2acb765ad6c37e.svn-base
deleted file mode 100644
index 47f561f..0000000
--- a/cpplapack-r198/.svn/pristine/33/3364beaa2268d64ad3e7a891aa2acb765ad6c37e.svn-base
+++ /dev/null
@@ -1,77 +0,0 @@
-//=============================================================================
-/*! zgbmatrix+zgematrix operator */
-inline _zgematrix operator+(const zgbmatrix& matA, const zgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  zgematrix newmat(matB);
-  
-  for(CPPL_INT i=0; i<matA.m; i++){
-    const CPPL_INT jmax =std::min(matA.n,i+matA.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matA.kl); j<jmax; j++){
-      newmat(i,j)+=matA(i,j);
-    }
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! zgbmatrix-zgematrix operator */
-inline _zgematrix operator-(const zgbmatrix& matA, const zgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(-matB);
-  
-  for(CPPL_INT i=0; i<matA.m; i++){
-    const CPPL_INT jmax =std::min(matA.n,i+matA.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matA.kl); j<jmax; j++){
-      newmat(i,j)+=matA(i,j);
-    }
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! zgbmatrix*zgematrix operator */
-inline _zgematrix operator*(const zgbmatrix& matA, const zgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat( matA.m, matB.n );
-  newmat.zero();
-  
-  for(CPPL_INT i=0; i<newmat.m; i++){
-    for(CPPL_INT j=0; j<newmat.n; j++){
-      const CPPL_INT kmax =std::min(matA.n,i+matA.ku+1);
-      for(CPPL_INT k=std::max(CPPL_INT(0),i-matA.kl); k<kmax; k++){
-        newmat(i,j)+=matA(i,k)*matB(k,j);
-      }
-    }
-  }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/33/33750fb8917a62cdd6ff967a1027db002308db1f.svn-base b/cpplapack-r198/.svn/pristine/33/33750fb8917a62cdd6ff967a1027db002308db1f.svn-base
deleted file mode 100644
index 421bbb6..0000000
--- a/cpplapack-r198/.svn/pristine/33/33750fb8917a62cdd6ff967a1027db002308db1f.svn-base
+++ /dev/null
@@ -1,45 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int M(4), N(3), KL(2), KU(1);
-  
-  CPPL::dgbmatrix A(M,N,KL,KU);
-  CPPL::dgematrix B(M,N), C(N,M);
-  
-  for(int i=0; i<A.m; i++){
-    for(int j=std::max(0,i-A.kl); j<std::min(A.n,i+A.ku+1); j++){
-      A(i,j) =double( rand() /(RAND_MAX/10) );
-    }
-  }
-  for(int i=0; i<B.m; i++){ for(int j=0; j<B.n; j++){
-    B(i,j) =double( rand() /(RAND_MAX/10) );
-  }}
-  for(int i=0; i<C.m; i++){ for(int j=0; j<C.n; j++){
-    C(i,j) =double( rand() /(RAND_MAX/10) );
-  }}
-  
-  cout << "A =\n" << A << endl;
-  cout << "B =\n" << B << endl;
-  cout << "C =\n" << C << endl;
-  
-  cout << "A+B =\n" << A+B << endl;
-  cout << "A-B =\n" << A-B << endl;
-  cout << "A*C =\n" << A*C << endl;
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/33/33af6500790fe96a3025b76d795b68bbe3e3bb14.svn-base b/cpplapack-r198/.svn/pristine/33/33af6500790fe96a3025b76d795b68bbe3e3bb14.svn-base
deleted file mode 100644
index 6e23e53..0000000
--- a/cpplapack-r198/.svn/pristine/33/33af6500790fe96a3025b76d795b68bbe3e3bb14.svn-base
+++ /dev/null
@@ -1,83 +0,0 @@
-//=============================================================================
-/*! _zgsmatrix+_zgbmatrix operator */
-/*
-inline _zgematrix operator+(const _zgsmatrix& matA, const _zgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(matA);
-  
-  for(CPPL_INT i=0; i<matB.m; i++){
-    for(CPPL_INT j=max(0,i-matB.kl); j<min(matB.n,i+matB.ku+1); j++){
-      newmat(i,j)+=matB(i,j);
-    }
-  }
-  
-  matA.destroy();
-  matB.destroy();
-  return _(newmat);
-}
-*/
-//=============================================================================
-/*! _zgsmatrix-_zgbmatrix operator */
-/*
-inline _zgematrix operator-(const _zgsmatrix& matA, const _zgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(matA);
-  
-  for(CPPL_INT i=0; i<matB.m; i++){
-    for(CPPL_INT j=max(0,i-matB.kl); j<min(matB.n,i+matB.ku+1); j++){
-      newmat(i,j)-=matB(i,j);
-    }
-  }
-  
-  matA.destroy();
-  matB.destroy();
-  return _(newmat);
-}
-*/
-//=============================================================================
-/*! _zgsmatrix*_zgbmatrix operator */
-/*
-inline _zgematrix operator*(const _zgsmatrix& matA, const _zgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat( matA.m, matB.n );
-  newmat.zero();
-  
-  for(CPPL_INT c=0; c<matA.vol; c++){
-    for(CPPL_INT k=max(0,matA.jndx[c]-matB.ku);
-        k<min(matB.m,matA.jndx[c]+matB.kl+1); k++){
-      newmat(matA.indx[c],k) += matA.array[c]*matB(matA.jndx[c],k);
-    }
-  }
-  
-  matA.destroy();
-  matB.destroy();
-  return _(newmat);
-}
-*/
diff --git a/cpplapack-r198/.svn/pristine/33/33ce4169a33dd02e684ce284e6d306dfc7f0258b.svn-base b/cpplapack-r198/.svn/pristine/33/33ce4169a33dd02e684ce284e6d306dfc7f0258b.svn-base
deleted file mode 100644
index 1d5d57e..0000000
--- a/cpplapack-r198/.svn/pristine/33/33ce4169a33dd02e684ce284e6d306dfc7f0258b.svn-base
+++ /dev/null
@@ -1,567 +0,0 @@
-//=============================================================================
-/*! convert zgematrix_small to zgematrix */
-template<CPPL_INT m, CPPL_INT n>
-inline _zgematrix zgematrix_small<m,n>::to_zgematrix() const
-{CPPL_VERBOSE_REPORT;
-  zgematrix mat(m,n);
-  for(CPPL_INT i=0; i<m; i++){
-    for(CPPL_INT j=0; j<n; j++){
-      mat(i,j) =(*this)(i,j);
-    }
-  }
-  return _(mat);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! operator() */
-template<CPPL_INT m, CPPL_INT n>
-inline comple& zgematrix_small<m,n>::operator()(const CPPL_INT& i, const CPPL_INT& j)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || j<0 || m<=i || n<=j ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the matrix size." << std::endl
-              << "Your input is (" << i << "," << j << "), whereas the matrix size is " << m << "x" << n << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  return array[i+m*j];
-}
-
-//=============================================================================
-/*! operator() for const */
-template<CPPL_INT m, CPPL_INT n>
-inline comple zgematrix_small<m,n>::operator()(const CPPL_INT& i, const CPPL_INT& j) const
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || j<0 || m<=i || n<=j ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the matrix size." << std::endl
-              << "Your input is (" << i << "," << j << "), whereas the matrix size is " << m << "x" << n << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  return array[i+m*j];
-}
-
-//=============================================================================
-/*! set */
-template<CPPL_INT m, CPPL_INT n>
-inline zgematrix_small<m,n>& zgematrix_small<m,n>::set(const CPPL_INT& i, const CPPL_INT& j, const comple& v)
-{CPPL_VERBOSE_REPORT;
-  (*this)(i,j) =v;
-  return *this;
-}
-
-//=============================================================================
-/*! operator<< */
-template<CPPL_INT m, CPPL_INT n>
-inline std::ostream& operator<<(std::ostream& s, const zgematrix_small<m,n>& A)
-{CPPL_VERBOSE_REPORT;
-  s << std::setiosflags(std::ios::showpos);
-  for(CPPL_INT i=0; i<m; i++){
-    for(CPPL_INT j=0; j<n; j++){
-      s << " " << A(i,j);
-    }
-    s << std::endl;
-  }
-  return s;
-}
-
-//=============================================================================
-/*! write to file */
-template<CPPL_INT m, CPPL_INT n>
-inline void zgematrix_small<m,n>::write(const char* filename) const
-{CPPL_VERBOSE_REPORT;
-  std::ofstream ofs(filename, std::ios::trunc);
-  ofs.setf(std::cout.flags());
-  ofs.precision(std::cout.precision());
-  ofs.width(std::cout.width());
-  ofs.fill(std::cout.fill());
-  ofs << "#zgematrix" << " " << m << " " << n << std::endl;
-  for(CPPL_INT i=0; i<m; i++){
-    for(CPPL_INT j=0; j<n; j++){
-      ofs << (*this)(i,j) << " ";
-    }
-    ofs << std::endl;
-  }
-  ofs.close();
-}
-
-//=============================================================================
-/*! read from file */
-template<CPPL_INT m, CPPL_INT n>
-inline void zgematrix_small<m,n>::read(const char* filename)
-{CPPL_VERBOSE_REPORT;
-  std::ifstream s( filename );
-  if(!s){
-    ERROR_REPORT;
-    std::cerr << "The file \"" << filename << "\" can not be opened." << std::endl;
-    exit(1);
-  }
-  
-  std::string id;
-  s >> id;
-  if( id != "zgematrix" && id != "#zgematrix" ){
-    ERROR_REPORT;
-    std::cerr << "The type name of the file \"" << filename << "\" is not zgematrix." << std::endl
-              << "Its type name was " << id << " ." << std::endl;
-    exit(1);
-  }
-  
-  CPPL_INT _m, _n;
-  s >> _m >> _n;
-  if(m!=_m || n!=_n){
-    ERROR_REPORT;
-    std::cerr << "Matrix size is invalid." << std::endl;
-    exit(1);
-  }
-  for(CPPL_INT i=0; i<m; i++){
-    for(CPPL_INT j=0; j<n; j++ ){
-      s >> operator()(i,j);
-    }
-  }
-  if(s.eof()){
-    ERROR_REPORT;
-    std::cerr << "There is something is wrong with the file \"" << filename << "\"." << std::endl
-              << "Most likely, there is not enough data components, or a linefeed code or space code is missing at the end of the last line." << std::endl;
-    exit(1);
-  }
-  
-  s >> id;
-  if(!s.eof()){
-    ERROR_REPORT;
-    std::cerr << "There is something is wrong with the file \"" << filename << "\"." << std::endl
-              << "Most likely, there are extra data components." << std::endl;
-    exit(1);
-  }
-  
-  s.close();    
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! return transposed zgematrix_small */
-template<CPPL_INT m, CPPL_INT n>
-inline zgematrix_small<n,m> t(const zgematrix_small<m,n>& A)
-{CPPL_VERBOSE_REPORT;
-  zgematrix_small<n,m> X;
-  for(CPPL_INT i=0; i<m; i++){
-    for(CPPL_INT j=0; j<n; j++){
-      X(j,i) =A(i,j);
-    }
-  }
-  return X;
-}
-
-//=============================================================================
-/*! return its trace */
-template<CPPL_INT m, CPPL_INT n>
-inline comple trace(const zgematrix_small<m,n>& A)
-{CPPL_VERBOSE_REPORT;
-  comple trace =comple(0.,0);
-  
-  const CPPL_INT imax =std::min(m,n);
-  for(CPPL_INT i=0; i<imax; i++){
-    trace +=A(i,i);
-  }
-  
-  return trace;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zero */
-template<CPPL_INT m, CPPL_INT n>
-inline zgematrix_small<m,n>& zgematrix_small<m,n>::zero()
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT k=0; k<m*n; k++){
-    array[k] =comple(0.,0.);
-  }
-  
-  return *this;
-}
-
-//=============================================================================
-/*! identity */
-template<CPPL_INT m, CPPL_INT n>
-inline zgematrix_small<m,n>& zgematrix_small<m,n>::identity()
-{CPPL_VERBOSE_REPORT;
-  zero();
-  
-  const CPPL_INT kmax =std::min(m,n);
-  for(CPPL_INT k=0; k<kmax; k++){
-    (*this)(k,k) =1.;
-  }
-  
-  return *this;
-}
-
-//=============================================================================
-/*! return the j-th column vector */
-template<CPPL_INT m, CPPL_INT n>
-inline zcovector_small<m> zgematrix_small<m,n>::col(const CPPL_INT& j) const
-{CPPL_VERBOSE_REPORT;
-  zcovector_small<m> vec;
-  for(CPPL_INT i=0; i<m; i++){
-    vec(i) =(*this)(i,j);
-  }
-  return vec;
-}
-
-//=============================================================================
-/*! return the i-th row vector */
-template<CPPL_INT m, CPPL_INT n>
-inline zrovector_small<n> zgematrix_small<m,n>::row(const CPPL_INT& i) const
-{CPPL_VERBOSE_REPORT;
-  zrovector_small<n> vec;
-  for(CPPL_INT j=0; j<n; j++){
-    vec(j)=(*this)(i,j);
-  }
-  return vec;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zgematrix_small+=zgematrix_small operator */
-template<CPPL_INT m, CPPL_INT n>
-inline zgematrix_small<m,n>& operator+=(zgematrix_small<m,n>& A, const zgematrix_small<m,n>& B)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT k=0; k<m*n; k++){
-    A.array[k] +=B.array[k];
-  }
-  return A;
-}
-
-//=============================================================================
-/*! zgematrix_small-=zgematrix_small operator */
-template<CPPL_INT m, CPPL_INT n>
-inline zgematrix_small<m,n>& operator-=(zgematrix_small<m,n>& A, const zgematrix_small<m,n>& B)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT k=0; k<m*n; k++){
-    A.array[k] -=B.array[k];
-  }
-  return A;
-}
-
-//=============================================================================
-/*! zgematrix_small*=zgematrix_small operator */
-template<CPPL_INT m, CPPL_INT l, CPPL_INT n>
-inline zgematrix_small<m,n>& operator*=(zgematrix_small<m,l>& A, const zgematrix_small<l,n>& B)
-{CPPL_VERBOSE_REPORT;
-  zgematrix_small<m,n> X;
-  X.zero();
-  for(CPPL_INT i=0; i<m; i++){
-    for(CPPL_INT j=0; j<n; j++){
-      for(CPPL_INT k=0; k<l; k++){
-        X(i,j) += A(i,k)*B(k,j);
-      }
-    }
-  }
-  A =X;
-  return A;
-}
-
-//=============================================================================
-/*! zgematrix_small*=double operator */
-template<CPPL_INT m, CPPL_INT n>
-inline zgematrix_small<m,n>& operator*=(zgematrix_small<m,n>& A, const double& v)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT k=0; k<m*n; k++){
-    A.array[k] *=v;
-  }
-  return A;
-}
-
-//=============================================================================
-/*! zgematrix_small*=comple operator */
-template<CPPL_INT m, CPPL_INT n>
-inline zgematrix_small<m,n>& operator*=(zgematrix_small<m,n>& A, const comple& v)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT k=0; k<m*n; k++){
-    A.array[k] *=v;
-  }
-  return A;
-}
-
-//=============================================================================
-/*! zgematrix_small/=double operator */
-template<CPPL_INT m, CPPL_INT n>
-inline zgematrix_small<m,n>& operator/=(zgematrix_small<m,n>& A, const double& v)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT k=0; k<m*n; k++){
-    A.array[k] /=v;
-  }
-  return A;
-}
-//=============================================================================
-/*! zgematrix_small/=comple operator */
-template<CPPL_INT m, CPPL_INT n>
-inline zgematrix_small<m,n>& operator/=(zgematrix_small<m,n>& A, const comple& v)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT k=0; k<m*n; k++){
-    A.array[k] /=v;
-  }
-  return A;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! unary + operator */
-template<CPPL_INT m, CPPL_INT n>
-inline const zgematrix_small<m,n>& operator+(const zgematrix_small<m,n>& A)
-{CPPL_VERBOSE_REPORT;
-  return A;
-}
-
-//=============================================================================
-/*! unary - operator */
-template<CPPL_INT m, CPPL_INT n>
-inline zgematrix_small<m,n> operator-(const zgematrix_small<m,n>& A)
-{CPPL_VERBOSE_REPORT;
-  zgematrix_small<m,n> X;
-  for(CPPL_INT i=0; i<m; i++){
-    for(CPPL_INT j=0; j<n; j++){
-      X(i,j) =-A(i,j);
-    }
-  }
-  return X;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zgematrix_small+zgematrix_small operator */
-template<CPPL_INT m, CPPL_INT n>
-inline zgematrix_small<m,n> operator+(const zgematrix_small<m,n>& A, const zgematrix_small<m,n>& B)
-{CPPL_VERBOSE_REPORT;
-  zgematrix_small<m,n> C;
-  for(int i=0; i<m; i++){
-    for(int j=0; j<n; j++){
-      C(i,j) =A(i,j)+B(i,j);
-    }
-  }
-  return C;
-}
-
-//=============================================================================
-/*! zgematrix_small+zhematrix_small operator */
-template<CPPL_INT n>
-inline zgematrix_small<n,n> operator+(const zgematrix_small<n,n>& A, const zhematrix_small<n>& B)
-{CPPL_VERBOSE_REPORT;
-  zgematrix_small<n,n> X;
-  for(CPPL_INT i=0; i<n; i++){
-    for(CPPL_INT j=0; j<i; j++){
-      X(i,j) =A(i,j)+B(i,j);
-    }
-    for(CPPL_INT j=i; j<n; j++){
-      X(i,j) =A(i,j)+B(j,i);
-    }
-  }
-  return X;
-}
-
-//=============================================================================
-/*! zgematrix_small-zgematrix_small operator */
-template<CPPL_INT m, CPPL_INT n>
-inline zgematrix_small<m,n> operator-(const zgematrix_small<m,n>& A, const zgematrix_small<m,n>& B)
-{CPPL_VERBOSE_REPORT;
-  zgematrix_small<m,n> C;
-  for(int i=0; i<m; i++){
-    for(int j=0; j<n; j++){
-      C(i,j)=A(i,j)-B(i,j);
-    }
-  }
-  return C;
-}
-
-//=============================================================================
-/*! zgematrix_small-zhematrix_small operator */
-template<CPPL_INT n>
-inline zgematrix_small<n,n> operator-(const zgematrix_small<n,n>& A, const zhematrix_small<n>& B)
-{CPPL_VERBOSE_REPORT;
-  zgematrix_small<n,n> X;
-  for(CPPL_INT i=0; i<n; i++){
-    for(CPPL_INT j=0; j<=i; j++){
-      X(i,j)=A(i,j)-B(i,j);
-    }
-    for(CPPL_INT j=i+1; j<n; j++){
-      X(i,j)=A(i,j)-B(j,i);
-    }
-  }
-  return X;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zgematrix_small*zcovector_small operator */
-template<CPPL_INT m, CPPL_INT n>
-inline zcovector_small<m> operator*(const zgematrix_small<m,n>& A, const zcovector_small<n>& B)
-{CPPL_VERBOSE_REPORT;
-  zcovector_small<m> C;
-  C.zero();
-  for(CPPL_INT i=0; i<m; i++){
-    for(CPPL_INT j=0; j<n; j++){
-      C(i) +=A(i,j)*B(j);
-    }
-  }
-  return C;
-}
-
-//=============================================================================
-/*! zgematrix_small*zgematrix_small operator */
-template<CPPL_INT m, CPPL_INT l, CPPL_INT n>
-inline zgematrix_small<m,n> operator*(const zgematrix_small<m,l>& A, const zgematrix_small<l,n>& B)
-{CPPL_VERBOSE_REPORT;
-  zgematrix_small<m,n> C;
-  C.zero();
-  for(int i=0; i<m; i++){
-    for(int j=0; j<n; j++){
-      for(int k=0; k<l; k++){
-        C(i,j) +=A(i,k)*B(k,j);
-      }
-    }
-  }
-  return C;
-}
-
-//=============================================================================
-/*! zgematrix_small+zhematrix_small operator */
-template<CPPL_INT m, CPPL_INT n>
-inline zgematrix_small<m,n> operator*(const zgematrix_small<m,n>& A, const zhematrix_small<n>& B)
-{CPPL_VERBOSE_REPORT;
-  zgematrix_small<m,n> X;
-  X.zero();
-  for(CPPL_INT i=0; i<m; i++){
-    for(CPPL_INT j=0; j<n; j++){
-      for(CPPL_INT k=0; k<j; k++){
-        X(i,j) +=A(i,k)*B(j,k);
-      }
-      for(CPPL_INT k=j; k<n; k++){
-        X(i,j) +=A(i,k)*B(k,j);
-      }
-    }
-  }
-  return X;
-}
-
-//=============================================================================
-/*! zgematrix_small*double operator */
-template<CPPL_INT m, CPPL_INT n>
-inline zgematrix_small<m,n> operator*(const zgematrix_small<m,n>& A, const double& v)
-{CPPL_VERBOSE_REPORT;
-  zgematrix_small<m,n> C;
-  for(CPPL_INT i=0; i<m; i++){
-    for(CPPL_INT j=0; j<n; j++){
-      C(i,j) =A(i,j)*v;
-    }
-  }
-  return C;
-}
-
-//=============================================================================
-/*! zgematrix_small*comple operator */
-template<CPPL_INT m, CPPL_INT n>
-inline zgematrix_small<m,n> operator*(const zgematrix_small<m,n>& A, const comple& v)
-{CPPL_VERBOSE_REPORT;
-  zgematrix_small<m,n> C;
-  for(CPPL_INT i=0; i<m; i++){
-    for(CPPL_INT j=0; j<n; j++){
-      C(i,j) =A(i,j)*v;
-    }
-  }
-  return C;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zgematrix_small/double operator */
-template<CPPL_INT m, CPPL_INT n>
-inline zgematrix_small<m,n> operator/(const zgematrix_small<m,n>& A, const double& v)
-{CPPL_VERBOSE_REPORT;
-  zgematrix_small<m,n> C;
-  for(CPPL_INT i=0; i<m; i++){
-    for(CPPL_INT j=0; j<n; j++){
-      C(i,j) =A(i,j)/v;
-    }
-  }
-  return C;
-}
-
-//=============================================================================
-/*! zgematrix_small/comple operator */
-template<CPPL_INT m, CPPL_INT n>
-inline zgematrix_small<m,n> operator/(const zgematrix_small<m,n>& A, const comple& v)
-{CPPL_VERBOSE_REPORT;
-  zgematrix_small<m,n> C;
-  for(CPPL_INT i=0; i<m; i++){
-    for(CPPL_INT j=0; j<n; j++){
-      C(i,j) =A(i,j)/v;
-    }
-  }
-  return C;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! Hadamerd product */
-template<CPPL_INT m, CPPL_INT n>
-inline zgematrix_small<m,n> hadamerd(const zgematrix_small<m,n>& A, const zgematrix_small<m,n>& B)
-{CPPL_VERBOSE_REPORT;
-  zgematrix_small<m,n> C;
-  for(CPPL_INT i=0; i<m; i++){
-    for(CPPL_INT j=0; j<n; j++){
-      C(i,j) =A(i,j)*B(i,j);
-    }
-  }
-  return C;
-}
-
-//=============================================================================
-/*! Hadamerd product */
-template<CPPL_INT n>
-inline zgematrix_small<n,n> hadamerd(const zgematrix_small<n,n>& A, const zhematrix_small<n>& B)
-{CPPL_VERBOSE_REPORT;
-  zgematrix_small<n,n> C;
-  for(CPPL_INT i=0; i<n; i++){
-    for(CPPL_INT j=0; j<=i; j++){
-      C(i,j) =A(i,j)*B(i,j);
-    }
-    for(CPPL_INT j=i+1; j<n; j++){
-      C(i,j) =A(i,j)*conj(B(j,i));
-    }
-  }
-  return C;
-}
diff --git a/cpplapack-r198/.svn/pristine/34/343ebf6e1f97b039039f7392fdd30da46e65b4f0.svn-base b/cpplapack-r198/.svn/pristine/34/343ebf6e1f97b039039f7392fdd30da46e65b4f0.svn-base
deleted file mode 100644
index 1629e0f..0000000
--- a/cpplapack-r198/.svn/pristine/34/343ebf6e1f97b039039f7392fdd30da46e65b4f0.svn-base
+++ /dev/null
@@ -1,74 +0,0 @@
-//=============================================================================
-/*! dssmatrix+dgematrix operator */
-/*
-inline _dgematrix operator+(const dssmatrix& matA, const dgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat(matB);
-  for(CPPL_INT c=0; c<matA.vol; c++){
-    newmat(matA.indx[c],matA.jndx[c]) += matA.array[c];
-  }
-  
-  return _(newmat);
-}
-*/
-
-//=============================================================================
-/*! dssmatrix-dgematrix operator */
-/*
-inline _dgematrix operator-(const dssmatrix& matA, const dgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") - (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  dgematrix newmat(-matB);
-  for(CPPL_INT c=0; c<matA.vol; c++){
-    newmat(matA.indx[c],matA.jndx[c]) += matA.array[c];
-  }
-  
-  return _(newmat);
-}
-*/
-
-//=============================================================================
-/*! dssmatrix*dgematrix operator */
-inline _dgematrix operator*(const dssmatrix& matA, const dgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat(matA.m, matB.n);
-  newmat.zero();
-  
-  const std::vector<dcomponent>::const_iterator matA_data_end =matA.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matA.data.begin(); it!=matA_data_end; it++){
-    for(CPPL_INT j=0; j<matB.n; j++){
-      newmat(it->i, j) += it->v * matB(it->j, j);
-      if(it->i != it->j){
-        newmat(it->j, j) += it->v * matB(it->i, j);
-      }
-    }
-  }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/34/345a5d70c2556ac529ffcaeff514075ab22bf678.svn-base b/cpplapack-r198/.svn/pristine/34/345a5d70c2556ac529ffcaeff514075ab22bf678.svn-base
deleted file mode 100644
index a0f6d51..0000000
--- a/cpplapack-r198/.svn/pristine/34/345a5d70c2556ac529ffcaeff514075ab22bf678.svn-base
+++ /dev/null
@@ -1,38 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int M(4), N(3), KL(1), KU(2);
-  
-  CPPL::dgbmatrix A(M,N,KL,KU);
-  for(int i=0; i<A.m; i++){ for(int j=0; j<A.n; j++){
-    if(!( i-j>A.kl || j-i>A.ku )){ A(i,j) =double( rand() /(RAND_MAX/10) ); }
-  }}
-  
-  cout << "A =\n" << A << endl;
-  cout << "A*10. =\n" << A*10. << endl;
-  cout << "A/10. =\n" << A/10. << endl;
-  
-  cout << "#### A*=10.; ####" << endl;
-  A*=10.;
-  cout << "A =\n" << A << endl;
-  cout << "#### A/=10.; ####" << endl;
-  A/=10.;
-  cout << "A =\n" << A << endl;
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/34/34cf3d3d1f0e802eadcfa16126f0a1cf483f3428.svn-base b/cpplapack-r198/.svn/pristine/34/34cf3d3d1f0e802eadcfa16126f0a1cf483f3428.svn-base
deleted file mode 100644
index a861f10..0000000
--- a/cpplapack-r198/.svn/pristine/34/34cf3d3d1f0e802eadcfa16126f0a1cf483f3428.svn-base
+++ /dev/null
@@ -1,79 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int N(3);
-  
-  CPPL::dsymatrix A(N), X(N), Y(N), Z(N);
-  for(int i=0; i<A.n; i++){ for(int j=0; j<=i; j++){
-    A(i,j) =double( rand() /(RAND_MAX/10) );
-    X(i,j) = -A(i,j);
-    Y(i,j) = A(i,j);
-    Z(i,j) =double( rand() /(RAND_MAX/10) );
-  }}
-  
-    
-  cout << "A =\n" << A << endl;
-  cout << "X =\n" << X << endl;
-  cout << "Y =\n" << Y << endl;
-  cout << "Z =\n" << Z << endl;
-
-  //dsy+dsy
-  cout << "A+X =\n" << A+X << "<-Should be zero." << endl;
-  //dsy-dsy
-  cout << "A-Y =\n" << A-Y << "<-Should be zero." << endl;
-  //dsy*dsy
-  cout << "t(A*Z)-Z*A =\n" << t(A*Z)-Z*A << "<-Should be zero." << endl;
-
-  //dsy=dsy, dsy-dsy
-  CPPL::dsymatrix B;
-  cout << "(B=A)-A =\n" << (B=A)-A << "<-Should be zero." << endl;  
-  //dsy+=dsy
-  cout << "(B+=Z) =\n" << (B+=Z) << endl;  
-  //dsy-=dsy
-  cout << "(B-=A) =\n" << (B-=A) << endl;  
-  
-  //dsy+_dsy, -dsy
-  cout << "A+(-Y) =\n" << A+(-Y) << "<-Should be zero." << endl;
-  //dsy-_dsy, -dsy
-  cout << "A-(-X) =\n" << A-(-X) << "<-Should be zero." << endl;
-  //dsy*_dsy, dsy+dsy, dsy*dsy, _dge+_dge, _dge-_dge
-  cout << "A*(X+Z) - (A*X+A*Z) =\n" << A*(X+Z) - (A*X+A*Z) << "<-Should be zero." << endl;
-  
-  //dsy=_dsy
-  cout << "(B=-A)+A =\n" << (B=-A)+A << "<-Should be zero." << endl;  
-  //dsy+=_dsy
-  cout << "(B+=-Z) =\n" << (B+=-Z) << endl;  
-  //dsy-=_dsy
-  cout << "(B-=-A) =\n" << (B-=-A) << endl;  
-  
-  //_dsy+dsy, -dsy
-  cout << "(-A)+Y =\n" << (-A)+Y << "<-Should be zero." << endl;
-  //_dsy-dsy, -dsy
-  cout << "(-A)-X =\n" << (-A)-X << "<-Should be zero." << endl;
-  //_dsy*dsy, -dsy, dsy*dsy, _dge+_dge
-  cout << "(-A)*Z+(A*Z) =\n" << ((-A)*Z+(A*Z)) << "<-Should be zero." << endl;
-  
-  //_dsy+_dsy, -dsy, -dsy
-  cout << "(-A)+(-X) =\n" << (-A)+(-X) << "<-Should be zero." << endl;
-  //_dsy-_dsy, -dsy, -dsy
-  cout << "(-A)-(-Y) =\n" << (-A)-(-Y) << "<-Should be zero." << endl;
-  //_dsy*_dsy, -dsy, -dsy, dsy*dsy, _dge-_dge
-  cout << "(-A)*(-Z)-(A*Z) =\n" << (-A)*(-Z)-(A*Z) << "<-Should be zero." << endl;
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/35/351c2de08b96cd47ffeed6818bd5775f8edfc4de.svn-base b/cpplapack-r198/.svn/pristine/35/351c2de08b96cd47ffeed6818bd5775f8edfc4de.svn-base
deleted file mode 100644
index 86b0d3c..0000000
--- a/cpplapack-r198/.svn/pristine/35/351c2de08b96cd47ffeed6818bd5775f8edfc4de.svn-base
+++ /dev/null
@@ -1,45 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int M(4), N(3);
-  
-  CPPL::zgematrix A(M,N), B;
-  for(int i=0; i<A.m; i++){ for(int j=0; j<A.n; j++){
-    A(i,j) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-  }}
-  
-  cout << "A =\n" << A << endl;
-  cout << "#### B.copy(A) ####" << endl;
-  B.copy(A);
-  cout << "B =\n" << B << endl;
-  
-  cout << "#### B.clear() ####" << endl;
-  B.clear();
-  cout << "B =\n" << B << endl;
-  
-  cout << "#### B.resize(2,2) & B.zero() ####" << endl;
-  B.resize(2,2);
-  B.zero();
-  cout << "B =\n" << B << endl;
-  
-  cout << "#### B.identity() ####" << endl;
-  B.identity();
-  cout << "B =\n" << B << endl;
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/36/3604e6c9943062d1462c9d538547de95e338040f.svn-base b/cpplapack-r198/.svn/pristine/36/3604e6c9943062d1462c9d538547de95e338040f.svn-base
deleted file mode 100644
index 25d7ed8..0000000
--- a/cpplapack-r198/.svn/pristine/36/3604e6c9943062d1462c9d538547de95e338040f.svn-base
+++ /dev/null
@@ -1,66 +0,0 @@
-//=============================================================================
-/*! return a transposed column vector */
-inline _zcovector t(const zrovector& rovec)
-{CPPL_VERBOSE_REPORT;
-  zcovector covec(rovec.l);
-  CPPL_INT inc =1;
-  
-  zcopy_(&rovec.l, rovec.array, &inc, covec.array, &inc);
-  
-  return _(covec);
-}
-
-//=============================================================================
-/*! return its conjugated vector */
-inline _zrovector conj(const zrovector& vec)
-{CPPL_VERBOSE_REPORT;
-  zrovector newvec(vec.l);
-  
-  for(CPPL_INT i=0; i<vec.l; i++){
-    newvec(i) =std::conj(vec(i));
-  }
-  
-  return _(newvec);
-}
-
-//=============================================================================
-/*! return a conjugate transposed column vector */
-inline _zcovector conjt(const zrovector& rovec)
-{CPPL_VERBOSE_REPORT;
-  zcovector covec(rovec.l);
-  
-  for(CPPL_INT i=0; i<rovec.l; i++){
-    covec(i) =std::conj(rovec(i));
-  }
-  
-  return _(covec);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! return its Euclidean norm */
-inline double nrm2(const zrovector& vec)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT inc =1;
-  return dznrm2_(&vec.l, vec.array, &inc);
-}
-
-//=============================================================================
-/*! return the index of element having the largest absolute value
-  in 0-based numbering system */
-inline CPPL_INT idamax(const zrovector& vec)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT inc =1;
-  return izamax_(&vec.l, vec.array, &inc) -1;
-}
-
-//=============================================================================
-/*! return its largest absolute value */
-inline comple damax(const zrovector& vec)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT inc =1;
-  return vec.array[izamax_(&vec.l, vec.array, &inc) -1];
-}
diff --git a/cpplapack-r198/.svn/pristine/36/3636490f3b51aa029592b5730436682afb19c129.svn-base b/cpplapack-r198/.svn/pristine/36/3636490f3b51aa029592b5730436682afb19c129.svn-base
deleted file mode 100644
index aa45135..0000000
--- a/cpplapack-r198/.svn/pristine/36/3636490f3b51aa029592b5730436682afb19c129.svn-base
+++ /dev/null
@@ -1,181 +0,0 @@
-//=============================================================================
-//! Complex Double-precision General Dence Matrix Class
-class zgematrix
-{
-public:
-  ///////////////////////////////////////////////
-  /////////////////// objects ///////////////////
-  ///////////////////////////////////////////////
-  CPPL_INT m; //!< matrix row size
-  CPPL_INT n; //!< matrix column size
-  comple* array; //!< 1D array to store matrix data
-  comple** darray; //!< array of pointers of column head addresses
-  
-  ///////////////////////////////////////////////
-  ///////////////// constructors ////////////////
-  ///////////////////////////////////////////////
-  inline zgematrix();
-  inline zgematrix(const zgematrix&);
-  inline zgematrix(const _zgematrix&);
-  inline zgematrix(const CPPL_INT&, const CPPL_INT&);
-  inline zgematrix(const char*);
-  inline ~zgematrix(); //destructor
-  
-  ///////////////////////////////////////////////
-  ////////////////// functions //////////////////
-  ///////////////////////////////////////////////
-  //////// cast ////////
-  
-  //////// io ////////
-  inline comple& operator()(const CPPL_INT&, const CPPL_INT&);
-  inline comple operator()(const CPPL_INT&, const CPPL_INT&) const;
-  inline zgematrix& set(const CPPL_INT&, const CPPL_INT&, const comple&);
-  inline friend std::ostream& operator<<(std::ostream&, const zgematrix&);
-  inline void write(const char*) const;
-  inline void read(const char*);
-
-  //////// misc ////////
-  inline void clear();
-  inline zgematrix& zero();
-  inline zgematrix& identity();
-  inline void chsign();
-  inline void copy(const zgematrix&);
-  inline void shallow_copy(const _zgematrix&);
-  inline void resize(const CPPL_INT&, const CPPL_INT&);
-  inline _zrovector row(const CPPL_INT&) const;
-  inline _zcovector col(const CPPL_INT&) const;
-  inline _dgematrix real() const;
-  inline _dgematrix imag() const;
-  inline _dgematrix abs() const;
-  inline _dgematrix arg() const;
-  inline friend void swap(zgematrix&, zgematrix&);
-  inline friend _zgematrix _(zgematrix&);
-  
-  //////// calc ////////
-  inline friend _zgematrix t(const zgematrix&);
-  inline friend _zgematrix i(const zgematrix&);
-  inline friend _zgematrix conj(const zgematrix&);
-  inline friend _zgematrix conjt(const zgematrix&);
-  inline friend comple nrm2(const zgematrix&);
-  inline friend void idamax(CPPL_INT&, CPPL_INT&, const zgematrix&);
-  inline friend comple damax(const zgematrix&);
-  
-  //////// lapack ////////
-  inline CPPL_INT zgesv(zgematrix&);
-  inline CPPL_INT zgesv(zcovector&);
-  inline CPPL_INT zgels(zgematrix&);
-  inline CPPL_INT zgels(zcovector&);
-  inline CPPL_INT zgels(zgematrix&, drovector&);
-  inline CPPL_INT zgels(zcovector&, double&);
-  inline CPPL_INT zgelss(zcovector&, dcovector&, CPPL_INT&, const double);
-  inline CPPL_INT zgelss(zgematrix&, dcovector&, CPPL_INT&, const double);
-  inline CPPL_INT zgeev(std::vector< comple >&);
-  inline CPPL_INT zgeev(std::vector< comple >&, std::vector<zcovector>&);
-  inline CPPL_INT zgeev(std::vector< comple >&, std::vector<zrovector>&);
-  //inline CPPL_INT zgegv()
-  inline CPPL_INT zgesvd(dcovector&, zgematrix&, zgematrix&);
-  
-  ///////////////////////////////////////////////
-  ///////////// numerical operators /////////////
-  ///////////////////////////////////////////////
-  //////// = ////////
-  inline zgematrix& operator=(const  zgematrix&);
-  inline zgematrix& operator=(const _zgematrix&);
-  
-  //////// += ////////
-  inline zgematrix& operator+=(const  zgematrix&);
-  inline zgematrix& operator+=(const _zgematrix&);
-  inline zgematrix& operator+=(const  zhematrix&);
-  inline zgematrix& operator+=(const _zhematrix&);
-  inline zgematrix& operator+=(const  zgbmatrix&);
-  inline zgematrix& operator+=(const _zgbmatrix&);
-  inline zgematrix& operator+=(const  zgsmatrix&);
-  inline zgematrix& operator+=(const _zgsmatrix&);
-  inline zgematrix& operator+=(const  zhsmatrix&);
-  inline zgematrix& operator+=(const _zhsmatrix&);
-  
-  //////// -= ////////
-  inline zgematrix& operator-=(const  zgematrix&);
-  inline zgematrix& operator-=(const _zgematrix&);
-  inline zgematrix& operator-=(const  zhematrix&);
-  inline zgematrix& operator-=(const _zhematrix&);
-  inline zgematrix& operator-=(const  zgbmatrix&);
-  inline zgematrix& operator-=(const _zgbmatrix&);
-  inline zgematrix& operator-=(const  zgsmatrix&);
-  inline zgematrix& operator-=(const _zgsmatrix&);
-  inline zgematrix& operator-=(const  zhsmatrix&);
-  inline zgematrix& operator-=(const _zhsmatrix&);
-
-  //////// *= ////////
-  inline zgematrix& operator*=(const  zgematrix&);
-  inline zgematrix& operator*=(const _zgematrix&);
-  inline zgematrix& operator*=(const  zhematrix&);
-  inline zgematrix& operator*=(const _zhematrix&);
-  inline zgematrix& operator*=(const  zgbmatrix&);
-  inline zgematrix& operator*=(const _zgbmatrix&);
-  inline zgematrix& operator*=(const  zgsmatrix&);
-  inline zgematrix& operator*=(const _zgsmatrix&);
-  inline zgematrix& operator*=(const  zhsmatrix&);
-  inline zgematrix& operator*=(const _zhsmatrix&);
-  inline zgematrix& operator*=(const     double&);
-  inline zgematrix& operator*=(const     comple&);
-  
-  //////// /= ////////
-  inline zgematrix& operator/=(const     double&);
-  inline zgematrix& operator/=(const     comple&);
-
-  //////// unary ////////
-  inline friend const zgematrix& operator+(const zgematrix&);
-  inline friend _zgematrix operator-(const  zgematrix&);
-  
-  //////// + ////////
-  inline friend _zgematrix operator+(const  zgematrix&, const  zgematrix&);
-  inline friend _zgematrix operator+(const  zgematrix&, const _zgematrix&);
-  inline friend _zgematrix operator+(const  zgematrix&, const  zhematrix&);
-  inline friend _zgematrix operator+(const  zgematrix&, const _zhematrix&);
-  inline friend _zgematrix operator+(const  zgematrix&, const  zgbmatrix&);
-  inline friend _zgematrix operator+(const  zgematrix&, const _zgbmatrix&);
-  inline friend _zgematrix operator+(const  zgematrix&, const  zgsmatrix&);
-  inline friend _zgematrix operator+(const  zgematrix&, const _zgsmatrix&);
-  inline friend _zgematrix operator+(const  zgematrix&, const  zhsmatrix&);
-  inline friend _zgematrix operator+(const  zgematrix&, const _zhsmatrix&);
-  
-  //////// - ////////
-  inline friend _zgematrix operator-(const  zgematrix&, const  zgematrix&);
-  inline friend _zgematrix operator-(const  zgematrix&, const _zgematrix&);
-  inline friend _zgematrix operator-(const  zgematrix&, const  zhematrix&);
-  inline friend _zgematrix operator-(const  zgematrix&, const _zhematrix&);
-  inline friend _zgematrix operator-(const  zgematrix&, const  zgbmatrix&);
-  inline friend _zgematrix operator-(const  zgematrix&, const _zgbmatrix&);
-  inline friend _zgematrix operator-(const  zgematrix&, const  zgsmatrix&);
-  inline friend _zgematrix operator-(const  zgematrix&, const _zgsmatrix&);
-  inline friend _zgematrix operator-(const  zgematrix&, const  zhsmatrix&);
-  inline friend _zgematrix operator-(const  zgematrix&, const _zhsmatrix&);
-  
-  //////// * ////////
-  inline friend _zcovector operator*(const  zgematrix&, const  zcovector&);
-  inline friend _zcovector operator*(const  zgematrix&, const _zcovector&);
-  inline friend _zgematrix operator*(const  zgematrix&, const  zgematrix&);
-  inline friend _zgematrix operator*(const  zgematrix&, const _zgematrix&);
-  inline friend _zgematrix operator*(const  zgematrix&, const  zhematrix&);
-  inline friend _zgematrix operator*(const  zgematrix&, const _zhematrix&);
-  inline friend _zgematrix operator*(const  zgematrix&, const  zgbmatrix&);
-  inline friend _zgematrix operator*(const  zgematrix&, const _zgbmatrix&);  
-  inline friend _zgematrix operator*(const  zgematrix&, const  zgsmatrix&);
-  inline friend _zgematrix operator*(const  zgematrix&, const _zgsmatrix&);
-  inline friend _zgematrix operator*(const  zgematrix&, const  zhsmatrix&);
-  inline friend _zgematrix operator*(const  zgematrix&, const _zhsmatrix&);
-  inline friend _zgematrix operator*(const  zgematrix&, const     double&);
-  inline friend _zgematrix operator*(const  zgematrix&, const     comple&);
-  
-  //////// / ////////
-  inline friend _zgematrix operator/(const  zgematrix&, const     double&);
-  inline friend _zgematrix operator/(const  zgematrix&, const     comple&);
-
-  //////// double, comple ////////
-  inline friend _zgematrix operator*(const     double&, const  zgematrix&);
-  inline friend _zgematrix operator*(const     comple&, const  zgematrix&);
-  
-  //////// hadamard ////////
-  inline friend _zgematrix  hadamard(const  zgematrix&, const  zgematrix&);
-};
diff --git a/cpplapack-r198/.svn/pristine/36/363cb4c4de6e402adb36d2d4722386d6c01612f1.svn-base b/cpplapack-r198/.svn/pristine/36/363cb4c4de6e402adb36d2d4722386d6c01612f1.svn-base
deleted file mode 100644
index c8a95d6..0000000
--- a/cpplapack-r198/.svn/pristine/36/363cb4c4de6e402adb36d2d4722386d6c01612f1.svn-base
+++ /dev/null
@@ -1,48 +0,0 @@
-//=============================================================================
-/*! zcovector*=comple operator */
-inline zcovector& zcovector::operator*=(const comple& d)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT inc =1;
-  zscal_(&l, &d, array, &inc);
-  return *this;
-}
-
-//=============================================================================
-/*! zcovector/=comple operator */
-inline zcovector& zcovector::operator/=(const comple& d)
-{CPPL_VERBOSE_REPORT;
-  comple dinv =1./d;
-  CPPL_INT inc =1;
-  zscal_(&l, &dinv, array, &inc);
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zcovector*comple operator */
-inline _zcovector operator*(const zcovector& vec, const comple& d)
-{CPPL_VERBOSE_REPORT;
-  zcovector newvec(vec.l);
-  
-  for(CPPL_INT i=0; i<vec.l; i++){
-    newvec.array[i] =vec.array[i]*d;
-  }
-  
-  return _(newvec);
-}
-
-//=============================================================================
-/*! zcovector/comple operator */
-inline _zcovector operator/(const zcovector& vec, const comple& d)
-{CPPL_VERBOSE_REPORT;
-  zcovector newvec(vec.l);
-  
-  for(CPPL_INT i=0; i<vec.l; i++){
-    newvec.array[i] =vec.array[i]/d;
-  }
-  
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/37/378c50d078c50965dcae49d4bdc152974d14fb26.svn-base b/cpplapack-r198/.svn/pristine/37/378c50d078c50965dcae49d4bdc152974d14fb26.svn-base
deleted file mode 100644
index 2c68c53..0000000
--- a/cpplapack-r198/.svn/pristine/37/378c50d078c50965dcae49d4bdc152974d14fb26.svn-base
+++ /dev/null
@@ -1,17 +0,0 @@
-#!/bin/sh
-
-rootdir=`pwd`
-MAKEFILE=$HOME/local/cpplapack/makefiles/Makefile
-
-for i in `find * -type d | grep -v .svn`; do
-    if [ -d $i ]; then
-        echo "################ Enter into $i/ ################"
-        cd $i
-        if [ -f main.cpp ]; then
-            make -f $MAKEFILE fullclean && rm -f SUCCEEDED tmp.txt
-        fi
-        if [ $? != 0 ]; then exit 1; fi
-        cd $rootdir
-        echo "################ Exit  from $i/ ################"
-    fi
-done
diff --git a/cpplapack-r198/.svn/pristine/37/37b6f58aebaaae1b665e318acc8eaa27501683f3.svn-base b/cpplapack-r198/.svn/pristine/37/37b6f58aebaaae1b665e318acc8eaa27501683f3.svn-base
deleted file mode 100644
index 8713c14..0000000
--- a/cpplapack-r198/.svn/pristine/37/37b6f58aebaaae1b665e318acc8eaa27501683f3.svn-base
+++ /dev/null
@@ -1,63 +0,0 @@
-//=============================================================================
-/*! _zrovector+_zrovector operator */
-inline _zrovector operator+(const _zrovector& vecA, const _zrovector& vecB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vecA.l!=vecB.l){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make a sumation." << std::endl
-              << "Your input was (" << vecA.l << ") + (" << vecB.l << ")." << std::endl;
-    exit(1);
-  }
-  
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<vecA.l; i++){
-    vecA.array[i] += vecB.array[i];
-  }
-  
-  vecB.destroy();
-  return vecA;
-}
-
-//=============================================================================
-/*! _zrovector-_zrovector operator */
-inline _zrovector operator-(const _zrovector& vecA, const _zrovector& vecB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vecA.l!=vecB.l){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make a subtraction." << std::endl
-              << "Your input was (" << vecA.l << ") - (" << vecB.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<vecA.l; i++){
-    vecA.array[i] -= vecB.array[i];
-  }
-  
-  vecB.destroy();
-  return vecA;
-}
-
-//=============================================================================
-/*! _zrovector^T*_zrovector operator (inner product) */
-inline comple operator%(const _zrovector& vecA, const _zrovector& vecB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vecA.l!=vecB.l){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make a dot product." << std::endl
-              << "Your input was (" << vecA.l << ") % (" << vecB.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  CPPL_INT inc =1;
-  comple val =zdotu_( &vecA.l, vecA.array, &inc, vecB.array, &inc );
-  
-  vecA.destroy();
-  vecB.destroy();
-  return val;
-}
diff --git a/cpplapack-r198/.svn/pristine/38/3811a6b22adfe03baf1e7d86d7e8e8d38dd2e657.svn-base b/cpplapack-r198/.svn/pristine/38/3811a6b22adfe03baf1e7d86d7e8e8d38dd2e657.svn-base
deleted file mode 100644
index 85e4ac0..0000000
--- a/cpplapack-r198/.svn/pristine/38/3811a6b22adfe03baf1e7d86d7e8e8d38dd2e657.svn-base
+++ /dev/null
@@ -1,93 +0,0 @@
-//=============================================================================
-//! (DO NOT USE) Smart-temporary Real Double-precision General Dence Matrix Class
-class _dgematrix
-{
-public:
-  ///////////////////////////////////////////////
-  /////////////////// objects ///////////////////
-  ///////////////////////////////////////////////
-  mutable CPPL_INT m; //!< matrix row size
-  mutable CPPL_INT n; //!< matrix column size
-  mutable double* array; //!< 1D array to store matrix data
-  mutable double** darray; //!< array of pointers of column head addresses
-
-  ///////////////////////////////////////////////
-  ///////////////// constructors ////////////////
-  ///////////////////////////////////////////////
-  inline _dgematrix();
-  inline _dgematrix(const _dgematrix&);
-  inline ~_dgematrix(); //destructor
-  
-  ///////////////////////////////////////////////
-  ////////////////// functions //////////////////
-  ///////////////////////////////////////////////
-  //////// cast ////////
-  inline _zgematrix to_zgematrix() const;
-  
-  //////// io ////////
-  inline double& operator()(const CPPL_INT&, const CPPL_INT&) const;
-  inline friend std::ostream& operator<<(std::ostream&, const dgematrix&);
-  inline void write(const char*) const;
-  
-  //////// misc ////////
-  inline void nullify() const;
-  inline void destroy() const;
-  
-  //////// calc ////////
-  inline friend _dgematrix t(const _dgematrix&);
-  inline friend _dgematrix i(const _dgematrix&);
-  inline friend void idamax(CPPL_INT&, CPPL_INT&, const _dgematrix&);
-  inline friend double damax(const _dgematrix&);
-  
-  ///////////////////////////////////////////////
-  ///////////// numerical operators /////////////
-  ///////////////////////////////////////////////
-  //////// unary ////////
-  inline friend const _dgematrix& operator+(const _dgematrix&);
-  inline friend _dgematrix operator-(const _dgematrix&);
-  
-  //////// + ////////
-  inline friend _dgematrix operator+(const _dgematrix&, const  dgematrix&);
-  inline friend _dgematrix operator+(const _dgematrix&, const _dgematrix&);
-  inline friend _dgematrix operator+(const _dgematrix&, const  dsymatrix&);
-  inline friend _dgematrix operator+(const _dgematrix&, const _dsymatrix&);
-  inline friend _dgematrix operator+(const _dgematrix&, const  dgbmatrix&);
-  inline friend _dgematrix operator+(const _dgematrix&, const _dgbmatrix&);
-  inline friend _dgematrix operator+(const _dgematrix&, const  dgsmatrix&);
-  inline friend _dgematrix operator+(const _dgematrix&, const _dgsmatrix&);
-  inline friend _dgematrix operator+(const _dgematrix&, const  dssmatrix&);
-  inline friend _dgematrix operator+(const _dgematrix&, const _dssmatrix&);
-  
-  //////// - ////////
-  inline friend _dgematrix operator-(const _dgematrix&, const  dgematrix&);
-  inline friend _dgematrix operator-(const _dgematrix&, const _dgematrix&);
-  inline friend _dgematrix operator-(const _dgematrix&, const  dsymatrix&);
-  inline friend _dgematrix operator-(const _dgematrix&, const _dsymatrix&);
-  inline friend _dgematrix operator-(const _dgematrix&, const  dgbmatrix&);
-  inline friend _dgematrix operator-(const _dgematrix&, const _dgbmatrix&);
-  inline friend _dgematrix operator-(const _dgematrix&, const  dgsmatrix&);
-  inline friend _dgematrix operator-(const _dgematrix&, const _dgsmatrix&);
-  inline friend _dgematrix operator-(const _dgematrix&, const  dssmatrix&);
-  inline friend _dgematrix operator-(const _dgematrix&, const _dssmatrix&);
-  
-  //////// * ////////
-  inline friend _dcovector operator*(const _dgematrix&, const  dcovector&);
-  inline friend _dcovector operator*(const _dgematrix&, const _dcovector&);
-  inline friend _dgematrix operator*(const _dgematrix&, const  dgematrix&);
-  inline friend _dgematrix operator*(const _dgematrix&, const _dgematrix&);
-  inline friend _dgematrix operator*(const _dgematrix&, const  dsymatrix&);
-  inline friend _dgematrix operator*(const _dgematrix&, const _dsymatrix&);
-  inline friend _dgematrix operator*(const _dgematrix&, const  dgbmatrix&);
-  inline friend _dgematrix operator*(const _dgematrix&, const _dgbmatrix&);
-  inline friend _dgematrix operator*(const _dgematrix&, const  dgsmatrix&);
-  inline friend _dgematrix operator*(const _dgematrix&, const _dgsmatrix&);
-  inline friend _dgematrix operator*(const _dgematrix&, const  dssmatrix&);
-  inline friend _dgematrix operator*(const _dgematrix&, const _dssmatrix&);
-  inline friend _dgematrix operator*(const _dgematrix&, const     double&);
-  
-  //////// / ////////
-  inline friend _dgematrix operator/(const _dgematrix&, const     double&);
-  
-  //////// double ////////
-  inline friend _dgematrix operator*(const     double&, const _dgematrix&);
-};
diff --git a/cpplapack-r198/.svn/pristine/38/382b0d17e0fbbc9d729eb03d3a98e2c1af8cf267.svn-base b/cpplapack-r198/.svn/pristine/38/382b0d17e0fbbc9d729eb03d3a98e2c1af8cf267.svn-base
deleted file mode 100644
index ad75fcf..0000000
--- a/cpplapack-r198/.svn/pristine/38/382b0d17e0fbbc9d729eb03d3a98e2c1af8cf267.svn-base
+++ /dev/null
@@ -1,24 +0,0 @@
-//=============================================================================
-/*! dgbmatrix*dcovector operator */
-inline _dcovector operator*(const dgbmatrix& mat, const dcovector& vec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(mat.n!=vec.l){
-    ERROR_REPORT;
-    std::cerr << "These matrix and vector can not make a product." << std::endl
-              << "Your input was (" << mat.m << "x" << mat.n << ") * (" << vec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dcovector newvec(mat.m);
-  char trans ='n';
-  double alpha =1.;
-  CPPL_INT lda =mat.kl+mat.ku+1;
-  CPPL_INT inc =1;
-  double beta =0.;
-  
-  dgbmv_( &trans, &mat.m, &mat.n, &mat.kl, &mat.ku, &alpha, mat.array, &lda, vec.array, &inc, &beta, newvec.array, &inc );
-  
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/38/38452f9148a92928f972ba39024f6e7b11e07a12.svn-base b/cpplapack-r198/.svn/pristine/38/38452f9148a92928f972ba39024f6e7b11e07a12.svn-base
deleted file mode 100644
index 3b551c7..0000000
--- a/cpplapack-r198/.svn/pristine/38/38452f9148a92928f972ba39024f6e7b11e07a12.svn-base
+++ /dev/null
@@ -1,79 +0,0 @@
-//=============================================================================
-/*! _zgbmatrix+_zhematrix operator */
-inline _zgematrix operator+(const _zgbmatrix& matA, const _zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(matB);
-  
-  for(CPPL_INT i=0; i<matA.m; i++){
-    for(CPPL_INT j=max(0,i-matA.kl); j<min(matA.n,i+matA.ku+1); j++){
-      newmat(i,j)+=matA(i,j);
-    }
-  }
-  
-  matA.destroy();
-  matB.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _zgbmatrix-_zhematrix operator */
-inline _zgematrix operator-(const _zgbmatrix& matA, const _zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(-matB);
-  
-  for(CPPL_INT i=0; i<matA.m; i++){
-    for(CPPL_INT j=max(0,i-matA.kl); j<min(matA.n,i+matA.ku+1); j++){
-      newmat(i,j)-=matA(i,j);
-    }
-  }
-  
-  matA.destroy();
-  matB.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _zgbmatrix*_zhematrix operator */
-inline _zgematrix operator*(const _zgbmatrix& matA, const _zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat( matA.m, matB.n );
-  newmat.zero();
-  
-  for(CPPL_INT c=0; c<matB.vol; c++){
-    for(CPPL_INT i=max(0,matB.indx[c]-(matA.ku+1));
-        i<min(matA.m,matB.indx[c]+matA.kl); i++){
-      newmat(i,matB.jndx[c]) += matA(i,matB.indx[c])*matB.array[c];
-    }
-  }
-  
-  matA.destroy();
-  matB.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/38/388944c89e8a6c406636b4a6c7fff0311fc4a356.svn-base b/cpplapack-r198/.svn/pristine/38/388944c89e8a6c406636b4a6c7fff0311fc4a356.svn-base
deleted file mode 100644
index df4cb5d..0000000
--- a/cpplapack-r198/.svn/pristine/38/388944c89e8a6c406636b4a6c7fff0311fc4a356.svn-base
+++ /dev/null
@@ -1,106 +0,0 @@
-//=============================================================================
-//! Real Double-precision Column Vector Class
-class dcovector
-{
-public:
-  ///////////////////////////////////////////////
-  /////////////////// objects ///////////////////
-  ///////////////////////////////////////////////
-  CPPL_INT l; //!< vector size
-  CPPL_INT cap; //!< vector capacity
-  double* array; //!< 1D array to store vector data
-  
-  ///////////////////////////////////////////////
-  ///////////////// constructors ////////////////
-  ///////////////////////////////////////////////
-  inline dcovector();
-  inline dcovector(const dcovector&);
-  inline dcovector(const _dcovector&);
-  inline dcovector(const CPPL_INT&, const CPPL_INT=0);
-  inline dcovector(const char *);
-  inline ~dcovector(); //destructor
-  
-  ///////////////////////////////////////////////
-  ////////////////// functions //////////////////
-  ///////////////////////////////////////////////
-  //////// cast ////////
-  inline _zcovector to_zcovector() const;
-  
-  //////// io ////////
-  inline double& operator()(const CPPL_INT&);
-  inline double operator()(const CPPL_INT&) const;
-  inline dcovector& set(const CPPL_INT&, const double&); //const;
-  inline friend std::ostream& operator<<(std::ostream&, const dcovector&);
-  inline void write(const char*) const;
-  inline void read(const char*);
-  
-  //////// calc ////////
-  inline friend _drovector t(const dcovector&);
-  inline friend double nrm2(const dcovector&);
-  inline friend CPPL_INT idamax(const dcovector&);
-  inline friend double damax(const dcovector&);
-  
-  //////// misc ////////
-  inline void clear();
-  inline dcovector& zero();
-  inline void chsign();
-  inline void copy(const dcovector&);
-  inline void shallow_copy(const _dcovector&);
-  inline void alias(const dcovector&);
-  inline void unalias();
-  inline dcovector& resize(const CPPL_INT&, const CPPL_INT=0);
-  inline void stretch(const CPPL_INT&);
-  inline friend void swap(dcovector&, dcovector&);
-  inline friend _dcovector _(dcovector&);
-  
-  ///////////////////////////////////////////////
-  ///////////// numerical operators /////////////
-  ///////////////////////////////////////////////
-  //////// = ////////
-  inline dcovector& operator=(const  dcovector&);
-  inline dcovector& operator=(const _dcovector&);
-  
-  //////// += ////////
-  inline dcovector& operator+=(const  dcovector&);
-  inline dcovector& operator+=(const _dcovector&);
-  
-  //////// -= ////////
-  inline dcovector& operator-=(const  dcovector&);
-  inline dcovector& operator-=(const _dcovector&);
-  
-  //////// *= ////////
-  inline dcovector& operator*=(const     double&);
-  
-  //////// /= ////////
-  inline dcovector& operator/=(const     double&);
-  
-  //////// unary ////////
-  inline friend const dcovector& operator+(const dcovector&);
-  inline friend _dcovector operator-(const dcovector&);
-  
-  //////// + ////////
-  inline friend _dcovector operator+(const  dcovector&, const  dcovector&);
-  inline friend _dcovector operator+(const  dcovector&, const _dcovector&);
-  
-  //////// - ////////
-  inline friend _dcovector operator-(const  dcovector&, const  dcovector&);
-  inline friend _dcovector operator-(const  dcovector&, const _dcovector&);
-  
-  //////// * ////////
-  inline friend _dgematrix operator*(const  dcovector&, const  drovector&);
-  inline friend _dgematrix operator*(const  dcovector&, const _drovector&);
-  inline friend _dcovector operator*(const  dcovector&, const     double&);
-  
-  //////// / ////////
-  inline friend _dcovector operator/(const  dcovector&, const     double&);
-  
-  //////// % ////////
-  inline friend     double operator%(const  dcovector&, const  dcovector&);
-  inline friend     double operator%(const  dcovector&, const _dcovector&);
-  
-  //////// double ////////
-  inline friend _dcovector operator*(const     double&, const  dcovector&);
-  
-  //////// hadamard ////////
-  inline friend _dcovector hadamard(const dcovector&, const dcovector&);
-};
diff --git a/cpplapack-r198/.svn/pristine/38/389e1b20481e909f8978f88336d38ba5fbf88e22.svn-base b/cpplapack-r198/.svn/pristine/38/389e1b20481e909f8978f88336d38ba5fbf88e22.svn-base
deleted file mode 100644
index fd53acf..0000000
--- a/cpplapack-r198/.svn/pristine/38/389e1b20481e909f8978f88336d38ba5fbf88e22.svn-base
+++ /dev/null
@@ -1,16 +0,0 @@
-//=============================================================================
-/*! +zrovector operator */
-inline const zrovector& operator+(const zrovector& vec)
-{CPPL_VERBOSE_REPORT;
-  return vec;
-}
-
-//=============================================================================
-/*! -zrovector operator */
-inline _zrovector operator-(const zrovector& vec)
-{CPPL_VERBOSE_REPORT;
-  zrovector newvec(vec.l);
-  for(CPPL_INT i=0; i<newvec.l; i++){ newvec.array[i]=-vec.array[i]; }
-  
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/38/38a40611536785485dde4b83bd42c3e24c121772.svn-base b/cpplapack-r198/.svn/pristine/38/38a40611536785485dde4b83bd42c3e24c121772.svn-base
deleted file mode 100644
index a3ede88..0000000
--- a/cpplapack-r198/.svn/pristine/38/38a40611536785485dde4b83bd42c3e24c121772.svn-base
+++ /dev/null
@@ -1,24 +0,0 @@
-//=============================================================================
-/*! zhematrix*_zcovector operator */
-inline _zcovector operator*(const zhematrix& mat, const _zcovector& vec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(mat.n!=vec.l){
-    ERROR_REPORT;
-    std::cerr << "These matrix and vector can not make a product." << std::endl
-              << "Your input was (" << mat.n << "x" << mat.n << ") * (" << vec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zcovector newvec(mat.n);
-  char uplo ='l';
-  comple alpha =comple(1.,0.);
-  CPPL_INT inc =1;
-  comple beta =comple(0.,0.);
-  
-  zhemv_( &uplo, &mat.n, &alpha, mat.array, &mat.n, vec.array, &inc, &beta, newvec.array, &inc );
-  
-  vec.destroy();
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/38/38cdbb8dc03a1290d20a164207777fd1511f0fc9.svn-base b/cpplapack-r198/.svn/pristine/38/38cdbb8dc03a1290d20a164207777fd1511f0fc9.svn-base
deleted file mode 100644
index 64adb69..0000000
--- a/cpplapack-r198/.svn/pristine/38/38cdbb8dc03a1290d20a164207777fd1511f0fc9.svn-base
+++ /dev/null
@@ -1,132 +0,0 @@
-//=============================================================================
-/*! zhematrix=_zhematrix operator */
-inline zhematrix& zhematrix::operator=(const _zhematrix& mat)
-{CPPL_VERBOSE_REPORT;
-  shallow_copy(mat);
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zhematrix+=_zhematrix operator */
-inline zhematrix& zhematrix::operator+=(const _zhematrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << n << "x" << n << ") += (" << mat.n << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT j=0; j<n; j++){
-    for(CPPL_INT i=j; i<n; i++){
-      darray[j][i] += mat.darray[j][i];
-    }
-  }
-  
-  mat.destroy();
-  return *this;
-}
-
-//=============================================================================
-/*! zhematrix-=_zhematrix operator */
-inline zhematrix& zhematrix::operator-=(const _zhematrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a sutraction." << std::endl
-              << "Your input was (" << n << "x" << n << ") -= (" << mat.n << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT j=0; j<n; j++){
-    for(CPPL_INT i=j; i<n; i++){
-      darray[j][i] -= mat.darray[j][i];
-    }
-  }
-  
-  mat.destroy();
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zhematrix+_zhematrix operator */
-inline _zhematrix operator+(const zhematrix& matA, const _zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") + (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  for(CPPL_INT j=0; j<matA.n; j++){
-    for(CPPL_INT i=j; i<matA.n; i++){
-      matB.darray[j][i] += matA.darray[j][i];
-    }
-  }
-  
-  return matB;
-}
-
-//=============================================================================
-/*! zhematrix-_zhematrix operator */
-inline _zhematrix operator-(const zhematrix& matA, const _zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") - (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT j=0; j<matA.n; j++){
-    for(CPPL_INT i=j; i<matA.n; i++){
-      matB.darray[j][i] =matA.darray[j][i]-matB.darray[j][i];
-    }
-  }
-  
-  return matB;
-}
-
-//=============================================================================
-/*! zhematrix*_zhematrix operator */
-inline _zgematrix operator*(const zhematrix& matA, const _zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") * (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  matB.complete();
-  
-  zgematrix newmat( matA.n, matB.n );
-  char side ='l';
-  char uplo ='l';
-  comple alpha =comple(1.,0.);
-  comple beta =comple(0.,0.);
-  
-  zhemm_( &side, &uplo, &matA.n, &matB.n, &alpha, matA.array, &matA.n, matB.array, &matB.n, &beta, newmat.array, &newmat.m );
-  
-  matB.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/38/38cef6ad80b4a684538b9832fe9443effad3a3ff.svn-base b/cpplapack-r198/.svn/pristine/38/38cef6ad80b4a684538b9832fe9443effad3a3ff.svn-base
deleted file mode 100644
index 97ee008..0000000
--- a/cpplapack-r198/.svn/pristine/38/38cef6ad80b4a684538b9832fe9443effad3a3ff.svn-base
+++ /dev/null
@@ -1,1035 +0,0 @@
-//=============================================================================
-/*! solve A*X=Y using dgesv\n
-  The argument is dgematrix Y. Y is overwritten and become the solution X.
-  A is also overwritten and become P*l*U.
-*/
-inline CPPL_INT dgematrix::dgesv(dgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(m!=n || m!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrices cannot be solved." << std::endl
-              << "Your input was (" << m << "x" << n << ") and (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG 
-  
-  CPPL_INT NRHS(mat.n), LDA(n), *IPIV(new CPPL_INT[n]), LDB(mat.m), INFO(1);
-  dgesv_(&n, &NRHS, array, &LDA, IPIV, mat.array, &LDB, &INFO);
-  delete [] IPIV;
-  
-  if(INFO!=0){
-    WARNING_REPORT;
-    std::cerr << "Serious trouble happend. INFO = " << INFO << "." << std::endl;
-  }
-  return INFO;
-}
-
-//=============================================================================
-/*! solve A*x=y using dgesv\n
-  The argument is dcovector y. y is overwritten and become the solution x.
-  A is also overwritten and become P*l*U.
-*/
-inline CPPL_INT dgematrix::dgesv(dcovector& vec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(m!=n || m!=vec.l){
-    ERROR_REPORT;
-    std::cerr << "These matrix and vector cannot be solved." << std::endl
-              << "Your input was (" << m << "x" << n << ") and (" << vec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG 
-  
-  CPPL_INT NRHS(1), LDA(n), *IPIV(new CPPL_INT[n]), LDB(vec.l), INFO(1);
-  dgesv_(&n, &NRHS, array, &LDA, IPIV, vec.array, &LDB, &INFO);
-  delete [] IPIV;
-  
-  if(INFO!=0){
-    WARNING_REPORT;
-    std::cerr << "Serious trouble happend. INFO = " << INFO << "." << std::endl;
-  }
-  return INFO;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! solve overdetermined or underdetermined A*X=Y using dgels\n
- */
-inline CPPL_INT dgematrix::dgels(dgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(m!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrices cannot be solved." << std::endl
-              << "Your input was (" << m << "x" << n << ") and (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG    
-  
-  if(m<n){ //underdetermined
-    dgematrix tmp(n,mat.n);
-    for(CPPL_INT i=0; i<mat.m; i++){
-      for(CPPL_INT j=0; j<mat.n; j++){
-        tmp(i,j) =mat(i,j);
-      }
-    }
-    mat.clear();
-    swap(mat,tmp);
-  }
-  
-  char TRANS('n');
-  CPPL_INT NRHS(mat.n), LDA(m), LDB(mat.m), LWORK(std::min(m,n)+std::max(std::min(m,n),NRHS)), INFO(1);
-  double *WORK(new double[LWORK]);
-  dgels_(&TRANS, &m, &n, &NRHS, array, &LDA, mat.array, &LDB, WORK, &LWORK, &INFO);
-  delete [] WORK;
-  
-  if(m>n){ //overdetermined
-    dgematrix tmp(n,mat.n);
-    for(CPPL_INT i=0; i<tmp.m; i++){
-      for(CPPL_INT j=0; j<tmp.n; j++){
-        tmp(i,j) =mat(i,j);
-      }
-    }
-    mat.clear();
-    swap(mat,tmp);
-  }
-  
-  if(INFO!=0){
-    WARNING_REPORT;
-    std::cerr << "Serious trouble happend. INFO = " << INFO << "." << std::endl;
-  }
-  return INFO;
-}
-
-//=============================================================================
-/*! solve overdetermined or underdetermined A*x=y using dgels\n
- */
-inline CPPL_INT dgematrix::dgels(dcovector& vec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(m!=vec.l){
-    ERROR_REPORT;
-    std::cerr << "These matrix and vector cannot be solved." << std::endl
-              << "Your input was (" << m << "x" << n << ") and (" << vec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG    
-  
-  if(m<n){ //underdetermined
-    dcovector tmp(n);
-    for(CPPL_INT i=0; i<vec.l; i++){
-      tmp(i)=vec(i);
-    }
-    vec.clear();
-    swap(vec,tmp);
-  }
-  
-  char TRANS('n');
-  CPPL_INT NRHS(1), LDA(m), LDB(vec.l), LWORK(std::min(m,n)+std::max(std::min(m,n),NRHS)), INFO(1);
-  double *WORK(new double[LWORK]);
-  dgels_(&TRANS, &m, &n, &NRHS, array, &LDA, vec.array, &LDB, WORK, &LWORK, &INFO);
-  delete [] WORK;
-  
-  if(m>n){ //overdetermined
-    dcovector tmp(n);
-    for(CPPL_INT i=0; i<tmp.l; i++){
-      tmp(i)=vec(i);
-    }
-    vec.clear();
-    swap(vec,tmp);
-  }
-  
-  if(INFO!=0){
-    WARNING_REPORT;
-    std::cerr << "Serious trouble happend. INFO = " << INFO << "." << std::endl;
-  }
-  return INFO;
-}
-
-//=============================================================================
-/*! solve overdetermined or underdetermined A*X=Y using dgels
-  with the sum of residual squares output\n
-  The residual is set as the columnwise sum of residual squares 
-  for overdetermined problems
-  while it is always zero for underdetermined problems.
-*/
-inline CPPL_INT dgematrix::dgels(dgematrix& mat, drovector& residual)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(m!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrices cannot be solved." << std::endl
-              << "Your input was (" << m << "x" << n << ") and (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  residual.resize(mat.n);
-  residual.zero();
-  
-  if(m<n){ //underdetermined
-    dgematrix tmp(n,mat.n);
-    for(CPPL_INT i=0; i<mat.m; i++){
-      for(CPPL_INT j=0; j<mat.n; j++){
-        tmp(i,j) =mat(i,j);
-      }
-    }
-    mat.clear();
-    swap(mat,tmp);
-  }
-  
-  char TRANS('n');
-  CPPL_INT NRHS(mat.n), LDA(m), LDB(mat.m), LWORK(std::min(m,n)+std::max(std::min(m,n),NRHS)), INFO(1);
-  double *WORK(new double[LWORK]);
-  dgels_(&TRANS, &m, &n, &NRHS, array, &LDA, mat.array, &LDB, WORK, &LWORK, &INFO);
-  delete [] WORK;
-  
-  if(m>n){ //overdetermined
-    for(CPPL_INT i=0; i<residual.l; i++){
-      for(CPPL_INT j=0; j<m-n; j++){
-        residual(i) += std::pow(mat(n+j,i), 2.0);
-      }
-    }
-    
-    dgematrix tmp(n,mat.n);
-    for(CPPL_INT i=0; i<tmp.m; i++){
-      for(CPPL_INT j=0; j<tmp.n; j++){
-        tmp(i,j) =mat(i,j);
-      }
-    }
-    mat.clear();
-    swap(mat,tmp);
-  }
-  
-  if(INFO!=0){
-    WARNING_REPORT;
-    std::cerr << "Serious trouble happend. INFO = " << INFO << "." << std::endl;
-  }
-  return INFO;
-}
-
-//=============================================================================
-/*! solve overdetermined or underdetermined A*x=y using dgels
-  with the sum of residual squares output\n
-  The residual is set as the sum of residual squares 
-  for overdetermined problems
-  while it is always zero for underdetermined problems.
-*/
-inline CPPL_INT dgematrix::dgels(dcovector& vec, double& residual)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(m!=vec.l){
-    ERROR_REPORT;
-    std::cerr << "These matrix and vector cannot be solved." << std::endl
-              << "Your input was (" << m << "x" << n << ") and (" << vec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG    
-  
-  residual=0.0;
-  
-  if(m<n){ //underdetermined
-    dcovector tmp(n);
-    for(CPPL_INT i=0; i<vec.l; i++){
-      tmp(i)=vec(i);
-    }
-    vec.clear();
-    swap(vec,tmp);
-  }
-  
-  char TRANS('n');
-  CPPL_INT NRHS(1), LDA(m), LDB(vec.l), LWORK(std::min(m,n)+std::max(std::min(m,n),NRHS)), INFO(1);
-  double *WORK(new double[LWORK]);
-  dgels_(&TRANS, &m, &n, &NRHS, array, &LDA, vec.array, &LDB, WORK, &LWORK, &INFO);
-  delete [] WORK;
-  
-  if(m>n){ //overdetermined
-    for(CPPL_INT i=0; i<m-n; i++){
-      residual+=std::pow(vec(n+i),2.0);
-    }
-    
-    dcovector tmp(n);
-    for(CPPL_INT i=0; i<tmp.l; i++){
-      tmp(i)=vec(i);
-    }
-    vec.clear();
-    swap(vec,tmp);
-  }
-  
-  if(INFO!=0){
-    WARNING_REPORT;
-    std::cerr << "Serious trouble happend. INFO = " << INFO << "." << std::endl;
-  }
-  return INFO;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! calculate the least-squares-least-norm solution for overdetermined or 
-  underdetermined A*x=y using dgelss\n
-*/
-inline CPPL_INT dgematrix::dgelss
-(
- dcovector& B,
- dcovector& S,
- CPPL_INT& RANK,
- const double RCOND =-1.
- )
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(m!=B.l){
-    ERROR_REPORT;
-    std::cerr << "These matrix and vector cannot be solved." << std::endl
-              << "Your input was (" << m << "x" << n << ") and (" << B.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG    
-  
-  if(m<n){ //underdetermined
-    dcovector tmp(n);
-    for(CPPL_INT i=0; i<B.l; i++){
-      tmp(i)=B(i);
-    }
-    B.clear();
-    swap(B,tmp);
-  }
-  
-  S.resize(std::min(m,n));
-  
-  CPPL_INT NRHS(1), LDA(m), LDB(B.l), LWORK(3*std::min(m,n)+std::max(std::max(2*std::min(m,n),std::max(m,n)), NRHS)), INFO(1);
-  double *WORK(new double[LWORK]);
-  dgelss_(&m, &n, &NRHS, array, &LDA, B.array, &LDB, S.array, &RCOND, &RANK, WORK, &LWORK, &INFO);
-  delete [] WORK;
-  
-  if(INFO!=0){
-    WARNING_REPORT;
-    std::cerr << "Serious trouble happend. INFO = " << INFO << "." << std::endl;
-  }
-  return INFO;
-}
-
-//=============================================================================
-/*! calculate the least-squares-least-norm solution for overdetermined or 
-  underdetermined A*x=y using dgelss\n
-*/
-inline CPPL_INT dgematrix::dgelss
-(
- dgematrix& B,
- dcovector& S,
- CPPL_INT& RANK,
- const double RCOND =-1.
- )
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(m!=B.m){
-    ERROR_REPORT;
-    std::cerr << "These matrix and vector cannot be solved." << std::endl
-              << "Your input was (" << m << "x" << n << ") and (" << B.m << "x" << B.n  << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG    
-  
-  if(m<n){ //underdetermined
-    dgematrix tmp(n,B.n);
-    for(CPPL_INT i=0; i<B.m; i++){
-      for(CPPL_INT j=0; j<B.n; j++){
-        tmp(i,j)=B(i,j);
-      }
-    }
-    B.clear();
-    swap(B,tmp);
-  }
-  
-  S.resize(std::min(m,n));
-  
-  CPPL_INT NRHS(B.n), LDA(m), LDB(B.m), LWORK(3*std::min(m,n)+std::max(std::max(2*std::min(m,n),std::max(m,n)), NRHS)), INFO(1);
-  double *WORK(new double[LWORK]);
-  dgelss_(&m, &n, &NRHS, array, &LDA, B.array, &LDB, S.array, &RCOND, &RANK, WORK, &LWORK, &INFO);
-  delete [] WORK;
-
-  if(INFO!=0){
-    WARNING_REPORT;
-    std::cerr << "Serious trouble happend. INFO = " << INFO << "." << std::endl;
-  }
-  return INFO;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! calculate the least-squares-least-norm solution for overdetermined or underdetermined A*x=y using dgelsd\n
-*/
-inline CPPL_INT dgematrix::dgelsd
-(
- dcovector& B,
- dcovector& S,
- CPPL_INT& RANK,
- const double RCOND =-1.
- )
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(m!=B.l){
-    ERROR_REPORT;
-    std::cerr << "These matrix and vector cannot be solved." << std::endl
-              << "Your input was (" << m << "x" << n << ") and (" << B.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG    
-  
-  //////// resize ////////
-  if(m<n){ //underdetermined
-    dcovector tmp(n);
-    for(CPPL_INT i=0; i<B.l; i++){
-      tmp(i)=B(i);
-    }
-    B.clear();
-    swap(B,tmp);
-  }
-  
-  S.resize(std::min(m,n));
-  
-  //////// prerun ////////
-  CPPL_INT M =m;
-  CPPL_INT N =n;
-  CPPL_INT NRHS =1;
-  CPPL_INT LDA =m;
-  CPPL_INT LDB =B.l;
-  std::vector<double> WORK(1);
-  CPPL_INT LWORK =-1;
-  CPPL_INT MINMN =std::min(M,N);
-  CPPL_INT SMLSIZ =25;
-  CPPL_INT NLVL =CPPL_INT( std::log(double(MINMN)/double(SMLSIZ+1))/std::log(2.) );
-  CPPL_INT LIWORK =3*MINMN*NLVL+11*MINMN;
-  std::vector<CPPL_INT> IWORK(LIWORK);
-  CPPL_INT INFO =1;
-  dgelsd_(&M, &N, &NRHS, array, &LDA, B.array, &LDB, S.array, &RCOND, &RANK, &WORK[0], &LWORK, &IWORK[0], &INFO);
-  LWORK =CPPL_INT(WORK[0]);
-  WORK.resize(LWORK);
-  
-  //////// run ////////
-  INFO =1;
-  RANK =1;
-  dgelsd_(&M, &N, &NRHS, array, &LDA, B.array, &LDB, S.array, &RCOND, &RANK, &WORK[0], &LWORK, &IWORK[0], &INFO);
-  
-  //////// info ////////
-  if(INFO!=0){
-    WARNING_REPORT;
-    std::cerr << "Serious trouble happend. INFO = " << INFO << "." << std::endl;
-  }
-  return INFO;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! calculate eigenvalues\n
-  All of the arguments need not to be initialized. 
-  wr and wi are overwitten and become 
-  real and imaginary part of eigenvalues, respectively. 
-  This matrix is also overwritten. 
-*/
-inline CPPL_INT dgematrix::dgeev(std::vector<double>& wr, std::vector<double>& wi)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(m!=n){
-    ERROR_REPORT;
-    std::cerr << "This matrix is not a square matrix." << std::endl
-              << "This matrix is (" << m << "x" << n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  wr.resize(n);
-  wi.resize(n);
-  char JOBVL('n'), JOBVR('n');
-  CPPL_INT LDA(n), LDVL(1), LDVR(1), LWORK(3*n), INFO(1);
-  double *VL(NULL), *VR(NULL), *WORK(new double[LWORK]);
-  dgeev_(&JOBVL, &JOBVR, &n, array, &LDA, &wr[0], &wi[0], VL, &LDVL, VR, &LDVR, WORK, &LWORK, &INFO);
-  delete [] WORK;
-  delete [] VL;
-  delete [] VR;
-  
-  if(INFO!=0){
-    WARNING_REPORT;
-    std::cerr << "Serious trouble happend. INFO = " << INFO << "." << std::endl;
-  }
-  return INFO;
-}
-
-//=============================================================================
-/*! calculate eigenvalues\n
-  All of the arguments need not to be initialized. 
-  w are overwitten and become eigenvalues, respectively.
-  This matrix is also overwritten. 
-*/
-inline CPPL_INT dgematrix::dgeev(zcovector& w)
-{CPPL_VERBOSE_REPORT;
-  //// call dgeev ////
-  std::vector<double> wr, wi;
-  CPPL_INT INFO =dgeev(wr,wi);
-  
-  //// assign ////
-  w.resize(n);
-  for(CPPL_INT i=0; i<n; i++){
-    w(i) =comple(wr[i],wi[i]);
-  }
-  
-  return INFO;
-}
-
-//=============================================================================
-/*! calculate right eigenvalues and right eigenvectors\n
-  All of the arguments need not to be initialized. 
-  wr, wi, vrr, vri are overwitten and become 
-  real and imaginary part of right eigenvalues and right eigenvectors, 
-  respectively. 
-  This matrix is also overwritten. 
-*/
-inline CPPL_INT dgematrix::dgeev
-(
- std::vector<double>& wr,
- std::vector<double>& wi, 
- std::vector<dcovector>& vrr,
- std::vector<dcovector>& vri
- )
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(m!=n){
-    ERROR_REPORT;
-    std::cerr << "This matrix is not a square matrix." << std::endl
-              << "This matrix is (" << m << "x" << n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  wr.resize(n);
-  wi.resize(n);
-  vrr.resize(n);
-  vri.resize(n);
-  for(CPPL_INT i=0; i<n; i++){
-    vrr[i].resize(n);
-    vri[i].resize(n);
-  }
-  
-  dgematrix VR(n,n);
-  char JOBVL('n'), JOBVR('V');
-  CPPL_INT LDA(n), LDVL(1), LDVR(n), LWORK(4*n), INFO(1);
-  double *VL(NULL), *WORK(new double[LWORK]);
-  dgeev_(&JOBVL, &JOBVR, &n, array, &LDA, &wr[0], &wi[0], VL, &LDVL, VR.array, &LDVR, WORK, &LWORK, &INFO);
-  delete [] WORK;
-  delete [] VL;
-  
-  //// forming ////
-  for(CPPL_INT j=0; j<n; j++){
-    if(fabs(wi[j])<DBL_MIN){
-      for(CPPL_INT i=0; i<n; i++){
-        vrr[j](i) = VR(i,j);
-        vri[j](i) = 0.0;
-      }
-    }
-    else{
-      for(CPPL_INT i=0; i<n; i++){
-        vrr[j](i)   = VR(i,j);
-        vri[j](i)   = VR(i,j+1);
-        vrr[j+1](i) = VR(i,j);
-        vri[j+1](i) =-VR(i,j+1);
-      }
-      j++;
-    }
-  }
-  
-  if(INFO!=0){
-    WARNING_REPORT;
-    std::cerr << "Serious trouble happend. INFO = " << INFO << "." << std::endl;
-  }
-  return INFO;
-}
-
-//=============================================================================
-/*! calculate right eigenvalues and right eigenvectors as complex objects\n
-  All of the arguments need not to be initialized. 
-  w and vr are overwitten and become of right eigenvalues and right eigenvectors, respectively. 
-  This matrix is also overwritten. 
-*/
-inline CPPL_INT dgematrix::dgeev
-(
- std::vector<comple>& w,
- std::vector<zcovector>& vr
- )
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(m!=n){
-    ERROR_REPORT;
-    std::cerr << "This matrix is not a square matrix." << std::endl
-              << "This matrix is (" << m << "x" << n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  //////// resize ////////
-  w.resize(n);
-  vr.resize(n);
-  for(CPPL_INT i=0; i<n; i++){
-    vr[i].resize(n);
-  }
-
-  //////// dgeev_ ////////
-  char JOBVL ='n';
-  char JOBVR ='V';
-  CPPL_INT LDA =n;
-  std::vector<double> wr(n);
-  std::vector<double> wi(n);
-  double *VL =NULL;
-  CPPL_INT LDVL =1;
-  dgematrix VR(n,n);
-  CPPL_INT LDVR =n;
-  CPPL_INT LWORK =4*n;
-  std::vector<double> WORK(LWORK);
-  CPPL_INT INFO =1;
-  dgeev_(&JOBVL, &JOBVR, &n, array, &LDA, &wr[0], &wi[0], VL, &LDVL, VR.array, &LDVR, &WORK[0], &LWORK, &INFO);
-  delete [] VL;
-  
-  //////// convert ////////
-  for(CPPL_INT i=0; i<n; i++){
-    w[i] =comple(wr[i], wi[i]);
-  }
-  
-  for(CPPL_INT j=0; j<n; j++){
-    if(fabs(wi[j])<DBL_MIN){
-      for(CPPL_INT i=0; i<n; i++){
-        vr[j](i) = comple(VR(i,j), 0.);
-      }
-    }
-    else{
-      for(CPPL_INT i=0; i<n; i++){
-        vr[j](i)   = comple(VR(i,j), VR(i,j+1));
-        vr[j+1](i) = comple(VR(i,j), -VR(i,j+1));
-      }
-      j++;
-    }
-  }
-  
-  if(INFO!=0){
-    WARNING_REPORT;
-    std::cerr << "Serious trouble happend. INFO = " << INFO << "." << std::endl;
-  }
-  return INFO;
-}
-
-//=============================================================================
-/*! calculate left eigenvalues and left eigenvectors\n
-  All of the arguments need not to be initialized. 
-  wr, wi, vrr, vri are overwitten and become 
-  real and imaginary part of left eigenvalues and left eigenvectors, 
-  respectively. 
-  This matrix is also overwritten. 
-*/
-inline CPPL_INT dgematrix::dgeev(std::vector<double>& wr, std::vector<double>& wi, 
-                             std::vector<drovector>& vlr, 
-                             std::vector<drovector>& vli)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(m!=n){
-    ERROR_REPORT;
-    std::cerr << "This matrix is not a square matrix." << std::endl
-              << "This matrix is (" << m << "x" << n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  wr.resize(n);
-  wi.resize(n);
-  vlr.resize(n);
-  vli.resize(n);
-  for(CPPL_INT i=0; i<n; i++){
-    vlr[i].resize(n);
-    vli[i].resize(n);
-  }
-  
-  dgematrix VL(n,n);
-  char JOBVL('V'), JOBVR('n');
-  CPPL_INT LDA(n), LDVL(n), LDVR(1), LWORK(4*n), INFO(1);
-  double *VR(NULL), *WORK(new double[LWORK]);
-  dgeev_(&JOBVL, &JOBVR, &n, array, &LDA, &wr[0], &wi[0], VL.array, &LDVL, VR, &LDVR, WORK, &LWORK, &INFO);
-  delete [] WORK;
-  delete [] VR;
-
-  //// forming ////
-  for(CPPL_INT j=0; j<n; j++){
-    if(fabs(wi[j])<DBL_MIN){
-      for(CPPL_INT i=0; i<n; i++){
-        vlr[j](i) = VL(i,j);
-        vli[j](i) = 0.0;
-      }
-    }
-    else{
-      for(CPPL_INT i=0; i<n; i++){
-        vlr[j](i)   = VL(i,j);
-        vli[j](i)   =-VL(i,j+1);
-        vlr[j+1](i) = VL(i,j);
-        vli[j+1](i) = VL(i,j+1);
-      }
-      j++;
-    }
-  }
-  
-
-  if(INFO!=0){
-    WARNING_REPORT;
-    std::cerr << "Serious trouble happend. INFO = " << INFO << "." << std::endl;
-  }
-  return INFO;
-}
-
-
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! calculate generalized eigenvalues\n
-  All of the arguments don't need to be initialized. 
-  wr and wi are overwitten and become 
-  real and imaginary part of generalized eigenvalues, respectively. 
-  This matrix and matB are also overwritten. 
-*/
-inline CPPL_INT dgematrix::dggev(dgematrix& matB,
-                             std::vector<double>& wr, std::vector<double>& wi)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(m!=n){
-    ERROR_REPORT;
-    std::cerr << "This matrix is not a square matrix." << std::endl
-              << "This matrix is (" << m << "x" << n << ")." << std::endl;
-    exit(1);
-  }
-  if(matB.m!=n || matB.n!=n){
-    ERROR_REPORT;
-    std::cerr << "The matrix B is not a square matrix having the same size as \"this\" matrix." << std::endl
-              << "The B matrix is (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  wr.resize(n);
-  wi.resize(n);
-  char JOBVL('n'), JOBVR('n');
-  CPPL_INT LDA(n), LDB(n), LDVL(1), LDVR(1), LWORK(8*n), INFO(1);
-  double *BETA(new double[n]), *VL(NULL), *VR(NULL), *WORK(new double[LWORK]);
-  dggev_(&JOBVL, &JOBVR, &n, array, &LDA, matB.array, &LDB, &wr[0], &wi[0], BETA, VL, &LDVL, VR, &LDVR, WORK, &LWORK, &INFO);
-  delete [] WORK;
-  delete [] VL;
-  delete [] VR;
-  
-  //// reforming ////
-  for(CPPL_INT i=0; i<n; i++){
-    wr[i]/=BETA[i];
-    wi[i]/=BETA[i];
-  }
-  delete [] BETA; 
-  
-  if(INFO!=0){
-    WARNING_REPORT;
-    std::cerr << "Serious trouble happend. INFO = " << INFO << "." << std::endl;
-  }
-  return INFO;
-}
-
-//=============================================================================
-/*! calculate generalized eigenvalues and generalized right eigenvectors\n
-  All of the arguments don't need to be initialized.
-  wr, wi, vrr and vri are overwitten and become 
-  real and imaginary part of generalized eigenvalue 
-  and generalized right eigenvector, respectively. 
-  This matrix and matB are also overwritten.
-*/
-inline CPPL_INT dgematrix::dggev(dgematrix& matB, 
-                             std::vector<double>& wr, std::vector<double>& wi, 
-                             std::vector<dcovector>& vrr, 
-                             std::vector<dcovector>& vri)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(m!=n){
-    ERROR_REPORT;
-    std::cerr << "This matrix is not a square matrix." << std::endl
-              << "This matrix is (" << m << "x" << n << ")." << std::endl;
-    exit(1);
-  }
-  if(matB.m!=n || matB.n!=n){
-    ERROR_REPORT;
-    std::cerr << "The matrix B is not a square matrix having the same size as \"this\" matrix." << std::endl
-              << "The B matrix is (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  wr.resize(n);
-  wi.resize(n);
-  vrr.resize(n);
-  vri.resize(n);
-  for(CPPL_INT i=0; i<n; i++){
-    vrr[i].resize(n);
-    vri[i].resize(n);
-  }
-  
-  dgematrix VR(n,n);
-  char JOBVL('n'), JOBVR('V');
-  CPPL_INT LDA(n), LDB(n), LDVL(1), LDVR(n), LWORK(8*n), INFO(1);
-  double *BETA(new double[n]), *VL(NULL), *WORK(new double[LWORK]);
-  dggev_(&JOBVL, &JOBVR, &n, array, &LDA, matB.array, &LDB, &wr[0], &wi[0], BETA, VL, &LDVL, VR.array, &LDVR, WORK, &LWORK, &INFO);
-  delete [] WORK;
-  delete [] VL;
-  
-  //// reforming ////
-  for(CPPL_INT i=0; i<n; i++){
-    wr[i]/=BETA[i];
-    wi[i]/=BETA[i];
-  }
-  delete [] BETA; 
-  
-  //// forming ////
-  for(CPPL_INT j=0; j<n; j++){
-    if(fabs(wi[j])<DBL_MIN){
-      for(CPPL_INT i=0; i<n; i++){
-        vrr[j](i) = VR(i,j);
-        vri[j](i) = 0.0;
-      }
-    }
-    else{
-      for(CPPL_INT i=0; i<n; i++){
-        vrr[j](i)   = VR(i,j);
-        vri[j](i)   = VR(i,j+1);
-        vrr[j+1](i) = VR(i,j);
-        vri[j+1](i) =-VR(i,j+1);
-      }
-      j++;
-    }
-  }
-  
-  if(INFO!=0){
-    WARNING_REPORT;
-    std::cerr << "Serious trouble happend. INFO = " << INFO << "." << std::endl;
-  }
-  return INFO;
-}
-
-//=============================================================================
-/*! calculate generalized eigenvalues and generalized left eigenvectors\n
-  All of the arguments don't need to be initialized.
-  wr, wi, vlr and vli are overwitten and become 
-  real and imaginary part of generalized eigenvalue 
-  and generalized left eigenvector, respectively. 
-  This matrix and matB are also overwritten.
-*/
-inline CPPL_INT dgematrix::dggev(dgematrix& matB, 
-                             std::vector<double>& wr, std::vector<double>& wi, 
-                             std::vector<drovector>& vlr, 
-                             std::vector<drovector>& vli)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(m!=n){
-    ERROR_REPORT;
-    std::cerr << "This matrix is not a square matrix." << std::endl
-              << "This matrix is (" << m << "x" << n << ")." << std::endl;
-    exit(1);
-  }
-  if(matB.m!=n || matB.n!=n){
-    ERROR_REPORT;
-    std::cerr << "The matrix B is not a square matrix having the same size as \"this\" matrix." << std::endl
-              << "The B matrix is (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  wr.resize(n);
-  wi.resize(n);
-  vlr.resize(n);
-  vli.resize(n);
-  for(CPPL_INT i=0; i<n; i++){
-    vlr[i].resize(n);
-    vli[i].resize(n);
-  }
-  
-  dgematrix VL(n,n);
-  char JOBVL('V'), JOBVR('n');
-  CPPL_INT LDA(n), LDB(n), LDVL(n), LDVR(1), LWORK(8*n), INFO(1);
-  double *BETA(new double[n]), *VR(NULL), *WORK(new double[LWORK]);
-  dggev_(&JOBVL, &JOBVR, &n, array, &LDA, matB.array, &LDB, &wr[0], &wi[0], BETA, VL.array, &LDVL, VR, &LDVR, WORK, &LWORK, &INFO);
-  delete [] WORK;
-  delete [] VR;
-  
-  //// reforming ////
-  for(CPPL_INT i=0; i<n; i++){
-    wr[i]/=BETA[i];
-    wi[i]/=BETA[i];
-  }
-  delete [] BETA; 
-  
-  //// forming ////
-  for(CPPL_INT j=0; j<n; j++){
-    if(fabs(wi[j])<DBL_MIN){
-      for(CPPL_INT i=0; i<n; i++){
-        vlr[j](i) = VL(i,j);
-        vli[j](i) = 0.0;
-      }
-    }
-    else{
-      for(CPPL_INT i=0; i<n; i++){
-        vlr[j](i)   = VL(i,j);
-        vli[j](i)   =-VL(i,j+1);
-        vlr[j+1](i) = VL(i,j);
-        vli[j+1](i) = VL(i,j+1);
-      }
-      j++;
-    }
-  }
-  
-  if(INFO!=0){
-    WARNING_REPORT;
-    std::cerr << "Serious trouble happend. INFO = " << INFO << "." << std::endl;
-  }
-  return INFO;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! compute the singular value decomposition (SVD)\n
-  The argument is dgbmatrix S.
-  S doesn't need to be initialized.
-  S is overwitten and become singular values.
-  This matrix also overwritten.
-*/
-inline CPPL_INT dgematrix::dgesvd
-(
- dgbmatrix& S
- )
-{CPPL_VERBOSE_REPORT;
-  char JOBU ='N';
-  char JOBVT ='N';
-  // M
-  // N
-  // A
-  CPPL_INT LDA =m;
-  double* U =NULL;
-  S.resize(m,n,0,0);
-  CPPL_INT LDU =1;
-  double* VT =NULL;
-  CPPL_INT LDVT =1;
-  CPPL_INT LWORK =std::max(3*std::min(m,n)+std::max(m,n),5*std::min(m,n));
-  double *WORK =new double[LWORK];
-  CPPL_INT INFO =1;
-  
-  dgesvd_(&JOBU, &JOBVT, &m, &n, array, &LDA, S.array, U, &LDU, VT, &LDVT, WORK, &LWORK, &INFO);
-  delete [] WORK;
-  
-  if(INFO!=0){
-    WARNING_REPORT;
-    std::cerr << "Serious trouble happend. INFO = " << INFO << "." << std::endl;
-  }
-  return INFO;
-}
-
-//=============================================================================
-/*! compute the singular value decomposition (SVD)\n
-  The arguments are dcocector S, dgematrix U and VT.
-  All of them need not to be initialized.
-  S, U and VT are overwitten and become singular values, 
-  left singular vectors,
-  and right singular vectors respectively.
-  This matrix also overwritten.
-*/
-inline CPPL_INT dgematrix::dgesvd(dcovector& S, dgematrix& U, dgematrix& VT)
-{CPPL_VERBOSE_REPORT;
-  char JOBU('A'), JOBVT('A');
-  CPPL_INT LDA(m), LDU(m), LDVT(n), LWORK(std::max(3*std::min(m,n)+std::max(m,n),5*std::min(m,n))), INFO(1);
-  double *WORK(new double[LWORK]);
-  S.resize(std::min(m,n));
-  U.resize(LDU,m);
-  VT.resize(LDVT,n);
-  
-  dgesvd_(&JOBU, &JOBVT, &m, &n, array, &LDA, S.array, U.array, &LDU, VT.array, &LDVT, WORK, &LWORK, &INFO);
-  delete [] WORK;
-  
-  if(INFO!=0){
-    WARNING_REPORT;
-    std::cerr << "Serious trouble happend. INFO = " << INFO << "." << std::endl;
-  }
-  return INFO;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! solve the linear equality-constrained least squares (LSE) problem\n
-  Input matrix and vectors, B, c, and d, are overwitten.
-  This matrix is also overwritten.
-  The solution vector x is to be automatically resized.
-*/
-inline CPPL_INT dgematrix::dgglse
-(
- dgematrix& B,
- dcovector& c,
- dcovector& d,
- dcovector& x
- )
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(m!=c.l){
-    ERROR_REPORT;
-    std::cerr << "A.m and c.l should be the same." << std::endl
-              << "Your input was A.m=" << m << " and c.l=" << c.l << std::endl;
-    exit(1);
-  }
-  if(B.m!=d.l){
-    ERROR_REPORT;
-    std::cerr << "B.m and d.l should be the same." << std::endl
-              << "Your input was B.m=" << B.m << " and d.l=" << d.l << std::endl;
-    exit(1);
-  }
-  if( !(B.m<=n) || !(n<=m+B.m) ){
-    ERROR_REPORT;
-    std::cerr << "B.m<=A.n<=A.m+B.m should be satisfied." << std::endl
-              << "Your input was B.m=" << B.m << ", A.n=" << n << ", and A.m+B.m=" << m+B.m << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  CPPL_INT lwork(-1), info(1);
-  dcovector work(1);
-  x.resize(n);
-  
-  //////// workspace query ////////
-  CPPL_INT lda =std::max(CPPL_INT(1),m);
-  CPPL_INT ldb =std::max(CPPL_INT(1),B.m);
-  dgglse_(&m, &n, &B.m, array, &lda, B.array, &ldb, c.array, d.array, x.array, work.array, &lwork, &info);
-  lwork =CPPL_INT(work(0));
-  work.resize(lwork);
-  info =1;
-  
-  //////// solve ////////
-  dgglse_(&m, &n, &B.m, array, &lda, B.array, &ldb, c.array, d.array, x.array, work.array, &lwork, &info);
-  work.clear();
-  
-  if(info!=0){
-    WARNING_REPORT;
-    std::cerr << "Serious trouble happend. info = " << info << "." << std::endl;
-  }
-  return info;
-}
diff --git a/cpplapack-r198/.svn/pristine/39/391b1759703cd08c09fbc0f4ac41ff7fe0e4bc4e.svn-base b/cpplapack-r198/.svn/pristine/39/391b1759703cd08c09fbc0f4ac41ff7fe0e4bc4e.svn-base
deleted file mode 100644
index ef1dc0c..0000000
--- a/cpplapack-r198/.svn/pristine/39/391b1759703cd08c09fbc0f4ac41ff7fe0e4bc4e.svn-base
+++ /dev/null
@@ -1,24 +0,0 @@
-//=============================================================================
-/*! drovector*dgbmatrix operator */
-inline _drovector operator*(const drovector& vec, const dgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vec.l!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These vector and matrix can not make a product." << std::endl
-              << "Your input was (" << vec.l << ") * (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  drovector newvec(mat.n);
-  char trans ='T';
-  double alpha =1.;
-  CPPL_INT lda =mat.kl+mat.ku+1;
-  CPPL_INT inc =1;
-  double beta =0.;
-  
-  dgbmv_( &trans, &mat.m, &mat.n, &mat.kl, &mat.ku, &alpha, mat.array, &lda, vec.array, &inc, &beta, newvec.array, &inc );
-  
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/39/391fd8a4a7e7a5c2d291284c126a078de0561f92.svn-base b/cpplapack-r198/.svn/pristine/39/391fd8a4a7e7a5c2d291284c126a078de0561f92.svn-base
deleted file mode 100644
index 7998a90..0000000
--- a/cpplapack-r198/.svn/pristine/39/391fd8a4a7e7a5c2d291284c126a078de0561f92.svn-base
+++ /dev/null
@@ -1,101 +0,0 @@
-###############################################################################
-##                               Makefile.icpc                               ##
-###############################################################################
-
-#######################################
-############### common ################
-#######################################
-
-CXX = LC_ALL=C icpc
-
-######## FLAGS ########
-FLAGS += -gcc-name=gcc -gxx-name=g++
-FLAGS += -use-intel-optimized-headers
-#FLAGS += -std=c++11 # -std=c++98
-#FLAGS += -fp-model no-except -fp-speculation=strict
-FLAGS += -qopenmp
-FLAGS += -mkl
-#FLAGS += -ipp
-
-######## CFLAGS ########
-####CFLAGS += -Wall -w1 -Wshadow -Wcheck -Wno-unknown-pragmas -Wno-pragma-once
-
-######## LFLAGS ########
-####LFLAGS += -shared-intel -shared-libgcc
-LFLAGS += -static-intel -static-libgcc -static-libstdc++
-
-######## others ########
-INCLUDE_DIRS += -I./
-INCLUDE_DIRS += -I$(HOME)/local/cpplapack/include
-INCLUDE_DIRS += -I$(HOME)/local/amgcl-trunk
-LIB_DIRS += 
-LIBS += /usr/lib64/libboost_filesystem.a /usr/lib64/libboost_system.a
-##LIBS += -llapack -lblas -lgfortran
-#LIBS += -lgsl -lgslcblas
-#LIBS += -lboost_filesystem -lboost_system
-#LIBS += -lm
-MACROS += 
-
-#######################################
-############ release mode #############
-#######################################
-ifdef RELEASE
-MACROS += -DRELEASE
-#### FLAGS ####
-#FLAGS += -fast
-FLAGS += -xHOST -O3 -no-prec-div -static -fp-model fast=2 ## -fast without -ipo
-#FLAGS += -axSSE2,SSE3,SSSE3,SSE4.1,SSE4.2,AVX,CORE-AVX2,CORE-AVX-I,MIC-AVX512,CORE-AVX512 -O3 -ipo -no-prec-div -static -fp-model fast=2 ## for various arch
-#FLAGS += -axSSE2,SSE3,SSSE3,SSE4.1,SSE4.2,AVX,CORE-AVX2,CORE-AVX-I,MIC-AVX512,CORE-AVX512 -O3 -no-prec-div -static -fp-model fast=2 ## for various arch without -ipo
-#FLAGS += -funroll-loops -fno-math-errno #-mfpmath=sse
-#FLAGS += -fomit-frame-pointer
-FLAGS += -w2 -diag-disable=remark,vec,par,cpu-dispatch
-#### CFLAGS ####
-#CFLAGS += 
-#### LFLAGS ####
-#LFLAGS +=
-#### others ####
-MACROS += -DBOOST_DISABLE_ASSERTS
-endif
-
-#######################################
-############ profile mode #############
-#######################################
-ifdef PROFILE
-MACROS += -DPROFILE
-#### FLAGS ####
-FLAGS += -fast
-#### CFLAGS ####
-CFLAGS += -pg #-g
-#### LFLAGS ####
-LFLAGS += -pg #-g
-#### others ####
-MACROS += -DBOOST_DISABLE_ASSERTS
-endif
-
-#######################################
-############## debug mode #############
-#######################################
-ifdef DEBUG
-MACROS += -DDEBUG
-#### FLAGS ####
-FLAGS += -g -O0 -w1 -Wcheck -Wno-unknown-pragmas -Wconversion -Wreturn-type -Wshadow -Woverflow
-#### CFLAGS ####
-#CFLAGS += -mfp-trap-mode=sui 
-CFLAGS += -fp-stack-check -ftrapuv -fmath-errno #-ffpe-trap=invalid,zero,overflow,underflow
-#### LFLAGS ####
-#LFLAGS += -lefence
-#### others ####
-MACROS += -DCPPL_DEBUG
-endif
-
-#######################################
-############ verbose mode #############
-#######################################
-ifdef VERBOSE
-MACROS += -DVERBOSE -DDEBUG
-#### FLAGS ####
-#### CFLAGS ####
-#### LFLAGS ####
-#### others ####
-##MACROS += -DCPPL_VERBOSE
-endif
diff --git a/cpplapack-r198/.svn/pristine/39/39b4e5206d1b55f196cc71a49c95230fae40d5e3.svn-base b/cpplapack-r198/.svn/pristine/39/39b4e5206d1b55f196cc71a49c95230fae40d5e3.svn-base
deleted file mode 100644
index 089b782..0000000
--- a/cpplapack-r198/.svn/pristine/39/39b4e5206d1b55f196cc71a49c95230fae40d5e3.svn-base
+++ /dev/null
@@ -1,34 +0,0 @@
-//=============================================================================
-/*! cast to _zgsmatrix */
-inline _zgsmatrix _dgsmatrix::to_zgsmatrix() const
-{CPPL_VERBOSE_REPORT;
-  zgsmatrix newmat(m,n,CPPL_INT(data.size()));
-  
-  const std::vector<dcomponent>::const_iterator data_end =data.end();
-  for(std::vector<dcomponent>::const_iterator it=data.begin(); it!=data_end; it++){
-    newmat.put(it->i, it->j, comple(it->v,0.));
-  }
-  
-  destroy();
-  return _(newmat);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! convert to _dgematrix */
-inline _dgematrix _dgsmatrix::to_dgematrix() const
-{CPPL_VERBOSE_REPORT;
-  dgematrix newmat(m,n);
-  newmat.zero();
-  
-  const std::vector<dcomponent>::const_iterator data_end =data.end();
-  for(std::vector<dcomponent>::const_iterator it=data.begin(); it!=data_end; it++){
-    newmat(it->i,it->j) = it->v;
-  }
-  
-  destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/39/39f148e9ed02089ce4e517cd2160e477f01ee722.svn-base b/cpplapack-r198/.svn/pristine/39/39f148e9ed02089ce4e517cd2160e477f01ee722.svn-base
deleted file mode 100644
index f0426cb..0000000
--- a/cpplapack-r198/.svn/pristine/39/39f148e9ed02089ce4e517cd2160e477f01ee722.svn-base
+++ /dev/null
@@ -1,60 +0,0 @@
-//=============================================================================
-/*! return transposed _dsymatrix */
-inline _dsymatrix t(const _dsymatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  WARNING_REPORT;
-  std::cerr << "This function call has no effect since the matrix is symmetric." << std::endl;
-#endif//CPPL_DEBUG
-  
-  return mat;
-}
-
-//=============================================================================
-/*! return its inverse matrix */
-inline _dsymatrix i(const _dsymatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  dsymatrix mat_cp(mat);
-  dsymatrix mat_inv(mat_cp.n);
-  mat_inv.identity();
-  
-  char UPLO('l');
-  CPPL_INT NRHS(mat.n), LDA(mat.n), *IPIV(new CPPL_INT[mat.n]), LDB(mat.n), LWORK(-1), INFO(1);
-  double *WORK( new double[1] );
-  dsysv_(&UPLO, &mat_cp.n, &NRHS, mat_cp.array, &LDA, IPIV, mat_inv.array, &LDB, WORK, &LWORK, &INFO);
-  
-  LWORK = CPPL_INT(WORK[0]);
-  delete [] WORK;
-  WORK = new double[LWORK];
-  dsysv_(&UPLO, &mat_cp.n, &NRHS, mat_cp.array, &LDA, IPIV, mat_inv.array, &LDB, WORK, &LWORK, &INFO);
-  delete [] WORK;
-  delete [] IPIV;
-  
-  if(INFO!=0){
-    WARNING_REPORT;
-    std::cerr << "Serious trouble happend. INFO = " << INFO << "." << std::endl;
-  }
-  
-  return _(mat_inv);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! search the index of element having the largest absolute value
-  in 0-based numbering system */
-inline void idamax(CPPL_INT& i, CPPL_INT& j, const _dsymatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  dsymatrix newmat =mat;
-  idamax(i, j, newmat);
-}
-
-//=============================================================================
-/*! return its largest absolute value */
-inline double damax(const _dsymatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  dsymatrix newmat =mat;
-  return damax(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/3a/3a10799836a5f7b1dda0f1920fb8aa1abd9de93c.svn-base b/cpplapack-r198/.svn/pristine/3a/3a10799836a5f7b1dda0f1920fb8aa1abd9de93c.svn-base
deleted file mode 100644
index c1f7164..0000000
--- a/cpplapack-r198/.svn/pristine/3a/3a10799836a5f7b1dda0f1920fb8aa1abd9de93c.svn-base
+++ /dev/null
@@ -1,90 +0,0 @@
-//=============================================================================
-/*! dgelss_check_vector */
-void dgelss_check_vector()
-{
-  std::cout << "############ check dgelss vector ############" << std::endl;
-  
-  srand(unsigned(time(NULL)));
-  int M(3), N(4);
-  int RANK(0);
-  double RCOND(-1.0);
-  
-  //// make dgematrix A  ////
-  CPPL::dgematrix A(M,N);
-  for(int i=0; i<A.m; i++){ for(int j=0; j<A.n; j++){
-    A(i,j) =double( rand() /(RAND_MAX/10) );
-  }}
-
-  //// make dcovector b  ////
-  CPPL::dcovector b(M);
-  for(int i=0; i<b.l; i++){
-    b(i) =double( rand() /(RAND_MAX/10) );
-  }
-
-  //// make dcovector s  ////
-  CPPL::dcovector s;
-   
-  //// make A_original ////
-  CPPL::dgematrix A_original(A);
-  
-  //// make A_original ////
-  CPPL::dcovector b_original(b);
-  
-  //// dgels ////
-  A.dgelss(b,s,RANK,RCOND);
-  
-  //// print ////
-  std::cout << "A_original=\n" << A_original << std::endl;
-  std::cout << "b_original=\n" << b_original << std::endl;
-  std::cout << "A=\n" << A << std::endl;
-  std::cout << "b=\n" << b << std::endl;
-  std::cout << "s=\n" << s << std::endl;
-  std::cout << "A_original*b=\n" << A_original*b << std::endl;
-}
-
-
-//=============================================================================
-/*! dgelss_check_matrix */
-void dgelss_check_matrix()
-{
-  std::cout << "############ check dgelss matrix ############" << std::endl;
-  
-  srand(unsigned(time(NULL)));
-  int M(3), N(4);
-  int RANK(0);
-  double RCOND(-1.0);
-  
-  //// make dgematrix A  ////
-  CPPL::dgematrix A(M,N);
-  for(int i=0; i<A.m; i++){ for(int j=0; j<A.n; j++){
-    A(i,j) =double( rand() /(RAND_MAX/10) );
-  }}
-
-  //// make dgematrix B  ////
-  CPPL::dgematrix b(M,2);
-  for(int i=0; i<b.m; i++){
-    for(int j=0; j<b.n; j++){
-      b(i,j) =double( rand() /(RAND_MAX/10) );
-    }
-  }
-  
-  //// make dcovector s  ////
-  CPPL::dcovector s;
-   
-  //// make A_original ////
-  CPPL::dgematrix A_original(A);
-  
-  //// make b_original ////
-  CPPL::dgematrix b_original(b);
-  
-  //// dgels ////
-  A.dgelss(b,s,RANK,RCOND);
-  
-  //// print ////
-  std::cout << "A_original=\n" << A_original << std::endl;
-  std::cout << "b_original=\n" << b_original << std::endl;
-  std::cout << "A=\n" << A << std::endl;
-  std::cout << "b=\n" << b << std::endl;
-  std::cout << "s=\n" << s << std::endl;
-  std::cout << "A_original*b=\n" << A_original*b << std::endl;
-}
diff --git a/cpplapack-r198/.svn/pristine/3a/3aeb852415a2ad7aad3920a35ae75dd516fc3993.svn-base b/cpplapack-r198/.svn/pristine/3a/3aeb852415a2ad7aad3920a35ae75dd516fc3993.svn-base
deleted file mode 100644
index 29fc506..0000000
--- a/cpplapack-r198/.svn/pristine/3a/3aeb852415a2ad7aad3920a35ae75dd516fc3993.svn-base
+++ /dev/null
@@ -1,74 +0,0 @@
-//=============================================================================
-/*! _zgematrix+_zgsmatrix operator */
-inline _zgematrix operator+(const _zgematrix& matA, const _zgsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  const size_t matB_data_size =matB.data.size();
-  for(size_t c=0; c<matB_data_size; c++){
-    const zcomponent& z =matB.data[c];
-    matA(z.i,z.j) += z.v;
-  }
-  
-  matB.destroy();
-  return matA;
-}
-
-//=============================================================================
-/*! _zgematrix-_zgsmatrix operator */
-inline _zgematrix operator-(const _zgematrix& matA, const _zgsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") - (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  const size_t matB_data_size =matB.data.size();
-  for(size_t c=0; c<matB_data_size; c++){
-    const zcomponent& z =matB.data[c];
-    matA(z.i,z.j) -= z.v;
-  }
-  
-  matB.destroy();
-  return matA;
-}
-
-//=============================================================================
-/*! _zgematrix*_zgsmatrix operator */
-inline _zgematrix operator*(const _zgematrix& matA, const _zgsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(matA.m, matB.n);
-  newmat.zero();
-  
-  const size_t matB_data_size =matB.data.size();
-  for(size_t c=0; c<matB_data_size; c++){
-    const zcomponent& z =matB.data[c];
-    for(CPPL_INT i=0; i<matA.m; i++){
-      newmat(i,z.j) += matA(i,z.i)*z.v;
-    }
-  }
-  
-  matA.destroy();
-  matB.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/3c/3c0387f7c8b41f1255264b6291a4604e91656447.svn-base b/cpplapack-r198/.svn/pristine/3c/3c0387f7c8b41f1255264b6291a4604e91656447.svn-base
deleted file mode 100644
index d089b09..0000000
--- a/cpplapack-r198/.svn/pristine/3c/3c0387f7c8b41f1255264b6291a4604e91656447.svn-base
+++ /dev/null
@@ -1,15 +0,0 @@
-//=============================================================================
-/*! convert to _zgematrix */
-inline _zgematrix _zgsmatrix::to_zgematrix() const
-{CPPL_VERBOSE_REPORT;
-  zgematrix newmat(m,n);
-  newmat.zero();
-  
-  const std::vector<zcomponent>::const_iterator data_end =data.end();
-  for(std::vector<zcomponent>::const_iterator it=data.begin(); it!=data_end; it++){
-    newmat(it->i,it->j) = it->v;
-  }
-  
-  destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/3c/3c3d34a4e73113c989f0441f64b1bda3539d2f0c.svn-base b/cpplapack-r198/.svn/pristine/3c/3c3d34a4e73113c989f0441f64b1bda3539d2f0c.svn-base
deleted file mode 100644
index 8db5d88..0000000
--- a/cpplapack-r198/.svn/pristine/3c/3c3d34a4e73113c989f0441f64b1bda3539d2f0c.svn-base
+++ /dev/null
@@ -1,60 +0,0 @@
-//=============================================================================
-/*! _zrovector+zrovector operator */
-inline _zrovector operator+(const _zrovector& vecA, const zrovector& vecB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vecA.l!=vecB.l){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make a sumation." << std::endl
-              << "Your input was (" << vecA.l << ") + (" << vecB.l << ")." << std::endl;
-    exit(1);
-  }
-  
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<vecA.l; i++){
-    vecA.array[i] += vecB.array[i];
-  }
-  
-  return vecA;
-}
-
-//=============================================================================
-/*! zrovector-zrovector operator */
-inline _zrovector operator-(const _zrovector& vecA, const zrovector& vecB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vecA.l!=vecB.l){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make a subtraction." << std::endl
-              << "Your input was (" << vecA.l << ") - (" << vecB.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<vecA.l; i++){
-    vecA.array[i] -= vecB.array[i];
-  }
-  
-  return vecA;
-}
-
-//=============================================================================
-/*! zrovector^T*zrovector operator (inner product) */
-inline comple operator%(const _zrovector& vecA, const zrovector& vecB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vecA.l!=vecB.l){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make a dot product." << std::endl
-              << "Your input was (" << vecA.l << ") % (" << vecB.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  CPPL_INT inc =1;
-  comple val =zdotu_( &vecA.l, vecA.array, &inc, vecB.array, &inc );
-  
-  vecA.destroy();
-  return val;
-}
diff --git a/cpplapack-r198/.svn/pristine/3d/3d08fd156a888f53477d3ad37b26cdc28eab9359.svn-base b/cpplapack-r198/.svn/pristine/3d/3d08fd156a888f53477d3ad37b26cdc28eab9359.svn-base
deleted file mode 100644
index 724dea6..0000000
--- a/cpplapack-r198/.svn/pristine/3d/3d08fd156a888f53477d3ad37b26cdc28eab9359.svn-base
+++ /dev/null
@@ -1,15 +0,0 @@
-//=============================================================================
-/*! +dgematrix operator */
-inline const dgematrix& operator+(const dgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-  return mat;
-}
-
-//=============================================================================
-/*! -dgematrix operator */
-inline _dgematrix operator-(const dgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-  dgematrix newmat(mat.m,mat.n);
-  for(CPPL_INT i=0; i<newmat.m*newmat.n; i++){ newmat.array[i]=-mat.array[i]; }
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/3d/3d4ae814da494edec78dae872f2e4042b3534803.svn-base b/cpplapack-r198/.svn/pristine/3d/3d4ae814da494edec78dae872f2e4042b3534803.svn-base
deleted file mode 100644
index e8102cc..0000000
--- a/cpplapack-r198/.svn/pristine/3d/3d4ae814da494edec78dae872f2e4042b3534803.svn-base
+++ /dev/null
@@ -1,25 +0,0 @@
-//=============================================================================
-/*! _zgsmatrix*_zcovector operator */
-inline _zcovector operator*(const _zgsmatrix& mat, const _zcovector& vec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(mat.n!=vec.l){
-    ERROR_REPORT;
-    std::cerr << "These matrix and vector can not make a product." << std::endl
-              << "Your input was (" << mat.m << "x" << mat.n << ") * (" << vec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zcovector newvec(mat.m);
-  newvec.zero();
-  
-  const std::vector<zcomponent>::const_iterator mat_data_end =mat.data.end();
-  for(std::vector<zcomponent>::const_iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    newvec(it->i) += it->v*vec(it->j);
-  }
-  
-  mat.destroy();
-  vec.destroy();
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/3d/3d6f3094f4eb461d9a77e39a247a1989e9989d95.svn-base b/cpplapack-r198/.svn/pristine/3d/3d6f3094f4eb461d9a77e39a247a1989e9989d95.svn-base
deleted file mode 100644
index cb4b8f9..0000000
--- a/cpplapack-r198/.svn/pristine/3d/3d6f3094f4eb461d9a77e39a247a1989e9989d95.svn-base
+++ /dev/null
@@ -1,27 +0,0 @@
-//=============================================================================
-/*! _zrovector*zhsmatrix operator */
-inline _zrovector operator*(const _zrovector& vec, const zhsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vec.l!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These vector and matrix can not make a product." << std::endl
-              << "Your input was (" << vec.l << ") * (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zrovector newvec(mat.n);
-  newvec.zero();
-  
-  const std::vector<zcomponent>::const_iterator mat_data_end =mat.data.end();
-  for(std::vector<zcomponent>::const_iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    newvec(it->j) +=vec(it->i)*it->v;
-    if(it->i!=it->j){
-      newvec(it->i) +=vec(it->j)*std::conj(it->v);
-    }
-  }
-  
-  vec.destroy();
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/3d/3df6c62b0608eab5d94c1ed33ed2be14baccaf73.svn-base b/cpplapack-r198/.svn/pristine/3d/3df6c62b0608eab5d94c1ed33ed2be14baccaf73.svn-base
deleted file mode 100644
index ed4a037..0000000
--- a/cpplapack-r198/.svn/pristine/3d/3df6c62b0608eab5d94c1ed33ed2be14baccaf73.svn-base
+++ /dev/null
@@ -1,20 +0,0 @@
-//=============================================================================
-/*! _zrovector*zcovector operator */
-inline comple operator*(const _zrovector& rovec, const zcovector& covec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(rovec.l!=covec.l){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make a product." << std::endl
-              << "Your input was (" << rovec.l << ") * (" << covec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  CPPL_INT inc =1;
-  
-  comple val =zdotu_( &rovec.l, rovec.array, &inc, covec.array, &inc );
-  
-  rovec.destroy();
-  return val;
-}
diff --git a/cpplapack-r198/.svn/pristine/3e/3e3e4a9e3b350dbf15e24d126304ceac1ea7d66b.svn-base b/cpplapack-r198/.svn/pristine/3e/3e3e4a9e3b350dbf15e24d126304ceac1ea7d66b.svn-base
deleted file mode 100644
index ec9e972..0000000
--- a/cpplapack-r198/.svn/pristine/3e/3e3e4a9e3b350dbf15e24d126304ceac1ea7d66b.svn-base
+++ /dev/null
@@ -1,225 +0,0 @@
-//=============================================================================
-/*! zgbmatrix=zgbmatrix operator\n
-  The left side matrix is overwritten thoroughly including band width. */
-inline zgbmatrix& zgbmatrix::operator=(const zgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  if(array!=mat.array){ // if it is NOT self substitution
-    copy(mat);
-  }
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zgbmatrix+=zgbmatrix operator\n
-  If the band width of the left side matrix is narrower than the right side matrix, the band width of the left side matrix become thicker as same as the right side matrix. */
-inline zgbmatrix& zgbmatrix::operator+=(const zgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.n || m!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was" << "(" << m <<"x"<< n <<","<< kl <<":"<< ku << ") "<< "+=" << "("<< mat.m <<"x"<< mat.n <<","<< mat.kl <<":"<< mat.ku <<") " << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  if(kl>=mat.kl && ku>=mat.ku){
-    for(CPPL_INT i=0; i<m; i++){
-      const CPPL_INT jmax =std::min(n,i+mat.ku+1);
-      for(CPPL_INT j=std::max(CPPL_INT(0),i-mat.kl); j<jmax; j++){
-        operator()(i,j) += mat(i,j);
-      }
-    }
-    
-    return *this;
-  }
-  
-  else{
-    zgbmatrix newmat(m,n,std::max(kl,mat.kl),std::max(ku,mat.ku));
-    newmat.zero();
-    for(CPPL_INT i=0; i<m; i++){
-      const CPPL_INT jmax1 =std::min(n,i+ku+1);
-      for(CPPL_INT j=std::max(CPPL_INT(0),i-kl); j<jmax1; j++){
-        newmat(i,j) += operator()(i,j);
-      }
-      const CPPL_INT jmax2 =std::min(mat.n,i+mat.ku+1);
-      for(CPPL_INT j=std::max(CPPL_INT(0),i-mat.kl); j<jmax2; j++){
-        newmat(i,j) += mat(i,j);
-      }
-    }
-    
-    swap(*this,newmat);
-    return *this;
-  }
-}
-
-//=============================================================================
-/*! zgbmatrix-=zgbmatrix operator\n
-  If the band width of the left side matrix is narrower than the right side matrix, the band width of the left side matrix become thicker as same as the right side matrix. */
-inline zgbmatrix& zgbmatrix::operator-=(const zgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.n || m!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was" << "(" << m <<"x"<< n <<","<< kl <<":"<< ku << ") "<< "-=" << "("<< mat.m <<"x"<< mat.n <<","<< mat.kl <<":"<< mat.ku <<") " << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  if(kl>=mat.kl && ku>=mat.ku){
-    for(CPPL_INT i=0; i<m; i++){
-      const CPPL_INT jmax =std::min(n,i+mat.ku+1);
-      for(CPPL_INT j=std::max(CPPL_INT(0),i-mat.kl); j<jmax; j++){
-        operator()(i,j) -= mat(i,j);
-      }
-    }
-    
-    return *this;
-  }
-  
-  else{
-    zgbmatrix newmat(m,n,std::max(kl,mat.kl),std::max(ku,mat.ku));
-    newmat.zero();
-    for(CPPL_INT i=0; i<m; i++){
-      const CPPL_INT jmax1 =std::min(n,i+ku+1);
-      for(CPPL_INT j=std::max(CPPL_INT(0),i-kl); j<jmax1; j++){
-        newmat(i,j) += operator()(i,j);
-      }
-      const CPPL_INT jmax2 =std::min(mat.n,i+mat.ku+1);
-      for(CPPL_INT j=std::max(CPPL_INT(0),i-mat.kl); j<jmax2; j++){
-        newmat(i,j) -= mat(i,j);
-      }
-    }
-    
-    swap(*this,newmat);
-    return *this;
-  }
-}
-
-//=============================================================================
-/*! zgbmatrix*=zgbmatrix operator */
-inline zgbmatrix& zgbmatrix::operator*=(const zgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << m << "x" << n << ") * (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgbmatrix newmat( m, mat.n, std::min(kl+mat.kl, m-1), std::min(ku+mat.ku, mat.n-1) );
-  newmat.zero();
-  
-  for(CPPL_INT i=0; i<newmat.m; i++){
-    const CPPL_INT jmax =std::min(newmat.n,i+newmat.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-newmat.kl); j<jmax; j++){
-      const CPPL_INT kmax =std::min( std::min(n,i+ku+1), std::min(mat.m,j+mat.kl+1) );
-      for(CPPL_INT k=std::max( std::max(CPPL_INT(0),i-kl), std::max(CPPL_INT(0),j-mat.ku) ); k<kmax; k++){
-        newmat(i,j)+= operator()(i,k)*mat(k,j);
-      }
-    }
-  }
-  
-  swap(*this,newmat);
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zgbmatrix+zgbmatrix operator */
-inline _zgbmatrix operator+(const zgbmatrix& matA, const zgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgbmatrix newmat(matA.m,matA.n,std::max(matA.kl,matB.kl),std::max(matA.ku,matB.ku));
-  newmat.zero();
-  
-  for(CPPL_INT i=0; i<matA.m; i++){
-    const CPPL_INT jmax1 =std::min(matA.n,i+matA.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matA.kl); j<jmax1; j++){
-      newmat(i,j) += matA(i,j);
-    }
-    const CPPL_INT jmax2 =std::min(matB.n,i+matB.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matB.kl); j<jmax2; j++){
-      newmat(i,j) += matB(i,j);
-    }
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! zgbmatrix-zgbmatrix operator */
-inline _zgbmatrix operator-(const zgbmatrix& matA, const zgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") - (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgbmatrix newmat(matA.m,matA.n,std::max(matA.kl,matB.kl),std::max(matA.ku,matB.ku));
-  newmat.zero();
-  
-  for(CPPL_INT i=0; i<matA.m; i++){
-    const CPPL_INT jmax1 =std::min(matA.n,i+matA.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matA.kl); j<jmax1; j++){
-      newmat(i,j) += matA(i,j);
-    }
-    const CPPL_INT jmax2 =std::min(matB.n,i+matB.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matB.kl); j<jmax2; j++){
-      newmat(i,j) -= matB(i,j);
-    }
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! zgbmatrix*zgbmatrix operator */
-inline _zgbmatrix operator*(const zgbmatrix& matA, const zgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgbmatrix newmat( matA.m, matB.n, std::min(matA.kl+matB.kl,matA.m-1), std::min(matA.ku+matB.ku,matB.n-1) );
-  newmat.zero();
-  
-  for(CPPL_INT i=0; i<newmat.m; i++){
-    const CPPL_INT jmax =std::min(newmat.n,i+newmat.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-newmat.kl); j<jmax; j++){
-      const CPPL_INT kmax =std::min( std::min(matA.n,i+matA.ku+1), std::min(matB.m,j+matB.kl+1) );
-      for(CPPL_INT k=std::max( std::max(CPPL_INT(0),i-matA.kl), std::max(CPPL_INT(0),j-matB.ku) ); k<kmax; k++){
-        newmat(i,j) += matA(i,k)*matB(k,j);
-      }
-    }
-  }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/3e/3e82ffdafdfbbab1563d0099aa3067b6bbb95bf0.svn-base b/cpplapack-r198/.svn/pristine/3e/3e82ffdafdfbbab1563d0099aa3067b6bbb95bf0.svn-base
deleted file mode 100644
index 0508543..0000000
--- a/cpplapack-r198/.svn/pristine/3e/3e82ffdafdfbbab1563d0099aa3067b6bbb95bf0.svn-base
+++ /dev/null
@@ -1,76 +0,0 @@
-//=============================================================================
-/*! zhsmatrix+_zhematrix operator */
-/*
-inline _zgematrix operator+(const zhsmatrix& matA, const _zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.n || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(matB);
-  for(CPPL_INT c=0; c<matA.vol; c++){
-    newmat(matA.indx[c],matA.jndx[c]) += matA.array[c];
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
-*/
-
-//=============================================================================
-/*! zhsmatrix-_zhematrix operator */
-/*
-inline _zgematrix operator-(const zhsmatrix& matA, const _zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.n || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") - (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(-matB);
-  
-  for(CPPL_INT c=0; c<matA.vol; c++){
-    newmat(matA.indx[c],matA.jndx[c]) += matA.array[c];
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
-*/
-
-//=============================================================================
-/*! zhsmatrix*_zhematrix operator */
-/*
-inline _zgematrix operator*(const zhsmatrix& matA, const _zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(matA.m, matB.n);
-  newmat.zero();
-  
-  for(CPPL_INT c=0; c<matA.vol; c++){
-    for(CPPL_INT i=0; i<matB.n; i++){
-      newmat(matA.indx[c],i) += matA.array[c]*matB(matA.jndx[c],i);
-    }
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
-*/
diff --git a/cpplapack-r198/.svn/pristine/3f/3f70d36ec5fc0ab5201bac05e299f89a83f351c9.svn-base b/cpplapack-r198/.svn/pristine/3f/3f70d36ec5fc0ab5201bac05e299f89a83f351c9.svn-base
deleted file mode 100644
index c7a0d6b..0000000
--- a/cpplapack-r198/.svn/pristine/3f/3f70d36ec5fc0ab5201bac05e299f89a83f351c9.svn-base
+++ /dev/null
@@ -1,20 +0,0 @@
-//=============================================================================
-/*! _dgbmatrix*double operator */
-inline _dgbmatrix operator*(const _dgbmatrix& mat, const double& d)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT size =(mat.kl+mat.ku+1)*mat.n;
-  CPPL_INT inc =1;
-  dscal_(&size, &d, mat.array, &inc);
-  return mat;
-}
-
-//=============================================================================
-/*! _dgbmatrix/double operator */
-inline _dgbmatrix operator/(const _dgbmatrix& mat, const double& d)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT size =(mat.kl+mat.ku+1)*mat.n;
-  double dinv =1./d;
-  CPPL_INT inc =1;
-  dscal_(&size, &dinv, mat.array, &inc);
-  return mat;
-}
diff --git a/cpplapack-r198/.svn/pristine/40/409bfa139def74b231254e7913d242c406518837.svn-base b/cpplapack-r198/.svn/pristine/40/409bfa139def74b231254e7913d242c406518837.svn-base
deleted file mode 100644
index 8f3ea23..0000000
--- a/cpplapack-r198/.svn/pristine/40/409bfa139def74b231254e7913d242c406518837.svn-base
+++ /dev/null
@@ -1,13 +0,0 @@
-//=============================================================================
-/*! double*zgematrix operator */
-inline _zgematrix operator*(const double& d, const zgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-  zgematrix newmat(mat.m, mat.n);
-  
-  const CPPL_INT size =mat.m*mat.n;
-  for(CPPL_INT i=0; i<size; i++){
-    newmat.array[i] =d*mat.array[i];
-  }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/41/4112be592d77744d97c15098616d7d6ed37c4cec.svn-base b/cpplapack-r198/.svn/pristine/41/4112be592d77744d97c15098616d7d6ed37c4cec.svn-base
deleted file mode 100644
index 26d81c5..0000000
--- a/cpplapack-r198/.svn/pristine/41/4112be592d77744d97c15098616d7d6ed37c4cec.svn-base
+++ /dev/null
@@ -1,32 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int M(4);
-  
-  CPPL::dcovector x(M);
-  for(int i=0; i<x.l; i++){
-    x(i) =double( rand() /(RAND_MAX/10) );
-  }
-  
-  cout << "x =\n" << x << endl;
-  cout << "t(x) =\n" << CPPL::t(x) << endl;
-  cout << "idamax(x)=\n" << CPPL::idamax(x) << endl;
-  cout << "damax(x)=\n" << CPPL::damax(x) << endl;
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/41/414411a7dc08762abf8b91c5fea8a584b3c6cefa.svn-base b/cpplapack-r198/.svn/pristine/41/414411a7dc08762abf8b91c5fea8a584b3c6cefa.svn-base
deleted file mode 100644
index 01c24bb..0000000
--- a/cpplapack-r198/.svn/pristine/41/414411a7dc08762abf8b91c5fea8a584b3c6cefa.svn-base
+++ /dev/null
@@ -1,23 +0,0 @@
-//=============================================================================
-/*! return transposed _zhematrix */
-inline _zhematrix t(const _zhematrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  WARNING_REPORT;
-  std::cerr << "This function call has no effect since the matrix is symmetric." << std::endl;
-#endif//CPPL_DEBUG
-  
-  return mat;
-}
-
-//=============================================================================
-/*! return its inverse matrix */
-inline _zgematrix i(const _zhematrix& mat)
-{CPPL_VERBOSE_REPORT;
-  zhematrix mat_cp(mat);
-  zgematrix mat_inv(mat_cp.n,mat_cp.n);
-  mat_inv.identity();
-  mat_cp.zhesv(mat_inv);
-  
-  return _(mat_inv);
-}
diff --git a/cpplapack-r198/.svn/pristine/41/41478147eb1d24628e0584063447fbce88d24b21.svn-base b/cpplapack-r198/.svn/pristine/41/41478147eb1d24628e0584063447fbce88d24b21.svn-base
deleted file mode 100644
index 35bac5b..0000000
--- a/cpplapack-r198/.svn/pristine/41/41478147eb1d24628e0584063447fbce88d24b21.svn-base
+++ /dev/null
@@ -1,23 +0,0 @@
-//=============================================================================
-/*! dsymatrix*dcovector operator */
-inline _dcovector operator*(const dsymatrix& mat, const dcovector& vec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(mat.n!=vec.l){
-    ERROR_REPORT;
-    std::cerr << "These matrix and vector can not make a product." << std::endl
-              << "Your input was (" << mat.n << "x" << mat.n << ") * (" << vec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dcovector newvec(mat.n);
-  char uplo ='l';
-  double alpha =1.;
-  CPPL_INT inc =1;
-  double beta =0.;
-  
-  dsymv_( &uplo, &mat.n, &alpha, mat.array, &mat.n, vec.array, &inc, &beta, newvec.array, &inc );
-  
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/41/41a24267ed201059a29a8fd10c12ceae81a437d6.svn-base b/cpplapack-r198/.svn/pristine/41/41a24267ed201059a29a8fd10c12ceae81a437d6.svn-base
deleted file mode 100644
index 9235078..0000000
--- a/cpplapack-r198/.svn/pristine/41/41a24267ed201059a29a8fd10c12ceae81a437d6.svn-base
+++ /dev/null
@@ -1,25 +0,0 @@
-//=============================================================================
-/*! _zrovector*_zgematrix operator */
-inline _zrovector operator*(const _zrovector& vec, const _zgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vec.l!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These vector and matrix can not make a product." << std::endl
-              << "Your input was (" << vec.l << ") * (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zrovector newvec(mat.n);
-  char trans ='T';
-  comple alpha =comple(1.,0.);
-  CPPL_INT inc =1;
-  comple beta =comple(0.,0.);
-
-  zgemv_( &trans, &mat.m, &mat.n, &alpha, mat.array, &mat.m, vec.array, &inc, &beta, newvec.array, &inc );
-  
-  vec.destroy();
-  mat.destroy();
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/41/41b367f92900a6dc1f05c041367dd6cbff18389a.svn-base b/cpplapack-r198/.svn/pristine/41/41b367f92900a6dc1f05c041367dd6cbff18389a.svn-base
deleted file mode 100644
index 3da3011..0000000
--- a/cpplapack-r198/.svn/pristine/41/41b367f92900a6dc1f05c041367dd6cbff18389a.svn-base
+++ /dev/null
@@ -1,96 +0,0 @@
-//=============================================================================
-/*! zgematrix constructor without arguments */
-inline zgematrix::zgematrix()
-{CPPL_VERBOSE_REPORT;
-  //////// initialize ////////
-  m =0;
-  n =0;
-  array =NULL;
-  darray =NULL;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zgematrix copy constructor */
-inline zgematrix::zgematrix(const zgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-  //////// initialize ////////
-  m =mat.m;
-  n =mat.n;
-  array =new comple[m*n];
-  darray =new comple*[n];
-  for(int i=0; i<n; i++){
-    darray[i] =&array[i*m];
-  }
-  
-  //////// copy ////////
-  CPPL_INT size =m*n;
-  CPPL_INT inc =1;
-  zcopy_(&size, mat.array, &inc, array, &inc);
-}
-
-//=============================================================================
-/*! zgematrix constructor to cast _zgematrix */
-inline zgematrix::zgematrix(const _zgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-  m =mat.m;
-  n =mat.n;
-  array =mat.array;
-  darray =mat.darray;
-  
-  mat.nullify();
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zgematrix constructor with size specification */
-inline zgematrix::zgematrix(const CPPL_INT& _m, const CPPL_INT& _n)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( _m<0 || _n<0 ){
-    ERROR_REPORT;
-    std::cerr << "Matrix sizes must be positive integers. " << std::endl
-              << "Your input was (" << _m << "," << _n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //////// initialize ////////
-  m =_m;
-  n =_n;
-  array =new comple[m*n];
-  darray =new comple*[n];
-  for(int i=0; i<n; i++){
-    darray[i] =&array[i*m];
-  }
-}
-
-//=============================================================================
-/*! zgematrix constructor with filename */
-inline zgematrix::zgematrix(const char* filename)
-{CPPL_VERBOSE_REPORT;
-  array =NULL;
-  darray =NULL;
-  
-  //// read ////
-  read(filename);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zgematrix destructor */
-inline zgematrix::~zgematrix()
-{CPPL_VERBOSE_REPORT;
-  //////// delete array ////////
-  delete [] array;
-  delete [] darray;
-}
diff --git a/cpplapack-r198/.svn/pristine/42/42104d0d33001c277e85e3820db55b4719fc581a.svn-base b/cpplapack-r198/.svn/pristine/42/42104d0d33001c277e85e3820db55b4719fc581a.svn-base
deleted file mode 100644
index 0828013..0000000
--- a/cpplapack-r198/.svn/pristine/42/42104d0d33001c277e85e3820db55b4719fc581a.svn-base
+++ /dev/null
@@ -1,160 +0,0 @@
-//=============================================================================
-/*! clear vector */
-inline void zrovector::clear()
-{CPPL_VERBOSE_REPORT;
-  l =0;
-  delete [] array;
-  array =NULL;
-}
-
-//=============================================================================
-/*! make vector into zero vector */
-inline zrovector& zrovector::zero()
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<l; i++){
-    array[i] =comple(0.,0.);
-  }
-  return *this;
-}
-
-//=============================================================================
-/*! change sign(+/-) of the vector */
-inline void zrovector::chsign()
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<l; i++){
-    array[i] =-array[i];
-  }
-}
-
-//=============================================================================
-/*! make a deep copy of the zrovector */
-inline void zrovector::copy(const zrovector& vec)
-{CPPL_VERBOSE_REPORT;
-  delete [] array;
-  l =vec.l;
-  array =new comple[vec.l];
-  CPPL_INT inc =1;
-  
-  zcopy_(&vec.l, vec.array, &inc, array, &inc);
-}
-
-//=============================================================================
-/*! make a shallow copy of the vector\n
- This function is not desinged to be used in project codes. */
-inline void zrovector::shallow_copy(const _zrovector& vec)
-{CPPL_VERBOSE_REPORT;
-  l =vec.l;
-  delete [] array;
-  array =vec.array;
-  
-  vec.nullify();
-}
-
-//=============================================================================
-/*! make an alias of the vector\n
-  Be carefull to use this function not to cause double free. */
-inline void zrovector::alias(const zrovector& vec)
-{CPPL_VERBOSE_REPORT;
-  l =vec.l;
-  //cap =vec.cap;
-  delete [] array;
-  array =vec.array;
-}
-
-//=============================================================================
-/*! unalias the vector */
-inline void zrovector::unalias()
-{CPPL_VERBOSE_REPORT;
-  l =0;
-  //cap =0;
-  array =NULL;
-}
-
-//=============================================================================
-/*! resize vector */
-inline void zrovector::resize(const CPPL_INT& _l)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( _l<0 ){
-    ERROR_REPORT;
-    std::cerr << "Vector size must be positive integers." << std::endl
-              << "Your input was (" << _l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  l =_l;
-  delete [] array;
-  array =new comple[_l];
-}
-
-//=============================================================================
-/*! extract the real part of the vector */
-inline _drovector zrovector::real() const
-{CPPL_VERBOSE_REPORT;
-  drovector vec(l);
-  for(CPPL_INT i=0; i<l; i++){
-    vec.array[i] =array[i].real();
-  }
-  return _(vec);
-}
-
-//=============================================================================
-/*! extract the imag part of the vector */
-inline _drovector zrovector::imag() const
-{CPPL_VERBOSE_REPORT;
-  drovector vec(l);
-  for(CPPL_INT i=0; i<l; i++){
-    vec.array[i] =array[i].imag();
-  }
-  return _(vec);
-}
-
-//=============================================================================
-/*! extract the absolute of the vector */
-inline _drovector zrovector::abs() const
-{CPPL_VERBOSE_REPORT;
-  drovector vec(l);
-  for(CPPL_INT i=0; i<l; i++){
-    vec.array[i] =std::abs(array[i]);
-  }
-  return _(vec);
-}
-
-//=============================================================================
-/*! extract the argument of the vector */
-inline _drovector zrovector::arg() const
-{CPPL_VERBOSE_REPORT;
-  drovector vec(l);
-  for(CPPL_INT i=0; i<l; i++){
-    vec.array[i] =std::arg(array[i]);
-  }
-  return _(vec);
-}
-
-//=============================================================================
-/*! swap two vectors */
-inline void swap(zrovector& u, zrovector& v)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT u_L =u.l;
-  comple* u_Array =u.array;
-  u.l=v.l; u.array=v.array;
-  v.l=u_L; v.array=u_Array;
-}
-
-//=============================================================================
-/*! convert user object to smart-temporary object */
-inline _zrovector _(zrovector& vec)
-{CPPL_VERBOSE_REPORT;
-  _zrovector newvec;
-  
-  //////// shallow copy ////////
-  newvec.l =vec.l;
-  newvec.array =vec.array;
-  
-  //////// nullify ////////
-  vec.l =0;
-  vec.array =NULL;
-  
-  return newvec;
-}
diff --git a/cpplapack-r198/.svn/pristine/42/423337b1cc8dff18c2fda667ccde5c32fdd7871d.svn-base b/cpplapack-r198/.svn/pristine/42/423337b1cc8dff18c2fda667ccde5c32fdd7871d.svn-base
deleted file mode 100644
index bee255c..0000000
--- a/cpplapack-r198/.svn/pristine/42/423337b1cc8dff18c2fda667ccde5c32fdd7871d.svn-base
+++ /dev/null
@@ -1,48 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int N(3);
-  
-  CPPL::dsymatrix A(N), B;
-  for(int i=0; i<A.n; i++){ for(int j=0; j<=i; j++){
-    A(i,j) =double( rand() /(RAND_MAX/10) );
-  }}
-  
-  cout << "A =\n" << A << endl;
-  cout << "#### B.copy(A) ####" << endl;
-  B.copy(A);
-  cout << "B =\n" << B << endl;
-  
-  cout << "#### B.clear() ####" << endl;
-  B.clear();
-  cout << "B =\n" << B << endl;
-  
-  cout << "#### B.resize(2) & B.zero() ####" << endl;
-  B.resize(2);
-  B.zero();
-  cout << "B =\n" << B << endl;
-  
-  cout << "#### B.identity() ####" << endl;
-  B.identity();
-  cout << "B =\n" << B << endl;
-  
-  cout << "B(0,:)=\n" << B.row(0) << endl;
-  cout << "B(:,0)=\n" << B.col(0) << endl;
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/42/429972f2209ddaa22f39abca37d26a3234d35d08.svn-base b/cpplapack-r198/.svn/pristine/42/429972f2209ddaa22f39abca37d26a3234d35d08.svn-base
deleted file mode 100644
index f6f6eb4..0000000
--- a/cpplapack-r198/.svn/pristine/42/429972f2209ddaa22f39abca37d26a3234d35d08.svn-base
+++ /dev/null
@@ -1,72 +0,0 @@
-//=============================================================================
-/*! return transposed dgematrix */
-inline _dsymatrix t(const dsymatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  WARNING_REPORT;
-  std::cerr << "This function call has no effect since the matrix is symmetric." << std::endl;
-#endif//CPPL_DEBUG
-  
-  dsymatrix newmat(mat);
-  return _(newmat);
-}
-
-//=============================================================================
-/*! return its inverse matrix */
-inline _dsymatrix i(const dsymatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  dsymatrix mat_cp =mat;
-  dsymatrix mat_inv(mat.n);
-  mat_inv.identity();
-  mat_inv.complete();
-  
-  char UPLO('l');
-  CPPL_INT NRHS(mat.n), LDA(mat.n), *IPIV(new CPPL_INT[mat.n]), LDB(mat.n), LWORK(-1), INFO(1);
-  double *WORK( new double[1] );
-  dsysv_(&UPLO, &mat.n, &NRHS, mat_cp.array, &LDA, IPIV, mat_inv.array, &LDB, WORK, &LWORK, &INFO);
-  
-  LWORK = CPPL_INT(WORK[0]);
-  delete [] WORK;
-  WORK = new double[LWORK];
-  dsysv_(&UPLO, &mat.n, &NRHS, mat_cp.array, &LDA, IPIV, mat_inv.array, &LDB, WORK, &LWORK, &INFO);
-  
-  delete [] WORK;
-  delete [] IPIV;
-  if(INFO!=0){
-    WARNING_REPORT;
-    std::cerr << "Serious trouble happend. INFO = " << INFO << "." << std::endl;
-  }
-  
-  return _(mat_inv);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! search the index of element having the largest absolute value in 0-based numbering system */
-inline void idamax(CPPL_INT& i, CPPL_INT& j, const dsymatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  i=j=0;
-  double val =0.;
-  
-  for(CPPL_INT J=0; J<mat.n; J++){
-    for(CPPL_INT I=J; I<mat.n; I++){
-      if(val<fabs(mat.darray[J][I]) ){
-        val =fabs(mat.darray[J][I]);
-        i=I;
-        j=J;
-      }
-    }
-  }
-}
-
-//=============================================================================
-/*! return its largest absolute value */
-inline double damax(const dsymatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT i,j;
-  idamax(i, j, mat);
-  return mat(i,j);
-}
diff --git a/cpplapack-r198/.svn/pristine/42/42bff0fdaf2e4ba18626408b2637f0f9816ecf4b.svn-base b/cpplapack-r198/.svn/pristine/42/42bff0fdaf2e4ba18626408b2637f0f9816ecf4b.svn-base
deleted file mode 100644
index 1e975e7..0000000
--- a/cpplapack-r198/.svn/pristine/42/42bff0fdaf2e4ba18626408b2637f0f9816ecf4b.svn-base
+++ /dev/null
@@ -1,134 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int M(4), N(3);
-  
-  CPPL::dsymatrix A(N), B(N);
-  CPPL::dgematrix X(N,N), Y(N,N), Z(N,N), G(M,N);
-  for(int i=0; i<A.n; i++){
-    for(int j=0; j<A.n; j++){
-      A(i,j) =double( rand() /(RAND_MAX/10) );
-      B(i,j) =double( rand() /(RAND_MAX/10) );
-      Z(i,j) =double( rand() /(RAND_MAX/10) );
-    }
-  }
-  for(int i=0; i<G.m; i++){
-    for(int j=0; j<G.n; j++){
-      G(i,j) = double( rand() /(RAND_MAX/10) );
-    }
-  }
-  for(int i=0; i<A.n; i++){
-    for(int j=0; j<A.n; j++){
-      X(i,j) = -A(i,j);
-      Y(i,j) = A(i,j);
-    }
-  }
-  
-  
-  cout << "A =\n" << A << endl;
-  cout << "B =\n" << B << endl;
-  cout << "X =\n" << X << endl;
-  cout << "Y =\n" << Y << endl;
-  cout << "Z =\n" << Z << endl;
-  cout << "G =\n" << G << endl;
-
-  
-  //dge+dsy
-  cout << "X+A =\n" << X+A << "<-Should be zero." << endl;
-  //dge-dsy
-  cout << "Y-A =\n" << Y-A << "<-Should be zero." << endl;
-  //dge*dsy, t(_dge), t(dge), dsy*_dge, _dge-_dge
-  cout << "t(Y*A)-A*t(Y) =\n" << t(Y*A)-A*t(Y) << "<-Should be zero." << endl;
-  cout << "G*A-G*Y =\n" << G*A-G*Y << "<-Should be zero." << endl;
-
-  //dge/dsy
-  //N/A
-  
-  //dge-dsy
-  CPPL::dgematrix W;
-  W =A.to_dgematrix();
-  cout << "W-A =\n" << W-A << "<-Should be zero." << endl;
-  
-  //dge+=dsy
-  cout << "W+=A =\n" << (W+=A) << endl;
-  //dge-=dsy
-  cout << "W-=B =\n" << (W-=B) << endl;
-  //dge*=dsy, double*dsy, _dsy-dsy, _dsy*dsy, dge-_dsy
-  cout << "(W*=B)-((2*A-B)*B) =\n" << (W*=B)-((2*A-B)*B) << "<-Should be zero" << endl;
-  //W*=B; cout << "W-((2*A-B)*B) =\n" << W-((2*A-B)*B) << "<-Should be zero" << endl;
-  //N/A
-  //dge/=dsy
-  //N/A
-  
-  //dge+_dsy, -dsy
-  cout << "Y+(-A) =\n" << Y+(-A) << "<-Should be zero." << endl;
-  //dge-_dsy, -dsy
-  cout << "X-(-A) =\n" << X-(-A) << "<-Should be zero." << endl;
-  //dge*_dsy, dge*dsy, _dge-_dge
-  cout << "X*(A+B) - X*A - X*B =\n" << X*(A+B) - X*A - X*B << "<-Should be zero." << endl;
-  //dge/_dsy
-  //N/A
-  //dge+=_dsy, -dsy
-  cout << "W+=-A =\n" << (W+=-A) << endl;
-  //dge-=_dsy, dsy+dsy
-  cout << "W-=(A+B) =\n" << (W-=(A+B)) << endl;
-  //dge*=_dsy, dsy*dsy, dge+_dge
-  cout << "(W*=B)+A*B =\n" << (W*=B)+A*B << endl;
-  //dge/=_dsy
-  //N/A
-  
-  //_dge+dsy
-  cout << "(-Y)+A =\n" << (-Y)+A << "<-Should be zero." << endl;
-  //_dge-dsy, -dge
-  cout << "(-X)-A =\n" << (-X)-A << "<-Should be zero." << endl;
-  //_dge*dsy, -dge, dge*dsy, _dge+_dge
-  cout << "(-Z)*A+(Z*A) =\n" << (-Z)*A+(Z*A) << "<-Should be zero." << endl;
-  //_dge/dsy
-  //N/A
-  //_dge=dsy
-  //N/A
-  //_dge+=dsy
-  //N/A
-  //_dge-=dsy
-  //N/A
-  //_dge*=dsy
-  //N/A
-  //_dge/=dsy
-  //N/A
-
-  //_dge+_dsy, -dge, -dsy
-  cout << "(-X)+(-A) =\n" << (-X)+(-A) << "<-Should be zero." << endl;
-  //_dge-_dsy, -dge, -dsy
-  cout << "(-Y)-(-A) =\n" << (-Y)-(-A) << "<-Should be zero." << endl;
-  //_dge*_dsy, -dge, -dsy, dge*dsy, _dge-_dge
-  cout << "(-Z)*(-A)-(Z*A) =\n" << (-Z)*(-A)-(Z*A) << "<-Should be zero." << endl;
-  //_dge/_dsy
-  //N/A
-  //_dge=_dsy
-  //N/A
-  //_dge+=_dsy
-  //N/A
-  //_dge-=_dsy
-  //N/A
-  //_dge*=_dsy
-  //N/A
-  //_dge/=_dsy
-  //N/A
-
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/42/42d69b629179a127d3ada13dd1844b132daac4e5.svn-base b/cpplapack-r198/.svn/pristine/42/42d69b629179a127d3ada13dd1844b132daac4e5.svn-base
deleted file mode 100644
index 25700e8..0000000
--- a/cpplapack-r198/.svn/pristine/42/42d69b629179a127d3ada13dd1844b132daac4e5.svn-base
+++ /dev/null
@@ -1,79 +0,0 @@
-//=============================================================================
-/*! _zgsmatrix+_zhematrix operator */
-/*
-inline _zgematrix operator+(const _zgsmatrix& matA, const _zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.n || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(matB);
-  for(CPPL_INT c=0; c<matA.vol; c++){
-    newmat(matA.indx[c],matA.jndx[c]) += matA.array[c];
-  }
-  
-  matA.destroy();
-  matB.destroy();
-  return _(newmat);
-}
-*/
-//=============================================================================
-/*! _zgsmatrix-_zhematrix operator */
-/*
-inline _zgematrix operator-(const _zgsmatrix& matA, const _zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.n || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") - (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  //// shallow copy to zgematrix  ////
-  zgematrix newmat(-matB);
-  
-  //// add ////
-  for(CPPL_INT c=0; c<matA.vol; c++){
-    newmat(matA.indx[c],matA.jndx[c]) += matA.array[c];
-  }
-  
-  matA.destroy();
-  matB.destroy();
-  return _(newmat);
-}
-*/
-//=============================================================================
-/*! _zgsmatrix*_zhematrix operator */
-/*
-inline _zgematrix operator*(const _zgsmatrix& matA, const _zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(matA.m, matB.n);
-  newmat.zero();
-  
-  for(CPPL_INT c=0; c<matA.vol; c++){
-    for(CPPL_INT i=0; i<matB.n; i++){
-      newmat(matA.indx[c],i) += matA.array[c]*matB(matA.jndx[c],i);
-    }
-  }
-  
-  matA.destroy();
-  matB.destroy();
-  return _(newmat);
-}
-*/
diff --git a/cpplapack-r198/.svn/pristine/43/434d07749d0ae86835c515a77b3528e0f4007679.svn-base b/cpplapack-r198/.svn/pristine/43/434d07749d0ae86835c515a77b3528e0f4007679.svn-base
deleted file mode 100644
index b866205..0000000
--- a/cpplapack-r198/.svn/pristine/43/434d07749d0ae86835c515a77b3528e0f4007679.svn-base
+++ /dev/null
@@ -1,7 +0,0 @@
-//=============================================================================
-/*! complex*_zhsmatrix operator */
-inline _zgsmatrix operator*(const comple& d, const _zhsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  zgsmatrix newmat =mat.to_zgsmatrix();
-  return d*newmat;
-}
diff --git a/cpplapack-r198/.svn/pristine/43/436058cad873dcce87deb5cd867504c1379d3d90.svn-base b/cpplapack-r198/.svn/pristine/43/436058cad873dcce87deb5cd867504c1379d3d90.svn-base
deleted file mode 100644
index c40293a..0000000
--- a/cpplapack-r198/.svn/pristine/43/436058cad873dcce87deb5cd867504c1379d3d90.svn-base
+++ /dev/null
@@ -1,66 +0,0 @@
-//=============================================================================
-/*! _dgematrix+dgematrix operator */
-inline _dgematrix operator+(const _dgematrix& matA, const dgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  const CPPL_INT mn =matA.m*matA.n;
-  for(CPPL_INT i=0; i<mn; i++){
-    matA.array[i]+=matB.array[i];
-  }
-  
-  return matA;
-}
-
-//=============================================================================
-/*! _dgematrix-dgematrix operator */
-inline _dgematrix operator-(const _dgematrix& matA, const dgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") - (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  const CPPL_INT mn =matA.m*matA.n;
-  for(CPPL_INT i=0; i<mn; i++){
-    matA.array[i]-=matB.array[i];
-  }
-  
-  return matA;
-}
-
-//=============================================================================
-/*! _dgematrix*dgematrix operator */
-inline _dgematrix operator*(const _dgematrix& matA, const dgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat( matA.m, matB.n );
-  char transa ='n';
-  char transb ='n';
-  double alpha =1.;
-  double beta =0.;
-  
-  dgemm_( &transa, &transb, &matA.m, &matB.n, &matA.n, &alpha, matA.array, &matA.m, matB.array, &matB.m, &beta, newmat.array, &matA.m );
-  
-  matA.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/43/43a4a89e00a9fb00ea8abe4bacfd6a7b458b940f.svn-base b/cpplapack-r198/.svn/pristine/43/43a4a89e00a9fb00ea8abe4bacfd6a7b458b940f.svn-base
deleted file mode 100644
index 328342a..0000000
--- a/cpplapack-r198/.svn/pristine/43/43a4a89e00a9fb00ea8abe4bacfd6a7b458b940f.svn-base
+++ /dev/null
@@ -1,23 +0,0 @@
-//=============================================================================
-/*! dgematrix*dcovector operator */
-inline _dcovector operator*(const dgematrix& mat, const dcovector& vec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(mat.n!=vec.l){
-    ERROR_REPORT;
-    std::cerr << "These matrix and vector can not make a product." << std::endl
-              << "Your input was (" << mat.m << "x" << mat.n << ") * (" << vec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dcovector newvec(mat.m);
-  char trans ='n';
-  double alpha =1.;
-  CPPL_INT inc =1;
-  double beta =0.;
-  
-  dgemv_( &trans, &mat.m, &mat.n, &alpha, mat.array, &mat.m, vec.array, &inc, &beta, newvec.array, &inc );
-  
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/43/43d383b2fec61f020a64e91f15c532853058dc9b.svn-base b/cpplapack-r198/.svn/pristine/43/43d383b2fec61f020a64e91f15c532853058dc9b.svn-base
deleted file mode 100644
index 9a71128..0000000
--- a/cpplapack-r198/.svn/pristine/43/43d383b2fec61f020a64e91f15c532853058dc9b.svn-base
+++ /dev/null
@@ -1,130 +0,0 @@
-//=============================================================================
-/*! operator() for non-const object */
-inline comple& zrovector::operator()(const CPPL_INT& i)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || l<=i ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the vector size." << std::endl
-              << "Your input is (" << i << "), whereas the vector size is " << l << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  return array[i];
-}
-
-//=============================================================================
-/*! operator() for const object */
-inline comple zrovector::operator()(const CPPL_INT& i) const
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || l<=i ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the vector size." << std::endl
-              << "Your input is (" << i << "), whereas the vector size is " << l << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  return array[i];
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! set value for const object */
-inline zrovector& zrovector::set(const CPPL_INT& i, const comple& v) //const
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || l<=i ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the vector size." << std::endl
-              << "Your input is (" << i << "), whereas the vector size is " << l << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  array[i] =v;
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-inline std::ostream& operator<<(std::ostream& s, const zrovector& vec)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<vec.l; i++){ s << " " << vec.array[i]; }
-  s << std::endl;
-  
-  return s;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-inline void zrovector::write(const char* filename) const
-{CPPL_VERBOSE_REPORT;
-  std::ofstream ofs(filename, std::ios::trunc);
-  ofs.setf(std::cout.flags());
-  ofs.precision(std::cout.precision());
-  ofs.width(std::cout.width());
-  ofs.fill(std::cout.fill());
-  
-  ofs << "#zrovector" << " " << l << std::endl;
-  for(CPPL_INT i=0; i<l; i++){
-    ofs << operator()(i) << " ";
-  }
-  ofs << std::endl;
-  
-  ofs.close();
-}
-
-//=============================================================================
-inline void zrovector::read(const char* filename)
-{CPPL_VERBOSE_REPORT;
-  std::ifstream s( filename );
-  if(!s){
-    ERROR_REPORT;
-    std::cerr << "The file \"" << filename << "\" can not be opened." << std::endl;
-    exit(1);
-  }
-
-  std::string id;
-  s >> id;
-  if( id != "zrovector" && id != "#zrovector" ){
-    ERROR_REPORT;
-    std::cerr << "The type name of the file \"" << filename << "\" is not zrovector." << std::endl
-              << "Its type name was " << id << " ." << std::endl;
-    exit(1);
-  }
-  
-  s >> l;
-  resize(l);
-  for(CPPL_INT i=0; i<l; i++){
-    s >> operator()(i);
-  }
-  if(s.eof()){
-    ERROR_REPORT;
-    std::cerr << "There is something is wrong with the file \"" << filename << "\"." << std::endl
-              << "Most likely, there is not enough data components, or a linefeed code or space code is missing at the end of the last line." << std::endl;
-    exit(1);
-  }
-  
-  s >> id;
-  if(!s.eof()){
-    ERROR_REPORT;
-    std::cerr << "There is something is wrong with the file \"" << filename << "\"." << std::endl
-              << "Most likely, there are extra data components." << std::endl;
-    exit(1);
-  }
-  
-  
-  s.close();
-}
diff --git a/cpplapack-r198/.svn/pristine/43/43e39dc014bd3d3ae945a3f7e19bbf13c59f008b.svn-base b/cpplapack-r198/.svn/pristine/43/43e39dc014bd3d3ae945a3f7e19bbf13c59f008b.svn-base
deleted file mode 100644
index 15bb33a..0000000
--- a/cpplapack-r198/.svn/pristine/43/43e39dc014bd3d3ae945a3f7e19bbf13c59f008b.svn-base
+++ /dev/null
@@ -1,30 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int M(4);
-  
-  CPPL::dcovector x(M);
-  for(int i=0; i<x.l; i++){
-    x(i) =double( rand() /(RAND_MAX/10) );
-  }
-  
-  cout << "+x=\n" << +x << endl;
-  cout << "-x=\n" << -x << endl;
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/44/441d4e2f846f203aad8d540f8243d0406b785cbf.svn-base b/cpplapack-r198/.svn/pristine/44/441d4e2f846f203aad8d540f8243d0406b785cbf.svn-base
deleted file mode 100644
index aeaa620..0000000
--- a/cpplapack-r198/.svn/pristine/44/441d4e2f846f203aad8d540f8243d0406b785cbf.svn-base
+++ /dev/null
@@ -1,22 +0,0 @@
-//=============================================================================
-/*! nullify all the matrix data */
-inline void _zgbmatrix::nullify() const
-{CPPL_VERBOSE_REPORT;
-  m=0;
-  n=0;
-  kl=0;
-  ku=0;
-  array=NULL;
-  darray=NULL;
-}
-
-
-//=============================================================================
-/*! destroy all the matrix data */
-inline void _zgbmatrix::destroy() const
-{CPPL_VERBOSE_REPORT;
-  delete [] array;
-  delete [] darray;
-  array=NULL;
-  darray=NULL;
-}
diff --git a/cpplapack-r198/.svn/pristine/44/44bb8d90c5778256d563bb4ab9c0fbd0577023fa.svn-base b/cpplapack-r198/.svn/pristine/44/44bb8d90c5778256d563bb4ab9c0fbd0577023fa.svn-base
deleted file mode 100644
index 202c5fb..0000000
--- a/cpplapack-r198/.svn/pristine/44/44bb8d90c5778256d563bb4ab9c0fbd0577023fa.svn-base
+++ /dev/null
@@ -1,77 +0,0 @@
-//=============================================================================
-/*! _dsymatrix+_dgsmatrix operator */
-inline _dgematrix operator+(const _dsymatrix& matA, const _dgsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat =matA.to_dgematrix();
-  
-  const std::vector<dcomponent>::const_iterator matB_data_end =matB.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matB.data.begin(); it!=matB_data_end; it++){
-    newmat(it->i,it->j) += it->v;
-  }
-  
-  matA.destroy();
-  matB.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _dsymatrix-_dgsmatrix operator */
-inline _dgematrix operator-(const _dsymatrix& matA, const _dgsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") - (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  dgematrix newmat =matA.to_dgematrix();
-  
-  const std::vector<dcomponent>::const_iterator matB_data_end =matB.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matB.data.begin(); it!=matB_data_end; it++){
-    newmat(it->i,it->j) -= it->v;
-  }
-  
-  matA.destroy();
-  matB.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _dsymatrix*_dgsmatrix operator */
-inline _dgematrix operator*(const _dsymatrix& matA, const _dgsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat(matA.n, matB.n);
-  newmat.zero();
-  
-  const std::vector<dcomponent>::const_iterator matB_data_end =matB.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matB.data.begin(); it!=matB_data_end; it++){
-    for(CPPL_INT i=0; i<matA.n; i++){
-      newmat(i,it->j) += matB(i,it->i)*it->v;
-    }
-  }
-  
-  matA.destroy();
-  matB.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/45/456eeef12d5ac8401e6f381375936125e0c4db19.svn-base b/cpplapack-r198/.svn/pristine/45/456eeef12d5ac8401e6f381375936125e0c4db19.svn-base
deleted file mode 100644
index fbb5574..0000000
--- a/cpplapack-r198/.svn/pristine/45/456eeef12d5ac8401e6f381375936125e0c4db19.svn-base
+++ /dev/null
@@ -1,8 +0,0 @@
-//=============================================================================
-/*! comple*_zcovector operator */
-inline _zcovector operator*(const comple& d, const _zcovector& vec)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT inc =1;
-  zscal_(&vec.l, &d, vec.array, &inc);  
-  return vec;
-}
diff --git a/cpplapack-r198/.svn/pristine/45/4576b5b49ce2a9b5a7997a4c8244315d523ca67e.svn-base b/cpplapack-r198/.svn/pristine/45/4576b5b49ce2a9b5a7997a4c8244315d523ca67e.svn-base
deleted file mode 100644
index cd61dbc..0000000
--- a/cpplapack-r198/.svn/pristine/45/4576b5b49ce2a9b5a7997a4c8244315d523ca67e.svn-base
+++ /dev/null
@@ -1,548 +0,0 @@
-//=============================================================================
-/*! convert dgematrix_small to dgematrix */
-template<CPPL_INT m, CPPL_INT n>
-inline _dgematrix dgematrix_small<m,n>::to_dgematrix() const
-{CPPL_VERBOSE_REPORT;
-  dgematrix mat(m,n);
-  for(CPPL_INT i=0; i<m; i++){
-    for(CPPL_INT j=0; j<n; j++){
-      mat(i,j) =(*this)(i,j);
-    }
-  }
-  return _(mat);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! operator() */
-template<CPPL_INT m, CPPL_INT n>
-inline double& dgematrix_small<m,n>::operator()(const CPPL_INT& i, const CPPL_INT& j)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || j<0 || m<=i || n<=j ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the matrix size." << std::endl
-              << "Your input is (" << i << "," << j << "), whereas the matrix size is " << m << "x" << n << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  return array[i+m*j];
-}
-
-//=============================================================================
-/*! operator() for const */
-template<CPPL_INT m, CPPL_INT n>
-inline double dgematrix_small<m,n>::operator()(const CPPL_INT& i, const CPPL_INT& j) const
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || j<0 || m<=i || n<=j ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the matrix size." << std::endl
-              << "Your input is (" << i << "," << j << "), whereas the matrix size is " << m << "x" << n << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  return array[i+m*j];
-}
-
-//=============================================================================
-/*! set function */
-template<CPPL_INT m, CPPL_INT n>
-inline dgematrix_small<m,n>& dgematrix_small<m,n>::set(const CPPL_INT& i, const CPPL_INT& j, const double& v)
-{CPPL_VERBOSE_REPORT;
-  (*this)(i,j) =v;
-  return *this;
-}
-
-//=============================================================================
-/*! operator<< */
-template<CPPL_INT m, CPPL_INT n>
-inline std::ostream& operator<<(std::ostream& s, const dgematrix_small<m,n>& A)
-{CPPL_VERBOSE_REPORT;
-  s << std::setiosflags(std::ios::showpos);
-  for(CPPL_INT i=0; i<m; i++){
-    for(CPPL_INT j=0; j<n; j++){
-      s << " " << A(i,j);
-    }
-    s << std::endl;
-  }
-  return s;
-}
-
-//=============================================================================
-/*! write to file */
-template<CPPL_INT m, CPPL_INT n>
-inline void dgematrix_small<m,n>::write(const char* filename) const
-{CPPL_VERBOSE_REPORT;
-  std::ofstream ofs(filename, std::ios::trunc);
-  ofs.setf(std::cout.flags());
-  ofs.precision(std::cout.precision());
-  ofs.width(std::cout.width());
-  ofs.fill(std::cout.fill());
-  ofs << "#dgematrix" << " " << m << " " << n << std::endl;
-  for(CPPL_INT i=0; i<m; i++){
-    for(CPPL_INT j=0; j<n; j++){
-      ofs << (*this)(i,j) << " ";
-    }
-    ofs << std::endl;
-  }
-  ofs.close();
-}
-
-//=============================================================================
-/*! read from file */
-template<CPPL_INT m, CPPL_INT n>
-inline void dgematrix_small<m,n>::read(const char* filename)
-{CPPL_VERBOSE_REPORT;
-  std::ifstream s( filename );
-  if(!s){
-    ERROR_REPORT;
-    std::cerr << "The file \"" << filename << "\" can not be opened." << std::endl;
-    exit(1);
-  }
-  
-  std::string id;
-  s >> id;
-  if( id != "dgematrix" && id != "#dgematrix" ){
-    ERROR_REPORT;
-    std::cerr << "The type name of the file \"" << filename << "\" is not dgematrix." << std::endl
-              << "Its type name was " << id << " ." << std::endl;
-    exit(1);
-  }
-  
-  CPPL_INT _m, _n;
-  s >> _m >> _n;
-  if(m!=_m || n!=_n){
-    ERROR_REPORT;
-    std::cerr << "Matrix size is invalid." << std::endl;
-    exit(1);
-  }
-  for(CPPL_INT i=0; i<m; i++){
-    for(CPPL_INT j=0; j<n; j++ ){
-      s >> operator()(i,j);
-    }
-  }
-  if(s.eof()){
-    ERROR_REPORT;
-    std::cerr << "There is something is wrong with the file \"" << filename << "\"." << std::endl
-              << "Most likely, there is not enough data components, or a linefeed code or space code is missing at the end of the last line." << std::endl;
-    exit(1);
-  }
-  
-  s >> id;
-  if(!s.eof()){
-    ERROR_REPORT;
-    std::cerr << "There is something is wrong with the file \"" << filename << "\"." << std::endl
-              << "Most likely, there are extra data components." << std::endl;
-    exit(1);
-  }
-  
-  s.close();    
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! return transposed matrix */
-template<CPPL_INT m, CPPL_INT n>
-inline dgematrix_small<n,m> t(const dgematrix_small<m,n>& A)
-{CPPL_VERBOSE_REPORT;
-  dgematrix_small<n,m> X;
-  for(CPPL_INT i=0; i<m; i++){
-    for(CPPL_INT j=0; j<n; j++){
-      X(j,i) =A(i,j);
-    }
-  }
-  return X;
-}
-
-//=============================================================================
-/*! return its trace */
-template<CPPL_INT m, CPPL_INT n>
-inline double trace(const dgematrix_small<m,n>& A)
-{CPPL_VERBOSE_REPORT;
-  double trace =0.;
-  
-  const CPPL_INT imax =std::min(m,n);
-  for(CPPL_INT i=0; i<imax; i++){
-    trace +=A(i,i);
-  }
-  
-  return trace;
-}
-
-//=============================================================================
-/*! find index of the maximum component */
-template<CPPL_INT m, CPPL_INT n>
-inline void idamax(CPPL_INT& I, CPPL_INT& J, const dgematrix_small<m,n>& A)
-{CPPL_VERBOSE_REPORT;
-  double max(-1.);
-  for(CPPL_INT i=0; i<m; i++){
-    for(CPPL_INT j=0; j<n; j++){
-      if( max<fabs(A(i,j)) ){
-        I=i;
-        J=j;
-        max =fabs(A(i,j));
-      }
-    }
-  }
-  return;
-}
-
-//=============================================================================
-/*! return the maximum component */
-template<CPPL_INT m, CPPL_INT n>
-inline double damax(const dgematrix_small<m,n>& A)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT i(0), j(0);
-  idamax(i,j,A);
-  return A(i,j);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zero */
-template<CPPL_INT m, CPPL_INT n>
-inline dgematrix_small<m,n>& dgematrix_small<m,n>::zero()
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT k=0; k<m*n; k++){ array[k]=0.; }
-  return *this;
-}
-
-//=============================================================================
-/*! identity */
-template<CPPL_INT m, CPPL_INT n>
-inline dgematrix_small<m,n>& dgematrix_small<m,n>::identity()
-{CPPL_VERBOSE_REPORT;
-  zero();
-  
-  const CPPL_INT kmax =std::min(m,n);
-  for(CPPL_INT k=0; k<kmax; k++){
-    (*this)(k,k)=1.;
-  }
-  
-  return *this;
-}
-
-//=============================================================================
-/*! return the j-th column vector */
-template<CPPL_INT m, CPPL_INT n>
-inline dcovector_small<m> dgematrix_small<m,n>::col(const CPPL_INT& j) const
-{CPPL_VERBOSE_REPORT;
-  dcovector_small<m> vec;
-  for(CPPL_INT i=0; i<m; i++){ vec(i)=(*this)(i,j); }
-  return vec;
-}
-
-//=============================================================================
-/*! return the i-th row vector */
-template<CPPL_INT m, CPPL_INT n>
-inline drovector_small<n> dgematrix_small<m,n>::row(const CPPL_INT& i) const
-{CPPL_VERBOSE_REPORT;
-  drovector_small<n> vec;
-  for(CPPL_INT j=0; j<n; j++){ vec(j)=(*this)(i,j); }
-  return vec;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! dgematrix_small+=dgematrix_small operator */
-template<CPPL_INT m, CPPL_INT n>
-inline dgematrix_small<m,n>& operator+=(dgematrix_small<m,n>& A, const dgematrix_small<m,n>& B)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT k=0; k<m*n; k++){
-    A.array[k] +=B.array[k];
-  }
-  return A;
-}
-
-//=============================================================================
-/*! dgematrix_small-=dgematrix_small operator */
-template<CPPL_INT m, CPPL_INT n>
-inline dgematrix_small<m,n>& operator-=(dgematrix_small<m,n>& A, const dgematrix_small<m,n>& B)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT k=0; k<m*n; k++){
-    A.array[k] -=B.array[k];
-  }
-  return A;
-}
-
-//=============================================================================
-/*! dgematrix_small*=dgematrix_small operator */
-template<CPPL_INT m, CPPL_INT l, CPPL_INT n>
-inline dgematrix_small<m,n>& operator*=(dgematrix_small<m,l>& A, const dgematrix_small<l,n>& B)
-{CPPL_VERBOSE_REPORT;
-  dgematrix_small<m,n> X;
-  X.zero();
-  for(CPPL_INT i=0; i<m; i++){
-    for(CPPL_INT j=0; j<n; j++){
-      for(CPPL_INT k=0; k<l; k++){
-        X(i,j) += A(i,k)*B(k,j);
-      }
-    }
-  }
-  A =X;
-  return A;
-}
-
-//=============================================================================
-/*! dgematrix_small*=dsymatrix_small operator */
-template<CPPL_INT m, CPPL_INT n>
-inline dgematrix_small<m,n>& operator*=(dgematrix_small<m,n>& A, const dsymatrix_small<n>& B)
-{CPPL_VERBOSE_REPORT;
-  dgematrix_small<m,n> X;
-  X.zero();
-  for(CPPL_INT i=0; i<m; i++){
-    for(CPPL_INT j=0; j<n; j++){
-      for(CPPL_INT k=0; k<j; k++){
-        X(i,j) += A(i,k)*B(j,k);
-      }
-      for(CPPL_INT k=j; k<n; k++){
-        X(i,j) += A(i,k)*B(k,j);
-      }
-    }
-  }
-  A =X;
-  return A;
-}
-
-//=============================================================================
-/*! dgematrix_small*=double operator */
-template<CPPL_INT m, CPPL_INT n>
-inline dgematrix_small<m,n>& operator*=(dgematrix_small<m,n>& A, const double& d)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT k=0; k<m*n; k++){
-    A.array[k] *=d;
-  }
-  return A;
-}
-
-//=============================================================================
-/*! dgematrix_small/double operator */
-template<CPPL_INT m, CPPL_INT n>
-inline dgematrix_small<m,n>& operator/=(dgematrix_small<m,n>& A, const double& d)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT k=0; k<m*n; k++){
-    A.array[k] /=d;
-  }
-  return A;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! unary + operator */
-template<CPPL_INT m, CPPL_INT n>
-inline const dgematrix_small<m,n>& operator+(const dgematrix_small<m,n>& A)
-{CPPL_VERBOSE_REPORT;
-  return A;
-}
-
-//=============================================================================
-/*! unary - operator */
-template<CPPL_INT m, CPPL_INT n>
-inline dgematrix_small<m,n> operator-(const dgematrix_small<m,n>& A)
-{CPPL_VERBOSE_REPORT;
-  dgematrix_small<m,n> X;
-  for(CPPL_INT i=0; i<m; i++){
-    for(CPPL_INT j=0; j<n; j++){
-      X(i,j) =-A(i,j);
-    }
-  }
-  return X;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! dgematrix_small+dgematrix_small operator */
-template<CPPL_INT m, CPPL_INT n>
-inline dgematrix_small<m,n> operator+(const dgematrix_small<m,n>& A, const dgematrix_small<m,n>& B)
-{CPPL_VERBOSE_REPORT;
-  dgematrix_small<m,n> C;
-  for(int i=0; i<m; i++){
-    for(int j=0; j<n; j++){
-      C(i,j) =A(i,j)+B(i,j);
-    }
-  }
-  return C;
-}
-
-//=============================================================================
-/*! dgematrix_small+dsymatrix_small operator */
-template<CPPL_INT n>
-inline dgematrix_small<n,n> operator+(const dgematrix_small<n,n>& A, const dsymatrix_small<n>& B)
-{CPPL_VERBOSE_REPORT;
-  dgematrix_small<n,n> X;
-  for(CPPL_INT i=0; i<n; i++){
-    for(CPPL_INT j=0; j<i; j++){
-      X(i,j) =A(i,j)+B(i,j);
-    }
-    for(CPPL_INT j=i; j<n; j++){
-      X(i,j) =A(i,j)+B(j,i);
-    }
-  }
-  return X;
-}
-
-//=============================================================================
-/*! dgematrix_small-dgematrix_small operator */
-template<CPPL_INT m, CPPL_INT n>
-inline dgematrix_small<m,n> operator-(const dgematrix_small<m,n>& A, const dgematrix_small<m,n>& B)
-{CPPL_VERBOSE_REPORT;
-  dgematrix_small<m,n> C;
-  for(int i=0; i<m; i++){
-    for(int j=0; j<n; j++){
-      C(i,j)=A(i,j)-B(i,j);
-    }
-  }
-  return C;
-}
-
-//=============================================================================
-/*! dgematrix_small-dsymatrix_small operator */
-template<CPPL_INT n>
-inline dgematrix_small<n,n> operator-(const dgematrix_small<n,n>& A, const dsymatrix_small<n>& B)
-{CPPL_VERBOSE_REPORT;
-  dgematrix_small<n,n> X;
-  for(CPPL_INT i=0; i<n; i++){
-    for(CPPL_INT j=0;   j<=i; j++){ X(i,j)=A(i,j)-B(i,j); }
-    for(CPPL_INT j=i+1; j<n;  j++){ X(i,j)=A(i,j)-B(j,i); }
-  }
-  return X;
-}
-
-//=============================================================================
-/*! dgematrix_small*dcovector_small operator */
-template<CPPL_INT m, CPPL_INT n>
-inline dcovector_small<m> operator*(const dgematrix_small<m,n>& A, const dcovector_small<n>& B)
-{CPPL_VERBOSE_REPORT;
-  dcovector_small<m> C;
-  C.zero();
-  for(CPPL_INT i=0; i<m; i++){
-    for(CPPL_INT j=0; j<n; j++){
-      C(i) +=A(i,j)*B(j);
-    }
-  }
-  return C;
-}
-
-//=============================================================================
-/*! dgematrix_small*dgematrix_small operator */
-template<CPPL_INT m, CPPL_INT l, CPPL_INT n>
-inline dgematrix_small<m,n> operator*(const dgematrix_small<m,l>& A, const dgematrix_small<l,n>& B)
-{CPPL_VERBOSE_REPORT;
-  dgematrix_small<m,n> C;
-  C.zero();
-  for(int i=0; i<m; i++){
-    for(int j=0; j<n; j++){
-      for(int k=0; k<l; k++){
-        C(i,j) +=A(i,k)*B(k,j);
-      }
-    }
-  }
-  return C;
-}
-
-//=============================================================================
-/*! dgematrix_small*dsymatrix_small operator */
-template<CPPL_INT m, CPPL_INT n>
-inline dgematrix_small<m,n> operator*(const dgematrix_small<m,n>& A, const dsymatrix_small<n>& B)
-{CPPL_VERBOSE_REPORT;
-  dgematrix_small<m,n> X;
-  X.zero();
-  for(CPPL_INT i=0; i<m; i++){
-    for(CPPL_INT j=0; j<n; j++){
-      for(CPPL_INT k=0; k<j; k++){
-        X(i,j)+=A(i,k)*B(j,k);
-      }
-      for(CPPL_INT k=j; k<n; k++){
-        X(i,j)+=A(i,k)*B(k,j);
-      }
-    }
-  }
-  return X;
-}
-
-//=============================================================================
-/*! dgematrix_small*double operator */
-template<CPPL_INT m, CPPL_INT n>
-inline dgematrix_small<m,n> operator*(const dgematrix_small<m,n>& A, const double& v)
-{CPPL_VERBOSE_REPORT;
-  dgematrix_small<m,n> C;
-  for(CPPL_INT i=0; i<m; i++){
-    for(CPPL_INT j=0; j<n; j++){
-      C(i,j) =A(i,j)*v;
-    }
-  }
-  return C;
-}
-
-//=============================================================================
-/*! dgematrix_small/double operator */
-template<CPPL_INT m, CPPL_INT n>
-inline dgematrix_small<m,n> operator/(const dgematrix_small<m,n>& A, const double& v)
-{CPPL_VERBOSE_REPORT;
-  dgematrix_small<m,n> C;
-  for(CPPL_INT i=0; i<m; i++){
-    for(CPPL_INT j=0; j<n; j++){
-      C(i,j) =A(i,j)/v;
-    }
-  }
-  return C;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! Hadamard product */
-template<CPPL_INT m, CPPL_INT n>
-inline dgematrix_small<m,n> hadamard(const dgematrix_small<m,n>& A, const dgematrix_small<m,n>& B)
-{CPPL_VERBOSE_REPORT;
-  dgematrix_small<m,n> C;
-  for(CPPL_INT i=0; i<m; i++){
-    for(CPPL_INT j=0; j<n; j++){
-      C(i,j) =A(i,j)*B(i,j);
-    }
-  }
-  return C;
-}
-
-//=============================================================================
-/*! Hadamard product */
-template<CPPL_INT n>
-inline dgematrix_small<n,n> hadamard(const dgematrix_small<n,n>& A, const dsymatrix_small<n>& B)
-{CPPL_VERBOSE_REPORT;
-  dgematrix_small<n,n> C;
-  for(CPPL_INT i=0; i<n; i++){
-    for(CPPL_INT j=0; j<=i; j++){
-      C(i,j) =A(i,j)*B(i,j);
-    }
-    for(CPPL_INT j=i+1; j<n; j++){
-      C(i,j) =A(i,j)*B(j,i);
-    }
-  }
-  return C;
-}
diff --git a/cpplapack-r198/.svn/pristine/45/458d2f0c08920baacb48ef3bfba8b17aad4bb66a.svn-base b/cpplapack-r198/.svn/pristine/45/458d2f0c08920baacb48ef3bfba8b17aad4bb66a.svn-base
deleted file mode 100644
index 765bd58..0000000
--- a/cpplapack-r198/.svn/pristine/45/458d2f0c08920baacb48ef3bfba8b17aad4bb66a.svn-base
+++ /dev/null
@@ -1,126 +0,0 @@
-//=============================================================================
-void dggev_check_value()
-{
-  std::cout << "############ check dggev value ############" << std::endl;
-  
-  srand(unsigned(time(NULL)));
-  int M(3);
-  
-  //// make dgematrix A and B ////
-  CPPL::dgematrix A(M,M), B(M,M);
-  for(int i=0; i<A.m; i++){ for(int j=0; j<A.n; j++){
-    A(i,j) =double( rand() /(RAND_MAX/10) );
-    B(i,j) =double( rand() /(RAND_MAX/10) );
-  }}
-  
-  //// make wr wi vr ////
-  std::vector<double> wr, wi;
-  
-  //// make A_original and B_original ////
-  CPPL::dgematrix A_original(A);
-  CPPL::dgematrix B_original(B);
-  
-  //// dggev ////
-  A.dggev(B, wr, wi);
-  
-  //// print ////
-  std::cout << "A_original=\n" << A_original << std::endl;
-  std::cout << "B_original=\n" << B_original << std::endl;
-  for(int i=0; i<A.m; i++){
-    std::cout << "#### " << i << "th eigen ####" << std::endl;
-    std::cout << "wr=" << wr[i] <<std::endl;
-    std::cout << "wi=" << wi[i] <<std::endl;
-  }
-}
-
-//=============================================================================
-void dggev_check_right()
-{
-  std::cout << "############ check dggev right ############" << std::endl;
-  
-  srand(unsigned(time(NULL)));
-  int M(3);
-  
-  //// make dgematrix A and B ////
-  CPPL::dgematrix A(M,M), B(M,M);
-  for(int i=0; i<A.m; i++){ for(int j=0; j<A.n; j++){
-    A(i,j) =double( rand() /(RAND_MAX/10) );
-    B(i,j) =double( rand() /(RAND_MAX/10) );
-  }}
-  
-  //// make wr wi vr ////
-  std::vector<double> wr, wi;
-  std::vector<CPPL::dcovector> vrr, vri;
-  
-  //// make A_original and B_original ////
-  CPPL::dgematrix A_original(A);
-  CPPL::dgematrix B_original(B);
-  
-  //// dggev ////
-  A.dggev(B, wr, wi ,vrr, vri);
-  
-  //// print ////
-  std::cout << "A_original=\n" << A_original << std::endl;
-  std::cout << "B_original=\n" << B_original << std::endl;
-  for(int i=0; i<A.m; i++){
-    std::cout << "#### " << i << "th eigen ####" << std::endl;
-    std::cout << "wr=" << wr[i] <<std::endl;
-    std::cout << "wi=" << wi[i] <<std::endl;
-    std::cout << "vrr=\n" << vrr[i] <<std::endl;
-    std::cout << "vri=\n" << vri[i] <<std::endl;
-    std::cout << "Real[ [A]*{x} -lambda*[B]*{x} ] = (Should be zeros)\n"
-         << A_original*vrr[i]
-      -(wr[i]*B_original*vrr[i] - wi[i]*B_original*vri[i])
-         << std::endl;
-    std::cout << "Imag[ [A]*{x} -lambda*[B]*{x} ] = (Should be zeros)\n"
-         << A_original*vri[i]
-      -(wr[i]*B_original*vri[i] + wi[i]*B_original*vrr[i])
-         << std::endl;
-  }
-}
-
-//=============================================================================
-void dggev_check_left()
-{
-  std::cout << "############ check dggev left ############" << std::endl;
-  
-  srand(unsigned(time(NULL)));
-  int M(3);
-  
-  //// make dgematrix A and B ////
-  CPPL::dgematrix A(M,M), B(M,M);
-  for(int i=0; i<A.m; i++){ for(int j=0; j<A.n; j++){
-    A(i,j) =double( rand() /(RAND_MAX/10) );
-    B(i,j) =double( rand() /(RAND_MAX/10) );
-  }}
-  
-  //// make wr wi vl ////
-  std::vector<double> wr, wi;
-  std::vector<CPPL::drovector> vlr, vli;
-  
-  //// make A_original and B_original ////
-  CPPL::dgematrix A_original(A);
-  CPPL::dgematrix B_original(B);
-  
-  //// dggev ////
-  A.dggev(B, wr, wi ,vlr, vli);
-  
-  //// print ////
-  std::cout << "A_original=\n" << A_original << std::endl;
-  std::cout << "B_original=\n" << B_original << std::endl;
-  for(int i=0; i<A.m; i++){
-    std::cout << "#### " << i << "th eigen ####" << std::endl;
-    std::cout << "wr = " << wr[i] << std::endl;
-    std::cout << "wi = " << wi[i] << std::endl;
-    std::cout << "vlr = " << vlr[i];
-    std::cout << "vli = " << vli[i] << std::endl;
-    std::cout << "Real[ {x}*[A] -lambda*{x}*[B] ] = (Should be zeros)\n"
-         << vlr[i]*A_original
-      -(wr[i]*vlr[i]*B_original - wi[i]*vli[i]*B_original)
-         << std::endl;
-    std::cout << "Imag[ [A]*{x} -lambda*{x}*[B] ] = (Should be zeros)\n"
-         << vli[i]*A_original
-      -(wr[i]*vli[i]*B_original + wi[i]*vlr[i]*B_original)
-         << std::endl;
-  }
-}
diff --git a/cpplapack-r198/.svn/pristine/45/45c1fa72db1d8cacc1ed37031b8c96b9cbabd9f5.svn-base b/cpplapack-r198/.svn/pristine/45/45c1fa72db1d8cacc1ed37031b8c96b9cbabd9f5.svn-base
deleted file mode 100644
index 5d6aa81..0000000
--- a/cpplapack-r198/.svn/pristine/45/45c1fa72db1d8cacc1ed37031b8c96b9cbabd9f5.svn-base
+++ /dev/null
@@ -1,70 +0,0 @@
-//=============================================================================
-/*! _zhematrix+zhematrix operator */
-inline _zhematrix operator+(const _zhematrix& matA, const zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") + (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT j=0; j<matA.n; j++){
-    for(CPPL_INT i=j; i<matA.n; i++){
-      matA.darray[j][i] += matB.darray[j][i];
-    }
-  }
-  
-  return matA;
-}
-
-//=============================================================================
-/*! _zhematrix-zhematrix operator */
-inline _zhematrix operator-(const _zhematrix& matA, const zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") - (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT j=0; j<matA.n; j++){
-    for(CPPL_INT i=j; i<matA.n; i++){
-      matA.darray[j][i] -= matB.darray[j][i];
-    }
-  }
-  
-  return matA;
-}
-
-//=============================================================================
-/*! _zhematrix*zhematrix operator */
-inline _zgematrix operator*(const _zhematrix& matA, const zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") * (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  matB.complete();
-  
-  zgematrix newmat( matA.n, matB.n );
-  char side ='l';
-  char uplo ='l';
-  comple alpha =comple(1.,0.);
-  comple beta =comple(0.,0.);
-  
-  zhemm_( &side, &uplo, &matA.n, &matB.n, &alpha, matA.array, &matA.n, matB.array, &matB.n, &beta, newmat.array, &newmat.m );
-  
-  matA.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/45/45c7bf611046a67b4b4373f7a519d2ae0c98b341.svn-base b/cpplapack-r198/.svn/pristine/45/45c7bf611046a67b4b4373f7a519d2ae0c98b341.svn-base
deleted file mode 100644
index 934154d..0000000
--- a/cpplapack-r198/.svn/pristine/45/45c7bf611046a67b4b4373f7a519d2ae0c98b341.svn-base
+++ /dev/null
@@ -1,273 +0,0 @@
-%TGIF 4.1.43-QPL
-state(0,37,100.000,0,200,0,16,1,9,1,1,1,0,0,0,1,0,'Courier',0,63360,0,3,1,5,0,0,1,1,0,16,0,0,1,1,1,1,1050,1485,0,0,2880,0).
-%
-% @(#)$Header$
-% %W%
-%
-unit("1 pixel/pixel").
-color_info(59,65535,0,[
-	"magenta", 65535, 0, 65535, 65535, 0, 65535, 1,
-	"red", 65535, 0, 0, 65535, 0, 0, 1,
-	"green", 0, 65535, 0, 0, 65535, 0, 1,
-	"blue", 0, 0, 65535, 0, 0, 65535, 1,
-	"yellow", 65535, 65535, 0, 65535, 65535, 0, 1,
-	"pink", 65535, 49344, 52171, 65535, 49344, 52171, 1,
-	"cyan", 0, 65535, 65535, 0, 65535, 65535, 1,
-	"CadetBlue", 24415, 40606, 41120, 24415, 40606, 41120, 1,
-	"white", 65535, 65535, 65535, 65535, 65535, 65535, 1,
-	"black", 0, 0, 0, 0, 0, 0, 1,
-	"magenta1", 65535, 0, 65535, 65535, 0, 65535, 1,
-	"red1", 65535, 0, 0, 65535, 0, 0, 1,
-	"green1", 0, 65535, 0, 0, 65535, 0, 1,
-	"blue1", 0, 0, 65535, 0, 0, 65535, 1,
-	"yellow1", 65535, 65535, 0, 65535, 65535, 0, 1,
-	"pink1", 65535, 46517, 50629, 65535, 46517, 50629, 1,
-	"cyan1", 0, 65535, 65535, 0, 65535, 65535, 1,
-	"CadetBlue1", 39064, 62965, 65535, 39064, 62965, 65535, 1,
-	"gray90", 58853, 58853, 58853, 58853, 58853, 58853, 1,
-	"gray10", 6682, 6682, 6682, 6682, 6682, 6682, 1,
-	"magenta4", 35723, 0, 35723, 35723, 0, 35723, 1,
-	"red4", 35723, 0, 0, 35723, 0, 0, 1,
-	"green4", 0, 35723, 0, 0, 35723, 0, 1,
-	"blue4", 0, 0, 35723, 0, 0, 35723, 1,
-	"yellow4", 35723, 35723, 0, 35723, 35723, 0, 1,
-	"pink4", 35723, 25443, 27756, 35723, 25443, 27756, 1,
-	"cyan4", 0, 35723, 35723, 0, 35723, 35723, 1,
-	"CadetBlue4", 21331, 34438, 35723, 21331, 34438, 35723, 1,
-	"gray80", 52428, 52428, 52428, 52428, 52428, 52428, 1,
-	"gray20", 13107, 13107, 13107, 13107, 13107, 13107, 1,
-	"#ff4d4d", 65535, 19789, 19789, 65280, 19712, 19712, 1,
-	"#ff9c4d", 65535, 40092, 19789, 65280, 39936, 19712, 1,
-	"#ffec4d", 65535, 60652, 19789, 65280, 60416, 19712, 1,
-	"#c4ff4d", 50372, 65535, 19789, 50176, 65280, 19712, 1,
-	"#75ff4d", 30069, 65535, 19789, 29952, 65280, 19712, 1,
-	"#4dff75", 19789, 65535, 30069, 19712, 65280, 29952, 1,
-	"#4dffc4", 19789, 65535, 50372, 19712, 65280, 50176, 1,
-	"#4decff", 19789, 60652, 65535, 19712, 60416, 65280, 1,
-	"#4d9cff", 19789, 40092, 65535, 19712, 39936, 65280, 1,
-	"#4d4dff", 19789, 19789, 65535, 19712, 19712, 65280, 1,
-	"#fffffe", 65535, 65535, 65278, 65280, 65280, 65024, 1,
-	"#e0e0e0", 57568, 57568, 57568, 57344, 57344, 57344, 1,
-	"#d0d0d0", 53456, 53456, 53456, 53248, 53248, 53248, 1,
-	"#c0c0c0", 49344, 49344, 49344, 49152, 49152, 49152, 1,
-	"#b0b0b0", 45232, 45232, 45232, 45056, 45056, 45056, 1,
-	"#a0a0a0", 41120, 41120, 41120, 40960, 40960, 40960, 1,
-	"#808080", 32896, 32896, 32896, 32768, 32768, 32768, 1,
-	"#404040", 16448, 16448, 16448, 16384, 16384, 16384, 1,
-	"#101010", 4112, 4112, 4112, 4096, 4096, 4096, 1,
-	"#000001", 0, 0, 257, 0, 0, 256, 1,
-	"DarkSlateGray", 12079, 20303, 20303, 12079, 20303, 20303, 1,
-	"#00000000c000", 0, 0, 49344, 0, 0, 49152, 1,
-	"#820782070000", 33410, 33410, 0, 33287, 33287, 0, 1,
-	"#3cf3fbee34d2", 15420, 64507, 13364, 15603, 64494, 13522, 1,
-	"#3cf3fbed34d3", 15420, 64507, 13364, 15603, 64493, 13523, 1,
-	"#ffffa6990000", 65535, 42662, 0, 65535, 42649, 0, 1,
-	"#ffff0000fffe", 65535, 0, 65535, 65535, 0, 65534, 1,
-	"#fffe0000fffe", 65535, 0, 65535, 65534, 0, 65534, 1,
-	"#fffe00000000", 65535, 0, 0, 65534, 0, 0, 1
-]).
-script_frac("0.6").
-fg_bg_colors('black','white').
-dont_reencode("FFDingbests:ZapfDingbats").
-page(1,"",1,'').
-polygon('black','',7,[
-	150,600,150,650,350,650,375,625,375,500,250,500,150,600],3,2,1,0,259,3,0,0,0,0,'2',0,
-    "00",[
-]).
-polygon('black','',7,[
-	150,100,150,150,350,350,375,350,375,225,250,100,150,100],3,2,1,0,211,0,0,0,0,0,'2',0,
-    "00",[
-]).
-box('black','',150,100,375,350,0,2,1,0,0,0,0,0,0,'2',0,[
-]).
-poly('black','',2,[
-	150,150,350,350],0,2,1,1,0,0,0,0,0,0,0,'2',0,0,
-    "0","",[
-    0,10,4,0,'10','4','0'],[0,10,4,0,'10','4','0'],[
-]).
-poly('black','',2,[
-	250,100,375,225],0,2,1,2,0,0,0,0,0,0,0,'2',0,0,
-    "0","",[
-    0,10,4,0,'10','4','0'],[0,10,4,0,'10','4','0'],[
-]).
-poly('black','',2,[
-	150,100,375,325],0,2,1,3,0,0,3,0,0,0,0,'2',0,0,
-    "0","",[
-    0,10,4,0,'10','4','0'],[0,10,4,0,'10','4','0'],[
-]).
-group([
-text('black',80,52,1,1,1,107,22,95,18,4,0,0,0,0,2,107,22,0,0,"",0,0,0,0,70,'',[
-minilines(107,22,0,0,1,0,0,[
-mini_line(107,18,4,0,0,0,[
-str_block(0,107,18,4,0,-1,0,0,0,[
-str_seg('black','Helvetica',0,103680,107,18,4,0,-1,0,0,0,0,0,
-	"Actual Matrix")])
-])
-])]),
-rcbox('black','',20,45,140,80,0,2,1,0,16,102,0,0,0,0,'2',0,[
-])
-],
-105,0,0,[
-]).
-group([
-text('black',80,457,1,1,1,113,22,111,18,4,0,0,0,0,2,113,22,0,0,"",0,0,0,0,475,'',[
-minilines(113,22,0,0,1,0,0,[
-mini_line(113,18,4,0,0,0,[
-str_block(0,113,18,4,0,-1,0,0,0,[
-str_seg('black','Helvetica',0,103680,113,18,4,0,-1,0,0,0,0,0,
-	"Stored Matrix")])
-])
-])]),
-rcbox('black','',20,450,140,485,0,2,1,0,16,110,0,0,0,0,'2',0,[
-])
-],
-109,0,0,[
-]).
-box('black','',150,500,375,650,0,2,1,125,0,0,0,0,0,'2',0,[
-]).
-group([
-arc('black','',0,1,1,0,-289,-1140,259,-383,150,360,367,360,0,1096,1514,-6464,1472,35,0,0,8,3,0,0,0,'1','8','3',0,[
-]),
-text('black',262,376,1,1,1,9,17,49,14,3,0,0,0,0,2,9,17,0,0,"",0,0,0,0,390,'',[
-minilines(9,17,0,0,1,0,0,[
-mini_line(9,14,3,0,0,0,[
-str_block(0,9,14,3,0,-1,0,0,0,[
-str_seg('black','NewCenturySchlbk-Roman',0,80640,9,14,3,0,-1,0,0,0,0,0,
-	"n")])
-])
-])])
-],
-137,0,0,[
-]).
-group([
-arc('black','',0,1,1,0,-281,-200,59,225,385,100,385,350,1,680,850,1088,-2176,30,0,0,8,3,0,0,0,'1','8','3',0,[
-]),
-text('black',415,214,1,1,1,11,17,45,14,3,0,0,0,0,2,11,17,0,0,"",0,0,0,0,228,'',[
-minilines(11,17,0,0,1,0,0,[
-mini_line(11,14,3,0,0,0,[
-str_block(0,11,14,3,0,0,0,0,0,[
-str_seg('black','Times-Roman',0,80640,11,14,3,0,0,0,0,0,0,0,
-	"m")])
-])
-])])
-],
-140,0,0,[
-]).
-group([
-arc('black','',0,1,1,0,130,89,166,125,140,100,140,150,0,72,72,8704,5632,37,0,0,8,3,0,0,0,'1','8','3',0,[
-]),
-text('black',110,116,1,1,1,30,17,79,14,3,0,0,0,0,2,30,17,0,0,"",0,0,0,0,130,'',[
-minilines(30,17,0,0,1,0,0,[
-mini_line(30,14,3,0,0,0,[
-str_block(0,30,14,3,0,-2,0,0,0,[
-str_seg('black','NewCenturySchlbk-Roman',0,80640,30,14,3,0,-2,0,0,0,0,0,
-	"kl+1")])
-])
-])])
-],
-143,0,0,[
-]).
-group([
-arc('black','',0,1,1,0,45,80,198,280,150,90,246,90,1,306,400,6912,-2368,36,0,0,8,3,0,0,0,'1','8','3',0,[
-]),
-text('black',200,61,1,1,1,35,17,75,14,3,0,0,0,0,2,35,17,0,0,"",0,0,0,0,75,'',[
-minilines(35,17,0,0,1,0,0,[
-mini_line(35,14,3,0,0,0,[
-str_block(0,35,14,3,0,-2,0,0,0,[
-str_seg('black','NewCenturySchlbk-Roman',0,80640,35,14,3,0,-2,0,0,0,0,0,
-	"ku+1")])
-])
-])])
-],
-146,0,0,[
-]).
-group([
-arc('black','',0,1,1,0,-289,-840,259,-83,150,660,367,660,0,1096,1514,-6464,1472,170,0,0,8,3,0,0,0,'1','8','3',0,[
-]),
-text('black',261,676,1,1,1,9,17,169,14,3,0,0,0,0,2,9,17,0,0,"",0,0,0,0,690,'',[
-minilines(9,17,0,0,1,0,0,[
-mini_line(9,14,3,0,0,0,[
-str_block(0,9,14,3,0,-1,0,0,0,[
-str_seg('black','NewCenturySchlbk-Roman',0,80640,9,14,3,0,-1,0,0,0,0,0,
-	"n")])
-])
-])])
-],
-168,0,0,[
-]).
-poly('black','',2,[
-	150,600,250,500],0,2,1,171,0,0,0,0,0,0,0,'2',0,0,
-    "0","",[
-    0,10,4,0,'10','4','0'],[0,10,4,0,'10','4','0'],[
-]).
-poly('black','',2,[
-	350,650,375,625],0,2,1,236,0,3,0,0,0,0,0,'2',0,0,
-    "0","",[
-    0,10,4,0,'10','4','0'],[0,10,4,0,'10','4','0'],[
-]).
-arc('black','',0,1,1,0,45,480,198,680,150,490,246,490,1,306,400,6912,-2368,242,0,0,8,3,0,0,0,'1','8','3',0,[
-]).
-text('black',200,461,1,1,1,18,17,241,14,3,0,0,0,0,2,18,17,0,0,"",0,0,0,0,475,'',[
-minilines(18,17,0,0,1,0,0,[
-mini_line(18,14,3,0,0,0,[
-str_block(0,18,14,3,0,-1,0,0,0,[
-str_seg('black','NewCenturySchlbk-Roman',0,80640,18,14,3,0,-1,0,0,0,0,0,
-	"ku")])
-])
-])]).
-group([
-arc('black','',0,1,1,0,130,589,166,625,140,600,140,650,0,72,72,8704,5632,250,0,0,8,3,0,0,0,'1','8','3',0,[
-]),
-text('black',110,616,1,1,1,30,17,249,14,3,0,0,0,0,2,30,17,0,0,"",0,0,0,0,630,'',[
-minilines(30,17,0,0,1,0,0,[
-mini_line(30,14,3,0,0,0,[
-str_block(0,30,14,3,0,-2,0,0,0,[
-str_seg('black','NewCenturySchlbk-Roman',0,80640,30,14,3,0,-2,0,0,0,0,0,
-	"kl+1")])
-])
-])])
-],
-248,0,0,[
-]).
-poly('black','',2,[
-	150,600,375,600],0,2,1,251,0,3,3,0,0,0,0,'2',0,0,
-    "0","",[
-    0,10,4,0,'10','4','0'],[0,10,4,0,'10','4','0'],[
-]).
-text('black',155,506,4,0,1,84,44,266,9,2,0,0,0,0,2,84,44,0,0,"",0,0,0,0,515,'',[
-minilines(84,44,0,0,0,0,0,[
-mini_line(84,9,2,0,0,0,[
-str_block(0,84,9,2,0,-3,0,0,0,[
-str_seg('black','Courier',0,63360,84,9,2,0,-3,0,0,0,0,0,
-	"0  kl+ku+1 . .")])
-]),
-mini_line(84,9,2,0,0,0,[
-str_block(0,84,9,2,0,-3,0,0,0,[
-str_seg('black','Courier',0,63360,84,9,2,0,-3,0,0,0,0,0,
-	"1  kl+ku+2 . .")])
-]),
-mini_line(84,9,2,0,0,0,[
-str_block(0,84,9,2,0,-3,0,0,0,[
-str_seg('black','Courier',0,63360,84,9,2,0,-3,0,0,0,0,0,
-	".     .    . .")])
-]),
-mini_line(84,9,2,0,0,0,[
-str_block(0,84,9,2,0,-3,0,0,0,[
-str_seg('black','Courier',0,63360,84,9,2,0,-3,0,0,0,0,0,
-	".     .    . .")])
-])
-])]).
-group([
-arc('black','',0,1,1,0,-281,320,59,575,385,500,385,650,1,680,510,1088,-2176,152,0,0,8,3,0,0,0,'1','8','3',0,[
-]),
-text('black',430,567,1,1,1,47,17,151,14,3,0,0,0,0,2,47,17,0,0,"",0,0,0,0,581,'',[
-minilines(47,17,0,0,1,0,0,[
-mini_line(47,14,3,0,0,0,[
-str_block(0,47,14,3,0,-1,0,0,0,[
-str_seg('black','Times-Roman',0,80640,47,14,3,0,-1,0,0,0,0,0,
-	"kl+ku+1")])
-])
-])])
-],
-272,0,0,[
-]).
diff --git a/cpplapack-r198/.svn/pristine/46/46034aa17e73f96b3bb05faf878dbd7d92c27bcf.svn-base b/cpplapack-r198/.svn/pristine/46/46034aa17e73f96b3bb05faf878dbd7d92c27bcf.svn-base
deleted file mode 100644
index 5304e72..0000000
--- a/cpplapack-r198/.svn/pristine/46/46034aa17e73f96b3bb05faf878dbd7d92c27bcf.svn-base
+++ /dev/null
@@ -1,2308 +0,0 @@
-# Doxyfile 1.8.6
-
-# This file describes the settings to be used by the documentation system
-# doxygen (www.doxygen.org) for a project.
-#
-# All text after a double hash (##) is considered a comment and is placed in
-# front of the TAG it is preceding.
-#
-# All text after a single hash (#) is considered a comment and will be ignored.
-# The format is:
-# TAG = value [value, ...]
-# For lists, items can also be appended using:
-# TAG += value [value, ...]
-# Values that contain spaces should be placed between quotes (\" \").
-
-#---------------------------------------------------------------------------
-# Project related configuration options
-#---------------------------------------------------------------------------
-
-# This tag specifies the encoding used for all characters in the config file
-# that follow. The default is UTF-8 which is also the encoding used for all text
-# before the first occurrence of this tag. Doxygen uses libiconv (or the iconv
-# built into libc) for the transcoding. See http://www.gnu.org/software/libiconv
-# for the list of possible encodings.
-# The default value is: UTF-8.
-
-DOXYFILE_ENCODING      = UTF-8
-
-# The PROJECT_NAME tag is a single word (or a sequence of words surrounded by
-# double-quotes, unless you are using Doxywizard) that should identify the
-# project for which the documentation is generated. This name is used in the
-# title of most generated pages and in a few other places.
-# The default value is: My Project.
-
-PROJECT_NAME           = CPPLapack
-
-# The PROJECT_NUMBER tag can be used to enter a project or revision number. This
-# could be handy for archiving the generated documentation or if some version
-# control system is used.
-
-PROJECT_NUMBER         =
-
-# Using the PROJECT_BRIEF tag one can provide an optional one line description
-# for a project that appears at the top of each page and should give viewer a
-# quick idea about the purpose of the project. Keep the description short.
-
-PROJECT_BRIEF          =
-
-# With the PROJECT_LOGO tag one can specify an logo or icon that is included in
-# the documentation. The maximum height of the logo should not exceed 55 pixels
-# and the maximum width should not exceed 200 pixels. Doxygen will copy the logo
-# to the output directory.
-
-PROJECT_LOGO           =
-
-# The OUTPUT_DIRECTORY tag is used to specify the (relative or absolute) path
-# into which the generated documentation will be written. If a relative path is
-# entered, it will be relative to the location where doxygen was started. If
-# left blank the current directory will be used.
-
-OUTPUT_DIRECTORY       = ./
-
-# If the CREATE_SUBDIRS tag is set to YES, then doxygen will create 4096 sub-
-# directories (in 2 levels) under the output directory of each output format and
-# will distribute the generated files over these directories. Enabling this
-# option can be useful when feeding doxygen a huge amount of source files, where
-# putting all generated files in the same directory would otherwise causes
-# performance problems for the file system.
-# The default value is: NO.
-
-CREATE_SUBDIRS         = NO
-
-# The OUTPUT_LANGUAGE tag is used to specify the language in which all
-# documentation generated by doxygen is written. Doxygen will use this
-# information to generate all constant output in the proper language.
-# Possible values are: Afrikaans, Arabic, Armenian, Brazilian, Catalan, Chinese,
-# Chinese-Traditional, Croatian, Czech, Danish, Dutch, English (United States),
-# Esperanto, Farsi (Persian), Finnish, French, German, Greek, Hungarian,
-# Indonesian, Italian, Japanese, Japanese-en (Japanese with English messages),
-# Korean, Korean-en (Korean with English messages), Latvian, Lithuanian,
-# Macedonian, Norwegian, Persian (Farsi), Polish, Portuguese, Romanian, Russian,
-# Serbian, Serbian-Cyrillic, Slovak, Slovene, Spanish, Swedish, Turkish,
-# Ukrainian and Vietnamese.
-# The default value is: English.
-
-OUTPUT_LANGUAGE        = English
-
-# If the BRIEF_MEMBER_DESC tag is set to YES doxygen will include brief member
-# descriptions after the members that are listed in the file and class
-# documentation (similar to Javadoc). Set to NO to disable this.
-# The default value is: YES.
-
-BRIEF_MEMBER_DESC      = YES
-
-# If the REPEAT_BRIEF tag is set to YES doxygen will prepend the brief
-# description of a member or function before the detailed description
-#
-# Note: If both HIDE_UNDOC_MEMBERS and BRIEF_MEMBER_DESC are set to NO, the
-# brief descriptions will be completely suppressed.
-# The default value is: YES.
-
-REPEAT_BRIEF           = YES
-
-# This tag implements a quasi-intelligent brief description abbreviator that is
-# used to form the text in various listings. Each string in this list, if found
-# as the leading text of the brief description, will be stripped from the text
-# and the result, after processing the whole list, is used as the annotated
-# text. Otherwise, the brief description is used as-is. If left blank, the
-# following values are used ($name is automatically replaced with the name of
-# the entity):The $name class, The $name widget, The $name file, is, provides,
-# specifies, contains, represents, a, an and the.
-
-ABBREVIATE_BRIEF       =
-
-# If the ALWAYS_DETAILED_SEC and REPEAT_BRIEF tags are both set to YES then
-# doxygen will generate a detailed section even if there is only a brief
-# description.
-# The default value is: NO.
-
-ALWAYS_DETAILED_SEC    = YES
-
-# If the INLINE_INHERITED_MEMB tag is set to YES, doxygen will show all
-# inherited members of a class in the documentation of that class as if those
-# members were ordinary class members. Constructors, destructors and assignment
-# operators of the base classes will not be shown.
-# The default value is: NO.
-
-INLINE_INHERITED_MEMB  = NO
-
-# If the FULL_PATH_NAMES tag is set to YES doxygen will prepend the full path
-# before files name in the file list and in the header files. If set to NO the
-# shortest path that makes the file name unique will be used
-# The default value is: YES.
-
-FULL_PATH_NAMES        = NO
-
-# The STRIP_FROM_PATH tag can be used to strip a user-defined part of the path.
-# Stripping is only done if one of the specified strings matches the left-hand
-# part of the path. The tag can be used to show relative paths in the file list.
-# If left blank the directory from which doxygen is run is used as the path to
-# strip.
-#
-# Note that you can specify absolute paths here, but also relative paths, which
-# will be relative from the directory where doxygen is started.
-# This tag requires that the tag FULL_PATH_NAMES is set to YES.
-
-STRIP_FROM_PATH        =
-
-# The STRIP_FROM_INC_PATH tag can be used to strip a user-defined part of the
-# path mentioned in the documentation of a class, which tells the reader which
-# header file to include in order to use a class. If left blank only the name of
-# the header file containing the class definition is used. Otherwise one should
-# specify the list of include paths that are normally passed to the compiler
-# using the -I flag.
-
-STRIP_FROM_INC_PATH    =
-
-# If the SHORT_NAMES tag is set to YES, doxygen will generate much shorter (but
-# less readable) file names. This can be useful is your file systems doesn't
-# support long names like on DOS, Mac, or CD-ROM.
-# The default value is: NO.
-
-SHORT_NAMES            = NO
-
-# If the JAVADOC_AUTOBRIEF tag is set to YES then doxygen will interpret the
-# first line (until the first dot) of a Javadoc-style comment as the brief
-# description. If set to NO, the Javadoc-style will behave just like regular Qt-
-# style comments (thus requiring an explicit @brief command for a brief
-# description.)
-# The default value is: NO.
-
-JAVADOC_AUTOBRIEF      = NO
-
-# If the QT_AUTOBRIEF tag is set to YES then doxygen will interpret the first
-# line (until the first dot) of a Qt-style comment as the brief description. If
-# set to NO, the Qt-style will behave just like regular Qt-style comments (thus
-# requiring an explicit \brief command for a brief description.)
-# The default value is: NO.
-
-QT_AUTOBRIEF           = NO
-
-# The MULTILINE_CPP_IS_BRIEF tag can be set to YES to make doxygen treat a
-# multi-line C++ special comment block (i.e. a block of //! or /// comments) as
-# a brief description. This used to be the default behavior. The new default is
-# to treat a multi-line C++ comment block as a detailed description. Set this
-# tag to YES if you prefer the old behavior instead.
-#
-# Note that setting this tag to YES also means that rational rose comments are
-# not recognized any more.
-# The default value is: NO.
-
-MULTILINE_CPP_IS_BRIEF = NO
-
-# If the INHERIT_DOCS tag is set to YES then an undocumented member inherits the
-# documentation from any documented member that it re-implements.
-# The default value is: YES.
-
-INHERIT_DOCS           = YES
-
-# If the SEPARATE_MEMBER_PAGES tag is set to YES, then doxygen will produce a
-# new page for each member. If set to NO, the documentation of a member will be
-# part of the file/class/namespace that contains it.
-# The default value is: NO.
-
-SEPARATE_MEMBER_PAGES  = NO
-
-# The TAB_SIZE tag can be used to set the number of spaces in a tab. Doxygen
-# uses this value to replace tabs by spaces in code fragments.
-# Minimum value: 1, maximum value: 16, default value: 4.
-
-TAB_SIZE               = 2
-
-# This tag can be used to specify a number of aliases that act as commands in
-# the documentation. An alias has the form:
-# name=value
-# For example adding
-# "sideeffect=@par Side Effects:\n"
-# will allow you to put the command \sideeffect (or @sideeffect) in the
-# documentation, which will result in a user-defined paragraph with heading
-# "Side Effects:". You can put \n's in the value part of an alias to insert
-# newlines.
-
-ALIASES                =
-
-# This tag can be used to specify a number of word-keyword mappings (TCL only).
-# A mapping has the form "name=value". For example adding "class=itcl::class"
-# will allow you to use the command class in the itcl::class meaning.
-
-TCL_SUBST              =
-
-# Set the OPTIMIZE_OUTPUT_FOR_C tag to YES if your project consists of C sources
-# only. Doxygen will then generate output that is more tailored for C. For
-# instance, some of the names that are used will be different. The list of all
-# members will be omitted, etc.
-# The default value is: NO.
-
-OPTIMIZE_OUTPUT_FOR_C  = NO
-
-# Set the OPTIMIZE_OUTPUT_JAVA tag to YES if your project consists of Java or
-# Python sources only. Doxygen will then generate output that is more tailored
-# for that language. For instance, namespaces will be presented as packages,
-# qualified scopes will look different, etc.
-# The default value is: NO.
-
-OPTIMIZE_OUTPUT_JAVA   = NO
-
-# Set the OPTIMIZE_FOR_FORTRAN tag to YES if your project consists of Fortran
-# sources. Doxygen will then generate output that is tailored for Fortran.
-# The default value is: NO.
-
-OPTIMIZE_FOR_FORTRAN   = NO
-
-# Set the OPTIMIZE_OUTPUT_VHDL tag to YES if your project consists of VHDL
-# sources. Doxygen will then generate output that is tailored for VHDL.
-# The default value is: NO.
-
-OPTIMIZE_OUTPUT_VHDL   = NO
-
-# Doxygen selects the parser to use depending on the extension of the files it
-# parses. With this tag you can assign which parser to use for a given
-# extension. Doxygen has a built-in mapping, but you can override or extend it
-# using this tag. The format is ext=language, where ext is a file extension, and
-# language is one of the parsers supported by doxygen: IDL, Java, Javascript,
-# C#, C, C++, D, PHP, Objective-C, Python, Fortran, VHDL. For instance to make
-# doxygen treat .inc files as Fortran files (default is PHP), and .f files as C
-# (default is Fortran), use: inc=Fortran f=C.
-#
-# Note For files without extension you can use no_extension as a placeholder.
-#
-# Note that for custom extensions you also need to set FILE_PATTERNS otherwise
-# the files are not read by doxygen.
-
-EXTENSION_MAPPING      =
-
-# If the MARKDOWN_SUPPORT tag is enabled then doxygen pre-processes all comments
-# according to the Markdown format, which allows for more readable
-# documentation. See http://daringfireball.net/projects/markdown/ for details.
-# The output of markdown processing is further processed by doxygen, so you can
-# mix doxygen, HTML, and XML commands with Markdown formatting. Disable only in
-# case of backward compatibilities issues.
-# The default value is: YES.
-
-MARKDOWN_SUPPORT       = YES
-
-# When enabled doxygen tries to link words that correspond to documented
-# classes, or namespaces to their corresponding documentation. Such a link can
-# be prevented in individual cases by by putting a % sign in front of the word
-# or globally by setting AUTOLINK_SUPPORT to NO.
-# The default value is: YES.
-
-AUTOLINK_SUPPORT       = YES
-
-# If you use STL classes (i.e. std::string, std::vector, etc.) but do not want
-# to include (a tag file for) the STL sources as input, then you should set this
-# tag to YES in order to let doxygen match functions declarations and
-# definitions whose arguments contain STL classes (e.g. func(std::string);
-# versus func(std::string) {}). This also make the inheritance and collaboration
-# diagrams that involve STL classes more complete and accurate.
-# The default value is: NO.
-
-BUILTIN_STL_SUPPORT    = NO
-
-# If you use Microsoft's C++/CLI language, you should set this option to YES to
-# enable parsing support.
-# The default value is: NO.
-
-CPP_CLI_SUPPORT        = NO
-
-# Set the SIP_SUPPORT tag to YES if your project consists of sip (see:
-# http://www.riverbankcomputing.co.uk/software/sip/intro) sources only. Doxygen
-# will parse them like normal C++ but will assume all classes use public instead
-# of private inheritance when no explicit protection keyword is present.
-# The default value is: NO.
-
-SIP_SUPPORT            = NO
-
-# For Microsoft's IDL there are propget and propput attributes to indicate
-# getter and setter methods for a property. Setting this option to YES will make
-# doxygen to replace the get and set methods by a property in the documentation.
-# This will only work if the methods are indeed getting or setting a simple
-# type. If this is not the case, or you want to show the methods anyway, you
-# should set this option to NO.
-# The default value is: YES.
-
-IDL_PROPERTY_SUPPORT   = YES
-
-# If member grouping is used in the documentation and the DISTRIBUTE_GROUP_DOC
-# tag is set to YES, then doxygen will reuse the documentation of the first
-# member in the group (if any) for the other members of the group. By default
-# all members of a group must be documented explicitly.
-# The default value is: NO.
-
-DISTRIBUTE_GROUP_DOC   = NO
-
-# Set the SUBGROUPING tag to YES to allow class member groups of the same type
-# (for instance a group of public functions) to be put as a subgroup of that
-# type (e.g. under the Public Functions section). Set it to NO to prevent
-# subgrouping. Alternatively, this can be done per class using the
-# \nosubgrouping command.
-# The default value is: YES.
-
-SUBGROUPING            = YES
-
-# When the INLINE_GROUPED_CLASSES tag is set to YES, classes, structs and unions
-# are shown inside the group in which they are included (e.g. using \ingroup)
-# instead of on a separate page (for HTML and Man pages) or section (for LaTeX
-# and RTF).
-#
-# Note that this feature does not work in combination with
-# SEPARATE_MEMBER_PAGES.
-# The default value is: NO.
-
-INLINE_GROUPED_CLASSES = NO
-
-# When the INLINE_SIMPLE_STRUCTS tag is set to YES, structs, classes, and unions
-# with only public data fields or simple typedef fields will be shown inline in
-# the documentation of the scope in which they are defined (i.e. file,
-# namespace, or group documentation), provided this scope is documented. If set
-# to NO, structs, classes, and unions are shown on a separate page (for HTML and
-# Man pages) or section (for LaTeX and RTF).
-# The default value is: NO.
-
-INLINE_SIMPLE_STRUCTS  = NO
-
-# When TYPEDEF_HIDES_STRUCT tag is enabled, a typedef of a struct, union, or
-# enum is documented as struct, union, or enum with the name of the typedef. So
-# typedef struct TypeS {} TypeT, will appear in the documentation as a struct
-# with name TypeT. When disabled the typedef will appear as a member of a file,
-# namespace, or class. And the struct will be named TypeS. This can typically be
-# useful for C code in case the coding convention dictates that all compound
-# types are typedef'ed and only the typedef is referenced, never the tag name.
-# The default value is: NO.
-
-TYPEDEF_HIDES_STRUCT   = NO
-
-# The size of the symbol lookup cache can be set using LOOKUP_CACHE_SIZE. This
-# cache is used to resolve symbols given their name and scope. Since this can be
-# an expensive process and often the same symbol appears multiple times in the
-# code, doxygen keeps a cache of pre-resolved symbols. If the cache is too small
-# doxygen will become slower. If the cache is too large, memory is wasted. The
-# cache size is given by this formula: 2^(16+LOOKUP_CACHE_SIZE). The valid range
-# is 0..9, the default is 0, corresponding to a cache size of 2^16=65536
-# symbols. At the end of a run doxygen will report the cache usage and suggest
-# the optimal cache size from a speed point of view.
-# Minimum value: 0, maximum value: 9, default value: 0.
-
-LOOKUP_CACHE_SIZE      = 0
-
-#---------------------------------------------------------------------------
-# Build related configuration options
-#---------------------------------------------------------------------------
-
-# If the EXTRACT_ALL tag is set to YES doxygen will assume all entities in
-# documentation are documented, even if no documentation was available. Private
-# class members and static file members will be hidden unless the
-# EXTRACT_PRIVATE respectively EXTRACT_STATIC tags are set to YES.
-# Note: This will also disable the warnings about undocumented members that are
-# normally produced when WARNINGS is set to YES.
-# The default value is: NO.
-
-EXTRACT_ALL            = YES
-
-# If the EXTRACT_PRIVATE tag is set to YES all private members of a class will
-# be included in the documentation.
-# The default value is: NO.
-
-EXTRACT_PRIVATE        = YES
-
-# If the EXTRACT_PACKAGE tag is set to YES all members with package or internal
-# scope will be included in the documentation.
-# The default value is: NO.
-
-EXTRACT_PACKAGE        = NO
-
-# If the EXTRACT_STATIC tag is set to YES all static members of a file will be
-# included in the documentation.
-# The default value is: NO.
-
-EXTRACT_STATIC         = YES
-
-# If the EXTRACT_LOCAL_CLASSES tag is set to YES classes (and structs) defined
-# locally in source files will be included in the documentation. If set to NO
-# only classes defined in header files are included. Does not have any effect
-# for Java sources.
-# The default value is: YES.
-
-EXTRACT_LOCAL_CLASSES  = YES
-
-# This flag is only useful for Objective-C code. When set to YES local methods,
-# which are defined in the implementation section but not in the interface are
-# included in the documentation. If set to NO only methods in the interface are
-# included.
-# The default value is: NO.
-
-EXTRACT_LOCAL_METHODS  = NO
-
-# If this flag is set to YES, the members of anonymous namespaces will be
-# extracted and appear in the documentation as a namespace called
-# 'anonymous_namespace{file}', where file will be replaced with the base name of
-# the file that contains the anonymous namespace. By default anonymous namespace
-# are hidden.
-# The default value is: NO.
-
-EXTRACT_ANON_NSPACES   = NO
-
-# If the HIDE_UNDOC_MEMBERS tag is set to YES, doxygen will hide all
-# undocumented members inside documented classes or files. If set to NO these
-# members will be included in the various overviews, but no documentation
-# section is generated. This option has no effect if EXTRACT_ALL is enabled.
-# The default value is: NO.
-
-HIDE_UNDOC_MEMBERS     = NO
-
-# If the HIDE_UNDOC_CLASSES tag is set to YES, doxygen will hide all
-# undocumented classes that are normally visible in the class hierarchy. If set
-# to NO these classes will be included in the various overviews. This option has
-# no effect if EXTRACT_ALL is enabled.
-# The default value is: NO.
-
-HIDE_UNDOC_CLASSES     = NO
-
-# If the HIDE_FRIEND_COMPOUNDS tag is set to YES, doxygen will hide all friend
-# (class|struct|union) declarations. If set to NO these declarations will be
-# included in the documentation.
-# The default value is: NO.
-
-HIDE_FRIEND_COMPOUNDS  = NO
-
-# If the HIDE_IN_BODY_DOCS tag is set to YES, doxygen will hide any
-# documentation blocks found inside the body of a function. If set to NO these
-# blocks will be appended to the function's detailed documentation block.
-# The default value is: NO.
-
-HIDE_IN_BODY_DOCS      = NO
-
-# The INTERNAL_DOCS tag determines if documentation that is typed after a
-# \internal command is included. If the tag is set to NO then the documentation
-# will be excluded. Set it to YES to include the internal documentation.
-# The default value is: NO.
-
-INTERNAL_DOCS          = NO
-
-# If the CASE_SENSE_NAMES tag is set to NO then doxygen will only generate file
-# names in lower-case letters. If set to YES upper-case letters are also
-# allowed. This is useful if you have classes or files whose names only differ
-# in case and if your file system supports case sensitive file names. Windows
-# and Mac users are advised to set this option to NO.
-# The default value is: system dependent.
-
-CASE_SENSE_NAMES       = YES
-
-# If the HIDE_SCOPE_NAMES tag is set to NO then doxygen will show members with
-# their full class and namespace scopes in the documentation. If set to YES the
-# scope will be hidden.
-# The default value is: NO.
-
-HIDE_SCOPE_NAMES       = NO
-
-# If the SHOW_INCLUDE_FILES tag is set to YES then doxygen will put a list of
-# the files that are included by a file in the documentation of that file.
-# The default value is: YES.
-
-SHOW_INCLUDE_FILES     = YES
-
-# If the SHOW_GROUPED_MEMB_INC tag is set to YES then Doxygen will add for each
-# grouped member an include statement to the documentation, telling the reader
-# which file to include in order to use the member.
-# The default value is: NO.
-
-SHOW_GROUPED_MEMB_INC  = NO
-
-# If the FORCE_LOCAL_INCLUDES tag is set to YES then doxygen will list include
-# files with double quotes in the documentation rather than with sharp brackets.
-# The default value is: NO.
-
-FORCE_LOCAL_INCLUDES   = NO
-
-# If the INLINE_INFO tag is set to YES then a tag [inline] is inserted in the
-# documentation for inline members.
-# The default value is: YES.
-
-INLINE_INFO            = YES
-
-# If the SORT_MEMBER_DOCS tag is set to YES then doxygen will sort the
-# (detailed) documentation of file and class members alphabetically by member
-# name. If set to NO the members will appear in declaration order.
-# The default value is: YES.
-
-SORT_MEMBER_DOCS       = NO
-
-# If the SORT_BRIEF_DOCS tag is set to YES then doxygen will sort the brief
-# descriptions of file, namespace and class members alphabetically by member
-# name. If set to NO the members will appear in declaration order. Note that
-# this will also influence the order of the classes in the class list.
-# The default value is: NO.
-
-SORT_BRIEF_DOCS        = NO
-
-# If the SORT_MEMBERS_CTORS_1ST tag is set to YES then doxygen will sort the
-# (brief and detailed) documentation of class members so that constructors and
-# destructors are listed first. If set to NO the constructors will appear in the
-# respective orders defined by SORT_BRIEF_DOCS and SORT_MEMBER_DOCS.
-# Note: If SORT_BRIEF_DOCS is set to NO this option is ignored for sorting brief
-# member documentation.
-# Note: If SORT_MEMBER_DOCS is set to NO this option is ignored for sorting
-# detailed member documentation.
-# The default value is: NO.
-
-SORT_MEMBERS_CTORS_1ST = NO
-
-# If the SORT_GROUP_NAMES tag is set to YES then doxygen will sort the hierarchy
-# of group names into alphabetical order. If set to NO the group names will
-# appear in their defined order.
-# The default value is: NO.
-
-SORT_GROUP_NAMES       = NO
-
-# If the SORT_BY_SCOPE_NAME tag is set to YES, the class list will be sorted by
-# fully-qualified names, including namespaces. If set to NO, the class list will
-# be sorted only by class name, not including the namespace part.
-# Note: This option is not very useful if HIDE_SCOPE_NAMES is set to YES.
-# Note: This option applies only to the class list, not to the alphabetical
-# list.
-# The default value is: NO.
-
-SORT_BY_SCOPE_NAME     = NO
-
-# If the STRICT_PROTO_MATCHING option is enabled and doxygen fails to do proper
-# type resolution of all parameters of a function it will reject a match between
-# the prototype and the implementation of a member function even if there is
-# only one candidate or it is obvious which candidate to choose by doing a
-# simple string match. By disabling STRICT_PROTO_MATCHING doxygen will still
-# accept a match between prototype and implementation in such cases.
-# The default value is: NO.
-
-STRICT_PROTO_MATCHING  = NO
-
-# The GENERATE_TODOLIST tag can be used to enable ( YES) or disable ( NO) the
-# todo list. This list is created by putting \todo commands in the
-# documentation.
-# The default value is: YES.
-
-GENERATE_TODOLIST      = YES
-
-# The GENERATE_TESTLIST tag can be used to enable ( YES) or disable ( NO) the
-# test list. This list is created by putting \test commands in the
-# documentation.
-# The default value is: YES.
-
-GENERATE_TESTLIST      = YES
-
-# The GENERATE_BUGLIST tag can be used to enable ( YES) or disable ( NO) the bug
-# list. This list is created by putting \bug commands in the documentation.
-# The default value is: YES.
-
-GENERATE_BUGLIST       = YES
-
-# The GENERATE_DEPRECATEDLIST tag can be used to enable ( YES) or disable ( NO)
-# the deprecated list. This list is created by putting \deprecated commands in
-# the documentation.
-# The default value is: YES.
-
-GENERATE_DEPRECATEDLIST= YES
-
-# The ENABLED_SECTIONS tag can be used to enable conditional documentation
-# sections, marked by \if <section_label> ... \endif and \cond <section_label>
-# ... \endcond blocks.
-
-ENABLED_SECTIONS       =
-
-# The MAX_INITIALIZER_LINES tag determines the maximum number of lines that the
-# initial value of a variable or macro / define can have for it to appear in the
-# documentation. If the initializer consists of more lines than specified here
-# it will be hidden. Use a value of 0 to hide initializers completely. The
-# appearance of the value of individual variables and macros / defines can be
-# controlled using \showinitializer or \hideinitializer command in the
-# documentation regardless of this setting.
-# Minimum value: 0, maximum value: 10000, default value: 30.
-
-MAX_INITIALIZER_LINES  = 30
-
-# Set the SHOW_USED_FILES tag to NO to disable the list of files generated at
-# the bottom of the documentation of classes and structs. If set to YES the list
-# will mention the files that were used to generate the documentation.
-# The default value is: YES.
-
-SHOW_USED_FILES        = YES
-
-# Set the SHOW_FILES tag to NO to disable the generation of the Files page. This
-# will remove the Files entry from the Quick Index and from the Folder Tree View
-# (if specified).
-# The default value is: YES.
-
-SHOW_FILES             = YES
-
-# Set the SHOW_NAMESPACES tag to NO to disable the generation of the Namespaces
-# page. This will remove the Namespaces entry from the Quick Index and from the
-# Folder Tree View (if specified).
-# The default value is: YES.
-
-SHOW_NAMESPACES        = YES
-
-# The FILE_VERSION_FILTER tag can be used to specify a program or script that
-# doxygen should invoke to get the current version for each file (typically from
-# the version control system). Doxygen will invoke the program by executing (via
-# popen()) the command command input-file, where command is the value of the
-# FILE_VERSION_FILTER tag, and input-file is the name of an input file provided
-# by doxygen. Whatever the program writes to standard output is used as the file
-# version. For an example see the documentation.
-
-FILE_VERSION_FILTER    =
-
-# The LAYOUT_FILE tag can be used to specify a layout file which will be parsed
-# by doxygen. The layout file controls the global structure of the generated
-# output files in an output format independent way. To create the layout file
-# that represents doxygen's defaults, run doxygen with the -l option. You can
-# optionally specify a file name after the option, if omitted DoxygenLayout.xml
-# will be used as the name of the layout file.
-#
-# Note that if you run doxygen from a directory containing a file called
-# DoxygenLayout.xml, doxygen will parse it automatically even if the LAYOUT_FILE
-# tag is left empty.
-
-LAYOUT_FILE            =
-
-# The CITE_BIB_FILES tag can be used to specify one or more bib files containing
-# the reference definitions. This must be a list of .bib files. The .bib
-# extension is automatically appended if omitted. This requires the bibtex tool
-# to be installed. See also http://en.wikipedia.org/wiki/BibTeX for more info.
-# For LaTeX the style of the bibliography can be controlled using
-# LATEX_BIB_STYLE. To use this feature you need bibtex and perl available in the
-# search path. Do not use file names with spaces, bibtex cannot handle them. See
-# also \cite for info how to create references.
-
-CITE_BIB_FILES         =
-
-#---------------------------------------------------------------------------
-# Configuration options related to warning and progress messages
-#---------------------------------------------------------------------------
-
-# The QUIET tag can be used to turn on/off the messages that are generated to
-# standard output by doxygen. If QUIET is set to YES this implies that the
-# messages are off.
-# The default value is: NO.
-
-QUIET                  = NO
-
-# The WARNINGS tag can be used to turn on/off the warning messages that are
-# generated to standard error ( stderr) by doxygen. If WARNINGS is set to YES
-# this implies that the warnings are on.
-#
-# Tip: Turn warnings on while writing the documentation.
-# The default value is: YES.
-
-WARNINGS               = YES
-
-# If the WARN_IF_UNDOCUMENTED tag is set to YES, then doxygen will generate
-# warnings for undocumented members. If EXTRACT_ALL is set to YES then this flag
-# will automatically be disabled.
-# The default value is: YES.
-
-WARN_IF_UNDOCUMENTED   = YES
-
-# If the WARN_IF_DOC_ERROR tag is set to YES, doxygen will generate warnings for
-# potential errors in the documentation, such as not documenting some parameters
-# in a documented function, or documenting parameters that don't exist or using
-# markup commands wrongly.
-# The default value is: YES.
-
-WARN_IF_DOC_ERROR      = YES
-
-# This WARN_NO_PARAMDOC option can be enabled to get warnings for functions that
-# are documented, but have no documentation for their parameters or return
-# value. If set to NO doxygen will only warn about wrong or incomplete parameter
-# documentation, but not about the absence of documentation.
-# The default value is: NO.
-
-WARN_NO_PARAMDOC       = YES
-
-# The WARN_FORMAT tag determines the format of the warning messages that doxygen
-# can produce. The string should contain the $file, $line, and $text tags, which
-# will be replaced by the file and line number from which the warning originated
-# and the warning text. Optionally the format may contain $version, which will
-# be replaced by the version of the file (if it could be obtained via
-# FILE_VERSION_FILTER)
-# The default value is: $file:$line: $text.
-
-WARN_FORMAT            = "$file:$line: $text"
-
-# The WARN_LOGFILE tag can be used to specify a file to which warning and error
-# messages should be written. If left blank the output is written to standard
-# error (stderr).
-
-WARN_LOGFILE           = doxygen.log
-
-#---------------------------------------------------------------------------
-# Configuration options related to the input files
-#---------------------------------------------------------------------------
-
-# The INPUT tag is used to specify the files and/or directories that contain
-# documented source files. You may enter file names like myfile.cpp or
-# directories like /usr/src/myproject. Separate the files or directories with
-# spaces.
-# Note: If this tag is empty the current directory is searched.
-
-INPUT                  = ../include \
-                         main_page/MainPage.html \
-                         related_pages/RelatedPages.html
-
-# This tag can be used to specify the character encoding of the source files
-# that doxygen parses. Internally doxygen uses the UTF-8 encoding. Doxygen uses
-# libiconv (or the iconv built into libc) for the transcoding. See the libiconv
-# documentation (see: http://www.gnu.org/software/libiconv) for the list of
-# possible encodings.
-# The default value is: UTF-8.
-
-INPUT_ENCODING         = UTF-8
-
-# If the value of the INPUT tag contains directories, you can use the
-# FILE_PATTERNS tag to specify one or more wildcard patterns (like *.cpp and
-# *.h) to filter out the source-files in the directories. If left blank the
-# following patterns are tested:*.c, *.cc, *.cxx, *.cpp, *.c++, *.java, *.ii,
-# *.ixx, *.ipp, *.i++, *.inl, *.idl, *.ddl, *.odl, *.h, *.hh, *.hxx, *.hpp,
-# *.h++, *.cs, *.d, *.php, *.php4, *.php5, *.phtml, *.inc, *.m, *.markdown,
-# *.md, *.mm, *.dox, *.py, *.f90, *.f, *.for, *.tcl, *.vhd, *.vhdl, *.ucf,
-# *.qsf, *.as and *.js.
-
-FILE_PATTERNS          = *.hpp \
-                         *.html
-
-# The RECURSIVE tag can be used to specify whether or not subdirectories should
-# be searched for input files as well.
-# The default value is: NO.
-
-RECURSIVE              = YES
-
-# The EXCLUDE tag can be used to specify files and/or directories that should be
-# excluded from the INPUT source files. This way you can easily exclude a
-# subdirectory from a directory tree whose root is specified with the INPUT tag.
-#
-# Note that relative paths are relative to the directory from which doxygen is
-# run.
-
-EXCLUDE                =
-
-# The EXCLUDE_SYMLINKS tag can be used to select whether or not files or
-# directories that are symbolic links (a Unix file system feature) are excluded
-# from the input.
-# The default value is: NO.
-
-EXCLUDE_SYMLINKS       = NO
-
-# If the value of the INPUT tag contains directories, you can use the
-# EXCLUDE_PATTERNS tag to specify one or more wildcard patterns to exclude
-# certain files from those directories.
-#
-# Note that the wildcards are matched against the file with absolute path, so to
-# exclude all test directories for example use the pattern */test/*
-
-EXCLUDE_PATTERNS       = */.svn/*
-
-# The EXCLUDE_SYMBOLS tag can be used to specify one or more symbol names
-# (namespaces, classes, functions, etc.) that should be excluded from the
-# output. The symbol name can be a fully qualified name, a word, or if the
-# wildcard * is used, a substring. Examples: ANamespace, AClass,
-# AClass::ANamespace, ANamespace::*Test
-#
-# Note that the wildcards are matched against the file with absolute path, so to
-# exclude all test directories use the pattern */test/*
-
-EXCLUDE_SYMBOLS        =
-
-# The EXAMPLE_PATH tag can be used to specify one or more files or directories
-# that contain example code fragments that are included (see the \include
-# command).
-
-EXAMPLE_PATH           = ./related_pages \
-                         ../test \
-                         ../makefiles
-
-# If the value of the EXAMPLE_PATH tag contains directories, you can use the
-# EXAMPLE_PATTERNS tag to specify one or more wildcard pattern (like *.cpp and
-# *.h) to filter out the source-files in the directories. If left blank all
-# files are included.
-
-EXAMPLE_PATTERNS       = *
-
-# If the EXAMPLE_RECURSIVE tag is set to YES then subdirectories will be
-# searched for input files to be used with the \include or \dontinclude commands
-# irrespective of the value of the RECURSIVE tag.
-# The default value is: NO.
-
-EXAMPLE_RECURSIVE      = YES
-
-# The IMAGE_PATH tag can be used to specify one or more files or directories
-# that contain images that are to be included in the documentation (see the
-# \image command).
-
-IMAGE_PATH             = ./image
-
-# The INPUT_FILTER tag can be used to specify a program that doxygen should
-# invoke to filter for each input file. Doxygen will invoke the filter program
-# by executing (via popen()) the command:
-#
-# <filter> <input-file>
-#
-# where <filter> is the value of the INPUT_FILTER tag, and <input-file> is the
-# name of an input file. Doxygen will then use the output that the filter
-# program writes to standard output. If FILTER_PATTERNS is specified, this tag
-# will be ignored.
-#
-# Note that the filter must not add or remove lines; it is applied before the
-# code is scanned, but not when the output code is generated. If lines are added
-# or removed, the anchors will not be placed correctly.
-
-INPUT_FILTER           =
-
-# The FILTER_PATTERNS tag can be used to specify filters on a per file pattern
-# basis. Doxygen will compare the file name with each pattern and apply the
-# filter if there is a match. The filters are a list of the form: pattern=filter
-# (like *.cpp=my_cpp_filter). See INPUT_FILTER for further information on how
-# filters are used. If the FILTER_PATTERNS tag is empty or if none of the
-# patterns match the file name, INPUT_FILTER is applied.
-
-FILTER_PATTERNS        =
-
-# If the FILTER_SOURCE_FILES tag is set to YES, the input filter (if set using
-# INPUT_FILTER ) will also be used to filter the input files that are used for
-# producing the source files to browse (i.e. when SOURCE_BROWSER is set to YES).
-# The default value is: NO.
-
-FILTER_SOURCE_FILES    = NO
-
-# The FILTER_SOURCE_PATTERNS tag can be used to specify source filters per file
-# pattern. A pattern will override the setting for FILTER_PATTERN (if any) and
-# it is also possible to disable source filtering for a specific pattern using
-# *.ext= (so without naming a filter).
-# This tag requires that the tag FILTER_SOURCE_FILES is set to YES.
-
-FILTER_SOURCE_PATTERNS =
-
-# If the USE_MDFILE_AS_MAINPAGE tag refers to the name of a markdown file that
-# is part of the input, its contents will be placed on the main page
-# (index.html). This can be useful if you have a project on for instance GitHub
-# and want to reuse the introduction page also for the doxygen output.
-
-USE_MDFILE_AS_MAINPAGE =
-
-#---------------------------------------------------------------------------
-# Configuration options related to source browsing
-#---------------------------------------------------------------------------
-
-# If the SOURCE_BROWSER tag is set to YES then a list of source files will be
-# generated. Documented entities will be cross-referenced with these sources.
-#
-# Note: To get rid of all source code in the generated output, make sure that
-# also VERBATIM_HEADERS is set to NO.
-# The default value is: NO.
-
-SOURCE_BROWSER         = YES
-
-# Setting the INLINE_SOURCES tag to YES will include the body of functions,
-# classes and enums directly into the documentation.
-# The default value is: NO.
-
-INLINE_SOURCES         = YES
-
-# Setting the STRIP_CODE_COMMENTS tag to YES will instruct doxygen to hide any
-# special comment blocks from generated source code fragments. Normal C, C++ and
-# Fortran comments will always remain visible.
-# The default value is: YES.
-
-STRIP_CODE_COMMENTS    = NO
-
-# If the REFERENCED_BY_RELATION tag is set to YES then for each documented
-# function all documented functions referencing it will be listed.
-# The default value is: NO.
-
-REFERENCED_BY_RELATION = YES
-
-# If the REFERENCES_RELATION tag is set to YES then for each documented function
-# all documented entities called/used by that function will be listed.
-# The default value is: NO.
-
-REFERENCES_RELATION    = YES
-
-# If the REFERENCES_LINK_SOURCE tag is set to YES and SOURCE_BROWSER tag is set
-# to YES, then the hyperlinks from functions in REFERENCES_RELATION and
-# REFERENCED_BY_RELATION lists will link to the source code. Otherwise they will
-# link to the documentation.
-# The default value is: YES.
-
-REFERENCES_LINK_SOURCE = YES
-
-# If SOURCE_TOOLTIPS is enabled (the default) then hovering a hyperlink in the
-# source code will show a tooltip with additional information such as prototype,
-# brief description and links to the definition and documentation. Since this
-# will make the HTML file larger and loading of large files a bit slower, you
-# can opt to disable this feature.
-# The default value is: YES.
-# This tag requires that the tag SOURCE_BROWSER is set to YES.
-
-SOURCE_TOOLTIPS        = YES
-
-# If the USE_HTAGS tag is set to YES then the references to source code will
-# point to the HTML generated by the htags(1) tool instead of doxygen built-in
-# source browser. The htags tool is part of GNU's global source tagging system
-# (see http://www.gnu.org/software/global/global.html). You will need version
-# 4.8.6 or higher.
-#
-# To use it do the following:
-# - Install the latest version of global
-# - Enable SOURCE_BROWSER and USE_HTAGS in the config file
-# - Make sure the INPUT points to the root of the source tree
-# - Run doxygen as normal
-#
-# Doxygen will invoke htags (and that will in turn invoke gtags), so these
-# tools must be available from the command line (i.e. in the search path).
-#
-# The result: instead of the source browser generated by doxygen, the links to
-# source code will now point to the output of htags.
-# The default value is: NO.
-# This tag requires that the tag SOURCE_BROWSER is set to YES.
-
-USE_HTAGS              = NO
-
-# If the VERBATIM_HEADERS tag is set the YES then doxygen will generate a
-# verbatim copy of the header file for each class for which an include is
-# specified. Set to NO to disable this.
-# See also: Section \class.
-# The default value is: YES.
-
-VERBATIM_HEADERS       = YES
-
-#---------------------------------------------------------------------------
-# Configuration options related to the alphabetical class index
-#---------------------------------------------------------------------------
-
-# If the ALPHABETICAL_INDEX tag is set to YES, an alphabetical index of all
-# compounds will be generated. Enable this if the project contains a lot of
-# classes, structs, unions or interfaces.
-# The default value is: YES.
-
-ALPHABETICAL_INDEX     = NO
-
-# The COLS_IN_ALPHA_INDEX tag can be used to specify the number of columns in
-# which the alphabetical index list will be split.
-# Minimum value: 1, maximum value: 20, default value: 5.
-# This tag requires that the tag ALPHABETICAL_INDEX is set to YES.
-
-COLS_IN_ALPHA_INDEX    = 1
-
-# In case all classes in a project start with a common prefix, all classes will
-# be put under the same header in the alphabetical index. The IGNORE_PREFIX tag
-# can be used to specify a prefix (or a list of prefixes) that should be ignored
-# while generating the index headers.
-# This tag requires that the tag ALPHABETICAL_INDEX is set to YES.
-
-IGNORE_PREFIX          =
-
-#---------------------------------------------------------------------------
-# Configuration options related to the HTML output
-#---------------------------------------------------------------------------
-
-# If the GENERATE_HTML tag is set to YES doxygen will generate HTML output
-# The default value is: YES.
-
-GENERATE_HTML          = YES
-
-# The HTML_OUTPUT tag is used to specify where the HTML docs will be put. If a
-# relative path is entered the value of OUTPUT_DIRECTORY will be put in front of
-# it.
-# The default directory is: html.
-# This tag requires that the tag GENERATE_HTML is set to YES.
-
-HTML_OUTPUT            = html
-
-# The HTML_FILE_EXTENSION tag can be used to specify the file extension for each
-# generated HTML page (for example: .htm, .php, .asp).
-# The default value is: .html.
-# This tag requires that the tag GENERATE_HTML is set to YES.
-
-HTML_FILE_EXTENSION    = .html
-
-# The HTML_HEADER tag can be used to specify a user-defined HTML header file for
-# each generated HTML page. If the tag is left blank doxygen will generate a
-# standard header.
-#
-# To get valid HTML the header file that includes any scripts and style sheets
-# that doxygen needs, which is dependent on the configuration options used (e.g.
-# the setting GENERATE_TREEVIEW). It is highly recommended to start with a
-# default header using
-# doxygen -w html new_header.html new_footer.html new_stylesheet.css
-# YourConfigFile
-# and then modify the file new_header.html. See also section "Doxygen usage"
-# for information on how to generate the default header that doxygen normally
-# uses.
-# Note: The header is subject to change so you typically have to regenerate the
-# default header when upgrading to a newer version of doxygen. For a description
-# of the possible markers and block names see the documentation.
-# This tag requires that the tag GENERATE_HTML is set to YES.
-
-HTML_HEADER            =
-
-# The HTML_FOOTER tag can be used to specify a user-defined HTML footer for each
-# generated HTML page. If the tag is left blank doxygen will generate a standard
-# footer. See HTML_HEADER for more information on how to generate a default
-# footer and what special commands can be used inside the footer. See also
-# section "Doxygen usage" for information on how to generate the default footer
-# that doxygen normally uses.
-# This tag requires that the tag GENERATE_HTML is set to YES.
-
-HTML_FOOTER            =
-
-# The HTML_STYLESHEET tag can be used to specify a user-defined cascading style
-# sheet that is used by each HTML page. It can be used to fine-tune the look of
-# the HTML output. If left blank doxygen will generate a default style sheet.
-# See also section "Doxygen usage" for information on how to generate the style
-# sheet that doxygen normally uses.
-# Note: It is recommended to use HTML_EXTRA_STYLESHEET instead of this tag, as
-# it is more robust and this tag (HTML_STYLESHEET) will in the future become
-# obsolete.
-# This tag requires that the tag GENERATE_HTML is set to YES.
-
-HTML_STYLESHEET        =
-
-# The HTML_EXTRA_STYLESHEET tag can be used to specify an additional user-
-# defined cascading style sheet that is included after the standard style sheets
-# created by doxygen. Using this option one can overrule certain style aspects.
-# This is preferred over using HTML_STYLESHEET since it does not replace the
-# standard style sheet and is therefor more robust against future updates.
-# Doxygen will copy the style sheet file to the output directory. For an example
-# see the documentation.
-# This tag requires that the tag GENERATE_HTML is set to YES.
-
-HTML_EXTRA_STYLESHEET  =
-
-# The HTML_EXTRA_FILES tag can be used to specify one or more extra images or
-# other source files which should be copied to the HTML output directory. Note
-# that these files will be copied to the base HTML output directory. Use the
-# $relpath^ marker in the HTML_HEADER and/or HTML_FOOTER files to load these
-# files. In the HTML_STYLESHEET file, use the file name only. Also note that the
-# files will be copied as-is; there are no commands or markers available.
-# This tag requires that the tag GENERATE_HTML is set to YES.
-
-HTML_EXTRA_FILES       =
-
-# The HTML_COLORSTYLE_HUE tag controls the color of the HTML output. Doxygen
-# will adjust the colors in the stylesheet and background images according to
-# this color. Hue is specified as an angle on a colorwheel, see
-# http://en.wikipedia.org/wiki/Hue for more information. For instance the value
-# 0 represents red, 60 is yellow, 120 is green, 180 is cyan, 240 is blue, 300
-# purple, and 360 is red again.
-# Minimum value: 0, maximum value: 359, default value: 220.
-# This tag requires that the tag GENERATE_HTML is set to YES.
-
-HTML_COLORSTYLE_HUE    = 220
-
-# The HTML_COLORSTYLE_SAT tag controls the purity (or saturation) of the colors
-# in the HTML output. For a value of 0 the output will use grayscales only. A
-# value of 255 will produce the most vivid colors.
-# Minimum value: 0, maximum value: 255, default value: 100.
-# This tag requires that the tag GENERATE_HTML is set to YES.
-
-HTML_COLORSTYLE_SAT    = 100
-
-# The HTML_COLORSTYLE_GAMMA tag controls the gamma correction applied to the
-# luminance component of the colors in the HTML output. Values below 100
-# gradually make the output lighter, whereas values above 100 make the output
-# darker. The value divided by 100 is the actual gamma applied, so 80 represents
-# a gamma of 0.8, The value 220 represents a gamma of 2.2, and 100 does not
-# change the gamma.
-# Minimum value: 40, maximum value: 240, default value: 80.
-# This tag requires that the tag GENERATE_HTML is set to YES.
-
-HTML_COLORSTYLE_GAMMA  = 80
-
-# If the HTML_TIMESTAMP tag is set to YES then the footer of each generated HTML
-# page will contain the date and time when the page was generated. Setting this
-# to NO can help when comparing the output of multiple runs.
-# The default value is: YES.
-# This tag requires that the tag GENERATE_HTML is set to YES.
-
-HTML_TIMESTAMP         = NO
-
-# If the HTML_DYNAMIC_SECTIONS tag is set to YES then the generated HTML
-# documentation will contain sections that can be hidden and shown after the
-# page has loaded.
-# The default value is: NO.
-# This tag requires that the tag GENERATE_HTML is set to YES.
-
-HTML_DYNAMIC_SECTIONS  = NO
-
-# With HTML_INDEX_NUM_ENTRIES one can control the preferred number of entries
-# shown in the various tree structured indices initially; the user can expand
-# and collapse entries dynamically later on. Doxygen will expand the tree to
-# such a level that at most the specified number of entries are visible (unless
-# a fully collapsed tree already exceeds this amount). So setting the number of
-# entries 1 will produce a full collapsed tree by default. 0 is a special value
-# representing an infinite number of entries and will result in a full expanded
-# tree by default.
-# Minimum value: 0, maximum value: 9999, default value: 100.
-# This tag requires that the tag GENERATE_HTML is set to YES.
-
-HTML_INDEX_NUM_ENTRIES = 100
-
-# If the GENERATE_DOCSET tag is set to YES, additional index files will be
-# generated that can be used as input for Apple's Xcode 3 integrated development
-# environment (see: http://developer.apple.com/tools/xcode/), introduced with
-# OSX 10.5 (Leopard). To create a documentation set, doxygen will generate a
-# Makefile in the HTML output directory. Running make will produce the docset in
-# that directory and running make install will install the docset in
-# ~/Library/Developer/Shared/Documentation/DocSets so that Xcode will find it at
-# startup. See http://developer.apple.com/tools/creatingdocsetswithdoxygen.html
-# for more information.
-# The default value is: NO.
-# This tag requires that the tag GENERATE_HTML is set to YES.
-
-GENERATE_DOCSET        = NO
-
-# This tag determines the name of the docset feed. A documentation feed provides
-# an umbrella under which multiple documentation sets from a single provider
-# (such as a company or product suite) can be grouped.
-# The default value is: Doxygen generated docs.
-# This tag requires that the tag GENERATE_DOCSET is set to YES.
-
-DOCSET_FEEDNAME        = "Doxygen generated docs"
-
-# This tag specifies a string that should uniquely identify the documentation
-# set bundle. This should be a reverse domain-name style string, e.g.
-# com.mycompany.MyDocSet. Doxygen will append .docset to the name.
-# The default value is: org.doxygen.Project.
-# This tag requires that the tag GENERATE_DOCSET is set to YES.
-
-DOCSET_BUNDLE_ID       = org.doxygen.Project
-
-# The DOCSET_PUBLISHER_ID tag specifies a string that should uniquely identify
-# the documentation publisher. This should be a reverse domain-name style
-# string, e.g. com.mycompany.MyDocSet.documentation.
-# The default value is: org.doxygen.Publisher.
-# This tag requires that the tag GENERATE_DOCSET is set to YES.
-
-DOCSET_PUBLISHER_ID    = org.doxygen.Publisher
-
-# The DOCSET_PUBLISHER_NAME tag identifies the documentation publisher.
-# The default value is: Publisher.
-# This tag requires that the tag GENERATE_DOCSET is set to YES.
-
-DOCSET_PUBLISHER_NAME  = Publisher
-
-# If the GENERATE_HTMLHELP tag is set to YES then doxygen generates three
-# additional HTML index files: index.hhp, index.hhc, and index.hhk. The
-# index.hhp is a project file that can be read by Microsoft's HTML Help Workshop
-# (see: http://www.microsoft.com/en-us/download/details.aspx?id=21138) on
-# Windows.
-#
-# The HTML Help Workshop contains a compiler that can convert all HTML output
-# generated by doxygen into a single compiled HTML file (.chm). Compiled HTML
-# files are now used as the Windows 98 help format, and will replace the old
-# Windows help format (.hlp) on all Windows platforms in the future. Compressed
-# HTML files also contain an index, a table of contents, and you can search for
-# words in the documentation. The HTML workshop also contains a viewer for
-# compressed HTML files.
-# The default value is: NO.
-# This tag requires that the tag GENERATE_HTML is set to YES.
-
-GENERATE_HTMLHELP      = NO
-
-# The CHM_FILE tag can be used to specify the file name of the resulting .chm
-# file. You can add a path in front of the file if the result should not be
-# written to the html output directory.
-# This tag requires that the tag GENERATE_HTMLHELP is set to YES.
-
-CHM_FILE               =
-
-# The HHC_LOCATION tag can be used to specify the location (absolute path
-# including file name) of the HTML help compiler ( hhc.exe). If non-empty
-# doxygen will try to run the HTML help compiler on the generated index.hhp.
-# The file has to be specified with full path.
-# This tag requires that the tag GENERATE_HTMLHELP is set to YES.
-
-HHC_LOCATION           =
-
-# The GENERATE_CHI flag controls if a separate .chi index file is generated (
-# YES) or that it should be included in the master .chm file ( NO).
-# The default value is: NO.
-# This tag requires that the tag GENERATE_HTMLHELP is set to YES.
-
-GENERATE_CHI           = NO
-
-# The CHM_INDEX_ENCODING is used to encode HtmlHelp index ( hhk), content ( hhc)
-# and project file content.
-# This tag requires that the tag GENERATE_HTMLHELP is set to YES.
-
-CHM_INDEX_ENCODING     =
-
-# The BINARY_TOC flag controls whether a binary table of contents is generated (
-# YES) or a normal table of contents ( NO) in the .chm file.
-# The default value is: NO.
-# This tag requires that the tag GENERATE_HTMLHELP is set to YES.
-
-BINARY_TOC             = NO
-
-# The TOC_EXPAND flag can be set to YES to add extra items for group members to
-# the table of contents of the HTML help documentation and to the tree view.
-# The default value is: NO.
-# This tag requires that the tag GENERATE_HTMLHELP is set to YES.
-
-TOC_EXPAND             = NO
-
-# If the GENERATE_QHP tag is set to YES and both QHP_NAMESPACE and
-# QHP_VIRTUAL_FOLDER are set, an additional index file will be generated that
-# can be used as input for Qt's qhelpgenerator to generate a Qt Compressed Help
-# (.qch) of the generated HTML documentation.
-# The default value is: NO.
-# This tag requires that the tag GENERATE_HTML is set to YES.
-
-GENERATE_QHP           = NO
-
-# If the QHG_LOCATION tag is specified, the QCH_FILE tag can be used to specify
-# the file name of the resulting .qch file. The path specified is relative to
-# the HTML output folder.
-# This tag requires that the tag GENERATE_QHP is set to YES.
-
-QCH_FILE               =
-
-# The QHP_NAMESPACE tag specifies the namespace to use when generating Qt Help
-# Project output. For more information please see Qt Help Project / Namespace
-# (see: http://qt-project.org/doc/qt-4.8/qthelpproject.html#namespace).
-# The default value is: org.doxygen.Project.
-# This tag requires that the tag GENERATE_QHP is set to YES.
-
-QHP_NAMESPACE          =
-
-# The QHP_VIRTUAL_FOLDER tag specifies the namespace to use when generating Qt
-# Help Project output. For more information please see Qt Help Project / Virtual
-# Folders (see: http://qt-project.org/doc/qt-4.8/qthelpproject.html#virtual-
-# folders).
-# The default value is: doc.
-# This tag requires that the tag GENERATE_QHP is set to YES.
-
-QHP_VIRTUAL_FOLDER     = doc
-
-# If the QHP_CUST_FILTER_NAME tag is set, it specifies the name of a custom
-# filter to add. For more information please see Qt Help Project / Custom
-# Filters (see: http://qt-project.org/doc/qt-4.8/qthelpproject.html#custom-
-# filters).
-# This tag requires that the tag GENERATE_QHP is set to YES.
-
-QHP_CUST_FILTER_NAME   =
-
-# The QHP_CUST_FILTER_ATTRS tag specifies the list of the attributes of the
-# custom filter to add. For more information please see Qt Help Project / Custom
-# Filters (see: http://qt-project.org/doc/qt-4.8/qthelpproject.html#custom-
-# filters).
-# This tag requires that the tag GENERATE_QHP is set to YES.
-
-QHP_CUST_FILTER_ATTRS  =
-
-# The QHP_SECT_FILTER_ATTRS tag specifies the list of the attributes this
-# project's filter section matches. Qt Help Project / Filter Attributes (see:
-# http://qt-project.org/doc/qt-4.8/qthelpproject.html#filter-attributes).
-# This tag requires that the tag GENERATE_QHP is set to YES.
-
-QHP_SECT_FILTER_ATTRS  =
-
-# The QHG_LOCATION tag can be used to specify the location of Qt's
-# qhelpgenerator. If non-empty doxygen will try to run qhelpgenerator on the
-# generated .qhp file.
-# This tag requires that the tag GENERATE_QHP is set to YES.
-
-QHG_LOCATION           =
-
-# If the GENERATE_ECLIPSEHELP tag is set to YES, additional index files will be
-# generated, together with the HTML files, they form an Eclipse help plugin. To
-# install this plugin and make it available under the help contents menu in
-# Eclipse, the contents of the directory containing the HTML and XML files needs
-# to be copied into the plugins directory of eclipse. The name of the directory
-# within the plugins directory should be the same as the ECLIPSE_DOC_ID value.
-# After copying Eclipse needs to be restarted before the help appears.
-# The default value is: NO.
-# This tag requires that the tag GENERATE_HTML is set to YES.
-
-GENERATE_ECLIPSEHELP   = NO
-
-# A unique identifier for the Eclipse help plugin. When installing the plugin
-# the directory name containing the HTML and XML files should also have this
-# name. Each documentation set should have its own identifier.
-# The default value is: org.doxygen.Project.
-# This tag requires that the tag GENERATE_ECLIPSEHELP is set to YES.
-
-ECLIPSE_DOC_ID         = org.doxygen.Project
-
-# If you want full control over the layout of the generated HTML pages it might
-# be necessary to disable the index and replace it with your own. The
-# DISABLE_INDEX tag can be used to turn on/off the condensed index (tabs) at top
-# of each HTML page. A value of NO enables the index and the value YES disables
-# it. Since the tabs in the index contain the same information as the navigation
-# tree, you can set this option to YES if you also set GENERATE_TREEVIEW to YES.
-# The default value is: NO.
-# This tag requires that the tag GENERATE_HTML is set to YES.
-
-DISABLE_INDEX          = NO
-
-# The GENERATE_TREEVIEW tag is used to specify whether a tree-like index
-# structure should be generated to display hierarchical information. If the tag
-# value is set to YES, a side panel will be generated containing a tree-like
-# index structure (just like the one that is generated for HTML Help). For this
-# to work a browser that supports JavaScript, DHTML, CSS and frames is required
-# (i.e. any modern browser). Windows users are probably better off using the
-# HTML help feature. Via custom stylesheets (see HTML_EXTRA_STYLESHEET) one can
-# further fine-tune the look of the index. As an example, the default style
-# sheet generated by doxygen has an example that shows how to put an image at
-# the root of the tree instead of the PROJECT_NAME. Since the tree basically has
-# the same information as the tab index, you could consider setting
-# DISABLE_INDEX to YES when enabling this option.
-# The default value is: NO.
-# This tag requires that the tag GENERATE_HTML is set to YES.
-
-GENERATE_TREEVIEW      = NO
-
-# The ENUM_VALUES_PER_LINE tag can be used to set the number of enum values that
-# doxygen will group on one line in the generated HTML documentation.
-#
-# Note that a value of 0 will completely suppress the enum values from appearing
-# in the overview section.
-# Minimum value: 0, maximum value: 20, default value: 4.
-# This tag requires that the tag GENERATE_HTML is set to YES.
-
-ENUM_VALUES_PER_LINE   = 4
-
-# If the treeview is enabled (see GENERATE_TREEVIEW) then this tag can be used
-# to set the initial width (in pixels) of the frame in which the tree is shown.
-# Minimum value: 0, maximum value: 1500, default value: 250.
-# This tag requires that the tag GENERATE_HTML is set to YES.
-
-TREEVIEW_WIDTH         = 250
-
-# When the EXT_LINKS_IN_WINDOW option is set to YES doxygen will open links to
-# external symbols imported via tag files in a separate window.
-# The default value is: NO.
-# This tag requires that the tag GENERATE_HTML is set to YES.
-
-EXT_LINKS_IN_WINDOW    = NO
-
-# Use this tag to change the font size of LaTeX formulas included as images in
-# the HTML documentation. When you change the font size after a successful
-# doxygen run you need to manually remove any form_*.png images from the HTML
-# output directory to force them to be regenerated.
-# Minimum value: 8, maximum value: 50, default value: 10.
-# This tag requires that the tag GENERATE_HTML is set to YES.
-
-FORMULA_FONTSIZE       = 10
-
-# Use the FORMULA_TRANPARENT tag to determine whether or not the images
-# generated for formulas are transparent PNGs. Transparent PNGs are not
-# supported properly for IE 6.0, but are supported on all modern browsers.
-#
-# Note that when changing this option you need to delete any form_*.png files in
-# the HTML output directory before the changes have effect.
-# The default value is: YES.
-# This tag requires that the tag GENERATE_HTML is set to YES.
-
-FORMULA_TRANSPARENT    = YES
-
-# Enable the USE_MATHJAX option to render LaTeX formulas using MathJax (see
-# http://www.mathjax.org) which uses client side Javascript for the rendering
-# instead of using prerendered bitmaps. Use this if you do not have LaTeX
-# installed or if you want to formulas look prettier in the HTML output. When
-# enabled you may also need to install MathJax separately and configure the path
-# to it using the MATHJAX_RELPATH option.
-# The default value is: NO.
-# This tag requires that the tag GENERATE_HTML is set to YES.
-
-USE_MATHJAX            = NO
-
-# When MathJax is enabled you can set the default output format to be used for
-# the MathJax output. See the MathJax site (see:
-# http://docs.mathjax.org/en/latest/output.html) for more details.
-# Possible values are: HTML-CSS (which is slower, but has the best
-# compatibility), NativeMML (i.e. MathML) and SVG.
-# The default value is: HTML-CSS.
-# This tag requires that the tag USE_MATHJAX is set to YES.
-
-MATHJAX_FORMAT         = HTML-CSS
-
-# When MathJax is enabled you need to specify the location relative to the HTML
-# output directory using the MATHJAX_RELPATH option. The destination directory
-# should contain the MathJax.js script. For instance, if the mathjax directory
-# is located at the same level as the HTML output directory, then
-# MATHJAX_RELPATH should be ../mathjax. The default value points to the MathJax
-# Content Delivery Network so you can quickly see the result without installing
-# MathJax. However, it is strongly recommended to install a local copy of
-# MathJax from http://www.mathjax.org before deployment.
-# The default value is: http://cdn.mathjax.org/mathjax/latest.
-# This tag requires that the tag USE_MATHJAX is set to YES.
-
-MATHJAX_RELPATH        = http://cdn.mathjax.org/mathjax/latest
-
-# The MATHJAX_EXTENSIONS tag can be used to specify one or more MathJax
-# extension names that should be enabled during MathJax rendering. For example
-# MATHJAX_EXTENSIONS = TeX/AMSmath TeX/AMSsymbols
-# This tag requires that the tag USE_MATHJAX is set to YES.
-
-MATHJAX_EXTENSIONS     =
-
-# The MATHJAX_CODEFILE tag can be used to specify a file with javascript pieces
-# of code that will be used on startup of the MathJax code. See the MathJax site
-# (see: http://docs.mathjax.org/en/latest/output.html) for more details. For an
-# example see the documentation.
-# This tag requires that the tag USE_MATHJAX is set to YES.
-
-MATHJAX_CODEFILE       =
-
-# When the SEARCHENGINE tag is enabled doxygen will generate a search box for
-# the HTML output. The underlying search engine uses javascript and DHTML and
-# should work on any modern browser. Note that when using HTML help
-# (GENERATE_HTMLHELP), Qt help (GENERATE_QHP), or docsets (GENERATE_DOCSET)
-# there is already a search function so this one should typically be disabled.
-# For large projects the javascript based search engine can be slow, then
-# enabling SERVER_BASED_SEARCH may provide a better solution. It is possible to
-# search using the keyboard; to jump to the search box use <access key> + S
-# (what the <access key> is depends on the OS and browser, but it is typically
-# <CTRL>, <ALT>/<option>, or both). Inside the search box use the <cursor down
-# key> to jump into the search results window, the results can be navigated
-# using the <cursor keys>. Press <Enter> to select an item or <escape> to cancel
-# the search. The filter options can be selected when the cursor is inside the
-# search box by pressing <Shift>+<cursor down>. Also here use the <cursor keys>
-# to select a filter and <Enter> or <escape> to activate or cancel the filter
-# option.
-# The default value is: YES.
-# This tag requires that the tag GENERATE_HTML is set to YES.
-
-SEARCHENGINE           = YES
-
-# When the SERVER_BASED_SEARCH tag is enabled the search engine will be
-# implemented using a web server instead of a web client using Javascript. There
-# are two flavours of web server based searching depending on the
-# EXTERNAL_SEARCH setting. When disabled, doxygen will generate a PHP script for
-# searching and an index file used by the script. When EXTERNAL_SEARCH is
-# enabled the indexing and searching needs to be provided by external tools. See
-# the section "External Indexing and Searching" for details.
-# The default value is: NO.
-# This tag requires that the tag SEARCHENGINE is set to YES.
-
-SERVER_BASED_SEARCH    = NO
-
-# When EXTERNAL_SEARCH tag is enabled doxygen will no longer generate the PHP
-# script for searching. Instead the search results are written to an XML file
-# which needs to be processed by an external indexer. Doxygen will invoke an
-# external search engine pointed to by the SEARCHENGINE_URL option to obtain the
-# search results.
-#
-# Doxygen ships with an example indexer ( doxyindexer) and search engine
-# (doxysearch.cgi) which are based on the open source search engine library
-# Xapian (see: http://xapian.org/).
-#
-# See the section "External Indexing and Searching" for details.
-# The default value is: NO.
-# This tag requires that the tag SEARCHENGINE is set to YES.
-
-EXTERNAL_SEARCH        = NO
-
-# The SEARCHENGINE_URL should point to a search engine hosted by a web server
-# which will return the search results when EXTERNAL_SEARCH is enabled.
-#
-# Doxygen ships with an example indexer ( doxyindexer) and search engine
-# (doxysearch.cgi) which are based on the open source search engine library
-# Xapian (see: http://xapian.org/). See the section "External Indexing and
-# Searching" for details.
-# This tag requires that the tag SEARCHENGINE is set to YES.
-
-SEARCHENGINE_URL       =
-
-# When SERVER_BASED_SEARCH and EXTERNAL_SEARCH are both enabled the unindexed
-# search data is written to a file for indexing by an external tool. With the
-# SEARCHDATA_FILE tag the name of this file can be specified.
-# The default file is: searchdata.xml.
-# This tag requires that the tag SEARCHENGINE is set to YES.
-
-SEARCHDATA_FILE        = searchdata.xml
-
-# When SERVER_BASED_SEARCH and EXTERNAL_SEARCH are both enabled the
-# EXTERNAL_SEARCH_ID tag can be used as an identifier for the project. This is
-# useful in combination with EXTRA_SEARCH_MAPPINGS to search through multiple
-# projects and redirect the results back to the right project.
-# This tag requires that the tag SEARCHENGINE is set to YES.
-
-EXTERNAL_SEARCH_ID     =
-
-# The EXTRA_SEARCH_MAPPINGS tag can be used to enable searching through doxygen
-# projects other than the one defined by this configuration file, but that are
-# all added to the same external search index. Each project needs to have a
-# unique id set via EXTERNAL_SEARCH_ID. The search mapping then maps the id of
-# to a relative location where the documentation can be found. The format is:
-# EXTRA_SEARCH_MAPPINGS = tagname1=loc1 tagname2=loc2 ...
-# This tag requires that the tag SEARCHENGINE is set to YES.
-
-EXTRA_SEARCH_MAPPINGS  =
-
-#---------------------------------------------------------------------------
-# Configuration options related to the LaTeX output
-#---------------------------------------------------------------------------
-
-# If the GENERATE_LATEX tag is set to YES doxygen will generate LaTeX output.
-# The default value is: YES.
-
-GENERATE_LATEX         = NO
-
-# The LATEX_OUTPUT tag is used to specify where the LaTeX docs will be put. If a
-# relative path is entered the value of OUTPUT_DIRECTORY will be put in front of
-# it.
-# The default directory is: latex.
-# This tag requires that the tag GENERATE_LATEX is set to YES.
-
-LATEX_OUTPUT           = latex
-
-# The LATEX_CMD_NAME tag can be used to specify the LaTeX command name to be
-# invoked.
-#
-# Note that when enabling USE_PDFLATEX this option is only used for generating
-# bitmaps for formulas in the HTML output, but not in the Makefile that is
-# written to the output directory.
-# The default file is: latex.
-# This tag requires that the tag GENERATE_LATEX is set to YES.
-
-LATEX_CMD_NAME         = latex
-
-# The MAKEINDEX_CMD_NAME tag can be used to specify the command name to generate
-# index for LaTeX.
-# The default file is: makeindex.
-# This tag requires that the tag GENERATE_LATEX is set to YES.
-
-MAKEINDEX_CMD_NAME     = makeindex
-
-# If the COMPACT_LATEX tag is set to YES doxygen generates more compact LaTeX
-# documents. This may be useful for small projects and may help to save some
-# trees in general.
-# The default value is: NO.
-# This tag requires that the tag GENERATE_LATEX is set to YES.
-
-COMPACT_LATEX          = NO
-
-# The PAPER_TYPE tag can be used to set the paper type that is used by the
-# printer.
-# Possible values are: a4 (210 x 297 mm), letter (8.5 x 11 inches), legal (8.5 x
-# 14 inches) and executive (7.25 x 10.5 inches).
-# The default value is: a4.
-# This tag requires that the tag GENERATE_LATEX is set to YES.
-
-PAPER_TYPE             = a4wide
-
-# The EXTRA_PACKAGES tag can be used to specify one or more LaTeX package names
-# that should be included in the LaTeX output. To get the times font for
-# instance you can specify
-# EXTRA_PACKAGES=times
-# If left blank no extra packages will be included.
-# This tag requires that the tag GENERATE_LATEX is set to YES.
-
-EXTRA_PACKAGES         =
-
-# The LATEX_HEADER tag can be used to specify a personal LaTeX header for the
-# generated LaTeX document. The header should contain everything until the first
-# chapter. If it is left blank doxygen will generate a standard header. See
-# section "Doxygen usage" for information on how to let doxygen write the
-# default header to a separate file.
-#
-# Note: Only use a user-defined header if you know what you are doing! The
-# following commands have a special meaning inside the header: $title,
-# $datetime, $date, $doxygenversion, $projectname, $projectnumber. Doxygen will
-# replace them by respectively the title of the page, the current date and time,
-# only the current date, the version number of doxygen, the project name (see
-# PROJECT_NAME), or the project number (see PROJECT_NUMBER).
-# This tag requires that the tag GENERATE_LATEX is set to YES.
-
-LATEX_HEADER           =
-
-# The LATEX_FOOTER tag can be used to specify a personal LaTeX footer for the
-# generated LaTeX document. The footer should contain everything after the last
-# chapter. If it is left blank doxygen will generate a standard footer.
-#
-# Note: Only use a user-defined footer if you know what you are doing!
-# This tag requires that the tag GENERATE_LATEX is set to YES.
-
-LATEX_FOOTER           =
-
-# The LATEX_EXTRA_FILES tag can be used to specify one or more extra images or
-# other source files which should be copied to the LATEX_OUTPUT output
-# directory. Note that the files will be copied as-is; there are no commands or
-# markers available.
-# This tag requires that the tag GENERATE_LATEX is set to YES.
-
-LATEX_EXTRA_FILES      =
-
-# If the PDF_HYPERLINKS tag is set to YES, the LaTeX that is generated is
-# prepared for conversion to PDF (using ps2pdf or pdflatex). The PDF file will
-# contain links (just like the HTML output) instead of page references. This
-# makes the output suitable for online browsing using a PDF viewer.
-# The default value is: YES.
-# This tag requires that the tag GENERATE_LATEX is set to YES.
-
-PDF_HYPERLINKS         = YES
-
-# If the LATEX_PDFLATEX tag is set to YES, doxygen will use pdflatex to generate
-# the PDF file directly from the LaTeX files. Set this option to YES to get a
-# higher quality PDF documentation.
-# The default value is: YES.
-# This tag requires that the tag GENERATE_LATEX is set to YES.
-
-USE_PDFLATEX           = YES
-
-# If the LATEX_BATCHMODE tag is set to YES, doxygen will add the \batchmode
-# command to the generated LaTeX files. This will instruct LaTeX to keep running
-# if errors occur, instead of asking the user for help. This option is also used
-# when generating formulas in HTML.
-# The default value is: NO.
-# This tag requires that the tag GENERATE_LATEX is set to YES.
-
-LATEX_BATCHMODE        = NO
-
-# If the LATEX_HIDE_INDICES tag is set to YES then doxygen will not include the
-# index chapters (such as File Index, Compound Index, etc.) in the output.
-# The default value is: NO.
-# This tag requires that the tag GENERATE_LATEX is set to YES.
-
-LATEX_HIDE_INDICES     = NO
-
-# If the LATEX_SOURCE_CODE tag is set to YES then doxygen will include source
-# code with syntax highlighting in the LaTeX output.
-#
-# Note that which sources are shown also depends on other settings such as
-# SOURCE_BROWSER.
-# The default value is: NO.
-# This tag requires that the tag GENERATE_LATEX is set to YES.
-
-LATEX_SOURCE_CODE      = NO
-
-# The LATEX_BIB_STYLE tag can be used to specify the style to use for the
-# bibliography, e.g. plainnat, or ieeetr. See
-# http://en.wikipedia.org/wiki/BibTeX and \cite for more info.
-# The default value is: plain.
-# This tag requires that the tag GENERATE_LATEX is set to YES.
-
-LATEX_BIB_STYLE        = plain
-
-#---------------------------------------------------------------------------
-# Configuration options related to the RTF output
-#---------------------------------------------------------------------------
-
-# If the GENERATE_RTF tag is set to YES doxygen will generate RTF output. The
-# RTF output is optimized for Word 97 and may not look too pretty with other RTF
-# readers/editors.
-# The default value is: NO.
-
-GENERATE_RTF           = NO
-
-# The RTF_OUTPUT tag is used to specify where the RTF docs will be put. If a
-# relative path is entered the value of OUTPUT_DIRECTORY will be put in front of
-# it.
-# The default directory is: rtf.
-# This tag requires that the tag GENERATE_RTF is set to YES.
-
-RTF_OUTPUT             = rtf
-
-# If the COMPACT_RTF tag is set to YES doxygen generates more compact RTF
-# documents. This may be useful for small projects and may help to save some
-# trees in general.
-# The default value is: NO.
-# This tag requires that the tag GENERATE_RTF is set to YES.
-
-COMPACT_RTF            = NO
-
-# If the RTF_HYPERLINKS tag is set to YES, the RTF that is generated will
-# contain hyperlink fields. The RTF file will contain links (just like the HTML
-# output) instead of page references. This makes the output suitable for online
-# browsing using Word or some other Word compatible readers that support those
-# fields.
-#
-# Note: WordPad (write) and others do not support links.
-# The default value is: NO.
-# This tag requires that the tag GENERATE_RTF is set to YES.
-
-RTF_HYPERLINKS         = NO
-
-# Load stylesheet definitions from file. Syntax is similar to doxygen's config
-# file, i.e. a series of assignments. You only have to provide replacements,
-# missing definitions are set to their default value.
-#
-# See also section "Doxygen usage" for information on how to generate the
-# default style sheet that doxygen normally uses.
-# This tag requires that the tag GENERATE_RTF is set to YES.
-
-RTF_STYLESHEET_FILE    =
-
-# Set optional variables used in the generation of an RTF document. Syntax is
-# similar to doxygen's config file. A template extensions file can be generated
-# using doxygen -e rtf extensionFile.
-# This tag requires that the tag GENERATE_RTF is set to YES.
-
-RTF_EXTENSIONS_FILE    =
-
-#---------------------------------------------------------------------------
-# Configuration options related to the man page output
-#---------------------------------------------------------------------------
-
-# If the GENERATE_MAN tag is set to YES doxygen will generate man pages for
-# classes and files.
-# The default value is: NO.
-
-GENERATE_MAN           = NO
-
-# The MAN_OUTPUT tag is used to specify where the man pages will be put. If a
-# relative path is entered the value of OUTPUT_DIRECTORY will be put in front of
-# it. A directory man3 will be created inside the directory specified by
-# MAN_OUTPUT.
-# The default directory is: man.
-# This tag requires that the tag GENERATE_MAN is set to YES.
-
-MAN_OUTPUT             = man
-
-# The MAN_EXTENSION tag determines the extension that is added to the generated
-# man pages. In case the manual section does not start with a number, the number
-# 3 is prepended. The dot (.) at the beginning of the MAN_EXTENSION tag is
-# optional.
-# The default value is: .3.
-# This tag requires that the tag GENERATE_MAN is set to YES.
-
-MAN_EXTENSION          = .3
-
-# If the MAN_LINKS tag is set to YES and doxygen generates man output, then it
-# will generate one additional man file for each entity documented in the real
-# man page(s). These additional files only source the real man page, but without
-# them the man command would be unable to find the correct page.
-# The default value is: NO.
-# This tag requires that the tag GENERATE_MAN is set to YES.
-
-MAN_LINKS              = NO
-
-#---------------------------------------------------------------------------
-# Configuration options related to the XML output
-#---------------------------------------------------------------------------
-
-# If the GENERATE_XML tag is set to YES doxygen will generate an XML file that
-# captures the structure of the code including all documentation.
-# The default value is: NO.
-
-GENERATE_XML           = NO
-
-# The XML_OUTPUT tag is used to specify where the XML pages will be put. If a
-# relative path is entered the value of OUTPUT_DIRECTORY will be put in front of
-# it.
-# The default directory is: xml.
-# This tag requires that the tag GENERATE_XML is set to YES.
-
-XML_OUTPUT             = xml
-
-# The XML_SCHEMA tag can be used to specify a XML schema, which can be used by a
-# validating XML parser to check the syntax of the XML files.
-# This tag requires that the tag GENERATE_XML is set to YES.
-
-XML_SCHEMA             =
-
-# The XML_DTD tag can be used to specify a XML DTD, which can be used by a
-# validating XML parser to check the syntax of the XML files.
-# This tag requires that the tag GENERATE_XML is set to YES.
-
-XML_DTD                =
-
-# If the XML_PROGRAMLISTING tag is set to YES doxygen will dump the program
-# listings (including syntax highlighting and cross-referencing information) to
-# the XML output. Note that enabling this will significantly increase the size
-# of the XML output.
-# The default value is: YES.
-# This tag requires that the tag GENERATE_XML is set to YES.
-
-XML_PROGRAMLISTING     = YES
-
-#---------------------------------------------------------------------------
-# Configuration options related to the DOCBOOK output
-#---------------------------------------------------------------------------
-
-# If the GENERATE_DOCBOOK tag is set to YES doxygen will generate Docbook files
-# that can be used to generate PDF.
-# The default value is: NO.
-
-GENERATE_DOCBOOK       = NO
-
-# The DOCBOOK_OUTPUT tag is used to specify where the Docbook pages will be put.
-# If a relative path is entered the value of OUTPUT_DIRECTORY will be put in
-# front of it.
-# The default directory is: docbook.
-# This tag requires that the tag GENERATE_DOCBOOK is set to YES.
-
-DOCBOOK_OUTPUT         = docbook
-
-#---------------------------------------------------------------------------
-# Configuration options for the AutoGen Definitions output
-#---------------------------------------------------------------------------
-
-# If the GENERATE_AUTOGEN_DEF tag is set to YES doxygen will generate an AutoGen
-# Definitions (see http://autogen.sf.net) file that captures the structure of
-# the code including all documentation. Note that this feature is still
-# experimental and incomplete at the moment.
-# The default value is: NO.
-
-GENERATE_AUTOGEN_DEF   = NO
-
-#---------------------------------------------------------------------------
-# Configuration options related to the Perl module output
-#---------------------------------------------------------------------------
-
-# If the GENERATE_PERLMOD tag is set to YES doxygen will generate a Perl module
-# file that captures the structure of the code including all documentation.
-#
-# Note that this feature is still experimental and incomplete at the moment.
-# The default value is: NO.
-
-GENERATE_PERLMOD       = NO
-
-# If the PERLMOD_LATEX tag is set to YES doxygen will generate the necessary
-# Makefile rules, Perl scripts and LaTeX code to be able to generate PDF and DVI
-# output from the Perl module output.
-# The default value is: NO.
-# This tag requires that the tag GENERATE_PERLMOD is set to YES.
-
-PERLMOD_LATEX          = NO
-
-# If the PERLMOD_PRETTY tag is set to YES the Perl module output will be nicely
-# formatted so it can be parsed by a human reader. This is useful if you want to
-# understand what is going on. On the other hand, if this tag is set to NO the
-# size of the Perl module output will be much smaller and Perl will parse it
-# just the same.
-# The default value is: YES.
-# This tag requires that the tag GENERATE_PERLMOD is set to YES.
-
-PERLMOD_PRETTY         = YES
-
-# The names of the make variables in the generated doxyrules.make file are
-# prefixed with the string contained in PERLMOD_MAKEVAR_PREFIX. This is useful
-# so different doxyrules.make files included by the same Makefile don't
-# overwrite each other's variables.
-# This tag requires that the tag GENERATE_PERLMOD is set to YES.
-
-PERLMOD_MAKEVAR_PREFIX =
-
-#---------------------------------------------------------------------------
-# Configuration options related to the preprocessor
-#---------------------------------------------------------------------------
-
-# If the ENABLE_PREPROCESSING tag is set to YES doxygen will evaluate all
-# C-preprocessor directives found in the sources and include files.
-# The default value is: YES.
-
-ENABLE_PREPROCESSING   = YES
-
-# If the MACRO_EXPANSION tag is set to YES doxygen will expand all macro names
-# in the source code. If set to NO only conditional compilation will be
-# performed. Macro expansion can be done in a controlled way by setting
-# EXPAND_ONLY_PREDEF to YES.
-# The default value is: NO.
-# This tag requires that the tag ENABLE_PREPROCESSING is set to YES.
-
-MACRO_EXPANSION        = NO
-
-# If the EXPAND_ONLY_PREDEF and MACRO_EXPANSION tags are both set to YES then
-# the macro expansion is limited to the macros specified with the PREDEFINED and
-# EXPAND_AS_DEFINED tags.
-# The default value is: NO.
-# This tag requires that the tag ENABLE_PREPROCESSING is set to YES.
-
-EXPAND_ONLY_PREDEF     = NO
-
-# If the SEARCH_INCLUDES tag is set to YES the includes files in the
-# INCLUDE_PATH will be searched if a #include is found.
-# The default value is: YES.
-# This tag requires that the tag ENABLE_PREPROCESSING is set to YES.
-
-SEARCH_INCLUDES        = YES
-
-# The INCLUDE_PATH tag can be used to specify one or more directories that
-# contain include files that are not input files but should be processed by the
-# preprocessor.
-# This tag requires that the tag SEARCH_INCLUDES is set to YES.
-
-INCLUDE_PATH           =
-
-# You can use the INCLUDE_FILE_PATTERNS tag to specify one or more wildcard
-# patterns (like *.h and *.hpp) to filter out the header-files in the
-# directories. If left blank, the patterns specified with FILE_PATTERNS will be
-# used.
-# This tag requires that the tag ENABLE_PREPROCESSING is set to YES.
-
-INCLUDE_FILE_PATTERNS  =
-
-# The PREDEFINED tag can be used to specify one or more macro names that are
-# defined before the preprocessor is started (similar to the -D option of e.g.
-# gcc). The argument of the tag is a list of macros of the form: name or
-# name=definition (no spaces). If the definition and the "=" are omitted, "=1"
-# is assumed. To prevent a macro definition from being undefined via #undef or
-# recursively expanded use the := operator instead of the = operator.
-# This tag requires that the tag ENABLE_PREPROCESSING is set to YES.
-
-PREDEFINED             =
-
-# If the MACRO_EXPANSION and EXPAND_ONLY_PREDEF tags are set to YES then this
-# tag can be used to specify a list of macro names that should be expanded. The
-# macro definition that is found in the sources will be used. Use the PREDEFINED
-# tag if you want to use a different macro definition that overrules the
-# definition found in the source code.
-# This tag requires that the tag ENABLE_PREPROCESSING is set to YES.
-
-EXPAND_AS_DEFINED      =
-
-# If the SKIP_FUNCTION_MACROS tag is set to YES then doxygen's preprocessor will
-# remove all refrences to function-like macros that are alone on a line, have an
-# all uppercase name, and do not end with a semicolon. Such function macros are
-# typically used for boiler-plate code, and will confuse the parser if not
-# removed.
-# The default value is: YES.
-# This tag requires that the tag ENABLE_PREPROCESSING is set to YES.
-
-SKIP_FUNCTION_MACROS   = YES
-
-#---------------------------------------------------------------------------
-# Configuration options related to external references
-#---------------------------------------------------------------------------
-
-# The TAGFILES tag can be used to specify one or more tag files. For each tag
-# file the location of the external documentation should be added. The format of
-# a tag file without this location is as follows:
-# TAGFILES = file1 file2 ...
-# Adding location for the tag files is done as follows:
-# TAGFILES = file1=loc1 "file2 = loc2" ...
-# where loc1 and loc2 can be relative or absolute paths or URLs. See the
-# section "Linking to external documentation" for more information about the use
-# of tag files.
-# Note: Each tag file must have an unique name (where the name does NOT include
-# the path). If a tag file is not located in the directory in which doxygen is
-# run, you must also specify the path to the tagfile here.
-
-TAGFILES               =
-
-# When a file name is specified after GENERATE_TAGFILE, doxygen will create a
-# tag file that is based on the input files it reads. See section "Linking to
-# external documentation" for more information about the usage of tag files.
-
-GENERATE_TAGFILE       =
-
-# If the ALLEXTERNALS tag is set to YES all external class will be listed in the
-# class index. If set to NO only the inherited external classes will be listed.
-# The default value is: NO.
-
-ALLEXTERNALS           = NO
-
-# If the EXTERNAL_GROUPS tag is set to YES all external groups will be listed in
-# the modules index. If set to NO, only the current project's groups will be
-# listed.
-# The default value is: YES.
-
-EXTERNAL_GROUPS        = YES
-
-# If the EXTERNAL_PAGES tag is set to YES all external pages will be listed in
-# the related pages index. If set to NO, only the current project's pages will
-# be listed.
-# The default value is: YES.
-
-EXTERNAL_PAGES         = YES
-
-# The PERL_PATH should be the absolute path and name of the perl script
-# interpreter (i.e. the result of 'which perl').
-# The default file (with absolute path) is: /usr/bin/perl.
-
-PERL_PATH              = /usr/bin/perl
-
-#---------------------------------------------------------------------------
-# Configuration options related to the dot tool
-#---------------------------------------------------------------------------
-
-# If the CLASS_DIAGRAMS tag is set to YES doxygen will generate a class diagram
-# (in HTML and LaTeX) for classes with base or super classes. Setting the tag to
-# NO turns the diagrams off. Note that this option also works with HAVE_DOT
-# disabled, but it is recommended to install and use dot, since it yields more
-# powerful graphs.
-# The default value is: YES.
-
-CLASS_DIAGRAMS         = YES
-
-# You can define message sequence charts within doxygen comments using the \msc
-# command. Doxygen will then run the mscgen tool (see:
-# http://www.mcternan.me.uk/mscgen/)) to produce the chart and insert it in the
-# documentation. The MSCGEN_PATH tag allows you to specify the directory where
-# the mscgen tool resides. If left empty the tool is assumed to be found in the
-# default search path.
-
-MSCGEN_PATH            =
-
-# You can include diagrams made with dia in doxygen documentation. Doxygen will
-# then run dia to produce the diagram and insert it in the documentation. The
-# DIA_PATH tag allows you to specify the directory where the dia binary resides.
-# If left empty dia is assumed to be found in the default search path.
-
-DIA_PATH               =
-
-# If set to YES, the inheritance and collaboration graphs will hide inheritance
-# and usage relations if the target is undocumented or is not a class.
-# The default value is: YES.
-
-HIDE_UNDOC_RELATIONS   = YES
-
-# If you set the HAVE_DOT tag to YES then doxygen will assume the dot tool is
-# available from the path. This tool is part of Graphviz (see:
-# http://www.graphviz.org/), a graph visualization toolkit from AT&T and Lucent
-# Bell Labs. The other options in this section have no effect if this option is
-# set to NO
-# The default value is: NO.
-
-HAVE_DOT               = NO
-
-# The DOT_NUM_THREADS specifies the number of dot invocations doxygen is allowed
-# to run in parallel. When set to 0 doxygen will base this on the number of
-# processors available in the system. You can set it explicitly to a value
-# larger than 0 to get control over the balance between CPU load and processing
-# speed.
-# Minimum value: 0, maximum value: 32, default value: 0.
-# This tag requires that the tag HAVE_DOT is set to YES.
-
-DOT_NUM_THREADS        = 0
-
-# When you want a differently looking font n the dot files that doxygen
-# generates you can specify the font name using DOT_FONTNAME. You need to make
-# sure dot is able to find the font, which can be done by putting it in a
-# standard location or by setting the DOTFONTPATH environment variable or by
-# setting DOT_FONTPATH to the directory containing the font.
-# The default value is: Helvetica.
-# This tag requires that the tag HAVE_DOT is set to YES.
-
-DOT_FONTNAME           = Helvetica
-
-# The DOT_FONTSIZE tag can be used to set the size (in points) of the font of
-# dot graphs.
-# Minimum value: 4, maximum value: 24, default value: 10.
-# This tag requires that the tag HAVE_DOT is set to YES.
-
-DOT_FONTSIZE           = 10
-
-# By default doxygen will tell dot to use the default font as specified with
-# DOT_FONTNAME. If you specify a different font using DOT_FONTNAME you can set
-# the path where dot can find it using this tag.
-# This tag requires that the tag HAVE_DOT is set to YES.
-
-DOT_FONTPATH           =
-
-# If the CLASS_GRAPH tag is set to YES then doxygen will generate a graph for
-# each documented class showing the direct and indirect inheritance relations.
-# Setting this tag to YES will force the CLASS_DIAGRAMS tag to NO.
-# The default value is: YES.
-# This tag requires that the tag HAVE_DOT is set to YES.
-
-CLASS_GRAPH            = YES
-
-# If the COLLABORATION_GRAPH tag is set to YES then doxygen will generate a
-# graph for each documented class showing the direct and indirect implementation
-# dependencies (inheritance, containment, and class references variables) of the
-# class with other documented classes.
-# The default value is: YES.
-# This tag requires that the tag HAVE_DOT is set to YES.
-
-COLLABORATION_GRAPH    = YES
-
-# If the GROUP_GRAPHS tag is set to YES then doxygen will generate a graph for
-# groups, showing the direct groups dependencies.
-# The default value is: YES.
-# This tag requires that the tag HAVE_DOT is set to YES.
-
-GROUP_GRAPHS           = YES
-
-# If the UML_LOOK tag is set to YES doxygen will generate inheritance and
-# collaboration diagrams in a style similar to the OMG's Unified Modeling
-# Language.
-# The default value is: NO.
-# This tag requires that the tag HAVE_DOT is set to YES.
-
-UML_LOOK               = NO
-
-# If the UML_LOOK tag is enabled, the fields and methods are shown inside the
-# class node. If there are many fields or methods and many nodes the graph may
-# become too big to be useful. The UML_LIMIT_NUM_FIELDS threshold limits the
-# number of items for each type to make the size more manageable. Set this to 0
-# for no limit. Note that the threshold may be exceeded by 50% before the limit
-# is enforced. So when you set the threshold to 10, up to 15 fields may appear,
-# but if the number exceeds 15, the total amount of fields shown is limited to
-# 10.
-# Minimum value: 0, maximum value: 100, default value: 10.
-# This tag requires that the tag HAVE_DOT is set to YES.
-
-UML_LIMIT_NUM_FIELDS   = 10
-
-# If the TEMPLATE_RELATIONS tag is set to YES then the inheritance and
-# collaboration graphs will show the relations between templates and their
-# instances.
-# The default value is: NO.
-# This tag requires that the tag HAVE_DOT is set to YES.
-
-TEMPLATE_RELATIONS     = YES
-
-# If the INCLUDE_GRAPH, ENABLE_PREPROCESSING and SEARCH_INCLUDES tags are set to
-# YES then doxygen will generate a graph for each documented file showing the
-# direct and indirect include dependencies of the file with other documented
-# files.
-# The default value is: YES.
-# This tag requires that the tag HAVE_DOT is set to YES.
-
-INCLUDE_GRAPH          = YES
-
-# If the INCLUDED_BY_GRAPH, ENABLE_PREPROCESSING and SEARCH_INCLUDES tags are
-# set to YES then doxygen will generate a graph for each documented file showing
-# the direct and indirect include dependencies of the file with other documented
-# files.
-# The default value is: YES.
-# This tag requires that the tag HAVE_DOT is set to YES.
-
-INCLUDED_BY_GRAPH      = YES
-
-# If the CALL_GRAPH tag is set to YES then doxygen will generate a call
-# dependency graph for every global function or class method.
-#
-# Note that enabling this option will significantly increase the time of a run.
-# So in most cases it will be better to enable call graphs for selected
-# functions only using the \callgraph command.
-# The default value is: NO.
-# This tag requires that the tag HAVE_DOT is set to YES.
-
-CALL_GRAPH             = NO
-
-# If the CALLER_GRAPH tag is set to YES then doxygen will generate a caller
-# dependency graph for every global function or class method.
-#
-# Note that enabling this option will significantly increase the time of a run.
-# So in most cases it will be better to enable caller graphs for selected
-# functions only using the \callergraph command.
-# The default value is: NO.
-# This tag requires that the tag HAVE_DOT is set to YES.
-
-CALLER_GRAPH           = NO
-
-# If the GRAPHICAL_HIERARCHY tag is set to YES then doxygen will graphical
-# hierarchy of all classes instead of a textual one.
-# The default value is: YES.
-# This tag requires that the tag HAVE_DOT is set to YES.
-
-GRAPHICAL_HIERARCHY    = YES
-
-# If the DIRECTORY_GRAPH tag is set to YES then doxygen will show the
-# dependencies a directory has on other directories in a graphical way. The
-# dependency relations are determined by the #include relations between the
-# files in the directories.
-# The default value is: YES.
-# This tag requires that the tag HAVE_DOT is set to YES.
-
-DIRECTORY_GRAPH        = YES
-
-# The DOT_IMAGE_FORMAT tag can be used to set the image format of the images
-# generated by dot.
-# Note: If you choose svg you need to set HTML_FILE_EXTENSION to xhtml in order
-# to make the SVG files visible in IE 9+ (other browsers do not have this
-# requirement).
-# Possible values are: png, jpg, gif and svg.
-# The default value is: png.
-# This tag requires that the tag HAVE_DOT is set to YES.
-
-DOT_IMAGE_FORMAT       = png
-
-# If DOT_IMAGE_FORMAT is set to svg, then this option can be set to YES to
-# enable generation of interactive SVG images that allow zooming and panning.
-#
-# Note that this requires a modern browser other than Internet Explorer. Tested
-# and working are Firefox, Chrome, Safari, and Opera.
-# Note: For IE 9+ you need to set HTML_FILE_EXTENSION to xhtml in order to make
-# the SVG files visible. Older versions of IE do not have SVG support.
-# The default value is: NO.
-# This tag requires that the tag HAVE_DOT is set to YES.
-
-INTERACTIVE_SVG        = NO
-
-# The DOT_PATH tag can be used to specify the path where the dot tool can be
-# found. If left blank, it is assumed the dot tool can be found in the path.
-# This tag requires that the tag HAVE_DOT is set to YES.
-
-DOT_PATH               =
-
-# The DOTFILE_DIRS tag can be used to specify one or more directories that
-# contain dot files that are included in the documentation (see the \dotfile
-# command).
-# This tag requires that the tag HAVE_DOT is set to YES.
-
-DOTFILE_DIRS           =
-
-# The MSCFILE_DIRS tag can be used to specify one or more directories that
-# contain msc files that are included in the documentation (see the \mscfile
-# command).
-
-MSCFILE_DIRS           =
-
-# The DIAFILE_DIRS tag can be used to specify one or more directories that
-# contain dia files that are included in the documentation (see the \diafile
-# command).
-
-DIAFILE_DIRS           =
-
-# The DOT_GRAPH_MAX_NODES tag can be used to set the maximum number of nodes
-# that will be shown in the graph. If the number of nodes in a graph becomes
-# larger than this value, doxygen will truncate the graph, which is visualized
-# by representing a node as a red box. Note that doxygen if the number of direct
-# children of the root node in a graph is already larger than
-# DOT_GRAPH_MAX_NODES then the graph will not be shown at all. Also note that
-# the size of a graph can be further restricted by MAX_DOT_GRAPH_DEPTH.
-# Minimum value: 0, maximum value: 10000, default value: 50.
-# This tag requires that the tag HAVE_DOT is set to YES.
-
-DOT_GRAPH_MAX_NODES    = 50
-
-# The MAX_DOT_GRAPH_DEPTH tag can be used to set the maximum depth of the graphs
-# generated by dot. A depth value of 3 means that only nodes reachable from the
-# root by following a path via at most 3 edges will be shown. Nodes that lay
-# further from the root node will be omitted. Note that setting this option to 1
-# or 2 may greatly reduce the computation time needed for large code bases. Also
-# note that the size of a graph can be further restricted by
-# DOT_GRAPH_MAX_NODES. Using a depth of 0 means no depth restriction.
-# Minimum value: 0, maximum value: 1000, default value: 0.
-# This tag requires that the tag HAVE_DOT is set to YES.
-
-MAX_DOT_GRAPH_DEPTH    = 0
-
-# Set the DOT_TRANSPARENT tag to YES to generate images with a transparent
-# background. This is disabled by default, because dot on Windows does not seem
-# to support this out of the box.
-#
-# Warning: Depending on the platform used, enabling this option may lead to
-# badly anti-aliased labels on the edges of a graph (i.e. they become hard to
-# read).
-# The default value is: NO.
-# This tag requires that the tag HAVE_DOT is set to YES.
-
-DOT_TRANSPARENT        = NO
-
-# Set the DOT_MULTI_TARGETS tag to YES allow dot to generate multiple output
-# files in one run (i.e. multiple -o and -T options on the command line). This
-# makes dot run faster, but since only newer versions of dot (>1.8.10) support
-# this, this feature is disabled by default.
-# The default value is: NO.
-# This tag requires that the tag HAVE_DOT is set to YES.
-
-DOT_MULTI_TARGETS      = NO
-
-# If the GENERATE_LEGEND tag is set to YES doxygen will generate a legend page
-# explaining the meaning of the various boxes and arrows in the dot generated
-# graphs.
-# The default value is: YES.
-# This tag requires that the tag HAVE_DOT is set to YES.
-
-GENERATE_LEGEND        = YES
-
-# If the DOT_CLEANUP tag is set to YES doxygen will remove the intermediate dot
-# files that are used to generate the various graphs.
-# The default value is: YES.
-# This tag requires that the tag HAVE_DOT is set to YES.
-
-DOT_CLEANUP            = YES
diff --git a/cpplapack-r198/.svn/pristine/46/461c1d0c5a43e90fd32bb9331e624f3f30caae24.svn-base b/cpplapack-r198/.svn/pristine/46/461c1d0c5a43e90fd32bb9331e624f3f30caae24.svn-base
deleted file mode 100644
index d4b14c0..0000000
--- a/cpplapack-r198/.svn/pristine/46/461c1d0c5a43e90fd32bb9331e624f3f30caae24.svn-base
+++ /dev/null
@@ -1,80 +0,0 @@
-//=============================================================================
-/*! dgbmatrix+_dgematrix operator */
-inline _dgematrix operator+(const dgbmatrix& matA, const _dgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<matA.m; i++){
-    const CPPL_INT jmax =std::min(matA.n,i+matA.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matA.kl); j<jmax; j++){
-      matB(i,j) += matA(i,j);
-    }
-  }
-  
-  return matB;
-}
-
-//=============================================================================
-/*! dgbmatrix-_dgematrix operator */
-inline _dgematrix operator-(const dgbmatrix& matA, const _dgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //// change sign ////
-  for(CPPL_INT i=0; i<matB.m*matB.n; i++){
-    matB.array[i]=-matB.array[i];
-  }
-  
-  //// add ////
-  for(CPPL_INT i=0; i<matA.m; i++){
-    const CPPL_INT jmax =std::min(matA.n,i+matA.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matA.kl); j<jmax; j++){
-      matB(i,j) += matA(i,j);
-    }
-  }
-  
-  return matB;
-}
-
-//=============================================================================
-/*! dgbmatrix*_dgematrix operator */
-inline _dgematrix operator*(const dgbmatrix& matA, const _dgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat( matA.m, matB.n );
-  newmat.zero();
-  
-  for(CPPL_INT i=0; i<newmat.m; i++){
-    for(CPPL_INT j=0; j<newmat.n; j++){
-      const CPPL_INT kmax =std::min(matA.n,i+matA.ku+1);
-      for(CPPL_INT k=std::max(CPPL_INT(0),i-matA.kl); k<kmax; k++){
-        newmat(i,j) += matA(i,k)*matB(k,j);
-      }
-    }
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/46/462fe16912fca201c13c6938ed37544d50dc2870.svn-base b/cpplapack-r198/.svn/pristine/46/462fe16912fca201c13c6938ed37544d50dc2870.svn-base
deleted file mode 100644
index 03f1628..0000000
--- a/cpplapack-r198/.svn/pristine/46/462fe16912fca201c13c6938ed37544d50dc2870.svn-base
+++ /dev/null
@@ -1,18 +0,0 @@
-//=============================================================================
-/*! +_dssmatrix operator */
-inline const _dssmatrix& operator+(const _dssmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  return mat;
-}
-
-//=============================================================================
-/*! -_dssmatrix operator */
-inline _dssmatrix operator-(const _dssmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  const std::vector<dcomponent>::iterator mat_data_end =mat.data.end();
-  for(std::vector<dcomponent>::iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    it->v =-it->v;
-  }
-  
-  return mat;
-}
diff --git a/cpplapack-r198/.svn/pristine/46/46717a2d929ed4fe4d142a7191d202f9bad83660.svn-base b/cpplapack-r198/.svn/pristine/46/46717a2d929ed4fe4d142a7191d202f9bad83660.svn-base
deleted file mode 100644
index 0e64d61..0000000
--- a/cpplapack-r198/.svn/pristine/46/46717a2d929ed4fe4d142a7191d202f9bad83660.svn-base
+++ /dev/null
@@ -1,80 +0,0 @@
-//=============================================================================
-/*! _zgbmatrix+zgematrix operator */
-inline _zgematrix operator+(const _zgbmatrix& matA, const zgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(matB);
-  
-  for(CPPL_INT i=0; i<matA.m; i++){
-    const CPPL_INT jmax =std::min(matA.n,i+matA.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matA.kl); j<jmax; j++){
-      newmat(i,j) += matA(i,j);
-    }
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _zgbmatrix-zgematrix operator */
-inline _zgematrix operator-(const _zgbmatrix& matA, const zgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(-matB);
-  
-  for(CPPL_INT i=0; i<matA.m; i++){
-    const CPPL_INT jmax =std::min(matA.n,i+matA.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matA.kl); j<jmax; j++){
-      newmat(i,j) += matA(i,j);
-    }
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _zgbmatrix*zgematrix operator */
-inline _zgematrix operator*(const _zgbmatrix& matA, const zgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat( matA.m, matB.n );
-  newmat.zero();
-  
-  for(CPPL_INT i=0; i<newmat.m; i++){
-    for(CPPL_INT j=0; j<newmat.n; j++){
-      const CPPL_INT kmax =std::min(matA.n,i+matA.ku+1);
-      for(CPPL_INT k=std::max(CPPL_INT(0),i-matA.kl); k<kmax; k++){
-        newmat(i,j) += matA(i,k)*matB(k,j);
-      }
-    }
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/47/47a0a8ff3421ec3b941b1a02477473f8a38dd937.svn-base b/cpplapack-r198/.svn/pristine/47/47a0a8ff3421ec3b941b1a02477473f8a38dd937.svn-base
deleted file mode 100644
index e0b5507..0000000
--- a/cpplapack-r198/.svn/pristine/47/47a0a8ff3421ec3b941b1a02477473f8a38dd937.svn-base
+++ /dev/null
@@ -1,160 +0,0 @@
-//=============================================================================
-/*! operator() for non-const object */
-inline zhecomplex zhematrix::operator()(const CPPL_INT& i, const CPPL_INT& j)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || j<0 || n<=i || n<=j ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the matrix size." << std::endl
-              << "Your input is (" << i << "," << j << "), whereas the matrix size is " << n << "x" << n << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  if(i>=j){ return zhecomplex(i,j, darray[j][i]); }
-  else    { return zhecomplex(i,j, darray[i][j]); }
-}
-
-//=============================================================================
-/*! operator() for const object */
-inline comple zhematrix::operator()(const CPPL_INT& i, const CPPL_INT& j) const
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || j<0 || n<=i || n<=j ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the matrix size." << std::endl
-              << "Your input is (" << i << "," << j << "), whereas the matrix size is " << n << "x" << n << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  if(i>=j){ return darray[j][i]; }
-  else    { return std::conj(darray[i][j]); }
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! set value for const object */
-inline zhematrix& zhematrix::set(const CPPL_INT& i, const CPPL_INT& j, const comple& v)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || j<0 || n<=i || n<=j ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the matrix size." << std::endl
-              << "Your input is (" << i << "," << j << "), whereas the matrix size is " << n << "x" << n << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //if(i>=j){ array[i+n*j] = v; }
-  //else{ array[j+n*i] = std::conj(v); }
-  if(i>=j){ darray[j][i] = v; }
-  else{ darray[i][j] = std::conj(v); }
-  
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-inline std::ostream& operator<<(std::ostream& s, const zhematrix& mat)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<mat.n; i++){
-    for(CPPL_INT j=0; j<mat.n; j++){ 
-      if(i>j){ s << " " << mat(i,j) << " "; }
-      else if(i==j){ s << " " << std::real(mat(i,i)) << " "; }
-      else{ s << "{" << std::conj(mat(j,i)) << "} "; }
-    }
-    s << std::endl;
-    
-#ifdef  CPPL_DEBUG
-    if(std::fabs(std::imag(mat(i,i))) > DBL_MIN){
-      WARNING_REPORT;
-      std::cerr << "The " << i << "th diagonal component of the zhematrix is not a real number." << std::endl;
-    }
-#endif//CPPL_DEBUG
-  }
-  
-  return s;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-inline void zhematrix::write(const char* filename) const
-{CPPL_VERBOSE_REPORT;
-  std::ofstream ofs(filename, std::ios::trunc);
-  ofs.setf(std::cout.flags());
-  ofs.precision(std::cout.precision());
-  ofs.width(std::cout.width());
-  ofs.fill(std::cout.fill());
-  
-  ofs << "#zhematrix " << n << std::endl;
-  for(CPPL_INT i=0; i<n; i++){
-    for(CPPL_INT j=0; j<=i; j++ ){
-      ofs << operator()(i,j) << " ";
-    }
-    ofs << std::endl;
-
-#ifdef  CPPL_DEBUG
-    if(std::fabs(std::imag(operator()(i,i))) > DBL_MIN){
-      WARNING_REPORT;
-      std::cerr << "The " << i << "th diagonal component of the zhematrix is not a real number." << std::endl;
-    }
-#endif//CPPL_DEBUG
-  }
-  
-  ofs.close();
-}
-
-//=============================================================================
-inline void zhematrix::read(const char* filename)
-{CPPL_VERBOSE_REPORT;
-  std::ifstream s(filename);
-  if(!s){
-    ERROR_REPORT;
-    std::cerr << "The file \"" << filename << "\" can not be opened." << std::endl;
-    exit(1);
-  }
-
-  std::string id;
-  s >> id;
-  if( id != "zhematrix" && id != "#zhematrix" ){
-    ERROR_REPORT;
-    std::cerr << "The type name of the file \"" << filename << "\" is not zhematrix." << std::endl
-              << "Its type name was " << id << " ." << std::endl;
-    exit(1);
-  }
-  
-  s >> n;
-  resize(n);
-  for(CPPL_INT i=0; i<n; i++){
-    for(CPPL_INT j=0; j<=i; j++ ){
-      s >> darray[j][i];
-      //s >> operator()(i,j); //NG
-    }
-  }
-  if(s.eof()){
-    ERROR_REPORT;
-    std::cerr << "There is something is wrong with the file \"" << filename << "\"." << std::endl
-              << "Most likely, there is not enough data components, or a linefeed code or space code is missing at the end of the last line." << std::endl;
-    exit(1);
-  }
-  
-  s >> id;
-  if(!s.eof()){
-    ERROR_REPORT;
-    std::cerr << "There is something is wrong with the file \"" << filename << "\"." << std::endl
-              << "Most likely, there are extra data components." << std::endl;
-    exit(1);
-  }
-  
-  s.close();
-}
diff --git a/cpplapack-r198/.svn/pristine/48/482fd6b861ded5e86d772e39e7d4aeb1af1ba41f.svn-base b/cpplapack-r198/.svn/pristine/48/482fd6b861ded5e86d772e39e7d4aeb1af1ba41f.svn-base
deleted file mode 100644
index 28c8e39..0000000
--- a/cpplapack-r198/.svn/pristine/48/482fd6b861ded5e86d772e39e7d4aeb1af1ba41f.svn-base
+++ /dev/null
@@ -1,134 +0,0 @@
-//=============================================================================
-/*! _dgbmatrix+_dgbmatrix operator */
-inline _dgbmatrix operator+(const _dgbmatrix& matA, const _dgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  if(matA.kl>matB.kl && matA.ku>matB.ku){
-    for(CPPL_INT i=0; i<matB.m; i++){
-      const CPPL_INT jmax =std::min(matB.n,i+matB.ku+1);
-      for(CPPL_INT j=std::max(CPPL_INT(0),i-matB.kl); j<jmax; j++){
-        matA(i,j) += matB(i,j);
-      }
-    }
-    
-    matB.destroy();
-    return matA;
-  }
-
-  else if(matB.kl>matA.kl && matB.ku>matA.ku){
-    for(CPPL_INT i=0; i<matA.m; i++){
-      const CPPL_INT jmax =std::min(matA.n,i+matA.ku+1);
-      for(CPPL_INT j=std::max(CPPL_INT(0),i-matA.kl); j<jmax; j++){
-        matB(i,j) += matA(i,j);
-      }
-    }
-    
-    matA.destroy();
-    return matB;
-  }
-  
-  else{
-    dgbmatrix newmat(matA.m,matA.n,std::max(matA.kl,matB.kl),std::max(matA.ku,matB.ku));
-    newmat.zero();
-    
-    for(CPPL_INT i=0; i<matA.m; i++){
-      const CPPL_INT jmax1 =std::min(matA.n,i+matA.ku+1);
-      for(CPPL_INT j=std::max(CPPL_INT(0),i-matA.kl); j<jmax1; j++){
-        newmat(i,j) += matA(i,j);
-      }
-      const CPPL_INT jmax2 =std::min(matB.n,i+matB.ku+1);
-      for(CPPL_INT j=std::max(CPPL_INT(0),i-matB.kl); j<jmax2; j++){
-        newmat(i,j) += matB(i,j);
-      }
-    }
-    
-    matA.destroy();
-    matB.destroy();
-    return _(newmat);
-  }
-}
-
-//=============================================================================
-/*! _dgbmatrix-_dgbmatrix operator */
-inline _dgbmatrix operator-(const _dgbmatrix& matA, const _dgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") - (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  if(matA.kl>matB.kl && matA.ku>matB.ku){
-    for(CPPL_INT i=0; i<matB.m; i++){
-      const CPPL_INT jmax =std::min(matB.n,i+matB.ku+1);
-      for(CPPL_INT j=std::max(CPPL_INT(0),i-matB.kl); j<jmax; j++){
-        matA(i,j) -= matB(i,j);
-      }
-    }
-    
-    matB.destroy();
-    return matA;
-  }
-  
-  else{
-    dgbmatrix newmat(matA.m,matA.n,std::max(matA.kl,matB.kl),std::max(matA.ku,matB.ku));
-    newmat.zero();
-    
-    for(CPPL_INT i=0; i<matA.m; i++){
-      const CPPL_INT jmax1 =std::min(matA.n,i+matA.ku+1);
-      for(CPPL_INT j=std::max(CPPL_INT(0),i-matA.kl); j<jmax1; j++){
-        newmat(i,j) += matA(i,j);
-      }
-      const CPPL_INT jmax2 =std::min(matB.n,i+matB.ku+1);
-      for(CPPL_INT j=std::max(CPPL_INT(0),i-matB.kl); j<jmax2; j++){
-        newmat(i,j) -= matB(i,j);
-      }
-    }
-    
-    matA.destroy();
-    matB.destroy();
-    return _(newmat);
-  }
-}
-
-//=============================================================================
-/*! _dgbmatrix*_dgbmatrix operator */
-inline _dgbmatrix operator*(const _dgbmatrix& matA, const _dgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgbmatrix newmat( matA.m, matB.n, std::min(matA.kl+matB.kl,matA.m-1), std::min(matA.ku+matB.ku,matB.n-1) );
-  newmat.zero();
-  
-  for(CPPL_INT i=0; i<newmat.m; i++){
-    const CPPL_INT jmax =std::min(newmat.n,i+newmat.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-newmat.kl); j<jmax; j++){
-      const CPPL_INT kmax =std::min( std::min(matA.n,i+matA.ku+1), std::min(matB.m,j+matB.kl+1) );
-      for(CPPL_INT k=std::max( std::max(CPPL_INT(0),i-matA.kl), std::max(CPPL_INT(0),j-matB.ku) ); k<kmax; k++){
-        newmat(i,j) += matA(i,k)*matB(k,j);
-      }
-    }
-  }
-  
-  matA.destroy();
-  matB.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/48/486304223ba3dec74418b08c6ca1262dbc6b2917.svn-base b/cpplapack-r198/.svn/pristine/48/486304223ba3dec74418b08c6ca1262dbc6b2917.svn-base
deleted file mode 100644
index d4dc605..0000000
--- a/cpplapack-r198/.svn/pristine/48/486304223ba3dec74418b08c6ca1262dbc6b2917.svn-base
+++ /dev/null
@@ -1,77 +0,0 @@
-//=============================================================================
-/*! _dssmatrix+_dgematrix operator */
-/*
-inline _dgematrix operator+(const _dssmatrix& matA, const _dgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT c=0; c<matA.vol; c++){
-    matB(matA.indx[c],matA.jndx[c]) += matA.array[c];
-  }
-  
-  matA.destroy();
-  return matB;
-}
-*/
-//=============================================================================
-/*! _dssmatrix-_dgematrix operator */
-/*
-inline _dgematrix operator-(const _dssmatrix& matA, const _dgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") - (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //// change sign ////
-  for(int i=0; i<matB.m*matB.n; i++){
-    matB.array[i] = -matB.array[i];
-  }
-  
-  for(CPPL_INT c=0; c<matA.vol; c++){
-    matB(matA.indx[c],matA.jndx[c]) += matA.array[c];
-  }
-  
-  matA.destroy();
-  return matB;
-}
-*/
-//=============================================================================
-/*! _dssmatrix*_dgematrix operator */
-/*
-inline _dgematrix operator*(const _dssmatrix& matA, const _dgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat(matA.m, matB.n);
-  newmat.zero();
-  
-  for(CPPL_INT c=0; c<matA.vol; c++){
-    for(CPPL_INT j=0; j<matB.n; j++){
-      newmat(matA.indx[c],j) += matA.array[c]*matB(matA.jndx[c],j);
-    }
-  }
-  
-  matA.destroy();
-  matB.destroy();
-  return _(newmat);
-}
-*/
diff --git a/cpplapack-r198/.svn/pristine/48/48afe1a0bb4768b3fe13c320e245befdcd5e9c7f.svn-base b/cpplapack-r198/.svn/pristine/48/48afe1a0bb4768b3fe13c320e245befdcd5e9c7f.svn-base
deleted file mode 100644
index c196e96..0000000
--- a/cpplapack-r198/.svn/pristine/48/48afe1a0bb4768b3fe13c320e245befdcd5e9c7f.svn-base
+++ /dev/null
@@ -1,46 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int M(4), N(3);
-  
-  CPPL::zgematrix A(M,N);
-  for(int i=0; i<A.m; i++){ for(int j=0; j<A.n; j++){
-    A(i,j) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-  }}
-  
-  cout << "A =\n" << A << endl;
-  cout << "A*(1,0) =\n" << A*complex<double>(1.,0.) << endl;
-  cout << "A*(0,1) =\n" << A*complex<double>(0.,1.) << endl;
-  cout << "A/(1,0) =\n" << A/complex<double>(1.,0.) << endl;
-  cout << "A/(0,1) =\n" << A/complex<double>(0.,1.) << endl;
-  
-  cout << "#### A*=(1,0); ####" << endl;
-  A*=complex<double>(1.,0.);
-  cout << "A =\n" << A << endl;
-  cout << "#### A*=(0,1); ####" << endl;
-  A*=complex<double>(0.,1.);
-  cout << "A =\n" << A << endl;
-  cout << "#### A/=(1,0); ####" << endl;
-  A/=complex<double>(1.,0.);
-  cout << "A =\n" << A << endl;
-  cout << "#### A/=(0,1); ####" << endl;
-  A/=complex<double>(0.,1.);
-  cout << "A =\n" << A << endl;
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/48/48b9811fe89abc41198a534ddd97366081db1059.svn-base b/cpplapack-r198/.svn/pristine/48/48b9811fe89abc41198a534ddd97366081db1059.svn-base
deleted file mode 100644
index 89f69dd..0000000
--- a/cpplapack-r198/.svn/pristine/48/48b9811fe89abc41198a534ddd97366081db1059.svn-base
+++ /dev/null
@@ -1,81 +0,0 @@
-//=============================================================================
-/*! operator() for object */
-inline zhecomplex _zhematrix::operator()(const CPPL_INT& i, const CPPL_INT& j) const
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || j<0 || n<=i || n<=j ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the matrix size." << std::endl
-              << "Your input is (" << i << "," << j << "), whereas the matrix size is (" << n << "," << n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  if(i>=j){ return zhecomplex(i,j, darray[j][i]); }
-  else    { return zhecomplex(i,j, darray[i][j]); }
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-inline std::ostream& operator<<(std::ostream& s, const _zhematrix& mat)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<mat.n; i++){
-    for(CPPL_INT j=0; j<mat.n; j++){
-      if(i>j){
-        s << " " << mat(i,j) << " ";
-      }
-      else if(i==j){
-        s << " " << std::real(mat(i,i)) << " ";
-      }
-      else{
-        s << "{" << std::conj(mat.darray[i][j]) << "} ";
-      }
-    }
-    s << std::endl;
-    
-#ifdef  CPPL_DEBUG
-    if(std::fabs(std::imag(mat(i,i))) > DBL_MIN){
-      WARNING_REPORT;
-      std::cerr << "The " << i << "th diagonal component of the zhematrix is not a real number." << std::endl;
-    }
-#endif//CPPL_DEBUG
-  }
-  
-  mat.destroy();
-  return s;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-inline void _zhematrix::write(const char* filename) const
-{CPPL_VERBOSE_REPORT;
-  std::ofstream ofs(filename, std::ios::trunc);
-  ofs.setf(std::cout.flags());
-  ofs.precision(std::cout.precision());
-  ofs.width(std::cout.width());
-  ofs.fill(std::cout.fill());
-  
-  ofs << "#zhematrix " << n << std::endl;
-  for(CPPL_INT i=0; i<n; i++){
-    for(CPPL_INT j=0; j<=i; j++ ){
-      ofs << operator()(i,j) << " ";
-    }
-    ofs << std::endl;
-    
-#ifdef  CPPL_DEBUG
-    if(std::fabs(std::imag(operator()(i,i))) > DBL_MIN){
-      WARNING_REPORT;
-      std::cerr << "The " << i << "th diagonal component of the zhematrix is not a real number." << std::endl;
-    }
-#endif//CPPL_DEBUG
-  }
-  
-  ofs.close();
-  destroy();
-}
diff --git a/cpplapack-r198/.svn/pristine/49/49c4e5b1614f0ad0891f479c3b2ceef9d248e109.svn-base b/cpplapack-r198/.svn/pristine/49/49c4e5b1614f0ad0891f479c3b2ceef9d248e109.svn-base
deleted file mode 100644
index 7160d6e..0000000
--- a/cpplapack-r198/.svn/pristine/49/49c4e5b1614f0ad0891f479c3b2ceef9d248e109.svn-base
+++ /dev/null
@@ -1,50 +0,0 @@
-//=============================================================================
-/*! convert to _zgematrix */
-inline _zgematrix _zhsmatrix::to_zgematrix() const
-{CPPL_VERBOSE_REPORT;
-  zgematrix newmat( zgematrix(m,n).zero() );
-  
-  const std::vector<zcomponent>::const_iterator data_end =data.end();
-  for(std::vector<zcomponent>::const_iterator it=data.begin(); it!=data_end; it++){
-    newmat(it->i, it->j) =it->v;
-    newmat(it->j, it->i) =std::conj(it->v);
-  }
-  
-  destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! convert to _zhematrix */
-inline _zhematrix _zhsmatrix::to_zhematrix() const
-{CPPL_VERBOSE_REPORT;
-  zhematrix newmat(n);
-  newmat.zero();
-  
-  const std::vector<zcomponent>::const_iterator data_end =data.end();
-  for(std::vector<zcomponent>::const_iterator it=data.begin(); it!=data_end; it++){
-    newmat(it->i, it->j) =it->v;
-  }
-
-  destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! convert to _zgsmatrix */
-inline _zgsmatrix _zhsmatrix::to_zgsmatrix() const
-{CPPL_VERBOSE_REPORT;
-  zgsmatrix newmat(m,n);
-  newmat.zero();
-  
-  const std::vector<zcomponent>::const_iterator data_end =data.end();
-  for(std::vector<zcomponent>::const_iterator it=data.begin(); it!=data_end; it++){
-    newmat.put(it->i, it->j, it->v);
-    if(it->i!=it->j){
-      newmat.put(it->j, it->i, std::conj(it->v));
-    }
-  }
-  
-  destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/49/49cebd584108eb8fb71ed97700adc900d766b47a.svn-base b/cpplapack-r198/.svn/pristine/49/49cebd584108eb8fb71ed97700adc900d766b47a.svn-base
deleted file mode 100644
index 85680ab..0000000
--- a/cpplapack-r198/.svn/pristine/49/49cebd584108eb8fb71ed97700adc900d766b47a.svn-base
+++ /dev/null
@@ -1,24 +0,0 @@
-//=============================================================================
-/*! dgsmatrix*_dcovector operator */
-inline _dcovector operator*(const dgsmatrix& mat, const _dcovector& vec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(mat.n!=vec.l){
-    ERROR_REPORT;
-    std::cerr << "These matrix and vector can not make a product." << std::endl
-              << "Your input was (" << mat.m << "x" << mat.n << ") * (" << vec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dcovector newvec(mat.m);
-  newvec.zero();
-  
-  const std::vector<dcomponent>::const_iterator mat_data_end =mat.data.end();
-  for(std::vector<dcomponent>::const_iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    newvec(it->i) += it->v * vec(it->j);
-  }
-  
-  vec.destroy();
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/4a/4a7eef395e65c203ff59b76bccdddd3d7fef50fa.svn-base b/cpplapack-r198/.svn/pristine/4a/4a7eef395e65c203ff59b76bccdddd3d7fef50fa.svn-base
deleted file mode 100644
index 45f97a3..0000000
--- a/cpplapack-r198/.svn/pristine/4a/4a7eef395e65c203ff59b76bccdddd3d7fef50fa.svn-base
+++ /dev/null
@@ -1,70 +0,0 @@
-//=============================================================================
-/*! operator() for const object */
-inline double _dgsmatrix::operator()(const CPPL_INT& i, const CPPL_INT& j) const
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || j<0 || m<=i || n<=j ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the matrix size." << std::endl
-              << "Your input is (" << i << "," << j << "), whereas the matrix size is (" << m << "," << n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //////// search (i,j) component ////////
-  const std::vector<CPPL_INT>::iterator rows_i_end =rows[i].end();
-  for(std::vector<CPPL_INT>::iterator p=rows[i].begin(); p!=rows_i_end; p++){
-    if(data[*p].j==j){ return data[*p].v; }
-  }
-  
-  //////// (i,j) component was not found ////////
-  return 0.0;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-inline std::ostream& operator<<(std::ostream& s, const _dgsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<mat.m; i++){
-    for(CPPL_INT j=0; j<mat.n; j++){
-      std::vector<CPPL_INT>::iterator q;
-      const std::vector<CPPL_INT>::iterator mat_rows_i_end =mat.rows[i].end();
-      for(q=mat.rows[i].begin(); q!=mat_rows_i_end; q++){
-        if(mat.data[*q].j==j){ break; }
-      }
-      if(q!=mat_rows_i_end){ s << " " << mat.data[*q].v; }
-      else{ s << " x"; }
-    }
-    s << std::endl;
-  }
-  
-  mat.destroy();
-  return s;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-inline void _dgsmatrix::write(const char* filename) const
-{CPPL_VERBOSE_REPORT;
-  std::ofstream ofs(filename, std::ios::trunc);
-  ofs.setf(std::cout.flags());
-  ofs.precision(std::cout.precision());
-  ofs.width(std::cout.width());
-  ofs.fill(std::cout.fill());
-  
-  ofs << "#dgsmatrix " << m << " " << n << " " << data.size() << std::endl;
-  
-  const std::vector<dcomponent>::const_iterator data_end =data.end();
-  for(std::vector<dcomponent>::const_iterator it=data.begin(); it!=data_end; it++){
-    ofs << it->i << " " << it->j << " " << it->v << std::endl;
-  }
-  
-  ofs.close();
-  destroy();
-}
diff --git a/cpplapack-r198/.svn/pristine/4a/4a98f63a75511be1f18e0f7e11cfa5b428ec4714.svn-base b/cpplapack-r198/.svn/pristine/4a/4a98f63a75511be1f18e0f7e11cfa5b428ec4714.svn-base
deleted file mode 100644
index 06c219c..0000000
--- a/cpplapack-r198/.svn/pristine/4a/4a98f63a75511be1f18e0f7e11cfa5b428ec4714.svn-base
+++ /dev/null
@@ -1,15 +0,0 @@
-//=============================================================================
-/*! nullify all the vector data */
-inline void _zrovector::nullify() const
-{CPPL_VERBOSE_REPORT;
-  l=0;
-  array=NULL;
-}
-
-//=============================================================================
-/*! destroy all the vector data */
-inline void _zrovector::destroy() const
-{CPPL_VERBOSE_REPORT;
-  delete [] array;
-  array=NULL;
-}
diff --git a/cpplapack-r198/.svn/pristine/4a/4ae8a24ec3579c7a9465a25693aeb00804558260.svn-base b/cpplapack-r198/.svn/pristine/4a/4ae8a24ec3579c7a9465a25693aeb00804558260.svn-base
deleted file mode 100644
index 26174d0..0000000
--- a/cpplapack-r198/.svn/pristine/4a/4ae8a24ec3579c7a9465a25693aeb00804558260.svn-base
+++ /dev/null
@@ -1,11 +0,0 @@
-//=============================================================================
-/*! dcovector*drovector operator */
-inline _dgematrix operator*(const dcovector& covec, const drovector& rovec)
-{CPPL_VERBOSE_REPORT;
-  dgematrix newmat(covec.l, rovec.l);
-  for(CPPL_INT i=0; i<newmat.m; i++){ for(CPPL_INT j=0; j<newmat.n; j++){
-    newmat(i,j) =covec(i)*rovec(j);
-  }}
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/4a/4ae8ca06c3bde2f03c2ea710c0d453397575d036.svn-base b/cpplapack-r198/.svn/pristine/4a/4ae8ca06c3bde2f03c2ea710c0d453397575d036.svn-base
deleted file mode 100644
index 6410a6d..0000000
--- a/cpplapack-r198/.svn/pristine/4a/4ae8ca06c3bde2f03c2ea710c0d453397575d036.svn-base
+++ /dev/null
@@ -1,32 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int N(3);
-  
-  CPPL::dsymatrix A(N);
-  for(int i=0; i<A.n; i++){ for(int j=0; j<=i; j++){
-    A(i,j) =double( rand() /(RAND_MAX/10) );
-  }}
-  
-  cout << "A =\n" << A << endl;
-  cout << "+A =\n" << +A << endl;
-  cout << "-A =\n" << -A << endl;
-  cout << "A =\n" << A << endl;
-
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/4a/4aefc31a2062cde38a17782495e8ae80999b084c.svn-base b/cpplapack-r198/.svn/pristine/4a/4aefc31a2062cde38a17782495e8ae80999b084c.svn-base
deleted file mode 100644
index a0d4f5c..0000000
--- a/cpplapack-r198/.svn/pristine/4a/4aefc31a2062cde38a17782495e8ae80999b084c.svn-base
+++ /dev/null
@@ -1,72 +0,0 @@
-//=============================================================================
-/*! zcovector constructor */
-inline zcovector::zcovector()
-{CPPL_VERBOSE_REPORT;
-  //////// initialize ////////
-  l =0;
-  array =NULL;
-}
-
-//=============================================================================
-/*! zcovector copy constructor */
-inline zcovector::zcovector(const zcovector& vec)
-{CPPL_VERBOSE_REPORT;
-  //////// initialize ////////
-  l =vec.l;
-  array =new comple[l];
-  
-  //////// copy ////////
-  CPPL_INT inc =1;
-  zcopy_(&l, vec.array, &inc, array, &inc);
-}
-
-//=============================================================================
-/*! zcovector constructor to cast _zcovector */
-inline zcovector::zcovector(const _zcovector& vec)
-{CPPL_VERBOSE_REPORT;
-  //////// initialize ////////
-  l =vec.l;
-  array =vec.array;
-  
-  vec.nullify();
-}
-
-//=============================================================================
-/*! zcovector constructor with size specification */
-inline zcovector::zcovector(const CPPL_INT& _l)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( _l<0 ){
-    ERROR_REPORT;
-    std::cerr << "Vector size must be positive integers. " << std::endl
-              << "Your input was (" << _l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //////// initialize ////////
-  l =_l;
-  array =new comple[l];
-}
-
-//=============================================================================
-/*! zcovector constructor with filename */
-inline zcovector::zcovector(const char* filename)
-{CPPL_VERBOSE_REPORT;
-  array =NULL;
-  
-  //// copy ////
-  read(filename);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zcovector destructor */
-inline zcovector::~zcovector()
-{CPPL_VERBOSE_REPORT;
-  //////// delete array ////////
-  delete [] array;
-}
diff --git a/cpplapack-r198/.svn/pristine/4b/4b4f304cb1b3ec095ef8b25284e53eb987d9a0d4.svn-base b/cpplapack-r198/.svn/pristine/4b/4b4f304cb1b3ec095ef8b25284e53eb987d9a0d4.svn-base
deleted file mode 100644
index 258e4a7..0000000
--- a/cpplapack-r198/.svn/pristine/4b/4b4f304cb1b3ec095ef8b25284e53eb987d9a0d4.svn-base
+++ /dev/null
@@ -1,69 +0,0 @@
-//=============================================================================
-/*! _zgematrix+_zgematrix operator */
-inline _zgematrix operator+(const _zgematrix& matA, const _zgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  const CPPL_INT size =matA.m*matA.n;
-  for(CPPL_INT i=0; i<size; i++){
-    matA.array[i] += matB.array[i];
-  }
-
-  matB.destroy();
-  return matA;
-}
-
-//=============================================================================
-/*! _zgematrix-_zgematrix operator */
-inline _zgematrix operator-(const _zgematrix& matA, const _zgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") - (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  const CPPL_INT size =matA.m*matA.n;
-  for(CPPL_INT i=0; i<size; i++){
-    matA.array[i]-=matB.array[i];
-  }
-  
-  matB.destroy();
-  return matA;
-}
-
-//=============================================================================
-/*! _zgematrix*_zgematrix operator */
-inline _zgematrix operator*(const _zgematrix& matA, const _zgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat( matA.m, matB.n );
-  char transa ='n';
-  char transb ='n';
-  comple alpha =comple(1.,0.);
-  comple beta =comple(0.,0.);
-
-  zgemm_( &transa, &transb, &matA.m, &matB.n, &matA.n, &alpha, matA.array, &matA.m, matB.array, &matB.m, &beta, newmat.array, &matA.m );
-  
-  matA.destroy();
-  matB.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/4b/4b5c339c8588258822ff402edce2e4922bee1f02.svn-base b/cpplapack-r198/.svn/pristine/4b/4b5c339c8588258822ff402edce2e4922bee1f02.svn-base
deleted file mode 100644
index d5b79b5..0000000
--- a/cpplapack-r198/.svn/pristine/4b/4b5c339c8588258822ff402edce2e4922bee1f02.svn-base
+++ /dev/null
@@ -1,26 +0,0 @@
-//=============================================================================
-/*! _zhematrix*comple operator */
-inline _zgematrix operator*(const _zhematrix& mat, const comple& d)
-{CPPL_VERBOSE_REPORT;
-  zgematrix newmat =mat.to_zgematrix();
-  
-  CPPL_INT size =mat.n*mat.n;
-  CPPL_INT inc =1;
-  zscal_(&size, &d, newmat.array, &inc);
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! zhematrix/comple operator */
-inline _zgematrix operator/(const _zhematrix& mat, const comple& d)
-{CPPL_VERBOSE_REPORT;
-  zgematrix newmat =mat.to_zgematrix();
-  
-  CPPL_INT size =mat.n*mat.n;
-  comple dinv =1./d;
-  CPPL_INT inc =1;
-  zscal_(&size, &dinv, newmat.array, &inc);
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/4b/4b8eacc13cf55890f9c0933b02825aab21a7c71a.svn-base b/cpplapack-r198/.svn/pristine/4b/4b8eacc13cf55890f9c0933b02825aab21a7c71a.svn-base
deleted file mode 100644
index 724ae5f..0000000
--- a/cpplapack-r198/.svn/pristine/4b/4b8eacc13cf55890f9c0933b02825aab21a7c71a.svn-base
+++ /dev/null
@@ -1,51 +0,0 @@
-###############################################################################
-##                                 Makefile                                  ##
-###############################################################################
-
-CXX = g++
-
-######## FLAGS ########
-FLAGS += -O3 -funroll-loops -ffast-math #-mfpmath=sse
-FLAGS += -fomit-frame-pointer #-ftree-vectorizer-verbose=5
-#FLAGS = -march=core2 -msse4.1
-FLAGS += -std=c++0x # -std=c++98 #
-##FLAGS += -fprefetch-loop-arrays -fforce-addr -march=pentium4 -ftree-vectorize -funsafe-loop-optimizations -Wunsafe-loop-optimizations
-##FLAGS += -malign-double
-#FLAGS += -fopenmp
-
-######## LFLAGS ########
-LFLAGS = $(FLAGS)
-#LFLAGS += -static
-
-######## CFLAGS ########
-CFLAGS = $(FLAGS)
-##CFLAGS += --param large-function-growth=99999 --param max-inline-insns-single=99999 --param inline-unit-growth=99999 -Winline
-####CFLAGS += -fimplement-inlines -finline-limit=0 --param large-function-growth=0 --param max-inline-insns-single=0 --param inline-unit-growth=0
-CFLAGS += -Wall -Wno-unknown-pragmas -Wextra -ftree-vectorizer-verbose=0
-
-######## others ########
-INCLUDE_DIRS = -I./  -I$(HOME)/local/cpplapack/include $(shell Magick++-config --cppflags)
-LIB_DIRS = $(shell Magick++-config --ldflags)
-#LIBS = /usr/lib/sse2/liblapack.a /usr/lib/sse2/libblas.a -lm -lgfortran
-LIBS = -llapack -lblas -lm -lgfortran
-LIBS += -lboost_filesystem $(shell Magick++-config --libs)
-MACROS = -DCPPL_SECTOR_SIZE=1000000
-
-#############################
-######### profiling #########
-#############################
-#CFLAGS += -pg #-g
-#LFLAGS += -pg #-g
-#LIBS = $(HOME)/opt/lapack-3.1.1/lapack_gprof.a $(HOME)/opt/lapack-3.1.1/blas_gprof.a -lm -lgfortran
-#LIBS = $(HOME)/opt/lapack-3.1.1/lapack_gprof.a $(HOME)/opt/lapack-3.1.1/blas_gprof.a $(HOME)/opt/STLport-5.1.3/lib/libstlport_gprof.a -lm -lgfortran
-
-#############################
-######### debugging #########
-#############################
-ifdef DEBUG
-FLAGS = -g -O0
-CFLAGS = $(FLAGS) -Wall -Wno-unknown-pragmas -Wextra -fstack-protector-all -fbounds-check
-LFLAGS = $(FLAGS)
-##LIBS += -lefence
-MACROS = -DCPPL_DEBUG ####-DCPPL_VERBOSE
-endif
diff --git a/cpplapack-r198/.svn/pristine/4b/4bc5cde01a91d73a08238b59103614f660c6fa6a.svn-base b/cpplapack-r198/.svn/pristine/4b/4bc5cde01a91d73a08238b59103614f660c6fa6a.svn-base
deleted file mode 100644
index cc3c944..0000000
--- a/cpplapack-r198/.svn/pristine/4b/4bc5cde01a91d73a08238b59103614f660c6fa6a.svn-base
+++ /dev/null
@@ -1,37 +0,0 @@
-//=============================================================================
-/*! return a transposed row vector */
-inline _drovector t(const dcovector& covec)
-{CPPL_VERBOSE_REPORT;
-  drovector rovec(covec.l);
-  
-  CPPL_INT inc =1;
-  
-  dcopy_(&covec.l, covec.array, &inc, rovec.array, &inc);
-  
-  return _(rovec);
-}
-
-//=============================================================================
-/*! return its Euclidean norm */
-inline double nrm2(const dcovector& vec)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT inc =1;
-  return dnrm2_(&vec.l, vec.array, &inc);
-}
-
-//=============================================================================
-/*! return the index of element having the largest absolute value
- in 0-based numbering system */
-inline CPPL_INT idamax(const dcovector& vec)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT inc=1;
-  return idamax_(&vec.l, vec.array, &inc) -1;
-}
-
-//=============================================================================
-/*! return its largest absolute value */
-inline double damax(const dcovector& vec)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT inc =1;
-  return vec.array[idamax_(&vec.l, vec.array, &inc) -1];
-}
diff --git a/cpplapack-r198/.svn/pristine/4b/4be0f2fa660322927d08083257c95c769d7c261b.svn-base b/cpplapack-r198/.svn/pristine/4b/4be0f2fa660322927d08083257c95c769d7c261b.svn-base
deleted file mode 100644
index fe635d4..0000000
--- a/cpplapack-r198/.svn/pristine/4b/4be0f2fa660322927d08083257c95c769d7c261b.svn-base
+++ /dev/null
@@ -1,161 +0,0 @@
-//=============================================================================
-/*! zgematrix+=_zgbmatrix operator */
-inline zgematrix& zgematrix::operator+=(const _zgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.n || m!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << m << "x" << n << ") += (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<mat.m; i++){
-    const CPPL_INT jmax =std::min(n,i+mat.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-mat.kl); j<jmax; j++){
-      operator()(i,j)+=mat(i,j);
-    }
-  }
-  
-  mat.destroy();
-  return *this;
-}
-
-//=============================================================================
-/*! zgematrix-=_zgbmatrix operator */
-inline zgematrix& zgematrix::operator-=(const _zgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.n || m!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << m << "x" << n << ") -= (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<mat.m; i++){
-    const CPPL_INT jmax =std::min(n,i+mat.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-mat.kl); j<jmax; j++){
-      operator()(i,j) -= mat(i,j);
-    }
-  }
-  
-  mat.destroy();
-  return *this;
-}
-//=============================================================================
-/*! zgematrix*=_zgbmatrix operator */
-inline zgematrix& zgematrix::operator*=(const _zgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << m << "x" << n << ") *= (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(m,mat.n);
-  newmat.zero();
-  
-  for(CPPL_INT i=0; i<newmat.m; i++){
-    for(CPPL_INT j=0; j<newmat.n; j++){
-      const CPPL_INT kmax =std::min(mat.m,j+mat.kl+1);
-      for(CPPL_INT k=std::max(CPPL_INT(0),j-mat.ku); k<kmax; k++){
-        newmat(i,j) += operator()(i,k)*mat(k,j);
-      }
-    }
-  }
-  
-  swap(*this,newmat);
-  mat.destroy();
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zgematrix+_zgbmatrix operator */
-inline _zgematrix operator+(const zgematrix& matA, const _zgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(matA);
-  
-  for(CPPL_INT i=0; i<matB.m; i++){
-    const CPPL_INT jmax =std::min(matB.n,i+matB.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matB.kl); j<jmax; j++){
-      newmat(i,j)+=matB(i,j);
-    }
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! zgematrix-_zgbmatrix operator */
-inline _zgematrix operator-(const zgematrix& matA, const _zgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(matA);
-  
-  for(CPPL_INT i=0; i<matB.m; i++){
-    const CPPL_INT jmax =std::min(matB.n,i+matB.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matB.kl); j<jmax; j++){
-      newmat(i,j)-=matB(i,j);
-    }
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! zgematrix*_zgbmatrix operator */
-inline _zgematrix operator*(const zgematrix& matA, const _zgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat( matA.m, matB.n );
-  newmat.zero();
-  
-  for(CPPL_INT i=0; i<newmat.m; i++){
-    for(CPPL_INT j=0; j<newmat.n; j++){
-      const CPPL_INT kmax =std::min(matB.m,j+matB.kl+1);
-      for(CPPL_INT k=std::max(CPPL_INT(0),j-matB.ku); k<kmax; k++){
-        newmat(i,j)+=matA(i,k)*matB(k,j);
-      }
-    }
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/4b/4bf04bc6349176c83fa25e31b277918f86274aea.svn-base b/cpplapack-r198/.svn/pristine/4b/4bf04bc6349176c83fa25e31b277918f86274aea.svn-base
deleted file mode 100644
index a3e8814..0000000
--- a/cpplapack-r198/.svn/pristine/4b/4bf04bc6349176c83fa25e31b277918f86274aea.svn-base
+++ /dev/null
@@ -1,76 +0,0 @@
-//=============================================================================
-/*! _zgbmatrix+zhematrix operator */
-inline _zgematrix operator+(const _zgbmatrix& matA, const zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(matB);
-  
-  for(CPPL_INT i=0; i<matA.m; i++){
-    for(CPPL_INT j=max(0,i-matA.kl); j<min(matA.n,i+matA.ku+1); j++){
-      newmat(i,j)+=matA(i,j);
-    }
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _zgbmatrix-zhematrix operator */
-inline _zgematrix operator-(const _zgbmatrix& matA, const zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(-matB);
-  
-  for(CPPL_INT i=0; i<matA.m; i++){
-    for(CPPL_INT j=max(0,i-matA.kl); j<min(matA.n,i+matA.ku+1); j++){
-      newmat(i,j)-=matA(i,j);
-    }
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _zgbmatrix*zhematrix operator */
-inline _zgematrix operator*(const _zgbmatrix& matA, const zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat( matA.m, matB.n );
-  newmat.zero();
-  
-  for(CPPL_INT c=0; c<matB.vol; c++){
-    for(CPPL_INT i=max(0,matB.indx[c]-(matA.ku+1));
-        i<min(matA.m,matB.indx[c]+matA.kl); i++){
-      newmat(i,matB.jndx[c]) += matA(i,matB.indx[c])*matB.array[c];
-    }
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/4c/4c1de7b3eca4eaaada686af9ae3f79f824aa2783.svn-base b/cpplapack-r198/.svn/pristine/4c/4c1de7b3eca4eaaada686af9ae3f79f824aa2783.svn-base
deleted file mode 100644
index 75e439f..0000000
--- a/cpplapack-r198/.svn/pristine/4c/4c1de7b3eca4eaaada686af9ae3f79f824aa2783.svn-base
+++ /dev/null
@@ -1,66 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int M(6), N(6), KL(1), KU(1);
-  
-  CPPL::zgbmatrix A(M,N,KL,KU);
-  for(int i=0; i<A.m; i++){
-    for(int j=std::max(0,i-A.kl); j<std::min(A.n,i+A.ku+1); j++){
-      A(i,j) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-    }
-  }
-  
-  A.resize(M,M,KL,KU);
-  for(int i=0; i<A.m; i++){
-    for(int j=std::max(0,i-A.kl); j<std::min(A.n,i+A.ku+1); j++){
-      A(i,j) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-    }
-  }
-  CPPL::zgbmatrix A_orig(A);
-  
-  CPPL::zcovector y(M);
-  for(int i=0; i<y.l; i++){
-    y(i) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-  }
-  
-  cout << "A =\n" << A << endl;
-  cout << "y =\n" << y << endl;
-  cout << "#### A.zgbsv(y) ####" << endl;
-  A.zgbsv(y);
-  cout << "A =\n" << A << endl;
-  cout << "y =\n" << y << endl;
-  cout << "A_orig*y =\n" << A_orig*y << endl;
-  
-  
-  cout << "#### A=A_orig ####" << endl;
-  A=A_orig;
-  
-  CPPL::zgematrix Y(M,N);
-  for(int i=0; i<Y.m; i++){ for(int j=0; j<Y.n; j++){
-    Y(i,j) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-  }}
-  cout << "A =\n" << A << endl;
-  cout << "Y =\n" << Y << endl;
-  cout << "#### A.zgbsv(Y) ####" << endl;
-  A.zgbsv(Y);
-  cout << "A =\n" << A << endl;
-  cout << "Y =\n" << Y << endl;
-  cout << "A_orig*Y =\n" << A_orig*Y << endl;
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/4d/4d3ba882f65e0262b256823529cf426b75b22dbf.svn-base b/cpplapack-r198/.svn/pristine/4d/4d3ba882f65e0262b256823529cf426b75b22dbf.svn-base
deleted file mode 100644
index 3b0ac91..0000000
--- a/cpplapack-r198/.svn/pristine/4d/4d3ba882f65e0262b256823529cf426b75b22dbf.svn-base
+++ /dev/null
@@ -1,27 +0,0 @@
-//=============================================================================
-/*! zrovector*_zhsmatrix operator */
-inline _zrovector operator*(const zrovector& vec, const _zhsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vec.l!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These vector and matrix can not make a product." << std::endl
-              << "Your input was (" << vec.l << ") * (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zrovector newvec(mat.n);
-  newvec.zero();
-  
-  const std::vector<zcomponent>::const_iterator mat_data_end =mat.data.end();
-  for(std::vector<zcomponent>::const_iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    newvec(it->j) +=vec(it->i)*it->v;
-    if(it->i!=it->j){
-      newvec(it->i) +=vec(it->j)*std::conj(it->v);
-    }
-  }
-  
-  mat.destroy();
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/4d/4d933faf06891a77f4a9269537cbbe9d36afa1b2.svn-base b/cpplapack-r198/.svn/pristine/4d/4d933faf06891a77f4a9269537cbbe9d36afa1b2.svn-base
deleted file mode 100644
index 8b42d96..0000000
--- a/cpplapack-r198/.svn/pristine/4d/4d933faf06891a77f4a9269537cbbe9d36afa1b2.svn-base
+++ /dev/null
@@ -1,13 +0,0 @@
-//=============================================================================
-/*! double*zgbmatrix operator */
-inline _zgbmatrix operator*(const double& d, const zgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  zgbmatrix newmat(mat.m, mat.n, mat.kl, mat.ku);
-  
-  const CPPL_INT size =(mat.kl+mat.ku+1)*mat.n;
-  for(CPPL_INT i=0; i<size; i++){
-    newmat.array[i] =d*mat.array[i];
-  }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/4d/4dc6be0f9804701137124cbbda625455ba566142.svn-base b/cpplapack-r198/.svn/pristine/4d/4dc6be0f9804701137124cbbda625455ba566142.svn-base
deleted file mode 100644
index b189a6c..0000000
--- a/cpplapack-r198/.svn/pristine/4d/4dc6be0f9804701137124cbbda625455ba566142.svn-base
+++ /dev/null
@@ -1,124 +0,0 @@
-//=============================================================================
-//! Complex Double-precision Row Vector Class
-class zrovector
-{
-public:
-  ///////////////////////////////////////////////
-  /////////////////// objects ///////////////////
-  ///////////////////////////////////////////////
-  CPPL_INT l; //!< vector size
-  comple* array; //!< 1D array to store vector data
-  
-  ///////////////////////////////////////////////
-  ///////////////// constructors ////////////////
-  ///////////////////////////////////////////////
-  inline zrovector();
-  inline zrovector(const zrovector&);
-  inline zrovector(const _zrovector&);
-  inline zrovector(const CPPL_INT&);
-  inline zrovector(const char*);
-  inline ~zrovector(); //destructor
-  
-  ///////////////////////////////////////////////
-  ////////////////// functions //////////////////
-  ///////////////////////////////////////////////
-  //////// cast ////////
-  
-  //////// io ////////
-  inline comple& operator()(const CPPL_INT&);
-  inline comple operator()(const CPPL_INT&) const;
-  inline zrovector& set(const CPPL_INT&, const comple&);
-  inline friend std::ostream& operator<<(std::ostream&, const zrovector&);
-  inline void write(const char*) const;
-  inline void read(const char*);
- 
-  //////// calc ////////
-  inline friend _zcovector t(const zrovector&);
-  inline friend _zrovector conj(const zrovector&);
-  inline friend _zcovector conjt(const zrovector&);
-  inline friend double nrm2(const zrovector&);
-  inline friend CPPL_INT idamax(const zrovector&);
-  inline friend comple damax(const zrovector&);
-
-  //////// misc ////////
-  inline void clear();
-  inline zrovector& zero();
-  inline void chsign();
-  inline void copy(const zrovector&);
-  inline void shallow_copy(const _zrovector&);
-  inline void alias(const zrovector&);
-  inline void unalias();
-  inline void resize(const CPPL_INT&);
-  inline _drovector real() const;
-  inline _drovector imag() const;
-  inline _drovector abs() const;
-  inline _drovector arg() const;
-  inline friend void swap(zrovector&, zrovector&);
-  inline friend _zrovector _(zrovector&);
-  
-  ///////////////////////////////////////////////
-  ///////////// numerical operators /////////////
-  ///////////////////////////////////////////////
-  //////// = ////////
-  inline zrovector& operator=(const  zrovector&);
-  inline zrovector& operator=(const _zrovector&);
-  
-  //////// += ////////
-  inline zrovector& operator+=(const  zrovector&);
-  inline zrovector& operator+=(const _zrovector&);
-  
-  //////// -= ////////
-  inline zrovector& operator-=(const  zrovector&);
-  inline zrovector& operator-=(const _zrovector&);
-  
-  //////// *= ////////
-  inline zrovector& operator*=(const     double&);
-  inline zrovector& operator*=(const     comple&);
-  
-  //////// /= ////////
-  inline zrovector& operator/=(const     double&);
-  inline zrovector& operator/=(const     comple&);
-  
-  //////// unary ////////
-  inline friend const zrovector& operator+(const zrovector&);
-  inline friend _zrovector operator-(const  zrovector&);
-  
-  //////// + ////////
-  inline friend _zrovector operator+(const  zrovector&, const  zrovector&);
-  inline friend _zrovector operator+(const  zrovector&, const _zrovector&);
-  
-  //////// - ////////
-  inline friend _zrovector operator-(const  zrovector&, const  zrovector&);
-  inline friend _zrovector operator-(const  zrovector&, const _zrovector&);
-  
-  //////// * ////////
-  inline friend     comple operator*(const  zrovector&, const  zcovector&);
-  inline friend     comple operator*(const  zrovector&, const _zcovector&);
-  inline friend _zrovector operator*(const  zrovector&, const  zgematrix&);
-  inline friend _zrovector operator*(const  zrovector&, const _zgematrix&);
-  inline friend _zrovector operator*(const  zrovector&, const  zhematrix&);
-  inline friend _zrovector operator*(const  zrovector&, const _zhematrix&);
-  inline friend _zrovector operator*(const  zrovector&, const  zgbmatrix&);
-  inline friend _zrovector operator*(const  zrovector&, const _zgbmatrix&);
-  inline friend _zrovector operator*(const  zrovector&, const  zgsmatrix&);
-  inline friend _zrovector operator*(const  zrovector&, const _zgsmatrix&);
-  inline friend _zrovector operator*(const  zrovector&, const  zhsmatrix&);
-  inline friend _zrovector operator*(const  zrovector&, const _zhsmatrix&);
-  inline friend _zrovector operator*(const  zrovector&, const     double&);
-  inline friend _zrovector operator*(const  zrovector&, const     comple&);
-  
-  //////// / ////////
-  inline friend _zrovector operator/(const  zrovector&, const     double&);
-  inline friend _zrovector operator/(const  zrovector&, const     comple&);
-  
-  //////// % ////////
-  inline friend     comple operator%(const  zrovector&, const  zrovector&);
-  inline friend     comple operator%(const  zrovector&, const _zrovector&);
-  
-  //////// double, comple ////////
-  inline friend _zrovector operator*(const     double&, const  zrovector&);
-  inline friend _zrovector operator*(const     comple&, const  zrovector&);
-  
-  //////// hadamard ////////
-  inline friend _zrovector hadamard(const zrovector&, const zrovector&);
-};
diff --git a/cpplapack-r198/.svn/pristine/4e/4e035ab2474a70041fce17a1ad335ed38914c908.svn-base b/cpplapack-r198/.svn/pristine/4e/4e035ab2474a70041fce17a1ad335ed38914c908.svn-base
deleted file mode 100644
index 5e6135b..0000000
--- a/cpplapack-r198/.svn/pristine/4e/4e035ab2474a70041fce17a1ad335ed38914c908.svn-base
+++ /dev/null
@@ -1,160 +0,0 @@
-//=============================================================================
-/*! clear vector */
-inline void zcovector::clear()
-{CPPL_VERBOSE_REPORT;
-  l =0;
-  delete [] array;
-  array =NULL;
-}
-
-//=============================================================================
-/*! make vector into zero vector */
-inline zcovector& zcovector::zero()
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<l; i++){
-    array[i] =comple(0.,0.);
-  }
-  return *this;
-}
-
-//=============================================================================
-/*! change sign(+/-) of the vector */
-inline void zcovector::chsign()
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<l; i++){
-    array[i] =-array[i];
-  }
-}
-
-//=============================================================================
-/*! make a deep copy of the zcovector */
-inline void zcovector::copy(const zcovector& vec)
-{CPPL_VERBOSE_REPORT;
-  l =vec.l;
-  delete [] array;
-  array =new comple[vec.l];
-  
-  CPPL_INT inc =1;
-  zcopy_(&vec.l, vec.array, &inc, array, &inc);
-}
-
-//=============================================================================
-/*! make a shallow copy of the vector\n
- This function is not desinged to be used in project codes. */
-inline void zcovector::shallow_copy(const _zcovector& vec)
-{CPPL_VERBOSE_REPORT;
-  l =vec.l;
-  delete [] array;
-  array =vec.array;
-  
-  vec.nullify();
-}
-
-//=============================================================================
-/*! make an alias of the vector\n
-  Be carefull to use this function not to cause double free. */
-inline void zcovector::alias(const zcovector& vec)
-{CPPL_VERBOSE_REPORT;
-  l =vec.l;
-  //cap =vec.cap;
-  delete [] array;
-  array =vec.array;
-}
-
-//=============================================================================
-/*! unalias the vector */
-inline void zcovector::unalias()
-{CPPL_VERBOSE_REPORT;
-  l =0;
-  //cap =0;
-  array =NULL;
-}
-
-//=============================================================================
-/*! resize vector */
-inline void zcovector::resize(const CPPL_INT& _l)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( _l<0 ){
-    ERROR_REPORT;
-    std::cerr << "Vector size must be positive integers." << std::endl
-              << "Your input was (" << _l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  l =_l;
-  delete [] array;
-  array =new comple[_l];
-}
-
-//=============================================================================
-/*! extract the real part of the vector */
-inline _dcovector zcovector::real() const
-{CPPL_VERBOSE_REPORT;
-  dcovector vec(l);
-  for(CPPL_INT i=0; i<l; i++){
-    vec.array[i] =array[i].real();
-  }
-  return _(vec);
-}
-
-//=============================================================================
-/*! extract the imag part of the vector */
-inline _dcovector zcovector::imag() const
-{CPPL_VERBOSE_REPORT;
-  dcovector vec(l);
-  for(CPPL_INT i=0; i<l; i++){
-    vec.array[i] =array[i].imag();
-  }
-  return _(vec);
-}
-
-//=============================================================================
-/*! extract the absolute of the vector */
-inline _dcovector zcovector::abs() const
-{CPPL_VERBOSE_REPORT;
-  dcovector vec(l);
-  for(CPPL_INT i=0; i<l; i++){
-    vec.array[i] =std::abs(array[i]);
-  }
-  return _(vec);
-}
-
-//=============================================================================
-/*! extract the argument of the vector */
-inline _dcovector zcovector::arg() const
-{CPPL_VERBOSE_REPORT;
-  dcovector vec(l);
-  for(CPPL_INT i=0; i<l; i++){
-    vec.array[i] =std::arg(array[i]);
-  }
-  return _(vec);
-}
-
-//=============================================================================
-/*! swap two vectors */
-inline void swap(zcovector& u, zcovector& v)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT u_l =u.l;
-  comple* u_array =u.array;
-  u.l=v.l; u.array=v.array;
-  v.l=u_l; v.array=u_array;
-}
-
-//=============================================================================
-/*! convert user object to smart-temporary object */
-inline _zcovector _(zcovector& vec)
-{CPPL_VERBOSE_REPORT;
-  _zcovector newvec;
-  
-  //////// shallow copy ////////
-  newvec.l =vec.l;
-  newvec.array =vec.array;
-  
-  //////// nullify ////////
-  vec.l =0;
-  vec.array =NULL;
-  
-  return newvec;
-}
diff --git a/cpplapack-r198/.svn/pristine/4e/4e6b8cd07ef6456780ad90276d22593a956128b8.svn-base b/cpplapack-r198/.svn/pristine/4e/4e6b8cd07ef6456780ad90276d22593a956128b8.svn-base
deleted file mode 100644
index b452ef1..0000000
--- a/cpplapack-r198/.svn/pristine/4e/4e6b8cd07ef6456780ad90276d22593a956128b8.svn-base
+++ /dev/null
@@ -1,71 +0,0 @@
-//=============================================================================
-/*! solve A*X=Y using zgbsv\n
-  The argument is zgematrix Y. Y is overwritten and become the solution X.
-  A is also overwritten. */
-inline CPPL_INT zgbmatrix::zgbsv(zgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(m!=n || n!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These matrix and vector cannot be solved." << std::endl
-              << "Your input was (" << m << "x" << n << ") and (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG 
-  
-  zgbmatrix newmat(m,n,kl,ku+kl);
-  for(CPPL_INT i=0; i<m; i++){
-    const CPPL_INT jmax =std::min(n,i+ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-kl); j<jmax; j++){
-      newmat(i,j) =operator()(i,j);
-    }
-  }
-  
-  CPPL_INT NRHS(mat.n), LDAB(2*kl+ku+1), *IPIV(new CPPL_INT[n]), LDB(mat.m), INFO(1);
-  zgbsv_(&n, &kl, &ku, &NRHS, newmat.array, &LDAB, IPIV, mat.array, &LDB, &INFO);
-  delete [] IPIV;
-  
-  swap(*this,newmat);
-  
-  if(INFO!=0){
-    WARNING_REPORT;
-    std::cerr << "Serious trouble happend. INFO = " << INFO << "." << std::endl;
-  }
-  return INFO;
-}
-
-//=============================================================================
-/*! solve A*x=y using zgbsv\n
-  The argument is zcovector y. y is overwritten and become the solution x.
-  A is also overwritten. */
-inline CPPL_INT zgbmatrix::zgbsv(zcovector& vec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(m!=n || n!=vec.l){
-    ERROR_REPORT;
-    std::cerr << "These matrix and vector cannot be solved." << std::endl
-              << "Your input was (" << m << "x" << n << ") and (" << vec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG 
-  
-  zgbmatrix newmat(m,n,kl,ku+kl);
-  for(CPPL_INT i=0; i<m; i++){
-    const CPPL_INT jmax =std::min(n,i+ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-kl); j<jmax; j++){
-      newmat(i,j) =operator()(i,j);
-    }
-  }
-  
-  CPPL_INT NRHS(1), LDAB(2*kl+ku+1), *IPIV(new CPPL_INT[n]), LDB(vec.l), INFO(1);
-  zgbsv_(&n, &kl, &ku, &NRHS, newmat.array, &LDAB, IPIV, vec.array, &LDB, &INFO);
-  delete [] IPIV;
-  
-  swap(*this,newmat);
-  
-  if(INFO!=0){
-    WARNING_REPORT;
-    std::cerr << "Serious trouble happend. INFO = " << INFO << "." << std::endl;
-  }
-  return INFO;
-}
diff --git a/cpplapack-r198/.svn/pristine/4e/4e9a1c6d5dc89c785a43d135e75b52eec37e3fb0.svn-base b/cpplapack-r198/.svn/pristine/4e/4e9a1c6d5dc89c785a43d135e75b52eec37e3fb0.svn-base
deleted file mode 100644
index 4633aa2..0000000
--- a/cpplapack-r198/.svn/pristine/4e/4e9a1c6d5dc89c785a43d135e75b52eec37e3fb0.svn-base
+++ /dev/null
@@ -1,23 +0,0 @@
-//=============================================================================
-/*! drovector*dgsmatrix operator */
-inline _drovector operator*(const drovector& vec, const dgsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vec.l!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These vector and matrix can not make a product." << std::endl
-              << "Your input was (" << vec.l << ") * (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  drovector newvec(mat.n);
-  newvec.zero();
-  
-  const std::vector<dcomponent>::const_iterator mat_data_end =mat.data.end();
-  for(std::vector<dcomponent>::const_iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    newvec(it->j) += vec(it->i)*it->v;
-  }
-  
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/4f/4f1d3b578a63dd94217d577c1bbdd41f9904281c.svn-base b/cpplapack-r198/.svn/pristine/4f/4f1d3b578a63dd94217d577c1bbdd41f9904281c.svn-base
deleted file mode 100644
index 762edea..0000000
--- a/cpplapack-r198/.svn/pristine/4f/4f1d3b578a63dd94217d577c1bbdd41f9904281c.svn-base
+++ /dev/null
@@ -1,24 +0,0 @@
-//=============================================================================
-/*! _dgsmatrix*dcovector operator */
-inline _dcovector operator*(const _dgsmatrix& mat, const dcovector& vec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(mat.n!=vec.l){
-    ERROR_REPORT;
-    std::cerr << "These matrix and vector can not make a product." << std::endl
-              << "Your input was (" << mat.m << "x" << mat.n << ") * (" << vec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dcovector newvec(mat.m);
-  newvec.zero();
-  
-  const std::vector<dcomponent>::const_iterator mat_data_end =mat.data.end();
-  for(std::vector<dcomponent>::const_iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    newvec(it->i) += it->v*vec(it->j);
-  }
-  
-  mat.destroy();
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/4f/4f6d6720970c51a83c051237fc5d7b20a08fe82c.svn-base b/cpplapack-r198/.svn/pristine/4f/4f6d6720970c51a83c051237fc5d7b20a08fe82c.svn-base
deleted file mode 100644
index ad30d3b..0000000
--- a/cpplapack-r198/.svn/pristine/4f/4f6d6720970c51a83c051237fc5d7b20a08fe82c.svn-base
+++ /dev/null
@@ -1,25 +0,0 @@
-//=============================================================================
-/*! _dgsmatrix*_dcovector operator */
-inline _dcovector operator*(const _dgsmatrix& mat, const _dcovector& vec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(mat.n!=vec.l){
-    ERROR_REPORT;
-    std::cerr << "These matrix and vector can not make a product." << std::endl
-              << "Your input was (" << mat.m << "x" << mat.n << ") * (" << vec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dcovector newvec(mat.m);
-  newvec.zero();
-  
-  const std::vector<dcomponent>::const_iterator mat_data_end =mat.data.end();
-  for(std::vector<dcomponent>::const_iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    newvec(it->i) += it->v * vec(it->j);
-  }
-  
-  mat.destroy();
-  vec.destroy();
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/4f/4ffcdb17d461662626bae101fb9749c70bfca7bd.svn-base b/cpplapack-r198/.svn/pristine/4f/4ffcdb17d461662626bae101fb9749c70bfca7bd.svn-base
deleted file mode 100644
index 24f8d0d..0000000
--- a/cpplapack-r198/.svn/pristine/4f/4ffcdb17d461662626bae101fb9749c70bfca7bd.svn-base
+++ /dev/null
@@ -1,62 +0,0 @@
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int N(3);
-  
-  //// make dgematrix A ////
-  CPPL::dsymatrix A(N);
-  for(int i=0; i<A.n; i++){
-    for(int j=0; j<=i; j++){
-      A(i,j) =double( rand() /(RAND_MAX/10) );
-    }
-  }
-  
-  //// print A in two ways ////
-  cout << "A =\n" << A << endl;
-  for(int i=0; i<A.n; i++){
-    for(int j=0; j<A.n; j++){
-      cout << "A(" << i << "," << j << ") =" << A(i,j) << endl;
-    }
-  }
-  
-  A.complete();
-  for(int i=0; i<A.n; i++){ 
-    for(int j=0; j<=i; j++){
-      cout << A.array[i+A.n*j] << ' ';
-    }
-    cout << endl;
-  }
-  
-  //// make A 10 times ////
-  cout << "#### A*=10.; ####" << endl;
-  A*=10.;
-  
-  //// make dgematrix B ////
-  CPPL::dsymatrix B(A);
-  cout << "B =\n" << B << endl;
-  for(int i=0; i<B.n; i++){
-    for(int j=0; j<B.n; j++){
-      cout << "B(" << i << "," << j << ") =" << B(i,j) << endl;
-    }
-  }
-  
-  //// print A+B ////
-  cout << "A+B=\n" << A+B << endl;
-  
-  //// write/read ////
-  B.write( "tmp.txt" );
-  CPPL::dsymatrix C;
-  C.read( "tmp.txt" );
-  cout << "C-B =\n" << C-B << "<-Should be zero." << endl;
-  
-  return 0;
-}
diff --git a/cpplapack-r198/.svn/pristine/50/50042064fd4b5aa919bff79cfff430821487c1b5.svn-base b/cpplapack-r198/.svn/pristine/50/50042064fd4b5aa919bff79cfff430821487c1b5.svn-base
deleted file mode 100644
index a4c92ed..0000000
--- a/cpplapack-r198/.svn/pristine/50/50042064fd4b5aa919bff79cfff430821487c1b5.svn-base
+++ /dev/null
@@ -1,8 +0,0 @@
-//=============================================================================
-/*! double*_drovector operator */
-inline _drovector operator*(const double& d, const _drovector& vec)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT inc =1;
-  dscal_(&vec.l, &d, vec.array, &inc);
-  return vec;
-}
diff --git a/cpplapack-r198/.svn/pristine/50/500f83abd04ed4b652e1dd583c90f1bd35abe0ae.svn-base b/cpplapack-r198/.svn/pristine/50/500f83abd04ed4b652e1dd583c90f1bd35abe0ae.svn-base
deleted file mode 100644
index 8fa032d..0000000
--- a/cpplapack-r198/.svn/pristine/50/500f83abd04ed4b652e1dd583c90f1bd35abe0ae.svn-base
+++ /dev/null
@@ -1,52 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int N(3);
-  
-  CPPL::zhematrix A(N), B(N);
-  CPPL::zcovector x(N), y(N);
-  for(int i=0; i<A.n; i++){
-    for(int j=0; j<i; j++){
-      A(i,j) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-      B(i,j) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-    }
-    A(i,i) =complex<double>(rand()/(RAND_MAX/10), 0.0);
-    B(i,i) =complex<double>(rand()/(RAND_MAX/10), 0.0);
-  }
-  
-  for(int i=0; i<x.l; i++){
-    x(i) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-    y(i) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-  }
-  
-  CPPL::zcovector z(x+y);
-  
-  cout << "A =\n" << A << endl;
-  cout << "B =\n" << B << endl;
-  cout << "x =\n" << x << endl;
-  cout << "y =\n" << y << endl;
-  cout << "z =\n" << z << endl;
-
-  cout << "A*z-A*x-A*y = (Should be zero)\n" << A*z-A*x-A*y << endl;
-  cout << "A*z-A*(x+y) = (Should be zero)\n" << A*z-A*(x+y) << endl;
-  cout << "(A+B)*x-A*x-B*x = (Should be zero)\n" << (A+B)*x-A*x-B*x << endl;
-  cout << "(A-B)*(x-y)-A*x+A*y+B*x-B*y = (Should be zero)\n"
-       << (A-B)*(x-y)-A*x+A*y+B*x-B*y << endl;
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/50/50698d4f1f16985244deaeab492a2a452f6b3624.svn-base b/cpplapack-r198/.svn/pristine/50/50698d4f1f16985244deaeab492a2a452f6b3624.svn-base
deleted file mode 100644
index 2d0c230..0000000
--- a/cpplapack-r198/.svn/pristine/50/50698d4f1f16985244deaeab492a2a452f6b3624.svn-base
+++ /dev/null
@@ -1,48 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int M(3), N(4), KL(2), KU(1);
-  
-  CPPL::dgbmatrix A(M,N,KL,KU);
-  for(int i=0; i<A.m; i++){
-    for(int j=std::max(0,i-A.kl); j<std::min(A.n,i+A.ku+1); j++){
-      A(i,j) =double( rand() /(RAND_MAX/10) );
-    }
-  }
-  
-  cout << "A =\n" << A << endl;
-  
-  cout << "#### t(A) ####" << endl;
-  cout << "t(A) =\n" << CPPL::t(A) << endl;
-  
-  cout << "#### i(A) ####" << endl;
-  A.resize(M,M,KL,KU);
-  for(int i=0; i<A.m; i++){ for(int j=0; j<A.n; j++){
-    if( !((i-j)>A.kl || (j-i)>A.ku) ){ A(i,j) =double( rand() /(RAND_MAX/10) ); }
-  }}
-  CPPL::dgematrix A_inv;
-  A_inv =CPPL::i(A);
-  //A_inv =i(A); // g++ cannot compile this line
-  
-  cout << "A =\n" << A << endl;
-  cout << "A_inv =\n" << A_inv << endl;
-  cout << "A*A_inv =\n" << A*A_inv << endl;
-  cout << "A_inv*A =\n" << A_inv*A << endl;
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/50/5071ab22b5dba585588c78bce72becd9c795ed1d.svn-base b/cpplapack-r198/.svn/pristine/50/5071ab22b5dba585588c78bce72becd9c795ed1d.svn-base
deleted file mode 100644
index d59aa64..0000000
--- a/cpplapack-r198/.svn/pristine/50/5071ab22b5dba585588c78bce72becd9c795ed1d.svn-base
+++ /dev/null
@@ -1,106 +0,0 @@
-//=============================================================================
-//! Samll Real Double-precision Column Vector Class
-template<CPPL_INT l> class dcovector_small
-{
-public:
-  ///////////////////////////////////////////////
-  /////////////////// objects ///////////////////
-  ///////////////////////////////////////////////
-  double array[l];
-  
-  ///////////////////////////////////////////////
-  ///////////////// constructors ////////////////
-  ///////////////////////////////////////////////
-  inline dcovector_small();
-  inline explicit dcovector_small(const dcovector&);
-  inline dcovector_small(const double&, const double&);
-  inline dcovector_small(const double&, const double&, const double&);
-  inline dcovector_small(const double&, const double&, const double&, const double&);
-  inline ~dcovector_small();
-  
-  ///////////////////////////////////////////////
-  ////////////////// functions //////////////////
-  ///////////////////////////////////////////////
-  //////// cast ////////
-  inline _dcovector to_dcovector() const;
-  
-  //////// io ////////
-  inline double& operator()(const CPPL_INT&);
-  inline double  operator()(const CPPL_INT&) const;
-  inline dcovector_small<l>& set(const CPPL_INT&, const double&);
-  template<CPPL_INT _l> inline friend std::ostream& operator<<(std::ostream&, const dcovector_small<_l>&);
-  inline void read(const char* filename);
-  inline void write(const char* filename) const;
-  
-  //////// calc ////////
-#ifndef _MSC_VER
-  template<CPPL_INT _l> inline friend drovector_small<_l> t(const dcovector_small<_l>&);
-  template<CPPL_INT _l> inline friend double nrm2(const dcovector_small<_l>&);
-  template<CPPL_INT _l> inline friend CPPL_INT idamax(const dcovector_small<_l>&);
-  template<CPPL_INT _l> inline friend double damax(const dcovector_small<_l>&);
-#endif//_MSC_VER
-  
-  //////// misc ////////
-  inline dcovector_small<l>& zero();
-  
-  ///////////////////////////////////////////////
-  ///////////// numerical operators /////////////
-  ///////////////////////////////////////////////
-#ifndef _MSC_VER
-  //////// = ////////
-  template<CPPL_INT L> inline dcovector_small<L>& operator= (const  dcovector_small<L>&);
-  //////// += ////////
-  template<CPPL_INT L> inline friend dcovector_small<L>& operator+=(dcovector_small<L>&, const dcovector_small<L>&);
-  //////// -= ////////
-  template<CPPL_INT L> inline friend dcovector_small<L>& operator-=(dcovector_small<L>&, const dcovector_small<L>&);
-  //////// *= ////////
-  template<CPPL_INT L> inline friend dcovector_small<L>& operator*=(dcovector_small<L>&, const             double&);
-  //////// /= ////////
-  template<CPPL_INT L> inline friend dcovector_small<L>& operator/=(dcovector_small<L>&, const             double&);
-  //////// unary ////////
-  template<CPPL_INT L> inline friend const dcovector_small<L>& operator+(const dcovector_small<L>&);
-  template<CPPL_INT L> inline friend dcovector_small<L> operator-(const dcovector_small<L>&);
-  //////// + ////////
-  template<CPPL_INT L> inline friend dcovector_small<L> operator+(const dcovector_small<L>&, const dcovector_small<L>&);
-  //////// - ////////
-  template<CPPL_INT L> inline friend dcovector_small<L> operator-(const dcovector_small<L>&, const dcovector_small<L>&);
-  //////// * ////////
-  template<CPPL_INT M, CPPL_INT N> inline friend dgematrix_small<M,N> operator*(const dcovector_small<M>&, const drovector_small<N>&);
-  template<CPPL_INT L> inline friend dcovector_small<L> operator*(const dcovector_small<L>&, const             double&);
-  //////// / ////////
-  template<CPPL_INT L> inline friend dcovector_small<L> operator/(const dcovector_small<L>&, const             double&);
-  //////// double ////////
-  template<CPPL_INT L> inline friend dcovector_small<L> operator*(const             double&, const dcovector_small<L>&);
-  //////// hadamerd ////////
-  template<CPPL_INT L> inline friend dcovector_small<L>  hadamerd(const dcovector_small<L>&, const dcovector_small<L>&);
-#endif//_MSC_VER
-};
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-//////// dcovec2 ////////
-inline double  operator/(const dcovec2&, const dcovec2&);
-//inline dquater vr2q(const dcovec2&, const double&);
-//inline dquater vt2q(const dcovec2&, const double&);
-inline dcovec2 rotate(const dcovec2&, const double&);
-
-//////// dcovec3 ////////
-inline dcovec3 operator/(const dcovec3&, const dcovec3&);
-inline dcovec3 operator/=(dcovec3&, const dcovec3&);
-inline dquater vr2q(const dcovec3&, const double&);
-inline dquater vt2q(const dcovec3&, const double&);
-inline dcovec3 rotate(const dcovec3&, const dquater&);
-
-//////// dquater ////////
-inline dquater conj(const dquater&);
-inline dcovec3 imag(const dquater&);
-inline dquater inv(const dquater&);
-inline dquater operator*(const dquater&, const dquater&);
-inline dquater operator/(const dquater&, const dquater&);
-inline dquater operator*=(dquater&, const dquater&);
-inline dquater operator/=(dquater&, const dquater&);
-inline dcovec3 q2vt(const dquater&);
-inline dgemat3 q2m(const dquater&);
diff --git a/cpplapack-r198/.svn/pristine/50/507e2a3ee36be618775136cc3cbdb59eb7112289.svn-base b/cpplapack-r198/.svn/pristine/50/507e2a3ee36be618775136cc3cbdb59eb7112289.svn-base
deleted file mode 100644
index 4c3515a..0000000
--- a/cpplapack-r198/.svn/pristine/50/507e2a3ee36be618775136cc3cbdb59eb7112289.svn-base
+++ /dev/null
@@ -1,77 +0,0 @@
-//=============================================================================
-/*! _zhsmatrix+_zhsmatrix operator */
-inline _zhsmatrix operator+(const _zhsmatrix& matA, const _zhsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") + (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zhsmatrix newmat(matA);
-  
-  const std::vector<zcomponent>::const_iterator matB_data_end =matB.data.end();
-  for(std::vector<zcomponent>::const_iterator it=matB.data.begin(); it!=matB_data_end; it++){
-    newmat(it->i,it->j) +=it->v;
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _zhsmatrix-_zhsmatrix operator */
-inline _zhsmatrix operator-(const _zhsmatrix& matA, const _zhsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") - (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zhsmatrix newmat(matA);
-  
-  const std::vector<zcomponent>::const_iterator matB_data_end =matB.data.end();
-  for(std::vector<zcomponent>::const_iterator it=matB.data.begin(); it!=matB_data_end; it++){
-    newmat(it->i,it->j) -=it->v;
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _zhsmatrix*_zhsmatrix operator */
-/*
-inline _zhsmatrix operator*(const _zhsmatrix& matA, const _zhsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") * (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zhsmatrix newmat(matA.n);
-  
-  for(CPPL_INT c=0; c<matA.vol; c++){
-    CPPL_INT k(matA.jndx[c]);
-    std::vector< std::pair<CPPL_INT,CPPL_INT> >::iterator p;
-    for(p=matB.line[k].begin(); p!=matB.line[k].end(); p++){
-      newmat(matA.indx[c],p->first) +=matA.array[c]*matB.array[p->second];
-    }
-  }
-  
-  matA.destroy();
-  matB.destroy();
-  return _(newmat);
-}
-*/
diff --git a/cpplapack-r198/.svn/pristine/50/5084c5e3771fb6da754e0beb718f67eb10834dcf.svn-base b/cpplapack-r198/.svn/pristine/50/5084c5e3771fb6da754e0beb718f67eb10834dcf.svn-base
deleted file mode 100644
index 7e60c1d..0000000
--- a/cpplapack-r198/.svn/pristine/50/5084c5e3771fb6da754e0beb718f67eb10834dcf.svn-base
+++ /dev/null
@@ -1,69 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int N(3);
-  
-  CPPL::dsymatrix A(N);
-  CPPL::dgematrix X(N,N), Y(N,N), Z(N,N);
-  for(int i=0; i<A.n; i++){ for(int j=0; j<=i; j++){
-    A(i,j) =double( rand() /(RAND_MAX/10) );
-  }}
-  for(int i=0; i<A.n; i++){ for(int j=0; j<A.n; j++){
-    Z(i,j) =double( rand() /(RAND_MAX/10) );
-  }}
-  for(int i=0; i<A.n; i++){ for(int j=0; j<A.n; j++){
-    X(i,j) = -A(i,j);
-    Y(i,j) = A(i,j);
-  }}
-  
-  cout << "A =\n" << A << endl;
-  cout << "X =\n" << X << endl;
-  cout << "Y =\n" << Y << endl;
-  cout << "Z =\n" << Z << endl;
-
-  
-  //dsy+dge
-  cout << "A+X =\n" << A+X << "<-Should be zero." << endl;
-  //dsy-dge
-  cout << "A-Y =\n" << A-Y << "<-Should be zero." << endl;
-  //dsy*dge, t(_dge), t(dge), _dge*dsy, _dge-_dge
-  cout << "A*Y =\n" << t(A*Y)-t(Y)*A << "<-Should be zero." << endl;
-
-  //dsy+_dge, -dge
-  cout << "A+(-Y) =\n" << A+(-Y) << "<-Should be zero." << endl;
-  //dsy-_dge, -dge
-  cout << "A-(-X) =\n" << A-(-X) << "<-Should be zero." << endl;
-  //dsy*_dge, dge+dge, dsy*dge, _dge+_dge, _dge-_dge
-  cout << "A*(X+Z) - (A*X+A*Z) =\n" << A*(X+Z) - (A*X+A*Z) << "<-Should be zero." << endl;
-  
-  //_dsy+dge, -dsy
-  cout << "(-A)+Y =\n" << (-A)+Y << "<-Should be zero." << endl;
-  //_dsy-dge, -dsy
-  cout << "(-A)-X =\n" << (-A)-X << "<-Should be zero." << endl;
-  //_dsy*dge, -dsy, dsy*dge, _dge+_dge
-  cout << "(-A)*Z+(A*Z) =\n" << ((-A)*Z+(A*Z)) << "<-Should be zero." << endl;
-  
-  //_dsy+_dge, -dsy, -dge
-  cout << "(-A)+(-X) =\n" << (-A)+(-X) << "<-Should be zero." << endl;
-  //_dsy-_dge, -dsy, -dge
-  cout << "(-A)-(-Y) =\n" << (-A)-(-Y) << "<-Should be zero." << endl;
-  //_dsy*_dge, -dsy, -dge, dsy*dge, _dge*_dge
-  cout << "(-A)*(-Z)-(A*Z) =\n" << (-A)*(-Z)-(A*Z) << "<-Should be zero." << endl;
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/50/50dd391fa25390f1a73973b7e6fd1e39e0e0f42c.svn-base b/cpplapack-r198/.svn/pristine/50/50dd391fa25390f1a73973b7e6fd1e39e0e0f42c.svn-base
deleted file mode 100644
index 6961736..0000000
--- a/cpplapack-r198/.svn/pristine/50/50dd391fa25390f1a73973b7e6fd1e39e0e0f42c.svn-base
+++ /dev/null
@@ -1,42 +0,0 @@
-//=============================================================================
-/*! dcovector*=double operator */
-inline dcovector& dcovector::operator*=(const double& d)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT inc =1;
-  dscal_(&l, &d, array, &inc);
-  return *this;
-}
-
-//=============================================================================
-/*! dcovector/=double operator */
-inline dcovector& dcovector::operator/=(const double& d)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT inc =1;
-  double dinv =1./d;
-  dscal_(&l, &dinv, array, &inc);
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! dcovector*double operator */
-inline _dcovector operator*(const dcovector& vec, const double& d)
-{CPPL_VERBOSE_REPORT;
-  dcovector newvec(vec.l);
-  for(CPPL_INT i=0; i<vec.l; i++){ newvec.array[i] =vec.array[i]*d; }
-  
-  return _(newvec);
-}
-
-//=============================================================================
-/*! dcovector/double operator */
-inline _dcovector operator/(const dcovector& vec, const double& d)
-{CPPL_VERBOSE_REPORT;
-  dcovector newvec(vec.l);
-  for(CPPL_INT i=0; i<vec.l; i++){ newvec.array[i] =vec.array[i]/d; }
-  
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/51/517ef98807b18e5012534489409e44ef8cf1b8ec.svn-base b/cpplapack-r198/.svn/pristine/51/517ef98807b18e5012534489409e44ef8cf1b8ec.svn-base
deleted file mode 100644
index 81e7aca..0000000
--- a/cpplapack-r198/.svn/pristine/51/517ef98807b18e5012534489409e44ef8cf1b8ec.svn-base
+++ /dev/null
@@ -1,15 +0,0 @@
-//=============================================================================
-/*! +_dcovector operator */
-inline const _dcovector& operator+(const _dcovector& vec)
-{CPPL_VERBOSE_REPORT;
-  return vec;
-}
-
-//=============================================================================
-/*! -_dcovector operator */
-inline _dcovector operator-(const _dcovector& vec)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<vec.l; i++){ vec.array[i]=-vec.array[i]; }
-  
-  return vec;
-}
diff --git a/cpplapack-r198/.svn/pristine/51/51b25d075f93c641bc254626ac438cb849897adc.svn-base b/cpplapack-r198/.svn/pristine/51/51b25d075f93c641bc254626ac438cb849897adc.svn-base
deleted file mode 100644
index 5dbde04..0000000
--- a/cpplapack-r198/.svn/pristine/51/51b25d075f93c641bc254626ac438cb849897adc.svn-base
+++ /dev/null
@@ -1,66 +0,0 @@
-//=============================================================================
-/*! zgematrix+zhematrix operator */
-inline _zgematrix operator+(const zgematrix& matA, const zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(matA);
-  for(CPPL_INT c=0; c<matB.vol; c++){
-    newmat(matB.indx[c],matB.jndx[c]) += matB.array[c];
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! zgematrix-zhematrix operator */
-inline _zgematrix operator-(const zgematrix& matA, const zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") - (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  zgematrix newmat(matA);
-  for(CPPL_INT c=0; c<matB.vol; c++){
-    newmat(matB.indx[c],matB.jndx[c]) -= matB.array[c];
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! zgematrix*zhematrix operator */
-inline _zgematrix operator*(const zgematrix& matA, const zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(matA.m, matB.n);
-  newmat.zero();
-  
-  for(CPPL_INT c=0; c<matB.vol; c++){
-    for(CPPL_INT i=0; i<matA.m; i++){
-      newmat(i,matB.jndx[c]) += matA(i,matB.indx[c])*matB.array[c];
-    }
-  }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/51/51dddf87d0030f67b35d1d50d1e20f2953c0d36a.svn-base b/cpplapack-r198/.svn/pristine/51/51dddf87d0030f67b35d1d50d1e20f2953c0d36a.svn-base
deleted file mode 100644
index 6c50b8e..0000000
--- a/cpplapack-r198/.svn/pristine/51/51dddf87d0030f67b35d1d50d1e20f2953c0d36a.svn-base
+++ /dev/null
@@ -1,52 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int M(3), N(4);
-  
-  CPPL::zgematrix A(M,N);
-  for(int i=0; i<A.m; i++){ for(int j=0; j<A.n; j++){
-    A(i,j) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-  }}
-  
-  cout << "A =\n" << A << endl;
-  
-  cout << "#### t(A) ####" << endl;
-  cout << "t(A) =\n" << CPPL::t(A) << endl;
-  
-  cout << "#### i(A) ####" << endl;
-  A.resize(M,M);
-  for(int i=0; i<A.m; i++){ for(int j=0; j<A.n; j++){
-    A(i,j) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-  }}
-  CPPL::zgematrix A_inv;
-  A_inv =CPPL::i(A);
-  //A_inv =i(A); // g++ cannot compile this line
-  cout << "A =\n" << A << endl;
-  cout << "A_inv =\n" << A_inv << endl;
-  cout << "A*A_inv =\n" << A*A_inv << endl;
-  
-  //// max ////
-  cout << "A =\n" << A << endl;
-  cout << "damax(A) =\n" << damax(A) << endl;
-  cout << "#### idamax(p,q, A) ####" << endl;
-  int p,q;
-  idamax(p,q, A);
-  cout << "p=" << p << ", q=" << q << endl;
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/52/521af338432649b4599bcd758c5f9a12b9cadbc6.svn-base b/cpplapack-r198/.svn/pristine/52/521af338432649b4599bcd758c5f9a12b9cadbc6.svn-base
deleted file mode 100644
index 475f10d..0000000
--- a/cpplapack-r198/.svn/pristine/52/521af338432649b4599bcd758c5f9a12b9cadbc6.svn-base
+++ /dev/null
@@ -1,23 +0,0 @@
-//=============================================================================
-/*! zgsmatrix*zcovector operator */
-inline _zcovector operator*(const zgsmatrix& mat, const zcovector& vec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(mat.n!=vec.l){
-    ERROR_REPORT;
-    std::cerr << "These matrix and vector can not make a product." << std::endl
-              << "Your input was (" << mat.m << "x" << mat.n << ") * (" << vec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zcovector newvec(mat.m);
-  newvec.zero();
-  
-  const std::vector<zcomponent>::const_iterator mat_data_end =mat.data.end();
-  for(std::vector<zcomponent>::const_iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    newvec(it->i) += it->v*vec(it->j);
-  }
-  
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/52/524961c227febc5525e58de16d4622b47aaaeafa.svn-base b/cpplapack-r198/.svn/pristine/52/524961c227febc5525e58de16d4622b47aaaeafa.svn-base
deleted file mode 100644
index e8fc513..0000000
--- a/cpplapack-r198/.svn/pristine/52/524961c227febc5525e58de16d4622b47aaaeafa.svn-base
+++ /dev/null
@@ -1,292 +0,0 @@
-//=============================================================================
-/*! clear all the matrix data and set the sizes 0 */
-inline void zhsmatrix::clear()
-{CPPL_VERBOSE_REPORT;
-  n =0;
-  data.clear();
-  line.clear();
-}
-
-//=============================================================================
-/*! change the matrix into a zero matrix */
-inline zhsmatrix& zhsmatrix::zero()
-{CPPL_VERBOSE_REPORT;
-  data.resize(0);
-  for(CPPL_INT i=0; i<n; i++){ line[i].resize(0); }
-  return *this;
-}
-
-//=============================================================================
-/*! change the matrix into an identity matrix */
-inline zhsmatrix& zhsmatrix::identity()
-{CPPL_VERBOSE_REPORT;
-  zero();
-  for(CPPL_INT i=0; i<n; i++){
-    put(i,i, comple(1.,0.));
-  }
-  return *this;
-}
-
-//=============================================================================
-/*! change sign(+/-) of the matrix */
-inline void zhsmatrix::chsign()
-{CPPL_VERBOSE_REPORT;
-  const std::vector<zcomponent>::iterator data_end =data.end();
-  for(std::vector<zcomponent>::iterator it=data.begin(); it!=data_end; it++){
-    it->v =-it->v;
-  }
-}
-
-//=============================================================================
-/*! make a deep copy of the matrix */
-inline void zhsmatrix::copy(const zhsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  n =mat.n;
-  data =mat.data;
-  line =mat.line;
-}
-
-//=============================================================================
-/*! make a shallow copy of the matrix\n
-  This function is not designed to be used in project codes. */
-inline void zhsmatrix::shallow_copy(const _zhsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  data.clear();
-  line.clear();
-  
-  n =mat.n;
-  data.swap(mat.data);
-  line.swap(mat.line);
-  
-  mat.nullify();
-}
-
-//=============================================================================
-/*! resize the matrix */
-inline zhsmatrix& zhsmatrix::resize(const CPPL_INT& _n, const CPPL_INT _c, const CPPL_INT _l)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( _n<0 || _c<0 || _l<0 ){
-    ERROR_REPORT;
-    std::cerr << "Matrix sizes and the length of arrays must be positive integers. " << std::endl
-              << "Your input was (" << _n << "," << _c << "," << _l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  n =_n;
-  data.resize(0);
-  data.reserve(_c);
-  line.resize(n);
-  for(CPPL_INT i=0; i<n; i++){
-    line[i].resize(0);
-    line[i].reserve(_l);
-  }
-  
-  return *this;
-}
-
-//=============================================================================
-/*! stretch the matrix size */
-inline void zhsmatrix::stretch(const CPPL_INT& dn)
-{CPPL_VERBOSE_REPORT;
-  if(dn==0){ return; }
-  
-#ifdef  CPPL_DEBUG
-  if( n+dn<0 ){
-    ERROR_REPORT;
-    std::cerr << "The new matrix size must be larger than zero." << std::endl
-              << "Your input was (" << dn << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  n +=dn;
-  
-  if(dn<0){
-    //// delete components over the new size ////
-    const std::vector<zcomponent>::reverse_iterator data_rend =data.rend();
-    for(std::vector<zcomponent>::reverse_iterator it=data.rbegin(); it!=data_rend; it++){
-      if( it->i>=n ){ del( CPPL_INT(data_rend-it-1) ); }
-    }
-    //// shrink line ////
-    for(CPPL_INT i=0; i<-dn; i++){
-      line.pop_back();
-    }
-  }
-  else{//dn>0
-    //// expand line ////
-    for(CPPL_INT i=0; i<dn; i++){
-      line.push_back( std::vector<CPPL_INT>(0) );
-    }
-  }
-}
-
-//=============================================================================
-/*! check if the component is listed */
-inline bool zhsmatrix::isListed(const CPPL_INT& i, const CPPL_INT& j) const
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || j<0 || n<=i || n<=j ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the matrix size." << std::endl
-              << "Your input is (" << i << "," << j << "), whereas the matrix size is " << n << "x" << n << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  const CPPL_INT ii(std::max(i,j)), jj(std::min(i,j));
-  
-  const std::vector<CPPL_INT>::const_iterator line_ii_end =line[ii].end();
-  for(std::vector<CPPL_INT>::const_iterator p=line[ii].begin(); p!=line_ii_end; p++){
-    if(data[*p].j==jj){ return 1; }
-  }
-  
-  return 0;
-}
-
-//=============================================================================
-/*! return the element number of the component */
-inline CPPL_INT zhsmatrix::number(const CPPL_INT& i, const CPPL_INT& j) const
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || j<0 || n<=i || n<=j ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the matrix size." << std::endl
-              << "Your input is (" << i << "," << j << "), whereas the matrix size is " << n << "x" << n << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  const CPPL_INT ii(std::max(i,j)), jj(std::min(i,j));
-  
-  const std::vector<CPPL_INT>::const_iterator line_ii_end =line[ii].end();
-  for(std::vector<CPPL_INT>::const_iterator p=line[ii].begin(); p!=line_ii_end; p++){
-    if(data[*p].i==ii && data[*p].j==jj){
-      return *p;
-    }
-  }
-  
-  return -1;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! get row of the matrix */
-inline _zrovector zhsmatrix::row(const CPPL_INT& _m) const
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( _m<0 || _m>m ){
-    ERROR_REPORT;
-    std::cerr << "Input row number must be between 0 and " << m << "." << std::endl
-              << "Your input was " << _m << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zrovector vec( zrovector(n).zero() );
-  
-  const std::vector<CPPL_INT>::const_iterator line__m_end =line[_m].end();
-  for(std::vector<CPPL_INT>::const_iterator p=line[_m].begin(); p!=line__m_end; p++){
-    if( data[*p].i==_m ){//i>=j
-      vec(data[*p].j) =data[*p].v;
-    }
-    else{//i<j
-      vec(data[*p].i) =std::conj(data[*p].v);
-    }
-  }
-  
-  return _(vec);
-}
-
-//=============================================================================
-/*! get column of the matrix */
-inline _zcovector zhsmatrix::col(const CPPL_INT& _n) const
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( _n<0 || _n>n ){
-    ERROR_REPORT;
-    std::cerr << "Input row number must be between 0 and " << n << "." << std::endl
-              << "Your input was " << _n << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zcovector vec( zcovector(m).zero() );
-  
-  const std::vector<CPPL_INT>::const_iterator line__n_end =line[_n].end();
-  for(std::vector<CPPL_INT>::const_iterator p=line[_n].begin(); p!=line__n_end; p++){
-    if( data[*p].i==_n ){//i<j
-      vec(data[*p].j) =std::conj(data[*p].v);
-    }
-    else{//i>=j
-      vec(data[*p].i) =data[*p].v;
-    }
-  }
-  
-  return _(vec);
-}
-
-//=============================================================================
-/*! erase components less than DBL_MIN */
-inline void zhsmatrix::diet(const double eps)
-{CPPL_VERBOSE_REPORT;
-  const std::vector<zcomponent>::reverse_iterator data_rend =data.rend();
-  for(std::vector<zcomponent>::reverse_iterator it=data.rbegin(); it!=data_rend; it++){
-    if( fabs(it->v.real())<eps && fabs(it->v.imag())<eps ){
-      del( CPPL_INT(data_rend-it-1) );
-    }
-  }
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! swap two matrices */
-inline void swap(zhsmatrix& A, zhsmatrix& B)
-{CPPL_VERBOSE_REPORT;
-  std::swap(A.n,B.n);
-  std::swap(A.data,B.data);
-  std::swap(A.line,B.line);
-}
-
-//=============================================================================
-/*! convert user object to smart-temporary object */
-inline _zhsmatrix _(zhsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  _zhsmatrix newmat;
-  //////// shallow copy ////////
-  newmat.n =mat.n;
-  std::swap(newmat.data, mat.data);
-  std::swap(newmat.line, mat.line);
-  //////// nullify ////////
-  mat.n =0;
-  return newmat;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! health checkup */
-inline void zhsmatrix::checkup()
-{CPPL_VERBOSE_REPORT;
-  //////// complex diagonal ////////
-  for(CPPL_INT i=0; i<m; i++){
-    if( std::fabs((*this)(i,i).imag()) > DBL_MIN ){
-      ERROR_REPORT;
-      std::cerr << "Diagonal components of a Hermitian matrix have to be real numbers." << std::endl
-                << "(*this)(" << i << "," << i << ") was a complex number, " << (*this)(i,i) << "." << std::endl;
-      exit(1);
-    }
-  }
-  
-  //////// NOTE ////////
-  std::cerr << "# [NOTE]@zhsmatrix::checkup(): This symmetric sparse matrix is fine." << std::endl;
-}
diff --git a/cpplapack-r198/.svn/pristine/53/5362f797b2e996b9354d5add8f7a9f756d1ab5a4.svn-base b/cpplapack-r198/.svn/pristine/53/5362f797b2e996b9354d5add8f7a9f756d1ab5a4.svn-base
deleted file mode 100644
index 8415bc1..0000000
--- a/cpplapack-r198/.svn/pristine/53/5362f797b2e996b9354d5add8f7a9f756d1ab5a4.svn-base
+++ /dev/null
@@ -1,96 +0,0 @@
-//=============================================================================
-void dsygv_check_value()
-{
-  cout << "############ check dsygv value ############" << endl;
-  
-  srand(unsigned(time(NULL)));
-  int N(3);
-  
-  //// make dsymatrix A ////
-  CPPL::dsymatrix A(N);
-  for(int i=0; i<A.n; i++){
-    for(int j=0; j<=i; j++){
-      A(i,j) =double( rand() /(RAND_MAX/10) );
-    }
-  }
-  
-  //// make definite dsymatrix B ////
-  CPPL::dsymatrix B(N);
-  CPPL::dgematrix pd, ut(N,N);
-  ut.zero();
-  for(int i=0; i<ut.n; i++){
-    for(int j=0; j<=i; j++){
-      ut(i,j) =double( rand() /(RAND_MAX/10) );
-    }
-  }
-  pd=t(ut)*ut;
-  for(int i=0; i<B.n; i++){
-    for(int j=0; j<=i; j++){
-      B(i,j) =pd(i,j);
-    }
-  }
-  
-  //// make w ////
-  vector<double> w;
-  
-  //// make A_original and B_original ////
-  CPPL::dsymatrix A_original(A), B_original(B);
-  cout << "A_original=\n" << A_original << endl;
-  cout << "B_original=\n" << B_original << endl;
-  
-  //// dsygv ////
-  A.dsygv(B, w);
-  
-  //// print ////
-  for(int i=0; i<A.n; i++){
-    cout << "#### " << i << "th eigen ####" << endl;
-    cout << "w=" << w[i] <<endl;
-  }
-}
-
-//=============================================================================
-void dsygv_check_both()
-{
-  cout << "############ check dsygv value ############" << endl;
-  
-  srand(unsigned(time(NULL)));
-  int N(3);
-  
-  //// make dsymatrix A ////
-  CPPL::dsymatrix A(N);
-  for(int i=0; i<A.n; i++){ for(int j=0; j<=i; j++){
-    A(i,j) =double( rand() /(RAND_MAX/10) );
-  }}
-  
-  //// make definite dsymatrix B ////
-  CPPL::dsymatrix B(N);
-  CPPL::dgematrix pd, ut(N,N);
-  ut.zero();
-  for(int i=0; i<ut.n; i++){ for(int j=0; j<=i; j++){
-    ut(i,j) =double( rand() /(RAND_MAX/10) );
-  }}
-  pd=t(ut)*ut;
-  for(int i=0; i<B.n; i++){ for(int j=0; j<=i; j++){
-    B(i,j) =pd(i,j);
-  }}
-  
-  //// make w ////
-  vector<double> w;
-  vector<CPPL::dcovector> v;
-  
-  //// make A_original and B_original ////
-  CPPL::dsymatrix A_original(A), B_original(B);
-  
-  //// dsygv ////
-  A.dsygv(B, w, v);
-  
-  //// print ////
-  cout << "A_original=\n" << A_original << endl;
-  cout << "B_original=\n" << B_original << endl;
-  for(int i=0; i<A.n; i++){
-    cout << "#### " << i << "th eigen ####" << endl;
-    cout << "w=" << w[i] <<endl;
-    cout << "v=\n" << v[i] <<endl;
-    cout << "(A_original-w*B_original)*v=\n" << (A_original-w[i]*B_original)*v[i] << "<- Should be zeros" << endl;
-  }
-}
diff --git a/cpplapack-r198/.svn/pristine/54/5404edb105441e4e89ea1be8810a4269f484159f.svn-base b/cpplapack-r198/.svn/pristine/54/5404edb105441e4e89ea1be8810a4269f484159f.svn-base
deleted file mode 100644
index f2bdb98..0000000
--- a/cpplapack-r198/.svn/pristine/54/5404edb105441e4e89ea1be8810a4269f484159f.svn-base
+++ /dev/null
@@ -1,24 +0,0 @@
-//=============================================================================
-/*! dsymatrix*_dcovector operator */
-inline _dcovector operator*(const dsymatrix& mat, const _dcovector& vec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(mat.n!=vec.l){
-    ERROR_REPORT;
-    std::cerr << "These matrix and vector can not make a product." << std::endl
-              << "Your input was (" << mat.n << "x" << mat.n << ") * (" << vec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dcovector newvec(mat.n);
-  char uplo ='l';
-  double alpha =1.;
-  CPPL_INT inc =1;
-  double beta =0.;
-  
-  dsymv_( &uplo, &mat.n, &alpha, mat.array, &mat.n, vec.array, &inc, &beta, newvec.array, &inc );
-  
-  vec.destroy();
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/54/54aa7c37a9fb8ea2c213a8cc1b265bda60e5cc18.svn-base b/cpplapack-r198/.svn/pristine/54/54aa7c37a9fb8ea2c213a8cc1b265bda60e5cc18.svn-base
deleted file mode 100644
index 32ae5d8..0000000
--- a/cpplapack-r198/.svn/pristine/54/54aa7c37a9fb8ea2c213a8cc1b265bda60e5cc18.svn-base
+++ /dev/null
@@ -1,194 +0,0 @@
-//=============================================================================
-/*! complete the upper-right components */
-inline void dsymatrix::complete() const
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<n; i++){
-    for(CPPL_INT j=0; j<i; j++){
-      darray[i][j] =darray[j][i];
-    }
-  }
-}
-
-//=============================================================================
-/*! clear all the matrix data and set the sizes 0 */
-inline void dsymatrix::clear()
-{CPPL_VERBOSE_REPORT;
-  n =0;
-  delete [] array;
-  array =NULL;
-  delete [] darray;
-  darray =NULL;
-}
-
-//=============================================================================
-/*! change the matrix into a zero matrix */
-inline dsymatrix& dsymatrix::zero()
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT j=0; j<n; j++){
-    for(CPPL_INT i=j; i<n; i++){
-      darray[j][i] =0.;
-    }
-  }
-  return *this;
-}
-
-//=============================================================================
-/*! change the matrix into an identity matrix */
-inline dsymatrix& dsymatrix::identity()
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT j=0; j<n; j++){
-    darray[j][j] =1.;
-    for(CPPL_INT i=j+1; i<n; i++){
-      darray[j][i] =0.;
-    }
-  }
-  return *this;
-}
-
-//=============================================================================
-/*! change sign(+/-) of the matrix */
-inline void dsymatrix::chsign()
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT j=0; j<n; j++){
-    for(CPPL_INT i=j; i<n; i++){
-      darray[j][i] =-darray[j][i];
-    }
-  }
-}
-
-//=============================================================================
-/*! make a deep copy of the matrix */
-inline void dsymatrix::copy(const dsymatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  n =mat.n;
-  delete [] array;
-  array =new double[n*n];
-  delete [] darray;
-  darray =new double*[n];
-  for(int i=0; i<n; i++){
-    darray[i] =&array[i*n];
-  }
-  
-  for(CPPL_INT j=0; j<n; j++){
-    for(CPPL_INT i=j; i<n; i++){
-      darray[j][i] =mat.darray[j][i];
-    }
-  }
-}
-
-//=============================================================================
-/*! make a shallow copy of the matrix\n
-  This function is not designed to be used in project codes. */
-inline void dsymatrix::shallow_copy(const _dsymatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  n =mat.n;
-  delete [] array;
-  array =mat.array;
-  delete [] darray;
-  darray =mat.darray;
-  
-  mat.nullify();
-}
-
-//=============================================================================
-/*! resize the matrix */
-inline dsymatrix& dsymatrix::resize(const CPPL_INT& _n)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( _n<0 ){
-    ERROR_REPORT;
-    std::cerr << "Matrix sizes must be positive integers." << std::endl
-              << "Your input was (" << _n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  n =_n;
-  delete [] array;
-  array =new double[n*n];
-  delete [] darray;
-  darray =new double*[n];
-  for(int i=0; i<n; i++){
-    darray[i] =&array[i*n];
-  }
-  
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! get row of the matrix */
-inline _drovector dsymatrix::row(const CPPL_INT& _m) const
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( _m<0 || _m>m ){
-    ERROR_REPORT;
-    std::cerr << "Input row number must be between 0 and " << m << "." << std::endl
-              << "Your input was " << _m << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  drovector v(n);
-  for(CPPL_INT j=0; j<n; j++){
-    v(j)=(*this)(_m,j);
-  }
-  return _(v);
-}
-
-//=============================================================================
-/*! get column of the matrix */
-inline _dcovector dsymatrix::col(const CPPL_INT& _n) const
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( _n<0 || _n>n ){
-    ERROR_REPORT;
-    std::cerr << "Input row number must be between 0 and " << n << "." << std::endl
-              << "Your input was " << _n << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dcovector v(m);
-  for(CPPL_INT i=0; i<m; i++){
-    v(i)=(*this)(i,_n);
-  }
-  return _(v);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! swap two matrices */
-inline void swap(dsymatrix& A, dsymatrix& B)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT A_n =A.n;
-  double* A_array =A.array;
-  double** A_darray =A.darray;
-  A.n=B.n; A.array=B.array; A.darray=B.darray;
-  B.n=A_n; B.array=A_array; B.darray=A_darray;
-}
-
-//=============================================================================
-/*! convert user object to smart-temporary object */
-inline _dsymatrix _(dsymatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  _dsymatrix newmat;
-
-  //////// shallow copy ////////
-  newmat.n =mat.n;
-  newmat.array =mat.array;
-  newmat.darray =mat.darray;
-  
-  //////// nullify ////////
-  mat.n =0;
-  mat.array =NULL;
-  mat.darray =NULL;
-  
-  return newmat;
-}
diff --git a/cpplapack-r198/.svn/pristine/55/5584dc7977ec90049f80f43e899ce926b29dfce4.svn-base b/cpplapack-r198/.svn/pristine/55/5584dc7977ec90049f80f43e899ce926b29dfce4.svn-base
deleted file mode 100644
index c17b17c..0000000
--- a/cpplapack-r198/.svn/pristine/55/5584dc7977ec90049f80f43e899ce926b29dfce4.svn-base
+++ /dev/null
@@ -1,176 +0,0 @@
-//=============================================================================
-/*! operator() for const object */
-inline double dgrmatrix::operator()(const CPPL_INT& i, const CPPL_INT& j) const
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || j<0 || m<=i || n<=j ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the matrix size." << std::endl
-              << "Your input is (" << i << "," << j << "), whereas the matrix size is " << m << "x" << n << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //// search (i,j) component ////
-  int k_beg =ia[i]-1;
-  int k_end =ia[i+1]-1;
-  for(int k=k_beg; k<k_end; k++){
-    if(j==ja[k]-1){
-      return a[k];
-    }
-  }
-  
-  //// (i,j) component was not found ////
-  return 0.0;
-}
-
-//=============================================================================
-/*! operator() for const object */
-inline double& dgrmatrix::operator()(const CPPL_INT& i, const CPPL_INT& j)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || j<0 || m<=i || n<=j ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the matrix size." << std::endl
-              << "Your input is (" << i << "," << j << "), whereas the matrix size is " << m << "x" << n << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //// search (i,j) component ////
-  int k_beg =ia[i]-1;
-  int k_end =ia[i+1]-1;
-  for(int k=k_beg; k<k_end; k++){
-    if(j==ja[k]-1){
-      return a[k];
-    }
-  }
-  
-  //// (i,j) component was not found ////
-  ERROR_REPORT;
-  std::cerr << "dgrmatrix does not allow component addition with operator()." << std::endl;
-  exit(1);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-inline std::ostream& operator<<(std::ostream& s, const dgrmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<mat.m; i++){
-    int k_beg =mat.ia[i]-1;
-    int k_end =mat.ia[i+1]-1;
-    int j =0;
-    for(int k=k_beg; k<k_end; k++){
-      if(j<mat.ja[k]-1){
-        for(; j<mat.ja[k]-1; j++){
-          s << " x";
-        }
-      }
-      s << " " << mat.a[k];
-      j++;
-    }
-    for(; j<mat.n; j++){
-      s << " x";
-    }    
-    s << std::endl;
-  }
-  
-  return s;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-inline void dgrmatrix::write(const char* filename) const
-{CPPL_VERBOSE_REPORT;
-  std::ofstream ofs(filename, std::ios::trunc);
-  ofs.setf(std::cout.flags());
-  ofs.precision(std::cout.precision());
-  ofs.width(std::cout.width());
-  ofs.fill(std::cout.fill());
-  
-  ofs << "#dgrmatrix" << " " << m << " " << n << " " << a.size() << std::endl;
-  
-  size_t a_size =a.size();
-  for(size_t k=0; k<a_size; k++){
-    ofs << " " << a[k];
-  }
-  ofs << "\n";
-  
-  size_t ia_size =ia.size();
-  for(size_t k=0; k<ia_size; k++){
-    ofs << " " << ia[k];
-  }
-  ofs << "\n";
-  
-  size_t ja_size =ja.size();
-  for(size_t k=0; k<ja_size; k++){
-    ofs << " " << ja[k];
-  }
-  ofs << "\n" << std::flush;
-  
-  ofs.close();
-}
-
-//=============================================================================
-inline void dgrmatrix::read(const char* filename)
-{CPPL_VERBOSE_REPORT;
-  std::ifstream s( filename );
-  if(!s){
-    ERROR_REPORT;
-    std::cerr << "The file \"" << filename << "\" can not be opened." << std::endl;
-    exit(1);
-  }
-  
-  std::string id;
-  s >> id;
-  if( id != "dgrmatrix" && id != "#dgrmatrix" ){
-    ERROR_REPORT;
-    std::cerr << "The type name of the file \"" << filename << "\" is not dgrmatrix." << std::endl
-              << "Its type name was " << id << " ." << std::endl;
-    exit(1);
-  }
-  
-  //////// read ////////
-  size_t a_size;
-  s >> m >> n >> a_size;
-  a.resize(a_size);
-  ia.resize(m+1);
-  ja.resize(a_size);
-  
-  for(size_t k=0; k<a_size; k++){
-    s >> a[k];
-    if(s.fail()){
-      ERROR_REPORT;
-      exit(1);
-    }
-  }
-  for(CPPL_INT k=0; k<=m; k++){
-    s >> ia[k];
-    if(s.fail()){
-      ERROR_REPORT;
-      exit(1);
-    }
-  }
-  for(size_t k=0; k<a_size; k++){
-    s >> ja[k];
-    if(s.fail()){
-      ERROR_REPORT;
-      exit(1);
-    }
-  }
-  
-  //////// garbage ////////
-  s >> a_size;
-  if(!s.eof()){
-    ERROR_REPORT;
-    std::cerr << "There is something is wrong with the file \"" << filename << " ." << std::endl;
-    exit(1);
-  }
-  s.close();
-}
diff --git a/cpplapack-r198/.svn/pristine/55/55be3b79ec840fa66390c6c6c28c1d2214eb4cd4.svn-base b/cpplapack-r198/.svn/pristine/55/55be3b79ec840fa66390c6c6c28c1d2214eb4cd4.svn-base
deleted file mode 100644
index 5268485..0000000
--- a/cpplapack-r198/.svn/pristine/55/55be3b79ec840fa66390c6c6c28c1d2214eb4cd4.svn-base
+++ /dev/null
@@ -1,65 +0,0 @@
-#include <cpplapack.h>
-
-//=============================================================================
-int main(int argc, char** argv)
-{
-  //////// argc check ////////
-  if(argc!=2){
-    std::cerr << "[ERROR] invalid usage" << std::endl;
-    std::cerr << "USAGE: " << argv[0] << " xxxx.dgematrix" << std::endl;
-    exit(1);
-  }
-  
-  //////// open ////////
-  CPPL::dgematrix mat(argv[1]);
-  std::cerr << "mat size = " << mat.m << "x" << mat.n << std::endl;
-  const long mn(mat.m*mat.n);
-  
-  
-  /////// write header ///////
-  std::cout << "# vtk DataFile Version 2.0" << std::endl;
-  std::cout << "made by dge2vtk" << std::endl;
-  std::cout << "ASCII" << std::endl;
-  std::cout << "DATASET UNSTRUCTURED_GRID" << std::endl;
-  std::cout << std::endl;
-  
-  /////// write POINTS ///////
-  std::cout << "POINTS " << mn << " double" << std::endl;
-  for(long i=0; i<mat.m; i++){
-    for(long j=0; j<mat.n; j++){
-      std::cout << j << " " << i << " " << "0" << std::endl;
-    }
-  }
-  std::cout << std::endl;
-  
-  /////// write CELLS ///////
-  std::cout << "CELLS " << mn << " " << 2*mn << std::endl;
-  for(long i=0; i<mn; i++){
-    std::cout << "1 " << i << std::endl;
-  }
-  std::cout << std::endl;
-  
-  /////// write CELL_TYPES ///////
-  std::cout.unsetf(std::ios::showpos);
-  std::cout << "CELL_TYPES " << mn << std::endl;
-  std::cout.setf(std::ios::showpos);
-  for(long i=0; i<mn; i++){
-    std::cout << "1" << std::endl; // VTK_VERTEX = 1
-  }
-  std::cout << std::endl;
-  
-  //////// write CELL_DATA ////////
-  std::cout.unsetf(std::ios::showpos);
-  std::cout << "CELL_DATA " << mn << std::endl;
-  std::cout.setf(std::ios::showpos);
-  std::cout << "SCALARS value double 1" << std::endl;// SCALAR = 1
-  std::cout << "LOOKUP_TABLE default" << std::endl;
-  for(long i=0; i<mat.m; i++){
-    for(long j=0; j<mat.n; j++){
-      std::cout << mat(i,j) << std::endl;
-    }
-  }
-  std::cout << std::endl;
-  
-  return 0;
-}
diff --git a/cpplapack-r198/.svn/pristine/55/55c6fd59e808f8ce0a775b4a733b4224f7acf6d8.svn-base b/cpplapack-r198/.svn/pristine/55/55c6fd59e808f8ce0a775b4a733b4224f7acf6d8.svn-base
deleted file mode 100644
index 590dd7c..0000000
--- a/cpplapack-r198/.svn/pristine/55/55c6fd59e808f8ce0a775b4a733b4224f7acf6d8.svn-base
+++ /dev/null
@@ -1,71 +0,0 @@
-//=============================================================================
-/*! zhematrix+zgematrix operator */
-inline _zgematrix operator+(const zhematrix& matA, const zgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat =matB;
-  
-  for(CPPL_INT i=0; i<matA.n; i++){
-    for(CPPL_INT j=0; j<matA.n; j++){
-      newmat(i,j) += matA(i,j);
-    }
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! zhematrix-zgematrix operator */
-inline _zgematrix operator-(const zhematrix& matA, const zgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat =-matB;
-  
-  for(CPPL_INT i=0; i<matA.n; i++){
-    for(CPPL_INT j=0; j<matA.n; j++){
-      newmat(i,j) += matA(i,j);
-    }
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! zhematrix*zgematrix operator */
-inline _zgematrix operator*(const zhematrix& matA, const zgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat( matA.n, matB.n );
-  char side ='l';
-  char uplo ='l';
-  comple alpha =comple(1.,0.);
-  comple beta =comple(0.,0.);
-  
-  zhemm_( &side, &uplo, &matA.n, &matB.n, &alpha, matA.array, &matA.n, matB.array, &matB.m, &beta, newmat.array, &newmat.m );
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/55/55d748e7f9b174a433209914f0ff822fa33589c7.svn-base b/cpplapack-r198/.svn/pristine/55/55d748e7f9b174a433209914f0ff822fa33589c7.svn-base
deleted file mode 100644
index 52a50ba..0000000
--- a/cpplapack-r198/.svn/pristine/55/55d748e7f9b174a433209914f0ff822fa33589c7.svn-base
+++ /dev/null
@@ -1,68 +0,0 @@
-//=============================================================================
-/*! operator() for object */
-inline double& _dsymatrix::operator()(const CPPL_INT& i, const CPPL_INT& j) const
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || j<0 || n<=i || n<=j ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the matrix size." << std::endl
-              << "Your input is (" << i << "," << j << "), whereas the matrix size is " << n << "x" << n << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  if( i >= j ){
-    //return array[i+n*j];
-    return darray[j][i];
-  } else {
-    //return array[j+n*i];
-    return darray[i][j];
-  }
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-inline std::ostream& operator<<(std::ostream& s, const _dsymatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<mat.n; i++){
-    for(CPPL_INT j=0; j<mat.n; j++){
-      if( i >= j ){
-        s << " " << mat(i,j) << "  ";
-      } else {
-        s << "{" << mat(i,j) << "} ";
-      }
-    }
-    s << std::endl;
-  }
-  
-  mat.destroy();
-  return s;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-inline void _dsymatrix::write(const char* filename) const
-{CPPL_VERBOSE_REPORT;
-  std::ofstream ofs(filename, std::ios::trunc);
-  ofs.setf(std::cout.flags());
-  ofs.precision(std::cout.precision());
-  ofs.width(std::cout.width());
-  ofs.fill(std::cout.fill());
-  
-  ofs << "#dsymatrix " << n << std::endl;
-  for(CPPL_INT i=0; i<n; i++){
-    for(CPPL_INT j=0; j<=i; j++ ){
-      ofs << operator()(i,j) << " ";
-    }
-    ofs << std::endl;
-  }
-  
-  ofs.close();
-  destroy();
-}
diff --git a/cpplapack-r198/.svn/pristine/55/55db70ee71c699c0d8f1eb91dbcfd13590de404f.svn-base b/cpplapack-r198/.svn/pristine/55/55db70ee71c699c0d8f1eb91dbcfd13590de404f.svn-base
deleted file mode 100644
index cee10c9..0000000
--- a/cpplapack-r198/.svn/pristine/55/55db70ee71c699c0d8f1eb91dbcfd13590de404f.svn-base
+++ /dev/null
@@ -1,77 +0,0 @@
-//=============================================================================
-/*! dsysv_check */
-void dsysv_check_vector()
-{
-  cout << "############ check dsysv vector ############" << endl;
-  
-  srand(unsigned(time(NULL)));
-  int N(3);
-  
-  //// make dsymatrix A  ////
-  CPPL::dsymatrix A(N);
-  for(int i=0; i<A.n; i++){
-    for(int j=0; j<A.n; j++){
-      A(i,j) =double( rand() /(RAND_MAX/10) );
-    }
-  }
-  
-  //// make dcovector b ////
-  CPPL::dcovector b(N);
-  for(int i=0; i<b.l; i++){
-    b(i) =double( rand() /(RAND_MAX/10) );
-  }
-  
-  //// make A_original and b_original ////
-  CPPL::dsymatrix A_original(A);
-  CPPL::dcovector b_original(b);
-  cout << "A_original=\n" << A_original << endl;
-  cout << "b_original=\n" << b_original << endl;
-  
-  //// solve Ax=b ////
-  A.dsysv(b);
-  
-  //// print A, b and A_original*y ////
-  cout << "modified A=\n" << A << endl;
-  cout << "x=\n" << b << endl;
-  cout << "b_original -A_original*x = (should be zero)\n" << b_original -A_original*b << endl;
-}
-
-//=============================================================================
-void dsysv_check_matrix()
-{
-  cout << "############ check dsysv matrix ############" << endl;
-  
-  srand(unsigned(time(NULL)));
-  int N(3);
-  
-
-  //// make dsymatrix A  ////
-  CPPL::dsymatrix A(N);
-  for(int i=0; i<A.n; i++){
-    for(int j=0; j<A.n; j++){
-      A(i,j) =double( rand() /(RAND_MAX/10) );
-    }
-  }
-   
-  //// make dsymatrix B  ////
-  CPPL::dgematrix B(N,N);
-  for(int i=0; i<B.m; i++){
-    for(int j=0; j<B.n; j++){
-      B(i,j) =double( rand() /(RAND_MAX/10) );
-    }
-  }
-   
-  //// make A_original and B_original ////
-  CPPL::dsymatrix A_original(A);
-  CPPL::dgematrix B_original(B);
-  cout << "A_original=\n" << A_original << endl;
-  cout << "B_original=\n" << B_original << endl;
-  
-  //// solve A*X=B ////
-  A.dsysv(B);
-  
-  //// print A, B and A_original*B ////
-  cout << "modified A=\n" << A << endl;
-  cout << "X=\n" << B << endl;
-  cout << "B_original -A_original*X = (should be zero)\n" << B_original -A_original*B << endl;
-}
diff --git a/cpplapack-r198/.svn/pristine/57/57b3dd6dd9c30bd492b461cbc3104e143458cec9.svn-base b/cpplapack-r198/.svn/pristine/57/57b3dd6dd9c30bd492b461cbc3104e143458cec9.svn-base
deleted file mode 100644
index 1c578b2..0000000
--- a/cpplapack-r198/.svn/pristine/57/57b3dd6dd9c30bd492b461cbc3104e143458cec9.svn-base
+++ /dev/null
@@ -1,23 +0,0 @@
-//=============================================================================
-/*! _zgsmatrix*comple operator */
-inline _zgsmatrix operator*(const _zgsmatrix& mat, const comple& d)
-{CPPL_VERBOSE_REPORT;
-  const std::vector<zcomponent>::iterator mat_data_end =mat.data.end();
-  for(std::vector<zcomponent>::iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    it->v *=d;
-  }
-  
-  return mat;
-}
-
-//=============================================================================
-/*! _zgsmatrix/comple operator */
-inline _zgsmatrix operator/(const _zgsmatrix& mat, const comple& d)
-{CPPL_VERBOSE_REPORT;
-  const std::vector<zcomponent>::iterator mat_data_end =mat.data.end();
-  for(std::vector<zcomponent>::iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    it->v /=d;
-  }
-  
-  return mat;
-}
diff --git a/cpplapack-r198/.svn/pristine/57/57e29a42947a607cadaa5823b7f33f4945ffca72.svn-base b/cpplapack-r198/.svn/pristine/57/57e29a42947a607cadaa5823b7f33f4945ffca72.svn-base
deleted file mode 100644
index 88aafb8..0000000
--- a/cpplapack-r198/.svn/pristine/57/57e29a42947a607cadaa5823b7f33f4945ffca72.svn-base
+++ /dev/null
@@ -1,70 +0,0 @@
-//=============================================================================
-/*! return transposed dgsmatrix */
-inline _dgsmatrix t(const dgsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  dgsmatrix newmat =mat;
-  
-  std::swap(newmat.m,newmat.n);
-  std::swap(newmat.rows,newmat.cols);
-  const std::vector<dcomponent>::iterator newmat_data_end =newmat.data.end();
-  for(std::vector<dcomponent>::iterator it=newmat.data.begin(); it!=newmat_data_end; it++){
-    std::swap(it->i,it->j);
-  }
-  
-  return _(newmat);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! search the index of element having the largest absolute value in 0-based numbering system */
-inline void idamax(CPPL_INT& i, CPPL_INT& j, const dgsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  //////// exception ////////
-  if(mat.data.size()==0){
-    WARNING_REPORT;
-    std::cerr << "The dgsmatrix is a zero matrix." << std::endl;
-    return;
-  }
-  
-  //////// find ////////
-  std::vector<dcomponent>::const_iterator itx(mat.data.begin());
-  double vmax =0.;
-  
-  const std::vector<dcomponent>::const_iterator mat_data_end =mat.data.end();
-  for(std::vector<dcomponent>::const_iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    if( vmax < fabs(it->v) ){
-      vmax =fabs(it->v);
-      itx =it;
-    }
-  }
-  
-  i =itx->i;
-  j =itx->j;
-}
-
-//=============================================================================
-/*! return its largest absolute value */
-inline double damax(const dgsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  //////// exception ////////
-  if(mat.data.size()==0){
-    return 0.;
-  }
-  
-  //////// find ////////
-  std::vector<dcomponent>::const_iterator itx(mat.data.begin());
-  double vmax =0.;
-  
-  const std::vector<dcomponent>::const_iterator mat_data_end =mat.data.end();
-  for(std::vector<dcomponent>::const_iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    if( vmax < fabs(it->v) ){
-      vmax =fabs(it->v);
-      itx =it;
-    }
-  }
-
-  return itx->v;
-}
diff --git a/cpplapack-r198/.svn/pristine/58/581a4ed98e0373107664d24c5769e086cac631bb.svn-base b/cpplapack-r198/.svn/pristine/58/581a4ed98e0373107664d24c5769e086cac631bb.svn-base
deleted file mode 100644
index 7cd654f..0000000
--- a/cpplapack-r198/.svn/pristine/58/581a4ed98e0373107664d24c5769e086cac631bb.svn-base
+++ /dev/null
@@ -1,74 +0,0 @@
-//=============================================================================
-/*! _zhematrix+zgematrix operator */
-inline _zgematrix operator+(const _zhematrix& matA, const zgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(matA.n, matA.n);
-  
-  for(CPPL_INT i=0; i<matA.n; i++){
-    for(CPPL_INT j=0; j<matA.n; j++){
-      newmat(i,j) =matA(i,j)+matB(i,j);
-    }
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _zhematrix-zgematrix operator */
-inline _zgematrix operator-(const _zhematrix& matA, const zgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") - (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(matA.n, matA.n);
-  
-  for(CPPL_INT i=0; i<matA.n; i++){
-    for(CPPL_INT j=0; j<matA.n; j++){
-      newmat(i,j) =matA(i,j)-matB(i,j);
-    }
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _zhematrix*zgematrix operator */
-inline _zgematrix operator*(const _zhematrix& matA, const zgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat( matA.n, matB.n );
-  char side ='l';
-  char uplo ='l';
-  comple alpha =comple(1.,0.);
-  comple beta =comple(0.,0.);
-  
-  zhemm_( &side, &uplo, &matA.n, &matB.n, &alpha, matA.array, &matA.n, matB.array, &matB.m, &beta, newmat.array, &newmat.m );
-  
-  matA.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/58/583520883abf9b26c98f0ba63ccc7066c020c362.svn-base b/cpplapack-r198/.svn/pristine/58/583520883abf9b26c98f0ba63ccc7066c020c362.svn-base
deleted file mode 100644
index 8bd1fde..0000000
--- a/cpplapack-r198/.svn/pristine/58/583520883abf9b26c98f0ba63ccc7066c020c362.svn-base
+++ /dev/null
@@ -1,118 +0,0 @@
-//=============================================================================
-/*! zrovector=_zrovector operator */
-inline zrovector& zrovector::operator=(const _zrovector& vec)
-{CPPL_VERBOSE_REPORT;
-  shallow_copy(vec);
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zrovector+=_zrovector operator */
-inline zrovector& zrovector::operator+=(const _zrovector& vec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( l!=vec.l ){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make a sumation." << std::endl
-              << "Your input was (" << l << ") += (" << vec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<l; i++){
-    array[i] += vec.array[i];
-  }
-  
-  vec.destroy();
-  return *this;
-}
-
-//=============================================================================
-/*! zrovector operator-= */
-inline zrovector& zrovector::operator-=(const _zrovector& vec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( l!=vec.l ){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make a subtraction." << std::endl
-              << "Your input was (" << l << ") -= (" << vec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<l; i++){
-    array[i] -= vec.array[i];
-  }
-  
-  vec.destroy();
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zrovector+zrovector operator */
-inline _zrovector operator+(const zrovector& vecA, const _zrovector& vecB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vecA.l!=vecB.l){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make a sumation." << std::endl
-              << "Your input was (" << vecA.l << ") + (" << vecB.l << ")." << std::endl;
-    exit(1);
-  }
-  
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<vecA.l; i++){
-    vecB.array[i] += vecA.array[i];
-  }
-  
-  return vecB;
-}
-
-//=============================================================================
-/*! zrovector-zrovector operator */
-inline _zrovector operator-(const zrovector& vecA, const _zrovector& vecB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vecA.l!=vecB.l){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make a subtraction." << std::endl
-              << "Your input was (" << vecA.l << ") - (" << vecB.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<vecA.l; i++){
-    vecB.array[i] =vecA.array[i]-vecB.array[i];
-  }
-  
-  return vecB;
-}
-
-//=============================================================================
-/*! zrovector^T*zrovector operator (inner product) */
-inline comple operator%(const zrovector& vecA, const _zrovector& vecB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vecA.l!=vecB.l){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make a dot product." << std::endl
-              << "Your input was (" << vecA.l << ") % (" << vecB.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  CPPL_INT inc =1;
-  comple val =zdotu_( &vecA.l, vecA.array, &inc, vecB.array, &inc );
-  
-  vecB.destroy();
-  return val;
-}
diff --git a/cpplapack-r198/.svn/pristine/58/585ef9d8d72e9adf4ae0620314bfd1d592685e2e.svn-base b/cpplapack-r198/.svn/pristine/58/585ef9d8d72e9adf4ae0620314bfd1d592685e2e.svn-base
deleted file mode 100644
index 1e0d12e..0000000
--- a/cpplapack-r198/.svn/pristine/58/585ef9d8d72e9adf4ae0620314bfd1d592685e2e.svn-base
+++ /dev/null
@@ -1,35 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int M(4), N(3);
-  
-  CPPL::zgematrix A(M,N);
-  CPPL::zcovector x(N);
-  for(int i=0; i<A.m; i++){ for(int j=0; j<A.n; j++){
-    A(i,j) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-  }}
-  for(int i=0; i<x.l; i++){
-    x(i) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-  }
-  
-  cout << "A =\n" << A << endl;
-  cout << "x =\n" << x << endl;
-  cout << "A*x =\n" << A*x << endl;
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/58/587b79f1c2f3c2bb05747a47d2c742b4e492ab42.svn-base b/cpplapack-r198/.svn/pristine/58/587b79f1c2f3c2bb05747a47d2c742b4e492ab42.svn-base
deleted file mode 100644
index d6c6179..0000000
--- a/cpplapack-r198/.svn/pristine/58/587b79f1c2f3c2bb05747a47d2c742b4e492ab42.svn-base
+++ /dev/null
@@ -1,52 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int N(5), CAP(4);
-  
-  CPPL::zhsmatrix A(N,CAP);
-  A.put(0,0, complex<double>(1.,0.) );
-  A.put(3,2, complex<double>(3.,4.) );
-  A.put(1,2, complex<double>(5.,6.) );
-  A.put(4,1, complex<double>(7.,8.) );
-  cout << "A =\n" << A << endl;
-  cout << "A(0,0) = " << A(0,0) << endl;
-  cout << "A(3,2) = " << A(3,2) << endl;
-  cout << "A(1,2) = " << A(1,2) << endl;
-  cout << "A(4,1) = " << A(4,1) << endl;
-  
-  //A.put(1,2, 4.5);
-  //A.add(1,2, 0.1);
-  //A.sub(1,2, 0.1);
-  //A.mult(1,2, 10.);
-  //A.div(1,2, 10.);
-  //A.del(1,2);
-  A.del(1);
-  cout << "A =\n" << A << endl;
-  
-  //// write/read ////
-  const CPPL::zhsmatrix B(A);
-  cout << "B =\n" << B << endl;
-  B.write( "tmp.txt" );
-  
-  CPPL::zhsmatrix C;
-  C.read( "tmp.txt" );
-  cout << "C =\n" << C << endl;
-  cout << "C-B =\n" << C-B << "<-Should be zero." << endl;
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/58/58a495cffb24a399a5e8f9d23f6e49681dd7f2b1.svn-base b/cpplapack-r198/.svn/pristine/58/58a495cffb24a399a5e8f9d23f6e49681dd7f2b1.svn-base
deleted file mode 100644
index dae3740..0000000
--- a/cpplapack-r198/.svn/pristine/58/58a495cffb24a399a5e8f9d23f6e49681dd7f2b1.svn-base
+++ /dev/null
@@ -1,91 +0,0 @@
-/*****************************************************************************/
-/*                                main.cpp                                   */
-/*****************************************************************************/
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include <vector>
-#include "cpplapack.h"
-
-//=============================================================================
-bool cg
-(
- //const CPPL::dsymatrix& A, 
- const CPPL::dssmatrix& A, 
- CPPL::dcovector& x, 
- const double& eps
-)
-{
-  double alpha, beta, rho(1.0), rho2;
-  const CPPL::dcovector y(x);
-  CPPL::dcovector r(x), p(x.l), q;
-  x.zero(); p.zero();
-
-  int itc(0);
-  const int itmax(2*x.l);
-  while(fabs(damax(r))>eps && itc<itmax){
-    std::cout << itc << " " << fabs(damax(y-A*x)) << std::endl;
-    //std::cerr << "itc=" << itc << ", fabs(damax(r))=" << fabs(damax(r)) << std::endl;
-    rho2=r%r;
-    beta=rho2/rho;
-    rho=rho2;
-    
-    p =r +beta*p;
-    q=A*p;
-    alpha=rho/(p%q);
-    
-    x+=alpha*p;
-    r-=alpha*q;
-    
-    itc++;
-  }
-  std::cerr << "itc=" << itc << "  fabs(damax(r))=" << fabs(damax(r)) << std::endl;
-  
-  if(itc<itmax){ return 0; }
-  else{ return 1; }
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-int main(int argc, char** argv)
-{
-  srand(time(NULL));
-  
-  const int size(100);
-  //CPPL::dsymatrix A(size);
-  CPPL::dssmatrix A(size);
-  
-  for(int i=0; i<size; i++){
-    for(int j=0; j<=i; j++){
-      if(rand()%2){ A(i,j) =(double(rand())/double(RAND_MAX))*2.0 -1.0; }
-    }
-    A(i,i)+=10.;
-  }
-  A.write("A.dsymatrix");
-  
-  CPPL::dcovector x(size);
-  for(int i=0; i<size; i++){
-    x(i) =(double(rand())/double(RAND_MAX))*1. -0.5;
-  }
-  x.write("answer.dcovector");//solution
-  std::cerr << "answer=\n" << t(x) << std::endl;
-  
-  CPPL::dcovector y(size);
-  y=A*x;
-  y.write("y.dcovector");
-  
-  double eps(fabs(damax(y))*1e-6);
-  //std::cerr << "eps=" << eps << std::endl;
-  if( cg(A, y, eps) ){
-    std::cerr << "failed." << std::endl;
-    exit(1);
-  }
-  y.write("solution.dcovector");
-  std::cout << "solution=\n" << t(y) << std::endl;
-  
-  return 0;
-}
diff --git a/cpplapack-r198/.svn/pristine/59/59196703759d8839abff0faf702da0ee41a77857.svn-base b/cpplapack-r198/.svn/pristine/59/59196703759d8839abff0faf702da0ee41a77857.svn-base
deleted file mode 100644
index 0458dd4..0000000
--- a/cpplapack-r198/.svn/pristine/59/59196703759d8839abff0faf702da0ee41a77857.svn-base
+++ /dev/null
@@ -1,71 +0,0 @@
-//=============================================================================
-/*! _zgematrix+zhematrix operator */
-inline _zgematrix operator+(const _zhematrix& matA, const _zgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<matA.n; i++){
-    for(CPPL_INT j=0; j<matA.n; j++){
-      matB(i,j) += matA(i,j);
-    }
-  }
-  
-  matA.destroy();
-  return matB;
-}
-
-//=============================================================================
-/*! _zhematrix-zgematrix operator */
-inline _zgematrix operator-(const _zhematrix& matA, const _zgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") - (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<matA.n; i++){
-    for(CPPL_INT j=0; j<matA.n; j++){
-      matB(i,j) =matA(i,j)-matB(i,j);
-    }
-  }
-  
-  matA.destroy();
-  return matB;
-}
-
-//=============================================================================
-/*! _zgematrix*zgematrix operator */
-inline _zgematrix operator*(const _zhematrix& matA, const _zgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat( matA.n, matB.n );
-  char side ='l';
-  char uplo ='l';
-  comple alpha =comple(1.,0.);
-  comple beta =comple(0.,0.);
-  
-  zhemm_( &side, &uplo, &matA.n, &matB.n, &alpha, matA.array, &matA.n, matB.array, &matB.m, &beta, newmat.array, &newmat.m );
-  
-  matA.destroy();
-  matB.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/59/598076280f50d771f7ec7f6b1160ef68a08b6876.svn-base b/cpplapack-r198/.svn/pristine/59/598076280f50d771f7ec7f6b1160ef68a08b6876.svn-base
deleted file mode 100644
index b9bf569..0000000
--- a/cpplapack-r198/.svn/pristine/59/598076280f50d771f7ec7f6b1160ef68a08b6876.svn-base
+++ /dev/null
@@ -1,128 +0,0 @@
-//=============================================================================
-//! (DO NOT USE) Complex-double Class for Hermitian matrices
-class zhecomplex : public comple
-{
-public:
-  ///////////////////////////////////////////////
-  /////////////////// objects ///////////////////
-  ///////////////////////////////////////////////
-  CPPL_INT i, j;
-  comple& v;
-  
-  ///////////////////////////////////////////////
-  ///////////////// constructors ////////////////
-  ///////////////////////////////////////////////
-  inline zhecomplex(const CPPL_INT&, const CPPL_INT&, comple&);
-  
-  ///////////////////////////////////////////////
-  ////////////////// functions //////////////////
-  ///////////////////////////////////////////////
-  inline zhecomplex& operator=(const comple&);
-  inline zhecomplex& operator+=(const comple&);
-  inline zhecomplex& operator-=(const comple&);
-  inline zhecomplex& operator*=(const comple&);
-};
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! constructor */
-inline zhecomplex::zhecomplex(const CPPL_INT& _i, const CPPL_INT& _j, comple& _v)
-  : comple( _i < _j ? std::conj( _v ) : _v ), 
-    v( _v )
-{CPPL_VERBOSE_REPORT;
-  i = _i;
-  j = _j;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! operator= */
-inline zhecomplex& zhecomplex::operator=(const comple& _v)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i==j && std::fabs(_v.imag()) > DBL_MIN ){
-    WARNING_REPORT;
-    std::cerr << "Diagonal components of a hermitian matrix have to be real numbers." << std::endl
-              << "Your input to the (" << i << "," << j << ") element was a complex number, " << _v << "." << std::endl;
-  }
-#endif//CPPL_DEBUG
-  
-  //comple::operator=( _v );
-  //v = ( i < j ? std::conj( _v ) : _v );
-  if(i>=j){
-    v =_v;
-  }
-  else{//i<j
-    v =std::conj(_v);
-  }
-  return *this;
-}
-
-//=============================================================================
-/*! operator+= */
-inline zhecomplex& zhecomplex::operator+=(const comple& _v)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i==j && std::fabs(_v.imag()) > DBL_MIN ){
-    WARNING_REPORT;
-    std::cerr << "Diagonal components of a hermitian matrix have to be real numbers." << std::endl
-              << "Your input to the (" << i << "," << j << ") element was a complex number, " << _v << "." << std::endl;
-  }
-#endif//CPPL_DEBUG
-  
-  if(i>=j){
-    v +=_v;
-  }
-  else{//i<j
-    v +=std::conj(_v);
-  }
-  return *this;
-}
-
-//=============================================================================
-/*! operator-= */
-inline zhecomplex& zhecomplex::operator-=(const comple& _v)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i==j && std::fabs(_v.imag()) > DBL_MIN ){
-    WARNING_REPORT;
-    std::cerr << "Diagonal components of a hermitian matrix have to be real numbers." << std::endl
-              << "Your input to the (" << i << "," << j << ") element was a complex number, " << _v << "." << std::endl;
-  }
-#endif//CPPL_DEBUG
-  
-  if(i>=j){
-    v -=_v;
-  }
-  else{//i<j
-    v -=std::conj(_v);
-  }
-  return *this;
-}
-
-//=============================================================================
-/*! operator*= */
-inline zhecomplex& zhecomplex::operator*=(const comple& _v)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i==j && std::fabs(_v.imag()) > DBL_MIN ){
-    WARNING_REPORT;
-    std::cerr << "Diagonal components of a hermitian matrix have to be real numbers." << std::endl
-              << "Your input to the (" << i << "," << j << ") element was a complex number, " << _v << "." << std::endl;
-  }
-#endif//CPPL_DEBUG
-  
-  if(i>=j){
-    v *=_v;
-  }
-  else{//i<j
-    v *=std::conj(_v);
-  }
-  return *this;
-}
diff --git a/cpplapack-r198/.svn/pristine/5a/5a13b1f3c0a3912379c253e6304d0688065a41ec.svn-base b/cpplapack-r198/.svn/pristine/5a/5a13b1f3c0a3912379c253e6304d0688065a41ec.svn-base
deleted file mode 100644
index 8b3dfbf..0000000
--- a/cpplapack-r198/.svn/pristine/5a/5a13b1f3c0a3912379c253e6304d0688065a41ec.svn-base
+++ /dev/null
@@ -1,126 +0,0 @@
-//=============================================================================
-void dggev_check_value()
-{
-  cout << "############ check dggev value ############" << endl;
-  
-  srand(unsigned(time(NULL)));
-  int M(3);
-  
-  //// make dgematrix A and B ////
-  CPPL::dgematrix A(M,M), B(M,M);
-  for(int i=0; i<A.m; i++){ for(int j=0; j<A.n; j++){
-    A(i,j) =double( rand() /(RAND_MAX/10) );
-    B(i,j) =double( rand() /(RAND_MAX/10) );
-  }}
-  
-  //// make wr wi vr ////
-  vector<double> wr, wi;
-  
-  //// make A_original and B_original ////
-  CPPL::dgematrix A_original(A);
-  CPPL::dgematrix B_original(B);
-  
-  //// dggev ////
-  A.dggev(B, wr, wi);
-  
-  //// print ////
-  cout << "A_original=\n" << A_original << endl;
-  cout << "B_original=\n" << B_original << endl;
-  for(int i=0; i<A.m; i++){
-    cout << "#### " << i << "th eigen ####" << endl;
-    cout << "wr=" << wr[i] <<endl;
-    cout << "wi=" << wi[i] <<endl;
-  }
-}
-
-//=============================================================================
-void dggev_check_right()
-{
-  cout << "############ check dggev right ############" << endl;
-  
-  srand(unsigned(time(NULL)));
-  int M(3);
-  
-  //// make dgematrix A and B ////
-  CPPL::dgematrix A(M,M), B(M,M);
-  for(int i=0; i<A.m; i++){ for(int j=0; j<A.n; j++){
-    A(i,j) =double( rand() /(RAND_MAX/10) );
-    B(i,j) =double( rand() /(RAND_MAX/10) );
-  }}
-  
-  //// make wr wi vr ////
-  vector<double> wr, wi;
-  vector<CPPL::dcovector> vrr, vri;
-  
-  //// make A_original and B_original ////
-  CPPL::dgematrix A_original(A);
-  CPPL::dgematrix B_original(B);
-  
-  //// dggev ////
-  A.dggev(B, wr, wi ,vrr, vri);
-  
-  //// print ////
-  cout << "A_original=\n" << A_original << endl;
-  cout << "B_original=\n" << B_original << endl;
-  for(int i=0; i<A.m; i++){
-    cout << "#### " << i << "th eigen ####" << endl;
-    cout << "wr=" << wr[i] <<endl;
-    cout << "wi=" << wi[i] <<endl;
-    cout << "vrr=\n" << vrr[i] <<endl;
-    cout << "vri=\n" << vri[i] <<endl;
-    cout << "Real[ [A]*{x} -lambda*[B]*{x} ] = (Should be zeros)\n"
-         << A_original*vrr[i]
-      -(wr[i]*B_original*vrr[i] - wi[i]*B_original*vri[i])
-         << endl;
-    cout << "Imag[ [A]*{x} -lambda*[B]*{x} ] = (Should be zeros)\n"
-         << A_original*vri[i]
-      -(wr[i]*B_original*vri[i] + wi[i]*B_original*vrr[i])
-         << endl;
-  }
-}
-
-//=============================================================================
-void dggev_check_left()
-{
-  cout << "############ check dggev left ############" << endl;
-  
-  srand(unsigned(time(NULL)));
-  int M(3);
-  
-  //// make dgematrix A and B ////
-  CPPL::dgematrix A(M,M), B(M,M);
-  for(int i=0; i<A.m; i++){ for(int j=0; j<A.n; j++){
-    A(i,j) =double( rand() /(RAND_MAX/10) );
-    B(i,j) =double( rand() /(RAND_MAX/10) );
-  }}
-  
-  //// make wr wi vl ////
-  vector<double> wr, wi;
-  vector<CPPL::drovector> vlr, vli;
-  
-  //// make A_original and B_original ////
-  CPPL::dgematrix A_original(A);
-  CPPL::dgematrix B_original(B);
-  
-  //// dggev ////
-  A.dggev(B, wr, wi ,vlr, vli);
-  
-  //// print ////
-  cout << "A_original=\n" << A_original << endl;
-  cout << "B_original=\n" << B_original << endl;
-  for(int i=0; i<A.m; i++){
-    cout << "#### " << i << "th eigen ####" << endl;
-    cout << "wr = " << wr[i] << endl;
-    cout << "wi = " << wi[i] << endl;
-    cout << "vlr = " << vlr[i];
-    cout << "vli = " << vli[i] << endl;
-    cout << "Real[ {x}*[A] -lambda*{x}*[B] ] = (Should be zeros)\n"
-         << vlr[i]*A_original
-      -(wr[i]*vlr[i]*B_original - wi[i]*vli[i]*B_original)
-         << endl;
-    cout << "Imag[ [A]*{x} -lambda*{x}*[B] ] = (Should be zeros)\n"
-         << vli[i]*A_original
-      -(wr[i]*vli[i]*B_original + wi[i]*vlr[i]*B_original)
-         << endl;
-  }
-}
diff --git a/cpplapack-r198/.svn/pristine/5a/5aaddacb2da452b2bbfd20972ff2de1a0c04753d.svn-base b/cpplapack-r198/.svn/pristine/5a/5aaddacb2da452b2bbfd20972ff2de1a0c04753d.svn-base
deleted file mode 100644
index d2b2a9b..0000000
--- a/cpplapack-r198/.svn/pristine/5a/5aaddacb2da452b2bbfd20972ff2de1a0c04753d.svn-base
+++ /dev/null
@@ -1,36 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int M(4);
-  
-  CPPL::zrovector x(M);
-  CPPL::zcovector y(M);
-  
-  for(int i=0; i<x.l; i++){
-    x(i) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-  }
-  for(int i=0; i<y.l; i++){
-    y(i) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-  }
-  
-  cout << "x =\n" << x << endl;
-  cout << "y =\n" << y << endl;
-  cout << "x*y =\n" << x*y << endl;
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/5a/5aafeb42eb0370895c2b945fe00029d322253621.svn-base b/cpplapack-r198/.svn/pristine/5a/5aafeb42eb0370895c2b945fe00029d322253621.svn-base
deleted file mode 100644
index 3095076..0000000
--- a/cpplapack-r198/.svn/pristine/5a/5aafeb42eb0370895c2b945fe00029d322253621.svn-base
+++ /dev/null
@@ -1,68 +0,0 @@
-//=============================================================================
-/*! _zgematrix+zhematrix operator */
-inline _zgematrix operator+(const _zgematrix& matA, const zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  for(CPPL_INT i=0; i<matB.n; i++){
-    for(CPPL_INT j=0; j<matB.n; j++){
-      matA(i,j) += matB(i,j);
-    }
-  }
-  
-  return matA;
-}
-
-//=============================================================================
-/*! _zgematrix-zhematrix operator */
-inline _zgematrix operator-(const _zgematrix& matA, const zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<matB.n; i++){
-    for(CPPL_INT j=0; j<matB.n; j++){
-      matA(i,j) -= matB(i,j);
-    }
-  }
-  
-  return matA;
-}
-
-//=============================================================================
-/*! _zgematrix*zhematrix operator */
-inline _zgematrix operator*(const _zgematrix& matA, const zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat( matA.m, matB.n );
-  char side ='R';
-  char uplo ='l';
-  comple alpha =comple(1.,0.);
-  comple beta =comple(0.,0.);
-  
-  zhemm_( &side, &uplo, &newmat.m, &newmat.n, &alpha, matB.array, &matB.n, matA.array, &matA.m, &beta, newmat.array, &newmat.m );
-  
-  matA.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/5a/5ad6ddc307e277ab1952fb27faf129022cf20fe4.svn-base b/cpplapack-r198/.svn/pristine/5a/5ad6ddc307e277ab1952fb27faf129022cf20fe4.svn-base
deleted file mode 100644
index 0c69f1c..0000000
--- a/cpplapack-r198/.svn/pristine/5a/5ad6ddc307e277ab1952fb27faf129022cf20fe4.svn-base
+++ /dev/null
@@ -1,90 +0,0 @@
-//=============================================================================
-//! Samll Complex Double-precision Row Vector Class
-template<CPPL_INT l> class zrovector_small
-{
-public:
-  ///////////////////////////////////////////////
-  /////////////////// objects ///////////////////
-  ///////////////////////////////////////////////
-  comple array[l];
-  
-  ///////////////////////////////////////////////
-  ///////////////// constructors ////////////////
-  ///////////////////////////////////////////////
-  inline zrovector_small();
-  inline explicit zrovector_small(const zrovector&);
-  inline zrovector_small(const comple&, const comple&);
-  inline zrovector_small(const comple&, const comple&, const comple&);
-  inline ~zrovector_small();
-  
-  ///////////////////////////////////////////////
-  ////////////////// functions //////////////////
-  ///////////////////////////////////////////////
-  //////// cast ////////
-  inline _zrovector to_zrovector() const;
-  
-  //////// io ////////
-  inline comple& operator()(const CPPL_INT&);
-  inline comple  operator()(const CPPL_INT&) const;
-  inline zrovector_small<l>& set(const CPPL_INT&, const comple&);
-  template<CPPL_INT _l> inline friend std::ostream& operator<<(std::ostream&, const zrovector_small<_l>&);
-  inline void read(const char* filename);
-  inline void write(const char* filename) const;
-  
-  //////// calc ////////
-#ifndef _MSC_VER
-  template<CPPL_INT _l> inline friend zcovector_small<_l> t(const zrovector_small<_l>&);
-  template<CPPL_INT _l> inline friend comple nrm2(const zrovector_small<_l>&);
-  template<CPPL_INT _l> inline friend CPPL_INT idamax(const zrovector_small<_l>&);
-  template<CPPL_INT _l> inline friend comple damax(const zrovector_small<_l>&);
-#endif//_MSC_VER
-  
-  //////// misc ////////
-  inline zrovector_small<l>& zero();
-  
-  ///////////////////////////////////////////////
-  ///////////// numerical operators /////////////
-  ///////////////////////////////////////////////
-#ifndef _MSC_VER
-  //////// = ////////
-  template<CPPL_INT L> inline zrovector_small<L>& operator= (const  zrovector_small<L>&);
-  //////// += ////////
-  template<CPPL_INT L> inline friend zrovector_small<L>& operator+=(zrovector_small<L>&, const zrovector_small<L>&);
-  //////// -= ////////
-  template<CPPL_INT L> inline friend zrovector_small<L>& operator-=(zrovector_small<L>&, const zrovector_small<L>&);
-  //////// *= ////////
-  template<CPPL_INT L> inline friend zrovector_small<L>& operator*=(zrovector_small<L>&, const             double&);
-  template<CPPL_INT L> inline friend zrovector_small<L>& operator*=(zrovector_small<L>&, const             comple&);
-  //////// /= ////////
-  template<CPPL_INT L> inline friend zrovector_small<L>& operator/=(zrovector_small<L>&, const             double&);
-  template<CPPL_INT L> inline friend zrovector_small<L>& operator/=(zrovector_small<L>&, const             comple&);
-  //////// unary ////////
-  template<CPPL_INT L> inline friend const zrovector_small<L>& operator+(const zrovector_small<L>&);
-  template<CPPL_INT L> inline friend zrovector_small<L> operator-(const zrovector_small<L>&);
-  //////// + ////////
-  template<CPPL_INT L> inline friend zrovector_small<L> operator+(const zrovector_small<L>&, const zrovector_small<L>&);
-  //////// - ////////
-  template<CPPL_INT L> inline friend zrovector_small<L> operator-(const zrovector_small<L>&, const zrovector_small<L>&);
-  //////// * ////////
-  template<CPPL_INT L> inline friend             comple operator*(const zrovector_small<L>&, const zcovector_small<L>&);
-  template<CPPL_INT M, CPPL_INT N> inline friend zrovector_small<N> operator*(const zrovector_small<M>&, const zgematrix_small<M,N>&);
-  template<CPPL_INT L> inline friend zrovector_small<L> operator*(const zrovector_small<L>&, const dsymatrix_small<L>&);
-  template<CPPL_INT L> inline friend zrovector_small<L> operator*(const zrovector_small<L>&, const             comple&);
-  template<CPPL_INT L> inline friend zrovector_small<L> operator*(const zrovector_small<L>&, const             comple&);
-  //////// / ////////
-  template<CPPL_INT L> inline friend zrovector_small<L> operator/(const zrovector_small<L>&, const             double&);
-  template<CPPL_INT L> inline friend zrovector_small<L> operator/(const zrovector_small<L>&, const             comple&);
-  //////// comple ////////
-  template<CPPL_INT L> inline friend zrovector_small<L> operator*(const             double&, const zrovector_small<L>&);
-  template<CPPL_INT L> inline friend zrovector_small<L> operator*(const             comple&, const zrovector_small<L>&);
-  //////// hadamerd ////////
-  template<CPPL_INT L> inline friend zrovector_small<L>  hadamerd(const zrovector_small<L>&, const zrovector_small<L>&);  
-#endif//_MSC_VER
-};
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-inline comple  operator/(const zrovec2&, const zrovec2&);
-inline zrovec3 operator/(const zrovec3&, const zrovec3&);
diff --git a/cpplapack-r198/.svn/pristine/5a/5ae3763895fe7d8f81a8480672d65c65a6344666.svn-base b/cpplapack-r198/.svn/pristine/5a/5ae3763895fe7d8f81a8480672d65c65a6344666.svn-base
deleted file mode 100644
index 5de9a3b..0000000
--- a/cpplapack-r198/.svn/pristine/5a/5ae3763895fe7d8f81a8480672d65c65a6344666.svn-base
+++ /dev/null
@@ -1,24 +0,0 @@
-//=============================================================================
-/*! _zrovector*zgsmatrix operator */
-inline _zrovector operator*(const _zrovector& vec, const zgsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vec.l!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These vector and matrix can not make a product." << std::endl
-              << "Your input was (" << vec.l << ") * (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zrovector newvec(mat.n);
-  newvec.zero();
-  
-  const std::vector<zcomponent>::const_iterator mat_data_end =mat.data.end();
-  for(std::vector<zcomponent>::const_iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    newvec(it->j) += vec(it->i)*it->v;
-  }
-  
-  vec.destroy();
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/5b/5b6e1855add727ad52ec7bcd2ca0ca0a8c2fa815.svn-base b/cpplapack-r198/.svn/pristine/5b/5b6e1855add727ad52ec7bcd2ca0ca0a8c2fa815.svn-base
deleted file mode 100644
index 3926743..0000000
--- a/cpplapack-r198/.svn/pristine/5b/5b6e1855add727ad52ec7bcd2ca0ca0a8c2fa815.svn-base
+++ /dev/null
@@ -1,25 +0,0 @@
-//=============================================================================
-/*! zrovector*_zgbmatrix operator */
-inline _zrovector operator*(const zrovector& vec, const _zgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vec.l!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These vector and matrix can not make a product." << std::endl
-              << "Your input was (" << vec.l << ") * (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zrovector newvec(mat.n);
-  char trans ='T';
-  comple alpha =comple(1.,0.);
-  CPPL_INT lda =mat.kl+mat.ku+1;
-  CPPL_INT inc =1;
-  comple beta =comple(0.,0.);
-  
-  zgbmv_( &trans, &mat.m, &mat.n, &mat.kl, &mat.ku, &alpha, mat.array, &lda, vec.array, &inc, &beta, newvec.array, &inc );
-  
-  mat.destroy();
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/5c/5ccddc596f4c8d822f53e0e7b861cd3b9e15ff27.svn-base b/cpplapack-r198/.svn/pristine/5c/5ccddc596f4c8d822f53e0e7b861cd3b9e15ff27.svn-base
deleted file mode 100644
index 025c477..0000000
--- a/cpplapack-r198/.svn/pristine/5c/5ccddc596f4c8d822f53e0e7b861cd3b9e15ff27.svn-base
+++ /dev/null
@@ -1,72 +0,0 @@
-//=============================================================================
-/*! zrovector constructor */
-inline zrovector::zrovector()
-{CPPL_VERBOSE_REPORT;
-  //////// initialize ////////
-  l =0;
-  array =NULL;
-}
-
-//=============================================================================
-/*! zrovector copy constructor */
-inline zrovector::zrovector(const zrovector& vec)
-{CPPL_VERBOSE_REPORT;
-  //////// initialize ////////
-  l =vec.l;
-  array =new comple[l];
-  
-  //////// copy ////////
-  CPPL_INT inc =1;
-  zcopy_(&l, vec.array, &inc, array, &inc);
-}
-
-//=============================================================================
-/*! zrovector constructor to cast _zrovector */
-inline zrovector::zrovector(const _zrovector& vec)
-{CPPL_VERBOSE_REPORT;
-  //////// initialize ////////
-  l =vec.l;
-  array =vec.array;
-  
-  vec.nullify();
-}
-
-//=============================================================================
-/*! zrovector constructor with size specification */
-inline zrovector::zrovector(const CPPL_INT& _l)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( _l<0 ){
-    ERROR_REPORT;
-    std::cerr << "Vector size must be positive integers. " << std::endl
-              << "Your input was (" << _l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //////// initialize ////////
-  l =_l;
-  array =new comple[l];
-}
-
-//=============================================================================
-/*! zrovector constructor with filename */
-inline zrovector::zrovector(const char* filename)
-{CPPL_VERBOSE_REPORT;
-  array =NULL;
-  
-  //// read ////
-  read(filename);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zrovector destructor */
-inline zrovector::~zrovector()
-{CPPL_VERBOSE_REPORT;
-  //////// delete array ////////
-  delete [] array;
-}
diff --git a/cpplapack-r198/.svn/pristine/5d/5d2353f0de666cf86c897cb5b5b44e47a5138b91.svn-base b/cpplapack-r198/.svn/pristine/5d/5d2353f0de666cf86c897cb5b5b44e47a5138b91.svn-base
deleted file mode 100644
index 06462a7..0000000
--- a/cpplapack-r198/.svn/pristine/5d/5d2353f0de666cf86c897cb5b5b44e47a5138b91.svn-base
+++ /dev/null
@@ -1,23 +0,0 @@
-//=============================================================================
-/*! zrovector*zgematrix operator */
-inline _zrovector operator*(const zrovector& vec, const zgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vec.l!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These vector and matrix can not make a product." << std::endl
-              << "Your input was (" << vec.l << ") * (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zrovector newvec(mat.n);
-  char trans ='T';
-  comple alpha =comple(1.,0.);
-  CPPL_INT inc =1;
-  comple beta =comple(0.,0.);
-  
-  zgemv_( &trans, &mat.m, &mat.n, &alpha, mat.array, &mat.m, vec.array, &inc, &beta, newvec.array, &inc );
-  
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/5d/5defd92257d4d7c7681d3984312c3f0fd7e34de9.svn-base b/cpplapack-r198/.svn/pristine/5d/5defd92257d4d7c7681d3984312c3f0fd7e34de9.svn-base
deleted file mode 100644
index 6957845..0000000
--- a/cpplapack-r198/.svn/pristine/5d/5defd92257d4d7c7681d3984312c3f0fd7e34de9.svn-base
+++ /dev/null
@@ -1,97 +0,0 @@
-//=============================================================================
-/*! zhematrix constructor without arguments */
-inline zhematrix::zhematrix()
-  : m(n)
-{CPPL_VERBOSE_REPORT;
-  //////// initialize ////////
-  n = 0;
-  array =NULL;
-  darray =NULL;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zhematrix copy constructor */
-inline zhematrix::zhematrix(const zhematrix& mat)
-  : m(n)
-{CPPL_VERBOSE_REPORT;
-  //////// initialize ////////
-  n =mat.n;
-  array =new comple[n*n];
-  darray =new comple*[n];
-  for(int i=0; i<n; i++){
-    darray[i] =&array[i*n];
-  }
-  
-  //////// copy ////////
-  CPPL_INT size =n*n;
-  CPPL_INT inc =1;
-  zcopy_(&size, mat.array, &inc, array, &inc);
-}
-
-//=============================================================================
-/*! zhematrix constructor to cast _zhematrix */
-inline zhematrix::zhematrix(const _zhematrix& mat)
-  : m(n)
-{CPPL_VERBOSE_REPORT;
-  n =mat.n;
-  array =mat.array;
-  darray =mat.darray;
-  
-  mat.nullify();
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zhematrix constructor with size specification */
-inline zhematrix::zhematrix(const CPPL_INT& _n)
-  : m(n)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( _n<0 ){
-    ERROR_REPORT;
-    std::cerr << "Matrix sizes must be positive integers. " << std::endl
-              << "Your input was (" << _n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //////// initialize ////////
-  n =_n;
-  array =new comple[n*n];
-  darray =new comple*[n];
-  for(int i=0; i<n; i++){
-    darray[i] =&array[i*n];
-  }
-}
-
-//=============================================================================
-/*! zhematrix constructor with filename */
-inline zhematrix::zhematrix(const char* filename)
-  : m(n)
-{CPPL_VERBOSE_REPORT;
-  array =NULL;
-  darray =NULL;
-  
-  //// read ////
-  read(filename);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zhematrix destructor */
-inline zhematrix::~zhematrix()
-{CPPL_VERBOSE_REPORT;
-  //////// delete array ////////
-  delete [] array;
-  delete [] darray;
-}
diff --git a/cpplapack-r198/.svn/pristine/5e/5e087e6c7d1faed945260fbe2a0ad885e613b630.svn-base b/cpplapack-r198/.svn/pristine/5e/5e087e6c7d1faed945260fbe2a0ad885e613b630.svn-base
deleted file mode 100644
index 827e170..0000000
--- a/cpplapack-r198/.svn/pristine/5e/5e087e6c7d1faed945260fbe2a0ad885e613b630.svn-base
+++ /dev/null
@@ -1,46 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int M(3), N(3), KL(1), KU(2);
-  
-  CPPL::zhematrix A(N);
-  CPPL::zgbmatrix B(M,N,KL,KU);
-  
-  for(int i=0; i<A.n; i++){
-    for(int j=0; j<i; j++){
-      A(i,j) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-    }
-    A(i,i) =complex<double>(rand()/(RAND_MAX/10), 0.0);
-  }
-  
-  for(int i=0; i<B.m; i++){
-    for(int j=std::max(0,i-B.kl); j<std::min(B.n,i+B.ku+1); j++){
-      B(i,j) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-    }
-  }
-  
-  
-  cout << "A =\n" << A << endl;
-  cout << "B =\n" << B << endl;
-  
-  cout << "A+B =\n" << A+B << endl;
-  cout << "A-B =\n" << A-B << endl;
-  cout << "A*B =\n" << A*B << endl;
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/5e/5eec2a2f4a791a0927887bbc5ca4a392c378940c.svn-base b/cpplapack-r198/.svn/pristine/5e/5eec2a2f4a791a0927887bbc5ca4a392c378940c.svn-base
deleted file mode 100644
index f1cd1dc..0000000
--- a/cpplapack-r198/.svn/pristine/5e/5eec2a2f4a791a0927887bbc5ca4a392c378940c.svn-base
+++ /dev/null
@@ -1,337 +0,0 @@
-//=============================================================================
-/*! operator() for const object */
-inline comple zhsmatrix::operator()(const CPPL_INT& i, const CPPL_INT& j) const
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || j<0 || n<=i || n<=j ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the matrix size." << std::endl
-              << "Your input is (" << i << "," << j << "), whereas the matrix size is " << n << "x" << n << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //// search (i,j) component ////
-  const CPPL_INT ii(std::max(i,j)), jj(std::min(i,j));
-  
-  const std::vector<CPPL_INT>::const_iterator line_ii_end =line[ii].end();
-  for(std::vector<CPPL_INT>::const_iterator p=line[ii].begin(); p!=line_ii_end; p++){
-    if(data[*p].i==ii && data[*p].j==jj){
-      if( i>j ){ return data[*p].v; }//ii=i
-      else{      return std::conj(data[*p].v); }//ii=j
-    }
-  }
-  
-  //// (i,j) component was not found ////
-  return comple(0.0,0.0);
-}
-
-//=============================================================================
-/*! operator() */
-inline zhecomplex zhsmatrix::operator()(const CPPL_INT& i, const CPPL_INT& j)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || j<0 || n<=i || n<=j ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the matrix size." << std::endl
-              << "Your input is (" << i << "," << j << "), whereas the matrix size is " << n << "x" << n << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //////// search (i,j) component ////////
-  const CPPL_INT ii(std::max(i,j)), jj(std::min(i,j));
-
-  const std::vector<CPPL_INT>::const_iterator line_ii_end =line[ii].end();
-  for(std::vector<CPPL_INT>::const_iterator p=line[ii].begin(); p!=line_ii_end; p++){
-    if(data[*p].i==ii && data[*p].j==jj){
-      return zhecomplex(i,j, data[*p].v);
-    }
-  }
-  
-  //////// (i,j) component not found ////////
-  if(i>j){
-    line[i].push_back(CPPL_INT(data.size()));
-    line[j].push_back(CPPL_INT(data.size()));
-    data.push_back(zcomponent(i,j,comple(0.,0.)));
-  }
-  else if(i<j){
-    line[i].push_back(CPPL_INT(data.size()));
-    line[j].push_back(CPPL_INT(data.size()));
-    data.push_back(zcomponent(j,i,comple(0.,0.)));
-  }
-  else{//i==j
-    line[i].push_back(CPPL_INT(data.size()));
-    data.push_back(zcomponent(i,i,comple(0.,0.)));
-  }
-  
-  return zhecomplex(i,j, data.back().v);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! put value with volume cheack without isListed check */
-inline zhsmatrix& zhsmatrix::put(const CPPL_INT& i, const CPPL_INT& j, const comple& v)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || j<0 || n<=i || n<=j ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the matrix size." << std::endl
-              << "Your input is (" << i << "," << j << "), whereas the matrix size is " << n << "x" << n << "." << std::endl;
-    exit(1);
-  }
-  
-  if( isListed(i,j) ){
-    ERROR_REPORT;
-    std::cerr << "The required component is already listed." << std::endl
-              << "Your input was (" << i << "," << j << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //// push ////
-  if(i==j){
-    line[i].push_back(CPPL_INT(data.size()));
-    data.push_back(zcomponent(i,j,v));
-  }
-  else if(i>j){
-    line[i].push_back(CPPL_INT(data.size()));
-    line[j].push_back(CPPL_INT(data.size()));
-    data.push_back(zcomponent(i,j,v));
-  }
-  else{//i<j
-    line[i].push_back(CPPL_INT(data.size()));
-    line[j].push_back(CPPL_INT(data.size()));
-    data.push_back(zcomponent(j,i,conj(v)));
-  }
-  
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! delete the entry of a component */
-inline zhsmatrix& zhsmatrix::del(const CPPL_INT i, const CPPL_INT j)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || j<0 || n<=i || n<=j ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the matrix size." << std::endl
-              << "Your input was (" << i << "," << j << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  const CPPL_INT ii(std::max(i,j)), jj(std::min(i,j));
-
-  //////// search (i,j) component ////////
-  const std::vector<CPPL_INT>::iterator line_ii_end =line[ii].end();
-  for(std::vector<CPPL_INT>::iterator p=line[ii].begin(); p!=line_ii_end; p++){
-    if( data[*p].i==ii && data[*p].j==jj ){//exists
-      //// save position ////
-      CPPL_INT c =*p;
-      CPPL_INT C =CPPL_INT(data.size()-1);
-      
-      //// data translation ////
-      data[c]=data.back();
-      data.pop_back();
-
-      //// remove from List ////
-      line[ii].erase(p);
-      if(i!=j){//off-diagonal
-        const std::vector<CPPL_INT>::iterator line_jj_end =line[jj].end();
-        for(std::vector<CPPL_INT>::iterator pj=line[jj].begin(); pj!=line_jj_end; pj++){
-          if(*pj==c){ line[jj].erase(pj); break; }
-        }
-      }
-      
-      //// modify the entry of translated component ////
-      CPPL_INT I(data[c].i), J(data[c].j);
-      const std::vector<CPPL_INT>::iterator line_I_end =line[I].end();
-      for(std::vector<CPPL_INT>::iterator q=line[I].begin(); q!=line_I_end; q++){
-        if(*q==C){ *q=c; break; }
-      }
-      if(I!=J){//off-diagonal
-        const std::vector<CPPL_INT>::iterator line_J_end =line[J].end();
-        for(std::vector<CPPL_INT>::iterator q=line[J].begin(); q!=line_J_end; q++){
-          if(*q==C){ *q=c; break; }
-        }
-      }
-      return *this;
-    }
-  }
-  
-#ifdef  CPPL_DEBUG
-  std::cerr << "# [NOTE]@zhsmatrix::del(CPPL_INT&, CPPL_INT&): The required component was not listed. Your input was (" << i << "," << j << ")." << std::endl;
-#endif//CPPL_DEBUG
-  
-  return *this;
-}
-
-//=============================================================================
-/*! delete the entry of an element */
-inline zhsmatrix& zhsmatrix::del(const CPPL_INT c)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( c<0 || c>=CPPL_INT(data.size()) ){
-    ERROR_REPORT;
-    std::cerr << "The required element is out of the matrix volume." << std::endl
-              << "Your input was (" << c << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  if( c==CPPL_INT(data.size()-1) ){//if c is the last element
-    CPPL_INT i(data[c].i), j(data[c].j);
-    const std::vector<CPPL_INT>::iterator line_i_end =line[i].end();
-    for(std::vector<CPPL_INT>::iterator q=line[i].begin(); q!=line_i_end; q++){
-      if( *q==c ){ line[i].erase(q); break; }
-    }
-    if(i!=j){//off-diagonal
-      const std::vector<CPPL_INT>::iterator line_j_end =line[j].end();
-      for(std::vector<CPPL_INT>::iterator q=line[j].begin(); q!=line_j_end; q++){
-        if( *q==c ){ line[j].erase(q); break; }
-      }
-    }
-    data.pop_back();
-  }
-  
-  else{//c is NOT the last element
-    //// data translation ////
-    CPPL_INT C =CPPL_INT(data.size()-1);
-    CPPL_INT i(data[c].i), j(data[c].j), I(data.back().i), J(data.back().j);
-    data[c]=data.back();
-    //std::cerr << "c=" << c   << " i=" << i << " j=" << j << " C=" << vol << " I=" << I << " J=" << J << std::endl;
-    //// remove entry of component ////
-    const std::vector<CPPL_INT>::iterator line_i_end =line[i].end();
-    for(std::vector<CPPL_INT>::iterator q=line[i].begin(); q!=line_i_end; q++){
-      if( *q==c ){ line[i].erase(q); break; }
-    }
-    if(i!=j){//off-diagonal
-      const std::vector<CPPL_INT>::iterator line_j_end =line[j].end();
-      for(std::vector<CPPL_INT>::iterator q=line[j].begin(); q!=line_j_end; q++){
-        if( *q==c ){ line[j].erase(q); break; }
-      }
-    }
-    //// modify the entry of translated component ////
-    const std::vector<CPPL_INT>::iterator line_I_end =line[I].end();
-    for(std::vector<CPPL_INT>::iterator q=line[I].begin(); q!=line_I_end; q++){
-      if(*q==C){ *q=c; break; }
-    }
-    if(I!=J){//off-diagonal
-      const std::vector<CPPL_INT>::iterator line_J_end =line[J].end();
-      for(std::vector<CPPL_INT>::iterator q=line[J].begin(); q!=line_J_end; q++){
-        if(*q==C){ *q=c; break; }
-      }
-    }
-    //// pop_back ////
-    data.pop_back();
-  }
-  
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-inline std::ostream& operator<<(std::ostream& s, const zhsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<mat.n; i++){
-    for(CPPL_INT j=0; j<=i; j++){
-      CPPL_INT c =mat.number(i,j);
-      if(c<0){
-        s << " x ";
-      }
-      else{
-        s << " " << mat.data[c].v << " ";
-      }
-    }
-    for(CPPL_INT j=i+1; j<mat.n; j++){
-      CPPL_INT c =mat.number(i,j);
-      if(c<0){
-        s << "{x}";
-      }
-      else{
-        s << "{" << std::conj(mat.data[c].v) << "}";
-      }
-    }
-    s << std::endl;
-  }
-  
-  return s;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-inline void zhsmatrix::write(const char* filename) const
-{CPPL_VERBOSE_REPORT;
-  std::ofstream ofs(filename, std::ios::trunc);
-  ofs.setf(std::cout.flags());
-  ofs.precision(std::cout.precision());
-  ofs.width(std::cout.width());
-  ofs.fill(std::cout.fill());
-  
-  ofs << "#zhsmatrix " << n << " " << data.size() << std::endl;
-  
-  const std::vector<zcomponent>::const_iterator data_end =data.end();
-  for(std::vector<zcomponent>::const_iterator it=data.begin(); it!=data_end; it++){
-    ofs << it->i << " " << it->j << " " << it->v << std::endl;
-  }
-  
-  ofs.close();
-}
-
-//=============================================================================
-inline void zhsmatrix::read(const char* filename)
-{CPPL_VERBOSE_REPORT;
-  std::ifstream s( filename );
-  if(!s){
-    ERROR_REPORT;
-    std::cerr << "The file \"" << filename << "\" can not be opened." << std::endl;
-    exit(1);
-  }
-
-  std::string id;
-  s >> id;
-  if( id != "zhsmatrix" && id != "#zhsmatrix" ){
-    ERROR_REPORT;
-    std::cerr << "The type name of the file \"" << filename << "\" is not zhsmatrix." << std::endl
-              << "Its type name was " << id << " ." << std::endl;
-    exit(1);
-  }
-  
-  //////// n, size ////////
-  size_t size;
-  s >> n >> size;
-  resize(n);
-  data.reserve(size);//NOT resize.
-  
-  //////// i, j, v ////////
-  CPPL_INT i, j;
-  comple v;
-  for(size_t k=0; k<size; k++){
-    s >> i >> j >> v;
-    put(i,j, v);
-  }
-  
-  //////// check ////////
-  s >> i;
-  if(!s.eof()){
-    ERROR_REPORT;
-    std::cerr << "There is something is wrong with the file \"" << filename << " ." << std::endl
-              << "Most likely, there are too many data components over the context." << std::endl;
-    exit(1);
-  }
-  s.close();
-}
diff --git a/cpplapack-r198/.svn/pristine/5f/5f2fe3a6ae108aea12d9074894a6ef7b8a4b9181.svn-base b/cpplapack-r198/.svn/pristine/5f/5f2fe3a6ae108aea12d9074894a6ef7b8a4b9181.svn-base
deleted file mode 100644
index 39ec027..0000000
--- a/cpplapack-r198/.svn/pristine/5f/5f2fe3a6ae108aea12d9074894a6ef7b8a4b9181.svn-base
+++ /dev/null
@@ -1,18 +0,0 @@
-//=============================================================================
-/*! +_dgsmatrix operator */
-inline const _dgsmatrix& operator+(const _dgsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  return mat;
-}
-
-//=============================================================================
-/*! -_dgsmatrix operator */
-inline _dgsmatrix operator-(const _dgsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  const std::vector<dcomponent>::iterator mat_data_end =mat.data.end();
-  for(std::vector<dcomponent>::iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    it->v = -it->v;
-  }
-  
-  return mat;
-}
diff --git a/cpplapack-r198/.svn/pristine/5f/5f4e99cd15a40d3f558b9d6aae50f3009b5358f6.svn-base b/cpplapack-r198/.svn/pristine/5f/5f4e99cd15a40d3f558b9d6aae50f3009b5358f6.svn-base
deleted file mode 100644
index 208bccb..0000000
--- a/cpplapack-r198/.svn/pristine/5f/5f4e99cd15a40d3f558b9d6aae50f3009b5358f6.svn-base
+++ /dev/null
@@ -1,59 +0,0 @@
-//=============================================================================
-/*! dsymatrix*=double operator */
-inline dsymatrix& dsymatrix::operator*=(const double& d)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT j=0; j<n; j++){
-    for(CPPL_INT i=j; i<n; i++){
-      darray[j][i] *=d;
-    }
-  }
-  
-  return *this;
-}
-
-//=============================================================================
-/*! dsymatrix/=double operator */
-inline dsymatrix& dsymatrix::operator/=(const double& d)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT j=0; j<n; j++){
-    for(CPPL_INT i=j; i<n; i++){
-      darray[j][i] /=d;
-    }
-  }
-  
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! dsymatrix*double operator */
-inline _dsymatrix operator*(const dsymatrix& mat, const double& d)
-{CPPL_VERBOSE_REPORT;
-  dsymatrix newmat(mat.n);
-  
-  for(CPPL_INT j=0; j<mat.n; j++){
-    for(CPPL_INT i=j; i<mat.n; i++){
-      newmat.darray[j][i] =mat.darray[j][i]*d;
-    }
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! dsymatrix/double operator */
-inline _dsymatrix operator/(const dsymatrix& mat, const double& d)
-{CPPL_VERBOSE_REPORT;
-  dsymatrix newmat(mat.n);
-  
-  for(CPPL_INT j=0; j<mat.n; j++){
-    for(CPPL_INT i=j; i<mat.n; i++){
-      newmat.darray[j][i] =mat.darray[j][i]/d;
-    }
-  }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/5f/5f6d144ecfe3e3e8cc5cf92375c8cd6eb1db595e.svn-base b/cpplapack-r198/.svn/pristine/5f/5f6d144ecfe3e3e8cc5cf92375c8cd6eb1db595e.svn-base
deleted file mode 100644
index e7b1eba..0000000
--- a/cpplapack-r198/.svn/pristine/5f/5f6d144ecfe3e3e8cc5cf92375c8cd6eb1db595e.svn-base
+++ /dev/null
@@ -1,15 +0,0 @@
-//=============================================================================
-/*! convert to _zgematrix */
-inline _zgematrix zgbmatrix::to_zgematrix() const
-{CPPL_VERBOSE_REPORT;
-  zgematrix newmat( zgematrix(m,n).zero() );
-  
-  for(CPPL_INT i=0; i<m; i++){
-    const CPPL_INT jmax =std::min(n,i+ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-kl); j<jmax; j++){
-      newmat(i,j) =(*this)(i,j);
-    }
-  }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/5f/5f6dc984fd69773d72f01f3bd8da69fba1a63e3b.svn-base b/cpplapack-r198/.svn/pristine/5f/5f6dc984fd69773d72f01f3bd8da69fba1a63e3b.svn-base
deleted file mode 100644
index a3552e8..0000000
--- a/cpplapack-r198/.svn/pristine/5f/5f6dc984fd69773d72f01f3bd8da69fba1a63e3b.svn-base
+++ /dev/null
@@ -1,24 +0,0 @@
-//=============================================================================
-/*! _zgsmatrix*zcovector operator */
-inline _zcovector operator*(const _zgsmatrix& mat, const zcovector& vec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(mat.n!=vec.l){
-    ERROR_REPORT;
-    std::cerr << "These matrix and vector can not make a product." << std::endl
-              << "Your input was (" << mat.m << "x" << mat.n << ") * (" << vec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zcovector newvec(mat.m);
-  newvec.zero();
-  
-  const std::vector<zcomponent>::const_iterator mat_data_end =mat.data.end();
-  for(std::vector<zcomponent>::const_iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    newvec(it->i) += it->v*vec(it->j);
-  }
-  
-  mat.destroy();
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/60/6075a0c1f885f7b81fa22bdd57ac8ec0ddcced8c.svn-base b/cpplapack-r198/.svn/pristine/60/6075a0c1f885f7b81fa22bdd57ac8ec0ddcced8c.svn-base
deleted file mode 100644
index 09c59b8..0000000
--- a/cpplapack-r198/.svn/pristine/60/6075a0c1f885f7b81fa22bdd57ac8ec0ddcced8c.svn-base
+++ /dev/null
@@ -1,45 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int M(4), N(3), KL(2), KU(1);
-  
-  CPPL::zgbmatrix A(M,N,KL,KU);
-  CPPL::zgematrix B(M,N), C(N,M);
-  
-  for(int i=0; i<A.m; i++){
-    for(int j=std::max(0,i-A.kl); j<std::min(A.n,i+A.ku+1); j++){
-      A(i,j) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-    }
-  }
-  for(int i=0; i<B.m; i++){ for(int j=0; j<B.n; j++){
-    B(i,j) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-  }}
-  for(int i=0; i<C.m; i++){ for(int j=0; j<C.n; j++){
-    C(i,j) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-  }}
-  
-  cout << "A =\n" << A << endl;
-  cout << "B =\n" << B << endl;
-  cout << "C =\n" << C << endl;
-  
-  cout << "A+B =\n" << A+B << endl;
-  cout << "A-B =\n" << A-B << endl;
-  cout << "A*C =\n" << A*C << endl;
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/60/60e5aceb32fa52b73e81552ade7c3dcfbcdb6669.svn-base b/cpplapack-r198/.svn/pristine/60/60e5aceb32fa52b73e81552ade7c3dcfbcdb6669.svn-base
deleted file mode 100644
index d4fc85b..0000000
--- a/cpplapack-r198/.svn/pristine/60/60e5aceb32fa52b73e81552ade7c3dcfbcdb6669.svn-base
+++ /dev/null
@@ -1,2 +0,0 @@
-#!/bin/sh
-rpmbuild -bb cpplapack.spec
diff --git a/cpplapack-r198/.svn/pristine/61/610a6d8d7f4c3d3b208f89d90d8c6d0ea2b5b769.svn-base b/cpplapack-r198/.svn/pristine/61/610a6d8d7f4c3d3b208f89d90d8c6d0ea2b5b769.svn-base
deleted file mode 100644
index 5028571..0000000
--- a/cpplapack-r198/.svn/pristine/61/610a6d8d7f4c3d3b208f89d90d8c6d0ea2b5b769.svn-base
+++ /dev/null
@@ -1,282 +0,0 @@
-%TGIF 4.1.43-QPL
-state(0,37,100.000,0,100,0,16,1,9,1,1,1,0,0,3,1,1,'Helvetica',0,80640,0,3,1,5,0,0,1,1,0,16,0,0,1,1,1,1,1050,1485,0,0,2880,0).
-%
-% @(#)$Header$
-% %W%
-%
-unit("1 pixel/pixel").
-color_info(59,65535,0,[
-	"magenta", 65535, 0, 65535, 65535, 0, 65535, 1,
-	"red", 65535, 0, 0, 65535, 0, 0, 1,
-	"green", 0, 65535, 0, 0, 65535, 0, 1,
-	"blue", 0, 0, 65535, 0, 0, 65535, 1,
-	"yellow", 65535, 65535, 0, 65535, 65535, 0, 1,
-	"pink", 65535, 49344, 52171, 65535, 49344, 52171, 1,
-	"cyan", 0, 65535, 65535, 0, 65535, 65535, 1,
-	"CadetBlue", 24415, 40606, 41120, 24415, 40606, 41120, 1,
-	"white", 65535, 65535, 65535, 65535, 65535, 65535, 1,
-	"black", 0, 0, 0, 0, 0, 0, 1,
-	"magenta1", 65535, 0, 65535, 65535, 0, 65535, 1,
-	"red1", 65535, 0, 0, 65535, 0, 0, 1,
-	"green1", 0, 65535, 0, 0, 65535, 0, 1,
-	"blue1", 0, 0, 65535, 0, 0, 65535, 1,
-	"yellow1", 65535, 65535, 0, 65535, 65535, 0, 1,
-	"pink1", 65535, 46517, 50629, 65535, 46517, 50629, 1,
-	"cyan1", 0, 65535, 65535, 0, 65535, 65535, 1,
-	"CadetBlue1", 39064, 62965, 65535, 39064, 62965, 65535, 1,
-	"gray90", 58853, 58853, 58853, 58853, 58853, 58853, 1,
-	"gray10", 6682, 6682, 6682, 6682, 6682, 6682, 1,
-	"magenta4", 35723, 0, 35723, 35723, 0, 35723, 1,
-	"red4", 35723, 0, 0, 35723, 0, 0, 1,
-	"green4", 0, 35723, 0, 0, 35723, 0, 1,
-	"blue4", 0, 0, 35723, 0, 0, 35723, 1,
-	"yellow4", 35723, 35723, 0, 35723, 35723, 0, 1,
-	"pink4", 35723, 25443, 27756, 35723, 25443, 27756, 1,
-	"cyan4", 0, 35723, 35723, 0, 35723, 35723, 1,
-	"CadetBlue4", 21331, 34438, 35723, 21331, 34438, 35723, 1,
-	"gray80", 52428, 52428, 52428, 52428, 52428, 52428, 1,
-	"gray20", 13107, 13107, 13107, 13107, 13107, 13107, 1,
-	"#ff4d4d", 65535, 19789, 19789, 65280, 19712, 19712, 1,
-	"#ff9c4d", 65535, 40092, 19789, 65280, 39936, 19712, 1,
-	"#ffec4d", 65535, 60652, 19789, 65280, 60416, 19712, 1,
-	"#c4ff4d", 50372, 65535, 19789, 50176, 65280, 19712, 1,
-	"#75ff4d", 30069, 65535, 19789, 29952, 65280, 19712, 1,
-	"#4dff75", 19789, 65535, 30069, 19712, 65280, 29952, 1,
-	"#4dffc4", 19789, 65535, 50372, 19712, 65280, 50176, 1,
-	"#4decff", 19789, 60652, 65535, 19712, 60416, 65280, 1,
-	"#4d9cff", 19789, 40092, 65535, 19712, 39936, 65280, 1,
-	"#4d4dff", 19789, 19789, 65535, 19712, 19712, 65280, 1,
-	"#fffffe", 65535, 65535, 65278, 65280, 65280, 65024, 1,
-	"#e0e0e0", 57568, 57568, 57568, 57344, 57344, 57344, 1,
-	"#d0d0d0", 53456, 53456, 53456, 53248, 53248, 53248, 1,
-	"#c0c0c0", 49344, 49344, 49344, 49152, 49152, 49152, 1,
-	"#b0b0b0", 45232, 45232, 45232, 45056, 45056, 45056, 1,
-	"#a0a0a0", 41120, 41120, 41120, 40960, 40960, 40960, 1,
-	"#808080", 32896, 32896, 32896, 32768, 32768, 32768, 1,
-	"#404040", 16448, 16448, 16448, 16384, 16384, 16384, 1,
-	"#101010", 4112, 4112, 4112, 4096, 4096, 4096, 1,
-	"#000001", 0, 0, 257, 0, 0, 256, 1,
-	"DarkSlateGray", 12079, 20303, 20303, 12079, 20303, 20303, 1,
-	"#00000000c000", 0, 0, 49344, 0, 0, 49152, 1,
-	"#820782070000", 33410, 33410, 0, 33287, 33287, 0, 1,
-	"#3cf3fbee34d2", 15420, 64507, 13364, 15603, 64494, 13522, 1,
-	"#3cf3fbed34d3", 15420, 64507, 13364, 15603, 64493, 13523, 1,
-	"#ffffa6990000", 65535, 42662, 0, 65535, 42649, 0, 1,
-	"#ffff0000fffe", 65535, 0, 65535, 65535, 0, 65534, 1,
-	"#fffe0000fffe", 65535, 0, 65535, 65534, 0, 65534, 1,
-	"#fffe00000000", 65535, 0, 0, 65534, 0, 0, 1
-]).
-script_frac("0.6").
-fg_bg_colors('black','white').
-dont_reencode("FFDingbests:ZapfDingbats").
-page(1,"",1,'').
-polygon('black','',7,[
-	150,100,150,150,350,350,375,350,375,225,250,100,150,100],3,2,1,0,211,0,0,0,0,0,'2',0,
-    "00",[
-]).
-box('black','',150,100,375,350,0,2,1,0,0,0,0,0,0,'2',0,[
-]).
-poly('black','',2,[
-	150,150,350,350],0,2,1,1,0,0,0,0,0,0,0,'2',0,0,
-    "0","",[
-    0,10,4,0,'10','4','0'],[0,10,4,0,'10','4','0'],[
-]).
-poly('black','',2,[
-	250,100,375,225],0,2,1,2,0,0,0,0,0,0,0,'2',0,0,
-    "0","",[
-    0,10,4,0,'10','4','0'],[0,10,4,0,'10','4','0'],[
-]).
-poly('black','',2,[
-	150,100,375,325],0,2,1,3,0,0,3,0,0,0,0,'2',0,0,
-    "0","",[
-    0,10,4,0,'10','4','0'],[0,10,4,0,'10','4','0'],[
-]).
-group([
-polygon('black','',8,[
-	235,440,248,440,248,405,277,405,277,440,290,440,262,475,235,440],0,2,1,0,80,0,0,0,0,0,'2',0,
-    "00",[
-]),
-box('black','',239,409,286,454,0,2,0,81,0,0,0,0,0,'2',0,[
-attr("", "auto_center_attr", 0, 1, 0,
-text('black',262,408,1,1,1,0,17,82,14,3,0,0,0,0,2,0,17,0,0,"",0,0,0,0,422,'',[
-minilines(0,17,0,0,1,0,0,[
-mini_line(0,14,3,0,0,0,[
-str_block(0,0,14,3,0,0,0,0,0,[
-str_seg('black','NewCenturySchlbk-Roman',0,207360,0,14,3,0,0,0,0,0,0,0,
-	"auto_center_attr")])
-])
-])])),
-attr("label=", "", 1, 0, 0,
-text('black',262,422,1,1,1,0,17,83,14,3,0,0,0,0,2,0,17,0,0,"",0,0,0,0,436,'',[
-minilines(0,17,0,0,1,0,0,[
-mini_line(0,14,3,0,0,0,[
-str_block(0,0,14,3,0,0,0,0,0,[
-str_seg('black','NewCenturySchlbk-Roman',0,207360,0,14,3,0,0,0,0,0,0,0,
-	"")])
-])
-])]))
-])
-],
-84,0,0,[
-]).
-group([
-text('black',80,52,1,1,1,107,22,95,18,4,0,0,0,0,2,107,22,0,0,"",0,0,0,0,70,'',[
-minilines(107,22,0,0,1,0,0,[
-mini_line(107,18,4,0,0,0,[
-str_block(0,107,18,4,0,-1,0,0,0,[
-str_seg('black','Helvetica',0,103680,107,18,4,0,-1,0,0,0,0,0,
-	"Actual Matrix")])
-])
-])]),
-rcbox('black','',20,45,140,80,0,2,1,0,16,102,0,0,0,0,'2',0,[
-])
-],
-105,0,0,[
-]).
-group([
-text('black',80,457,1,1,1,113,22,111,18,4,0,0,0,0,2,113,22,0,0,"",0,0,0,0,475,'',[
-minilines(113,22,0,0,1,0,0,[
-mini_line(113,18,4,0,0,0,[
-str_block(0,113,18,4,0,-1,0,0,0,[
-str_seg('black','Helvetica',0,103680,113,18,4,0,-1,0,0,0,0,0,
-	"Stored Matrix")])
-])
-])]),
-rcbox('black','',20,450,140,485,0,2,1,0,16,110,0,0,0,0,'2',0,[
-])
-],
-109,0,0,[
-]).
-box('black','',150,500,375,650,0,2,1,125,0,0,0,0,0,'2',0,[
-]).
-group([
-arc('black','',0,1,1,0,-289,-1140,259,-383,150,360,367,360,0,1096,1514,-6464,1472,35,0,0,8,3,0,0,0,'1','8','3',0,[
-]),
-text('black',262,376,1,1,1,9,17,49,14,3,0,0,0,0,2,9,17,0,0,"",0,0,0,0,390,'',[
-minilines(9,17,0,0,1,0,0,[
-mini_line(9,14,3,0,0,0,[
-str_block(0,9,14,3,0,-1,0,0,0,[
-str_seg('black','NewCenturySchlbk-Roman',0,80640,9,14,3,0,-1,0,0,0,0,0,
-	"n")])
-])
-])])
-],
-137,0,0,[
-]).
-group([
-arc('black','',0,1,1,0,-281,-200,59,225,385,100,385,350,1,680,850,1088,-2176,30,0,0,8,3,0,0,0,'1','8','3',0,[
-]),
-text('black',415,214,1,1,1,11,17,45,14,3,0,0,0,0,2,11,17,0,0,"",0,0,0,0,228,'',[
-minilines(11,17,0,0,1,0,0,[
-mini_line(11,14,3,0,0,0,[
-str_block(0,11,14,3,0,0,0,0,0,[
-str_seg('black','Times-Roman',0,80640,11,14,3,0,0,0,0,0,0,0,
-	"m")])
-])
-])])
-],
-140,0,0,[
-]).
-group([
-arc('black','',0,1,1,0,130,89,166,125,140,100,140,150,0,72,72,8704,5632,37,0,0,8,3,0,0,0,'1','8','3',0,[
-]),
-text('black',110,116,1,1,1,30,17,79,14,3,0,0,0,0,2,30,17,0,0,"",0,0,0,0,130,'',[
-minilines(30,17,0,0,1,0,0,[
-mini_line(30,14,3,0,0,0,[
-str_block(0,30,14,3,0,-2,0,0,0,[
-str_seg('black','NewCenturySchlbk-Roman',0,80640,30,14,3,0,-2,0,0,0,0,0,
-	"kl+1")])
-])
-])])
-],
-143,0,0,[
-]).
-group([
-arc('black','',0,1,1,0,45,80,198,280,150,90,246,90,1,306,400,6912,-2368,36,0,0,8,3,0,0,0,'1','8','3',0,[
-]),
-text('black',200,61,1,1,1,35,17,75,14,3,0,0,0,0,2,35,17,0,0,"",0,0,0,0,75,'',[
-minilines(35,17,0,0,1,0,0,[
-mini_line(35,14,3,0,0,0,[
-str_block(0,35,14,3,0,-2,0,0,0,[
-str_seg('black','NewCenturySchlbk-Roman',0,80640,35,14,3,0,-2,0,0,0,0,0,
-	"ku+1")])
-])
-])])
-],
-146,0,0,[
-]).
-group([
-arc('black','',0,1,1,0,-289,-840,259,-83,150,660,367,660,0,1096,1514,-6464,1472,170,0,0,8,3,0,0,0,'1','8','3',0,[
-]),
-text('black',261,676,1,1,1,9,17,169,14,3,0,0,0,0,2,9,17,0,0,"",0,0,0,0,690,'',[
-minilines(9,17,0,0,1,0,0,[
-mini_line(9,14,3,0,0,0,[
-str_block(0,9,14,3,0,-1,0,0,0,[
-str_seg('black','NewCenturySchlbk-Roman',0,80640,9,14,3,0,-1,0,0,0,0,0,
-	"n")])
-])
-])])
-],
-168,0,0,[
-]).
-poly('black','',2,[
-	150,600,250,500],0,2,1,171,0,0,0,0,0,0,0,'2',0,0,
-    "0","",[
-    0,10,4,0,'10','4','0'],[0,10,4,0,'10','4','0'],[
-]).
-group([
-arc('black','',0,1,1,0,-281,320,59,575,385,500,385,650,1,680,510,1088,-2176,152,0,0,8,3,0,0,0,'1','8','3',0,[
-]),
-text('black',430,562,1,1,1,47,17,151,14,3,0,0,0,0,2,47,17,0,0,"",0,0,0,0,576,'',[
-minilines(47,17,0,0,1,0,0,[
-mini_line(47,14,3,0,0,0,[
-str_block(0,47,14,3,0,-1,0,0,0,[
-str_seg('black','Times-Roman',0,80640,47,14,3,0,-1,0,0,0,0,0,
-	"kl+ku+1")])
-])
-])])
-],
-229,0,0,[
-]).
-poly('black','',2,[
-	350,650,375,625],0,2,1,236,0,3,0,0,0,0,0,'2',0,0,
-    "0","",[
-    0,10,4,0,'10','4','0'],[0,10,4,0,'10','4','0'],[
-]).
-group([
-arc('black','',0,1,1,0,45,480,198,680,150,490,246,490,1,306,400,6912,-2368,242,0,0,8,3,0,0,0,'1','8','3',0,[
-]),
-text('black',200,461,1,1,1,35,17,241,14,3,0,0,0,0,2,35,17,0,0,"",0,0,0,0,475,'',[
-minilines(35,17,0,0,1,0,0,[
-mini_line(35,14,3,0,0,0,[
-str_block(0,35,14,3,0,-2,0,0,0,[
-str_seg('black','NewCenturySchlbk-Roman',0,80640,35,14,3,0,-2,0,0,0,0,0,
-	"ku+1")])
-])
-])])
-],
-240,0,0,[
-]).
-group([
-arc('black','',0,1,1,0,130,589,166,625,140,600,140,650,0,72,72,8704,5632,250,0,0,8,3,0,0,0,'1','8','3',0,[
-]),
-text('black',110,616,1,1,1,30,17,249,14,3,0,0,0,0,2,30,17,0,0,"",0,0,0,0,630,'',[
-minilines(30,17,0,0,1,0,0,[
-mini_line(30,14,3,0,0,0,[
-str_block(0,30,14,3,0,-2,0,0,0,[
-str_seg('black','NewCenturySchlbk-Roman',0,80640,30,14,3,0,-2,0,0,0,0,0,
-	"kl+1")])
-])
-])])
-],
-248,0,0,[
-]).
-poly('black','',2,[
-	150,600,375,600],0,2,1,251,0,3,3,0,0,0,0,'2',0,0,
-    "0","",[
-    0,10,4,0,'10','4','0'],[0,10,4,0,'10','4','0'],[
-]).
-polygon('black','',7,[
-	150,600,150,650,350,650,375,625,375,500,250,500,150,600],3,2,1,0,259,3,0,0,0,0,'2',0,
-    "00",[
-]).
diff --git a/cpplapack-r198/.svn/pristine/61/614a17eb10e9221e93f4a0c0ce08420c668f722d.svn-base b/cpplapack-r198/.svn/pristine/61/614a17eb10e9221e93f4a0c0ce08420c668f722d.svn-base
deleted file mode 100644
index e4cd6f7..0000000
--- a/cpplapack-r198/.svn/pristine/61/614a17eb10e9221e93f4a0c0ce08420c668f722d.svn-base
+++ /dev/null
@@ -1,96 +0,0 @@
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-void random( CPPL::drovector & x ) {
-  for(int i=0; i<x.l; i++){
-        x(i) =double( rand() /(RAND_MAX/10) );
-  }
-}
-
-void random( CPPL::dcovector & x ) {
-  for(int i=0; i<x.l; i++){
-        x(i) =double( rand() /(RAND_MAX/10) );
-  }
-}
-
-void random( CPPL::dgematrix & A ) {
-  for(int i=0; i<A.m; i++){ for(int j=0; j<A.n; j++){
-    A(i,j) =double( rand() /(RAND_MAX/10) );
-  }}
-}
-
-void random( CPPL::dsymatrix & A ) {
-  for(int i=0; i<A.n; i++){ for(int j=0; j<A.n; j++){
-    A(i,j) =double( rand() /(RAND_MAX/10) );
-  }}
-}
-
-void random( CPPL::dgbmatrix & A ) {
-  for(int i=0; i<A.m; i++){
-    for(int j=std::max(0,i-A.kl); j<std::min(A.n,i+A.ku+1); j++){
-      A(i,j) =double( rand() /(RAND_MAX/10) );
-    }
-  }
-}
-
-void random( CPPL::dgsmatrix & A ) {
-  for(int i=0; i<A.m; i++){
-    for(int j=0; j<=i; j++){
-      if(rand()%2==0){
-        A(i,j) =double( rand() / (RAND_MAX/10) );
-      }
-    }
-  }
-}
-
-//=============================================================================
-/*! main */
-
-int main( int argc, char * argv[] )
-{
-  srand(unsigned(time(NULL)));
-  
-  int M(9), N(11);
-  int KL(2), KU(1);
-  int CAP(4);
-
-  CPPL::dgematrix A(M,N);
-  CPPL::dgbmatrix B(M,N,KL,KU);
-  CPPL::dgsmatrix C(M,N,CAP);
-  CPPL::dsymatrix D(M);
-  CPPL::drovector x(M);
-  CPPL::dcovector y(M);
-
-  random( A );
-  random( B );
-  random( C );
-  random( D );
-  random( x );
-  random( y );
-
-  std::cout << "A =\n" << A << std::endl;
-  std::cout << "C =\n" << C << std::endl;
-  std::cout << "t(C) =\n" << t(C) << std::endl;
-  
-  /*
-  //////// cause memory leak ////////
-  t( A );
-  t( B );
-  t( C );
-  t( D );
-  t( x );
-  t( y );
-
-  A + B;
-  + A;
-  i( D );
-  y + t( x );
-  C * t(C);
-  */
-  return 0;
-}
-
diff --git a/cpplapack-r198/.svn/pristine/61/618b3e8185ba64c27ef5b3d6f6cf96744b2cdb0f.svn-base b/cpplapack-r198/.svn/pristine/61/618b3e8185ba64c27ef5b3d6f6cf96744b2cdb0f.svn-base
deleted file mode 100644
index e9246e8..0000000
--- a/cpplapack-r198/.svn/pristine/61/618b3e8185ba64c27ef5b3d6f6cf96744b2cdb0f.svn-base
+++ /dev/null
@@ -1,20 +0,0 @@
-//=============================================================================
-/*! _drovector*_dcovector operator */
-inline double operator*(const _drovector& rovec, const _dcovector& covec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(rovec.l!=covec.l){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make a product." << std::endl
-              << "Your input was (" << rovec.l << ") * (" << covec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  CPPL_INT inc =1;
-  double val =ddot_( &rovec.l, rovec.array, &inc, covec.array, &inc );
-  
-  rovec.destroy();
-  covec.destroy();
-  return val;
-}
diff --git a/cpplapack-r198/.svn/pristine/62/62188c51872f9c87c0ea27bf86fefd327785f974.svn-base b/cpplapack-r198/.svn/pristine/62/62188c51872f9c87c0ea27bf86fefd327785f974.svn-base
deleted file mode 100644
index c66194f..0000000
--- a/cpplapack-r198/.svn/pristine/62/62188c51872f9c87c0ea27bf86fefd327785f974.svn-base
+++ /dev/null
@@ -1,86 +0,0 @@
-//=============================================================================
-/*! zgbmatrix+_zhematrix operator */
-inline _zgematrix operator+(const zgbmatrix& matA, const _zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(matB.n,matB.n);
-  
-  for(CPPL_INT i=0; i<matA.m; i++){
-    for(CPPL_INT j=0; j<matB.n; j++){
-      newmat(i,j) =matB(i,j);
-    }
-    const CPPL_INT jmax =std::min(matA.n,i+matA.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matA.kl); j<jmax; j++){
-      newmat(i,j) += matA(i,j);
-    }
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! zgbmatrix-_zhematrix operator */
-inline _zgematrix operator-(const zgbmatrix& matA, const _zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(matB.n,matB.n);
-  
-  for(CPPL_INT i=0; i<matA.m; i++){
-    for(CPPL_INT j=0; j<matB.n; j++){
-      newmat(i,j) =-matB(i,j);
-    }
-    const CPPL_INT jmax =std::min(matA.n,i+matA.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matA.kl); j<jmax; j++){
-      newmat(i,j) +=matA(i,j);
-    }
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! zgbmatrix*_zhematrix operator */
-inline _zgematrix operator*(const zgbmatrix& matA, const _zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat( matA.m, matB.n );
-  newmat.zero();
-  
-  for(CPPL_INT i=0; i<newmat.m; i++){
-    for(CPPL_INT j=0; j<newmat.n; j++){
-      const CPPL_INT kmax =std::min(matA.n,i+matA.ku+1);
-      for(CPPL_INT k=std::max(CPPL_INT(0),i-matA.kl); k<kmax; k++){
-        newmat(i,j)+=matA(i,k)*matB(k,j);
-      }
-    }
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/62/621f2177bf7ed18cbe633c24f7e7757a3174f0f5.svn-base b/cpplapack-r198/.svn/pristine/62/621f2177bf7ed18cbe633c24f7e7757a3174f0f5.svn-base
deleted file mode 100644
index c0acba0..0000000
--- a/cpplapack-r198/.svn/pristine/62/621f2177bf7ed18cbe633c24f7e7757a3174f0f5.svn-base
+++ /dev/null
@@ -1,79 +0,0 @@
-//=============================================================================
-/*! dssmatrix+dgbmatrix operator */
-/*
-inline _dgematrix operator+(const dssmatrix& matA, const dgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat(matA);
-  
-  for(CPPL_INT i=0; i<matB.m; i++){
-    for(CPPL_INT j=max(0,i-matB.kl); j<min(matB.n,i+matB.ku+1); j++){
-      newmat(i,j)+=matB(i,j);
-    }
-  }
-  
-  return _(newmat);
-}
-*/
-
-//=============================================================================
-/*! dssmatrix-dgbmatrix operator */
-/*
-inline _dgematrix operator-(const dssmatrix& matA, const dgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat(matA);
-  
-  for(CPPL_INT i=0; i<matB.m; i++){
-    for(CPPL_INT j=max(0,i-matB.kl); j<min(matB.n,i+matB.ku+1); j++){
-      newmat(i,j)-=matB(i,j);
-    }
-  }
-  
-  return _(newmat);
-}
-*/
-
-//=============================================================================
-/*! dssmatrix*dgbmatrix operator */
-/*
-inline _dgematrix operator*(const dssmatrix& matA, const dgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat( matA.m, matB.n );
-  newmat.zero();
-  
-  for(CPPL_INT c=0; c<matA.vol; c++){
-    for(CPPL_INT j=max(0,matA.jndx[c]-matB.kl);
-        j<min(matB.n,matA.jndx[c]+matB.ku+1); j++){
-      newmat(matA.indx[c],j) += matA.array[c]*matB(matA.jndx[c],j);
-    }
-  }
-  
-  return _(newmat);
-}
-*/
diff --git a/cpplapack-r198/.svn/pristine/62/6240fd4a2f0a14669a85fde8d2caffa9670dfaa7.svn-base b/cpplapack-r198/.svn/pristine/62/6240fd4a2f0a14669a85fde8d2caffa9670dfaa7.svn-base
deleted file mode 100644
index 3a41271..0000000
--- a/cpplapack-r198/.svn/pristine/62/6240fd4a2f0a14669a85fde8d2caffa9670dfaa7.svn-base
+++ /dev/null
@@ -1,129 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int M(5), N(5), KL(2), KU(3);
-
-  CPPL::dsymatrix X(N), Y(N), Z(N);
-  CPPL::dgbmatrix A(M,N,KL,KU);
-  A.zero();
-  X.zero();
-  Y.zero();
-  Z.zero();
-  for(int i=0; i<A.m; i++){
-    for(int j=std::max(0,i-A.kl); j<std::min(A.n,i+A.ku+1); j++){
-      if( i>=j && (std::max(0,j-A.kl) <= i && i < std::min(A.n,j+A.ku+1) )){
-        A(i,j) = double( rand() /(RAND_MAX/10) );
-        A(j,i) = A(i,j);
-        X(i,j) = -A(i,j);
-        Y(i,j) = A(i,j);
-      }
-    }
-  }
-  for(int i=0; i<Z.n; i++){
-    for(int j=0; j<Z.n; j++){
-      Z(i,j) = double( rand() /(RAND_MAX/10) );
-    }
-  }
-  
-  cout << "A =\n" << A << endl;
-  cout << "X =\n" << X << endl;
-  cout << "Y =\n" << Y << endl;
-  cout << "Z =\n" << Z << endl;
-  
-  
-  //dgb+dsy
-  cout << "A+X =\n" << A+X << "<-Should be zero." << endl;
-  //dgb-dsy
-  cout << "A-Y =\n" << A-Y << "<-Should be zero." << endl;
-  //dgb*dsy
-  cout << "t(A*Z)-Z*t(A) =\n" << t(A*Z)-Z*t(A) << "<-Should be zero." << endl;
-
-  //dgb/dsy
-  //N/A
-  //dgb=dsy
-  //N/A
-  //dgb+=dsy
-  //N/A
-  //dgb-=dsy
-  //N/A
-  //dgb*=dsy
-  //N/A
-  //dgb/=dsy
-  //N/A
-  
-  //dgb+_dsy, -dsy
-  cout << "A+(-Y) =\n" << A+(-Y) << "<-Should be zero." << endl;
-  //dgb-_dsy, -dsy
-  cout << "A-(-X) =\n" << A-(-X) << "<-Should be zero." << endl;
-  //dgb*_dsy, dsy+dsy, dgb*dsy, _dge+_dge, _dge-_dge
-  cout << "A*(X+Z) - (A*X+A*Z) =\n" << A*(X+Z) - (A*X+A*Z) << "<-Should be zero." << endl;
-  //dgb/_dsy
-  //N/A
-  //dgb=_dsy
-  //N/A
-  //dgb+=_dsy
-  //N/A
-  //dgb-=_dsy
-  //N/A
-  //dgb*=_dsy
-  //N/A
-  //dgb/=_dsy
-  //N/A
-  
-  //_dgb+dsy, -dgb
-  cout << "(-A)+Y =\n" << (-A)+Y << "<-Should be zero." << endl;
-  //_dgb-dsy, -dgb
-  cout << endl << endl << endl << endl;
-  cout << "(-A)-X =\n" << (-A)-X << "<-Should be zero." << endl;
-  cout << endl << endl << endl << endl;
-  //_dgb*dsy, -dgb, dgb*dsy, _dge+_dge
-  cout << "(-A)*Z+(A*Z) =\n" << ((-A)*Z+(A*Z)) << "<-Should be zero." << endl;
-  //_dgb/dsy
-  //N/A
-  //_dgb=dsy
-  //N/A
-  //_dgb+=dsy
-  //N/A
-  //_dgb-=dsy
-  //N/A
-  //_dgb*=dsy
-  //N/A
-  //_dgb/=dsy
-  //N/A
-  
-  //_dgb+_dsy, -dgb, -dsy
-  cout << "(-A)+(-X) =\n" << (-A)+(-X) << "<-Should be zero." << endl;
-  //_dgb-_dsy, -dgb, -dsy
-  cout << "(-A)-(-Y) =\n" << (-A)-(-Y) << "<-Should be zero." << endl;
-  //_dgb*_dsy, -dgb, -dsy, dgb*dsy, _dge-_dge
-  cout << "(-A)*(-Z)-(A*Z) =\n" << (-A)*(-Z)-(A*Z) << "<-Should be zero." << endl;
-  //_dgb/_dsy
-  //N/A
-  //_dgb=_dsy
-  //N/A
-  //_dgb+=_dsy
-  //N/A
-  //_dgb-=_dsy
-  //N/A
-  //_dgb*=_dsy
-  //N/A
-  //_dgb/=_dsy
-  //N/A
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/62/625e5f1196d67051e39945eaf4540e8b7e9c0678.svn-base b/cpplapack-r198/.svn/pristine/62/625e5f1196d67051e39945eaf4540e8b7e9c0678.svn-base
deleted file mode 100644
index 5605ef1..0000000
--- a/cpplapack-r198/.svn/pristine/62/625e5f1196d67051e39945eaf4540e8b7e9c0678.svn-base
+++ /dev/null
@@ -1,38 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int N(3), M(2);
-  
-  CPPL::zrovector x(M), y;
-  CPPL::zgematrix A(M,N);
-  for(int i=0; i<x.l; i++){
-    x(i) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-  }
-  for(int i=0; i<A.m; i++){ for(int j=0; j<A.n; j++){
-    A(i,j) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-  }}
-  
-  cout << "x =\n" << x << endl;
-  cout << "A =\n" << A << endl;
-  
-  cout << "#### y=x*A; ####" << endl;
-  y=x*A;
-  cout << "y =\n" << y << endl;
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/62/62b8e8872b6e9cc2b9785a927433723c6cf72be9.svn-base b/cpplapack-r198/.svn/pristine/62/62b8e8872b6e9cc2b9785a927433723c6cf72be9.svn-base
deleted file mode 100644
index 7747387..0000000
--- a/cpplapack-r198/.svn/pristine/62/62b8e8872b6e9cc2b9785a927433723c6cf72be9.svn-base
+++ /dev/null
@@ -1,387 +0,0 @@
-//=============================================================================
-/*! convert dcovector_small to dcovector */
-template<CPPL_INT l>
-inline _dcovector dcovector_small<l>::to_dcovector() const
-{CPPL_VERBOSE_REPORT;
-  dcovector vec(l);
-  for(CPPL_INT k=0; k<l; k++){
-    vec(k)=(*this)(k);
-  }
-  return _(vec);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! operator() */
-template<CPPL_INT l>
-inline double& dcovector_small<l>::operator()(const CPPL_INT& k)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( k<0 || l<=k ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the vector size." << std::endl
-              << "Your input is (" << k << "), whereas the vector size is " << l << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  return array[k];
-}
-
-//=============================================================================
-/*! operator() for const */
-template<CPPL_INT l>
-inline double dcovector_small<l>::operator()(const CPPL_INT& k) const
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( k<0 || l<=k ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the vector size." << std::endl
-              << "Your input is (" << k << "), whereas the vector size is " << l << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  return array[k];
-}
-
-//=============================================================================
-/*! set */
-template<CPPL_INT l>
-inline dcovector_small<l>& dcovector_small<l>::set(const CPPL_INT& k, const double& v)
-{CPPL_VERBOSE_REPORT;
-  (*this)(k) =v;
-  return *this;
-}
-
-//=============================================================================
-/*! operator<< */
-template<CPPL_INT l>
-inline std::ostream& operator<<(std::ostream& s, const dcovector_small<l>& A)
-{CPPL_VERBOSE_REPORT;
-  s << std::setiosflags(std::ios::showpos);
-  for(CPPL_INT i=0; i<l; i++){
-    s << A(i) << std::endl;
-  }
-  return s;
-}
-
-//=============================================================================
-/*! write to file */
-template<CPPL_INT l>
-inline void dcovector_small<l>::write(const char* filename) const
-{CPPL_VERBOSE_REPORT;
-  std::ofstream ofs(filename, std::ios::trunc);
-  ofs.setf(std::cout.flags());
-  ofs.precision(std::cout.precision());
-  ofs.width(std::cout.width());
-  ofs.fill(std::cout.fill());
-  
-  ofs << "#dcovector" << " " << l << std::endl;
-  for(CPPL_INT k=0; k<l; k++){
-    ofs << (*this)(k) << std::endl;
-  }
-  ofs.close();
-}
-
-//=============================================================================
-/*! read from file */
-template<CPPL_INT l>
-inline void dcovector_small<l>::read(const char* filename)
-{CPPL_VERBOSE_REPORT;
-  std::ifstream s( filename );
-  if(!s){
-    ERROR_REPORT;
-    std::cerr << "The file \"" << filename << "\" can not be opened." << std::endl;
-    exit(1);
-  }
-  
-  std::string id;
-  s >> id;
-  if( id != "dcovector" && id != "#dcovector" ){
-    ERROR_REPORT;
-    std::cerr << "The type name of the file \"" << filename << "\" is not dcovector." << std::endl
-              << "Its type name was " << id << " ." << std::endl;
-    exit(1);
-  }
-  
-  CPPL_INT _l;
-  s >> _l;
-  if(l!=_l){
-    ERROR_REPORT;
-    std::cerr << "Matrix size is invalid." << std::endl;
-    exit(1);
-  }
-  for(CPPL_INT k=0; k<l; k++){
-    s >> (*this)(k);
-  }
-  if(s.eof()){
-    ERROR_REPORT;
-    std::cerr << "There is something is wrong with the file \"" << filename << "\"." << std::endl
-              << "Most likely, there is not enough data components, or a linefeed code or space code is missing at the end of the last line." << std::endl;
-    exit(1);
-  }
-  
-  s >> id;//tmp
-  if(!s.eof()){
-    ERROR_REPORT;
-    std::cerr << "There is something is wrong with the file \"" << filename << "\"." << std::endl
-              << "Most likely, there are extra data components." << std::endl;
-    exit(1);
-  }
-  
-  s.close();    
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! return transposed drovector_small */
-template<CPPL_INT l>
-inline drovector_small<l> t(const dcovector_small<l>& A)
-{CPPL_VERBOSE_REPORT;
-  drovector_small<l> X;
-  for(CPPL_INT i=0; i<l; i++){
-    X(i) =A(i);
-  }
-  return X;
-}
-
-//=============================================================================
-/*! return its 2-norm */
-template<CPPL_INT l>
-inline double nrm2(const dcovector_small<l>& A)
-{CPPL_VERBOSE_REPORT;
-  double v(0);
-  for(CPPL_INT i=0; i<l; i++){
-    v+=A(i)*A(i);
-  }
-  return std::sqrt(v);
-}
-
-//=============================================================================
-/*! return index of the maximum component */
-template<CPPL_INT l>
-inline void idamax(CPPL_INT& K, const dcovector_small<l>& A)
-{CPPL_VERBOSE_REPORT;
-  double max(-1.);
-  for(int k=0; k<l; k++){
-    if( max<fabs(A(k)) ){
-      K=k;
-      max =fabs(A(k));
-    }
-  }
-  return;
-}
-
-//=============================================================================
-/*! return the maximum component */
-template<CPPL_INT l>
-inline double damax(const dcovector_small<l>& A)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT k(0);
-  idamax(k,A);
-  return A(k);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zero */
-template<CPPL_INT l>
-inline dcovector_small<l>& dcovector_small<l>::zero()
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT k=0; k<l; k++){
-    array[k] =0.;
-  }
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! dcovector_small+=dcovector_small operator */
-template<CPPL_INT l>
-inline dcovector_small<l>& operator+=(dcovector_small<l>& A, const dcovector_small<l>& B)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<l; i++){
-    A(i) +=B(i);
-  }
-  return A;
-}
-
-//=============================================================================
-/*! dcovector_small-=dcovector_small operator */
-template<CPPL_INT l>
-inline dcovector_small<l>& operator-=(dcovector_small<l>& A, const dcovector_small<l>& B)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<l; i++){
-    A(i) -=B(i);
-  }
-  return A;
-}
-
-//=============================================================================
-/*! dcovector_small*=double operator */
-template<CPPL_INT l>
-inline dcovector_small<l>& operator*=(dcovector_small<l>& A, const double& d)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<l; i++){
-    A(i) *=d;
-  }
-  return A;
-}
-
-//=============================================================================
-/*! dcovector_small/=double operator */
-template<CPPL_INT l>
-inline dcovector_small<l>& operator/=(dcovector_small<l>& A, const double& d)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<l; i++){
-    A(i) /=d;
-  }
-  return A;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! unary + operator*/
-template<CPPL_INT l>
-inline const dcovector_small<l>& operator+(const dcovector_small<l>& A)
-{CPPL_VERBOSE_REPORT;
-  return A;
-}
-
-//=============================================================================
-/*! unary - operator*/
-template<CPPL_INT l>
-inline dcovector_small<l> operator-(const dcovector_small<l>& A)
-{CPPL_VERBOSE_REPORT;
-  dcovector_small<l> X;
-  for(CPPL_INT i=0; i<l; i++){
-    X(i) =-A(i);
-  }
-  return X;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! dcovector_small+dcovector_small operator */
-template<CPPL_INT l>
-inline dcovector_small<l> operator+(const dcovector_small<l>& A, const dcovector_small<l>& B)
-{CPPL_VERBOSE_REPORT;
-  dcovector_small<l> X;
-  for(CPPL_INT i=0; i<l; i++){
-    X(i) =A(i)+B(i);
-  }
-  return X;
-}
-
-//=============================================================================
-/*! dcovector_small-dcovector_small operator */
-template<CPPL_INT l>
-inline dcovector_small<l> operator-(const dcovector_small<l>& A, const dcovector_small<l>& B)
-{CPPL_VERBOSE_REPORT;
-  dcovector_small<l> X;
-  for(CPPL_INT i=0; i<l; i++){
-    X(i) =A(i)-B(i);
-  }
-  return X;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! dcovector_small*double operator */
-template<CPPL_INT n>
-inline dcovector_small<n> operator*(const dcovector_small<n>& A, const double& v)
-{CPPL_VERBOSE_REPORT;
-  dcovector_small<n> C;
-  for(CPPL_INT i=0; i<n; i++){
-    C(i) =A(i)*v;
-  }
-  return C;
-}
-
-//=============================================================================
-/*! dcovector_small*drovector_small operator */
-template<CPPL_INT m, CPPL_INT n>
-inline dgematrix_small<m,n> operator*(const dcovector_small<m>& A, const drovector_small<n>& B)
-{CPPL_VERBOSE_REPORT;
-  dgematrix_small<m,n> mat;
-  for(CPPL_INT i=0; i<m; i++){
-    for(CPPL_INT j=0; j<n; j++){
-      mat(i,j) =A(i)*B(j);
-    }
-  }
-  return mat;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! dcovector_small/double operator */
-template<CPPL_INT n>
-inline dcovector_small<n> operator/(const dcovector_small<n>& A, const double& v)
-{CPPL_VERBOSE_REPORT;
-  dcovector_small<n> C;
-  for(CPPL_INT i=0; i<n; i++){
-    C(i) =A(i)/v;
-  }
-  return C;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! dcovector_small%dcovector_small (inner product) operator */
-template<CPPL_INT l>
-inline double operator%(const dcovector_small<l>& A, const dcovector_small<l>& B)
-{CPPL_VERBOSE_REPORT;
-  double v(0.);
-  for(CPPL_INT i=0; i<l; i++){
-    v +=A(i)*B(i);
-  }
-  return v;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! Hadamard product */
-template<CPPL_INT l>
-inline dcovector_small<l> hadamard(const dcovector_small<l>& A, const dcovector_small<l>& B)
-{CPPL_VERBOSE_REPORT;
-  dcovector_small<l> C;
-  for(CPPL_INT i=0; i<l; i++){
-    C(i) =A(i)*B(i);
-  }
-  return C;
-}
-
diff --git a/cpplapack-r198/.svn/pristine/63/6303fef3e4c1be672bfcb7abbaf36738719e2618.svn-base b/cpplapack-r198/.svn/pristine/63/6303fef3e4c1be672bfcb7abbaf36738719e2618.svn-base
deleted file mode 100644
index 69aa5f1..0000000
--- a/cpplapack-r198/.svn/pristine/63/6303fef3e4c1be672bfcb7abbaf36738719e2618.svn-base
+++ /dev/null
@@ -1,52 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int M(4);
-  
-  CPPL::dcovector x(M), y(M), z;
-  for(int i=0; i<x.l; i++){
-	x(i) =double( rand() /(RAND_MAX/10) );
-  }
-  for(int i=0; i<y.l; i++){
-	y(i) =double( rand() /(RAND_MAX/10) );
-  }
-  
-  cout << "x =\n" << x << endl;
-  cout << "y =\n" << y << endl;
-  
-  cout << "x+x =\n" << x+x << endl;
-  cout << "x-x =\n" << x-x << endl;
-  cout << "x%y =\n" << x%y << endl;
-  
-  cout << "#### z=x; ####" << endl;
-  z=x;
-  cout << "z =\n" << z << endl;
-  cout << "#### z=x+x-x; ####" << endl;
-  z=x+x-x;
-  cout << "z =\n" << z << endl;
-  cout << "#### z+=x; ####" << endl;
-  z+=x;
-  cout << "z =\n" << z << endl;
-  cout << "#### z-=x; ####" << endl;
-  z-=x;
-  cout << "z =\n" << z << endl;
-  
-  cout << "hadamerd(x,x) =\n" << hadamerd(x,x) << endl;
-  cout << "hadamerd(x,x) =\n" << hadamerd(x,hadamerd(x,x)) << endl;
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/63/630b4be479ab3322cf381d0e1536b5e1fc1ecb9f.svn-base b/cpplapack-r198/.svn/pristine/63/630b4be479ab3322cf381d0e1536b5e1fc1ecb9f.svn-base
deleted file mode 100644
index 1b82736..0000000
--- a/cpplapack-r198/.svn/pristine/63/630b4be479ab3322cf381d0e1536b5e1fc1ecb9f.svn-base
+++ /dev/null
@@ -1,142 +0,0 @@
-//=============================================================================
-//! Real Double-precision Symmetric Sparse Matrix Class
-class dssmatrix
-{
-public:
-  ///////////////////////////////////////////////
-  /////////////////// objects ///////////////////
-  ///////////////////////////////////////////////
-  CPPL_INT const& m; //!< matrix row size
-  CPPL_INT n; //!< matrix column size
-  std::vector<dcomponent> data; //!< matrix data
-  std::vector< std::vector<CPPL_INT> > line; //!< vector of vector to store the entry information of component for each row and column
-  
-  ///////////////////////////////////////////////
-  ///////////////// constructors ////////////////
-  ///////////////////////////////////////////////
-  inline dssmatrix();
-  inline dssmatrix(const dssmatrix&);
-  inline dssmatrix(const _dssmatrix&);
-  inline dssmatrix(const CPPL_INT&, const CPPL_INT=0);
-  inline dssmatrix(const char*);
-  inline ~dssmatrix(); //destructor
-  
-  ///////////////////////////////////////////////
-  ////////////////// functions //////////////////
-  ///////////////////////////////////////////////
-  //////// cast ////////
-  inline _zhsmatrix to_zhsmatrix() const;
-  inline _dgematrix to_dgematrix() const;
-  inline _dsymatrix to_dsymatrix() const;
-  inline _dgsmatrix to_dgsmatrix() const;
-  
-  //////// io ////////
-  inline double operator()(const CPPL_INT&, const CPPL_INT&) const;
-  inline double& operator()(const CPPL_INT&, const CPPL_INT&);
-  inline dssmatrix& put(const CPPL_INT&, const CPPL_INT&, const double&);
-  inline dssmatrix& del(const CPPL_INT, const CPPL_INT); //<-- NOT (const CPPL_INT&)
-  inline dssmatrix& del(const CPPL_INT); //<-- NOT (const CPPL_INT&)
-  inline friend std::ostream& operator<<(std::ostream&, const dssmatrix&);
-  inline void write(const char*) const;
-  inline void read(const char*);
-
-  //////// misc ////////
-  inline void clear();
-  inline dssmatrix& zero();
-  inline dssmatrix& identity();
-  inline void chsign();
-  inline void copy(const dssmatrix&);
-  inline void shallow_copy(const _dssmatrix&);
-  inline dssmatrix& resize(const CPPL_INT&, const CPPL_INT=0, const CPPL_INT=0);
-  inline void stretch(const CPPL_INT&);
-  inline bool isListed(const CPPL_INT&, const CPPL_INT&) const;
-  inline CPPL_INT number(const CPPL_INT&, const CPPL_INT&) const;
-  inline _drovector row(const CPPL_INT&) const;
-  inline _dcovector col(const CPPL_INT&) const;
-  inline void diet(const double=DBL_MIN);
-  inline CPPL_INT diag_front();
-  inline void reorder(const bool=0);
-  inline void rebuild();
-  inline void checkup();
-  inline friend void swap(dssmatrix&, dssmatrix&);
-  inline friend _dssmatrix _(dssmatrix&);
-  
-  //////// calc ////////
-  inline friend _dssmatrix t(const dssmatrix&);
-  inline friend void idamax(CPPL_INT&, CPPL_INT&, const dssmatrix&);
-  inline friend double damax(const dssmatrix&);
-  
-  //////// pardiso ////////
-  inline CPPL_INT pardiso_definite(dcovector&) const;
-  inline CPPL_INT pardiso_indefinite(dcovector&) const;
-  
-  ///////////////////////////////////////////////
-  ///////////// numerical operators /////////////
-  ///////////////////////////////////////////////
-  //////// = ////////
-  inline dssmatrix& operator=(const  dssmatrix&);
-  inline dssmatrix& operator=(const _dssmatrix&);
-  
-  //////// += ////////
-  inline dssmatrix& operator+=(const  dssmatrix&);
-  inline dssmatrix& operator+=(const _dssmatrix&);
-  
-  //////// -= ////////
-  inline dssmatrix& operator-=(const  dssmatrix&);
-  inline dssmatrix& operator-=(const _dssmatrix&);
-  
-  //////// *= ////////
-  inline dssmatrix& operator*=(const     double&);
-  
-  //////// /= ////////
-  inline dssmatrix& operator/=(const     double&);
-  
-  //////// unary ////////
-  inline friend const dssmatrix& operator+(const dssmatrix&);
-  inline friend _dssmatrix operator-(const  dssmatrix&);
-  
-  //////// + ////////
-  inline friend _dgematrix operator+(const  dssmatrix&, const  dgematrix&);
-  inline friend _dgematrix operator+(const  dssmatrix&, const _dgematrix&);
-  inline friend _dgematrix operator+(const  dssmatrix&, const  dsymatrix&);
-  inline friend _dgematrix operator+(const  dssmatrix&, const _dsymatrix&);
-  inline friend _dgematrix operator+(const  dssmatrix&, const  dgbmatrix&);
-  inline friend _dgematrix operator+(const  dssmatrix&, const _dgbmatrix&);
-  inline friend _dgsmatrix operator+(const  dssmatrix&, const  dgsmatrix&);
-  inline friend _dgsmatrix operator+(const  dssmatrix&, const _dgsmatrix&);
-  inline friend _dssmatrix operator+(const  dssmatrix&, const  dssmatrix&);
-  inline friend _dssmatrix operator+(const  dssmatrix&, const _dssmatrix&);
-  
-  //////// - ////////
-  inline friend _dgematrix operator-(const  dssmatrix&, const  dgematrix&);
-  inline friend _dgematrix operator-(const  dssmatrix&, const _dgematrix&);
-  inline friend _dgematrix operator-(const  dssmatrix&, const  dsymatrix&);
-  inline friend _dgematrix operator-(const  dssmatrix&, const _dsymatrix&);
-  inline friend _dgematrix operator-(const  dssmatrix&, const  dgbmatrix&);
-  inline friend _dgematrix operator-(const  dssmatrix&, const _dgbmatrix&);
-  inline friend _dgsmatrix operator-(const  dssmatrix&, const  dgsmatrix&);
-  inline friend _dgsmatrix operator-(const  dssmatrix&, const _dgsmatrix&);
-  inline friend _dssmatrix operator-(const  dssmatrix&, const  dssmatrix&);
-  inline friend _dssmatrix operator-(const  dssmatrix&, const _dssmatrix&);
-  
-  //////// * ////////
-  inline friend _dcovector operator*(const  dssmatrix&, const  dcovector&);
-  inline friend _dcovector operator*(const  dssmatrix&, const _dcovector&);
-  inline friend _dgematrix operator*(const  dssmatrix&, const  dgematrix&);
-  inline friend _dgematrix operator*(const  dssmatrix&, const _dgematrix&);  
-  inline friend _dgematrix operator*(const  dssmatrix&, const  dsymatrix&);
-  inline friend _dgematrix operator*(const  dssmatrix&, const _dsymatrix&);
-  inline friend _dgematrix operator*(const  dssmatrix&, const  dgbmatrix&);
-  inline friend _dgematrix operator*(const  dssmatrix&, const _dgbmatrix&);  
-  inline friend _dgsmatrix operator*(const  dssmatrix&, const  dgsmatrix&);
-  inline friend _dgsmatrix operator*(const  dssmatrix&, const _dgsmatrix&);  
-  inline friend _dgsmatrix operator*(const  dssmatrix&, const  dssmatrix&);
-  inline friend _dgsmatrix operator*(const  dssmatrix&, const _dssmatrix&);
-  inline friend _dssmatrix operator*(const  dssmatrix&, const     double&);
-  
-  //////// / ////////
-  inline friend _dssmatrix operator/(const  dssmatrix&, const     double&);
-  
-  //////// double ////////
-  inline friend _dssmatrix operator*(const     double&, const  dssmatrix&);
-};
diff --git a/cpplapack-r198/.svn/pristine/63/6341f8e32f6482fd5d97ac1bfdd444116798d099.svn-base b/cpplapack-r198/.svn/pristine/63/6341f8e32f6482fd5d97ac1bfdd444116798d099.svn-base
deleted file mode 100644
index 8a06ccf..0000000
--- a/cpplapack-r198/.svn/pristine/63/6341f8e32f6482fd5d97ac1bfdd444116798d099.svn-base
+++ /dev/null
@@ -1,63 +0,0 @@
-//=============================================================================
-/*! _drovector+_drovector operator */
-inline _drovector operator+(const _drovector& vecA, const _drovector& vecB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vecA.l!=vecB.l){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make a sumation." << std::endl
-              << "Your input was (" << vecA.l << ") + (" << vecB.l << ")." << std::endl;
-    exit(1);
-  }
-  
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<vecA.l; i++){
-    vecA.array[i]+=vecB.array[i];
-  }
-  
-  vecB.destroy();
-  return vecA;
-}
-
-//=============================================================================
-/*! _drovector-_drovector operator */
-inline _drovector operator-(const _drovector& vecA, const _drovector& vecB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vecA.l!=vecB.l){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make a subtraction." << std::endl
-              << "Your input was (" << vecA.l << ") - (" << vecB.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<vecA.l; i++){
-    vecA.array[i]-=vecB.array[i];
-  }
-  
-  vecB.destroy();
-  return vecA;
-}
-
-//=============================================================================
-/*! _drovector^T*_drovector operator (inner product) */
-inline double operator%(const _drovector& vecA, const _drovector& vecB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vecA.l!=vecB.l){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make a dot product." << std::endl
-              << "Your input was (" << vecA.l << ") % (" << vecB.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  CPPL_INT inc =1;
-  double val =ddot_( &vecA.l, vecA.array, &inc, vecB.array, &inc );
-  
-  vecA.destroy();
-  vecB.destroy();
-  return val;
-}
diff --git a/cpplapack-r198/.svn/pristine/63/635ff7eec35e4012e38d33b7b8e4f002c1ba4022.svn-base b/cpplapack-r198/.svn/pristine/63/635ff7eec35e4012e38d33b7b8e4f002c1ba4022.svn-base
deleted file mode 100644
index fb9545a..0000000
--- a/cpplapack-r198/.svn/pristine/63/635ff7eec35e4012e38d33b7b8e4f002c1ba4022.svn-base
+++ /dev/null
@@ -1,127 +0,0 @@
-//=============================================================================
-/*! operator() for non-const object */
-inline double& drovector::operator()(const CPPL_INT& i)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || l<=i ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the vector size." << std::endl
-              << "Your input is (" << i << "), whereas the vector size is " << l << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  return array[i];
-}
-
-//=============================================================================
-/*! operator() for const object */
-inline double drovector::operator()(const CPPL_INT& i) const
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || l<=i ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the vector size." << std::endl
-              << "Your input is (" << i << "), whereas the vector size is " << l << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  return array[i];
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! set value for const object */
-inline drovector& drovector::set(const CPPL_INT& i, const double& v) //const
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || l<=i ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the vector size." << std::endl
-              << "Your input is (" << i << "), whereas the vector size is " << l << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  array[i] =v;
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-inline std::ostream& operator<<(std::ostream& s, const drovector& vec)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<vec.l; i++){ s << " " << vec.array[i]; }
-  s << std::endl;
-  
-  return s;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-inline void drovector::write(const char *filename) const
-{CPPL_VERBOSE_REPORT;
-  std::ofstream ofs(filename, std::ios::trunc);
-  ofs.setf(std::cout.flags());
-  ofs.precision(std::cout.precision());
-  ofs.width(std::cout.width());
-  ofs.fill(std::cout.fill());
-  
-  ofs << "#drovector" << " " << l << std::endl;
-  for(CPPL_INT i=0; i<l; i++){
-    ofs << operator()(i) << " ";
-  }
-  ofs << std::endl;
-  
-  ofs.close();
-}
-
-//=============================================================================
-inline void drovector::read(const char *filename)
-{CPPL_VERBOSE_REPORT;
-  std::ifstream s( filename );
-  if(!s){
-    ERROR_REPORT;
-    std::cerr << "The file \"" << filename << "\" can not be opened." << std::endl;
-    exit(1);
-  }
-
-  std::string id;
-  s >> id;
-  if( id != "drovector" && id != "#drovector" ){
-    ERROR_REPORT;
-    std::cerr << "The type name of the file \"" << filename << "\" is not drovector." << std::endl
-              << "Its type name was " << id << " ." << std::endl;
-    exit(1);
-  }
-  
-  s >> l;
-  resize(l);
-  for(CPPL_INT i=0; i<l; i++) { s >> operator()(i); }
-  if(s.eof()){
-    ERROR_REPORT;
-    std::cerr << "There is something is wrong with the file \"" << filename << "\"." << std::endl
-              << "Most likely, there is a lack of data components, or a linefeed code or space code is missing at the end of the last line." << std::endl;
-    exit(1);
-  }
-  
-  s >> id;
-  if(!s.eof()){
-    ERROR_REPORT;
-    std::cerr << "There is something is wrong with the file \"" << filename << "\"." << std::endl
-              << "Most likely, there are extra data components." << std::endl;
-    exit(1);
-  }
-  
-  s.close();
-}
diff --git a/cpplapack-r198/.svn/pristine/63/637c59b1dfb4992ecfd8f172486c81f19e98cfd9.svn-base b/cpplapack-r198/.svn/pristine/63/637c59b1dfb4992ecfd8f172486c81f19e98cfd9.svn-base
deleted file mode 100644
index b5919f1..0000000
--- a/cpplapack-r198/.svn/pristine/63/637c59b1dfb4992ecfd8f172486c81f19e98cfd9.svn-base
+++ /dev/null
@@ -1,20 +0,0 @@
-//=============================================================================
-/*! +dsymatrix operator */
-inline const dsymatrix& operator+(const dsymatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  return mat;
-}
-
-//=============================================================================
-/*! -dsymatrix operator */
-inline _dsymatrix operator-(const dsymatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  dsymatrix newmat(mat.n);
-  
-  const CPPL_INT size =newmat.n*newmat.n;
-  for(CPPL_INT i=0; i<size; i++){
-    newmat.array[i] =-mat.array[i];
-  }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/63/63a0c4a8602e51498670ad0d5e3afa4277a794b0.svn-base b/cpplapack-r198/.svn/pristine/63/63a0c4a8602e51498670ad0d5e3afa4277a794b0.svn-base
deleted file mode 100644
index 66da0d0..0000000
--- a/cpplapack-r198/.svn/pristine/63/63a0c4a8602e51498670ad0d5e3afa4277a794b0.svn-base
+++ /dev/null
@@ -1,75 +0,0 @@
-//=============================================================================
-/*! return its transposed matrix */
-inline _zhsmatrix t(const _zhsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  const std::vector<zcomponent>::iterator mat_data_end =mat.data.end();
-  for(std::vector<zcomponent>::iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    it->v =std::conj(it->v);
-  }
-  
-  return mat;
-}
-
-//=============================================================================
-/*! return its conjugate matrix */
-inline _zhsmatrix conj(const _zhsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  const std::vector<zcomponent>::iterator mat_data_end =mat.data.end();
-  for(std::vector<zcomponent>::iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    it->v =std::conj(it->v);
-  }
-  
-  return mat;
-}
-
-//=============================================================================
-/*! return its conjugate transposed matrix */
-inline _zhsmatrix conjt(const _zhsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  return mat;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! search the index of element having the largest absolute value
-  in 0-based numbering system */
-inline void idamax(CPPL_INT& i, CPPL_INT& j, const _zhsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  std::vector<zcomponent>::const_iterator itx(mat.data.begin());
-  double vmax =0.;
-  
-  const std::vector<zcomponent>::const_iterator mat_data_end =mat.data.end();
-  for(std::vector<zcomponent>::const_iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    if( vmax < norm(it->v) ){
-      vmax =norm(it->v);
-      itx =it;
-    }
-  }
-  
-  i=itx->i;
-  j=itx->j;
-  
-  mat.destroy();
-}
-
-//=============================================================================
-/*! return its largest absolute value */
-inline comple damax(const _zhsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  std::vector<zcomponent>::const_iterator itx(mat.data.begin());
-  double vmax =0.;
-  
-  const std::vector<zcomponent>::const_iterator mat_data_end =mat.data.end();
-  for(std::vector<zcomponent>::const_iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    if( vmax < norm(it->v) ){
-      vmax =norm(it->v);
-      itx =it;
-    }
-  }
-  
-  mat.destroy();
-  return itx->v;
-}
diff --git a/cpplapack-r198/.svn/pristine/63/63ac3f145520e4ed403663298de1967adbba3f4f.svn-base b/cpplapack-r198/.svn/pristine/63/63ac3f145520e4ed403663298de1967adbba3f4f.svn-base
deleted file mode 100644
index 74f5087..0000000
--- a/cpplapack-r198/.svn/pristine/63/63ac3f145520e4ed403663298de1967adbba3f4f.svn-base
+++ /dev/null
@@ -1,29 +0,0 @@
-//=============================================================================
-/*! calculate vector product only for 2D vector */
-inline comple operator/(const zcovec2& A, const zcovec2& B)
-{CPPL_VERBOSE_REPORT;
-  return A(0)*B(1) -A(1)*B(0);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! calculate vector product only for 3D vector */
-inline zcovec3 operator/(const zcovec3& A, const zcovec3& B)
-{CPPL_VERBOSE_REPORT;
-  zcovec3 C;
-  C(0) =A(1)*B(2) -A(2)*B(1);
-  C(1) =A(2)*B(0) -A(0)*B(2);
-  C(2) =A(0)*B(1) -A(1)*B(0);
-  return C;
-}
-
-//=============================================================================
-/*! calculate vector product only for 3D vector */
-inline zcovec3 operator/=(zcovec3& A, const zcovec3& B)
-{CPPL_VERBOSE_REPORT;
-  A =A/B;
-  return A;
-}
diff --git a/cpplapack-r198/.svn/pristine/63/63e09a14593d65f3cb717f88eafc051c44333d87.svn-base b/cpplapack-r198/.svn/pristine/63/63e09a14593d65f3cb717f88eafc051c44333d87.svn-base
deleted file mode 100644
index 3e405c8..0000000
--- a/cpplapack-r198/.svn/pristine/63/63e09a14593d65f3cb717f88eafc051c44333d87.svn-base
+++ /dev/null
@@ -1,38 +0,0 @@
-//=============================================================================
-/*! dsymatrix_small constructor */
-template<CPPL_INT n>
-inline dsymatrix_small<n>::dsymatrix_small()
-{CPPL_VERBOSE_REPORT;
-  ;
-}
-
-//=============================================================================
-/*! dsymatrix_small constructor */
-template<CPPL_INT n>
-inline dsymatrix_small<n>::dsymatrix_small(const dsymatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( n!=mat.n ){
-    ERROR_REPORT;
-    std::cerr << "Matrix sizes must be the same." << std::endl
-              << "Your input was " << n << "x" << n << " and " << mat.m << "x" << mat.n << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT k=0; k<(n*(n+1))/2; k++){
-    array[k] =mat.array[k];
-  }
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! dsymatrix_small destructor */
-template<CPPL_INT n>
-inline dsymatrix_small<n>::~dsymatrix_small()
-{CPPL_VERBOSE_REPORT;
-  ;
-}
diff --git a/cpplapack-r198/.svn/pristine/64/643875e637bf65735c44531f94e8d96b5f215716.svn-base b/cpplapack-r198/.svn/pristine/64/643875e637bf65735c44531f94e8d96b5f215716.svn-base
deleted file mode 100644
index 9eb5cab..0000000
--- a/cpplapack-r198/.svn/pristine/64/643875e637bf65735c44531f94e8d96b5f215716.svn-base
+++ /dev/null
@@ -1,25 +0,0 @@
-//=============================================================================
-/*! _zhematrix*_zcovector operator */
-inline _zcovector operator*(const _zhematrix& mat, const _zcovector& vec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(mat.n!=vec.l){
-    ERROR_REPORT;
-    std::cerr << "These matrix and vector can not make a product." << std::endl
-              << "Your input was (" << mat.n << "x" << mat.n << ") * (" << vec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zcovector newvec(mat.n);
-  char uplo ='l';
-  comple alpha =comple(1.,0.);
-  CPPL_INT inc =1;
-  comple beta =comple(0.,0.);
-
-  zhemv_( &uplo, &mat.n, &alpha, mat.array, &mat.n, vec.array, &inc, &beta, newvec.array, &inc );
-  
-  mat.destroy();
-  vec.destroy();
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/64/64d2c99bd25a7519fa2ca86e4fb4187ea37ad9ca.svn-base b/cpplapack-r198/.svn/pristine/64/64d2c99bd25a7519fa2ca86e4fb4187ea37ad9ca.svn-base
deleted file mode 100644
index 595d8ee..0000000
--- a/cpplapack-r198/.svn/pristine/64/64d2c99bd25a7519fa2ca86e4fb4187ea37ad9ca.svn-base
+++ /dev/null
@@ -1,401 +0,0 @@
-/*!
-\mainpage
-<!---------------------------------------------------------------------------->
-<!---------------------------------------------------------------------------->
-<!---------------------------------------------------------------------------->
-<hr><hr>
-<h2>What's new?</h2>
-<p>
-[May 11th 2015]
-"cpplapack-2015.05.11" has been released.
-This release is only for the users who don't like to use svn.
-(We still highly recommend users to use the latest svn code!!)
-Not only "tar.gz", "rpm" and "deb" (made by alien) packages were prepared.
-There are some major modifications in this release, and thus users may need to modify the following points in your codes:
-<ul>
-  <li>
-    The BLAS/LAPACK fictions are put in CPPL namespace.
-    Put "CPPL::" at the head of each direct call of BLAS/LAPACK fictions.
-  </li>
-  <li>
-    The argument style of the BLAS/LAPACK fictions is changed to FORTRAN style.
-    Not only array objects but also non-array objects must be passed as the addresses of the objects.
-    Put "&amp;" at the head of each non-array argument of directly-called BLAS/LAPACK fictions.
-  </li>
-  <li>
-    The default type of an integer is revised to "CPPL_INT" from "long".
-    "CPPL_INT" denotes "MKL_INT" on Intel/MKL and "int" on g++ etc..
-    Note that "long" is no longer valid.
-  </li>
-</ul>
-e.g.)<br>
-Old code:<br>
-<code>
-&nbsp;&nbsp; long NRHS(mat.n), LDA(n), *IPIV(new long[n]), LDB(mat.m), INFO(1);<br>
-&nbsp;&nbsp; dgesv_(n, NRHS, array, LDA, IPIV, mat.array, LDB, INFO);<br>
-</code>
-New code:<br>
-<code>
-  &nbsp;&nbsp; CPPL_INT NRHS(mat.n), LDA(n), *IPIV(new CPPL_INT[n]), LDB(mat.m), INFO(1);<br>
-  &nbsp;&nbsp; CPPL::dgesv_(&n, &NRHS, array, &LDA, IPIV, mat.array, &LDB, &INFO);<br>
-</code>
-or<br>
-<code>
-  &nbsp;&nbsp; int NRHS(mat.n), LDA(n), *IPIV(new int[n]), LDB(mat.m), INFO(1);<br>
-  &nbsp;&nbsp; CPPL::dgesv_(&n, &NRHS, array, &LDA, IPIV, mat.array, &LDB, &INFO);<br>
-</code>
-(It is OK to use "int" instead of "CPPL_INT" on most platforms.)
-</p>
-
-<p>
-[Feb. 8th 2014]
-"cpplapack-2014.02.08" has been released.
-This release is only for the users who don't like to use svn.
-(We still highly recommend users to use the latest svn code!!)
-Not only "tar.gz", "rpm" and "deb" (made by alien) packages were prepared.
-See the logs of svn to get the "ChangeLog".
-</p>
-
-<p>
-[Mar. 27th 2010]
-"cpplapack-2010.03.27" has been released.
-This release is only for the users who don't like to use svn.
-(We still recommend users to use svn.:))
-Not only "tar.gz" but also "rpm" and "deb" packages were prepared.
-See the logs of svn to get the "ChangeLog".
-</p>
-
-<p>
-[Sep. 25th 2006]
-"cpplapack-2006_09_25" has been released.
-The general sparse matrix(dgsmatrix, zgsmatrix) and symmetric or hermitial sparse matrix(dssmatrix,zhsmatrix) were formally added. 
-This release also contains some bug fixes.
-See "ChangeLog" for the detail.
-</p>
-
-<p>
-[Mar. 25th 2005]
-"cpplapack-2005_03_25" has been released.
-This release contains some bug fixes and modification.
-See "ChangeLog" for the detail.
-It also contains the alpha version of sparse matrix classes (dssmatrix and zssmatrix).
-These classes are still so buggy, but it is OK as long as you don't use these classes in your code.
-</p>
-
-<p>
-[Oct. 15th 2004]
-Mr. Ueshima wrote a tutorial of CPPLapack in Japanese.
-"cpplapack-2004_04_24" has been released.
-It is very useful for beginners of CPPLapack.
-The HTML version is available at 
-<a href="http://cpplapack.sourceforge.net/tutorial/japanese/index.html">
-http://cpplapack.sourceforge.net/tutorial/japanese/index.html</a>,
-and the PDF version is available at 
-<a href="http://cpplapack.sourceforge.net/tutorial/japanese/CPPLapack_Tutorial-Japanese.pdf">http://cpplapack.sourceforge.net/tutorial/japanese/CPPLapack_Tutorial-Japanese.pdf</a>
-</p>
-
-<p>
-[Apr. 24th 2004]
-"cpplapack-2004_04_24" has been released.
-OpenMP macros (<code>\#pragma omp parallel for private(j,k)</code>) 
-are added to all triple for-loops. 
-The search engine for this documentation is added.
-This search engine is case-sensitive.
-</p>
-
-<p>
-[Apr. 1st 2004]
-"cpplapack-2004_04_01" has been released.
-The complex double-precision matrix and vector classes 
-(zgematrix, zgbmatrix, zhematrix, zcovector, zrovector)
-are newly added.
-</p>
-
-<!---------------------------------------------------------------------------->
-<!---------------------------------------------------------------------------->
-<!---------------------------------------------------------------------------->
-<hr><hr>
-<h2>Introduction</h2>
-<p>
-CPPLapack is a C++ class wrapper for BLAS, LAPACK and PARDISO.
-</p>
-
-<p>
-The interfaces of Fortran BLAS, LAPACK, CBLAS, and CLAPACK are not user-friendly, and induce a lot of coding mistakes not only for LAPACK beginners but also experienced programmers. 
-Because of its difficult interface, BLAS functions are not widely used for simple matrix calculations such as "+", "-", "*", and so on even though these calculations are frequently required.
-If there is a user-friendly library using BLAS and LAPACK in the background, it is really useful to minimize the program development time and computational time at the same time.
-Existing matrix libraries, however, are not sufficient as far as we know.
-</p>
-
-<p>
-CPPLapack has a very user-friendly interface 
-as same as ordinary C++ matrix libraries.
-Moreover, CPPLapack uses BLAS and LAPACK functions in the background though programmers just need to write simple codes such as <code>"A=B*C;"</code>, <code>"A.dgesv(y);"</code>, and so on.
-</p>
-
-<p>
-The advantage of using CPPLapack are not only user-friendly interface and fast computational speed but also saving memory space.
-In case of large-size matrix calculation, the number of copy times of objects affects required memory space and computational time materially.
-CPPLapack has a mechanism called "Smart-Temporary" system to minimize the number of copy times.
-The "Smart-Temporary" system is also hidden in CPPLapack library so that programmers don't need to pay any attention for this system.
-(CPPLapack used to employed "to_return" system.
-Now CPPLapack uses this system to realize the same purpose with keeping the compatibility with old versions.)
-</p>
-
-<p>
-This program is designed for large matrix calculation.
-If you don't have mind to handle large matrices, 
-to use another matrix library is recommended.
-</p>
-
-<p>
-CPPLapack is still a beta program so far.
-It is a shame but there are a few bugs and unsupported BLAS and LAPACK functions.
-If you are going to use CPPLapack, please be aware this situation.
-Of course, it is very nice if you help us to develop CPPLapack.
-</p>
-
-
-<!---------------------------------------------------------------------------->
-<!---------------------------------------------------------------------------->
-<!---------------------------------------------------------------------------->
-<hr>
-<h2>Special Features</h2>
-<ul>
-<li>
-User-friendly interface<br>
-</li>
-<li>
-Hi-speed matrix calculations using BLAS, LAPACK and PARDISO<br>
-</li>
-<li>
-Minimized number of copy times of objects using "Smart-Temporary" system<br>
-</li>
-</ul>
-All of the features are hidden in C++ class library 
-so that programmers are not required to do any special programming.
-
-
-<!---------------------------------------------------------------------------->
-<!---------------------------------------------------------------------------->
-<!---------------------------------------------------------------------------->
-<hr>
-<h2>Where to Get</h2>
-<p>
-The official distribution site of CPPLapack is
-<a href="http://sourceforge.net/projects/cpplapack/">here</a>.
-It is highly recommended to use the latest svn code on the linked page.
-</p>
-
-
-<!---------------------------------------------------------------------------->
-<!---------------------------------------------------------------------------->
-<!---------------------------------------------------------------------------->
-<hr>
-<h2>How to Install</h2>
-<p>
-Actually, you don't need to install CPPLapack.
-CPPLapack is a bunch of C++ header files.
-Just expand the package at somewhere you like, 
-and write a include path in your "Makefile".
-All you need to include is only "cpplapack.h".
-</p>
-
-<p>
-But CPPLapack needs BLAS and LAPACK written in Fortran installed. 
-Just make sure these two libraries are installed and modify "Makefile" to include and link to them. 
-In stead of original BLAS and LAPACK packages, bender-supplied libraries such as Intel math kernel library (MKL) are also acceptable.
-Note that Intel MKL is necessary to use PARDISO for sparse matrices.
-</p>
-
-<p>
-What BLAS and LAPACK need to link depends on your platform. 
-Some examples of "Makefile" are prepared. 
-See \ref pg-makefile.
-</p>
-
-<!---------------------------------------------------------------------------->
-<!---------------------------------------------------------------------------->
-<!---------------------------------------------------------------------------->
-<hr>
-<h2>Important Specification</h2>
-<ul>
-<li>
-The namespace for CPPLapack is "CPPL".
-</li>
-<li>
-You should not and don't need to use underscored matrix classes. 
-These classes are not for project codes. 
-The underscored classes are called "Smart-Temporary" classes.
-The detail of "Smart-Temporary" system is explained in \ref pg-nt.
-</li>
-<li>
-The numbering system of the matrix component is NOT 1-based but 0-based.
-In case of m x n matrix,
-the element number at the upper left is (0,0), and the element number at the lower right is (m-1,n-1).
-See \ref pg-bandmatrix for information of a band matrix.
-</li>
-<li>
-The matrix arrays are stored in column-major style. 
-although most of C programmers like to use row-major style. 
-This is because of the conventional Fortran LAPACK style.
-</li>
-<li>
-The matrix and vector member objects m, n, l, and array are the const reference objects so that they can be used to obtain the data but cannot be overwritten.
-</li>
-<li>
-LAPACK member functions implemented in CPPLapack, such as A.dgesv(y), overwrite the matrix A.
-When you need to keep the original matrix A, you have to make a copy of the matrix A before using LAPACK member functions.
-</li>
-<li>
-For easy debugging, "CPPL_VERBOSE" and "CPPL_DEBUG" macros are prepared. 
-When "-DCPPL_VERBOSE" is specified in compilation commands, every called function outputs its function name to stderr.
-When "-DCPPL_DEBUG" is specified in compilation commands, matrix bounds checking are enabled. 
-We recommend you to enable these macros during the program testing, then recompile codes without these macros for CPPLapack's best performance.
-</li>
-<li>
-It is important NOT to leave out the returned object. 
-The calculated and returned object must be substituted to an object. 
-For example, <code>A+B;</code> is not good. 
-For another example, 
-<code>"dcovector f(const dcovector&amp; x){ return 2*x; }"</code>,
-<code>f(x);</code> is also not good. 
-These are because of the "Smart-Temporary" system. 
-See \ref pg-nt. 
-</li>
-</ul>
-
-<!---------------------------------------------------------------------------->
-<!---------------------------------------------------------------------------->
-<!---------------------------------------------------------------------------->
-<hr>
-<h2>Test Programs</h2>
-Test programs to check the operations are there in "test" directory.
-They are also easy examples for you to learn how to use CPPLapack.
-
-<!---------------------------------------------------------------------------->
-<!---------------------------------------------------------------------------->
-<!---------------------------------------------------------------------------->
-<hr>
-<h2>Benchmark Programs</h2>
-<p>
-Some programs to estimate the speed of CPPLapack are prepared in "benchmark" directory.
-</p>
-
-<p>
-The performance of CPPLapack is almost the same as the performance of original BLAS and LAPACK.
-However, some of arguments of BLAS and LAPACK functions such as ALPHA, BETA, TRANS, and so on are fixed at certain values.
-When you want to make the full-use of BLAS and LAPACK functions, you can call their functions directory in codes of CPPLapack as usual.
-</p>
-
-<!---------------------------------------------------------------------------->
-<!---------------------------------------------------------------------------->
-<!---------------------------------------------------------------------------->
-<hr>
-<h2>FAQ</h2>
-<p>
-(Q)I found my program using CPPLapack consuming the memory larger and larger in a loop. Why does this happen?
-<br>
-(A)Most likely, you leave out some returned matrix or vector object in the loop.
-Please read "Important Specification" section carefully.
-</p>
-
-
-<p>
-(Q)When I print components of a matrix or vector, I sometimes see "nan" printed. What is the possible reason?
-<br>
-(A)First of all, please make sure that your objects are initialized.
-The constructor with size arguments such as 
-<code>"CPPL::dgematrix A(5,10);"</code>
-does NOT initialize its array components.
-The "resize" function does NOT initialize, neither.
-Please initialize objects using substitutions, or use "identity" or "zero" function to initialize them.
-</p>
-
-<p>
-(Q)All the member variables are in "public".
-Why don't you set "private" for capsulation?
-<br>
-(A)Matrix programings are frequently required to be custom-made.
-Choosing "public" or "private" was a tough choice, and we chose "public" so that users could make custom-made functions without modifying CPPLapack itself.
-</p>
-
-<!---------------------------------------------------------------------------->
-<!---------------------------------------------------------------------------->
-<!---------------------------------------------------------------------------->
-<hr>
-<h2>License</h2>
-CPPLapack is a GPL software without any guarantee.
-
-<!---------------------------------------------------------------------------->
-<!---------------------------------------------------------------------------->
-<!---------------------------------------------------------------------------->
-<hr>
-<h2>Author and Cooperators</h2>
-Author: &nbsp;
-Yuki ONISHI<br>
-Cooperator: &nbsp;
-Masafumi IAI, &nbsp;
-Toshiyasu SHIMIZU, &nbsp;
-Masashi UESHIMA
-
-<!---------------------------------------------------------------------------->
-<!---------------------------------------------------------------------------->
-<!---------------------------------------------------------------------------->
-<hr>
-<h2>Bug Report</h2>
-Please send bug reports to 
-<a href="mailto:yuki.onishi@gmail.com">yuki.onishi@gmail.com</a>.
-I also welcome any kind of comments.
-
-<!---------------------------------------------------------------------------->
-<!---------------------------------------------------------------------------->
-<!---------------------------------------------------------------------------->
-<hr>
-<h2>Links</h2>
-CPPLapack Documents in Japanese:
-<ul>
-<li><a target="_blank" href="../main_page/Japanese.html">
-CPPLapack Document in Japanese</a></li>
-<li><a target="_blank" href="http://cpplapack.sourceforge.net/tutorial/japanese/index.html">
-CPPLapack Tutorial in Japanese</a></li>
-<li><a href="http://cpplapack.sourceforge.net/tutorial/japanese/CPPLapack_Tutorial-Japanese.pdf">PDF of CPPLapack Tutorial in Japanese</a>
-</ul>
-
-The sister project of CPPLapack:
-<ul>
-<li><a target="_blank" href="http://sourceforge.net/projects/cppscalapack/">
-CPPScaLapack</a></li>
-</ul>
-
-CPPLapack is based on and thanks to:
-<ul>
-<li><a target="_blank" href="http://netlib.caspur.it/blas/">
-BLAS</a></li>
-<li><a target="_blank" href="http://netlib.caspur.it/atlas/">
-ATLAS</a></li>
-<li><a target="_blank" href="http://www.netlib.org/lapack/">
-LAPACK</a></li>
-</ul>
-
-<ul>
-<li><a target="_blank" href="http://developer.intel.com/software/products/compilers/">
-Intel C++ Compiler (ICC)</a></li>
-<li><a target="_blank" href="http://developer.intel.com/software/products/mkl/index.htm">
-Intel Math Kernel Library (MKL)</a></li>
-<li><a target="_blank" href="http://h30097.www3.hp.com/linux/compaq_cxx/">
-HP(Compaq) C++ Compiler for Linux Alpha (CXX)</a></li>
-<li><a target="_blank" href="http://h18000.www1.hp.com/math/">
-HP(Compaq) Math Libraries (CPML, CXML)</a></li>
-<li><a target="_blank" href="http://www.mpack.com/">
-NEC MathKeisan Library (MPACK)</a></li>
-<li><a target="_blank" href="http://www.sgi.com/developers/devtools/apis/scsl.html">
-SGI Scientific Computing Software Library (SCSL)</a></li>
-<li><a target="_blank" href="http://www.amd.com/home/dev01">
-AMD Core Math Library (ACML)</a></li>
-</ul>
-<!---------------------------------------------------------------------------->
-<!---------------------------------------------------------------------------->
-<!---------------------------------------------------------------------------->
-<center><h3>Have fun.</h3></center>
-*/
diff --git a/cpplapack-r198/.svn/pristine/64/64de2b925bf0529c4ffc7b367b80f54100d21c01.svn-base b/cpplapack-r198/.svn/pristine/64/64de2b925bf0529c4ffc7b367b80f54100d21c01.svn-base
deleted file mode 100644
index ed51788..0000000
--- a/cpplapack-r198/.svn/pristine/64/64de2b925bf0529c4ffc7b367b80f54100d21c01.svn-base
+++ /dev/null
@@ -1,144 +0,0 @@
-//=============================================================================
-//! Complex Double-precision Hermitian Matrix Class [l-type (UPLO=l) Strage]
-/*! The imaginary part of every diagonal component is not referenced. */
-class zhematrix
-{
-public:
-  ///////////////////////////////////////////////
-  /////////////////// objects ///////////////////
-  ///////////////////////////////////////////////
-  CPPL_INT const& m; //!< matrix row size
-  CPPL_INT n; //!< matrix column size
-  comple* array; //!< 1D array to store matrix data
-  comple** darray; //!< array of pointers of column head addresses
-  
-  ///////////////////////////////////////////////
-  ///////////////// constructors ////////////////
-  ///////////////////////////////////////////////
-  inline zhematrix();
-  inline zhematrix(const zhematrix&);
-  inline zhematrix(const _zhematrix&);
-  inline zhematrix(const CPPL_INT&);
-  inline zhematrix(const char*);
-  inline ~zhematrix(); //destructor
-  
-  ///////////////////////////////////////////////
-  ////////////////// functions //////////////////
-  ///////////////////////////////////////////////
-  //////// cast ////////
-  inline _zgematrix to_zgematrix() const;
-  
-  //////// io ////////
-  inline zhecomplex operator()(const CPPL_INT&, const CPPL_INT&);
-  inline comple  operator()(const CPPL_INT&, const CPPL_INT&) const;
-  inline zhematrix& set(const CPPL_INT&, const CPPL_INT&, const comple&);
-  inline friend std::ostream& operator<<(std::ostream&, const zhematrix&);
-  inline void write(const char*) const;
-  inline void read(const char*);
-  
-  //////// misc ////////
-  inline void complete() const;
-  inline void clear();
-  inline zhematrix& zero();
-  inline zhematrix& identity();
-  inline void chsign();
-  inline void copy(const zhematrix&);
-  inline void shallow_copy(const _zhematrix&);
-  inline void resize(const CPPL_INT&);
-  inline _zrovector row(const CPPL_INT&) const;
-  inline _zcovector col(const CPPL_INT&) const;
-  inline _dsymatrix real() const;
-  inline _dgematrix imag() const;
-  inline _dsymatrix abs() const;
-  inline _dgematrix arg() const;
-  inline friend void swap(zhematrix&, zhematrix&);
-  inline friend _zhematrix _(zhematrix&);
-  
-  //////// calc ////////
-  inline friend _zhematrix t(const zhematrix&);
-  inline friend _zgematrix i(const zhematrix&);
-  inline friend _zhematrix conj(const zhematrix&);
-  inline friend _zhematrix conjt(const zhematrix&);
-  
-  //////// lapack ////////
-  inline CPPL_INT zhesv(zgematrix&);
-  inline CPPL_INT zhesv(zcovector&);
-  inline CPPL_INT zheev(std::vector<double>&, const bool&);
-  inline CPPL_INT zheev(std::vector<double>&, std::vector<zcovector>&);
-  inline CPPL_INT zheev(std::vector<double>&, std::vector<zrovector>&);
-  
-  ///////////////////////////////////////////////
-  ///////////// numerical operators /////////////
-  ///////////////////////////////////////////////
-  //////// = ////////
-  inline zhematrix& operator=(const  zhematrix&);
-  inline zhematrix& operator=(const _zhematrix&);
-  
-  //////// += ////////
-  inline zhematrix& operator+=(const  zhematrix&);
-  inline zhematrix& operator+=(const _zhematrix&);
-  
-  //////// -= ////////
-  inline zhematrix& operator-=(const  zhematrix&);
-  inline zhematrix& operator-=(const _zhematrix&);
-  
-  //////// *= ////////
-  inline zhematrix& operator*=(const  zhematrix&);
-  inline zhematrix& operator*=(const _zhematrix&);
-  inline zhematrix& operator*=(const     double&);
-  
-  //////// /= ////////
-  inline zhematrix& operator/=(const     double&);
-  
-  //////// unary ////////
-  inline friend const zhematrix& operator+(const zhematrix&);
-  inline friend _zhematrix operator-(const  zhematrix&);
-  
-  //////// + ////////
-  inline friend _zgematrix operator+(const  zhematrix&, const  zgematrix&);
-  inline friend _zgematrix operator+(const  zhematrix&, const _zgematrix&);
-  inline friend _zhematrix operator+(const  zhematrix&, const  zhematrix&);
-  inline friend _zhematrix operator+(const  zhematrix&, const _zhematrix&);
-  inline friend _zgematrix operator+(const  zhematrix&, const  zgbmatrix&);
-  inline friend _zgematrix operator+(const  zhematrix&, const _zgbmatrix&);
-  inline friend _zgematrix operator+(const  zhematrix&, const  zgsmatrix&);
-  inline friend _zgematrix operator+(const  zhematrix&, const _zgsmatrix&);
-  inline friend _zgematrix operator+(const  zhematrix&, const  zhsmatrix&);
-  inline friend _zgematrix operator+(const  zhematrix&, const _zhsmatrix&);
-
-  //////// - ////////
-  inline friend _zgematrix operator-(const  zhematrix&, const  zgematrix&);
-  inline friend _zgematrix operator-(const  zhematrix&, const _zgematrix&);
-  inline friend _zhematrix operator-(const  zhematrix&, const  zhematrix&);
-  inline friend _zhematrix operator-(const  zhematrix&, const _zhematrix&);
-  inline friend _zgematrix operator-(const  zhematrix&, const  zgbmatrix&);
-  inline friend _zgematrix operator-(const  zhematrix&, const _zgbmatrix&);
-  inline friend _zgematrix operator-(const  zhematrix&, const  zgsmatrix&);
-  inline friend _zgematrix operator-(const  zhematrix&, const _zgsmatrix&);
-  inline friend _zgematrix operator-(const  zhematrix&, const  zhsmatrix&);
-  inline friend _zgematrix operator-(const  zhematrix&, const _zhsmatrix&);
-  
-  //////// * ////////
-  inline friend _zcovector operator*(const  zhematrix&, const  zcovector&);
-  inline friend _zcovector operator*(const  zhematrix&, const _zcovector&);
-  inline friend _zgematrix operator*(const  zhematrix&, const  zgematrix&);
-  inline friend _zgematrix operator*(const  zhematrix&, const _zgematrix&);
-  inline friend _zgematrix operator*(const  zhematrix&, const  zhematrix&);
-  inline friend _zgematrix operator*(const  zhematrix&, const _zhematrix&);
-  inline friend _zgematrix operator*(const  zhematrix&, const  zgbmatrix&);
-  inline friend _zgematrix operator*(const  zhematrix&, const _zgbmatrix&);
-  inline friend _zgematrix operator*(const  zhematrix&, const  zgsmatrix&);
-  inline friend _zgematrix operator*(const  zhematrix&, const _zgsmatrix&);
-  inline friend _zgematrix operator*(const  zhematrix&, const  zhsmatrix&);
-  inline friend _zgematrix operator*(const  zhematrix&, const _zhsmatrix&);
-  inline friend _zhematrix operator*(const  zhematrix&, const     double&);
-  inline friend _zgematrix operator*(const  zhematrix&, const     comple&);
-  
-  //////// / ////////
-  inline friend _zhematrix operator/(const  zhematrix&, const     double&);
-  inline friend _zgematrix operator/(const  zhematrix&, const     comple&);
-  
-  //////// double, comple ////////
-  inline friend _zhematrix operator*(const     double&, const  zhematrix&);
-  inline friend _zgematrix operator*(const     comple&, const  zhematrix&);
-};
diff --git a/cpplapack-r198/.svn/pristine/64/64f0f69149f1fbfab6a0d92d867a9081b770297c.svn-base b/cpplapack-r198/.svn/pristine/64/64f0f69149f1fbfab6a0d92d867a9081b770297c.svn-base
deleted file mode 100644
index 552c36f..0000000
--- a/cpplapack-r198/.svn/pristine/64/64f0f69149f1fbfab6a0d92d867a9081b770297c.svn-base
+++ /dev/null
@@ -1,98 +0,0 @@
-//=============================================================================
-//! (DO NOT USE) Smart-temporary Complex Double-precision General Band Matrix Class
-class _zgbmatrix
-{
-public:
-  ///////////////////////////////////////////////
-  /////////////////// objects ///////////////////
-  ///////////////////////////////////////////////
-  mutable CPPL_INT m; //!< matrix row size
-  mutable CPPL_INT n; //!< matrix column size
-  mutable CPPL_INT kl; //!< lower band width 
-  mutable CPPL_INT ku; //!< upper band width 
-  mutable comple* array; //!< 1D array to store matrix data
-  mutable comple** darray; //!< array of pointers of column head addresses
-  
-  ///////////////////////////////////////////////
-  ///////////////// constructors ////////////////
-  ///////////////////////////////////////////////
-  inline _zgbmatrix();
-  inline _zgbmatrix(const _zgbmatrix&);
-  inline ~_zgbmatrix();//destructor
-  
-  ///////////////////////////////////////////////
-  ////////////////// functions //////////////////
-  ///////////////////////////////////////////////
-  //////// cast ////////
-  inline _zgematrix to_zgematrix() const;
-  
-  //////// io ////////
-  inline comple& operator()(const CPPL_INT&, const CPPL_INT&) const;
-  inline friend std::ostream& operator<<(std::ostream&, const _zgbmatrix&);
-  inline void write(const char*) const;
-  
-  //////// misc ////////
-  inline void nullify() const;
-  inline void destroy() const;
-  
-  //////// calc ////////
-  inline friend _zgbmatrix t(const _zgbmatrix&);
-  inline friend _zgematrix i(const _zgbmatrix&);
-  inline friend _zgbmatrix conj(const _zgbmatrix&);
-  inline friend _zgbmatrix conjt(const _zgbmatrix&);
-  
-  ///////////////////////////////////////////////
-  ///////////// numerical operators /////////////
-  ///////////////////////////////////////////////
-  //////// unary ////////
-  inline friend const _zgbmatrix& operator+(const _zgbmatrix&);
-  inline friend _zgbmatrix operator-(const _zgbmatrix&);
-  
-  //////// + ////////
-  inline friend _zgematrix operator+(const _zgbmatrix&, const  zgematrix&);
-  inline friend _zgematrix operator+(const _zgbmatrix&, const _zgematrix&);
-  inline friend _zgematrix operator+(const _zgbmatrix&, const  zhematrix&);
-  inline friend _zgematrix operator+(const _zgbmatrix&, const _zhematrix&);
-  inline friend _zgbmatrix operator+(const _zgbmatrix&, const  zgbmatrix&);
-  inline friend _zgbmatrix operator+(const _zgbmatrix&, const _zgbmatrix&);
-  inline friend _zgematrix operator+(const _zgbmatrix&, const  zgsmatrix&);
-  inline friend _zgematrix operator+(const _zgbmatrix&, const _zgsmatrix&);
-  inline friend _zgematrix operator+(const _zgbmatrix&, const  zhsmatrix&);
-  inline friend _zgematrix operator+(const _zgbmatrix&, const _zhsmatrix&);
-  
-  //////// - ////////
-  inline friend _zgematrix operator-(const _zgbmatrix&, const  zgematrix&);
-  inline friend _zgematrix operator-(const _zgbmatrix&, const _zgematrix&);
-  inline friend _zgematrix operator-(const _zgbmatrix&, const  zhematrix&);
-  inline friend _zgematrix operator-(const _zgbmatrix&, const _zhematrix&);
-  inline friend _zgbmatrix operator-(const _zgbmatrix&, const  zgbmatrix&);
-  inline friend _zgbmatrix operator-(const _zgbmatrix&, const _zgbmatrix&);
-  inline friend _zgematrix operator-(const _zgbmatrix&, const  zgsmatrix&);
-  inline friend _zgematrix operator-(const _zgbmatrix&, const _zgsmatrix&);
-  inline friend _zgematrix operator-(const _zgbmatrix&, const  zhsmatrix&);
-  inline friend _zgematrix operator-(const _zgbmatrix&, const _zhsmatrix&);
-  
-  //////// * ////////
-  inline friend _zcovector operator*(const _zgbmatrix&, const  zcovector&);
-  inline friend _zcovector operator*(const _zgbmatrix&, const _zcovector&);
-  inline friend _zgematrix operator*(const _zgbmatrix&, const  zgematrix&);
-  inline friend _zgematrix operator*(const _zgbmatrix&, const _zgematrix&);
-  inline friend _zgematrix operator*(const _zgbmatrix&, const  zhematrix&);
-  inline friend _zgematrix operator*(const _zgbmatrix&, const _zhematrix&);
-  inline friend _zgbmatrix operator*(const _zgbmatrix&, const  zgbmatrix&);
-  inline friend _zgbmatrix operator*(const _zgbmatrix&, const _zgbmatrix&);
-  inline friend _zgematrix operator*(const _zgbmatrix&, const  zgsmatrix&);
-  inline friend _zgematrix operator*(const _zgbmatrix&, const _zgsmatrix&);
-  inline friend _zgematrix operator*(const _zgbmatrix&, const  zhsmatrix&);
-  inline friend _zgematrix operator*(const _zgbmatrix&, const _zhsmatrix&);
-  inline friend _zgbmatrix operator*(const _zgbmatrix&, const     double&);
-  inline friend _zgbmatrix operator*(const _zgbmatrix&, const     comple&);
-  
-  //////// / ////////
-  inline friend _zgbmatrix operator/(const _zgbmatrix&, const     double&);
-  inline friend _zgbmatrix operator/(const _zgbmatrix&, const     comple&);
-  
-  //////// double, complex ////////
-  inline friend _zgbmatrix operator*(const     double&, const _zgbmatrix&);
-  inline friend _zgbmatrix operator*(const     comple&, const _zgbmatrix&);
-};
diff --git a/cpplapack-r198/.svn/pristine/65/65038a8945285ff7abe977d7c78fcaa039f62e4f.svn-base b/cpplapack-r198/.svn/pristine/65/65038a8945285ff7abe977d7c78fcaa039f62e4f.svn-base
deleted file mode 100644
index 439905d..0000000
--- a/cpplapack-r198/.svn/pristine/65/65038a8945285ff7abe977d7c78fcaa039f62e4f.svn-base
+++ /dev/null
@@ -1,40 +0,0 @@
-/*****************************************************************************/
-/*                                 main.cpp                                  */
-/*****************************************************************************/
-#undef CPPL_VERBOSE
-#undef CPPL_DEBUG
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  //int size(2500);
-  int size(1000);
-  CPPL::dgematrix A(size,size);
-  CPPL::dcovector y(size);
-  
-  srand(unsigned(time(NULL)));
-  for(int i=0; i<size; i++){
-    for(int j=0; j<size; j++){
-      A(i,j) =double(rand())/double(RAND_MAX);
-    }
-    y(i) =double(rand())/double(RAND_MAX);
-  }
-  
-  clock_t t0, t1;
-  
-  t0=clock();
-  A.dgesv(y);
-  t1=clock();
-  
-  cout << "dgesv took "<< (1000./CLOCKS_PER_SEC)*(t1-t0) << "[ms]." << endl;
-  
-  return 0;
-}
diff --git a/cpplapack-r198/.svn/pristine/65/6511bb7adda4370b2369a743d8e1174d21c6205c.svn-base b/cpplapack-r198/.svn/pristine/65/6511bb7adda4370b2369a743d8e1174d21c6205c.svn-base
deleted file mode 100644
index 234adf6..0000000
--- a/cpplapack-r198/.svn/pristine/65/6511bb7adda4370b2369a743d8e1174d21c6205c.svn-base
+++ /dev/null
@@ -1,25 +0,0 @@
-//=============================================================================
-/*! _zgematrix*_zcovector operator */
-inline _zcovector operator*(const _zgematrix& mat, const _zcovector& vec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(mat.n!=vec.l){
-    ERROR_REPORT;
-    std::cerr << "These matrix and vector can not make a product." << std::endl
-              << "Your input was (" << mat.m << "x" << mat.n << ") * (" << vec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zcovector newvec(mat.m);
-  char trans ='n';
-  comple alpha =comple(1.,0.);
-  CPPL_INT inc =1;
-  comple beta =comple(0.,0.);
-  
-  zgemv_( &trans, &mat.m, &mat.n, &alpha, mat.array, &mat.m, vec.array, &inc, &beta, newvec.array, &inc );
-  
-  mat.destroy();
-  vec.destroy();
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/65/6554a5286ba4a1fac3edd0964c41eb1570994ae8.svn-base b/cpplapack-r198/.svn/pristine/65/6554a5286ba4a1fac3edd0964c41eb1570994ae8.svn-base
deleted file mode 100644
index b495655..0000000
--- a/cpplapack-r198/.svn/pristine/65/6554a5286ba4a1fac3edd0964c41eb1570994ae8.svn-base
+++ /dev/null
@@ -1,44 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int M(4), N(4), KL(1), KU(2);
-  
-  CPPL::zgbmatrix A(M,N,KL,KU);
-  CPPL::zhematrix X(N);
-  
-  for(int i=0; i<A.m; i++){ for(int j=0; j<A.n; j++){
-    if(!( i-j>A.kl || j-i>A.ku )){
-      A(i,j) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-    }
-  }}
-  
-  for(int i=0; i<X.n; i++){
-    for(int j=0; j<i; j++){
-      X(i,j) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-    }
-    X(i,i) =complex<double>(rand()/(RAND_MAX/10), 0.0);
-  }
-  cout << "A =\n" << A << endl;
-  cout << "X =\n" << X << endl;
-  
-  cout << "A+X =\n" << A+X << endl;
-  cout << "A-X =\n" << A-X << endl;
-  cout << "A*X =\n" << A*X << endl;
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/65/6589e889dea35b826c74fee44be1c61d6b93e965.svn-base b/cpplapack-r198/.svn/pristine/65/6589e889dea35b826c74fee44be1c61d6b93e965.svn-base
deleted file mode 100644
index ba51401..0000000
--- a/cpplapack-r198/.svn/pristine/65/6589e889dea35b826c74fee44be1c61d6b93e965.svn-base
+++ /dev/null
@@ -1,21 +0,0 @@
-//=============================================================================
-/*! calculate vector product for 2D vector */
-inline comple operator/(const zrovec2& A, const zrovec2& B)
-{CPPL_VERBOSE_REPORT;
-  return A(0)*B(1)-A(1)*B(0);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! calculate vector product only for 3D vector */
-inline zrovec3 operator/(const zrovec3& A, const zrovec3& B)
-{CPPL_VERBOSE_REPORT;
-  zrovec3 C;
-  C(0) =A(1)*B(2) -A(2)*B(1);
-  C(1) =A(2)*B(0) -A(0)*B(2);
-  C(2) =A(0)*B(1) -A(1)*B(0);
-  return C;
-}
diff --git a/cpplapack-r198/.svn/pristine/65/65a90e8089847bc1de16738978d760aa861d0626.svn-base b/cpplapack-r198/.svn/pristine/65/65a90e8089847bc1de16738978d760aa861d0626.svn-base
deleted file mode 100644
index e3a057b..0000000
--- a/cpplapack-r198/.svn/pristine/65/65a90e8089847bc1de16738978d760aa861d0626.svn-base
+++ /dev/null
@@ -1,73 +0,0 @@
-//=============================================================================
-//! (DO NOT USE) Smart-temporary Complex Double-precision Column Vector Class
-class _zcovector
-{
-public:
-  ///////////////////////////////////////////////
-  /////////////////// objects ///////////////////
-  ///////////////////////////////////////////////
-  mutable CPPL_INT l; //!< vector size
-  mutable comple* array; //!< 1D array to store vector data
-  
-  ///////////////////////////////////////////////
-  ///////////////// constructors ////////////////
-  ///////////////////////////////////////////////
-  inline _zcovector();
-  inline _zcovector(const _zcovector&);
-  inline ~_zcovector(); //destructor
-  
-  ///////////////////////////////////////////////
-  ////////////////// functions //////////////////
-  ///////////////////////////////////////////////
-  //////// cast ////////
-  
-  //////// io ////////
-  inline comple& operator()(const CPPL_INT&) const;
-  inline friend std::ostream& operator<<(std::ostream&, const _zcovector&);
-  inline void write(const char*) const;
-  
-  //////// calc ////////
-  inline friend _zrovector t(const _zcovector&);
-  inline friend _zcovector conj(const _zcovector&);
-  inline friend _zrovector conjt(const _zcovector&);
-  inline friend double nrm2(const _zcovector&);
-  inline friend CPPL_INT idamax(const _zcovector&);
-  inline friend comple damax(const _zcovector&);
-  
-  //////// misc ////////
-  inline void nullify() const;
-  inline void destroy() const;
-  
-  ///////////////////////////////////////////////
-  ///////////// numerical operators /////////////
-  ///////////////////////////////////////////////
-  //////// unary ////////
-  inline friend const _zcovector& operator+(const _zcovector&);
-  inline friend _zcovector operator-(const _zcovector&);
-  
-  //////// + ////////
-  inline friend _zcovector operator+(const _zcovector&, const  zcovector&);
-  inline friend _zcovector operator+(const _zcovector&, const _zcovector&);
-  
-  //////// - ////////
-  inline friend _zcovector operator-(const _zcovector&, const  zcovector&);
-  inline friend _zcovector operator-(const _zcovector&, const _zcovector&);
-  
-  //////// * ////////
-  inline friend _zgematrix operator*(const _zcovector&, const  zrovector&);
-  inline friend _zgematrix operator*(const _zcovector&, const _zrovector&);
-  inline friend _zcovector operator*(const _zcovector&, const     double&);
-  inline friend _zcovector operator*(const _zcovector&, const     comple&);
-  
-  //////// / ////////
-  inline friend _zcovector operator/(const _zcovector&, const     double&);
-  inline friend _zcovector operator/(const _zcovector&, const     comple&);
-  
-  //////// % ////////
-  inline friend     comple operator%(const _zcovector&, const  zcovector&);
-  inline friend     comple operator%(const _zcovector&, const _zcovector&);
-  
-  //////// double, complex ////////
-  inline friend _zcovector operator*(const     double&, const _zcovector&);
-  inline friend _zcovector operator*(const     comple&, const _zcovector&);
-};
diff --git a/cpplapack-r198/.svn/pristine/65/65bd4142a279982a392df56a0d542a0807b5ae1f.svn-base b/cpplapack-r198/.svn/pristine/65/65bd4142a279982a392df56a0d542a0807b5ae1f.svn-base
deleted file mode 100644
index d0286c2..0000000
--- a/cpplapack-r198/.svn/pristine/65/65bd4142a279982a392df56a0d542a0807b5ae1f.svn-base
+++ /dev/null
@@ -1,46 +0,0 @@
-//=============================================================================
-/*! drovector*=double operator */
-inline drovector& drovector::operator*=(const double& d)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT inc =1;
-  dscal_(&l, &d, array, &inc);
-  return *this;
-}
-
-//=============================================================================
-/*! drovector/=double operator */
-inline drovector& drovector::operator/=(const double& d)
-{CPPL_VERBOSE_REPORT;
-  double dinv =1./d;
-  CPPL_INT inc =1;
-  dscal_(&l, &dinv, array, &inc);
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! drovector*double operator */
-inline _drovector operator*(const drovector& vec, const double& d)
-{CPPL_VERBOSE_REPORT;
-  drovector newvec(vec.l);
-  for(CPPL_INT i=0; i<vec.l; i++){
-    newvec.array[i] =vec.array[i]*d;
-  }
-  
-  return _(newvec);
-}
-
-//=============================================================================
-/*! drovector/double operator */
-inline _drovector operator/(const drovector& vec, const double& d)
-{CPPL_VERBOSE_REPORT;
-  drovector newvec(vec.l);
-  for(CPPL_INT i=0; i<vec.l; i++){
-    newvec.array[i] =vec.array[i]/d;
-  }
-  
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/66/6611da8b50aa2a71b5ec5a6252293e8474e900ea.svn-base b/cpplapack-r198/.svn/pristine/66/6611da8b50aa2a71b5ec5a6252293e8474e900ea.svn-base
deleted file mode 100644
index e938807..0000000
--- a/cpplapack-r198/.svn/pristine/66/6611da8b50aa2a71b5ec5a6252293e8474e900ea.svn-base
+++ /dev/null
@@ -1,102 +0,0 @@
-//=============================================================================
-void dsyev_check_value()
-{
-  cout << "############ check dsyev value ############" << endl;
-  
-  srand(unsigned(time(NULL)));
-  int N(3);
-  
-  //// make dsymatrix A  ////
-  CPPL::dsymatrix A(N);
-  for(int i=0; i<N; i++){ for(int j=0; j<N; j++){
-    A(i,j) =double( rand() /(RAND_MAX/10) );
-  }}
-  
-  //// make wr wi vr ////
-  vector<double> w;
-  
-  //// make A_original ////
-  CPPL::dsymatrix A_original(A);
-  
-  //// dsyev ////
-  A.dsyev(w);
-  //A.dsyev(w,1);
-  
-  //// print ////
-  cout << "A=\n" << A << endl;
-  cout << "A_original=\n" << A_original << endl;
-  for(int i=0; i<N; i++){
-    cout << "#### " << i << "th eigen ####" << endl;
-    cout << "w=" << w[i] <<endl;
-  }
-}
-
-//=============================================================================
-void dsyev_check_right()
-{
-  cout << "############ check dsyev right ############" << endl;
-  
-  srand(unsigned(time(NULL)));
-  int N(3);
-  
-  //// make dsymatrix A  ////
-  CPPL::dsymatrix A(N);
-  for(int i=0; i<A.n; i++){ for(int j=0; j<A.n; j++){
-    A(i,j) =double( rand() /(RAND_MAX/10) );
-  }}
-  
-  //// make wr wi vr ////
-  vector<double> w;
-  vector<CPPL::dcovector> v;
-  
-  //// make A_original ////
-  CPPL::dsymatrix A_original(A);
-  
-  //// dsyev ////
-  A.dsyev(w,v);
-  
-  //// print ////
-  cout << "A_original=\n" << A_original << endl;
-  for(int i=0; i<A.n; i++){
-    cout << "#### " << i << "th eigen ####" << endl;
-    cout << "w=" << w[i] <<endl;
-    cout << "v=\n" << v[i] <<endl;
-    cout << "[A]*{x} -lambda*{x} = (Should be zeros)\n"
-         << A_original*v[i] -w[i]*v[i] << endl;
-  }
-}
-
-//=============================================================================
-void dsyev_check_left()
-{
-  cout << "############ check dsyev left ############" << endl;
-  
-  srand(unsigned(time(NULL)));
-  int N(3);
-  
-  //// make dsymatrix A  ////
-  CPPL::dsymatrix A(N);
-  for(int i=0; i<A.n; i++){ for(int j=0; j<A.n; j++){
-    A(i,j) =double( rand() /(RAND_MAX/10) );
-  }}
-  
-  //// make wr wi vl ////
-  vector<double> w;
-  vector<CPPL::drovector> v;
-  
-  //// make A_original ////
-  CPPL::dsymatrix A_original(A);
-  
-  //// dsyev ////
-  A.dsyev(w, v);
-  
-  //// print ////
-  cout << "A_original=\n" << A_original << endl;
-  for(int i=0; i<A.n; i++){
-    cout << "#### " << i << "th eigen ####" << endl;
-    cout << "w = " << w[i] << endl;
-    cout << "v = " << v[i] << endl;
-    cout << "{x}*[A] -{x}*lambda = (Should be zeros)\n"
-         << v[i]*A_original -v[i]*w[i] << endl;
-  }
-}
diff --git a/cpplapack-r198/.svn/pristine/66/662dbd240b20758d02505aade9f1dbbfb300bbc8.svn-base b/cpplapack-r198/.svn/pristine/66/662dbd240b20758d02505aade9f1dbbfb300bbc8.svn-base
deleted file mode 100644
index d672de1..0000000
--- a/cpplapack-r198/.svn/pristine/66/662dbd240b20758d02505aade9f1dbbfb300bbc8.svn-base
+++ /dev/null
@@ -1,18 +0,0 @@
-//=============================================================================
-/*! _zrovector*comple operator */
-inline _zrovector operator*(const _zrovector& vec, const comple& d)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT inc =1;
-  zscal_(&vec.l, &d, vec.array, &inc);
-  return vec;
-}
-
-//=============================================================================
-/*! _zrovector/comple operator */
-inline _zrovector operator/(const _zrovector& vec, const comple& d)
-{CPPL_VERBOSE_REPORT;
-  comple dinv =1./d;
-  CPPL_INT inc =1;
-  zscal_(&vec.l, &dinv, vec.array, &inc);
-  return vec;
-}
diff --git a/cpplapack-r198/.svn/pristine/66/66864d6cde52080839a2bcde3f878e2f27948233.svn-base b/cpplapack-r198/.svn/pristine/66/66864d6cde52080839a2bcde3f878e2f27948233.svn-base
deleted file mode 100644
index f011845..0000000
--- a/cpplapack-r198/.svn/pristine/66/66864d6cde52080839a2bcde3f878e2f27948233.svn-base
+++ /dev/null
@@ -1,148 +0,0 @@
-//=============================================================================
-/*! dgematrix+=_dsymatrix operator */
-inline dgematrix& dgematrix::operator+=(const _dsymatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.n || m!=mat.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << m << "x" << n << ") += (" << mat.n << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<m; i++){
-    for(CPPL_INT j=0; j<n; j++){
-      operator()(i,j) += mat(i,j);
-    }
-  }
-  
-  mat.destroy();
-  return *this;
-}
-
-//=============================================================================
-/*! dgematrix-=_dsymatrix operator */
-inline dgematrix& dgematrix::operator-=(const _dsymatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.n || m!=mat.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a sutraction." << std::endl
-              << "Your input was (" << m << "x" << n << ") -= (" << mat.n << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<m;i++){
-    for(CPPL_INT j=0; j<n; j++){
-      operator()(i,j) -= mat(i,j);
-    }
-  }
-  
-  mat.destroy();
-  return *this;
-}
-
-//=============================================================================
-/*! dgematrix*=_dsymatrix operator */
-inline dgematrix& dgematrix::operator*=(const _dsymatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << m << "x" << n << ") *= (" << mat.n << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat( m, mat.n );
-  char side ='R';
-  char uplo ='l';
-  double alpha =1.;
-  double beta =0.;
-  
-  dsymm_( &side, &uplo, &mat.n, &n, &alpha, mat.array, &mat.n, array, &m, &beta, newmat.array, &newmat.m );
-  
-  swap(*this,newmat);
-  mat.destroy();
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! dgematrix+_dsymatrix operator */
-inline _dgematrix operator+(const dgematrix& matA, const _dsymatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  dgematrix newmat(matA);
-  for(CPPL_INT i=0; i<matA.m; i++){
-    for(CPPL_INT j=0; j<matA.n; j++){
-      newmat(i,j) += matB(i,j);
-    }
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! dgematrix-_dsymatrix operator */
-inline _dgematrix operator-(const dgematrix& matA, const _dsymatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") - (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  dgematrix newmat(matA);
-  for(CPPL_INT i=0; i<matA.m; i++){
-    for(CPPL_INT j=0; j<matA.n; j++){
-      newmat(i,j) -= matB(i,j);
-    }
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! dgematrix*_dsymatrix operator */
-inline _dgematrix operator*(const dgematrix& matA, const _dsymatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat( matA.m, matB.n );
-  char side ='R';
-  char uplo ='l';
-  double alpha =1.;
-  double beta =0.;
-  
-  dsymm_( &side, &uplo, &newmat.m, &newmat.n, &alpha, matB.array, &matB.n, matA.array, &matA.m, &beta, newmat.array, &newmat.m );
-  
-  matB.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/67/6711236ba6c81210e93af8b46b5e3d9f70176a27.svn-base b/cpplapack-r198/.svn/pristine/67/6711236ba6c81210e93af8b46b5e3d9f70176a27.svn-base
deleted file mode 100644
index 0149079..0000000
--- a/cpplapack-r198/.svn/pristine/67/6711236ba6c81210e93af8b46b5e3d9f70176a27.svn-base
+++ /dev/null
@@ -1,24 +0,0 @@
-//=============================================================================
-/*! dgematrix*_dcovector operator */
-inline _dcovector operator*(const dgematrix& mat, const _dcovector& vec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(mat.n!=vec.l){
-    ERROR_REPORT;
-    std::cerr << "These matrix and vector can not make a product." << std::endl
-              << "Your input was (" << mat.m << "x" << mat.n << ") * (" << vec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dcovector newvec(mat.m);
-  char trans ='n';
-  double alpha =1.;
-  CPPL_INT inc =1;
-  double beta =0.;
-  
-  dgemv_( &trans, &mat.m, &mat.n, &alpha, mat.array, &mat.m, vec.array, &inc, &beta, newvec.array, &inc );
-  
-  vec.destroy();
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/67/6736d65c2a3a849b9c8ca6d9d85aa0dc0072c417.svn-base b/cpplapack-r198/.svn/pristine/67/6736d65c2a3a849b9c8ca6d9d85aa0dc0072c417.svn-base
deleted file mode 100644
index 9dad887..0000000
--- a/cpplapack-r198/.svn/pristine/67/6736d65c2a3a849b9c8ca6d9d85aa0dc0072c417.svn-base
+++ /dev/null
@@ -1,33 +0,0 @@
-//=============================================================================
-/*! _dsymatrix constructor without arguments */
-inline _dsymatrix::_dsymatrix()
-  :m(n)
-{CPPL_VERBOSE_REPORT;
-  n =0;
-  array =NULL;
-  darray =NULL;
-}
-
-//=============================================================================
-/*! _dsymatrix copy constructor */
-inline _dsymatrix::_dsymatrix(const _dsymatrix& mat)
-  :m(n)
-{CPPL_VERBOSE_REPORT;
-  n =mat.n;
-  array =mat.array;
-  darray =mat.darray;
-  
-  mat.nullify();
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! dsymatrix destructor */
-inline _dsymatrix::~_dsymatrix()
-{CPPL_VERBOSE_REPORT;
-  delete[] array;
-  delete[] darray;
-}
diff --git a/cpplapack-r198/.svn/pristine/68/681def88fcbe00ae011674a6339458de9829befc.svn-base b/cpplapack-r198/.svn/pristine/68/681def88fcbe00ae011674a6339458de9829befc.svn-base
deleted file mode 100644
index 088ced7..0000000
--- a/cpplapack-r198/.svn/pristine/68/681def88fcbe00ae011674a6339458de9829befc.svn-base
+++ /dev/null
@@ -1,31 +0,0 @@
-//=============================================================================
-/*! _dgematrix*dssmatrix operator */
-inline _dgematrix operator*(const _dgematrix& matA, const dssmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat(matA.m, matB.n);
-  newmat.zero();
-  
-  const std::vector<dcomponent>::const_iterator matB_data_end =matB.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matB.data.begin(); it!=matB_data_end; it++){
-    for(CPPL_INT i=0; i<matA.m; i++){
-      newmat(i,it->j) +=matA(i,it->i)*it->v;
-    }
-    if(it->i!=it->j){
-      for(CPPL_INT i=0; i<matA.m; i++){
-        newmat(i,it->i) +=matA(i,it->j)*it->v;
-      }
-    }
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/68/6840681386a8409b4e024ce7e2189da262d97e61.svn-base b/cpplapack-r198/.svn/pristine/68/6840681386a8409b4e024ce7e2189da262d97e61.svn-base
deleted file mode 100644
index a4d632a..0000000
--- a/cpplapack-r198/.svn/pristine/68/6840681386a8409b4e024ce7e2189da262d97e61.svn-base
+++ /dev/null
@@ -1,52 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  //int M(5), N(4), KL(2), KU(1);
-  int M(10), N(10), KL(1), KU(1);
-  
-  CPPL::dgbmatrix A(M,N,KL,KU);
-  for(int i=0; i<A.m; i++){ for(int j=0; j<A.n; j++){
-    //if(!( i-j>A.kl || j-i>A.ku )){ A(i,j) =double( rand() /(RAND_MAX/10) ); }
-    if(!( i-j>A.kl || j-i>A.ku )){ A(i,j) =10.*double(i)+double(j); }
-  }}
-  
-  cout << "A =\n" << A << endl;
-  for(int i=0; i<A.m; i++){ for(int j=0; j<A.n; j++){
-    if(!( i-j>A.kl || j-i>A.ku )){
-      cout << "A(" << i << "," << j << ") =" << A(i,j) << endl;
-    }
-  }}
-  
-  
-  
-  const CPPL::dgbmatrix B(A);
-  cout << "B =\n" << B << endl;
-  
-  //B*=10.; //compile error
-  //B(0,0)=0.; //compile error
-  
-  //cout << "A+B=\n" << A+B << endl;
-  
-  //// write/read ////
-  B.write( "tmp.txt" );
-  CPPL::dgbmatrix C;
-  C.read( "tmp.txt" );
-  cout << "C-B =\n" << C-B << "<-Should be zero." << endl;
-
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/68/68453b524eea13e059b4091f1c3ca098b831f558.svn-base b/cpplapack-r198/.svn/pristine/68/68453b524eea13e059b4091f1c3ca098b831f558.svn-base
deleted file mode 100644
index aa3d902..0000000
--- a/cpplapack-r198/.svn/pristine/68/68453b524eea13e059b4091f1c3ca098b831f558.svn-base
+++ /dev/null
@@ -1,71 +0,0 @@
-//=============================================================================
-/*! _zgematrix+_zhematrix operator */
-inline _zgematrix operator+(const _zgematrix& matA, const _zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<matB.n; i++){
-    for(CPPL_INT j=0; j<matB.n; j++){
-      matA(i,j) += matB(i,j);
-    }
-  }
-  
-  matB.destroy();
-  return matA;
-}
-
-//=============================================================================
-/*! _zgematrix-_zhematrix operator */
-inline _zgematrix operator-(const _zgematrix& matA, const _zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<matB.n; i++){
-    for(CPPL_INT j=0; j<matB.n; j++){
-      matA(i,j) -= matB(i,j);
-    }
-  }
-  
-  matB.destroy();
-  return matA;
-}
-
-//=============================================================================
-/*! _zgematrix*_zhematrix operator */
-inline _zgematrix operator*(const _zgematrix& matA, const _zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat( matA.m, matB.n );
-  char side ='R';
-  char uplo ='l';
-  comple alpha =comple(1.,0.);
-  comple beta =comple(0.,0.);
-
-  zhemm_( &side, &uplo, &newmat.m, &newmat.n, &alpha, matB.array, &matB.n, matA.array, &matA.m, &beta, newmat.array, &newmat.m );
-  
-  matA.destroy();
-  matB.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/68/68a5065ba845df562bf0a7d11df9f81c61e63b78.svn-base b/cpplapack-r198/.svn/pristine/68/68a5065ba845df562bf0a7d11df9f81c61e63b78.svn-base
deleted file mode 100644
index 33ae343..0000000
--- a/cpplapack-r198/.svn/pristine/68/68a5065ba845df562bf0a7d11df9f81c61e63b78.svn-base
+++ /dev/null
@@ -1,134 +0,0 @@
-//=============================================================================
-/*! dssmatrix=_dssmatrix operator */
-inline dssmatrix& dssmatrix::operator=(const _dssmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  shallow_copy(mat);
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! dssmatrix+=_dssmatrix operator */
-inline dssmatrix& dssmatrix::operator+=(const _dssmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << n << "x" << n << ") += (" << mat.n << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  const std::vector<dcomponent>::const_iterator mat_data_end =mat.data.end();
-  for(std::vector<dcomponent>::const_iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    (*this)(it->i,it->j) +=it->v;
-  }
-  
-  mat.destroy();
-  return *this;
-}
-
-//=============================================================================
-/*! dssmatrix-=_dssmatrix operator */
-inline dssmatrix& dssmatrix::operator-=(const _dssmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a sutraction." << std::endl
-              << "Your input was (" << n << "x" << n << ") -= (" << mat.n << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  const std::vector<dcomponent>::const_iterator mat_data_end =mat.data.end();
-  for(std::vector<dcomponent>::const_iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    (*this)(it->i,it->j) -=it->v;
-  }
-  
-  mat.destroy();
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! dssmatrix+_dssmatrix operator */
-inline _dssmatrix operator+(const dssmatrix& matA, const _dssmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") + (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  dssmatrix newmat(matB);
-  
-  const std::vector<dcomponent>::const_iterator matA_data_end =matA.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matA.data.begin(); it!=matA_data_end; it++){
-    newmat(it->i,it->j) +=it->v;
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! dssmatrix-_dssmatrix operator */
-inline _dssmatrix operator-(const dssmatrix& matA, const _dssmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") - (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dssmatrix newmat(matB);
-  
-  const std::vector<dcomponent>::const_iterator matA_data_end =matA.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matA.data.begin(); it!=matA_data_end; it++){
-    newmat(it->i,it->j) -=it->v;
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! dssmatrix*_dssmatrix operator */
-/*
-inline _dgsmatrix operator*(const dssmatrix& matA, const _dssmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") * (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  dssmatrix newmat( matA.n, 0 );
-  
-  for(CPPL_INT c=0; c<matA.vol; c++){
-    CPPL_INT k(matA.jndx[c]);
-    std::vector< std::pair<CPPL_INT,CPPL_INT> >::iterator p;
-    for(p=matB.line[k].begin(); p!=matB.line[k].end(); p++){
-      newmat(matA.indx[c],p->first) +=matA.array[c]*matB.array[p->second];
-    }
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
-*/
diff --git a/cpplapack-r198/.svn/pristine/68/68b45158ff18674ff0c7254b7dba99eb9676b32a.svn-base b/cpplapack-r198/.svn/pristine/68/68b45158ff18674ff0c7254b7dba99eb9676b32a.svn-base
deleted file mode 100644
index b5648af..0000000
--- a/cpplapack-r198/.svn/pristine/68/68b45158ff18674ff0c7254b7dba99eb9676b32a.svn-base
+++ /dev/null
@@ -1,97 +0,0 @@
-//=============================================================================
-//! (DO NOT USE) Smart-temporary Complex Double-precision General Dence Matrix Class
-class _zgematrix
-{
-public:
-  ///////////////////////////////////////////////
-  /////////////////// objects ///////////////////
-  ///////////////////////////////////////////////
-  mutable CPPL_INT m; //!< matrix row size
-  mutable CPPL_INT n; //!< matrix column size
-  mutable comple* array; //!< 1D array to store matrix data
-  mutable comple** darray; //!< array of pointers of column head addresses
-
-  ///////////////////////////////////////////////
-  ///////////////// constructors ////////////////
-  ///////////////////////////////////////////////
-  inline _zgematrix();
-  inline _zgematrix(const _zgematrix&);
-  inline ~_zgematrix(); //destructor
-  
-  ///////////////////////////////////////////////
-  ////////////////// functions //////////////////
-  ///////////////////////////////////////////////
-  //////// cast ////////
-  
-  //////// io ////////
-  inline comple& operator()(const CPPL_INT&, const CPPL_INT&) const;
-  inline friend std::ostream& operator<<(std::ostream&, const zgematrix&);
-  inline void write(const char*) const;
-  
-  //////// misc ////////
-  inline void nullify() const;
-  inline void destroy() const;
-  
-  //////// calc ////////
-  inline friend _zgematrix t(const _zgematrix&);
-  inline friend _zgematrix i(const _zgematrix&);
-  inline friend _zgematrix conj(const _zgematrix&);
-  inline friend _zgematrix conjt(const _zgematrix&);
-  inline friend void idamax(CPPL_INT&, CPPL_INT&, const _zgematrix&);
-  inline friend comple damax(const _zgematrix&);
-  
-  ///////////////////////////////////////////////
-  ///////////// numerical operators /////////////
-  ///////////////////////////////////////////////
-  //////// unary ////////
-  inline friend const _zgematrix& operator+(const _zgematrix&);
-  inline friend _zgematrix operator-(const _zgematrix&);
-  
-  //////// + ////////
-  inline friend _zgematrix operator+(const _zgematrix&, const  zgematrix&);
-  inline friend _zgematrix operator+(const _zgematrix&, const _zgematrix&);
-  inline friend _zgematrix operator+(const _zgematrix&, const  zhematrix&);
-  inline friend _zgematrix operator+(const _zgematrix&, const _zhematrix&);
-  inline friend _zgematrix operator+(const _zgematrix&, const  zgbmatrix&);
-  inline friend _zgematrix operator+(const _zgematrix&, const _zgbmatrix&);
-  inline friend _zgematrix operator+(const _zgematrix&, const  zgsmatrix&);
-  inline friend _zgematrix operator+(const _zgematrix&, const _zgsmatrix&);
-  inline friend _zgematrix operator+(const _zgematrix&, const  zhsmatrix&);
-  inline friend _zgematrix operator+(const _zgematrix&, const _zhsmatrix&);
-  
-  //////// - ////////
-  inline friend _zgematrix operator-(const _zgematrix&, const  zgematrix&);
-  inline friend _zgematrix operator-(const _zgematrix&, const _zgematrix&);
-  inline friend _zgematrix operator-(const _zgematrix&, const  zhematrix&);
-  inline friend _zgematrix operator-(const _zgematrix&, const _zhematrix&);
-  inline friend _zgematrix operator-(const _zgematrix&, const  zgbmatrix&);
-  inline friend _zgematrix operator-(const _zgematrix&, const _zgbmatrix&);
-  inline friend _zgematrix operator-(const _zgematrix&, const  zgsmatrix&);
-  inline friend _zgematrix operator-(const _zgematrix&, const _zgsmatrix&);
-  inline friend _zgematrix operator-(const _zgematrix&, const  zhsmatrix&);
-  inline friend _zgematrix operator-(const _zgematrix&, const _zhsmatrix&);
-  
-  //////// * ////////
-  inline friend _zcovector operator*(const _zgematrix&, const  zcovector&);
-  inline friend _zcovector operator*(const _zgematrix&, const _zcovector&);
-  inline friend _zgematrix operator*(const _zgematrix&, const  zgematrix&);
-  inline friend _zgematrix operator*(const _zgematrix&, const _zgematrix&);
-  inline friend _zgematrix operator*(const _zgematrix&, const  zhematrix&);
-  inline friend _zgematrix operator*(const _zgematrix&, const _zhematrix&);
-  inline friend _zgematrix operator*(const _zgematrix&, const  zgbmatrix&);
-  inline friend _zgematrix operator*(const _zgematrix&, const _zgbmatrix&);
-  inline friend _zgematrix operator*(const _zgematrix&, const  zgsmatrix&);
-  inline friend _zgematrix operator*(const _zgematrix&, const _zgsmatrix&);
-  inline friend _zgematrix operator*(const _zgematrix&, const  zhsmatrix&);
-  inline friend _zgematrix operator*(const _zgematrix&, const _zhsmatrix&);
-  inline friend _zgematrix operator*(const _zgematrix&, const     double&);
-  inline friend _zgematrix operator*(const _zgematrix&, const     comple&);
-  
-  //////// / ////////
-  inline friend _zgematrix operator/(const _zgematrix&, const     double&);
-  inline friend _zgematrix operator/(const _zgematrix&, const     comple&);
-  
-  //////// double, complex ////////
-  inline friend _zgematrix operator*(const     double&, const _zgematrix&);
-  inline friend _zgematrix operator*(const     comple&, const _zgematrix&);
-};
diff --git a/cpplapack-r198/.svn/pristine/68/68e3db5b6f71045d5a6fab03ade554fcbf7da634.svn-base b/cpplapack-r198/.svn/pristine/68/68e3db5b6f71045d5a6fab03ade554fcbf7da634.svn-base
deleted file mode 100644
index 64e00f6..0000000
--- a/cpplapack-r198/.svn/pristine/68/68e3db5b6f71045d5a6fab03ade554fcbf7da634.svn-base
+++ /dev/null
@@ -1,77 +0,0 @@
-//=============================================================================
-/*! zhsmatrix+_zgematrix operator */
-/*
-inline _zgematrix operator+(const zhsmatrix& matA, const _zgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT c=0; c<matA.vol; c++){
-    matB(matA.indx[c],matA.jndx[c]) += matA.array[c];
-    matB(matA.jndx[c],matA.indx[c]) += matA.array[c];
-  }
-  
-  return matB;
-}
-*/
-
-//=============================================================================
-/*! zhsmatrix-_zgematrix operator */
-/*
-inline _zgematrix operator-(const zhsmatrix& matA, const _zgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") - (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //// change sign ////
-  for(CPPL_INT i=0; i<matB.m*matB.n; i++){
-    matB.array[i]=-matB.array[i];
-  }
-  
-  //// add ////
-  for(CPPL_INT c=0; c<matA.vol; c++){
-    matB(matA.indx[c],matA.jndx[c]) += matA.array[c];
-  }
-  
-  return matB;
-}
-*/
-//=============================================================================
-/*! zhsmatrix*_zgematrix operator */
-/*
-inline _zgematrix operator*(const zhsmatrix& matA, const _zgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(matA.m, matB.n);
-  newmat.zero();
-  
-  for(CPPL_INT c=0; c<matA.vol; c++){
-    for(CPPL_INT j=0; j<matB.n; j++){
-      newmat(matA.indx[c],j) += matA.array[c]*matB(matA.jndx[c],j);
-    }
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
-*/
diff --git a/cpplapack-r198/.svn/pristine/69/695cbe977bcc3b0306502eb067bdf81c8af687da.svn-base b/cpplapack-r198/.svn/pristine/69/695cbe977bcc3b0306502eb067bdf81c8af687da.svn-base
deleted file mode 100644
index bee7bf8..0000000
--- a/cpplapack-r198/.svn/pristine/69/695cbe977bcc3b0306502eb067bdf81c8af687da.svn-base
+++ /dev/null
@@ -1,163 +0,0 @@
-//=============================================================================
-/*! zgsmatrix=_zgsmatrix operator */
-inline zgsmatrix& zgsmatrix::operator=(const _zgsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  shallow_copy(mat);
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zgsmatrix+=_zgsmatrix operator */
-inline zgsmatrix& zgsmatrix::operator+=(const _zgsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.n || m!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << m << "x" << n << ") += (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  const std::vector<zcomponent>::const_iterator mat_data_end =mat.data.end();
-  for(std::vector<zcomponent>::const_iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    (*this)(it->i,it->j) += it->v;
-  }
-  
-  mat.destroy();
-  return *this;
-}
-
-//=============================================================================
-/*! zgsmatrix-=_zgsmatrix operator */
-inline zgsmatrix& zgsmatrix::operator-=(const _zgsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.n || m!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a sutraction." << std::endl
-              << "Your input was (" << m << "x" << n << ") -= (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  const std::vector<zcomponent>::const_iterator mat_data_end =mat.data.end();
-  for(std::vector<zcomponent>::const_iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    (*this)(it->i,it->j) -= it->v;
-  }
-  
-  mat.destroy();
-  return *this;
-}
-
-//=============================================================================
-/*! zgsmatrix*=_zgsmatrix operator */
-inline zgsmatrix& zgsmatrix::operator*=(const _zgsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << m << "x" << n << ") *= (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgsmatrix newmat( m, mat.n, 0 );
-  
-  const std::vector<zcomponent>::const_iterator data_end =data.end();
-  for(std::vector<zcomponent>::const_iterator it=data.begin(); it!=data_end; it++){
-    CPPL_INT k =it->j;
-    const std::vector<CPPL_INT>::iterator mat_rows_k_end =mat.rows[k].end();
-    for(std::vector<CPPL_INT>::iterator p=mat.rows[k].begin(); p!=mat_rows_k_end; p++){
-      newmat(it->i,mat.data[*p].j) += it->v*mat.data[*p].v;
-    }
-  }
-  
-  swap(*this,newmat);
-  mat.destroy();
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zgsmatrix+_zgsmatrix operator */
-inline _zgsmatrix operator+(const zgsmatrix& matA, const _zgsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  zgsmatrix newmat(matB);
-  
-  const std::vector<zcomponent>::const_iterator matA_data_end =matA.data.end();
-  for(std::vector<zcomponent>::const_iterator it=matA.data.begin(); it!=matA_data_end; it++){
-    newmat(it->i,it->j) += it->v;
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! zgsmatrix-_zgsmatrix operator */
-inline _zgsmatrix operator-(const zgsmatrix& matA, const _zgsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") - (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgsmatrix newmat(matB);
-  newmat.chsign();
-  
-  const std::vector<zcomponent>::const_iterator matA_data_end =matA.data.end();
-  for(std::vector<zcomponent>::const_iterator it=matA.data.begin(); it!=matA_data_end; it++){
-    newmat(it->i,it->j) += it->v;
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! zgsmatrix*_zgsmatrix operator */
-inline _zgsmatrix operator*(const zgsmatrix& matA, const _zgsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  zgsmatrix newmat(matA.m, matB.n);
-  
-  const std::vector<zcomponent>::const_iterator matA_data_end =matA.data.end();
-  for(std::vector<zcomponent>::const_iterator it=matA.data.begin(); it!=matA_data_end; it++){
-    CPPL_INT k =it->j;
-    const std::vector<CPPL_INT>::iterator matB_rows_k_end =matB.rows[k].end();
-    for(std::vector<CPPL_INT>::iterator p=matB.rows[k].begin(); p!=matB_rows_k_end; p++){
-      newmat(it->i,matB.data[*p].j) += it->v*matB.data[*p].v;
-    }
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/69/696a2b134d99a65b08255c87ae914f645c11497f.svn-base b/cpplapack-r198/.svn/pristine/69/696a2b134d99a65b08255c87ae914f645c11497f.svn-base
deleted file mode 100644
index ee1266b..0000000
--- a/cpplapack-r198/.svn/pristine/69/696a2b134d99a65b08255c87ae914f645c11497f.svn-base
+++ /dev/null
@@ -1,26 +0,0 @@
-//=============================================================================
-/*! zhsmatrix*zcovector operator */
-inline _zcovector operator*(const zhsmatrix& mat, const zcovector& vec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(mat.n!=vec.l){
-    ERROR_REPORT;
-    std::cerr << "These matrix and vector can not make a product." << std::endl
-              << "Your input was (" << mat.n << "x" << mat.n << ") * (" << vec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zcovector newvec(mat.n);
-  newvec.zero();
-  
-  const std::vector<zcomponent>::const_iterator mat_data_end =mat.data.end();
-  for(std::vector<zcomponent>::const_iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    newvec(it->i) +=it->v*vec(it->j);
-    if(it->i!=it->j){
-      newvec(it->j) +=std::conj(it->v)*vec(it->i);
-    }
-  }
-  
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/69/698a9c061703f52e227f3bdf7a5e541d36fb9939.svn-base b/cpplapack-r198/.svn/pristine/69/698a9c061703f52e227f3bdf7a5e541d36fb9939.svn-base
deleted file mode 100644
index fd49842..0000000
--- a/cpplapack-r198/.svn/pristine/69/698a9c061703f52e227f3bdf7a5e541d36fb9939.svn-base
+++ /dev/null
@@ -1,8 +0,0 @@
-//=============================================================================
-/*! double*_zrovector operator */
-inline _zrovector operator*(const double& d, const _zrovector& vec)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT inc =1;
-  zdscal_(&vec.l, &d, vec.array, &inc);
-  return vec;
-}
diff --git a/cpplapack-r198/.svn/pristine/69/698aa3ee2bda970e065f5909a4b5dbe857afdf9c.svn-base b/cpplapack-r198/.svn/pristine/69/698aa3ee2bda970e065f5909a4b5dbe857afdf9c.svn-base
deleted file mode 100644
index bae8eec..0000000
--- a/cpplapack-r198/.svn/pristine/69/698aa3ee2bda970e065f5909a4b5dbe857afdf9c.svn-base
+++ /dev/null
@@ -1,86 +0,0 @@
-//=============================================================================
-/*! zhematrix+_zgbmatrix operator */
-inline _zgematrix operator+(const zhematrix& matA, const _zgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(matA.n, matA.n);
-  
-  for(CPPL_INT i=0; i<matB.m; i++){
-    for(CPPL_INT j=i; j<matA.n; j++){
-      newmat(i,j) =matA(i,j);
-    }
-    const CPPL_INT jmax =std::min(matB.n,i+matB.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matB.kl); j<jmax; j++){
-      newmat(i,j)+=matB(i,j);
-    }
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! zhematrix-_zgbmatrix operator */
-inline _zgematrix operator-(const zhematrix& matA, const _zgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(matA.n, matA.n);
-  
-  for(CPPL_INT i=0; i<matB.m; i++){
-    for(CPPL_INT j=i; j<matA.n; j++){
-      newmat(i,j) =matA(i,j);
-    }
-    const CPPL_INT jmax =std::min(matB.n,i+matB.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matB.kl); j<jmax; j++){
-      newmat(i,j)-=matB(i,j);
-    }
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! zhematrix*_zgbmatrix operator */
-inline _zgematrix operator*(const zhematrix& matA, const _zgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat( matA.n, matB.n );
-  newmat.zero();
-  
-  for(CPPL_INT i=0; i<newmat.m; i++){
-    for(CPPL_INT j=0; j<newmat.n; j++){
-      const CPPL_INT kmax =std::min(matB.m,j+matB.kl+1);
-      for(CPPL_INT k=std::max(CPPL_INT(0),j-matB.ku); k<kmax; k++){
-        newmat(i,j)+=matA(i,k)*matB(k,j);
-      }
-    }
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/6a/6a282cbdb39a717da205e134be6627cdcac83bf5.svn-base b/cpplapack-r198/.svn/pristine/6a/6a282cbdb39a717da205e134be6627cdcac83bf5.svn-base
deleted file mode 100644
index 091de3f..0000000
--- a/cpplapack-r198/.svn/pristine/6a/6a282cbdb39a717da205e134be6627cdcac83bf5.svn-base
+++ /dev/null
@@ -1,134 +0,0 @@
-//=============================================================================
-/*! zhsmatrix=_zhsmatrix operator */
-inline zhsmatrix& zhsmatrix::operator=(const _zhsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  shallow_copy(mat);
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zhsmatrix+=_zhsmatrix operator */
-inline zhsmatrix& zhsmatrix::operator+=(const _zhsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << n << "x" << n << ") += (" << mat.n << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  const std::vector<zcomponent>::const_iterator mat_data_end =mat.data.end();
-  for(std::vector<zcomponent>::const_iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    (*this)(it->i,it->j) +=it->v;
-  }
-  
-  mat.destroy();
-  return *this;
-}
-
-//=============================================================================
-/*! zhsmatrix-=_zhsmatrix operator */
-inline zhsmatrix& zhsmatrix::operator-=(const _zhsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a sutraction." << std::endl
-              << "Your input was (" << n << "x" << n << ") -= (" << mat.n << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  const std::vector<zcomponent>::const_iterator mat_data_end =mat.data.end();
-  for(std::vector<zcomponent>::const_iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    (*this)(it->i,it->j) -=it->v;
-  }
-  
-  mat.destroy();
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zhsmatrix+_zhsmatrix operator */
-inline _zhsmatrix operator+(const zhsmatrix& matA, const _zhsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") + (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  zhsmatrix newmat(matB);
-  
-  const std::vector<zcomponent>::const_iterator matA_data_end =matA.data.end();
-  for(std::vector<zcomponent>::const_iterator it=matA.data.begin(); it!=matA_data_end; it++){
-    newmat(it->i,it->j) +=it->v;
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! zhsmatrix-_zhsmatrix operator */
-inline _zhsmatrix operator-(const zhsmatrix& matA, const _zhsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") - (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zhsmatrix newmat(-matB);
-  
-  const std::vector<zcomponent>::const_iterator matA_data_end =matA.data.end();
-  for(std::vector<zcomponent>::const_iterator it=matA.data.begin(); it!=matA_data_end; it++){
-    newmat(it->i,it->j) +=it->v;
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! zhsmatrix*_zhsmatrix operator */
-/*
-inline _zgsmatrix operator*(const zhsmatrix& matA, const _zhsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") * (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  zhsmatrix newmat( matA.n, 0 );
-  
-  for(CPPL_INT c=0; c<matA.vol; c++){
-    CPPL_INT k(matA.jndx[c]);
-    std::vector< std::pair<CPPL_INT,CPPL_INT> >::iterator p;
-    for(p=matB.line[k].begin(); p!=matB.line[k].end(); p++){
-      newmat(matA.indx[c],p->first) +=matA.array[c]*matB.array[p->second];
-    }
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
-*/
diff --git a/cpplapack-r198/.svn/pristine/6a/6a544bfd1f115c158e8f0bede237acda58fbbac0.svn-base b/cpplapack-r198/.svn/pristine/6a/6a544bfd1f115c158e8f0bede237acda58fbbac0.svn-base
deleted file mode 100644
index 0fd868f..0000000
--- a/cpplapack-r198/.svn/pristine/6a/6a544bfd1f115c158e8f0bede237acda58fbbac0.svn-base
+++ /dev/null
@@ -1,82 +0,0 @@
-//=============================================================================
-/*! _zgsmatrix+_zgbmatrix operator */
-inline _zgematrix operator+(const _zgsmatrix& matA, const _zgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat( matA.to_zgematrix() );
-  
-  for(CPPL_INT i=0; i<matB.m; i++){
-    const CPPL_INT jmax =std::min(matB.n,i+matB.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matB.kl); j<jmax; j++){
-      newmat(i,j) +=matB(i,j);
-    }
-  }
-  
-  matA.destroy();
-  matB.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _zgsmatrix-_zgbmatrix operator */
-inline _zgematrix operator-(const _zgsmatrix& matA, const _zgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat( matA.to_zgematrix() );
-  
-  for(CPPL_INT i=0; i<matB.m; i++){
-    const CPPL_INT jmax =std::min(matB.n,i+matB.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matB.kl); j<jmax; j++){
-      newmat(i,j) -=matB(i,j);
-    }
-  }
-  
-  matA.destroy();
-  matB.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _zgsmatrix*_zgbmatrix operator */
-inline _zgematrix operator*(const _zgsmatrix& matA, const _zgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat( matA.m, matB.n );
-  newmat.zero();
-  
-  const std::vector<zcomponent>::const_iterator matA_data_end =matA.data.end();
-  for(std::vector<zcomponent>::const_iterator it=matA.data.begin(); it!=matA_data_end; it++){
-    const CPPL_INT jmax =std::min(matB.n,it->j+matB.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),it->j-matB.kl); j<jmax; j++){
-      newmat(it->i,j) += it->v*matB(it->j,j);
-    }
-  }
-  
-  matA.destroy();
-  matB.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/6a/6a69af273eb6a134d6c6cb54c5eb8f982b703afa.svn-base b/cpplapack-r198/.svn/pristine/6a/6a69af273eb6a134d6c6cb54c5eb8f982b703afa.svn-base
deleted file mode 100644
index ec99f17..0000000
--- a/cpplapack-r198/.svn/pristine/6a/6a69af273eb6a134d6c6cb54c5eb8f982b703afa.svn-base
+++ /dev/null
@@ -1,4 +0,0 @@
-#!/bin/sh
-rm -f std err doxygen.log
-rm -rf html
-doxygen > std
diff --git a/cpplapack-r198/.svn/pristine/6a/6ac2823eb3b68cb47182c9d4e0a1d79179626f0f.svn-base b/cpplapack-r198/.svn/pristine/6a/6ac2823eb3b68cb47182c9d4e0a1d79179626f0f.svn-base
deleted file mode 100644
index 6cf00ad..0000000
--- a/cpplapack-r198/.svn/pristine/6a/6ac2823eb3b68cb47182c9d4e0a1d79179626f0f.svn-base
+++ /dev/null
@@ -1,336 +0,0 @@
-<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
-<html lang="ja">
-<head>
-   <link href="../html/doxygen.css" rel="stylesheet" type="text/css">
-   <meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
-   <meta name="Author" content="Yuki ONISHI">
-   <title>CPPLapackドキュメント日本語版</title>
-</head>
-<body bgcolor="silver" text="black" link="blue" alink="red" vlink="purple">
-
-<!----------------------------------------------------------------------------->
-<!----------------------------------------------------------------------------->
-<!----------------------------------------------------------------------------->
-<h1>CPPLapackドキュメント日本語版</h1>
-
-<table bgcolor="silver" width="100%"><td align="center">
-CPPLapackの正式なドキュメント(英語)は<a target="_blank" href="http://cpplapack.sourceforge.net/">こちら</a>で御覧下さい.
-</td></table>
-
-<br>
-
-<!----------------------------------------------------------------------------->
-<!----------------------------------------------------------------------------->
-<!----------------------------------------------------------------------------->
-<hr><hr>
-<h2>最新情報</h2>
-<p>
-[2015年05月11日]
-"cpplapack-2015.05.11"をリリースしました.
-このリリースはsvnの使用を好まないユーザに対するものです.
-tar.gz版,rpm版,deb版(alienで作成)も用意しました.
-今回のリリースは幾つかの大幅な変更がなされており,ユーザーは次の様なコードの修正が必要かも知れません.
-<ul>
-  <li>
-    BLAS/LAPACK関数はCPPL名前空間に入れられました.
-    BLAS/LAPACK関数を直接コールする場合は"CPPL::"を関数名の頭に付けて下さい.
-  </li>
-  <li>
-    BLAS/LAPACK関数の引数スタイルをFORTRANスタイルに変更しました.
-    配列変数だけでなく配列以外の変数もアドレス渡しとなります.
-    BLAS/LAPACK関数を直接コールする場合は"&amp;"を配列以外の変数名の頭に付けて下さい.
-  </li>
-  <li>
-    デフォルトの整数型が"long"から"CPPL_INT"に修正されました.
-    "CPPL_INT"はIntel/MKLでは"MKL_INT"に,g++他では"int"になります.
-    これまで用いていた"long"は使用不可となりますので注意してください.
-  </li>
-</ul>
-【具体例】<br>
-旧コード:<br>
-<code>
-&nbsp;&nbsp; long NRHS(mat.n), LDA(n), *IPIV(new long[n]), LDB(mat.m), INFO(1);<br>
-&nbsp;&nbsp; dgesv_(n, NRHS, array, LDA, IPIV, mat.array, LDB, INFO);<br>
-</code>
-新コード:<br>
-<code>
-  &nbsp;&nbsp; CPPL_INT NRHS(mat.n), LDA(n), *IPIV(new CPPL_INT[n]), LDB(mat.m), INFO(1);<br>
-  &nbsp;&nbsp; CPPL::dgesv_(&n, &NRHS, array, &LDA, IPIV, mat.array, &LDB, &INFO);<br>
-</code>
-または<br>
-<code>
-  &nbsp;&nbsp; int NRHS(mat.n), LDA(n), *IPIV(new int[n]), LDB(mat.m), INFO(1);<br>
-  &nbsp;&nbsp; CPPL::dgesv_(&n, &NRHS, array, &LDA, IPIV, mat.array, &LDB, &INFO);<br>
-</code>
-("CPPL_INT"の代わりに"int"を指定しても大抵のプラットフォームで正常に動きます.)
-</p>
-
-<p>
-[2014年02月08日]
-"cpplapack-2014.02.08"をリリースしました.
-このリリースはsvnの使用を好まないユーザに対するものです.
-tar.gz版,rpm版,deb版(alienで作成)も用意しました.
-"ChangeLog"が知りたい場合はsvnのログをご覧ください.
-</p>
-
-<p>
-[2010年03月27日]
-"cpplapack-2010.03.27"をリリースしました.
-このリリースはsvnの使用を好まないユーザに対するものです.
-tar.gz版の他に,rpm版とdeb版も用意しました.
-"ChangeLog"が知りたい場合はsvnのログをご覧ください.
-</p>
-
-<p>
-[2005年03月25日]
-"cpplapack-2005_03_25"をリリースしました.
-このリリースには幾つかのバグフィックスと改良がなされています.
-詳しくは"ChangeLog"を御覧下さい.
-また,このリリースにはスパース行列クラス(dssmatrix, zssmatrix)のアルファ版も含まれています.
-これらクラスは未だ非常にバギーですが,これらのクラスを使わない限り問題は無いと思います.
-</p>
-
-<p>
-[2004年10月15日]
-上島君によるCPPLapackの日本語チュートリアルが出来ました.
-これからCPPLapackを使ってみようという方々,必見です.
-HTML版は
-<a href="http://cpplapack.sourceforge.net/tutorial/japanese/index.html">
-http://cpplapack.sourceforge.net/tutorial/japanese/index.html</a>
-から,PDF版は
-<a href="http://cpplapack.sourceforge.net/tutorial/japanese/CPPLapack_Tutorial-Japanese.pdf">http://cpplapack.sourceforge.net/tutorial/japanese/CPPLapack_Tutorial-Japanese.pdf</a>
-から御覧になれます.
-</p>
-
-<p>
-[2004年4月24日]
-"cpplapack-2004_04_24"をリリースしました.
-OpenMPのマクロ (#pragma omp parallel for private(j,k)) 
-を全ての3重forループに付け加えました.
-このドキュメントに検索機能を付けました.
-大文字小文字は区別されます.
-</p>
-
-<p>
-[2004年4月1日]
-"cpplapack-2004_04_01"をリリースしました.
-倍精度複素数マトリックス,ベクトルクラス
-(zgematrix, zgbmatrix, zhematrix, zcovector, zrovector)
-が新たに追加されています.
-</p>
-
-
-<!----------------------------------------------------------------------------->
-<!----------------------------------------------------------------------------->
-<!----------------------------------------------------------------------------->
-<hr><hr>
-<h2>CPPLapackとは?</h2>
-<p>
-CPPLapackは BLAS,LAPACK,および PARDISO の C++ クラスラッパーです.
-</p>
-
-<p>
-Fortran BLAS,LAPACK,CBLAS,CLAPACKでは,インタフェースがユーザーフレンドリーでないため,LAPACK初心者に限らず,経験を積んだプログラマでも間違いを起こしやすくなっています.また,そのインタフェースの使いにくさから,BLASの関数は,"+","-","*"等の利用頻度の高い単純な演算にはあまり利用されていません.
-したがって,BLASやLAPACKに対するインタフェースをユーザーフレンドリーな形で提供するライブラリがあれば,プログラム開発期間と計算時間をともに最小化できることになります.しかし,この両方の点において十分満足できるものは,既存の行列計算ライブラリにはないようです.
-</p>
-
-<p>
-CPPLapackのインタフェースは,普通の行列計算ライブラリと同じく,非常にユーザーフレンドリーになっています.たとえば,<code>"A=B*C;"</code>や<code>"A.dgesv(y);"</code>のような表記が使えます.それと同時に,CPPLapackでは,内部でBLASとLAPACKの関数を使って高速な行列計算を提供しています.
-</p>
-
-<p>
-CPPLapackの利点としては,ユーザーフレンドリーなインタフェースや高速な行列計算だけではなく,無駄のないメモリ利用もあります.大規模な行列を扱う場合,行列オブジェクトのコピー回数はメモリ消費量と計算時間に大きく影響します.CPPLapackでは,コピー回数を必要最小限に抑えるために,"Smart Temporary"システムという機構を導入しています."Smart Temporary"システムはCPPLapackの内部的な機構ですので,CPPLapackのユーザーはこれについて気にする必要はありません.(2003年リリースのバージョンでは,"to_return"システムを利用していましたが,2004年以降リリースのバージョンでは,その代わりに,禁止コードのない"Smart Temporary"システムを利用しています.双方のバージョンで互換性は完全に保たれています.)
-</p>
-
-<p>
-CPPLapackは大規模行列の計算のためのライブラリです.したがって,大規模行列を扱わない場合には,他のライブラリを使うことをおすすめします.
-</p>
-
-<p>
-本プログラムはベータ版ですので,まだバグが残っている可能性があります.また,BLASやLAPACKの関数の中にまだ未対応のものもあります.CPPLapackを利用する場合には,この点にお気をつけ下さい.CPPLapackの開発へのご協力は,もちろん歓迎いたします.
-</p>
-
-<!----------------------------------------------------------------------------->
-<!----------------------------------------------------------------------------->
-<!----------------------------------------------------------------------------->
-<h2>CPPLapackの特徴</h2>
-<ul>
-<li>
-ユーザーフレンドリーなインタフェース<br>
-</li>
-<li>
-BLAS,LAPACK,およびPARDISOを利用した高速行列計算<br>
-</li>
-<li>
-"Smart Temporary" システムを利用したオブジェクトコピー回数の最小化<br>
-</li>
-</ul>
-高速化などのための仕組みはCPPLapack内部に隠されているため,CPPLapackを利用するプログラマが特殊なプログラミングをする必要は一切ありません.
-
-
-<!----------------------------------------------------------------------------->
-<!----------------------------------------------------------------------------->
-<!----------------------------------------------------------------------------->
-<h2>配布元</h2>
-<p>
-CPPLapackの公式配布元は
-<a target="_blank" href="http://sourceforge.net/projects/cpplapack/">こちら</a>です.
-リンク先のページの最新版svnコードを利用することを強くお奨めします.
-</p>
-<!----------------------------------------------------------------------------->
-<!----------------------------------------------------------------------------->
-<!----------------------------------------------------------------------------->
-<h2>インストール方法</h2>
-<p>
-CPPLapackはC++のヘッダファイル群ですので,「インストール」と呼ぶ程の作業は必要はありません.
-ダウンロードしたファイルをお好きな場所に展開し,Makefileのインクルードパスを適当に書き換えるだけです.
-インクルードしなければならないファイルは"cpplapack.h"だけです.
-</p>
-
-<p>
-とはいうものの,CPPLapackを使うにはBLASとLAPACKがインストールされている必要があります.
-オリジナルのBLAS,LAPACKの他にも Intel math kernel library (MKL)など,ベンダーの提供するライブラリにBLASやLAPACKが含まれているものでも結構です.
-ただし,スパース行列に対してPARDISOを使うためにはIntel MKLが必須です.
-
-<p>
-お使いの環境に合わせてMakefileを書き換えて下さい.
-幾つかのプラットフォームでのMakefile例が[typical Makefiles]に用意されていますので参考にしてみて下さい.
-<p>
-
-<p>
-プラットフォームによって,利用するBLASやLAPACKのライブラリは異なります.
-Makefileの例を[typical Makefiles]に用意してありますのでご覧下さい.
-</p>
-
-<p>
-Cygwinユーザー向けに,ATLASとLAPACKのインストール手順の説明を用意しました.
-[How to install ATLAS and LAPACK on Cygwin]をご覧下さい.
-</p>
-
-<!----------------------------------------------------------------------------->
-<!----------------------------------------------------------------------------->
-<!----------------------------------------------------------------------------->
-<h2>重要な仕様</h2>
-<ul>
-<li>
-CPPLapackの名前空間は"CPPL"です.
-</li>
-<li>
-アンダースコアのついたクラスをCPPLapackのユーザーが利用する必要はありませんので,利用しないで下さい.
-アンダースコアのついた行列クラスは,"Smart Temporary"クラスです.
-"Smart Temporary"システムの詳細は[Mechanism of Smart Temporary system]をご覧下さい.
-</li>
-
-<li>
-マトリックス成分の番号は1ベースではなく0ベースです.
-すなわち,m x nマトリックスの場合,左上の成分は(0,0),右下の成分は(m-1,n-1)といった具合になります.
-バンドマトリックスに関しては[illustration of band matrix]をご覧下さい.
-</li>
-<li>
-マトリックスは列メジャー方式で蓄えられています.
-ほとんどのCおよびC++プログラマーは行メジャー方式を好みますが,CPPLapackはFortranで元々開発されていた経緯を持つBLASやLAPACKを用いる為,やむなく列メジャー方式を採用しているのです.
-</li>
-<li>
-マトリックスの行数はm,列数はn,データ配列の先頭はarrayでそれぞれ参照することが出来ます.
-しかしこれらの値を代入演算子=で書き換えることは出来ません.
-m,nの変更はresize関数を,マトリックス成分の値の変更にはoperator()を用いて下さい.
-またマトリックス成分は"A.array[10]=3.14"の様にして書き換えることも可能となっているので注意して下さい.
-</li>
-<li>
-LAPACKの関数に対応するCPPLapackのメンバ関数(たとえば,A.dgesv(y))は,行列Aを上書きします.
-Aの元の値を保持したい場合は,LAPACKメンバ関数を呼び出す前に,Aのコピーを作っておいて下さい.
-</li>
-<li>
-デバッグを容易にするために,"CPPL_VERBOSE"および"CPPL_DEBUG"マクロを用意してあります.
-"-DCPPL_VERBOSE"をコンパイルコマンドに指定すると,呼ばれた全ての関数が標準エラー出力に関数名を出力します.
-"-DCPPL_DEBUG"をコンパイルコマンドに指定すると,範囲検査(bounds checking)が有効になります.
-デバッグ作業の間は,このマクロを有効にし,その後,CPPLapackの最高性能を得るために,このマクロを無効にしてから再コンパイルして下さい.
-</li>
-<li>
-関数が返すオブジェクトを放置しないように注意して下さい.
-計算したあとに返されるオブジェクトは,必ず何らかのオブジェクトに代入しなければなりません.
-たとえば,<code>A+B;</code>というコードはよくありません.
-また,
-<code>"dcovector f(const dcovector&amp; x){ return 2*x; }"</code>,
-<code>f(x);</code>なども同様です.
-これは,"Smart Temporary"システムの特性から起こる現象です.
-詳しくは,[Mechanism of Smart Temporary system]をご覧下さい.
-</li>
-</ul>
-
-<!----------------------------------------------------------------------------->
-<!----------------------------------------------------------------------------->
-<!----------------------------------------------------------------------------->
-<h2>テストプログラム</h2>
-<p>
-CPPLapackの動作を確認するためのテストプログラム群が"test"ディレクトリ以下に収められています.
-そこに置かれているプログラムはCPPLapackの使いかたを学ぶ為の良い易しいプログラム例にもなると思います.
-</p>
-
-<!----------------------------------------------------------------------------->
-<!----------------------------------------------------------------------------->
-<!----------------------------------------------------------------------------->
-<h2>ベンチマークプログラム</h2>
-<p>
-CPPLapackの速度を評価するためのベンチマークプログラム群が"benchmark"ディレクトリ以下に収められています.
-</p>
-
-<p>
-CPPLapackのパフォーマンスはオリジナルのBLASやLAPACKと同等です.
-しかしながら,BLASやLAPACKで用いられるalpha,beta,Transposeといった引数をフルに用いたオリジナルのBLASやLAPACKのプログラムに比べると,シンプルな演算子だけを用いたCPPLapackのプログラムは遅くなってしまいます.
-どうしてもこれらの引数をフルに使いたい場合は,CPPLapackのプログラム内でオリジナルのBLASやLAPACKの関数を呼んで下さい.
-そうすれば,CPPLapackを用いつつオリジナルのBLASやLAPACKと同等のパフォーマンスが得られます.
-</p>
-
-<!----------------------------------------------------------------------------->
-<!----------------------------------------------------------------------------->
-<!----------------------------------------------------------------------------->
-<h2>よくある質問</h2>
-<p>
-(質問)
-CPPLapackのプログラム書いてみたところ,ループの中でメモリ使用量がどんどん膨らんで行くという現象が見られました.
-どうしてこんなことが起こるのでしょうか?
-<br>
-(回答)
-恐らく,そのループの中でマトリックスやベクトルの返り値を放置してしまっていると思われます.
-"重要な仕様"の章を注意深く読んでみて下さい.
-</p>
-
-<p>
-(質問)
-マトリックスやベクトルの中身を表示させると,おかしな数字や"nan"が表示されます.
-これは何故でしょうか?
-<br>
-(回答)
-まず,そのオブジェクトが初期化されているかどうかを確認して下さい.
-CPPLapackではサイズ指定のコンストラクター,例えば"CPPL::dgematrix A(5,10);",はその成分を一切初期化しません.
-"resize"関数も同様で,初期化を行いません.
-代入によって値を設定するか,もしくは"identity"関数や"zero"関数を使って初期化作業を行って下さい.
-</p>
-
-
-<!----------------------------------------------------------------------------->
-<!----------------------------------------------------------------------------->
-<!----------------------------------------------------------------------------->
-<h2>ライセンス</h2>
-CPPLapackはオープンソースでフリー,かつ無保証なソフトウェアです.
-
-<!----------------------------------------------------------------------------->
-<!----------------------------------------------------------------------------->
-<!----------------------------------------------------------------------------->
-<h2>著者と協力者</h2>
-著者:大西有希<br>
-協力者:居相政史,清水利恭,上島正史
-
-<!----------------------------------------------------------------------------->
-<!----------------------------------------------------------------------------->
-<!----------------------------------------------------------------------------->
-<h2>バグレポート</h2>
-バグレポートは<a href="mailto:yuki.onishi@gmail.com">yuki.onishi@gmail.com</a>にお願いします.
-コメントも歓迎します.
-
-<!----------------------------------------------------------------------------->
-<!----------------------------------------------------------------------------->
-<!----------------------------------------------------------------------------->
-</body>
-</html>
diff --git a/cpplapack-r198/.svn/pristine/6a/6ac9bc249c55976c8f997a91e7ce9445f4b6ed7f.svn-base b/cpplapack-r198/.svn/pristine/6a/6ac9bc249c55976c8f997a91e7ce9445f4b6ed7f.svn-base
deleted file mode 100644
index 6d8bee4..0000000
--- a/cpplapack-r198/.svn/pristine/6a/6ac9bc249c55976c8f997a91e7ce9445f4b6ed7f.svn-base
+++ /dev/null
@@ -1,12 +0,0 @@
-//=============================================================================
-/*! double*drovector operator */
-inline _drovector operator*(const double& d, const drovector& vec)
-{CPPL_VERBOSE_REPORT;
-  drovector newvec(vec.l);
-  
-  for(CPPL_INT i=0; i<vec.l; i++){
-    newvec.array[i] =d*vec.array[i];
-  }
-  
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/6b/6b3da5c0a6f3846eded4a3ad112a4f65c36db7dc.svn-base b/cpplapack-r198/.svn/pristine/6b/6b3da5c0a6f3846eded4a3ad112a4f65c36db7dc.svn-base
deleted file mode 100644
index 5d0f31d..0000000
--- a/cpplapack-r198/.svn/pristine/6b/6b3da5c0a6f3846eded4a3ad112a4f65c36db7dc.svn-base
+++ /dev/null
@@ -1,14 +0,0 @@
-//=============================================================================
-/*! zcovector*_zrovector operator */
-inline _zgematrix operator*(const zcovector& covec, const _zrovector& rovec)
-{CPPL_VERBOSE_REPORT;
-  zgematrix newmat(covec.l, rovec.l);
-  for(CPPL_INT i=0; i<newmat.m; i++){
-    for(CPPL_INT j=0; j<newmat.n; j++){
-      newmat(i,j) =covec(i)*rovec(j);
-    }
-  }
-  
-  rovec.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/6b/6b7ed97f9f0a2e319eff709a3613aee173edec1e.svn-base b/cpplapack-r198/.svn/pristine/6b/6b7ed97f9f0a2e319eff709a3613aee173edec1e.svn-base
deleted file mode 100644
index 2b28548..0000000
--- a/cpplapack-r198/.svn/pristine/6b/6b7ed97f9f0a2e319eff709a3613aee173edec1e.svn-base
+++ /dev/null
@@ -1,128 +0,0 @@
-//=============================================================================
-/*! operator() for non-const object */
-inline double& dcovector::operator()(const CPPL_INT& i)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || l<=i ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the vector size." << std::endl
-              << "Your input is (" << i << "), whereas the vector size is " << l << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  return array[i];
-}
-
-//=============================================================================
-/*! operator() for const object */
-inline double dcovector::operator()(const CPPL_INT& i) const
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || l<=i ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the vector size." << std::endl
-              << "Your input is (" << i << "), whereas the vector size is " << l << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  return array[i];
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! set value for const object */
-inline dcovector& dcovector::set(const CPPL_INT& i, const double& v) //const
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || l<=i ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the vector size." << std::endl
-              << "Your input is (" << i << "), whereas the vector size is " << l << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  array[i] =v;
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-inline std::ostream& operator<<(std::ostream& s, const dcovector& vec)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<vec.l; i++){
-    s << " " << vec.array[i] << std::endl;
-  }
-  
-  return s;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-inline void dcovector::write(const char *filename) const
-{CPPL_VERBOSE_REPORT;
-  std::ofstream ofs(filename, std::ios::trunc);
-  ofs.setf(std::cout.flags());
-  ofs.precision(std::cout.precision());
-  ofs.width(std::cout.width());
-  ofs.fill(std::cout.fill());
-  
-  ofs << "#dcovector" << " " << l << std::endl;
-  for(CPPL_INT i=0; i<l; i++){
-    ofs << operator()(i) << std::endl;
-  }
-  
-  ofs.close();
-}
-
-//=============================================================================
-inline void dcovector::read(const char *filename)
-{CPPL_VERBOSE_REPORT;
-  std::ifstream s(filename);
-  if(!s){
-    ERROR_REPORT;
-    std::cerr << "The file \"" << filename << "\" can not be opened." << std::endl;
-    exit(1);
-  }
-
-  std::string id;
-  s >> id;
-  if( id != "dcovector" && id != "#dcovector" ){
-    ERROR_REPORT;
-    std::cerr << "The type name of the file \"" << filename << "\" is not dcovector." << std::endl
-              << "Its type name was " << id << " ." << std::endl;
-    exit(1);
-  }
-  
-  s >> l;
-  resize(l);
-  for(CPPL_INT i=0; i<l; i++) { s >> operator()(i); }
-  if(s.eof()){
-    ERROR_REPORT;
-    std::cerr << "There is something is wrong with the file \"" << filename << "\"." << std::endl
-              << "Most likely, there is a lack of data components, or a linefeed code or space code is missing at the end of the last line." << std::endl;
-    exit(1);
-  }
-  
-  s >> id;
-  if(!s.eof()){
-    ERROR_REPORT;
-    std::cerr << "There is something is wrong with the file \"" << filename << "\"." << std::endl
-              << "Most likely, there are extra data components." << std::endl;
-    exit(1);
-  }
-  
-  
-  s.close();
-}
diff --git a/cpplapack-r198/.svn/pristine/6c/6c07fc8990c458f498a25de0237b06b206d96ca6.svn-base b/cpplapack-r198/.svn/pristine/6c/6c07fc8990c458f498a25de0237b06b206d96ca6.svn-base
deleted file mode 100644
index 3aa8015..0000000
--- a/cpplapack-r198/.svn/pristine/6c/6c07fc8990c458f498a25de0237b06b206d96ca6.svn-base
+++ /dev/null
@@ -1,40 +0,0 @@
-//=============================================================================
-/*! dgrmatrix*dcovector operator */
-inline _dcovector operator*(const dgrmatrix& mat, const dcovector& vec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(mat.n!=vec.l){
-    ERROR_REPORT;
-    std::cerr << "These matrix and vector can not make a product." << std::endl
-              << "Your input was (" << mat.m << "x" << mat.n << ") * (" << vec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-#ifdef  __INTEL_COMPILER
-  dcovector newvec(mat.m);
-  char transa ='N';
-  MKL_INT m =MKL_INT(mat.m);
-  double* a =const_cast<double*>(&mat.a[0]);
-  MKL_INT* ia =const_cast<MKL_INT*>(&mat.ia[0]);
-  MKL_INT* ja =const_cast<MKL_INT*>(&mat.ja[0]);
-  MKL_DCSRGEMV(&transa, &m, a, ia, ja, vec.array, newvec.array);
-  return _(newvec);
-  
-  
-#else //__INTEL_COMPILER is not defined
-  dcovector newvec(mat.m);  
-#pragma omp parallel for
-  for(CPPL_INT i=0; i<mat.m; i++){
-    double sum =0.;
-    int k_beg =mat.ia[i]-1;
-    int k_end =mat.ia[i+1]-1;
-    for(int k=k_beg; k<k_end; k++){
-      int j =mat.ja[k]-1;
-      sum += mat.a[k] * vec(j);
-    }
-    newvec(i) =sum;
-  }
-  return _(newvec);
-#endif//__INTEL_COMPILER
-}
diff --git a/cpplapack-r198/.svn/pristine/6c/6c1eee77220598b47b8328c802b1ed310d1aab81.svn-base b/cpplapack-r198/.svn/pristine/6c/6c1eee77220598b47b8328c802b1ed310d1aab81.svn-base
deleted file mode 100644
index 2f5ec68..0000000
--- a/cpplapack-r198/.svn/pristine/6c/6c1eee77220598b47b8328c802b1ed310d1aab81.svn-base
+++ /dev/null
@@ -1,25 +0,0 @@
-//=============================================================================
-/*! _drovector*dgbmatrix operator */
-inline _drovector operator*(const _drovector& vec, const dgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vec.l!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These vector and matrix can not make a product." << std::endl
-              << "Your input was (" << vec.l << ") * (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  drovector newvec(mat.n);
-  char trans ='T';
-  double alpha =1.;
-  CPPL_INT lda =mat.kl+mat.ku+1;
-  CPPL_INT inc =1;
-  double beta =0.;
-  
-  dgbmv_( &trans, &mat.m, &mat.n, &mat.kl, &mat.ku, &alpha, mat.array, &lda, vec.array, &inc, &beta, newvec.array, &inc );
-  
-  vec.destroy();
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/6c/6cbfb9e0f660c53c9ccd8cab66ee006f59ff85c1.svn-base b/cpplapack-r198/.svn/pristine/6c/6cbfb9e0f660c53c9ccd8cab66ee006f59ff85c1.svn-base
deleted file mode 100644
index a5bc8a9..0000000
--- a/cpplapack-r198/.svn/pristine/6c/6cbfb9e0f660c53c9ccd8cab66ee006f59ff85c1.svn-base
+++ /dev/null
@@ -1,9 +0,0 @@
-//=============================================================================
-/*! double*_zhematrix operator */
-inline _zhematrix operator*(const double& d, const _zhematrix& mat)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT size =mat.n*mat.n;
-  CPPL_INT inc =1;
-  zdscal_(&size, &d, mat.array, &inc);
-  return mat;
-}
diff --git a/cpplapack-r198/.svn/pristine/6d/6d1b9d9925614a08c3035d6bb29aa50cfe3151c0.svn-base b/cpplapack-r198/.svn/pristine/6d/6d1b9d9925614a08c3035d6bb29aa50cfe3151c0.svn-base
deleted file mode 100644
index ad6469a..0000000
--- a/cpplapack-r198/.svn/pristine/6d/6d1b9d9925614a08c3035d6bb29aa50cfe3151c0.svn-base
+++ /dev/null
@@ -1,95 +0,0 @@
-//=============================================================================
-/*! dcovector_small constructor */
-template<CPPL_INT l>
-inline dcovector_small<l>::dcovector_small()
-{CPPL_VERBOSE_REPORT;
-  ;
-}
-
-//=============================================================================
-/*! dcovector_small constructor */
-template<CPPL_INT l>
-inline dcovector_small<l>::dcovector_small(const dcovector& vec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( l!=vec.l ){
-    ERROR_REPORT;
-    std::cerr << "Vector sizes must be the same." << std::endl
-              << "Your input was " << l << " and " << vec.l << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT k=0; k<l; k++){
-    array[k] =vec.array[k];
-  }
-}
-
-//=============================================================================
-/*! dcovector_small constructor */
-template<CPPL_INT l>
-inline dcovector_small<l>::dcovector_small(const double& x, const double& y)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( l!=2 ){
-    ERROR_REPORT;
-    std::cerr << "The vector size must be 2." << std::endl
-              << "The vector size you set was " << l << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  array[0] =x;
-  array[1] =y;
-}
-
-//=============================================================================
-/*! dcovector_small constructor */
-template<CPPL_INT l>
-inline dcovector_small<l>::dcovector_small(const double& x, const double& y, const double& z)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( l!=3 ){
-    ERROR_REPORT;
-    std::cerr << "The vector size must be 3." << std::endl
-              << "The vector size you set was " << l << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  array[0] =x;
-  array[1] =y;
-  array[2] =z;
-}
-
-//=============================================================================
-/*! dcovector_small constructor */
-template<CPPL_INT l>
-inline dcovector_small<l>::dcovector_small(const double& x, const double& y, const double& z, const double& r)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( l!=4 ){
-    ERROR_REPORT;
-    std::cerr << "The vector size must be 4." << std::endl
-              << "The vector size you set was " << l << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  array[0] =x;
-  array[1] =y;
-  array[2] =z;
-  array[3] =r;
-}
-  
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! dcovector_small destructor */
-template<CPPL_INT l>
-inline dcovector_small<l>::~dcovector_small()
-{CPPL_VERBOSE_REPORT;
-  ;
-}
diff --git a/cpplapack-r198/.svn/pristine/6d/6d23affb77536b3d60dfedc993f54e33273a0150.svn-base b/cpplapack-r198/.svn/pristine/6d/6d23affb77536b3d60dfedc993f54e33273a0150.svn-base
deleted file mode 100644
index a376325..0000000
--- a/cpplapack-r198/.svn/pristine/6d/6d23affb77536b3d60dfedc993f54e33273a0150.svn-base
+++ /dev/null
@@ -1,312 +0,0 @@
-The followings are the examples file formats for read and write functions.
-Only the order of data is important.
-The "#" at the first line is optional.
-In ceses of complex matrixes and vecotors,
-"(", real part, ",", imaginary part, and ")" should be arranged 
-without any linefeed code or space code.
-The linefeed code and more than two space codes are optional.
-However, the file should be end with the linefeed code or space code.
-
-<!----------------------------------------------------------------------------->
-<!----------------------------------------------------------------------------->
-<!----------------------------------------------------------------------------->
-<hr>
-<h2>dgematrix</h2>
-<center>
-<table border="2">
-<caption align="top">Matrix Data</caption>
-<tr> <td>0.0</td> <td>0.1</td> <td>0.3</td> <td>0.4</td> </tr>
-<tr> <td>1.0</td> <td>1.1</td> <td>1.2</td> <td>1.3</td> </tr>
-<tr> <td>2.0</td> <td>2.1</td> <td>2.2</td> <td>2.3</td> </tr>
-</table>
-
-<br>
-
-<table border="0">
-<caption align="top">File Format</caption>
-<tr> <td>#dgematrix 3 4</td> </tr>
-<tr> <td>0.0 0.1 0.2 0.3</td> </tr>
-<tr> <td>1.0 1.1 1.2 1.3</td> </tr>
-<tr> <td>2.0 2.1 2.2 2.3</td> </tr>
-</table>
-</center>
-
-<!----------------------------------------------------------------------------->
-<!----------------------------------------------------------------------------->
-<!----------------------------------------------------------------------------->
-<hr>
-<h2>dgbmatrix</h2>
-<center>
-<table border="2">
-<caption align="top">Matrix Data</caption>
-<tr> <td>0.0</td> <td>0.1</td> <td>0.2</td> <td>x  </td> </tr>
-<tr> <td>1.0</td> <td>1.1</td> <td>1.2</td> <td>1.3</td> </tr>
-<tr> <td>x  </td> <td>2.1</td> <td>2.2</td> <td>2.3</td> </tr>
-<tr> <td>x  </td> <td>x  </td> <td>3.2</td> <td>3.3</td> </tr>
-<tr> <td>x  </td> <td>x  </td> <td>x  </td> <td>4.3</td> </tr>
-</table>
-
-<br>
-
-<table border="0">
-<caption align="top">File Format</caption>
-<tr> <td>#dgbmatrix 5 4 1 2</td> </tr>
-<tr> <td>0.0 0.1 0.2</td> </tr>
-<tr> <td>1.0 1.1 1.2 1.3</td> </tr>
-<tr> <td>2.1 2.2 2.3</td> </tr>
-<tr> <td>3.2 3.3</td> </tr>
-<tr> <td>4.3</td> </tr>
-</table>
-</center>
-
-<!----------------------------------------------------------------------------->
-<!----------------------------------------------------------------------------->
-<!----------------------------------------------------------------------------->
-<hr>
-<h2>dsymatrix</h2>
-<center>
-<table border="2">
-<caption align="top">Matrix Data</caption>
-<tr> <td>0.0</td> <td>{1.0}</td> <td>{2.0}</td> <td>{3.1}</td> </tr>
-<tr> <td>1.0</td> <td> 1.1 </td> <td>{2.1}</td> <td>{3.1}</td> </tr>
-<tr> <td>2.0</td> <td> 2.1 </td> <td> 2.2 </td> <td>{3.2}</td> </tr>
-<tr> <td>3.0</td> <td> 3.1 </td> <td> 3.2 </td> <td> 3.3 </td> </tr>
-</table>
-
-<br>
-
-<table border="0">
-<caption align="top">File Format</caption>
-<tr> <td>#dsymatrix 4</td> </tr>
-<tr> <td>0.0</td> </tr>
-<tr> <td>1.0 1.1</td> </tr>
-<tr> <td>2.0 2.1 2.2</td> </tr>
-<tr> <td>3.0 3.1 3.2 3.3</td> </tr>
-</table>
-</center>
-
-<!----------------------------------------------------------------------------->
-<!----------------------------------------------------------------------------->
-<!----------------------------------------------------------------------------->
-<hr>
-<h2>dssmatrix</h2>
-<center>
-<table border="2">
-<caption align="top">Matrix Data</caption>
-<tr> <td>{0}</td> <td>0.1</td> <td>{0}</td> <td>{0}</td> </tr>
-<tr> <td>{0}</td> <td>{0}</td> <td>1.2</td> <td>{0}</td> </tr>
-<tr> <td>2.0</td> <td>{0}</td> <td>{0}</td> <td>2.3</td> </tr>
-</table>
-
-<br>
-
-<table border="0">
-<caption align="top">File Format</caption>
-<tr> <td>#dssmatrix 3 4 4</td> </tr>
-<tr> <td>0 1 0.1</td> </tr>
-<tr> <td>1 2 1.2</td> </tr>
-<tr> <td>2 0 2.0</td> </tr>
-<tr> <td>2 3 2.3</td> </tr>
-</table>
-</center>
-
-<!----------------------------------------------------------------------------->
-<!----------------------------------------------------------------------------->
-<!----------------------------------------------------------------------------->
-<hr>
-<h2>dcovector</h2>
-<center>
-<table border="2">
-<caption align="top">Vector Data</caption>
-<tr> <td>0</td> </tr>
-<tr> <td>1</td> </tr>
-<tr> <td>2</td> </tr>
-<tr> <td>3</td> </tr>
-</table>
-
-<br>
-
-<table border="0">
-<caption align="top">File Format</caption>
-<tr> <td>#dcovector 4</td> </tr>
-<tr> <td>0</td> </tr>
-<tr> <td>1</td> </tr>
-<tr> <td>2</td> </tr>
-<tr> <td>3</td> </tr>
-</table>
-</center>
-
-<!----------------------------------------------------------------------------->
-<!----------------------------------------------------------------------------->
-<!----------------------------------------------------------------------------->
-<hr>
-<h2>drovector</h2>
-<center>
-<table border="2">
-<caption align="top">Vector Data</caption>
-<tr> <td>0</td> <td>1</td> <td>2</td> <td>3</td> </tr>
-</table>
-
-<br>
-
-<table border="0">
-<caption align="top">File Format</caption>
-<tr> <td>#drovector 4</td> </tr>
-<tr> <td>0 1 2 3</td> </tr>
-</table>
-</center>
-
-<!----------------------------------------------------------------------------->
-<!----------------------------------------------------------------------------->
-<!----------------------------------------------------------------------------->
-<hr>
-<hr>
-<hr>
-<!----------------------------------------------------------------------------->
-<!----------------------------------------------------------------------------->
-<!----------------------------------------------------------------------------->
-<hr>
-<h2>zgematrix</h2>
-<center>
-<table border="2">
-<caption align="top">Matrix Data</caption>
-<tr> <td>0+0i</td> <td>0+1i</td> <td>0+2i</td> <td>0+3i</td> </tr>
-<tr> <td>1+0i</td> <td>1+1i</td> <td>1+2i</td> <td>1+3i</td> </tr>
-<tr> <td>2+0i</td> <td>2+1i</td> <td>2+2i</td> <td>2+3i</td> </tr>
-</table>
-
-<br>
-
-<table border="0">
-<caption align="top">File Format</caption>
-<tr> <td>#zgematrix 3 4</td> </tr>
-<tr> <td>(0,0) (0,1) (0,2) (0,3)</td> </tr>
-<tr> <td>(1,0) (1,1) (1,2) (1,3)</td> </tr>
-<tr> <td>(2,0) (2,1) (2,2) (2,3)</td> </tr>
-</table>
-</center>
-
-<!----------------------------------------------------------------------------->
-<!----------------------------------------------------------------------------->
-<!----------------------------------------------------------------------------->
-<hr>
-<h2>zgbmatrix</h2>
-<center>
-<table border="2">
-<caption align="top">Matrix Data</caption>
-<tr> <td>0+0i</td> <td>0+1i</td> <td>0+2i</td> <td>x   </td> </tr>
-<tr> <td>1+0i</td> <td>1+1i</td> <td>1+2i</td> <td>1+3i</td> </tr>
-<tr> <td>x   </td> <td>2+1i</td> <td>2+2i</td> <td>2+3i</td> </tr>
-<tr> <td>x   </td> <td>x   </td> <td>3+2i</td> <td>3+3i</td> </tr>
-<tr> <td>x   </td> <td>x   </td> <td>x   </td> <td>4+3i</td> </tr>
-</table>
-
-<br>
-
-<table border="0">
-<caption align="top">File Format</caption>
-<tr> <td>#zgbmatrix 5 4 1 2</td> </tr>
-<tr> <td>(0,0) (0,1) (0,2)</td> </tr>
-<tr> <td>(1,0) (1,1) (1,2) (1,3)</td> </tr>
-<tr> <td>(2,1) (2,2) (2,3)</td> </tr>
-<tr> <td>(3,2) (3,3)</td> </tr>
-<tr> <td>(4,3)</td> </tr>
-</table>
-</center>
-
-<!----------------------------------------------------------------------------->
-<!----------------------------------------------------------------------------->
-<!----------------------------------------------------------------------------->
-<hr>
-<h2>zhematrix</h2>
-<center>
-<table border="2">
-<caption align="top">Matrix Data</caption>
-<tr> <td>0   </td> <td>{2-0i}</td> <td>{3-0i}</td> <td>{4-0i}</td> </tr>
-<tr> <td>1+0i</td> <td> 1    </td> <td>{3-1i}</td> <td>{4-1i}</td> </tr>
-<tr> <td>2+0i</td> <td> 2+1i </td> <td> 2    </td> <td>{4-2i}</td> </tr>
-<tr> <td>3+0i</td> <td> 3+1i </td> <td> 3+2i </td> <td> 3    </td> </tr>
-</table>
-
-<br>
-
-<table border="0">
-<caption align="top">File Format</caption>
-<tr> <td>#zhematrix 4</td> </tr>
-<tr> <td>(0,0)</td> </tr>
-<tr> <td>(1,0) (1,0)</td> </tr>
-<tr> <td>(2,0) (2,1) (2,0)</td> </tr>
-<tr> <td>(3,0) (3,1) (3,2) (3,0)</td> </tr>
-</table>
-</center>
-
-<!----------------------------------------------------------------------------->
-<!----------------------------------------------------------------------------->
-<!----------------------------------------------------------------------------->
-<hr>
-<h2>zssmatrix</h2>
-<center>
-<table border="2">
-<caption align="top">Matrix Data</caption>
-<tr> <td>{0}</td> <td>0+1i</td> <td>{0}</td> <td>{0}</td> </tr>
-<tr> <td>{0}</td> <td>{0}</td> <td>1+2i</td> <td>{0}</td> </tr>
-<tr> <td>2+0i</td> <td>{0}</td> <td>{0}</td> <td>2+3i</td> </tr>
-</table>
-
-<br>
-
-<table border="0">
-<caption align="top">File Format</caption>
-<tr> <td>#zssmatrix 3 4 4</td> </tr>
-<tr> <td>0 1 (0,1)</td> </tr>
-<tr> <td>1 2 (1,2)</td> </tr>
-<tr> <td>2 0 (2,0)</td> </tr>
-<tr> <td>2 3 (2,3)</td> </tr>
-</table>
-</center>
-
-<!----------------------------------------------------------------------------->
-<!----------------------------------------------------------------------------->
-<!----------------------------------------------------------------------------->
-<hr>
-<h2>zcovector</h2>
-<center>
-<table border="2">
-<caption align="top">Vector Data</caption>
-<tr> <td>0+0i</td> </tr>
-<tr> <td>1+0i</td> </tr>
-<tr> <td>2+0i</td> </tr>
-<tr> <td>3+0i</td> </tr>
-</table>
-
-<br>
-
-<table border="0">
-<caption align="top">File Format</caption>
-<tr> <td>#zcovector 4</td> </tr>
-<tr> <td>(0,0)</td> </tr>
-<tr> <td>(1,0)</td> </tr>
-<tr> <td>(2,0)</td> </tr>
-<tr> <td>(3,0)</td> </tr>
-</table>
-</center>
-
-<!----------------------------------------------------------------------------->
-<!----------------------------------------------------------------------------->
-<!----------------------------------------------------------------------------->
-<hr>
-<h2>zrovector</h2>
-<center>
-<table border="2">
-<caption align="top">Vector Data</caption>
-<tr> <td>0+0i</td> <td>0+1i</td> <td>0+2i</td> <td>0+3i</td> </tr>
-</table>
-
-<br>
-
-<table border="0">
-<caption align="top">File Format</caption>
-<tr> <td>#zrovector 4</td> </tr>
-<tr> <td>(0,0) (0,1) (0,2) (0,3)</td> </tr>
-</table>
-</center>
diff --git a/cpplapack-r198/.svn/pristine/6d/6d3ce712044af715adfa3d0a60406b71a04e8dff.svn-base b/cpplapack-r198/.svn/pristine/6d/6d3ce712044af715adfa3d0a60406b71a04e8dff.svn-base
deleted file mode 100644
index 5cf86a4..0000000
--- a/cpplapack-r198/.svn/pristine/6d/6d3ce712044af715adfa3d0a60406b71a04e8dff.svn-base
+++ /dev/null
@@ -1,30 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int M(4);
-  
-  CPPL::zcovector x(M);
-  for(int i=0; i<x.l; i++){
-    x(i) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-  }
-  
-  cout << "+x=\n" << +x << endl;
-  cout << "-x=\n" << -x << endl;
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/6d/6da224748cc99c2da50ac79b7d025cfc3e0d6629.svn-base b/cpplapack-r198/.svn/pristine/6d/6da224748cc99c2da50ac79b7d025cfc3e0d6629.svn-base
deleted file mode 100644
index 9ed7861..0000000
--- a/cpplapack-r198/.svn/pristine/6d/6da224748cc99c2da50ac79b7d025cfc3e0d6629.svn-base
+++ /dev/null
@@ -1,15 +0,0 @@
-//=============================================================================
-/*! _zhsmatrix*comple operator */
-inline _zgsmatrix operator*(const _zhsmatrix& mat, const comple& d)
-{CPPL_VERBOSE_REPORT;
-  zgsmatrix newmat( mat.to_zgsmatrix() );
-  return newmat*d;
-}
-
-//=============================================================================
-/*! _zhsmatrix/comple operator */
-inline _zgsmatrix operator/(const _zhsmatrix& mat, const comple& d)
-{CPPL_VERBOSE_REPORT;
-  zgsmatrix newmat( mat.to_zgsmatrix() );
-  return newmat/d;
-}
diff --git a/cpplapack-r198/.svn/pristine/6d/6dec26f31cb635c000e7d266bb7ba0a172a55623.svn-base b/cpplapack-r198/.svn/pristine/6d/6dec26f31cb635c000e7d266bb7ba0a172a55623.svn-base
deleted file mode 100644
index f210787..0000000
--- a/cpplapack-r198/.svn/pristine/6d/6dec26f31cb635c000e7d266bb7ba0a172a55623.svn-base
+++ /dev/null
@@ -1,13 +0,0 @@
-//=============================================================================
-/*! cast to _zrovector */
-inline _zrovector _drovector::to_zrovector() const
-{CPPL_VERBOSE_REPORT;
-  zrovector newvec(l);
-  
-  for(CPPL_INT i=0; i<l; i++){
-    newvec.array[i] =comple(array[i], 0.);
-  }
-  
-  destroy();
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/6d/6dec4e491a4c2a9077d361432e98864089966a0b.svn-base b/cpplapack-r198/.svn/pristine/6d/6dec4e491a4c2a9077d361432e98864089966a0b.svn-base
deleted file mode 100644
index 5535213..0000000
--- a/cpplapack-r198/.svn/pristine/6d/6dec4e491a4c2a9077d361432e98864089966a0b.svn-base
+++ /dev/null
@@ -1,71 +0,0 @@
-//=============================================================================
-/*! dsymatrix+dgsmatrix operator */
-inline _dgematrix operator+(const dsymatrix& matA, const dgsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat( matA.to_dgematrix() );
-  
-  const std::vector<dcomponent>::const_iterator matB_data_end =matB.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matB.data.begin(); it!=matB_data_end; it++){
-    newmat(it->i,it->j) += it->v;
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! dsymatrix-dgsmatrix operator */
-inline _dgematrix operator-(const dsymatrix& matA, const dgsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") - (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat( matA.to_dgematrix() );
-  
-  const std::vector<dcomponent>::const_iterator matB_data_end =matB.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matB.data.begin(); it!=matB_data_end; it++){
-    newmat(it->i,it->j) -= it->v;
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! dsymatrix*dgsmatrix operator */
-inline _dgematrix operator*(const dsymatrix& matA, const dgsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat(matA.n, matB.n);
-  newmat.zero();
-  
-  const std::vector<dcomponent>::const_iterator matB_data_end =matB.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matB.data.begin(); it!=matB_data_end; it++){
-    for(CPPL_INT i=0; i<matA.n; i++){
-      newmat(i,it->j) += matB(i,it->i)*it->v;
-    }
-  }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/6d/6df12e96d917be2ed4759ddd2e95fcae37c4f04e.svn-base b/cpplapack-r198/.svn/pristine/6d/6df12e96d917be2ed4759ddd2e95fcae37c4f04e.svn-base
deleted file mode 100644
index c8c6596..0000000
--- a/cpplapack-r198/.svn/pristine/6d/6df12e96d917be2ed4759ddd2e95fcae37c4f04e.svn-base
+++ /dev/null
@@ -1,74 +0,0 @@
-//=============================================================================
-/*! _dsymatrix+dgsmatrix operator */
-inline _dgematrix operator+(const _dsymatrix& matA, const dgsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat =matA.to_dgematrix();
-  
-  const std::vector<dcomponent>::const_iterator matB_data_end =matB.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matB.data.begin(); it!=matB_data_end; it++){
-    newmat(it->i,it->j) += it->v;
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _dsymatrix-dgsmatrix operator */
-inline _dgematrix operator-(const _dsymatrix& matA, const dgsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") - (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat =matA.to_dgematrix();
-  
-  const std::vector<dcomponent>::const_iterator matB_data_end =matB.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matB.data.begin(); it!=matB_data_end; it++){
-    newmat(it->i,it->j) -= it->v;
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _dsymatrix*dgsmatrix operator */
-inline _dgematrix operator*(const _dsymatrix& matA, const dgsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat(matA.n, matB.n);
-  newmat.zero();
-  
-  const std::vector<dcomponent>::const_iterator matB_data_end =matB.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matB.data.begin(); it!=matB_data_end; it++){
-    for(CPPL_INT i=0; i<matA.n; i++){
-      newmat(i,it->j) += matB(i,it->i)*it->v;
-    }
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/6d/6df222688dc2b79ad99a34957dd92f41b8796f20.svn-base b/cpplapack-r198/.svn/pristine/6d/6df222688dc2b79ad99a34957dd92f41b8796f20.svn-base
deleted file mode 100644
index f641e20..0000000
--- a/cpplapack-r198/.svn/pristine/6d/6df222688dc2b79ad99a34957dd92f41b8796f20.svn-base
+++ /dev/null
@@ -1,14 +0,0 @@
-//=============================================================================
-/*! _zcovector*zrovector operator */
-inline _zgematrix operator*(const _zcovector& covec, const zrovector& rovec)
-{CPPL_VERBOSE_REPORT;
-  zgematrix newmat(covec.l, rovec.l);
-  for(CPPL_INT i=0; i<newmat.m; i++){
-    for(CPPL_INT j=0; j<newmat.n; j++){
-      newmat(i,j) =covec(i)*rovec(j);
-    }
-  }
-  
-  covec.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/6e/6e5b96bb1269d09348eb8d84cb8af573f2f8bcc4.svn-base b/cpplapack-r198/.svn/pristine/6e/6e5b96bb1269d09348eb8d84cb8af573f2f8bcc4.svn-base
deleted file mode 100644
index 3a6e1de..0000000
--- a/cpplapack-r198/.svn/pristine/6e/6e5b96bb1269d09348eb8d84cb8af573f2f8bcc4.svn-base
+++ /dev/null
@@ -1,46 +0,0 @@
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int L(4);
-  
-  //// make drovector x ////
-  CPPL::drovector x(L);
-  for(int i=0; i<x.l; i++){
-	x(i) =double( rand() /(RAND_MAX/10) );
-  }
-  
-  //// print x in two ways ////
-  cout << "x =\n" << x << endl;
-  for(int i=0; i<x.l; i++){
-	cout << "x(" << i << ") =" << x(i) << endl;
-  }
-  
-  //// make drovector y ////
-  CPPL::drovector y(x);
-  
-  //// print y in two ways ////
-  cout << "y =\n" << y << endl;
-  for(int i=0; i<y.l; i++){
-	cout << "y(" << i << ") =" << y(i) << endl;
-  }
-  
-  //// print x+y ////
-  cout << "x+y=\n" << x+y << endl;
-  
-  //// write/read ////
-  x.write( "tmp.txt" );
-  CPPL::drovector z;
-  z.read( "tmp.txt" );
-  cout << "z-x =\n" << z-x << "<-Should be zero." << endl;
-
-  return 0;
-}
diff --git a/cpplapack-r198/.svn/pristine/6e/6e789611efcc1e2baada812cb8e26849798c4d1a.svn-base b/cpplapack-r198/.svn/pristine/6e/6e789611efcc1e2baada812cb8e26849798c4d1a.svn-base
deleted file mode 100644
index e41a5aa..0000000
--- a/cpplapack-r198/.svn/pristine/6e/6e789611efcc1e2baada812cb8e26849798c4d1a.svn-base
+++ /dev/null
@@ -1,145 +0,0 @@
-/*****************************************************************************/
-/*                                main.cpp                                   */
-/*****************************************************************************/
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include <vector>
-#include "cpplapack.h"
-
-//=============================================================================
-bool qmr
-(
- const CPPL::dgematrix& A,
- CPPL::dcovector& x,
- const double& eps
-)
-{
-  CPPL::dcovector r(x), d(x.l), s(x.l);
-  CPPL::dcovector v, v2(r), w, w2(r), p(x.l), p2, q(x.l);
-  double xi(nrm2(w2)), eta(-1.0), epsilon(1.0), delta(0.0),
-    rho, rho_old(nrm2(v2)),  gamma, gamma_old(1.0), theta, theta_old(0.0),  beta;
-  x.zero();
-  p.zero();
-  q.zero();
-  d.zero();
-  s.zero();
-
-  int itc(0);
-  const int itmax(2*x.l);
-  do{
-    std::cout << "itc=" << itc << ", fabs(damax(r))=" << fabs(damax(r)) << std::endl;
-
-    v =v2/rho_old;
-    w =w2/xi;
-    delta =v%w;
-    p =v -(xi*delta/epsilon)*p;
-    q =w -(rho_old*delta/epsilon)*q;
-    p2 =A*p;
-    epsilon =q%p2;
-    beta =epsilon/delta;
-    v2 =p2-beta*v;
-    rho =nrm2(v2);
-    w2 =CPPL::t(t(q)*A)-beta*w;
-    xi =nrm2(w2);
-    theta =rho/(gamma_old*beta);
-    gamma =1./sqrt(1.+theta*theta);
-    eta = -eta*rho_old*gamma*gamma/(beta*gamma_old*gamma_old);
-    d =eta*p +pow(theta_old*gamma, 2)*d;
-    s =eta*p2 +pow(theta_old*gamma, 2)*s;
-
-    x+=d;
-    r-=s;
-    gamma_old =gamma;
-    rho_old =rho;
-    theta_old =theta;
-    itc++;
-  }while(fabs(damax(r))>eps && itc<itmax);
-  
-  if(fabs(damax(r))<eps){ return 0; }
-  else{ return 1; }
-}
-//=============================================================================
-bool bicg
-(
- const CPPL::dgematrix& A,
- CPPL::dcovector x,
- const double& eps
-)
-{
-  double alpha, beta(0.0);
-  const CPPL::dcovector y(x);
-  CPPL::dcovector p_0(x.l), p_1, q_0(x.l), q_1, Ap1, Aq1;
-  CPPL::dcovector r_1(y-A*x), r_2, s_1(r_1), s_2;
-  //p_0.zero(); q_0.zero();
-  
-  int itc(0);
-  const int itmax(2*x.l);
-  while(fabs(damax(r_1))>eps && ++itc<itmax){
-    std::cout << itc << " " << fabs(damax(y-A*x)) << std::endl;
-    
-    p_1 =r_1 +beta*p_0;
-    q_1 =s_1 +beta*q_0;
-
-    Ap1 =A*p_1;
-    Aq1 =t(t(q_1)*A);
-    alpha =(s_1%r_1)/(q_1%Ap1);
-
-    x +=alpha*p_1;
-
-    r_2 =r_1 -alpha*Ap1;
-    s_2 =s_1 -alpha*Aq1;
-    beta =(s_2%r_2)/(s_1%r_1);
-
-    swap(p_0, p_1);  swap(q_0, q_1);
-    swap(r_1, r_2);  swap(s_1, s_2);
-  }
-  std::cerr << "itc=" << itc << "  fabs(damax(r_1))=" << fabs(damax(r_1)) << std::endl;
-  
-  if(itc<itmax){ return 0; }
-  else{ return 1; }
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-int main(int argc, char** argv)
-{
-  srand(time(NULL));
-  
-  const int size(100);
-  CPPL::dgematrix A(size,size);
-  
-  for(int i=0; i<size; i++){
-    for(int j=0; j<size; j++){
-      A(i,j) =(double(rand())/double(RAND_MAX))*2.0 -1.0;
-    }
-    A(i,i)+=10.;
-  }
-  A.write("A.dgematrix");
-  
-  CPPL::dcovector x(size);
-  for(int i=0; i<size; i++){
-    x(i) =(double(rand())/double(RAND_MAX))*1. -0.5;
-  }
-  x.write("answer.dcovector");//solution
-  std::cerr << "answer=\n" << t(x) << std::endl;
-  
-  CPPL::dcovector y(size);
-  y=A*x;
-  y.write("y.dcovector");
-  
-  double eps(fabs(damax(y))*1e-6);
-  //std::cerr << "eps=" << eps << std::endl;
-  if( qmr(A, y, eps) ){
-    std::cerr << "failed." << std::endl;
-    exit(1);
-  }
-  y.write("solution.dcovector");
-  std::cout << "solution=\n" << t(y) << std::endl;
-  
-  return 0;
-}
diff --git a/cpplapack-r198/.svn/pristine/6e/6e8b40e4bbb898c2ca3146c340984ff9a8aeaed4.svn-base b/cpplapack-r198/.svn/pristine/6e/6e8b40e4bbb898c2ca3146c340984ff9a8aeaed4.svn-base
deleted file mode 100644
index a24b921..0000000
--- a/cpplapack-r198/.svn/pristine/6e/6e8b40e4bbb898c2ca3146c340984ff9a8aeaed4.svn-base
+++ /dev/null
@@ -1,27 +0,0 @@
-CONTENTS
-     inlude\: CPPLapack header files
-        lib\: BLAS and LAPACK libraries for 32bit Windows
-      lib64\: BLAS and LAPACK libraries for 64bit Windows
-  vc_sample\: A sample project for Visual C++ 2008 Express (vcproj)
-              and Visual C++ 2010 Express (vcxproj)
-  README.txt: This file
-
-UNINSTALL
-  Simplly remove the "c:\cpplapack" directory.
-
-LIBRARIES
-  The BLAS and LAPACK libraries are NOT products of CPPLapack.
-  They are originally distributed at http://www.netlib.org/clapack/ .
-  Authors of CPPLapack deeply appliciate the developers of BLAS and LAPACK.
-
-USAGE
-  Add "c:\cpplapack\include" to the include path of your project.
-  You may also need to add either "c:\cpplapack\lib" or "c:\cpplapack\lib64"
-  to the library path of your project and then link with the "libf2c.lib", 
-  "BLAS.lib", and "clapack.lib".
-
-DOCUMENTATION
-  An online documentation is available at http://cpplapack.sourceforge.net/ .
-
-LICENCE
-  CPPLapack is a GPL software.
diff --git a/cpplapack-r198/.svn/pristine/6e/6ea1933aad8c4e033671bdfb197a6499b0fb9298.svn-base b/cpplapack-r198/.svn/pristine/6e/6ea1933aad8c4e033671bdfb197a6499b0fb9298.svn-base
deleted file mode 100644
index a1dad1e..0000000
--- a/cpplapack-r198/.svn/pristine/6e/6ea1933aad8c4e033671bdfb197a6499b0fb9298.svn-base
+++ /dev/null
@@ -1,132 +0,0 @@
-//=============================================================================
-/*! dsymatrix=_dsymatrix operator */
-inline dsymatrix& dsymatrix::operator=(const _dsymatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  shallow_copy(mat);
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! dsymatrix+=_dsymatrix operator */
-inline dsymatrix& dsymatrix::operator+=(const _dsymatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << n << "x" << n << ") += (" << mat.n << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT j=0; j<n; j++){
-    for(CPPL_INT i=j; i<n; i++){
-      darray[j][i] +=mat.darray[j][i];
-    }
-  }
-  
-  mat.destroy();
-  return *this;
-}
-
-//=============================================================================
-/*! dsymatrix-=_dsymatrix operator */
-inline dsymatrix& dsymatrix::operator-=(const _dsymatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a sutraction." << std::endl
-              << "Your input was (" << n << "x" << n << ") -= (" << mat.n << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT j=0; j<n; j++){
-    for(CPPL_INT i=j; i<n; i++){
-      darray[j][i] -=mat.darray[j][i];
-    }
-  }
-  
-  mat.destroy();
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! dsymatrix+_dsymatrix operator */
-inline _dsymatrix operator+(const dsymatrix& matA, const _dsymatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") + (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  for(CPPL_INT j=0; j<matA.n; j++){
-    for(CPPL_INT i=j; i<matA.n; i++){
-      matB.darray[j][i] +=matA.darray[j][i];
-    }
-  }
-  
-  return matB;
-}
-
-//=============================================================================
-/*! dsymatrix-_dsymatrix operator */
-inline _dsymatrix operator-(const dsymatrix& matA, const _dsymatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") - (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  for(CPPL_INT j=0; j<matA.n; j++){
-    for(CPPL_INT i=j; i<matA.n; i++){
-      matB.darray[j][i] =matA.darray[j][i] -matB.darray[j][i];
-    }
-  }
-  
-  return matB;
-}
-
-//=============================================================================
-/*! dsymatrix*_dsymatrix operator */
-inline _dgematrix operator*(const dsymatrix& matA, const _dsymatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") * (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  matB.complete();
-  
-  dgematrix newmat( matA.n, matA.n );
-  char side ='l';
-  char uplo ='l';
-  double alpha =1.;
-  double beta =0.;
-  
-  dsymm_( &side, &uplo, &matA.n, &matB.n, &alpha, matA.array, &matA.n, matB.array, &matB.m, &beta, newmat.array, &newmat.m );
-  
-  matB.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/6e/6eb6ef5675a5e205bb760caa4eb16f86863a59b9.svn-base b/cpplapack-r198/.svn/pristine/6e/6eb6ef5675a5e205bb760caa4eb16f86863a59b9.svn-base
deleted file mode 100644
index 110b7a3..0000000
--- a/cpplapack-r198/.svn/pristine/6e/6eb6ef5675a5e205bb760caa4eb16f86863a59b9.svn-base
+++ /dev/null
@@ -1,68 +0,0 @@
-//=============================================================================
-/*! _zgematrix+zhematrix operator */
-inline _zgematrix operator+(const zhematrix& matA, const _zgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<matA.n; i++){
-    for(CPPL_INT j=0; j<matA.n; j++){
-      matB(i,j) += matA(i,j);
-    }
-  }
-  
-  return matB;
-}
-
-//=============================================================================
-/*! _zgematrix-zgematrix operator */
-inline _zgematrix operator-(const zhematrix& matA, const _zgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") - (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  for(CPPL_INT i=0; i<matA.n; i++){
-    for(CPPL_INT j=0; j<matA.n; j++){
-      matB(i,j) =matA(i,j)-matB(i,j);
-    }
-  }
-  
-  return matB;
-}
-
-//=============================================================================
-/*! _zgematrix*zgematrix operator */
-inline _zgematrix operator*(const zhematrix& matA, const _zgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat( matA.n, matB.n );
-  char side ='l';
-  char uplo ='l';
-  comple alpha =comple(1.,0.);
-  comple beta =comple(0.,0.);
-
-  zhemm_( &side, &uplo, &matA.n, &matB.n, &alpha, matA.array, &matA.n, matB.array, &matB.m, &beta, newmat.array, &newmat.m );
-  
-  matB.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/6e/6ec5f8e5794b0e8d2c1cc4e218959fce6ce9e5f6.svn-base b/cpplapack-r198/.svn/pristine/6e/6ec5f8e5794b0e8d2c1cc4e218959fce6ce9e5f6.svn-base
deleted file mode 100644
index a5f5b59..0000000
--- a/cpplapack-r198/.svn/pristine/6e/6ec5f8e5794b0e8d2c1cc4e218959fce6ce9e5f6.svn-base
+++ /dev/null
@@ -1,194 +0,0 @@
-extern "C" {
-  // Level 1 BLAS
-  /* Vector rotation: x := c*x[i] + s*y[i], y[i] := - s*x[i] + c*y[i] */
-  void zdrot_( const CPPL_INT *N, std::complex<double> *x, const CPPL_INT *incx,
-               std::complex<double> *y, const CPPL_INT *incy,
-               const double *c, const double *s );
-  /* x <--> y */
-  void zswap_( const CPPL_INT *N, std::complex<double> *x, const CPPL_INT *incx,
-               std::complex<double> *y, const CPPL_INT *incy );
-  /* x := alpha * x  (alpha: double) */
-  void zdscal_( const CPPL_INT *N, const double *alpha,
-                std::complex<double> *x, const CPPL_INT *incx );
-  /* x := alpha * x  (alpha: double complex)  */
-  void zscal_( const CPPL_INT *N, const std::complex<double> *alpha,
-               std::complex<double> *x, const CPPL_INT *incx );
-  /* y := x */
-  void zcopy_( const CPPL_INT *N, const std::complex<double> *x, const CPPL_INT *incx,
-               std::complex<double> *y, const CPPL_INT *incy );
-  /* y := alpha * x + y */
-  void zaxpy_( const CPPL_INT *N, const std::complex<double> *alpha,
-               const std::complex<double> *x, const CPPL_INT *incx,
-               std::complex<double> *y, const CPPL_INT *incy );
-  /* return x^T y */
-  std::complex<double> zdotu_( const CPPL_INT *N, const std::complex<double> *x,
-                               const CPPL_INT *incx, const std::complex<double> *y,
-                               const CPPL_INT *incy );
-  /* return conjg(x)^T y */
-  std::complex<double> zdotc_( const CPPL_INT *N, const std::complex<double> *x,
-                               const CPPL_INT *incx, const std::complex<double> *y,
-                               const CPPL_INT *incy );
-  /* return N2 norm */
-  double dznrm2_( const CPPL_INT *N, const std::complex<double> *x,
-                  const CPPL_INT *incx );
-  /* return sum of abs(x[i]) */
-  double dzasum_( const CPPL_INT *N, const std::complex<double> *x,
-                  const CPPL_INT *incx );
-  /* return the index of element having the largest absolute value */
-  CPPL_INT izamax_( const CPPL_INT *N, const std::complex<double> *x, const CPPL_INT *incx );
-  
-  // Level 2 BLAS
-  /* y := alpha * A * x + beta * y for General M by N Matrix */
-  void zgemv_( const char *trans, const CPPL_INT *M, const CPPL_INT *N,
-               const std::complex<double> *alpha, const std::complex<double> *a,
-               const CPPL_INT *lda, const std::complex<double> *x, const CPPL_INT *incx,
-               const std::complex<double> *beta, std::complex<double> *y,
-               const CPPL_INT *incy );
-  /* y := alpha * A * x + beta * y for General M by N Band Matrix */
-  void zgbmv_( const char *trans, const CPPL_INT *M, const CPPL_INT *N,
-               const CPPL_INT *KL, const CPPL_INT *KU,
-               const std::complex<double> *alpha, const std::complex<double> *a,
-               const CPPL_INT *lda, const std::complex<double> *x, const CPPL_INT *incx,
-               const std::complex<double> *beta, std::complex<double> *y,
-               const CPPL_INT *incy );
-  /* y := alpha * A * x + beta * y for Hermitian Matrix */
-  void zhemv_( const char *uplo, const CPPL_INT *N,
-               const std::complex<double> *alpha, const std::complex<double> *a,
-               const CPPL_INT *lda, const std::complex<double> *x, const CPPL_INT *incx,
-               const std::complex<double> *beta, std::complex<double> *y,
-               const CPPL_INT *incy );
-  /* y := alpha * A * x + beta * y for Hermitian Band Matrix */
-  void zhbmv_( const char *uplo, const CPPL_INT *N, const CPPL_INT *k,
-               const std::complex<double> *alpha, const std::complex<double> *a,
-               const CPPL_INT *lda, const std::complex<double> *x, const CPPL_INT *incx,
-               const std::complex<double> *beta, std::complex<double> *y,
-               const CPPL_INT *incy );
-  /* y := alpha * A * x + beta * y for Hermitian Packed Matrix */
-  void zhpmv_( const char *uplo, const CPPL_INT *N,
-               const std::complex<double> *alpha, const std::complex<double> *ap,
-               const std::complex<double> *x, const CPPL_INT *incx,
-               const std::complex<double> *beta, std::complex<double> *y,
-               const CPPL_INT *incy );
-  
-  /* x := A * x for Triangular Matrix */
-  void ztrmv_( const char *uplo, const char *trans, const char *diag,
-               const CPPL_INT *N, const std::complex<double> *a, const CPPL_INT *lda,
-               std::complex<double> *x, const CPPL_INT *incx );
-  /* x := A * x for Triangular (Banded Storage) Matrix */
-  void ztbmv_( const char *uplo, const char *trans, const char *diag,
-               const CPPL_INT *N, const CPPL_INT *k, const std::complex<double> *a,
-               const CPPL_INT *lda, std::complex<double> *x, const CPPL_INT *incx );
-  /* x := A * x for Triangular (Packed Storage) Matrix */
-  void ztpmv_( const char *uplo, const char *trans, const char *diag,
-               const CPPL_INT *N, const std::complex<double> *ap,
-               std::complex<double> *x, const CPPL_INT *incx );
-  
-  /* Solve A * x = b for Triangular Matrix */
-  void ztrsv_( const char *uplo, const char *trans, const char *diag,
-               const CPPL_INT *N, const std::complex<double> *a, const CPPL_INT *lda,
-               std::complex<double> *x, const CPPL_INT *incx );
-  /* Solve A * x = b for Triangular (Banded Storage) Matrix */
-  void ztbsv_( const char *uplo, const char *trans, const char *diag,
-               const CPPL_INT *N, const CPPL_INT *k, const std::complex<double> *a,
-               const CPPL_INT *lda, std::complex<double> *x, const CPPL_INT *incx );
-  /* Solve A * x = b for Triangular (Packed Storage) Matrix */
-  void ztpsv_( const char *uplo, const char *trans, const char *diag,
-               const CPPL_INT *N, const std::complex<double> *ap,
-               std::complex<double> *x, const CPPL_INT *incx );
-  
-  /* A := alpha * x * y' + A  (A: M by N Matrix) */
-  void zgeru_( const CPPL_INT *M, const CPPL_INT *N, const std::complex<double> *alpha,
-               const std::complex<double> *x, const CPPL_INT *incx,
-               const std::complex<double> *y, const CPPL_INT *incy,
-               std::complex<double> *a, const CPPL_INT *lda );
-  /* A := alpha * x * conjg(y') + A  (A: M by N Matrix) */
-  void zgerc_( const CPPL_INT *M, const CPPL_INT *N, const std::complex<double> *alpha,
-               const std::complex<double> *x, const CPPL_INT *incx,
-               const std::complex<double> *y, const CPPL_INT *incy,
-               std::complex<double> *a, const CPPL_INT *lda );
-  /* A := alpha * x * conjg(x') + A  (A: Hermitian N by N Matrix) */
-  void zher_( const char *uplo, const CPPL_INT *N, const double *alpha,
-              const std::complex<double> *x, const CPPL_INT *incx,
-              std::complex<double> *a, const CPPL_INT *lda );
-  /* A := alpha * x * conjg(x') + A
-     (A: Hermitian N by N Packed Storage Matrix) */
-  void zhpr_( const char *uplo, const CPPL_INT *N, const double *alpha,
-              const std::complex<double> *x, const CPPL_INT *incx,
-              std::complex<double> *ap );
-  /* A := alpha * x * conjg(y') + conjg(alpha) * y * conjg(x') + A
-     (A: Hermitian N by N Matrix) */
-  void zher2_( const char *uplo, const CPPL_INT *N,
-               const std::complex<double> *alpha, const std::complex<double> *x,
-               const CPPL_INT *incx, const std::complex<double> *y,
-               const CPPL_INT *incy, std::complex<double> *a, const CPPL_INT *lda );
-  /* A := alpha * x * conjg(y') + conjg(alpha) * y * conjg(x') + A
-     (A: Hermitian N by N Packed Matrix) */
-  void zhpr2_( const char *uplo, const CPPL_INT *N,
-               const std::complex<double> *alpha, const std::complex<double> *x,
-               const CPPL_INT *incx, const std::complex<double> *y,
-               const CPPL_INT *incy, std::complex<double> *ap );
-  
-  // Level 3 BLAS
-  /* C := alpha * A * B + beta * C  (C: M by N Matrix) */
-  void zgemm_( const char *transa, const char *transb, const CPPL_INT *M,
-               const CPPL_INT *N, const CPPL_INT *k, const std::complex<double> *alpha,
-               const std::complex<double> *a, const CPPL_INT *lda,
-               const std::complex<double> *b, const CPPL_INT *ldb,
-               const std::complex<double> *beta, std::complex<double> *c,
-               const CPPL_INT *ldc );
-  /* C := alpha * A * B + beta * C
-     (A: Symmetric Matrix,  B, C: M by N Matrices) */
-  void zsymm_( const char *side, const char *uplo, const CPPL_INT *M,
-               const CPPL_INT *N, const std::complex<double> *alpha,
-               const std::complex<double> *a, const CPPL_INT *lda,
-               const std::complex<double> *b, const CPPL_INT *ldb,
-               const std::complex<double> *beta, std::complex<double> *c,
-               const CPPL_INT *ldc );
-  /* C := alpha * A * B + beta * C
-     (A: Hermitian Matrix,  B, C: M by N Matrices) */
-  void zhemm_( const char *side, const char *uplo, const CPPL_INT *M,
-               const CPPL_INT *N, const std::complex<double> *alpha,
-               const std::complex<double> *a, const CPPL_INT *lda,
-               const std::complex<double> *b, const CPPL_INT *ldb,
-               const std::complex<double> *beta, std::complex<double> *c,
-               const CPPL_INT *ldc );
-  /* C:= alpha * A * A' + beta * C
-     (A: N by k Matrix,  C: Symmetric Matrix) */
-  void zsyrk_( const char *uplo, const char *trans, const CPPL_INT *N,
-               const CPPL_INT *k, const std::complex<double> *alpha,
-               const std::complex<double> *a, const CPPL_INT *lda,
-               const std::complex<double> *beta, std::complex<double> *c,
-               const CPPL_INT *ldc );
-  /* C:= alpha * A * conjg(A') + beta * C
-     (A: N by k Matrix,  C: Hermirian Matrix) */
-  void zherk_( const char *uplo, const char *trans, const CPPL_INT *N,
-               const CPPL_INT *k, const double *alpha,
-               const std::complex<double> *a, const CPPL_INT *lda,
-               const double *beta, std::complex<double> *c, const CPPL_INT *ldc );
-  /* C := alpha * A * B' + alpha * B * A' + beta * C
-     (A, B: N by k Marices,  C: Symmetric Matrix ) */
-  void zsyr2k_( const char *uplo, const char *trans, const CPPL_INT *N,
-                const CPPL_INT *k, const std::complex<double> *alpha,
-                const std::complex<double> *a, const CPPL_INT *lda,
-                const std::complex<double> *b, const CPPL_INT *ldb,
-                const std::complex<double> *beta, std::complex<double> *c,
-                const CPPL_INT *ldc );
-  /* C := alpha * A * conjg(B') + conjg(alpha) * B * conjg(A') + beta * C
-     (A, B: N by k Marices,  C: Hermitian Matrix ) */
-  void zher2k_( const char *uplo, const char *trans, const CPPL_INT *N,
-                const CPPL_INT *k, const std::complex<double> *alpha,
-                const std::complex<double> *a, const CPPL_INT *lda,
-                const std::complex<double> *b, const CPPL_INT *ldb,
-                const double *beta, std::complex<double> *c, const CPPL_INT *ldc );
-  /* B := alpha * A * B  (A: Triangular Matrix,  B: M by N Matrix) */
-  void ztrmm_( const char *side, const char *uplo, const char *transa,
-               const char *diag, const CPPL_INT *M, const CPPL_INT *N,
-               const std::complex<double> *alpha, const std::complex<double> *a,
-               const CPPL_INT *lda, std::complex<double> *b, const CPPL_INT *ldb );
-  /* Solve A * X = alpha * B
-     (A: Triangular Matrix,  X, B: M by N Matrices) */
-  void ztrsm_( const char *side, const char *uplo, const char *transa,
-               const char *diag, const CPPL_INT *M, const CPPL_INT *N,
-               const std::complex<double> *alpha, const std::complex<double> *a,
-               const CPPL_INT *lda, std::complex<double> *b, const CPPL_INT *ldb );
-}
diff --git a/cpplapack-r198/.svn/pristine/6e/6ee8590da43125eadd7ca6296c387ca19dfb720f.svn-base b/cpplapack-r198/.svn/pristine/6e/6ee8590da43125eadd7ca6296c387ca19dfb720f.svn-base
deleted file mode 100644
index f1dd51e..0000000
--- a/cpplapack-r198/.svn/pristine/6e/6ee8590da43125eadd7ca6296c387ca19dfb720f.svn-base
+++ /dev/null
@@ -1,70 +0,0 @@
-//=============================================================================
-/*! return a transposed row vector */
-inline _zrovector t(const _zcovector& covec)
-{CPPL_VERBOSE_REPORT;
-  _zrovector rovec;
-  rovec.l =covec.l;
-  delete [] rovec.array;
-  rovec.array =covec.array;
-  
-  return rovec;
-}
-
-//=============================================================================
-/*! return its conjugated vector */
-inline _zcovector conj(const _zcovector& vec)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<vec.l; i++){
-    vec(i) =std::conj(vec(i));
-  }
-  return vec;
-}
-
-//=============================================================================
-/*! return a conjugate transposed row vector */
-inline _zrovector conjt(const _zcovector& covec)
-{CPPL_VERBOSE_REPORT;
-  zrovector rovec(covec.l);
-  
-  for(CPPL_INT i=0; i<covec.l; i++){
-    rovec(i) =std::conj(covec(i));
-  }
-  
-  covec.destroy();
-  return _(rovec);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! return its Euclidean norm */
-inline double nrm2(const _zcovector& vec)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT inc =1;
-  double val =dznrm2_(&vec.l, vec.array, &inc);
-  vec.destroy();
-  return val;
-}
-
-//=============================================================================
-/*! return the index of element having the largest absolute value
- in 0-based numbering system */
-inline CPPL_INT idamax(const _zcovector& vec)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT inc =1;
-  CPPL_INT i =izamax_(&vec.l, vec.array, &inc) -1;
-  vec.destroy();
-  return i;
-}
-
-//=============================================================================
-/*! return its largest absolute value */
-inline comple damax(const _zcovector& vec)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT inc =1;
-  comple val =vec.array[izamax_(&vec.l, vec.array, &inc) -1];
-  vec.destroy();
-  return val;
-}
diff --git a/cpplapack-r198/.svn/pristine/6f/6f261e8b35c84ac79cb19e8c4e5f67c4809c4a0a.svn-base b/cpplapack-r198/.svn/pristine/6f/6f261e8b35c84ac79cb19e8c4e5f67c4809c4a0a.svn-base
deleted file mode 100644
index dd7b539..0000000
--- a/cpplapack-r198/.svn/pristine/6f/6f261e8b35c84ac79cb19e8c4e5f67c4809c4a0a.svn-base
+++ /dev/null
@@ -1,16 +0,0 @@
-//=============================================================================
-/*! nullify all the matrix data */
-inline void _dssmatrix::nullify() const
-{CPPL_VERBOSE_REPORT;
-  n=0;
-  data.clear();
-  line.clear();
-}
-
-//=============================================================================
-/*! destroy all the matrix data */
-inline void _dssmatrix::destroy() const
-{CPPL_VERBOSE_REPORT;
-  data.clear();
-  line.clear();
-}
diff --git a/cpplapack-r198/.svn/pristine/70/7023b7eb3b5eec0f5c9995524eb5bc1085ddc192.svn-base b/cpplapack-r198/.svn/pristine/70/7023b7eb3b5eec0f5c9995524eb5bc1085ddc192.svn-base
deleted file mode 100644
index d07bce2..0000000
--- a/cpplapack-r198/.svn/pristine/70/7023b7eb3b5eec0f5c9995524eb5bc1085ddc192.svn-base
+++ /dev/null
@@ -1,21 +0,0 @@
-//=============================================================================
-/*! +zhematrix operator */
-inline const zhematrix& operator+(const zhematrix& mat)
-{CPPL_VERBOSE_REPORT;
-  return mat;
-}
-
-//=============================================================================
-/*! -zgematrix operator */
-inline _zhematrix operator-(const zhematrix& mat)
-{CPPL_VERBOSE_REPORT;
-  zhematrix newmat(mat.n);
-  
-  for(CPPL_INT j=0; j<mat.n; j++){
-    for(CPPL_INT i=j; i<mat.n; i++){
-      newmat(i,j) =-mat(i,j);
-    }
-  }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/70/703be71630666f3e8fb68bc8a62d9e39b9643c36.svn-base b/cpplapack-r198/.svn/pristine/70/703be71630666f3e8fb68bc8a62d9e39b9643c36.svn-base
deleted file mode 100644
index 3c00f56..0000000
--- a/cpplapack-r198/.svn/pristine/70/703be71630666f3e8fb68bc8a62d9e39b9643c36.svn-base
+++ /dev/null
@@ -1,57 +0,0 @@
-#include <iostream>
-#include "cpplapack.h"
-
-
-int main(int argc, char *argv[])
-{
-  CPPL::zhematrix Z(4), W(4);
-  // Assign values to lower triangle only.
-  for( int i = 0; i < Z.n; i++ ) {
-    for( int j = 0; j <=i; j++ ) {
-      std::complex<double> x = std::complex<double>(i,j);
-      if( i == j ) {
-        Z(i,j) = std::complex<double>(i,0);
-      } else {
-        Z(i,j) = x;
-      }
-      std::cout << "(" << i << "," << j << "):Z(i,j)=" << Z(i,j) << std::endl;
-    }
-  }
-  
-  std::cout << "Z = " << Z << std::endl;
-
-  // Assing values to upper triangle only.
-  for( int i = 0; i < W.n; i++ ) {
-    for( int j = i; j < W.n; j++ ) {
-      std::complex<double> x = std::complex<double>(j,i);
-      if( i == j ) { 
-        W(i,j) = std::complex<double>(j,0);
-      } else {
-        W(i,j) = x;
-      }
-      std::cout << "(" << i << "," << j << "):W(i,j)=" << W(i,j) << std::endl;
-    }
-  }
-
-  std::cout << "W = " << W << std::endl;
-
-  std::cout << "Z+W = " << Z+W << "<-Should have all imaginary parts zero." << std::endl;
-  std::cout << "Z-W = " << Z-W << "<-Should have all real parts zero." << std::endl;
-
-  CPPL::zgematrix G(Z.n, Z.n);
-  for( int i = 0; i < Z.n; i++ ) {
-    for( int j = 0; j < Z.n; j++ ) {
-      std::cout << "sqrt( " << Z(i,j) << " ) = " << std::sqrt( Z(i,j) ) << std::endl;
-        G(i,j) = std::sqrt( Z(i,j) ) * std::sqrt( Z(i,j) );
-    }
-  }
-
-  std::cout << "G-Z = " << G-Z << "<-Should be zero." << std::endl;
-
-  W.write( "zhe.txt" );
-  CPPL::zhematrix WW;
-  WW.read( "zhe.txt" );
-  std::cout << "W-WW = " << W-WW << "<-Should be zero." << std::endl;
-  return 0;
-}
-
diff --git a/cpplapack-r198/.svn/pristine/70/709df5684d14ef09bf3c8c330ed41e2735ada902.svn-base b/cpplapack-r198/.svn/pristine/70/709df5684d14ef09bf3c8c330ed41e2735ada902.svn-base
deleted file mode 100644
index a9ab9d9..0000000
--- a/cpplapack-r198/.svn/pristine/70/709df5684d14ef09bf3c8c330ed41e2735ada902.svn-base
+++ /dev/null
@@ -1,113 +0,0 @@
-//=============================================================================
-/*! dcovector=_dcovector operator */
-inline dcovector& dcovector::operator=(const _dcovector& vec)
-{CPPL_VERBOSE_REPORT;
-  shallow_copy(vec);
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! dcovector+=_dcovector operator */
-inline dcovector& dcovector::operator+=(const _dcovector& vec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( l!=vec.l ){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make a sumation." << std::endl
-              << "Your input was (" << l << ") += (" << vec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<l; i++){ array[i]+=vec.array[i]; }
-  
-  vec.destroy();
-  return *this;
-}
-
-//=============================================================================
-/*! dcovector operator-= */
-inline dcovector& dcovector::operator-=(const _dcovector& vec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( l!=vec.l ){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make a subtraction." << std::endl
-              << "Your input was (" << l << ") -= (" << vec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<l; i++){ array[i]-=vec.array[i]; }
-  
-  vec.destroy();
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! dcovector+dcovector operator */
-inline _dcovector operator+(const dcovector& vecA, const _dcovector& vecB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vecA.l!=vecB.l){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make a sumation." << std::endl
-              << "Your input was (" << vecA.l << ") + (" << vecB.l << ")." << std::endl;
-    exit(1);
-  }
-  
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<vecA.l; i++){ vecB.array[i]+=vecA.array[i]; }
-  
-  return vecB;
-}
-
-//=============================================================================
-/*! dcovector-dcovector operator */
-inline _dcovector operator-(const dcovector& vecA, const _dcovector& vecB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vecA.l!=vecB.l){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make a subtraction." << std::endl
-              << "Your input was (" << vecA.l << ") - (" << vecB.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<vecA.l; i++){
-    vecB.array[i] =vecA.array[i]-vecB.array[i];
-  }
-  
-  return vecB;
-}
-
-//=============================================================================
-/*! dcovector^T*dcovector operator (inner product) */
-inline double operator%(const dcovector& vecA, const _dcovector& vecB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vecA.l!=vecB.l){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make a dot product." << std::endl
-              << "Your input was (" << vecA.l << ") % (" << vecB.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  CPPL_INT inc =1;
-  
-  double val =ddot_( &vecA.l, vecA.array, &inc, vecB.array, &inc );
-  
-  vecB.destroy();
-  return val;
-}
diff --git a/cpplapack-r198/.svn/pristine/71/7111f28e443592ec0aa665bc9693da6e87a47cb3.svn-base b/cpplapack-r198/.svn/pristine/71/7111f28e443592ec0aa665bc9693da6e87a47cb3.svn-base
deleted file mode 100644
index 0c5ee4f..0000000
--- a/cpplapack-r198/.svn/pristine/71/7111f28e443592ec0aa665bc9693da6e87a47cb3.svn-base
+++ /dev/null
@@ -1,71 +0,0 @@
-//=============================================================================
-/*! _zgematrix+zhematrix operator */
-inline _zgematrix operator+(const _zgematrix& matA, const zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT c=0; c<matB.vol; c++){
-    matA(matB.indx[c],matB.jndx[c]) += matB.array[c];
-  }
-  
-  return matA;
-}
-
-//=============================================================================
-/*! _zgematrix-zhematrix operator */
-inline _zgematrix operator-(const _zgematrix& matA, const zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") - (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //// change sign ////
-  for(CPPL_INT i=0; i<matA.m*matA.n; i++){
-    matA.array[i]=-matA.array[i];
-  }
-  
-  //// add ////
-  for(CPPL_INT c=0; c<matB.vol; c++){
-    matA(matB.indx[c],matB.jndx[c]) += matB.array[c];
-  }
-  
-  return matA;
-}
-
-//=============================================================================
-/*! _zgematrix*zhematrix operator */
-inline _zgematrix operator*(const _zgematrix& matA, const zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(matA.m, matB.n);
-  newmat.zero();
-  
-  for(CPPL_INT c=0; c<matB.vol; c++){
-    for(CPPL_INT i=0; i<matA.m; i++){
-      newmat(i,matB.jndx[c]) += matA(i,matB.indx[c])*matB.array[c];
-    }
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/71/716564eadcf74368262ee13766d26a5981c7c0de.svn-base b/cpplapack-r198/.svn/pristine/71/716564eadcf74368262ee13766d26a5981c7c0de.svn-base
deleted file mode 100644
index 8961d41..0000000
--- a/cpplapack-r198/.svn/pristine/71/716564eadcf74368262ee13766d26a5981c7c0de.svn-base
+++ /dev/null
@@ -1,1012 +0,0 @@
-%!PS-Adobe-3.0 EPSF-3.0
-%%BoundingBox: 23 442 399 520
-%%Title: dssmatrix-put
-%%CreationDate: Thu Nov  4 02:04:07 2004
-%%Creator: Tgif-4.1.43-QPL written by William Chia-Wei Cheng (bill.cheng@acm.org)
-%%ProducedBy: (unknown)
-%%Pages: 1
-%%DocumentFonts: (atend)
-%%EndComments
-%%BeginProlog
-
-/tgifdict 88 dict def
-tgifdict begin
-
-/tgifellipsedict 6 dict def
-tgifellipsedict /mtrx matrix put
-
-/TGEL % tgifellipse
- { tgifellipsedict begin
-      /yrad exch def
-      /xrad exch def
-      /y exch def
-      /x exch def
-      /savematrix mtrx currentmatrix def
-      x y translate
-      xrad yrad scale
-      0 0 1 0 360 arc
-      savematrix setmatrix
-   end
- } def
-
-/tgifarrowtipdict 8 dict def
-tgifarrowtipdict /mtrx matrix put
-
-/TGAT % tgifarrowtip
- { tgifarrowtipdict begin
-      /dy exch def
-      /dx exch def
-      /h exch def
-      /w exch def
-      /y exch def
-      /x exch def
-      /savematrix mtrx currentmatrix def
-      x y translate
-      dy dx atan rotate
-      0 0 moveto
-      w neg h lineto
-      w neg h neg lineto
-      savematrix setmatrix
-   end
- } def
-
-/tgifpatdict 10 dict def
-
-/tgifpatbyte
- { currentdict /retstr get exch
-   pat i cellsz mod get put
- } def
-
-/tgifpatproc
- { 0 1 widthlim {tgifpatbyte} for retstr
-   /i i 1 add def
- } def
-
-/TGPF % tgifpatfill
- { tgifpatdict begin
-      /h exch def
-      /w exch def
-      /lty exch def
-      /ltx exch def
-      /cellsz exch def
-      /pat exch def
-
-      /widthlim w cellsz div cvi 1 sub def
-      /retstr widthlim 1 add string def
-      /i 0 def
-
-      tgiforigctm setmatrix
-      ltx lty translate
-      w h true [1 0 0 1 0 0] {tgifpatproc} imagemask
-      ltx neg lty neg translate
-   end
- } def
-
-/pat3 <8000000008000000> def
-/pat4 <8800000022000000> def
-/pat5 <8800220088002200> def
-/pat6 <8822882288228822> def
-/pat7 <aa55aa55aa55aa55> def
-/pat8 <77dd77dd77dd77dd> def
-/pat9 <77ffddff77ffddff> def
-/pat10 <77ffffff77ffffff> def
-/pat11 <7fffffff7fffffff> def
-/pat12 <8040200002040800> def
-/pat13 <40a00000040a0000> def
-/pat14 <ff888888ff888888> def
-/pat15 <ff808080ff080808> def
-/pat16 <f87422478f172271> def
-/pat17 <038448300c020101> def
-/pat18 <081c22c180010204> def
-/pat19 <8080413e080814e3> def
-/pat20 <8040201008040201> def
-/pat21 <8844221188442211> def
-/pat22 <77bbddee77bbddee> def
-/pat23 <c1e070381c0e0783> def
-/pat24 <7fbfdfeff7fbfdfe> def
-/pat25 <3e1f8fc7e3f1f87c> def
-/pat26 <0102040810204080> def
-/pat27 <1122448811224488> def
-/pat28 <eeddbb77eeddbb77> def
-/pat29 <83070e1c3870e0c1> def
-/pat30 <fefdfbf7efdfbf7f> def
-/pat31 <7cf8f1e3c78f1f3e> def
-
-/TGMAX
- { exch dup 3 1 roll exch dup 3 1 roll gt { pop } { exch pop } ifelse
- } def
-/TGMIN
- { exch dup 3 1 roll exch dup 3 1 roll lt { pop } { exch pop } ifelse
- } def
-/TGSW { stringwidth pop } def
-
-/bd { bind def } bind def
-
-/GS { gsave } bd
-/GR { grestore } bd
-/NP { newpath } bd
-/CP { closepath } bd
-/CHP { charpath } bd
-/CT { curveto } bd
-/L { lineto } bd
-/RL { rlineto } bd
-/M { moveto } bd
-/RM { rmoveto } bd
-/S { stroke } bd
-/F { fill } bd
-/TR { translate } bd
-/RO { rotate } bd
-/SC { scale } bd
-/MU { mul } bd
-/DI { div } bd
-/DU { dup } bd
-/NE { neg } bd
-/AD { add } bd
-/SU { sub } bd
-/PO { pop } bd
-/EX { exch } bd
-/CO { concat } bd
-/CL { clip } bd
-/EC { eoclip } bd
-/EF { eofill } bd
-/IM { image } bd
-/IMM { imagemask } bd
-/ARY { array } bd
-/SG { setgray } bd
-/RG { setrgbcolor } bd
-/SD { setdash } bd
-/W { setlinewidth } bd
-/SM { setmiterlimit } bd
-/SLC { setlinecap } bd
-/SLJ { setlinejoin } bd
-/SH { show } bd
-/FF { findfont } bd
-/MS { makefont setfont } bd
-/AR { arcto 4 {pop} repeat } bd
-/CURP { currentpoint } bd
-/FLAT { flattenpath strokepath clip newpath } bd
-/TGSM { tgiforigctm setmatrix } def
-/TGRM { savematrix setmatrix } def
-
-end
-
-%%EndProlog
-%%Page: 1 1
-
-%%PageBoundingBox: 23 442 399 520
-tgifdict begin
-/tgifsavedpage save def
-
-1 SM
-1 W
-
-0 SG
-
-72 0 MU 72 8.203 MU TR
-72 128 DI 100.000 MU 100 DI DU NE SC
-
-GS
-
-/tgiforigctm matrix currentmatrix def
-
-% BOX
-0 SG
-GS
-   10 SM
-   GS
-      NP 652 128 M 708 128 L 708 164 L 652 164 L CP
-      S
-   GR
-GR
-
-% BOX
-0 SG
-GS
-   10 SM
-   GS
-      NP 552 128 M 608 128 L 608 164 L 552 164 L CP
-      S
-   GR
-GR
-
-% BOX
-0 SG
-GS
-   NP 496 128 M 552 128 L 552 164 L 496 164 L CP EC NP
-   pat5 8 488 120 72 48 TGPF
-GR
-GS
-   10 SM
-   GS
-      NP 496 128 M 552 128 L 552 164 L 496 164 L CP
-      S
-   GR
-GR
-
-% BOX
-0 SG
-GS
-   NP 440 128 M 496 128 L 496 164 L 440 164 L CP EC NP
-   pat5 8 432 120 72 48 TGPF
-GR
-GS
-   10 SM
-   GS
-      NP 440 128 M 496 128 L 496 164 L 440 164 L CP
-      S
-   GR
-GR
-
-% BOX
-0 SG
-GS
-   NP 340 128 M 396 128 L 396 164 L 340 164 L CP EC NP
-   pat5 8 336 120 64 48 TGPF
-GR
-GS
-   10 SM
-   GS
-      NP 340 128 M 396 128 L 396 164 L 340 164 L CP
-      S
-   GR
-GR
-
-% BOX
-0 SG
-GS
-   NP 240 128 M 296 128 L 296 164 L 240 164 L CP EC NP
-   pat5 8 232 120 72 48 TGPF
-GR
-GS
-   10 SM
-   GS
-      NP 240 128 M 296 128 L 296 164 L 240 164 L CP
-      S
-   GR
-GR
-
-% BOX
-0 SG
-GS
-   NP 184 128 M 240 128 L 240 164 L 184 164 L CP EC NP
-   pat5 8 176 120 72 48 TGPF
-GR
-GS
-   10 SM
-   GS
-      NP 184 128 M 240 128 L 240 164 L 184 164 L CP
-      S
-   GR
-GR
-
-% BOX
-0 SG
-GS
-   NP 128 128 M 184 128 L 184 164 L 128 164 L CP EC NP
-   pat5 8 120 120 72 48 TGPF
-GR
-GS
-   10 SM
-   GS
-      NP 128 128 M 184 128 L 184 164 L 128 164 L CP
-      S
-   GR
-GR
-
-% TEXT
-NP
-0 SG
-   GS
-      1 W
-      156 152 M
-      GS
-        GS
-        0
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (0) TGSW 
-        AD
-        GR
-      2 DI NE 0 RM
-            0 SG
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (0) SH
-      GR
-   GR
-
-% TEXT
-NP
-0 SG
-   GS
-      1 W
-      212 152 M
-      GS
-        GS
-        0
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (1) TGSW 
-        AD
-        GR
-      2 DI NE 0 RM
-            0 SG
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (1) SH
-      GR
-   GR
-
-% TEXT
-NP
-0 SG
-   GS
-      1 W
-      268 152 M
-      GS
-        GS
-        0
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (2) TGSW 
-        AD
-        GR
-      2 DI NE 0 RM
-            0 SG
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (2) SH
-      GR
-   GR
-
-% TEXT
-NP
-0 SG
-   GS
-      1 W
-      368 152 M
-      GS
-        GS
-        0
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (c) TGSW 
-        AD
-        GR
-      2 DI NE 0 RM
-            0 SG
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (c) SH
-      GR
-   GR
-
-% TEXT
-NP
-0 SG
-   GS
-      1 W
-      468 152 M
-      GS
-        GS
-        0
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (vol-2) TGSW 
-        AD
-        GR
-      2 DI NE 0 RM
-            0 SG
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (vol-2) SH
-      GR
-   GR
-
-% TEXT
-NP
-0 SG
-   GS
-      1 W
-      680 152 M
-      GS
-        GS
-        0
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (cap-1) TGSW 
-        AD
-        GR
-      2 DI NE 0 RM
-            0 SG
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (cap-1) SH
-      GR
-   GR
-
-% OVAL
-0 SG
-NP 306 146 2 2 TGEL F
-GS
-   GS
-      NP 306 146 2 2 TGEL
-      3 W
-      S
-   GR
-GR
-
-% OVAL
-0 SG
-NP 318 146 2 2 TGEL F
-GS
-   GS
-      NP 318 146 2 2 TGEL
-      3 W
-      S
-   GR
-GR
-
-% OVAL
-0 SG
-NP 330 146 2 2 TGEL F
-GS
-   GS
-      NP 330 146 2 2 TGEL
-      3 W
-      S
-   GR
-GR
-
-% OVAL
-0 SG
-NP 406 146 2 2 TGEL F
-GS
-   GS
-      NP 406 146 2 2 TGEL
-      3 W
-      S
-   GR
-GR
-
-% OVAL
-0 SG
-NP 418 146 2 2 TGEL F
-GS
-   GS
-      NP 418 146 2 2 TGEL
-      3 W
-      S
-   GR
-GR
-
-% OVAL
-0 SG
-NP 430 146 2 2 TGEL F
-GS
-   GS
-      NP 430 146 2 2 TGEL
-      3 W
-      S
-   GR
-GR
-
-% TEXT
-NP
-0 SG
-   GS
-      1 W
-      524 152 M
-      GS
-        GS
-        0
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (vol-1) TGSW 
-        AD
-        GR
-      2 DI NE 0 RM
-            0 SG
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (vol-1) SH
-      GR
-   GR
-
-% TEXT
-NP
-0 SG
-   GS
-      1 W
-      580 152 M
-      GS
-        GS
-        0
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (vol) TGSW 
-        AD
-        GR
-      2 DI NE 0 RM
-            0 SG
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (vol) SH
-      GR
-   GR
-
-% OVAL
-0 SG
-NP 618 146 2 2 TGEL F
-GS
-   GS
-      NP 618 146 2 2 TGEL
-      3 W
-      S
-   GR
-GR
-
-% OVAL
-0 SG
-NP 630 146 2 2 TGEL F
-GS
-   GS
-      NP 630 146 2 2 TGEL
-      3 W
-      S
-   GR
-GR
-
-% OVAL
-0 SG
-NP 642 146 2 2 TGEL F
-GS
-   GS
-      NP 642 146 2 2 TGEL
-      3 W
-      S
-   GR
-GR
-
-% BOX
-0 SG
-GS
-   10 SM
-   GS
-      NP 652 224 M 708 224 L 708 260 L 652 260 L CP
-      S
-   GR
-GR
-
-% BOX
-0 SG
-GS
-   NP 552 224 M 608 224 L 608 260 L 552 260 L CP 1 SG F
-   0 SG
-   NP 552 224 M 608 224 L 608 260 L 552 260 L CP EC NP
-   pat5 8 544 216 72 48 TGPF
-GR
-GS
-   10 SM
-   GS
-      NP 552 224 M 608 224 L 608 260 L 552 260 L CP
-      S
-   GR
-GR
-
-% BOX
-0 SG
-GS
-   NP 496 224 M 552 224 L 552 260 L 496 260 L CP EC NP
-   pat5 8 488 216 72 48 TGPF
-GR
-GS
-   10 SM
-   GS
-      NP 496 224 M 552 224 L 552 260 L 496 260 L CP
-      S
-   GR
-GR
-
-% BOX
-0 SG
-GS
-   NP 440 224 M 496 224 L 496 260 L 440 260 L CP EC NP
-   pat5 8 432 216 72 48 TGPF
-GR
-GS
-   10 SM
-   GS
-      NP 440 224 M 496 224 L 496 260 L 440 260 L CP
-      S
-   GR
-GR
-
-% BOX
-0 SG
-GS
-   NP 340 224 M 396 224 L 396 260 L 340 260 L CP EC NP
-   pat5 8 336 216 64 48 TGPF
-GR
-GS
-   10 SM
-   GS
-      NP 340 224 M 396 224 L 396 260 L 340 260 L CP
-      S
-   GR
-GR
-
-% BOX
-0 SG
-GS
-   NP 240 224 M 296 224 L 296 260 L 240 260 L CP EC NP
-   pat5 8 232 216 72 48 TGPF
-GR
-GS
-   10 SM
-   GS
-      NP 240 224 M 296 224 L 296 260 L 240 260 L CP
-      S
-   GR
-GR
-
-% BOX
-0 SG
-GS
-   NP 184 224 M 240 224 L 240 260 L 184 260 L CP EC NP
-   pat5 8 176 216 72 48 TGPF
-GR
-GS
-   10 SM
-   GS
-      NP 184 224 M 240 224 L 240 260 L 184 260 L CP
-      S
-   GR
-GR
-
-% BOX
-0 SG
-GS
-   NP 128 224 M 184 224 L 184 260 L 128 260 L CP EC NP
-   pat5 8 120 216 72 48 TGPF
-GR
-GS
-   10 SM
-   GS
-      NP 128 224 M 184 224 L 184 260 L 128 260 L CP
-      S
-   GR
-GR
-
-% TEXT
-NP
-0 SG
-   GS
-      1 W
-      156 248 M
-      GS
-        GS
-        0
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (0) TGSW 
-        AD
-        GR
-      2 DI NE 0 RM
-            0 SG
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (0) SH
-      GR
-   GR
-
-% TEXT
-NP
-0 SG
-   GS
-      1 W
-      212 248 M
-      GS
-        GS
-        0
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (1) TGSW 
-        AD
-        GR
-      2 DI NE 0 RM
-            0 SG
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (1) SH
-      GR
-   GR
-
-% TEXT
-NP
-0 SG
-   GS
-      1 W
-      268 248 M
-      GS
-        GS
-        0
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (2) TGSW 
-        AD
-        GR
-      2 DI NE 0 RM
-            0 SG
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (2) SH
-      GR
-   GR
-
-% TEXT
-NP
-0 SG
-   GS
-      1 W
-      368 248 M
-      GS
-        GS
-        0
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (c) TGSW 
-        AD
-        GR
-      2 DI NE 0 RM
-            0 SG
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (c) SH
-      GR
-   GR
-
-% TEXT
-NP
-0 SG
-   GS
-      1 W
-      468 248 M
-      GS
-        GS
-        0
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (vol-3) TGSW 
-        AD
-        GR
-      2 DI NE 0 RM
-            0 SG
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (vol-3) SH
-      GR
-   GR
-
-% TEXT
-NP
-0 SG
-   GS
-      1 W
-      680 248 M
-      GS
-        GS
-        0
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (cap-1) TGSW 
-        AD
-        GR
-      2 DI NE 0 RM
-            0 SG
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (cap-1) SH
-      GR
-   GR
-
-% OVAL
-0 SG
-NP 306 242 2 2 TGEL F
-GS
-   GS
-      NP 306 242 2 2 TGEL
-      3 W
-      S
-   GR
-GR
-
-% OVAL
-0 SG
-NP 318 242 2 2 TGEL F
-GS
-   GS
-      NP 318 242 2 2 TGEL
-      3 W
-      S
-   GR
-GR
-
-% OVAL
-0 SG
-NP 330 242 2 2 TGEL F
-GS
-   GS
-      NP 330 242 2 2 TGEL
-      3 W
-      S
-   GR
-GR
-
-% OVAL
-0 SG
-NP 406 242 2 2 TGEL F
-GS
-   GS
-      NP 406 242 2 2 TGEL
-      3 W
-      S
-   GR
-GR
-
-% OVAL
-0 SG
-NP 418 242 2 2 TGEL F
-GS
-   GS
-      NP 418 242 2 2 TGEL
-      3 W
-      S
-   GR
-GR
-
-% OVAL
-0 SG
-NP 430 242 2 2 TGEL F
-GS
-   GS
-      NP 430 242 2 2 TGEL
-      3 W
-      S
-   GR
-GR
-
-% TEXT
-NP
-0 SG
-   GS
-      1 W
-      524 248 M
-      GS
-        GS
-        0
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (vol-2) TGSW 
-        AD
-        GR
-      2 DI NE 0 RM
-            0 SG
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (vol-2) SH
-      GR
-   GR
-
-% TEXT
-NP
-0 SG
-   GS
-      1 W
-      580 248 M
-      GS
-        GS
-        0
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (vol-1) TGSW 
-        AD
-        GR
-      2 DI NE 0 RM
-            0 SG
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (vol-1) SH
-      GR
-   GR
-
-% OVAL
-0 SG
-NP 618 242 2 2 TGEL F
-GS
-   GS
-      NP 618 242 2 2 TGEL
-      3 W
-      S
-   GR
-GR
-
-% OVAL
-0 SG
-NP 630 242 2 2 TGEL F
-GS
-   GS
-      NP 630 242 2 2 TGEL
-      3 W
-      S
-   GR
-GR
-
-% OVAL
-0 SG
-NP 642 242 2 2 TGEL F
-GS
-   GS
-      NP 642 242 2 2 TGEL
-      3 W
-      S
-   GR
-GR
-
-% TEXT
-NP
-0 SG
-   GS
-      1 W
-      80 200 M
-      GS
-        GS
-        0
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (put\(i,j,x\);) TGSW 
-        AD
-        GR
-      2 DI NE 0 RM
-            0 SG
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (put\(i,j,x\);) SH
-      GR
-   GR
-
-% TEXT
-NP
-0 SG
-   GS
-      1 W
-      400 200 M
-      GS
-        GS
-        0
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (automatically "vol++;") TGSW 
-        AD
-        GR
-      2 DI NE 0 RM
-            0 SG
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (automatically "vol++;") SH
-      GR
-   GR
-
-% TEXT
-NP
-0 SG
-   GS
-      1 W
-      652 200 M
-      GS
-        GS
-        0
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (assign x) TGSW 
-        AD
-        GR
-      2 DI NE 0 RM
-            0 SG
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (assign x) SH
-      GR
-   GR
-
-% POLY/OPEN-SPLINE
-0 SG
-GS
-   NP
-      612 196 M
-      580 208 L
-      16 0 atan DU cos 10.000 MU 580 exch SU
-      exch sin 10.000 MU 224 exch SU L
-   TGSM
-   2 W
-   S
-   1 W
-GR
-GS
-   TGSM
-   NP
-      580 224 10.000 4.000 0 16 TGAT
-   CP F
-GR
-
-GR
-tgifsavedpage restore
-end
-showpage
-
-%%Trailer
-%MatchingCreationDate: Thu Nov  4 02:04:07 2004
-%%DocumentFonts: Helvetica
-%%EOF
diff --git a/cpplapack-r198/.svn/pristine/71/71cfce7ed8085570d72da5e3a439c3ed91f1034f.svn-base b/cpplapack-r198/.svn/pristine/71/71cfce7ed8085570d72da5e3a439c3ed91f1034f.svn-base
deleted file mode 100644
index 8d4f715..0000000
--- a/cpplapack-r198/.svn/pristine/71/71cfce7ed8085570d72da5e3a439c3ed91f1034f.svn-base
+++ /dev/null
@@ -1,74 +0,0 @@
-//=============================================================================
-/*! _zgematrix+zgbmatrix operator */
-inline _zgematrix operator+(const _zgematrix& matA, const zgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<matB.m; i++){
-    const CPPL_INT jmax =std::min(matB.n,i+matB.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matB.kl); j<jmax; j++){
-      matA(i,j) += matB(i,j);
-    }
-  }
-  
-  return matA;
-}
-
-//=============================================================================
-/*! _zgematrix-zgbmatrix operator */
-inline _zgematrix operator-(const _zgematrix& matA, const zgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<matB.m; i++){
-    const CPPL_INT jmax =std::min(matB.n,i+matB.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matB.kl); j<jmax; j++){
-      matA(i,j) -= matB(i,j);
-    }
-  }
-  
-  return matA;
-}
-
-//=============================================================================
-/*! _zgematrix*zgbmatrix operator */
-inline _zgematrix operator*(const _zgematrix& matA, const zgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat( matA.m, matB.n );
-  newmat.zero();
-  
-  for(CPPL_INT i=0; i<newmat.m; i++){
-    for(CPPL_INT j=0; j<newmat.n; j++){
-      const CPPL_INT kmax =std::min(matB.m,j+matB.kl+1);
-      for(CPPL_INT k=std::max(CPPL_INT(0),j-matB.ku); k<kmax; k++){
-        newmat(i,j) += matA(i,k)*matB(k,j);
-      }
-    }
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/72/729441c8a212415ad1bb4aa806abcc147aad004a.svn-base b/cpplapack-r198/.svn/pristine/72/729441c8a212415ad1bb4aa806abcc147aad004a.svn-base
deleted file mode 100644
index e8226ec..0000000
--- a/cpplapack-r198/.svn/pristine/72/729441c8a212415ad1bb4aa806abcc147aad004a.svn-base
+++ /dev/null
@@ -1,77 +0,0 @@
-//=============================================================================
-/*! dgbmatrix+dgematrix operator */
-inline _dgematrix operator+(const dgbmatrix& matA, const dgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  dgematrix newmat(matB);
-  
-  for(CPPL_INT i=0; i<matA.m; i++){
-    const CPPL_INT jmax =std::min(matA.n,i+matA.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matA.kl); j<jmax; j++){
-      newmat(i,j)+=matA(i,j);
-    }
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! dgbmatrix-dgematrix operator */
-inline _dgematrix operator-(const dgbmatrix& matA, const dgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat(-matB);
-  
-  for(CPPL_INT i=0; i<matA.m; i++){
-    const CPPL_INT jmax =std::min(matA.n,i+matA.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matA.kl); j<jmax; j++){
-      newmat(i,j)+=matA(i,j);
-    }
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! dgbmatrix*dgematrix operator */
-inline _dgematrix operator*(const dgbmatrix& matA, const dgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat( matA.m, matB.n );
-  newmat.zero();
-  
-  for(CPPL_INT i=0; i<newmat.m; i++){
-    for(CPPL_INT j=0; j<newmat.n; j++){
-      const CPPL_INT kmax =std::min(matA.n,i+matA.ku+1);
-      for(CPPL_INT k=std::max(CPPL_INT(0),i-matA.kl); k<kmax; k++){
-        newmat(i,j)+=matA(i,k)*matB(k,j);
-      }
-    }
-  }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/72/72aaf09f5b9c89a3d18e0506d5eba4ae50e3ab11.svn-base b/cpplapack-r198/.svn/pristine/72/72aaf09f5b9c89a3d18e0506d5eba4ae50e3ab11.svn-base
deleted file mode 100644
index bb967fb..0000000
--- a/cpplapack-r198/.svn/pristine/72/72aaf09f5b9c89a3d18e0506d5eba4ae50e3ab11.svn-base
+++ /dev/null
@@ -1,93 +0,0 @@
-//=============================================================================
-//! Samll Complex Double-precision Column Vector Class
-template<CPPL_INT l> class zcovector_small
-{
-public:
-  ///////////////////////////////////////////////
-  /////////////////// objects ///////////////////
-  ///////////////////////////////////////////////
-  comple array[l];
-  
-  ///////////////////////////////////////////////
-  ///////////////// constructors ////////////////
-  ///////////////////////////////////////////////
-  inline zcovector_small();
-  inline explicit zcovector_small(const zcovector&);
-  inline zcovector_small(const comple&, const comple&);
-  inline zcovector_small(const comple&, const comple&, const comple&);
-  inline ~zcovector_small();
-  
-  ///////////////////////////////////////////////
-  ////////////////// functions //////////////////
-  ///////////////////////////////////////////////
-  //////// cast ////////
-  inline _zcovector to_zcovector() const;
-  
-  //////// io ////////
-  inline comple& operator()(const CPPL_INT&);
-  inline comple  operator()(const CPPL_INT&) const;
-  inline zcovector_small<l>& set(const CPPL_INT&, const comple&);
-  template<CPPL_INT _l> inline friend std::ostream& operator<<(std::ostream&, const zcovector_small<_l>&);
-  inline void read(const char* filename);
-  inline void write(const char* filename) const;
-  
-  //////// calc ////////
-#ifndef _MSC_VER
-  template<CPPL_INT _l> inline friend zrovector_small<_l> t(const zcovector_small<_l>&);
-  template<CPPL_INT _l> inline friend comple nrm2(const zcovector_small<_l>&);
-  template<CPPL_INT _l> inline friend CPPL_INT idamax(const zcovector_small<_l>&);
-  template<CPPL_INT _l> inline friend comple damax(const zcovector_small<_l>&);
-#endif//_MSC_VER
-  
-  //////// misc ////////
-  inline zcovector_small<l>& zero();
-  
-  ///////////////////////////////////////////////
-  ///////////// numerical operators /////////////
-  ///////////////////////////////////////////////
-#ifndef _MSC_VER
-  //////// = ////////
-  template<CPPL_INT L> inline zcovector_small<L>& operator= (const  zcovector_small<L>&);
-  //////// += ////////
-  template<CPPL_INT L> inline friend zcovector_small<L>& operator+=(zcovector_small<L>&, const zcovector_small<L>&);
-  //////// -= ////////
-  template<CPPL_INT L> inline friend zcovector_small<L>& operator-=(zcovector_small<L>&, const zcovector_small<L>&);
-  //////// *= ////////
-  template<CPPL_INT L> inline friend zcovector_small<L>& operator*=(zcovector_small<L>&, const             double&);
-  template<CPPL_INT L> inline friend zcovector_small<L>& operator*=(zcovector_small<L>&, const             comple&);
-  //////// /= ////////
-  template<CPPL_INT L> inline friend zcovector_small<L>& operator/=(zcovector_small<L>&, const             double&);
-  template<CPPL_INT L> inline friend zcovector_small<L>& operator/=(zcovector_small<L>&, const             comple&);
-  //////// unary ////////
-  template<CPPL_INT L> inline friend const zcovector_small<L>& operator+(const zcovector_small<L>&);
-  template<CPPL_INT L> inline friend zcovector_small<L> operator-(const zcovector_small<L>&);
-  //////// + ////////
-  template<CPPL_INT L> inline friend zcovector_small<L> operator+(const zcovector_small<L>&, const zcovector_small<L>&);
-  //////// - ////////
-  template<CPPL_INT L> inline friend zcovector_small<L> operator-(const zcovector_small<L>&, const zcovector_small<L>&);
-  //////// * ////////
-  template<CPPL_INT M, CPPL_INT N> inline friend zgematrix_small<M,N> operator*(const zcovector_small<M>&, const zrovector_small<N>&);
-  template<CPPL_INT L> inline friend zcovector_small<L> operator*(const zcovector_small<L>&, const             double&);
-  template<CPPL_INT L> inline friend zcovector_small<L> operator*(const zcovector_small<L>&, const             comple&);
-  //////// / ////////
-  template<CPPL_INT L> inline friend zcovector_small<L> operator/(const zcovector_small<L>&, const             double&);
-  template<CPPL_INT L> inline friend zcovector_small<L> operator/(const zcovector_small<L>&, const             comple&);
-  //////// comple ////////
-  template<CPPL_INT L> inline friend zcovector_small<L> operator*(const             double&, const zcovector_small<L>&);
-  template<CPPL_INT L> inline friend zcovector_small<L> operator*(const             comple&, const zcovector_small<L>&);
-  //////// hadamerd ////////
-  template<CPPL_INT L> inline friend zcovector_small<L>  hadamerd(const zcovector_small<L>&, const zcovector_small<L>&);
-#endif//_MSC_VER
-};
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-//////// zcovec2 ////////
-inline comple  operator/(const zcovec2&, const zcovec2&);
-
-//////// zcovec3 ////////
-inline zcovec3 operator/(const zcovec3&, const zcovec3&);
-inline zcovec3 operator/=(zcovec3&, const zcovec3&);
diff --git a/cpplapack-r198/.svn/pristine/72/72bd5eb13043aac06369f24a0b9a39ab673ffe4f.svn-base b/cpplapack-r198/.svn/pristine/72/72bd5eb13043aac06369f24a0b9a39ab673ffe4f.svn-base
deleted file mode 100644
index a31aace..0000000
--- a/cpplapack-r198/.svn/pristine/72/72bd5eb13043aac06369f24a0b9a39ab673ffe4f.svn-base
+++ /dev/null
@@ -1,144 +0,0 @@
-//=============================================================================
-//! Complex Double-precision General Sparse Matrix Class
-class zgsmatrix
-{
-public:
-  ///////////////////////////////////////////////
-  /////////////////// objects ///////////////////
-  ///////////////////////////////////////////////
-  CPPL_INT m; //!< matrix row size
-  CPPL_INT n; //!< matrix column size
-  std::vector<zcomponent> data; //!< matrix data
-  std::vector< std::vector<CPPL_INT> > rows; //!< array of vector to store the entry information of component for each row
-  std::vector< std::vector<CPPL_INT> > cols; //!< array of vector to store the entry information of component for each column
-  
-  ///////////////////////////////////////////////
-  ///////////////// constructors ////////////////
-  ///////////////////////////////////////////////
-  inline zgsmatrix();
-  inline zgsmatrix(const zgsmatrix&);
-  inline zgsmatrix(const _zgsmatrix&);
-  inline zgsmatrix(const CPPL_INT&, const CPPL_INT&, const CPPL_INT=0);
-  inline zgsmatrix(const char*);
-  inline ~zgsmatrix(); //destructor
-  
-  ///////////////////////////////////////////////
-  ////////////////// functions //////////////////
-  ///////////////////////////////////////////////
-  //////// cast ////////
-  inline _zgematrix to_zgematrix() const;
-  
-  //////// io ////////
-  inline comple operator()(const CPPL_INT&, const CPPL_INT&) const;
-  inline comple& operator()(const CPPL_INT&, const CPPL_INT&);
-  inline zgsmatrix& put(const CPPL_INT&, const CPPL_INT&, const comple&);
-  inline zgsmatrix& del(const CPPL_INT, const CPPL_INT); //<-- NOT (const CPPL_INT&)
-  inline zgsmatrix& del(const CPPL_INT); //<-- NOT (const CPPL_INT&)
-  inline friend std::ostream& operator<<(std::ostream&, const zgsmatrix&);
-  inline void write(const char*) const;
-  inline void read(const char*);
-
-  //////// misc ////////
-  inline void clear();
-  inline zgsmatrix& zero();
-  inline zgsmatrix& identity();
-  inline void chsign();
-  inline void copy(const zgsmatrix&);
-  inline void shallow_copy(const _zgsmatrix&);
-  inline zgsmatrix& resize(const CPPL_INT&, const CPPL_INT&, const CPPL_INT=0, const CPPL_INT=0);
-  inline void stretch(const CPPL_INT&, const CPPL_INT&);
-  inline void expand(const CPPL_INT&);
-  inline bool isListed(const CPPL_INT&, const CPPL_INT&);
-  inline CPPL_INT number(const CPPL_INT&, const CPPL_INT&);
-  inline void checkup();
-  inline void diet(const double=DBL_MIN);
-  inline _zrovector row(const CPPL_INT&) const;
-  inline _zcovector col(const CPPL_INT&) const;
-  inline friend void swap(zgsmatrix&, zgsmatrix&);
-  inline friend _zgsmatrix _(zgsmatrix&);
-  
-  //////// calc ////////
-  inline friend _zgsmatrix t(const zgsmatrix&);
-  ////inline friend _zgematrix i(const zgsmatrix&);
-  inline friend _zgsmatrix conj(const zgsmatrix&);
-  inline friend _zgsmatrix conjt(const zgsmatrix&);
-  inline friend void idamax(CPPL_INT&, CPPL_INT&, const zgsmatrix&);
-  inline friend comple damax(const zgsmatrix&);
-  
-  ///////////////////////////////////////////////
-  ///////////// numerical operators /////////////
-  ///////////////////////////////////////////////
-  //////// = ////////
-  inline zgsmatrix& operator=(const  zgsmatrix&);
-  inline zgsmatrix& operator=(const _zgsmatrix&);
-  
-  //////// += ////////
-  inline zgsmatrix& operator+=(const  zgsmatrix&);
-  inline zgsmatrix& operator+=(const _zgsmatrix&);
-  
-  //////// -= ////////
-  inline zgsmatrix& operator-=(const  zgsmatrix&);
-  inline zgsmatrix& operator-=(const _zgsmatrix&);
-  
-  //////// *= ////////
-  inline zgsmatrix& operator*=(const  zgsmatrix&);
-  inline zgsmatrix& operator*=(const _zgsmatrix&);
-  inline zgsmatrix& operator*=(const     double&);
-  inline zgsmatrix& operator*=(const     comple&);
-  
-  //////// /= ////////
-  inline zgsmatrix& operator/=(const     double&);
-  inline zgsmatrix& operator/=(const     comple&);
-
-  //////// unary ////////
-  inline friend const zgsmatrix& operator+(const zgsmatrix&);
-  inline friend _zgsmatrix operator-(const  zgsmatrix&);
-  
-  //////// + ////////
-  inline friend _zgematrix operator+(const  zgsmatrix&, const  zgematrix&);
-  inline friend _zgematrix operator+(const  zgsmatrix&, const _zgematrix&);
-  inline friend _zgematrix operator+(const  zgsmatrix&, const  zhematrix&);
-  inline friend _zgematrix operator+(const  zgsmatrix&, const _zhematrix&);
-  inline friend _zgematrix operator+(const  zgsmatrix&, const  zgbmatrix&);
-  inline friend _zgematrix operator+(const  zgsmatrix&, const _zgbmatrix&);
-  inline friend _zgsmatrix operator+(const  zgsmatrix&, const  zgsmatrix&);
-  inline friend _zgsmatrix operator+(const  zgsmatrix&, const _zgsmatrix&);
-  inline friend _zgsmatrix operator+(const  zgsmatrix&, const  zhsmatrix&);
-  inline friend _zgsmatrix operator+(const  zgsmatrix&, const _zhsmatrix&);
-  
-  //////// - ////////
-  inline friend _zgematrix operator-(const  zgsmatrix&, const  zgematrix&);
-  inline friend _zgematrix operator-(const  zgsmatrix&, const _zgematrix&);
-  inline friend _zgematrix operator-(const  zgsmatrix&, const  zhematrix&);
-  inline friend _zgematrix operator-(const  zgsmatrix&, const _zhematrix&);
-  inline friend _zgematrix operator-(const  zgsmatrix&, const  zgbmatrix&);
-  inline friend _zgematrix operator-(const  zgsmatrix&, const _zgbmatrix&);
-  inline friend _zgsmatrix operator-(const  zgsmatrix&, const  zgsmatrix&);
-  inline friend _zgsmatrix operator-(const  zgsmatrix&, const _zgsmatrix&);
-  inline friend _zgsmatrix operator-(const  zgsmatrix&, const  zhsmatrix&);
-  inline friend _zgsmatrix operator-(const  zgsmatrix&, const _zhsmatrix&);
-  
-  //////// * ////////
-  inline friend _zcovector operator*(const  zgsmatrix&, const  zcovector&);
-  inline friend _zcovector operator*(const  zgsmatrix&, const _zcovector&);
-  inline friend _zgematrix operator*(const  zgsmatrix&, const  zgematrix&);
-  inline friend _zgematrix operator*(const  zgsmatrix&, const _zgematrix&);  
-  inline friend _zgematrix operator*(const  zgsmatrix&, const  zhematrix&);
-  inline friend _zgematrix operator*(const  zgsmatrix&, const _zhematrix&);
-  inline friend _zgematrix operator*(const  zgsmatrix&, const  zgbmatrix&);
-  inline friend _zgematrix operator*(const  zgsmatrix&, const _zgbmatrix&);  
-  inline friend _zgsmatrix operator*(const  zgsmatrix&, const  zgsmatrix&);
-  inline friend _zgsmatrix operator*(const  zgsmatrix&, const _zgsmatrix&);
-  inline friend _zgsmatrix operator*(const  zgsmatrix&, const  zhsmatrix&);
-  inline friend _zgsmatrix operator*(const  zgsmatrix&, const _zhsmatrix&);
-  inline friend _zgsmatrix operator*(const  zgsmatrix&, const     double&);
-  inline friend _zgsmatrix operator*(const  zgsmatrix&, const     comple&);
-
-  //////// / ////////
-  inline friend _zgsmatrix operator/(const  zgsmatrix&, const     double&);
-  inline friend _zgsmatrix operator/(const  zgsmatrix&, const     comple&);
-  
-  //////// double, comple ////////
-  inline friend _zgsmatrix operator*(const     double&, const  zgsmatrix&);
-  inline friend _zgsmatrix operator*(const     comple&, const  zgsmatrix&);
-};
diff --git a/cpplapack-r198/.svn/pristine/73/730e361435ee1808af207272d92b8c503b4e5239.svn-base b/cpplapack-r198/.svn/pristine/73/730e361435ee1808af207272d92b8c503b4e5239.svn-base
deleted file mode 100644
index 76383c6..0000000
--- a/cpplapack-r198/.svn/pristine/73/730e361435ee1808af207272d92b8c503b4e5239.svn-base
+++ /dev/null
@@ -1,74 +0,0 @@
-!define version "2010.03.27-3"
-
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;;;;;;; base setting ;;;;;;;;
-!include MUI2.nsh
-Name "CPPLapack"
-OutFile "cpplapack-${version}-setup.exe"
-InstallDir "c:\cpplapack"
-
-;;;;;;;; welcome ;;;;;;;;
-;!define MUI_WELCOMEFINISHPAGE_BITMAP "C:\Program Files\NSIS\Contrib\Graphics\Wizard\win.bmp"
-
-!define MUI_WELCOMEFINISHPAGE_BITMAP "${NSISDIR}\Contrib\Graphics\Wizard\win.bmp"
-!define MUI_WELCOMEPAGE_TITLE "Welcome to CPPLapack installer."
-!define MUI_WELCOMEPAGE_TEXT "Press $\"next$\" to procced."
-!insertmacro MUI_PAGE_WELCOME
-
-;;!insertmacro MUI_PAGE_LICENSE ".\LICENSE.txt"
-;;!insertmacro MUI_PAGE_COMPONENTS
-!insertmacro MUI_PAGE_DIRECTORY
-;;!insertmacro MUI_PAGE_STARTMENU
-!insertmacro MUI_PAGE_INSTFILES
-
-;;;;;;;; finish ;;;;;;;;
-!define MUI_FINISHPAGE_TITLE "CPPLapack was installed successfully."
-!define MUI_FINISHPAGE_TEXT "Press $\"Finish$\"."
-!define MUI_FINISHPAGE_LINK "Click here to see the online documentation."
-!define MUI_FINISHPAGE_LINK_LOCATION "http://cpplapack.sourceforge.net/"
-!define MUI_FINISHPAGE_SHOWREADME "$INSTDIR/README.txt"
-!insertmacro MUI_PAGE_FINISH
-
-;;;;;;;; language ;;;;;;;;
-!insertmacro MUI_LANGUAGE "English"
-
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-Section "Install"
-  SetOutPath $INSTDIR
-  File .\README.txt
-  
-  SetOutPath $INSTDIR\lib
-  File /r .\win32\*
-  
-  SetOutPath $INSTDIR\lib64
-  File /r .\win64\*
-
-  SetOutPath $INSTDIR\vc_sample
-!system "mkdir vc_sample"
-!system "xcopy ..\..\test\vc_sample .\vc_sample /s /e /q /r /y"
-  File /r .\vc_sample\*
-!system "rmdir /s /q .\vc_sample"
-
-  SetOutPath $INSTDIR\include
-  File .\stdint.h
-  
-  SetOutPath $INSTDIR
-!system "mkdir include"
-!system "xcopy ..\..\include .\include /s /e /q /r /y"
-  File /r .\include
-!system "rmdir /s /q include"
-
-;;  WriteUninstaller $INSTDIR\uninstall.exe
-SectionEnd
-
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;Section "Uninstall"
-;  Delete $INSTDIR\uninstall.exe
-;  RMDir /r $INSTDIR
-;SectionEnd
diff --git a/cpplapack-r198/.svn/pristine/73/732a1eb3ba8866fd7f85c38e03b30f4d76f9b5ab.svn-base b/cpplapack-r198/.svn/pristine/73/732a1eb3ba8866fd7f85c38e03b30f4d76f9b5ab.svn-base
deleted file mode 100644
index 3572fb1..0000000
--- a/cpplapack-r198/.svn/pristine/73/732a1eb3ba8866fd7f85c38e03b30f4d76f9b5ab.svn-base
+++ /dev/null
@@ -1,692 +0,0 @@
-%!PS-Adobe-3.0 EPSF-3.0
-%%BoundingBox: 9 443 256 811
-%%Title: bandmatrix
-%%CreationDate: Fri Jan 28 11:06:04 2005
-%%Creator: Tgif-4.1.43-QPL written by William Chia-Wei Cheng (bill.cheng@acm.org)
-%%ProducedBy: (unknown)
-%%Pages: 1
-%%DocumentFonts: (atend)
-%%EndComments
-%%BeginProlog
-
-/tgifdict 87 dict def
-tgifdict begin
-
-/tgifarcdict 8 dict def
-tgifarcdict /mtrx matrix put
-
-/TGAN % tgifarcn
- { tgifarcdict begin
-      /endangle exch def
-      /startangle exch def
-      /yrad exch def
-      /xrad exch def
-      /y exch def
-      /x exch def
-      /savematrix mtrx currentmatrix def
-      x y translate
-      xrad yrad scale
-      0 0 1 startangle endangle arc
-      savematrix setmatrix
-   end
- } def
-
-/TGAR % tgifarc
- { tgifarcdict begin
-      /endangle exch def
-      /startangle exch def
-      /yrad exch def
-      /xrad exch def
-      /y exch def
-      /x exch def
-      /savematrix mtrx currentmatrix def
-      x y translate
-      xrad yrad scale
-      0 0 1 startangle endangle arcn
-      savematrix setmatrix
-   end
- } def
-
-/tgifpatdict 10 dict def
-
-/tgifpatbyte
- { currentdict /retstr get exch
-   pat i cellsz mod get put
- } def
-
-/tgifpatproc
- { 0 1 widthlim {tgifpatbyte} for retstr
-   /i i 1 add def
- } def
-
-/TGPF % tgifpatfill
- { tgifpatdict begin
-      /h exch def
-      /w exch def
-      /lty exch def
-      /ltx exch def
-      /cellsz exch def
-      /pat exch def
-
-      /widthlim w cellsz div cvi 1 sub def
-      /retstr widthlim 1 add string def
-      /i 0 def
-
-      tgiforigctm setmatrix
-      ltx lty translate
-      w h true [1 0 0 1 0 0] {tgifpatproc} imagemask
-      ltx neg lty neg translate
-   end
- } def
-
-/pat3 <8000000008000000> def
-/pat4 <8800000022000000> def
-/pat5 <8800220088002200> def
-/pat6 <8822882288228822> def
-/pat7 <aa55aa55aa55aa55> def
-/pat8 <77dd77dd77dd77dd> def
-/pat9 <77ffddff77ffddff> def
-/pat10 <77ffffff77ffffff> def
-/pat11 <7fffffff7fffffff> def
-/pat12 <8040200002040800> def
-/pat13 <40a00000040a0000> def
-/pat14 <ff888888ff888888> def
-/pat15 <ff808080ff080808> def
-/pat16 <f87422478f172271> def
-/pat17 <038448300c020101> def
-/pat18 <081c22c180010204> def
-/pat19 <8080413e080814e3> def
-/pat20 <8040201008040201> def
-/pat21 <8844221188442211> def
-/pat22 <77bbddee77bbddee> def
-/pat23 <c1e070381c0e0783> def
-/pat24 <7fbfdfeff7fbfdfe> def
-/pat25 <3e1f8fc7e3f1f87c> def
-/pat26 <0102040810204080> def
-/pat27 <1122448811224488> def
-/pat28 <eeddbb77eeddbb77> def
-/pat29 <83070e1c3870e0c1> def
-/pat30 <fefdfbf7efdfbf7f> def
-/pat31 <7cf8f1e3c78f1f3e> def
-
-/TGMAX
- { exch dup 3 1 roll exch dup 3 1 roll gt { pop } { exch pop } ifelse
- } def
-/TGMIN
- { exch dup 3 1 roll exch dup 3 1 roll lt { pop } { exch pop } ifelse
- } def
-/TGSW { stringwidth pop } def
-
-/bd { bind def } bind def
-
-/GS { gsave } bd
-/GR { grestore } bd
-/NP { newpath } bd
-/CP { closepath } bd
-/CHP { charpath } bd
-/CT { curveto } bd
-/L { lineto } bd
-/RL { rlineto } bd
-/M { moveto } bd
-/RM { rmoveto } bd
-/S { stroke } bd
-/F { fill } bd
-/TR { translate } bd
-/RO { rotate } bd
-/SC { scale } bd
-/MU { mul } bd
-/DI { div } bd
-/DU { dup } bd
-/NE { neg } bd
-/AD { add } bd
-/SU { sub } bd
-/PO { pop } bd
-/EX { exch } bd
-/CO { concat } bd
-/CL { clip } bd
-/EC { eoclip } bd
-/EF { eofill } bd
-/IM { image } bd
-/IMM { imagemask } bd
-/ARY { array } bd
-/SG { setgray } bd
-/RG { setrgbcolor } bd
-/SD { setdash } bd
-/W { setlinewidth } bd
-/SM { setmiterlimit } bd
-/SLC { setlinecap } bd
-/SLJ { setlinejoin } bd
-/SH { show } bd
-/FF { findfont } bd
-/MS { makefont setfont } bd
-/AR { arcto 4 {pop} repeat } bd
-/CURP { currentpoint } bd
-/FLAT { flattenpath strokepath clip newpath } bd
-/TGSM { tgiforigctm setmatrix } def
-/TGRM { savematrix setmatrix } def
-
-end
-
-%%EndProlog
-%%Page: 1 1
-
-%%PageBoundingBox: 9 443 256 811
-tgifdict begin
-/tgifsavedpage save def
-
-1 SM
-1 W
-
-0 SG
-
-72 0 MU 72 11.602 MU TR
-72 128 DI 100.000 MU 100 DI DU NE SC
-
-GS
-
-/tgiforigctm matrix currentmatrix def
-
-% POLYGON/CLOSED-SPLINE
-0 SG
-NP
-   150 600 M
-   150 650 L
-   350 650 L
-   375 625 L
-   375 500 L
-   250 500 L
-CP
-GS
-   1 SG EF
-GR
-GS
-   EC NP
-   pat3 8 144 496 240 160 TGPF
-GR
-GS
-   2 W
-   [12 4] 0 SD
-   S
-GR
-
-% POLYGON/CLOSED-SPLINE
-0 SG
-NP
-   150 100 M
-   150 150 L
-   350 350 L
-   375 350 L
-   375 225 L
-   250 100 L
-CP
-GS
-   1 SG EF
-GR
-GS
-   EC NP
-   pat3 8 144 96 240 256 TGPF
-GR
-GS
-   2 W
-   S
-GR
-
-% BOX
-0 SG
-GS
-   10 SM
-   GS
-      NP 150 100 M 375 100 L 375 350 L 150 350 L CP
-      2 W
-      S
-   GR
-GR
-
-% POLY/OPEN-SPLINE
-0 SG
-GS
-   NP
-      150 150 M
-      350 350 L
-   TGSM
-   2 W
-   S
-   1 W
-GR
-
-% POLY/OPEN-SPLINE
-0 SG
-GS
-   NP
-      250 100 M
-      375 225 L
-   TGSM
-   2 W
-   S
-   1 W
-GR
-
-% POLY/OPEN-SPLINE
-0 SG
-GS
-   [12 4] 0 SD
-   NP
-      150 100 M
-      375 325 L
-   TGSM
-   2 W
-   S
-   [] 0 SD
-   1 W
-GR
-
-% TEXT
-NP
-0 SG
-   GS
-      1 W
-      80 70 M
-      GS
-        GS
-        0
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (Actual Matrix) TGSW 
-        AD
-        GR
-      2 DI NE 0 RM
-            0 SG
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (Actual Matrix) SH
-      GR
-   GR
-
-% RCBOX
-0 SG
-GS
-   GS
-      NP
-         124 45 M
-         140 45 140 80 16 AR
-         140 64 L
-         140 80 20 80 16 AR
-         36 80 L
-         20 80 20 45 16 AR
-         20 61 L
-         20 45 140 45 16 AR
-      CP
-      2 W
-      S
-   GR
-GR
-
-% TEXT
-NP
-0 SG
-   GS
-      1 W
-      80 475 M
-      GS
-        GS
-        0
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (Stored Matrix) TGSW 
-        AD
-        GR
-      2 DI NE 0 RM
-            0 SG
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (Stored Matrix) SH
-      GR
-   GR
-
-% RCBOX
-0 SG
-GS
-   GS
-      NP
-         124 450 M
-         140 450 140 485 16 AR
-         140 469 L
-         140 485 20 485 16 AR
-         36 485 L
-         20 485 20 450 16 AR
-         20 466 L
-         20 450 140 450 16 AR
-      CP
-      2 W
-      S
-   GR
-GR
-
-% BOX
-0 SG
-GS
-   10 SM
-   GS
-      NP 150 500 M 375 500 L 375 650 L 150 650 L CP
-      2 W
-      S
-   GR
-GR
-
-% ARC
-0 SG
-GS
-   GS
-      NP
-         259 -383 548 757 101 78 TGAR
-      S
-   GR
-GR
-
-% TEXT
-NP
-0 SG
-   GS
-      1 W
-      262 390 M
-      GS
-        GS
-        0
-            /NewCenturySchlbk-Roman FF [14 0 0 -14 0 0] MS
-            (n) TGSW 
-        AD
-        GR
-      2 DI NE 0 RM
-            0 SG
-            /NewCenturySchlbk-Roman FF [14 0 0 -14 0 0] MS
-            (n) SH
-      GR
-   GR
-
-% ARC
-0 SG
-GS
-   GS
-      NP
-         59 225 340 425 -17 17 TGAN
-      S
-   GR
-GR
-
-% TEXT
-NP
-0 SG
-   GS
-      1 W
-      415 228 M
-      GS
-        GS
-        0
-            /Times-Roman FF [14 0 0 -14 0 0] MS
-            (m) TGSW 
-        AD
-        GR
-      2 DI NE 0 RM
-            0 SG
-            /Times-Roman FF [14 0 0 -14 0 0] MS
-            (m) SH
-      GR
-   GR
-
-% ARC
-0 SG
-GS
-   GS
-      NP
-         166 125 36 36 -136 -224 TGAR
-      S
-   GR
-GR
-
-% TEXT
-NP
-0 SG
-   GS
-      1 W
-      110 130 M
-      GS
-        GS
-        0
-            /NewCenturySchlbk-Roman FF [14 0 0 -14 0 0] MS
-            (kl+1) TGSW 
-        AD
-        GR
-      2 DI NE 0 RM
-            0 SG
-            /NewCenturySchlbk-Roman FF [14 0 0 -14 0 0] MS
-            (kl+1) SH
-      GR
-   GR
-
-% ARC
-0 SG
-GS
-   GS
-      NP
-         198 280 153 200 -108 -71 TGAN
-      S
-   GR
-GR
-
-% TEXT
-NP
-0 SG
-   GS
-      1 W
-      200 75 M
-      GS
-        GS
-        0
-            /NewCenturySchlbk-Roman FF [14 0 0 -14 0 0] MS
-            (ku+1) TGSW 
-        AD
-        GR
-      2 DI NE 0 RM
-            0 SG
-            /NewCenturySchlbk-Roman FF [14 0 0 -14 0 0] MS
-            (ku+1) SH
-      GR
-   GR
-
-% ARC
-0 SG
-GS
-   GS
-      NP
-         259 -83 548 757 101 78 TGAR
-      S
-   GR
-GR
-
-% TEXT
-NP
-0 SG
-   GS
-      1 W
-      261 690 M
-      GS
-        GS
-        0
-            /NewCenturySchlbk-Roman FF [14 0 0 -14 0 0] MS
-            (n) TGSW 
-        AD
-        GR
-      2 DI NE 0 RM
-            0 SG
-            /NewCenturySchlbk-Roman FF [14 0 0 -14 0 0] MS
-            (n) SH
-      GR
-   GR
-
-% POLY/OPEN-SPLINE
-0 SG
-GS
-   NP
-      150 600 M
-      250 500 L
-   TGSM
-   2 W
-   S
-   1 W
-GR
-
-% POLY/OPEN-SPLINE
-0 SG
-GS
-   NP
-      350 650 M
-      375 625 L
-   TGSM
-   2 W
-   S
-   1 W
-GR
-
-% ARC
-0 SG
-GS
-   GS
-      NP
-         198 680 153 200 -108 -71 TGAN
-      S
-   GR
-GR
-
-% TEXT
-NP
-0 SG
-   GS
-      1 W
-      200 475 M
-      GS
-        GS
-        0
-            /NewCenturySchlbk-Roman FF [14 0 0 -14 0 0] MS
-            (ku) TGSW 
-        AD
-        GR
-      2 DI NE 0 RM
-            0 SG
-            /NewCenturySchlbk-Roman FF [14 0 0 -14 0 0] MS
-            (ku) SH
-      GR
-   GR
-
-% ARC
-0 SG
-GS
-   GS
-      NP
-         166 625 36 36 -136 -224 TGAR
-      S
-   GR
-GR
-
-% TEXT
-NP
-0 SG
-   GS
-      1 W
-      110 630 M
-      GS
-        GS
-        0
-            /NewCenturySchlbk-Roman FF [14 0 0 -14 0 0] MS
-            (kl+1) TGSW 
-        AD
-        GR
-      2 DI NE 0 RM
-            0 SG
-            /NewCenturySchlbk-Roman FF [14 0 0 -14 0 0] MS
-            (kl+1) SH
-      GR
-   GR
-
-% POLY/OPEN-SPLINE
-0 SG
-GS
-   [12 4] 0 SD
-   NP
-      150 600 M
-      375 600 L
-   TGSM
-   2 W
-   S
-   [] 0 SD
-   1 W
-GR
-
-% TEXT
-NP
-0 SG
-   GS
-      1 W
-      155 515 M
-      GS
-            0 SG
-            /Courier FF [11 0 0 -11 0 0] MS
-            (0  kl+ku+1 . .) SH
-      GR
-      0 11 RM
-      GS
-            0 SG
-            /Courier FF [11 0 0 -11 0 0] MS
-            (1  kl+ku+2 . .) SH
-      GR
-      0 11 RM
-      GS
-            0 SG
-            /Courier FF [11 0 0 -11 0 0] MS
-            (.     .    . .) SH
-      GR
-      0 11 RM
-      GS
-            0 SG
-            /Courier FF [11 0 0 -11 0 0] MS
-            (.     .    . .) SH
-      GR
-   GR
-
-% ARC
-0 SG
-GS
-   GS
-      NP
-         59 575 340 255 -17 17 TGAN
-      S
-   GR
-GR
-
-% TEXT
-NP
-0 SG
-   GS
-      1 W
-      430 581 M
-      GS
-        GS
-        0
-            /Times-Roman FF [14 0 0 -14 0 0] MS
-            (kl+ku+1) TGSW 
-        AD
-        GR
-      2 DI NE 0 RM
-            0 SG
-            /Times-Roman FF [14 0 0 -14 0 0] MS
-            (kl+ku+1) SH
-      GR
-   GR
-
-GR
-tgifsavedpage restore
-end
-showpage
-
-%%Trailer
-%MatchingCreationDate: Fri Jan 28 11:06:04 2005
-%%DocumentFonts: Courier
-%%+ Times-Roman
-%%+ NewCenturySchlbk-Roman
-%%+ Helvetica
-%%EOF
diff --git a/cpplapack-r198/.svn/pristine/73/73b69299f29e5547cb4efb9b7bce055538e4ee16.svn-base b/cpplapack-r198/.svn/pristine/73/73b69299f29e5547cb4efb9b7bce055538e4ee16.svn-base
deleted file mode 100644
index c75df26..0000000
--- a/cpplapack-r198/.svn/pristine/73/73b69299f29e5547cb4efb9b7bce055538e4ee16.svn-base
+++ /dev/null
@@ -1,28 +0,0 @@
-//=============================================================================
-/*! _dssmatrix*_dcovector operator */
-inline _dcovector operator*(const _dssmatrix& mat, const _dcovector& vec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(mat.n!=vec.l){
-    ERROR_REPORT;
-    std::cerr << "These matrix and vector can not make a product." << std::endl
-              << "Your input was (" << mat.n << "x" << mat.n << ") * (" << vec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dcovector newvec(mat.n);
-  newvec.zero();
-  
-  const std::vector<dcomponent>::iterator mat_data_end =mat.data.end();
-  for(std::vector<dcomponent>::iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    newvec(it->i) +=it->v*vec(it->j);
-    if(it->i!=it->j){
-      newvec(it->j) +=it->v*vec(it->i);
-    }
-  }
-  
-  mat.destroy();
-  vec.destroy();
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/73/73fe37362e12221a4fb355618e4aee6d339c0d72.svn-base b/cpplapack-r198/.svn/pristine/73/73fe37362e12221a4fb355618e4aee6d339c0d72.svn-base
deleted file mode 100644
index bbb472e..0000000
--- a/cpplapack-r198/.svn/pristine/73/73fe37362e12221a4fb355618e4aee6d339c0d72.svn-base
+++ /dev/null
@@ -1,72 +0,0 @@
-//=============================================================================
-/*! dsymatrix+dgematrix operator */
-inline _dgematrix operator+(const dsymatrix& matA, const dgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat =matB;
-  
-  for(CPPL_INT i=0; i<matA.n; i++) {
-    for(CPPL_INT j=0; j<matA.n; j++) {
-      newmat(i,j) += matA(i,j);
-    }
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! dsymatrix-dgematrix operator */
-inline _dgematrix operator-(const dsymatrix& matA, const dgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat =-matB;
-  
-  for(CPPL_INT i=0; i<matA.n; i++){
-    for(CPPL_INT j=0; j<matA.n; j++){
-      newmat(i,j) += matA(i,j);
-    }
-  }
-  
-  return _(newmat);
-}
-
-
-//=============================================================================
-/*! dsymatrix*dgematrix operator */
-inline _dgematrix operator*(const dsymatrix& matA, const dgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat( matA.n, matB.n );
-  char side ='l';
-  char uplo ='l';
-  double alpha =1.;
-  double beta =0.;
-  
-  dsymm_( &side, &uplo, &matA.n, &matB.n, &alpha, matA.array, &matA.n, matB.array, &matB.m, &beta, newmat.array, &newmat.m );
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/74/741157d28f5d7633ab97e3693b255036457c6ab6.svn-base b/cpplapack-r198/.svn/pristine/74/741157d28f5d7633ab97e3693b255036457c6ab6.svn-base
deleted file mode 100644
index ab71847..0000000
--- a/cpplapack-r198/.svn/pristine/74/741157d28f5d7633ab97e3693b255036457c6ab6.svn-base
+++ /dev/null
@@ -1,28 +0,0 @@
-//=============================================================================
-/*! _zrovector*_zhsmatrix operator */
-inline _zrovector operator*(const _zrovector& vec, const _zhsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vec.l!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These vector and matrix can not make a product." << std::endl
-              << "Your input was (" << vec.l << ") * (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zrovector newvec(mat.n);
-  newvec.zero();
-  
-  const std::vector<zcomponent>::const_iterator mat_data_end =mat.data.end();
-  for(std::vector<zcomponent>::const_iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    newvec(it->j) +=vec(it->i)*it->v;
-    if(it->i!=it->j){
-      newvec(it->i) +=vec(it->j)*std::conj(it->v);
-    }
-  }
-  
-  vec.destroy();
-  mat.destroy();
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/74/74119b63e623f9c8d7393c8727c65d493e37834d.svn-base b/cpplapack-r198/.svn/pristine/74/74119b63e623f9c8d7393c8727c65d493e37834d.svn-base
deleted file mode 100644
index 7d46a28..0000000
--- a/cpplapack-r198/.svn/pristine/74/74119b63e623f9c8d7393c8727c65d493e37834d.svn-base
+++ /dev/null
@@ -1,131 +0,0 @@
-//=============================================================================
-/*! zhematrix=zhematrix operator */
-inline zhematrix& zhematrix::operator=(const zhematrix& mat)
-{CPPL_VERBOSE_REPORT;
-  if(array!=mat.array){ // if it is NOT self substitution
-    copy(mat);
-  }
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zhematrix+=zhematrix operator */
-inline zhematrix& zhematrix::operator+=(const zhematrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << n << "x" << n << ") += (" << mat.n << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT j=0; j<n; j++){
-    for(CPPL_INT i=j; i<n; i++){
-      darray[j][i] += mat.darray[j][i];
-    }
-  }
-  
-  return *this;
-}
-
-//=============================================================================
-/*! zhematrix operator-= */
-inline zhematrix& zhematrix::operator-=(const zhematrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a sutraction." << std::endl
-              << "Your input was (" << n << "x" << n << ") -= (" << mat.n << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT j=0; j<n; j++){
-    for(CPPL_INT i=j; i<n; i++){
-      darray[j][i] -= mat.darray[j][i];
-    }
-  }
-  
-  return *this;
-}
-
-//=============================================================================
-/*! zhematrix+zhematrix operator */
-inline _zhematrix operator+(const zhematrix& matA, const zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") + (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zhematrix newmat(matA.n);
-  
-  for(CPPL_INT j=0; j<matA.n; j++){
-    for(CPPL_INT i=j; i<matA.n; i++){
-      newmat.darray[j][i] =matA.darray[j][i] +matB.darray[j][i];
-    }
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! zhematrix-zhematrix operator */
-inline _zhematrix operator-(const zhematrix& matA, const zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") - (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zhematrix newmat(matA.n);
-  
-  for(CPPL_INT j=0; j<matA.n; j++){
-    for(CPPL_INT i=j; i<matA.n; i++){
-      newmat.darray[j][i] =matA.darray[j][i] -matB.darray[j][i];
-    }
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! zhematrix*zhematrix operator */
-inline _zgematrix operator*(const zhematrix& matA, const zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") * (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  matB.complete();
-  
-  zgematrix newmat( matA.n, matB.n );
-  char side ='l';
-  char uplo ='l';
-  comple alpha =comple(1.,0.);
-  comple beta =comple(0.,0.);
-  
-  zhemm_( &side, &uplo, &matA.n, &matB.n, &alpha, matA.array, &matA.n, matB.array, &matB.n, &beta, newmat.array, &newmat.m );
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/74/744144541a42899b66b56484160f2f017b73cfe3.svn-base b/cpplapack-r198/.svn/pristine/74/744144541a42899b66b56484160f2f017b73cfe3.svn-base
deleted file mode 100644
index cf865c2..0000000
--- a/cpplapack-r198/.svn/pristine/74/744144541a42899b66b56484160f2f017b73cfe3.svn-base
+++ /dev/null
@@ -1,11 +0,0 @@
-//=============================================================================
-/*! double*_zgsmatrix operator */
-inline _zgsmatrix operator*(const double& d, const _zgsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  const std::vector<zcomponent>::iterator mat_data_end =mat.data.end();
-  for(std::vector<zcomponent>::iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    it->v *= d;
-  }
-  
-  return mat;
-}
diff --git a/cpplapack-r198/.svn/pristine/74/7452ca86f2dad993d1da91185e48a3dcaedc38d9.svn-base b/cpplapack-r198/.svn/pristine/74/7452ca86f2dad993d1da91185e48a3dcaedc38d9.svn-base
deleted file mode 100644
index 9b101c0..0000000
--- a/cpplapack-r198/.svn/pristine/74/7452ca86f2dad993d1da91185e48a3dcaedc38d9.svn-base
+++ /dev/null
@@ -1,263 +0,0 @@
-//=============================================================================
-/*! clear all the matrix data and set the sizes 0 */
-inline void zgbmatrix::clear()
-{CPPL_VERBOSE_REPORT;
-  m =0;
-  n =0;
-  kl =0;
-  ku =0;
-  delete [] array;
-  array =NULL;
-  delete [] darray;
-  darray =NULL;
-}
-
-
-//=============================================================================
-/*! change the matrix into a zero matrix */
-inline zgbmatrix& zgbmatrix::zero()
-{CPPL_VERBOSE_REPORT;
-  const CPPL_INT size =(kl+ku+1)*n;
-  for(CPPL_INT i=0; i<size; i++){
-    array[i] =comple(0.,0.);
-  }
-  return *this;
-}
-
-//=============================================================================
-/*! change the matrix into an identity matrix */
-inline zgbmatrix& zgbmatrix::identity()
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(m!=n){
-    ERROR_REPORT;
-    std::cerr << "Only square matrix can be a identity matrix." << std::endl
-              << "The matrix size was " << m << "x" << n << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  const CPPL_INT size =(kl+ku+1)*n;
-  for(CPPL_INT i=0; i<size; i++){
-    array[i] =comple(0.,0.);
-  }
-  for(CPPL_INT i=0; i<m; i++){
-    operator()(i,i) =comple(1.,0.);
-  }
-  
-  return *this;
-}
-
-//=============================================================================
-/*! change sign(+/-) of the matrix */
-inline void zgbmatrix::chsign()
-{CPPL_VERBOSE_REPORT;
-  const CPPL_INT size =(kl+ku+1)*n;
-  for(CPPL_INT i=0; i<size; i++){
-    array[i] =-array[i];
-  }
-}
-
-//=============================================================================
-/*! make a deep copy of the matrix */
-inline void zgbmatrix::copy(const zgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  m =mat.m;
-  n =mat.n;
-  kl =mat.kl;
-  ku =mat.ku;
-  delete [] array;
-  array =new comple[(mat.kl+mat.ku+1)*mat.n];
-  delete [] darray;
-  darray =new comple*[n];
-  for(int i=0; i<n; i++){
-    darray[i] =&array[i*(kl+ku+1)];
-  }
-  
-  CPPL_INT size =(mat.kl+mat.ku+1)*mat.n;
-  CPPL_INT inc =1;
-  zcopy_(&size, mat.array, &inc, array, &inc);
-}
-
-//=============================================================================
-/*! make a shallow copy of the matrix\n
-  This function is not designed to be used in project codes. */
-inline void zgbmatrix::shallow_copy(const _zgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  m =mat.m;
-  n =mat.n;
-  kl =mat.kl;
-  ku =mat.ku;
-  delete [] array;
-  array =mat.array;
-  delete [] darray;
-  darray =mat.darray;
-  
-  mat.nullify();
-}
-
-//=============================================================================
-/*! resize the matrix */
-inline void zgbmatrix::resize(const CPPL_INT& _m, const CPPL_INT& _n,
-                              const CPPL_INT& _kl, const CPPL_INT& _ku)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( _m<0 || _n<0 || _kl<0 || _ku<0 || _m<_kl || _n<_ku ){
-    ERROR_REPORT;
-    std::cerr << "It is impossible to make a matrix you ordered. " << std::endl
-              << "Your input was (" << _m << "," << _n << ","<< _ku << "," << _kl << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  m =_m;
-  n =_n;
-  kl =_kl;
-  ku =_ku;
-  delete [] array;
-  array =new comple[(kl+ku+1)*n];
-  delete [] darray;
-  darray =new comple*[n];
-  for(int i=0; i<n; i++){
-    darray[i] =&array[i*(kl+ku+1)];
-  }
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! get row of the matrix */
-inline _zrovector zgbmatrix::row(const CPPL_INT& _m) const
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( _m<0 || _m>m ){
-    ERROR_REPORT;
-    std::cerr << "Input row number must be between 0 and " << m << "." << std::endl
-              << "Your input was " << _m << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zrovector v =zrovector(n).zero();
-  
-  const CPPL_INT jmax =std::min(n,_m+ku+1);
-  for(CPPL_INT j=std::max(CPPL_INT(0),_m-kl); j<jmax; j++){
-    v(j)=(*this)(_m,j);
-  }
-  
-  return _(v);
-}
-
-//=============================================================================
-/*! get column of the matrix */
-inline _zcovector zgbmatrix::col(const CPPL_INT& _n) const
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( _n<0 || _n>n ){
-    ERROR_REPORT;
-    std::cerr << "Input row number must be between 0 and " << n << "." << std::endl
-              << "Your input was " << _n << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zcovector v =zcovector(m).zero();
-  
-  const CPPL_INT imax =std::min(m,_n+kl+1);
-  for(CPPL_INT i=std::max(CPPL_INT(0),_n-ku); i<imax; i++){
-    v(i)=(*this)(i,_n);
-  }
-  
-  return _(v);
-}
-
-//=============================================================================
-/*! extract the real part of the matrix */
-inline _dgbmatrix zgbmatrix::real() const
-{CPPL_VERBOSE_REPORT;
-  dgbmatrix mat(m,n,kl,ku);
-  const CPPL_INT size =(kl+ku+1)*n;
-  for(CPPL_INT i=0; i<size; i++){
-    mat.array[i] =array[i].real();
-  }
-  return _(mat);
-}
-
-//=============================================================================
-/*! extract the imag part of the matrix */
-inline _dgbmatrix zgbmatrix::imag() const
-{CPPL_VERBOSE_REPORT;
-  dgbmatrix mat(m,n,kl,ku);
-  const CPPL_INT size =(kl+ku+1)*n;
-  for(CPPL_INT i=0; i<size; i++){
-    mat.array[i] =array[i].imag();
-  }
-  return _(mat);
-}
-
-//=============================================================================
-/*! extract the absolute of the matrix */
-inline _dgbmatrix zgbmatrix::abs() const
-{CPPL_VERBOSE_REPORT;
-  dgbmatrix mat(m,n,kl,ku);
-  const CPPL_INT size =(kl+ku+1)*n;
-  for(CPPL_INT i=0; i<size; i++){
-    mat.array[i] =std::abs(array[i]);
-  }
-  return _(mat);
-}
-
-//=============================================================================
-/*! extract the argument of the matrix */
-inline _dgbmatrix zgbmatrix::arg() const
-{CPPL_VERBOSE_REPORT;
-  dgbmatrix mat(m,n,kl,ku);
-  const CPPL_INT size =(kl+ku+1)*n;
-  for(CPPL_INT i=0; i<size; i++){
-    mat.array[i] =std::arg(array[i]);
-  }
-  return _(mat);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! swap two matrices */
-inline void swap(zgbmatrix& A, zgbmatrix& B)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT A_m =A.m, A_n =A.n, A_kl =A.kl, A_ku =A.ku;
-  comple* A_array =A.array;
-  comple** A_darray =A.darray;
-  
-  A.m=B.m; A.n=B.n; A.kl=B.kl; A.ku=B.ku; A.array=B.array; A.darray=B.darray;
-  B.m=A_m; B.n=A_n; B.kl=A_kl; B.ku=A_ku; B.array=A_array; B.darray=A_darray;
-}
-
-//=============================================================================
-/*! convert user object to smart-temporary object */
-inline _zgbmatrix _(zgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  _zgbmatrix newmat;
-  
-  //////// shallow copy ////////
-  newmat.m =mat.m;
-  newmat.n =mat.n;
-  newmat.kl =mat.kl;
-  newmat.ku =mat.ku;
-  newmat.array =mat.array;
-  newmat.darray =mat.darray;
-  
-  //////// nullify ////////
-  mat.m =0;
-  mat.n =0;
-  mat.kl =0;
-  mat.ku =0;
-  mat.array =NULL;
-  mat.darray =NULL;
-  
-  return newmat;
-}
diff --git a/cpplapack-r198/.svn/pristine/74/74858d77623a8706c8d9d66b0498a9f6eeb34b6a.svn-base b/cpplapack-r198/.svn/pristine/74/74858d77623a8706c8d9d66b0498a9f6eeb34b6a.svn-base
deleted file mode 100644
index b8a502c..0000000
--- a/cpplapack-r198/.svn/pristine/74/74858d77623a8706c8d9d66b0498a9f6eeb34b6a.svn-base
+++ /dev/null
@@ -1,69 +0,0 @@
-//=============================================================================
-/*! zgematrix+_zhematrix operator */
-inline _zgematrix operator+(const zgematrix& matA, const _zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(matA);
-  for(CPPL_INT c=0; c<matB.vol; c++){
-    newmat(matB.indx[c],matB.jndx[c]) += matB.array[c];
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! zgematrix-_zhematrix operator */
-inline _zgematrix operator-(const zgematrix& matA, const _zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") - (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  zgematrix newmat(matA);
-  for(CPPL_INT c=0; c<matB.vol; c++){
-    newmat(matB.indx[c],matB.jndx[c]) -= matB.array[c];
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! zgematrix*_zhematrix operator */
-inline _zgematrix operator*(const zgematrix& matA, const _zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(matA.m, matB.n);
-  newmat.zero();
-  
-  for(CPPL_INT c=0; c<matB.vol; c++){
-    for(CPPL_INT i=0; i<matA.m; i++){
-      newmat(i,matB.jndx[c]) += matA(i,matB.indx[c])*matB.array[c];
-    }
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/75/75813d2ecc17271323194fb794de0a791b6a3398.svn-base b/cpplapack-r198/.svn/pristine/75/75813d2ecc17271323194fb794de0a791b6a3398.svn-base
deleted file mode 100644
index cc6db45..0000000
--- a/cpplapack-r198/.svn/pristine/75/75813d2ecc17271323194fb794de0a791b6a3398.svn-base
+++ /dev/null
@@ -1,71 +0,0 @@
-//=============================================================================
-/*! _dgematrix+dsymatrix operator */
-inline _dgematrix operator+(const _dsymatrix& matA, const _dgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<matA.n; i++) {
-    for(CPPL_INT j=0; j<matA.n; j++) {
-      matB(i,j) += matA(i,j);
-    }
-  }
-  
-  matA.destroy();
-  return matB;
-}
-
-//=============================================================================
-/*! _dsymatrix-dgematrix operator */
-inline _dgematrix operator-(const _dsymatrix& matA, const _dgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") - (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  for(CPPL_INT i=0; i<matA.n; i++) {
-    for(CPPL_INT j=0; j<matA.n; j++) {
-      matB(i,j) =matA(i,j)-matB(i,j);
-    }
-  }
-  
-  matA.destroy();
-  return matB;
-}
-
-//=============================================================================
-/*! _dgematrix*dgematrix operator */
-inline _dgematrix operator*(const _dsymatrix& matA, const _dgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat( matA.n, matB.n );
-  char side ='l';
-  char uplo ='l';
-  double alpha =1.;
-  double beta =0.;
-  
-  dsymm_( &side, &uplo, &matA.n, &matB.n, &alpha, matA.array, &matA.n, matB.array, &matB.m, &beta, newmat.array, &newmat.m );
-  
-  matA.destroy();
-  matB.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/75/75ad00df1f33ce4291a43b31d94c1bd21f26ed7a.svn-base b/cpplapack-r198/.svn/pristine/75/75ad00df1f33ce4291a43b31d94c1bd21f26ed7a.svn-base
deleted file mode 100644
index 8a4082b..0000000
--- a/cpplapack-r198/.svn/pristine/75/75ad00df1f33ce4291a43b31d94c1bd21f26ed7a.svn-base
+++ /dev/null
@@ -1,49 +0,0 @@
-/*****************************************************************************/
-/*                                 main.cpp                                  */
-/*****************************************************************************/
-#undef CPPL_VERBOSE
-#undef CPPL_DEBUG
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  int size(500);
-  CPPL::dgematrix A(size,size), B(size,size), C;
-  
-  srand(unsigned(time(NULL)));
-  for(int i=0; i<size; i++){ for(int j=0; j<size; j++){
-    A(i,j) =double(rand())/double(RAND_MAX);
-    B(i,j) =double(rand())/double(RAND_MAX);
-  }}
-  
-  clock_t t0, t1, t2;
-  
-  t0=clock();
-  
-  C=A*B;
-  
-  t1=clock();
-  
-  C.resize(size,size);
-  for(int i=0; i<size; i++){
-    for(int j=0; j<size; j++){
-      C(i,j) =0.0;
-      for(int k=0; k<size; k++){ C(i,j) +=A(i,k)*B(k,j); }
-    }
-  }
-  
-  t2=clock();
-  
-  cout << "\"A*B\"  took "<< (1000./CLOCKS_PER_SEC)*(t1-t0) << "[ms]." << endl;
-  cout << "\"loop\" took "<< (1000./CLOCKS_PER_SEC)*(t2-t1) << "[ms]." << endl;
-  
-  return 0;
-}
diff --git a/cpplapack-r198/.svn/pristine/76/760b6f5dddcc1a2b834797328598c03050c67138.svn-base b/cpplapack-r198/.svn/pristine/76/760b6f5dddcc1a2b834797328598c03050c67138.svn-base
deleted file mode 100644
index dd273f7..0000000
--- a/cpplapack-r198/.svn/pristine/76/760b6f5dddcc1a2b834797328598c03050c67138.svn-base
+++ /dev/null
@@ -1,82 +0,0 @@
-//=============================================================================
-/*! _dgbmatrix+_dgsmatrix operator */
-inline _dgematrix operator+(const _dgbmatrix& matA, const _dgsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat( matB.to_dgematrix() );
-  
-  for(CPPL_INT i=0; i<matA.m; i++){
-    const CPPL_INT jmax =std::min(matA.n,i+matA.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matA.kl); j<jmax; j++){
-      newmat(i,j)+=matA(i,j);
-    }
-  }
-  
-  matA.destroy();
-  matB.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _dgbmatrix-_dgsmatrix operator */
-inline _dgematrix operator-(const _dgbmatrix& matA, const _dgsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat( (-matB).to_dgematrix() );
-  
-  for(CPPL_INT i=0; i<matA.m; i++){
-    const CPPL_INT jmax =std::min(matA.n,i+matA.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matA.kl); j<jmax; j++){
-      newmat(i,j)-=matA(i,j);
-    }
-  }
-  
-  matA.destroy();
-  matB.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _dgbmatrix*_dgsmatrix operator */
-inline _dgematrix operator*(const _dgbmatrix& matA, const _dgsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat( matA.m, matB.n );
-  newmat.zero();
-  
-  const std::vector<dcomponent>::const_iterator matB_data_end =matB.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matB.data.begin(); it!=matB_data_end; it++){
-    const CPPL_INT imax =std::min(matA.m,it->i+matA.kl);
-    for(CPPL_INT i=std::max(CPPL_INT(0),it->i-(matA.ku+1)); i<imax; i++){
-      newmat(i,it->j) += matA(i,it->i)*it->v;
-    }
-  }
-  
-  matA.destroy();
-  matB.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/77/771a6b224774b90d79ffb837b5db81e46d625117.svn-base b/cpplapack-r198/.svn/pristine/77/771a6b224774b90d79ffb837b5db81e46d625117.svn-base
deleted file mode 100644
index 54850b3..0000000
--- a/cpplapack-r198/.svn/pristine/77/771a6b224774b90d79ffb837b5db81e46d625117.svn-base
+++ /dev/null
@@ -1,52 +0,0 @@
-//=============================================================================
-/*! zgbmatrix*=comple operator */
-inline zgbmatrix& zgbmatrix::operator*=(const comple& d)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT size =(kl+ku+1)*n;
-  CPPL_INT inc =1;
-  zscal_(&size, &d, array, &inc);
-  return *this;
-}
-
-//=============================================================================
-/*! zgbmatrix/=comple operator */
-inline zgbmatrix& zgbmatrix::operator/=(const comple& d)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT size =(kl+ku+1)*n;
-  comple dinv =1./d;
-  CPPL_INT inc =1;
-  zscal_(&size, &dinv, array, &inc);
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zgbmatrix*comple operator */
-inline _zgbmatrix operator*(const zgbmatrix& mat, const comple& d)
-{CPPL_VERBOSE_REPORT;
-  zgbmatrix newmat(mat.m, mat.n, mat.kl, mat.ku);
-  
-  const CPPL_INT size =(newmat.kl+newmat.ku+1)*newmat.n;
-  for(CPPL_INT i=0; i<size; i++){
-    newmat.array[i] =mat.array[i]*d;
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! zgbmatrix/comple operator */
-inline _zgbmatrix operator/(const zgbmatrix& mat, const comple& d)
-{CPPL_VERBOSE_REPORT;
-  zgbmatrix newmat(mat.m, mat.n, mat.kl, mat.ku);
-  
-  const CPPL_INT size =(newmat.kl+newmat.ku+1)*newmat.n;
-  for(CPPL_INT i=0; i<size; i++){
-    newmat.array[i] =mat.array[i]/d;
-  }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/77/773fff42361533fb5edbe501b1298dd48ca16b95.svn-base b/cpplapack-r198/.svn/pristine/77/773fff42361533fb5edbe501b1298dd48ca16b95.svn-base
deleted file mode 100644
index 7d07027..0000000
--- a/cpplapack-r198/.svn/pristine/77/773fff42361533fb5edbe501b1298dd48ca16b95.svn-base
+++ /dev/null
@@ -1,14 +0,0 @@
-//=============================================================================
-/*! comple*zhematrix operator */
-inline _zgematrix operator*(const comple& d, const zhematrix& mat)
-{CPPL_VERBOSE_REPORT;
-  mat.complete();
-  zgematrix newmat(mat.n, mat.n);
-  
-  const CPPL_INT size =mat.n*mat.n;
-  for(CPPL_INT i=0; i<size; i++){
-    newmat.array[i] =d*mat.array[i];
-  }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/77/7779aec690a59cf637415f48c45e58569b9c235a.svn-base b/cpplapack-r198/.svn/pristine/77/7779aec690a59cf637415f48c45e58569b9c235a.svn-base
deleted file mode 100644
index 1a5c547..0000000
--- a/cpplapack-r198/.svn/pristine/77/7779aec690a59cf637415f48c45e58569b9c235a.svn-base
+++ /dev/null
@@ -1,150 +0,0 @@
-//=============================================================================
-/*! zgematrix+=_zhematrix operator */
-inline zgematrix& zgematrix::operator+=(const _zhematrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.n || m!=mat.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << m << "x" << n << ") += (" << mat.n << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<m; i++){
-    for(CPPL_INT j=0; j<n; j++){
-      operator()(i,j) +=mat(i,j);
-    }
-  }
-  
-  mat.destroy();
-  return *this;
-}
-
-//=============================================================================
-/*! zgematrix-=_zhematrix operator */
-inline zgematrix& zgematrix::operator-=(const _zhematrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.n || m!=mat.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a sutraction." << std::endl
-              << "Your input was (" << m << "x" << n << ") -= (" << mat.n << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<m; i++){
-    for(CPPL_INT j=0; j<n; j++){
-      operator()(i,j) -=mat(i,j);
-    }
-  }
-  
-  mat.destroy();
-  return *this;
-}
-
-//=============================================================================
-/*! zgematrix*=_zhematrix operator */
-inline zgematrix& zgematrix::operator*=(const _zhematrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << m << "x" << n << ") *= (" << mat.n << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat( m, mat.n );
-  char side ='R';
-  char uplo ='l';
-  comple alpha =comple(1.,0.);
-  comple beta =comple(0.,0.);
-  
-  zhemm_( &side, &uplo, &mat.n, &n, &alpha, mat.array, &mat.n, array, &m, &beta, newmat.array, &newmat.m );
-  
-  swap(*this,newmat);
-  mat.destroy();
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zgematrix+_zhematrix operator */
-inline _zgematrix operator+(const zgematrix& matA, const _zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat =matA;
-  
-  for(CPPL_INT i=0; i<matA.m; i++){
-    for(CPPL_INT j=0; j<matA.n; j++){
-      newmat(i,j) +=matB(i,j);
-    }
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! zgematrix-_zhematrix operator */
-inline _zgematrix operator-(const zgematrix& matA, const _zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") - (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat =matA;
-  
-  for(CPPL_INT i=0; i<matA.m; i++){
-    for(CPPL_INT j=0; j<matA.n; j++){
-      newmat(i,j) -=matB(i,j);
-    }
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! zgematrix*_zhematrix operator */
-inline _zgematrix operator*(const zgematrix& matA, const _zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat( matA.n, matB.n );
-  char side ='R';
-  char uplo ='l';
-  comple alpha =comple(1.,0.);
-  comple beta =comple(0.,0.);
-  
-  zhemm_( &side, &uplo, &newmat.m, &newmat.n, &alpha, matB.array, &matB.n, matA.array, &matA.m, &beta, newmat.array, &newmat.m );
-  
-  matB.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/77/77b127a725a4f15c9a3be40e1ad0910b120525a4.svn-base b/cpplapack-r198/.svn/pristine/77/77b127a725a4f15c9a3be40e1ad0910b120525a4.svn-base
deleted file mode 100644
index 918a1aa..0000000
--- a/cpplapack-r198/.svn/pristine/77/77b127a725a4f15c9a3be40e1ad0910b120525a4.svn-base
+++ /dev/null
@@ -1,27 +0,0 @@
-//=============================================================================
-/*! drovector*_dssmatrix operator */
-inline _drovector operator*(const drovector& vec, const _dssmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vec.l!=mat.n){
-    ERROR_REPORT;
-    std::cerr << "These vector and matrix can not make a product." << std::endl
-              << "Your input was (" << vec.l << ") * (" << mat.n << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  drovector newvec(mat.n);
-  newvec.zero();
-
-  const std::vector<dcomponent>::const_iterator mat_data_end =mat.data.end();
-  for(std::vector<dcomponent>::const_iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    newvec(it->j) += vec(it->i)*it->v;
-    if(it->i!=it->j){
-      newvec(it->i) += vec(it->j)*it->v;
-    }
-  }
-  
-  mat.destroy();
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/77/77c7bc60952e87a2df995208d041dcf4fccc611a.svn-base b/cpplapack-r198/.svn/pristine/77/77c7bc60952e87a2df995208d041dcf4fccc611a.svn-base
deleted file mode 100644
index de9b6df..0000000
--- a/cpplapack-r198/.svn/pristine/77/77c7bc60952e87a2df995208d041dcf4fccc611a.svn-base
+++ /dev/null
@@ -1,13 +0,0 @@
-//=============================================================================
-/*! complex*zgsmatrix operator */
-inline _zgsmatrix operator*(const comple& d, const zgsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  zgsmatrix newmat =mat;
-  
-  const std::vector<zcomponent>::iterator newmat_data_end =newmat.data.end();
-  for(std::vector<zcomponent>::iterator it=newmat.data.begin(); it!=newmat_data_end; it++){
-    it->v *= d;
-  }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/77/77cca1325ece50a6b426ebb7c647e0156ccd4bef.svn-base b/cpplapack-r198/.svn/pristine/77/77cca1325ece50a6b426ebb7c647e0156ccd4bef.svn-base
deleted file mode 100644
index 00183df..0000000
--- a/cpplapack-r198/.svn/pristine/77/77cca1325ece50a6b426ebb7c647e0156ccd4bef.svn-base
+++ /dev/null
@@ -1,142 +0,0 @@
-//=============================================================================
-/*! dgematrix+=dsymatrix operator */
-inline dgematrix& dgematrix::operator+=(const dsymatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.n || m!=mat.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << m << "x" << n << ") += (" << mat.n << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<m; i++){
-    for( CPPL_INT j=0; j<n; j++){
-      operator() (i,j) += mat(i,j);
-    }
-  }
-  
-  return *this;
-}
-
-//=============================================================================
-/*! dgematrix-=dsymatrix operator */
-inline dgematrix& dgematrix::operator-=(const dsymatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.n || m!=mat.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a sutraction." << std::endl
-              << "Your input was (" << m << "x" << n << ") -= (" << mat.n << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<m; i++){
-    for(CPPL_INT j=0; j<n; j++){
-      operator() (i,j) -= mat(i,j);
-    }
-  }
-  
-  return *this;
-}
-
-//=============================================================================
-/*! dgematrix*=dsymatrix operator */
-inline dgematrix& dgematrix::operator*=(const dsymatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << m << "x" << n << ") *= (" << mat.n << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat( m, mat.n );
-  char side ='R';
-  char uplo ='l';
-  double alpha =1.;
-  double beta =0.;
-  
-  dsymm_( &side, &uplo, &mat.n, &n, &alpha, mat.array, &mat.n, array, &m, &beta, newmat.array, &newmat.m );
-  
-  swap(*this,newmat);
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! dgematrix+dsymatrix operator */
-inline _dgematrix operator+(const dgematrix& matA, const dsymatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  dgematrix newmat(matA);
-  for(CPPL_INT i=0; i<matA.m; i++){
-    for(CPPL_INT j=0; j<matA.n; j++){
-      newmat(i,j) += matB(i,j);
-    }
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! dgematrix-dsymatrix operator */
-inline _dgematrix operator-(const dgematrix& matA, const dsymatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") - (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  dgematrix newmat(matA);
-  for(CPPL_INT i=0; i<matA.m; i++){
-    for(CPPL_INT j=0; j<matA.n; j++){
-      newmat(i,j) -= matB(i,j);
-    }
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! dgematrix*dsymatrix operator */
-inline _dgematrix operator*(const dgematrix& matA, const dsymatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat( matA.m, matB.n );
-  char side ='R';
-  char uplo ='l';
-  double alpha =1.;
-  double beta =0.;
-  
-  dsymm_( &side, &uplo, &newmat.m, &newmat.n, &alpha, matB.array, &matB.n, matA.array, &matA.m, &beta, newmat.array, &newmat.m );
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/78/784dbbad6e9079a8c5bc368fe2a9a6e21ba2d6b6.svn-base b/cpplapack-r198/.svn/pristine/78/784dbbad6e9079a8c5bc368fe2a9a6e21ba2d6b6.svn-base
deleted file mode 100644
index 1097391..0000000
--- a/cpplapack-r198/.svn/pristine/78/784dbbad6e9079a8c5bc368fe2a9a6e21ba2d6b6.svn-base
+++ /dev/null
@@ -1,9 +0,0 @@
-//=============================================================================
-/*! double*_dgbmatrix operator */
-inline _dgbmatrix operator*(const double& d, const _dgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT size =(mat.kl+mat.ku+1)*mat.n;
-  CPPL_INT inc =1;
-  dscal_(&size, &d, mat.array, &inc);
-  return mat;
-}
diff --git a/cpplapack-r198/.svn/pristine/78/78f2faf91370dac7b9f4ebed9989871a50c211f9.svn-base b/cpplapack-r198/.svn/pristine/78/78f2faf91370dac7b9f4ebed9989871a50c211f9.svn-base
deleted file mode 100644
index 49cb5ff..0000000
--- a/cpplapack-r198/.svn/pristine/78/78f2faf91370dac7b9f4ebed9989871a50c211f9.svn-base
+++ /dev/null
@@ -1,187 +0,0 @@
-//=============================================================================
-/*! solve A*x=b for real and symmetric positive definite matrix using Intel PARDISO.\n
-  The argument is dcovector b.
-  b is overwritten and become the solution x.
-  A is not overwritten.
-*/
-inline CPPL_INT dssmatrix::pardiso_definite(dcovector& b) const
-{CPPL_VERBOSE_REPORT;
-#ifndef  __INTEL_COMPILER
-  ERROR_REPORT;
-  std::cerr << "dssmatrix::pardiso_definite is only for intel c++ compiler (icpc)." << std::endl;
-  std::cerr << "Recompile your code with icpc to use pardiso." << std::endl;
-  (void)b;
-  exit(1);
-#else  //__INTEL_COMPILER
-  
-  
-  //#ifdef  CPPL_DEBUG
-  if(m!=b.l){
-    ERROR_REPORT;
-    std::cerr << "These matrix and vector cannot be solved." << std::endl
-              << "Your input was (" << m << "x" << n << ") and (" << b.l << ")." << std::endl;
-    exit(1);
-  }
-  //#endif//CPPL_DEBUG 
-  
-  //////// convert matrix storage into compressed sparse row format ////////
-  //std::cerr << "converting" << std::endl;
-  std::vector<double> a(data.size());
-  std::vector<MKL_INT> ja(data.size());
-  std::vector<MKL_INT> ia(m+1);
-  ia[0] =0;
-  MKL_INT k=0;
-  for(CPPL_INT i=0; i<m; i++){
-    //// make map ////
-    const std::vector<CPPL_INT>::const_iterator line_i_end =line[i].end();
-    std::map<CPPL_INT,CPPL_INT> jc;
-    for(std::vector<CPPL_INT>::const_iterator lit=line[i].begin(); lit!=line_i_end; lit++){
-      if(data[*lit].j==i){//pardiso needs upper triangle part.
-        jc.insert( std::make_pair(data[*lit].i, *lit) );
-      }
-    }
-    //// assign ////
-    const std::map<CPPL_INT,CPPL_INT>::const_iterator jc_end =jc.end();
-    for(std::map<CPPL_INT,CPPL_INT>::const_iterator jcit=jc.begin(); jcit!=jc_end; jcit++){
-      a[k] =data[(*jcit).second].v;
-      ja[k] =MKL_INT((*jcit).first);//zero-base
-      k++;
-    }
-    ia[i+1] =k;//zero-base
-  }
-  
-  //////// pardisoinit ////////
-  //std::cerr << "initializing" << std::endl;
-  //_MKL_DSS_HANDLE_t pt[64];
-  void* pt[64];
-  MKL_INT mtype =2;//real and symmetric positive definite
-  MKL_INT iparm[64];
-  PARDISOINIT(pt, &mtype, iparm);
-  //iparm[1] =3;//parallel fill-in reducing ordering [BUGGY on MKL 11.3]!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-  iparm[1] =0;//serial fill-in reducing ordering [STABLE]
-  iparm[23] =1;//use two-level scheduling factorization algorithm
-  iparm[26] =0;//disable matrix checker
-  iparm[34] =-1;//use zero-base array index
-  
-  //////// pardiso ////////
-  //std::cerr << "solving" << std::endl;
-  MKL_INT maxfct =1;
-  MKL_INT mnum =1;
-  MKL_INT phase =13;
-  MKL_INT MKL_INT_n =MKL_INT(n);
-  std::vector<MKL_INT> perm(n);
-  MKL_INT nrhs =1;
-  MKL_INT msglvl =0;
-  dcovector x(b.l);
-  MKL_INT error =1;
-  PARDISO(pt, &maxfct, &mnum, &mtype, &phase, &MKL_INT_n, &a[0], &ia[0], &ja[0], &perm[0], &nrhs, iparm, &msglvl, b.array, x.array, &error);
-  swap(b,x);//set b as x
-  if(error!=0){
-    WARNING_REPORT;
-    std::cerr << "Serious trouble happend. error = " << error << "." << std::endl;
-  }
-  
-  //////// release memory ////////
-  phase =-1;
-  MKL_INT error2 =1;
-  PARDISO(pt, &maxfct, &mnum, &mtype, &phase, &MKL_INT_n, &a[0], &ia[0], &ja[0], &perm[0], &nrhs, iparm, &msglvl, b.array, x.array, &error2);
-  
-  return error;
-#endif //__INTEL_COMPILER
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! solve A*x=b for real and symmetric indefinite matrix using Intel PARDISO.\n
-  The argument is dcovector b.
-  b is overwritten and become the solution x.
-  A is not overwritten.
-*/
-inline CPPL_INT dssmatrix::pardiso_indefinite(dcovector& b) const
-{CPPL_VERBOSE_REPORT;
-#ifndef  __INTEL_COMPILER
-  ERROR_REPORT;
-  std::cerr << "dssmatrix::pardiso_indefinite is only for intel c++ compiler (icpc)." << std::endl;
-  std::cerr << "Recompile your code with icpc to use pardiso." << std::endl;
-  (void)b;
-  exit(1);
-#else  //__INTEL_COMPILER
-  
-  
-  //#ifdef  CPPL_DEBUG
-  if(m!=b.l){
-    ERROR_REPORT;
-    std::cerr << "These matrix and vector cannot be solved." << std::endl
-              << "Your input was (" << m << "x" << n << ") and (" << b.l << ")." << std::endl;
-    exit(1);
-  }
-  //#endif//CPPL_DEBUG 
-  
-  //////// convert matrix storage into compressed sparse row format ////////
-  //std::cerr << "converting" << std::endl;
-  std::vector<double> a(data.size());
-  std::vector<MKL_INT> ja(data.size());
-  std::vector<MKL_INT> ia(m+1);
-  ia[0] =0;
-  MKL_INT k=0;
-  for(CPPL_INT i=0; i<m; i++){
-    //// make map ////
-    const std::vector<CPPL_INT>::const_iterator line_i_end =line[i].end();
-    std::map<CPPL_INT,CPPL_INT> jc;
-    for(std::vector<CPPL_INT>::const_iterator lit=line[i].begin(); lit!=line_i_end; lit++){
-      if(data[*lit].j==i){//pardiso needs upper triangle part.
-        jc.insert( std::make_pair(data[*lit].i, *lit) );
-      }
-    }
-    //// assign ////
-    const std::map<CPPL_INT,CPPL_INT>::const_iterator jc_end =jc.end();
-    for(std::map<CPPL_INT,CPPL_INT>::const_iterator jcit=jc.begin(); jcit!=jc_end; jcit++){
-      a[k] =data[(*jcit).second].v;
-      ja[k] =MKL_INT((*jcit).first);//zero-base
-      k++;
-    }
-    ia[i+1] =k;//zero-base
-  }
-  
-  //////// pardisoinit ////////
-  //std::cerr << "initializing" << std::endl;
-  //_MKL_DSS_HANDLE_t pt[64];
-  void* pt[64];
-  MKL_INT mtype =-2;//real and symmetric indefinite
-  MKL_INT iparm[64];
-  PARDISOINIT(pt, &mtype, iparm);
-  //iparm[1] =3;//parallel fill-in reducing ordering [BUGGY on MKL 11.3]!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-  iparm[1] =0;//serial fill-in reducing ordering [STABLE]
-  iparm[23] =1;//use two-level scheduling factorization algorithm
-  iparm[26] =0;//disable matrix checker
-  iparm[34] =-1;//use zero-base array index
-  
-  //////// pardiso ////////
-  //std::cerr << "solving" << std::endl;
-  MKL_INT maxfct =1;
-  MKL_INT mnum =1;
-  MKL_INT phase =13;
-  MKL_INT MKL_INT_n =MKL_INT(n);
-  std::vector<MKL_INT> perm(n);
-  MKL_INT nrhs =1;
-  MKL_INT msglvl =0;
-  dcovector x(b.l);
-  MKL_INT error =1;
-  PARDISO(pt, &maxfct, &mnum, &mtype, &phase, &MKL_INT_n, &a[0], &ia[0], &ja[0], &perm[0], &nrhs, iparm, &msglvl, b.array, x.array, &error);
-  swap(b,x);//set b as x
-  if(error!=0){
-    WARNING_REPORT;
-    std::cerr << "Serious trouble happend. error = " << error << "." << std::endl;
-  }
-  
-  //////// release memory ////////
-  phase =-1;
-  MKL_INT error2 =1;
-  PARDISO(pt, &maxfct, &mnum, &mtype, &phase, &MKL_INT_n, &a[0], &ia[0], &ja[0], &perm[0], &nrhs, iparm, &msglvl, b.array, x.array, &error2);
-  
-  return error;
-#endif //__INTEL_COMPILER
-}
diff --git a/cpplapack-r198/.svn/pristine/79/796538d2d4a7097fb96a605d3fc71f45ccbb9858.svn-base b/cpplapack-r198/.svn/pristine/79/796538d2d4a7097fb96a605d3fc71f45ccbb9858.svn-base
deleted file mode 100644
index 2ddfa10..0000000
--- a/cpplapack-r198/.svn/pristine/79/796538d2d4a7097fb96a605d3fc71f45ccbb9858.svn-base
+++ /dev/null
@@ -1,55 +0,0 @@
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int M(4), N(3);
-  
-  //// make dgematrix A ////
-  CPPL::dgematrix A(M,N);
-  for(int i=0; i<A.m; i++){ for(int j=0; j<A.n; j++){
-    A(i,j) =double( rand() /(RAND_MAX/10) );
-  }}
-  
-  //// print A in two ways ////
-  std::cout << "A =\n" << A << std::endl;
-  for(int i=0; i<A.m; i++){ for(int j=0; j<A.n; j++){
-    std::cout << "A(" << i << "," << j << ") =" << A(i,j) << std::endl;
-  }}
-  
-  //// make A 10 times ////
-  std::cout << "#### A*=10.; ####" << std::endl;
-  A*=10.;
-  
-  //// make dgematrix B ////
-  CPPL::dgematrix B(A);
-  std::cout << "B =\n" << B << std::endl;
-  for(int i=0; i<B.m; i++){ for(int j=0; j<B.n; j++){
-    std::cout << "B(" << i << "," << j << ") =" << B(i,j) << std::endl;
-  }}
-  
-  //// print A+B ////
-  std::cout << "A+B=\n" << A+B << std::endl;
-  
-  //// write/read ////
-  std::cout << "writeing B into tmp.txt" << std::endl;
-  B.write( "tmp.txt" );
-  CPPL::dgematrix C;
-  std::cout << "reading tmp.txt into C" << std::endl;
-  C.read( "tmp.txt" );
-  std::cout << "C-B =\n" << C-B << "<-Should be zero." << std::endl;
-  
-  
-  //// const ////
-  const CPPL::dgematrix X( CPPL::dgematrix(2,2)
-                           .set(0,0,1).set(0,1,2).set(1,0,3).set(1,1,4) );
-  std::cout << "X=\n" << X << std::endl;
-  
-  return 0;
-}
diff --git a/cpplapack-r198/.svn/pristine/79/7989116864f94938bf5dadafdf3c10571c7a8ba7.svn-base b/cpplapack-r198/.svn/pristine/79/7989116864f94938bf5dadafdf3c10571c7a8ba7.svn-base
deleted file mode 100644
index d2250b1..0000000
--- a/cpplapack-r198/.svn/pristine/79/7989116864f94938bf5dadafdf3c10571c7a8ba7.svn-base
+++ /dev/null
@@ -1,48 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int M(5), N(4), KL(2), KU(1);
-  
-  CPPL::dgbmatrix A(M,N,KL,KU), B;
-  for(int i=0; i<A.m; i++){ for(int j=0; j<A.n; j++){
-	if(!( i-j>A.kl || j-i>A.ku )){ A(i,j) =double( rand() /(RAND_MAX/10) ); }
-  }}
-  
-  cout << "A =\n" << A << endl;
-  cout << "#### B.copy(A) ####" << endl;
-  B.copy(A);
-  cout << "B =\n" << B << endl;
-  
-  cout << "#### B.clear() ####" << endl;
-  B.clear();
-  cout << "B =\n" << B << endl;
-  
-  cout << "#### B.resize(4,4,1,2) & B.zero() ####" << endl;
-  B.resize(4,4,1,2);
-  B.zero();
-  cout << "B =\n" << B << endl;
-  
-  cout << "#### B.identity() ####" << endl;
-  B.identity();
-  cout << "B =\n" << B << endl;
-  
-  cout << "B(0,:)=\n" << B.row(0) << endl;
-  cout << "B(:,0)=\n" << B.col(0) << endl;
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/79/79891de5cda4d8f30379a011fc45f62b340cae4c.svn-base b/cpplapack-r198/.svn/pristine/79/79891de5cda4d8f30379a011fc45f62b340cae4c.svn-base
deleted file mode 100644
index 1643c25..0000000
--- a/cpplapack-r198/.svn/pristine/79/79891de5cda4d8f30379a011fc45f62b340cae4c.svn-base
+++ /dev/null
@@ -1,38 +0,0 @@
-//=============================================================================
-/*! zgematrix_small constructor */
-template<CPPL_INT m, CPPL_INT n>
-inline zgematrix_small<m,n>::zgematrix_small()
-{CPPL_VERBOSE_REPORT;
-  ;
-}
-
-//=============================================================================
-/*! zgematrix_small constructor */
-template<CPPL_INT m, CPPL_INT n>
-inline zgematrix_small<m,n>::zgematrix_small(const zgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( m!=mat.m || n!=mat.n ){
-    ERROR_REPORT;
-    std::cerr << "Matrix sizes must be the same." << std::endl
-              << "Your input was " << m << "x" << n << " and " << mat.m << "x" << mat.n << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT k=0; k<m*n; k++){
-    array[k] =mat.array[k];
-  }
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zgematrix_small destructor */
-template<CPPL_INT m, CPPL_INT n>
-inline zgematrix_small<m,n>::~zgematrix_small()
-{CPPL_VERBOSE_REPORT;
-  ;
-}
diff --git a/cpplapack-r198/.svn/pristine/79/79aaffb5dc71fc34511597cab5bfe51e837cae49.svn-base b/cpplapack-r198/.svn/pristine/79/79aaffb5dc71fc34511597cab5bfe51e837cae49.svn-base
deleted file mode 100644
index 20c2621..0000000
--- a/cpplapack-r198/.svn/pristine/79/79aaffb5dc71fc34511597cab5bfe51e837cae49.svn-base
+++ /dev/null
@@ -1,16 +0,0 @@
-//=============================================================================
-/*! +zgematrix operator */
-inline const zgematrix& operator+(const zgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-  return mat;
-}
-
-//=============================================================================
-/*! -zgematrix operator */
-inline _zgematrix operator-(const zgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-  zgematrix newmat(mat.m,mat.n);
-  for(CPPL_INT i=0; i<newmat.m*newmat.n; i++){ newmat.array[i]=-mat.array[i]; }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/79/79bc3b82963ecdc65ed5b0bcf492aa6b384a3b83.svn-base b/cpplapack-r198/.svn/pristine/79/79bc3b82963ecdc65ed5b0bcf492aa6b384a3b83.svn-base
deleted file mode 100644
index fd06746..0000000
--- a/cpplapack-r198/.svn/pristine/79/79bc3b82963ecdc65ed5b0bcf492aa6b384a3b83.svn-base
+++ /dev/null
@@ -1,55 +0,0 @@
-//=============================================================================
-/*! dssmatrix*=double operator */
-inline dssmatrix& dssmatrix::operator*=(const double& d)
-{CPPL_VERBOSE_REPORT;
-  const std::vector<dcomponent>::iterator data_end =data.end();
-  for(std::vector<dcomponent>::iterator it=data.begin(); it!=data_end; it++){
-    it->v *=d;
-  }
-  
-  return *this;
-}
-
-//=============================================================================
-/*! dssmatrix/=double operator */
-inline dssmatrix& dssmatrix::operator/=(const double& d)
-{CPPL_VERBOSE_REPORT;
-  const std::vector<dcomponent>::iterator data_end =data.end();
-  for(std::vector<dcomponent>::iterator it=data.begin(); it!=data_end; it++){
-    it->v /=d;
-  }
-  
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! dssmatrix*double operator */
-inline _dssmatrix operator*(const dssmatrix& mat, const double& d)
-{CPPL_VERBOSE_REPORT;
-  dssmatrix newmat(mat);
-  
-  const std::vector<dcomponent>::iterator newmat_data_end =newmat.data.end();
-  for(std::vector<dcomponent>::iterator it=newmat.data.begin(); it!=newmat_data_end; it++){
-    it->v *=d;
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! dssmatrix/double operator */
-inline _dssmatrix operator/(const dssmatrix& mat, const double& d)
-{CPPL_VERBOSE_REPORT;
-  dssmatrix newmat(mat);
-  
-  const std::vector<dcomponent>::iterator newmat_data_end =newmat.data.end();
-  for(std::vector<dcomponent>::iterator it=newmat.data.begin(); it!=newmat_data_end; it++){
-    it->v /=d;
-  }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/7a/7aa659b1bca1b249ac0780961a35ec36e94c5dea.svn-base b/cpplapack-r198/.svn/pristine/7a/7aa659b1bca1b249ac0780961a35ec36e94c5dea.svn-base
deleted file mode 100644
index bc5c77c..0000000
--- a/cpplapack-r198/.svn/pristine/7a/7aa659b1bca1b249ac0780961a35ec36e94c5dea.svn-base
+++ /dev/null
@@ -1,53 +0,0 @@
-###############################################################################
-##                                 Makefile                                  ##
-###############################################################################
-
-CXX = g++
-
-######## FLAGS ########
-FLAGS += -O3 -funroll-loops -ffast-math #-mfpmath=sse
-FLAGS += -fomit-frame-pointer #-ftree-vectorizer-verbose=5
-#FLAGS = -march=core2 -msse4.1
-FLAGS += -std=c++0x # -std=c++98 #
-##FLAGS += -fprefetch-loop-arrays -fforce-addr -march=pentium4 -ftree-vectorize -funsafe-loop-optimizations -Wunsafe-loop-optimizations
-##FLAGS += -malign-double
-#FLAGS += -fopenmp
-
-######## LFLAGS ########
-LFLAGS = $(FLAGS)
-#LFLAGS += -static
-
-######## CFLAGS ########
-CFLAGS = $(FLAGS)
-##CFLAGS += --param large-function-growth=99999 --param max-inline-insns-single=99999 --param inline-unit-growth=99999 -Winline
-####CFLAGS += -fimplement-inlines -finline-limit=0 --param large-function-growth=0 --param max-inline-insns-single=0 --param inline-unit-growth=0
-CFLAGS += -Wall -Wno-unknown-pragmas -Wextra -ftree-vectorizer-verbose=0
-
-######## others ########
-INCLUDE_DIRS = -I./  -I$(HOME)/local/cpplapack/include
-#INCLUDE_DIRS += $(shell Magick++-config --cppflags)
-#LIB_DIRS = $(shell Magick++-config --ldflags)
-#LIBS = /usr/lib/sse2/liblapack.a /usr/lib/sse2/libblas.a -lm -lgfortran
-LIBS = -llapack -lblas -lm -lgfortran
-LIBS += -lboost_filesystem
-#LIBS += $(shell Magick++-config --libs)
-MACROS = 
-
-#############################
-######### profiling #########
-#############################
-#CFLAGS += -pg #-g
-#LFLAGS += -pg #-g
-#LIBS = $(HOME)/opt/lapack-3.1.1/lapack_gprof.a $(HOME)/opt/lapack-3.1.1/blas_gprof.a -lm -lgfortran
-#LIBS = $(HOME)/opt/lapack-3.1.1/lapack_gprof.a $(HOME)/opt/lapack-3.1.1/blas_gprof.a $(HOME)/opt/STLport-5.1.3/lib/libstlport_gprof.a -lm -lgfortran
-
-#############################
-######### debugging #########
-#############################
-ifdef DEBUG
-FLAGS = -g -O0
-CFLAGS = $(FLAGS) -Wall -Wno-unknown-pragmas -Wextra -fstack-protector-all -fbounds-check
-LFLAGS = $(FLAGS)
-##LIBS += -lefence
-MACROS = -DCPPL_DEBUG ####-DCPPL_VERBOSE
-endif
diff --git a/cpplapack-r198/.svn/pristine/7a/7af0d3d90be449756a63bf512ba10d84c341ffd0.svn-base b/cpplapack-r198/.svn/pristine/7a/7af0d3d90be449756a63bf512ba10d84c341ffd0.svn-base
deleted file mode 100644
index 3ba2a62..0000000
--- a/cpplapack-r198/.svn/pristine/7a/7af0d3d90be449756a63bf512ba10d84c341ffd0.svn-base
+++ /dev/null
@@ -1,151 +0,0 @@
-%TGIF 4.1.43-QPL
-state(0,37,100.000,0,0,0,4,1,9,1,1,1,0,1,0,1,1,'Helvetica',0,103680,0,0,0,10,0,0,1,1,0,16,0,0,1,1,1,1,1485,1050,0,0,2880,1).
-%
-% @(#)$Header$
-% %W%
-%
-unit("1 pixel/pixel").
-color_info(30,65535,0,[
-	"magenta", 65535, 0, 65535, 65535, 0, 65535, 1,
-	"red", 65535, 0, 0, 65535, 0, 0, 1,
-	"green", 0, 65535, 0, 0, 65535, 0, 1,
-	"blue", 0, 0, 65535, 0, 0, 65535, 1,
-	"yellow", 65535, 65535, 0, 65535, 65535, 0, 1,
-	"pink", 65535, 49344, 52171, 65535, 49344, 52171, 1,
-	"cyan", 0, 65535, 65535, 0, 65535, 65535, 1,
-	"CadetBlue", 24415, 40606, 41120, 24415, 40606, 41120, 1,
-	"white", 65535, 65535, 65535, 65535, 65535, 65535, 1,
-	"black", 0, 0, 0, 0, 0, 0, 1,
-	"#ff4d4d", 65535, 19789, 19789, 65280, 19712, 19712, 1,
-	"#ff9c4d", 65535, 40092, 19789, 65280, 39936, 19712, 1,
-	"#ffec4d", 65535, 60652, 19789, 65280, 60416, 19712, 1,
-	"#c4ff4d", 50372, 65535, 19789, 50176, 65280, 19712, 1,
-	"#75ff4d", 30069, 65535, 19789, 29952, 65280, 19712, 1,
-	"#4dff75", 19789, 65535, 30069, 19712, 65280, 29952, 1,
-	"#4dffc4", 19789, 65535, 50372, 19712, 65280, 50176, 1,
-	"#4decff", 19789, 60652, 65535, 19712, 60416, 65280, 1,
-	"#4d9cff", 19789, 40092, 65535, 19712, 39936, 65280, 1,
-	"#4d4dff", 19789, 19789, 65535, 19712, 19712, 65280, 1,
-	"#fffffe", 65535, 65535, 65278, 65280, 65280, 65024, 1,
-	"#e0e0e0", 57568, 57568, 57568, 57344, 57344, 57344, 1,
-	"#d0d0d0", 53456, 53456, 53456, 53248, 53248, 53248, 1,
-	"#c0c0c0", 49344, 49344, 49344, 49152, 49152, 49152, 1,
-	"#b0b0b0", 45232, 45232, 45232, 45056, 45056, 45056, 1,
-	"#a0a0a0", 41120, 41120, 41120, 40960, 40960, 40960, 1,
-	"#808080", 32896, 32896, 32896, 32768, 32768, 32768, 1,
-	"#404040", 16448, 16448, 16448, 16384, 16384, 16384, 1,
-	"#101010", 4112, 4112, 4112, 4096, 4096, 4096, 1,
-	"#000001", 0, 0, 257, 0, 0, 256, 1
-]).
-script_frac("0.6").
-fg_bg_colors('black','white').
-dont_reencode("FFDingbests:ZapfDingbats").
-page(1,"",1,'').
-box('black','',552,128,608,164,0,1,1,80,0,0,0,0,0,'1',0,[
-]).
-box('black','',452,128,508,164,0,1,1,170,0,0,0,0,0,'1',0,[
-]).
-box('black','',396,128,452,164,5,1,1,168,0,0,0,0,0,'1',1,[
-]).
-box('black','',340,128,396,164,5,1,1,164,0,0,0,0,0,'1',1,[
-]).
-box('black','',240,128,296,164,5,1,1,127,0,0,0,0,0,'1',1,[
-]).
-box('black','',184,128,240,164,5,1,1,126,0,0,0,0,0,'1',1,[
-]).
-box('black','',128,128,184,164,5,1,1,122,0,0,0,0,0,'1',1,[
-]).
-text('black',156,134,1,1,1,10,22,36,18,4,0,0,0,0,2,10,22,0,0,"",0,0,0,0,152,'',[
-minilines(10,22,0,0,1,0,0,[
-mini_line(10,18,4,0,0,0,[
-str_block(0,10,18,4,0,-1,0,0,0,[
-str_seg('black','Helvetica',0,103680,10,18,4,0,-1,0,0,0,0,0,
-	"0")])
-])
-])]).
-text('black',212,134,1,1,1,10,22,38,18,4,0,0,0,0,2,10,22,0,0,"",0,0,0,0,152,'',[
-minilines(10,22,0,0,1,0,0,[
-mini_line(10,18,4,0,0,0,[
-str_block(0,10,18,4,0,-3,0,0,0,[
-str_seg('black','Helvetica',0,103680,10,18,4,0,-3,0,0,0,0,0,
-	"1")])
-])
-])]).
-text('black',268,134,1,1,1,10,22,45,18,4,0,0,0,0,2,10,22,0,0,"",0,0,0,0,152,'',[
-minilines(10,22,0,0,1,0,0,[
-mini_line(10,18,4,0,0,0,[
-str_block(0,10,18,4,0,-1,0,0,0,[
-str_seg('black','Helvetica',0,103680,10,18,4,0,-1,0,0,0,0,0,
-	"2")])
-])
-])]).
-text('black',368,134,1,1,1,42,22,87,18,4,0,0,0,0,2,42,22,0,0,"",0,0,0,0,152,'',[
-minilines(42,22,0,0,1,0,0,[
-mini_line(42,18,4,0,0,0,[
-str_block(0,42,18,4,0,-1,0,0,0,[
-str_seg('black','Helvetica',0,103680,42,18,4,0,-1,0,0,0,0,0,
-	"vol-2")])
-])
-])]).
-text('black',580,134,1,1,1,47,22,96,18,4,0,0,0,0,2,47,22,0,0,"",0,0,0,0,152,'',[
-minilines(47,22,0,0,1,0,0,[
-mini_line(47,18,4,0,0,0,[
-str_block(0,47,18,4,0,-3,0,0,0,[
-str_seg('black','Helvetica',0,103680,47,18,4,0,-3,0,0,0,0,0,
-	"cap-1")])
-])
-])]).
-oval('black','',304,144,308,148,1,3,1,135,0,0,0,0,0,'3',0,[
-]).
-oval('black','',316,144,320,148,1,3,1,148,0,0,0,0,0,'3',0,[
-]).
-oval('black','',328,144,332,148,1,3,1,149,0,0,0,0,0,'3',0,[
-]).
-text('black',424,134,1,1,1,42,22,167,18,4,0,0,0,0,2,42,22,0,0,"",0,0,0,0,152,'',[
-minilines(42,22,0,0,1,0,0,[
-mini_line(42,18,4,0,0,0,[
-str_block(0,42,18,4,0,-3,0,0,0,[
-str_seg('black','Helvetica',0,103680,42,18,4,0,-3,0,0,0,0,0,
-	"vol-1")])
-])
-])]).
-text('black',480,134,1,1,1,25,22,169,18,4,0,0,0,0,2,25,22,0,0,"",0,0,0,0,152,'',[
-minilines(25,22,0,0,1,0,0,[
-mini_line(25,18,4,0,0,0,[
-str_block(0,25,18,4,0,-1,0,0,0,[
-str_seg('black','Helvetica',0,103680,25,18,4,0,-1,0,0,0,0,0,
-	"vol")])
-])
-])]).
-oval('black','',516,144,520,148,1,3,1,181,0,0,0,0,0,'3',0,[
-]).
-oval('black','',528,144,532,148,1,3,1,182,0,0,0,0,0,'3',0,[
-]).
-oval('black','',540,144,544,148,1,3,1,183,0,0,0,0,0,'3',0,[
-]).
-poly('black','',4,[
-	128,124,128,116,452,116,452,124],0,2,1,347,0,0,0,0,0,0,0,'2',1,0,
-    "0","",[
-    0,10,4,0,'10','4','0'],[0,10,4,0,'10','4','0'],[
-]).
-text('black',288,94,1,1,1,115,22,350,18,4,0,0,0,0,2,115,22,0,0,"",0,0,0,1,112,'',[
-minilines(115,22,0,0,1,0,0,[
-mini_line(115,18,4,0,0,0,[
-str_block(0,115,18,4,0,-1,0,0,0,[
-str_seg('black','Helvetica',0,103680,115,18,4,0,-1,0,0,0,0,0,
-	"Effective Data")])
-])
-])]).
-poly('black','',4,[
-	128,96,128,76,608,76,608,96],0,2,1,353,0,0,0,0,0,0,0,'2',1,0,
-    "0","",[
-    0,10,4,0,'10','4','0'],[0,10,4,0,'10','4','0'],[
-]).
-text('black',368,54,1,1,1,115,22,361,18,4,0,0,0,0,2,115,22,0,0,"",0,0,0,1,72,'',[
-minilines(115,22,0,0,1,0,0,[
-mini_line(115,18,4,0,0,0,[
-str_block(0,115,18,4,0,-1,0,0,0,[
-str_seg('black','Helvetica',0,103680,115,18,4,0,-1,0,0,0,0,0,
-	"Data Capacity")])
-])
-])]).
diff --git a/cpplapack-r198/.svn/pristine/7b/7b783f5322d58dda351cf2bdc474d69f8c72040c.svn-base b/cpplapack-r198/.svn/pristine/7b/7b783f5322d58dda351cf2bdc474d69f8c72040c.svn-base
deleted file mode 100644
index e93d71f..0000000
--- a/cpplapack-r198/.svn/pristine/7b/7b783f5322d58dda351cf2bdc474d69f8c72040c.svn-base
+++ /dev/null
@@ -1,18 +0,0 @@
-//=============================================================================
-/*! +_zgsmatrix operator */
-inline const _zgsmatrix& operator+(const _zgsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  return mat;
-}
-
-//=============================================================================
-/*! -_zgsmatrix operator */
-inline _zgsmatrix operator-(const _zgsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  const std::vector<zcomponent>::iterator mat_data_end =mat.data.end();
-  for(std::vector<zcomponent>::iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    it->v = -it->v;
-  }
-  
-  return mat;
-}
diff --git a/cpplapack-r198/.svn/pristine/7b/7b814d08bad878c35bd132fd025d850c13d151ad.svn-base b/cpplapack-r198/.svn/pristine/7b/7b814d08bad878c35bd132fd025d850c13d151ad.svn-base
deleted file mode 100644
index 6aaaf40..0000000
--- a/cpplapack-r198/.svn/pristine/7b/7b814d08bad878c35bd132fd025d850c13d151ad.svn-base
+++ /dev/null
@@ -1,55 +0,0 @@
-//=============================================================================
-/*! dgsmatrix*=double operator */
-inline dgsmatrix& dgsmatrix::operator*=(const double& d)
-{CPPL_VERBOSE_REPORT;
-  const std::vector<dcomponent>::iterator data_end =data.end();
-  for(std::vector<dcomponent>::iterator it=data.begin(); it!=data_end; it++){
-    it->v *=d;
-  }
-  
-  return *this;
-}
-
-//=============================================================================
-/*! dgsmatrix/=double operator */
-inline dgsmatrix& dgsmatrix::operator/=(const double& d)
-{CPPL_VERBOSE_REPORT;
-  const std::vector<dcomponent>::iterator data_end =data.end();
-  for(std::vector<dcomponent>::iterator it=data.begin(); it!=data_end; it++){
-    it->v /=d;
-  }
-  
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! dgsmatrix*double operator */
-inline _dgsmatrix operator*(const dgsmatrix& mat, const double& d)
-{CPPL_VERBOSE_REPORT;
-  dgsmatrix newmat(mat);
-  
-  const std::vector<dcomponent>::iterator newmat_data_end =newmat.data.end();
-  for(std::vector<dcomponent>::iterator it=newmat.data.begin(); it!=newmat_data_end; it++){
-    it->v *=d;
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! dgsmatrix/double operator */
-inline _dgsmatrix operator/(const dgsmatrix& mat, const double& d)
-{CPPL_VERBOSE_REPORT;
-  dgsmatrix newmat(mat);
-  
-  const std::vector<dcomponent>::iterator newmat_data_end =newmat.data.end();
-  for(std::vector<dcomponent>::iterator it=newmat.data.begin(); it!=newmat_data_end; it++){
-    it->v /=d;
-  }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/7b/7be82f314e204d754747d135fdd512da86c6536d.svn-base b/cpplapack-r198/.svn/pristine/7b/7be82f314e204d754747d135fdd512da86c6536d.svn-base
deleted file mode 100644
index c96e300..0000000
--- a/cpplapack-r198/.svn/pristine/7b/7be82f314e204d754747d135fdd512da86c6536d.svn-base
+++ /dev/null
@@ -1,68 +0,0 @@
-//=============================================================================
-/*! _dgematrix+dsymatrix operator */
-inline _dgematrix operator+(const dsymatrix& matA, const _dgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<matA.n; i++) {
-    for(CPPL_INT j=0; j<matA.n; j++) {
-      matB(i,j) += matA(i,j);
-    }
-  }
-  
-  return matB;
-}
-
-//=============================================================================
-/*! _dgematrix-dgematrix operator */
-inline _dgematrix operator-(const dsymatrix& matA, const _dgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") - (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  for(CPPL_INT i=0; i<matA.n; i++){
-    for(CPPL_INT j=0; j<matA.n; j++){
-      matB(i,j) =matA(i,j)-matB(i,j);
-    }
-  }
-  
-  return matB;
-}
-
-//=============================================================================
-/*! _dgematrix*dgematrix operator */
-inline _dgematrix operator*(const dsymatrix& matA, const _dgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat( matA.n, matB.n );
-  char side ='l';
-  char uplo ='l';
-  double alpha =1.;
-  double beta =0.;
-
-  dsymm_( &side, &uplo, &matA.n, &matB.n, &alpha, matA.array, &matA.n, matB.array, &matB.m, &beta, newmat.array, &newmat.m );
-  
-  matB.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/7b/7beb78fc4567e9e5cb05ce69b5e4467f369f02b7.svn-base b/cpplapack-r198/.svn/pristine/7b/7beb78fc4567e9e5cb05ce69b5e4467f369f02b7.svn-base
deleted file mode 100644
index 9ee2963..0000000
--- a/cpplapack-r198/.svn/pristine/7b/7beb78fc4567e9e5cb05ce69b5e4467f369f02b7.svn-base
+++ /dev/null
@@ -1,39 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int N(3);
-  
-  CPPL::zhematrix A(N), B(N);
-  for(int i=0; i<A.n; i++){
-    for(int j=0; j<i; j++){
-      A(i,j) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-      B(i,j) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-    }
-    A(i,i) =complex<double>(rand()/(RAND_MAX/10), 0.0);
-    B(i,i) =complex<double>(rand()/(RAND_MAX/10), 0.0);
-  }
-  
-  cout << "A =\n" << A << endl;
-  cout << "B =\n" << B << endl;
-  
-  cout << "A+B =\n" << A+B << endl;
-  cout << "A-B =\n" << A-B << endl;
-  cout << "A*B =\n" << A*B << endl;
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/7c/7cc34a7b1ee11e4820fdf2e4ecbfbde337c29ea2.svn-base b/cpplapack-r198/.svn/pristine/7c/7cc34a7b1ee11e4820fdf2e4ecbfbde337c29ea2.svn-base
deleted file mode 100644
index e87b9d3..0000000
--- a/cpplapack-r198/.svn/pristine/7c/7cc34a7b1ee11e4820fdf2e4ecbfbde337c29ea2.svn-base
+++ /dev/null
@@ -1,98 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<Project DefaultTargets="Build" ToolsVersion="4.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
-  <ItemGroup Label="ProjectConfigurations">
-    <ProjectConfiguration Include="Debug|Win32">
-      <Configuration>Debug</Configuration>
-      <Platform>Win32</Platform>
-    </ProjectConfiguration>
-    <ProjectConfiguration Include="Release|Win32">
-      <Configuration>Release</Configuration>
-      <Platform>Win32</Platform>
-    </ProjectConfiguration>
-  </ItemGroup>
-  <PropertyGroup Label="Globals">
-    <ProjectGuid>{61037E7C-EF94-43D7-B5DF-74F1BEB33710}</ProjectGuid>
-    <RootNamespace>Test</RootNamespace>
-    <Keyword>Win32Proj</Keyword>
-  </PropertyGroup>
-  <Import Project="$(VCTargetsPath)\Microsoft.Cpp.Default.props" />
-  <PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Release|Win32'" Label="Configuration">
-    <ConfigurationType>Application</ConfigurationType>
-    <CharacterSet>Unicode</CharacterSet>
-    <WholeProgramOptimization>true</WholeProgramOptimization>
-  </PropertyGroup>
-  <PropertyGroup Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'" Label="Configuration">
-    <ConfigurationType>Application</ConfigurationType>
-    <CharacterSet>Unicode</CharacterSet>
-  </PropertyGroup>
-  <Import Project="$(VCTargetsPath)\Microsoft.Cpp.props" />
-  <ImportGroup Label="ExtensionSettings">
-  </ImportGroup>
-  <ImportGroup Condition="'$(Configuration)|$(Platform)'=='Release|Win32'" Label="PropertySheets">
-    <Import Project="$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props" Condition="exists('$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props')" Label="LocalAppDataPlatform" />
-  </ImportGroup>
-  <ImportGroup Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'" Label="PropertySheets">
-    <Import Project="$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props" Condition="exists('$(UserRootDir)\Microsoft.Cpp.$(Platform).user.props')" Label="LocalAppDataPlatform" />
-  </ImportGroup>
-  <PropertyGroup Label="UserMacros" />
-  <PropertyGroup>
-    <_ProjectFileVersion>10.0.30319.1</_ProjectFileVersion>
-    <OutDir Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">$(SolutionDir)$(Configuration)\</OutDir>
-    <IntDir Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">$(Configuration)\</IntDir>
-    <LinkIncremental Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">true</LinkIncremental>
-    <OutDir Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">$(SolutionDir)$(Configuration)\</OutDir>
-    <IntDir Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">$(Configuration)\</IntDir>
-    <LinkIncremental Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">false</LinkIncremental>
-  </PropertyGroup>
-  <ItemDefinitionGroup Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">
-    <ClCompile>
-      <Optimization>Disabled</Optimization>
-      <AdditionalIncludeDirectories>C:\cpplapack\include;%(AdditionalIncludeDirectories)</AdditionalIncludeDirectories>
-      <PreprocessorDefinitions>CPPL_DEBUG;WIN32;_DEBUG;_CONSOLE;%(PreprocessorDefinitions)</PreprocessorDefinitions>
-      <MinimalRebuild>true</MinimalRebuild>
-      <BasicRuntimeChecks>EnableFastChecks</BasicRuntimeChecks>
-      <RuntimeLibrary>MultiThreadedDebug</RuntimeLibrary>
-      <PrecompiledHeader>
-      </PrecompiledHeader>
-      <WarningLevel>Level3</WarningLevel>
-      <DebugInformationFormat>EditAndContinue</DebugInformationFormat>
-    </ClCompile>
-    <Link>
-      <AdditionalDependencies>libf2c.lib;BLAS.lib;clapack.lib;%(AdditionalDependencies)</AdditionalDependencies>
-      <AdditionalLibraryDirectories>C:\cpplapack\lib;%(AdditionalLibraryDirectories)</AdditionalLibraryDirectories>
-      <IgnoreSpecificDefaultLibraries>LIBCMT;%(IgnoreSpecificDefaultLibraries)</IgnoreSpecificDefaultLibraries>
-      <GenerateDebugInformation>true</GenerateDebugInformation>
-      <SubSystem>Console</SubSystem>
-      <TargetMachine>MachineX86</TargetMachine>
-    </Link>
-  </ItemDefinitionGroup>
-  <ItemDefinitionGroup Condition="'$(Configuration)|$(Platform)'=='Release|Win32'">
-    <ClCompile>
-      <Optimization>MaxSpeed</Optimization>
-      <IntrinsicFunctions>true</IntrinsicFunctions>
-      <AdditionalIncludeDirectories>C:\cpplapack\include;%(AdditionalIncludeDirectories)</AdditionalIncludeDirectories>
-      <PreprocessorDefinitions>WIN32;NDEBUG;_CONSOLE;%(PreprocessorDefinitions)</PreprocessorDefinitions>
-      <RuntimeLibrary>MultiThreaded</RuntimeLibrary>
-      <FunctionLevelLinking>true</FunctionLevelLinking>
-      <PrecompiledHeader>
-      </PrecompiledHeader>
-      <WarningLevel>Level3</WarningLevel>
-      <DebugInformationFormat>ProgramDatabase</DebugInformationFormat>
-    </ClCompile>
-    <Link>
-      <AdditionalDependencies>libf2c.lib;BLAS.lib;clapack.lib;%(AdditionalDependencies)</AdditionalDependencies>
-      <AdditionalLibraryDirectories>C:\cpplapack\lib;%(AdditionalLibraryDirectories)</AdditionalLibraryDirectories>
-      <GenerateDebugInformation>true</GenerateDebugInformation>
-      <SubSystem>Console</SubSystem>
-      <OptimizeReferences>true</OptimizeReferences>
-      <EnableCOMDATFolding>true</EnableCOMDATFolding>
-      <TargetMachine>MachineX86</TargetMachine>
-    </Link>
-  </ItemDefinitionGroup>
-  <ItemGroup>
-    <ClCompile Include="main.cpp" />
-  </ItemGroup>
-  <Import Project="$(VCTargetsPath)\Microsoft.Cpp.targets" />
-  <ImportGroup Label="ExtensionTargets">
-  </ImportGroup>
-</Project>
\ No newline at end of file
diff --git a/cpplapack-r198/.svn/pristine/7d/7d4a867797617593aafebd85616772161c21a355.svn-base b/cpplapack-r198/.svn/pristine/7d/7d4a867797617593aafebd85616772161c21a355.svn-base
deleted file mode 100644
index 614bc9b..0000000
--- a/cpplapack-r198/.svn/pristine/7d/7d4a867797617593aafebd85616772161c21a355.svn-base
+++ /dev/null
@@ -1,24 +0,0 @@
-//=============================================================================
-/*! _zrovector*zhematrix operator */
-inline _zrovector operator*(const _zrovector& vec, const zhematrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vec.l!=mat.n){
-    ERROR_REPORT;
-    std::cerr << "These vector and matrix can not make a product." << std::endl
-              << "Your input was (" << vec.l << ") * (" << mat.n << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zrovector newvec(mat.n);
-  char uplo ='l';
-  comple alpha =comple(1.,0.);
-  CPPL_INT inc =1;
-  comple beta =comple(0.,0.);
-  
-  zhemv_( &uplo, &mat.n, &alpha, mat.array, &mat.n, vec.array, &inc, &beta, newvec.array, &inc );
-  
-  vec.destroy();
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/7d/7d78139c5563f7940f73c704b60510342c2194ee.svn-base b/cpplapack-r198/.svn/pristine/7d/7d78139c5563f7940f73c704b60510342c2194ee.svn-base
deleted file mode 100644
index a08a3cf..0000000
--- a/cpplapack-r198/.svn/pristine/7d/7d78139c5563f7940f73c704b60510342c2194ee.svn-base
+++ /dev/null
@@ -1,200 +0,0 @@
-<?xml version="1.0" encoding="shift_jis"?>
-<VisualStudioProject
-	ProjectType="Visual C++"
-	Version="9.00"
-	Name="vc_sample"
-	ProjectGUID="{61037E7C-EF94-43D7-B5DF-74F1BEB33710}"
-	RootNamespace="Test"
-	Keyword="Win32Proj"
-	TargetFrameworkVersion="196613"
-	>
-	<Platforms>
-		<Platform
-			Name="Win32"
-		/>
-	</Platforms>
-	<ToolFiles>
-	</ToolFiles>
-	<Configurations>
-		<Configuration
-			Name="Debug|Win32"
-			OutputDirectory="$(SolutionDir)$(ConfigurationName)"
-			IntermediateDirectory="$(ConfigurationName)"
-			ConfigurationType="1"
-			CharacterSet="1"
-			>
-			<Tool
-				Name="VCPreBuildEventTool"
-			/>
-			<Tool
-				Name="VCCustomBuildTool"
-			/>
-			<Tool
-				Name="VCXMLDataGeneratorTool"
-			/>
-			<Tool
-				Name="VCWebServiceProxyGeneratorTool"
-			/>
-			<Tool
-				Name="VCMIDLTool"
-			/>
-			<Tool
-				Name="VCCLCompilerTool"
-				Optimization="0"
-				AdditionalIncludeDirectories="C:\cpplapack\include"
-				PreprocessorDefinitions="CPPL_DEBUG;WIN32;_DEBUG;_CONSOLE"
-				MinimalRebuild="true"
-				BasicRuntimeChecks="3"
-				RuntimeLibrary="1"
-				UsePrecompiledHeader="0"
-				WarningLevel="3"
-				DebugInformationFormat="4"
-			/>
-			<Tool
-				Name="VCManagedResourceCompilerTool"
-			/>
-			<Tool
-				Name="VCResourceCompilerTool"
-			/>
-			<Tool
-				Name="VCPreLinkEventTool"
-			/>
-			<Tool
-				Name="VCLinkerTool"
-				AdditionalDependencies="libf2c.lib BLAS.lib clapack.lib"
-				LinkIncremental="2"
-				AdditionalLibraryDirectories="C:\cpplapack\lib"
-				IgnoreDefaultLibraryNames="LIBCMT"
-				GenerateDebugInformation="true"
-				SubSystem="1"
-				TargetMachine="1"
-			/>
-			<Tool
-				Name="VCALinkTool"
-			/>
-			<Tool
-				Name="VCManifestTool"
-			/>
-			<Tool
-				Name="VCXDCMakeTool"
-			/>
-			<Tool
-				Name="VCBscMakeTool"
-			/>
-			<Tool
-				Name="VCFxCopTool"
-			/>
-			<Tool
-				Name="VCAppVerifierTool"
-			/>
-			<Tool
-				Name="VCPostBuildEventTool"
-			/>
-		</Configuration>
-		<Configuration
-			Name="Release|Win32"
-			OutputDirectory="$(SolutionDir)$(ConfigurationName)"
-			IntermediateDirectory="$(ConfigurationName)"
-			ConfigurationType="1"
-			CharacterSet="1"
-			WholeProgramOptimization="1"
-			>
-			<Tool
-				Name="VCPreBuildEventTool"
-			/>
-			<Tool
-				Name="VCCustomBuildTool"
-			/>
-			<Tool
-				Name="VCXMLDataGeneratorTool"
-			/>
-			<Tool
-				Name="VCWebServiceProxyGeneratorTool"
-			/>
-			<Tool
-				Name="VCMIDLTool"
-			/>
-			<Tool
-				Name="VCCLCompilerTool"
-				Optimization="2"
-				EnableIntrinsicFunctions="true"
-				AdditionalIncludeDirectories="C:\cpplapack\include"
-				PreprocessorDefinitions="WIN32;NDEBUG;_CONSOLE"
-				RuntimeLibrary="0"
-				EnableFunctionLevelLinking="true"
-				UsePrecompiledHeader="0"
-				WarningLevel="3"
-				DebugInformationFormat="3"
-			/>
-			<Tool
-				Name="VCManagedResourceCompilerTool"
-			/>
-			<Tool
-				Name="VCResourceCompilerTool"
-			/>
-			<Tool
-				Name="VCPreLinkEventTool"
-			/>
-			<Tool
-				Name="VCLinkerTool"
-				AdditionalDependencies="libf2c.lib BLAS.lib clapack.lib"
-				LinkIncremental="1"
-				AdditionalLibraryDirectories="C:\cpplapack\lib"
-				GenerateDebugInformation="true"
-				SubSystem="1"
-				OptimizeReferences="2"
-				EnableCOMDATFolding="2"
-				TargetMachine="1"
-			/>
-			<Tool
-				Name="VCALinkTool"
-			/>
-			<Tool
-				Name="VCManifestTool"
-			/>
-			<Tool
-				Name="VCXDCMakeTool"
-			/>
-			<Tool
-				Name="VCBscMakeTool"
-			/>
-			<Tool
-				Name="VCFxCopTool"
-			/>
-			<Tool
-				Name="VCAppVerifierTool"
-			/>
-			<Tool
-				Name="VCPostBuildEventTool"
-			/>
-		</Configuration>
-	</Configurations>
-	<References>
-	</References>
-	<Files>
-		<Filter
-			Name="source files"
-			Filter="cpp;c;cc;cxx;def;odl;idl;hpj;bat;asm;asmx"
-			UniqueIdentifier="{4FC737F1-C7A5-4376-A066-2A32D752A2FF}"
-			>
-			<File
-				RelativePath=".\main.cpp"
-				>
-			</File>
-		</Filter>
-		<Filter
-			Name="header files"
-			Filter="h;hpp;hxx;hm;inl;inc;xsd"
-			UniqueIdentifier="{93995380-89BD-4b04-88EB-625FBE52EBFB}"
-			>
-		</Filter>
-		<Filter
-			Name="resource files"
-			Filter="rc;ico;cur;bmp;dlg;rc2;rct;bin;rgs;gif;jpg;jpeg;jpe;resx;tiff;tif;png;wav"
-			UniqueIdentifier="{67DA6AB6-F800-4c08-8B7A-83BB121AAD01}"
-			>
-		</Filter>
-	</Files>
-	<Globals>
-	</Globals>
-</VisualStudioProject>
diff --git a/cpplapack-r198/.svn/pristine/7d/7db6f397ea9444ad092ad5f5a0c1b1a5c9b02910.svn-base b/cpplapack-r198/.svn/pristine/7d/7db6f397ea9444ad092ad5f5a0c1b1a5c9b02910.svn-base
deleted file mode 100644
index 3d661b8..0000000
--- a/cpplapack-r198/.svn/pristine/7d/7db6f397ea9444ad092ad5f5a0c1b1a5c9b02910.svn-base
+++ /dev/null
@@ -1,242 +0,0 @@
-//=============================================================================
-/*! clear all the matrix data and set the sizes 0 */
-inline void zgematrix::clear()
-{CPPL_VERBOSE_REPORT;
-  m =0;
-  n =0;
-  delete [] array;
-  array =NULL;
-  delete [] darray;
-  darray =NULL;
-}
-
-//=============================================================================
-/*! change the matrix into a zero matrix */
-inline zgematrix& zgematrix::zero()
-{CPPL_VERBOSE_REPORT;
-  const CPPL_INT size =m*n;
-  for(CPPL_INT i=0; i<size; i++){
-    array[i] =comple(0.,0.);
-  }
-  return *this;
-}
-
-//=============================================================================
-/*! change the matrix into an identity matrix */
-inline zgematrix& zgematrix::identity()
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(m!=n){
-    ERROR_REPORT;
-    std::cerr << "Only square matrix can be a identity matrix." << std::endl
-              << "The matrix size was " << m << "x" << n << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  const CPPL_INT size =m*n;
-  for(CPPL_INT i=0; i<size; i++){
-    array[i] =comple(0.,0.);
-  }
-  for(CPPL_INT i=0; i<m; i++){
-    operator()(i,i) =comple(1.,0.);
-  }
-  
-  return *this;
-}
-
-//=============================================================================
-/*! change sign(+/-) of the matrix */
-inline void zgematrix::chsign()
-{CPPL_VERBOSE_REPORT;
-  const CPPL_INT size =m*n;
-  for(CPPL_INT i=0; i<size; i++){
-    array[i] =-array[i];
-  }
-}
-
-//=============================================================================
-/*! make a deep copy of the matrix */
-inline void zgematrix::copy(const zgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-  m =mat.m;
-  n =mat.n;
-  delete [] array;
-  array =new comple[m*n];
-  delete [] darray;
-  darray =new comple*[n];
-  for(int i=0; i<n; i++){
-    darray[i] =&array[i*m];
-  }
-  
-  CPPL_INT size =mat.m*mat.n;
-  CPPL_INT inc =1;
-  zcopy_(&size, mat.array, &inc, array, &inc);
-}
-
-//=============================================================================
-/*! make a shallow copy of the matrix\n
-  This function is not designed to be used in project codes. */
-inline void zgematrix::shallow_copy(const _zgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-  m =mat.m;
-  n =mat.n;
-  delete [] array;
-  array =mat.array;
-  delete [] darray;
-  darray =mat.darray;
-  
-  mat.nullify();
-}
-
-//=============================================================================
-/*! resize the matrix */
-inline void zgematrix::resize(const CPPL_INT& _m, const CPPL_INT& _n)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( _m<0 || _n<0 ){
-    ERROR_REPORT;
-    std::cerr << "Matrix sizes must be positive integers." << std::endl
-              << "Your input was (" << _m << "," << _n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  m =_m;
-  n =_n;
-  delete [] array;
-  array =new comple[m*n];
-  delete [] darray;
-  darray =new comple*[n];
-  for(int i=0; i<n; i++){
-    darray[i] =&array[i*m];
-  }
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! get row of the matrix */
-inline _zrovector zgematrix::row(const CPPL_INT& _m) const
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( _m<0 || _m>m ){
-    ERROR_REPORT;
-    std::cerr << "Input row number must be between 0 and " << m << "." << std::endl
-              << "Your input was " << _m << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zrovector v(n);
-  for(CPPL_INT j=0; j<n; j++){
-    v(j)=(*this)(_m,j);
-  }
-  return _(v);
-}
-
-//=============================================================================
-/*! get column of the matrix */
-inline _zcovector zgematrix::col(const CPPL_INT& _n) const
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( _n<0 || _n>n ){
-    ERROR_REPORT;
-    std::cerr << "Input row number must be between 0 and " << n << "." << std::endl
-              << "Your input was " << _n << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zcovector v(m);
-  for(CPPL_INT i=0; i<m; i++){
-    v(i)=(*this)(i,_n);
-  }
-  return _(v);
-}
-
-//=============================================================================
-/*! extract the real part of the matrixr */
-inline _dgematrix zgematrix::real() const
-{CPPL_VERBOSE_REPORT;
-  dgematrix mat(m,n);
-  const CPPL_INT size =m*n;
-  for(CPPL_INT i=0; i<size; i++){
-    mat.array[i] =array[i].real();
-  }
-  return _(mat);
-}
-
-//=============================================================================
-/*! extract the imag part of the matrix */
-inline _dgematrix zgematrix::imag() const
-{CPPL_VERBOSE_REPORT;
-  dgematrix mat(m,n);
-  const CPPL_INT size =m*n;
-  for(CPPL_INT i=0; i<size; i++){
-    mat.array[i] =array[i].imag();
-  }
-  return _(mat);
-}
-
-//=============================================================================
-/*! extract the absolute of the matrix */
-inline _dgematrix zgematrix::abs() const
-{CPPL_VERBOSE_REPORT;
-  dgematrix mat(m,n);
-  const CPPL_INT size =m*n;
-  for(CPPL_INT i=0; i<size; i++){
-    mat.array[i] =std::abs(array[i]);
-  }
-  return _(mat);
-}
-
-//=============================================================================
-/*! extract the argument of the matrix */
-inline _dgematrix zgematrix::arg() const
-{CPPL_VERBOSE_REPORT;
-  dgematrix mat(m,n);
-  const CPPL_INT size =m*n;
-  for(CPPL_INT i=0; i<size; i++){
-    mat.array[i] =std::arg(array[i]);
-  }
-  return _(mat);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! swap two matrices */
-inline void swap(zgematrix& A, zgematrix& B)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT A_m =A.m, A_n =A.n;
-  comple* A_array =A.array;
-  comple** A_darray =A.darray;
-  A.m=B.m; A.n=B.n; A.array=B.array; A.darray=B.darray;
-  B.m=A_m; B.n=A_n; B.array=A_array; B.darray=A_darray;
-}
-
-//=============================================================================
-/*! convert user object to smart-temporary object */
-inline _zgematrix _(zgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-  _zgematrix newmat;
-
-  //////// shallow copy ////////
-  newmat.m =mat.m;
-  newmat.n =mat.n;
-  newmat.array =mat.array;
-  newmat.darray =mat.darray;
-  
-  //////// nullify ////////
-  mat.m =0;
-  mat.n =0;
-  mat.array =NULL;
-  mat.darray =NULL;
-
-  return newmat;
-}
diff --git a/cpplapack-r198/.svn/pristine/7e/7e23e1b3c83f5c16e705b41fec9996942f5e2cd9.svn-base b/cpplapack-r198/.svn/pristine/7e/7e23e1b3c83f5c16e705b41fec9996942f5e2cd9.svn-base
deleted file mode 100644
index 84d137d..0000000
--- a/cpplapack-r198/.svn/pristine/7e/7e23e1b3c83f5c16e705b41fec9996942f5e2cd9.svn-base
+++ /dev/null
@@ -1,95 +0,0 @@
-//=============================================================================
-/*! dgsmatrix constructor without arguments */
-inline dgsmatrix::dgsmatrix()
-{CPPL_VERBOSE_REPORT;
-  //////// initialize ////////
-  m =0;
-  n =0;
-  data.clear();
-  rows.clear();
-  cols.clear();
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! dgsmatrix copy constructor */
-inline dgsmatrix::dgsmatrix(const dgsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  m =mat.m;
-  n =mat.n;
-  data.clear();
-  rows.clear();
-  cols.clear();
-  copy(mat);
-}
-
-//=============================================================================
-/*! dgsmatrix constructor to cast _dgsmatrix */
-inline dgsmatrix::dgsmatrix(const _dgsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  m =mat.m;
-  n =mat.n;
-  data.clear();
-  rows.clear();
-  cols.clear();
-  
-  data.swap(mat.data);
-  rows.swap(mat.rows);
-  cols.swap(mat.cols);
-  
-  mat.nullify();
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! dgsmatrix constructor with size specification */
-inline dgsmatrix::dgsmatrix(const CPPL_INT& _m, const CPPL_INT& _n, const CPPL_INT _c)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( _m<0 || _n<0 || _c<0 ){
-    ERROR_REPORT;
-    std::cerr << "Matrix sizes and the length of arrays must be positive integers. " << std::endl
-              << "Your input was (" << _m << "," << _n << "," << _c << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //////// initialize ////////
-  m =_m;
-  n =_n;
-  data.resize(0);
-  data.reserve(_c);
-  rows.resize(m);
-  cols.resize(n);
-}
-
-//=============================================================================
-/*! dgsmatrix constructor with filename */
-inline dgsmatrix::dgsmatrix(const char* filename)
-{CPPL_VERBOSE_REPORT;
-  data.clear();
-  rows.clear();
-  cols.clear();
-  
-  //// read ////
-  read(filename);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! dgsmatrix destructor */
-inline dgsmatrix::~dgsmatrix()
-{CPPL_VERBOSE_REPORT;
-  data.clear();
-  rows.clear();
-  cols.clear();
-}
diff --git a/cpplapack-r198/.svn/pristine/7f/7f0158e5540aa46e4a1f55cb219c096799c37d44.svn-base b/cpplapack-r198/.svn/pristine/7f/7f0158e5540aa46e4a1f55cb219c096799c37d44.svn-base
deleted file mode 100644
index fd6a84e..0000000
--- a/cpplapack-r198/.svn/pristine/7f/7f0158e5540aa46e4a1f55cb219c096799c37d44.svn-base
+++ /dev/null
@@ -1,20 +0,0 @@
-//=============================================================================
-/*! +zhsmatrix operator */
-inline const zhsmatrix& operator+(const zhsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  return mat;
-}
-
-//=============================================================================
-/*! -zhsmatrix operator */
-inline _zhsmatrix operator-(const zhsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  zhsmatrix newmat(mat);
-  
-  const std::vector<zcomponent>::iterator newmat_data_end =newmat.data.end();
-  for(std::vector<zcomponent>::iterator it=newmat.data.begin(); it!=newmat_data_end; it++){
-    it->v =-it->v;
-  }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/7f/7f5b5530fb54cb6c42640dd5d439591eb2ea7582.svn-base b/cpplapack-r198/.svn/pristine/7f/7f5b5530fb54cb6c42640dd5d439591eb2ea7582.svn-base
deleted file mode 100644
index 1c3aafb..0000000
--- a/cpplapack-r198/.svn/pristine/7f/7f5b5530fb54cb6c42640dd5d439591eb2ea7582.svn-base
+++ /dev/null
@@ -1,36 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int M(5), N(3), CAP(4);
-  
-  CPPL::dgsmatrix A(M,N,CAP);
-  A.put(0,0, 1.);
-  A.put(3,2, 2.);
-  A.put(1,2, 3.);
-  A.put(4,1, 4.);
-  std::cout << "A =\n" << A << std::endl;;
-  
-  CPPL::dcovector x(N);
-  for(int i=0; i<x.l; i++){
-    x(i) =double( rand() /(RAND_MAX/10) );
-  }
-  std::cout << "x =\n" << x << std::endl;;
-  
-  std::cout << "A*x =\n" << A*x << std::endl;;
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/7f/7fd6ce1caeeb13e375e6015a1863c255235c1ce7.svn-base b/cpplapack-r198/.svn/pristine/7f/7fd6ce1caeeb13e375e6015a1863c255235c1ce7.svn-base
deleted file mode 100644
index 2e78c68..0000000
--- a/cpplapack-r198/.svn/pristine/7f/7fd6ce1caeeb13e375e6015a1863c255235c1ce7.svn-base
+++ /dev/null
@@ -1,73 +0,0 @@
-//=============================================================================
-/*! _dgsmatrix+dgsmatrix operator */
-inline _dgsmatrix operator+(const _dgsmatrix& matA, const dgsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgsmatrix newmat(matA);
-  
-  const std::vector<dcomponent>::const_iterator matB_data_end =matB.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matB.data.begin(); it!=matB_data_end; it++){
-    newmat(it->i,it->j) += it->v;
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _dgsmatrix-dgsmatrix operator */
-inline _dgsmatrix operator-(const _dgsmatrix& matA, const dgsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") - (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgsmatrix newmat(matA);
-  
-  const std::vector<dcomponent>::const_iterator matB_data_end =matB.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matB.data.begin(); it!=matB_data_end; it++){
-    newmat(it->i,it->j) -= it->v;
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _dgsmatrix*dgsmatrix operator */
-inline _dgsmatrix operator*(const _dgsmatrix& matA, const dgsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgsmatrix newmat( matA.m, matB.n );
-  
-  const std::vector<dcomponent>::const_iterator matA_data_end =matA.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matA.data.begin(); it!=matA_data_end; it++){
-    CPPL_INT k =it->j;
-    const std::vector<CPPL_INT>::const_iterator matB_rows_k_end =matB.rows[k].end();
-    for(std::vector<CPPL_INT>::const_iterator p=matB.rows[k].begin(); p!=matB_rows_k_end; p++){
-      newmat(it->i,matB.data[*p].j) += it->v*matB.data[*p].v;
-    }
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/7f/7fdce7ac13eb29ce20c3f01ecd3c1257240cb6ff.svn-base b/cpplapack-r198/.svn/pristine/7f/7fdce7ac13eb29ce20c3f01ecd3c1257240cb6ff.svn-base
deleted file mode 100644
index 47fe695..0000000
--- a/cpplapack-r198/.svn/pristine/7f/7fdce7ac13eb29ce20c3f01ecd3c1257240cb6ff.svn-base
+++ /dev/null
@@ -1,47 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int M(6), N(5), KL(2), KU(1);
-  
-  CPPL::dgbmatrix A;
-  cout << "A ||"
-       << " m=" << A.m << ", n=" << A.n
-       << " kl=" << A.kl << ", ku=" << A.ku
-       << ", array=" << A.array << endl;
-  
-  
-  CPPL::dgbmatrix B(M,N,KL,KU);
-  for(int i=0; i<B.m; i++){ for(int j=0; j<B.n; j++){
-    if( !((i-j)>B.kl || (j-i)>B.ku) ){ B(i,j) =double( rand() /(RAND_MAX/10) ); }
-  }}
-  cout << "B ||"
-       << " m=" << B.m << ", n=" << B.n
-       << " kl=" << B.kl << ", ku=" << B.ku
-       << ", array=" << B.array << endl;
-  cout << "B =\n" << B << endl;
-  
-  
-  CPPL::dgbmatrix C(B);
-  cout << "C ||"
-       << " m=" << C.m << ", n=" << C.n
-       << " kl=" << C.kl << ", ku=" << C.ku
-       << ", array=" << C.array << endl;
-  cout << "C =\n" << C << endl;
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/7f/7fde3ee0d068d3cd793a7d52a327fffdfde4d937.svn-base b/cpplapack-r198/.svn/pristine/7f/7fde3ee0d068d3cd793a7d52a327fffdfde4d937.svn-base
deleted file mode 100644
index 79894ff..0000000
--- a/cpplapack-r198/.svn/pristine/7f/7fde3ee0d068d3cd793a7d52a327fffdfde4d937.svn-base
+++ /dev/null
@@ -1,94 +0,0 @@
-//=============================================================================
-//! Samll Complex Double-precision General Dence Matrix Class
-template<CPPL_INT m, CPPL_INT n> class zgematrix_small
-{
-public:
-  ///////////////////////////////////////////////
-  /////////////////// objects ///////////////////
-  ///////////////////////////////////////////////
-  comple array[m*n];
-  
-  ///////////////////////////////////////////////
-  ///////////////// constructors ////////////////
-  ///////////////////////////////////////////////
-  inline zgematrix_small();
-  inline explicit zgematrix_small(const zgematrix&);
-  inline ~zgematrix_small();
-  
-  ///////////////////////////////////////////////
-  ////////////////// functions //////////////////
-  ///////////////////////////////////////////////
-  //////// cast ////////
-  inline _zgematrix to_zgematrix() const;
-  
-  //////// io ////////
-  inline comple& operator()(const CPPL_INT& i, const CPPL_INT& j);
-  inline comple  operator()(const CPPL_INT& i, const CPPL_INT& j) const;
-  inline zgematrix_small<m,n>& set(const CPPL_INT& i, const CPPL_INT& j, const comple& v);
-  template<CPPL_INT _m, CPPL_INT _n> inline friend std::ostream& operator<<(std::ostream&, const zgematrix_small<_m,_n>&);
-  inline void read(const char* filename);
-  inline void write(const char* filename) const;
-  
-  //////// calc ////////
-#ifndef _MSC_VER
-  template<CPPL_INT _m, CPPL_INT _n> inline friend zgematrix_small<n,m> t(const zgematrix_small<m,n>&);
-#endif//_MSC_VER
-  
-  //////// misc ////////
-  inline zgematrix_small<m,n>& zero();
-  inline zgematrix_small<m,n>& identity();
-  inline zcovector_small<m> col(const CPPL_INT& j) const;
-  inline zrovector_small<n> row(const CPPL_INT& i) const;
-
-  ///////////////////////////////////////////////
-  ///////////// numerical operators /////////////
-  ///////////////////////////////////////////////
-#ifndef _MSC_VER
-  //////// = ////////
-  template<CPPL_INT M, CPPL_INT N> inline zgematrix_small<M,N>& operator= (const  zgematrix_small<M,N>&);
-  //////// += ////////
-  template<CPPL_INT M, CPPL_INT N> inline friend zgematrix_small<M,N>& operator+=(zgematrix_small<M,N>&, const zgematrix_small<M,N>&);
-  //////// -= ////////
-  template<CPPL_INT M, CPPL_INT N> inline friend zgematrix_small<M,N>& operator-=(zgematrix_small<M,N>&, const zgematrix_small<M,N>&);
-  //////// *= ////////
-  template<CPPL_INT M, CPPL_INT L, CPPL_INT N> inline friend zgematrix_small<M,N>& operator*=(zgematrix_small<M,L>&, const zgematrix_small<L,N>&);
-  template<CPPL_INT M, CPPL_INT N> inline friend zgematrix_small<M,N>& operator*=(zgematrix_small<M,N>&, const               double&);
-  template<CPPL_INT M, CPPL_INT N> inline friend zgematrix_small<M,N>& operator*=(zgematrix_small<M,N>&, const               comple&);
-  //////// /= ////////
-  template<CPPL_INT M, CPPL_INT N> inline friend zgematrix_small<M,N>& operator/=(zgematrix_small<M,N>&, const               double&);
-  template<CPPL_INT M, CPPL_INT N> inline friend zgematrix_small<M,N>& operator/=(zgematrix_small<M,N>&, const               comple&);
-  //////// unary ////////
-  template<CPPL_INT M, CPPL_INT N> inline friend const zgematrix_small<M,N>& operator+(const zgematrix_small<M,N>&);
-  template<CPPL_INT M, CPPL_INT N> inline friend zgematrix_small<M,N> operator-(const zgematrix_small<M,N>&);
-  //////// + ////////
-  template<CPPL_INT M, CPPL_INT N> inline friend zgematrix_small<M,N> operator+(const zgematrix_small<M,N>&, const zgematrix_small<M,N>&);
-  template<CPPL_INT M, CPPL_INT N> inline friend zgematrix_small<M,N> operator+(const zgematrix_small<M,N>&, const zhematrix_small< N >&);
-  //////// - ////////
-  template<CPPL_INT M, CPPL_INT N> inline friend zgematrix_small<M,N> operator-(const zgematrix_small<M,N>&, const zgematrix_small<M,N>&);
-  template<CPPL_INT M, CPPL_INT N> inline friend zgematrix_small<M,N> operator-(const zgematrix_small<M,N>&, const zhematrix_small< N >&);
-  //////// * ////////
-  template<CPPL_INT M, CPPL_INT N> inline friend zcovector_small< M > operator*(const zgematrix_small<M,N>&, const zcovector_small< N >&);
-  template<CPPL_INT M, CPPL_INT L, CPPL_INT N> inline friend zgematrix_small<M,N> operator*(const zgematrix_small<M,L>&, const zgematrix_small<L,N>&);
-  template<CPPL_INT M, CPPL_INT N> inline friend zgematrix_small<M,N> operator*(const zgematrix_small<M,N>&, const zhematrix_small< N >&);
-  template<CPPL_INT M, CPPL_INT N> inline friend zgematrix_small<M,N> operator*(const zgematrix_small<M,N>&, const               double&);
-  template<CPPL_INT M, CPPL_INT N> inline friend zgematrix_small<M,N> operator*(const zgematrix_small<M,N>&, const               comple&);
-  //////// / ////////
-  template<CPPL_INT M, CPPL_INT N> inline friend zgematrix_small<M,N> operator/(const zgematrix_small<M,N>&, const               double&);
-  template<CPPL_INT M, CPPL_INT N> inline friend zgematrix_small<M,N> operator/(const zgematrix_small<M,N>&, const               comple&);
-  //////// comple ////////
-  template<CPPL_INT M, CPPL_INT N> inline friend zgematrix_small<M,N> operator*(const               double&, const zgematrix_small<M,N>&);
-  template<CPPL_INT M, CPPL_INT N> inline friend zgematrix_small<M,N> operator*(const               comple&, const zgematrix_small<M,N>&);
-  //////// hadamerd ////////
-  template<CPPL_INT M, CPPL_INT N> inline friend zgematrix_small<M,N>  hadamerd(const zgematrix_small<M,N>&, const zgematrix_small<M,N>&);
-  template<CPPL_INT N>         inline friend zgematrix_small<N,N>  hadamerd(const zgematrix_small<N,N>&, const zhematrix_small< N >&);
-#endif//_MSC_VER
-};
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-inline comple det(const zgemat2&);
-inline zgemat2 inv(const zgemat2&);
-inline comple det(const zgemat3&);
-inline zgemat3 inv(const zgemat3&);
diff --git a/cpplapack-r198/.svn/pristine/7f/7fed0f42b9bb408c6bf7297e7a6f94731ca5c60c.svn-base b/cpplapack-r198/.svn/pristine/7f/7fed0f42b9bb408c6bf7297e7a6f94731ca5c60c.svn-base
deleted file mode 100644
index cd4ea3e..0000000
--- a/cpplapack-r198/.svn/pristine/7f/7fed0f42b9bb408c6bf7297e7a6f94731ca5c60c.svn-base
+++ /dev/null
@@ -1,73 +0,0 @@
-//=============================================================================
-/*! zgbmatrix+zhematrix operator */
-inline _zgematrix operator+(const zgbmatrix& matA, const zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(matB);
-  
-  for(CPPL_INT i=0; i<matA.m; i++){
-    for(CPPL_INT j=max(0,i-matA.kl); j<min(matA.n,i+matA.ku+1); j++){
-      newmat(i,j)+=matA(i,j);
-    }
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! zgbmatrix-zhematrix operator */
-inline _zgematrix operator-(const zgbmatrix& matA, const zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(-matB);
-  
-  for(CPPL_INT i=0; i<matA.m; i++){
-    for(CPPL_INT j=max(0,i-matA.kl); j<min(matA.n,i+matA.ku+1); j++){
-      newmat(i,j)-=matA(i,j);
-    }
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! zgbmatrix*zhematrix operator */
-inline _zgematrix operator*(const zgbmatrix& matA, const zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat( matA.m, matB.n );
-  newmat.zero();
-  
-  for(CPPL_INT c=0; c<matB.vol; c++){
-    for(CPPL_INT i=max(0,matB.indx[c]-(matA.ku+1));
-        i<min(matA.m,matB.indx[c]+matA.kl); i++){
-      newmat(i,matB.jndx[c]) += matA(i,matB.indx[c])*matB.array[c];
-    }
-  }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/7f/7ff8baa22197ed4d1119a3ee788205df0aced813.svn-base b/cpplapack-r198/.svn/pristine/7f/7ff8baa22197ed4d1119a3ee788205df0aced813.svn-base
deleted file mode 100644
index 51daad8..0000000
--- a/cpplapack-r198/.svn/pristine/7f/7ff8baa22197ed4d1119a3ee788205df0aced813.svn-base
+++ /dev/null
@@ -1,86 +0,0 @@
-//=============================================================================
-/*! _dsymatrix+dgbmatrix operator */
-inline _dgematrix operator+(const _dsymatrix& matA, const dgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat(matA.n, matA.n);
-  
-  for(CPPL_INT i=0; i<matB.m; i++){
-    for(CPPL_INT j=i; j<matA.n; j++){
-      newmat(i,j) = newmat(j,i) = matA(i,j);
-    }
-    const CPPL_INT jmax =std::min(matB.n,i+matB.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matB.kl); j<jmax; j++){
-      newmat(i,j)+=matB(i,j);
-    }
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _dsymatrix-dgbmatrix operator */
-inline _dgematrix operator-(const _dsymatrix& matA, const dgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat(matA.n, matA.n);
-  
-  for(CPPL_INT i=0; i<matB.m; i++){
-    for(CPPL_INT j=i; j<matA.n; j++){
-      newmat(i,j) = newmat(j,i) = matA(i,j);
-    }
-    const CPPL_INT jmax =std::min(matB.n,i+matB.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matB.kl); j<jmax; j++){
-      newmat(i,j)-=matB(i,j);
-    }
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _dgematrix*dgbmatrix operator */
-inline _dgematrix operator*(const _dsymatrix& matA, const dgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat( matA.n, matB.n );
-  newmat.zero();
-  
-  for(CPPL_INT i=0; i<newmat.m; i++){
-    for(CPPL_INT j=0; j<newmat.n; j++){
-      const CPPL_INT kmax =std::min(matB.m,j+matB.kl+1);
-      for(CPPL_INT k=std::max(CPPL_INT(0),j-matB.ku); k<kmax; k++){
-        newmat(i,j) +=matA(i,k)*matB(k,j);
-      }
-    }
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/80/80726ac45305f73787977d648b6614e86c5ed4b4.svn-base b/cpplapack-r198/.svn/pristine/80/80726ac45305f73787977d648b6614e86c5ed4b4.svn-base
deleted file mode 100644
index 2a765ba..0000000
--- a/cpplapack-r198/.svn/pristine/80/80726ac45305f73787977d648b6614e86c5ed4b4.svn-base
+++ /dev/null
@@ -1,203 +0,0 @@
-//=============================================================================
-/*! dgematrix=dgematrix operator */
-inline dgematrix& dgematrix::operator=(const dgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-  if(array!=mat.array){ // if it is NOT self substitution
-    copy(mat);
-  }
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! dgematrix+=dgematrix operator */
-inline dgematrix& dgematrix::operator+=(const dgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.n || m!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << m << "x" << n << ") += (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  const CPPL_INT mn =m*n;
-  for(CPPL_INT i=0; i<mn; i++){
-    array[i]+=mat.array[i];
-  }
-  return *this;
-}
-
-//=============================================================================
-/*! dgematrix operator-= */
-inline dgematrix& dgematrix::operator-=(const dgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.n || m!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a sutraction." << std::endl
-              << "Your input was (" << m << "x" << n << ") -= (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  const CPPL_INT mn =m*n;
-  for(CPPL_INT i=0; i<mn; i++){
-    array[i]-=mat.array[i];
-  }
-  return *this;
-}
-
-//=============================================================================
-/*! dgematrix operator*= */
-inline dgematrix& dgematrix::operator*=(const dgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << m << "x" << n << ") *= (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat( m, mat.n );
-  char transa ='n';
-  char transb ='n';
-  double alpha =1.;
-  double beta =0.;
-  
-  dgemm_( &transa, &transb, &m, &mat.n, &n, &alpha, array, &m, mat.array, &mat.m, &beta, newmat.array, &m );
-  
-  swap(*this,newmat);
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! dgematrix+dgematrix operator */
-inline _dgematrix operator+(const dgematrix& matA, const dgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  dgematrix newmat(matA.m,matA.n);
-  
-  const CPPL_INT mn =newmat.m*newmat.n;
-  for(CPPL_INT i=0; i<mn; i++){
-    newmat.array[i] =matA.array[i]+matB.array[i];
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! dgematrix-dgematrix operator */
-inline _dgematrix operator-(const dgematrix& matA, const dgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") - (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  dgematrix newmat(matA.m,matA.n);
-  
-  const CPPL_INT mn =newmat.m*newmat.n;
-  for(CPPL_INT i=0; i<mn; i++){
-    newmat.array[i] =matA.array[i]-matB.array[i];
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! dgematrix*dgematrix operator */
-inline _dgematrix operator*(const dgematrix& matA, const dgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat( matA.m, matB.n );
-  char transa ='n';
-  char transb ='n';
-  double alpha =1.;
-  double beta =0.;
-  
-  dgemm_( &transa, &transb, &matA.m, &matB.n, &matA.n, &alpha, matA.array, &matA.m, matB.array, &matB.m, &beta, newmat.array, &matA.m );
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! dgematrix%dgematrix operator */
-inline _drovector operator%(const dgematrix& matA, const dgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") % (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  drovector newvec( matA.n );
-  
-  newvec.zero();
-  for(CPPL_INT j=0; j<matA.n; j++){
-    for(CPPL_INT i=0; i<matA.m; i++){
-      newvec(j) +=matA(i,j)*matB(i,j);
-    }
-  }
-  
-  return _(newvec);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! return Hadamerd product */
-inline _dgematrix hadamerd(const dgematrix& matA, const dgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( matA.m!=matB.m || matA.n!=matB.n ){
-    ERROR_REPORT;
-    std::cerr << "These two matrices can not make Hadamerd product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") and (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  dgematrix newmat(matA.m,matA.n);
-  for(CPPL_INT i=0; i<newmat.m; i++){
-    for(CPPL_INT j=0; j<newmat.n; j++){
-      newmat(i,j) =matA(i,j)*matB(i,j);
-    }
-  }
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/80/80a41a2e8dfba97afac239b3beb3da19974d4721.svn-base b/cpplapack-r198/.svn/pristine/80/80a41a2e8dfba97afac239b3beb3da19974d4721.svn-base
deleted file mode 100644
index 5fa98bf..0000000
--- a/cpplapack-r198/.svn/pristine/80/80a41a2e8dfba97afac239b3beb3da19974d4721.svn-base
+++ /dev/null
@@ -1,83 +0,0 @@
-//=============================================================================
-/*! dsymatrix+dgbmatrix operator */
-inline _dgematrix operator+(const dsymatrix& matA, const dgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat(matA.n, matA.n);
-  
-  for(CPPL_INT i=0; i<matB.m; i++){
-    for(CPPL_INT j=i; j<matA.n; j++){
-      newmat(i,j) = newmat(j,i) = matA(i,j);
-    }
-    const CPPL_INT jmax =std::min(matB.n,i+matB.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matB.kl); j<jmax; j++){
-      newmat(i,j) += matB(i,j);
-    }
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! dsymatrix-dgbmatrix operator */
-inline _dgematrix operator-(const dsymatrix& matA, const dgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat(matA.n, matA.n);
-  
-  for(CPPL_INT i=0; i<matB.m; i++){
-    for(CPPL_INT j=i; j<matA.n; j++){
-      newmat(i,j) = newmat(j,i) = matA(i,j);
-    }
-    const CPPL_INT jmax =std::min(matB.n,i+matB.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matB.kl); j<jmax; j++){
-      newmat(i,j) -= matB(i,j);
-    }
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! dsymatrix*dgbmatrix operator */
-inline _dgematrix operator*(const dsymatrix& matA, const dgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  dgematrix newmat( matA.n, matB.n );
-  newmat.zero();
-  
-  for(CPPL_INT i=0; i<newmat.m; i++){
-    for(CPPL_INT j=0; j<newmat.n; j++){
-      const CPPL_INT kmax =std::min(matB.m,j+matB.kl+1);
-      for(CPPL_INT k=std::max(CPPL_INT(0),j-matB.ku); k<kmax; k++){
-        newmat(i,j) += matA(i,k)*matB(k,j);
-      }
-    }
-  }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/80/80ad04972e02036e58bd926380b6afb51218f44c.svn-base b/cpplapack-r198/.svn/pristine/80/80ad04972e02036e58bd926380b6afb51218f44c.svn-base
deleted file mode 100644
index 1ac1f48..0000000
--- a/cpplapack-r198/.svn/pristine/80/80ad04972e02036e58bd926380b6afb51218f44c.svn-base
+++ /dev/null
@@ -1,79 +0,0 @@
-//=============================================================================
-/*! dgsmatrix+_dgbmatrix operator */
-inline _dgematrix operator+(const dgsmatrix& matA, const _dgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat( matA.to_dgematrix() );
-  
-  for(CPPL_INT i=0; i<matB.m; i++){
-    const CPPL_INT jmax =std::min(matB.n,i+matB.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matB.kl); j<jmax; j++){
-      newmat(i,j)+=matB(i,j);
-    }
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! dgsmatrix-_dgbmatrix operator */
-inline _dgematrix operator-(const dgsmatrix& matA, const _dgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat( matA.to_dgematrix() );
-  
-  for(CPPL_INT i=0; i<matB.m; i++){
-    const CPPL_INT jmax =std::min(matB.n,i+matB.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matB.kl); j<jmax; j++){
-      newmat(i,j)-=matB(i,j);
-    }
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! dgsmatrix*_dgbmatrix operator */
-inline _dgematrix operator*(const dgsmatrix& matA, const _dgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat( matA.m, matB.n );
-  newmat.zero();
-  
-  const std::vector<dcomponent>::const_iterator matA_data_end =matA.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matA.data.begin(); it!=matA_data_end; it++){
-    const CPPL_INT jmax =std::min(matB.n,it->j+matB.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),it->j-matB.kl); j<jmax; j++){
-      newmat(it->i,j) += it->v*matB(it->j,j);
-    }
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/81/812dc673d2b37f978c61396c96ce7d70ba961cdb.svn-base b/cpplapack-r198/.svn/pristine/81/812dc673d2b37f978c61396c96ce7d70ba961cdb.svn-base
deleted file mode 100644
index 12bef2d..0000000
--- a/cpplapack-r198/.svn/pristine/81/812dc673d2b37f978c61396c96ce7d70ba961cdb.svn-base
+++ /dev/null
@@ -1,38 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int M(5), N(5), CAP(4);
-  
-  CPPL::dgsmatrix A(M,N,CAP);
-  A.put(0,0, 1.);
-  A.put(3,2, 2.);
-  A.put(1,2, 3.);
-  A.put(4,1, 4.);
-  std::cout << "A =\n" << A << std::endl;
-  
-  CPPL::dsymatrix B(N);
-  for(int i=0; i<A.n; i++){ for(int j=0; j<=i; j++){
-    B(i,j) =double( rand() /(RAND_MAX/10) );
-  }}
-  std::cout << "B =\n" << B << std::endl;
-  
-  //std::cout << "A+B =\n" << A+B << std::endl;
-  std::cout << "A-B =\n" << A-B << std::endl;
-  std::cout << "A*B =\n" << A*B << std::endl;
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/81/816def3d8c52dd6443238c75bd6f53129d201d63.svn-base b/cpplapack-r198/.svn/pristine/81/816def3d8c52dd6443238c75bd6f53129d201d63.svn-base
deleted file mode 100644
index 1c984d1..0000000
--- a/cpplapack-r198/.svn/pristine/81/816def3d8c52dd6443238c75bd6f53129d201d63.svn-base
+++ /dev/null
@@ -1,141 +0,0 @@
-//=============================================================================
-/*! operator() for non-const object */
-inline comple& zgematrix::operator()(const CPPL_INT& i, const CPPL_INT& j)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || j<0 || m<=i || n<=j ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the matrix size." << std::endl
-              << "Your input is (" << i << "," << j << "), whereas the matrix size is " << m << "x" << n << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //return array[i+m*j];
-  return darray[j][i];
-}
-
-//=============================================================================
-/*! operator() for const object */
-inline comple zgematrix::operator()(const CPPL_INT& i, const CPPL_INT& j) const
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || j<0 || m<=i || n<=j ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the matrix size." << std::endl
-              << "Your input is (" << i << "," << j << "), whereas the matrix size is " << m << "x" << n << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //return array[i+m*j];
-  return darray[j][i];
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! set value for const object */
-inline zgematrix& zgematrix::set(const CPPL_INT& i, const CPPL_INT& j, const comple& v)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || j<0 || m<=i || n<=j ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the matrix size." << std::endl
-              << "Your input is (" << i << "," << j << "), whereas the matrix size is " << m << "x" << n << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //array[i+m*j] =v;
-  darray[j][i] =v;
-  
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-inline std::ostream& operator<<(std::ostream& s, const zgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<mat.m; i++){
-    for(CPPL_INT j=0; j<mat.n; j++){
-      s << " " << mat(i,j);
-    }
-    s << std::endl;
-  }
-  return s;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-inline void zgematrix::write(const char* filename) const
-{CPPL_VERBOSE_REPORT;
-  std::ofstream ofs(filename, std::ios::trunc);
-  ofs.setf(std::cout.flags());
-  ofs.precision(std::cout.precision());
-  ofs.width(std::cout.width());
-  ofs.fill(std::cout.fill());
-  
-  ofs << "#zgematrix" << " " << m << " " << n << std::endl;
-  for(CPPL_INT i=0; i<m; i++){
-    for(CPPL_INT j=0; j<n; j++ ){
-      ofs << operator()(i,j) << " ";
-    }
-    ofs << std::endl;
-  }
-  
-  ofs.close();
-}
-
-//=============================================================================
-inline void zgematrix::read(const char* filename)
-{CPPL_VERBOSE_REPORT;
-  std::ifstream s( filename );
-  if(!s){
-    ERROR_REPORT;
-    std::cerr << "The file \"" << filename << "\" can not be opened." << std::endl;
-    exit(1);
-  }
-
-  std::string id;
-  s >> id;
-  if( id != "zgematrix" && id != "#zgematrix" ){
-    ERROR_REPORT;
-    std::cerr << "The type name of the file \"" << filename << "\" is not zgematrix." << std::endl
-              << "Its type name was " << id << " ." << std::endl;
-    exit(1);
-  }
-  
-  s >> m >> n;
-  resize(m, n);
-  for(CPPL_INT i=0; i<m; i++){
-    for(CPPL_INT j=0; j<n; j++ ){
-      s >> operator()(i,j);
-    }
-  }
-  if(s.eof()){
-    ERROR_REPORT;
-    std::cerr << "There is something is wrong with the file \"" << filename << "\"." << std::endl
-              << "Most likely, there is not enough data components, or a linefeed code or space code is missing at the end of the last line." << std::endl;
-    exit(1);
-  }
-  
-  s >> id;
-  if(!s.eof()){
-    ERROR_REPORT;
-    std::cerr << "There is something is wrong with the file \"" << filename << "\"." << std::endl
-              << "Most likely, there are extra data components." << std::endl;
-    exit(1);
-  }
-  
-  
-  s.close();
-}
diff --git a/cpplapack-r198/.svn/pristine/81/81a9225d0997725798c308bdd551aa28287081dc.svn-base b/cpplapack-r198/.svn/pristine/81/81a9225d0997725798c308bdd551aa28287081dc.svn-base
deleted file mode 100644
index 712297d..0000000
--- a/cpplapack-r198/.svn/pristine/81/81a9225d0997725798c308bdd551aa28287081dc.svn-base
+++ /dev/null
@@ -1,77 +0,0 @@
-//=============================================================================
-/*! _zgsmatrix+zhematrix operator */
-inline _zgematrix operator+(const _zgsmatrix& matA, const zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.n || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat( matB.to_zgematrix() );
-  
-  const std::vector<zcomponent>::const_iterator matA_data_end =matA.data.end();
-  for(std::vector<zcomponent>::const_iterator it=matA.data.begin(); it!=matA_data_end; it++){
-    newmat(it->i,it->j) += it->v;
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _zgsmatrix-zhematrix operator */
-inline _zgematrix operator-(const _zgsmatrix& matA, const zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.n || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") - (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //// shallow copy to zgematrix ////
-  zgematrix newmat( (-matB).to_zgematrix() );
-  
-  //// add ////
-  const std::vector<zcomponent>::const_iterator matA_data_end =matA.data.end();
-  for(std::vector<zcomponent>::const_iterator it=matA.data.begin(); it!=matA_data_end; it++){
-    newmat(it->i,it->j) += it->v;
-  }
-  
-  //// return ////
-  matA.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _zgsmatrix*zhematrix operator */
-inline _zgematrix operator*(const _zgsmatrix& matA, const zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(matA.m, matB.n);
-  newmat.zero();
-  
-  const std::vector<zcomponent>::const_iterator matA_data_end =matA.data.end();
-  for(std::vector<zcomponent>::const_iterator it=matA.data.begin(); it!=matA_data_end; it++){
-    for(CPPL_INT i=0; i<matB.n; i++){
-      newmat(it->i,i) += it->v*matB(it->j,i);
-    }
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/81/81b2b642d9c432401036b6e7f951dd2860c45d69.svn-base b/cpplapack-r198/.svn/pristine/81/81b2b642d9c432401036b6e7f951dd2860c45d69.svn-base
deleted file mode 100644
index 641be07..0000000
--- a/cpplapack-r198/.svn/pristine/81/81b2b642d9c432401036b6e7f951dd2860c45d69.svn-base
+++ /dev/null
@@ -1,58 +0,0 @@
-//=============================================================================
-/*! return transposed zgematrix */
-inline _zhematrix t(const zhematrix& mat)
-{CPPL_VERBOSE_REPORT;
-  zhematrix newmat(mat.n);
-  
-  for(CPPL_INT j=0; j<mat.n; j++){
-    for(CPPL_INT i=j; i<mat.n; i++){
-      newmat(i,j) =mat(j,i);
-    }
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! return its inverse matrix */
-inline _zgematrix i(const zhematrix& mat)
-{CPPL_VERBOSE_REPORT;
-  zhematrix mat_cp(mat);
-  zgematrix mat_inv(mat.n,mat.n);
-  mat_inv.identity();
-  mat_cp.zhesv(mat_inv);
-  
-  return _(mat_inv);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! return its conjugate matrix */
-inline _zhematrix conj(const zhematrix& mat)
-{CPPL_VERBOSE_REPORT;
-  zhematrix newmat(mat.n);
-  
-  for(CPPL_INT j=0; j<mat.n; j++){
-    for(CPPL_INT i=j; i<mat.n; i++){
-      newmat(i,j) =std::conj(mat(i,j));
-    }
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! return its conjugate transposed matrix */
-inline _zhematrix conjt(const zhematrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  WARNING_REPORT;
-  std::cerr << "This function call has no effect since the matrix is Hermitian." << std::endl;
-#endif//CPPL_DEBUG
-  
-  zhematrix newmat =mat;
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/82/8251f0bc39d26c09b768c22da01bbeb1aa54f487.svn-base b/cpplapack-r198/.svn/pristine/82/8251f0bc39d26c09b768c22da01bbeb1aa54f487.svn-base
deleted file mode 100644
index 8ffa6de..0000000
--- a/cpplapack-r198/.svn/pristine/82/8251f0bc39d26c09b768c22da01bbeb1aa54f487.svn-base
+++ /dev/null
@@ -1,30 +0,0 @@
-//=============================================================================
-/*! zrovector constructor */
-inline _zrovector::_zrovector()
-{CPPL_VERBOSE_REPORT;
-  //////// initialize ////////
-  l =0;
-  array =NULL;
-}
-
-//=============================================================================
-/*! _zrovector copy constructor */
-inline _zrovector::_zrovector(const _zrovector& vec)
-{CPPL_VERBOSE_REPORT;
-  //////// initialize ////////
-  l =vec.l;
-  array =vec.array;
-  
-  vec.nullify();
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! _zrovector destructor */
-inline _zrovector::~_zrovector()
-{CPPL_VERBOSE_REPORT;
-  delete [] array;
-}
diff --git a/cpplapack-r198/.svn/pristine/82/826c057c870715ae81c26bbf96bc91f0e24f1edf.svn-base b/cpplapack-r198/.svn/pristine/82/826c057c870715ae81c26bbf96bc91f0e24f1edf.svn-base
deleted file mode 100644
index 949de2c..0000000
--- a/cpplapack-r198/.svn/pristine/82/826c057c870715ae81c26bbf96bc91f0e24f1edf.svn-base
+++ /dev/null
@@ -1,140 +0,0 @@
-//=============================================================================
-//! Real Double-precision General Sparse Matrix Class
-class dgsmatrix
-{
-public:
-  ///////////////////////////////////////////////
-  /////////////////// objects ///////////////////
-  ///////////////////////////////////////////////
-  CPPL_INT m; //!< matrix row size
-  CPPL_INT n; //!< matrix column size
-  std::vector<dcomponent> data; //!< matrix data
-  std::vector< std::vector<CPPL_INT> > rows; //!< array of vector to store the entry information of component for each row
-  std::vector< std::vector<CPPL_INT> > cols; //!< array of vector to store the entry information of component for each column
-  
-  ///////////////////////////////////////////////
-  ///////////////// constructors ////////////////
-  ///////////////////////////////////////////////
-  inline dgsmatrix();
-  inline dgsmatrix(const dgsmatrix&);
-  inline dgsmatrix(const _dgsmatrix&);
-  inline dgsmatrix(const CPPL_INT&, const CPPL_INT&, const CPPL_INT=0);
-  inline dgsmatrix(const char*);
-  inline ~dgsmatrix(); //destructor
-  
-  ///////////////////////////////////////////////
-  ////////////////// functions //////////////////
-  ///////////////////////////////////////////////
-  //////// cast ////////
-  inline _zgsmatrix to_zgsmatrix() const;
-  inline _dgematrix to_dgematrix() const;
-  inline  dgrmatrix to_dgrmatrix() const;
-  
-  //////// io ////////
-  inline double operator()(const CPPL_INT&, const CPPL_INT&) const;
-  inline double& operator()(const CPPL_INT&, const CPPL_INT&);
-  inline dgsmatrix& put(const CPPL_INT&, const CPPL_INT&, const double&);
-  inline dgsmatrix& del(const CPPL_INT, const CPPL_INT); //<-- NOT (const CPPL_INT&)
-  inline dgsmatrix& del(const CPPL_INT); //<-- NOT (const CPPL_INT&)
-  inline friend std::ostream& operator<<(std::ostream&, const dgsmatrix&);
-  inline void write(const char*) const;
-  inline void read(const char*);
-
-  //////// misc ////////
-  inline void clear();
-  inline dgsmatrix& zero();
-  inline dgsmatrix& identity();
-  inline void chsign();
-  inline void copy(const dgsmatrix&);
-  inline void shallow_copy(const _dgsmatrix&);
-  inline dgsmatrix& resize(const CPPL_INT&, const CPPL_INT&, const CPPL_INT=0, const CPPL_INT=0);
-  inline void stretch(const CPPL_INT&, const CPPL_INT&);
-  inline bool isListed(const CPPL_INT&, const CPPL_INT&) const;
-  inline CPPL_INT number(const CPPL_INT&, const CPPL_INT&);
-  inline void diet(const double=DBL_MIN);
-  inline void checkup();
-  inline _drovector row(const CPPL_INT&) const;
-  inline _dcovector col(const CPPL_INT&) const;
-  inline friend void swap(dgsmatrix&, dgsmatrix&);
-  inline friend _dgsmatrix _(dgsmatrix&);
-  
-  //////// calc ////////
-  inline friend _dgsmatrix t(const dgsmatrix&);
-  inline friend void idamax(CPPL_INT&, CPPL_INT&, const dgsmatrix&);
-  inline friend double damax(const dgsmatrix&);
-  
-  //////// pardiso ////////
-  inline CPPL_INT pardiso(dcovector&) const;
-  
-  ///////////////////////////////////////////////
-  ///////////// numerical operators /////////////
-  ///////////////////////////////////////////////
-  //////// = ////////
-  inline dgsmatrix& operator=(const  dgsmatrix&);
-  inline dgsmatrix& operator=(const _dgsmatrix&);
-  
-  //////// += ////////
-  inline dgsmatrix& operator+=(const  dgsmatrix&);
-  inline dgsmatrix& operator+=(const _dgsmatrix&);
-  
-  //////// -= ////////
-  inline dgsmatrix& operator-=(const  dgsmatrix&);
-  inline dgsmatrix& operator-=(const _dgsmatrix&);
-  
-  //////// *= ////////
-  inline dgsmatrix& operator*=(const  dgsmatrix&);
-  inline dgsmatrix& operator*=(const _dgsmatrix&);
-  inline dgsmatrix& operator*=(const     double&);
-  
-  //////// /= ////////
-  inline dgsmatrix& operator/=(const     double&);
-
-  //////// unary ////////
-  inline friend const dgsmatrix& operator+(const dgsmatrix&);
-  inline friend _dgsmatrix operator-(const  dgsmatrix&);
-  
-  //////// + ////////
-  inline friend _dgematrix operator+(const  dgsmatrix&, const  dgematrix&);
-  inline friend _dgematrix operator+(const  dgsmatrix&, const _dgematrix&);
-  inline friend _dgematrix operator+(const  dgsmatrix&, const  dsymatrix&);
-  inline friend _dgematrix operator+(const  dgsmatrix&, const _dsymatrix&);
-  inline friend _dgematrix operator+(const  dgsmatrix&, const  dgbmatrix&);
-  inline friend _dgematrix operator+(const  dgsmatrix&, const _dgbmatrix&);
-  inline friend _dgsmatrix operator+(const  dgsmatrix&, const  dgsmatrix&);
-  inline friend _dgsmatrix operator+(const  dgsmatrix&, const _dgsmatrix&);
-  inline friend _dgsmatrix operator+(const  dgsmatrix&, const  dssmatrix&);
-  inline friend _dgsmatrix operator+(const  dgsmatrix&, const _dssmatrix&);
-  
-  //////// - ////////
-  inline friend _dgematrix operator-(const  dgsmatrix&, const  dgematrix&);
-  inline friend _dgematrix operator-(const  dgsmatrix&, const _dgematrix&);
-  inline friend _dgematrix operator-(const  dgsmatrix&, const  dsymatrix&);
-  inline friend _dgematrix operator-(const  dgsmatrix&, const _dsymatrix&);
-  inline friend _dgematrix operator-(const  dgsmatrix&, const  dgbmatrix&);
-  inline friend _dgematrix operator-(const  dgsmatrix&, const _dgbmatrix&);
-  inline friend _dgsmatrix operator-(const  dgsmatrix&, const  dgsmatrix&);
-  inline friend _dgsmatrix operator-(const  dgsmatrix&, const _dgsmatrix&);
-  inline friend _dgsmatrix operator-(const  dgsmatrix&, const  dssmatrix&);
-  inline friend _dgsmatrix operator-(const  dgsmatrix&, const _dssmatrix&);
-  
-  //////// * ////////
-  inline friend _dcovector operator*(const  dgsmatrix&, const  dcovector&);
-  inline friend _dcovector operator*(const  dgsmatrix&, const _dcovector&);
-  inline friend _dgematrix operator*(const  dgsmatrix&, const  dgematrix&);
-  inline friend _dgematrix operator*(const  dgsmatrix&, const _dgematrix&);  
-  inline friend _dgematrix operator*(const  dgsmatrix&, const  dsymatrix&);
-  inline friend _dgematrix operator*(const  dgsmatrix&, const _dsymatrix&);
-  inline friend _dgematrix operator*(const  dgsmatrix&, const  dgbmatrix&);
-  inline friend _dgematrix operator*(const  dgsmatrix&, const _dgbmatrix&);  
-  inline friend _dgsmatrix operator*(const  dgsmatrix&, const  dgsmatrix&);
-  inline friend _dgsmatrix operator*(const  dgsmatrix&, const _dgsmatrix&);
-  inline friend _dgsmatrix operator*(const  dgsmatrix&, const  dssmatrix&);
-  inline friend _dgsmatrix operator*(const  dgsmatrix&, const _dssmatrix&);
-  inline friend _dgsmatrix operator*(const  dgsmatrix&, const     double&);
-  
-  //////// / ////////
-  inline friend _dgsmatrix operator/(const  dgsmatrix&, const     double&);
-
-  //////// double ////////
-  inline friend _dgsmatrix operator*(const     double&, const  dgsmatrix&);
-};
diff --git a/cpplapack-r198/.svn/pristine/82/82ad6562b7c57cec52aea598ccaa87210c46b0b5.svn-base b/cpplapack-r198/.svn/pristine/82/82ad6562b7c57cec52aea598ccaa87210c46b0b5.svn-base
deleted file mode 100644
index 011dd1f..0000000
--- a/cpplapack-r198/.svn/pristine/82/82ad6562b7c57cec52aea598ccaa87210c46b0b5.svn-base
+++ /dev/null
@@ -1,13 +0,0 @@
-//=============================================================================
-/*! comple*zgbmatrix operator */
-inline _zgbmatrix operator*(const comple& d, const zgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  zgbmatrix newmat(mat.m, mat.n, mat.kl, mat.ku);
-  
-  const CPPL_INT size =(newmat.kl+newmat.ku+1)*newmat.n;
-  for(CPPL_INT i=0; i<size; i++){
-    newmat.array[i] =d*mat.array[i];
-  }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/82/82b71dc329f63662cd778ae46647ed3ad7434113.svn-base b/cpplapack-r198/.svn/pristine/82/82b71dc329f63662cd778ae46647ed3ad7434113.svn-base
deleted file mode 100644
index 48440e9..0000000
--- a/cpplapack-r198/.svn/pristine/82/82b71dc329f63662cd778ae46647ed3ad7434113.svn-base
+++ /dev/null
@@ -1,3 +0,0 @@
-Now we use "alien" converter to make deb packpage.
-
-alien -dk cpplapack-YYYY.MM.DD-X.noarch.rpm
diff --git a/cpplapack-r198/.svn/pristine/82/82d48ad036ddbf08c8bf16ed3a285d10bb2cc17b.svn-base b/cpplapack-r198/.svn/pristine/82/82d48ad036ddbf08c8bf16ed3a285d10bb2cc17b.svn-base
deleted file mode 100644
index 99e9404..0000000
--- a/cpplapack-r198/.svn/pristine/82/82d48ad036ddbf08c8bf16ed3a285d10bb2cc17b.svn-base
+++ /dev/null
@@ -1,80 +0,0 @@
-//=============================================================================
-/*! zgbmatrix+_zgematrix operator */
-inline _zgematrix operator+(const zgbmatrix& matA, const _zgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<matA.m; i++){
-    const CPPL_INT jmax =std::min(matA.n,i+matA.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matA.kl); j<jmax; j++){
-      matB(i,j)+=matA(i,j);
-    }
-  }
-  
-  return matB;
-}
-
-//=============================================================================
-/*! zgbmatrix-_zgematrix operator */
-inline _zgematrix operator-(const zgbmatrix& matA, const _zgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //// change sign ////
-  for(CPPL_INT i=0; i<matB.m*matB.n; i++){
-    matB.array[i] = -matB.array[i];
-  }
-  
-  //// add ////
-  for(CPPL_INT i=0; i<matA.m; i++){
-    const CPPL_INT jmax =std::min(matA.n,i+matA.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matA.kl); j<jmax; j++){
-      matB(i,j) +=matA(i,j);
-    }
-  }
-  
-  return matB;
-}
-
-//=============================================================================
-/*! zgbmatrix*_zgematrix operator */
-inline _zgematrix operator*(const zgbmatrix& matA, const _zgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat( matA.m, matB.n );
-  newmat.zero();
-  
-  for(CPPL_INT i=0; i<newmat.m; i++){
-    for(CPPL_INT j=0; j<newmat.n; j++){
-      const CPPL_INT kmax =std::min(matA.n,i+matA.ku+1);
-      for(CPPL_INT k=std::max(CPPL_INT(0),i-matA.kl); k<kmax; k++){
-        newmat(i,j)+=matA(i,k)*matB(k,j);
-      }
-    }
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/82/82e344ceb61733107564a7c063411080c78eac3d.svn-base b/cpplapack-r198/.svn/pristine/82/82e344ceb61733107564a7c063411080c78eac3d.svn-base
deleted file mode 100644
index 7586fd0..0000000
--- a/cpplapack-r198/.svn/pristine/82/82e344ceb61733107564a7c063411080c78eac3d.svn-base
+++ /dev/null
@@ -1,80 +0,0 @@
-//=============================================================================
-/*! _zgsmatrix+_zhematrix operator */
-inline _zgematrix operator+(const _zgsmatrix& matA, const _zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.n || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat( matB.to_zgematrix() );
-  
-  const std::vector<zcomponent>::const_iterator matA_data_end =matA.data.end();
-  for(std::vector<zcomponent>::const_iterator it=matA.data.begin(); it!=matA_data_end; it++){
-    newmat(it->i,it->j) += it->v;
-  }
-  
-  matA.destroy();
-  matB.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _zgsmatrix-_zhematrix operator */
-inline _zgematrix operator-(const _zgsmatrix& matA, const _zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.n || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") - (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //// shallow copy to zgematrix  ////
-  zgematrix newmat( (-matB).to_zgematrix() );
-  
-  //// add ////
-  const std::vector<zcomponent>::const_iterator matA_data_end =matA.data.end();
-  for(std::vector<zcomponent>::const_iterator it=matA.data.begin(); it!=matA_data_end; it++){
-    newmat(it->i,it->j) += it->v;
-  }
-  
-  ////////
-  matA.destroy();
-  matB.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _zgsmatrix*_zhematrix operator */
-inline _zgematrix operator*(const _zgsmatrix& matA, const _zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(matA.m, matB.n);
-  newmat.zero();
-  
-  const std::vector<zcomponent>::const_iterator matA_data_end =matA.data.end();
-  for(std::vector<zcomponent>::const_iterator it=matA.data.begin(); it!=matA_data_end; it++){
-    for(CPPL_INT i=0; i<matB.n; i++){
-      newmat(it->i,i) += it->v*matB(it->j,i);
-    }
-  }
-  
-  matA.destroy();
-  matB.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/83/83148350c0c587f28c221ce44f5925bb40136a22.svn-base b/cpplapack-r198/.svn/pristine/83/83148350c0c587f28c221ce44f5925bb40136a22.svn-base
deleted file mode 100644
index 00fbf2d..0000000
--- a/cpplapack-r198/.svn/pristine/83/83148350c0c587f28c221ce44f5925bb40136a22.svn-base
+++ /dev/null
@@ -1,88 +0,0 @@
-#define  drot_   DROT
-#define  dswap_  DSWAP
-#define  dscal_  DSCAL
-#define  dcopy_  DCOPY
-#define  daxpy_  DAXPY
-#define  ddot_   DDOT
-#define  dnrm2_  DNRM2
-#define  dasum_  DASUM
-#define  idamax_ IDAMAX
-  
-#define  dgemv_  DGEMV
-#define  dgbmv_  DGBMV
-#define  dsymv_  DSYMV
-#define  dsbmv_  DSBMV
-#define  dspmv_  DSPMV
-#define  dtrmv_  DTRMV
-#define  dtbmv_  DTBMV
-#define  dtpmv_  DTPMV
-#define  dtrsv_  DTRSV
-#define  dtbsv_  DTBSV
-#define  dtpsv_  DTPSV
-#define  dger_   DGER
-#define  dsyr_   DSYR
-#define  dspr_   DSPR
-#define  dsyr2_  DSYR2
-#define  dspr2_  DSPR2
-
-#define  dgemm_  DGEMM
-#define  dsymm_  DSYMM
-#define  dsyrk_  DSYRK
-#define  dsyr2k_ DSYR2K
-#define  dtrmm_  DTRMM
-#define  dtrsm_  DTRSM
-
-#define  zdrot_  ZDROT
-#define  zswap_  ZSWAP
-#define  zdscal_ ZDSCAL
-#define  zscal_  ZSCAL
-#define  zcopy_  ZCOPY
-#define  zaxpy_  ZAXPY
-#define  zdotu_  ZDOTU
-#define  zdotc_  ZDOTC
-#define  dznrm2_ DZNRM2
-#define  dzasum_ DZASUM
-#define  izamax_ IZAMAX
-                  
-#define  zgemv_  ZGEMV
-#define  zgbmv_  ZGBMV
-#define  zhemv_  ZHEMV
-#define  zhbmv_  ZHBMV
-#define  zhpmv_  ZHPMV
-#define  ztrmv_  ZTRMV
-#define  ztbmv_  ZTBMV
-#define  ztpmv_  ZTPMV
-#define  ztrsv_  ZTRSV
-#define  ztbsv_  ZTBSV
-#define  ztpsv_  ZTPSV
-#define  zgeru_  ZGERU
-#define  zgerc_  ZGERC
-#define  zher_   ZHER
-#define  zhpr_   ZHPR
-#define  zher2_  ZHER2
-#define  zhpr2_  ZHPR2
-  
-#define  zgemm_  ZGEMM
-#define  zsymm_  ZSYMM
-#define  zhemm_  ZHEMM
-#define  zsyrk_  ZSYRK
-#define  zherk_  ZHERK
-#define  zsyr2k_ ZSYR2K
-#define  zher2k_ ZHER2K
-#define  ztrmm_  ZTRMM
-#define  ztrsm_  ZTRSM
-
-//////// mkl.h does not have legal zdotu_ and zdotc_ . Why??? ////////
-inline MKL_Complex16 zdotu_( const CPPL_INT *N, MKL_Complex16 *x, const CPPL_INT *incx, const MKL_Complex16 *y, const CPPL_INT *incy )
-{
-  MKL_Complex16 v;
-  zdotu_(&v, N, x, incx, y, incy);
-  return v;
-}
-
-inline MKL_Complex16 zdotc_( const CPPL_INT *N, MKL_Complex16 *x, const CPPL_INT *incx, const MKL_Complex16 *y, const CPPL_INT *incy )
-{
-  MKL_Complex16 v;
-  zdotc_(&v, N, x, incx, y, incy);
-  return v;
-}
diff --git a/cpplapack-r198/.svn/pristine/83/8376bcc2e771d6d06299946209f5bd834aa4d5fb.svn-base b/cpplapack-r198/.svn/pristine/83/8376bcc2e771d6d06299946209f5bd834aa4d5fb.svn-base
deleted file mode 100644
index 92f3d4a..0000000
--- a/cpplapack-r198/.svn/pristine/83/8376bcc2e771d6d06299946209f5bd834aa4d5fb.svn-base
+++ /dev/null
@@ -1,113 +0,0 @@
-//=============================================================================
-void dgeev_check_value()
-{
-  std::cout << "############ check dgeev value ############" << std::endl;
-  
-  srand(unsigned(time(NULL)));
-  int M(3);
-  
-  //// make dgematrix A  ////
-  CPPL::dgematrix A(M,M);
-  for(int i=0; i<A.m; i++){ for(int j=0; j<A.n; j++){
-      A(i,j) =double( rand() /(RAND_MAX/10) );
-    }}
-  
-  //// make wr wi vr ////
-  std::vector<double> wr, wi;
-  
-  //// make A_original ////
-  CPPL::dgematrix A_original(A);
-  
-  //// dgeev ////
-  A.dgeev(wr, wi);
-  
-  //// print ////
-  std::cout << "A_original=\n" << A_original << std::endl;
-  for(int i=0; i<A.m; i++){
-    std::cout << "#### " << i << "th eigen ####" << std::endl;
-    std::cout << "wr=" << wr[i] <<std::endl;
-    std::cout << "wi=" << wi[i] <<std::endl;
-  }
-}
-
-//=============================================================================
-void dgeev_check_right()
-{
-  std::cout << "############ check dgeev right ############" << std::endl;
-  
-  srand(unsigned(time(NULL)));
-  int M(3);
-  
-  //// make dgematrix A  ////
-  CPPL::dgematrix A(M,M);
-  for(int i=0; i<A.m; i++){ for(int j=0; j<A.n; j++){
-      A(i,j) =double( rand() /(RAND_MAX/10) );
-    }}
-  
-  //// make wr wi vr ////
-  std::vector<double> wr, wi;
-  std::vector<CPPL::dcovector> vrr, vri;
-  
-  //// make A_original ////
-  CPPL::dgematrix A_original(A);
-  
-  //// dgeev ////
-  A.dgeev(wr, wi ,vrr, vri);
-  
-  //// print ////
-  std::cout << "A_original=\n" << A_original << std::endl;
-  for(int i=0; i<A.m; i++){
-    std::cout << "#### " << i << "th eigen ####" << std::endl;
-    std::cout << "wr=" << wr[i] <<std::endl;
-    std::cout << "wi=" << wi[i] <<std::endl;
-    std::cout << "vrr=\n" << vrr[i] <<std::endl;
-    std::cout << "vri=\n" << vri[i] <<std::endl;
-    std::cout << "Real[ [A]*{x} -lambda*{x} ] = (Should be zeros)\n"
-              << A_original*vrr[i] -(wr[i]*vrr[i] - wi[i]*vri[i]) 
-              << std::endl;
-    std::cout << "Imag[ [A]*{x} -lambda*{x} ] = (Should be zeros)\n"
-              << A_original*vri[i] -(wr[i]*vri[i] + wi[i]*vrr[i]) 
-              << std::endl;
-  }
-}
-
-//=============================================================================
-void dgeev_check_left()
-{
-  std::cout << "############ check dgeev left ############" << std::endl;
-  
-  srand(unsigned(time(NULL)));
-  int M(3);
-  
-  //// make dgematrix A  ////
-  CPPL::dgematrix A(M,M);
-  for(int i=0; i<A.m; i++){ for(int j=0; j<A.n; j++){
-      A(i,j) =double( rand() /(RAND_MAX/10) );
-    }}
-  
-  //// make wr wi vl ////
-  std::vector<double> wr, wi;
-  std::vector<CPPL::drovector> vlr, vli;
-  
-  //// make A_original ////
-  CPPL::dgematrix A_original(A);
-  
-  //// dgeev ////
-  A.dgeev(wr, wi ,vlr, vli);
-  
-  //// print ////
-  std::cout << "A_original=\n" << A_original << std::endl;
-  for(int i=0; i<A.m; i++){
-    std::cout << "#### " << i << "th eigen ####" << std::endl;
-    std::cout << "wr = " << wr[i] << std::endl;
-    std::cout << "wi = " << wi[i] << std::endl;
-    std::cout << "vlr = " << vlr[i];
-    std::cout << "vli = " << vli[i] << std::endl;
-    std::cout << "Real[ {x}*[A] -{x}*lambda ] = (Should be zeros)\n"
-              << vlr[i]*A_original -(vlr[i]*wr[i] - vli[i]*wi[i]) 
-              << std::endl;
-    std::cout << "Imag[ {x}*[A] -{x}*lambda ] = (Should be zeros)\n"
-              << vli[i]*A_original -(vli[i]*wr[i] + vlr[i]*wi[i]) 
-              << std::endl;
-  }
-}
diff --git a/cpplapack-r198/.svn/pristine/84/840399aac0b9e018aa04f1f2c50b3a1539a504ff.svn-base b/cpplapack-r198/.svn/pristine/84/840399aac0b9e018aa04f1f2c50b3a1539a504ff.svn-base
deleted file mode 100644
index af6b548..0000000
--- a/cpplapack-r198/.svn/pristine/84/840399aac0b9e018aa04f1f2c50b3a1539a504ff.svn-base
+++ /dev/null
@@ -1,49 +0,0 @@
-/*****************************************************************************/
-/*                                 main.cpp                                  */
-/*****************************************************************************/
-#undef CPPL_VERBOSE
-#undef CPPL_DEBUG
-
-//=============================================================================
-#include "cpplapack.h"
-#include <cstring>
-#include <ctime>
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  int size(3000);
-  CPPL::dgematrix A(size,size), B;
-  
-  srand(unsigned(time(NULL)));
-  for(int i=0; i<size; i++){ for(int j=0; j<size; j++){
-      A(i,j) =double(rand())/double(RAND_MAX);
-  }}
-  
-  clock_t t0, t1, t2, t3;
-  
-  t0=clock();//////////////////////////////////////////////////////////////////
-  
-  B=A;
-  
-  t1=clock();//////////////////////////////////////////////////////////////////
-  
-  B.resize(size,size);
-  for(int i=0; i<size*size; i++){
-    B.array[i] =A.array[i];
-  }
-  
-  t2=clock();//////////////////////////////////////////////////////////////////
-  
-  B.resize(size,size);
-  memcpy(B.array, A.array, size*size*sizeof(double));
-  
-  t3=clock();//////////////////////////////////////////////////////////////////
-  
-  std::cout << "\"B=A (dcopy)\"   took "<< (1000./CLOCKS_PER_SEC)*(t1-t0) << "[ms]." << std::endl;
-  std::cout << "\"loop\"          took "<< (1000./CLOCKS_PER_SEC)*(t2-t1) << "[ms]." << std::endl;
-  std::cout << "\"memcpy\"        took "<< (1000./CLOCKS_PER_SEC)*(t3-t2) << "[ms]." << std::endl;
-  
-  return 0;
-}
diff --git a/cpplapack-r198/.svn/pristine/84/84152da1c19a554527ef29c973eb60130faae10a.svn-base b/cpplapack-r198/.svn/pristine/84/84152da1c19a554527ef29c973eb60130faae10a.svn-base
deleted file mode 100644
index d47b3bf..0000000
--- a/cpplapack-r198/.svn/pristine/84/84152da1c19a554527ef29c973eb60130faae10a.svn-base
+++ /dev/null
@@ -1,86 +0,0 @@
-//=============================================================================
-/*! dsymatrix+_dgbmatrix operator */
-inline _dgematrix operator+(const dsymatrix& matA, const _dgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat(matA.n, matA.n);
-  
-  for(CPPL_INT i=0; i<matB.m; i++){
-    for(CPPL_INT j=i; j<matA.n; j++){
-      newmat(i,j) = newmat(j,i) = matA(i,j);
-    }
-    const CPPL_INT jmax =std::min(matB.n,i+matB.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matB.kl); j<jmax; j++){
-      newmat(i,j) += matB(i,j);
-    }
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! dsymatrix-_dgbmatrix operator */
-inline _dgematrix operator-(const dsymatrix& matA, const _dgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat(matA.n, matA.n);
-  
-  for(CPPL_INT i=0; i<matB.m; i++){
-    for(CPPL_INT j=i; j<matA.n; j++){
-      newmat(i,j) = newmat(j,i) = matA(i,j);
-    }
-    const CPPL_INT jmax =std::min(matB.n,i+matB.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matB.kl); j<jmax; j++){
-      newmat(i,j) -= matB(i,j);
-    }
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! dsymatrix*_dgbmatrix operator */
-inline _dgematrix operator*(const dsymatrix& matA, const _dgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat( matA.n, matB.n );
-  newmat.zero();
-  
-  for(CPPL_INT i=0; i<newmat.m; i++){
-    for(CPPL_INT j=0; j<newmat.n; j++){
-      const CPPL_INT kmax =std::min(matB.m,j+matB.kl+1);
-      for(CPPL_INT k=std::max(CPPL_INT(0),j-matB.ku); k<kmax; k++){
-        newmat(i,j) += matA(i,k)*matB(k,j);
-      }
-    }
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/84/841d9de76718d437faad0d2447b17c8dd4c16284.svn-base b/cpplapack-r198/.svn/pristine/84/841d9de76718d437faad0d2447b17c8dd4c16284.svn-base
deleted file mode 100644
index 775bc50..0000000
--- a/cpplapack-r198/.svn/pristine/84/841d9de76718d437faad0d2447b17c8dd4c16284.svn-base
+++ /dev/null
@@ -1,120 +0,0 @@
-//=============================================================================
-/*!
-\page pg-vector_io Example Codes of Vector IO
-\section st-dco_io dcovector IO
-\include dcovector-io/main.cpp
-<br><br>
-\section st-dro_io drovector IO
-\include drovector-io/main.cpp
-*/
-
-//=============================================================================
-/*!
-\page pg-matrix_io Example Codes of Matrix IO
-\section st-dge_io dgematrix IO
-\include dgematrix-io/main.cpp
-<br><br>
-\section st-dgb_io dgbmatrix IO
-\include dgbmatrix-io/main.cpp
-<br><br>
-\section st-dsy_io dsymatrix IO
-\include dsymatrix-io/main.cpp
-*/
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-//=============================================================================
-/*!
-\page pg-dge_lapack Example Codes of dgematrix LAPACK Functions
-\include dgematrix-lapack/dgesv_check.hpp
-\include dgematrix-lapack/dgels_check.hpp
-\include dgematrix-lapack/dgelss_check.hpp
-\include dgematrix-lapack/dgeev_check.hpp
-\include dgematrix-lapack/dggev_check.hpp
-\include dgematrix-lapack/dgesvd_check.hpp
-\include dgematrix-lapack/main.cpp
-*/
-
-//=============================================================================
-/*!
-\page pg-dgb_lapack Example Codes of dgbmatrix LAPACK Functions
-\include dgbmatrix-lapack/main.cpp
-*/
-
-//=============================================================================
-/*!
-\page pg-dsy_lapack Example Codes of dsymatrix LAPACK Functions
-\include dsymatrix-lapack/dsysv_check.hpp
-\include dsymatrix-lapack/dsyev_check.hpp
-<!-- \include dsymatrix-lapack/dsygv_check.cpp -->
-\include dsymatrix-lapack/main.cpp
-*/
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-//=============================================================================
-/*!
-\page pg-format Read/Write File Format 
-\htmlinclude File_Format.html
-*/
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-//=============================================================================
-/*xxxxxxxxxxxxxxx!
-\page pg-cygwin How to install ATLAS and LAPACK on Cygwin
-\htmlinclude Install_on_Cygwin.html
-*/
-
-//=============================================================================
-/*xxxxxxxxxxxxxxx!
-\page pg-vcpp How to compile with VC++ on Windows
-\htmlinclude Compile_with_VC.html
-*/
-
-//=============================================================================
-/*!
-\page pg-makefile Typical "Makefile"s for a few Platforms
-\section st-base The base Makefile
-\include Makefile
-<br><br>
-\section st-gXX Makefile for g++ + libblas + liblapack (works with the base Makefile)
-\include Makefile.g++
-<br><br>
-\section st-icpc Makefile for icpc + MKL on Linux (works with the base Makefile)
-\include Makefile.icpc
-<br><br>
-\section st-icl Makefile for icl + MKL on Windows
-\include Makefile-icl
-*/
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-//=============================================================================
-/*!
-\page pg-nt Mechanism of "Smart-Temporary" System
-\htmlinclude Smart-Temporary.html
-*/
-
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-//=============================================================================
-/*!
-\page pg-bandmatrix Illustration of Band Matrix
-\image html bandmatrix.png
-*/
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-//=============================================================================
-/*//!
-\page pg-sparsematrix Specifications of Sparse Matrix
-\htmlinclude Sparse_Matrix.html
-*/
diff --git a/cpplapack-r198/.svn/pristine/84/8467d1bd7014bfd19981d6348d3bc1f85fbcf75e.svn-base b/cpplapack-r198/.svn/pristine/84/8467d1bd7014bfd19981d6348d3bc1f85fbcf75e.svn-base
deleted file mode 100644
index 3807b6b..0000000
--- a/cpplapack-r198/.svn/pristine/84/8467d1bd7014bfd19981d6348d3bc1f85fbcf75e.svn-base
+++ /dev/null
@@ -1,99 +0,0 @@
-//=============================================================================
-/*! return transposed zgematrix */
-inline _zgematrix t(const _zgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-  zgematrix newmat(mat.n,mat.m);
-  
-  for(CPPL_INT i=0; i<newmat.m; i++){
-    for(CPPL_INT j=0; j<newmat.n; j++){
-      newmat(i,j) =mat(j,i);
-    }
-  }
-  
-  mat.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! return its inverse matrix */
-inline _zgematrix i(const _zgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(mat.m!=mat.n){
-    ERROR_REPORT;
-    std::cerr << "This matrix is not square and has no inverse matrix." << std::endl
-              << "Your input was (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix mat_cp(mat);
-  zgematrix mat_inv(mat_cp.m,mat_cp.n);
-  mat_inv.identity();
-  mat_cp.zgesv(mat_inv);
-  
-  return _(mat_inv);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! return its conjugate matrix */
-inline _zgematrix conj(const _zgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<mat.m; i++){
-    for(CPPL_INT j=0; j<mat.n; j++){
-      mat(i,j) =std::conj(mat(i,j));
-    }
-  }
-  
-  return mat;
-}
-
-//=============================================================================
-/*! return its conjugate transposed matrix */
-inline _zgematrix conjt(const _zgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-  zgematrix newmat(mat.n,mat.m);
-  
-  for(CPPL_INT i=0; i<newmat.m; i++){
-    for(CPPL_INT j=0; j<newmat.n; j++){
-      newmat(i,j) =std::conj(mat(j,i));
-    }
-  }
-  
-  mat.destroy();
-  return _(newmat);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! search the index of element having the largest absolute value
-  in 0-based numbering system */
-inline void idamax(CPPL_INT& i, CPPL_INT& j, const _zgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT size =mat.m*mat.n;
-  CPPL_INT inc =1;
-  CPPL_INT index =izamax_(&size, mat.array, &inc) -1;
-  i =index%mat.m;
-  j =index/mat.m;
-  
-  mat.destroy();
-}
-
-//=============================================================================
-/*! return its largest absolute value */
-inline comple damax(const _zgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT size =mat.m*mat.n;
-  CPPL_INT inc =1;
-  comple val =mat.array[izamax_(&size, mat.array, &inc) -1];
-  
-  mat.destroy();
-  return val;
-}
diff --git a/cpplapack-r198/.svn/pristine/84/84ae6e68f23ee5dcf1d25ef98ed49f57d38e4ba5.svn-base b/cpplapack-r198/.svn/pristine/84/84ae6e68f23ee5dcf1d25ef98ed49f57d38e4ba5.svn-base
deleted file mode 100644
index 62a9255..0000000
--- a/cpplapack-r198/.svn/pristine/84/84ae6e68f23ee5dcf1d25ef98ed49f57d38e4ba5.svn-base
+++ /dev/null
@@ -1,19 +0,0 @@
-//=============================================================================
-/*! nullify all the matrix data */
-inline void _dgsmatrix::nullify() const
-{CPPL_VERBOSE_REPORT;
-  m=0;
-  n=0;
-  data.clear();
-  rows.clear();
-  cols.clear();
-}
-
-//=============================================================================
-/*! destroy all the matrix data */
-inline void _dgsmatrix::destroy() const
-{CPPL_VERBOSE_REPORT;
-  data.clear();
-  rows.clear();
-  cols.clear();
-}
diff --git a/cpplapack-r198/.svn/pristine/84/84dc69449959db2a2e7ef5115414c14c2a21704b.svn-base b/cpplapack-r198/.svn/pristine/84/84dc69449959db2a2e7ef5115414c14c2a21704b.svn-base
deleted file mode 100644
index a2ab5d6..0000000
--- a/cpplapack-r198/.svn/pristine/84/84dc69449959db2a2e7ef5115414c14c2a21704b.svn-base
+++ /dev/null
@@ -1,13 +0,0 @@
-//=============================================================================
-/*! zcovector*zrovector operator */
-inline _zgematrix operator*(const zcovector& covec, const zrovector& rovec)
-{CPPL_VERBOSE_REPORT;
-  zgematrix newmat(covec.l, rovec.l);
-  for(CPPL_INT i=0; i<newmat.m; i++){
-    for(CPPL_INT j=0; j<newmat.n; j++){
-      newmat(i,j) =covec(i)*rovec(j);
-    }
-  }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/85/8534120ccbca980eaedc0fcd4787e43a46686a7a.svn-base b/cpplapack-r198/.svn/pristine/85/8534120ccbca980eaedc0fcd4787e43a46686a7a.svn-base
deleted file mode 100644
index a5773b4..0000000
--- a/cpplapack-r198/.svn/pristine/85/8534120ccbca980eaedc0fcd4787e43a46686a7a.svn-base
+++ /dev/null
@@ -1,526 +0,0 @@
-//=============================================================================
-/*! solve A*X=Y using zgesv\n
-  The argument is zgematrix Y. Y is overwritten and become the solution X.
-  A is also overwritten and become P*l*U. */
-inline CPPL_INT zgematrix::zgesv(zgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(m!=n || m!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrices cannot be solved." << std::endl
-              << "Your input was (" << m << "x" << n << ") and (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG 
-  
-  CPPL_INT NRHS(mat.n), LDA(n), *IPIV(new CPPL_INT[n]), LDB(mat.m), INFO(1);
-  zgesv_(&n, &NRHS, array, &LDA, IPIV, mat.array, &LDB, &INFO);
-  delete [] IPIV;
-  
-  if(INFO!=0){
-    WARNING_REPORT;
-    std::cerr << "Serious trouble happend. INFO = " << INFO << "." << std::endl;
-  }
-  return INFO;
-}
-
-//=============================================================================
-/*! solve A*x=y using zgesv\n
-  The argument is zcovector y. y is overwritten and become the solution x.
-  A is also overwritten and become P*l*U. */
-inline CPPL_INT zgematrix::zgesv(zcovector& vec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(m!=n || m!=vec.l){
-    ERROR_REPORT;
-    std::cerr << "These matrix and vector cannot be solved." << std::endl
-              << "Your input was (" << m << "x" << n << ") and (" << vec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  CPPL_INT NRHS(1), LDA(n), *IPIV(new CPPL_INT[n]), LDB(vec.l), INFO(1);
-  zgesv_(&n, &NRHS, array, &LDA, IPIV, vec.array, &LDB, &INFO);
-  delete [] IPIV;
-  
-  if(INFO!=0){
-    WARNING_REPORT;
-    std::cerr << "Serious trouble happend. INFO = " << INFO << "." << std::endl;
-  }
-  return INFO;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! solve overdetermined or underdetermined A*X=Y using zgels\n*/
-inline CPPL_INT zgematrix::zgels(zgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(m!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrices cannot be solved." << std::endl
-              << "Your input was (" << m << "x" << n << ") and (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG    
-  
-  if(m<n){ //underdetermined
-    zgematrix tmp(n,mat.n);
-    for(CPPL_INT i=0; i<mat.m; i++){
-      for(CPPL_INT j=0; j<mat.n; j++){
-        tmp(i,j) =mat(i,j);
-      }
-    }
-    mat.clear();
-    swap(mat,tmp);
-  }
-  
-  char TRANS('n');
-  CPPL_INT NRHS(mat.n), LDA(m), LDB(mat.m), LWORK(std::min(m,n)+std::max(std::min(m,n),NRHS)), INFO(1);
-  comple *WORK(new comple[LWORK]);
-  zgels_(&TRANS, &m, &n, &NRHS, array, &LDA, mat.array, &LDB, WORK, &LWORK, &INFO);
-  delete [] WORK;
-  
-  if(m>n){ //overdetermined
-    zgematrix tmp(n,mat.n);
-    for(CPPL_INT i=0; i<tmp.m; i++){
-      for(CPPL_INT j=0; j<tmp.n; j++){
-        tmp(i,j) =mat(i,j);
-      }
-    }
-    mat.clear();
-    swap(mat,tmp);
-  }
-  
-  if(INFO!=0){
-    WARNING_REPORT;
-    std::cerr << "Serious trouble happend. INFO = " << INFO << "." << std::endl;
-  }
-  return INFO;
-}
-
-//=============================================================================
-/*! solve overdetermined or underdetermined A*x=y using zgels\n*/
-inline CPPL_INT zgematrix::zgels(zcovector& vec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(m!=vec.l){
-    ERROR_REPORT;
-    std::cerr << "These matrix and vector cannot be solved." << std::endl
-              << "Your input was (" << m << "x" << n << ") and (" << vec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG    
-  
-  if(m<n){ //underdetermined
-    zcovector tmp(n);
-    for(CPPL_INT i=0; i<vec.l; i++){
-      tmp(i)=vec(i);
-    }
-    vec.clear();
-    swap(vec,tmp);
-  }
-  
-  char TRANS('n');
-  CPPL_INT NRHS(1), LDA(m), LDB(vec.l), LWORK(std::min(m,n)+std::max(std::min(m,n),NRHS)), INFO(1);
-  comple *WORK(new comple[LWORK]);
-  zgels_(&TRANS, &m, &n, &NRHS, array, &LDA, vec.array, &LDB, WORK, &LWORK, &INFO);
-  delete [] WORK;
-  
-  if(m>n){ //overdetermined
-    zcovector tmp(n);
-    for(CPPL_INT i=0; i<tmp.l; i++){
-      tmp(i)=vec(i);
-    }
-    vec.clear();
-    swap(vec,tmp);
-  }
-  
-  if(INFO!=0){
-    WARNING_REPORT;
-    std::cerr << "Serious trouble happend. INFO = " << INFO << "." << std::endl;
-  }
-  return INFO;
-}
-
-//=============================================================================
-/*! solve overdetermined or underdetermined A*X=Y using zgels
-  with the sum of residual squares output\n
-  The residual is set as the columnwise sum of residual squares 
-  for overdetermined problems 
-  while it is always zero for underdetermined problems.
-*/
-inline CPPL_INT zgematrix::zgels(zgematrix& mat, drovector& residual)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(m!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrices cannot be solved." << std::endl
-              << "Your input was (" << m << "x" << n << ") and (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  residual.resize(mat.n);
-  residual.zero();
-  
-  if(m<n){ //underdetermined
-    zgematrix tmp(n,mat.n);
-    for(CPPL_INT i=0; i<mat.m; i++){
-      for(CPPL_INT j=0; j<mat.n; j++){
-        tmp(i,j) =mat(i,j);
-      }
-    }
-    mat.clear();
-    swap(mat,tmp);
-  }
-  
-  char TRANS('n');
-  CPPL_INT NRHS(mat.n), LDA(m), LDB(mat.m), LWORK(std::min(m,n)+std::max(std::min(m,n),NRHS)), INFO(1);
-  comple *WORK(new comple[LWORK]);
-  zgels_(&TRANS, &m, &n, &NRHS, array, &LDA, mat.array, &LDB, WORK, &LWORK, &INFO);
-  delete [] WORK;
-  
-  if(m>n){ //overdetermined
-    for(CPPL_INT i=0; i<residual.l; i++){
-      for(CPPL_INT j=0; j<m-n; j++){
-        residual(i) += std::norm(mat(n+j,i));
-      }
-    }
-    
-    zgematrix tmp(n,mat.n);
-    for(CPPL_INT i=0; i<tmp.m; i++){
-      for(CPPL_INT j=0; j<tmp.n; j++){
-        tmp(i,j) =mat(i,j);
-      }
-    }
-    mat.clear();
-    swap(mat,tmp);
-  }
-  
-  if(INFO!=0){
-    WARNING_REPORT;
-    std::cerr << "Serious trouble happend. INFO = " << INFO << "." << std::endl;
-  }
-  return INFO;
-}
-
-//=============================================================================
-/*! solve overdetermined or underdetermined A*x=y using zgels
-  with the sum of residual squares output\n
-  The residual is set as the sum of residual squares for overdetermined problems
-  while it is always zero for underdetermined problems.
-*/
-inline CPPL_INT zgematrix::zgels(zcovector& vec, double& residual)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(m!=vec.l){
-    ERROR_REPORT;
-    std::cerr << "These matrix and vector cannot be solved." << std::endl
-              << "Your input was (" << m << "x" << n << ") and (" << vec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG    
-  
-  residual=0.0;
-  
-  if(m<n){ //underdetermined
-    zcovector tmp(n);
-    for(CPPL_INT i=0; i<vec.l; i++){
-      tmp(i)=vec(i);
-    }
-    vec.clear();
-    swap(vec,tmp);
-  }
-  
-  char TRANS('n');
-  CPPL_INT NRHS(1), LDA(m), LDB(vec.l), LWORK(std::min(m,n)+std::max(std::min(m,n),NRHS)), INFO(1);
-  comple *WORK(new comple[LWORK]);
-  zgels_(&TRANS, &m, &n, &NRHS, array, &LDA, vec.array, &LDB, WORK, &LWORK, &INFO);
-  delete [] WORK;
-  
-  if(m>n){ //overdetermined
-    for(CPPL_INT i=0; i<m-n; i++){
-      residual += std::norm(vec(n+i));
-    }
-    
-    zcovector tmp(n);
-    for(CPPL_INT i=0; i<tmp.l; i++){
-      tmp(i) =vec(i);
-    }
-    vec.clear();
-    swap(vec,tmp);
-  }
-  
-  if(INFO!=0){
-    WARNING_REPORT;
-    std::cerr << "Serious trouble happend. INFO = " << INFO << "." << std::endl;
-  }
-  return INFO;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! calculate the least-squares-least-norm solution 
-  for overdetermined or underdetermined A*x=y using zgelss\n */
-inline CPPL_INT zgematrix::zgelss(zcovector& B, dcovector& S, CPPL_INT& RANK,
-                              const double RCOND =-1. )
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(m!=B.l){
-    ERROR_REPORT;
-    std::cerr << "These matrix and vector cannot be solved." << std::endl
-              << "Your input was (" << m << "x" << n << ") and (" << B.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG    
-  
-  if(m<n){ //underdetermined
-    zcovector tmp(n);
-    for(CPPL_INT i=0; i<B.l; i++){
-      tmp(i)=B(i);
-    }
-    B.clear();
-    swap(B,tmp);
-  }
-  
-  S.resize(std::min(m,n));
-  
-  CPPL_INT NRHS(1), LDA(m), LDB(B.l), LWORK(2*std::min(m,n) +std::max(std::max(m,n),NRHS)), INFO(1);
-  double *RWORK(new double[5*std::min(m,n)]);
-  comple *WORK(new comple[LWORK]);
-  zgelss_(&m, &n, &NRHS, array, &LDA, B.array, &LDB, S.array, &RCOND, &RANK, WORK, &LWORK, RWORK, &INFO);
-  delete [] RWORK;
-  delete [] WORK;
-  
-  if(INFO!=0){
-    WARNING_REPORT;
-    std::cerr << "Serious trouble happend. INFO = " << INFO << "." << std::endl;
-  }
-  return INFO;
-}
-
-//=============================================================================
-/*! calculate the least-squares-least-norm solution 
-  for overdetermined or underdetermined A*x=y using zgelss\n */
-inline CPPL_INT zgematrix::zgelss(zgematrix& B, dcovector& S, CPPL_INT& RANK,
-                              const double RCOND =-1. )
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(m!=B.m){
-    ERROR_REPORT;
-    std::cerr << "These matrix and vector cannot be solved." << std::endl
-              << "Your input was (" << m << "x" << n << ") and (" << B.m << "x" << B.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG    
-  
-  if(m<n){ //underdetermined
-    zgematrix tmp(n,B.n);
-    for(CPPL_INT i=0; i<B.m; i++){
-      for(CPPL_INT j=0; j<B.n; j++){
-        tmp(i,j)=B(i,j);
-      }
-    }
-    B.clear();
-    swap(B,tmp);
-  }
-  
-  S.resize(std::min(m,n));
-  
-  CPPL_INT NRHS(B.n), LDA(m), LDB(B.m), LWORK(2*std::min(m,n) +std::max(std::max(m,n),NRHS)), INFO(1);
-  double *RWORK(new double[5*std::min(m,n)]);
-  comple *WORK(new comple[LWORK]);
-  zgelss_(&m, &n, &NRHS, array, &LDA, B.array, &LDB, S.array, &RCOND, &RANK, WORK, &LWORK, RWORK, &INFO);
-  delete [] RWORK;
-  delete [] WORK;
-  
-  if(INFO!=0){
-    WARNING_REPORT;
-    std::cerr << "Serious trouble happend. INFO = " << INFO << "." << std::endl;
-  }
-  return INFO;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! calculate eigenvalues\n
-  The argument need not to be initialized.
-  w is overwitten and become eigenvalues.
-  This matrix is also overwritten. */
-inline CPPL_INT zgematrix::zgeev(std::vector< comple >& w)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(m!=n){
-    ERROR_REPORT;
-    std::cerr << "This matrix cannot have eigenvalues." << std::endl
-              << "Your input was (" << m << "x" << n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  w.resize(n);
-  
-  char JOBVL('n'), JOBVR('n');
-  CPPL_INT LDA(n), LDVL(1), LDVR(1), LWORK(4*n), INFO(1);
-  double *RWORK(new double[2*n]);
-  comple *VL(NULL), *VR(NULL), *WORK(new comple[LWORK]);
-  zgeev_(&JOBVL, &JOBVR, &n, array, &LDA, &w[0], VL, &LDVL, VR, &LDVR, WORK, &LWORK, RWORK, &INFO);
-  delete [] RWORK;
-  delete [] WORK;
-  delete [] VL;
-  delete [] VR;
-  
-  if(INFO!=0){
-    WARNING_REPORT;
-    std::cerr << "Serious trouble happend. INFO = " << INFO << "." << std::endl;
-  }
-  return INFO;
-}
-
-//=============================================================================
-/*! calculate eigenvalues and right eigenvectors\n
-  All of the arguments need not to be initialized.
-  w, vr are overwitten and become eigenvalues and right eigenvectors, 
-  respectively. 
-  This matrix is also overwritten. */
-inline CPPL_INT zgematrix::zgeev(std::vector< comple >& w,
-                             std::vector<zcovector>& vr)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(m!=n){
-    ERROR_REPORT;
-    std::cerr << "This matrix cannot have eigenvalues." << std::endl
-              << "Your input was (" << m << "x" << n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  w.resize(n);
-  vr.resize(n);
-  for(CPPL_INT i=0; i<n; i++){
-    vr[i].resize(n);
-  }
-  
-  zgematrix VR(n,n);
-  char JOBVL('n'), JOBVR('V');
-  CPPL_INT LDA(n), LDVL(1), LDVR(n), LWORK(4*n), INFO(1);
-  double *RWORK(new double[2*n]);
-  comple *VL(NULL), *WORK(new comple[LWORK]);
-  zgeev_(&JOBVL, &JOBVR, &n, array, &LDA, &w[0], VL, &LDVL, VR.array, &LDVR, WORK, &LWORK, RWORK, &INFO);
-  delete [] RWORK;
-  delete [] WORK;
-  delete [] VL;
-  
-  //// forming ////
-  for(CPPL_INT j=0; j<n; j++){
-    for(CPPL_INT i=0; i<n; i++){
-      vr[j](i) = VR(i,j);
-    }
-  }
-  
-  if(INFO!=0){
-    WARNING_REPORT;
-    std::cerr << "Serious trouble happend. INFO = " << INFO << "." << std::endl;
-  }
-  return INFO;
-}
-
-//=============================================================================
-/*! calculate eigenvalues and left eigenvectors\n
-  All of the arguments need not to be initialized.
-  w, vr are overwitten and become eigenvalues and left eigenvectors, 
-  respectively. 
-  This matrix is also overwritten. */
-inline CPPL_INT zgematrix::zgeev(std::vector< comple >& w,
-                             std::vector<zrovector>& vl)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(m!=n){
-    ERROR_REPORT;
-    std::cerr << "This matrix cannot have eigenvalues." << std::endl
-              << "Your input was (" << m << "x" << n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  w.resize(n);
-  vl.resize(n);
-  for(CPPL_INT i=0; i<n; i++){
-    vl[i].resize(n);
-  }
-  zgematrix VL(n,n);
-  
-  char JOBVL('V'), JOBVR('n');
-  CPPL_INT LDA(n), LDVL(n), LDVR(1), LWORK(4*n), INFO(1);
-  double *RWORK(new double[2*n]);
-  comple *VR(NULL), *WORK(new comple[LWORK]);
-  zgeev_(&JOBVL, &JOBVR, &n, array, &LDA, &w[0], VL.array, &LDVL, VR, &LDVR, WORK, &LWORK, RWORK, &INFO);
-  delete [] RWORK;
-  delete [] WORK;
-  delete [] VR;
-  
-  //// forming ////
-  for(CPPL_INT j=0; j<n; j++){
-    for(CPPL_INT i=0; i<n; i++){
-      vl[j](i) = std::conj(VL(i,j));
-    }
-  }
-  
-  if(INFO!=0){
-    WARNING_REPORT;
-    std::cerr << "Serious trouble happend. INFO = " << INFO << "." << std::endl;
-  }
-  return INFO;
-}
-
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-//inline CPPL_INT zgematrix::zgegv()
-
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! compute the singular value decomposition (SVD)\n
-  The arguments are zcocector S, zgematrix U and VT.
-  All of them need not to be initialized.
-  S, U and VT are overwitten and become singular values, left singular vectors,
-  and right singular vectors respectively.
-  This matrix also overwritten.
-*/
-inline CPPL_INT zgematrix::zgesvd(dcovector& S, zgematrix& U, zgematrix& VT)
-{CPPL_VERBOSE_REPORT;
-  char JOBU('A'), JOBVT('A');
-  CPPL_INT LDA(m), LDU(m), LDVT(n), LWORK(std::max(3*std::min(m,n)+std::max(m,n),5*std::min(m,n))), INFO(1);
-  double *RWORK(new double[5*std::min(m,n)]);
-  comple *WORK(new comple[LWORK]);
-  S.resize(std::min(m,n));
-  U.resize(LDU,m);
-  VT.resize(LDVT,n);
-  
-  zgesvd_(&JOBU, &JOBVT, &m, &n, array, &LDA, S.array, U.array, &LDU, VT.array, &LDVT, WORK, &LWORK, RWORK, &INFO);
-  delete [] RWORK;
-  delete [] WORK;
-  
-  if(INFO!=0){
-    WARNING_REPORT;
-    std::cerr << "Serious trouble happend. INFO = " << INFO << "." << std::endl;
-  }
-  return INFO;
-}
diff --git a/cpplapack-r198/.svn/pristine/85/85693cad404575dc6cbd0f599f299b476b9f795a.svn-base b/cpplapack-r198/.svn/pristine/85/85693cad404575dc6cbd0f599f299b476b9f795a.svn-base
deleted file mode 100644
index e86328c..0000000
--- a/cpplapack-r198/.svn/pristine/85/85693cad404575dc6cbd0f599f299b476b9f795a.svn-base
+++ /dev/null
@@ -1,73 +0,0 @@
-//=============================================================================
-/*! dssmatrix+dsymatrix operator */
-/*
-inline _dgematrix operator+(const dssmatrix& matA, const dsymatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.n || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat(matB);
-  for(CPPL_INT c=0; c<matA.vol; c++){
-    newmat(matA.indx[c],matA.jndx[c]) += matA.array[c];
-  }
-  
-  return _(newmat);
-}
-*/
-//=============================================================================
-/*! dssmatrix-dsymatrix operator */
-/*
-inline _dgematrix operator-(const dssmatrix& matA, const dsymatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.n || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") - (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  //// shallow copy to dgematrix ////
-  dgematrix newmat(-matB);
-  
-  //// add ////
-  for(CPPL_INT c=0; c<matA.vol; c++){
-    newmat(matA.indx[c],matA.jndx[c]) += matA.array[c];
-  }
-  
-  return _(newmat);
-}
-*/
-//=============================================================================
-/*! dssmatrix*dsymatrix operator */
-/*
-inline _dgematrix operator*(const dssmatrix& matA, const dsymatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat(matA.m, matB.n);
-  newmat.zero();
-  
-  for(CPPL_INT c=0; c<matA.vol; c++){
-    for(CPPL_INT i=0; i<matB.n; i++){
-      newmat(matA.indx[c],i) += matA.array[c]*matB(matA.jndx[c],i);
-    }
-  }
-  
-  return _(newmat);
-}
-*/
diff --git a/cpplapack-r198/.svn/pristine/85/85f7a503fb8f877637b7c0834a4e248ec6e1988d.svn-base b/cpplapack-r198/.svn/pristine/85/85f7a503fb8f877637b7c0834a4e248ec6e1988d.svn-base
deleted file mode 100644
index 6ac1b2f..0000000
--- a/cpplapack-r198/.svn/pristine/85/85f7a503fb8f877637b7c0834a4e248ec6e1988d.svn-base
+++ /dev/null
@@ -1,14 +0,0 @@
-//=============================================================================
-/*! convert to _zgematrix */
-inline _zgematrix zhematrix::to_zgematrix() const
-{CPPL_VERBOSE_REPORT;
-  zgematrix newmat(n,n);
-  
-  for(CPPL_INT i=0; i<n; i++){
-    for(CPPL_INT j=0; j<n; j++){
-      newmat(i,j) =(*this)(i,j);
-    }
-  }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/86/864d0582f41076133ba54a581801e5800d5524e4.svn-base b/cpplapack-r198/.svn/pristine/86/864d0582f41076133ba54a581801e5800d5524e4.svn-base
deleted file mode 100644
index ffd231d..0000000
--- a/cpplapack-r198/.svn/pristine/86/864d0582f41076133ba54a581801e5800d5524e4.svn-base
+++ /dev/null
@@ -1,38 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int N(3);
-  
-  CPPL::dsymatrix A(N);
-  for(int i=0; i<A.n; i++){ for(int j=0; j<=i; j++){
-    A(i,j) =double( rand() /(RAND_MAX/10) );
-  }}
-  
-  cout << "A =\n" << A << endl;
-  cout << "A*10. =\n" << A*10. << endl;
-  cout << "A/10. =\n" << A/10. << endl;
-  
-  cout << "#### A*=10.; ####" << endl;
-  A*=10.;
-  cout << "A =\n" << A << endl;
-  cout << "#### A/=10.; ####" << endl;
-  A/=10.;
-  cout << "A =\n" << A << endl;
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/86/868ade341183c4e9c5a6ab50262311fdd4664297.svn-base b/cpplapack-r198/.svn/pristine/86/868ade341183c4e9c5a6ab50262311fdd4664297.svn-base
deleted file mode 100644
index 14563cd..0000000
--- a/cpplapack-r198/.svn/pristine/86/868ade341183c4e9c5a6ab50262311fdd4664297.svn-base
+++ /dev/null
@@ -1,172 +0,0 @@
-//=============================================================================
-/*! calculate vector product only for 2D vector */
-inline double operator/(const dcovec2& A, const dcovec2& B)
-{CPPL_VERBOSE_REPORT;
-  return A(0)*B(1) -A(1)*B(0);
-}
-
-//=============================================================================
-/*! convert 2D vector to theta */
-inline double v2t(const dcovec2& v)
-{CPPL_VERBOSE_REPORT;
-  return std::atan2(v(1),v(0));
-}
-
-//=============================================================================
-/*! rotate 2D vector by theta [rad] */
-inline dcovec2 rotate(const dcovec2& v, const double& t)
-{CPPL_VERBOSE_REPORT;
-  dcovec2 w;
-  w(0) =v(0)*std::cos(t) -v(1)*std::sin(t);
-  w(1) =v(0)*std::sin(t) +v(1)*std::cos(t);
-  return w;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! calculate vector product only for 3D vector */
-inline dcovec3 operator/(const dcovec3& A, const dcovec3& B)
-{CPPL_VERBOSE_REPORT;
-  dcovec3 C;
-  C(0) =A(1)*B(2) -A(2)*B(1);
-  C(1) =A(2)*B(0) -A(0)*B(2);
-  C(2) =A(0)*B(1) -A(1)*B(0);
-  return C;
-}
-
-//=============================================================================
-/*! calculate vector product only for 3D vector */
-inline dcovec3 operator/=(dcovec3& A, const dcovec3& B)
-{CPPL_VERBOSE_REPORT;
-  A =A/B;
-  return A;
-}
-
-//=============================================================================
-/*! make quaternion from imag vector and real value */
-inline dquater vr2q(const dcovec3& v, const double& r)
-{CPPL_VERBOSE_REPORT;
-  return dquater(v(0),v(1),v(2),r);
-}
-
-//=============================================================================
-/*! make quaternion from directional vector and rotational angle */
-inline dquater vt2q(const dcovec3& v, const double& theta)
-{CPPL_VERBOSE_REPORT;
-  return vr2q( v/(nrm2(v)+DBL_MIN)*std::sin(0.5*theta), std::cos(0.5*theta) );
-}
-
-//=============================================================================
-/*! rotate 3D vector by quaternion */
-inline dcovec3 rotate(const dcovec3& v, const dquater& q)
-{CPPL_VERBOSE_REPORT;
-  return imag( q*vr2q(v,0.)*conj(q) );
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! conjuction */
-inline dquater conj(const dquater& q)
-{CPPL_VERBOSE_REPORT;
-  return dquater(-q(0),-q(1),-q(2), q(3));
-}
-
-//=============================================================================
-/*! imag */
-inline dcovec3 imag(const dquater& q)
-{CPPL_VERBOSE_REPORT;
-  return dcovec3(q(0),q(1),q(2));
-}
-
-//=============================================================================
-/*! inverse */
-inline dquater inv(const dquater& q)
-{CPPL_VERBOSE_REPORT;
-  return conj(q)/std::pow(nrm2(q),2);
-}
-
-//=============================================================================
-/*! dquater*dquater operator */
-inline dquater operator*(const dquater& q1, const dquater& q2)
-{CPPL_VERBOSE_REPORT;
-  return dquater(q1(3)*q2(0) +q1(0)*q2(3) +q1(1)*q2(2) -q1(2)*q2(1),
-                 q1(3)*q2(1) -q1(0)*q2(2) +q1(1)*q2(3) +q1(2)*q2(0),
-                 q1(3)*q2(2) +q1(0)*q2(1) -q1(1)*q2(0) +q1(2)*q2(3),
-                 q1(3)*q2(3) -q1(0)*q2(0) -q1(1)*q2(1) -q1(2)*q2(2) );
-}
-
-//=============================================================================
-/*! dquater/dquater operator */
-inline dquater operator/(const dquater& q1, const dquater& q2)
-{CPPL_VERBOSE_REPORT;
-  return q1*inv(q2);
-}
-
-//=============================================================================
-/*! dquater*=dquater operator */
-inline dquater operator*=(dquater& q1, const dquater& q2)
-{CPPL_VERBOSE_REPORT;
-  q1 =q1*q2;
-  return q1;
-}
-
-//=============================================================================
-/*! dquater/=dquater operator */
-inline dquater operator/=(dquater& q1, const dquater& q2)
-{CPPL_VERBOSE_REPORT;
-  q1 =q1/q2;
-  return q1;
-}
-
-//=============================================================================
-/*! return vector from quaternion (|vector|=theta) */
-inline dcovec3 q2vt(const dquater& q)
-{CPPL_VERBOSE_REPORT;
-  double sin_theta_half;
-  double theta( 2.*std::acos(q(3)) );
-  
-  if(theta<M_PI){
-    sin_theta_half =std::sin(0.5*theta);
-  }
-  else{
-    theta -=2.*M_PI;
-    sin_theta_half =-std::sin(0.5*theta);
-  }
-  
-  return dcovec3( theta*q(0)/sin_theta_half,
-                  theta*q(1)/sin_theta_half,
-                  theta*q(2)/sin_theta_half );
-}
-
-//=============================================================================
-/*! return rotational matrix made of quaternion */
-inline dgemat3 q2m(const dquater& q)
-{CPPL_VERBOSE_REPORT;
-  dquater cq( conj(q) );
-  dquater X( dquater(+q(3),+q(2),-q(1),-q(0))*cq );
-  dquater Y( dquater(-q(2),+q(3),+q(0),-q(1))*cq );
-  dquater Z( dquater(+q(1),-q(0),+q(3),-q(2))*cq );
-  dgemat3 mat;
-  mat(0,0)=X(0); mat(0,1)=Y(0); mat(0,2)=Z(0);
-  mat(1,0)=X(1); mat(1,1)=Y(1); mat(1,2)=Z(1);
-  mat(2,0)=X(2); mat(2,1)=Y(2); mat(2,2)=Z(2);
-  return mat;
-}
diff --git a/cpplapack-r198/.svn/pristine/86/86fdd747fc012d34b0a4d365776646e53e8e9a5d.svn-base b/cpplapack-r198/.svn/pristine/86/86fdd747fc012d34b0a4d365776646e53e8e9a5d.svn-base
deleted file mode 100644
index 7405bbf..0000000
--- a/cpplapack-r198/.svn/pristine/86/86fdd747fc012d34b0a4d365776646e53e8e9a5d.svn-base
+++ /dev/null
@@ -1,77 +0,0 @@
-//=============================================================================
-/*! _dssmatrix+_dssmatrix operator */
-inline _dssmatrix operator+(const _dssmatrix& matA, const _dssmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") + (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dssmatrix newmat(matA);
-  
-  const std::vector<dcomponent>::const_iterator matB_data_end =matB.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matB.data.begin(); it!=matB_data_end; it++){
-    newmat(it->i, it->j) +=it->v;
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _dssmatrix-_dssmatrix operator */
-inline _dssmatrix operator-(const _dssmatrix& matA, const _dssmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") - (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dssmatrix newmat(matA);
-  
-  const std::vector<dcomponent>::const_iterator matB_data_end =matB.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matB.data.begin(); it!=matB_data_end; it++){
-    newmat(it->i, it->j) -=it->v;
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _dssmatrix*_dssmatrix operator */
-/*
-inline _dssmatrix operator*(const _dssmatrix& matA, const _dssmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") * (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dssmatrix newmat(matA.n);
-  
-  for(CPPL_INT c=0; c<matA.vol; c++){
-    CPPL_INT k(matA.jndx[c]);
-    std::vector< std::pair<CPPL_INT,CPPL_INT> >::iterator p;
-    for(p=matB.line[k].begin(); p!=matB.line[k].end(); p++){
-      newmat(matA.indx[c],p->first) +=matA.array[c]*matB.array[p->second];
-    }
-  }
-  
-  matA.destroy();
-  matB.destroy();
-  return _(newmat);
-}
-*/
diff --git a/cpplapack-r198/.svn/pristine/87/874933fa546ce216f80f4040f88d2c06c550d90d.svn-base b/cpplapack-r198/.svn/pristine/87/874933fa546ce216f80f4040f88d2c06c550d90d.svn-base
deleted file mode 100644
index 6c8b4a5..0000000
--- a/cpplapack-r198/.svn/pristine/87/874933fa546ce216f80f4040f88d2c06c550d90d.svn-base
+++ /dev/null
@@ -1,116 +0,0 @@
-//=============================================================================
-//! Real Double-precision Row Vector Class
-class drovector
-{
-public:
-  ///////////////////////////////////////////////
-  /////////////////// objects ///////////////////
-  ///////////////////////////////////////////////
-  CPPL_INT l; //!< vector size
-  CPPL_INT cap; //!< vector capacity
-  double* array; //!< 1D array to store vector data
-  
-  ///////////////////////////////////////////////
-  ///////////////// constructors ////////////////
-  ///////////////////////////////////////////////
-  inline drovector();
-  inline drovector(const drovector&);
-  inline drovector(const _drovector&);
-  inline drovector(const CPPL_INT&, const CPPL_INT=0);
-  inline drovector(const char*);
-  inline ~drovector(); //destructor
-  
-  ///////////////////////////////////////////////
-  ////////////////// functions //////////////////
-  ///////////////////////////////////////////////
-  //////// cast ////////
-  inline _zrovector to_zrovector() const;
-  
-  //////// io ////////
-  inline double& operator()(const CPPL_INT&);
-  inline double operator()(const CPPL_INT&) const;
-  inline drovector& set(const CPPL_INT&, const double&); //const;
-  inline friend std::ostream& operator<<(std::ostream&, const drovector&);
-  inline void write(const char*) const;
-  inline void read(const char*);
- 
-  //////// calc ////////
-  inline friend _dcovector t(const drovector&);
-  inline friend double nrm2(const drovector&);
-  inline friend CPPL_INT idamax(const drovector&);
-  inline friend double damax(const drovector&);
-
-  //////// misc ////////
-  inline void clear();
-  inline drovector& zero();
-  inline void chsign();
-  inline void copy(const drovector&);
-  inline void shallow_copy(const _drovector&);
-  inline void alias(const drovector&);
-  inline void unalias();
-  inline drovector& resize(const CPPL_INT&, const CPPL_INT=0);
-  inline void stretch(const CPPL_INT&);
-  inline friend void swap(drovector&, drovector&);
-  inline friend _drovector _(drovector&);
-  
-  ///////////////////////////////////////////////
-  ///////////// numerical operators /////////////
-  ///////////////////////////////////////////////
-  //////// = ////////
-  inline drovector& operator=(const  drovector&);
-  inline drovector& operator=(const _drovector&);
-  
-  //////// += ///
-  inline drovector& operator+=(const  drovector&);
-  inline drovector& operator+=(const _drovector&);
-  
-  //////// -= ////////
-  inline drovector& operator-=(const  drovector&);
-  inline drovector& operator-=(const _drovector&);
-  
-  //////// *= ////////
-  inline drovector& operator*=(const     double&);
-  
-  //////// /= ////////
-  inline drovector& operator/=(const     double&);
-  
-  //////// unary ////////
-  inline friend const drovector& operator+(const drovector&);
-  inline friend _drovector operator-(const  drovector&);
-  
-  //////// + ////////
-  inline friend _drovector operator+(const  drovector&, const  drovector&);
-  inline friend _drovector operator+(const  drovector&, const _drovector&);
-  
-  //////// - ////////
-  inline friend _drovector operator-(const  drovector&, const  drovector&);
-  inline friend _drovector operator-(const  drovector&, const _drovector&);
-  
-  //////// * ////////
-  inline friend     double operator*(const  drovector&, const  dcovector&);
-  inline friend     double operator*(const  drovector&, const _dcovector&);
-  inline friend _drovector operator*(const  drovector&, const  dgematrix&);
-  inline friend _drovector operator*(const  drovector&, const _dgematrix&);
-  inline friend _drovector operator*(const  drovector&, const  dsymatrix&);
-  inline friend _drovector operator*(const  drovector&, const _dsymatrix&);
-  inline friend _drovector operator*(const  drovector&, const  dgbmatrix&);
-  inline friend _drovector operator*(const  drovector&, const _dgbmatrix&);
-  inline friend _drovector operator*(const  drovector&, const  dgsmatrix&);
-  inline friend _drovector operator*(const  drovector&, const _dgsmatrix&);
-  inline friend _drovector operator*(const  drovector&, const  dssmatrix&);
-  inline friend _drovector operator*(const  drovector&, const _dssmatrix&);
-  inline friend _drovector operator*(const  drovector&, const     double&);
-  
-  //////// / ////////
-  inline friend _drovector operator/(const  drovector&, const     double&);
-  
-  //////// % ////////
-  inline friend     double operator%(const  drovector&, const  drovector&);
-  inline friend     double operator%(const  drovector&, const _drovector&);
-  
-  //////// double ////////
-  inline friend _drovector operator*(const     double&, const  drovector&);
-  
-  //////// hadamard ////////
-  inline friend _drovector hadamard(const drovector&, const drovector&);
-};
diff --git a/cpplapack-r198/.svn/pristine/87/87ac05875dc2c2f31e54ee6cbfee4255e8bdf5a6.svn-base b/cpplapack-r198/.svn/pristine/87/87ac05875dc2c2f31e54ee6cbfee4255e8bdf5a6.svn-base
deleted file mode 100644
index 37b123c..0000000
--- a/cpplapack-r198/.svn/pristine/87/87ac05875dc2c2f31e54ee6cbfee4255e8bdf5a6.svn-base
+++ /dev/null
@@ -1,52 +0,0 @@
-//=============================================================================
-/*! operator() for const object */
-inline double& _drovector::operator()(const CPPL_INT& i) const
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || l<=i ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the vector size." << std::endl
-              << "Your input is (" << i << "), whereas the vector size is " << l << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  return array[i];
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-inline std::ostream& operator<<(std::ostream& s, const _drovector& vec)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<vec.l; i++){ s << " " << vec.array[i]; }
-  s << std::endl;
-  
-  vec.destroy();
-  return s;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-inline void _drovector::write(const char* filename) const
-{CPPL_VERBOSE_REPORT;
-  std::ofstream ofs(filename, std::ios::trunc);
-  ofs.setf(std::cout.flags());
-  ofs.precision(std::cout.precision());
-  ofs.width(std::cout.width());
-  ofs.fill(std::cout.fill());
-  
-  ofs << "#drovector" << " " << l << std::endl;
-  for(CPPL_INT i=0; i<l; i++){
-    ofs << operator()(i) << " ";
-  }
-  ofs << std::endl;
-  
-  ofs.close();
-  destroy();
-}
diff --git a/cpplapack-r198/.svn/pristine/87/87b6b83a679700ce45d5031af690725e0a861c7a.svn-base b/cpplapack-r198/.svn/pristine/87/87b6b83a679700ce45d5031af690725e0a861c7a.svn-base
deleted file mode 100644
index e4fd85e..0000000
--- a/cpplapack-r198/.svn/pristine/87/87b6b83a679700ce45d5031af690725e0a861c7a.svn-base
+++ /dev/null
@@ -1,8 +0,0 @@
-#!/bin/sh
-pwd=$PWD
-for i in `find * -type d | grep -v .svn`; do
-    echo $i
-    cd $i
-    rm -f A.OUT main.o  A.dgematrix A.dsymatrix y.dcovector  answer.dcovector solution.dcovector *~
-    cd $pwd
-done
diff --git a/cpplapack-r198/.svn/pristine/88/8815b52400e50f22b97b89e0f853f4c2c5bd204a.svn-base b/cpplapack-r198/.svn/pristine/88/8815b52400e50f22b97b89e0f853f4c2c5bd204a.svn-base
deleted file mode 100644
index b958a00..0000000
--- a/cpplapack-r198/.svn/pristine/88/8815b52400e50f22b97b89e0f853f4c2c5bd204a.svn-base
+++ /dev/null
@@ -1,73 +0,0 @@
-//=============================================================================
-/*! _dgsmatrix+dsymatrix operator */
-/*
-inline _dgematrix operator+(const _dgsmatrix& matA, const dsymatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.n || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat(matB);
-  for(CPPL_INT c=0; c<matA.vol; c++){
-    newmat(matA.indx[c],matA.jndx[c]) += matA.array[c];
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
-*/
-//=============================================================================
-/*! _dgsmatrix-dsymatrix operator */
-/*
-inline _dgematrix operator-(const _dgsmatrix& matA, const dsymatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.n || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") - (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  dgematrix newmat(-matB);
-  for(CPPL_INT c=0; c<matA.vol; c++){
-    newmat(matA.indx[c],matA.jndx[c]) += matA.array[c];
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
-*/
-//=============================================================================
-/*! _dgsmatrix*dsymatrix operator */
-/*
-inline _dgematrix operator*(const _dgsmatrix& matA, const dsymatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat(matA.m, matB.n);
-  newmat.zero();
-  
-  for(CPPL_INT c=0; c<matA.vol; c++){
-    for(CPPL_INT i=0; i<matB.n; i++){
-      newmat(matA.indx[c],i) += matA.array[c]*matB(matA.jndx[c],i);
-    }
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
-*/
diff --git a/cpplapack-r198/.svn/pristine/88/882d154aef5e7b6d4529b13821d939dda4d29ea4.svn-base b/cpplapack-r198/.svn/pristine/88/882d154aef5e7b6d4529b13821d939dda4d29ea4.svn-base
deleted file mode 100644
index c0c8c98..0000000
--- a/cpplapack-r198/.svn/pristine/88/882d154aef5e7b6d4529b13821d939dda4d29ea4.svn-base
+++ /dev/null
@@ -1,73 +0,0 @@
-//=============================================================================
-/*! drovector constructor */
-inline drovector::drovector()
-{CPPL_VERBOSE_REPORT;
-  //////// initialize ////////
-  l =0;
-  cap =0;
-  array =NULL;
-}
-
-//=============================================================================
-/*! drovector copy constructor */
-inline drovector::drovector(const drovector& vec)
-{CPPL_VERBOSE_REPORT;
-  //////// initialize ////////
-  l =vec.l;
-  cap =vec.cap;
-  array =new double[cap];
-  
-  //////// copy ////////
-  CPPL_INT inc =1;
-  dcopy_(&l, vec.array, &inc, array, &inc);
-}
-
-//=============================================================================
-/*! drovector constructor to cast _drovector */
-inline drovector::drovector(const _drovector& vec)
-{CPPL_VERBOSE_REPORT;
-  //////// initialize ////////
-  l =vec.l;
-  cap =vec.cap;
-  array =vec.array;
-  
-  vec.nullify();
-}
-
-//=============================================================================
-/*! drovector constructor with size specification */
-inline drovector::drovector(const CPPL_INT& _l, const CPPL_INT margin)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( _l<0 || margin<0 ){
-    ERROR_REPORT;
-    std::cerr << "Vector size must be positive integers. " << std::endl
-              << "Your input was (" << _l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //////// initialize ////////
-  l =_l;
-  cap =l+margin;
-  array =new double[cap];
-}
-
-//=============================================================================
-/*! drovector constructor with filename */
-inline drovector::drovector(const char* filename)
-{CPPL_VERBOSE_REPORT;
-  array =NULL;
-  read(filename);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! drovector destructor */
-inline drovector::~drovector()
-{CPPL_VERBOSE_REPORT;
-  delete [] array;
-}
diff --git a/cpplapack-r198/.svn/pristine/88/888ab6a8fe6fe66e62ea829226345b9512733322.svn-base b/cpplapack-r198/.svn/pristine/88/888ab6a8fe6fe66e62ea829226345b9512733322.svn-base
deleted file mode 100644
index 964f013..0000000
--- a/cpplapack-r198/.svn/pristine/88/888ab6a8fe6fe66e62ea829226345b9512733322.svn-base
+++ /dev/null
@@ -1,18 +0,0 @@
-//=============================================================================
-/*! _zcovector*comple operator */
-inline _zcovector operator*(const _zcovector& vec, const comple& d)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT inc =1;
-  zscal_(&vec.l, &d, vec.array, &inc);
-  return vec;
-}
-
-//=============================================================================
-/*! _zcovector/comple operator */
-inline _zcovector operator/(const _zcovector& vec, const comple& d)
-{CPPL_VERBOSE_REPORT;
-  comple dinv =1./d;
-  CPPL_INT inc =1;
-  zscal_(&vec.l, &dinv, vec.array, &inc);
-  return vec;
-}
diff --git a/cpplapack-r198/.svn/pristine/88/888d074427a164304566f6f0a4d6a4b1d91adf6e.svn-base b/cpplapack-r198/.svn/pristine/88/888d074427a164304566f6f0a4d6a4b1d91adf6e.svn-base
deleted file mode 100644
index 9ac98be..0000000
--- a/cpplapack-r198/.svn/pristine/88/888d074427a164304566f6f0a4d6a4b1d91adf6e.svn-base
+++ /dev/null
@@ -1,50 +0,0 @@
-//=============================================================================
-//! Component Class for Real Double-precision Sparse Matrix Classes
-class dcomponent
-{
-public:
-  ///////////////////////////////////////////////
-  /////////////////// objects ///////////////////
-  ///////////////////////////////////////////////
-  CPPL_INT i; //!< i index of the component
-  CPPL_INT j; //!< j index of the component
-  double v; //!< value of the component
-  
-  ///////////////////////////////////////////////
-  ///////////////// constructors ////////////////
-  ///////////////////////////////////////////////
-  inline dcomponent(){ ; }
-  inline dcomponent(const CPPL_INT& _i, const CPPL_INT& _j, const double& _v) :i(_i), j(_j), v(_v){ ; }
-  
-  ///////////////////////////////////////////////
-  ////////////////// functions //////////////////
-  ///////////////////////////////////////////////
-  inline friend std::ostream& operator<<(std::ostream&, const dcomponent&);
-  inline static bool ilt(const dcomponent&, const dcomponent&);
-  inline static bool jlt(const dcomponent&, const dcomponent&);
-};
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-inline std::ostream& operator<<(std::ostream& s, const dcomponent& c)
-{CPPL_VERBOSE_REPORT;
-  s << "(" << c.i << ", " << c.j << ",  " << c.v << ")" << std::flush;
-  return s;
-}
-
-//=============================================================================
-/*! lessthan function for i of dcomponent */
-inline bool dcomponent::ilt(const dcomponent& a, const dcomponent& b)
-{CPPL_VERBOSE_REPORT;
-  return a.i < b.i;
-}
-
-//=============================================================================
-/*! lessthan function for j of dcomponent */
-inline bool dcomponent::jlt(const dcomponent& a, const dcomponent& b)
-{CPPL_VERBOSE_REPORT;
-  return a.j < b.j;
-}
diff --git a/cpplapack-r198/.svn/pristine/88/8896eb9e6191a24db8fbf8a501231f8063893429.svn-base b/cpplapack-r198/.svn/pristine/88/8896eb9e6191a24db8fbf8a501231f8063893429.svn-base
deleted file mode 100644
index 67d8589..0000000
--- a/cpplapack-r198/.svn/pristine/88/8896eb9e6191a24db8fbf8a501231f8063893429.svn-base
+++ /dev/null
@@ -1,160 +0,0 @@
-//=============================================================================
-/*! dgsmatrix=dgsmatrix operator */
-inline dgsmatrix& dgsmatrix::operator=(const dgsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  if(&data!=&mat.data){ // if it is NOT self substitution
-    copy(mat);
-  }
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! dgsmatrix+=dgsmatrix operator */
-inline dgsmatrix& dgsmatrix::operator+=(const dgsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.n || m!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << m << "x" << n << ") += (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  const std::vector<dcomponent>::const_iterator mat_data_end =mat.data.end();
-  for(std::vector<dcomponent>::const_iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    (*this)(it->i,it->j) +=it->v;
-  }
-  
-  return *this;
-}
-
-//=============================================================================
-/*! dgsmatrix-=dgsmatrix operator */
-inline dgsmatrix& dgsmatrix::operator-=(const dgsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.n || m!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a sutraction." << std::endl
-              << "Your input was (" << m << "x" << n << ") -= (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  const std::vector<dcomponent>::const_iterator mat_data_end =mat.data.end();
-  for(std::vector<dcomponent>::const_iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    (*this)(it->i,it->j) -=it->v;
-  }
-  return *this;
-}
-
-//=============================================================================
-/*! dgsmatrix*=dgsmatrix operator */
-inline dgsmatrix& dgsmatrix::operator*=(const dgsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << m << "x" << n << ") *= (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgsmatrix newmat(m, mat.n);
-  newmat.zero();
-  
-  const std::vector<dcomponent>::const_iterator data_end =data.end();
-  for(std::vector<dcomponent>::const_iterator it=data.begin(); it!=data_end; it++){
-    CPPL_INT k =it->j;
-    const std::vector<CPPL_INT>::const_iterator mat_rows_k_end =mat.rows[k].end();
-    for(std::vector<CPPL_INT>::const_iterator p=mat.rows[k].begin(); p!=mat_rows_k_end; p++){
-      newmat(it->i,mat.data[*p].j) +=it->v*mat.data[*p].v;
-    }
-  }
-  
-  swap(*this,newmat);
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! dgsmatrix+dgsmatrix operator */
-inline _dgsmatrix operator+(const dgsmatrix& matA, const dgsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgsmatrix newmat(matA);
-  
-  const std::vector<dcomponent>::const_iterator matB_data_end =matB.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matB.data.begin(); it!=matB_data_end; it++){
-    newmat(it->i, it->j) +=it->v;
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! dgsmatrix-dgsmatrix operator */
-inline _dgsmatrix operator-(const dgsmatrix& matA, const dgsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") - (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgsmatrix newmat(matA);
-  
-  const std::vector<dcomponent>::const_iterator matB_data_end =matB.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matB.data.begin(); it!=matB_data_end; it++){
-    newmat(it->i, it->j) -=it->v;
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! dgsmatrix*dgsmatrix operator */
-inline _dgsmatrix operator*(const dgsmatrix& matA, const dgsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgsmatrix newmat( matA.m, matB.n );
-  
-  const std::vector<dcomponent>::const_iterator matA_data_end =matA.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matA.data.begin(); it!=matA_data_end; it++){
-    CPPL_INT k =it->j;
-    const std::vector<CPPL_INT>::const_iterator matB_rows_k_end =matB.rows[k].end();
-    for(std::vector<CPPL_INT>::const_iterator p=matB.rows[k].begin(); p!=matB_rows_k_end; p++){
-      newmat(it->i,matB.data[*p].j) +=it->v*matB.data[*p].v;
-    }
-  }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/88/88babc41a37bde24250a92845b3f4a3c9d5cfb19.svn-base b/cpplapack-r198/.svn/pristine/88/88babc41a37bde24250a92845b3f4a3c9d5cfb19.svn-base
deleted file mode 100644
index f8b5aba..0000000
--- a/cpplapack-r198/.svn/pristine/88/88babc41a37bde24250a92845b3f4a3c9d5cfb19.svn-base
+++ /dev/null
@@ -1,41 +0,0 @@
-###############################################################################
-##                             Makefile for icl                              ##
-###############################################################################
-
-TARGET = a.exe
-
-###############################################################################
-
-CXX = icl
-FLAGS += /DRELEASE
-####/DMKL_ILP64
-FLAGS += /QaxSSE4.2,AVX,CORE-AVX2,CORE-AVX-I /O3 /Qprec-div- /fp:fast=2 # without ipo
-####FLAGS += /Qipo
-FLAGS += /Qopenmp /Qmkl:parallel
-CFLAGS += /Qstd=c++11 /W0 /nologo
-LFLAGS += 
-INCLUDE_DIRS += /I.
-INCLUDE_DIRS += /I../../cpplapack/include
-
-###############################################################################
-
-HEADERS:= $(wildcard */*.hpp *.hpp)
-SOURCES:= $(wildcard */*.cpp *.cpp)
-SOURCES:= $(sort $(SOURCES))
-#SOURCES:= $(filter-out main.cpp, $(SOURCES)) main.cpp
-OBJECTS:= $(SOURCES:%.cpp=%.obj)
-OBJECTS_TO_DEL := $(subst /,\,$(OBJECTS))
-
-###############################################################################
-###############################################################################
-###############################################################################
-
-all: $(OBJECTS)
-	$(CXX) $(OBJECTS) $(FLAGS) $(LFLAGS) $(LIB_DIRS) $(LIBS) /Fe$(TARGET)
-
-.SUFFIXES: .cpp .obj
-.cpp.obj:
-	$(CXX) /c $< $(FLAGS) $(CFLAGS) $(INCLUDE_DIRS) $(MACROS) /Fo$@
-  
-clean:
-	del $(OBJECTS_TO_DEL)
diff --git a/cpplapack-r198/.svn/pristine/89/8960e60f107152c9e940497311c0af05af88961b.svn-base b/cpplapack-r198/.svn/pristine/89/8960e60f107152c9e940497311c0af05af88961b.svn-base
deleted file mode 100644
index d82a2e7..0000000
--- a/cpplapack-r198/.svn/pristine/89/8960e60f107152c9e940497311c0af05af88961b.svn-base
+++ /dev/null
@@ -1,18 +0,0 @@
-//=============================================================================
-/*! drovector*dcovector operator */
-inline double operator*(const drovector& rovec, const dcovector& covec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(rovec.l!=covec.l){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make a product." << std::endl
-              << "Your input was (" << rovec.l << ") * (" << covec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  CPPL_INT inc =1;
-  double val =ddot_( &rovec.l, rovec.array, &inc, covec.array, &inc );
-  
-  return val;
-}
diff --git a/cpplapack-r198/.svn/pristine/89/899ce857a401c9d55a2adfb066b91515db2b9dfb.svn-base b/cpplapack-r198/.svn/pristine/89/899ce857a401c9d55a2adfb066b91515db2b9dfb.svn-base
deleted file mode 100644
index f40587a..0000000
--- a/cpplapack-r198/.svn/pristine/89/899ce857a401c9d55a2adfb066b91515db2b9dfb.svn-base
+++ /dev/null
@@ -1,71 +0,0 @@
-/*****************************************************************************/
-/*                               noname.cpp                                  */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int M(4), N(3), KL(2), KU(1);
-  CPPL::dgematrix A(M,N);
-  CPPL::dgbmatrix B(M,N,KL,KU);
-  CPPL::dsymatrix C(N);
-  CPPL::dcovector cv(M);
-  CPPL::drovector rv(M);
-  
-  for(int i=0; i<M; i++){ for(int j=0; j<N; j++){
-    A(i,j) =double( rand() /(RAND_MAX/10) );
-  }}
-  
-  for(int i=0; i<M; i++){ for(int j=0; j<N; j++){
-    if( !(i-j>B.kl || j-i>B.ku) ){
-      B(i,j) =double( rand() /(RAND_MAX/10) );
-    }
-  }}
-  
-  for(int i=0; i<N; i++){ for(int j=0; j<=i; j++){
-    C(i,j) =double( rand() /(RAND_MAX/10) );
-  }}
-  
-  for(int i=0; i<M; i++){
-    cv(i) =double( rand() /(RAND_MAX/10) );
-    rv(i) =double( rand() /(RAND_MAX/10) );
-  }
-  
-  cout << "A =\n" << A << endl;
-  cout << "10.*A =\n" << 10.*A << endl;
-  cout << "A*10. =\n" << A*10. << endl;
-  cout << "A/10. =\n" << A/10. << endl;
-  
-  cout << "B =\n" << B << endl;
-  cout << "10.*B =\n" << 10.*B << endl;
-  cout << "B*10. =\n" << B*10. << endl;
-  cout << "B/10. =\n" << B/10. << endl;
-
-  cout << "C =\n" << C << endl;
-  cout << "10.*C =\n" << 10.*C << endl;
-  cout << "C*10. =\n" << C*10. << endl;
-  cout << "C/10. =\n" << C/10. << endl;
-  
-  cout << "cv =\n" << cv << endl;
-  cout << "10.*cv =\n" << 10.*cv << endl;
-  cout << "cv*10. =\n" << cv*10. << endl;
-  cout << "cv/10. =\n" << cv/10. << endl;
-  
-  cout << "rv =\n" << rv << endl;
-  cout << "10.*rv =\n" << 10.*rv << endl;
-  cout << "rv*10. =\n" << rv*10. << endl;
-  cout << "rv/10. =\n" << rv/10. << endl;
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/89/89b146f3bb5cd720a8f405fe5ef66488274acf09.svn-base b/cpplapack-r198/.svn/pristine/89/89b146f3bb5cd720a8f405fe5ef66488274acf09.svn-base
deleted file mode 100644
index 4cc6bc2..0000000
--- a/cpplapack-r198/.svn/pristine/89/89b146f3bb5cd720a8f405fe5ef66488274acf09.svn-base
+++ /dev/null
@@ -1,13 +0,0 @@
-//=============================================================================
-/*! cast to _zcovector */
-inline _zcovector _dcovector::to_zcovector() const
-{CPPL_VERBOSE_REPORT;
-  zcovector newvec(l);
-  
-  for(CPPL_INT i=0; i<l; i++){
-    newvec.array[i] =comple(array[i], 0.);
-  }
-  
-  destroy();
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/8b/8b32c9922291c2f3a4b4d96eb367215463f94a9b.svn-base b/cpplapack-r198/.svn/pristine/8b/8b32c9922291c2f3a4b4d96eb367215463f94a9b.svn-base
deleted file mode 100644
index 7aeca8a..0000000
--- a/cpplapack-r198/.svn/pristine/8b/8b32c9922291c2f3a4b4d96eb367215463f94a9b.svn-base
+++ /dev/null
@@ -1,76 +0,0 @@
-//=============================================================================
-/*! _zgsmatrix+_zgsmatrix operator */
-inline _zgsmatrix operator+(const _zgsmatrix& matA, const _zgsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgsmatrix newmat(matA);
-  
-  const std::vector<zcomponent>::const_iterator matB_data_end =matB.data.end();
-  for(std::vector<zcomponent>::const_iterator it=matB.data.begin(); it!=matB_data_end; it++){
-    newmat(it->i,it->j) += it->v;
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _zgsmatrix-_zgsmatrix operator */
-inline _zgsmatrix operator-(const _zgsmatrix& matA, const _zgsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") - (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgsmatrix newmat(matA);
-  
-  const std::vector<zcomponent>::const_iterator matB_data_end =matB.data.end();
-  for(std::vector<zcomponent>::const_iterator it=matB.data.begin(); it!=matB_data_end; it++){
-    newmat(it->i,it->j) -= it->v;
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _zgsmatrix*_zgsmatrix operator */
-inline _zgsmatrix operator*(const _zgsmatrix& matA, const _zgsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgsmatrix newmat(matA.m, matB.n);
-  
-  const std::vector<zcomponent>::const_iterator matA_data_end =matA.data.end();
-  for(std::vector<zcomponent>::const_iterator it=matA.data.begin(); it!=matA_data_end; it++){
-    CPPL_INT k =it->j;
-    const std::vector<CPPL_INT>::iterator matB_rows_k_end =matB.rows[k].end();
-    for(std::vector<CPPL_INT>::iterator p=matB.rows[k].begin(); p!=matB_rows_k_end; p++){
-      newmat(it->i,matB.data[*p].j) += it->v*matB.data[*p].v;
-    }
-  }
-  
-  matA.destroy();
-  matB.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/8b/8b39767093abc92df6bb324f3fe322dfe7af998d.svn-base b/cpplapack-r198/.svn/pristine/8b/8b39767093abc92df6bb324f3fe322dfe7af998d.svn-base
deleted file mode 100644
index ec74a78..0000000
--- a/cpplapack-r198/.svn/pristine/8b/8b39767093abc92df6bb324f3fe322dfe7af998d.svn-base
+++ /dev/null
@@ -1,13 +0,0 @@
-//=============================================================================
-/*! double*dgrmatrix operator */
-inline dgrmatrix operator*(const double& d, const dgrmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  dgrmatrix newmat =mat;
-  
-  const size_t newmat_a_size =newmat.a.size();
-  for(size_t k=0; k<newmat_a_size; k++){
-    newmat.a[k] *= d;
-  }
-  
-  return newmat;
-}
diff --git a/cpplapack-r198/.svn/pristine/8b/8bbf087a959178c771da9e5ea9d3cf0ad2676d89.svn-base b/cpplapack-r198/.svn/pristine/8b/8bbf087a959178c771da9e5ea9d3cf0ad2676d89.svn-base
deleted file mode 100644
index b9ab2e6..0000000
--- a/cpplapack-r198/.svn/pristine/8b/8bbf087a959178c771da9e5ea9d3cf0ad2676d89.svn-base
+++ /dev/null
@@ -1,11 +0,0 @@
-//=============================================================================
-/*! cast to _zgematrix */
-inline _zgematrix dgematrix::to_zgematrix() const
-{CPPL_VERBOSE_REPORT;
-  zgematrix newmat(m,n);
-  for(CPPL_INT i=0; i<m*n; i++){
-    newmat.array[i] =comple(array[i],0.0);
-  }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/8c/8cbe7365a484635448ca20ac61f97f886a6899f4.svn-base b/cpplapack-r198/.svn/pristine/8c/8cbe7365a484635448ca20ac61f97f886a6899f4.svn-base
deleted file mode 100644
index 3ed3250..0000000
--- a/cpplapack-r198/.svn/pristine/8c/8cbe7365a484635448ca20ac61f97f886a6899f4.svn-base
+++ /dev/null
@@ -1,84 +0,0 @@
-//=============================================================================
-/*! calculate determinant */
-inline double det(const dsymat2& A)
-{CPPL_VERBOSE_REPORT;
-  return A(0,0)*A(1,1) -A(1,0)*A(1,0);
-}
-
-//=============================================================================
-/*! calculate inverse */
-inline dsymat2 inv(const dsymat2& A)
-{CPPL_VERBOSE_REPORT;
-  const double Adet( det(A) );
-  dsymat2 Ainv;
-  Ainv(0,0)= A(1,1)/Adet;
-  Ainv(1,0)=-A(1,0)/Adet;  Ainv(1,1)= A(0,0)/Adet;
-  return Ainv;
-}
-
-//=============================================================================
-/*! rotate 2D matrix by rotational angle */
-inline dsymat2 rotate(const dsymat2& m, const double& theta)
-{CPPL_VERBOSE_REPORT;
-  double c(std::cos(theta)), s(std::sin(theta));
-  double cc(c*c), cs(c*s), ss(s*s);
-  dsymat2 mat;
-  mat(0,0) =m(0,0)*cc -2.*m(1,0)*cs       +m(1,1)*ss;
-  mat(1,0) =m(1,0)*cc +(m(0,0)-m(1,1))*cs -m(1,0)*ss;
-  mat(1,1) =m(1,1)*cc +2.*m(1,0)*cs       +m(0,0)*ss;
-  return mat;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! calculate determinant */
-inline double det(const dsymat3& A)
-{CPPL_VERBOSE_REPORT;
-  return
-    +A(0,0)*A(1,1)*A(2,2) -A(0,0)*A(2,1)*A(2,1)
-    +A(1,0)*A(2,1)*A(2,0) -A(1,0)*A(1,0)*A(2,2)
-    +A(2,0)*A(1,0)*A(2,1) -A(2,0)*A(1,1)*A(2,0);
-}
-
-//=============================================================================
-/*! calculate inverse */
-inline dsymat3 inv(const dsymat3& A)
-{CPPL_VERBOSE_REPORT;
-  const double Adet( det(A) );
-  dsymat3 Ainv;
-  Ainv(0,0) =(A(1,1)*A(2,2)-A(2,1)*A(2,1))/Adet;
-  Ainv(1,0) =(A(2,1)*A(2,0)-A(1,0)*A(2,2))/Adet;
-  Ainv(1,1) =(A(0,0)*A(2,2)-A(2,0)*A(2,0))/Adet;
-  Ainv(2,0) =(A(1,0)*A(2,1)-A(1,1)*A(2,0))/Adet;
-  Ainv(2,1) =(A(1,0)*A(2,0)-A(0,0)*A(2,1))/Adet;
-  Ainv(2,2) =(A(0,0)*A(1,1)-A(1,0)*A(1,0))/Adet;
-  return Ainv;
-}
-
-//=============================================================================
-/*! rotate 3D matrix by quaternion */
-inline dsymat3 rotate(const dsymat3& m, const dquater& q)
-{CPPL_VERBOSE_REPORT;
-  dgemat3 R =q2m(q);
-  dgemat3 Rm =R*m;
-  
-  dsymat3 RmRT;//not dgemat3
-  RmRT.zero();
-  for(CPPL_INT i=0; i<3; i++){
-    for(CPPL_INT j=0; j<=i; j++){
-      for(CPPL_INT k=0; k<3; k++){
-        RmRT(i,j) +=Rm(i,k)*R(j,k);
-      }
-    }
-  }
-  return RmRT;
-}
diff --git a/cpplapack-r198/.svn/pristine/8c/8cd5e148373a29beadf7596753aed7efb580189e.svn-base b/cpplapack-r198/.svn/pristine/8c/8cd5e148373a29beadf7596753aed7efb580189e.svn-base
deleted file mode 100644
index db0a60c..0000000
--- a/cpplapack-r198/.svn/pristine/8c/8cd5e148373a29beadf7596753aed7efb580189e.svn-base
+++ /dev/null
@@ -1,323 +0,0 @@
-//=============================================================================
-/*! operator() for const object */
-inline double dssmatrix::operator()(const CPPL_INT& i, const CPPL_INT& j) const
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || j<0 || n<=i || n<=j ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the matrix size." << std::endl
-              << "Your input is (" << i << "," << j << "), whereas the matrix size is " << n << "x" << n << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //// search (i,j) component ////
-  const CPPL_INT ii(std::max(i,j)), jj(std::min(i,j));
-  
-  const std::vector<CPPL_INT>::const_iterator line_ii_end =line[ii].end();
-  for(std::vector<CPPL_INT>::const_iterator p=line[ii].begin(); p!=line_ii_end; p++){
-    if(data[*p].i==ii && data[*p].j==jj){
-      return data[*p].v;
-    }
-  }
-  
-  //// (i,j) component was not found ////
-  return 0.0;
-}
-
-//=============================================================================
-/*! operator() for const object */
-inline double& dssmatrix::operator()(const CPPL_INT& i, const CPPL_INT& j)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || j<0 || n<=i || n<=j ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the matrix size." << std::endl
-              << "Your input is (" << i << "," << j << "), whereas the matrix size is " << n << "x" << n << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //////// search (i,j) component ////////
-  const CPPL_INT ii(std::max(i,j)), jj(std::min(i,j));
-  
-  const std::vector<CPPL_INT>::iterator line_ii_end =line[ii].end();
-  for(std::vector<CPPL_INT>::iterator p=line[ii].begin(); p!=line_ii_end; p++){
-    if(data[*p].i==ii && data[*p].j==jj){
-      return data[*p].v;
-    }
-  }
-  
-  //////// (i,j) component not found ////////
-  line[ii].push_back(CPPL_INT(data.size()));
-  if(i!=j){//off-diagonal
-    line[jj].push_back(CPPL_INT(data.size()));
-  }
-  data.push_back(dcomponent(ii,jj,0.));
-  return data.back().v;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! put value with volume cheack without isListed check */
-inline dssmatrix& dssmatrix::put(const CPPL_INT& i, const CPPL_INT& j, const double& v)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || j<0 || n<=i || n<=j ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the matrix size." << std::endl
-              << "Your input is (" << i << "," << j << "), whereas the matrix size is " << n << "x" << n << "." << std::endl;
-    exit(1);
-  }
-  
-  if( isListed(i,j) ){
-    ERROR_REPORT;
-    std::cerr << "The required component is already listed." << std::endl
-              << "Your input was (" << i << "," << j << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //// push ////
-  const CPPL_INT ii(std::max(i,j)), jj(std::min(i,j));
-  line[ii].push_back(CPPL_INT(data.size()));
-  if(i!=j){//off-diagonal
-    line[jj].push_back(CPPL_INT(data.size()));
-  }
-  data.push_back(dcomponent(ii,jj,v));
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! delete the entry of a component */
-inline dssmatrix& dssmatrix::del(const CPPL_INT i, const CPPL_INT j)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || j<0 || n<=i || n<=j ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the matrix size." << std::endl
-              << "Your input is (" << i << "," << j << "), whereas the matrix size is " << n << "x" << n << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  const CPPL_INT ii(std::max(i,j)), jj(std::min(i,j));
-  
-  //////// search (i,j) component ////////
-  const std::vector<CPPL_INT>::iterator line_ii_end =line[ii].end();
-  for(std::vector<CPPL_INT>::iterator p=line[ii].begin(); p!=line_ii_end; p++){
-    if(data[*p].i==ii && data[*p].j==jj){//exists
-      //// save position ////
-      CPPL_INT c =*p;
-      CPPL_INT C =CPPL_INT(data.size()-1);
-      
-      //// data translation ////
-      data[c]=data.back();
-      data.pop_back();
-      
-      //// remove from List ////
-      line[ii].erase(p);
-      if(i!=j){//off-diagonal
-        const std::vector<CPPL_INT>::iterator line_jj_end =line[jj].end();
-        for(std::vector<CPPL_INT>::iterator pj=line[jj].begin(); pj!=line_jj_end; pj++){
-          if(*pj==c){ line[jj].erase(pj); break; }
-        }
-      }
-      
-      //// modify the entry of translated component ////
-      CPPL_INT I(data[c].i), J(data[c].j);
-      const std::vector<CPPL_INT>::iterator line_I_end =line[I].end();
-      for(std::vector<CPPL_INT>::iterator q=line[I].begin(); q!=line_I_end; q++){
-        if(*q==C){ *q=c; break; }
-      }
-      if(I!=J){//off-diagonal
-        const std::vector<CPPL_INT>::iterator line_J_end =line[J].end();
-        for(std::vector<CPPL_INT>::iterator q=line[J].begin(); q!=line_J_end; q++){
-          if(*q==C){ *q=c; break; }
-        }
-      }
-      return *this;
-    }
-  }
-  
-#ifdef  CPPL_DEBUG
-  std::cerr << "# [NOTE]@dssmatrix::del(CPPL_INT&, CPPL_INT&): The required component was not listed. Your input was (" << i << "," << j << ")." << std::endl;
-#endif//CPPL_DEBUG
-  
-  return *this;
-}
-
-//=============================================================================
-/*! delete the entry of an element */
-inline dssmatrix& dssmatrix::del(const CPPL_INT c)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( c<0 || c>=CPPL_INT(data.size()) ){
-    ERROR_REPORT;
-    std::cerr << "The required element is out of the matrix volume." << std::endl
-              << "Your input was (" << c << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  if( c==CPPL_INT(data.size()-1) ){//if c is the last element
-    CPPL_INT i(data[c].i), j(data[c].j);
-    const std::vector<CPPL_INT>::iterator line_i_end =line[i].end();
-    for(std::vector<CPPL_INT>::iterator q=line[i].begin(); q!=line_i_end; q++){
-      if(*q==c){ line[i].erase(q); break; }
-    }
-    if(i!=j){//off-diagonal
-      const std::vector<CPPL_INT>::iterator line_j_end =line[j].end();
-      for(std::vector<CPPL_INT>::iterator q=line[j].begin(); q!=line_j_end; q++){
-        if(*q==c){ line[j].erase(q); break; }
-      }
-    }
-    data.pop_back();
-  }
-  
-  else{//c is NOT the last element
-    //// data translation ////
-    CPPL_INT C =CPPL_INT(data.size()-1);
-    CPPL_INT i(data[c].i), j(data[c].j), I(data.back().i), J(data.back().j);
-    data[c]=data.back();
-    //std::cerr << "c=" << c   << " i=" << i << " j=" << j << " C=" << vol << " I=" << I << " J=" << J << std::endl;
-    
-    //// remove entry of component ////
-    const std::vector<CPPL_INT>::iterator line_i_end =line[i].end();
-    for(std::vector<CPPL_INT>::iterator q=line[i].begin(); q!=line_i_end; q++){
-      if(*q==c){ line[i].erase(q); break; }
-    }
-    if(i!=j){//off-diagonal
-      const std::vector<CPPL_INT>::iterator line_j_end =line[j].end();
-      for(std::vector<CPPL_INT>::iterator q=line[j].begin(); q!=line_j_end; q++){
-        if(*q==c){ line[j].erase(q); break; }
-      }
-    }
-    
-    //// modify the entry of translated component ////
-    const std::vector<CPPL_INT>::iterator line_I_end =line[I].end();
-    for(std::vector<CPPL_INT>::iterator q=line[I].begin(); q!=line_I_end; q++){
-      if(*q==C){ *q=c; break; }
-    }
-    if(I!=J){//off-diagonal
-      const std::vector<CPPL_INT>::iterator line_J_end =line[J].end();
-      for(std::vector<CPPL_INT>::iterator q=line[J].begin(); q!=line_J_end; q++){
-        if(*q==C){ *q=c; break; }
-      }
-    }
-    
-    //// pop_back ////
-    data.pop_back();
-  }
-  
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-inline std::ostream& operator<<(std::ostream& s, const dssmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<mat.n; i++){
-    for(CPPL_INT j=0; j<mat.n; j++){
-      if( i >= j ){
-        CPPL_INT c =mat.number(i,j);
-        if(c<0){
-          s << " x ";
-        }
-        else{
-          s << " " << mat.data[c].v << " ";
-        }
-      }
-      else{//i<j
-        CPPL_INT c =mat.number(i,j);
-        if(c<0){
-          s << "{x}";
-        }
-        else{
-          s << "{" << mat.data[c].v << "}";
-        }
-      }
-    }
-    s << std::endl;
-  }
-  
-  return s;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-inline void dssmatrix::write(const char* filename) const
-{CPPL_VERBOSE_REPORT;
-  std::ofstream ofs(filename, std::ios::trunc);
-  ofs.setf(std::cout.flags());
-  ofs.precision(std::cout.precision());
-  ofs.width(std::cout.width());
-  ofs.fill(std::cout.fill());
-  
-  ofs << "#dssmatrix " << n << " " << data.size() << std::endl;
-  
-  const std::vector<dcomponent>::const_iterator data_end =data.end();
-  for(std::vector<dcomponent>::const_iterator it=data.begin(); it!=data_end; it++){
-    ofs << it->i << " " << it->j << " " << it->v << std::endl;
-  }
-  
-  ofs.close();
-}
-
-//=============================================================================
-inline void dssmatrix::read(const char* filename)
-{CPPL_VERBOSE_REPORT;
-  std::ifstream s( filename );
-  if(!s){
-    ERROR_REPORT;
-    std::cerr << "The file \"" << filename << "\" can not be opened." << std::endl;
-    exit(1);
-  }
-  
-  //////// id ////////
-  std::string id;
-  s >> id;
-  if( id != "dssmatrix" && id != "#dssmatrix" ){
-    ERROR_REPORT;
-    std::cerr << "The type name of the file \"" << filename << "\" is not dssmatrix." << std::endl
-              << "Its type name was " << id << " ." << std::endl;
-    exit(1);
-  }
-  
-  //////// n ////////
-  size_t size;
-  s >> n >> size;
-  resize(n);
-  data.reserve(size);//NOT resize.
-  
-  //////// i, j, v ////////
-  CPPL_INT i, j;
-  double v;
-  for(size_t k=0; k<size; k++){
-    s >> i >> j >> v;
-    put(i,j, v);
-  }
-  
-  //////// check ////////
-  s >> i;
-  if(!s.eof()){
-    ERROR_REPORT;
-    std::cerr << "There is something is wrong with the file \"" << filename << " ." << std::endl
-              << "Most likely, there are too many data components over the context." << std::endl;
-    exit(1);
-  }
-  s.close();
-}
diff --git a/cpplapack-r198/.svn/pristine/8d/8d44ee5134fe9b09f680adc8e26195e3b90baaed.svn-base b/cpplapack-r198/.svn/pristine/8d/8d44ee5134fe9b09f680adc8e26195e3b90baaed.svn-base
deleted file mode 100644
index 7f0c7a5..0000000
--- a/cpplapack-r198/.svn/pristine/8d/8d44ee5134fe9b09f680adc8e26195e3b90baaed.svn-base
+++ /dev/null
@@ -1,123 +0,0 @@
-/*****************************************************************************/
-/*                                main.cpp                                   */
-/*****************************************************************************/
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include <vector>
-#include "cpplapack.h"
-
-//=============================================================================
-bool minres
-(
- const CPPL::dsymatrix& A,
- CPPL::dcovector& x,
- const double& eps
-)
-{
-  const CPPL::dcovector y(x);
-  CPPL::dcovector r(y);
-
-  double beta2(nrm2(r)), beta3;
-  double rho0(1.0), rho1(beta2), rho2;
-  double rhop(0.0);
-  double c0(0.0), c1(-1.0), c2;
-  double s0(0.0), s1(0.0), s2;
-  double f(beta2);
-
-  CPPL::dcovector p1(x.l), p2(r/beta2), p3;
-  CPPL::dcovector q0(x.l), q1(x.l), q2;
-  x.zero();
-  p1.zero();
-  q0.zero();
-  q1.zero();
-
-  int itc(0);
-  const int itmax(2*x.l);
-  while( (fabs(f)>eps || fabs(damax(y-A*x))>eps) && itc<itmax){
-    std::cout << itc << " " << fabs(damax(y-A*x)) << std::endl;
-    //std::cerr << "itc=" << itc << ", fabs(f)=" << fabs(f) << std::endl;
-    CPPL::dcovector Ap2(A*p2), z;
-    z =Ap2-beta2*p1;
-    double alpha;
-    alpha =Ap2%p2;
-    p3 =z-alpha*p2;
-    beta3 =nrm2(p3);
-    p3 /=beta3;
-
-    double d, h;
-    d =(alpha-rhop*c0)*s1;
-    h =beta2*s0;
-
-    rhop =-beta2*c0*s1 -alpha*c1;
-    rho2 =sqrt(pow(rhop,2)+pow(beta3,2));
-    c2 =rhop/rho2;
-    s2 =beta3/rho2;
-
-    CPPL::dcovector zp;
-    zp =p2 -(h/rho0)*q0;
-    q2 =zp -(d/rho1)*q1;
-    double t;
-    t =f*c2;
-    f *=s2;
-
-    x +=(t/rho2)*q2;
-    beta2=beta3;
-    rho0=rho1; rho1=rho2;
-    c0=c1; c1=c2;
-    s0=s1; s1=s2;
-    swap(p1,p2); swap(p2,p3);
-    swap(q0,q1); swap(q1,q2);
-
-    itc++;
-  }
-  std::cerr << "itc=" << itc << "  fabs(damax(y-A*x))=" << fabs(damax(y-A*x)) << std::endl;
-  //std::cerr << "itc=" << itc << "  fabs(f)=" << fabs(f) << std::endl;
-
-  if(itc<itmax){ return 0; }
-  else{ return 1; }
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-int main(int argc, char** argv)
-{
-  srand(time(NULL));
-  
-  const int size(100);
-  CPPL::dsymatrix A(size);
-  
-  for(int i=0; i<size; i++){
-    for(int j=0; j<=i; j++){
-      A(i,j) =(double(rand())/double(RAND_MAX))*2.0 -1.0;
-    }
-    A(i,i)+=10.;
-  }
-  A.write("A.dsymatrix");
-  
-  CPPL::dcovector x(size);
-  for(int i=0; i<size; i++){
-    x(i) =(double(rand())/double(RAND_MAX))*1. -0.5;
-  }
-  x.write("answer.dcovector");//solution
-  std::cerr << "answer=\n" << t(x) << std::endl;
-  
-  CPPL::dcovector y(size);
-  y=A*x;
-  y.write("y.dcovector");
-  
-  double eps(fabs(damax(y))*1e-6);
-  //std::cerr << "eps=" << eps << std::endl;
-  if( minres(A, y, eps) ){
-    std::cerr << "failed." << std::endl;
-    exit(1);
-  }
-  y.write("solution.dcovector");
-  std::cout << "solution=\n" << t(y) << std::endl;
-  
-  return 0;
-}
diff --git a/cpplapack-r198/.svn/pristine/8d/8d4c8d2f17a061010f65f2f4195626ac2df73b65.svn-base b/cpplapack-r198/.svn/pristine/8d/8d4c8d2f17a061010f65f2f4195626ac2df73b65.svn-base
deleted file mode 100644
index cb4ce30..0000000
--- a/cpplapack-r198/.svn/pristine/8d/8d4c8d2f17a061010f65f2f4195626ac2df73b65.svn-base
+++ /dev/null
@@ -1,25 +0,0 @@
-//=============================================================================
-/*! _zgbmatrix*zcovector operator */
-inline _zcovector operator*(const _zgbmatrix& mat, const zcovector& vec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(mat.n!=vec.l){
-    ERROR_REPORT;
-    std::cerr << "These matrix and vector can not make a product." << std::endl
-              << "Your input was (" << mat.m << "x" << mat.n << ") * (" << vec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zcovector newvec(mat.m);
-  char trans ='n';
-  comple alpha =comple(1.,0.);
-  CPPL_INT lda =mat.kl+mat.ku+1;
-  CPPL_INT inc =1;
-  comple beta =comple(0.,0.);
-  
-  zgbmv_( &trans, &mat.m, &mat.n, &mat.kl, &mat.ku, &alpha, mat.array, &lda, vec.array, &inc, &beta, newvec.array, &inc );
-  
-  mat.destroy();
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/8d/8d7f8e373ca802b619e8e839bd3081c6c37fbae2.svn-base b/cpplapack-r198/.svn/pristine/8d/8d7f8e373ca802b619e8e839bd3081c6c37fbae2.svn-base
deleted file mode 100644
index c06e355..0000000
--- a/cpplapack-r198/.svn/pristine/8d/8d7f8e373ca802b619e8e839bd3081c6c37fbae2.svn-base
+++ /dev/null
@@ -1,23 +0,0 @@
-//=============================================================================
-/*! _zgsmatrix*double operator */
-inline _zgsmatrix operator*(const _zgsmatrix& mat, const double& d)
-{CPPL_VERBOSE_REPORT;
-  const std::vector<zcomponent>::iterator mat_data_end =mat.data.end();
-  for(std::vector<zcomponent>::iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    it->v *=d;
-  }
-  
-  return mat;
-}
-
-//=============================================================================
-/*! _zgsmatrix/double operator */
-inline _zgsmatrix operator/(const _zgsmatrix& mat, const double& d)
-{CPPL_VERBOSE_REPORT;
-  const std::vector<zcomponent>::iterator mat_data_end =mat.data.end();
-  for(std::vector<zcomponent>::iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    it->v /=d;
-  }
-  
-  return mat;
-}
diff --git a/cpplapack-r198/.svn/pristine/8e/8e024e2d9167eb1033bdccf0e5ce3f4ca8e02ba4.svn-base b/cpplapack-r198/.svn/pristine/8e/8e024e2d9167eb1033bdccf0e5ce3f4ca8e02ba4.svn-base
deleted file mode 100644
index 0f59c5d..0000000
--- a/cpplapack-r198/.svn/pristine/8e/8e024e2d9167eb1033bdccf0e5ce3f4ca8e02ba4.svn-base
+++ /dev/null
@@ -1,45 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int M(4), N(3);
-  
-  CPPL::dgematrix A(M,N), B;
-  for(int i=0; i<A.m; i++){ for(int j=0; j<A.n; j++){
-	A(i,j) =double( rand() /(RAND_MAX/10) );
-  }}
-  
-  cout << "A =\n" << A << endl;
-  cout << "#### B.copy(A) ####" << endl;
-  B.copy(A);
-  cout << "B =\n" << B << endl;
-  
-  cout << "#### B.clear() ####" << endl;
-  B.clear();
-  cout << "B =\n" << B << endl;
-  
-  cout << "#### B.resize(2,2) & B.zero() ####" << endl;
-  B.resize(2,2);
-  B.zero();
-  cout << "B =\n" << B << endl;
-  
-  cout << "#### B.identity() ####" << endl;
-  B.identity();
-  cout << "B =\n" << B << endl;
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/8f/8f19ace7a1c9e04cf3e458fc13429b0366a5f957.svn-base b/cpplapack-r198/.svn/pristine/8f/8f19ace7a1c9e04cf3e458fc13429b0366a5f957.svn-base
deleted file mode 100644
index 84d568b..0000000
--- a/cpplapack-r198/.svn/pristine/8f/8f19ace7a1c9e04cf3e458fc13429b0366a5f957.svn-base
+++ /dev/null
@@ -1,71 +0,0 @@
-//=============================================================================
-/*! _zgematrix+zgsmatrix operator */
-inline _zgematrix operator+(const _zgematrix& matA, const zgsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  const size_t matB_data_size =matB.data.size();
-  for(size_t c=0; c<matB_data_size; c++){
-    const zcomponent& z =matB.data[c];
-    matA(z.i,z.j) += z.v;
-  }
-  
-  return matA;
-}
-
-//=============================================================================
-/*! _zgematrix-zgsmatrix operator */
-inline _zgematrix operator-(const _zgematrix& matA, const zgsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") - (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  const size_t matB_data_size =matB.data.size();
-  for(size_t c=0; c<matB_data_size; c++){
-    const zcomponent& z =matB.data[c];
-    matA(z.i,z.j) -= z.v;
-  }
-  
-  return matA;
-}
-
-//=============================================================================
-/*! _zgematrix*zgsmatrix operator */
-inline _zgematrix operator*(const _zgematrix& matA, const zgsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(matA.m, matB.n);
-  newmat.zero();
-  
-  const size_t matB_data_size =matB.data.size();
-  for(size_t c=0; c<matB_data_size; c++){
-    const zcomponent& z =matB.data[c];
-    for(CPPL_INT i=0; i<matA.m; i++){
-      newmat(i,z.j) += matA(i,z.i)*z.v;
-    }
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/8f/8f7b75d15f38357643af88b69e50bc7755fd5a62.svn-base b/cpplapack-r198/.svn/pristine/8f/8f7b75d15f38357643af88b69e50bc7755fd5a62.svn-base
deleted file mode 100644
index 70cd550..0000000
--- a/cpplapack-r198/.svn/pristine/8f/8f7b75d15f38357643af88b69e50bc7755fd5a62.svn-base
+++ /dev/null
@@ -1,16 +0,0 @@
-//=============================================================================
-/*! +zcovector operator */
-inline const zcovector& operator+(const zcovector& vec)
-{CPPL_VERBOSE_REPORT;
-  return vec;
-}
-
-//=============================================================================
-/*! -zcovector operator */
-inline _zcovector operator-(const zcovector& vec)
-{CPPL_VERBOSE_REPORT;
-  zcovector newvec(vec.l);
-  for(CPPL_INT i=0; i<newvec.l; i++){ newvec.array[i]=-vec.array[i]; }
-  
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/8f/8f7e9230857435f70d0d2fd00688e30bd1a12574.svn-base b/cpplapack-r198/.svn/pristine/8f/8f7e9230857435f70d0d2fd00688e30bd1a12574.svn-base
deleted file mode 100644
index 0501d59..0000000
--- a/cpplapack-r198/.svn/pristine/8f/8f7e9230857435f70d0d2fd00688e30bd1a12574.svn-base
+++ /dev/null
@@ -1,117 +0,0 @@
-//=============================================================================
-/*! zcovector=_zcovector operator */
-inline zcovector& zcovector::operator=(const _zcovector& vec)
-{CPPL_VERBOSE_REPORT;
-  shallow_copy(vec);
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zcovector+=_zcovector operator */
-inline zcovector& zcovector::operator+=(const _zcovector& vec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( l!=vec.l ){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make a sumation." << std::endl
-              << "Your input was (" << l << ") += (" << vec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<l; i++){
-    array[i] += vec.array[i];
-  }
-  
-  vec.destroy();
-  return *this;
-}
-
-//=============================================================================
-/*! zcovector operator-= */
-inline zcovector& zcovector::operator-=(const _zcovector& vec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( l!=vec.l ){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make a subtraction." << std::endl
-              << "Your input was (" << l << ") -= (" << vec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<l; i++){
-    array[i] -= vec.array[i];
-  }
-  
-  vec.destroy();
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zcovector+zcovector operator */
-inline _zcovector operator+(const zcovector& vecA, const _zcovector& vecB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vecA.l!=vecB.l){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make a sumation." << std::endl
-              << "Your input was (" << vecA.l << ") + (" << vecB.l << ")." << std::endl;
-    exit(1);
-  }  
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<vecA.l; i++){
-    vecB.array[i] += vecA.array[i];
-  }
-  
-  return vecB;
-}
-
-//=============================================================================
-/*! zcovector-zcovector operator */
-inline _zcovector operator-(const zcovector& vecA, const _zcovector& vecB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vecA.l!=vecB.l){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make a subtraction." << std::endl
-              << "Your input was (" << vecA.l << ") - (" << vecB.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<vecA.l; i++){
-    vecB.array[i] =vecA.array[i]-vecB.array[i];
-  }
-  
-  return vecB;
-}
-
-//=============================================================================
-/*! zcovector^T*zcovector operator (inner product) */
-inline comple operator%(const zcovector& vecA, const _zcovector& vecB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vecA.l!=vecB.l){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make a dot product." << std::endl
-              << "Your input was (" << vecA.l << ") % (" << vecB.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  CPPL_INT inc =1;
-  comple val =zdotu_( &vecA.l, vecA.array, &inc, vecB.array, &inc );
-  
-  vecB.destroy();
-  return val;
-}
diff --git a/cpplapack-r198/.svn/pristine/8f/8f8cc5cb77e7fb8b1327bb0e59d97e44e0a05698.svn-base b/cpplapack-r198/.svn/pristine/8f/8f8cc5cb77e7fb8b1327bb0e59d97e44e0a05698.svn-base
deleted file mode 100644
index 5432bd5..0000000
--- a/cpplapack-r198/.svn/pristine/8f/8f8cc5cb77e7fb8b1327bb0e59d97e44e0a05698.svn-base
+++ /dev/null
@@ -1,11 +0,0 @@
-Package: cpplapack
-Version: 2015.05.11-1
-Section: devel
-Priority: optional
-Architecture: all
-Essential: no
-Homepage: http://cpplapack.sourceforge.net/
-Maintainer: Yuki ONISHI <yuki.onishi@gmail.com>
-Description: CPPLapack library header files
- CPPLapack is a C++ matrix library designed as a class wrapper for BLAS, LAPACK and PARDISO.
- Visit http://cpplapack.sourceforge.net/ to obtain the documentation, update information, and the latest version in the subversion (svn) repository.
diff --git a/cpplapack-r198/.svn/pristine/8f/8fdcd8f3f57aea58b0161399d8b08ddaf36f892d.svn-base b/cpplapack-r198/.svn/pristine/8f/8fdcd8f3f57aea58b0161399d8b08ddaf36f892d.svn-base
deleted file mode 100644
index 8c32cf2..0000000
--- a/cpplapack-r198/.svn/pristine/8f/8fdcd8f3f57aea58b0161399d8b08ddaf36f892d.svn-base
+++ /dev/null
@@ -1,20 +0,0 @@
-//=============================================================================
-/*! +dgrmatrix operator */
-inline const dgrmatrix& operator+(const dgrmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  return mat;
-}
-
-//=============================================================================
-/*! -dgrmatrix operator */
-inline dgrmatrix operator-(const dgrmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  dgrmatrix newmat =mat;
-  
-  const std::vector<double>::iterator newmat_a_end =newmat.a.end();
-  for(std::vector<double>::iterator it=newmat.a.begin(); it!=newmat_a_end; it++){
-    (*it) =-(*it);
-  }
-  
-  return newmat;
-}
diff --git a/cpplapack-r198/.svn/pristine/90/902c79a5d0641cf46d7a2a3fcb8c40e3b0714c3a.svn-base b/cpplapack-r198/.svn/pristine/90/902c79a5d0641cf46d7a2a3fcb8c40e3b0714c3a.svn-base
deleted file mode 100644
index 61de753..0000000
--- a/cpplapack-r198/.svn/pristine/90/902c79a5d0641cf46d7a2a3fcb8c40e3b0714c3a.svn-base
+++ /dev/null
@@ -1,68 +0,0 @@
-//=============================================================================
-/*! _dgematrix+dsymatrix operator */
-inline _dgematrix operator+(const _dgematrix& matA, const dsymatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<matB.n; i++){
-    for(CPPL_INT j=0; j<matB.n; j++){
-      matA(i,j)+=matB(i,j);
-    }
-  }
-  
-  return matA;
-}
-
-//=============================================================================
-/*! _dgematrix-dsymatrix operator */
-inline _dgematrix operator-(const _dgematrix& matA, const dsymatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<matB.n; i++){
-    for(CPPL_INT j=0; j<matB.n; j++){
-      matA(i,j)-=matB(i,j);
-    }
-  }
-  
-  return matA;
-}
-
-//=============================================================================
-/*! _dgematrix*dsymatrix operator */
-inline _dgematrix operator*(const _dgematrix& matA, const dsymatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat( matA.m, matB.n );
-  char side ='R';
-  char uplo ='l';
-  double alpha =1.;
-  double beta =0.;
-  
-  dsymm_( &side, &uplo, &newmat.m, &newmat.n, &alpha, matB.array, &matB.n, matA.array, &matA.m, &beta, newmat.array, &newmat.m );
-  
-  matA.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/90/907409f44892a682a9365c75d3aa318ddc59778a.svn-base b/cpplapack-r198/.svn/pristine/90/907409f44892a682a9365c75d3aa318ddc59778a.svn-base
deleted file mode 100644
index 2277e06..0000000
--- a/cpplapack-r198/.svn/pristine/90/907409f44892a682a9365c75d3aa318ddc59778a.svn-base
+++ /dev/null
@@ -1,23 +0,0 @@
-//=============================================================================
-/*! drovector*dsymatrix operator */
-inline _drovector operator*(const drovector& vec, const dsymatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vec.l!=mat.n){
-    ERROR_REPORT;
-    std::cerr << "These vector and matrix can not make a product." << std::endl
-              << "Your input was (" << vec.l << ") * (" << mat.n << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  drovector newvec(mat.n);
-  char uplo ='l';
-  double alpha =1.;
-  CPPL_INT inc =1;
-  double beta =0.;
-  
-  dsymv_( &uplo, &mat.n, &alpha, mat.array, &mat.n, vec.array, &inc, &beta, newvec.array, &inc );
-  
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/90/90d1da47f45bf2a701ef4fbf015faec6b0576785.svn-base b/cpplapack-r198/.svn/pristine/90/90d1da47f45bf2a701ef4fbf015faec6b0576785.svn-base
deleted file mode 100644
index 4dcc709..0000000
--- a/cpplapack-r198/.svn/pristine/90/90d1da47f45bf2a701ef4fbf015faec6b0576785.svn-base
+++ /dev/null
@@ -1,25 +0,0 @@
-//=============================================================================
-/*! _dsymatrix*double operator */
-inline _dsymatrix operator*(const _dsymatrix& mat, const double& d)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT j=0; j<mat.n; j++){
-    for(CPPL_INT i=j; i<mat.n; i++){
-      mat.darray[j][i] *=d;
-    }
-  }
-  
-  return mat;
-}
-
-//=============================================================================
-/*! dsymatrix/double operator */
-inline _dsymatrix operator/(const _dsymatrix& mat, const double& d)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT j=0; j<mat.n; j++){
-    for(CPPL_INT i=j; i<mat.n; i++){
-      mat.darray[j][i] /=d;
-    }
-  }
-  
-  return mat;
-}
diff --git a/cpplapack-r198/.svn/pristine/91/9162cba0275b35a4fd711d7dc9b3553886a11c9d.svn-base b/cpplapack-r198/.svn/pristine/91/9162cba0275b35a4fd711d7dc9b3553886a11c9d.svn-base
deleted file mode 100644
index e52709a..0000000
--- a/cpplapack-r198/.svn/pristine/91/9162cba0275b35a4fd711d7dc9b3553886a11c9d.svn-base
+++ /dev/null
@@ -1,77 +0,0 @@
-//=============================================================================
-/*! _zhsmatrix+_zgematrix operator */
-/*
-inline _zgematrix operator+(const _zhsmatrix& matA, const _zgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT c=0; c<matA.vol; c++){
-    matB(matA.indx[c],matA.jndx[c]) += matA.array[c];
-  }
-  
-  matA.destroy();
-  return matB;
-}
-*/
-//=============================================================================
-/*! _zhsmatrix-_zgematrix operator */
-/*
-inline _zgematrix operator-(const _zhsmatrix& matA, const _zgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") - (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //// change sign ////
-  for(int i=0; i<matB.m*matB.n; i++){
-    matB.array[i] = -matB.array[i];
-  }
-  
-  for(CPPL_INT c=0; c<matA.vol; c++){
-    matB(matA.indx[c],matA.jndx[c]) += matA.array[c];
-  }
-  
-  matA.destroy();
-  return matB;
-}
-*/
-//=============================================================================
-/*! _zhsmatrix*_zgematrix operator */
-/*
-inline _zgematrix operator*(const _zhsmatrix& matA, const _zgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(matA.m, matB.n);
-  newmat.zero();
-  
-  for(CPPL_INT c=0; c<matA.vol; c++){
-    for(CPPL_INT j=0; j<matB.n; j++){
-      newmat(matA.indx[c],j) += matA.array[c]*matB(matA.jndx[c],j);
-    }
-  }
-  
-  matA.destroy();
-  matB.destroy();
-  return _(newmat);
-}
-*/
diff --git a/cpplapack-r198/.svn/pristine/91/91c6d4f88ee9d62df02f188f4bbc9aed156a756a.svn-base b/cpplapack-r198/.svn/pristine/91/91c6d4f88ee9d62df02f188f4bbc9aed156a756a.svn-base
deleted file mode 100644
index 92e5d72..0000000
--- a/cpplapack-r198/.svn/pristine/91/91c6d4f88ee9d62df02f188f4bbc9aed156a756a.svn-base
+++ /dev/null
@@ -1,20 +0,0 @@
-//=============================================================================
-/*! _zgematrix*comple operator */
-inline _zgematrix operator*(const _zgematrix& mat, const comple& d)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT size =mat.m*mat.n;
-  CPPL_INT inc =1;
-  zscal_(&size, &d, mat.array, &inc);
-  return mat;
-}
-
-//=============================================================================
-/*! _zgematrix/comple operator */
-inline _zgematrix operator/(const _zgematrix& mat, const comple& d)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT size =mat.m*mat.n;
-  comple dinv =1./d;
-  CPPL_INT inc =1;
-  zscal_(&size, &dinv, mat.array, &inc);
-  return mat;
-}
diff --git a/cpplapack-r198/.svn/pristine/92/9232e77a9b9c8d0f59b206cdea24b10d199a897a.svn-base b/cpplapack-r198/.svn/pristine/92/9232e77a9b9c8d0f59b206cdea24b10d199a897a.svn-base
deleted file mode 100644
index 11e9ddb..0000000
--- a/cpplapack-r198/.svn/pristine/92/9232e77a9b9c8d0f59b206cdea24b10d199a897a.svn-base
+++ /dev/null
@@ -1,25 +0,0 @@
-//=============================================================================
-/*! _drovector*_dgematrix operator */
-inline _drovector operator*(const _drovector& vec, const _dgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vec.l!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These vector and matrix can not make a product." << std::endl
-              << "Your input was (" << vec.l << ") * (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  drovector newvec(mat.n);
-  char trans ='T';
-  double alpha =1.;
-  CPPL_INT inc =1;
-  double beta =0.;
-  
-  dgemv_( &trans, &mat.m, &mat.n, &alpha, mat.array, &mat.m, vec.array, &inc, &beta, newvec.array, &inc );
-  
-  vec.destroy();
-  mat.destroy();
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/92/92580771ded8568eec71f9c17617c8c26b535543.svn-base b/cpplapack-r198/.svn/pristine/92/92580771ded8568eec71f9c17617c8c26b535543.svn-base
deleted file mode 100644
index d42f5e0..0000000
--- a/cpplapack-r198/.svn/pristine/92/92580771ded8568eec71f9c17617c8c26b535543.svn-base
+++ /dev/null
@@ -1,36 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int M(4);
-  
-  CPPL::dcovector x(M);
-  CPPL::drovector y(M);
-  
-  for(int i=0; i<x.l; i++){
-	x(i) =double( rand() /(RAND_MAX/10) );
-  }
-  for(int i=0; i<y.l; i++){
-	y(i) =double( rand() /(RAND_MAX/10) );
-  }
-  
-  cout << "x =\n" << x << endl;
-  cout << "y =\n" << y << endl;
-  cout << "x*y =\n" << x*y << endl;
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/92/9291ac7f2e652d84ba17af8b3b38ac4b2e0e1f70.svn-base b/cpplapack-r198/.svn/pristine/92/9291ac7f2e652d84ba17af8b3b38ac4b2e0e1f70.svn-base
deleted file mode 100644
index d8651ca..0000000
--- a/cpplapack-r198/.svn/pristine/92/9291ac7f2e652d84ba17af8b3b38ac4b2e0e1f70.svn-base
+++ /dev/null
@@ -1,50 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int M(2);
-  
-  CPPL::zcovector x(M), y(M), z;
-  for(int i=0; i<x.l; i++){
-    x(i) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-  }
-  for(int i=0; i<y.l; i++){
-    y(i) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-  }
-  
-  cout << "x =\n" << x << endl;
-  cout << "y =\n" << y << endl;
-  
-  cout << "x+x =\n" << x+x << endl;
-  cout << "x-x =\n" << x-x << endl;
-  cout << "x%y =\n" << x%y << endl;
-  
-  cout << "#### z=x; ####" << endl;
-  z=x;
-  cout << "z =\n" << z << endl;
-  cout << "#### z=x+x-x; ####" << endl;
-  z=x+x-x;
-  cout << "z =\n" << z << endl;
-  cout << "#### z+=x; ####" << endl;
-  z+=x;
-  cout << "z =\n" << z << endl;
-  cout << "#### z-=x; ####" << endl;
-  z-=x;
-  cout << "z =\n" << z << endl;
-
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/93/9380e280c295bf923fab3a95b1ece20bf34cabd7.svn-base b/cpplapack-r198/.svn/pristine/93/9380e280c295bf923fab3a95b1ece20bf34cabd7.svn-base
deleted file mode 100644
index 47059c1..0000000
--- a/cpplapack-r198/.svn/pristine/93/9380e280c295bf923fab3a95b1ece20bf34cabd7.svn-base
+++ /dev/null
@@ -1,38 +0,0 @@
-//=============================================================================
-/*! zgesvd_check */
-void zgesvd_check()
-{
-  cout << "############ check zgesvd ############" << endl;
-  
-  srand(unsigned(time(NULL)));
-  int M(4), N(3);
-  
-  //// make zgematrix A  ////
-  CPPL::zgematrix A(M,N);
-  for(int i=0; i<A.m; i++){ for(int j=0; j<A.n; j++){
-    A(i,j) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-  }}
-  
-  //// make A_original ////
-  CPPL::zgematrix A_original(A);
-  
-  //// make S, U and VT ////
-  CPPL::dcovector S;
-  CPPL::zgematrix U, VT;
-  
-  //// SVD A ////
-  A.zgesvd(S,U,VT);
-  
-  //// print A, S, U, and VT ////
-  cout << "A=\n" << A << endl;
-  cout << "S=\n" << S << endl;
-  cout << "U=\n" << U << endl;
-  cout << "VT=\n" << VT << endl;
-  
-  CPPL::zgematrix S_matrix(M,N);
-  S_matrix.zero();
-  for(int i=0; i<std::min(M,N); i++){ S_matrix(i,i) =S(i); }
-  cout << "S_matrix=\n" << S_matrix << endl;
-  cout << "A_original=\n" << A_original << endl;
-  cout << "U*S_matrix*VT=\n" << U*S_matrix*VT << endl;
-}
diff --git a/cpplapack-r198/.svn/pristine/93/93d0bfee0fb27c377991b1cc3add43d38e8a570f.svn-base b/cpplapack-r198/.svn/pristine/93/93d0bfee0fb27c377991b1cc3add43d38e8a570f.svn-base
deleted file mode 100644
index 4959cbe..0000000
--- a/cpplapack-r198/.svn/pristine/93/93d0bfee0fb27c377991b1cc3add43d38e8a570f.svn-base
+++ /dev/null
@@ -1,210 +0,0 @@
-extern "C" {
-  // Solve Linear Equations  A * x = b
-  /* for General Matrix */
-  void zgesv_( const CPPL_INT *N, const CPPL_INT *nrhs, std::complex<double> *a,
-               const CPPL_INT *lda, CPPL_INT *ipiv, std::complex<double> *b,
-               const CPPL_INT *ldb, CPPL_INT *info );
-  /* for General Band Matrix */
-  void zgbsv_( const CPPL_INT *N, const CPPL_INT *KL, const CPPL_INT *KU,
-               const CPPL_INT *nrhs, std::complex<double> *ab, const CPPL_INT *ldab,
-               CPPL_INT *ipiv, std::complex<double> *b, const CPPL_INT *ldb,
-               CPPL_INT *info );
-  /* for Tridiagonal Matrix */
-  void zgtsv_( const CPPL_INT *N, const CPPL_INT *nrhs, std::complex<double> *dl,
-               std::complex<double> *d, std::complex<double> *du,
-               std::complex<double> *b, const CPPL_INT *ldb, CPPL_INT *info );
-  /* for Hermitian Positive Definite Matrix */
-  void zposv_( const char *uplo, const CPPL_INT *N, const CPPL_INT *nrhs,
-               std::complex<double> *a, const CPPL_INT *lda, std::complex<double> *b,
-               const CPPL_INT *ldb, CPPL_INT *info );
-  /* for Hermitian Positive Definite (Packed Storage) Matrix */
-  void zppsv_( const char *uplo, const CPPL_INT *N, const CPPL_INT *nrhs,
-               std::complex<double> *ap, std::complex<double> *b, const CPPL_INT *ldb,
-               CPPL_INT *info );
-  /* for Hermitian Positive Definite Band Matrix */
-  void zpbsv_( const char *uplo, const CPPL_INT *N, const CPPL_INT *kd,
-               const CPPL_INT *nrhs, std::complex<double> *ab, const CPPL_INT *ldab,
-               std::complex<double> *b, const CPPL_INT *ldb, CPPL_INT *info );
-  /* for Hermitian Positive Definite Tridiagonal Matrix */
-  void zptsv_( const CPPL_INT *N, const CPPL_INT *nrhs, double *d,
-               std::complex<double> *e, std::complex<double> *b, const CPPL_INT *ldb,
-               CPPL_INT *info );
-  /* for Hermitian Indefinite Matrix */
-  void zhesv_( const char *uplo, const CPPL_INT *N, const CPPL_INT *nrhs,
-               std::complex<double> *a, const CPPL_INT *lda, CPPL_INT *ipiv,
-               std::complex<double> *b, const CPPL_INT *ldb, std::complex<double> *work,
-               const CPPL_INT *lwork, CPPL_INT *info );
-  /* for Symmetric Indefinite Matrix */
-  void zsysv_( const char *uplo, const CPPL_INT *N, const CPPL_INT *nrhs,
-               std::complex<double> *a, const CPPL_INT *lda, CPPL_INT *ipiv,
-               std::complex<double> *b, const CPPL_INT *ldb, std::complex<double> *work,
-               const CPPL_INT *lwork, CPPL_INT *info );
-  /* for Hermitian Indefinite (Packed Storage) Matrix */
-  void zhpsv_( const char *uplo, const CPPL_INT *N, const CPPL_INT *nrhs,
-               std::complex<double> *ap, CPPL_INT *ipiv, std::complex<double> *b,
-               const CPPL_INT *ldb, CPPL_INT *info );
-  /* for Symmetric Indefinite (Packed Storage) Matrix */
-  void zspsv_( const char *uplo, const CPPL_INT *N, const CPPL_INT *nrhs,
-               std::complex<double> *ap, CPPL_INT *ipiv, std::complex<double> *b,
-               const CPPL_INT *ldb, CPPL_INT *info );
-
-  // Linear Least Square Problems
-  // Solve Overdetermined or Underdetermined Linear Equations
-  /* Using Orthogonal Factorization, Assuming Full Rank */
-  void zgels_( const char *trans, const CPPL_INT *M, const CPPL_INT *N,
-               const CPPL_INT *nrhs, std::complex<double> *a, const CPPL_INT *lda,
-               std::complex<double> *b, const CPPL_INT *ldb,
-               std::complex<double> *work, const CPPL_INT *lwork, CPPL_INT *info );
-  /* Compute Minimum-Norm Solution using Orthogonal Factorization */
-  void zgelsy_( const CPPL_INT *M, const CPPL_INT *N, const CPPL_INT *nrhs,
-                std::complex<double> *a, const CPPL_INT *lda, std::complex<double> *b,
-                const CPPL_INT *ldb, CPPL_INT *jpvt, const double *rcond,
-                CPPL_INT *rank, std::complex<double> *work, const CPPL_INT *lwork,
-                double *rwork, CPPL_INT *info );
-  /* Compulte Minimum-Norm Solution using Singular Value Decomposition */
-  void zgelss_( const CPPL_INT *M, const CPPL_INT *N, const CPPL_INT *nrhs,
-                std::complex<double> *a, const CPPL_INT *lda, std::complex<double> *b,
-                const CPPL_INT *ldb, double *s, const double *rcond,
-                CPPL_INT *rank, std::complex<double> *work, const CPPL_INT *lwork,
-                double *rwork, CPPL_INT *info );
-  /* Solve Linear Equality-Constrained Least Squares (LSE) Problem */
-  void zgglse_( const CPPL_INT *M, const CPPL_INT *N, const CPPL_INT *p,
-                std::complex<double> *a, const CPPL_INT *lda, std::complex<double> *b,
-                const CPPL_INT *ldb, std::complex<double> *c, std::complex<double> *d,
-                std::complex<double> *x, std::complex<double> *work,
-                const CPPL_INT *lwork, CPPL_INT *info );
-  /* Solve Gauss-Markov Linear Model (GLM) Problem */
-  void zggglm_( const CPPL_INT *N, const CPPL_INT *M, const CPPL_INT *p,
-                std::complex<double> *a, const CPPL_INT *lda, std::complex<double> *b,
-                const CPPL_INT *ldb, std::complex<double> *d, std::complex<double> *x,
-                std::complex<double> *y, std::complex<double> *work,
-                const CPPL_INT *lwork, CPPL_INT *info );
-
-  // Standard Eigenvalue and Singular Value Problems
-  // Divide and Conquer routines are more fast, but need more memory.
-  /* Eigenvalues/Eigenvectors for General Matrix */
-  void zgeev_( const char *jobvl, const char *jobvr, const CPPL_INT *N,
-               std::complex<double> *a, const CPPL_INT *lda, std::complex<double> *w,
-               std::complex<double> *vl, const CPPL_INT *ldvl, std::complex<double> *vr,
-               const CPPL_INT *ldvr, std::complex<double> *work, const CPPL_INT *lwork,
-               double *rwork, CPPL_INT *info );
-  /* Eigenvalues/Eigenvectors for Hermitian Matrix */
-  void zheev_( const char *jobz, const char *uplo, const CPPL_INT *N,
-               std::complex<double> *a, const CPPL_INT *lda, double *w,
-               std::complex<double> *work, const CPPL_INT *lwork, double *rwork,
-               CPPL_INT *info );
-  void zheevd_( const char *jobz, const char *uplo, const CPPL_INT *N,
-                std::complex<double> *a, const CPPL_INT *lda, double *w,
-                std::complex<double> *work, const CPPL_INT *lwork, double *rwork,
-                const CPPL_INT *lrwork, CPPL_INT *iwork, const CPPL_INT *liwork,
-                CPPL_INT *info );  /* Divide and Conqure */
-  /* Eigenvalues/Eigenvectors for Hermitian (Packed Storage) Matrix */
-  void zhpev_( const char *jobz, const char *uplo, const CPPL_INT *N,
-               std::complex<double> *ap, double *w, std::complex<double> *z,
-               const CPPL_INT *ldz, std::complex<double> *work, double *rwork,
-               CPPL_INT *info );
-  void zhpevd_( const char *jobz, const char *uplo, const CPPL_INT *N,
-                std::complex<double> *ap, double *w, std::complex<double> *z,
-                const CPPL_INT *ldz, std::complex<double> *work, const CPPL_INT *lwork,
-                double *rwork, const CPPL_INT *lrwork, CPPL_INT *iwork,
-                const CPPL_INT *liwork, CPPL_INT *info );  /* Divide and Conqure */
-  /* Eigenvalues/Eigenvectors for Hermitian Band Matrix */
-  void zhbev_( const char *jobz, const char *uplo, const CPPL_INT *N,
-               const CPPL_INT *kd, std::complex<double> *ab, const CPPL_INT *ldab,
-               double *w, std::complex<double> *z, const CPPL_INT *ldz,
-               std::complex<double> *work, double *rwork, CPPL_INT *info );
-  void zhbevd_( const char *jobz, const char *uplo, const CPPL_INT *N,
-                const CPPL_INT *kd, std::complex<double> *ab, const CPPL_INT *ldab,
-                double *w, std::complex<double> *z, const CPPL_INT *ldz,
-                std::complex<double> *work, const CPPL_INT *lwork, double *rwork,
-                const CPPL_INT *lrwork, CPPL_INT *iwork, const CPPL_INT *liwork,
-                CPPL_INT *info );  /* Divide and Conqure */
-  /* Schur Factorization for General Matrix */
-  void zgees_( const char *jobvs, const char *sort,
-               bool (*select)( std::complex<double> *, std::complex<double> * ),
-               const CPPL_INT *N, std::complex<double> *a, const CPPL_INT *lda,
-               CPPL_INT *sdim, std::complex<double> *w, std::complex<double> *vs,
-               const CPPL_INT *ldvs, std::complex<double> *work, const CPPL_INT *lwork,
-               double *rwork, bool *bwork, CPPL_INT *info );
-  /* Singular Value Decomposition for General Matrix */
-  void zgesvd_( const char *jobu, const char *jobvt, const CPPL_INT *M,
-                const CPPL_INT *N, std::complex<double> *a, const CPPL_INT *lda,
-                double *s, std::complex<double> *u, const CPPL_INT *ldu,
-                std::complex<double> *vt, const CPPL_INT *ldvt,
-                std::complex<double> *work, const CPPL_INT *lwork, double *rwork,
-                CPPL_INT *info );
-  void zgesdd_( const char *jobz, const CPPL_INT *M, const CPPL_INT *N,
-                std::complex<double> *a, const CPPL_INT *lda, double *s,
-                std::complex<double> *u, const CPPL_INT *ldu, std::complex<double> *vt,
-                const CPPL_INT *ldvt, std::complex<double> *work, const CPPL_INT *lwork,
-                double *rwork, CPPL_INT *iwork,
-                CPPL_INT *info );  /* Divide and Conqure */
-
-  // Generalized Eigenvalue and Sigular Value Problems
-  /* Generalized Eigenvalues/Eigenvectors for General Matrix */
-  void zggev_( const char *jobvl, const char *jobvr, const CPPL_INT *N,
-               std::complex<double> *a, const CPPL_INT *lda, std::complex<double> *b,
-               const CPPL_INT *ldb, std::complex<double> *alpha,
-               std::complex<double> *beta, std::complex<double> *vl,
-               const CPPL_INT *ldvl, std::complex<double> *vr, const CPPL_INT *ldvr,
-               std::complex<double> *work, const CPPL_INT *lwork, double *rwork,
-               CPPL_INT *info );
-  /* Generalized Eigenvalues/Eigenvectors
-     for Hermitian-definite Matrix */
-  void zhegv_( const CPPL_INT *itype, const char *jobz, const char *uplo,
-               const CPPL_INT *N, std::complex<double> *a, const CPPL_INT *lda,
-               std::complex<double> *b, const CPPL_INT *ldb, double *w,
-               std::complex<double> *work, const CPPL_INT *lwork, double *rwork,
-               CPPL_INT *info );
-  void zhegvd_( const CPPL_INT *itype, const char *jobz, const char *uplo,
-                const CPPL_INT *N, std::complex<double> *a, const CPPL_INT *lda,
-                std::complex<double> *b, const CPPL_INT *ldb, double *w,
-                std::complex<double> *work, const CPPL_INT *lwork, double *rwork,
-                const CPPL_INT *lrwork, CPPL_INT *iwork, const CPPL_INT *liwork,
-                CPPL_INT *info );  /* Divide and Conqure */
-  /* Generalized Eigenvalues/Eigenvectors
-     for Hermitian-definite (Packed Storage) Matrix */
-  void zhpgv_( const CPPL_INT *itype, const char *jobz, const char *uplo,
-               const CPPL_INT *N, std::complex<double> *ap, std::complex<double> *bp,
-               double *w, std::complex<double> *z, const CPPL_INT *ldz,
-               std::complex<double> *work, double *rwork, CPPL_INT *info );
-  void zhpgvd_( const CPPL_INT *itype, const char *jobz, const char *uplo,
-                const CPPL_INT *N, std::complex<double> *ap, std::complex<double> *bp,
-                double *w, std::complex<double> *z, const CPPL_INT *ldz,
-                std::complex<double> *work, const CPPL_INT *lwork, double *rwork,
-                const CPPL_INT *lrwork, CPPL_INT *iwork, const CPPL_INT *liwork,
-                CPPL_INT *info );  /* Divide and Conqure */
-  /* Generalized Eigenvalues/Eigenvectors
-     for Hermitian-definite Band Matrix */
-  void zhbgv_( const char *jobz, const char *uplo, const CPPL_INT *N,
-               const CPPL_INT *ka, const CPPL_INT *kb, std::complex<double> *ab,
-               const CPPL_INT *ldab, std::complex<double> *bb, const CPPL_INT *ldbb,
-               double *w, std::complex<double> *z, const CPPL_INT *ldz,
-               std::complex<double> *work, double *rwork, CPPL_INT *info );
-  void zhbgvd_( const char *jobz, const char *uplo, const CPPL_INT *N,
-                const CPPL_INT *ka, const CPPL_INT *kb, std::complex<double> *ab,
-                const CPPL_INT *ldab, std::complex<double> *bb, const CPPL_INT *ldbb,
-                double *w, std::complex<double> *z, const CPPL_INT *ldz,
-                std::complex<double> *work, const CPPL_INT *lwork, double *rwork,
-                const CPPL_INT *lrwork, CPPL_INT *iwork, const CPPL_INT *liwork,
-                CPPL_INT *info );  /* Divide and Conqure */
-  /* Generalized Schur Factrization for General Matrix */
-  void zgges_( const char *jobvsl, const char *jobvsr, const char *sort,
-               bool (*delctg)( std::complex<double> *, std::complex<double> * ),
-               const CPPL_INT *N, std::complex<double> *a, const CPPL_INT *lda,
-               std::complex<double> *b, const CPPL_INT *ldb, CPPL_INT *sdim,
-               std::complex<double> *alpha, std::complex<double> *beta,
-               std::complex<double> *vsl, const CPPL_INT *ldvsl,
-               std::complex<double> *vsr, const CPPL_INT *ldvsr,
-               std::complex<double> *work, const CPPL_INT *lwork, double *rwork,
-               bool *bwork, CPPL_INT *info );
-  /* Generailized Singular Value Decomposition for General Matrix */
-  void zggsvd_( const char *jobu, const char *jobv, const char *jobq,
-                const CPPL_INT *M, const CPPL_INT *N, const CPPL_INT *p, CPPL_INT *k,
-                CPPL_INT *L, std::complex<double> *a, const CPPL_INT *lda,
-                std::complex<double> *b, const CPPL_INT *ldb, double *alpha,
-                double *beta, std::complex<double> *u, const CPPL_INT *ldu,
-                std::complex<double> *v, const CPPL_INT *ldv, std::complex<double> *q,
-                const CPPL_INT *ldq, std::complex<double> *work, double *rwork,
-                CPPL_INT *iwork, CPPL_INT *info );
-}
diff --git a/cpplapack-r198/.svn/pristine/93/93f9588f841586cf54f1ee622b417fdf25fd3f79.svn-base b/cpplapack-r198/.svn/pristine/93/93f9588f841586cf54f1ee622b417fdf25fd3f79.svn-base
deleted file mode 100644
index 841fdc1..0000000
--- a/cpplapack-r198/.svn/pristine/93/93f9588f841586cf54f1ee622b417fdf25fd3f79.svn-base
+++ /dev/null
@@ -1,273 +0,0 @@
-//=============================================================================
-/*! solve A*X=Y using dsysv\n
-  The argument is dmatrix Y. Y is overwritten and become the solution X.
-  A is also overwritten. 
-*/
-inline CPPL_INT dsymatrix::dsysv(dgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrices cannot be solved." << std::endl
-              << "Your input was (" << n << "x" << n << ") and (" << mat.n << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  char UPLO('l');
-  CPPL_INT NRHS(mat.n), LDA(n), *IPIV(new CPPL_INT[n]), LDB(mat.m), LWORK(-1), INFO(1);
-  double *WORK( new double[1] );
-  dsysv_(&UPLO, &n, &NRHS, array, &LDA, IPIV, mat.array, &LDB, WORK, &LWORK, &INFO);
-  
-  INFO=1; 
-  LWORK = CPPL_INT(WORK[0]);
-  delete [] WORK;
-  WORK = new double[LWORK];
-  dsysv_(&UPLO, &n, &NRHS, array, &LDA, IPIV, mat.array, &LDB, WORK, &LWORK, &INFO);
-  delete [] WORK;
-  delete [] IPIV;
-  
-  if(INFO!=0){
-    WARNING_REPORT;
-    std::cerr << "Serious trouble happend. INFO = " << INFO << "." << std::endl;
-  }
-  return INFO;
-}
-
-//=============================================================================
-/*! solve A*x=y using dsysv\n
-  The argument is dcovector y. y is overwritten and become the solution x.
-  A is also overwritten.
-*/
-inline CPPL_INT dsymatrix::dsysv(dcovector& vec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=vec.l){
-    ERROR_REPORT;
-    std::cerr << "These matrix and vector cannot be solved." << std::endl
-              << "Your input was (" << n << "x" << n << ") and (" << vec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG 
-  
-  char UPLO('l');
-  CPPL_INT NRHS(1), LDA(n), *IPIV(new CPPL_INT[n]), LDB(vec.l), LWORK(-1), INFO(1);
-  double *WORK( new double[1] );
-  dsysv_(&UPLO, &n, &NRHS, array, &LDA, IPIV, vec.array, &LDB, WORK, &LWORK, &INFO);
-  
-  INFO=1;
-  LWORK = CPPL_INT(WORK[0]);
-  delete [] WORK;
-  WORK = new double[LWORK];
-  dsysv_(&UPLO, &n, &NRHS, array, &LDA, IPIV, vec.array, &LDB, WORK, &LWORK, &INFO);
-  delete [] WORK;
-  delete [] IPIV;
-
-  if(INFO!=0){
-    WARNING_REPORT;
-    std::cerr << "Serious trouble happend. INFO = " << INFO << "." << std::endl;
-  }
-  return INFO;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! calculate eigenvalues and eigenvectors.\n
-  All of the arguments need not to be initialized.
-  w is overwitten and become eigenvalues.
-  This matrix is also overwritten. 
-  if jobz=1, this matrix becomes eigenvectors.
-*/
-inline CPPL_INT dsymatrix::dsyev(std::vector<double>& w, const bool& jobz=0)
-{CPPL_VERBOSE_REPORT;
-  w.resize(n);
-  char JOBZ, UPLO('l');
-  if(jobz==0){ JOBZ='n'; } else{ JOBZ='V'; }
-  CPPL_INT LDA(n), INFO(1), LWORK(-1);
-  double *WORK(new double[1]);
-  dsyev_(&JOBZ, &UPLO, &n, array, &LDA, &w[0], WORK, &LWORK, &INFO);
-  
-  INFO=1;
-  LWORK = CPPL_INT(WORK[0]);
-  delete [] WORK;
-  WORK = new double[LWORK];
-  dsyev_(&JOBZ, &UPLO, &n, array, &LDA, &w[0], WORK, &LWORK, &INFO);
-  delete [] WORK;
-  
-  if(INFO!=0){
-    WARNING_REPORT;
-    std::cerr << "Serious trouble happend. INFO = " << INFO << "." << std::endl;
-  }
-  return INFO;
-}
-
-//=============================================================================
-/*! calculate eigenvalues and eigenvectors.\n
-  All of the arguments need not to be initialized.
-  w and v are overwitten and become 
-  eigenvalues and eigenvectors, respectively.
-  This matrix is also overwritten. 
-*/
-inline CPPL_INT dsymatrix::dsyev(std::vector<double>& w, std::vector<dcovector>& v)
-{CPPL_VERBOSE_REPORT;
-  w.resize(n);
-  v.resize(n);
-  for(CPPL_INT i=0; i<n; i++){
-    v[i].resize(n);
-  }
-  
-  char JOBZ('V'), UPLO('l');
-  CPPL_INT LDA(n), INFO(1), LWORK(-1);
-  double *WORK(new double[1]);
-  dsyev_(&JOBZ, &UPLO, &n, array, &LDA, &w[0], WORK, &LWORK, &INFO);
-  
-  INFO=1;
-  LWORK = CPPL_INT(WORK[0]);
-  delete [] WORK;
-  WORK = new double[LWORK];
-  dsyev_(&JOBZ, &UPLO, &n, array, &LDA, &w[0], WORK, &LWORK, &INFO);
-  delete [] WORK;
-  
-  //// forming ////
-  for(CPPL_INT j=0; j<n; j++){
-    for(CPPL_INT i=0; i<n; i++){
-      v[j](i) = array[i+n*j];
-    }
-  }
-  
-  if(INFO!=0){
-    WARNING_REPORT;
-    std::cerr << "Serious trouble happend. INFO = " << INFO << "." << std::endl;
-  }
-  return INFO;
-}
-
-//=============================================================================
-/*! calculate eigenvalues and eigenvectors.\n
-  All of the arguments need not to be initialized.
-  w and v are overwitten and become 
-  eigenvalues and eigenvectors, respectively.
-  This matrix is also overwritten. 
-*/
-inline CPPL_INT dsymatrix::dsyev(std::vector<double>& w, std::vector<drovector>& v)
-{CPPL_VERBOSE_REPORT;
-  w.resize(n);
-  v.resize(n);
-  for(CPPL_INT i=0; i<n; i++){
-    v[i].resize(n);
-  }
-  
-  char JOBZ('V'), UPLO('l');
-  CPPL_INT LDA(n), INFO(1), LWORK(-1);
-  double *WORK(new double[1]);
-  dsyev_(&JOBZ, &UPLO, &n, array, &LDA, &w[0], WORK, &LWORK, &INFO);
-  
-  INFO=1;
-  LWORK = CPPL_INT(WORK[0]);
-  delete [] WORK;
-  WORK = new double[LWORK];
-  dsyev_(&JOBZ, &UPLO, &n, array, &LDA, &w[0], WORK, &LWORK, &INFO);
-  delete [] WORK;
-  
-  //// forming ////
-  for(CPPL_INT j=0; j<n; j++){
-    for(CPPL_INT i=0; i<n; i++){
-      v[j](i) = array[i+n*j];
-    }
-  }
-  
-  if(INFO!=0){
-    WARNING_REPORT;
-    std::cerr << "Serious trouble happend. INFO = " << INFO << "." << std::endl;
-  }
-  return INFO;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! calculate generalized eigenvalues\n
-  w is overwitten and become generalized eigenvalues.
-  This matrix and matB are also overwritten. 
-*/
-inline CPPL_INT dsymatrix::dsygv(dsymatrix& matB, std::vector<double>& w)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matB.n!=n){
-    ERROR_REPORT;
-    std::cerr << "The matrix B is not a matrix having the same size as \"this\" matrix." << std::endl
-              << "The B matrix is (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  w.resize(n);
-  char JOBZ('n'), UPLO('l');
-  CPPL_INT ITYPE(1), LDA(n), LDB(n), LWORK(-1), INFO(1);
-  double *WORK(new double[1]);
-  dsygv_(&ITYPE, &JOBZ, &UPLO, &n, array, &LDA, matB.array, &LDB, &w[0], WORK, &LWORK, &INFO);
-  
-  INFO=1;
-  LWORK = CPPL_INT(WORK[0]);
-  delete [] WORK;
-  WORK = new double[LWORK];
-  dsygv_(&ITYPE, &JOBZ, &UPLO, &n, array, &LDA, matB.array, &LDB, &w[0], WORK, &LWORK, &INFO);
-  delete [] WORK;
-  
-  if(INFO!=0){
-    WARNING_REPORT;
-    std::cerr << "Serious trouble happend. INFO = " << INFO << "." << std::endl;
-  }
-  return INFO;
-}
-
-//=============================================================================
-/*! calculate generalized eigenvalues\n
-  w is overwitten and become generalized eigenvalues.
-  This matrix and matB are also overwritten. 
-*/
-inline CPPL_INT dsymatrix::dsygv(dsymatrix& matB, std::vector<double>& w,
-                             std::vector<dcovector>& v)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matB.n!=n){
-    ERROR_REPORT;
-    std::cerr << "The matrix B is not a matrix having the same size as \"this\" matrix." << std::endl
-              << "The B matrix is (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  w.resize(n);
-  v.resize(n);
-  char JOBZ('V'), UPLO('l');
-  CPPL_INT ITYPE(1), LDA(n), LDB(n), LWORK(-1), INFO(1);
-  double *WORK(new double[1]);
-  dsygv_(&ITYPE, &JOBZ, &UPLO, &n, array, &LDA, matB.array, &LDB, &w[0], WORK, &LWORK, &INFO);
-  
-  INFO=1;
-  LWORK = CPPL_INT(WORK[0]);
-  delete [] WORK;
-  WORK = new double[LWORK];
-  dsygv_(&ITYPE, &JOBZ, &UPLO, &n, array, &LDA, matB.array, &LDB, &w[0], WORK, &LWORK, &INFO);
-  delete [] WORK;
-  
-  //// reforming ////
-  for(int i=0; i<n; i++){
-    v[i].resize(n);
-    for(int j=0; j<n; j++){
-      v[i](j) =darray[i][j];
-    }
-  }
-  
-  if(INFO!=0){
-    WARNING_REPORT;
-    std::cerr << "Serious trouble happend. INFO = " << INFO << "." << std::endl;
-  }
-  return INFO;
-}
diff --git a/cpplapack-r198/.svn/pristine/94/941a88b22156ba5b109e0816a652e49b4967d963.svn-base b/cpplapack-r198/.svn/pristine/94/941a88b22156ba5b109e0816a652e49b4967d963.svn-base
deleted file mode 100644
index 4b41653..0000000
--- a/cpplapack-r198/.svn/pristine/94/941a88b22156ba5b109e0816a652e49b4967d963.svn-base
+++ /dev/null
@@ -1,48 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  const int N(3);
-  
-  CPPL::zrovector a(N), b(N);
-  for(int i=0; i<a.l; i++){
-    a(i) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-    b(i) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-  }
-  
-  CPPL::zhematrix X(N), Y(N);
-  for(int i=0; i<X.n; i++){
-    for(int j=0; j<i; j++){
-      X(i,j) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-      Y(i,j) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-    }
-    X(i,i) =complex<double>(rand()/(RAND_MAX/10), 0.);
-    Y(i,i) =complex<double>(rand()/(RAND_MAX/10), 0.);
-  }
-  CPPL::zhematrix Z(X+Y);
-  
-  cout << "a*Z-a*X-a*Y = (Should be zero)\n" << a*Z-a*X-a*Y << endl;
-  
-  cout << "a*Z-a*(X+Y) = (Should be zero)\n" << a*Z-a*(X+Y) << endl;
-  
-  cout << "(a+b)*X-a*X-b*X = (Should be zero)\n" << (a+b)*X-a*X-b*X << endl;
-  
-  cout << "(a-b)*(X-Y)-a*X+a*Y+b*X-b*Y = (Should be zero)\n"
-       << (a-b)*(X-Y)-a*X+a*Y+b*X-b*Y << endl;
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/94/94764c41151f9a19fa6241552e05e6c72d93c396.svn-base b/cpplapack-r198/.svn/pristine/94/94764c41151f9a19fa6241552e05e6c72d93c396.svn-base
deleted file mode 100644
index 433dc80..0000000
--- a/cpplapack-r198/.svn/pristine/94/94764c41151f9a19fa6241552e05e6c72d93c396.svn-base
+++ /dev/null
@@ -1,77 +0,0 @@
-//=============================================================================
-/*! _dgbmatrix+_dgematrix operator */
-inline _dgematrix operator+(const _dgbmatrix& matA, const _dgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<matA.m; i++){
-    const CPPL_INT jmax =std::min(matA.n,i+matA.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matA.kl); j<jmax; j++){
-      matB(i,j) += matA(i,j);
-    }
-  }
-  
-  matA.destroy();
-  return matB;
-}
-
-//=============================================================================
-/*! _dgbmatrix-_dgematrix operator */
-inline _dgematrix operator-(const _dgbmatrix& matA, const _dgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<matA.m; i++){
-    const CPPL_INT jmax =std::min(matA.n,i+matA.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matA.kl); j<jmax; j++){
-      matB(i,j) = matA(i,j)-matB(i,j);
-    }
-  }
-  
-  matA.destroy();
-  return matB;
-}
-
-//=============================================================================
-/*! _dgbmatrix*_dgematrix operator */
-inline _dgematrix operator*(const _dgbmatrix& matA, const _dgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat( matA.m, matB.n );
-  newmat.zero();
-  
-  for(CPPL_INT i=0; i<newmat.m; i++){
-    for(CPPL_INT j=0; j<newmat.n; j++){
-      const CPPL_INT kmax =std::min(matA.n,i+matA.ku+1);
-      for(CPPL_INT k=std::max(CPPL_INT(0),i-matA.kl); k<kmax; k++){
-        newmat(i,j) += matA(i,k)*matB(k,j);
-      }
-    }
-  }
-  
-  matA.destroy();
-  matB.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/94/947b441be13ff2e54e9a1114cd070e249b538869.svn-base b/cpplapack-r198/.svn/pristine/94/947b441be13ff2e54e9a1114cd070e249b538869.svn-base
deleted file mode 100644
index ae259bc..0000000
--- a/cpplapack-r198/.svn/pristine/94/947b441be13ff2e54e9a1114cd070e249b538869.svn-base
+++ /dev/null
@@ -1,83 +0,0 @@
-//=============================================================================
-//! (DO NOT USE) Smart-temporary Complex Double-precision Row Vector Class
-class _zrovector
-{
-public:
-  ///////////////////////////////////////////////
-  /////////////////// objects ///////////////////
-  ///////////////////////////////////////////////
-  mutable CPPL_INT l; //!< vector size
-  mutable comple* array; //!< 1D array to store vector data
-  
-  ///////////////////////////////////////////////
-  ///////////////// constructors ////////////////
-  ///////////////////////////////////////////////
-  inline _zrovector();
-  inline _zrovector(const _zrovector&);
-  inline ~_zrovector(); //destructor
-  
-  ///////////////////////////////////////////////
-  ////////////////// functions //////////////////
-  ///////////////////////////////////////////////
-  //////// cast ////////
-  
-  //////// io ////////
-  inline comple& operator()(const CPPL_INT&) const;
-  inline friend std::ostream& operator<<(std::ostream&, const _zrovector&);
-  inline void write(const char*) const;
-  
-  //////// calc ////////
-  inline friend _zcovector t(const _zrovector&);
-  inline friend _zrovector conj(const _zrovector&);
-  inline friend _zcovector conjt(const _zrovector&);
-  inline friend double nrm2(const _zrovector&);
-  inline friend CPPL_INT idamax(const _zrovector&);
-  inline friend comple damax(const _zrovector&);
-
-  //////// misc ////////
-  inline void nullify() const;
-  inline void destroy() const;
-  
-  ///////////////////////////////////////////////
-  ///////////// numerical operators /////////////
-  ///////////////////////////////////////////////
-  //////// unary ////////
-  inline friend const _zrovector& operator+(const _zrovector&);
-  inline friend _zrovector operator-(const _zrovector&);
-  
-  //////// + ////////
-  inline friend _zrovector operator+(const _zrovector&, const  zrovector&);
-  inline friend _zrovector operator+(const _zrovector&, const _zrovector&);
-  
-  //////// - ////////
-  inline friend _zrovector operator-(const _zrovector&, const  zrovector&);
-  inline friend _zrovector operator-(const _zrovector&, const _zrovector&);
-  
-  //////// * ////////
-  inline friend     comple operator*(const _zrovector&, const  zcovector&);
-  inline friend     comple operator*(const _zrovector&, const _zcovector&);
-  inline friend _zrovector operator*(const _zrovector&, const  zgematrix&);
-  inline friend _zrovector operator*(const _zrovector&, const _zgematrix&);
-  inline friend _zrovector operator*(const _zrovector&, const  zhematrix&);
-  inline friend _zrovector operator*(const _zrovector&, const _zhematrix&);
-  inline friend _zrovector operator*(const _zrovector&, const  zgbmatrix&);
-  inline friend _zrovector operator*(const _zrovector&, const _zgbmatrix&);
-  inline friend _zrovector operator*(const _zrovector&, const  zgsmatrix&);
-  inline friend _zrovector operator*(const _zrovector&, const _zgsmatrix&);
-  inline friend _zrovector operator*(const _zrovector&, const  zhsmatrix&);
-  inline friend _zrovector operator*(const _zrovector&, const _zhsmatrix&);
-  inline friend _zrovector operator*(const _zrovector&, const     double&);
-  inline friend _zrovector operator*(const _zrovector&, const     comple&);
-  
-  //////// / ////////
-  inline friend _zrovector operator/(const _zrovector&, const     double&);
-  inline friend _zrovector operator/(const _zrovector&, const     comple&);
-  
-  //////// % ////////
-  inline friend     comple operator%(const _zrovector&, const  zrovector&);
-  inline friend     comple operator%(const _zrovector&, const _zrovector&);
-  
-  //////// double, complex ////////
-  inline friend _zrovector operator*(const     double&, const _zrovector&);
-  inline friend _zrovector operator*(const     comple&, const _zrovector&);
-};
diff --git a/cpplapack-r198/.svn/pristine/94/949e462cc62149ca2cb3aff1def0b065e8998332.svn-base b/cpplapack-r198/.svn/pristine/94/949e462cc62149ca2cb3aff1def0b065e8998332.svn-base
deleted file mode 100644
index fb0d025..0000000
--- a/cpplapack-r198/.svn/pristine/94/949e462cc62149ca2cb3aff1def0b065e8998332.svn-base
+++ /dev/null
@@ -1,45 +0,0 @@
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int M(5), N(3), CAP(4);
-  
-  CPPL::zgsmatrix A(M,N,CAP);
-  A.put(0,0, complex<double>(1.,2.) );
-  A.put(3,2, complex<double>(3.,4.) );
-  A.put(1,2, complex<double>(5.,6.) );
-  A.put(4,1, complex<double>(7.,8.) );
-  
-  cout << "A =\n" << A << endl;
-  
-  //A.put(1,2, 4.5);
-  //A.add(1,2, 0.1);
-  //A.sub(1,2, 0.1);
-  //A.mult(1,2, 10.);
-  //A.div(1,2, 10.);
-  //A.del(1,2);
-  A.del(2);
-  cout << "A (del 2) =\n" << A << endl;
-  
-  const CPPL::zgsmatrix B(A);
-  //// write/read ////
-  cout << "before write" << endl;
-  B.write( "tmp.txt" );
-  
-  CPPL::zgsmatrix C;
-  cout << "before read" << endl;
-  C.read( "tmp.txt" );
-  cout << "C-B =\n" << C-B << "<-Should be zero." << endl;
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/94/94a0c76ef66468ba460303a58631385e1d37e870.svn-base b/cpplapack-r198/.svn/pristine/94/94a0c76ef66468ba460303a58631385e1d37e870.svn-base
deleted file mode 100644
index dff92f5..0000000
--- a/cpplapack-r198/.svn/pristine/94/94a0c76ef66468ba460303a58631385e1d37e870.svn-base
+++ /dev/null
@@ -1,34 +0,0 @@
-//=============================================================================
-/*! cast to _zgbmatrix */
-inline _zgbmatrix _dgbmatrix::to_zgbmatrix() const
-{CPPL_VERBOSE_REPORT;
-  zgbmatrix newmat(m,n,kl,ku);
-  
-  for(CPPL_INT i=0; i<(kl+ku+1)*n; i++){
-    newmat.array[i] =comple(array[i],0.0);
-  }
-  
-  destroy();
-  return _(newmat);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! convert to _dgematrix */
-inline _dgematrix _dgbmatrix::to_dgematrix() const
-{CPPL_VERBOSE_REPORT;
-  dgematrix newmat( dgematrix(m,n).zero() );
-  
-  for(CPPL_INT i=0; i<m; i++){
-    const CPPL_INT jmax =std::min(n,i+ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-kl); j<jmax; j++){
-      newmat(i,j) =(*this)(i,j);
-    }
-  }
-  
-  destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/95/953a971ec84071a130b96d6b582ada8543803c55.svn-base b/cpplapack-r198/.svn/pristine/95/953a971ec84071a130b96d6b582ada8543803c55.svn-base
deleted file mode 100644
index 9ca6c68..0000000
--- a/cpplapack-r198/.svn/pristine/95/953a971ec84071a130b96d6b582ada8543803c55.svn-base
+++ /dev/null
@@ -1,14 +0,0 @@
-//=============================================================================
-/*! dcovector*_drovector operator */
-inline _dgematrix operator*(const dcovector& covec, const _drovector& rovec)
-{CPPL_VERBOSE_REPORT;
-  dgematrix newmat(covec.l, rovec.l);
-  for(CPPL_INT i=0; i<newmat.m; i++){
-    for(CPPL_INT j=0; j<newmat.n; j++){
-      newmat(i,j) =covec(i)*rovec(j);
-    }
-  }
-  
-  rovec.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/95/9588af124f793280e72efd514a2be0a814b0280c.svn-base b/cpplapack-r198/.svn/pristine/95/9588af124f793280e72efd514a2be0a814b0280c.svn-base
deleted file mode 100644
index fef1adf..0000000
--- a/cpplapack-r198/.svn/pristine/95/9588af124f793280e72efd514a2be0a814b0280c.svn-base
+++ /dev/null
@@ -1,114 +0,0 @@
-//=============================================================================
-//! Complex Double-precision Column Vector Class
-class zcovector
-{
-public:
-  ///////////////////////////////////////////////
-  /////////////////// objects ///////////////////
-  ///////////////////////////////////////////////
-  CPPL_INT l; //!< vector size
-  comple* array; //!< 1D array to store vector data
-  
-  ///////////////////////////////////////////////
-  ///////////////// constructors ////////////////
-  ///////////////////////////////////////////////
-  inline zcovector();
-  inline zcovector(const zcovector&);
-  inline zcovector(const _zcovector&);
-  inline zcovector(const CPPL_INT&);
-  inline zcovector(const char*);
-  inline ~zcovector(); //destructor
-  
-  ///////////////////////////////////////////////
-  ////////////////// functions //////////////////
-  ///////////////////////////////////////////////
-  //////// cast ////////
-  
-  //////// io ////////
-  inline comple& operator()(const CPPL_INT&);
-  inline comple operator()(const CPPL_INT&) const;
-  inline zcovector& set(const CPPL_INT&, const comple&);
-  inline friend std::ostream& operator<<(std::ostream&, const zcovector&);
-  inline void write(const char*) const;
-  inline void read(const char*);
-  
-  //////// calc ////////
-  inline friend _zrovector t(const zcovector&);
-  inline friend _zcovector conj(const zcovector&);
-  inline friend _zrovector conjt(const zcovector&);
-  inline friend double nrm2(const zcovector&);
-  inline friend CPPL_INT idamax(const zcovector&);
-  inline friend comple damax(const zcovector&);
-  
-  //////// misc ////////
-  inline void clear();
-  inline zcovector& zero();
-  inline void chsign();
-  inline void copy(const zcovector&);
-  inline void shallow_copy(const _zcovector&);
-  inline void alias(const zcovector&);
-  inline void unalias();
-  inline void resize(const CPPL_INT&);
-  inline _dcovector real() const;
-  inline _dcovector imag() const;
-  inline _dcovector abs() const;
-  inline _dcovector arg() const;
-  inline friend void swap(zcovector&, zcovector&);
-  inline friend _zcovector _(zcovector&);
-  
-  ///////////////////////////////////////////////
-  ///////////// numerical operators /////////////
-  ///////////////////////////////////////////////
-  //////// = ////////
-  inline zcovector& operator=(const  zcovector&);
-  inline zcovector& operator=(const _zcovector&);
-  
-  //////// += ////////
-  inline zcovector& operator+=(const  zcovector&);
-  inline zcovector& operator+=(const _zcovector&);
-  
-  //////// -= ////////
-  inline zcovector& operator-=(const  zcovector&);
-  inline zcovector& operator-=(const _zcovector&);
-  
-  //////// *= ////////
-  inline zcovector& operator*=(const     double&);
-  inline zcovector& operator*=(const     comple&);
-  
-  //////// /= ////////
-  inline zcovector& operator/=(const     double&);
-  inline zcovector& operator/=(const     comple&);
-  
-  //////// unary ////////
-  inline friend const zcovector& operator+(const zcovector&);
-  inline friend _zcovector operator-(const  zcovector&);
-  
-  //////// + ////////
-  inline friend _zcovector operator+(const  zcovector&, const  zcovector&);
-  inline friend _zcovector operator+(const  zcovector&, const _zcovector&);
-  
-  //////// - ////////
-  inline friend _zcovector operator-(const  zcovector&, const  zcovector&);
-  inline friend _zcovector operator-(const  zcovector&, const _zcovector&);
-  
-  //////// * ////////
-  inline friend _zgematrix operator*(const  zcovector&, const  zrovector&);
-  inline friend _zgematrix operator*(const  zcovector&, const _zrovector&);
-  inline friend _zcovector operator*(const  zcovector&, const     double&);
-  inline friend _zcovector operator*(const  zcovector&, const     comple&);
-  
-  //////// / ////////
-  inline friend _zcovector operator/(const  zcovector&, const     double&);
-  inline friend _zcovector operator/(const  zcovector&, const     comple&);
-  
-  //////// % ////////
-  inline friend     comple operator%(const  zcovector&, const  zcovector&);
-  inline friend     comple operator%(const  zcovector&, const _zcovector&);
-  
-  //////// double, comple ////////
-  inline friend _zcovector operator*(const     double&, const  zcovector&);
-  inline friend _zcovector operator*(const     comple&, const  zcovector&);
-  
-  //////// hadamard ////////
-  inline friend _zcovector hadamard(const zcovector&, const zcovector&);
-};
diff --git a/cpplapack-r198/.svn/pristine/95/95d5bce391702559cd495197a6cfbd971b1c39fa.svn-base b/cpplapack-r198/.svn/pristine/95/95d5bce391702559cd495197a6cfbd971b1c39fa.svn-base
deleted file mode 100644
index c20656f..0000000
--- a/cpplapack-r198/.svn/pristine/95/95d5bce391702559cd495197a6cfbd971b1c39fa.svn-base
+++ /dev/null
@@ -1,24 +0,0 @@
-//=============================================================================
-/*! _dgematrix*dcovector operator */
-inline _dcovector operator*(const _dgematrix& mat, const dcovector& vec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(mat.n!=vec.l){
-    ERROR_REPORT;
-    std::cerr << "These matrix and vector can not make a product." << std::endl
-              << "Your input was (" << mat.m << "x" << mat.n << ") * (" << vec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dcovector newvec(mat.m);
-  char trans ='n';
-  double alpha =1.;
-  CPPL_INT inc =1;
-  double beta =0.;
-  
-  dgemv_( &trans, &mat.m, &mat.n, &alpha, mat.array, &mat.m, vec.array, &inc, &beta, newvec.array, &inc );
-  
-  mat.destroy();
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/96/96132b6b5db343e508d916768657ea110264971a.svn-base b/cpplapack-r198/.svn/pristine/96/96132b6b5db343e508d916768657ea110264971a.svn-base
deleted file mode 100644
index fcb781d..0000000
--- a/cpplapack-r198/.svn/pristine/96/96132b6b5db343e508d916768657ea110264971a.svn-base
+++ /dev/null
@@ -1,85 +0,0 @@
-//=============================================================================
-//! Samll Real Double-precision Symmetric Matrix Class
-template<CPPL_INT n> class dsymatrix_small
-{
-public:
-  ///////////////////////////////////////////////
-  /////////////////// objects ///////////////////
-  ///////////////////////////////////////////////
-  double array[(n*(n+1))/2]; //!< 1D array to store vector data
-  
-  ///////////////////////////////////////////////
-  ///////////////// constructors ////////////////
-  ///////////////////////////////////////////////
-  inline dsymatrix_small();
-  inline explicit dsymatrix_small(const dsymatrix&);
-  inline ~dsymatrix_small();
-  
-  ///////////////////////////////////////////////
-  ////////////////// functions //////////////////
-  ///////////////////////////////////////////////
-  //////// cast ////////
-  inline dgematrix_small<n,n> to_dgematrix_small() const;
-  inline dsymatrix to_dsymatrix() const;
-  
-  //////// io ////////
-  inline double& operator()(const CPPL_INT& i, const CPPL_INT& j);
-  inline double  operator()(const CPPL_INT& i, const CPPL_INT& j) const;
-  inline dsymatrix_small<n>& set(const CPPL_INT&, const CPPL_INT&, const double&);
-  template<CPPL_INT _n> inline friend std::ostream& operator<<(std::ostream&, const dsymatrix_small<_n>&);
-  inline void read(const char* filename);
-  inline void write(const char* filename) const;
-  
-  //////// misc ////////
-  inline dsymatrix_small<n>& zero();
-  inline dsymatrix_small<n>& identity();
-  
-  ///////////////////////////////////////////////
-  ///////////// numerical operators /////////////
-  ///////////////////////////////////////////////
-#ifndef _MSC_VER
-  //////// = ////////
-  template<CPPL_INT N> inline dsymatrix_small<N>& operator= (const dsymatrix_small<N>&);
-  //////// += ////////
-  template<CPPL_INT N> inline friend dsymatrix_small<N>& operator+=(dsymatrix_small<N>&, const dsymatrix_small<N>&);
-  //////// -= ////////
-  template<CPPL_INT N> inline friend dsymatrix_small<N>& operator-=(dsymatrix_small<N>&, const dsymatrix_small<N>&);
-  //////// *= ////////
-  template<CPPL_INT N> inline friend dsymatrix_small<N>& operator*=(dsymatrix_small<N>&, const             double&);
-  //////// /= ////////
-  template<CPPL_INT N> inline friend dsymatrix_small<N>& operator/=(dsymatrix_small<N>&, const             double&);
-  //////// unary ////////
-  template<CPPL_INT N> inline friend const dsymatrix_small<N>& operator+(const dsymatrix_small<N>&);
-  template<CPPL_INT N> inline friend dsymatrix_small< N > operator-(const dsymatrix_small<N>&);
-  //////// + ////////
-  template<CPPL_INT N> inline friend dgematrix_small<N,N> operator+(const dsymatrix_small<N>&, const dgematrix_small<N,N>&);
-  template<CPPL_INT N> inline friend dsymatrix_small< N > operator+(const dsymatrix_small<N>&, const dsymatrix_small< N >&);
-  //////// - ////////
-  template<CPPL_INT N> inline friend dgematrix_small<N,N> operator-(const dsymatrix_small<N>&, const dgematrix_small<N,N>&);
-  template<CPPL_INT N> inline friend dsymatrix_small< N > operator-(const dsymatrix_small<N>&, const dsymatrix_small< N >&);
-  //////// * ////////
-  template<CPPL_INT N> inline friend dcovector_small< N > operator*(const dsymatrix_small<N>&, const dcovector_small< N >&);
-  template<CPPL_INT M, CPPL_INT N> inline friend dgematrix_small<M,N> operator*(const dsymatrix_small<M>&, const dgematrix_small<M,N>&);
-  template<CPPL_INT N> inline friend dgematrix_small<N,N> operator*(const dsymatrix_small<N>&, const dsymatrix_small< N >&);
-  template<CPPL_INT N> inline friend dsymatrix_small< N > operator*(const dsymatrix_small<N>&, const               double&);
-  //////// / ////////
-  template<CPPL_INT N> inline friend dsymatrix_small< N > operator/(const dsymatrix_small<N>&, const               double&);
-  //////// double ////////
-  template<CPPL_INT N> inline friend dsymatrix_small< N > operator*(const             double&, const dsymatrix_small< N >&);
-  //////// hadamerd ////////
-  template<CPPL_INT N> inline friend dsymatrix_small< N >  hadamerd(const dsymatrix_small<N>&, const dgematrix_small<N,N>&);
-  template<CPPL_INT N> inline friend dsymatrix_small< N >  hadamerd(const dsymatrix_small<N>&, const dsymatrix_small< N >&);
-#endif//_MSC_VER
-};
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-inline double det(const dsymat2&);
-inline dsymat2 inv(const dsymat2&);
-inline dsymat2 rotate(const dsymat2&, const double&);
-
-inline double det(const dsymat3&);
-inline dsymat3 inv(const dsymat3&);
-inline dsymat3 rotate(const dsymat3&, const dquater&);
diff --git a/cpplapack-r198/.svn/pristine/96/9614e749d44431c0cecff7e279fb95114867e2e6.svn-base b/cpplapack-r198/.svn/pristine/96/9614e749d44431c0cecff7e279fb95114867e2e6.svn-base
deleted file mode 100644
index 193894d..0000000
--- a/cpplapack-r198/.svn/pristine/96/9614e749d44431c0cecff7e279fb95114867e2e6.svn-base
+++ /dev/null
@@ -1,10 +0,0 @@
-CONTENTS
-
-   inlude/: CPPLapack header files
-      doc/: CPPLapack documentation files (see doc/html/index.html)
-     test/: CPPLapack test programs
-benchmark/: CPPLapack benchmark programs
-makefiles/: CPPLapack Makefile samples
-  contrib/: CPPLapack contribution programs
-packaging/: files for rpm and deb packaging
-    README: This file
diff --git a/cpplapack-r198/.svn/pristine/96/9626ce778d8af86d6e68432f4895481be5c184e4.svn-base b/cpplapack-r198/.svn/pristine/96/9626ce778d8af86d6e68432f4895481be5c184e4.svn-base
deleted file mode 100644
index 0c6eb8d..0000000
--- a/cpplapack-r198/.svn/pristine/96/9626ce778d8af86d6e68432f4895481be5c184e4.svn-base
+++ /dev/null
@@ -1,25 +0,0 @@
-//=============================================================================
-/*! _drovector*_dgsmatrix operator */
-inline _drovector operator*(const _drovector& vec, const _dgsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vec.l!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These vector and matrix can not make a product." << std::endl
-              << "Your input was (" << vec.l << ") * (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  drovector newvec(mat.n);
-  newvec.zero();
-  
-  const std::vector<dcomponent>::const_iterator mat_data_end =mat.data.end();
-  for(std::vector<dcomponent>::const_iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    newvec(it->j) += vec(it->i)*it->v;
-  }
-  
-  vec.destroy();
-  mat.destroy();
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/96/967bf43af153b72235d6e0e65f3435a1e9932d35.svn-base b/cpplapack-r198/.svn/pristine/96/967bf43af153b72235d6e0e65f3435a1e9932d35.svn-base
deleted file mode 100644
index 4a3f3ea..0000000
--- a/cpplapack-r198/.svn/pristine/96/967bf43af153b72235d6e0e65f3435a1e9932d35.svn-base
+++ /dev/null
@@ -1,46 +0,0 @@
-//=============================================================================
-/*! calculate determinant */
-inline comple det(const zhemat2& A)
-{CPPL_VERBOSE_REPORT;
-  return A(0,0)*A(1,1) -A(1,0)*A(1,0);
-}
-
-//=============================================================================
-/*! calculate inverse */
-inline zhemat2 inv(const zhemat2& A)
-{CPPL_VERBOSE_REPORT;
-  const comple Adet( det(A) );
-  zhemat2 Ainv;
-  Ainv(0,0)= A(1,1)/Adet;
-  Ainv(1,0)=-A(1,0)/Adet;  Ainv(1,1)= A(0,0)/Adet;
-  return Ainv;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! calculate determinant */
-inline comple det(const zhemat3& A)
-{CPPL_VERBOSE_REPORT;
-  return
-    +A(0,0)*A(1,1)*A(2,2) -A(0,0)*A(2,1)*A(2,1)
-    +A(1,0)*A(2,1)*A(2,0) -A(1,0)*A(1,0)*A(2,2)
-    +A(2,0)*A(1,0)*A(2,1) -A(2,0)*A(1,1)*A(2,0);
-}
-
-//=============================================================================
-/*! calculate inverse */
-inline zhemat3 inv(const zhemat3& A)
-{CPPL_VERBOSE_REPORT;
-  const comple Adet( det(A) );
-  zhemat3 Ainv;
-  Ainv(0,0) =(A(1,1)*A(2,2)-A(2,1)*A(2,1))/Adet;
-  Ainv(1,0) =(A(2,1)*A(2,0)-A(1,0)*A(2,2))/Adet;
-  Ainv(1,1) =(A(0,0)*A(2,2)-A(2,0)*A(2,0))/Adet;
-  Ainv(2,0) =(A(1,0)*A(2,1)-A(1,1)*A(2,0))/Adet;
-  Ainv(2,1) =(A(1,0)*A(2,0)-A(0,0)*A(2,1))/Adet;
-  Ainv(2,2) =(A(0,0)*A(1,1)-A(1,0)*A(1,0))/Adet;
-  return Ainv;
-}
diff --git a/cpplapack-r198/.svn/pristine/96/96b1585090d86e4c92f97fad436facf1858e06b8.svn-base b/cpplapack-r198/.svn/pristine/96/96b1585090d86e4c92f97fad436facf1858e06b8.svn-base
deleted file mode 100644
index 67de297..0000000
--- a/cpplapack-r198/.svn/pristine/96/96b1585090d86e4c92f97fad436facf1858e06b8.svn-base
+++ /dev/null
@@ -1,75 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int M(4), N(3), KL(2), KU(1);
-  //int M(10), N(4), KL(4), KU(0);
-  //int M(2), N(2), KL(0), KU(0);
-  
-  CPPL::dgbmatrix A(M,N,KL,KU);
-  for(int i=0; i<A.m; i++){
-    for(int j=std::max(0,i-A.kl); j<std::min(A.n,i+A.ku+1); j++){
-      A(i,j) =double( rand() /(RAND_MAX/10) );
-    }
-  }
-  std::cout << "A =\n" << A << std::endl;
-  
-  CPPL::dgbmatrix B;
-  std::cout << "#### B=A; ####" << std::endl;
-  B=A;
-  std::cout << "B =\n" << B << std::endl;
-  
-  std::cout << "#### B+=A; ####" << std::endl;
-  B+=A;
-  std::cout << "B =\n" << B << std::endl;
-
-  std::cout << "#### B-=A; ####" << std::endl;
-  B-=A;
-  std::cout << "B =\n" << B << std::endl;
-  
-  std::cout << "A+B =\n" << A+B << std::endl;
-  std::cout << "A-B =\n" << A-B << std::endl;
-  
-  CPPL::dgematrix A2( A.to_dgematrix() ), B2( B.to_dgematrix() );
-  
-  std::cout << "A*t(B) =\n" << A*t(B) << std::endl;
-  std::cout << "A2*t(B2) =\n" << A2*t(B2) << std::endl;
-  
-  CPPL::dgbmatrix P(8,10,2,3), Q(10,9,1,3), R;
-  for(int i=0; i<P.m; i++){
-    for(int j=std::max(0,i-P.kl); j<std::min(P.n,i+P.ku+1); j++){
-      P(i,j) =double( rand() /(RAND_MAX/9) +1 );
-    }
-  }
-  for(int i=0; i<Q.m; i++){
-    for(int j=std::max(0,i-Q.kl); j<std::min(Q.n,i+Q.ku+1); j++){
-      Q(i,j) =double( rand() /(RAND_MAX/9) +1 );
-    }
-  }
-  CPPL::dgematrix P2( P.to_dgematrix() ), Q2( Q.to_dgematrix() );
-  std::cout << "P =\n" << P << std::endl;
-  std::cout << "P2 =\n" << P2 << std::endl;
-  std::cout << "Q =\n" << Q << std::endl;
-  std::cout << "Q2 =\n" << Q2 << std::endl;
-  std::cout << "P*Q =\n" << P*Q << std::endl;
-  std::cout << "P2*Q2 =\n" << P2*Q2 << std::endl;
-  
-  std::cout << "#### P*=Q; ####" << std::endl;
-  P*=Q;
-  std::cout << "P =\n" << P << std::endl;
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/96/96e289a6e6bd4aa499eabd6781d96574ffd84be5.svn-base b/cpplapack-r198/.svn/pristine/96/96e289a6e6bd4aa499eabd6781d96574ffd84be5.svn-base
deleted file mode 100644
index c8ecf53..0000000
--- a/cpplapack-r198/.svn/pristine/96/96e289a6e6bd4aa499eabd6781d96574ffd84be5.svn-base
+++ /dev/null
@@ -1,37 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int M(4), N(3);
-  
-  CPPL::dgematrix A;
-  cout << "A || m=" << A.m << " n=" << A.n << " array=" << A.array << endl;
-  
-  
-  CPPL::dgematrix B(M,N);
-  for(int i=0; i<B.m; i++){ for(int j=0; j<B.n; j++){
-    B(i,j) =double( rand() /(RAND_MAX/10) );
-  }}
-  cout << "B || m=" << B.m << " n=" << B.n << " array=" << B.array << endl;
-  cout << B << endl;
-  
-  CPPL::dgematrix C(B);
-  cout << "C || m=" << C.m << " n=" << C.n << " array=" << C.array << endl;
-  cout << C << endl;
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/96/96fac8993a9ad349e3a5f5cc5e61e7dc41c09338.svn-base b/cpplapack-r198/.svn/pristine/96/96fac8993a9ad349e3a5f5cc5e61e7dc41c09338.svn-base
deleted file mode 100644
index 2e873bc..0000000
--- a/cpplapack-r198/.svn/pristine/96/96fac8993a9ad349e3a5f5cc5e61e7dc41c09338.svn-base
+++ /dev/null
@@ -1,74 +0,0 @@
-//=============================================================================
-/*! _zhsmatrix+zhsmatrix operator */
-inline _zhsmatrix operator+(const _zhsmatrix& matA, const zhsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") + (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  zhsmatrix newmat(matA);
-  
-  const std::vector<zcomponent>::const_iterator matB_data_end =matB.data.end();
-  for(std::vector<zcomponent>::const_iterator it=matB.data.begin(); it!=matB_data_end; it++){
-    newmat(it->i,it->j) +=it->v;
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _zhsmatrix-zhsmatrix operator */
-inline _zhsmatrix operator-(const _zhsmatrix& matA, const zhsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") - (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  zhsmatrix newmat(matA);
-  
-  const std::vector<zcomponent>::const_iterator matB_data_end =matB.data.end();
-  for(std::vector<zcomponent>::const_iterator it=matB.data.begin(); it!=matB_data_end; it++){
-    newmat(it->i,it->j) -=it->v;
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _zhsmatrix*zhsmatrix operator */
-/*
-inline _zhsmatrix operator*(const _zhsmatrix& matA, const zhsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zhsmatrix newmat( matA.m, matB.n, 0 );
-  
-  for(CPPL_INT c=0; c<matA.vol; c++){
-    CPPL_INT k(matA.jndx[c]);
-    std::vector< std::pair<CPPL_INT,CPPL_INT> >::iterator p;
-    for(p=matB.Col[k].begin(); p!=matB.Col[k].end(); p++){
-      newmat(matA.indx[c],p->first) +=matA.array[c]*matB.array[p->second];
-    }
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
-*/
diff --git a/cpplapack-r198/.svn/pristine/97/970dd964ebcab2e6da0d9308d853fee78e98c8d3.svn-base b/cpplapack-r198/.svn/pristine/97/970dd964ebcab2e6da0d9308d853fee78e98c8d3.svn-base
deleted file mode 100644
index 36372f5..0000000
--- a/cpplapack-r198/.svn/pristine/97/970dd964ebcab2e6da0d9308d853fee78e98c8d3.svn-base
+++ /dev/null
@@ -1,147 +0,0 @@
-//=============================================================================
-/*! zcovector=zcovector operator */
-inline zcovector& zcovector::operator=(const zcovector& vec)
-{CPPL_VERBOSE_REPORT;
-  if(array!=vec.array){ // if it is NOT self substitution
-    copy(vec);
-  }
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zcovector+=zcovector operator */
-inline zcovector& zcovector::operator+=(const zcovector& vec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( l!=vec.l ){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make a sumation." << std::endl
-              << "Your input was (" << l << ") += (" << vec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<l; i++){
-    array[i] += vec.array[i];
-  }
-  
-  return *this;
-}
-
-//=============================================================================
-/*! zcovector operator-= */
-inline zcovector& zcovector::operator-=(const zcovector& vec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( l!=vec.l ){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make a subtraction." << std::endl
-              << "Your input was (" << l << ") -= (" << vec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<l; i++){
-    array[i] -= vec.array[i];
-  }
-  
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zcovector+zcovector operator */
-inline _zcovector operator+(const zcovector& vecA, const zcovector& vecB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vecA.l!=vecB.l){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make a sumation." << std::endl
-              << "Your input was (" << vecA.l << ") + (" << vecB.l << ")." << std::endl;
-    exit(1);
-  }
-  
-#endif//CPPL_DEBUG
-  
-  zcovector newvec(vecA.l);
-  
-  for(CPPL_INT i=0; i<newvec.l; i++){
-    newvec.array[i] =vecA.array[i]+vecB.array[i];
-  }
-  
-  return _(newvec);
-}
-
-//=============================================================================
-/*! zcovector-zcovector operator */
-inline _zcovector operator-(const zcovector& vecA, const zcovector& vecB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vecA.l!=vecB.l){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make a subtraction." << std::endl
-              << "Your input was (" << vecA.l << ") - (" << vecB.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zcovector newvec(vecA.l);
-  
-  for(CPPL_INT i=0; i<newvec.l; i++){
-    newvec.array[i] =vecA.array[i]-vecB.array[i];
-  }
-  
-  return _(newvec);
-}
-
-//=============================================================================
-/*! zcovector^T*zcovector operator (inner product) */
-inline comple operator%(const zcovector& vecA, const zcovector& vecB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vecA.l!=vecB.l){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make a dot product." << std::endl
-              << "Your input was (" << vecA.l << ") % (" << vecB.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  CPPL_INT inc =1;
-  comple val =zdotu_( &vecA.l, vecA.array, &inc, vecB.array, &inc );
-  
-  return val;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! return Hadamerd product */
-inline _zcovector hadamerd(const zcovector& vecA, const zcovector& vecB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( vecA.l!=vecB.l ){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make Hadamerd product." << std::endl
-              << "Your input was (" << vecA.l << ") and (" << vecB.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zcovector newvec(vecA.l);
-  
-  for(CPPL_INT i=0; i<newvec.l; i++){
-    newvec(i) =vecA(i)*vecB(i);
-  }
-  
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/97/97240d4d40f668db5dcfd3119d5c7f936872e263.svn-base b/cpplapack-r198/.svn/pristine/97/97240d4d40f668db5dcfd3119d5c7f936872e263.svn-base
deleted file mode 100644
index 1e27863..0000000
--- a/cpplapack-r198/.svn/pristine/97/97240d4d40f668db5dcfd3119d5c7f936872e263.svn-base
+++ /dev/null
@@ -1,29 +0,0 @@
-#include "cpplapack.h"
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  CPPL::dquater q( vt2q(CPPL::dcovec3(1,1,1),M_PI/3.) );
-  std::cout << t(q) << std::endl;
-  std::cout << t(q*inv(q)) << std::endl;
-  
-  std::cout << q2m(q) << std::endl;
-  
-  //// dcovec3 ////
-  std::cout << t(rotate(CPPL::dcovec3(1,0,0),q)) << std::flush;
-  std::cout << t(rotate(CPPL::dcovec3(0,1,0),q)) << std::flush;
-  std::cout << t(rotate(CPPL::dcovec3(0,0,1),q)) << std::flush;
-  
-  //// dgemat3 ////
-  CPPL::dgemat3 gm;
-  gm.identity();
-  std::cout << rotate(gm,q) << std::endl;
-  
-  //// dsymat3 ////
-  CPPL::dsymat3 sm;
-  sm.identity();
-  std::cout << rotate(sm,q) << std::endl;
-  
-  return 0;
-}
diff --git a/cpplapack-r198/.svn/pristine/97/97f2ad9731fbb44dcab9c5602cff951248456906.svn-base b/cpplapack-r198/.svn/pristine/97/97f2ad9731fbb44dcab9c5602cff951248456906.svn-base
deleted file mode 100644
index 2decead..0000000
--- a/cpplapack-r198/.svn/pristine/97/97f2ad9731fbb44dcab9c5602cff951248456906.svn-base
+++ /dev/null
@@ -1,15 +0,0 @@
-//=============================================================================
-/*! zhsmatrix*complex operator */
-inline _zgsmatrix operator*(const zhsmatrix& mat, const comple& d)
-{CPPL_VERBOSE_REPORT;
-  zgsmatrix newmat( mat.to_zgsmatrix() );
-  return newmat*d;
-}
-
-//=============================================================================
-/*! zhsmatrix/complex operator */
-inline _zgsmatrix operator/(const zhsmatrix& mat, const comple& d)
-{CPPL_VERBOSE_REPORT;
-  zgsmatrix newmat( mat.to_zgsmatrix() );
-  return newmat/d;
-}
diff --git a/cpplapack-r198/.svn/pristine/97/97fee6b354d4bde6dac0c511e066ff7824c871b6.svn-base b/cpplapack-r198/.svn/pristine/97/97fee6b354d4bde6dac0c511e066ff7824c871b6.svn-base
deleted file mode 100644
index e4f188a..0000000
--- a/cpplapack-r198/.svn/pristine/97/97fee6b354d4bde6dac0c511e066ff7824c871b6.svn-base
+++ /dev/null
@@ -1,94 +0,0 @@
-//=============================================================================
-//! (DO NOT USE) Smart-temporary Real Double-precision General Sparse Matrix Class
-class _dgsmatrix
-{
-public:
-  ///////////////////////////////////////////////
-  /////////////////// objects ///////////////////
-  ///////////////////////////////////////////////
-  mutable CPPL_INT m; //!< matrix row size
-  mutable CPPL_INT n; //!< matrix column size
-  mutable std::vector<dcomponent> data; //!< matrix data
-  mutable std::vector< std::vector<CPPL_INT> > rows; //!< array of vector to store the entry information of component for each row
-  mutable std::vector< std::vector<CPPL_INT> > cols; //!< array of vector to store the entry information of component for each column
-  
-  ///////////////////////////////////////////////
-  ///////////////// constructors ////////////////
-  ///////////////////////////////////////////////
-  inline _dgsmatrix();
-  inline _dgsmatrix(const _dgsmatrix&);
-  inline ~_dgsmatrix(); //destructor
-  
-  ///////////////////////////////////////////////
-  ////////////////// functions //////////////////
-  ///////////////////////////////////////////////
-  //////// cast ////////
-  inline _zgsmatrix to_zgsmatrix() const;
-  inline _dgematrix to_dgematrix() const;
-  
-  //////// io ////////
-  inline double operator()(const CPPL_INT&, const CPPL_INT&) const;//not return double&
-  inline friend std::ostream& operator<<(std::ostream&, const _dgsmatrix&);
-  inline void write(const char*) const;
-
-  //////// misc ////////
-  inline void nullify() const;
-  inline void destroy() const;
-  
-  //////// calc ////////
-  inline friend _dgsmatrix t(const dgsmatrix&);
-  inline friend void idamax(CPPL_INT&, CPPL_INT&, const dgsmatrix&);
-  inline friend double damax(const dgsmatrix&);
-  
-  ///////////////////////////////////////////////
-  ///////////// numerical operators /////////////
-  ///////////////////////////////////////////////
-  //////// unary ////////
-  inline friend const _dgsmatrix& operator+(const _dgsmatrix&);
-  inline friend _dgsmatrix operator-(const _dgsmatrix&);
-  
-  //////// + ////////
-  inline friend _dgematrix operator+(const _dgsmatrix&, const  dgematrix&);
-  inline friend _dgematrix operator+(const _dgsmatrix&, const _dgematrix&);
-  inline friend _dgematrix operator+(const _dgsmatrix&, const  dsymatrix&);
-  inline friend _dgematrix operator+(const _dgsmatrix&, const _dsymatrix&);
-  inline friend _dgematrix operator+(const _dgsmatrix&, const  dgbmatrix&);
-  inline friend _dgematrix operator+(const _dgsmatrix&, const _dgbmatrix&);
-  inline friend _dgsmatrix operator+(const _dgsmatrix&, const  dgsmatrix&);
-  inline friend _dgsmatrix operator+(const _dgsmatrix&, const _dgsmatrix&);
-  inline friend _dgsmatrix operator+(const _dgsmatrix&, const  dssmatrix&);
-  inline friend _dgsmatrix operator+(const _dgsmatrix&, const _dssmatrix&);
-  
-  //////// - ////////
-  inline friend _dgematrix operator-(const _dgsmatrix&, const  dgematrix&);
-  inline friend _dgematrix operator-(const _dgsmatrix&, const _dgematrix&);
-  inline friend _dgematrix operator-(const _dgsmatrix&, const  dsymatrix&);
-  inline friend _dgematrix operator-(const _dgsmatrix&, const _dsymatrix&);
-  inline friend _dgematrix operator-(const _dgsmatrix&, const  dgbmatrix&);
-  inline friend _dgematrix operator-(const _dgsmatrix&, const _dgbmatrix&);
-  inline friend _dgsmatrix operator-(const _dgsmatrix&, const  dgsmatrix&);
-  inline friend _dgsmatrix operator-(const _dgsmatrix&, const _dgsmatrix&);
-  inline friend _dgsmatrix operator-(const _dgsmatrix&, const  dssmatrix&);
-  inline friend _dgsmatrix operator-(const _dgsmatrix&, const _dssmatrix&);
-  
-  //////// * ////////
-  inline friend _dcovector operator*(const _dgsmatrix&, const  dcovector&);
-  inline friend _dcovector operator*(const _dgsmatrix&, const _dcovector&);
-  inline friend _dgematrix operator*(const _dgsmatrix&, const  dgematrix&);
-  inline friend _dgematrix operator*(const _dgsmatrix&, const _dgematrix&);
-  inline friend _dgematrix operator*(const _dgsmatrix&, const  dsymatrix&);
-  inline friend _dgematrix operator*(const _dgsmatrix&, const _dsymatrix&);
-  inline friend _dgematrix operator*(const _dgsmatrix&, const  dgbmatrix&);
-  inline friend _dgematrix operator*(const _dgsmatrix&, const _dgbmatrix&);
-  inline friend _dgsmatrix operator*(const _dgsmatrix&, const  dgsmatrix&);
-  inline friend _dgsmatrix operator*(const _dgsmatrix&, const _dgsmatrix&);
-  inline friend _dgsmatrix operator*(const _dgsmatrix&, const  dssmatrix&);
-  inline friend _dgsmatrix operator*(const _dgsmatrix&, const _dssmatrix&);
-  inline friend _dgsmatrix operator*(const _dgsmatrix&, const     double&);
-  
-  //////// / ////////
-  inline friend _dgsmatrix operator/(const _dgsmatrix&, const     double&);
-  
-  //////// double ////////
-  inline friend _dgsmatrix operator*(const     double&, const _dgsmatrix&);
-};
diff --git a/cpplapack-r198/.svn/pristine/98/9864a637fa63790fdb0f6ee7f76c1921bcb22e86.svn-base b/cpplapack-r198/.svn/pristine/98/9864a637fa63790fdb0f6ee7f76c1921bcb22e86.svn-base
deleted file mode 100644
index adf168f..0000000
--- a/cpplapack-r198/.svn/pristine/98/9864a637fa63790fdb0f6ee7f76c1921bcb22e86.svn-base
+++ /dev/null
@@ -1,98 +0,0 @@
-//=============================================================================
-//! (DO NOT USE) Smart-temporary Complex Double-precision Hermitian Sparse Matrix Class
-class _zhsmatrix
-{
-public:
-  ///////////////////////////////////////////////
-  /////////////////// objects ///////////////////
-  ///////////////////////////////////////////////
-  //mutable CPPL_INT const& m; //!< matrix row size
-  CPPL_INT const& m; //!< matrix row size
-  mutable CPPL_INT n; //!< matrix column size
-  mutable std::vector<zcomponent> data; //!< matrix data
-  mutable std::vector< std::vector<CPPL_INT> > line; //!< vector of vector to store the entry information of component for each row and column
-  
-  ///////////////////////////////////////////////
-  ///////////////// constructors ////////////////
-  ///////////////////////////////////////////////
-  inline _zhsmatrix();
-  inline _zhsmatrix(const _zhsmatrix&);
-  inline ~_zhsmatrix(); //destructor
-  
-  ///////////////////////////////////////////////
-  ////////////////// functions //////////////////
-  ///////////////////////////////////////////////
-  //////// cast ////////
-  inline _zgematrix to_zgematrix() const;
-  inline _zhematrix to_zhematrix() const;
-  inline _zgsmatrix to_zgsmatrix() const;
-  
-  //////// io ////////
-  inline comple operator()(const CPPL_INT&, const CPPL_INT&) const;//not return zhecomplex
-  inline friend std::ostream& operator<<(std::ostream&, const _zhsmatrix&);
-  inline void write(const char*) const;
-
-  //////// misc ////////
-  inline void nullify() const;
-  inline void destroy() const;
-  
-  //////// calc ////////
-  inline friend _zhsmatrix t(const zhsmatrix&);
-  inline friend void idamax(CPPL_INT&, CPPL_INT&, const zhsmatrix&);
-  inline friend comple damax(const zhsmatrix&);
-  
-  ///////////////////////////////////////////////
-  ///////////// numerical operators /////////////
-  ///////////////////////////////////////////////
-  //////// unary ////////
-  inline friend const _zhsmatrix& operator+(const _zhsmatrix&);
-  inline friend _zhsmatrix operator-(const _zhsmatrix&);
-  
-  //////// + ////////
-  inline friend _zgematrix operator+(const _zhsmatrix&, const  zgematrix&);
-  inline friend _zgematrix operator+(const _zhsmatrix&, const _zgematrix&);
-  inline friend _zgematrix operator+(const _zhsmatrix&, const  zhematrix&);
-  inline friend _zgematrix operator+(const _zhsmatrix&, const _zhematrix&);
-  inline friend _zgematrix operator+(const _zhsmatrix&, const  zgbmatrix&);
-  inline friend _zgematrix operator+(const _zhsmatrix&, const _zgbmatrix&);
-  inline friend _zgsmatrix operator+(const _zhsmatrix&, const  zgsmatrix&);
-  inline friend _zgsmatrix operator+(const _zhsmatrix&, const _zgsmatrix&);
-  inline friend _zhsmatrix operator+(const _zhsmatrix&, const  zhsmatrix&);
-  inline friend _zhsmatrix operator+(const _zhsmatrix&, const _zhsmatrix&);
-  
-  //////// - ////////
-  inline friend _zgematrix operator-(const _zhsmatrix&, const  zgematrix&);
-  inline friend _zgematrix operator-(const _zhsmatrix&, const _zgematrix&);
-  inline friend _zgematrix operator-(const _zhsmatrix&, const  zhematrix&);
-  inline friend _zgematrix operator-(const _zhsmatrix&, const _zhematrix&);
-  inline friend _zgematrix operator-(const _zhsmatrix&, const  zgbmatrix&);
-  inline friend _zgematrix operator-(const _zhsmatrix&, const _zgbmatrix&);
-  inline friend _zgsmatrix operator-(const _zhsmatrix&, const  zgsmatrix&);
-  inline friend _zgsmatrix operator-(const _zhsmatrix&, const _zgsmatrix&);
-  inline friend _zhsmatrix operator-(const _zhsmatrix&, const  zhsmatrix&);
-  inline friend _zhsmatrix operator-(const _zhsmatrix&, const _zhsmatrix&);
-  
-  //////// * ////////
-  inline friend _zcovector operator*(const _zhsmatrix&, const  zcovector&);
-  inline friend _zcovector operator*(const _zhsmatrix&, const _zcovector&);
-  inline friend _zgematrix operator*(const _zhsmatrix&, const  zgematrix&);
-  inline friend _zgematrix operator*(const _zhsmatrix&, const _zgematrix&);
-  inline friend _zgematrix operator*(const _zhsmatrix&, const  zhematrix&);
-  inline friend _zgematrix operator*(const _zhsmatrix&, const _zhematrix&);
-  inline friend _zgematrix operator*(const _zhsmatrix&, const  zgbmatrix&);
-  inline friend _zgematrix operator*(const _zhsmatrix&, const _zgbmatrix&);
-  inline friend _zgsmatrix operator*(const _zhsmatrix&, const  zgsmatrix&);
-  inline friend _zgsmatrix operator*(const _zhsmatrix&, const _zgsmatrix&);
-  inline friend _zgsmatrix operator*(const _zhsmatrix&, const  zhsmatrix&);
-  inline friend _zgsmatrix operator*(const _zhsmatrix&, const _zhsmatrix&);
-  inline friend _zhsmatrix operator*(const _zhsmatrix&, const     double&);
-  inline friend _zgsmatrix operator*(const _zhsmatrix&, const     comple&);
-  
-  //////// / ////////
-  inline friend _zhsmatrix operator/(const _zhsmatrix&, const     double&);
-  inline friend _zgsmatrix operator/(const _zhsmatrix&, const     comple&);
-  
-  //////// double, complex ////////
-  inline friend _zhsmatrix operator*(const     double&, const _zhsmatrix&);
-  inline friend _zgsmatrix operator*(const     comple&, const _zhsmatrix&);
-};
diff --git a/cpplapack-r198/.svn/pristine/99/9911b81c02552e4587b2b8c505118942d0aa503e.svn-base b/cpplapack-r198/.svn/pristine/99/9911b81c02552e4587b2b8c505118942d0aa503e.svn-base
deleted file mode 100644
index a17771b..0000000
--- a/cpplapack-r198/.svn/pristine/99/9911b81c02552e4587b2b8c505118942d0aa503e.svn-base
+++ /dev/null
@@ -1,77 +0,0 @@
-//=============================================================================
-/*! _zgematrix+_zgbmatrix operator */
-inline _zgematrix operator+(const _zgematrix& matA, const _zgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<matB.m; i++){
-    const CPPL_INT jmax =std::min(matB.n,i+matB.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matB.kl); j<jmax; j++){
-      matA(i,j)+=matB(i,j);
-    }
-  }
-  
-  matB.destroy();
-  return matA;
-}
-
-//=============================================================================
-/*! _zgematrix-_zgbmatrix operator */
-inline _zgematrix operator-(const _zgematrix& matA, const _zgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<matB.m; i++){
-    const CPPL_INT jmax =std::min(matB.n,i+matB.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matB.kl); j<jmax; j++){
-      matA(i,j)-=matB(i,j);
-    }
-  }
-  
-  matB.destroy();
-  return matA;
-}
-
-//=============================================================================
-/*! _zgematrix*_zgbmatrix operator */
-inline _zgematrix operator*(const _zgematrix& matA, const _zgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat( matA.m, matB.n );
-  newmat.zero();
-  
-  for(CPPL_INT i=0; i<newmat.m; i++){
-    for(CPPL_INT j=0; j<newmat.n; j++){
-      const CPPL_INT kmax =std::min(matB.m,j+matB.kl+1);
-      for(CPPL_INT k=std::max(CPPL_INT(0),j-matB.ku); k<kmax; k++){
-        newmat(i,j)+=matA(i,k)*matB(k,j);
-      }
-    }
-  }
-  
-  matA.destroy();
-  matB.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/99/992bb12481a4cb31789713976f7afa9a17efcdcc.svn-base b/cpplapack-r198/.svn/pristine/99/992bb12481a4cb31789713976f7afa9a17efcdcc.svn-base
deleted file mode 100644
index b0d04a6..0000000
--- a/cpplapack-r198/.svn/pristine/99/992bb12481a4cb31789713976f7afa9a17efcdcc.svn-base
+++ /dev/null
@@ -1,82 +0,0 @@
-//=============================================================================
-/*! zgbmatrix+zhematrix operator */
-inline _zgematrix operator+(const zgbmatrix& matA, const zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(matB.n,matB.n);
-  
-  for(CPPL_INT i=0; i<matA.m; i++){
-    for(CPPL_INT j=0; j<matB.n; j++){
-      newmat(i,j) =matB(i,j);
-    }
-    const CPPL_INT jmax =std::min(matA.n,i+matA.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matA.kl); j<jmax; j++){
-      newmat(i,j) += matA(i,j);
-    }
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! zgbmatrix-zhematrix operator */
-inline _zgematrix operator-(const zgbmatrix& matA, const zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(matB.n,matB.n);
-  for(CPPL_INT i=0; i<matA.m; i++){
-    for(CPPL_INT j=0; j<matB.n; j++){
-      newmat(i,j) =-matB(i,j);
-    }
-    const CPPL_INT jmax =std::min(matA.n,i+matA.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matA.kl); j<jmax; j++){
-      newmat(i,j) += matA(i,j);
-    }
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! zgbmatrix*zhematrix operator */
-inline _zgematrix operator*(const zgbmatrix& matA, const zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat( matA.m, matB.n );
-  newmat.zero();
-  
-  for(CPPL_INT i=0; i<newmat.m; i++){
-    for(CPPL_INT j=0; j<newmat.n; j++){
-      const CPPL_INT kmax =std::min(matA.n,i+matA.ku+1);
-      for(CPPL_INT k=std::max(CPPL_INT(0),i-matA.kl); k<kmax; k++){
-        newmat(i,j)+=matA(i,k)*matB(k,j);
-      }
-    }
-  }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/99/9977bdc81d7cf9888b5b251e12bf05d96c0929dc.svn-base b/cpplapack-r198/.svn/pristine/99/9977bdc81d7cf9888b5b251e12bf05d96c0929dc.svn-base
deleted file mode 100644
index f773c7a..0000000
--- a/cpplapack-r198/.svn/pristine/99/9977bdc81d7cf9888b5b251e12bf05d96c0929dc.svn-base
+++ /dev/null
@@ -1,2 +0,0 @@
-#!/bin/sh
-rm -f std err doxygen.log
diff --git a/cpplapack-r198/.svn/pristine/99/99a31026758bba22abe4674534309584489ddcce.svn-base b/cpplapack-r198/.svn/pristine/99/99a31026758bba22abe4674534309584489ddcce.svn-base
deleted file mode 100644
index 1e06034..0000000
--- a/cpplapack-r198/.svn/pristine/99/99a31026758bba22abe4674534309584489ddcce.svn-base
+++ /dev/null
@@ -1,163 +0,0 @@
-//=============================================================================
-/*! dgsmatrix=_dgsmatrix operator */
-inline dgsmatrix& dgsmatrix::operator=(const _dgsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  shallow_copy(mat);
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! dgsmatrix+=_dgsmatrix operator */
-inline dgsmatrix& dgsmatrix::operator+=(const _dgsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.n || m!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << m << "x" << n << ") += (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  const std::vector<dcomponent>::const_iterator mat_data_end =mat.data.end();
-  for(std::vector<dcomponent>::const_iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    (*this)(it->i,it->j) += it->v;
-  }
-  
-  mat.destroy();
-  return *this;
-}
-
-//=============================================================================
-/*! dgsmatrix-=_dgsmatrix operator */
-inline dgsmatrix& dgsmatrix::operator-=(const _dgsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.n || m!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a sutraction." << std::endl
-              << "Your input was (" << m << "x" << n << ") -= (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  const std::vector<dcomponent>::const_iterator mat_data_end =mat.data.end();
-  for(std::vector<dcomponent>::const_iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    (*this)(it->i,it->j) -= it->v;
-  }
-  
-  mat.destroy();
-  return *this;
-}
-
-//=============================================================================
-/*! dgsmatrix*=_dgsmatrix operator */
-inline dgsmatrix& dgsmatrix::operator*=(const _dgsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << m << "x" << n << ") *= (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgsmatrix newmat(m, mat.n);
-  
-  const std::vector<dcomponent>::const_iterator data_end =data.end();
-  for(std::vector<dcomponent>::const_iterator it=data.begin(); it!=data_end; it++){
-    CPPL_INT k =it->j;
-    const std::vector<CPPL_INT>::const_iterator mat_rows_k_end =mat.rows[k].end();
-    for(std::vector<CPPL_INT>::const_iterator p=mat.rows[k].begin(); p!=mat_rows_k_end; p++){
-      newmat(it->i,mat.data[*p].j) += it->v*mat.data[*p].v;
-    }
-  }
-  
-  swap(*this,newmat);
-  mat.destroy();
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! dgsmatrix+_dgsmatrix operator */
-inline _dgsmatrix operator+(const dgsmatrix& matA, const _dgsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  dgsmatrix newmat(matB);
-  
-  const std::vector<dcomponent>::const_iterator matA_data_end =matA.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matA.data.begin(); it!=matA_data_end; it++){
-    newmat(it->i,it->j) += it->v;
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! dgsmatrix-_dgsmatrix operator */
-inline _dgsmatrix operator-(const dgsmatrix& matA, const _dgsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") - (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgsmatrix newmat(matB);
-  newmat.chsign();
-  
-  const std::vector<dcomponent>::const_iterator matA_data_end =matA.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matA.data.begin(); it!=matA_data_end; it++){
-    newmat(it->i,it->j) += it->v;
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! dgsmatrix*_dgsmatrix operator */
-inline _dgsmatrix operator*(const dgsmatrix& matA, const _dgsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgsmatrix newmat(matA.m, matB.n);
-
-  const std::vector<dcomponent>::const_iterator matA_data_end =matA.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matA.data.begin(); it!=matA_data_end; it++){
-    CPPL_INT k =it->j;
-    const std::vector<CPPL_INT>::iterator matB_rows_k_end =matB.rows[k].end();
-    for(std::vector<CPPL_INT>::iterator p=matB.rows[k].begin(); p!=matB_rows_k_end; p++){
-      newmat(it->i,matB.data[*p].j) += it->v*matB.data[*p].v;
-    }
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/9a/9a0b251036fd8d6a9dbeb4f3fb38235e853b9984.svn-base b/cpplapack-r198/.svn/pristine/9a/9a0b251036fd8d6a9dbeb4f3fb38235e853b9984.svn-base
deleted file mode 100644
index fe9cfd0..0000000
--- a/cpplapack-r198/.svn/pristine/9a/9a0b251036fd8d6a9dbeb4f3fb38235e853b9984.svn-base
+++ /dev/null
@@ -1 +0,0 @@
-//// N/A ////
diff --git a/cpplapack-r198/.svn/pristine/9a/9a445007d2f0259a598a77a99de53b5c49f3ab4c.svn-base b/cpplapack-r198/.svn/pristine/9a/9a445007d2f0259a598a77a99de53b5c49f3ab4c.svn-base
deleted file mode 100644
index 1a961c1..0000000
--- a/cpplapack-r198/.svn/pristine/9a/9a445007d2f0259a598a77a99de53b5c49f3ab4c.svn-base
+++ /dev/null
@@ -1,21 +0,0 @@
-//=============================================================================
-/*! nullify all the matrix data */
-inline void _dgbmatrix::nullify() const
-{CPPL_VERBOSE_REPORT;
-  m=0;
-  n=0;
-  kl=0;
-  ku=0;
-  array=NULL;
-  darray=NULL;
-}
-
-//=============================================================================
-/*! destroy all the matrix data */
-inline void _dgbmatrix::destroy() const
-{CPPL_VERBOSE_REPORT;
-  delete [] array;
-  delete [] darray;
-  array=NULL;
-  darray=NULL;
-}
diff --git a/cpplapack-r198/.svn/pristine/9a/9aa3fbd83dd86b3cbbd8efb1ae78c771442372eb.svn-base b/cpplapack-r198/.svn/pristine/9a/9aa3fbd83dd86b3cbbd8efb1ae78c771442372eb.svn-base
deleted file mode 100644
index 84d981d..0000000
--- a/cpplapack-r198/.svn/pristine/9a/9aa3fbd83dd86b3cbbd8efb1ae78c771442372eb.svn-base
+++ /dev/null
@@ -1,35 +0,0 @@
-//=============================================================================
-/*! cast to _zhematrix */
-inline _zhematrix _dsymatrix::to_zhematrix() const
-{CPPL_VERBOSE_REPORT;
-  zhematrix newmat(n);
-  
-  for(CPPL_INT j=0; j<n; j++){
-    for(CPPL_INT i=j; i<n; i++){
-      newmat(i,j) =comple((*this)(i,j),0.0);
-    }
-  }
-  
-  destroy();
-  return _(newmat);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! convert to _dgematrix */
-inline _dgematrix _dsymatrix::to_dgematrix() const
-{CPPL_VERBOSE_REPORT;
-  dgematrix newmat(n,n);
-  
-  for(CPPL_INT i=0; i<n; i++){
-    for(CPPL_INT j=0; j<n; j++){
-      newmat(i,j) =(*this)(i,j);
-    }
-  }
-  
-  destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/9a/9af10718deafa736814f1609ad3ee16cee34caed.svn-base b/cpplapack-r198/.svn/pristine/9a/9af10718deafa736814f1609ad3ee16cee34caed.svn-base
deleted file mode 100644
index 089bff3..0000000
--- a/cpplapack-r198/.svn/pristine/9a/9af10718deafa736814f1609ad3ee16cee34caed.svn-base
+++ /dev/null
@@ -1,95 +0,0 @@
-//=============================================================================
-/*! drovector_small constructor */
-template<CPPL_INT l>
-inline drovector_small<l>::drovector_small()
-{CPPL_VERBOSE_REPORT;
-  ;
-}
-
-//=============================================================================
-/*! drovector_small constructor */
-template<CPPL_INT l>
-inline drovector_small<l>::drovector_small(const drovector& vec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( l!=vec.l ){
-    ERROR_REPORT;
-    std::cerr << "Vector sizes must be the same." << std::endl
-              << "Your input was " << l << " and " << vec.l << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT k=0; k<l; k++){
-    array[k] =vec.array[k];
-  }
-}
-
-//=============================================================================
-/*! drovector_small constructor */
-template<CPPL_INT l>
-inline drovector_small<l>::drovector_small(const double& x, const double& y)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( l!=2 ){
-    ERROR_REPORT;
-    std::cerr << "The vector size must be 2." << std::endl
-              << "The vector size you set was " << l << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG]
-  
-  array[0] =x;
-  array[1] =y;
-}
-
-//=============================================================================
-/*! drovector_small constructor */
-template<CPPL_INT l>
-inline drovector_small<l>::drovector_small(const double& x, const double& y, const double& z)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( l!=3 ){
-    ERROR_REPORT;
-    std::cerr << "The vector size must be 3." << std::endl
-              << "The vector size you set was " << l << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  array[0] =x;
-  array[1] =y;
-  array[2] =z;
-}
-
-//=============================================================================
-/*! drovector_small constructor */
-template<CPPL_INT l>
-inline drovector_small<l>::drovector_small(const double& x, const double& y, const double& z, const double& r)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( l!=4 ){
-    ERROR_REPORT;
-    std::cerr << "The vector size must be 4." << std::endl
-              << "The vector size you set was " << l << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  array[0] =x;
-  array[1] =y;
-  array[2] =z;
-  array[3] =r;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! drovector_small destructor */
-template<CPPL_INT l>
-inline drovector_small<l>::~drovector_small()
-{CPPL_VERBOSE_REPORT;
-  ;
-}
diff --git a/cpplapack-r198/.svn/pristine/9b/9b8bcb63e39b3a89b7d1e7d1ea6a355688d3dd58.svn-base b/cpplapack-r198/.svn/pristine/9b/9b8bcb63e39b3a89b7d1e7d1ea6a355688d3dd58.svn-base
deleted file mode 100644
index 0f4e197..0000000
--- a/cpplapack-r198/.svn/pristine/9b/9b8bcb63e39b3a89b7d1e7d1ea6a355688d3dd58.svn-base
+++ /dev/null
@@ -1,37 +0,0 @@
-#include <cpplapack.h>
-#include <ctime>
-
-//=============================================================================
-inline void ended()
-{
-  system("@pause");
-}
-
-//=============================================================================
-int main(int /*argc*/, char** /*argv*/)
-{
-  //////// to keep the command prompt open ////////
-  atexit(ended);
-  
-  //////// declare A and y ////////
-  const size_t size(3);
-  CPPL::dgematrix A(size,size); //3x3 matrix
-  CPPL::dcovector y(size); //3 column vector
-  
-  //////// set components of A and y at random ////////
-  srand(unsigned(time(NULL)));
-  for(size_t i=0; i<size; i++){
-    for(size_t j=0; j<size; j++){
-      A(i,j) =double(rand())/double(RAND_MAX);
-    }
-    y(i) =double(rand())/double(RAND_MAX);
-  }
-  std::cout << "A=\n" << A << std::endl; //print A
-  std::cout << "y=\n" << y << std::endl; //print y
-  
-  //////// solve A*x=y ////////
-  A.dgesv(y); //call dgesv of LAPACK (y becomes x)
-  std::cout << "x=\n" << y << std::endl; //print x
-  
-  return 0;
-}
diff --git a/cpplapack-r198/.svn/pristine/9b/9b9562c5245bfea69cab9fcabf64d64e00416911.svn-base b/cpplapack-r198/.svn/pristine/9b/9b9562c5245bfea69cab9fcabf64d64e00416911.svn-base
deleted file mode 100644
index 2663d23..0000000
--- a/cpplapack-r198/.svn/pristine/9b/9b9562c5245bfea69cab9fcabf64d64e00416911.svn-base
+++ /dev/null
@@ -1,73 +0,0 @@
-//=============================================================================
-/*! _dgsmatrix+dgematrix operator */
-/*
-inline _dgematrix operator+(const _dgsmatrix& matA, const dgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat(matB);
-  for(CPPL_INT c=0; c<matA.vol; c++){
-    newmat(matA.indx[c],matA.jndx[c]) += matA.array[c];
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
-*/
-//=============================================================================
-/*! _dgsmatrix-dgematrix operator */
-/*
-inline _dgematrix operator-(const _dgsmatrix& matA, const dgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") - (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  dgematrix newmat(-matB);
-  for(CPPL_INT c=0; c<matA.vol; c++){
-    newmat(matA.indx[c],matA.jndx[c]) += matA.array[c];
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
-*/
-//=============================================================================
-/*! _dgsmatrix*dgematrix operator */
-/*
-inline _dgematrix operator*(const _dgsmatrix& matA, const dgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat(matA.m, matB.n);
-  newmat.zero();
-  
-  for(CPPL_INT c=0; c<matA.vol; c++){
-    for(CPPL_INT j=0; j<matB.n; j++){
-      newmat(matA.indx[c],j) += matA.array[c]*matB(matA.jndx[c],j);
-    }
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
-*/
diff --git a/cpplapack-r198/.svn/pristine/9c/9c183e65a0d5dd1bffde0ff1d8822fbea7068d7a.svn-base b/cpplapack-r198/.svn/pristine/9c/9c183e65a0d5dd1bffde0ff1d8822fbea7068d7a.svn-base
deleted file mode 100644
index 695e49e..0000000
--- a/cpplapack-r198/.svn/pristine/9c/9c183e65a0d5dd1bffde0ff1d8822fbea7068d7a.svn-base
+++ /dev/null
@@ -1,60 +0,0 @@
-//=============================================================================
-/*! _zcovector+zcovector operator */
-inline _zcovector operator+(const _zcovector& vecA, const zcovector& vecB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vecA.l!=vecB.l){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make a sumation." << std::endl
-              << "Your input was (" << vecA.l << ") + (" << vecB.l << ")." << std::endl;
-    exit(1);
-  }
-  
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<vecA.l; i++){
-    vecA.array[i] += vecB.array[i];
-  }
-  
-  return vecA;
-}
-
-//=============================================================================
-/*! zcovector-zcovector operator */
-inline _zcovector operator-(const _zcovector& vecA, const zcovector& vecB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vecA.l!=vecB.l){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make a subtraction." << std::endl
-              << "Your input was (" << vecA.l << ") - (" << vecB.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<vecA.l; i++){
-    vecA.array[i] -= vecB.array[i];
-  }
-  
-  return vecA;
-}
-
-//=============================================================================
-/*! zcovector^T*zcovector operator (inner product) */
-inline comple operator%(const _zcovector& vecA, const zcovector& vecB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vecA.l!=vecB.l){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make a dot product." << std::endl
-              << "Your input was (" << vecA.l << ") % (" << vecB.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  CPPL_INT inc =1;
-  comple val =zdotu_( &vecA.l, vecA.array, &inc, vecB.array, &inc );
-  
-  vecA.destroy();
-  return val;
-}
diff --git a/cpplapack-r198/.svn/pristine/9c/9c392daecb43ff6af77173f93774e9f0f0a369e1.svn-base b/cpplapack-r198/.svn/pristine/9c/9c392daecb43ff6af77173f93774e9f0f0a369e1.svn-base
deleted file mode 100644
index c127830..0000000
--- a/cpplapack-r198/.svn/pristine/9c/9c392daecb43ff6af77173f93774e9f0f0a369e1.svn-base
+++ /dev/null
@@ -1,32 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int M(4), N(3);
-  
-  CPPL::zgematrix A(M,N);
-  for(int i=0; i<A.m; i++){ for(int j=0; j<A.n; j++){
-    A(i,j) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-  }}
-  
-  cout << "A =\n" << A << endl;
-  cout << "+A =\n" << +A << endl;
-  cout << "-A =\n" << -A << endl;
-  cout << "A =\n" << A << endl;
-
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/9c/9c5290eabe1af6d890eb96b59e51ad615f8467a5.svn-base b/cpplapack-r198/.svn/pristine/9c/9c5290eabe1af6d890eb96b59e51ad615f8467a5.svn-base
deleted file mode 100644
index 1c0f337..0000000
--- a/cpplapack-r198/.svn/pristine/9c/9c5290eabe1af6d890eb96b59e51ad615f8467a5.svn-base
+++ /dev/null
@@ -1,295 +0,0 @@
-//=============================================================================
-/*! solve A*x=b for real and unsymmetric matrix using DFGMRES of Intel RCI ISS without preconditioning.\n
-  The argument is dcovector b.
-  b is overwritten and become the solution x.
-  A is not overwritten.
-*/
-inline CPPL_INT dgrmatrix::dfgmres(dcovector& b, const double eps) const
-{CPPL_VERBOSE_REPORT;
-#ifndef  __INTEL_COMPILER
-  ERROR_REPORT;
-  std::cerr << "dgrmatrix::dfgmres is only for intel c++ compiler (icpc)." << std::endl;
-  std::cerr << "Recompile your code with icpc to use dfgmres." << std::endl;
-  (void)b;
-  (void)eps;
-  exit(1);
-  
-  
-#else  //__INTEL_COMPILER is defined.
-  //#ifdef  CPPL_DEBUG
-  if(m!=n || m!=b.l){
-    ERROR_REPORT;
-    std::cerr << "These matrix and vector cannot be solved." << std::endl
-              << "Your input was (" << m << "x" << n << ") and (" << b.l << ")." << std::endl;
-    exit(1);
-  }
-  //#endif//CPPL_DEBUG 
-  
-  //////////////// constant ////////////////
-  MKL_INT itmax =1000;
-  MKL_INT n_res =500;//number of iteration before restart
-  MKL_INT N =MKL_INT(n);
-  const dcovector b_orig =b;
-  
-  //////////////// dfgmresinit ////////////////
-  dcovector x =dcovector(N).zero();//initial guess
-  //dcovector x =b;//initial guess
-  MKL_INT RCI_request;
-  MKL_INT ipar[128];
-  double dpar[128];
-  std::vector<double> tmp((2*n_res+1)*N + (n_res*(n_res+9))/2 + 1);
-  DFGMRES_INIT(&N, x.array, b.array, &RCI_request, ipar, dpar, &tmp[0]);
-  if(RCI_request){
-    ERROR_REPORT;
-    std::cerr << "dfgmres_init failed. RCI_request=" << RCI_request << "." << std::endl;
-    exit(1);
-  }
-  
-  //////////////// dfgmres_check ////////////////
-  //////// ipar ////////
-  ipar[7] = 0;//if check iteration count
-  ipar[8] = 0;//if enable residual stopping test
-  ipar[9] = 1;//if enable user defined stopping test
-  ipar[10] = 0;//if enable preconditioner
-  ipar[11] = 1;//if enable check of the norm of the next generated vector automatically
-  ipar[14] = n_res;//number of iteration before restart
-  //////// dpar ////////
-  ////dpar[0] =1e-99;//relative tolerance
-  ////dpar[1] =0.;//absolute tolerance
-  //////// call ////////
-  DFGMRES_CHECK(&N, x.array, b.array, &RCI_request, ipar, dpar, &tmp[0]);
-  if(RCI_request){
-    ERROR_REPORT;
-    std::cerr << "dfgmres_init failed. RCI_request=" << RCI_request << "." << std::endl;
-    exit(1);
-  }
-  
-  //////////////// dfgmres ////////////////
-  char transa ='N';
-  double* A =const_cast<double*>(&a[0]);
-  MKL_INT* IA =const_cast<MKL_INT*>(&ia[0]);
-  MKL_INT* JA =const_cast<MKL_INT*>(&ja[0]);
-  MKL_INT itercount;
-  dcovector x_tmp(N);
-  size_t itc =0;
-  while(1){
-    //// call ////
-    DFGMRES(&N, x.array, b.array, &RCI_request, ipar, dpar, &tmp[0]);
-    
-    //// RCI_request ////
-    if(RCI_request==1){//continue
-      MKL_DCSRGEMV(&transa, &N, A, IA, JA, &tmp[ipar[21]-1], &tmp[ipar[22]-1]);//calc A*v
-      itc++;
-      //std::cerr << "A*v" << std::endl;
-    }
-    else if(RCI_request==2){//convergence check with count check
-      if(itc%100==0){
-        ipar[12] = 1;
-        DFGMRES_GET(&N, x.array, x_tmp.array, &RCI_request, ipar, dpar, &tmp[0], &itercount);
-        double norm_r =fabs(damax(b_orig-(*this)*x_tmp));
-        std::cerr << "itc=" << itc << ": norm_r = " << norm_r << " (eps=" << eps << ")" << std::endl;
-        if(norm_r<eps){
-          std::cerr << "converged (norm_r<eps)" << std::endl;
-          break;
-        }
-        if(itc>=itmax){
-          std::cerr << "failed. (itc>=itmax)" << std::endl;
-          break;
-        }
-      }
-    }
-    else if(RCI_request==0){//converged (ipar[11])
-      std::cerr << "converged (RCI_request=0)" << std::endl;
-      break;
-    }
-    else{//failed
-      WARNING_REPORT;
-      std::cerr << "dfgmres failed. RCI_request=" << RCI_request << "." << std::endl;
-      break;
-    }
-  }
-  //////// info ////////
-  CPPL_INT info =RCI_request;
-  
-  //////////////// dfgmres_get ////////////////
-  ipar[12] =0;
-  DFGMRES_GET(&N, x.array, b.array, &RCI_request, ipar, dpar, &tmp[0], &itercount);
-  
-  //////////////// MKL_Free_Buffers ////////////////
-  MKL_Free_Buffers();
-  
-  //////////////// swap x and b ////////////////
-  swap(x, b);
-  
-  return info;
-#endif //__INTEL_COMPILER
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! solve A*x=b for real and unsymmetric matrix using DFGMRES with ILUT precondition of Intel RCI ISS.\n
-  The argument is dcovector b.
-  b is overwritten and become the solution x.
-  A is not overwritten.
-*/
-inline CPPL_INT dgrmatrix::ilut_dfgmres(dcovector& b, const int maxfil, const double eps) const
-{CPPL_VERBOSE_REPORT;
-#ifndef  __INTEL_COMPILER
-  ERROR_REPORT;
-  std::cerr << "dgrmatrix::ilut_dfgmres is only for intel c++ compiler (icpc)." << std::endl;
-  std::cerr << "Recompile your code with icpc to use ilut_dfgmres." << std::endl;
-  (void)b;
-  (void)maxfil;
-  (void)eps;
-  exit(1);
-  
-  
-#else  //__INTEL_COMPILER is defined.
-  //#ifdef  CPPL_DEBUG
-  if(m!=n || m!=b.l){
-    ERROR_REPORT;
-    std::cerr << "These matrix and vector cannot be solved." << std::endl
-              << "Your input was (" << m << "x" << n << ") and (" << b.l << ")." << std::endl;
-    exit(1);
-  }
-  //#endif//CPPL_DEBUG 
-  
-  //////////////// constants ////////////////
-  MKL_INT itmax =500;
-  MKL_INT n_res =500;//number of iteration before restart
-  //MKL_INT n_res =150;//number of iteration before restart
-  MKL_INT N =MKL_INT(n);
-  MKL_INT MAXFIL =std::min(maxfil, N-1);//limitter for maxfil
-  const dcovector b_orig =b;
-  
-  //////////////// dfgmresinit ////////////////
-  dcovector x =dcovector(b.l).zero();//initial guess
-  //dcovector x =b;//initial guess
-  MKL_INT RCI_request;
-  MKL_INT ipar[128];
-  double dpar[128];
-  std::vector<double> tmp((2*n_res+1)*N + (n_res*(n_res+9))/2 + 1);
-  DFGMRES_INIT(&N, x.array, b.array, &RCI_request, ipar, dpar, &tmp[0]);
-  if(RCI_request){
-    ERROR_REPORT;
-    std::cerr << "dfgmres_init failed. RCI_request=" << RCI_request << "." << std::endl;
-    exit(1);
-  }
-
-  //////////////// dcsrilut ////////////////
-  double* A =const_cast<double*>(&a[0]);
-  MKL_INT* IA =const_cast<MKL_INT*>(&ia[0]);
-  MKL_INT* JA =const_cast<MKL_INT*>(&ja[0]);
-  std::vector<double> bilut((2*MAXFIL+1)*N - MAXFIL*(MAXFIL+1) + 1);
-  std::vector<MKL_INT> ibilut(N+1);
-  std::vector<MKL_INT> jbilut((2*MAXFIL+1)*N - MAXFIL*(MAXFIL+1) + 1);
-  double tol =1e-3;//!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-  //double tol =1e-4;//!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-  //double tol =1e-6;//!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-  MKL_INT ierr;
-  //ipar[30] =0;//dangerrous
-  ipar[30] =1;//!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-  dpar[30] =tol;//!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-  //dpar[30] =1e-99;//!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-  DCSRILUT(&N, A, IA, JA, &bilut[0], &ibilut[0], &jbilut[0], &tol, &MAXFIL, ipar, dpar, &ierr);
-  if(ierr){
-    ERROR_REPORT;
-    std::cerr << "dcsrilut failed. ierr=" << ierr << "." << std::endl;
-    exit(1);
-  }
-  
-  //////////////// dfgmres_check ////////////////
-  //////// ipar ////////
-  ipar[7] = 0;//if check iteration count
-  ipar[8] = 0;//if enable residual stopping test
-  ipar[9] = 1;//if enable user defined stopping test
-  ipar[10] = 1;//if enable preconditioner
-  ipar[11] = 1;//if enable check of the norm of the next generated vector automatically
-  ipar[14] = n_res;//number of iteration before restart
-  //////// dpar ////////
-  ////dpar[0] =1e-1;//relative tolerance
-  ////dpar[1] =eps;//absolute tolerance
-  //////// call ////////
-  DFGMRES_CHECK(&N, x.array, b.array, &RCI_request, ipar, dpar, &tmp[0]);
-  if(RCI_request){
-    ERROR_REPORT;
-    std::cerr << "dfgmres_init failed. RCI_request=" << RCI_request << "." << std::endl;
-    exit(1);
-  }
-  
-  //////////////// dfgmres ////////////////
-  char transa ='N';
-  char uplo1   ='L';
-  char transa1 ='N';
-  char diag1   ='U';
-  char uplo2   ='U';
-  char transa2 ='N';
-  char diag2   ='N';
-  MKL_INT itercount;
-  dcovector x_tmp(N);
-  size_t itc =0;
-  while(1){
-    //// call ////
-    DFGMRES(&N, x.array, b.array, &RCI_request, ipar, dpar, &tmp[0]);
-    
-    //// RCI_request ////
-    if(RCI_request==1){//continue
-      MKL_DCSRGEMV(&transa, &N, A, IA, JA, &tmp[ipar[21]-1], &tmp[ipar[22]-1]);//calc A*v
-      itc++;
-    }
-    else if(RCI_request==3){//precondition
-      MKL_DCSRTRSV(&uplo1, &transa1, &diag1, &N, &bilut[0], &ibilut[0], &jbilut[0], &tmp[ipar[21]-1], x_tmp.array);
-      MKL_DCSRTRSV(&uplo2, &transa2, &diag2, &N, &bilut[0], &ibilut[0], &jbilut[0], x_tmp.array, &tmp[ipar[22]-1]);
-      //std::cout << "preconditioned" << std::endl;
-    }
-    else if(RCI_request==2){//convergence check with count check
-      if(itc%100==0){
-        ipar[12] = 1;
-        DFGMRES_GET(&N, x.array, x_tmp.array, &RCI_request, ipar, dpar, &tmp[0], &itercount);
-        double norm_r =fabs(damax(b_orig-(*this)*x_tmp));
-        std::cerr << "itc=" << itc << ": norm_r = " << norm_r << " (eps=" << eps << ")" << std::endl;
-        if(norm_r<eps){
-          std::cerr << "converged (norm_r<eps)" << std::endl;
-          break;
-        }
-        if(itc>=itmax){
-          std::cerr << "failed. (itc>=itmax)" << std::endl;
-          break;
-        }
-      }
-    }
-    else if(RCI_request==0){//converged (ipar[11])
-      std::cerr << "converged (RCI_request=0)" << std::endl;
-      break;
-    }
-    else{//failed
-      WARNING_REPORT;
-      std::cerr << "dfgmres failed. RCI_request=" << RCI_request << "." << std::endl;
-      break;
-    }
-  }
-  //////// info ////////
-  CPPL_INT info =RCI_request;
-  
-  //////////////// dfgmres_get ////////////////
-  ipar[12] =0;
-  DFGMRES_GET(&N, x.array, b.array, &RCI_request, ipar, dpar, &tmp[0], &itercount);
-  
-  //////////////// MKL_Free_Buffers ////////////////
-  MKL_Free_Buffers();
-  
-  //////////////// swap x and b ////////////////
-  swap(x, b);
-  
-  return info;
-#endif //__INTEL_COMPILER
-}
diff --git a/cpplapack-r198/.svn/pristine/9c/9c73100e3a6953bb50f6a9254ae37c02d1a064be.svn-base b/cpplapack-r198/.svn/pristine/9c/9c73100e3a6953bb50f6a9254ae37c02d1a064be.svn-base
deleted file mode 100644
index b72f482..0000000
--- a/cpplapack-r198/.svn/pristine/9c/9c73100e3a6953bb50f6a9254ae37c02d1a064be.svn-base
+++ /dev/null
@@ -1,54 +0,0 @@
-//=============================================================================
-/*! zgsmatrix*=double operator */
-inline zgsmatrix& zgsmatrix::operator*=(const double& d)
-{CPPL_VERBOSE_REPORT;
-  const std::vector<zcomponent>::iterator data_end =data.end();
-  for(std::vector<zcomponent>::iterator it=data.begin(); it!=data_end; it++){
-    it->v *=d;
-  }
-  
-  return *this;
-}
-
-//=============================================================================
-/*! zgsmatrix/=double operator */
-inline zgsmatrix& zgsmatrix::operator/=(const double& d)
-{CPPL_VERBOSE_REPORT;
-  const std::vector<zcomponent>::iterator data_end =data.end();
-  for(std::vector<zcomponent>::iterator it=data.begin(); it!=data_end; it++){
-    it->v /=d;
-  }
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zgsmatrix*double operator */
-inline _zgsmatrix operator*(const zgsmatrix& mat, const double& d)
-{CPPL_VERBOSE_REPORT;
-  zgsmatrix newmat(mat);
-  
-  const std::vector<zcomponent>::iterator newmat_data_end =newmat.data.end();
-  for(std::vector<zcomponent>::iterator it=newmat.data.begin(); it!=newmat_data_end; it++){
-    it->v *=d;
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! zgsmatrix/double operator */
-inline _zgsmatrix operator/(const zgsmatrix& mat, const double& d)
-{CPPL_VERBOSE_REPORT;
-  zgsmatrix newmat(mat);
-  
-  const std::vector<zcomponent>::iterator newmat_data_end =newmat.data.end();
-  for(std::vector<zcomponent>::iterator it=newmat.data.begin(); it!=newmat_data_end; it++){
-    it->v /=d;
-  }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/9c/9c944d8e5a962ab9c0ab94691ec5af4de718650f.svn-base b/cpplapack-r198/.svn/pristine/9c/9c944d8e5a962ab9c0ab94691ec5af4de718650f.svn-base
deleted file mode 100644
index 94040ad..0000000
--- a/cpplapack-r198/.svn/pristine/9c/9c944d8e5a962ab9c0ab94691ec5af4de718650f.svn-base
+++ /dev/null
@@ -1,59 +0,0 @@
-//=============================================================================
-/*! _dcovector+_dcovector operator */
-inline _dcovector operator+(const _dcovector& vecA, const _dcovector& vecB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vecA.l!=vecB.l){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make a sumation." << std::endl
-              << "Your input was (" << vecA.l << ") + (" << vecB.l << ")." << std::endl;
-    exit(1);
-  }
-  
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<vecA.l; i++){ vecA.array[i]+=vecB.array[i]; }
-  
-  vecB.destroy();
-  return vecA;
-}
-
-//=============================================================================
-/*! _dcovector-_dcovector operator */
-inline _dcovector operator-(const _dcovector& vecA, const _dcovector& vecB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vecA.l!=vecB.l){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make a subtraction." << std::endl
-              << "Your input was (" << vecA.l << ") - (" << vecB.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<vecA.l; i++){ vecA.array[i]-=vecB.array[i]; }
-  
-  vecB.destroy();
-  return vecA;
-}
-
-//=============================================================================
-/*! _dcovector^T*_dcovector operator (inner product) */
-inline double operator%(const _dcovector& vecA, const _dcovector& vecB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vecA.l!=vecB.l){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make a dot product." << std::endl
-              << "Your input was (" << vecA.l << ") % (" << vecB.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  CPPL_INT inc =1;
-  
-  double val =ddot_( &vecA.l, vecA.array, &inc, vecB.array, &inc );
-  
-  vecA.destroy();
-  vecB.destroy();
-  return val;
-}
diff --git a/cpplapack-r198/.svn/pristine/9e/9e62e8a83c71913099aeb128b02ed14a2785fb2f.svn-base b/cpplapack-r198/.svn/pristine/9e/9e62e8a83c71913099aeb128b02ed14a2785fb2f.svn-base
deleted file mode 100644
index 77dbe58..0000000
--- a/cpplapack-r198/.svn/pristine/9e/9e62e8a83c71913099aeb128b02ed14a2785fb2f.svn-base
+++ /dev/null
@@ -1,35 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int M(4), N(3);
-  
-  CPPL::dgematrix A(M,N);
-  CPPL::dcovector x(N);
-  for(int i=0; i<A.m; i++){ for(int j=0; j<A.n; j++){
-	A(i,j) =double( rand() /(RAND_MAX/10) );
-  }}
-  for(int i=0; i<x.l; i++){
-	x(i) =double( rand() /(RAND_MAX/10) );
-  }
-  
-  cout << "A =\n" << A << endl;
-  cout << "x =\n" << x << endl;
-  cout << "A*x =\n" << A*x << endl;
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/9e/9e99463e275477f2e2adbc055d6702c2bde4c04b.svn-base b/cpplapack-r198/.svn/pristine/9e/9e99463e275477f2e2adbc055d6702c2bde4c04b.svn-base
deleted file mode 100644
index 9dbe4d2..0000000
--- a/cpplapack-r198/.svn/pristine/9e/9e99463e275477f2e2adbc055d6702c2bde4c04b.svn-base
+++ /dev/null
@@ -1,38 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int N(3), M(4);
-  
-  CPPL::drovector x(M), y;
-  CPPL::dgematrix A(M,N);
-  for(int i=0; i<x.l; i++){
-    x(i) =double( rand() /(RAND_MAX/10) );
-  }
-  for(int i=0; i<A.m; i++){ for(int j=0; j<A.n; j++){
-    A(i,j) =double( rand() /(RAND_MAX/10) );
-  }}
-  
-  cout << "x =\n" << x << endl;
-  cout << "A =\n" << A << endl;
-  
-  cout << "#### y=x*A; ####" << endl;
-  y=x*A;
-  cout << "y =\n" << y << endl;
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/9e/9ebac4022aa94f87cc3559d06ac0a1195fdde7a1.svn-base b/cpplapack-r198/.svn/pristine/9e/9ebac4022aa94f87cc3559d06ac0a1195fdde7a1.svn-base
deleted file mode 100644
index 5057abc..0000000
--- a/cpplapack-r198/.svn/pristine/9e/9ebac4022aa94f87cc3559d06ac0a1195fdde7a1.svn-base
+++ /dev/null
@@ -1,27 +0,0 @@
-//=============================================================================
-/*! dssmatrix*_dcovector operator */
-inline _dcovector operator*(const dssmatrix& mat, const _dcovector& vec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(mat.n!=vec.l){
-    ERROR_REPORT;
-    std::cerr << "These matrix and vector can not make a product." << std::endl
-              << "Your input was (" << mat.n << "x" << mat.n << ") * (" << vec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dcovector newvec(dcovector(mat.n));
-  newvec.zero();
-  
-  const std::vector<dcomponent>::const_iterator mat_data_end =mat.data.end();
-  for(std::vector<dcomponent>::const_iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    newvec(it->i) +=it->v*vec(it->j);
-    if(it->i!=it->j){
-      newvec(it->j) +=it->v*vec(it->i);
-    }
-  }
-  
-  vec.destroy();
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/9e/9ee3eada55f0a4563ca5b6a2125ca9e8683a26ac.svn-base b/cpplapack-r198/.svn/pristine/9e/9ee3eada55f0a4563ca5b6a2125ca9e8683a26ac.svn-base
deleted file mode 100644
index 6fd457e..0000000
--- a/cpplapack-r198/.svn/pristine/9e/9ee3eada55f0a4563ca5b6a2125ca9e8683a26ac.svn-base
+++ /dev/null
@@ -1,41 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int M(4), N(3);
-  
-  CPPL::dsymatrix A(N), B(N);
-  CPPL::dcovector x(N), y(N);
-  for(int i=0; i<A.n; i++){ for(int j=0; j<=i; j++){
-    A(i,j) =double( rand() /(RAND_MAX/10) );
-    B(i,j) =double( rand() /(RAND_MAX/10) );
-  }}
-  for(int i=0; i<x.l; i++){
-    x(i) =double( rand() /(RAND_MAX/10) );
-    y(i) =double( rand() /(RAND_MAX/10) );
-  }
-  CPPL::dcovector z(x+y);
-  
-  cout << "A*z-A*x-A*y =\n" << A*z-A*x-A*y << "<-Should be zero." << endl;
-  cout << "A*z-A*(x+y) =\n" << A*z-A*(x+y) << "<-Should be zero." << endl;
-  cout << "(A+B)*x-A*x-B*x =\n" << (A+B)*x-A*x-B*x
-       << "<-Should be zero." << endl;
-  cout << "(A-B)*(x-y)-A*x+A*y+B*x-B*y =\n" << (A-B)*(x-y)-A*x+A*y+B*x-B*y
-       << "<-Should be zero." << endl;
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/9f/9f120d20a39fd78853d922fdf6c2deda0e480dfe.svn-base b/cpplapack-r198/.svn/pristine/9f/9f120d20a39fd78853d922fdf6c2deda0e480dfe.svn-base
deleted file mode 100644
index 4e34d73..0000000
--- a/cpplapack-r198/.svn/pristine/9f/9f120d20a39fd78853d922fdf6c2deda0e480dfe.svn-base
+++ /dev/null
@@ -1,96 +0,0 @@
-//=============================================================================
-//! (DO NOT USE) Smart-temporary Complex Double-precision Hermitian Matrix Class
-class _zhematrix
-{
-public:
-  ///////////////////////////////////////////////
-  /////////////////// objects ///////////////////
-  ///////////////////////////////////////////////
-  //mutable CPPL_INT const& m;//!< matrix row and size
-  CPPL_INT const& m;//!< matrix row and size
-  mutable CPPL_INT n; //!< matrix column size
-  mutable comple* array; //!< 1D array to store matrix data
-  mutable comple** darray; //!< array of pointers of column head addresses
-  
-  ///////////////////////////////////////////////
-  ///////////////// constructors ////////////////
-  ///////////////////////////////////////////////
-  inline _zhematrix();
-  inline _zhematrix(const _zhematrix&);
-  inline ~_zhematrix(); //destructor
-  
-  ///////////////////////////////////////////////
-  ////////////////// functions //////////////////
-  ///////////////////////////////////////////////
-  //////// cast ////////
-  inline _zgematrix to_zgematrix() const;
-  
-  //////// io ////////
-  inline zhecomplex operator()(const CPPL_INT&, const CPPL_INT&) const;
-  inline friend std::ostream& operator<<(std::ostream&, const zhematrix&);
-  inline void write(const char*) const;
-  
-  //////// misc ////////
-  inline void nullify() const;
-  inline void destroy() const;
-  inline void complete() const;
-  
-  //////// calc ////////
-  inline friend _zhematrix t(const _zhematrix&);
-  inline friend _zgematrix i(const _zhematrix&);
-  
-  ///////////////////////////////////////////////
-  ///////////// numerical operators /////////////
-  ///////////////////////////////////////////////
-  //////// unary ////////
-  inline friend const _zhematrix& operator+(const _zhematrix&);
-  inline friend _zhematrix operator-(const _zhematrix&);
-  
-  //////// + ////////
-  inline friend _zgematrix operator+(const _zhematrix&, const  zgematrix&);
-  inline friend _zgematrix operator+(const _zhematrix&, const _zgematrix&);
-  inline friend _zhematrix operator+(const _zhematrix&, const  zhematrix&);
-  inline friend _zhematrix operator+(const _zhematrix&, const _zhematrix&);
-  inline friend _zgematrix operator+(const _zhematrix&, const  zgbmatrix&);
-  inline friend _zgematrix operator+(const _zhematrix&, const _zgbmatrix&);
-  inline friend _zgematrix operator+(const _zhematrix&, const  zgsmatrix&);
-  inline friend _zgematrix operator+(const _zhematrix&, const _zgsmatrix&);
-  inline friend _zhematrix operator+(const _zhematrix&, const  zhsmatrix&);
-  inline friend _zhematrix operator+(const _zhematrix&, const _zhsmatrix&);
-  
-  //////// - ////////
-  inline friend _zgematrix operator-(const _zhematrix&, const  zgematrix&);  
-  inline friend _zgematrix operator-(const _zhematrix&, const _zgematrix&);
-  inline friend _zhematrix operator-(const _zhematrix&, const  zhematrix&);
-  inline friend _zhematrix operator-(const _zhematrix&, const _zhematrix&);
-  inline friend _zgematrix operator-(const _zhematrix&, const  zgbmatrix&);  
-  inline friend _zgematrix operator-(const _zhematrix&, const _zgbmatrix&);
-  inline friend _zgematrix operator-(const _zhematrix&, const  zgsmatrix&);
-  inline friend _zgematrix operator-(const _zhematrix&, const _zgsmatrix&);
-  inline friend _zhematrix operator-(const _zhematrix&, const  zhsmatrix&);
-  inline friend _zhematrix operator-(const _zhematrix&, const _zhsmatrix&);
-  
-  //////// * ////////
-  inline friend _zcovector operator*(const _zhematrix&, const  zcovector&);
-  inline friend _zcovector operator*(const _zhematrix&, const _zcovector&);
-  inline friend _zgematrix operator*(const _zhematrix&, const  zgematrix&);
-  inline friend _zgematrix operator*(const _zhematrix&, const _zgematrix&);
-  inline friend _zgematrix operator*(const _zhematrix&, const  zhematrix&);
-  inline friend _zgematrix operator*(const _zhematrix&, const _zhematrix&);
-  inline friend _zgematrix operator*(const _zhematrix&, const  zgbmatrix&);
-  inline friend _zgematrix operator*(const _zhematrix&, const _zgbmatrix&);
-  inline friend _zgematrix operator*(const _zhematrix&, const  zgsmatrix&);
-  inline friend _zgematrix operator*(const _zhematrix&, const _zgsmatrix&);
-  inline friend _zgematrix operator*(const _zhematrix&, const  zhsmatrix&);
-  inline friend _zgematrix operator*(const _zhematrix&, const _zhsmatrix&);
-  inline friend _zhematrix operator*(const _zhematrix&, const     double&);
-  inline friend _zgematrix operator*(const _zhematrix&, const     comple&);
-  
-  //////// / ////////
-  inline friend _zhematrix operator/(const _zhematrix&, const     double&);
-  inline friend _zgematrix operator/(const _zhematrix&, const     comple&);
-  
-  //////// double, complex ////////
-  inline friend _zhematrix operator*(const     double&, const _zhematrix&);
-  inline friend _zgematrix operator*(const     comple&, const _zhematrix&);
-};
diff --git a/cpplapack-r198/.svn/pristine/9f/9f53fb1ab4d5d1824efdfca0603ea076f8de4cd3.svn-base b/cpplapack-r198/.svn/pristine/9f/9f53fb1ab4d5d1824efdfca0603ea076f8de4cd3.svn-base
deleted file mode 100644
index c6cacb9..0000000
--- a/cpplapack-r198/.svn/pristine/9f/9f53fb1ab4d5d1824efdfca0603ea076f8de4cd3.svn-base
+++ /dev/null
@@ -1,69 +0,0 @@
-//=============================================================================
-/*! return a transposed column vector */
-inline _zcovector t(const _zrovector& rovec)
-{CPPL_VERBOSE_REPORT;
-  _zcovector covec;
-  covec.l =rovec.l;
-  delete [] covec.array;
-  covec.array =rovec.array;
-  
-  return covec;
-}
-
-//=============================================================================
-/*! return its conjugated vector */
-inline _zrovector conj(const _zrovector& vec)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<vec.l; i++){
-    vec(i) =std::conj(vec(i));
-  }
-  return vec;
-}
-
-//=============================================================================
-/*! return a conjugate transposed column vector */
-inline _zcovector conjt(const _zrovector& rovec)
-{CPPL_VERBOSE_REPORT;
-  zcovector covec(rovec.l);
-  for(CPPL_INT i=0; i<rovec.l; i++){
-    covec(i) =std::conj(rovec(i));
-  }
-  
-  rovec.destroy();
-  return _(covec);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! return its Euclidean norm */
-inline double nrm2(const _zrovector& vec)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT inc =1;
-  double val =dznrm2_(&vec.l, vec.array, &inc);
-  vec.destroy();
-  return val;
-}
-
-//=============================================================================
-/*! return the index of element having the largest absolute value
-  in 0-based numbering system */
-inline CPPL_INT idamax(const _zrovector& vec)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT inc =1;
-  CPPL_INT i =izamax_(&vec.l, vec.array, &inc) -1;
-  vec.destroy();
-  return i;
-}
-
-//=============================================================================
-/*! return its largest absolute value */
-inline comple damax(const _zrovector& vec)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT inc =1;
-  comple val =vec.array[izamax_(&vec.l, vec.array, &inc) -1];
-  vec.destroy();
-  return val;
-}
diff --git a/cpplapack-r198/.svn/pristine/9f/9fe333424401b9d028d8deb3c213d703af54cb93.svn-base b/cpplapack-r198/.svn/pristine/9f/9fe333424401b9d028d8deb3c213d703af54cb93.svn-base
deleted file mode 100644
index f7620ad..0000000
--- a/cpplapack-r198/.svn/pristine/9f/9fe333424401b9d028d8deb3c213d703af54cb93.svn-base
+++ /dev/null
@@ -1,37 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int M(5), N(3), CAP(4);
-  
-  CPPL::zgsmatrix A(M,N,CAP);
-  A.put(0,0, complex<double>(1.,2.) );
-  A.put(3,2, complex<double>(3.,4.) );
-  A.put(1,2, complex<double>(5.,6.) );
-  A.put(4,1, complex<double>(7.,8.) );
-  cout << "A =\n" << A << endl;
-  
-  CPPL::zcovector x(N);
-  x(0)=complex<double>(1,1);
-  x(1)=complex<double>(2,2);
-  x(2)=complex<double>(3,3);
-  cout << "x =\n" << x << endl;
-  
-  cout << "A*x =\n" << A*x << endl;
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/a0/a05135aa9e12cf42f1f7e1467d20c2b111b080b8.svn-base b/cpplapack-r198/.svn/pristine/a0/a05135aa9e12cf42f1f7e1467d20c2b111b080b8.svn-base
deleted file mode 100644
index b414e8f..0000000
--- a/cpplapack-r198/.svn/pristine/a0/a05135aa9e12cf42f1f7e1467d20c2b111b080b8.svn-base
+++ /dev/null
@@ -1,28 +0,0 @@
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-#include "zhesv_check.hpp"
-#include "zheev_check.hpp"
-//#include "zhegv_check.hpp"
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  zhesv_check_vector();
-  zhesv_check_matrix();
-  
-  zheev_check_value();
-  zheev_check_right();
-  zheev_check_left();
-  
-  //zhegv_check_value();
-  //zhegv_check_right();
-  //zhegv_check_left();
-  
-  return 0;
-}
diff --git a/cpplapack-r198/.svn/pristine/a0/a0f373803fc14115d477ca08cab9ea4730e81d01.svn-base b/cpplapack-r198/.svn/pristine/a0/a0f373803fc14115d477ca08cab9ea4730e81d01.svn-base
deleted file mode 100644
index 1fadb42..0000000
--- a/cpplapack-r198/.svn/pristine/a0/a0f373803fc14115d477ca08cab9ea4730e81d01.svn-base
+++ /dev/null
@@ -1,82 +0,0 @@
-//=============================================================================
-/*! _dgsmatrix+_dgbmatrix operator */
-inline _dgematrix operator+(const _dgsmatrix& matA, const _dgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat( matA.to_dgematrix() );
-  
-  for(CPPL_INT i=0; i<matB.m; i++){
-    const CPPL_INT jmax =std::min(matB.n,i+matB.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matB.kl); j<jmax; j++){
-      newmat(i,j)+=matB(i,j);
-    }
-  }
-  
-  matA.destroy();
-  matB.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _dgsmatrix-_dgbmatrix operator */
-inline _dgematrix operator-(const _dgsmatrix& matA, const _dgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat( matA.to_dgematrix() );
-  
-  for(CPPL_INT i=0; i<matB.m; i++){
-    const CPPL_INT jmax =std::min(matB.n,i+matB.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matB.kl); j<jmax; j++){
-      newmat(i,j)-=matB(i,j);
-    }
-  }
-  
-  matA.destroy();
-  matB.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _dgsmatrix*_dgbmatrix operator */
-inline _dgematrix operator*(const _dgsmatrix& matA, const _dgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat( matA.m, matB.n );
-  newmat.zero();
-  
-  const std::vector<dcomponent>::const_iterator matA_data_end =matA.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matA.data.begin(); it!=matA_data_end; it++){
-    const CPPL_INT jmax =std::min(matB.n,it->j+matB.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),it->j-matB.kl); j<jmax; j++){
-      newmat(it->i,j) += it->v*matB(it->j,j);
-    }
-  }
-  
-  matA.destroy();
-  matB.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/a1/a1e90765fb4015b47e04f58596e22f829e915726.svn-base b/cpplapack-r198/.svn/pristine/a1/a1e90765fb4015b47e04f58596e22f829e915726.svn-base
deleted file mode 100644
index 76b6d93..0000000
--- a/cpplapack-r198/.svn/pristine/a1/a1e90765fb4015b47e04f58596e22f829e915726.svn-base
+++ /dev/null
@@ -1,106 +0,0 @@
-//=============================================================================
-/*! zgels_check */
-void zgels_check_vector()
-{
-  cout << "############ check zgels vector ############" << endl;
-  
-  srand(unsigned(time(NULL)));
-  int M(3), N(2);
-  
-  //// make zgematrix A  ////
-  CPPL::zgematrix A(M,N);
-  for(int i=0; i<A.m; i++){ for(int j=0; j<A.n; j++){
-    A(i,j) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-  }}
-  
-  //// make zcovector y  ////
-  CPPL::zcovector y(M);
-  for(int i=0; i<y.l; i++){
-    y(i) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-  }
-  
-  //// make originals ////
-  CPPL::zgematrix A_original(A);
-  CPPL::zcovector y_original(y);
-  
-  //// zgels ////
-  A.zgels(y);
-  
-  //// print ////
-  cout << "######## zgels(vec) ########" << endl;
-  cout << "A_original=\n" << A_original << endl;
-  cout << "y_original=\n" << y_original << endl;
-  cout << "A=\n" << A << endl;
-  cout << "y=\n" << y << endl;
-  cout << "A_original*y=\n" << A_original*y << endl;
-  
-  //// reset ////
-  A =A_original;
-  y =y_original;
-  double r; //residual square
-  
-  //// zgels ////
-  A.zgels(y,r);
-  
-  //// print ////
-  cout << "######## zgels(vec, residual) ########" << endl;
-  cout << "A_original=\n" << A_original << endl;
-  cout << "y_original=\n" << y_original << endl;
-  cout << "A=\n" << A << endl;
-  cout << "y=\n" << y << endl;
-  cout << "residual=" << r << endl;
-  cout << "A_original*y=\n" << A_original*y << endl;
-}
-
-//==============================================================================
-void zgels_check_matrix()
-{
-  cout << "############ check zgels matrix ############" << endl;
-  
-  srand(unsigned(time(NULL)));
-  int M(3), N(2);
-  
-  //// make zgematrix A  ////
-  CPPL::zgematrix A(M,N);
-  for(int i=0; i<A.m; i++){ for(int j=0; j<A.n; j++){
-    A(i,j) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-  }}
-
-  //// make zgematrix Y  ////
-  CPPL::zgematrix Y(M,M);
-  for(int i=0; i<Y.m; i++){ for(int j=0; j<Y.n; j++){
-    Y(i,j) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-  }}
-   
-  //// make originals ////
-  CPPL::zgematrix A_original(A);
-  CPPL::zgematrix Y_original(Y);
-  
-  //// zgels ////
-  A.zgels(Y);
-  
-  //// print ////
-  cout << "######## zgels(mat) ########" << endl;
-  cout << "A_original=\n" << A_original << endl;
-  cout << "Y_original=\n" << Y_original << endl;
-  cout << "A=\n" << A << endl;
-  cout << "Y=\n" << Y << endl;
-  cout << "A_original*Y=\n" << A_original*Y << endl;
-  
-  //// reset ////
-  A =A_original;
-  Y =Y_original;
-  CPPL::drovector R; //residual square
-  
-  //// zgels ////
-  A.zgels(Y,R);
-  
-  //// print ////
-  cout << "######## zgels(mat, residual) ########" << endl;
-  cout << "A_original=\n" << A_original << endl;
-  cout << "Y_original=\n" << Y_original << endl;
-  cout << "A=\n" << A << endl;
-  cout << "Y=\n" << Y << endl;
-  cout << "residual=" << R << endl;
-  cout << "A_original*Y=\n" << A_original*Y << endl;  
-}
diff --git a/cpplapack-r198/.svn/pristine/a2/a250ce3d33d671866e1ffbe7837c9d9af151e4af.svn-base b/cpplapack-r198/.svn/pristine/a2/a250ce3d33d671866e1ffbe7837c9d9af151e4af.svn-base
deleted file mode 100644
index c2295cc..0000000
--- a/cpplapack-r198/.svn/pristine/a2/a250ce3d33d671866e1ffbe7837c9d9af151e4af.svn-base
+++ /dev/null
@@ -1,46 +0,0 @@
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int L(4);
-  
-  //// make zcovector x ////
-  CPPL::zcovector x(L);
-  for(int i=0; i<x.l; i++){
-    x(i) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-  }
-  
-  //// print x in two ways ////
-  cout << "x =\n" << x << endl;
-  for(int i=0; i<x.l; i++){
-    cout << "x(" << i << ") =" << x(i) << endl;
-  }
-  
-  //// make zcovector y ////
-  CPPL::zcovector y(x);
-  
-  //// print y in two ways ////
-  cout << "y =\n" << y << endl;
-  for(int i=0; i<y.l; i++){
-    cout << "y(" << i << ") =" << y(i) << endl;
-  }
-  
-  //// print x+y ////
-  cout << "x+y=\n" << x+y << endl;
-  
-  //// write/read ////
-  x.write( "tmp.txt" );
-  CPPL::zcovector z;
-  z.read( "tmp.txt" );
-  cout << "z-x =\n" << z-x << "<-Should be zero." << endl;
-
-  return 0;
-}
diff --git a/cpplapack-r198/.svn/pristine/a2/a2de093a81d273df1b9b25d1260cf2d30310880c.svn-base b/cpplapack-r198/.svn/pristine/a2/a2de093a81d273df1b9b25d1260cf2d30310880c.svn-base
deleted file mode 100644
index 2c7f5c0..0000000
--- a/cpplapack-r198/.svn/pristine/a2/a2de093a81d273df1b9b25d1260cf2d30310880c.svn-base
+++ /dev/null
@@ -1,3 +0,0 @@
-#!/bin/sh
-rm -f std err doxygen.log
-rm -rf html
diff --git a/cpplapack-r198/.svn/pristine/a3/a3618a61babb8929a13941ca942a28a94439c137.svn-base b/cpplapack-r198/.svn/pristine/a3/a3618a61babb8929a13941ca942a28a94439c137.svn-base
deleted file mode 100644
index 35ec1c0..0000000
--- a/cpplapack-r198/.svn/pristine/a3/a3618a61babb8929a13941ca942a28a94439c137.svn-base
+++ /dev/null
@@ -1,20 +0,0 @@
-//=============================================================================
-/*! +zgsmatrix operator */
-inline const zgsmatrix& operator+(const zgsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  return mat;
-}
-
-//=============================================================================
-/*! -zgsmatrix operator */
-inline _zgsmatrix operator-(const zgsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  zgsmatrix newmat(mat);
-  
-  const std::vector<zcomponent>::iterator newmat_data_end =newmat.data.end();
-  for(std::vector<zcomponent>::iterator it=newmat.data.begin(); it!=newmat_data_end; it++){
-    it->v =-it->v;
-  }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/a3/a37bb7a8b63f1dcdf3e43a2bf9e2b2d7792468cb.svn-base b/cpplapack-r198/.svn/pristine/a3/a37bb7a8b63f1dcdf3e43a2bf9e2b2d7792468cb.svn-base
deleted file mode 100644
index ef8c594..0000000
--- a/cpplapack-r198/.svn/pristine/a3/a37bb7a8b63f1dcdf3e43a2bf9e2b2d7792468cb.svn-base
+++ /dev/null
@@ -1,25 +0,0 @@
-//=============================================================================
-/*! _dsymatrix*_dcovector operator */
-inline _dcovector operator*(const _dsymatrix& mat, const _dcovector& vec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(mat.n!=vec.l){
-    ERROR_REPORT;
-    std::cerr << "These matrix and vector can not make a product." << std::endl
-              << "Your input was (" << mat.n << "x" << mat.n << ") * (" << vec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dcovector newvec(mat.n);
-  char uplo ='l';
-  double alpha =1.;
-  CPPL_INT inc =1;
-  double beta =0.;
-  
-  dsymv_( &uplo, &mat.n, &alpha, mat.array, &mat.n, vec.array, &inc, &beta, newvec.array, &inc );
-  
-  mat.destroy();
-  vec.destroy();
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/a4/a459e40eda30cb7a21ed1802afb12c64d1bc6943.svn-base b/cpplapack-r198/.svn/pristine/a4/a459e40eda30cb7a21ed1802afb12c64d1bc6943.svn-base
deleted file mode 100644
index e70e78e..0000000
--- a/cpplapack-r198/.svn/pristine/a4/a459e40eda30cb7a21ed1802afb12c64d1bc6943.svn-base
+++ /dev/null
@@ -1,16 +0,0 @@
-//=============================================================================
-/*! nullify all the vector data */
-inline void _drovector::nullify() const
-{CPPL_VERBOSE_REPORT;
-  l=0;
-  cap=0;
-  array=NULL;
-}
-
-//=============================================================================
-/*! destroy all the vector data */
-inline void _drovector::destroy() const
-{CPPL_VERBOSE_REPORT;
-  delete [] array;
-  array=NULL;
-}
diff --git a/cpplapack-r198/.svn/pristine/a4/a45ca659f1a287ce1b8f2199247cbd101a80997d.svn-base b/cpplapack-r198/.svn/pristine/a4/a45ca659f1a287ce1b8f2199247cbd101a80997d.svn-base
deleted file mode 100644
index 9d2638a..0000000
--- a/cpplapack-r198/.svn/pristine/a4/a45ca659f1a287ce1b8f2199247cbd101a80997d.svn-base
+++ /dev/null
@@ -1,26 +0,0 @@
-//=============================================================================
-/*! _zrovector*_zgbmatrix operator */
-inline _zrovector operator*(const _zrovector& vec, const _zgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vec.l!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These vector and matrix can not make a product." << std::endl
-              << "Your input was (" << vec.l << ") * (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zrovector newvec(mat.n);
-  char trans ='T';
-  comple alpha =comple(1.,0.);
-  CPPL_INT lda =mat.kl+mat.ku+1;
-  CPPL_INT inc =1;
-  comple beta =comple(0.,0.);
-  
-  zgbmv_( &trans, &mat.m, &mat.n, &mat.kl, &mat.ku, &alpha, mat.array, &lda, vec.array, &inc, &beta, newvec.array, &inc );
-  
-  vec.destroy();
-  mat.destroy();
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/a4/a47948470a332439f2cd30d33f589f37833f2815.svn-base b/cpplapack-r198/.svn/pristine/a4/a47948470a332439f2cd30d33f589f37833f2815.svn-base
deleted file mode 100644
index 797e89e..0000000
--- a/cpplapack-r198/.svn/pristine/a4/a47948470a332439f2cd30d33f589f37833f2815.svn-base
+++ /dev/null
@@ -1,24 +0,0 @@
-//=============================================================================
-/*! zgbmatrix*zcovector operator */
-inline _zcovector operator*(const zgbmatrix& mat, const zcovector& vec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(mat.n!=vec.l){
-    ERROR_REPORT;
-    std::cerr << "These matrix and vector can not make a product." << std::endl
-              << "Your input was (" << mat.m << "x" << mat.n << ") * (" << vec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zcovector newvec(mat.m);
-  char trans ='n';
-  comple alpha =comple(1.,0.);
-  CPPL_INT lda =mat.kl+mat.ku+1;
-  CPPL_INT inc =1;
-  comple beta =comple(0.,0.);
-  
-  zgbmv_( &trans, &mat.m, &mat.n, &mat.kl, &mat.ku, &alpha, mat.array, &lda, vec.array, &inc, &beta, newvec.array, &inc );
-  
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/a4/a47eb88ae8beb915da4802d257f2f7fb6304fbb9.svn-base b/cpplapack-r198/.svn/pristine/a4/a47eb88ae8beb915da4802d257f2f7fb6304fbb9.svn-base
deleted file mode 100644
index 712b302..0000000
--- a/cpplapack-r198/.svn/pristine/a4/a47eb88ae8beb915da4802d257f2f7fb6304fbb9.svn-base
+++ /dev/null
@@ -1,47 +0,0 @@
-//=============================================================================
-/*! convert to _zgematrix */
-inline _zgematrix zhsmatrix::to_zgematrix() const
-{CPPL_VERBOSE_REPORT;
-  zgematrix newmat( zgematrix(m,n).zero() );
-  
-  const std::vector<zcomponent>::const_iterator data_end =data.end();
-  for(std::vector<zcomponent>::const_iterator it=data.begin(); it!=data_end; it++){
-    newmat(it->i, it->j) =it->v;
-    newmat(it->j, it->i) =std::conj(it->v);
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! convert to _zhematrix */
-inline _zhematrix zhsmatrix::to_zhematrix() const
-{CPPL_VERBOSE_REPORT;
-  zhematrix newmat(n);
-  newmat.zero();
-  
-  const std::vector<zcomponent>::const_iterator data_end =data.end();
-  for(std::vector<zcomponent>::const_iterator it=data.begin(); it!=data_end; it++){
-    newmat(it->i, it->j) =it->v;
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! convert to _zgsmatrix */
-inline _zgsmatrix zhsmatrix::to_zgsmatrix() const
-{CPPL_VERBOSE_REPORT;
-  zgsmatrix newmat(m,n);
-  newmat.zero();
-  
-  const std::vector<zcomponent>::const_iterator data_end =data.end();
-  for(std::vector<zcomponent>::const_iterator it=data.begin(); it!=data_end; it++){
-    newmat.put(it->i, it->j, it->v);
-    if(it->i!=it->j){
-      newmat.put(it->j, it->i, std::conj(it->v));
-    }
-  }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/a4/a4adfd17d01830b0ce2f85d691da3b2cbfaa953c.svn-base b/cpplapack-r198/.svn/pristine/a4/a4adfd17d01830b0ce2f85d691da3b2cbfaa953c.svn-base
deleted file mode 100644
index 9c130e5..0000000
--- a/cpplapack-r198/.svn/pristine/a4/a4adfd17d01830b0ce2f85d691da3b2cbfaa953c.svn-base
+++ /dev/null
@@ -1,116 +0,0 @@
-//=============================================================================
-/*! _zgbmatrix+zgbmatrix operator */
-inline _zgbmatrix operator+(const _zgbmatrix& matA, const zgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  if(matA.kl>=matB.kl && matA.ku>=matB.ku){
-    for(CPPL_INT i=0; i<matB.m; i++){
-      const CPPL_INT jmax =std::min(matB.n,i+matB.ku+1);
-      for(CPPL_INT j=std::max(CPPL_INT(0),i-matB.kl); j<jmax; j++){
-        matA(i,j) += matB(i,j);
-      }
-    }
-    
-    return matA;
-  }
-  
-  else{
-    zgbmatrix newmat(matA.m,matA.n,std::max(matA.kl,matB.kl),std::max(matA.ku,matB.ku));
-    newmat.zero();
-    
-    for(CPPL_INT i=0; i<matA.m; i++){
-      const CPPL_INT jmax1 =std::min(matA.n,i+matA.ku+1);
-      for(CPPL_INT j=std::max(CPPL_INT(0),i-matA.kl); j<jmax1; j++){
-        newmat(i,j) += matA(i,j);
-      }
-      const CPPL_INT jmax2 =std::min(matB.n,i+matB.ku+1);
-      for(CPPL_INT j=std::max(CPPL_INT(0),i-matB.kl); j<jmax2; j++){
-        newmat(i,j) += matB(i,j);
-      }
-    }
-    
-    matA.destroy();
-    return _(newmat);
-  }
-}
-
-//=============================================================================
-/*! _zgbmatrix-zgbmatrix operator */
-inline _zgbmatrix operator-(const _zgbmatrix& matA, const zgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") - (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  if(matA.kl>=matB.kl && matA.ku>=matB.ku){
-    for(CPPL_INT i=0; i<matB.m; i++){
-      const CPPL_INT jmax =std::min(matB.n,i+matB.ku+1);
-      for(CPPL_INT j=std::max(CPPL_INT(0),i-matB.kl); j<jmax; j++){
-        matA(i,j) -= matB(i,j);
-      }
-    }
-    
-    return matA;
-  }
-  
-  else{
-    zgbmatrix newmat(matA.m,matA.n,std::max(matA.kl,matB.kl),std::max(matA.ku,matB.ku));
-    newmat.zero();
-    
-    for(CPPL_INT i=0; i<matA.m; i++){
-      const CPPL_INT jmax1 =std::min(matA.n,i+matA.ku+1);
-      for(CPPL_INT j=std::max(CPPL_INT(0),i-matA.kl); j<jmax1; j++){
-        newmat(i,j) += matA(i,j);
-      }
-      const CPPL_INT jmax2 =std::min(matB.n,i+matB.ku+1);
-      for(CPPL_INT j=std::max(CPPL_INT(0),i-matB.kl); j<jmax2; j++){
-        newmat(i,j) -= matB(i,j);
-      }
-    }
-    
-    return _(newmat);
-  }
-}
-
-//=============================================================================
-/*! _zgbmatrix*zgbmatrix operator */
-inline _zgbmatrix operator*(const _zgbmatrix& matA, const zgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgbmatrix newmat( matA.m, matB.n, std::min(matA.kl+matB.kl,matA.m-1), std::min(matA.ku+matB.ku,matB.n-1) );
-  newmat.zero();
-  
-  for(CPPL_INT i=0; i<newmat.m; i++){
-    const CPPL_INT jmax =std::min(newmat.n,i+newmat.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-newmat.kl); j<jmax; j++){
-      const CPPL_INT kmax =std::min( std::min(matA.n,i+matA.ku+1), std::min(matB.m,j+matB.kl+1) );
-      for(CPPL_INT k=std::max( std::max(CPPL_INT(0),i-matA.kl), std::max(CPPL_INT(0),j-matB.ku) ); k<kmax; k++){
-        newmat(i,j) += matA(i,k)*matB(k,j);
-      }
-    }
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/a5/a52916efcae4b9fb51b82872aa84a7519a3477ee.svn-base b/cpplapack-r198/.svn/pristine/a5/a52916efcae4b9fb51b82872aa84a7519a3477ee.svn-base
deleted file mode 100644
index 1352be7..0000000
--- a/cpplapack-r198/.svn/pristine/a5/a52916efcae4b9fb51b82872aa84a7519a3477ee.svn-base
+++ /dev/null
@@ -1,23 +0,0 @@
-//=============================================================================
-/*! _zhsmatrix*double operator */
-inline _zhsmatrix operator*(const _zhsmatrix& mat, const double& d)
-{CPPL_VERBOSE_REPORT;
-  const std::vector<zcomponent>::iterator mat_data_end =mat.data.end();
-  for(std::vector<zcomponent>::iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    it->v *=d;
-  }
-  
-  return mat;
-}
-
-//=============================================================================
-/*! _zhsmatrix/double operator */
-inline _zhsmatrix operator/(const _zhsmatrix& mat, const double& d)
-{CPPL_VERBOSE_REPORT;
-  const std::vector<zcomponent>::iterator mat_data_end =mat.data.end();
-  for(std::vector<zcomponent>::iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    it->v /=d;
-  }
-  
-  return mat;
-}
diff --git a/cpplapack-r198/.svn/pristine/a5/a5331b1ac4d7d7160ed1a11b601a3f6a3a63818b.svn-base b/cpplapack-r198/.svn/pristine/a5/a5331b1ac4d7d7160ed1a11b601a3f6a3a63818b.svn-base
deleted file mode 100644
index 9db4212..0000000
--- a/cpplapack-r198/.svn/pristine/a5/a5331b1ac4d7d7160ed1a11b601a3f6a3a63818b.svn-base
+++ /dev/null
@@ -1,202 +0,0 @@
-//=============================================================================
-/*! solve A*X=Y using zhesv\n
-  The argument is dmatrix Y. Y is overwritten and become the solution X.
-  A is also overwritten. 
-*/
-inline CPPL_INT zhematrix::zhesv(zgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrices cannot be solved." << std::endl
-              << "Your input was (" << n << "x" << n << ") and (" << mat.n << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  char UPLO('l');
-  CPPL_INT NRHS(mat.n), LDA(n), *IPIV(new CPPL_INT[n]), LDB(mat.n), LWORK(-1), INFO(1);
-  comple *WORK(new comple[1]);
-  zhesv_(&UPLO, &n, &NRHS, array, &LDA, IPIV, mat.array, &LDB, WORK, &LWORK, &INFO);
-  
-  INFO=1;
-  LWORK = CPPL_INT(std::real(WORK[0]));
-  delete [] WORK;
-  WORK =new comple[LWORK];
-  zhesv_(&UPLO, &n, &NRHS, array, &LDA, IPIV, mat.array, &LDB, WORK, &LWORK, &INFO);
-  
-  delete [] WORK;
-  delete [] IPIV;
-  
-  if(INFO!=0){
-    WARNING_REPORT;
-    std::cerr << "Serious trouble happend. INFO = " << INFO << "." << std::endl;
-  }
-  return INFO;
-}
-
-//=============================================================================
-/*! solve A*x=y using zhesv\n
-  The argument is zcovector y. y is overwritten and become the solution x.
-  A is also overwritten.
-*/
-inline CPPL_INT zhematrix::zhesv(zcovector& vec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=vec.l){
-    ERROR_REPORT;
-    std::cerr << "These matrix and vector cannot be solved." << std::endl
-              << "Your input was (" << n << "x" << n << ") and (" << vec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG 
-  
-  char UPLO('l');
-  CPPL_INT NRHS(1), LDA(n), *IPIV(new CPPL_INT[n]), LDB(vec.l), LWORK(-1), INFO(1);
-  comple *WORK( new comple[1] );
-  zhesv_(&UPLO, &n, &NRHS, array, &LDA, IPIV, vec.array, &LDB, WORK, &LWORK, &INFO);
-  
-  INFO=1;
-  LWORK = CPPL_INT(std::real(WORK[0]));
-  delete [] WORK;
-  WORK = new comple[LWORK];
-  zhesv_(&UPLO, &n, &NRHS, array, &LDA, IPIV, vec.array, &LDB, WORK, &LWORK, &INFO);
-  
-  delete [] WORK;
-  delete [] IPIV;
-  
-  if(INFO!=0){
-    WARNING_REPORT;
-    std::cerr << "Serious trouble happend. INFO = " << INFO << "." << std::endl;
-  }
-  return INFO;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! calculate eigenvalues and eigenvectors.\n
-  All of the arguments need not to be initialized.
-  w is overwitten and become eigenvalues.
-  This matrix is also overwritten. 
-  if jobz=1, this matrix becomes eigenvectors.
-*/
-inline CPPL_INT zhematrix::zheev(std::vector<double>& w,
-                             const bool& jobz=0)
-{CPPL_VERBOSE_REPORT;
-  w.resize(n);
-  
-  char JOBZ, UPLO('l');
-  if(jobz==0){ JOBZ='n'; } else{ JOBZ='V'; }
-  CPPL_INT LDA(n), INFO(1), LWORK(-1);
-  double *RWORK(new double[std::max(CPPL_INT(1), 3*n-2)]);
-  comple *WORK(new comple[1]);
-  zheev_(&JOBZ, &UPLO, &n, array, &LDA, &w[0], WORK, &LWORK, RWORK, &INFO);
-  
-  INFO=1;
-  LWORK = CPPL_INT(std::real(WORK[0]));
-  delete [] WORK;
-  WORK = new comple[LWORK];
-  zheev_(&JOBZ, &UPLO, &n, array, &LDA, &w[0], WORK, &LWORK, RWORK, &INFO);
-  
-  delete [] RWORK;
-  delete [] WORK;
-  
-  if(INFO!=0){
-    WARNING_REPORT;
-    std::cerr << "Serious trouble happend. INFO = " << INFO << "." << std::endl;
-  }
-  return INFO;
-}
-
-//=============================================================================
-/*! calculate eigenvalues and eigenvectors.\n
-  All of the arguments need not to be initialized.
-  w and v are overwitten and become 
-  eigenvalues and eigenvectors, respectively.
-  This matrix is also overwritten. 
-*/
-inline CPPL_INT zhematrix::zheev(std::vector<double>& w,
-                             std::vector<zcovector>& v)
-{CPPL_VERBOSE_REPORT;
-  w.resize(n);
-  v.resize(n);
-  for(CPPL_INT i=0; i<n; i++){
-    v[i].resize(n);
-  }
-  
-  char JOBZ('V'), UPLO('l');
-  CPPL_INT LDA(n), INFO(1), LWORK(-1);
-  double *RWORK(new double[std::max(CPPL_INT(1), 3*n-2)]);
-  comple *WORK(new comple[1]);
-  zheev_(&JOBZ, &UPLO, &n, array, &LDA, &w[0], WORK, &LWORK, RWORK, &INFO);
-  
-  INFO=1;
-  LWORK = CPPL_INT(std::real(WORK[0]));
-  delete [] WORK;
-  WORK = new comple[LWORK];
-  zheev_(&JOBZ, &UPLO, &n, array, &LDA, &w[0], WORK, &LWORK, RWORK, &INFO);
-  
-  delete [] RWORK;
-  delete [] WORK;
-  
-  //// forming ////
-  for(CPPL_INT i=0; i<n; i++){
-    for(CPPL_INT j=0; j<n; j++){
-      v[j](i) = array[i+n*j];
-    }
-  }
-  
-  if(INFO!=0){
-    WARNING_REPORT;
-    std::cerr << "Serious trouble happend. INFO = " << INFO << "." << std::endl;
-  }
-  return INFO;
-}
-
-//=============================================================================
-/*! calculate eigenvalues and eigenvectors.\n
-  All of the arguments need not to be initialized.
-  w and v are overwitten and become 
-  eigenvalues and eigenvectors, respectively.
-  This matrix is also overwritten. 
-*/
-inline CPPL_INT zhematrix::zheev(std::vector<double>& w,
-                             std::vector<zrovector>& v)
-{CPPL_VERBOSE_REPORT;
-  w.resize(n);
-  v.resize(n);
-  for(CPPL_INT i=0; i<n; i++){
-    v[i].resize(n);
-  }
-  
-  char JOBZ('V'), UPLO('l');
-  CPPL_INT LDA(n), INFO(1), LWORK(-1);
-  double *RWORK(new double[std::max(CPPL_INT(1), 3*n-2)]);
-  comple *WORK(new comple[1]);
-  zheev_(&JOBZ, &UPLO, &n, array, &LDA, &w[0], WORK, &LWORK, RWORK, &INFO);
-  
-  INFO=1;
-  LWORK = CPPL_INT(std::real(WORK[0]));
-  delete [] WORK;
-  WORK = new comple[LWORK];
-  zheev_(&JOBZ, &UPLO, &n, array, &LDA, &w[0], WORK, &LWORK, RWORK, &INFO);
-  
-  delete [] RWORK;
-  delete [] WORK;
-  
-  //// forming ////
-  for(CPPL_INT i=0; i<n; i++){
-    for(CPPL_INT j=0; j<n; j++){
-      v[j](i) = array[i+n*j];
-    }
-  }
-  
-  if(INFO!=0){
-    WARNING_REPORT;
-    std::cerr << "Serious trouble happend. INFO = " << INFO << "." << std::endl;
-  }
-  return INFO;
-}
diff --git a/cpplapack-r198/.svn/pristine/a5/a5420738c2999fd6a18f6e744fa22ceb42ef7162.svn-base b/cpplapack-r198/.svn/pristine/a5/a5420738c2999fd6a18f6e744fa22ceb42ef7162.svn-base
deleted file mode 100644
index f10e20a..0000000
--- a/cpplapack-r198/.svn/pristine/a5/a5420738c2999fd6a18f6e744fa22ceb42ef7162.svn-base
+++ /dev/null
@@ -1,87 +0,0 @@
-//=============================================================================
-/*! _zgbmatrix+_zhematrix operator */
-inline _zgematrix operator+(const _zgbmatrix& matA, const _zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.n || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  zgematrix newmat(matB.n, matB.n);
-  for(CPPL_INT i=0; i<matA.m; i++){
-    for(CPPL_INT j=0; j<matB.n; j++){
-      newmat(i,j) = matB(i,j);
-    }
-    const CPPL_INT jmax =std::min(matA.n,i+matA.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matA.kl); j<jmax; j++){
-      newmat(i,j) += matA(i,j);
-    }
-  }
-  
-  matA.destroy();
-  matB.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _zgbmatrix-_zhematrix operator */
-inline _zgematrix operator-(const _zgbmatrix& matA, const _zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.n || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(matB.n, matB.n);
-  for(CPPL_INT i=0; i<newmat.m; i++){
-    for(CPPL_INT j=0; j<newmat.n; j++){
-      newmat(i,j) = -matB(i,j);
-    }
-    const CPPL_INT jmax =std::min(matA.n,i+matA.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matA.kl); j<jmax; j++){
-      newmat(i,j) += matA(i,j);
-    }
-  }
-  
-  matA.destroy();
-  matB.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _zgbmatrix*_zhematrix operator */
-inline _zgematrix operator*(const _zgbmatrix& matA, const _zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat( matA.m, matB.n );
-  newmat.zero();
-  
-  for(CPPL_INT i=0; i<newmat.m; i++){
-    for(CPPL_INT j=0; j<newmat.n; j++){
-      const CPPL_INT kmax =std::min(matA.n,i+matA.ku+1);
-      for(CPPL_INT k=std::max(CPPL_INT(0),i-matA.kl); k<kmax; k++){
-        newmat(i,j) += matA(i,k)*matB(k,j);
-      }
-    }
-  }
-  
-  matA.destroy();
-  matB.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/a5/a553ce577d16f62b797b56868b5fcf052626abdc.svn-base b/cpplapack-r198/.svn/pristine/a5/a553ce577d16f62b797b56868b5fcf052626abdc.svn-base
deleted file mode 100644
index 9b854cd..0000000
--- a/cpplapack-r198/.svn/pristine/a5/a553ce577d16f62b797b56868b5fcf052626abdc.svn-base
+++ /dev/null
@@ -1,19 +0,0 @@
-//=============================================================================
-/*! nullify all the matrix data */
-inline void _dgematrix::nullify() const
-{CPPL_VERBOSE_REPORT;
-  m=0;
-  n=0;
-  array=NULL;
-  darray=NULL;
-}
-
-//=============================================================================
-/*! destroy all the matrix data */
-inline void _dgematrix::destroy() const
-{CPPL_VERBOSE_REPORT;
-  delete [] array;
-  delete [] darray;
-  array=NULL;
-  darray=NULL;
-}
diff --git a/cpplapack-r198/.svn/pristine/a5/a56dd9fc36ae66c856e22e24d8827efe68ba057b.svn-base b/cpplapack-r198/.svn/pristine/a5/a56dd9fc36ae66c856e22e24d8827efe68ba057b.svn-base
deleted file mode 100644
index 48cb8d2..0000000
--- a/cpplapack-r198/.svn/pristine/a5/a56dd9fc36ae66c856e22e24d8827efe68ba057b.svn-base
+++ /dev/null
@@ -1,70 +0,0 @@
-//=============================================================================
-//! (DO NOT USE) Smart-temporary Real Double-precision Column Vector Class
-class _dcovector
-{
-public:
-  ///////////////////////////////////////////////
-  /////////////////// objects ///////////////////
-  ///////////////////////////////////////////////
-  mutable CPPL_INT l; //!< vector size
-  mutable CPPL_INT cap; //!< vector capacity
-  mutable double* array; //!< 1D array to store vector data
-  
-  ///////////////////////////////////////////////
-  ///////////////// constructors ////////////////
-  ///////////////////////////////////////////////
-  inline _dcovector();
-  inline _dcovector(const _dcovector&);
-  inline ~_dcovector(); //destructor
-  
-  ///////////////////////////////////////////////
-  ////////////////// functions //////////////////
-  ///////////////////////////////////////////////
-  //////// cast ////////
-  inline _zcovector to_zcovector() const;
-  
-  //////// io ////////
-  inline double& operator()(const CPPL_INT&) const;
-  inline friend std::ostream& operator<<(std::ostream&, const _dcovector&);
-  inline void write(const char*) const;
-  
-  //////// calc ////////
-  inline friend _drovector t(const dcovector&);
-  inline friend double nrm2(const dcovector&);
-  inline friend CPPL_INT idamax(const dcovector&);
-  inline friend double damax(const dcovector&);
-  
-  //////// misc ////////
-  inline void nullify() const;
-  inline void destroy() const;
-  
-  ///////////////////////////////////////////////
-  ///////////// numerical operators /////////////
-  ///////////////////////////////////////////////
-  //////// unary ////////
-  inline friend const _dcovector& operator+(const _dcovector&);
-  inline friend _dcovector operator-(const _dcovector&);
-  
-  //////// + ////////
-  inline friend _dcovector operator+(const _dcovector&, const  dcovector&);
-  inline friend _dcovector operator+(const _dcovector&, const _dcovector&);
-  
-  //////// - ////////
-  inline friend _dcovector operator-(const _dcovector&, const  dcovector&);
-  inline friend _dcovector operator-(const _dcovector&, const _dcovector&);
-  
-  //////// * ////////
-  inline friend _dgematrix operator*(const _dcovector&, const  drovector&);
-  inline friend _dgematrix operator*(const _dcovector&, const _drovector&);
-  inline friend _dcovector operator*(const _dcovector&, const     double&);
-  
-  //////// / ////////
-  inline friend _dcovector operator/(const _dcovector&, const     double&);
-  
-  //////// % ////////
-  inline friend     double operator%(const _dcovector&, const  dcovector&);
-  inline friend     double operator%(const _dcovector&, const _dcovector&);
-  
-  //////// double ////////
-  inline friend _dcovector operator*(const     double&, const _dcovector&);
-};
diff --git a/cpplapack-r198/.svn/pristine/a5/a5862a064be8b62b02c9ef27b3cdcee02e59824f.svn-base b/cpplapack-r198/.svn/pristine/a5/a5862a064be8b62b02c9ef27b3cdcee02e59824f.svn-base
deleted file mode 100644
index d10dad3..0000000
--- a/cpplapack-r198/.svn/pristine/a5/a5862a064be8b62b02c9ef27b3cdcee02e59824f.svn-base
+++ /dev/null
@@ -1,53 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int M(4), N(3), K(2);
-  
-  CPPL::zgematrix A(M,K), B(K,N), C;
-  for(int i=0; i<A.m; i++){ for(int j=0; j<A.n; j++){
-    A(i,j) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-  }}
-  for(int i=0; i<B.m; i++){ for(int j=0; j<B.n; j++){
-    B(i,j) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-  }}
-  
-  cout << "A =\n" << A << endl;
-  cout << "B =\n" << B << endl;
-  
-  cout << "A+A =\n" << A+A << endl;
-  cout << "A-A =\n" << A-A << endl;
-  cout << "A*B =\n" << A*B << endl;
-  
-  cout << "#### C=A; ####" << endl;
-  C=A;
-  cout << "C =\n" << C << endl;
-  cout << "#### C+=A; ####" << endl;
-  C+=A;
-  cout << "C =\n" << C << endl;
-  cout << "#### C-=A; ####" << endl;
-  C-=A;
-  cout << "C =\n" << C << endl;
-  cout << "#### C*=B; ####" << endl;
-  C*=B;
-  cout << "C =\n" << C << endl;
-  cout << "#### C=A+A; ####" << endl;
-  C=A+A;
-  cout << "C =\n" << C << endl;
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/a5/a5deb86b5f169638c1f5bae3bfb2c437d3bd38d8.svn-base b/cpplapack-r198/.svn/pristine/a5/a5deb86b5f169638c1f5bae3bfb2c437d3bd38d8.svn-base
deleted file mode 100644
index 2442f06..0000000
--- a/cpplapack-r198/.svn/pristine/a5/a5deb86b5f169638c1f5bae3bfb2c437d3bd38d8.svn-base
+++ /dev/null
@@ -1,12 +0,0 @@
-//=============================================================================
-/*! comple*zcovector operator */
-inline _zcovector operator*(const comple& d, const zcovector& vec)
-{CPPL_VERBOSE_REPORT;
-  zcovector newvec(vec.l);
-  
-  for(CPPL_INT i=0; i<vec.l; i++){
-    newvec.array[i] =d*vec.array[i];
-  }
-  
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/a6/a645ede2a0c9bf5353d2a934185736d0190e0e78.svn-base b/cpplapack-r198/.svn/pristine/a6/a645ede2a0c9bf5353d2a934185736d0190e0e78.svn-base
deleted file mode 100644
index e989462..0000000
--- a/cpplapack-r198/.svn/pristine/a6/a645ede2a0c9bf5353d2a934185736d0190e0e78.svn-base
+++ /dev/null
@@ -1,13 +0,0 @@
-//=============================================================================
-/*! double*zhematrix operator */
-inline _zhematrix operator*(const double& d, const zhematrix& mat)
-{CPPL_VERBOSE_REPORT;
-  zhematrix newmat(mat.n);
-  
-  const CPPL_INT size =mat.n*mat.n;
-  for(CPPL_INT i=0; i<size; i++){
-    newmat.array[i] =d*mat.array[i];
-  }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/a7/a7489c14a962dd3fce8431d4f8e18d2b0cc5090c.svn-base b/cpplapack-r198/.svn/pristine/a7/a7489c14a962dd3fce8431d4f8e18d2b0cc5090c.svn-base
deleted file mode 100644
index db4a42d..0000000
--- a/cpplapack-r198/.svn/pristine/a7/a7489c14a962dd3fce8431d4f8e18d2b0cc5090c.svn-base
+++ /dev/null
@@ -1,145 +0,0 @@
-//=============================================================================
-/*! operator() for non-const object */
-inline double& dgbmatrix::operator()(const CPPL_INT& i, const CPPL_INT& j)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || j<0 || m<=i || n<=j || i-j>kl || j-i>ku ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the matrix size." << std::endl
-              << "Your input is (" << i << "," << j << "), whereas the matrix size is " << m << "x" << n << " with kl=" << kl << ", ku=" << ku << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //return array[ku+i+(kl+ku)*j];
-  return darray[j][ku-j+i];
-}
-
-//=============================================================================
-/*! operator() for const object */
-inline double dgbmatrix::operator()(const CPPL_INT& i, const CPPL_INT& j) const
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || j<0 || m<=i || n<=j || i-j>kl || j-i>ku ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the matrix size." << std::endl
-              << "Your input is (" << i << "," << j << "), whereas the matrix size is " << m << "x" << n << " with kl=" << kl << ", ku=" << ku << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //return array[ku+i+(kl+ku)*j];
-  return darray[j][ku-j+i];
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! set value for const object */
-inline dgbmatrix& dgbmatrix::set(const CPPL_INT& i, const CPPL_INT& j, const double& v) //const
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || j<0 || m<=i || n<=j || i-j>kl || j-i>ku ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the matrix size." << std::endl
-              << "Your input is (" << i << "," << j << "), whereas the matrix size is " << m << "x" << n << " with kl=" << kl << ", ku=" << ku << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //array[ku+i+(kl+ku)*j] =v;
-  darray[j][ku-j+i] =v;
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-inline std::ostream& operator<<(std::ostream& s, const dgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<mat.m; i++){
-    for(CPPL_INT j=0; j<mat.n; j++){
-      if( i-j>mat.kl || j-i>mat.ku ){ s << " x"; }
-      else{ s << " " << mat(i,j); }
-    }
-    s << std::endl;
-  }
-  
-  return s;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-inline void dgbmatrix::write(const char *filename) const
-{CPPL_VERBOSE_REPORT;
-  std::ofstream ofs(filename, std::ios::trunc);
-  ofs.setf(std::cout.flags());
-  ofs.precision(std::cout.precision());
-  ofs.width(std::cout.width());
-  ofs.fill(std::cout.fill());
-  
-  ofs << "#dgbmatrix" << " " << m << " " << n << " " << kl << " " << ku << std::endl;
-  
-  for(CPPL_INT i=0; i<m; i++){
-    const CPPL_INT jmax =std::min(n,i+ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-kl); j<jmax; j++){
-      ofs << operator()(i,j) << " ";
-    }
-    ofs << std::endl;
-  }
-  
-  ofs.close();
-}
-
-//=============================================================================
-inline void dgbmatrix::read(const char* filename)
-{CPPL_VERBOSE_REPORT;
-  std::ifstream s( filename );
-  if(!s){
-    ERROR_REPORT;
-    std::cerr << "The file \"" << filename << "\" can not be opened." << std::endl;
-    exit(1);
-  }
-
-  std::string id;
-  s >> id;
-  if( id != "dgbmatrix" && id != "#dgbmatrix" ){
-    ERROR_REPORT;
-    std::cerr << "The type name of the file \"" << filename << "\" is not dgbmatrix." << std::endl
-              << "Its type name was " << id << " ." << std::endl;
-    exit(1);
-  }
-  
-  s >> m >> n >> kl >> ku;
-  resize(m, n, kl, ku);
-  
-  for(CPPL_INT i=0; i<m; i++){
-    const CPPL_INT jmax =std::min(n,i+ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-kl); j<jmax; j++){
-      s >> operator()(i,j);
-    }
-  }
-  if(s.eof()){
-    ERROR_REPORT;
-    std::cerr << "There is something is wrong with the file \"" << filename << "\"." << std::endl
-              << "Most likely, there is not enough data components, or a linefeed code or space code is missing at the end of the last line." << std::endl;
-    exit(1);
-  }
-  
-  s >> id;
-  if(!s.eof()){
-    ERROR_REPORT;
-    std::cerr << "There is something is wrong with the file \"" << filename << "\"." << std::endl
-              << "Most likely, there are extra data components." << std::endl;
-    exit(1);
-  }
-  
-  s.close();
-}
diff --git a/cpplapack-r198/.svn/pristine/a7/a7816cf51d012ef4ded62d30059cee1e39815e9f.svn-base b/cpplapack-r198/.svn/pristine/a7/a7816cf51d012ef4ded62d30059cee1e39815e9f.svn-base
deleted file mode 100644
index 3d0e3a1..0000000
--- a/cpplapack-r198/.svn/pristine/a7/a7816cf51d012ef4ded62d30059cee1e39815e9f.svn-base
+++ /dev/null
@@ -1,144 +0,0 @@
-//=============================================================================
-/*! operator() for non-const object */
-inline comple& zgbmatrix::operator()(const CPPL_INT& i, const CPPL_INT& j)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || j<0 || m<=i || n<=j || i-j>kl || j-i>ku ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the matrix size." << std::endl
-              << "Your input is (" << i << "," << j << "), whereas the matrix size is " << m << "x" << n << " with kl=" << kl << ", ku=" << ku << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //return array[ku+i+(kl+ku)*j];
-  return darray[j][ku-j+i];
-}
-
-//=============================================================================
-/*! operator() for const object */
-inline comple zgbmatrix::operator()(const CPPL_INT& i, const CPPL_INT& j) const
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || j<0 || m<=i || n<=j || i-j>kl || j-i>ku ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the matrix size." << std::endl
-              << "Your input is (" << i << "," << j << "), whereas the matrix size is " << m << "x" << n << " with kl=" << kl << ", ku=" << ku << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //return array[ku+i+(kl+ku)*j];
-  return darray[j][ku-j+i];
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! set value for const object */
-inline zgbmatrix& zgbmatrix::set(const CPPL_INT& i, const CPPL_INT& j, const comple& v)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || j<0 || m<=i || n<=j || i-j>kl || j-i>ku ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the matrix size." << std::endl
-              << "Your input is (" << i << "," << j << "), whereas the matrix size is " << m << "x" << n << " with kl=" << kl << ", ku=" << ku << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //array[ku+i+(kl+ku)*j] =v;
-  darray[j][ku-j+i] =v;
-  
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-inline std::ostream& operator<<(std::ostream& s, const zgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<mat.m; i++){
-    for(CPPL_INT j=0; j<mat.n; j++){
-      if( i-j>mat.kl || j-i>mat.ku ){ s << " x"; }
-      else{ s << " " << mat(i,j); }
-    }
-    s << std::endl;
-  }
-  
-  return s;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-inline void zgbmatrix::write(const char* filename) const
-{CPPL_VERBOSE_REPORT;
-  std::ofstream ofs(filename, std::ios::trunc);
-  ofs.setf(std::cout.flags());
-  ofs.precision(std::cout.precision());
-  ofs.width(std::cout.width());
-  ofs.fill(std::cout.fill());
-  
-  ofs << "#zgbmatrix" << " " << m << " " << n << " " << kl << " " << ku << std::endl;
-  for(CPPL_INT i=0; i<m; i++){
-    const CPPL_INT jmax =std::min(n,i+ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-kl); j<jmax; j++){
-      ofs << operator()(i,j) << " ";
-    }
-    ofs << std::endl;
-  }
-  
-  ofs.close();
-}
-
-//=============================================================================
-inline void zgbmatrix::read(const char* filename)
-{CPPL_VERBOSE_REPORT;
-  std::ifstream s( filename );
-  if(!s){
-    ERROR_REPORT;
-    std::cerr << "The file \"" << filename << "\" can not be opened." << std::endl;
-    exit(1);
-  }
-
-  std::string id;
-  s >> id;
-  if( id != "zgbmatrix" && id != "#zgbmatrix" ){
-    ERROR_REPORT;
-    std::cerr << "The type name of the file \"" << filename << "\" is not zgbmatrix." << std::endl
-              << "Its type name was " << id << " ." << std::endl;
-    exit(1);
-  }
-  
-  s >> m >> n >> kl >> ku;
-  resize(m, n, kl, ku);
-  for(CPPL_INT i=0; i<m; i++){
-    const CPPL_INT jmax =std::min(n,i+ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-kl); j<jmax; j++){
-      s >> operator()(i,j);
-    }
-  }
-  if(s.eof()){
-    ERROR_REPORT;
-    std::cerr << "There is something is wrong with the file \"" << filename << "\"." << std::endl
-              << "Most likely, there is not enough data components, or a linefeed code or space code is missing at the end of the last line." << std::endl;
-    exit(1);
-  }
-  
-  s >> id;
-  if(!s.eof()){
-    ERROR_REPORT;
-    std::cerr << "There is something is wrong with the file \"" << filename << "\"." << std::endl
-              << "Most likely, there are extra data components." << std::endl;
-    exit(1);
-  }
-  
-  s.close();
-}
diff --git a/cpplapack-r198/.svn/pristine/a7/a785542beb976966aa9e20c7f4078a695288bf55.svn-base b/cpplapack-r198/.svn/pristine/a7/a785542beb976966aa9e20c7f4078a695288bf55.svn-base
deleted file mode 100644
index 5ef7375..0000000
--- a/cpplapack-r198/.svn/pristine/a7/a785542beb976966aa9e20c7f4078a695288bf55.svn-base
+++ /dev/null
@@ -1,11 +0,0 @@
-//=============================================================================
-/*! double*_zhsmatrix operator */
-inline _zhsmatrix operator*(const double& d, const _zhsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  const std::vector<zcomponent>::iterator mat_data_end =mat.data.end();
-  for(std::vector<zcomponent>::iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    it->v *=d;
-  }
-  
-  return mat;
-}
diff --git a/cpplapack-r198/.svn/pristine/a7/a7bbccd54d8366d6e73ae37572e7666bf78c4c8e.svn-base b/cpplapack-r198/.svn/pristine/a7/a7bbccd54d8366d6e73ae37572e7666bf78c4c8e.svn-base
deleted file mode 100644
index 89c7657..0000000
--- a/cpplapack-r198/.svn/pristine/a7/a7bbccd54d8366d6e73ae37572e7666bf78c4c8e.svn-base
+++ /dev/null
@@ -1,29 +0,0 @@
-//=============================================================================
-/*! nullify all the matrix data */
-inline void _dsymatrix::nullify() const
-{CPPL_VERBOSE_REPORT;
-  n=0;
-  array=NULL;
-  darray=NULL;
-}
-
-//=============================================================================
-/*! destroy all the matrix data */
-inline void _dsymatrix::destroy() const
-{CPPL_VERBOSE_REPORT;
-  delete [] array;
-  delete [] darray;
-  array=NULL;
-  darray=NULL;
-}
-
-//=============================================================================
-/*! complete the upper-right components */
-inline void _dsymatrix::complete() const
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<n; i++){
-    for(CPPL_INT j=0; j<i; j++){
-      darray[i][j] =darray[j][i];
-    }
-  }
-}
diff --git a/cpplapack-r198/.svn/pristine/a8/a83009609996f5a2451e02311cc0908ac7f154a6.svn-base b/cpplapack-r198/.svn/pristine/a8/a83009609996f5a2451e02311cc0908ac7f154a6.svn-base
deleted file mode 100644
index b004c8b..0000000
--- a/cpplapack-r198/.svn/pristine/a8/a83009609996f5a2451e02311cc0908ac7f154a6.svn-base
+++ /dev/null
@@ -1,16 +0,0 @@
-//=============================================================================
-/*! _dcovector*_drovector operator */
-inline _dgematrix operator*(const _dcovector& covec, const _drovector& rovec)
-{CPPL_VERBOSE_REPORT;
-  dgematrix newmat(covec.l, rovec.l);
-  
-  for(CPPL_INT i=0; i<newmat.m; i++){
-    for(CPPL_INT j=0; j<newmat.n; j++){
-      newmat(i,j) =covec(i)*rovec(j);
-    }
-  }
-  
-  covec.destroy();
-  rovec.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/a8/a8ced4e9c9f66c89db11b65455bfe929f2b3dbdc.svn-base b/cpplapack-r198/.svn/pristine/a8/a8ced4e9c9f66c89db11b65455bfe929f2b3dbdc.svn-base
deleted file mode 100644
index 538fe8e..0000000
--- a/cpplapack-r198/.svn/pristine/a8/a8ced4e9c9f66c89db11b65455bfe929f2b3dbdc.svn-base
+++ /dev/null
@@ -1,13 +0,0 @@
-//=============================================================================
-/*! double*dgsmatrix operator */
-inline _dgsmatrix operator*(const double& d, const dgsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  dgsmatrix newmat =mat;
-  
-  const std::vector<dcomponent>::iterator newmat_data_end =newmat.data.end();
-  for(std::vector<dcomponent>::iterator it=newmat.data.begin(); it!=newmat_data_end; it++){
-    it->v *= d;
-  }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/a9/a97deb2b04a59b9901bd33283b92dd33f55ecbd5.svn-base b/cpplapack-r198/.svn/pristine/a9/a97deb2b04a59b9901bd33283b92dd33f55ecbd5.svn-base
deleted file mode 100644
index a05d6b2..0000000
--- a/cpplapack-r198/.svn/pristine/a9/a97deb2b04a59b9901bd33283b92dd33f55ecbd5.svn-base
+++ /dev/null
@@ -1,57 +0,0 @@
-//=============================================================================
-/*! return transposed _zgsmatrix */
-inline _zgsmatrix t(const _zgsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  const std::vector<zcomponent>::iterator mat_data_end =mat.data.end();
-  for(std::vector<zcomponent>::iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    std::swap(it->i,it->j);
-  }
-  
-  std::swap(mat.rows,mat.cols);
-  
-  return mat;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! search the index of element having the largest absolute value in 0-based numbering system */
-inline void idamax(CPPL_INT& i, CPPL_INT& j, const _zgsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  std::vector<zcomponent>::const_iterator itx(mat.data.begin());
-  double vmax =0.;
-  
-  const std::vector<zcomponent>::const_iterator mat_data_end =mat.data.end();
-  for(std::vector<zcomponent>::const_iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    if( vmax < norm(it->v) ){
-      vmax =norm(it->v);
-      itx =it;
-    }
-  }
-  
-  i=itx->i;
-  j=itx->j;
-  
-  mat.destroy();
-}
-
-//=============================================================================
-/*! return its largest absolute value */
-inline comple damax(const _zgsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  std::vector<zcomponent>::const_iterator itx(mat.data.begin());
-  double vmax =0.;
-  
-  const std::vector<zcomponent>::const_iterator mat_data_end =mat.data.end();
-  for(std::vector<zcomponent>::const_iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    if( vmax < norm(it->v) ){
-      vmax =norm(it->v);
-      itx =it;
-    }
-  }
-  
-  mat.destroy();
-  return itx->v;
-}
diff --git a/cpplapack-r198/.svn/pristine/a9/a9a429ab03b5ecb328caa8bedbec04fd6f8f87ca.svn-base b/cpplapack-r198/.svn/pristine/a9/a9a429ab03b5ecb328caa8bedbec04fd6f8f87ca.svn-base
deleted file mode 100644
index 2c74415..0000000
--- a/cpplapack-r198/.svn/pristine/a9/a9a429ab03b5ecb328caa8bedbec04fd6f8f87ca.svn-base
+++ /dev/null
@@ -1,141 +0,0 @@
-//=============================================================================
-/*! operator() for non-const object */
-inline double& dgematrix::operator()(const CPPL_INT& i, const CPPL_INT& j)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || j<0 || m<=i || n<=j ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the matrix size." << std::endl
-              << "Your input is (" << i << "," << j << "), whereas the matrix size is " << m << "x" << n << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //return array[i+m*j];
-  return darray[j][i];
-}
-
-//=============================================================================
-/*! operator() for const object */
-inline double dgematrix::operator()(const CPPL_INT& i, const CPPL_INT& j) const
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || j<0 || m<=i || n<=j ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the matrix size." << std::endl
-              << "Your input is (" << i << "," << j << "), whereas the matrix size is " << m << "x" << n << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //return array[i+m*j];
-  return darray[j][i];
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! set value for const object */
-inline dgematrix& dgematrix::set(const CPPL_INT& i, const CPPL_INT& j, const double& v) //const
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || j<0 || m<=i || n<=j ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the matrix size." << std::endl
-              << "Your input is (" << i << "," << j << "), whereas the matrix size is " << m << "x" << n << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //array[i+m*j] =v;
-  darray[j][i] =v;
-  
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-inline std::ostream& operator<<(std::ostream& s, const dgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<mat.m; i++){
-    for(CPPL_INT j=0; j<mat.n; j++){
-      s << " " << mat(i,j);
-    }
-    s << std::endl;
-  }
-  return s;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-inline void dgematrix::write(const char* filename) const
-{CPPL_VERBOSE_REPORT;
-  std::ofstream ofs(filename, std::ios::trunc);
-  ofs.setf(std::cout.flags());
-  ofs.precision(std::cout.precision());
-  ofs.width(std::cout.width());
-  ofs.fill(std::cout.fill());
-  
-  ofs << "#dgematrix" << " " << m << " " << n << std::endl;
-  for(CPPL_INT i=0; i<m; i++){
-    for(CPPL_INT j=0; j<n; j++ ){
-      ofs << operator()(i,j) << " ";
-    }
-    ofs << std::endl;
-  }
-  
-  ofs.close();
-}
-
-//=============================================================================
-inline void dgematrix::read(const char* filename)
-{CPPL_VERBOSE_REPORT;
-  std::ifstream s( filename );
-  if(!s){
-    ERROR_REPORT;
-    std::cerr << "The file \"" << filename << "\" can not be opened." << std::endl;
-    exit(1);
-  }
-
-  std::string id;
-  s >> id;
-  if( id != "dgematrix" && id != "#dgematrix" ){
-    ERROR_REPORT;
-    std::cerr << "The type name of the file \"" << filename << "\" is not dgematrix." << std::endl
-              << "Its type name was " << id << " ." << std::endl;
-    exit(1);
-  }
-  
-  s >> m >> n;
-  resize(m, n);
-  for(CPPL_INT i=0; i<m; i++){
-    for(CPPL_INT j=0; j<n; j++ ){
-      s >> operator()(i,j);
-    }
-  }
-  if(s.eof()){
-    ERROR_REPORT;
-    std::cerr << "There is something is wrong with the file \"" << filename << "\"." << std::endl
-              << "Most likely, there is a lack of data components, or a linefeed code or space code is missing at the end of the last line." << std::endl;
-    exit(1);
-  }
-  
-  s >> id;
-  if(!s.eof()){
-    ERROR_REPORT;
-    std::cerr << "There is something is wrong with the file \"" << filename << "\"." << std::endl
-              << "Most likely, there are extra data components." << std::endl;
-    exit(1);
-  }
-
-  
-  s.close();
-}
diff --git a/cpplapack-r198/.svn/pristine/a9/a9addb498e230700b636c09839a04edebee4e651.svn-base b/cpplapack-r198/.svn/pristine/a9/a9addb498e230700b636c09839a04edebee4e651.svn-base
deleted file mode 100644
index 8c9ba9a..0000000
--- a/cpplapack-r198/.svn/pristine/a9/a9addb498e230700b636c09839a04edebee4e651.svn-base
+++ /dev/null
@@ -1,24 +0,0 @@
-//=============================================================================
-/*! _zrovector*zgematrix operator */
-inline _zrovector operator*(const _zrovector& vec, const zgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vec.l!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These vector and matrix can not make a product." << std::endl
-              << "Your input was (" << vec.l << ") * (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zrovector newvec(mat.n);
-  char trans ='T';
-  comple alpha =comple(1.,0.);
-  CPPL_INT inc =1;
-  comple beta =comple(0.,0.);
-  
-  zgemv_( &trans, &mat.m, &mat.n, &alpha, mat.array, &mat.m, vec.array, &inc, &beta, newvec.array, &inc );
-  
-  vec.destroy();
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/aa/aa9401d7724830512a56fccc17a9755f97f04443.svn-base b/cpplapack-r198/.svn/pristine/aa/aa9401d7724830512a56fccc17a9755f97f04443.svn-base
deleted file mode 100644
index e7d357e..0000000
--- a/cpplapack-r198/.svn/pristine/aa/aa9401d7724830512a56fccc17a9755f97f04443.svn-base
+++ /dev/null
@@ -1,18 +0,0 @@
-dssmatrix 6 100000
-0 0 8.653846e+08
-1 0 4.807692e+08
-1 1 8.653846e+08
-2 2 6.730769e+08
-3 3 1.923077e+08
-4 4 1.923077e+08
-5 5 6.730769e+08
-2 0 -6.730769e+08
-2 1 -2.884615e+08
-3 0 -1.923077e+08
-3 1 -1.923077e+08
-4 0 -1.923077e+08
-4 1 -1.923077e+08
-5 0 -2.884615e+08
-5 1 -6.730769e+08
-4 3 1.923077e+08
-5 2 2.884615e+08
diff --git a/cpplapack-r198/.svn/pristine/aa/aaf2d33bca9e3e84bdcb8cc425056122852ba5df.svn-base b/cpplapack-r198/.svn/pristine/aa/aaf2d33bca9e3e84bdcb8cc425056122852ba5df.svn-base
deleted file mode 100644
index ce8f100..0000000
--- a/cpplapack-r198/.svn/pristine/aa/aaf2d33bca9e3e84bdcb8cc425056122852ba5df.svn-base
+++ /dev/null
@@ -1,76 +0,0 @@
-//=============================================================================
-/*! dgbmatrix+dgsmatrix operator */
-inline _dgematrix operator+(const dgbmatrix& matA, const dgsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat( matB.to_dgematrix() );
-  
-  for(CPPL_INT i=0; i<matA.m; i++){
-    const CPPL_INT jmax =std::min(matA.n,i+matA.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matA.kl); j<jmax; j++){
-      newmat(i,j)+=matA(i,j);
-    }
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! dgbmatrix-dgsmatrix operator */
-inline _dgematrix operator-(const dgbmatrix& matA, const dgsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat( -matB.to_dgematrix() );
-  
-  for(CPPL_INT i=0; i<matA.m; i++){
-    const CPPL_INT jmax =std::min(matA.n,i+matA.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matA.kl); j<jmax; j++){
-      newmat(i,j)-=matA(i,j);
-    }
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! dgbmatrix*dgsmatrix operator */
-inline _dgematrix operator*(const dgbmatrix& matA, const dgsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat( matA.m, matB.n );
-  newmat.zero();
-  
-  const std::vector<dcomponent>::const_iterator matB_data_end =matB.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matB.data.begin(); it!=matB_data_end; it++){
-    const CPPL_INT imax =std::min(matA.m,it->i+matA.kl);
-    for(CPPL_INT i=std::max(CPPL_INT(0),it->i-(matA.ku+1)); i<imax; i++){
-      newmat(i,it->j) += matA(i,it->i)*it->v;
-    }
-  }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/ab/ab4e51cec1d385b7f62dcd8878fea92909ec24e7.svn-base b/cpplapack-r198/.svn/pristine/ab/ab4e51cec1d385b7f62dcd8878fea92909ec24e7.svn-base
deleted file mode 100644
index c4bc998..0000000
--- a/cpplapack-r198/.svn/pristine/ab/ab4e51cec1d385b7f62dcd8878fea92909ec24e7.svn-base
+++ /dev/null
@@ -1,72 +0,0 @@
-#define  dgesv_  DGESV
-#define  dgbsv_  DGBSV
-#define  dgtsv_  DGTSV
-#define  dposv_  DPOSV
-#define  dppsv_  DPPSV
-#define  dpbsv_  DPBSV
-#define  dptsv_  DPTSV
-#define  dsysv_  DSYSV
-#define  dspsv_  DSPSV
-#define  dgels_  DGELS
-#define  dgelsy_ DGELSY
-#define  dgelss_ DGELSS
-#define  dgelsd_ DGELSD
-#define  dgglse_ DGGLSE
-#define  dggglm_ DGGGLM
-#define  dgeev_  DGEEV
-#define  dsyev_  DSYEV
-#define  dsyevd_ DSYEVD
-#define  dspev_  DSPEV
-#define  dspevd_ DSPEVD
-#define  dsbev_  DSBEV
-#define  dsbevd_ DSBEVD
-#define  dstev_  DSTEV
-#define  dstevd_ DSTEVD
-#define  dgees_  DGEES
-#define  dgesvd_ DGESVD
-#define  dgesdd_ DGESDD
-#define  dggev_  DGGEV
-#define  dsygv_  DSYGV
-#define  dsygvd_ DSYGVD
-#define  dspgv_  DSPGV
-#define  dspgvd_ DSPGVD
-#define  dsbgv_  DSBGV
-#define  dsbgvd_ DSBGVD
-#define  dgges_  DGGES
-#define  dggsvd_ DGGSVD
-
-#define  zgesv_  ZGESV
-#define  zgbsv_  ZGBSV
-#define  zgtsv_  ZGTSV
-#define  zposv_  ZPOSV
-#define  zppsv_  ZPPSV
-#define  zpbsv_  ZPBSV
-#define  zptsv_  ZPTSV
-#define  zhesv_  ZHESV
-#define  zsysv_  ZSYSV
-#define  zhpsv_  ZHPSV
-#define  zspsv_  ZSPSV
-#define  zgels_  ZGELS
-#define  zgelsy_ ZGELSY
-#define  zgelss_ ZGELSS
-#define  zgglse_ ZGGLSE
-#define  zggglm_ ZGGGLM
-#define  zgeev_  ZGEEV
-#define  zheev_  ZHEEV
-#define  zheevd_ ZHEEVD
-#define  zhpev_  ZHPEV
-#define  zhpevd_ ZHPEVD
-#define  zhbev_  ZHBEV
-#define  zhbevd_ ZHBEVD
-#define  zgees_  ZGEES
-#define  zgesvd_ ZGESVD
-#define  zgesdd_ ZGESDD
-#define  zggev_  ZGGEV
-#define  zhegv_  ZHEGV
-#define  zhegvd_ ZHEGVD
-#define  zhpgv_  ZHPGV
-#define  zhpgvd_ ZHPGVD
-#define  zhbgv_  ZHBGV
-#define  zhbgvd_ ZHBGVD
-#define  zgges_  ZGGES
-#define  zggsvd_ ZGGSVD
diff --git a/cpplapack-r198/.svn/pristine/ab/ab94e8ce5fe6e7d57fbfef87f17c993a685dd4c4.svn-base b/cpplapack-r198/.svn/pristine/ab/ab94e8ce5fe6e7d57fbfef87f17c993a685dd4c4.svn-base
deleted file mode 100644
index 4d4b6ef..0000000
--- a/cpplapack-r198/.svn/pristine/ab/ab94e8ce5fe6e7d57fbfef87f17c993a685dd4c4.svn-base
+++ /dev/null
@@ -1,88 +0,0 @@
-//=============================================================================
-//! Samll Complex Double-precision Symmetric Matrix Class
-template<CPPL_INT n> class zhematrix_small
-{
-public:
-  ///////////////////////////////////////////////
-  /////////////////// objects ///////////////////
-  ///////////////////////////////////////////////
-  comple array[(n*(n+1))/2];
-  
-  ///////////////////////////////////////////////
-  ///////////////// constructors ////////////////
-  ///////////////////////////////////////////////
-  inline zhematrix_small();
-  inline explicit zhematrix_small(const zhematrix&);
-  inline ~zhematrix_small();
-  
-  ///////////////////////////////////////////////
-  ////////////////// functions //////////////////
-  ///////////////////////////////////////////////
-  //////// cast ////////
-  inline zgematrix_small<n,n> to_zgematrix_small() const;
-  inline zhematrix to_zhematrix() const;
-  
-  //////// io ////////
-  inline comple& operator()(const CPPL_INT& i, const CPPL_INT& j);
-  inline comple  operator()(const CPPL_INT& i, const CPPL_INT& j) const;
-  inline zhematrix_small<n>& set(const CPPL_INT&, const CPPL_INT&, const comple&);
-  template<CPPL_INT _n> inline friend std::ostream& operator<<(std::ostream&, const zhematrix_small<_n>&);
-  inline void read(const char* filename);
-  inline void write(const char* filename) const;
-  
-  //////// misc ////////
-  inline zhematrix_small<n>& zero();
-  inline zhematrix_small<n>& identity();
-  
-  ///////////////////////////////////////////////
-  ///////////// numerical operators /////////////
-  ///////////////////////////////////////////////
-#ifndef _MSC_VER
-  //////// = ////////
-  template<CPPL_INT N> inline zhematrix_small<N>& operator= (const zhematrix_small<N>&);
-  //////// += ////////
-  template<CPPL_INT N> inline friend zhematrix_small<N>& operator+=(zhematrix_small<N>&, const zhematrix_small<N>&);
-  //////// -= ////////
-  template<CPPL_INT N> inline friend zhematrix_small<N>& operator-=(zhematrix_small<N>&, const zhematrix_small<N>&);
-  //////// *= ////////
-  template<CPPL_INT N> inline friend zhematrix_small<N>& operator*=(zhematrix_small<N>&, const zhematrix_small<N>&);
-  template<CPPL_INT N> inline friend zhematrix_small<N>& operator*=(zhematrix_small<N>&, const             double&);
-  template<CPPL_INT N> inline friend zhematrix_small<N>& operator*=(zhematrix_small<N>&, const             comple&);
-  //////// /= ////////
-  template<CPPL_INT N> inline friend zhematrix_small<N>& operator/=(zhematrix_small<N>&, const             double&);
-  template<CPPL_INT N> inline friend zhematrix_small<N>& operator/=(zhematrix_small<N>&, const             comple&);
-  //////// unary ////////
-  template<CPPL_INT N> inline friend const zhematrix_small<N>& operator+(const zhematrix_small<N>&);
-  template<CPPL_INT N> inline friend zhematrix_small< N > operator-(const zhematrix_small<N>&);
-  //////// + ////////
-  template<CPPL_INT N> inline friend zgematrix_small<N,N> operator+(const zhematrix_small<N>&, const zgematrix_small<N,N>&);
-  template<CPPL_INT N> inline friend zhematrix_small< N > operator+(const zhematrix_small<N>&, const zhematrix_small< N >&);
-  //////// - ////////
-  template<CPPL_INT N> inline friend zgematrix_small<N,N> operator-(const zhematrix_small<N>&, const zgematrix_small<N,N>&);
-  template<CPPL_INT N> inline friend zhematrix_small< N > operator-(const zhematrix_small<N>&, const zhematrix_small< N >&);
-  //////// * ////////
-  template<CPPL_INT N> inline friend zcovector_small< N > operator*(const zhematrix_small<N>&, const zcovector_small< N >&);
-  template<CPPL_INT N> inline friend zgematrix_small<N,N> operator*(const zhematrix_small<N>&, const zgematrix_small<N,N>&);
-  template<CPPL_INT N> inline friend zgematrix_small<N,N> operator*(const zhematrix_small<N>&, const zhematrix_small< N >&);
-  template<CPPL_INT N> inline friend zhematrix_small< N > operator*(const zhematrix_small<N>&, const               double&);
-  template<CPPL_INT N> inline friend zhematrix_small< N > operator*(const zhematrix_small<N>&, const               comple&);
-  //////// / ////////
-  template<CPPL_INT N> inline friend zhematrix_small< N > operator/(const zhematrix_small<N>&, const               double&);
-  template<CPPL_INT N> inline friend zhematrix_small< N > operator/(const zhematrix_small<N>&, const               comple&);
-  //////// comple ////////
-  template<CPPL_INT N> inline friend zhematrix_small< N > operator*(const             double&, const zhematrix_small< N >&);
-  template<CPPL_INT N> inline friend zhematrix_small< N > operator*(const             comple&, const zhematrix_small< N >&);
-  //////// hadamerd ////////
-  template<CPPL_INT N> inline friend zgematrix_small<N,N>  hadamerd(const zhematrix_small<N>&, const zgematrix_small<N,N>&);
-  template<CPPL_INT N> inline friend zhematrix_small< N >  hadamerd(const zhematrix_small<N>&, const zhematrix_small< N >&);  
-#endif//_MSC_VER
-};
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-inline comple det(const zhemat2&);
-inline zhemat2 inv(const zhemat2&);
-inline comple det(const zhemat3&);
-inline zhemat3 inv(const zhemat3&);
diff --git a/cpplapack-r198/.svn/pristine/ab/abb81ecd86d59357fd94a65c5f477a1f063c2ed2.svn-base b/cpplapack-r198/.svn/pristine/ab/abb81ecd86d59357fd94a65c5f477a1f063c2ed2.svn-base
deleted file mode 100644
index 0fbc347..0000000
--- a/cpplapack-r198/.svn/pristine/ab/abb81ecd86d59357fd94a65c5f477a1f063c2ed2.svn-base
+++ /dev/null
@@ -1,16 +0,0 @@
-//=============================================================================
-/*! convert to _zgematrix */
-inline _zgematrix _zgbmatrix::to_zgematrix() const
-{CPPL_VERBOSE_REPORT;
-  zgematrix newmat( zgematrix(m,n).zero() );
-  
-  for(CPPL_INT i=0; i<m; i++){
-    const CPPL_INT jmax =std::min(n,i+ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-kl); j<jmax; j++){
-      newmat(i,j) =(*this)(i,j);
-    }
-  }
-  
-  destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/ac/ac67701d5e5891541e2ec7568e693d86f7ae63f7.svn-base b/cpplapack-r198/.svn/pristine/ac/ac67701d5e5891541e2ec7568e693d86f7ae63f7.svn-base
deleted file mode 100644
index 24cd204..0000000
--- a/cpplapack-r198/.svn/pristine/ac/ac67701d5e5891541e2ec7568e693d86f7ae63f7.svn-base
+++ /dev/null
@@ -1,68 +0,0 @@
-//=============================================================================
-/*! return transposed dgematrix */
-inline _dgematrix t(const dgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-  dgematrix newmat(mat.n,mat.m);
-  
-  for(CPPL_INT i=0; i<newmat.m; i++){
-    for(CPPL_INT j=0; j<newmat.n; j++){
-      newmat(i,j) =mat(j,i);
-    }
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! return its inverse matrix */
-inline _dgematrix i(const dgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(mat.m!=mat.n){
-    ERROR_REPORT;
-    std::cerr << "This matrix is not square and has no inverse matrix." << std::endl
-              << "Your input was (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix mat_cp(mat), mat_inv(mat.m,mat.n);
-  mat_inv.identity();
-  mat_cp.dgesv(mat_inv);
-  
-  return _(mat_inv);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! return its Euclidean norm */
-inline double nrm2(const dgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT N =mat.m*mat.n;
-  CPPL_INT INCX =1;
-  return dnrm2_(&N, mat.array, &INCX);
-}
-
-//=============================================================================
-/*! search the index of element having the largest absolute value
-  in 0-based numbering system */
-inline void idamax(CPPL_INT& i, CPPL_INT& j, const dgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT mn =mat.m*mat.n;
-  CPPL_INT inc =1;
-  CPPL_INT index =idamax_(&mn, mat.array, &inc) -1;
-  i =index%mat.m;
-  j =index/mat.m;
-}
-
-//=============================================================================
-/*! return its largest absolute value */
-inline double damax(const dgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT mn =mat.m*mat.n;
-  CPPL_INT inc =1;
-  return mat.array[idamax_(&mn, mat.array, &inc) -1];
-}
diff --git a/cpplapack-r198/.svn/pristine/ac/ac68a4acaaf5cb43d7d698d7e47b56d9f31ffa7a.svn-base b/cpplapack-r198/.svn/pristine/ac/ac68a4acaaf5cb43d7d698d7e47b56d9f31ffa7a.svn-base
deleted file mode 100644
index a2c1412..0000000
--- a/cpplapack-r198/.svn/pristine/ac/ac68a4acaaf5cb43d7d698d7e47b56d9f31ffa7a.svn-base
+++ /dev/null
@@ -1,66 +0,0 @@
-//=============================================================================
-/*! _zgematrix+zgematrix operator */
-inline _zgematrix operator+(const _zgematrix& matA, const zgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  const CPPL_INT size =matA.m*matA.n;
-  for(CPPL_INT i=0; i<size; i++){
-    matA.array[i] += matB.array[i];
-  }
-  
-  return matA;
-}
-
-//=============================================================================
-/*! _zgematrix-zgematrix operator */
-inline _zgematrix operator-(const _zgematrix& matA, const zgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") - (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  const CPPL_INT size =matA.m*matA.n;
-  for(CPPL_INT i=0; i<size; i++){
-    matA.array[i] -= matB.array[i];
-  }
-  
-  return matA;
-}
-
-//=============================================================================
-/*! _zgematrix*zgematrix operator */
-inline _zgematrix operator*(const _zgematrix& matA, const zgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat( matA.m, matB.n );
-  char transa ='n';
-  char transb ='n';
-  comple alpha =comple(1.,0.);
-  comple beta =comple(0.,0.);
-  
-  zgemm_( &transa, &transb, &matA.m, &matB.n, &matA.n, &alpha, matA.array, &matA.m, matB.array, &matB.m, &beta, newmat.array, &matA.m );
-  
-  matA.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/ac/aca22b99ef452886fba14f9a93e65ae415bdbd29.svn-base b/cpplapack-r198/.svn/pristine/ac/aca22b99ef452886fba14f9a93e65ae415bdbd29.svn-base
deleted file mode 100644
index 4aa9060..0000000
--- a/cpplapack-r198/.svn/pristine/ac/aca22b99ef452886fba14f9a93e65ae415bdbd29.svn-base
+++ /dev/null
@@ -1,12 +0,0 @@
-//=============================================================================
-/*! double*dcovector operator */
-inline _dcovector operator*(const double& d, const dcovector& vec)
-{CPPL_VERBOSE_REPORT;
-  dcovector newvec(vec.l);
-  
-  for(CPPL_INT i=0; i<vec.l; i++){
-    newvec.array[i] =d*vec.array[i];
-  }
-  
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/ac/acd651d14e32ab582f14052990bb70d05b857714.svn-base b/cpplapack-r198/.svn/pristine/ac/acd651d14e32ab582f14052990bb70d05b857714.svn-base
deleted file mode 100644
index 88a187e..0000000
--- a/cpplapack-r198/.svn/pristine/ac/acd651d14e32ab582f14052990bb70d05b857714.svn-base
+++ /dev/null
@@ -1,52 +0,0 @@
-//=============================================================================
-/*! zgbmatrix*=double operator */
-inline zgbmatrix& zgbmatrix::operator*=(const double& d)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT size =(kl+ku+1)*n;
-  CPPL_INT inc =1;
-  zdscal_(&size, &d, array, &inc);
-  return *this;
-}
-
-//=============================================================================
-/*! zgbmatrix/=double operator */
-inline zgbmatrix& zgbmatrix::operator/=(const double& d)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT size =(kl+ku+1)*n;
-  double dinv =1./d;
-  CPPL_INT inc =1;
-  zdscal_(&size, &dinv, array, &inc);
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zgbmatrix*double operator */
-inline _zgbmatrix operator*(const zgbmatrix& mat, const double& d)
-{CPPL_VERBOSE_REPORT;
-  zgbmatrix newmat(mat.m, mat.n, mat.kl, mat.ku);
-  
-  const CPPL_INT size =(newmat.kl+newmat.ku+1)*newmat.n;
-  for(CPPL_INT i=0; i<size; i++){
-    newmat.array[i] =mat.array[i]*d;
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! zgbmatrix/double operator */
-inline _zgbmatrix operator/(const zgbmatrix& mat, const double& d)
-{CPPL_VERBOSE_REPORT;
-  zgbmatrix newmat(mat.m, mat.n, mat.kl, mat.ku);
-  
-  const CPPL_INT size =(newmat.kl+newmat.ku+1)*newmat.n;
-  for(CPPL_INT i=0; i<size; i++){
-    newmat.array[i] =mat.array[i]/d;
-  }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/ac/ace7ce112ce6757a1e9f8851bc28e49e6c84d4fb.svn-base b/cpplapack-r198/.svn/pristine/ac/ace7ce112ce6757a1e9f8851bc28e49e6c84d4fb.svn-base
deleted file mode 100644
index be38af2..0000000
--- a/cpplapack-r198/.svn/pristine/ac/ace7ce112ce6757a1e9f8851bc28e49e6c84d4fb.svn-base
+++ /dev/null
@@ -1,240 +0,0 @@
-//=============================================================================
-/*! dgbmatrix=_dgbmatrix operator */
-inline dgbmatrix& dgbmatrix::operator=(const _dgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  shallow_copy(mat);
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! dgbmatrix+=_dgbmatrix operator\n
-  If the band width of the left side matrix is narrower than the right side matrix, the band width of the left side matrix become thicker as same as the right side matrix. */
-inline dgbmatrix& dgbmatrix::operator+=(const _dgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.n || m!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was" << "(" << m <<"x"<< n <<","<< kl <<":"<< ku << ") "<< "+=" << "("<< mat.m <<"x"<< mat.n <<","<< mat.kl <<":"<< mat.ku <<") " << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  if(kl>=mat.kl && ku>=mat.ku){
-    for(CPPL_INT i=0; i<m; i++){
-      const CPPL_INT jmax =std::min(n,i+mat.ku+1);
-      for(CPPL_INT j=std::max(CPPL_INT(0),i-mat.kl); j<jmax; j++){
-        operator()(i,j) += mat(i,j);
-      }
-    }
-    
-    mat.destroy();
-    return *this;
-  }
-  else{
-    dgbmatrix newmat(m,n,std::max(kl,mat.kl),std::max(ku,mat.ku));
-    newmat.zero();
-    for(CPPL_INT i=0; i<m; i++){
-      const CPPL_INT jmax1 =std::min(n,i+ku+1);
-      for(CPPL_INT j=std::max(CPPL_INT(0),i-kl); j<jmax1; j++){
-        newmat(i,j)+=operator()(i,j);
-      }
-      const CPPL_INT jmax2 =std::min(mat.n,i+mat.ku+1);
-      for(CPPL_INT j=std::max(CPPL_INT(0),i-mat.kl); j<jmax2; j++){
-        newmat(i,j)+=mat(i,j);
-      }
-    }
-    
-    swap(*this,newmat);
-    mat.destroy();
-    return *this;
-  }
-}
-
-//=============================================================================
-/*! dgbmatrix-=_dgbmatrix operator\n
-  If the band width of the left side matrix is narrower than the right side matrix, the band width of the left side matrix become thicker as same as the right side matrix. */
-inline dgbmatrix& dgbmatrix::operator-=(const _dgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.n || m!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was" << "(" << m <<"x"<< n <<","<< kl <<":"<< ku << ") "<< "-=" << "("<< mat.m <<"x"<< mat.n <<","<< mat.kl <<":"<< mat.ku <<") " << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  if(kl>=mat.kl && ku>=mat.ku){
-    for(CPPL_INT i=0; i<m; i++){
-      const CPPL_INT jmax =std::min(n,i+mat.ku+1);
-      for(CPPL_INT j=std::max(CPPL_INT(0),i-mat.kl); j<jmax; j++){
-        operator()(i,j) -= mat(i,j);
-      }
-    }
-    
-    mat.destroy();
-    return *this;
-  }
-  else{
-    dgbmatrix newmat(m,n,std::max(kl,mat.kl),std::max(ku,mat.ku));
-    newmat.zero();
-    for(CPPL_INT i=0; i<m; i++){
-      const CPPL_INT jmax1 =std::min(n,i+ku+1);
-      for(CPPL_INT j=std::max(CPPL_INT(0),i-kl); j<jmax1; j++){
-        newmat(i,j)+=operator()(i,j);
-      }
-      const CPPL_INT jmax2 =std::min(mat.n,i+mat.ku+1);
-      for(CPPL_INT j=std::max(CPPL_INT(0),i-mat.kl); j<jmax2; j++){
-        newmat(i,j)-=mat(i,j);
-      }
-    }
-    
-    swap(*this,newmat);
-    mat.destroy();
-    return *this;
-  }
-}
-
-//=============================================================================
-/*! dgbmatrix*=_dgbmatrix operator */
-inline dgbmatrix& dgbmatrix::operator*=(const _dgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << m << "x" << n << ") * (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgbmatrix newmat( m, mat.n, std::min(kl+mat.kl, m-1), std::min(ku+mat.ku, mat.n-1) );
-  newmat.zero();
-  
-  for(CPPL_INT i=0; i<newmat.m; i++){
-    const CPPL_INT jmax =std::min(newmat.n,i+newmat.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-newmat.kl); j<jmax; j++){
-      const CPPL_INT kmax =std::min( std::min(n,i+ku+1), std::min(mat.m,j+mat.kl+1) );
-      for(CPPL_INT k=std::max( std::max(CPPL_INT(0),i-kl), std::max(CPPL_INT(0),j-mat.ku) ); k<kmax; k++){
-        newmat(i,j)+= operator()(i,k)*mat(k,j);
-      }
-    }
-  }
-  
-  swap(*this,newmat);
-  mat.destroy();
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! dgbmatrix+_dgbmatrix operator */
-inline _dgbmatrix operator+(const dgbmatrix& matA, const _dgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  if(matB.kl>matA.kl && matB.ku>matA.ku){
-    for(CPPL_INT i=0; i<matA.m; i++){
-      const CPPL_INT jmax =std::min(matA.n,i+matA.ku+1);
-      for(CPPL_INT j=std::max(CPPL_INT(0),i-matA.kl); j<jmax; j++){
-        matB(i,j)+=matA(i,j);
-      }
-    }
-    
-    return matB;
-  }
-  else{
-    dgbmatrix newmat(matA.m,matA.n,std::max(matA.kl,matB.kl),std::max(matA.ku,matB.ku));
-    newmat.zero();
-    
-    for(CPPL_INT i=0; i<matA.m; i++){
-      const CPPL_INT jmax1 =std::min(matA.n,i+matA.ku+1);
-      for(CPPL_INT j=std::max(CPPL_INT(0),i-matA.kl); j<jmax1; j++){
-        newmat(i,j)+=matA(i,j);
-      }
-      const CPPL_INT jmax2 =std::min(matB.n,i+matB.ku+1);
-      for(CPPL_INT j=std::max(CPPL_INT(0),i-matB.kl); j<jmax2; j++){
-        newmat(i,j)+=matB(i,j);
-      }
-    }
-    
-    matB.destroy();
-    return _(newmat);
-  }
-}
-
-//=============================================================================
-/*! dgbmatrix-_dgbmatrix operator */
-inline _dgbmatrix operator-(const dgbmatrix& matA, const _dgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") - (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgbmatrix newmat(matA.m,matA.n,std::max(matA.kl,matB.kl),std::max(matA.ku,matB.ku));
-  newmat.zero();
-  
-  for(CPPL_INT i=0; i<matA.m; i++){
-    const CPPL_INT jmax1 =std::min(matA.n,i+matA.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matA.kl); j<jmax1; j++){
-      newmat(i,j)+=matA(i,j);
-    }
-    const CPPL_INT jmax2 =std::min(matB.n,i+matB.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matB.kl); j<jmax2; j++){
-      newmat(i,j)-=matB(i,j);
-    }
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! dgbmatrix*_dgbmatrix operator */
-inline _dgbmatrix operator*(const dgbmatrix& matA, const _dgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgbmatrix newmat( matA.m, matB.n, std::min(matA.kl+matB.kl,matA.m-1), std::min(matA.ku+matB.ku,matB.n-1) );
-  newmat.zero();
-  
-  for(CPPL_INT i=0; i<newmat.m; i++){
-    const CPPL_INT jmax =std::min(newmat.n,i+newmat.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-newmat.kl); j<jmax; j++){
-      const CPPL_INT kmax =std::min( std::min(matA.n,i+matA.ku+1), std::min(matB.m,j+matB.kl+1) );
-      for(CPPL_INT k=std::max( std::max(CPPL_INT(0),i-matA.kl), std::max(CPPL_INT(0),j-matB.ku) ); k<kmax; k++){
-        newmat(i,j)+= matA(i,k)*matB(k,j);
-      }
-    }
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/ad/add0f5b569d55a25398ff18342bacd387a6feee5.svn-base b/cpplapack-r198/.svn/pristine/ad/add0f5b569d55a25398ff18342bacd387a6feee5.svn-base
deleted file mode 100644
index 035f267..0000000
--- a/cpplapack-r198/.svn/pristine/ad/add0f5b569d55a25398ff18342bacd387a6feee5.svn-base
+++ /dev/null
@@ -1,50 +0,0 @@
-//=============================================================================
-/*! cast to _zhematrix */
-inline _zhematrix dsymatrix::to_zhematrix() const
-{CPPL_VERBOSE_REPORT;
-  zhematrix newmat(n);
-  
-  for(CPPL_INT j=0; j<n; j++){
-    for(CPPL_INT i=j; i<n; i++){
-      newmat(i,j) =comple((*this)(i,j),0.0);
-    }
-  }
-  
-  return _(newmat);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! convert to _dgematrix */
-inline _dgematrix dsymatrix::to_dgematrix() const
-{CPPL_VERBOSE_REPORT;
-  dgematrix newmat(n,n);
-  
-  for(CPPL_INT i=0; i<n; i++){
-    for(CPPL_INT j=0; j<n; j++){
-      newmat(i,j) =(*this)(i,j);
-    }
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! convert to _dssmatrix */
-inline _dssmatrix dsymatrix::to_dssmatrix(const double eps) const
-{CPPL_VERBOSE_REPORT;
-  dssmatrix newmat(n);
-  
-  for(CPPL_INT j=0; j<n; j++){
-    for(CPPL_INT i=j; i<n; i++){
-      if( fabs((*this)(i,j))>eps ){
-        newmat(i,j) =(*this)(i,j);
-      }
-    }
-  }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/ad/add3351bfe76333057c06198a88674c6a28cdbd9.svn-base b/cpplapack-r198/.svn/pristine/ad/add3351bfe76333057c06198a88674c6a28cdbd9.svn-base
deleted file mode 100644
index 85a4f85..0000000
--- a/cpplapack-r198/.svn/pristine/ad/add3351bfe76333057c06198a88674c6a28cdbd9.svn-base
+++ /dev/null
@@ -1,76 +0,0 @@
-//=============================================================================
-/*! dgsmatrix+dgbmatrix operator */
-inline _dgematrix operator+(const dgsmatrix& matA, const dgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat( matA.to_dgematrix() );
-  
-  for(CPPL_INT i=0; i<matB.m; i++){
-    const CPPL_INT jmax =std::min(matB.n,i+matB.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matB.kl); j<jmax; j++){
-      newmat(i,j)+=matB(i,j);
-    }
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! dgsmatrix-dgbmatrix operator */
-inline _dgematrix operator-(const dgsmatrix& matA, const dgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat( matA.to_dgematrix() );
-  
-  for(CPPL_INT i=0; i<matB.m; i++){
-    const CPPL_INT jmax =std::min(matB.n,i+matB.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matB.kl); j<jmax; j++){
-      newmat(i,j)-=matB(i,j);
-    }
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! dgsmatrix*dgbmatrix operator */
-inline _dgematrix operator*(const dgsmatrix& matA, const dgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat( matA.m, matB.n );
-  newmat.zero();
-  
-  const std::vector<dcomponent>::const_iterator matA_data_end =matA.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matA.data.begin(); it!=matA_data_end; it++){
-    const CPPL_INT jmax =std::min(matB.n,it->j+matB.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),it->j-matB.kl); j<jmax; j++){
-      newmat(it->i,j) += it->v*matB(it->j,j);
-    }
-  }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/ad/addc96a7f2207b14e81f247c3724a98be9379975.svn-base b/cpplapack-r198/.svn/pristine/ad/addc96a7f2207b14e81f247c3724a98be9379975.svn-base
deleted file mode 100644
index 69e06b1..0000000
--- a/cpplapack-r198/.svn/pristine/ad/addc96a7f2207b14e81f247c3724a98be9379975.svn-base
+++ /dev/null
@@ -1,32 +0,0 @@
-#!/bin/sh
-
-######## base ########
-version=`grep Version ./control | awk '{print $2}'`
-name=cpplapack_"$version"_all
-dir=/tmp/$name
-rm -rf $dir
-mkdir $dir
-
-######## DEBIAN ########
-mkdir $dir/DEBIAN
-cp ./control $dir/DEBIAN
-
-######## include/cpplapack ########
-mkdir $dir/usr/
-mkdir $dir/usr/include
-mkdir $dir/usr/include/cpplapack
-cp -r ../../include/* $dir/usr/include/cpplapack
-cat $dir/usr/include/cpplapack/cpplapack.h | sed -e 's/\#include\ \"/\#include\ \"cpplapack\//g'\ > $dir/usr/include/cpplapack.h
-rm $dir/usr/include/cpplapack/cpplapack.h
-rm -rf `find $dir -type d -name .svn`
-sudo chown -R root:root $dir
-
-######## dpkg-deb ########
-cd /tmp
-rm -f $name.deb
-dpkg -b $name
-sudo rm -rf $dir
-echo "/tmp/$name.deb was successfully created."
-
-## sudo dpkg -i cpplapack
-## sudo dpkg -r cpplapack
diff --git a/cpplapack-r198/.svn/pristine/ad/adfd04b92056852b9faf5839edf31f9fac50d7d4.svn-base b/cpplapack-r198/.svn/pristine/ad/adfd04b92056852b9faf5839edf31f9fac50d7d4.svn-base
deleted file mode 100644
index 2527592..0000000
--- a/cpplapack-r198/.svn/pristine/ad/adfd04b92056852b9faf5839edf31f9fac50d7d4.svn-base
+++ /dev/null
@@ -1,9 +0,0 @@
-//=============================================================================
-/*! double*_zgbmatrix operator */
-inline _zgbmatrix operator*(const double& d, const _zgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT size =(mat.kl+mat.ku+1)*mat.n;
-  CPPL_INT inc =1;
-  zdscal_(&size, &d, mat.array, &inc);
-  return mat;
-}
diff --git a/cpplapack-r198/.svn/pristine/ae/aee4d3c164f0ad22ec57d5120bcfdca304b24e83.svn-base b/cpplapack-r198/.svn/pristine/ae/aee4d3c164f0ad22ec57d5120bcfdca304b24e83.svn-base
deleted file mode 100644
index 25ad123..0000000
--- a/cpplapack-r198/.svn/pristine/ae/aee4d3c164f0ad22ec57d5120bcfdca304b24e83.svn-base
+++ /dev/null
@@ -1,38 +0,0 @@
-//=============================================================================
-/*! dgrmatrix constructor without arguments */
-inline dgrmatrix::dgrmatrix()
-{CPPL_VERBOSE_REPORT;
-  m =0;
-  n =0;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! dgrmatrix copy constructor */
-inline dgrmatrix::dgrmatrix(const dgrmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  copy(mat);
-}
-
-//=============================================================================
-/*! dgrmatrix constructor with filename */
-inline dgrmatrix::dgrmatrix(const char* filename)
-{CPPL_VERBOSE_REPORT;
-  read(filename);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! dgrmatrix destructor */
-inline dgrmatrix::~dgrmatrix()
-{CPPL_VERBOSE_REPORT;
-  a.clear();
-  ia.clear();
-  ja.clear();
-}
diff --git a/cpplapack-r198/.svn/pristine/af/af36aa0aee3818cc07f79211140be8cf8e9a1183.svn-base b/cpplapack-r198/.svn/pristine/af/af36aa0aee3818cc07f79211140be8cf8e9a1183.svn-base
deleted file mode 100644
index 9f4b207..0000000
--- a/cpplapack-r198/.svn/pristine/af/af36aa0aee3818cc07f79211140be8cf8e9a1183.svn-base
+++ /dev/null
@@ -1,11 +0,0 @@
-//=============================================================================
-/*! complex*_zgsmatrix operator */
-inline _zgsmatrix operator*(const comple& d, const _zgsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  const std::vector<zcomponent>::iterator mat_data_end =mat.data.end();
-  for(std::vector<zcomponent>::iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    it->v *= d;
-  }
-  
-  return mat;
-}
diff --git a/cpplapack-r198/.svn/pristine/af/af650cfc58edaabff409603d1e06039eaab69aeb.svn-base b/cpplapack-r198/.svn/pristine/af/af650cfc58edaabff409603d1e06039eaab69aeb.svn-base
deleted file mode 100644
index 49968e8..0000000
--- a/cpplapack-r198/.svn/pristine/af/af650cfc58edaabff409603d1e06039eaab69aeb.svn-base
+++ /dev/null
@@ -1,97 +0,0 @@
-###############################################################################
-##                                 Makefile                                  ##
-###############################################################################
-
-TARGET = A.OUT
-
-###############################################################################
-
-ifeq ($(COMPILER), icpc)
-	include $(HOME)/local/cpplapack/makefiles/Makefile.icpc
-else
-	include $(HOME)/local/cpplapack/makefiles/Makefile.g++
-endif
-
-###############################################################################
-
-THIS_FILE:= $(firstword $(MAKEFILE_LIST))
-OPTIONS:= $(MAKEFLAGS)
-
-HEADERS:= $(shell find ./ -iname '*.hpp')
-SOURCES:= $(shell find ./ -iname '*.cpp')
-SOURCES:= $(sort $(SOURCES))
-
-OBJECTS:= $(SOURCES:%.cpp=%.o)
-
-ifeq ($(OMP_NUM_THREADS),)
-	OMP_NUM_THREADS:= $(shell cat /proc/cpuinfo | grep processor | wc -l)
-endif
-
-###############################################################################
-###############################################################################
-###############################################################################
-
-debug: depend
-	@echo -e "################################"
-	@echo -e "#### building in debug mode ####"
-	@echo -e "################################\n"
-	@$(MAKE) -j $(OMP_NUM_THREADS) -f $(THIS_FILE) --no-print-directory _build DEBUG=1
-	@echo -e "#############################"
-	@echo -e "#### built in debug mode ####"
-	@echo -e "#############################\n"
-
-release: depend
-	@echo -e "##################################"
-	@echo -e "#### building in release mode ####"
-	@echo -e "##################################\n"
-	@$(MAKE) -j $(OMP_NUM_THREADS) -f $(THIS_FILE) --no-print-directory _build RELEASE=1
-	@echo -e "###############################"
-	@echo -e "#### built in release mode ####"
-	@echo -e "###############################\n"
-
-profile: depend
-	@echo -e "##################################"
-	@echo -e "#### building in profile mode ####"
-	@echo -e "##################################\n"
-	@$(MAKE) -j $(OMP_NUM_THREADS) -f $(THIS_FILE) --no-print-directory _build PROFILE=1
-	@echo -e "###############################"
-	@echo -e "#### built in profile mode ####"
-	@echo -e "###############################\n"
-
-verbose: depend
-	@echo -e "##################################"
-	@echo -e "#### building in verbose mode ####"
-	@echo -e "##################################\n"
-	@$(MAKE) -j $(OMP_NUM_THREADS) -f $(THIS_FILE) --no-print-directory _build DEBUG=1 VERBOSE=1
-	@echo -e "###############################"
-	@echo -e "#### built in verbose mode ####"
-	@echo -e "###############################\n"
-
-###############################################################################
-
-.SUFFIXES: .cpp .o
-.cpp.o:
-	$(CXX) -c $< $(FLAGS) $(CFLAGS) $(INCLUDE_DIRS) $(MACROS) -o $@
-	@echo
-
-_build: $(OBJECTS)
-	$(CXX) $(OBJECTS) $(LIBS) $(FLAGS) $(LFLAGS) $(LIB_DIRS) -o $(TARGET)
-	@echo
-
-###############################################################################
-
-depend:
-	makedepend -f- -Y $(SOURCES) > Makefile.depend 2> /dev/null
-#	gccmakedep -- -I./ -MM -- $(SOURCES)
-#	$(CXX) -MM -I./ $(SOURCES) > Makefile.depend
-#	$(CXX) -MM $(INCLUDE_DIRS) $(SOURCES) > Makefile.depend
-	@echo
-
-clean:
-	rm -f $(OBJECTS)
-
-fullclean:
-	rm -f $(shell find -name '*.o') Makefile.depend std err *~ $(TARGET)
-
-###############################################################################
--include Makefile.depend
diff --git a/cpplapack-r198/.svn/pristine/af/af8a980d0e6a170afaef99e3b7d562d709b52804.svn-base b/cpplapack-r198/.svn/pristine/af/af8a980d0e6a170afaef99e3b7d562d709b52804.svn-base
deleted file mode 100644
index e56f2ee..0000000
--- a/cpplapack-r198/.svn/pristine/af/af8a980d0e6a170afaef99e3b7d562d709b52804.svn-base
+++ /dev/null
@@ -1,52 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int M(3), N(4);
-  
-  CPPL::zhematrix A(N);
-  for(int i=0; i<A.n; i++){
-    for(int j=0; j<i; j++){
-      A(i,j) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-    }
-    A(i,i) =complex<double>(rand()/(RAND_MAX/10), 0.0);
-  }
-  
-  cout << "A =\n" << A << endl;
-  
-  cout << "#### t(A) ####" << endl;
-  cout << "t(A) =\n" << CPPL::t(A) << endl;
-
-  cout << "#### i(A) ####" << endl;
-  A.resize(M);
-  for(int i=0; i<A.n; i++){
-    for(int j=0; j<i; j++){
-      A(i,j) =double( rand() /(RAND_MAX/10) );
-    }
-    A(i,i) =complex<double>(rand()/(RAND_MAX/10), 0.0);
-  }
-  CPPL::zgematrix A_inv;
-  
-  A_inv = CPPL::i(A);
-  //A_inv =i(A); // g++ cannot compile this line
-  
-  cout << "A =\n" << A << endl;
-  cout << "A_inv =\n" << A_inv << endl;
-  cout << "A*A_inv =\n" << A*A_inv << endl;
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/af/afc9a304a0cc903d7664497576f0c58c2207a52f.svn-base b/cpplapack-r198/.svn/pristine/af/afc9a304a0cc903d7664497576f0c58c2207a52f.svn-base
deleted file mode 100644
index ed291fb..0000000
--- a/cpplapack-r198/.svn/pristine/af/afc9a304a0cc903d7664497576f0c58c2207a52f.svn-base
+++ /dev/null
@@ -1,42 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int N(5), CAP(4);
-  
-  CPPL::dssmatrix A(N,CAP);
-  A.put(0,0, 1.);
-  A.put(3,2, 2.);
-  A.put(1,2, 3.);
-  A.put(4,1, 4.);
-  cout << "A =\n" << A << endl;
-  A.checkup();
-  
-  CPPL::drovector x(N);
-  for(int i=0; i<x.l; i++){
-    x(i) =double( rand() /(RAND_MAX/10) );
-  }
-  cout << "x =\n" << x << endl;
-  
-  cout << "x*A =\n" << x*A << endl;
-  
-  CPPL::dsymatrix B( A.to_dsymatrix() );
-  cout << "B =\n" << B << endl;
-  cout << "x*B =\n" << x*B << endl;
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/b0/b00c47a9a4d6c3abb380e471d397c522ba7f7ac2.svn-base b/cpplapack-r198/.svn/pristine/b0/b00c47a9a4d6c3abb380e471d397c522ba7f7ac2.svn-base
deleted file mode 100644
index 7b7ef47..0000000
--- a/cpplapack-r198/.svn/pristine/b0/b00c47a9a4d6c3abb380e471d397c522ba7f7ac2.svn-base
+++ /dev/null
@@ -1,70 +0,0 @@
-//=============================================================================
-/*! cast to _zhsmatrix */
-inline _zhsmatrix _dssmatrix::to_zhsmatrix() const
-{CPPL_VERBOSE_REPORT;
-  zhsmatrix newmat(n,CPPL_INT(data.size()));
-  
-  const std::vector<dcomponent>::const_iterator data_end =data.end();
-  for(std::vector<dcomponent>::const_iterator it=data.begin(); it!=data_end; it++){
-    newmat.put(it->i, it->j, comple(it->v,0.0));
-  }
-  
-  destroy();
-  return _(newmat);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! convert to _dgematrix */
-inline _dgematrix _dssmatrix::to_dgematrix() const
-{CPPL_VERBOSE_REPORT;
-  dgematrix newmat(m,n);
-  newmat.zero();
-  
-  const std::vector<dcomponent>::const_iterator data_end =data.end();
-  for(std::vector<dcomponent>::const_iterator it=data.begin(); it!=data_end; it++){
-    newmat(it->i, it->j) =it->v;
-    newmat(it->j, it->i) =it->v;
-  }
-  
-  destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! convert to _dsymatrix */
-inline _dsymatrix _dssmatrix::to_dsymatrix() const
-{CPPL_VERBOSE_REPORT;
-  dsymatrix newmat(n);
-  newmat.zero();
-  
-  const std::vector<dcomponent>::const_iterator data_end =data.end();
-  for(std::vector<dcomponent>::const_iterator it=data.begin(); it!=data_end; it++){
-    newmat(it->i, it->j) =it->v;
-  }
-  
-  destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! convert to _dgsmatrix */
-inline _dgsmatrix _dssmatrix::to_dgsmatrix() const
-{CPPL_VERBOSE_REPORT;
-  dgsmatrix newmat(m,n,CPPL_INT(data.size()*2));
-  newmat.zero();
-  
-  const std::vector<dcomponent>::const_iterator data_end =data.end();
-  for(std::vector<dcomponent>::const_iterator it=data.begin(); it!=data_end; it++){
-    newmat.put(it->i, it->j, it->v);
-    if(it->i!=it->j){
-      newmat.put(it->j, it->i, it->v);
-    }
-  }
-  
-  destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/b0/b01fa84fe02382cda2e2b418bb0feef00429ab08.svn-base b/cpplapack-r198/.svn/pristine/b0/b01fa84fe02382cda2e2b418bb0feef00429ab08.svn-base
deleted file mode 100644
index 3d4d727..0000000
--- a/cpplapack-r198/.svn/pristine/b0/b01fa84fe02382cda2e2b418bb0feef00429ab08.svn-base
+++ /dev/null
@@ -1,86 +0,0 @@
-//=============================================================================
-/*! _zhematrix+zgbmatrix operator */
-inline _zgematrix operator+(const _zhematrix& matA, const zgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(matA.n, matA.n);
-  
-  for(CPPL_INT i=0; i<matB.m; i++){
-    for(CPPL_INT j=0; j<matA.n; j++){
-      newmat(i,j) =matA(i,j);
-    }
-    const CPPL_INT jmax =std::min(matB.n,i+matB.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matB.kl); j<jmax; j++){
-      newmat(i,j) += matB(i,j);
-    }
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _zhematrix-zgbmatrix operator */
-inline _zgematrix operator-(const _zhematrix& matA, const zgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(matA.n, matA.n);
-  
-  for(CPPL_INT i=0; i<matB.m; i++){
-    for(CPPL_INT j=0; j<matA.n; j++){
-      newmat(i,j) =matA(i,j);
-    }
-    const CPPL_INT jmax =std::min(matB.n,i+matB.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matB.kl); j<jmax; j++){
-      newmat(i,j) -= matB(i,j);
-    }
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _zgematrix*zgbmatrix operator */
-inline _zgematrix operator*(const _zhematrix& matA, const zgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat( matA.n, matB.n );
-  newmat.zero();
-  
-  for(CPPL_INT i=0; i<newmat.m; i++){
-    for(CPPL_INT j=0; j<newmat.n; j++){
-      const CPPL_INT kmax =std::min(matB.m,j+matB.kl+1);
-      for(CPPL_INT k=std::max(CPPL_INT(0),j-matB.ku); k<kmax; k++){
-        newmat(i,j) += matA(i,k)*matB(k,j);
-      }
-    }
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/b0/b0e1b1267a1ea4877937f4aef09cef04018da578.svn-base b/cpplapack-r198/.svn/pristine/b0/b0e1b1267a1ea4877937f4aef09cef04018da578.svn-base
deleted file mode 100644
index 2b02b6b..0000000
--- a/cpplapack-r198/.svn/pristine/b0/b0e1b1267a1ea4877937f4aef09cef04018da578.svn-base
+++ /dev/null
@@ -1,62 +0,0 @@
-//=============================================================================
-/*! _zcovector+_zcovector operator */
-inline _zcovector operator+(const _zcovector& vecA, const _zcovector& vecB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vecA.l!=vecB.l){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make a sumation." << std::endl
-              << "Your input was (" << vecA.l << ") + (" << vecB.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<vecA.l; i++){
-    vecA.array[i] += vecB.array[i];
-  }
-  
-  vecB.destroy();
-  return vecA;
-}
-
-//=============================================================================
-/*! _zcovector-_zcovector operator */
-inline _zcovector operator-(const _zcovector& vecA, const _zcovector& vecB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vecA.l!=vecB.l){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make a subtraction." << std::endl
-              << "Your input was (" << vecA.l << ") - (" << vecB.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<vecA.l; i++){
-    vecA.array[i] -= vecB.array[i];
-  }
-  
-  vecB.destroy();
-  return vecA;
-}
-
-//=============================================================================
-/*! _zcovector^T*_zcovector operator (inner product) */
-inline comple operator%(const _zcovector& vecA, const _zcovector& vecB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vecA.l!=vecB.l){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make a dot product." << std::endl
-              << "Your input was (" << vecA.l << ") % (" << vecB.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  CPPL_INT inc =1;
-  comple val =zdotu_( &vecA.l, vecA.array, &inc, vecB.array, &inc );
-  
-  vecA.destroy();
-  vecB.destroy();
-  return val;
-}
diff --git a/cpplapack-r198/.svn/pristine/b0/b0f6fbb1eb4bb7048f8154e320ae4b25d0566d50.svn-base b/cpplapack-r198/.svn/pristine/b0/b0f6fbb1eb4bb7048f8154e320ae4b25d0566d50.svn-base
deleted file mode 100644
index f9c57d8..0000000
--- a/cpplapack-r198/.svn/pristine/b0/b0f6fbb1eb4bb7048f8154e320ae4b25d0566d50.svn-base
+++ /dev/null
@@ -1,277 +0,0 @@
-//=============================================================================
-/*! operator() for const object */
-inline double dgsmatrix::operator()(const CPPL_INT& i, const CPPL_INT& j) const
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || j<0 || m<=i || n<=j ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the matrix size." << std::endl
-              << "Your input is (" << i << "," << j << "), whereas the matrix size is " << m << "x" << n << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //// search (i,j) component ////
-  const std::vector<CPPL_INT>::const_iterator rows_i_end =rows[i].end();
-  for(std::vector<CPPL_INT>::const_iterator p=rows[i].begin(); p!=rows_i_end; p++){
-    if(data[*p].j==j){ return data[*p].v; }
-  }
-  
-  //// (i,j) component was not found ////
-  return 0.0;
-}
-
-//=============================================================================
-/*! operator() for const object */
-inline double& dgsmatrix::operator()(const CPPL_INT& i, const CPPL_INT& j)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || j<0 || m<=i || n<=j ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the matrix size." << std::endl
-              << "Your input is (" << i << "," << j << "), whereas the matrix size is " << m << "x" << n << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //////// search (i,j) component ////////
-  const std::vector<CPPL_INT>::iterator rows_i_end =rows[i].end();
-  for(std::vector<CPPL_INT>::iterator p=rows[i].begin(); p!=rows_i_end; p++){
-    if(data[*p].j==j){ return data[*p].v; }
-  }
-  
-  //////// (i,j) component not found ////////
-  rows[i].push_back(CPPL_INT(data.size()));
-  cols[j].push_back(CPPL_INT(data.size()));
-  data.push_back(dcomponent(i,j,0.));
-  return data.back().v;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! put value with volume cheack without isListed check */
-inline dgsmatrix& dgsmatrix::put(const CPPL_INT& i, const CPPL_INT& j, const double& v)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || j<0 || m<=i || n<=j ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the matrix size." << std::endl
-              << "Your input is (" << i << "," << j << "), whereas the matrix size is " << m << "x" << n << "." << std::endl;
-    exit(1);
-  }
-  const std::vector<dcomponent>::const_iterator data_end =data.end();
-  for(std::vector<dcomponent>::const_iterator it=data.begin(); it!=data_end; it++){
-    if( it->i==i && it->j==j ){
-      ERROR_REPORT;
-      std::cerr << "The required component is already listed." << std::endl
-                << "Your input was (" << i << "," << j << "," << v << ")." << std::endl;
-      exit(1);
-    }
-  }
-#endif//CPPL_DEBUG
-  
-  //// push ////
-  rows[i].push_back(CPPL_INT(data.size()));
-  cols[j].push_back(CPPL_INT(data.size()));
-  data.push_back(dcomponent(i,j,v));
-  
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! delete the entry of a component */
-inline dgsmatrix& dgsmatrix::del(const CPPL_INT i, const CPPL_INT j)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || j<0 || m<=i || n<=j ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the matrix size." << std::endl
-              << "Your input is (" << i << "," << j << "), whereas the matrix size is " << m << "x" << n << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //// search (i,j) component ////
-  const std::vector<CPPL_INT>::iterator rows_i_end =rows[i].end();
-  for(std::vector<CPPL_INT>::iterator p=rows[i].begin(); p!=rows_i_end; p++){
-    if(data[*p].j==j){//exists
-      //// save position ////
-      CPPL_INT c =*p;
-      CPPL_INT C =CPPL_INT(data.size()-1);
-      
-      //// data translation ////
-      data[c]=data.back();
-      data.pop_back();
-      
-      //// remove from List ////
-      rows[i].erase(p);
-      const std::vector<CPPL_INT>::iterator cols_j_end =cols[j].end();
-      for(std::vector<CPPL_INT>::iterator q=cols[j].begin(); q!=cols_j_end; q++){
-        if(*q==c){ cols[j].erase(q); break; }
-      }
-      
-      //// modify the entry of translated component ////
-      CPPL_INT I(data[c].i), J(data[c].j);
-      const std::vector<CPPL_INT>::iterator rows_I_end =rows[I].end();
-      for(std::vector<CPPL_INT>::iterator q=rows[I].begin(); q!=rows_I_end; q++){
-        if(*q==C){ *q=c; break; }
-      }
-      const std::vector<CPPL_INT>::iterator cols_J_end =cols[J].end();
-      for(std::vector<CPPL_INT>::iterator q=cols[J].begin(); q!=cols_J_end; q++){
-        if(*q==C){ *q=c; break; }
-      }
-      return *this;
-    }
-  }
-  
-#ifdef  CPPL_DEBUG
-  std::cerr << "# [NOTE]@dgsmatrix::del(CPPL_INT&, CPPL_INT&): The required component was not listed. Your input was (" << i << "," << j << ")." << std::endl;
-#endif//CPPL_DEBUG
-  
-  return *this;
-}
-
-//=============================================================================
-/*! delete the entry of an element */
-inline dgsmatrix& dgsmatrix::del(const CPPL_INT c)
-{CPPL_VERBOSE_REPORT;
-  if( c==CPPL_INT(data.size()-1) ){//if c is the last element
-    CPPL_INT i(data[c].i), j(data[c].j);
-    const std::vector<CPPL_INT>::iterator rows_i_end =rows[i].end();
-    for(std::vector<CPPL_INT>::iterator q=rows[i].begin(); q!=rows_i_end; q++){
-      if(*q==c){ rows[i].erase(q); break; }
-    }
-    const std::vector<CPPL_INT>::iterator cols_j_end =cols[j].end();
-    for(std::vector<CPPL_INT>::iterator q=cols[j].begin(); q!=cols_j_end; q++){
-      if(*q==c){ cols[j].erase(q); break; }
-    }
-    data.pop_back();
-  }
-  
-  else{//if c is NOT the last element
-    //// data translation ////
-    CPPL_INT C =CPPL_INT(data.size()-1);
-    CPPL_INT i(data[c].i), j(data[c].j), I(data.back().i), J(data.back().j);
-    data[c]=data.back();
-    //// remove entry of component ////
-    const std::vector<CPPL_INT>::iterator rows_i_end =rows[i].end();
-    for(std::vector<CPPL_INT>::iterator q=rows[i].begin(); q!=rows_i_end; q++){
-      if(*q==c){ rows[i].erase(q); break; }
-    }
-    const std::vector<CPPL_INT>::iterator cols_j_end =cols[j].end();
-    for(std::vector<CPPL_INT>::iterator q=cols[j].begin(); q!=cols_j_end; q++){
-      if(*q==c){ cols[j].erase(q); break; }
-    }
-    //// modify the entry of translated component ////
-    const std::vector<CPPL_INT>::iterator rows_I_end =rows[I].end();
-    for(std::vector<CPPL_INT>::iterator q=rows[I].begin(); q!=rows_I_end; q++){
-      if(*q==C){ *q=c; break; }
-    }
-    const std::vector<CPPL_INT>::iterator cols_J_end =cols[J].end();
-    for(std::vector<CPPL_INT>::iterator q=cols[J].begin(); q!=cols_J_end; q++){
-      if(*q==C){ *q=c; break; }
-    }
-    //// pop_back ////
-    data.pop_back();
-  }
-  
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-inline std::ostream& operator<<(std::ostream& s, const dgsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<mat.m; i++){
-    const std::vector<CPPL_INT>::const_iterator mat_rows_i_end =mat.rows[i].end();
-    for(CPPL_INT j=0; j<mat.n; j++){
-      std::vector<CPPL_INT>::const_iterator q;
-      for(q=mat.rows[i].begin(); q!=mat_rows_i_end; q++){
-        if(mat.data[*q].j==j){ break; }
-      }
-      if(q!=mat_rows_i_end){ s << " " << mat.data[*q].v; }
-      else{ s << " x"; }
-    }
-    s << std::endl;
-  }
-  
-  return s;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-inline void dgsmatrix::write(const char* filename) const
-{CPPL_VERBOSE_REPORT;
-  std::ofstream ofs(filename, std::ios::trunc);
-  ofs.setf(std::cout.flags());
-  ofs.precision(std::cout.precision());
-  ofs.width(std::cout.width());
-  ofs.fill(std::cout.fill());
-  
-  ofs << "#dgsmatrix " << m << " " << n << " " << data.size() << std::endl;
-  
-  const std::vector<dcomponent>::const_iterator data_end =data.end();
-  for(std::vector<dcomponent>::const_iterator it=data.begin(); it!=data_end; it++){
-    ofs << it->i << " " << it->j << " " << it->v << std::endl;
-  }
-  
-  ofs.close();
-}
-
-//=============================================================================
-inline void dgsmatrix::read(const char* filename)
-{CPPL_VERBOSE_REPORT;
-  std::ifstream s( filename );
-  if(!s){
-    ERROR_REPORT;
-    std::cerr << "The file \"" << filename << "\" can not be opened." << std::endl;
-    exit(1);
-  }
-  
-  //////// id ////////
-  std::string id;
-  s >> id;
-  if( id != "dgsmatrix" && id != "#dgsmatrix" ){
-    ERROR_REPORT;
-    std::cerr << "The type name of the file \"" << filename << "\" is not dgsmatrix." << std::endl
-              << "Its type name was " << id << " ." << std::endl;
-    exit(1);
-  }
-  
-  //////// m, n, size ////////
-  size_t size;
-  s >> m >> n >> size;
-  resize(m, n);
-  data.reserve(size);//NOT resize.
-  
-  //////// i, j, v ////////
-  CPPL_INT i, j;
-  double v;
-  for(size_t k=0; k<size; k++){
-    s >> i >> j >> v;
-    put(i,j, v);
-  }
-  
-  //////// check ////////
-  s >> i;
-  if(!s.eof()){
-    ERROR_REPORT;
-    std::cerr << "There is something is wrong with the file \"" << filename << " ." << std::endl
-              << "Most likely, there are too many data components over the context." << std::endl;
-    exit(1);
-  }
-  s.close();
-}
diff --git a/cpplapack-r198/.svn/pristine/b1/b1d21598d54d56badc64ca0188dfb786641e44dc.svn-base b/cpplapack-r198/.svn/pristine/b1/b1d21598d54d56badc64ca0188dfb786641e44dc.svn-base
deleted file mode 100644
index 896739f..0000000
--- a/cpplapack-r198/.svn/pristine/b1/b1d21598d54d56badc64ca0188dfb786641e44dc.svn-base
+++ /dev/null
@@ -1,77 +0,0 @@
-//=============================================================================
-/*! _dgematrix+_dgsmatrix operator */
-inline _dgematrix operator+(const _dgematrix& matA, const _dgsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  const std::vector<dcomponent>::const_iterator matB_data_end =matB.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matB.data.begin(); it!=matB_data_end; it++){
-    matA(it->i,it->j) += it->v;
-  }
-  
-  matB.destroy();
-  return matA;
-}
-
-//=============================================================================
-/*! _dgematrix-_dgsmatrix operator */
-inline _dgematrix operator-(const _dgematrix& matA, const _dgsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") - (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //// change sign ////
-  for(CPPL_INT i=0; i<matA.m*matA.n; i++){
-    matA.array[i]=-matA.array[i];
-  }
-  
-  //// add ////
-  const std::vector<dcomponent>::const_iterator matB_data_end =matB.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matB.data.begin(); it!=matB_data_end; it++){
-    matA(it->i,it->j) += it->v;
-  }
-  
-  matB.destroy();
-  return matA;
-}
-
-//=============================================================================
-/*! _dgematrix*_dgsmatrix operator */
-inline _dgematrix operator*(const _dgematrix& matA, const _dgsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat(matA.m, matB.n);
-  newmat.zero();
-  
-  const std::vector<dcomponent>::const_iterator matB_data_end =matB.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matB.data.begin(); it!=matB_data_end; it++){
-    for(CPPL_INT i=0; i<matA.m; i++){
-      newmat(i,it->j) += matA(i,it->i)*it->v;
-    }
-  }
-  
-  matA.destroy();
-  matB.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/b1/b1fafc3bc849a27c1c6c06de7fa37426b6c40c48.svn-base b/cpplapack-r198/.svn/pristine/b1/b1fafc3bc849a27c1c6c06de7fa37426b6c40c48.svn-base
deleted file mode 100644
index 81188ed..0000000
--- a/cpplapack-r198/.svn/pristine/b1/b1fafc3bc849a27c1c6c06de7fa37426b6c40c48.svn-base
+++ /dev/null
@@ -1,19 +0,0 @@
-//=============================================================================
-/*! nullify all the matrix data */
-inline void _zgsmatrix::nullify() const
-{CPPL_VERBOSE_REPORT;
-  m=0;
-  n=0;
-  data.clear();
-  rows.clear();
-  cols.clear();
-}
-
-//=============================================================================
-/*! destroy all the matrix data */
-inline void _zgsmatrix::destroy() const
-{CPPL_VERBOSE_REPORT;
-  data.clear();
-  rows.clear();
-  cols.clear();
-}
diff --git a/cpplapack-r198/.svn/pristine/b2/b23ab873b060685e19bdeaa505772daba2ab9974.svn-base b/cpplapack-r198/.svn/pristine/b2/b23ab873b060685e19bdeaa505772daba2ab9974.svn-base
deleted file mode 100644
index ca0732b..0000000
--- a/cpplapack-r198/.svn/pristine/b2/b23ab873b060685e19bdeaa505772daba2ab9974.svn-base
+++ /dev/null
@@ -1,49 +0,0 @@
-//=============================================================================
-/*! operator complex*zcovector_small */
-template<CPPL_INT l>
-inline zcovector_small<l> operator*(const comple& v, const zcovector_small<l>& A)
-{CPPL_VERBOSE_REPORT;
-  zcovector_small<l> X;
-  for(CPPL_INT i=0; i<l; i++){
-    X(i) =v*A(i);
-  }
-  return X;
-}
-
-//=============================================================================
-/*! operator complex*zrovector_small */
-template<CPPL_INT l>
-inline zrovector_small<l> operator*(const comple& v, const zrovector_small<l>& A)
-{CPPL_VERBOSE_REPORT;
-  zrovector_small<l> X;
-  for(CPPL_INT i=0; i<l; i++){
-    X(i) =v*A(i);
-  }
-  return X;
-}
-
-//=============================================================================
-/*! operator complex*zgematrix_small */
-template<CPPL_INT m, CPPL_INT n>
-inline zgematrix_small<m,n> operator*(const comple& v, const zgematrix_small<m,n>& A)
-{CPPL_VERBOSE_REPORT;
-  zgematrix_small<m,n> C;
-  for(CPPL_INT i=0; i<m; i++){
-    for(CPPL_INT j=0; j<n; j++){
-      C(i,j) =v*A(i,j);
-    }
-  }
-  return C;
-}
-
-//=============================================================================
-/*! operator complex*zhematrix_small */
-template<CPPL_INT n>
-inline zhematrix_small<n> operator*(const comple& v, const zhematrix_small<n>& A)
-{CPPL_VERBOSE_REPORT;
-  zhematrix_small<n> X;
-  for(CPPL_INT k=0; k<(n*(n+1))/2; k++){
-    X.array[k] =v*A.array[k];
-  }
-  return X;
-}
diff --git a/cpplapack-r198/.svn/pristine/b2/b2af91ccba84cb79f10acfaf0f33212649a0a337.svn-base b/cpplapack-r198/.svn/pristine/b2/b2af91ccba84cb79f10acfaf0f33212649a0a337.svn-base
deleted file mode 100644
index 0427ab8..0000000
--- a/cpplapack-r198/.svn/pristine/b2/b2af91ccba84cb79f10acfaf0f33212649a0a337.svn-base
+++ /dev/null
@@ -1,48 +0,0 @@
-//=============================================================================
-/*! zrovector*=double operator */
-inline zrovector& zrovector::operator*=(const double& d)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT inc =1;
-  zdscal_(&l, &d, array, &inc);
-  return *this;
-}
-
-//=============================================================================
-/*! zrovector/=double operator */
-inline zrovector& zrovector::operator/=(const double& d)
-{CPPL_VERBOSE_REPORT;
-  double dinv =1./d;
-  CPPL_INT inc =1;
-  zdscal_(&l, &dinv, array, &inc);
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zrovector*double operator */
-inline _zrovector operator*(const zrovector& vec, const double& d)
-{CPPL_VERBOSE_REPORT;
-  zrovector newvec(vec.l);
-  
-  for(CPPL_INT i=0; i<vec.l; i++){
-    newvec.array[i] =vec.array[i]*d;
-  }
-  
-  return _(newvec);
-}
-
-//=============================================================================
-/*! zrovector/double operator */
-inline _zrovector operator/(const zrovector& vec, const double& d)
-{CPPL_VERBOSE_REPORT;
-  zrovector newvec(vec.l);
-  
-  for(CPPL_INT i=0; i<vec.l; i++){
-    newvec.array[i] =vec.array[i]/d;
-  }
-  
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/b2/b2c7ef243ba7cd406ef7a53584826021d8c7d0cb.svn-base b/cpplapack-r198/.svn/pristine/b2/b2c7ef243ba7cd406ef7a53584826021d8c7d0cb.svn-base
deleted file mode 100644
index 05b17e4..0000000
--- a/cpplapack-r198/.svn/pristine/b2/b2c7ef243ba7cd406ef7a53584826021d8c7d0cb.svn-base
+++ /dev/null
@@ -1,58 +0,0 @@
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int N(3);
-  
-  //// make dgematrix A ////
-  CPPL::zhematrix A(N);
-  for(int i=0; i<A.n; i++){
-    for(int j=0; j<i; j++){
-      A(i,j) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-    }
-    A(i,i) =complex<double>(rand()/(RAND_MAX/10), 0.0);
-  }
-  
-  //// print A in two ways ////
-  cout << "A =\n" << A << endl;
-  for(int i=0; i<A.n; i++){ for(int j=0; j<=i; j++){
-    cout << "A(" << i << "," << j << ") =" << A(i,j) << endl;
-  }}
-  
-  for(int i=0; i<A.n; i++){ 
-    for(int j=0; j<A.n; j++){
-      cout << A.array[i+A.n*j] << ' ';
-    }
-    cout << endl;
-  }
-  
-  //// make A 10 times ////
-  cout << "#### A*=10.; ####" << endl;
-  A*=10.;
-  
-  //// make zgematrix B ////
-  CPPL::zhematrix B(A);
-  cout << "B =\n" << B << endl;
-  for(int i=0; i<B.n; i++){ for(int j=0; j<=i; j++){
-    cout << "B(" << i << "," << j << ") =" << B(i,j) << endl;
-  }}
-  
-  //// print A+B ////
-  cout << "A+B=\n" << A+B << endl;
-  
-  //// write/read ////
-  B.write( "tmp.txt" );
-  CPPL::zhematrix C;
-  C.read( "tmp.txt" );
-  cout << "C-B =\n" << C-B << "<-Should be zero." << endl;
-  
-  return 0;
-}
diff --git a/cpplapack-r198/.svn/pristine/b2/b2e0b9660a6a3be26b9e2e6302c80a893fa12f1e.svn-base b/cpplapack-r198/.svn/pristine/b2/b2e0b9660a6a3be26b9e2e6302c80a893fa12f1e.svn-base
deleted file mode 100644
index fcc7dff..0000000
--- a/cpplapack-r198/.svn/pristine/b2/b2e0b9660a6a3be26b9e2e6302c80a893fa12f1e.svn-base
+++ /dev/null
@@ -1,74 +0,0 @@
-//=============================================================================
-/*! dgematrix+_dgsmatrix operator */
-inline _dgematrix operator+(const dgematrix& matA, const _dgsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat(matA);
-  
-  const std::vector<dcomponent>::const_iterator matB_data_end =matB.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matB.data.begin(); it!=matB_data_end; it++){
-    newmat(it->i,it->j) += it->v;
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! dgematrix-_dgsmatrix operator */
-inline _dgematrix operator-(const dgematrix& matA, const _dgsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") - (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  dgematrix newmat(matA);
-  
-  const std::vector<dcomponent>::const_iterator matB_data_end =matB.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matB.data.begin(); it!=matB_data_end; it++){
-    newmat(it->i,it->j) -= it->v;
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! dgematrix*_dgsmatrix operator */
-inline _dgematrix operator*(const dgematrix& matA, const _dgsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat(matA.m, matB.n);
-  newmat.zero();
-  
-  const std::vector<dcomponent>::const_iterator matB_data_end =matB.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matB.data.begin(); it!=matB_data_end; it++){
-    for(CPPL_INT i=0; i<matA.m; i++){
-      newmat(i,it->j) += matA(i,it->i)*it->v;
-    }
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/b2/b2f0948d36ffef90aa4b25ac353ae6533c6e19e5.svn-base b/cpplapack-r198/.svn/pristine/b2/b2f0948d36ffef90aa4b25ac353ae6533c6e19e5.svn-base
deleted file mode 100644
index c2a9bb4..0000000
--- a/cpplapack-r198/.svn/pristine/b2/b2f0948d36ffef90aa4b25ac353ae6533c6e19e5.svn-base
+++ /dev/null
@@ -1,83 +0,0 @@
-//=============================================================================
-/*! _dgsmatrix+_dgbmatrix operator */
-/*
-inline _dgematrix operator+(const _dgsmatrix& matA, const _dgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat(matA);
-  
-  for(CPPL_INT i=0; i<matB.m; i++){
-    for(CPPL_INT j=max(0,i-matB.kl); j<min(matB.n,i+matB.ku+1); j++){
-      newmat(i,j)+=matB(i,j);
-    }
-  }
-  
-  matA.destroy();
-  matB.destroy();
-  return _(newmat);
-}
-*/
-//=============================================================================
-/*! _dgsmatrix-_dgbmatrix operator */
-/*
-inline _dgematrix operator-(const _dgsmatrix& matA, const _dgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat(matA);
-  
-  for(CPPL_INT i=0; i<matB.m; i++){
-    for(CPPL_INT j=max(0,i-matB.kl); j<min(matB.n,i+matB.ku+1); j++){
-      newmat(i,j)-=matB(i,j);
-    }
-  }
-  
-  matA.destroy();
-  matB.destroy();
-  return _(newmat);
-}
-*/
-//=============================================================================
-/*! _dgsmatrix*_dgbmatrix operator */
-/*
-inline _dgematrix operator*(const _dgsmatrix& matA, const _dgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat( matA.m, matB.n );
-  newmat.zero();
-  
-  for(CPPL_INT c=0; c<matA.vol; c++){
-    for(CPPL_INT k=max(0,matA.jndx[c]-matB.ku);
-        k<min(matB.m,matA.jndx[c]+matB.kl+1); k++){
-      newmat(matA.indx[c],k) += matA.array[c]*matB(matA.jndx[c],k);
-    }
-  }
-  
-  matA.destroy();
-  matB.destroy();
-  return _(newmat);
-}
-*/
diff --git a/cpplapack-r198/.svn/pristine/b3/b30ca5a4e6bd56d1357b54d00164375864146fb3.svn-base b/cpplapack-r198/.svn/pristine/b3/b30ca5a4e6bd56d1357b54d00164375864146fb3.svn-base
deleted file mode 100644
index e3ce861..0000000
--- a/cpplapack-r198/.svn/pristine/b3/b30ca5a4e6bd56d1357b54d00164375864146fb3.svn-base
+++ /dev/null
@@ -1,75 +0,0 @@
-//=============================================================================
-//! Real Double-precision General Compressed Sparse Row (CSR) Matrix Class
-class dgrmatrix
-{
-public:
-  ///////////////////////////////////////////////
-  /////////////////// objects ///////////////////
-  ///////////////////////////////////////////////
-  CPPL_INT m; //!< matrix row size
-  CPPL_INT n; //!< matrix column size
-  std::vector<double> a; //!< matrix component values
-  std::vector<CPPL_INT> ia; //!< rowIndex (NOT zero-based BUT one-based indexing)
-  std::vector<CPPL_INT> ja; //!< columns (NOT zero-based BUT one-based indexing)
-  
-  ///////////////////////////////////////////////
-  ///////////////// constructors ////////////////
-  ///////////////////////////////////////////////
-  inline dgrmatrix();
-  inline dgrmatrix(const CPPL_INT&, const CPPL_INT&);
-  inline dgrmatrix(const dgrmatrix&);
-  inline dgrmatrix(const char*);
-  inline ~dgrmatrix(); //destructor
-  
-  ///////////////////////////////////////////////
-  ////////////////// functions //////////////////
-  ///////////////////////////////////////////////
-  //////// cast ////////
-  //inline _zgsmatrix to_zgsmatrix() const;
-  inline _dgematrix to_dgematrix() const;
-  
-  //////// io ////////
-  inline double operator()(const CPPL_INT&, const CPPL_INT&) const;
-  inline double& operator()(const CPPL_INT&, const CPPL_INT&);
-  inline friend std::ostream& operator<<(std::ostream&, const dgrmatrix&);
-  inline void write(const char*) const;
-  inline void read(const char*);
-  
-  //////// misc ////////
-  inline void clear();
-  inline dgrmatrix& zero();
-  inline void copy(const dgrmatrix&);
-  inline bool isListed(const CPPL_INT&, const CPPL_INT&) const;
-  inline void checkup();
-  //inline _drovector row(const CPPL_INT&) const;
-  //inline _dcovector col(const CPPL_INT&) const;
-  inline friend void swap(dgrmatrix&, dgrmatrix&);
-  
-  //////// calc ////////
-  //inline friend void idamax(CPPL_INT&, CPPL_INT&, const dgrmatrix&);
-  inline friend double damax(const dgrmatrix&);
-  
-  //////// MKL ////////
-  inline CPPL_INT pardiso(dcovector&) const;
-  inline CPPL_INT dfgmres(dcovector&, const double) const;
-  inline CPPL_INT ilut_dfgmres(dcovector&, const int, const double) const;
-  
-  ///////////////////////////////////////////////
-  ///////////// numerical operators /////////////
-  ///////////////////////////////////////////////
-  //////// = ////////
-  inline dgrmatrix& operator=(const  dgrmatrix&);
-  
-  //////// ?= ////////
-  inline dgrmatrix& operator*=(const     double&);
-  inline dgrmatrix& operator/=(const     double&);  
-  
-  //////// * ////////
-  inline friend  dgrmatrix operator*(const  dgrmatrix&, const     double&);
-  inline friend  dgrmatrix operator*(const     double&, const  dgrmatrix&);
-  inline friend _dcovector operator*(const  dgrmatrix&, const  dcovector&);
-  inline friend _dcovector operator*(const  dgrmatrix&, const _dcovector&);
-  
-  //////// / ////////
-  inline friend dgrmatrix operator/(const  dgrmatrix&, const     double&);
-};
diff --git a/cpplapack-r198/.svn/pristine/b3/b3428206837ad63eb020086926ca24fa930b650a.svn-base b/cpplapack-r198/.svn/pristine/b3/b3428206837ad63eb020086926ca24fa930b650a.svn-base
deleted file mode 100644
index 1ce30d8..0000000
--- a/cpplapack-r198/.svn/pristine/b3/b3428206837ad63eb020086926ca24fa930b650a.svn-base
+++ /dev/null
@@ -1,81 +0,0 @@
-//=============================================================================
-/*! dssmatrix+_dgbmatrix operator */
-/*
-inline _dgematrix operator+(const dssmatrix& matA, const _dgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat(matA);
-  
-  for(CPPL_INT i=0; i<matB.m; i++){
-    for(CPPL_INT j=max(0,i-matB.kl); j<min(matB.n,i+matB.ku+1); j++){
-      newmat(i,j)+=matB(i,j);
-    }
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
-*/
-//=============================================================================
-/*! dssmatrix-_dgbmatrix operator */
-/*
-inline _dgematrix operator-(const dssmatrix& matA, const _dgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat(matA);
-  
-  for(CPPL_INT i=0; i<matB.m; i++){
-    for(CPPL_INT j=max(0,i-matB.kl); j<min(matB.n,i+matB.ku+1); j++){
-      newmat(i,j)-=matB(i,j);
-    }
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
-*/
-
-//=============================================================================
-/*! dssmatrix*_dgbmatrix operator */
-/*
-inline _dgematrix operator*(const dssmatrix& matA, const _dgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat( matA.m, matB.n );
-  newmat.zero();
-  
-  for(CPPL_INT c=0; c<matA.vol; c++){
-    for(CPPL_INT j=max(0,matA.jndx[c]-matB.kl);
-        j<min(matB.n,matA.jndx[c]+matB.ku+1); j++){
-      newmat(matA.indx[c],j) += matA.array[c]*matB(matA.jndx[c],j);
-    }
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
-*/
diff --git a/cpplapack-r198/.svn/pristine/b3/b3c37fee1f1684102a34700f334f2d12fd7bf9a4.svn-base b/cpplapack-r198/.svn/pristine/b3/b3c37fee1f1684102a34700f334f2d12fd7bf9a4.svn-base
deleted file mode 100644
index c6bd9ab..0000000
--- a/cpplapack-r198/.svn/pristine/b3/b3c37fee1f1684102a34700f334f2d12fd7bf9a4.svn-base
+++ /dev/null
@@ -1,130 +0,0 @@
-//=============================================================================
-/*! dsymatrix constructor without arguments */
-inline dsymatrix::dsymatrix()
-  : m(n)
-{CPPL_VERBOSE_REPORT;
-  //////// initialize ////////
-  n = 0;
-  array =NULL;
-  darray =NULL;
-}
-
-//=============================================================================
-/*! dsymatrix copy constructor */
-inline dsymatrix::dsymatrix(const dsymatrix& mat)
-  : m(n)
-{CPPL_VERBOSE_REPORT;
-  //////// initialize ////////
-  n =mat.n;
-  array =new double[n*n];
-  darray =new double*[n];
-  for(int i=0; i<n; i++){
-    darray[i] =&array[i*n];
-  }
-  
-  //////// copy ////////
-  CPPL_INT size =n*n;
-  CPPL_INT inc =1;
-  dcopy_(&size, mat.array, &inc, array, &inc);
-}
-
-//=============================================================================
-/*! dsymatrix constructor to cast _dsymatrix */
-inline dsymatrix::dsymatrix(const _dsymatrix& mat)
-  : m(n)
-{CPPL_VERBOSE_REPORT;
-  n =mat.n;
-  array =mat.array;
-  darray =mat.darray;
-  
-  mat.nullify();
-}
-
-//=============================================================================
-/*! dsymatrix copy constructor to cast dssmatrix */
-/*
-inline dsymatrix::dsymatrix(const dssmatrix& mat)
-  : m(n)
-{CPPL_VERBOSE_REPORT;
-  //////// initialize ////////
-  n =mat.n;
-  array =new double[n*n];
-  darray =new double*[n];
-  for(int i=0; i<n; i++){ darray[i] =&array[i*n]; }
-  
-  //////// copy ////////
-  zero();
-  for(int c=0; c<mat.vol; c++){
-    (*this)(mat.indx[c],mat.jndx[c]) =mat.array[c];
-  }
-}
-*/
-
-//=============================================================================
-/*! dsymatrix constructor to cast _dssmatrix */
-/*
-inline dsymatrix::dsymatrix(const _dssmatrix& mat)
-  : m(n)
-{CPPL_VERBOSE_REPORT;
-  n =mat.n;
-  array =new double[n*n];
-  darray =new double*[n];
-  for(int i=0; i<n; i++){ darray[i] =&array[i*n]; }
-  
-  //////// copy ////////
-  zero();
-  for(int c=0; c<mat.vol; c++){
-    (*this)(mat.indx[c],mat.jndx[c]) =mat.array[c];
-  }
-  
-  mat.nullify();
-}
-*/
-
-
-//=============================================================================
-/*! dsymatrix constructor with size specification */
-inline dsymatrix::dsymatrix(const CPPL_INT& _n)
-  : m(n)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( _n<0 ){
-    ERROR_REPORT;
-    std::cerr << "Matrix sizes must be positive integers. " << std::endl
-              << "Your input was (" << _n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //////// initialize ////////
-  n =_n;
-  array =new double[n*n];
-  darray =new double*[n];
-  for(int i=0; i<n; i++){
-    darray[i] =&array[i*n];
-  }
-}
-
-//=============================================================================
-/*! dsymatrix constructor with filename */
-inline dsymatrix::dsymatrix(const char* filename)
-  : m(n)
-{CPPL_VERBOSE_REPORT;
-  array =NULL;
-  darray =NULL;
-  
-  //// copy ////
-  read(filename);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! dsymatrix destructor */
-inline dsymatrix::~dsymatrix()
-{CPPL_VERBOSE_REPORT;
-  delete [] array;
-  delete [] darray;
-}
diff --git a/cpplapack-r198/.svn/pristine/b4/b43ecd04adcd9383bfc29e65ff2499574f913f6d.svn-base b/cpplapack-r198/.svn/pristine/b4/b43ecd04adcd9383bfc29e65ff2499574f913f6d.svn-base
deleted file mode 100644
index 21b5d5e..0000000
--- a/cpplapack-r198/.svn/pristine/b4/b43ecd04adcd9383bfc29e65ff2499574f913f6d.svn-base
+++ /dev/null
@@ -1,59 +0,0 @@
-//=============================================================================
-/*! operator() for object */
-inline comple& _zgematrix::operator()(const CPPL_INT& i, const CPPL_INT& j) const
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || j<0 || m<=i || n<=j ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the matrix size." << std::endl
-              << "Your input is (" << i << "," << j << "), whereas the matrix size is (" << m << "," << n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //return array[i+m*j];
-  return darray[j][i];
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-inline std::ostream& operator<<(std::ostream& s, const _zgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<mat.m; i++){
-    for(CPPL_INT j=0; j<mat.n; j++){
-      s << " " << mat(i,j);
-    }
-    s << std::endl;
-  }
-  
-  mat.destroy();
-  return s;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-inline void _zgematrix::write(const char *filename) const
-{CPPL_VERBOSE_REPORT;
-  std::ofstream ofs(filename, std::ios::trunc);
-  ofs.setf(std::cout.flags());
-  ofs.precision(std::cout.precision());
-  ofs.width(std::cout.width());
-  ofs.fill(std::cout.fill());
-  
-  ofs << "#zgematrix" << " " << m << " " << n << std::endl;
-  for(CPPL_INT i=0; i<m; i++){
-    for(CPPL_INT j=0; j<n; j++){
-      ofs << operator()(i,j) << " ";
-    }
-    ofs << std::endl;
-  }
-  
-  ofs.close();
-  destroy();
-}
diff --git a/cpplapack-r198/.svn/pristine/b5/b50adaff4bea05dcc383a7e928d8bd0ceea18883.svn-base b/cpplapack-r198/.svn/pristine/b5/b50adaff4bea05dcc383a7e928d8bd0ceea18883.svn-base
deleted file mode 100644
index b9795ae..0000000
--- a/cpplapack-r198/.svn/pristine/b5/b50adaff4bea05dcc383a7e928d8bd0ceea18883.svn-base
+++ /dev/null
@@ -1,154 +0,0 @@
-//=============================================================================
-/*! zgematrix+=zgbmatrix operator */
-inline zgematrix& zgematrix::operator+=(const zgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.n || m!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << m << "x" << n << ") += (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<mat.m; i++){
-    const CPPL_INT jmax =std::min(n,i+mat.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-mat.kl); j<jmax; j++){
-      operator()(i,j) += mat(i,j);
-    }
-  }
-  
-  return *this;
-}
-
-//=============================================================================
-/*! zgematrix-=zgbmatrix operator */
-inline zgematrix& zgematrix::operator-=(const zgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.n || m!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << m << "x" << n << ") -= (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<mat.m; i++){
-    const CPPL_INT jmax =std::min(n,i+mat.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-mat.kl); j<jmax; j++){
-      operator()(i,j) -= mat(i,j);
-    }
-  }
-  
-  return *this;
-}
-//=============================================================================
-/*! zgematrix*=zgbmatrix operator */
-inline zgematrix& zgematrix::operator*=(const zgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << m << "x" << n << ") *= (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  zgematrix newmat(m,mat.n);
-  newmat.zero();
-  
-  for(CPPL_INT i=0; i<newmat.m; i++){
-    for(CPPL_INT j=0; j<newmat.n; j++){
-      const CPPL_INT kmax =std::min(mat.m,j+mat.kl+1);
-      for(CPPL_INT k=std::max(CPPL_INT(0),j-mat.ku); k<kmax; k++){
-        newmat(i,j) += operator()(i,k)*mat(k,j);
-      }
-    }
-  }
-  
-  swap(*this,newmat);
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zgematrix+zgbmatrix operator */
-inline _zgematrix operator+(const zgematrix& matA, const zgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(matA);
-  
-  for(CPPL_INT i=0; i<matB.m; i++){
-    const CPPL_INT jmax =std::min(matB.n,i+matB.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matB.kl); j<jmax; j++){
-      newmat(i,j) += matB(i,j);
-    }
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! zgematrix-zgbmatrix operator */
-inline _zgematrix operator-(const zgematrix& matA, const zgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(matA);
-  
-  for(CPPL_INT i=0; i<matB.m; i++){
-    const CPPL_INT jmax =std::min(matB.n,i+matB.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matB.kl); j<jmax; j++){
-      newmat(i,j) -= matB(i,j);
-    }
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! zgematrix*zgbmatrix operator */
-inline _zgematrix operator*(const zgematrix& matA, const zgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat( matA.m, matB.n );
-  newmat.zero();
-  
-  for(CPPL_INT i=0; i<newmat.m; i++){
-    for(CPPL_INT j=0; j<newmat.n; j++){
-      const CPPL_INT kmax =std::min(matB.m,j+matB.kl+1);
-      for(CPPL_INT k=std::max(CPPL_INT(0),j-matB.ku); k<kmax; k++){
-        newmat(i,j) += matA(i,k)*matB(k,j);
-      }
-    }
-  }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/b5/b53016b6c694a0d78b48042c77f42cd124e5e87b.svn-base b/cpplapack-r198/.svn/pristine/b5/b53016b6c694a0d78b48042c77f42cd124e5e87b.svn-base
deleted file mode 100644
index bf2a4e4..0000000
--- a/cpplapack-r198/.svn/pristine/b5/b53016b6c694a0d78b48042c77f42cd124e5e87b.svn-base
+++ /dev/null
@@ -1,14 +0,0 @@
-//=============================================================================
-/*! convert to _zgematrix */
-inline _zgematrix zgsmatrix::to_zgematrix() const
-{CPPL_VERBOSE_REPORT;
-  zgematrix newmat( zgematrix(m,n).zero() );
-  
-  const size_t data_size =data.size();
-  for(size_t c=0; c<data_size; c++){
-    const zcomponent& z =data[c];
-    newmat(z.i,z.j) =z.v;
-  }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/b6/b6451f6ccc308d0d0fc331749d770c5cf94c6d01.svn-base b/cpplapack-r198/.svn/pristine/b6/b6451f6ccc308d0d0fc331749d770c5cf94c6d01.svn-base
deleted file mode 100644
index daf064c..0000000
--- a/cpplapack-r198/.svn/pristine/b6/b6451f6ccc308d0d0fc331749d770c5cf94c6d01.svn-base
+++ /dev/null
@@ -1,111 +0,0 @@
-//=============================================================================
-void zheev_check_value()
-{
-  cout << "############ check zheev value ############" << endl;
-  
-  srand(unsigned(time(NULL)));
-  int N(3);
-  
-  //// make zhematrix A  ////
-  CPPL::zhematrix A(N);
-  for(int i=0; i<A.n; i++){
-    for(int j=0; j<i; j++){
-      A(i,j) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-    }
-    A(i,i) =complex<double>(rand()/(RAND_MAX/10), 0.0);
-  }
-  
-  //// make w ////
-  vector<double> w;
-  
-  //// make A_original ////
-  CPPL::zhematrix A_original(A);
-  
-  //// zheev ////
-  A.zheev(w);
-  //A.zheev(w,1);
-  
-  //// print ////
-  cout << "A=\n" << A << endl;
-  cout << "A_original=\n" << A_original << endl;
-  for(int i=0; i<N; i++){
-    cout << "#### " << i << "th eigen ####" << endl;
-    cout << "w=" << w[i] <<endl;
-  }
-}
-
-//=============================================================================
-void zheev_check_right()
-{
-  cout << "############ check zheev right ############" << endl;
-  
-  srand(unsigned(time(NULL)));
-  int N(3);
-  
-  //// make zhematrix A  ////
-  CPPL::zhematrix A(N);
-  for(int i=0; i<A.n; i++){
-    for(int j=0; j<i; j++){
-      A(i,j) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-    }
-    A(i,i) =complex<double>(rand()/(RAND_MAX/10), 0.0);
-  }
-  
-  //// make wr wi vr ////
-  vector<double> w;
-  vector<CPPL::zcovector> v;
-  
-  //// make A_original ////
-  CPPL::zhematrix A_original(A);
-  
-  //// zheev ////
-  A.zheev(w,v);
-  
-  //// print ////
-  cout << "A_original=\n" << A_original << endl;
-  for(int i=0; i<A.n; i++){
-    cout << "#### " << i << "th eigen ####" << endl;
-    cout << "w=" << w[i] <<endl;
-    cout << "v=\n" << v[i] <<endl;
-    cout << "[A]*{x} -lambda*{x} = (Should be zeros)\n"
-         << A_original*v[i] -w[i]*v[i] << endl;
-  }
-}
-
-//=============================================================================
-void zheev_check_left()
-{
-  cout << "############ check zheev left ############" << endl;
-  
-  srand(unsigned(time(NULL)));
-  int N(3);
-  
-  //// make zhematrix A  ////
-  CPPL::zhematrix A(N);
-  for(int i=0; i<A.n; i++){
-    for(int j=0; j<i; j++){
-      A(i,j) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-    }
-    A(i,i) =complex<double>(rand()/(RAND_MAX/10), 0.0);
-  }
-  
-  //// make wr wi vl ////
-  vector<double> w;
-  vector<CPPL::zrovector> v;
-  
-  //// make A_original ////
-  CPPL::zhematrix A_original(A);
-  
-  //// zheev ////
-  A.zheev(w, v);
-  
-  //// print ////
-  cout << "A_original=\n" << A_original << endl;
-  for(int i=0; i<A.n; i++){
-    cout << "#### " << i << "th eigen ####" << endl;
-    cout << "w = " << w[i] << endl;
-    cout << "v = " << v[i] << endl;
-    cout << "{x}*[A] -{x}*lambda = (Should be zeros)\n"
-         << v[i]*A_original -v[i]*w[i] << endl;
-  }
-}
diff --git a/cpplapack-r198/.svn/pristine/b6/b6f7a6bc1cdccda82dfa65a4f1e3f89e5fc62b2a.svn-base b/cpplapack-r198/.svn/pristine/b6/b6f7a6bc1cdccda82dfa65a4f1e3f89e5fc62b2a.svn-base
deleted file mode 100644
index 24b69a3..0000000
--- a/cpplapack-r198/.svn/pristine/b6/b6f7a6bc1cdccda82dfa65a4f1e3f89e5fc62b2a.svn-base
+++ /dev/null
@@ -1,38 +0,0 @@
-//=============================================================================
-/*! _zgsmatrix constructor without arguments */
-inline _zgsmatrix::_zgsmatrix()
-{CPPL_VERBOSE_REPORT;
-  //////// initialize ////////
-  m =0;
-  n =0;
-  data.clear();
-  rows.clear();
-  cols.clear();
-}
-
-//=============================================================================
-/*! _zgsmatrix copy constructor */
-inline _zgsmatrix::_zgsmatrix(const _zgsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  //////// initialize ////////
-  m =mat.m;
-  n =mat.n;
-  data.swap(mat.data);
-  rows.swap(mat.rows);
-  cols.swap(mat.cols);
-  
-  mat.nullify();
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! _zgsmatrix destructor */
-inline _zgsmatrix::~_zgsmatrix()
-{CPPL_VERBOSE_REPORT;
-  data.clear();
-  rows.clear();
-  cols.clear();
-}
diff --git a/cpplapack-r198/.svn/pristine/b7/b72576b8ec244eb1a8f9edd59b4b458275810316.svn-base b/cpplapack-r198/.svn/pristine/b7/b72576b8ec244eb1a8f9edd59b4b458275810316.svn-base
deleted file mode 100644
index 5e82bb4..0000000
--- a/cpplapack-r198/.svn/pristine/b7/b72576b8ec244eb1a8f9edd59b4b458275810316.svn-base
+++ /dev/null
@@ -1,59 +0,0 @@
-//=============================================================================
-/*! operator() for object */
-inline double& _dgematrix::operator()(const CPPL_INT& i, const CPPL_INT& j) const
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || j<0 || m<=i || n<=j ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the matrix size." << std::endl
-              << "Your input is (" << i << "," << j << "), whereas the matrix size is " << m << "x" << n << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //double val(array[i+m*j]);
-  return darray[j][i];
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-inline std::ostream& operator<<(std::ostream& s, const _dgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<mat.m; i++){
-    for(CPPL_INT j=0; j<mat.n; j++){
-      s << " " << mat(i,j);
-    }
-    s << std::endl;
-  }
-  
-  mat.destroy();
-  return s;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-inline void _dgematrix::write(const char *filename) const
-{CPPL_VERBOSE_REPORT;
-  std::ofstream ofs(filename, std::ios::trunc);
-  ofs.setf(std::cout.flags());
-  ofs.precision(std::cout.precision());
-  ofs.width(std::cout.width());
-  ofs.fill(std::cout.fill());
-  
-  ofs << "#dgematrix" << " " << m << " " << n << std::endl;
-  for(CPPL_INT i=0; i<m; i++){
-    for(CPPL_INT j=0; j<n; j++ ){
-      ofs << operator()(i,j) << " ";
-    }
-    ofs << std::endl;
-  }
-  
-  ofs.close();
-  destroy();
-}
diff --git a/cpplapack-r198/.svn/pristine/b7/b737cf379e1a32026ce444a97403ee6552ece677.svn-base b/cpplapack-r198/.svn/pristine/b7/b737cf379e1a32026ce444a97403ee6552ece677.svn-base
deleted file mode 100644
index 400b132..0000000
--- a/cpplapack-r198/.svn/pristine/b7/b737cf379e1a32026ce444a97403ee6552ece677.svn-base
+++ /dev/null
@@ -1,38 +0,0 @@
-//=============================================================================
-/*! dgematrix_small constructor */
-template<CPPL_INT m, CPPL_INT n>
-inline dgematrix_small<m,n>::dgematrix_small()
-{CPPL_VERBOSE_REPORT;
-  ;
-}
-
-//=============================================================================
-/*! dgematrix_small constructor */
-template<CPPL_INT m, CPPL_INT n>
-inline dgematrix_small<m,n>::dgematrix_small(const dgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( m!=mat.m || n!=mat.n ){
-    ERROR_REPORT;
-    std::cerr << "Matrix sizes must be the same." << std::endl
-              << "Your input was " << m << "x" << n << " and " << mat.m << "x" << mat.n << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT k=0; k<m*n; k++){
-    array[k] =mat.array[k];
-  }
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! dgematrix_small destructor */
-template<CPPL_INT m, CPPL_INT n>
-inline dgematrix_small<m,n>::~dgematrix_small()
-{CPPL_VERBOSE_REPORT;
-  ;
-}
diff --git a/cpplapack-r198/.svn/pristine/b7/b73ea7d94fa60e35ba86b576f07c01358657789a.svn-base b/cpplapack-r198/.svn/pristine/b7/b73ea7d94fa60e35ba86b576f07c01358657789a.svn-base
deleted file mode 100644
index cfdef2c..0000000
--- a/cpplapack-r198/.svn/pristine/b7/b73ea7d94fa60e35ba86b576f07c01358657789a.svn-base
+++ /dev/null
@@ -1,14 +0,0 @@
-//=============================================================================
-/*! double*dsymatrix operator */
-inline _dsymatrix operator*(const double& d, const dsymatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  dsymatrix newmat(mat.n);
-  
-  for(CPPL_INT j=0; j<mat.n; j++){
-    for(CPPL_INT i=j; i<mat.n; i++){
-      newmat.darray[j][i] =d*mat.darray[j][i];
-    }
-  }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/b7/b79cf0dcc5af9e54b7567b8929935b8765b89f40.svn-base b/cpplapack-r198/.svn/pristine/b7/b79cf0dcc5af9e54b7567b8929935b8765b89f40.svn-base
deleted file mode 100644
index 8863095..0000000
--- a/cpplapack-r198/.svn/pristine/b7/b79cf0dcc5af9e54b7567b8929935b8765b89f40.svn-base
+++ /dev/null
@@ -1,26 +0,0 @@
-//=============================================================================
-/*! _drovector*_dgbmatrix operator */
-inline _drovector operator*(const _drovector& vec, const _dgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vec.l!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These vector and matrix can not make a product." << std::endl
-              << "Your input was (" << vec.l << ") * (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  drovector newvec(mat.n);
-  char trans ='T';
-  double alpha =1.;
-  CPPL_INT lda =mat.kl+mat.ku+1;
-  CPPL_INT inc =1;
-  double beta =0.;
-
-  dgbmv_( &trans, &mat.m, &mat.n, &mat.kl, &mat.ku, &alpha, mat.array, &lda, vec.array, &inc, &beta, newvec.array, &inc );
-  
-  vec.destroy();
-  mat.destroy();
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/b7/b7a5cca42710b9b541bf6a91baf48694ef729abc.svn-base b/cpplapack-r198/.svn/pristine/b7/b7a5cca42710b9b541bf6a91baf48694ef729abc.svn-base
deleted file mode 100644
index ee12749..0000000
--- a/cpplapack-r198/.svn/pristine/b7/b7a5cca42710b9b541bf6a91baf48694ef729abc.svn-base
+++ /dev/null
@@ -1,15 +0,0 @@
-//=============================================================================
-/*! _zcovector*_zrovector operator */
-inline _zgematrix operator*(const _zcovector& covec, const _zrovector& rovec)
-{CPPL_VERBOSE_REPORT;
-  zgematrix newmat(covec.l, rovec.l);
-  for(CPPL_INT i=0; i<newmat.m; i++){
-    for(CPPL_INT j=0; j<newmat.n; j++){
-      newmat(i,j) =covec(i)*rovec(j);
-    }
-  }
-  
-  covec.destroy();
-  rovec.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/b8/b8e758bd222b770dac6740c80d7ce374f82c0f79.svn-base b/cpplapack-r198/.svn/pristine/b8/b8e758bd222b770dac6740c80d7ce374f82c0f79.svn-base
deleted file mode 100644
index 2ae75e0..0000000
--- a/cpplapack-r198/.svn/pristine/b8/b8e758bd222b770dac6740c80d7ce374f82c0f79.svn-base
+++ /dev/null
@@ -1,24 +0,0 @@
-//=============================================================================
-/*! _zgematrix*zcovector operator */
-inline _zcovector operator*(const _zgematrix& mat, const zcovector& vec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(mat.n!=vec.l){
-    ERROR_REPORT;
-    std::cerr << "These matrix and vector can not make a product." << std::endl
-              << "Your input was (" << mat.m << "x" << mat.n << ") * (" << vec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zcovector newvec(mat.m);
-  char trans ='n';
-  comple alpha =comple(1.,0.);
-  CPPL_INT inc =1;
-  comple beta =comple(0.,0.);
-  
-  zgemv_( &trans, &mat.m, &mat.n, &alpha, mat.array, &mat.m, vec.array, &inc, &beta, newvec.array, &inc );
-  
-  mat.destroy();
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/b8/b8fc0131c15785bdd788231c2b330f91757a9caa.svn-base b/cpplapack-r198/.svn/pristine/b8/b8fc0131c15785bdd788231c2b330f91757a9caa.svn-base
deleted file mode 100644
index 6833faa..0000000
--- a/cpplapack-r198/.svn/pristine/b8/b8fc0131c15785bdd788231c2b330f91757a9caa.svn-base
+++ /dev/null
@@ -1,47 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int M(5), N(4), KL(2), KU(1);
-  
-  CPPL::zgbmatrix A(M,N,KL,KU), B;
-  for(int i=0; i<A.m; i++){ for(int j=0; j<A.n; j++){
-    if(!( i-j>A.kl || j-i>A.ku )){
-      A(i,j) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-    }
-  }}
-  
-  cout << "A =\n" << A << endl;
-  cout << "#### B.copy(A) ####" << endl;
-  B.copy(A);
-  cout << "B =\n" << B << endl;
-  
-  cout << "#### B.clear() ####" << endl;
-  B.clear();
-  cout << "B =\n" << B << endl;
-  
-  cout << "#### B.resize(4,4,1,2) & B.zero() ####" << endl;
-  B.resize(4,4,1,2);
-  B.zero();
-  cout << "B =\n" << B << endl;
-  
-  cout << "#### B.identity() ####" << endl;
-  B.identity();
-  cout << "B =\n" << B << endl;
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/b9/b90ca4222c7b834a7f0e371328c7e791989d5b49.svn-base b/cpplapack-r198/.svn/pristine/b9/b90ca4222c7b834a7f0e371328c7e791989d5b49.svn-base
deleted file mode 100644
index c9f4b4d..0000000
--- a/cpplapack-r198/.svn/pristine/b9/b90ca4222c7b834a7f0e371328c7e791989d5b49.svn-base
+++ /dev/null
@@ -1,19 +0,0 @@
-//=============================================================================
-/*! zrovector*zcovector operator */
-inline comple operator*(const zrovector& rovec, const zcovector& covec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(rovec.l!=covec.l){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make a product." << std::endl
-              << "Your input was (" << rovec.l << ") * (" << covec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  CPPL_INT inc =1;
-  
-  comple val =zdotu_( &rovec.l, rovec.array, &inc, covec.array, &inc );
-  
-  return val;
-}
diff --git a/cpplapack-r198/.svn/pristine/b9/b9194e75c927b98edd7ed22882110ef366894d2b.svn-base b/cpplapack-r198/.svn/pristine/b9/b9194e75c927b98edd7ed22882110ef366894d2b.svn-base
deleted file mode 100644
index 6773cd9..0000000
--- a/cpplapack-r198/.svn/pristine/b9/b9194e75c927b98edd7ed22882110ef366894d2b.svn-base
+++ /dev/null
@@ -1,76 +0,0 @@
-//=============================================================================
-/*! _dgsmatrix+_dgematrix operator */
-inline _dgematrix operator+(const _dgsmatrix& matA, const _dgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  const std::vector<dcomponent>::const_iterator matA_data_end =matA.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matA.data.begin(); it!=matA_data_end; it++){
-    matB(it->i,it->j) += it->v;
-  }
-  
-  matA.destroy();
-  return matB;
-}
-
-//=============================================================================
-/*! _dgsmatrix-_dgematrix operator */
-inline _dgematrix operator-(const _dgsmatrix& matA, const _dgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") - (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //// change sign ////
-  for(int i=0; i<matB.m*matB.n; i++){
-    matB.array[i] = -matB.array[i];
-  }
-  
-  const std::vector<dcomponent>::const_iterator matA_data_end =matA.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matA.data.begin(); it!=matA_data_end; it++){
-    matB(it->i,it->j) += it->v;
-  }
-  
-  matA.destroy();
-  return matB;
-}
-
-//=============================================================================
-/*! _dgsmatrix*_dgematrix operator */
-inline _dgematrix operator*(const _dgsmatrix& matA, const _dgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat(matA.m, matB.n);
-  newmat.zero();
-  
-  const std::vector<dcomponent>::const_iterator matA_data_end =matA.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matA.data.begin(); it!=matA_data_end; it++){
-    for(CPPL_INT j=0; j<matB.n; j++){
-      newmat(it->i,j) += it->v *matB(it->j,j);
-    }
-  }
-  
-  matA.destroy();
-  matB.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/b9/b97662ceb815705a4734e0f0100b0393d951a56a.svn-base b/cpplapack-r198/.svn/pristine/b9/b97662ceb815705a4734e0f0100b0393d951a56a.svn-base
deleted file mode 100644
index 0818b1d..0000000
--- a/cpplapack-r198/.svn/pristine/b9/b97662ceb815705a4734e0f0100b0393d951a56a.svn-base
+++ /dev/null
@@ -1,74 +0,0 @@
-//=============================================================================
-/*! dgsmatrix+_dgematrix operator */
-inline _dgematrix operator+(const dgsmatrix& matA, const _dgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  const std::vector<dcomponent>::const_iterator matA_data_end =matA.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matA.data.begin(); it!=matA_data_end; it++){
-    matB(it->i,it->j) += it->v;
-  }
-  
-  return matB;
-}
-
-//=============================================================================
-/*! dgsmatrix-_dgematrix operator */
-inline _dgematrix operator-(const dgsmatrix& matA, const _dgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") - (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //// change sign ////
-  for(CPPL_INT i=0; i<matB.m*matB.n; i++){
-    matB.array[i]=-matB.array[i];
-  }
-  
-  //// add ////
-  const std::vector<dcomponent>::const_iterator matA_data_end =matA.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matA.data.begin(); it!=matA_data_end; it++){
-    matB(it->i,it->j) += it->v;
-  }
-  
-  return matB;
-}
-
-//=============================================================================
-/*! dgsmatrix*_dgematrix operator */
-inline _dgematrix operator*(const dgsmatrix& matA, const _dgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat(matA.m, matB.n);
-  newmat.zero();
-  
-  const std::vector<dcomponent>::const_iterator matA_data_end =matA.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matA.data.begin(); it!=matA_data_end; it++){
-    for(CPPL_INT j=0; j<matB.n; j++){
-      newmat(it->i,j) += it->v *matB(it->j,j);
-    }
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/b9/b9940976dcb0c857945adbc488b901a82cf0db99.svn-base b/cpplapack-r198/.svn/pristine/b9/b9940976dcb0c857945adbc488b901a82cf0db99.svn-base
deleted file mode 100644
index 912f6e9..0000000
--- a/cpplapack-r198/.svn/pristine/b9/b9940976dcb0c857945adbc488b901a82cf0db99.svn-base
+++ /dev/null
@@ -1,18 +0,0 @@
-//=============================================================================
-/*! _drovector*double operator */
-inline _drovector operator*(const _drovector& vec, const double& d)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT inc =1;
-  dscal_(&vec.l, &d, vec.array, &inc);
-  return vec;
-}
-
-//=============================================================================
-/*! _drovector/double operator */
-inline _drovector operator/(const _drovector& vec, const double& d)
-{CPPL_VERBOSE_REPORT;
-  double dinv =1./d;
-  CPPL_INT inc =1;
-  dscal_(&vec.l, &dinv, vec.array, &inc);
-  return vec;
-}
diff --git a/cpplapack-r198/.svn/pristine/ba/ba02b9316f36636681682a581ef8cae6fdc44be2.svn-base b/cpplapack-r198/.svn/pristine/ba/ba02b9316f36636681682a581ef8cae6fdc44be2.svn-base
deleted file mode 100644
index c1987fe..0000000
--- a/cpplapack-r198/.svn/pristine/ba/ba02b9316f36636681682a581ef8cae6fdc44be2.svn-base
+++ /dev/null
@@ -1,20 +0,0 @@
-//=============================================================================
-/*! _zhematrix*double operator */
-inline _zhematrix operator*(const _zhematrix& mat, const double& d)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT size =mat.n*mat.n;
-  CPPL_INT inc =1;
-  zdscal_(&size, &d, mat.array, &inc);
-  return mat;
-}
-
-//=============================================================================
-/*! _zhematrix/double operator */
-inline _zhematrix operator/(const _zhematrix& mat, const double& d)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT size =mat.n*mat.n;
-  double dinv =1./d;
-  CPPL_INT inc =1;
-  zdscal_(&size, &dinv, mat.array, &inc);
-  return mat;
-}
diff --git a/cpplapack-r198/.svn/pristine/ba/ba3a7fd79484776b67b9c816c78560987803da0b.svn-base b/cpplapack-r198/.svn/pristine/ba/ba3a7fd79484776b67b9c816c78560987803da0b.svn-base
deleted file mode 100644
index fcf8bec..0000000
--- a/cpplapack-r198/.svn/pristine/ba/ba3a7fd79484776b67b9c816c78560987803da0b.svn-base
+++ /dev/null
@@ -1,79 +0,0 @@
-//=============================================================================
-/*! _dgsmatrix+dgbmatrix operator */
-inline _dgematrix operator+(const _dgsmatrix& matA, const dgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat( matA.to_dgematrix() );
-  
-  for(CPPL_INT i=0; i<matB.m; i++){
-    const CPPL_INT jmax =std::min(matB.n,i+matB.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matB.kl); j<jmax; j++){
-      newmat(i,j)+=matB(i,j);
-    }
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _dgsmatrix-dgbmatrix operator */
-inline _dgematrix operator-(const _dgsmatrix& matA, const dgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat( matA.to_dgematrix() );
-  
-  for(CPPL_INT i=0; i<matB.m; i++){
-    const CPPL_INT jmax =std::min(matB.n,i+matB.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matB.kl); j<jmax; j++){
-      newmat(i,j)-=matB(i,j);
-    }
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _dgsmatrix*dgbmatrix operator */
-inline _dgematrix operator*(const _dgsmatrix& matA, const dgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat( matA.m, matB.n );
-  newmat.zero();
-  
-  const std::vector<dcomponent>::const_iterator matA_data_end =matA.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matA.data.begin(); it!=matA_data_end; it++){
-    const CPPL_INT jmax =std::min(matB.n,it->j+matB.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),it->j-matB.kl); j<jmax; j++){
-      newmat(it->i,j) += it->v*matB(it->j,j);
-    }
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/ba/ba6a00c0a1272bc2aa6e0dcdb182f9a348e4b70e.svn-base b/cpplapack-r198/.svn/pristine/ba/ba6a00c0a1272bc2aa6e0dcdb182f9a348e4b70e.svn-base
deleted file mode 100644
index a7b2137..0000000
--- a/cpplapack-r198/.svn/pristine/ba/ba6a00c0a1272bc2aa6e0dcdb182f9a348e4b70e.svn-base
+++ /dev/null
@@ -1,54 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int M(4), N(3), K(2);
-  
-  CPPL::dgematrix A(M,K), B(K,N), C;
-  for(int i=0; i<A.m; i++){ for(int j=0; j<A.n; j++){
-	A(i,j) =double( rand() /(RAND_MAX/10) );
-  }}
-  for(int i=0; i<B.m; i++){ for(int j=0; j<B.n; j++){
-	B(i,j) =double( rand() /(RAND_MAX/10) );
-  }}
-  
-  cout << "A =\n" << A << endl;
-  cout << "B =\n" << B << endl;
-  
-  cout << "A+A =\n" << A+A << endl;
-  cout << "A-A =\n" << A-A << endl;
-  cout << "A*B =\n" << A*B << endl;
-  
-  cout << "#### C=A; ####" << endl;
-  C=A;
-  cout << "C =\n" << C << endl;
-  cout << "#### C+=A; ####" << endl;
-  C+=A;
-  cout << "C =\n" << C << endl;
-  cout << "#### C-=A; ####" << endl;
-  C-=A;
-  cout << "C =\n" << C << endl;
-  cout << "#### C*=B; ####" << endl;
-  C*=B;
-  cout << "C =\n" << C << endl;
-  cout << "#### C=A+A; ####" << endl;
-  C=A+A;
-  cout << "C =\n" << C << endl;
-
-
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/ba/baff396424fc3154242cef41d84ccdad6f7f63ab.svn-base b/cpplapack-r198/.svn/pristine/ba/baff396424fc3154242cef41d84ccdad6f7f63ab.svn-base
deleted file mode 100644
index 038531f..0000000
--- a/cpplapack-r198/.svn/pristine/ba/baff396424fc3154242cef41d84ccdad6f7f63ab.svn-base
+++ /dev/null
@@ -1,46 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <ctime>
-#include "cpplapack.h"
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int N(5);
-  
-  CPPL::dssmatrix A(N);
-  A(0,0)=1;
-  A(2,3)=2;
-  A(1,2)=3;
-  A(4,1)=4;
-  //A(3,2)+=0.1;
-  
-  std::cout << "A =\n" << A << std::endl;
-  std::cout << "A(1,1)=" << A(1,1) << std::endl;
-  for(std::vector<CPPL::dcomponent>::const_iterator it=A.data.begin(); it!=A.data.end(); it++){
-    std::cout << "A(" << it->i << "," << it->j << ") =" << it->v << std::endl;
-  }
-  A.checkup();
-  
-  A.put(3,4, 3.4);
-  A.del(1,4);
-  A.del(0);
-  std::cout << "A =\n" << A << std::endl;
-  
-  const CPPL::dssmatrix B(A);
-  //// write/read ////
-  B.write( "tmp.txt" );
-  
-  CPPL::dssmatrix C;
-  C.read( "tmp.txt" );
-  std::cout << "C-B =\n" << C-B << "<-Should be zero." << std::endl;
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/bc/bcd19fab479731e8b9adab8369818f8aa10075e6.svn-base b/cpplapack-r198/.svn/pristine/bc/bcd19fab479731e8b9adab8369818f8aa10075e6.svn-base
deleted file mode 100644
index 8c5b9f2..0000000
--- a/cpplapack-r198/.svn/pristine/bc/bcd19fab479731e8b9adab8369818f8aa10075e6.svn-base
+++ /dev/null
@@ -1,13 +0,0 @@
-//=============================================================================
-/*! double*dssmatrix operator */
-inline _dssmatrix operator*(const double& d, const dssmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  dssmatrix newmat =mat;
-  
-  const std::vector<dcomponent>::iterator newmat_data_end =newmat.data.end();
-  for(std::vector<dcomponent>::iterator it=newmat.data.begin(); it!=newmat_data_end; it++){
-    it->v *=d;
-  }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/bd/bd2518e98964e210354944a2e6abd7c775139c9f.svn-base b/cpplapack-r198/.svn/pristine/bd/bd2518e98964e210354944a2e6abd7c775139c9f.svn-base
deleted file mode 100644
index aa5f85e..0000000
--- a/cpplapack-r198/.svn/pristine/bd/bd2518e98964e210354944a2e6abd7c775139c9f.svn-base
+++ /dev/null
@@ -1,24 +0,0 @@
-//=============================================================================
-/*! _dsymatrix*dcovector operator */
-inline _dcovector operator*(const _dsymatrix& mat, const dcovector& vec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(mat.n!=vec.l){
-    ERROR_REPORT;
-    std::cerr << "These matrix and vector can not make a product." << std::endl
-              << "Your input was (" << mat.n << "x" << mat.n << ") * (" << vec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dcovector newvec(mat.n);
-  char uplo ='l';
-  double alpha =1.;
-  CPPL_INT inc =1;
-  double beta =0.;
-  
-  dsymv_( &uplo, &mat.n, &alpha, mat.array, &mat.n, vec.array, &inc, &beta, newvec.array, &inc );
-  
-  mat.destroy();
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/bd/bd4184a9f385cf061685eeabeb38a375875eb3a2.svn-base b/cpplapack-r198/.svn/pristine/bd/bd4184a9f385cf061685eeabeb38a375875eb3a2.svn-base
deleted file mode 100644
index 9238078..0000000
--- a/cpplapack-r198/.svn/pristine/bd/bd4184a9f385cf061685eeabeb38a375875eb3a2.svn-base
+++ /dev/null
@@ -1,19 +0,0 @@
-//=============================================================================
-/*! drovector*_dcovector operator */
-inline double operator*(const drovector& rovec, const _dcovector& covec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(rovec.l!=covec.l){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make a product." << std::endl
-              << "Your input was (" << rovec.l << ") * (" << covec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  CPPL_INT inc =1;
-  double val =ddot_( &rovec.l, rovec.array, &inc, covec.array, &inc );
-  
-  covec.destroy();
-  return val;
-}
diff --git a/cpplapack-r198/.svn/pristine/bd/bd4bc55815e8d68b8ad7cdbe632a9fcc6384a923.svn-base b/cpplapack-r198/.svn/pristine/bd/bd4bc55815e8d68b8ad7cdbe632a9fcc6384a923.svn-base
deleted file mode 100644
index af2eaf5..0000000
--- a/cpplapack-r198/.svn/pristine/bd/bd4bc55815e8d68b8ad7cdbe632a9fcc6384a923.svn-base
+++ /dev/null
@@ -1,79 +0,0 @@
-//=============================================================================
-/*! _zgbmatrix+zhematrix operator */
-inline _zgematrix operator+(const _zgbmatrix& matA, const zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.n || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat( matB.to_zgematrix() );
-  
-  for(CPPL_INT i=0; i<matA.m; i++){
-    const CPPL_INT jmax =std::min(matA.n,i+matA.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matA.kl); j<jmax; j++){
-      newmat(i,j) += matA(i,j);
-    }
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _zgbmatrix-zgematrix operator */
-inline _zgematrix operator-(const _zgbmatrix& matA, const zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.n || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat( (-matB).to_zgematrix() );
-  for(CPPL_INT i=0; i<matA.m; i++){
-    const CPPL_INT jmax =std::min(matA.n,i+matA.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matA.kl); j<jmax; j++){
-      newmat(i,j) += matA(i,j);
-    }
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _zgbmatrix*zgematrix operator */
-inline _zgematrix operator*(const _zgbmatrix& matA, const zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat( matA.m, matB.n );
-  newmat.zero();
-
-  for(CPPL_INT i=0; i<newmat.m; i++){
-    for(CPPL_INT j=0; j<newmat.n; j++){
-      const CPPL_INT kmax =std::min(matA.n,i+matA.ku+1);
-      for(CPPL_INT k=std::max(CPPL_INT(0),i-matA.kl); k<kmax; k++){
-        newmat(i,j) += matA(i,k)*matB(k,j);
-      }
-    }
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/bd/bd667d3adcccbbd5a66993cca36a2297b6badfe2.svn-base b/cpplapack-r198/.svn/pristine/bd/bd667d3adcccbbd5a66993cca36a2297b6badfe2.svn-base
deleted file mode 100644
index f46edea..0000000
--- a/cpplapack-r198/.svn/pristine/bd/bd667d3adcccbbd5a66993cca36a2297b6badfe2.svn-base
+++ /dev/null
@@ -1,60 +0,0 @@
-//=============================================================================
-/*! _drovector+drovector operator */
-inline _drovector operator+(const _drovector& vecA, const drovector& vecB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vecA.l!=vecB.l){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make a sumation." << std::endl
-              << "Your input was (" << vecA.l << ") + (" << vecB.l << ")." << std::endl;
-    exit(1);
-  }
-  
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<vecA.l; i++){
-    vecA.array[i]+=vecB.array[i];
-  }
-  
-  return vecA;
-}
-
-//=============================================================================
-/*! drovector-drovector operator */
-inline _drovector operator-(const _drovector& vecA, const drovector& vecB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vecA.l!=vecB.l){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make a subtraction." << std::endl
-              << "Your input was (" << vecA.l << ") - (" << vecB.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<vecA.l; i++){
-    vecA.array[i]-=vecB.array[i];
-  }
-  
-  return vecA;
-}
-
-//=============================================================================
-/*! drovector^T*drovector operator (inner product) */
-inline double operator%(const _drovector& vecA, const drovector& vecB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vecA.l!=vecB.l){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make a dot product." << std::endl
-              << "Your input was (" << vecA.l << ") % (" << vecB.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  CPPL_INT inc =1;
-  double val =ddot_( &vecA.l, vecA.array, &inc, vecB.array, &inc );
-  
-  vecA.destroy();
-  return val;
-}
diff --git a/cpplapack-r198/.svn/pristine/bd/bd8f1cf3c1646d5b528660afaefff53c4d10d41e.svn-base b/cpplapack-r198/.svn/pristine/bd/bd8f1cf3c1646d5b528660afaefff53c4d10d41e.svn-base
deleted file mode 100644
index ddbd259..0000000
--- a/cpplapack-r198/.svn/pristine/bd/bd8f1cf3c1646d5b528660afaefff53c4d10d41e.svn-base
+++ /dev/null
@@ -1,41 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int L(4);
-  
-  CPPL::zcovector x(L), y;
-  for(int i=0; i<x.l; i++){
-    x(i) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-  }
-  
-  cout << "x =\n" << x << endl;
-  cout << "#### y.copy(x) ####" << endl;
-  y.copy(x);
-  cout << "y =\n" << y << endl;
-  
-  cout << "#### y.clear() ####" << endl;
-  y.clear();
-  cout << "y =\n" << y << endl;
-  
-  cout << "#### y.resize(2) & y.zero() ####" << endl;
-  y.resize(2);
-  y.zero();
-  cout << "y =\n" << y << endl;
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/bd/bdade9897b41384b8b4822b3c269914a7e2fcdb4.svn-base b/cpplapack-r198/.svn/pristine/bd/bdade9897b41384b8b4822b3c269914a7e2fcdb4.svn-base
deleted file mode 100644
index a09f423..0000000
--- a/cpplapack-r198/.svn/pristine/bd/bdade9897b41384b8b4822b3c269914a7e2fcdb4.svn-base
+++ /dev/null
@@ -1,152 +0,0 @@
-//=============================================================================
-/*! clear vector */
-inline void drovector::clear()
-{CPPL_VERBOSE_REPORT;
-  l =0;
-  cap =0;
-  delete [] array;
-  array =NULL;
-}
-
-//=============================================================================
-/*! make vector into zero vector */
-inline drovector& drovector::zero()
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<l; i++){ array[i] =0.0; }
-  return *this;
-}
-
-//=============================================================================
-/*! change sign(+/-) of the vector */
-inline void drovector::chsign()
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<l; i++){ array[i] =-array[i]; }
-}
-
-//=============================================================================
-/*! make a deep copy of the drovector */
-inline void drovector::copy(const drovector& vec)
-{CPPL_VERBOSE_REPORT;
-  l =vec.l;
-  cap =vec.cap;
-  delete [] array;
-  array =new double[vec.cap];
-  CPPL_INT inc =1;
-  dcopy_(&vec.l, vec.array, &inc, array, &inc);
-}
-
-//=============================================================================
-/*! make a shallow copy of the vector\n
- This function is not desinged to be used in project codes. */
-inline void drovector::shallow_copy(const _drovector& vec)
-{CPPL_VERBOSE_REPORT;
-  l =vec.l;
-  cap =vec.cap;
-  delete [] array;
-  array =vec.array;
-  
-  vec.nullify();
-}
-
-//=============================================================================
-/*! make an alias of the vector\n
-  Be carefull to use this function not to cause double free. */
-inline void drovector::alias(const drovector& vec)
-{CPPL_VERBOSE_REPORT;
-  l =vec.l;
-  cap =vec.cap;
-  delete [] array;
-  array =vec.array;
-}
-
-//=============================================================================
-/*! unalias the vector */
-inline void drovector::unalias()
-{CPPL_VERBOSE_REPORT;
-  l =0;
-  cap =0;
-  array =NULL;
-}
-
-//=============================================================================
-/*! resize vector */
-inline drovector& drovector::resize(const CPPL_INT& _l, const CPPL_INT margin)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( _l<0 || margin<0 ){
-    ERROR_REPORT;
-    std::cerr << "Vector size must be positive integers." << std::endl
-              << "Your input was (" << _l << ", " << margin << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  l =_l;
-  cap =l+margin;
-  delete [] array;
-  array =new double[cap];
-  
-  return *this;
-}
-
-//=============================================================================
-/*! stretch or shrink vector */
-inline void drovector::stretch(const CPPL_INT& dl)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( l+dl<0 ){
-    ERROR_REPORT;
-    std::cerr << "Vector size must be positive integers." << std::endl
-              << "Your input was (" << dl << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //////// zero ////////
-  if(dl==0){ return; }
-  
-  //////// non-zero ////////
-  l +=dl;
-
-  if(l>cap){
-    while(l>cap){
-      cap++;
-      cap*=2;
-    }
-    CPPL_INT newl =l-dl;
-    CPPL_INT inc =1;
-    double* newArray(new double[cap]);
-    dcopy_(&newl, array, &inc, newArray, &inc);
-    delete [] array;
-    array =newArray;
-  }
-}
-
-//=============================================================================
-/*! swap two vectors */
-inline void swap(drovector& u, drovector& v)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT u_cap(u.cap), u_l(u.l);
-  double* u_array(u.array);
-  u.l=v.l; u.cap=v.cap; u.array=v.array;
-  v.l=u_l; v.cap=u_cap; v.array=u_array;
-}
-
-//=============================================================================
-/*! convert user object to smart-temporary object */
-inline _drovector _(drovector& vec)
-{CPPL_VERBOSE_REPORT;
-  _drovector newvec;
-  
-  //////// shallow copy ////////
-  newvec.l =vec.l;
-  newvec.cap =vec.cap;
-  newvec.array =vec.array;
-  
-  //////// nullify ////////
-  vec.l =0;
-  vec.cap =0;
-  vec.array =NULL;
-  
-  return newvec;
-}
diff --git a/cpplapack-r198/.svn/pristine/be/be5fc4c32c82ac945aa39ebddc58ec29b3db62bd.svn-base b/cpplapack-r198/.svn/pristine/be/be5fc4c32c82ac945aa39ebddc58ec29b3db62bd.svn-base
deleted file mode 100644
index 4433867..0000000
--- a/cpplapack-r198/.svn/pristine/be/be5fc4c32c82ac945aa39ebddc58ec29b3db62bd.svn-base
+++ /dev/null
@@ -1,74 +0,0 @@
-//=============================================================================
-/*! _zgsmatrix+zgematrix operator */
-inline _zgematrix operator+(const _zgsmatrix& matA, const zgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(matB);
-  
-  const std::vector<zcomponent>::const_iterator matA_data_end =matA.data.end();
-  for(std::vector<zcomponent>::const_iterator it=matA.data.begin(); it!=matA_data_end; it++){
-    newmat(it->i,it->j) += it->v;
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _zgsmatrix-zgematrix operator */
-inline _zgematrix operator-(const _zgsmatrix& matA, const zgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") - (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(-matB);
-  
-  const std::vector<zcomponent>::const_iterator matA_data_end =matA.data.end();
-  for(std::vector<zcomponent>::const_iterator it=matA.data.begin(); it!=matA_data_end; it++){
-    newmat(it->i,it->j) += it->v;
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _zgsmatrix*zgematrix operator */
-inline _zgematrix operator*(const _zgsmatrix& matA, const zgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(matA.m, matB.n);
-  newmat.zero();
-  
-  const std::vector<zcomponent>::const_iterator matA_data_end =matA.data.end();
-  for(std::vector<zcomponent>::const_iterator it=matA.data.begin(); it!=matA_data_end; it++){
-    for(CPPL_INT j=0; j<matB.n; j++){
-      newmat(it->i,j) += it->v*matB(it->j,j);
-    }
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/be/bef73c8c5cb547f36777941e08521b9b5c2e6eb4.svn-base b/cpplapack-r198/.svn/pristine/be/bef73c8c5cb547f36777941e08521b9b5c2e6eb4.svn-base
deleted file mode 100644
index 39fac0c..0000000
--- a/cpplapack-r198/.svn/pristine/be/bef73c8c5cb547f36777941e08521b9b5c2e6eb4.svn-base
+++ /dev/null
@@ -1,21 +0,0 @@
-//=============================================================================
-/*! _zrovector*_zcovector operator */
-inline comple operator*(const _zrovector& rovec, const _zcovector& covec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(rovec.l!=covec.l){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make a product." << std::endl
-              << "Your input was (" << rovec.l << ") * (" << covec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  CPPL_INT inc =1;
-  
-  comple val =zdotu_( &rovec.l, rovec.array, &inc, covec.array, &inc );
-  
-  rovec.destroy();
-  covec.destroy();
-  return val;
-}
diff --git a/cpplapack-r198/.svn/pristine/bf/bf2bd2444e18436454a06afe639b1abd8a8f66cf.svn-base b/cpplapack-r198/.svn/pristine/bf/bf2bd2444e18436454a06afe639b1abd8a8f66cf.svn-base
deleted file mode 100644
index bc5bced..0000000
--- a/cpplapack-r198/.svn/pristine/bf/bf2bd2444e18436454a06afe639b1abd8a8f66cf.svn-base
+++ /dev/null
@@ -1,70 +0,0 @@
-//=============================================================================
-/*! operator() for const object */
-inline comple _zgsmatrix::operator()(const CPPL_INT& i, const CPPL_INT& j) const
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || j<0 || m<=i || n<=j ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the matrix size." << std::endl
-              << "Your input is (" << i << "," << j << "), whereas the matrix size is " << m << "x" << n << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //////// search (i,j) component ////////
-  const std::vector<CPPL_INT>::iterator rows_i_end =rows[i].end();
-  for(std::vector<CPPL_INT>::iterator p=rows[i].begin(); p!=rows_i_end; p++){
-    if( data[*p].j==j ){ return data[*p].v; }
-  }
-  
-  //////// (i,j) component was not found ////////
-  return comple(0.0,0.0);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-inline std::ostream& operator<<(std::ostream& s, const _zgsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<mat.m; i++){
-    for(CPPL_INT j=0; j<mat.n; j++){
-      std::vector<CPPL_INT>::iterator q;
-      const std::vector<CPPL_INT>::iterator mat_rows_i_end =mat.rows[i].end();
-      for(q=mat.rows[i].begin(); q!=mat_rows_i_end; q++){
-        if( mat.data[*q].j==j ){ break; }
-      }
-      if(q!=mat_rows_i_end){ s << " " << mat.data[*q].v; }
-      else{ s << " x"; }
-    }
-    s << std::endl;
-  }
-  
-  mat.destroy();
-  return s;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-inline void _zgsmatrix::write(const char* filename) const
-{CPPL_VERBOSE_REPORT;
-  std::ofstream ofs(filename, std::ios::trunc);
-  ofs.setf(std::cout.flags());
-  ofs.precision(std::cout.precision());
-  ofs.width(std::cout.width());
-  ofs.fill(std::cout.fill());
-  
-  ofs << "#zgsmatrix " << m << " " << n << " " << data.size() << std::endl;
-  
-  const std::vector<zcomponent>::const_iterator data_end =data.end();
-  for(std::vector<zcomponent>::const_iterator it=data.begin(); it!=data_end; it++){
-    ofs << it->i << " " << it->j << " " << it->v << std::endl;
-  }
-  
-  ofs.close();
-  destroy();
-}
diff --git a/cpplapack-r198/.svn/pristine/bf/bf903e03ff8ead8f22d598f493d35a30e1669536.svn-base b/cpplapack-r198/.svn/pristine/bf/bf903e03ff8ead8f22d598f493d35a30e1669536.svn-base
deleted file mode 100644
index 95c91c4..0000000
--- a/cpplapack-r198/.svn/pristine/bf/bf903e03ff8ead8f22d598f493d35a30e1669536.svn-base
+++ /dev/null
@@ -1,1036 +0,0 @@
-%!PS-Adobe-3.0 EPSF-3.0
-%%BoundingBox: 23 438 399 520
-%%Title: dssmatrix-del
-%%CreationDate: Thu Nov  4 02:04:21 2004
-%%Creator: Tgif-4.1.43-QPL written by William Chia-Wei Cheng (bill.cheng@acm.org)
-%%ProducedBy: (unknown)
-%%Pages: 1
-%%DocumentFonts: (atend)
-%%EndComments
-%%BeginProlog
-
-/tgifdict 88 dict def
-tgifdict begin
-
-/tgifellipsedict 6 dict def
-tgifellipsedict /mtrx matrix put
-
-/TGEL % tgifellipse
- { tgifellipsedict begin
-      /yrad exch def
-      /xrad exch def
-      /y exch def
-      /x exch def
-      /savematrix mtrx currentmatrix def
-      x y translate
-      xrad yrad scale
-      0 0 1 0 360 arc
-      savematrix setmatrix
-   end
- } def
-
-/tgifarrowtipdict 8 dict def
-tgifarrowtipdict /mtrx matrix put
-
-/TGAT % tgifarrowtip
- { tgifarrowtipdict begin
-      /dy exch def
-      /dx exch def
-      /h exch def
-      /w exch def
-      /y exch def
-      /x exch def
-      /savematrix mtrx currentmatrix def
-      x y translate
-      dy dx atan rotate
-      0 0 moveto
-      w neg h lineto
-      w neg h neg lineto
-      savematrix setmatrix
-   end
- } def
-
-/tgifpatdict 10 dict def
-
-/tgifpatbyte
- { currentdict /retstr get exch
-   pat i cellsz mod get put
- } def
-
-/tgifpatproc
- { 0 1 widthlim {tgifpatbyte} for retstr
-   /i i 1 add def
- } def
-
-/TGPF % tgifpatfill
- { tgifpatdict begin
-      /h exch def
-      /w exch def
-      /lty exch def
-      /ltx exch def
-      /cellsz exch def
-      /pat exch def
-
-      /widthlim w cellsz div cvi 1 sub def
-      /retstr widthlim 1 add string def
-      /i 0 def
-
-      tgiforigctm setmatrix
-      ltx lty translate
-      w h true [1 0 0 1 0 0] {tgifpatproc} imagemask
-      ltx neg lty neg translate
-   end
- } def
-
-/pat3 <8000000008000000> def
-/pat4 <8800000022000000> def
-/pat5 <8800220088002200> def
-/pat6 <8822882288228822> def
-/pat7 <aa55aa55aa55aa55> def
-/pat8 <77dd77dd77dd77dd> def
-/pat9 <77ffddff77ffddff> def
-/pat10 <77ffffff77ffffff> def
-/pat11 <7fffffff7fffffff> def
-/pat12 <8040200002040800> def
-/pat13 <40a00000040a0000> def
-/pat14 <ff888888ff888888> def
-/pat15 <ff808080ff080808> def
-/pat16 <f87422478f172271> def
-/pat17 <038448300c020101> def
-/pat18 <081c22c180010204> def
-/pat19 <8080413e080814e3> def
-/pat20 <8040201008040201> def
-/pat21 <8844221188442211> def
-/pat22 <77bbddee77bbddee> def
-/pat23 <c1e070381c0e0783> def
-/pat24 <7fbfdfeff7fbfdfe> def
-/pat25 <3e1f8fc7e3f1f87c> def
-/pat26 <0102040810204080> def
-/pat27 <1122448811224488> def
-/pat28 <eeddbb77eeddbb77> def
-/pat29 <83070e1c3870e0c1> def
-/pat30 <fefdfbf7efdfbf7f> def
-/pat31 <7cf8f1e3c78f1f3e> def
-
-/TGMAX
- { exch dup 3 1 roll exch dup 3 1 roll gt { pop } { exch pop } ifelse
- } def
-/TGMIN
- { exch dup 3 1 roll exch dup 3 1 roll lt { pop } { exch pop } ifelse
- } def
-/TGSW { stringwidth pop } def
-
-/bd { bind def } bind def
-
-/GS { gsave } bd
-/GR { grestore } bd
-/NP { newpath } bd
-/CP { closepath } bd
-/CHP { charpath } bd
-/CT { curveto } bd
-/L { lineto } bd
-/RL { rlineto } bd
-/M { moveto } bd
-/RM { rmoveto } bd
-/S { stroke } bd
-/F { fill } bd
-/TR { translate } bd
-/RO { rotate } bd
-/SC { scale } bd
-/MU { mul } bd
-/DI { div } bd
-/DU { dup } bd
-/NE { neg } bd
-/AD { add } bd
-/SU { sub } bd
-/PO { pop } bd
-/EX { exch } bd
-/CO { concat } bd
-/CL { clip } bd
-/EC { eoclip } bd
-/EF { eofill } bd
-/IM { image } bd
-/IMM { imagemask } bd
-/ARY { array } bd
-/SG { setgray } bd
-/RG { setrgbcolor } bd
-/SD { setdash } bd
-/W { setlinewidth } bd
-/SM { setmiterlimit } bd
-/SLC { setlinecap } bd
-/SLJ { setlinejoin } bd
-/SH { show } bd
-/FF { findfont } bd
-/MS { makefont setfont } bd
-/AR { arcto 4 {pop} repeat } bd
-/CURP { currentpoint } bd
-/FLAT { flattenpath strokepath clip newpath } bd
-/TGSM { tgiforigctm setmatrix } def
-/TGRM { savematrix setmatrix } def
-
-end
-
-%%EndProlog
-%%Page: 1 1
-
-%%PageBoundingBox: 23 438 399 520
-tgifdict begin
-/tgifsavedpage save def
-
-1 SM
-1 W
-
-0 SG
-
-72 0 MU 72 8.203 MU TR
-72 128 DI 100.000 MU 100 DI DU NE SC
-
-GS
-
-/tgiforigctm matrix currentmatrix def
-
-% BOX
-0 SG
-GS
-   10 SM
-   GS
-      NP 652 128 M 708 128 L 708 164 L 652 164 L CP
-      S
-   GR
-GR
-
-% BOX
-0 SG
-GS
-   10 SM
-   GS
-      NP 552 128 M 608 128 L 608 164 L 552 164 L CP
-      S
-   GR
-GR
-
-% BOX
-0 SG
-GS
-   NP 496 128 M 552 128 L 552 164 L 496 164 L CP EC NP
-   pat5 8 488 120 72 48 TGPF
-GR
-GS
-   10 SM
-   GS
-      NP 496 128 M 552 128 L 552 164 L 496 164 L CP
-      S
-   GR
-GR
-
-% BOX
-0 SG
-GS
-   NP 440 128 M 496 128 L 496 164 L 440 164 L CP EC NP
-   pat5 8 432 120 72 48 TGPF
-GR
-GS
-   10 SM
-   GS
-      NP 440 128 M 496 128 L 496 164 L 440 164 L CP
-      S
-   GR
-GR
-
-% BOX
-0 SG
-GS
-   NP 340 128 M 396 128 L 396 164 L 340 164 L CP EC NP
-   pat5 8 336 120 64 48 TGPF
-GR
-GS
-   10 SM
-   GS
-      NP 340 128 M 396 128 L 396 164 L 340 164 L CP
-      S
-   GR
-GR
-
-% BOX
-0 SG
-GS
-   NP 240 128 M 296 128 L 296 164 L 240 164 L CP EC NP
-   pat5 8 232 120 72 48 TGPF
-GR
-GS
-   10 SM
-   GS
-      NP 240 128 M 296 128 L 296 164 L 240 164 L CP
-      S
-   GR
-GR
-
-% BOX
-0 SG
-GS
-   NP 184 128 M 240 128 L 240 164 L 184 164 L CP EC NP
-   pat5 8 176 120 72 48 TGPF
-GR
-GS
-   10 SM
-   GS
-      NP 184 128 M 240 128 L 240 164 L 184 164 L CP
-      S
-   GR
-GR
-
-% BOX
-0 SG
-GS
-   NP 128 128 M 184 128 L 184 164 L 128 164 L CP EC NP
-   pat5 8 120 120 72 48 TGPF
-GR
-GS
-   10 SM
-   GS
-      NP 128 128 M 184 128 L 184 164 L 128 164 L CP
-      S
-   GR
-GR
-
-% TEXT
-NP
-0 SG
-   GS
-      1 W
-      156 152 M
-      GS
-        GS
-        0
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (0) TGSW 
-        AD
-        GR
-      2 DI NE 0 RM
-            0 SG
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (0) SH
-      GR
-   GR
-
-% TEXT
-NP
-0 SG
-   GS
-      1 W
-      212 152 M
-      GS
-        GS
-        0
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (1) TGSW 
-        AD
-        GR
-      2 DI NE 0 RM
-            0 SG
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (1) SH
-      GR
-   GR
-
-% TEXT
-NP
-0 SG
-   GS
-      1 W
-      268 152 M
-      GS
-        GS
-        0
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (2) TGSW 
-        AD
-        GR
-      2 DI NE 0 RM
-            0 SG
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (2) SH
-      GR
-   GR
-
-% TEXT
-NP
-0 SG
-   GS
-      1 W
-      368 152 M
-      GS
-        GS
-        0
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (c) TGSW 
-        AD
-        GR
-      2 DI NE 0 RM
-            0 SG
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (c) SH
-      GR
-   GR
-
-% TEXT
-NP
-0 SG
-   GS
-      1 W
-      468 152 M
-      GS
-        GS
-        0
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (vol-2) TGSW 
-        AD
-        GR
-      2 DI NE 0 RM
-            0 SG
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (vol-2) SH
-      GR
-   GR
-
-% TEXT
-NP
-0 SG
-   GS
-      1 W
-      680 152 M
-      GS
-        GS
-        0
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (cap-1) TGSW 
-        AD
-        GR
-      2 DI NE 0 RM
-            0 SG
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (cap-1) SH
-      GR
-   GR
-
-% OVAL
-0 SG
-NP 306 146 2 2 TGEL F
-GS
-   GS
-      NP 306 146 2 2 TGEL
-      3 W
-      S
-   GR
-GR
-
-% OVAL
-0 SG
-NP 318 146 2 2 TGEL F
-GS
-   GS
-      NP 318 146 2 2 TGEL
-      3 W
-      S
-   GR
-GR
-
-% OVAL
-0 SG
-NP 330 146 2 2 TGEL F
-GS
-   GS
-      NP 330 146 2 2 TGEL
-      3 W
-      S
-   GR
-GR
-
-% OVAL
-0 SG
-NP 406 146 2 2 TGEL F
-GS
-   GS
-      NP 406 146 2 2 TGEL
-      3 W
-      S
-   GR
-GR
-
-% OVAL
-0 SG
-NP 418 146 2 2 TGEL F
-GS
-   GS
-      NP 418 146 2 2 TGEL
-      3 W
-      S
-   GR
-GR
-
-% OVAL
-0 SG
-NP 430 146 2 2 TGEL F
-GS
-   GS
-      NP 430 146 2 2 TGEL
-      3 W
-      S
-   GR
-GR
-
-% TEXT
-NP
-0 SG
-   GS
-      1 W
-      524 152 M
-      GS
-        GS
-        0
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (vol-1) TGSW 
-        AD
-        GR
-      2 DI NE 0 RM
-            0 SG
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (vol-1) SH
-      GR
-   GR
-
-% TEXT
-NP
-0 SG
-   GS
-      1 W
-      580 152 M
-      GS
-        GS
-        0
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (vol) TGSW 
-        AD
-        GR
-      2 DI NE 0 RM
-            0 SG
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (vol) SH
-      GR
-   GR
-
-% OVAL
-0 SG
-NP 618 146 2 2 TGEL F
-GS
-   GS
-      NP 618 146 2 2 TGEL
-      3 W
-      S
-   GR
-GR
-
-% OVAL
-0 SG
-NP 630 146 2 2 TGEL F
-GS
-   GS
-      NP 630 146 2 2 TGEL
-      3 W
-      S
-   GR
-GR
-
-% OVAL
-0 SG
-NP 642 146 2 2 TGEL F
-GS
-   GS
-      NP 642 146 2 2 TGEL
-      3 W
-      S
-   GR
-GR
-
-% TEXT
-NP
-0 SG
-   GS
-      1 W
-      80 200 M
-      GS
-        GS
-        0
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (del\(i,j\);) TGSW 
-        AD
-        GR
-      2 DI NE 0 RM
-            0 SG
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (del\(i,j\);) SH
-      GR
-   GR
-
-% BOX
-0 SG
-GS
-   10 SM
-   GS
-      NP 652 232 M 708 232 L 708 268 L 652 268 L CP
-      S
-   GR
-GR
-
-% BOX
-0 SG
-GS
-   10 SM
-   GS
-      NP 552 232 M 608 232 L 608 268 L 552 268 L CP
-      S
-   GR
-GR
-
-% BOX
-0 SG
-GS
-   10 SM
-   GS
-      NP 496 232 M 552 232 L 552 268 L 496 268 L CP
-      S
-   GR
-GR
-
-% BOX
-0 SG
-GS
-   NP 440 232 M 496 232 L 496 268 L 440 268 L CP EC NP
-   pat5 8 432 224 72 48 TGPF
-GR
-GS
-   10 SM
-   GS
-      NP 440 232 M 496 232 L 496 268 L 440 268 L CP
-      S
-   GR
-GR
-
-% BOX
-0 SG
-GS
-   NP 340 232 M 396 232 L 396 268 L 340 268 L CP EC NP
-   pat5 8 336 224 64 48 TGPF
-GR
-GS
-   10 SM
-   GS
-      NP 340 232 M 396 232 L 396 268 L 340 268 L CP
-      S
-   GR
-GR
-
-% BOX
-0 SG
-GS
-   NP 240 232 M 296 232 L 296 268 L 240 268 L CP EC NP
-   pat5 8 232 224 72 48 TGPF
-GR
-GS
-   10 SM
-   GS
-      NP 240 232 M 296 232 L 296 268 L 240 268 L CP
-      S
-   GR
-GR
-
-% BOX
-0 SG
-GS
-   NP 184 232 M 240 232 L 240 268 L 184 268 L CP EC NP
-   pat5 8 176 224 72 48 TGPF
-GR
-GS
-   10 SM
-   GS
-      NP 184 232 M 240 232 L 240 268 L 184 268 L CP
-      S
-   GR
-GR
-
-% BOX
-0 SG
-GS
-   NP 128 232 M 184 232 L 184 268 L 128 268 L CP EC NP
-   pat5 8 120 224 72 48 TGPF
-GR
-GS
-   10 SM
-   GS
-      NP 128 232 M 184 232 L 184 268 L 128 268 L CP
-      S
-   GR
-GR
-
-% TEXT
-NP
-0 SG
-   GS
-      1 W
-      156 256 M
-      GS
-        GS
-        0
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (0) TGSW 
-        AD
-        GR
-      2 DI NE 0 RM
-            0 SG
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (0) SH
-      GR
-   GR
-
-% TEXT
-NP
-0 SG
-   GS
-      1 W
-      212 256 M
-      GS
-        GS
-        0
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (1) TGSW 
-        AD
-        GR
-      2 DI NE 0 RM
-            0 SG
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (1) SH
-      GR
-   GR
-
-% TEXT
-NP
-0 SG
-   GS
-      1 W
-      268 256 M
-      GS
-        GS
-        0
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (2) TGSW 
-        AD
-        GR
-      2 DI NE 0 RM
-            0 SG
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (2) SH
-      GR
-   GR
-
-% TEXT
-NP
-0 SG
-   GS
-      1 W
-      368 256 M
-      GS
-        GS
-        0
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (c) TGSW 
-        AD
-        GR
-      2 DI NE 0 RM
-            0 SG
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (c) SH
-      GR
-   GR
-
-% TEXT
-NP
-0 SG
-   GS
-      1 W
-      468 256 M
-      GS
-        GS
-        0
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (vol-1) TGSW 
-        AD
-        GR
-      2 DI NE 0 RM
-            0 SG
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (vol-1) SH
-      GR
-   GR
-
-% TEXT
-NP
-0 SG
-   GS
-      1 W
-      680 256 M
-      GS
-        GS
-        0
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (cap-1) TGSW 
-        AD
-        GR
-      2 DI NE 0 RM
-            0 SG
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (cap-1) SH
-      GR
-   GR
-
-% OVAL
-0 SG
-NP 306 250 2 2 TGEL F
-GS
-   GS
-      NP 306 250 2 2 TGEL
-      3 W
-      S
-   GR
-GR
-
-% OVAL
-0 SG
-NP 318 250 2 2 TGEL F
-GS
-   GS
-      NP 318 250 2 2 TGEL
-      3 W
-      S
-   GR
-GR
-
-% OVAL
-0 SG
-NP 330 250 2 2 TGEL F
-GS
-   GS
-      NP 330 250 2 2 TGEL
-      3 W
-      S
-   GR
-GR
-
-% OVAL
-0 SG
-NP 406 250 2 2 TGEL F
-GS
-   GS
-      NP 406 250 2 2 TGEL
-      3 W
-      S
-   GR
-GR
-
-% OVAL
-0 SG
-NP 418 250 2 2 TGEL F
-GS
-   GS
-      NP 418 250 2 2 TGEL
-      3 W
-      S
-   GR
-GR
-
-% OVAL
-0 SG
-NP 430 250 2 2 TGEL F
-GS
-   GS
-      NP 430 250 2 2 TGEL
-      3 W
-      S
-   GR
-GR
-
-% TEXT
-NP
-0 SG
-   GS
-      1 W
-      524 256 M
-      GS
-        GS
-        0
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (vol) TGSW 
-        AD
-        GR
-      2 DI NE 0 RM
-            0 SG
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (vol) SH
-      GR
-   GR
-
-% TEXT
-NP
-0 SG
-   GS
-      1 W
-      580 256 M
-      GS
-        GS
-        0
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (vol+1) TGSW 
-        AD
-        GR
-      2 DI NE 0 RM
-            0 SG
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (vol+1) SH
-      GR
-   GR
-
-% OVAL
-0 SG
-NP 618 250 2 2 TGEL F
-GS
-   GS
-      NP 618 250 2 2 TGEL
-      3 W
-      S
-   GR
-GR
-
-% OVAL
-0 SG
-NP 630 250 2 2 TGEL F
-GS
-   GS
-      NP 630 250 2 2 TGEL
-      3 W
-      S
-   GR
-GR
-
-% OVAL
-0 SG
-NP 642 250 2 2 TGEL F
-GS
-   GS
-      NP 642 250 2 2 TGEL
-      3 W
-      S
-   GR
-GR
-
-% TEXT
-NP
-0 SG
-   GS
-      1 W
-      260 200 M
-      GS
-        GS
-        0
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (automatically "vol--;") TGSW 
-        AD
-        GR
-      2 DI NE 0 RM
-            0 SG
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (automatically "vol--;") SH
-      GR
-   GR
-
-% POLY/OPEN-SPLINE
-0 SG
-GS
-   NP
-      524 232 M
-      480 208 L
-      368 208 L
-      24 0 atan DU cos 10.000 MU 368 exch SU
-      exch sin 10.000 MU 232 exch SU L
-   TGSM
-   2 W
-   S
-   1 W
-GR
-GS
-   TGSM
-   NP
-      368 232 10.000 4.000 0 24 TGAT
-   CP F
-GR
-
-% TEXT
-NP
-0 SG
-   GS
-      1 W
-      548 208 M
-      GS
-        GS
-        0
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (assign value) TGSW 
-        AD
-        GR
-      2 DI NE 0 RM
-            0 SG
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (assign value) SH
-      GR
-      0 22 RM
-      GS
-        GS
-        0
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (at here) TGSW 
-        AD
-        GR
-      2 DI NE 0 RM
-            0 SG
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (at here) SH
-      GR
-   GR
-
-% TEXT
-NP
-0 SG
-   GS
-      1 W
-      132 224 M
-      GS
-        GS
-        0
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (\(if \(i,j\) means array[c]\)) TGSW 
-        AD
-        GR
-      2 DI NE 0 RM
-            0 SG
-            /Helvetica FF [18 0 0 -18 0 0] MS
-            (\(if \(i,j\) means array[c]\)) SH
-      GR
-   GR
-
-GR
-tgifsavedpage restore
-end
-showpage
-
-%%Trailer
-%MatchingCreationDate: Thu Nov  4 02:04:21 2004
-%%DocumentFonts: Helvetica
-%%EOF
diff --git a/cpplapack-r198/.svn/pristine/c0/c015b79e18332c96395f704ade236a14acba2dd3.svn-base b/cpplapack-r198/.svn/pristine/c0/c015b79e18332c96395f704ade236a14acba2dd3.svn-base
deleted file mode 100644
index ce06fc8..0000000
--- a/cpplapack-r198/.svn/pristine/c0/c015b79e18332c96395f704ade236a14acba2dd3.svn-base
+++ /dev/null
@@ -1,99 +0,0 @@
-/*****************************************************************************/
-/*                                main.cpp                                   */
-/*****************************************************************************/
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include <vector>
-#include "cpplapack.h"
-
-//=============================================================================
-bool bicg
-(
- const CPPL::dgematrix& A,
- //const CPPL::dgsmatrix& A,
- CPPL::dcovector& x,
- const double& eps
-)
-{
-  double alpha, beta(0.0);
-  CPPL::dcovector p_0(x.l), p_1, P_0(x.l), P_1, q, Q;
-  CPPL::dcovector r_1(x), r_2, R_1(r_1), R_2;
-  double rho_0(r_1%R_1), rho_1;
-  x.zero();
-  p_0.zero();
-  P_0.zero();
-  
-  int itc(0);
-  const int itmax(2*x.l);
-  while(fabs(damax(r_1))>eps && ++itc<itmax){
-    std::cout << itc << " " << fabs(damax(r_1)) << std::endl;
-    
-    rho_1 =r_1%R_1;
-    beta =rho_1/rho_0;
-    p_1 =r_1 +beta*p_0;
-    P_1 =R_1 +beta*P_0;
-    q =A*p_1;
-    Q =t(t(P_1)*A);
-    alpha =rho_1/(P_1%q);
-    x +=alpha*p_1;
-    r_2 =r_1 -alpha*q;
-    R_2 =R_1 -alpha*Q;
-
-    rho_0 =rho_1;
-    swap(p_0, p_1);
-    swap(P_0, P_1);
-    swap(r_1, r_2);
-    swap(R_1, R_2);
-  }
-  std::cerr << "itc=" << itc << "  fabs(damax(r_1))=" << fabs(damax(r_1)) << std::endl;
-  
-  if(itc<itmax){ return 0; }
-  else{ return 1; }
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-int main(int argc, char** argv)
-{
-  srand(time(NULL));
-  
-  const int size(100);
-  CPPL::dgematrix A(size,size);
-  //CPPL::dgsmatrix A(size,size);
-  
-  for(int i=0; i<size; i++){
-    for(int j=0; j<size; j++){
-      if(rand()%2){ A(i,j) =(double(rand())/double(RAND_MAX))*2.0 -1.0; }
-    }
-    A(i,i)+=10.;
-  }
-  A.write("A.dgematrix");
-  
-  CPPL::dcovector x(size);
-  for(int i=0; i<size; i++){
-    x(i) =(double(rand())/double(RAND_MAX))*1. -0.5;
-  }
-  x.write("answer.dcovector");//solution
-  std::cerr << "answer=\n" << t(x) << std::endl;
-  
-  CPPL::dcovector y(A*x);
-  y.write("y.dcovector");
-  //std::cerr << "y=\n" << t(y) << std::endl;
-  
-  double eps(fabs(damax(y))*1e-6);
-  //std::cerr << "eps=" << eps << std::endl;
-  if( bicg(A, y, eps) ){
-    std::cerr << "failed." << std::endl;
-    exit(1);
-  }
-  y.write("solution.dcovector");
-  std::cout << "solution=\n" << t(y) << std::endl;
-  //std::cerr << "A*x=\n" << t(A*y) << std::endl;
-  
-  return 0;
-}
diff --git a/cpplapack-r198/.svn/pristine/c0/c073b519542807681e45e5796d49295a76e5a6f9.svn-base b/cpplapack-r198/.svn/pristine/c0/c073b519542807681e45e5796d49295a76e5a6f9.svn-base
deleted file mode 100644
index e728ab2..0000000
--- a/cpplapack-r198/.svn/pristine/c0/c073b519542807681e45e5796d49295a76e5a6f9.svn-base
+++ /dev/null
@@ -1,28 +0,0 @@
-//=============================================================================
-/*! _drovector*_dssmatrix operator */
-inline _drovector operator*(const _drovector& vec, const _dssmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vec.l!=mat.n){
-    ERROR_REPORT;
-    std::cerr << "These vector and matrix can not make a product." << std::endl
-              << "Your input was (" << vec.l << ") * (" << mat.n << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  drovector newvec(mat.n);
-  newvec.zero();
-  
-  const std::vector<dcomponent>::const_iterator mat_data_end =mat.data.end();
-  for(std::vector<dcomponent>::const_iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    newvec(it->j) +=vec(it->i)*it->v;
-    if(it->i!=it->j){
-      newvec(it->i) +=vec(it->j)*it->v;
-    }
-  }
-  
-  vec.destroy();
-  mat.destroy();
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/c0/c081944b143238d14207d5b697d665bcdbba7bd6.svn-base b/cpplapack-r198/.svn/pristine/c0/c081944b143238d14207d5b697d665bcdbba7bd6.svn-base
deleted file mode 100644
index b9f89b7..0000000
--- a/cpplapack-r198/.svn/pristine/c0/c081944b143238d14207d5b697d665bcdbba7bd6.svn-base
+++ /dev/null
@@ -1,90 +0,0 @@
-//=============================================================================
-/*! return transposed zgsmatrix */
-inline _zgsmatrix t(const zgsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  zgsmatrix newmat =mat;
-  
-  std::swap(newmat.m,newmat.n);
-  std::swap(newmat.rows,newmat.cols);
-  const std::vector<zcomponent>::iterator newmat_data_end =newmat.data.end();
-  for(std::vector<zcomponent>::iterator it=newmat.data.begin(); it!=newmat_data_end; it++){
-    std::swap(it->i,it->j);
-  }
-  
-  return _(newmat);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! return its conjugate matrix */
-inline _zgsmatrix conj(const zgsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  zgsmatrix newmat(mat);
-  
-  const std::vector<zcomponent>::iterator newmat_data_end =newmat.data.end();
-  for(std::vector<zcomponent>::iterator it=newmat.data.begin(); it!=newmat_data_end; it++){
-    it->v =std::conj(it->v);
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! return its conjugate transposed matrix */
-inline _zgsmatrix conjt(const zgsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  zgsmatrix newmat(mat);
-  std::swap(newmat.rows,newmat.cols);
-  
-  const std::vector<zcomponent>::iterator newmat_data_end =newmat.data.end();
-  for(std::vector<zcomponent>::iterator it=newmat.data.begin(); it!=newmat_data_end; it++){
-    std::swap(it->i,it->j);
-    it->v =std::conj(it->v);
-  }
-  
-  return _(newmat);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! search the index of element having the largest absolute value in 0-based numbering system */
-inline void idamax(CPPL_INT& i, CPPL_INT& j, const zgsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  std::vector<zcomponent>::const_iterator itx(mat.data.begin());
-  double vmax =0.;
-  
-  const std::vector<zcomponent>::const_iterator mat_data_end =mat.data.end();
-  for(std::vector<zcomponent>::const_iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    if( vmax < norm(it->v) ){
-      vmax =norm(it->v);
-      itx =it;
-    }
-  }
-  
-  i=itx->i;
-  j=itx->j;
-}
-
-//=============================================================================
-/*! return its largest absolute value */
-inline comple damax(const zgsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  std::vector<zcomponent>::const_iterator itx(mat.data.begin());
-  double vmax =0.;
-  
-  const std::vector<zcomponent>::const_iterator mat_data_end =mat.data.end();
-  for(std::vector<zcomponent>::const_iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    if( vmax < norm(it->v) ){
-      vmax =norm(it->v);
-      itx =it;
-    }
-  }
-  
-  return itx->v;
-}
diff --git a/cpplapack-r198/.svn/pristine/c0/c0f8ce29713f2f44f460bda2a90e7ca3edaffc88.svn-base b/cpplapack-r198/.svn/pristine/c0/c0f8ce29713f2f44f460bda2a90e7ca3edaffc88.svn-base
deleted file mode 100644
index 170fe37..0000000
--- a/cpplapack-r198/.svn/pristine/c0/c0f8ce29713f2f44f460bda2a90e7ca3edaffc88.svn-base
+++ /dev/null
@@ -1,13 +0,0 @@
-//=============================================================================
-/*! double*dgematrix operator */
-inline _dgematrix operator*(const double& d, const dgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-  dgematrix newmat(mat.m, mat.n);
-  
-  const CPPL_INT size =mat.m*mat.n;
-  for(CPPL_INT i=0; i<size; i++){
-    newmat.array[i] =d*mat.array[i];
-  }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/c1/c1cdf020f7593ea92029d258a6a9f8eaea81bbde.svn-base b/cpplapack-r198/.svn/pristine/c1/c1cdf020f7593ea92029d258a6a9f8eaea81bbde.svn-base
deleted file mode 100644
index 53c7895..0000000
--- a/cpplapack-r198/.svn/pristine/c1/c1cdf020f7593ea92029d258a6a9f8eaea81bbde.svn-base
+++ /dev/null
@@ -1,9 +0,0 @@
-//=============================================================================
-/*! double*_zgematrix operator */
-inline _zgematrix operator*(const double& d, const _zgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT size =mat.m*mat.n;
-  CPPL_INT inc =1;
-  zdscal_(&size, &d, mat.array, &inc);
-  return mat;
-}
diff --git a/cpplapack-r198/.svn/pristine/c1/c1f37db5423aa6eb4f0d8d705c77485818d741ea.svn-base b/cpplapack-r198/.svn/pristine/c1/c1f37db5423aa6eb4f0d8d705c77485818d741ea.svn-base
deleted file mode 100644
index d1770c4..0000000
--- a/cpplapack-r198/.svn/pristine/c1/c1f37db5423aa6eb4f0d8d705c77485818d741ea.svn-base
+++ /dev/null
@@ -1,24 +0,0 @@
-//=============================================================================
-/*! _drovector*dgsmatrix operator */
-inline _drovector operator*(const _drovector& vec, const dgsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vec.l!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These vector and matrix can not make a product." << std::endl
-              << "Your input was (" << vec.l << ") * (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  drovector newvec(mat.n);
-  newvec.zero();
-  
-  const std::vector<dcomponent>::const_iterator mat_data_end =mat.data.end();
-  for(std::vector<dcomponent>::const_iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    newvec(it->j) += vec(it->i)*it->v;
-  }
-  
-  vec.destroy();
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/c3/c3aa3ecb374bcde9164d6456e65beb8cb0e6d843.svn-base b/cpplapack-r198/.svn/pristine/c3/c3aa3ecb374bcde9164d6456e65beb8cb0e6d843.svn-base
deleted file mode 100644
index a7c6902..0000000
--- a/cpplapack-r198/.svn/pristine/c3/c3aa3ecb374bcde9164d6456e65beb8cb0e6d843.svn-base
+++ /dev/null
@@ -1,77 +0,0 @@
-//=============================================================================
-/*! _zgsmatrix+_zgematrix operator */
-inline _zgematrix operator+(const _zgsmatrix& matA, const _zgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  const std::vector<zcomponent>::const_iterator matA_data_end =matA.data.end();
-  for(std::vector<zcomponent>::const_iterator it=matA.data.begin(); it!=matA_data_end; it++){
-    matB(it->i,it->j) += it->v;
-  }
-  
-  matA.destroy();
-  return matB;
-}
-
-//=============================================================================
-/*! _zgsmatrix-_zgematrix operator */
-inline _zgematrix operator-(const _zgsmatrix& matA, const _zgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") - (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //// change sign ////
-  for(int i=0; i<matB.m*matB.n; i++){
-    matB.array[i] = -matB.array[i];
-  }
-  
-  //// add ////
-  const std::vector<zcomponent>::const_iterator matA_data_end =matA.data.end();
-  for(std::vector<zcomponent>::const_iterator it=matA.data.begin(); it!=matA_data_end; it++){
-    matB(it->i,it->j) += it->v;
-  }
-  
-  matA.destroy();
-  return matB;
-}
-
-//=============================================================================
-/*! _zgsmatrix*_zgematrix operator */
-inline _zgematrix operator*(const _zgsmatrix& matA, const _zgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(matA.m, matB.n);
-  newmat.zero();
-  
-  const std::vector<zcomponent>::const_iterator matA_data_end =matA.data.end();
-  for(std::vector<zcomponent>::const_iterator it=matA.data.begin(); it!=matA_data_end; it++){
-    for(CPPL_INT j=0; j<matB.n; j++){
-      newmat(it->i,j) += it->v *matB(it->j,j);
-    }
-  }
-  
-  matA.destroy();
-  matB.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/c3/c3b61418408e355791c8c092c1e9a523d0aebf11.svn-base b/cpplapack-r198/.svn/pristine/c3/c3b61418408e355791c8c092c1e9a523d0aebf11.svn-base
deleted file mode 100644
index 357443e..0000000
--- a/cpplapack-r198/.svn/pristine/c3/c3b61418408e355791c8c092c1e9a523d0aebf11.svn-base
+++ /dev/null
@@ -1,73 +0,0 @@
-//=============================================================================
-/*! zhsmatrix+zhematrix operator */
-/*
-inline _zgematrix operator+(const zhsmatrix& matA, const zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.n || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(matB);
-  for(CPPL_INT c=0; c<matA.vol; c++){
-    newmat(matA.indx[c],matA.jndx[c]) += matA.array[c];
-  }
-  
-  return _(newmat);
-}
-*/
-//=============================================================================
-/*! zhsmatrix-zhematrix operator */
-/*
-inline _zgematrix operator-(const zhsmatrix& matA, const zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.n || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") - (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  //// shallow copy to zgematrix ////
-  zgematrix newmat(-matB);
-  
-  //// add ////
-  for(CPPL_INT c=0; c<matA.vol; c++){
-    newmat(matA.indx[c],matA.jndx[c]) += matA.array[c];
-  }
-  
-  return _(newmat);
-}
-*/
-//=============================================================================
-/*! zhsmatrix*zhematrix operator */
-/*
-inline _zgematrix operator*(const zhsmatrix& matA, const zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(matA.m, matB.n);
-  newmat.zero();
-  
-  for(CPPL_INT c=0; c<matA.vol; c++){
-    for(CPPL_INT i=0; i<matB.n; i++){
-      newmat(matA.indx[c],i) += matA.array[c]*matB(matA.jndx[c],i);
-    }
-  }
-  
-  return _(newmat);
-}
-*/
diff --git a/cpplapack-r198/.svn/pristine/c4/c4efb26d291f5eeda4d9aed4cfaab254aa659921.svn-base b/cpplapack-r198/.svn/pristine/c4/c4efb26d291f5eeda4d9aed4cfaab254aa659921.svn-base
deleted file mode 100644
index 86ebd02..0000000
--- a/cpplapack-r198/.svn/pristine/c4/c4efb26d291f5eeda4d9aed4cfaab254aa659921.svn-base
+++ /dev/null
@@ -1,9 +0,0 @@
-dgematrix 8 8
-5.000000e-01 -1.148386e-01 -1.148386e-01 -2.703227e-01 1.915613e-01 7.688979e-02 7.688979e-02 1.616523e-01 
--1.148386e-01 5.000000e-01 -1.148386e-01 -2.703227e-01 7.688979e-02 1.915613e-01 7.688979e-02 1.616523e-01 
--1.148386e-01 -1.148386e-01 5.000000e-01 -2.703227e-01 7.688979e-02 7.688979e-02 1.915613e-01 1.616523e-01 
--1.666667e-01 -1.666667e-01 -1.666667e-01 5.000000e-01 8.958975e-02 8.958975e-02 8.958975e-02 2.567070e-01 
-1.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00 
-0.000000e+00 0.000000e+00 0.000000e+00 1.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00 
-0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00 1.000000e+00 0.000000e+00 0.000000e+00 
-0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00 0.000000e+00 1.000000e+00 0.000000e+00 
diff --git a/cpplapack-r198/.svn/pristine/c5/c5260f4ee34b16fa0d35d91099d45b9f898cda68.svn-base b/cpplapack-r198/.svn/pristine/c5/c5260f4ee34b16fa0d35d91099d45b9f898cda68.svn-base
deleted file mode 100644
index 3b720ca..0000000
--- a/cpplapack-r198/.svn/pristine/c5/c5260f4ee34b16fa0d35d91099d45b9f898cda68.svn-base
+++ /dev/null
@@ -1,65 +0,0 @@
-%define prefix /usr
-%define version 2015.05.11
-%define sourcedir /home/yuki/local/cpplapack
-
-###############################################################################
-Summary: CPPLapack library header files
-Name: cpplapack
-Version: %{version}
-Release: 1
-Vendor: Yuki ONISHI
-URL: http://sourceforge.net/projects/cpplapack/
-Source: http://sourceforge.net/projects/cpplapack/files/
-#Patch: 
-License: GPL
-Group: Applications/Engineering
-#Packager: 
-BuildArch: noarch
-Buildroot: %{_tmppath}/%{name}-root
-
-#%package doc
-#Summary: Documentation of CPPLapack
-#Group: Applications/Engineering
-
-%description
-CPPLapack is a C++ matrix library designed as a class wrapper for BLAS, LAPACK and PARDISO.
-Visit http://cpplapack.sourceforge.net/ to obtain the documentation, update information, and the latest version in the subversion (svn) repository.
-
-#%description doc
-#This package contains the html documentation, sample Makefies, 
-#test programs, and benchmark programs of CPPLapack.
-#Please visit http://cpplapack.sourceforge.net/ to check update 
-#information and to obtain the latest version.
-
-###############################################################################
-%prep
-echo "prep"
-rm -rf $RPM_BUILD_ROOT
-
-%build
-echo "build"
-echo Nothing to make since CPPLapack is a set of header files.
-
-%install
-echo "install"
-mkdir -p $RPM_BUILD_ROOT/%{prefix}/include/cpplapack
-cd $RPM_BUILD_ROOT/%{prefix}/include
-cp -r %{sourcedir}/include/* cpplapack/
-rm -rf `find -type d -name .svn`
-cat cpplapack/cpplapack.h\
- | sed -e 's/\#include\ \"/\#include\ \"cpplapack\//g'\
- > ./cpplapack.h
-rm cpplapack/cpplapack.h
-
-%clean
-echo "%clean"
-#rm -rf $RPM_BUILD_ROOT
-
-###############################################################################
-%files
-%defattr(-,root,root)
-/usr/include/cpplapack
-/usr/include/cpplapack.h
-
-#%files doc
-#%doc benchmark doc makefiles test
diff --git a/cpplapack-r198/.svn/pristine/c5/c53448dec08b0a3f675dc3621b3deadd6c8c53c9.svn-base b/cpplapack-r198/.svn/pristine/c5/c53448dec08b0a3f675dc3621b3deadd6c8c53c9.svn-base
deleted file mode 100644
index 7cdaffc..0000000
--- a/cpplapack-r198/.svn/pristine/c5/c53448dec08b0a3f675dc3621b3deadd6c8c53c9.svn-base
+++ /dev/null
@@ -1,32 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int M(4), N(3);
-  
-  CPPL::dgematrix A(M,N);
-  for(int i=0; i<A.m; i++){ for(int j=0; j<A.n; j++){
-	A(i,j) =double( rand() /(RAND_MAX/10) );
-  }}
-  
-  cout << "A =\n" << A << endl;
-  cout << "+A =\n" << +A << endl;
-  cout << "-A =\n" << -A << endl;
-  cout << "A =\n" << A << endl;
-
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/c5/c5439591b8991cb69d0d113b28fa666d1ad4d1fa.svn-base b/cpplapack-r198/.svn/pristine/c5/c5439591b8991cb69d0d113b28fa666d1ad4d1fa.svn-base
deleted file mode 100644
index 6e5f1f0..0000000
--- a/cpplapack-r198/.svn/pristine/c5/c5439591b8991cb69d0d113b28fa666d1ad4d1fa.svn-base
+++ /dev/null
@@ -1,43 +0,0 @@
-//=============================================================================
-/*! cast to _zgrmatrix */
-/*
-inline _zgrmatrix dgrmatrix::to_zgrmatrix() const
-{CPPL_VERBOSE_REPORT;
-  zgrmatrix newmat;
-  newmat.m =m;
-  newmat.n =n;
-  newmat.ia =ia;
-  newmat.ja =ja;
-  
-  newmat.a.resize(a.size());
-  const size_t a_size =a.size();
-  for(size_t k=0; k<a_size; k++){
-    newmat.a[k] =comple(a[k],0.);
-  }
-  
-  return _(newmat);
-}
-*/
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! convert to _dgematrix */
-inline _dgematrix dgrmatrix::to_dgematrix() const
-{CPPL_VERBOSE_REPORT;
-  dgematrix newmat(m,n);
-  newmat.zero();
-  
-  for(CPPL_INT i=0; i<m; i++){
-    int k_beg =ia[i]-1;
-    int k_end =ia[i+1]-1;
-    for(int k=k_beg; k<k_end; k++){
-      int j =ja[k]-1;
-      newmat(i,j) =a[k];
-    }
-  }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/c5/c565e88516e0bf490cd86e4663f6632f33f75a5c.svn-base b/cpplapack-r198/.svn/pristine/c5/c565e88516e0bf490cd86e4663f6632f33f75a5c.svn-base
deleted file mode 100644
index 5ff9205..0000000
--- a/cpplapack-r198/.svn/pristine/c5/c565e88516e0bf490cd86e4663f6632f33f75a5c.svn-base
+++ /dev/null
@@ -1,9 +0,0 @@
-//=============================================================================
-/*! comple*_zgbmatrix operator */
-inline _zgbmatrix operator*(const comple& d, const _zgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT size =(mat.kl+mat.ku+1)*mat.n;
-  CPPL_INT inc =1;
-  zscal_(&size, &d, mat.array, &inc);
-  return mat;
-}
diff --git a/cpplapack-r198/.svn/pristine/c5/c5ad99e83281a00b03948daf3950746f1c5780f2.svn-base b/cpplapack-r198/.svn/pristine/c5/c5ad99e83281a00b03948daf3950746f1c5780f2.svn-base
deleted file mode 100644
index 60c95dd..0000000
--- a/cpplapack-r198/.svn/pristine/c5/c5ad99e83281a00b03948daf3950746f1c5780f2.svn-base
+++ /dev/null
@@ -1,80 +0,0 @@
-//=============================================================================
-//! (DO NOT USE) Smart-temporary Real Double-precision Row Vector Class
-class _drovector
-{
-public:
-  ///////////////////////////////////////////////
-  /////////////////// objects ///////////////////
-  ///////////////////////////////////////////////
-  mutable CPPL_INT l; //!< vector size
-  mutable CPPL_INT cap; //!< vector capacity
-  mutable double* array; //!< 1D array to store vector data
-  
-  ///////////////////////////////////////////////
-  ///////////////// constructors ////////////////
-  ///////////////////////////////////////////////
-  inline _drovector();
-  inline _drovector(const _drovector&);
-  inline ~_drovector(); //destructor
-  
-  ///////////////////////////////////////////////
-  ////////////////// functions //////////////////
-  ///////////////////////////////////////////////
-  //////// cast ////////
-  inline _zrovector to_zrovector() const;
-  
-  //////// io ////////
-  inline double& operator()(const CPPL_INT&) const;
-  inline friend std::ostream& operator<<(std::ostream&, const _drovector&);
-  inline void write(const char*) const;
-  
-  //////// calc ////////
-  inline friend _dcovector t(const drovector&);
-  inline friend double nrm2(const drovector&);
-  inline friend CPPL_INT idamax(const drovector&);
-  inline friend double damax(const drovector&);
-
-  //////// misc ////////
-  inline void nullify() const;
-  inline void destroy() const;
-  
-  ///////////////////////////////////////////////
-  ///////////// numerical operators /////////////
-  ///////////////////////////////////////////////
-  //////// unary ////////
-  inline friend const _drovector& operator+(const _drovector&);
-  inline friend _drovector operator-(const _drovector&);
-  
-  //////// + ////////
-  inline friend _drovector operator+(const _drovector&, const  drovector&);
-  inline friend _drovector operator+(const _drovector&, const _drovector&);
-  
-  //////// - ////////
-  inline friend _drovector operator-(const _drovector&, const  drovector&);
-  inline friend _drovector operator-(const _drovector&, const _drovector&);
-  
-  //////// * ////////
-  inline friend     double operator*(const _drovector&, const  dcovector&);
-  inline friend     double operator*(const _drovector&, const _dcovector&);
-  inline friend _drovector operator*(const _drovector&, const  dgematrix&);
-  inline friend _drovector operator*(const _drovector&, const _dgematrix&);
-  inline friend _drovector operator*(const _drovector&, const  dsymatrix&);
-  inline friend _drovector operator*(const _drovector&, const _dsymatrix&);
-  inline friend _drovector operator*(const _drovector&, const  dgbmatrix&);
-  inline friend _drovector operator*(const _drovector&, const _dgbmatrix&);
-  inline friend _drovector operator*(const _drovector&, const  dgsmatrix&);
-  inline friend _drovector operator*(const _drovector&, const _dgsmatrix&);
-  inline friend _drovector operator*(const _drovector&, const  dssmatrix&);
-  inline friend _drovector operator*(const _drovector&, const _dssmatrix&);
-  inline friend _drovector operator*(const _drovector&, const     double&);
-  
-  //////// / ////////
-  inline friend _drovector operator/(const _drovector&, const     double&);
-  
-  //////// % ////////
-  inline friend     double operator%(const _drovector&, const  drovector&);
-  inline friend     double operator%(const _drovector&, const _drovector&);
-  
-  //////// double ////////
-  inline friend _drovector operator*(const     double&, const _drovector&);
-};
diff --git a/cpplapack-r198/.svn/pristine/c5/c5b0b0c7e34eb817f135b4f3f17a277767a219f5.svn-base b/cpplapack-r198/.svn/pristine/c5/c5b0b0c7e34eb817f135b4f3f17a277767a219f5.svn-base
deleted file mode 100644
index 7edc18b..0000000
--- a/cpplapack-r198/.svn/pristine/c5/c5b0b0c7e34eb817f135b4f3f17a277767a219f5.svn-base
+++ /dev/null
@@ -1,74 +0,0 @@
-//=============================================================================
-/*! zgematrix+zgsmatrix operator */
-inline _zgematrix operator+(const zgematrix& matA, const zgsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(matA);
-  
-  const size_t matB_data_size =matB.data.size();
-  for(size_t c=0; c<matB_data_size; c++){
-    const zcomponent& z =matB.data[c];
-    newmat(z.i,z.j) += z.v;
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! zgematrix-zgsmatrix operator */
-inline _zgematrix operator-(const zgematrix& matA, const zgsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") - (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  zgematrix newmat(matA);
-  
-  const size_t matB_data_size =matB.data.size();
-  for(size_t c=0; c<matB_data_size; c++){
-    const zcomponent& z =matB.data[c];
-    newmat(z.i,z.j) -= z.v;
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! zgematrix*zgsmatrix operator */
-inline _zgematrix operator*(const zgematrix& matA, const zgsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(matA.m, matB.n);
-  newmat.zero();
-  
-  const size_t matB_data_size =matB.data.size();
-  for(size_t c=0; c<matB_data_size; c++){
-    const zcomponent& z =matB.data[c];
-    for(CPPL_INT i=0; i<matA.m; i++){
-      newmat(i,z.j) += matA(i,z.i)*z.v;
-    }
-  }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/c5/c5d57abaa2bcb4652c3a61edfca4dc57b96c01bb.svn-base b/cpplapack-r198/.svn/pristine/c5/c5d57abaa2bcb4652c3a61edfca4dc57b96c01bb.svn-base
deleted file mode 100644
index e241abc..0000000
--- a/cpplapack-r198/.svn/pristine/c5/c5d57abaa2bcb4652c3a61edfca4dc57b96c01bb.svn-base
+++ /dev/null
@@ -1,133 +0,0 @@
-//=============================================================================
-/*! zhsmatrix=zhsmatrix operator */
-inline zhsmatrix& zhsmatrix::operator=(const zhsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  if(&data!=&mat.data){ // if it is NOT self substitution
-    copy(mat);
-  }
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zhsmatrix+=zhsmatrix operator */
-inline zhsmatrix& zhsmatrix::operator+=(const zhsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << n << "x" << n << ") += (" << mat.n << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  const std::vector<zcomponent>::const_iterator mat_data_end =mat.data.end();
-  for(std::vector<zcomponent>::const_iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    (*this)(it->i,it->j) +=it->v;
-  }
-  
-  return *this;
-}
-
-//=============================================================================
-/*! zhsmatrix-=zhsmatrix operator */
-inline zhsmatrix& zhsmatrix::operator-=(const zhsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a sutraction." << std::endl
-              << "Your input was (" << n << "x" << n << ") -= (" << mat.n << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  const std::vector<zcomponent>::const_iterator mat_data_end =mat.data.end();
-  for(std::vector<zcomponent>::const_iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    (*this)(it->i,it->j) -=it->v;
-  }
-  
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zhsmatrix+zhsmatrix operator */
-inline _zhsmatrix operator+(const zhsmatrix& matA, const zhsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") + (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zhsmatrix newmat(matA);
-  
-  const std::vector<zcomponent>::const_iterator matB_data_end =matB.data.end();
-  for(std::vector<zcomponent>::const_iterator it=matB.data.begin(); it!=matB_data_end; it++){
-    newmat(it->i,it->j) +=it->v;
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! zhsmatrix-zhsmatrix operator */
-inline _zhsmatrix operator-(const zhsmatrix& matA, const zhsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") - (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zhsmatrix newmat(matA);
-  
-  const std::vector<zcomponent>::const_iterator matB_data_end =matB.data.end();
-  for(std::vector<zcomponent>::const_iterator it=matB.data.begin(); it!=matB_data_end; it++){
-    newmat(it->i,it->j) -= it->v;
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! zhsmatrix*zhsmatrix operator */
-/*
-inline _zgsmatrix operator*(const zhsmatrix& matA, const zhsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") * (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zhsmatrix newmat( matA.n, 0 );
-  
-  for(CPPL_INT c=0; c<matA.vol; c++){
-    CPPL_INT k(matA.jndx[c]);
-    std::vector< std::pair<CPPL_INT,CPPL_INT> >::iterator p;
-    for(p=matB.Col[k].begin(); p!=matB.Col[k].end(); p++){
-      newmat(matA.indx[c],p->first) +=matA.array[c]*matB.array[p->second];
-    }
-  }
-  
-  return _(newmat);
-}
-*/
diff --git a/cpplapack-r198/.svn/pristine/c5/c5e109434040b0de660213fc0c4916332248e602.svn-base b/cpplapack-r198/.svn/pristine/c5/c5e109434040b0de660213fc0c4916332248e602.svn-base
deleted file mode 100644
index 6f5f520..0000000
--- a/cpplapack-r198/.svn/pristine/c5/c5e109434040b0de660213fc0c4916332248e602.svn-base
+++ /dev/null
@@ -1,74 +0,0 @@
-//=============================================================================
-/*! _dssmatrix+dssmatrix operator */
-inline _dssmatrix operator+(const _dssmatrix& matA, const dssmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") + (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dssmatrix newmat(matA);
-  
-  const std::vector<dcomponent>::const_iterator matB_data_end =matB.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matB.data.begin(); it!=matB_data_end; it++){
-    newmat(it->i,it->j) +=it->v;
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _dssmatrix-dssmatrix operator */
-inline _dssmatrix operator-(const _dssmatrix& matA, const dssmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") - (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  dssmatrix newmat(matA);
-  
-  const std::vector<dcomponent>::const_iterator matB_data_end =matB.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matB.data.begin(); it!=matB_data_end; it++){
-    newmat(it->i,it->j) -=it->v;
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _dssmatrix*dssmatrix operator */
-/*
-inline _dssmatrix operator*(const _dssmatrix& matA, const dssmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dssmatrix newmat( matA.m, matB.n, 0 );
-  
-  for(CPPL_INT c=0; c<matA.vol; c++){
-    CPPL_INT k(matA.jndx[c]);
-    std::vector< std::pair<CPPL_INT,CPPL_INT> >::iterator p;
-    for(p=matB.Col[k].begin(); p!=matB.Col[k].end(); p++){
-      newmat(matA.indx[c],p->first) +=matA.array[c]*matB.array[p->second];
-    }
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
-*/
diff --git a/cpplapack-r198/.svn/pristine/c6/c61162d55a3c2d238119d09905cc792062c2608f.svn-base b/cpplapack-r198/.svn/pristine/c6/c61162d55a3c2d238119d09905cc792062c2608f.svn-base
deleted file mode 100644
index e90d5dd..0000000
--- a/cpplapack-r198/.svn/pristine/c6/c61162d55a3c2d238119d09905cc792062c2608f.svn-base
+++ /dev/null
@@ -1,13 +0,0 @@
-//=============================================================================
-/*! comple*zgematrix operator */
-inline _zgematrix operator*(const comple& d, const zgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-  zgematrix newmat(mat.m, mat.n);
-  
-  const CPPL_INT size =mat.m*mat.n;
-  for(CPPL_INT i=0; i<size; i++){
-    newmat.array[i] =d*mat.array[i];
-  }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/c6/c6610e37a996f5a6c025df07c22dac7b93ef3115.svn-base b/cpplapack-r198/.svn/pristine/c6/c6610e37a996f5a6c025df07c22dac7b93ef3115.svn-base
deleted file mode 100644
index 3421690..0000000
--- a/cpplapack-r198/.svn/pristine/c6/c6610e37a996f5a6c025df07c22dac7b93ef3115.svn-base
+++ /dev/null
@@ -1,70 +0,0 @@
-//=============================================================================
-/*! dgesv_check */
-void dgesv_check_vector()
-{
-  std::cout << "############ check dgesv vector ############" << std::endl;
-  
-  srand(unsigned(time(NULL)));
-  int M(3);
-  
-  //// make dgematrix A  ////
-  CPPL::dgematrix A(M,M);
-  for(int i=0; i<A.m; i++){ for(int j=0; j<A.n; j++){
-    A(i,j) =double( rand() /(RAND_MAX/10) );
-  }}
-  
-  //// make dcovector y ////
-  CPPL::dcovector y(M);
-  for(int i=0; i<y.l; i++){
-    y(i) =double( rand() /(RAND_MAX/10) );
-  }
-  
-  //// make A_original and y_original ////
-  CPPL::dgematrix A_original(A);
-  CPPL::dcovector y_original(y);
-  std::cout << "A_original=\n" << A_original << std::endl;
-  std::cout << "y_original=\n" << y_original << std::endl;
-  
-  //// solve Ax=y ////
-  A.dgesv(y);
-    
-  //// print A, y and A_original*y ////
-  std::cout << "A=\n" << A << std::endl;
-  std::cout << "y=\n" << y << std::endl;
-  std::cout << "A_original*y=\n" << A_original*y << std::endl;
-}
-
-void dgesv_check_matrix()
-{
-  std::cout << "############ check dgesv matrix ############" << std::endl;
-  
-  srand(unsigned(time(NULL)));
-  int M(3);
-  
-
-  //// make dgematrix A  ////
-  CPPL::dgematrix A(M,M);
-  for(int i=0; i<A.m; i++){ for(int j=0; j<A.n; j++){
-    A(i,j) =double( rand() /(RAND_MAX/10) );
-  }}
-   
-  //// make dgematrix Y  ////
-  CPPL::dgematrix Y(M,M);
-  for(int i=0; i<Y.m; i++){ for(int j=0; j<Y.n; j++){
-    Y(i,j) =double( rand() /(RAND_MAX/10) );
-  }}
-   
-  //// make A_original and Y_original ////
-  CPPL::dgematrix A_original(A);
-  CPPL::dgematrix Y_original(Y);
-  std::cout << "A_original=\n" << A_original << std::endl;
-  std::cout << "Y_original=\n" << Y_original << std::endl;
-  
-  //// solve AY=B ////
-  A.dgesv(Y);
-    
-  //// print A, Y and A_original*Y ////
-  std::cout << "A=\n" << A << std::endl;
-  std::cout << "Y=\n" << Y << std::endl;
-  std::cout << "A_original*Y=\n" << A_original*Y << std::endl;
-}
diff --git a/cpplapack-r198/.svn/pristine/c6/c6ee09c2356bb4a9f81620db30d6c4e6aa559570.svn-base b/cpplapack-r198/.svn/pristine/c6/c6ee09c2356bb4a9f81620db30d6c4e6aa559570.svn-base
deleted file mode 100644
index 5adf27f..0000000
--- a/cpplapack-r198/.svn/pristine/c6/c6ee09c2356bb4a9f81620db30d6c4e6aa559570.svn-base
+++ /dev/null
@@ -1,69 +0,0 @@
-//=============================================================================
-/*! zhematrix+zssmatrix operator */
-inline _zgematrix operator+(const zhematrix& matA, const zssmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") + ("
-              << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat =matA;
-  
-  for(CPPL_INT c=0; c<matB.vol; c++){
-    newmat(matB.indx[c],matB.jndx[c]) += matB.array[c];
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! zhematrix-zssmatrix operator */
-inline _zgematrix operator-(const zhematrix& matA, const zssmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") - (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  zgematrix newmat =matA;
-  
-  for(CPPL_INT c=0; c<matB.vol; c++){
-    newmat(matB.indx[c],matB.jndx[c]) -= matB.array[c];
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! zhematrix*zssmatrix operator */
-inline _zgematrix operator*(const zhematrix& matA, const zssmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(matA.n, matB.n);
-  newmat.zero();
-  
-  for(CPPL_INT c=0; c<matB.vol; c++){
-    for(CPPL_INT i=0; i<matA.n; i++){
-      newmat(i,matB.jndx[c]) += matA(i,matB.indx[c])*matB.array[c];
-    }
-  }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/c7/c74a7985c45aec4e05b441c04a7e5220b83bf0bb.svn-base b/cpplapack-r198/.svn/pristine/c7/c74a7985c45aec4e05b441c04a7e5220b83bf0bb.svn-base
deleted file mode 100644
index 9132805..0000000
--- a/cpplapack-r198/.svn/pristine/c7/c74a7985c45aec4e05b441c04a7e5220b83bf0bb.svn-base
+++ /dev/null
@@ -1,49 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int M(6), N(5), KL(2), KU(1);
-  
-  CPPL::zgbmatrix A;
-  cout << "A ||"
-       << " m=" << A.m << ", n=" << A.n
-       << " kl=" << A.kl << ", ku=" << A.ku
-       << ", array=" << A.array << endl;
-  
-  
-  CPPL::zgbmatrix B(M,N,KL,KU);
-  for(int i=0; i<B.m; i++){ for(int j=0; j<B.n; j++){
-    if( !((i-j)>B.kl || (j-i)>B.ku) ){
-      B(i,j) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-    }
-  }}
-  cout << "B ||"
-       << " m=" << B.m << ", n=" << B.n
-       << " kl=" << B.kl << ", ku=" << B.ku
-       << ", array=" << B.array << endl;
-  cout << "B =\n" << B << endl;
-  
-  
-  CPPL::zgbmatrix C(B);
-  cout << "C ||"
-       << " m=" << C.m << ", n=" << C.n
-       << " kl=" << C.kl << ", ku=" << C.ku
-       << ", array=" << C.array << endl;
-  cout << "C =\n" << C << endl;
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/c7/c7ca1c8d75ef0b16be9435240cbd7af802fc83ff.svn-base b/cpplapack-r198/.svn/pristine/c7/c7ca1c8d75ef0b16be9435240cbd7af802fc83ff.svn-base
deleted file mode 100644
index ba026e4..0000000
--- a/cpplapack-r198/.svn/pristine/c7/c7ca1c8d75ef0b16be9435240cbd7af802fc83ff.svn-base
+++ /dev/null
@@ -1,20 +0,0 @@
-//=============================================================================
-/*! _zgbmatrix*double operator */
-inline _zgbmatrix operator*(const _zgbmatrix& mat, const double& d)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT size =(mat.kl+mat.ku+1)*mat.n;
-  CPPL_INT inc =1;
-  zdscal_(&size, &d, mat.array, &inc);
-  return mat;
-}
-
-//=============================================================================
-/*! _zgbmatrix/double operator */
-inline _zgbmatrix operator/(const _zgbmatrix& mat, const double& d)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT size =(mat.kl+mat.ku+1)*mat.n;
-  double dinv =1./d;
-  CPPL_INT inc =1;
-  zdscal_(&size, &dinv, mat.array, &inc);
-  return mat;
-}
diff --git a/cpplapack-r198/.svn/pristine/c8/c80a2a07f7220740e01a97cb9f3b62dbaeabf9ae.svn-base b/cpplapack-r198/.svn/pristine/c8/c80a2a07f7220740e01a97cb9f3b62dbaeabf9ae.svn-base
deleted file mode 100644
index 61d4d15..0000000
--- a/cpplapack-r198/.svn/pristine/c8/c80a2a07f7220740e01a97cb9f3b62dbaeabf9ae.svn-base
+++ /dev/null
@@ -1,88 +0,0 @@
-//=============================================================================
-/*! zhsmatrix constructor without arguments */
-inline zhsmatrix::zhsmatrix()
-  : m(n)
-{CPPL_VERBOSE_REPORT;
-  //////// initialize ////////
-  n =0;
-  data.clear();
-  line.clear();
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zhsmatrix copy constructor */
-inline zhsmatrix::zhsmatrix(const zhsmatrix& mat)
-  : m(n)
-{CPPL_VERBOSE_REPORT;
-  data.clear();
-  line.clear();
-  copy(mat);
-}
-
-//=============================================================================
-/*! zhsmatrix constructor to cast _zhsmatrix */
-inline zhsmatrix::zhsmatrix(const _zhsmatrix& mat)
-  : m(n)
-{CPPL_VERBOSE_REPORT;
-  n =mat.n;
-  data.clear();
-  line.clear();
-  
-  data.swap(mat.data);
-  line.swap(mat.line);
-  
-  mat.nullify();
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zhsmatrix constructor with size specification */
-inline zhsmatrix::zhsmatrix(const CPPL_INT& _n, const CPPL_INT _c)
-  : m(n)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( _n<0 || _c<0 ){
-    ERROR_REPORT;
-    std::cerr << "Matrix sizes and the length of arrays must be positive integers. " << std::endl
-              << "Your input was (" << _n << "," << _c << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //////// initialize ////////
-  n =_n;
-  data.resize(0);
-  data.reserve(_c);
-  line.resize(n);
-}
-
-//=============================================================================
-/*! zhsmatrix constructor with filename */
-inline zhsmatrix::zhsmatrix(const char* filename)
-  : m(n)
-{CPPL_VERBOSE_REPORT;
-  data.clear();
-  line.clear();
-  
-  //// read ////
-  read(filename);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zhsmatrix destructor */
-inline zhsmatrix::~zhsmatrix()
-{CPPL_VERBOSE_REPORT;
-  data.clear();
-  line.clear();
-}
diff --git a/cpplapack-r198/.svn/pristine/c8/c8359f4f7c3fb37ad216d46a4884342eb4da77db.svn-base b/cpplapack-r198/.svn/pristine/c8/c8359f4f7c3fb37ad216d46a4884342eb4da77db.svn-base
deleted file mode 100644
index fdb0554..0000000
--- a/cpplapack-r198/.svn/pristine/c8/c8359f4f7c3fb37ad216d46a4884342eb4da77db.svn-base
+++ /dev/null
@@ -1,105 +0,0 @@
-//=============================================================================
-/*! zgbmatrix constructor */
-inline zgbmatrix::zgbmatrix()
-{CPPL_VERBOSE_REPORT;
-  //////// initialize ////////
-  m =0;
-  n =0;
-  kl =0;
-  ku =0;
-  array =NULL;
-  darray =NULL;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zgbmatrix copy constructor */
-inline zgbmatrix::zgbmatrix(const zgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  //////// initialize ////////
-  m =mat.m;
-  n =mat.n;
-  kl =mat.kl;
-  ku =mat.ku;
-  array =new comple[(kl+ku+1)*n];
-  darray =new comple*[n];
-  for(int i=0; i<n; i++){
-    darray[i] =&array[i*(kl+ku+1)];
-  }
-
-  //////// copy ////////
-  CPPL_INT size =(kl+ku+1)*n;
-  CPPL_INT inc =1;
-  zcopy_(&size, mat.array, &inc, array, &inc);
-}
-
-//=============================================================================
-/*! zgbmatrix constructor to cast _zgbmatrix */
-inline zgbmatrix::zgbmatrix(const _zgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  m =mat.m;
-  n =mat.n;
-  kl =mat.kl;
-  ku =mat.ku;
-  array =mat.array;
-  darray =mat.darray;
-  
-  mat.nullify();
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zgbmatrix constructor with size specification */
-inline zgbmatrix::zgbmatrix(const CPPL_INT& _m, const CPPL_INT& _n,
-                            const CPPL_INT& _kl, const CPPL_INT& _ku)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( _m<0 || _n<0 || _kl<0 || _ku<0 || _m<_kl || _n<_ku ){
-    ERROR_REPORT;
-    std::cerr << "It is impossible to make a matrix you ordered. " << std::endl
-              << "Your input was (" << _m << "," << _n << ","<< _ku << "," << _kl << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //////// initialize ////////
-  m =_m;
-  n =_n;
-  kl =_kl;
-  ku =_ku;
-  array =new comple[(kl+ku+1)*n];
-  darray =new comple*[n];
-  for(int i=0; i<n; i++){
-    darray[i] =&array[i*(kl+ku+1)];
-  }
-}
-
-//=============================================================================
-/*! zgbmatrix constructor with filename */
-inline zgbmatrix::zgbmatrix(const char* filename)
-{CPPL_VERBOSE_REPORT;
-  array =NULL;
-  darray =NULL;
-  
-  //// read ////
-  read(filename);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zgbmatrix destructor */
-inline zgbmatrix::~zgbmatrix()
-{CPPL_VERBOSE_REPORT;
-  //////// delete array ////////
-  delete [] array;
-  delete [] darray;
-}
diff --git a/cpplapack-r198/.svn/pristine/c8/c874d0e14048010efd381af4dc9f9680d128dfc6.svn-base b/cpplapack-r198/.svn/pristine/c8/c874d0e14048010efd381af4dc9f9680d128dfc6.svn-base
deleted file mode 100644
index 8bb82c4..0000000
--- a/cpplapack-r198/.svn/pristine/c8/c874d0e14048010efd381af4dc9f9680d128dfc6.svn-base
+++ /dev/null
@@ -1,100 +0,0 @@
-//=============================================================================
-/*! solve A*x=b for real and unsymmetric matrix using Intel PARDISO.\n
-  The argument is dcovector b.
-  b is overwritten and become the solution x.
-  A is not overwritten.
-*/
-inline CPPL_INT dgsmatrix::pardiso(dcovector& b) const
-{CPPL_VERBOSE_REPORT;
-#ifndef  __INTEL_COMPILER
-  ERROR_REPORT;
-  std::cerr << "dgsmatrix::pardiso is only for intel c++ compiler (icpc)." << std::endl;
-  std::cerr << "Recompile your code with icpc to use pardiso." << std::endl;
-  (void)b;
-  exit(1);
-#else  //__INTEL_COMPILER
-  
-  
-  //#ifdef  CPPL_DEBUG
-  if(m!=n || m!=b.l){
-    ERROR_REPORT;
-    std::cerr << "These matrix and vector cannot be solved." << std::endl
-              << "Your input was (" << m << "x" << n << ") and (" << b.l << ")." << std::endl;
-    exit(1);
-  }
-  //#endif//CPPL_DEBUG 
-  
-  //////// convert matrix storage into compressed sparse row format ////////
-  //std::cerr << "converting" << std::endl;
-  std::vector<double> a(data.size());
-  std::vector<MKL_INT> ja(data.size());
-  std::vector<MKL_INT> ia(m+1);
-  ia[0] =0;
-  MKL_INT k=0;
-  for(CPPL_INT i=0; i<m; i++){
-    //// make map ////
-    const std::vector<CPPL_INT>::const_iterator rows_i_end =rows[i].end();
-    std::map<CPPL_INT,CPPL_INT> jc;
-    for(std::vector<CPPL_INT>::const_iterator rit=rows[i].begin(); rit!=rows_i_end; rit++){
-      jc.insert( std::make_pair(data[*rit].j, *rit) );
-    }
-    //// assign ////
-    const std::map<CPPL_INT,CPPL_INT>::const_iterator jc_end =jc.end();
-    for(std::map<CPPL_INT,CPPL_INT>::const_iterator jcit=jc.begin(); jcit!=jc_end; jcit++){
-      a[k] =data[(*jcit).second].v;
-      ja[k] =MKL_INT((*jcit).first);//zero-base
-      k++;
-    }
-    ia[i+1] =k;//zero-base
-  }
-  
-  //////// pardisoinit ////////
-  //std::cerr << "initializing" << std::endl;
-  //_MKL_DSS_HANDLE_t pt[64];
-  void* pt[64];
-  MKL_INT mtype =11;//real unsymmetric
-  MKL_INT iparm[64];
-  PARDISOINIT(pt, &mtype, iparm);
-  iparm[0] =1;//user modified iparm
-  //iparm[1] =3;//parallel fill-in reducing ordering [BUGGY on MKL 11.3]!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
-  iparm[1] =0;//serial fill-in reducing ordering [STABLE]
-  iparm[23] =1;//use two-level scheduling factorization algorithm
-  //iparm[26] =1;//enable matrix checker
-  iparm[26] =0;//disable matrix checker
-  ////////iparm[34] =0;//use Fortran style (one-base) array index
-  iparm[34] =9999;//use C style (zero-base) array index
-  
-  //////// pardiso ////////
-  //std::cerr << "solving" << std::endl;
-  MKL_INT maxfct =1;
-  MKL_INT mnum =1;
-  MKL_INT phase =13;
-  MKL_INT MKL_INT_n =MKL_INT(n);
-  std::vector<MKL_INT> perm(n);
-  MKL_INT nrhs =1;
-#ifdef  DEBUG
-  MKL_INT msglvl =1;
-#else //DEBUG
-  MKL_INT msglvl =0;
-#endif//DEBUG
-  dcovector x(b.l);
-  MKL_INT error =1;
-  PARDISO(pt, &maxfct, &mnum, &mtype, &phase, &MKL_INT_n, &a[0], &ia[0], &ja[0], &perm[0], &nrhs, iparm, &msglvl, b.array, x.array, &error);
-  swap(b,x);//set b as x
-  
-  if(error!=0){
-    WARNING_REPORT;
-    std::cerr << "Serious trouble happend. error = " << error << "." << std::endl;
-    for(int i=0; i<64; i++){
-      std::cerr << "iparm[" << i << "] = " << iparm[i] << std::endl;
-    }
-  }
-  
-  //////// release memory ////////
-  phase =-1;
-  MKL_INT error2 =1;
-  PARDISO(pt, &maxfct, &mnum, &mtype, &phase, &MKL_INT_n, &a[0], &ia[0], &ja[0], &perm[0], &nrhs, iparm, &msglvl, b.array, x.array, &error2);
-  
-  return error;
-#endif //__INTEL_COMPILER
-}
diff --git a/cpplapack-r198/.svn/pristine/c8/c8841c66a6e17b0f59bb8a04e4899d9cd5946196.svn-base b/cpplapack-r198/.svn/pristine/c8/c8841c66a6e17b0f59bb8a04e4899d9cd5946196.svn-base
deleted file mode 100644
index 6817821..0000000
--- a/cpplapack-r198/.svn/pristine/c8/c8841c66a6e17b0f59bb8a04e4899d9cd5946196.svn-base
+++ /dev/null
@@ -1,77 +0,0 @@
-//=============================================================================
-/*! _zgbmatrix+_zgematrix operator */
-inline _zgematrix operator+(const _zgbmatrix& matA, const _zgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<matA.m; i++){
-    const CPPL_INT jmax =std::min(matA.n,i+matA.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matA.kl); j<jmax; j++){
-      matB(i,j)+=matA(i,j);
-    }
-  }
-  
-  matA.destroy();
-  return matB;
-}
-
-//=============================================================================
-/*! _zgbmatrix-_zgematrix operator */
-inline _zgematrix operator-(const _zgbmatrix& matA, const _zgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<matA.m; i++){
-    const CPPL_INT jmax =std::min(matA.n,i+matA.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matA.kl); j<jmax; j++){
-      matB(i,j) =matA(i,j)-matB(i,j);
-    }
-  }
-  
-  matA.destroy();
-  return matB;
-}
-
-//=============================================================================
-/*! _zgbmatrix*_zgematrix operator */
-inline _zgematrix operator*(const _zgbmatrix& matA, const _zgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat( matA.m, matB.n );
-  newmat.zero();
-  
-  for(CPPL_INT i=0; i<newmat.m; i++){
-    for(CPPL_INT j=0; j<newmat.n; j++){
-      const CPPL_INT kmax =std::min(matA.n,i+matA.ku+1);
-      for(CPPL_INT k=std::max(CPPL_INT(0),i-matA.kl); k<kmax; k++){
-        newmat(i,j)+=matA(i,k)*matB(k,j);
-      }
-    }
-  }
-  
-  matA.destroy();
-  matB.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/c8/c8be23493ae3cba3e88e895397d9839491598ce1.svn-base b/cpplapack-r198/.svn/pristine/c8/c8be23493ae3cba3e88e895397d9839491598ce1.svn-base
deleted file mode 100644
index 2abacd1..0000000
--- a/cpplapack-r198/.svn/pristine/c8/c8be23493ae3cba3e88e895397d9839491598ce1.svn-base
+++ /dev/null
@@ -1,8 +0,0 @@
-//=============================================================================
-/*! double*_zcovector operator */
-inline _zcovector operator*(const double& d, const _zcovector& vec)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT inc =1;
-  zdscal_(&vec.l, &d, vec.array, &inc);
-  return vec;
-}
diff --git a/cpplapack-r198/.svn/pristine/c8/c8cb445c39c4231850a031529c511d7d6ab4639c.svn-base b/cpplapack-r198/.svn/pristine/c8/c8cb445c39c4231850a031529c511d7d6ab4639c.svn-base
deleted file mode 100644
index 9d81933..0000000
--- a/cpplapack-r198/.svn/pristine/c8/c8cb445c39c4231850a031529c511d7d6ab4639c.svn-base
+++ /dev/null
@@ -1,23 +0,0 @@
-//=============================================================================
-/*! _dgsmatrix*double operator */
-inline _dgsmatrix operator*(const _dgsmatrix& mat, const double& d)
-{CPPL_VERBOSE_REPORT;
-  const std::vector<dcomponent>::iterator mat_data_end =mat.data.end();
-  for(std::vector<dcomponent>::iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    it->v *= d;
-  }
-  
-  return mat;
-}
-
-//=============================================================================
-/*! _dgsmatrix/double operator */
-inline _dgsmatrix operator/(const _dgsmatrix& mat, const double& d)
-{CPPL_VERBOSE_REPORT;
-  const std::vector<dcomponent>::iterator mat_data_end =mat.data.end();
-  for(std::vector<dcomponent>::iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    it->v /= d;
-  }
-  
-  return mat;
-}
diff --git a/cpplapack-r198/.svn/pristine/c8/c8d033bce0c9081cfc366c169af73ab3097b67a4.svn-base b/cpplapack-r198/.svn/pristine/c8/c8d033bce0c9081cfc366c169af73ab3097b67a4.svn-base
deleted file mode 100644
index 77d3269..0000000
--- a/cpplapack-r198/.svn/pristine/c8/c8d033bce0c9081cfc366c169af73ab3097b67a4.svn-base
+++ /dev/null
@@ -1,74 +0,0 @@
-//=============================================================================
-/*! zgsmatrix+_zhematrix operator */
-inline _zgematrix operator+(const zgsmatrix& matA, const _zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.n || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat( matB.to_zgematrix() );
-  
-  const std::vector<zcomponent>::const_iterator matA_data_end =matA.data.end();
-  for(std::vector<zcomponent>::const_iterator it=matA.data.begin(); it!=matA_data_end; it++){
-    newmat(it->i,it->j) += it->v;
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! zgsmatrix-_zhematrix operator */
-inline _zgematrix operator-(const zgsmatrix& matA, const _zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.n || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") - (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat( (-matB).to_zgematrix() );
-  
-  const std::vector<zcomponent>::const_iterator matA_data_end =matA.data.end();
-  for(std::vector<zcomponent>::const_iterator it=matA.data.begin(); it!=matA_data_end; it++){
-    newmat(it->i,it->j) += it->v;
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! zgsmatrix*_zhematrix operator */
-inline _zgematrix operator*(const zgsmatrix& matA, const _zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(matA.m, matB.n);
-  newmat.zero();
-  
-  const std::vector<zcomponent>::const_iterator matA_data_end =matA.data.end();
-  for(std::vector<zcomponent>::const_iterator it=matA.data.begin(); it!=matA_data_end; it++){
-    for(CPPL_INT i=0; i<matB.n; i++){
-      newmat(it->i,i) += it->v*matB(it->j,i);
-    }
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/c9/c961c05101c265f07b47e1bc3657f6c1f148545b.svn-base b/cpplapack-r198/.svn/pristine/c9/c961c05101c265f07b47e1bc3657f6c1f148545b.svn-base
deleted file mode 100644
index 184390e..0000000
--- a/cpplapack-r198/.svn/pristine/c9/c961c05101c265f07b47e1bc3657f6c1f148545b.svn-base
+++ /dev/null
@@ -1,17 +0,0 @@
-//=============================================================================
-/*! +_dgbmatrix operator */
-inline const _dgbmatrix& operator+(const _dgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  return mat;
-}
-
-//=============================================================================
-/*! -_dgbmatrix operator */
-inline _dgbmatrix operator-(const _dgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<(mat.kl+mat.ku+1)*mat.n; i++){
-    mat.array[i]=-mat.array[i];
-  }
-  
-  return mat;
-}
diff --git a/cpplapack-r198/.svn/pristine/c9/c96667597674c8688b42ab0eaf11ea92920f1290.svn-base b/cpplapack-r198/.svn/pristine/c9/c96667597674c8688b42ab0eaf11ea92920f1290.svn-base
deleted file mode 100644
index f43eac8..0000000
--- a/cpplapack-r198/.svn/pristine/c9/c96667597674c8688b42ab0eaf11ea92920f1290.svn-base
+++ /dev/null
@@ -1,76 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int N(3);
-  
-  CPPL::zhematrix A(N), B(N);
-  CPPL::zgematrix X(N,N), Y(N,N), Z(N,N);
-  for(int i=0; i<A.n; i++){
-    for(int j=0; j<i; j++){
-      A(i,j) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-      B(i,j) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-    }
-    A(i,i) =complex<double>(rand()/(RAND_MAX/10), 0.0);
-    B(i,i) =complex<double>(rand()/(RAND_MAX/10), 0.0);
-  }
-  
-  for(int i=0; i<A.n; i++){ for(int j=0; j<A.n; j++){
-    if(i>=j){
-      X(i,j) = -A(i,j);
-      Y(i,j) = A(i,j);
-    }
-    else{
-      X(i,j) = conj(-A(j,i));
-      Y(i,j) = conj(A(j,i));
-    }      
-  }}
-  
-  for(int i=0; i<A.n; i++){ for(int j=0; j<A.n; j++){
-    Z(i,j) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-  }}
-  
-  cout << "A =\n" << A << endl;
-  cout << "B =\n" << B << endl;
-  cout << "X =\n" << X << endl;
-  cout << "Y =\n" << Y << endl;
-  cout << "Z =\n" << Z << endl;
-  
-  cout << "X+A = (Should be zero)\n" << X+A << endl;
-  cout << "Y-A = (Should be zero)\n" << Y-A << endl;
-  cout << "Z*A-Z*Y = (Should be zero)\n" << Z*A-Z*Y << endl;
-
-  CPPL::zgematrix W;
-  cout << "W=-A;" << endl;
-  W=-A.to_zgematrix();
-  cout << "W =\n" << W << endl;
-  cout << "W+=A;" << endl;
-  W+=A;
-  cout << "W = (Should be zero)\n" << W << endl;
-  cout << "W=A;" << endl;
-  W=A.to_zgematrix();
-  cout << "W-=A;" << endl;
-  W-=A;
-  cout << "W = (Should be zero)\n" << W << endl;
-  cout << "W.identity();" << endl;
-  W.identity();
-  cout << "W*=A;" << endl;
-  W*=A;
-  cout << "W =\n" << W << endl;
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/c9/c982b02e548abc635f9fc55a72604ff7a79a5fe8.svn-base b/cpplapack-r198/.svn/pristine/c9/c982b02e548abc635f9fc55a72604ff7a79a5fe8.svn-base
deleted file mode 100644
index f50d0fa..0000000
--- a/cpplapack-r198/.svn/pristine/c9/c982b02e548abc635f9fc55a72604ff7a79a5fe8.svn-base
+++ /dev/null
@@ -1,152 +0,0 @@
-//=============================================================================
-/*! zgematrix=_zgematrix operator */
-inline zgematrix& zgematrix::operator=(const _zgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-  shallow_copy(mat);
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zgematrix+=_zgematrix operator */
-inline zgematrix& zgematrix::operator+=(const _zgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.n || m!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << m << "x" << n << ") += (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  const CPPL_INT size =m*n;
-  for(CPPL_INT i=0; i<size; i++){
-    array[i] += mat.array[i];
-  }
-  
-  mat.destroy();
-  return *this;
-}
-
-//=============================================================================
-/*! zgematrix-=_zgematrix operator */
-inline zgematrix& zgematrix::operator-=(const _zgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.n || m!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a sutraction." << std::endl
-              << "Your input was (" << m << "x" << n << ") -= (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  const CPPL_INT size =m*n;
-  for(CPPL_INT i=0; i<size; i++){
-    array[i] -= mat.array[i];
-  }
-
-  mat.destroy();
-  return *this;
-}
-
-//=============================================================================
-/*! zgematrix*=_zgematrix operator */
-inline zgematrix& zgematrix::operator*=(const _zgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << m << "x" << n << ") *= (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat( m, mat.n );
-  char transa ='n';
-  char transb ='n';
-  comple alpha =comple(1.,0.);
-  comple beta =comple(0.,0.);
-  
-  zgemm_( &transa, &transb, &m, &mat.n, &n, &alpha, array, &m, mat.array, &mat.m, &beta, newmat.array, &m );
-  
-  swap(*this,newmat);
-  mat.destroy();
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zgematrix+_zgematrix operator */
-inline _zgematrix operator+(const zgematrix& matA, const _zgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  const CPPL_INT size =matA.m*matA.n;
-  for(CPPL_INT i=0; i<size; i++){
-    matB.array[i] +=matA.array[i];
-  }
-  
-  return matB;
-}
-
-//=============================================================================
-/*! zgematrix-_zgematrix operator */
-inline _zgematrix operator-(const zgematrix& matA, const _zgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") - (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  const CPPL_INT size =matA.m*matA.n;
-  for(CPPL_INT i=0; i<size; i++){
-    matB.array[i] =matA.array[i]-matB.array[i];
-  }
-  
-  return matB;
-}
-
-//=============================================================================
-/*! zgematrix*_zgematrix operator */
-inline _zgematrix operator*(const zgematrix& matA, const _zgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat( matA.m, matB.n );
-  char transa ='n';
-  char transb ='n';
-  comple alpha =comple(1.,0.);
-  comple beta =comple(0.,0.);
-  
-  zgemm_( &transa, &transb, &matA.m, &matB.n, &matA.n, &alpha, matA.array, &matA.m, matB.array, &matB.m, &beta, newmat.array, &matA.m );
-  
-  matB.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/c9/c98cf8215dff9f8bf69fd53dc77b9337bb0c527d.svn-base b/cpplapack-r198/.svn/pristine/c9/c98cf8215dff9f8bf69fd53dc77b9337bb0c527d.svn-base
deleted file mode 100644
index ef39f22..0000000
--- a/cpplapack-r198/.svn/pristine/c9/c98cf8215dff9f8bf69fd53dc77b9337bb0c527d.svn-base
+++ /dev/null
@@ -1,13 +0,0 @@
-//=============================================================================
-/*! comple*_zhematrix operator */
-inline _zgematrix operator*(const comple& d, const _zhematrix& mat)
-{CPPL_VERBOSE_REPORT;
-  zgematrix newmat =mat.to_zgematrix();
-  
-  CPPL_INT size =mat.n*mat.n;
-  CPPL_INT inc =1;
-  zscal_(&size, &d, newmat.array, &inc);
-  
-  mat.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/c9/c9e7af626f88c46694b9b611ed12e5533d38a1c7.svn-base b/cpplapack-r198/.svn/pristine/c9/c9e7af626f88c46694b9b611ed12e5533d38a1c7.svn-base
deleted file mode 100644
index dfed236..0000000
--- a/cpplapack-r198/.svn/pristine/c9/c9e7af626f88c46694b9b611ed12e5533d38a1c7.svn-base
+++ /dev/null
@@ -1,144 +0,0 @@
-//=============================================================================
-/*! zgematrix+=zhematrix operator */
-inline zgematrix& zgematrix::operator+=(const zhematrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.n || m!=mat.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << m << "x" << n << ") += (" << mat.n << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<m; i++){
-    for( CPPL_INT j=0; j<n; j++){
-      operator()(i,j) += mat(i,j);
-    }
-  }
-  
-  return *this;
-}
-
-//=============================================================================
-/*! zgematrix-=zhematrix operator */
-inline zgematrix& zgematrix::operator-=(const zhematrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.n || m!=mat.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a sutraction." << std::endl
-              << "Your input was (" << m << "x" << n << ") -= (" << mat.n << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<m; i++){
-    for(CPPL_INT j=0; j<n; j++){
-      operator()(i,j) -= mat(i,j);
-    }
-  }
-  
-  return *this;
-}
-
-//=============================================================================
-/*! zgematrix*=zhematrix operator */
-inline zgematrix& zgematrix::operator*=(const zhematrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << m << "x" << n << ") *= (" << mat.n << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat( m, mat.n );
-  char side ='R';
-  char uplo ='l';
-  comple alpha =comple(1.,0.);
-  comple beta =comple(0.,0.);
-  
-  zhemm_( &side, &uplo, &mat.n, &n, &alpha, mat.array, &mat.n, array, &m, &beta, newmat.array, &newmat.m );
-  
-  swap(*this,newmat);
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zgematrix+zhematrix operator */
-inline _zgematrix operator+(const zgematrix& matA, const zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  zgematrix newmat =matA;
-  
-  for(CPPL_INT i=0; i<matA.m; i++){
-    for(CPPL_INT j=0; j<matA.n; j++){
-      newmat(i,j) += matB(i,j);
-    }
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! zgematrix-zhematrix operator */
-inline _zgematrix operator-(const zgematrix& matA, const zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") - (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  zgematrix newmat =matA;
-  
-  for(CPPL_INT i=0; i<matA.m; i++){
-    for(CPPL_INT j=0; j<matA.n; j++){
-      newmat(i,j) -= matB(i,j);
-    }
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! zgematrix*zhematrix operator */
-inline _zgematrix operator*(const zgematrix& matA, const zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat( matA.m, matA.n );
-  char side ='R';
-  char uplo ='l';
-  comple alpha =comple(1.,0.);
-  comple beta =comple(0.,0.);
-  
-  zhemm_( &side, &uplo, &newmat.m, &newmat.n, &alpha, matB.array, &matB.n, matA.array, &matA.m, &beta, newmat.array, &newmat.m );
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/c9/c9fdc12ce7ac8768c688754bb78978226b430106.svn-base b/cpplapack-r198/.svn/pristine/c9/c9fdc12ce7ac8768c688754bb78978226b430106.svn-base
deleted file mode 100644
index 19a8fe0..0000000
--- a/cpplapack-r198/.svn/pristine/c9/c9fdc12ce7ac8768c688754bb78978226b430106.svn-base
+++ /dev/null
@@ -1,15 +0,0 @@
-//=============================================================================
-/*! nullify all the vector data */
-inline void _zcovector::nullify() const
-{CPPL_VERBOSE_REPORT;
-  l=0;
-  array=NULL;
-}
-
-//=============================================================================
-/*! destroy all the vector data */
-inline void _zcovector::destroy() const
-{CPPL_VERBOSE_REPORT;
-  delete [] array;
-  array=NULL;
-}
diff --git a/cpplapack-r198/.svn/pristine/ca/caa603f45cf8d14f6b053919dc06ccbcd33e95dd.svn-base b/cpplapack-r198/.svn/pristine/ca/caa603f45cf8d14f6b053919dc06ccbcd33e95dd.svn-base
deleted file mode 100644
index 4600375..0000000
--- a/cpplapack-r198/.svn/pristine/ca/caa603f45cf8d14f6b053919dc06ccbcd33e95dd.svn-base
+++ /dev/null
@@ -1,375 +0,0 @@
-//=============================================================================
-/*! clear all the matrix data and set the sizes 0 */
-inline void dgsmatrix::clear()
-{CPPL_VERBOSE_REPORT;
-  m =0;
-  n =0;
-  data.clear();
-  rows.clear();
-  cols.clear();
-}
-
-//=============================================================================
-/*! change the matrix into a zero matrix */
-inline dgsmatrix& dgsmatrix::zero()
-{CPPL_VERBOSE_REPORT;
-  data.resize(0);
-  for(CPPL_INT i=0; i<m; i++){ rows[i].resize(0); }
-  for(CPPL_INT j=0; j<n; j++){ cols[j].resize(0); }
-  return *this;
-}
-
-//=============================================================================
-/*! change the matrix into an identity matrix */
-inline dgsmatrix& dgsmatrix::identity()
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(m!=n){
-    ERROR_REPORT;
-    std::cerr << "Only square matrix can be a identity matrix." << std::endl
-              << "The matrix size was " << m << "x" << n << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zero();
-  for(CPPL_INT i=0; i<m; i++){
-    put(i,i,1.);
-  }
-  return *this;
-}
-
-//=============================================================================
-/*! change sign(+/-) of the matrix */
-inline void dgsmatrix::chsign()
-{CPPL_VERBOSE_REPORT;
-  const std::vector<dcomponent>::iterator data_end =data.end();
-  for(std::vector<dcomponent>::iterator it=data.begin(); it!=data_end; it++){
-    it->v =-it->v;
-  }
-}
-
-//=============================================================================
-/*! make a deep copy of the matrix */
-inline void dgsmatrix::copy(const dgsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  m =mat.m;
-  n =mat.n;
-  data =mat.data;
-  rows =mat.rows;
-  cols =mat.cols;
-}
-
-//=============================================================================
-/*! make a shallow copy of the matrix\n
-  This function is not designed to be used in project codes. */
-inline void dgsmatrix::shallow_copy(const _dgsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  data.clear();
-  rows.clear();
-  cols.clear();
-  
-  m =mat.m;
-  n =mat.n;
-  data.swap(mat.data);
-  rows.swap(mat.rows);
-  cols.swap(mat.cols);
-  
-  mat.nullify();
-}
-
-//=============================================================================
-/*! resize the matrix */
-inline dgsmatrix& dgsmatrix::resize(const CPPL_INT& _m, const CPPL_INT& _n, const CPPL_INT _c, const CPPL_INT _l)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( _m<0 || _n<0 || _c<0 ){
-    ERROR_REPORT;
-    std::cerr << "Matrix sizes and the length of arrays must be positive integers. " << std::endl
-              << "Your input was (" << _m << "," << _n << "," << _c << "," << _l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  m =_m;
-  n =_n;
-  data.resize(0);
-  data.reserve(_c);
-  rows.resize(m);
-  for(CPPL_INT i=0; i<m; i++){
-    rows[i].resize(0);
-    rows[i].reserve(_l);
-  }
-  cols.resize(n);
-  for(CPPL_INT i=0; i<n; i++){
-    cols[i].resize(0);
-    cols[i].reserve(_l);
-  }
-  
-  return *this;
-}
-
-//=============================================================================
-/*! stretch the matrix size */
-inline void dgsmatrix::stretch(const CPPL_INT& dm, const CPPL_INT& dn)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( m+dm<0 || n+dn<0 ){
-    ERROR_REPORT;
-    std::cerr << "The new matrix size must be larger than zero. " << std::endl
-              << "Your input was (" << dm << ", " << dn << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //////// zero ////////
-  if(dm==0 && dn==0){ return; }
-  
-  //////// non-zero ////////
-  m +=dm;
-  n +=dn;
-  
-  //// for rows ////
-  if(dm<0){
-    //// delete components over the new size ////
-    const std::vector<dcomponent>::reverse_iterator data_rend =data.rend();
-    for(std::vector<dcomponent>::reverse_iterator it=data.rbegin(); it!=data_rend; it++){
-      if( it->i>=m ){ del( CPPL_INT(data_rend-it-1) ); }
-    }
-    //// shrink rows ////
-    for(CPPL_INT i=0; i<-dm; i++){
-      rows.pop_back();
-    }
-  }
-  else{//dm>0
-    //// expand rows ////
-    for(CPPL_INT i=0; i<dm; i++){
-      rows.push_back( std::vector<CPPL_INT>(0) );
-    }
-  }
-  
-  //// for cols ////
-  if(dn<0){
-    //// delete components over the new size ////
-    const std::vector<dcomponent>::reverse_iterator data_rend =data.rend();
-    for(std::vector<dcomponent>::reverse_iterator it=data.rbegin(); it!=data_rend; it++){
-      if( it->j>=n ){ del( CPPL_INT(data_rend-it-1) ); }
-    }
-    for(CPPL_INT j=0; j<-dn; j++){
-      cols.pop_back();
-    }
-  }
-  else{//dn>0
-    //// expand cols ////
-    for(CPPL_INT j=0; j<dn; j++){
-      cols.push_back( std::vector<CPPL_INT>(0) );
-    }
-  }
-}
-
-//=============================================================================
-/*! check if the component is listed */
-inline bool dgsmatrix::isListed(const CPPL_INT& i, const CPPL_INT& j) const
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || j<0 || m<=i || n<=j ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the matrix size." << std::endl
-              << "Your input is (" << i << "," << j << "), whereas the matrix size is " << m << "x" << n << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  const std::vector<CPPL_INT>::const_iterator rows_i_end =rows[i].end();
-  for(std::vector<CPPL_INT>::const_iterator p=rows[i].begin(); p!=rows_i_end; p++){
-    if(data[*p].j==j){ return 1; }
-  }
-  
-  return 0;
-}
-
-
-//=============================================================================
-/*! return the element number of the component */
-inline CPPL_INT dgsmatrix::number(const CPPL_INT& i, const CPPL_INT& j)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || j<0 || m<=i || n<=j ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the matrix size." << std::endl
-              << "Your input is (" << i << "," << j << "), whereas the matrix size is " << m << "x" << n << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  const std::vector<CPPL_INT>::iterator rows_i_end =rows[i].end();
-  for(std::vector<CPPL_INT>::iterator p=rows[i].begin(); p!=rows_i_end; p++){
-    if(data[*p].j==j){ return *p; }
-  }
-  
-  return -1;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! get row of the matrix */
-inline _drovector dgsmatrix::row(const CPPL_INT& _m) const
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( _m<0 || _m>m ){
-    ERROR_REPORT;
-    std::cerr << "Input row number must be between 0 and " << m << "." << std::endl
-              << "Your input was " << _m << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  drovector vec(n);
-  vec.zero();
-  
-  const std::vector<CPPL_INT>::const_iterator rows__m_end =rows[_m].end();
-  for(std::vector<CPPL_INT>::const_iterator p=rows[_m].begin(); p!=rows__m_end; p++){
-    vec(data[*p].j) =data[*p].v;
-  }
-  
-  return _(vec);
-}
-
-//=============================================================================
-/*! get column of the matrix */
-inline _dcovector dgsmatrix::col(const CPPL_INT& _n) const
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( _n<0 || _n>n ){
-    ERROR_REPORT;
-    std::cerr << "Input row number must be between 0 and " << n << "." << std::endl
-              << "Your input was " << _n << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dcovector vec(m);
-  vec.zero();
-  
-  const std::vector<CPPL_INT>::const_iterator cols__n_end =cols[_n].end();
-  for(std::vector<CPPL_INT>::const_iterator p=cols[_n].begin(); p!=cols__n_end; p++){
-    vec(data[*p].i) =data[*p].v;
-  }
-  
-  return _(vec);
-}
-
-//=============================================================================
-/*! erase components less than DBL_MIN */
-inline void dgsmatrix::diet(const double eps)
-{CPPL_VERBOSE_REPORT;
-  const std::vector<dcomponent>::reverse_iterator data_rend =data.rend();
-  for(std::vector<dcomponent>::reverse_iterator it=data.rbegin(); it!=data_rend; it++){
-    if( fabs(it->v)<eps ){ del( CPPL_INT(data_rend-it-1) ); }
-  }
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! health checkup */
-inline void dgsmatrix::checkup()
-{CPPL_VERBOSE_REPORT;
-  //////// write ////////
-  const std::vector<dcomponent>::const_iterator data_end =data.end();
-  for(std::vector<dcomponent>::const_iterator it=data.begin(); it!=data_end; it++){
-    std::cerr << "array[" << it-data.begin() << "] = (" << it->i << "," << it->j << ") = " << it->v << std::endl;
-  }
-  std::cerr << std::endl;
-  
-  for(CPPL_INT i=0; i<m; i++){
-    std::cerr << "rows[" << i << "] =" << std::flush;
-    const size_t rows_i_size =rows[i].size();
-    for(size_t k=0; k<rows_i_size; k++){
-      std::cerr << " " << rows[i][k] << std::flush;
-    }
-    std::cerr << std::endl;
-  }
-  std::cerr << std::endl;
-  
-  for(CPPL_INT j=0; j<n; j++){
-    std::cerr << "cols[" << j << "] =" << std::flush;
-    const size_t cols_j_size =cols[j].size();
-    for(size_t k=0; k<cols_j_size; k++){
-      std::cerr << " " << cols[j][k] << std::flush;
-    }
-    std::cerr << std::endl;
-  }
-  
-  //////// Elements ////////
-  for(std::vector<dcomponent>::const_iterator it=data.begin(); it!=data_end; it++){
-    //// m bound ////
-    if(it->i>=m){
-      ERROR_REPORT;
-      std::cerr << "The indx of the " << it-data.begin() << "th element is out of the matrix size." << std::endl
-                << "Its i index was " << it->i << "." << std::endl;
-      exit(1);
-    }
-    
-    //// n bound ////
-    if(it->j>=n){
-      ERROR_REPORT;
-      std::cerr << "The indx of the " << it-data.begin() << "th element is out of the matrix size." << std::endl
-                << "Its j index was " << it->j << "." << std::endl;
-      exit(1);
-    }
-    
-    //// double-listed ////
-    for(std::vector<dcomponent>::const_iterator IT=it+1; IT!=data_end; IT++){
-      if( it->i==IT->i && it->j==IT->j ){
-        ERROR_REPORT;
-        std::cerr << "The (" << it->i << ", " << it->j << ") component is double-listed at the " << it-data.begin() << "th and the" << IT-data.begin() << "the elements."<< std::endl;
-        exit(1);
-      }
-    }
-  }
-  
-  //////// ijc consistence ////////
-  
-  
-  //////// NOTE ////////
-  std::cerr << "# [NOTE]@dgsmatrix::checkup(): This sparse matrix is fine." << std::endl;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! swap two matrices */
-inline void swap(dgsmatrix& A, dgsmatrix& B)
-{CPPL_VERBOSE_REPORT;
-  std::swap(A.n,B.n);
-  std::swap(A.m,B.m);
-  std::swap(A.data,B.data);
-  std::swap(A.rows,B.rows);
-  std::swap(A.cols,B.cols);
-}
-
-//=============================================================================
-/*! convert user object to smart-temporary object */
-inline _dgsmatrix _(dgsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  _dgsmatrix newmat;
-  
-  //////// shallow copy ////////
-  newmat.n =mat.n;
-  newmat.m =mat.m;
-  std::swap(newmat.data,mat.data);
-  std::swap(newmat.rows,mat.rows);
-  std::swap(newmat.cols,mat.cols);
-  
-  //////// nullify ////////
-  mat.m =0;
-  mat.n =0;
-  
-  return newmat;
-}
diff --git a/cpplapack-r198/.svn/pristine/ca/cae3f13873da92e4a8378e45895678271297db8b.svn-base b/cpplapack-r198/.svn/pristine/ca/cae3f13873da92e4a8378e45895678271297db8b.svn-base
deleted file mode 100644
index 451b365..0000000
--- a/cpplapack-r198/.svn/pristine/ca/cae3f13873da92e4a8378e45895678271297db8b.svn-base
+++ /dev/null
@@ -1,23 +0,0 @@
-//=============================================================================
-/*! zgematrix*zcovector operator */
-inline _zcovector operator*(const zgematrix& mat, const zcovector& vec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(mat.n!=vec.l){
-    ERROR_REPORT;
-    std::cerr << "These matrix and vector can not make a product." << std::endl
-              << "Your input was (" << mat.m << "x" << mat.n << ") * (" << vec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zcovector newvec(mat.m);
-  char trans ='n';
-  comple alpha =comple(1.,0.);
-  CPPL_INT inc =1;
-  comple beta =comple(0.,0.);
-  
-  zgemv_( &trans, &mat.m, &mat.n, &alpha, mat.array, &mat.m, vec.array, &inc, &beta, newvec.array, &inc );
-  
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/ca/caf097571a2538bb84399b2db3340fed0b083cc4.svn-base b/cpplapack-r198/.svn/pristine/ca/caf097571a2538bb84399b2db3340fed0b083cc4.svn-base
deleted file mode 100644
index ce5b262..0000000
--- a/cpplapack-r198/.svn/pristine/ca/caf097571a2538bb84399b2db3340fed0b083cc4.svn-base
+++ /dev/null
@@ -1,432 +0,0 @@
-//=============================================================================
-/*! convert zcovector_small to zcovector */
-template<CPPL_INT l>
-inline _zcovector zcovector_small<l>::to_zcovector() const
-{CPPL_VERBOSE_REPORT;
-  zcovector vec(l);
-  for(CPPL_INT k=0; k<l; k++){
-    vec(k) =(*this)(k);
-  }
-  return _(vec);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! operator() */
-template<CPPL_INT l>
-inline comple& zcovector_small<l>::operator()(const CPPL_INT& k)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( k<0 || l<=k ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the vector size." << std::endl
-              << "Your input is (" << k << "), whereas the vector size is " << l << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  return array[k];
-}
-
-//=============================================================================
-/*! operator() for const */
-template<CPPL_INT l>
-inline comple zcovector_small<l>::operator()(const CPPL_INT& k) const
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( k<0 || l<=k ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the vector size." << std::endl
-              << "Your input is (" << k << "), whereas the vector size is " << l << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  return array[k];
-}
-
-//=============================================================================
-/*! set */
-template<CPPL_INT l>
-inline zcovector_small<l>& zcovector_small<l>::set(const CPPL_INT& k, const comple& v)
-{CPPL_VERBOSE_REPORT;
-  (*this)(k) =v;
-  return *this;
-}
-
-//=============================================================================
-/*! operator<< */
-template<CPPL_INT l>
-inline std::ostream& operator<<(std::ostream& s, const zcovector_small<l>& A)
-{CPPL_VERBOSE_REPORT;
-  s << std::setiosflags(std::ios::showpos);
-  for(CPPL_INT i=0; i<l; i++){
-    s << A(i) << std::endl;
-  }
-  return s;
-}
-
-//=============================================================================
-/*! write to file */
-template<CPPL_INT l>
-inline void zcovector_small<l>::write(const char* filename) const
-{CPPL_VERBOSE_REPORT;
-  std::ofstream ofs(filename, std::ios::trunc);
-  ofs.setf(std::cout.flags());
-  ofs.precision(std::cout.precision());
-  ofs.width(std::cout.width());
-  ofs.fill(std::cout.fill());
-  
-  ofs << "#zcovector" << " " << l << std::endl;
-  for(CPPL_INT k=0; k<l; k++){
-    ofs << (*this)(k) << std::endl;
-  }
-  ofs.close();
-}
-
-//=============================================================================
-/*! read from file */
-template<CPPL_INT l>
-inline void zcovector_small<l>::read(const char* filename)
-{CPPL_VERBOSE_REPORT;
-  std::ifstream s( filename );
-  if(!s){
-    ERROR_REPORT;
-    std::cerr << "The file \"" << filename << "\" can not be opened." << std::endl;
-    exit(1);
-  }
-  
-  std::string id;
-  s >> id;
-  if( id != "zcovector" && id != "#zcovector" ){
-    ERROR_REPORT;
-    std::cerr << "The type name of the file \"" << filename << "\" is not zcovector." << std::endl
-              << "Its type name was " << id << " ." << std::endl;
-    exit(1);
-  }
-  
-  CPPL_INT _l;
-  s >> _l;
-  if(l!=_l){
-    ERROR_REPORT;
-    std::cerr << "Matrix size is invalid." << std::endl;
-    exit(1);
-  }
-  for(CPPL_INT k=0; k<l; k++){
-    s >> (*this)(k);
-  }
-  if(s.eof()){
-    ERROR_REPORT;
-    std::cerr << "There is something is wrong with the file \"" << filename << "\"." << std::endl
-              << "Most likely, there is not enough data components, or a linefeed code or space code is missing at the end of the last line." << std::endl;
-    exit(1);
-  }
-  
-  s >> id;//tmp
-  if(!s.eof()){
-    ERROR_REPORT;
-    std::cerr << "There is something is wrong with the file \"" << filename << "\"." << std::endl
-              << "Most likely, there are extra data components." << std::endl;
-    exit(1);
-  }
-  
-  s.close();    
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! return transposed zrovector_small */
-template<CPPL_INT l>
-inline zrovector_small<l> t(const zcovector_small<l>& A)
-{CPPL_VERBOSE_REPORT;
-  zrovector_small<l> X;
-  for(CPPL_INT i=0; i<l; i++){
-    X(i) =A(i);
-  }
-  return X;
-}
-
-//=============================================================================
-/*! return its 2-norm */
-template<CPPL_INT l>
-inline comple nrm2(const zcovector_small<l>& A)
-{CPPL_VERBOSE_REPORT;
-  comple v(0);
-  for(CPPL_INT i=0; i<l; i++){
-    v+=A(i)*A(i);
-  }
-  return std::sqrt(v);
-}
-
-//=============================================================================
-/*! return index of the maximum component */
-template<CPPL_INT l>
-inline void idamax(CPPL_INT& K, const zcovector_small<l>& A)
-{CPPL_VERBOSE_REPORT;
-  comple max(-1.);
-  for(int k=0; k<l; k++){
-    if( max<fabs(A(k)) ){
-      K=k;
-      max =fabs(A(k));
-    }
-  }
-  return;
-}
-
-//=============================================================================
-/*! return the maximum component */
-template<CPPL_INT l>
-inline comple damax(const zcovector_small<l>& A)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT k(0);
-  idamax(k,A);
-  return A(k);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zero */
-template<CPPL_INT l>
-inline zcovector_small<l>& zcovector_small<l>::zero()
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT k=0; k<l; k++){
-    array[k] =0.;
-  }
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zcovector_small+=zcovector_small operator */
-template<CPPL_INT l>
-inline zcovector_small<l>& operator+=(zcovector_small<l>& A, const zcovector_small<l>& B)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<l; i++){
-    A(i) +=B(i);
-  }
-  return A;
-}
-
-//=============================================================================
-/*! zcovector_small-=zcovector_small operator */
-template<CPPL_INT l>
-inline zcovector_small<l>& operator-=(zcovector_small<l>& A, const zcovector_small<l>& B)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<l; i++){
-    A(i) -=B(i);
-  }
-  return A;
-}
-
-//=============================================================================
-/*! zcovector_small*=double operator */
-template<CPPL_INT l>
-inline zcovector_small<l>& operator*=(zcovector_small<l>& A, const double& v)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<l; i++){
-    A(i) *=v;
-  }
-  return A;
-}
-
-//=============================================================================
-/*! zcovector_small*=comple operator */
-template<CPPL_INT l>
-inline zcovector_small<l>& operator*=(zcovector_small<l>& A, const comple& v)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<l; i++){
-    A(i) *=v;
-  }
-  return A;
-}
-
-//=============================================================================
-/*! zcovector_small/=double operator */
-template<CPPL_INT l>
-inline zcovector_small<l>& operator/=(zcovector_small<l>& A, const double& v)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<l; i++){
-    A(i) /=v;
-  }
-  return A;
-}
-
-//=============================================================================
-/*! zcovector_small/=comple operator */
-template<CPPL_INT l>
-inline zcovector_small<l>& operator/=(zcovector_small<l>& A, const comple& v)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<l; i++){
-    A(i) /=v;
-  }
-  return A;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! unary + operator */
-template<CPPL_INT l>
-inline const zcovector_small<l>& operator+(const zcovector_small<l>& A)
-{CPPL_VERBOSE_REPORT;
-  return A;
-}
-
-//=============================================================================
-/*! unary - operator */
-template<CPPL_INT l>
-inline zcovector_small<l> operator-(const zcovector_small<l>& A)
-{CPPL_VERBOSE_REPORT;
-  zcovector_small<l> X;
-  for(CPPL_INT i=0; i<l; i++){
-    X(i) =-A(i);
-  }
-  return X;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zcovector_small+zcovector_small operator */
-template<CPPL_INT l>
-inline zcovector_small<l> operator+(const zcovector_small<l>& A, const zcovector_small<l>& B)
-{CPPL_VERBOSE_REPORT;
-  zcovector_small<l> X;
-  for(CPPL_INT i=0; i<l; i++){
-    X(i) =A(i)+B(i);
-  }
-  return X;
-}
-
-//=============================================================================
-/*! zcovector_small-zcovector_small operator */
-template<CPPL_INT l>
-inline zcovector_small<l> operator-(const zcovector_small<l>& A, const zcovector_small<l>& B)
-{CPPL_VERBOSE_REPORT;
-  zcovector_small<l> X;
-  for(CPPL_INT i=0; i<l; i++){
-    X(i) =A(i)-B(i);
-  }
-  return X;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zcovector_small*double operator */
-template<CPPL_INT n>
-inline zcovector_small<n> operator*(const zcovector_small<n>& A, const double& v)
-{CPPL_VERBOSE_REPORT;
-  zcovector_small<n> C;
-  for(CPPL_INT i=0; i<n; i++){
-    C(i) =A(i)*v;
-  }
-  return C;
-}
-
-//=============================================================================
-/*! zcovector_small*comple operator */
-template<CPPL_INT n>
-inline zcovector_small<n> operator*(const zcovector_small<n>& A, const comple& v)
-{CPPL_VERBOSE_REPORT;
-  zcovector_small<n> C;
-  for(CPPL_INT i=0; i<n; i++){
-    C(i) =A(i)*v;
-  }
-  return C;
-}
-
-//=============================================================================
-/*! zcovector_small*zrovector_small operator */
-template<CPPL_INT m, CPPL_INT n>
-inline zgematrix_small<m,n> operator*(const zcovector_small<m>& A, const zrovector_small<n>& B)
-{CPPL_VERBOSE_REPORT;
-  zgematrix_small<m,n> mat;
-  for(CPPL_INT i=0; i<m; i++){
-    for(CPPL_INT j=0; j<n; j++){
-      mat(i,j) =A(i)*B(j);
-    }
-  }
-  return mat;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zcovector_small/double operator */
-template<CPPL_INT n>
-inline zcovector_small<n> operator/(const zcovector_small<n>& A, const double& v)
-{CPPL_VERBOSE_REPORT;
-  zcovector_small<n> C;
-  for(CPPL_INT i=0; i<n; i++){
-    C(i) =A(i)/v;
-  }
-  return C;
-}
-
-//=============================================================================
-/*! zcovector_small/comple operator */
-template<CPPL_INT n>
-inline zcovector_small<n> operator/(const zcovector_small<n>& A, const comple& v)
-{CPPL_VERBOSE_REPORT;
-  zcovector_small<n> C;
-  for(CPPL_INT i=0; i<n; i++){
-    C(i) =A(i)/v;
-  }
-  return C;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zcovector_small%zcovector_small (inner product) operator */
-template<CPPL_INT l>
-inline comple operator%(const zcovector_small<l>& A, const zcovector_small<l>& B)
-{CPPL_VERBOSE_REPORT;
-  comple v(0.);
-  for(CPPL_INT i=0; i<l; i++){
-    v +=A(i)*B(i);
-  }
-  return v;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! Hadamard product */
-template<CPPL_INT l>
-inline zcovector_small<l> hadamard(const zcovector_small<l>& A, const zcovector_small<l>& B)
-{CPPL_VERBOSE_REPORT;
-  zcovector_small<l> C;
-  for(CPPL_INT i=0; i<l; i++){
-    C(i) =A(i)*B(i);
-  }
-  return C;
-}
diff --git a/cpplapack-r198/.svn/pristine/cb/cb577b1cd1dab796d1e62adffc57bd2a6fbf95be.svn-base b/cpplapack-r198/.svn/pristine/cb/cb577b1cd1dab796d1e62adffc57bd2a6fbf95be.svn-base
deleted file mode 100644
index 16d1616..0000000
--- a/cpplapack-r198/.svn/pristine/cb/cb577b1cd1dab796d1e62adffc57bd2a6fbf95be.svn-base
+++ /dev/null
@@ -1,112 +0,0 @@
-//=============================================================================
-/*! drovector=_drovector operator */
-inline drovector& drovector::operator=(const _drovector& vec)
-{CPPL_VERBOSE_REPORT;
-  shallow_copy(vec);
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! drovector+=_drovector operator */
-inline drovector& drovector::operator+=(const _drovector& vec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( l!=vec.l ){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make a sumation." << std::endl
-              << "Your input was (" << l << ") += (" << vec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<l; i++){ array[i]+=vec.array[i]; }
-  
-  vec.destroy();
-  return *this;
-}
-
-//=============================================================================
-/*! drovector operator-= */
-inline drovector& drovector::operator-=(const _drovector& vec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( l!=vec.l ){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make a subtraction." << std::endl
-              << "Your input was (" << l << ") -= (" << vec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<l; i++){ array[i]-=vec.array[i]; }
-  
-  vec.destroy();
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! drovector+drovector operator */
-inline _drovector operator+(const drovector& vecA, const _drovector& vecB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vecA.l!=vecB.l){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make a sumation." << std::endl
-              << "Your input was (" << vecA.l << ") + (" << vecB.l << ")." << std::endl;
-    exit(1);
-  }
-  
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<vecA.l; i++){ vecB.array[i]+=vecA.array[i]; }
-  
-  return vecB;
-}
-
-//=============================================================================
-/*! drovector-drovector operator */
-inline _drovector operator-(const drovector& vecA, const _drovector& vecB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vecA.l!=vecB.l){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make a subtraction." << std::endl
-              << "Your input was (" << vecA.l << ") - (" << vecB.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<vecA.l; i++){
-    vecB.array[i] =vecA.array[i]-vecB.array[i];
-  }
-  
-  return vecB;
-}
-
-//=============================================================================
-/*! drovector^T*drovector operator (inner product) */
-inline double operator%(const drovector& vecA, const _drovector& vecB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vecA.l!=vecB.l){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make a dot product." << std::endl
-              << "Your input was (" << vecA.l << ") % (" << vecB.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  CPPL_INT inc =1;
-  double val =ddot_( &vecA.l, vecA.array, &inc, vecB.array, &inc );
-  
-  vecB.destroy();
-  return val;
-}
diff --git a/cpplapack-r198/.svn/pristine/cb/cba2f00bd146c404af122fa83d227f1554141d47.svn-base b/cpplapack-r198/.svn/pristine/cb/cba2f00bd146c404af122fa83d227f1554141d47.svn-base
deleted file mode 100644
index 7ead1aa..0000000
--- a/cpplapack-r198/.svn/pristine/cb/cba2f00bd146c404af122fa83d227f1554141d47.svn-base
+++ /dev/null
@@ -1,27 +0,0 @@
-//=============================================================================
-/*! _drovector*dssmatrix operator */
-inline _drovector operator*(const _drovector& vec, const dssmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vec.l!=mat.n){
-    ERROR_REPORT;
-    std::cerr << "These vector and matrix can not make a product." << std::endl
-              << "Your input was (" << vec.l << ") * (" << mat.n << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  drovector newvec(mat.n);
-  newvec.zero();
-  
-  const std::vector<dcomponent>::const_iterator mat_data_end =mat.data.end();
-  for(std::vector<dcomponent>::const_iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    newvec(it->j) +=vec(it->i)*it->v;
-    if(it->i!=it->j){
-      newvec(it->i) +=vec(it->j)*it->v;
-    }
-  }
-  
-  vec.destroy();
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/cc/cc078d61a70bda17c8aec63c241d577619ccbe10.svn-base b/cpplapack-r198/.svn/pristine/cc/cc078d61a70bda17c8aec63c241d577619ccbe10.svn-base
deleted file mode 100644
index 9412e58..0000000
--- a/cpplapack-r198/.svn/pristine/cc/cc078d61a70bda17c8aec63c241d577619ccbe10.svn-base
+++ /dev/null
@@ -1,19 +0,0 @@
-//=============================================================================
-/*! _drovector*dcovector operator */
-inline double operator*(const _drovector& rovec, const dcovector& covec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(rovec.l!=covec.l){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make a product." << std::endl
-              << "Your input was (" << rovec.l << ") * (" << covec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  CPPL_INT inc =1;
-  double val =ddot_( &rovec.l, rovec.array, &inc, covec.array, &inc );
-  
-  rovec.destroy();
-  return val;
-}
diff --git a/cpplapack-r198/.svn/pristine/cc/cc0dcad9d9fc2cb35b536e8f316adc466fe8f2a8.svn-base b/cpplapack-r198/.svn/pristine/cc/cc0dcad9d9fc2cb35b536e8f316adc466fe8f2a8.svn-base
deleted file mode 100644
index 3259c26..0000000
--- a/cpplapack-r198/.svn/pristine/cc/cc0dcad9d9fc2cb35b536e8f316adc466fe8f2a8.svn-base
+++ /dev/null
@@ -1,454 +0,0 @@
-//=============================================================================
-/*! convert zrovector_small to zrovector */
-template<CPPL_INT l>
-inline _zrovector zrovector_small<l>::to_zrovector() const
-{CPPL_VERBOSE_REPORT;
-  zrovector vec(l);
-  for(CPPL_INT k=0; k<l; k++){
-    vec(k) =(*this)(k);
-  }
-  return _(vec);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! operator() */
-template<CPPL_INT l>
-inline comple& zrovector_small<l>::operator()(const CPPL_INT& k)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( k<0 || l<=k ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the vector size." << std::endl
-              << "Your input is (" << k << "), whereas the vector size is " << l << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  return array[k];
-}
-
-//=============================================================================
-/*! operator() for const */
-template<CPPL_INT l>
-inline comple zrovector_small<l>::operator()(const CPPL_INT& k) const
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( k<0 || l<=k ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the vector size." << std::endl
-              << "Your input is (" << k << "), whereas the vector size is " << l << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  return array[k];
-}
-
-//=============================================================================
-/*! set */
-template<CPPL_INT l>
-inline zrovector_small<l>& zrovector_small<l>::set(const CPPL_INT& k, const comple& v)
-{CPPL_VERBOSE_REPORT;
-  (*this)(k) =v;
-  return *this;
-}
-
-//=============================================================================
-/*! operator<< */
-template<CPPL_INT l>
-inline std::ostream& operator<<(std::ostream& s, const zrovector_small<l>& A)
-{CPPL_VERBOSE_REPORT;
-  s << std::setiosflags(std::ios::showpos);
-  for(CPPL_INT i=0; i<l; i++){
-    s << " " << A(i) << std::flush;
-  }
-  s << std::endl;
-  return s;
-}
-
-//=============================================================================
-/*! write to file */
-template<CPPL_INT l>
-inline void zrovector_small<l>::write(const char* filename) const
-{CPPL_VERBOSE_REPORT;
-  std::ofstream ofs(filename, std::ios::trunc);
-  ofs.setf(std::cout.flags());
-  ofs.precision(std::cout.precision());
-  ofs.width(std::cout.width());
-  ofs.fill(std::cout.fill());
-  
-  ofs << "#zrovector" << " " << l << std::endl;
-  for(CPPL_INT k=0; k<l; k++){
-    ofs << (*this)(k) << std::endl;
-  }
-  ofs.close();
-}
-
-//=============================================================================
-/*! read from file */
-template<CPPL_INT l>
-inline void zrovector_small<l>::read(const char* filename)
-{CPPL_VERBOSE_REPORT;
-  std::ifstream s( filename );
-  if(!s){
-    ERROR_REPORT;
-    std::cerr << "The file \"" << filename << "\" can not be opened." << std::endl;
-    exit(1);
-  }
-  
-  std::string id;
-  s >> id;
-  if( id != "zrovector" && id != "#zrovector" ){
-    ERROR_REPORT;
-    std::cerr << "The type name of the file \"" << filename << "\" is not zrovector." << std::endl
-              << "Its type name was " << id << " ." << std::endl;
-    exit(1);
-  }
-  
-  CPPL_INT _l;
-  s >> _l;
-  if(l!=_l){
-    ERROR_REPORT;
-    std::cerr << "Matrix size is invalid." << std::endl;
-    exit(1);
-  }
-  for(CPPL_INT k=0; k<l; k++){
-    s >> (*this)(k);
-  }
-  if(s.eof()){
-    ERROR_REPORT;
-    std::cerr << "There is something is wrong with the file \"" << filename << "\"." << std::endl
-              << "Most likely, there is not enough data components, or a linefeed code or space code is missing at the end of the last line." << std::endl;
-    exit(1);
-  }
-  
-  s >> id;//tmp
-  if(!s.eof()){
-    ERROR_REPORT;
-    std::cerr << "There is something is wrong with the file \"" << filename << "\"." << std::endl
-              << "Most likely, there are extra data components." << std::endl;
-    exit(1);
-  }
-  
-  s.close();    
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! return transposed zrovector_small */
-template<CPPL_INT n>
-inline zcovector_small<n> t(const zrovector_small<n>& A)
-{CPPL_VERBOSE_REPORT;
-  zcovector_small<n> X;
-  for(CPPL_INT i=0; i<n; i++){
-    X(i)=A(i);
-  }
-  return X;
-}
-
-//=============================================================================
-/*! return its 2-norm */
-template<CPPL_INT l>
-inline double nrm2(const zrovector_small<l>& A)
-{CPPL_VERBOSE_REPORT;
-  double v(0.);
-  for(CPPL_INT i=0; i<l; i++){
-    v+=A(i)*A(i);
-  }
-  return std::sqrt(v);
-}
-
-//=============================================================================
-/*! find index of the maximum component */
-template<CPPL_INT l>
-inline void idamax(CPPL_INT& K, const zrovector_small<l>& A)
-{CPPL_VERBOSE_REPORT;
-  double max(-1.);
-  for(int k=0; k<l; k++){
-    if( max<fabs(A(k)) ){
-      K=k;
-      max =fabs(A(k));
-    }
-  }
-  return;
-}
-
-//=============================================================================
-/*! return the maximum component */
-template<CPPL_INT l>
-inline comple damax(const zrovector_small<l>& A)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT k(0);
-  idamax(k,A);
-  return A(k);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zero */
-template<CPPL_INT l>
-inline zrovector_small<l>& zrovector_small<l>::zero()
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT k=0; k<l; k++){
-    array[k] =0.;
-  }
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zrovector_small+=zrovector_small operator */
-template<CPPL_INT l>
-inline zrovector_small<l>& operator+=(zrovector_small<l>& A, const zrovector_small<l>& B)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<l; i++){
-    A(i) +=B(i);
-  }
-  return A;
-}
-
-//=============================================================================
-/*! zrovector_small-=zrovector_small operator */
-template<CPPL_INT l>
-inline zrovector_small<l>& operator-=(zrovector_small<l>& A, const zrovector_small<l>& B)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<l; i++){
-    A(i) -=B(i);
-  }
-  return A;
-}
-
-//=============================================================================
-/*! zrovector_small*=double operator */
-template<CPPL_INT l>
-inline zrovector_small<l>& operator*=(zrovector_small<l>& A, const double& v)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<l; i++){
-    A(i) *=v;
-  }
-  return A;
-}
-
-//=============================================================================
-/*! zrovector_small*=comple operator */
-template<CPPL_INT l>
-inline zrovector_small<l>& operator*=(zrovector_small<l>& A, const comple& v)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<l; i++){
-    A(i) *=v;
-  }
-  return A;
-}
-
-//=============================================================================
-/*! zrovector_small/=double operator */
-template<CPPL_INT l>
-inline zrovector_small<l>& operator/=(zrovector_small<l>& A, const double& v)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<l; i++){
-    A(i) /=v;
-  }
-  return A;
-}
-
-//=============================================================================
-/*! zrovector_small/=comple operator */
-template<CPPL_INT l>
-inline zrovector_small<l>& operator/=(zrovector_small<l>& A, const comple& v)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<l; i++){
-    A(i) /=v;
-  }
-  return A;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! unary + operator */
-template<CPPL_INT l>
-inline const zrovector_small<l>& operator+(const zrovector_small<l>& A)
-{CPPL_VERBOSE_REPORT;
-  return A;
-}
-
-//=============================================================================
-/*! unary - operator */
-template<CPPL_INT l>
-inline zrovector_small<l> operator-(const zrovector_small<l>& A)
-{CPPL_VERBOSE_REPORT;
-  zrovector_small<l> X;
-  for(CPPL_INT i=0; i<l; i++){
-    X(i) =-A(i);
-  }
-  return X;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zrovector_small+zrovector_small operator */
-template<CPPL_INT l>
-inline zrovector_small<l> operator+(const zrovector_small<l>& A, const zrovector_small<l>& B)
-{CPPL_VERBOSE_REPORT;
-  zrovector_small<l> X;
-  for(CPPL_INT i=0; i<l; i++){
-    X(i) =A(i)+B(i);
-  }
-  return X;
-}
-
-//=============================================================================
-/*! zrovector_small-zrovector_small operator */
-template<CPPL_INT l>
-inline zrovector_small<l> operator-(const zrovector_small<l>& A, const zrovector_small<l>& B)
-{CPPL_VERBOSE_REPORT;
-  zrovector_small<l> X;
-  for(CPPL_INT i=0; i<l; i++){
-    X(i) =A(i)-B(i);
-  }
-  return X;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zrovector_small*zcovector_small operator */
-template<CPPL_INT l>
-inline comple operator*(const zrovector_small<l>& A, const zcovector_small<l>& B)
-{CPPL_VERBOSE_REPORT;
-  comple x =0.;
-  for(CPPL_INT i=0; i<l; i++){
-    x +=A(i)*B(i);
-  }
-  return x;
-}
-
-//=============================================================================
-/*! zrovector_small*zgematrix_small operator */
-template<CPPL_INT m, CPPL_INT n>
-inline zrovector_small<n> operator*(const zrovector_small<m>& A, const zgematrix_small<m,n>& B)
-{CPPL_VERBOSE_REPORT;
-  zrovector_small<n> C;
-  C.zero();
-  for(CPPL_INT j=0; j<n; j++){
-    for(CPPL_INT i=0; i<m; i++){
-      C(j) +=A(i)*B(i,j);
-    }
-  }
-  return C;
-}
-
-//=============================================================================
-/*! zrovector_small*zhematrix_small operator */
-template<CPPL_INT l>
-inline zrovector_small<l> operator*(const zrovector_small<l>& A, const zhematrix_small<l>& B)
-{CPPL_VERBOSE_REPORT;
-  zrovector_small<l> C;
-  C.zero();
-  for(CPPL_INT j=0; j<l; j++){
-    for(CPPL_INT i=0; i<j; i++){
-      C(j) +=A(i)*B(j,i);
-    }
-    for(CPPL_INT i=j; i<l; i++){
-      C(j) +=A(i)*B(i,j);
-    }    
-  }
-  return C;
-}
-
-//=============================================================================
-/*! zrovector_small*double operator */
-template<CPPL_INT l>
-inline zrovector_small<l> operator*(const zrovector_small<l>& A, const double& v)
-{CPPL_VERBOSE_REPORT;
-  zrovector_small<l> C;
-  for(CPPL_INT i=0; i<l; i++){
-    C(i) =A(i)*v;
-  }
-  return C;
-}
-
-//=============================================================================
-/*! zrovector_small*comple operator */
-template<CPPL_INT l>
-inline zrovector_small<l> operator*(const zrovector_small<l>& A, const comple& v)
-{CPPL_VERBOSE_REPORT;
-  zrovector_small<l> C;
-  for(CPPL_INT i=0; i<l; i++){
-    C(i) =A(i)*v;
-  }
-  return C;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zrovector_small/double operator */
-template<CPPL_INT l>
-inline zrovector_small<l> operator/(const zrovector_small<l>& A, const double& v)
-{CPPL_VERBOSE_REPORT;
-  zrovector_small<l> C;
-  for(CPPL_INT i=0; i<l; i++){
-    C(i) =A(i)/v;
-  }
-  return C;
-}
-
-//=============================================================================
-/*! zrovector_small/comple operator */
-template<CPPL_INT l>
-inline zrovector_small<l> operator/(const zrovector_small<l>& A, const comple& v)
-{CPPL_VERBOSE_REPORT;
-  zrovector_small<l> C;
-  for(CPPL_INT i=0; i<l; i++){
-    C(i) =A(i)/v;
-  }
-  return C;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! Hadamard product */
-template<CPPL_INT l>
-inline zrovector_small<l> hadamard(const zrovector_small<l>& A, const zrovector_small<l>& B)
-{CPPL_VERBOSE_REPORT;
-  zrovector_small<l> C;
-  for(CPPL_INT i=0; i<l; i++){
-    C(i) =A(i)*B(i);
-  }
-  return C;
-}
diff --git a/cpplapack-r198/.svn/pristine/cc/cc3c9419f65e69e9a57333d364ea054e03f3daa2.svn-base b/cpplapack-r198/.svn/pristine/cc/cc3c9419f65e69e9a57333d364ea054e03f3daa2.svn-base
deleted file mode 100644
index d45143b..0000000
--- a/cpplapack-r198/.svn/pristine/cc/cc3c9419f65e69e9a57333d364ea054e03f3daa2.svn-base
+++ /dev/null
@@ -1,73 +0,0 @@
-//=============================================================================
-/*! _dgematrix+dgsmatrix operator */
-inline _dgematrix operator+(const _dgematrix& matA, const dgsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  const std::vector<dcomponent>::const_iterator matB_data_end =matB.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matB.data.begin(); it!=matB_data_end; it++){
-    matA(it->i,it->j) += it->v;
-  }
-  
-  return matA;
-}
-
-//=============================================================================
-/*! _dgematrix-dgsmatrix operator */
-inline _dgematrix operator-(const _dgematrix& matA, const dgsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") - (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //// change sign ////
-  for(CPPL_INT i=0; i<matA.m*matA.n; i++){
-    matA.array[i]=-matA.array[i];
-  }
-  
-  //// add ////
-  const std::vector<dcomponent>::const_iterator matB_data_end =matB.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matB.data.begin(); it!=matB_data_end; it++){
-    matA(it->i,it->j) += it->v;
-  }
-  
-  return matA;
-}
-
-//=============================================================================
-/*! _dgematrix*dgsmatrix operator */
-inline _dgematrix operator*(const _dgematrix& matA, const dgsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat(matA.m, matB.n);
-  newmat.zero();
-  
-  const std::vector<dcomponent>::const_iterator matB_data_end =matB.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matB.data.begin(); it!=matB_data_end; it++){
-    for(CPPL_INT i=0; i<matA.m; i++){
-      newmat(i,it->j) += matA(i,it->i)*it->v;
-    }
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/cc/cc7081597ffbea7661c2b8ea3f5255dde5fff3ef.svn-base b/cpplapack-r198/.svn/pristine/cc/cc7081597ffbea7661c2b8ea3f5255dde5fff3ef.svn-base
deleted file mode 100644
index f5730d1..0000000
--- a/cpplapack-r198/.svn/pristine/cc/cc7081597ffbea7661c2b8ea3f5255dde5fff3ef.svn-base
+++ /dev/null
@@ -1,25 +0,0 @@
-//=============================================================================
-/*! _zrovector*_zhematrix operator */
-inline _zrovector operator*(const _zrovector& vec, const _zhematrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vec.l!=mat.n){
-    ERROR_REPORT;
-    std::cerr << "These vector and matrix can not make a product." << std::endl
-              << "Your input was (" << vec.l << ") * (" << mat.n << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zrovector newvec(mat.n);
-  char uplo ='l';
-  comple alpha =comple(1.,0.);
-  CPPL_INT inc =1;
-  comple beta =comple(0.,0.);
-  
-  zhemv_( &uplo, &mat.n, &alpha, mat.array, &mat.n, vec.array, &inc, &beta, newvec.array, &inc );
-  
-  vec.destroy();
-  mat.destroy();
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/cd/cd41c7a834678b657004388345396143c1850cce.svn-base b/cpplapack-r198/.svn/pristine/cd/cd41c7a834678b657004388345396143c1850cce.svn-base
deleted file mode 100644
index a60832c..0000000
--- a/cpplapack-r198/.svn/pristine/cd/cd41c7a834678b657004388345396143c1850cce.svn-base
+++ /dev/null
@@ -1,55 +0,0 @@
-//=============================================================================
-/*! zgsmatrix*=comple operator */
-inline zgsmatrix& zgsmatrix::operator*=(const comple& d)
-{CPPL_VERBOSE_REPORT;
-  const std::vector<zcomponent>::iterator data_end =data.end();
-  for(std::vector<zcomponent>::iterator it=data.begin(); it!=data_end; it++){
-    it->v *=d;
-  }
-  
-  return *this;
-}
-
-//=============================================================================
-/*! zgsmatrix/=comple operator */
-inline zgsmatrix& zgsmatrix::operator/=(const comple& d)
-{CPPL_VERBOSE_REPORT;
-  const std::vector<zcomponent>::iterator data_end =data.end();
-  for(std::vector<zcomponent>::iterator it=data.begin(); it!=data_end; it++){
-    it->v /=d;
-  }
-  
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zgsmatrix*comple operator */
-inline _zgsmatrix operator*(const zgsmatrix& mat, const comple& d)
-{CPPL_VERBOSE_REPORT;
-  zgsmatrix newmat(mat);
-  
-  const std::vector<zcomponent>::iterator newmat_data_end =newmat.data.end();
-  for(std::vector<zcomponent>::iterator it=newmat.data.begin(); it!=newmat_data_end; it++){
-    it->v *=d;
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! zgsmatrix/comple operator */
-inline _zgsmatrix operator/(const zgsmatrix& mat, const comple& d)
-{CPPL_VERBOSE_REPORT;
-  zgsmatrix newmat(mat);
-  
-  const std::vector<zcomponent>::iterator newmat_data_end =newmat.data.end();
-  for(std::vector<zcomponent>::iterator it=newmat.data.begin(); it!=newmat_data_end; it++){
-    it->v /=d;
-  }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/cd/cd6231b1bfcf201110bdca4c35780db90616afed.svn-base b/cpplapack-r198/.svn/pristine/cd/cd6231b1bfcf201110bdca4c35780db90616afed.svn-base
deleted file mode 100644
index 87fb517..0000000
--- a/cpplapack-r198/.svn/pristine/cd/cd6231b1bfcf201110bdca4c35780db90616afed.svn-base
+++ /dev/null
@@ -1,151 +0,0 @@
-//=============================================================================
-/*! clear vector */
-inline void dcovector::clear()
-{CPPL_VERBOSE_REPORT;
-  l =0;
-  cap =0;
-  delete [] array;
-  array =NULL;
-}
-
-//=============================================================================
-/*! make vector into zero vector */
-inline dcovector& dcovector::zero()
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<l; i++){ array[i] =0.0; }
-  return *this;
-}
-
-//=============================================================================
-/*! change sign(+/-) of the vector */
-inline void dcovector::chsign()
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<l; i++){ array[i] =-array[i]; }
-}
-
-//=============================================================================
-/*! make a deep copy of the dcovector */
-inline void dcovector::copy(const dcovector& vec)
-{CPPL_VERBOSE_REPORT;
-  l =vec.l;
-  cap =vec.cap;
-  delete [] array;
-  array =new double[cap];
-  CPPL_INT inc =1;
-  dcopy_(&vec.l, vec.array, &inc, array, &inc);
-}
-
-//=============================================================================
-/*! make a shallow copy of the vector\n
- This function is not desinged to be used in project codes. */
-inline void dcovector::shallow_copy(const _dcovector& vec)
-{CPPL_VERBOSE_REPORT;
-  l =vec.l;
-  cap =vec.cap;
-  delete [] array;
-  array =vec.array;
-  
-  vec.nullify();
-}
-
-//=============================================================================
-/*! make an alias of the vector\n
- Be carefull to use this function not to cause double free. */
-inline void dcovector::alias(const dcovector& vec)
-{CPPL_VERBOSE_REPORT;
-  l =vec.l;
-  cap =vec.cap;
-  delete [] array;
-  array =vec.array;
-}
-
-//=============================================================================
-/*! unalias the vector */
-inline void dcovector::unalias()
-{CPPL_VERBOSE_REPORT;
-  l =0;
-  cap =0;
-  array =NULL;
-}
-
-//=============================================================================
-/*! resize vector */
-inline dcovector& dcovector::resize(const CPPL_INT& _l, const CPPL_INT margin)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( _l<0 ){
-    ERROR_REPORT;
-    std::cerr << "Vector size must be positive integers." << std::endl
-              << "Your input was (" << _l << ", " << margin << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  l =_l;
-  cap =l+margin;
-  delete [] array;
-  array =new double[cap];
-  
-  return *this;
-}
-
-//=============================================================================
-/*! stretch or shrink vector */
-inline void dcovector::stretch(const CPPL_INT& dl)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( l+dl<0 ){
-    ERROR_REPORT;
-    std::cerr << "Vector size must be positive integers." << std::endl
-              << "Your input was (" << dl << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //////// zero ////////
-  if(dl==0){ return; }
-  
-  //////// non-zero ////////
-  l +=dl;
-  if(l>cap){
-    while(l>cap){
-      cap++;
-      cap*=2;
-    }
-    CPPL_INT newl =l-dl;
-    CPPL_INT inc =1;
-    double* newArray(new double[cap]);
-    dcopy_(&newl, array, &inc, newArray, &inc);
-    delete [] array;
-    array =newArray;
-  }
-}
-
-//=============================================================================
-/*! swap two vectors */
-inline void swap(dcovector& u, dcovector& v)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT u_cap(u.cap), u_l(u.l);
-  double* u_array(u.array);
-  u.l=v.l; u.cap=v.cap; u.array=v.array;
-  v.l=u_l; v.cap=u_cap; v.array=u_array;
-}
-
-//=============================================================================
-/*! convert user object to smart-temporary object */
-inline _dcovector _(dcovector& vec)
-{CPPL_VERBOSE_REPORT;
-  _dcovector newvec;
-  
-  //////// shallow copy ////////
-  newvec.l =vec.l;
-  newvec.cap =vec.cap;
-  newvec.array =vec.array;
-  
-  //////// nullify ////////
-  vec.l =0;
-  vec.cap =0;
-  vec.array =NULL;
-  
-  return newvec;
-}
diff --git a/cpplapack-r198/.svn/pristine/cd/cdc5ad74fb17735812e263c3c237b86bece109f3.svn-base b/cpplapack-r198/.svn/pristine/cd/cdc5ad74fb17735812e263c3c237b86bece109f3.svn-base
deleted file mode 100644
index 513d38d..0000000
--- a/cpplapack-r198/.svn/pristine/cd/cdc5ad74fb17735812e263c3c237b86bece109f3.svn-base
+++ /dev/null
@@ -1,16 +0,0 @@
-//=============================================================================
-/*! +_drovector operator */
-inline const _drovector& operator+(const _drovector& vec)
-{CPPL_VERBOSE_REPORT;
-  return vec;
-}
-
-//=============================================================================
-/*! -_drovector operator */
-inline _drovector operator-(const _drovector& vec)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<vec.l; i++){
-    vec.array[i] =-vec.array[i];
-  }
-  return vec;
-}
diff --git a/cpplapack-r198/.svn/pristine/cd/cde335bcc7750a33390fed8ae3684c21972735da.svn-base b/cpplapack-r198/.svn/pristine/cd/cde335bcc7750a33390fed8ae3684c21972735da.svn-base
deleted file mode 100644
index 11069d6..0000000
--- a/cpplapack-r198/.svn/pristine/cd/cde335bcc7750a33390fed8ae3684c21972735da.svn-base
+++ /dev/null
@@ -1,38 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int L(4);
-  
-  CPPL::dcovector x(L);
-  for(int i=0; i<x.l; i++){
-	x(i) =double( rand() /(RAND_MAX/10) );
-  }
-  
-  cout << "x =\n" << x << endl;
-  cout << "x*10. =\n" << x*10. << endl;
-  cout << "x/10. =\n" << x/10. << endl;
-  
-  cout << "#### x*=10.; ####" << endl;
-  x*=10.;
-  cout << "x =\n" << x << endl;
-  cout << "#### x/=10.; ####" << endl;
-  x/=10.;
-  cout << "x =\n" << x << endl;
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/ce/ce7ca9f2c94c802e346ec1fce1097bf4d11bf592.svn-base b/cpplapack-r198/.svn/pristine/ce/ce7ca9f2c94c802e346ec1fce1097bf4d11bf592.svn-base
deleted file mode 100644
index d65bf9c..0000000
--- a/cpplapack-r198/.svn/pristine/ce/ce7ca9f2c94c802e346ec1fce1097bf4d11bf592.svn-base
+++ /dev/null
@@ -1,94 +0,0 @@
-//=============================================================================
-//! (DO NOT USE) Smart-temporary Real Double-precision Symmetric Sparse Matrix Class
-class _dssmatrix
-{
-public:
-  ///////////////////////////////////////////////
-  /////////////////// objects ///////////////////
-  ///////////////////////////////////////////////
-  //mutable CPPL_INT const& m; //!< matrix row size
-  CPPL_INT const& m; //!< matrix row size
-  mutable CPPL_INT n; //!< matrix column size
-  mutable std::vector<dcomponent> data; //!< matrix data
-  mutable std::vector< std::vector<CPPL_INT> > line; //!< vector of vector to store the entry information of component for each row and column
-  
-  ///////////////////////////////////////////////
-  ///////////////// constructors ////////////////
-  ///////////////////////////////////////////////
-  inline _dssmatrix();
-  inline _dssmatrix(const _dssmatrix&);
-  inline ~_dssmatrix(); //destructor
-  
-  ///////////////////////////////////////////////
-  ////////////////// functions //////////////////
-  ///////////////////////////////////////////////
-  //////// cast ////////
-  inline _zhsmatrix to_zhsmatrix() const;
-  inline _dgematrix to_dgematrix() const;
-  inline _dsymatrix to_dsymatrix() const;
-  inline _dgsmatrix to_dgsmatrix() const;
-  
-  //////// io ////////
-  inline double operator()(const CPPL_INT&, const CPPL_INT&) const;//not return double&
-  inline friend std::ostream& operator<<(std::ostream&, const _dssmatrix&);
-  inline void write(const char *) const;
-
-  //////// misc ////////
-  inline void nullify() const;
-  inline void destroy() const;
-  
-  //////// calc ////////
-  inline friend _dssmatrix t(const dssmatrix&);
-  inline friend void idamax(CPPL_INT&, CPPL_INT&, const dssmatrix&);
-  inline friend double damax(const dssmatrix&);
-  
-  ///////////////////////////////////////////////
-  ///////////// numerical operators /////////////
-  ///////////////////////////////////////////////
-  //////// unary ////////
-  inline friend const _dssmatrix& operator+(const _dssmatrix&);
-  inline friend _dssmatrix operator-(const _dssmatrix&);
-  
-  //////// + ////////
-  inline friend _dgematrix operator+(const _dssmatrix&, const  dgematrix&);
-  inline friend _dgematrix operator+(const _dssmatrix&, const _dgematrix&);
-  inline friend _dgematrix operator+(const _dssmatrix&, const  dsymatrix&);
-  inline friend _dgematrix operator+(const _dssmatrix&, const _dsymatrix&);
-  inline friend _dgematrix operator+(const _dssmatrix&, const  dgbmatrix&);
-  inline friend _dgematrix operator+(const _dssmatrix&, const _dgbmatrix&);
-  inline friend _dgsmatrix operator+(const _dssmatrix&, const  dgsmatrix&);
-  inline friend _dgsmatrix operator+(const _dssmatrix&, const _dgsmatrix&);
-  inline friend _dssmatrix operator+(const _dssmatrix&, const  dssmatrix&);
-  inline friend _dssmatrix operator+(const _dssmatrix&, const _dssmatrix&);
-  
-  //////// - ////////
-  inline friend _dgematrix operator-(const _dssmatrix&, const  dgematrix&);
-  inline friend _dgematrix operator-(const _dssmatrix&, const _dgematrix&);
-  inline friend _dgematrix operator-(const _dssmatrix&, const  dsymatrix&);
-  inline friend _dgematrix operator-(const _dssmatrix&, const _dsymatrix&);
-  inline friend _dgematrix operator-(const _dssmatrix&, const  dgbmatrix&);
-  inline friend _dgematrix operator-(const _dssmatrix&, const _dgbmatrix&);
-  inline friend _dgsmatrix operator-(const _dssmatrix&, const  dgsmatrix&);
-  inline friend _dgsmatrix operator-(const _dssmatrix&, const _dgsmatrix&);
-  inline friend _dssmatrix operator-(const _dssmatrix&, const  dssmatrix&);
-  inline friend _dssmatrix operator-(const _dssmatrix&, const _dssmatrix&);
-  
-  //////// * ////////
-  inline friend _dgematrix operator*(const _dssmatrix&, const  dgematrix&);
-  inline friend _dgematrix operator*(const _dssmatrix&, const _dgematrix&);
-  inline friend _dgematrix operator*(const _dssmatrix&, const  dsymatrix&);
-  inline friend _dgematrix operator*(const _dssmatrix&, const _dsymatrix&);
-  inline friend _dgematrix operator*(const _dssmatrix&, const  dgbmatrix&);
-  inline friend _dgematrix operator*(const _dssmatrix&, const _dgbmatrix&);
-  inline friend _dgematrix operator*(const _dssmatrix&, const  dgsmatrix&);
-  inline friend _dgematrix operator*(const _dssmatrix&, const _dgsmatrix&);
-  inline friend _dssmatrix operator*(const _dssmatrix&, const  dssmatrix&);
-  inline friend _dssmatrix operator*(const _dssmatrix&, const _dssmatrix&);
-  inline friend _dssmatrix operator*(const _dssmatrix&, const     double&);
-  
-  //////// / ////////
-  inline friend _dssmatrix operator/(const _dssmatrix&, const     double&);
-  
-  //////// double ////////
-  inline friend _dssmatrix operator*(const     double&, const _dssmatrix&);
-};
diff --git a/cpplapack-r198/.svn/pristine/ce/ce9955e40aa5b85dc1a03c1f5c64e818b91d53f0.svn-base b/cpplapack-r198/.svn/pristine/ce/ce9955e40aa5b85dc1a03c1f5c64e818b91d53f0.svn-base
deleted file mode 100644
index 859462e..0000000
--- a/cpplapack-r198/.svn/pristine/ce/ce9955e40aa5b85dc1a03c1f5c64e818b91d53f0.svn-base
+++ /dev/null
@@ -1,155 +0,0 @@
-//=============================================================================
-/*! dgematrix+=dgbmatrix operator */
-inline dgematrix& dgematrix::operator+=(const dgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.n || m!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << m << "x" << n << ") += (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<mat.m; i++){
-    const CPPL_INT jmax =std::min(n,i+mat.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-mat.kl); j<jmax; j++){
-      operator()(i,j) += mat(i,j);
-    }
-  }
-  
-  return *this;
-}
-
-//=============================================================================
-/*! dgematrix-=dgbmatrix operator */
-inline dgematrix& dgematrix::operator-=(const dgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.n || m!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << m << "x" << n << ") -= (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<mat.m; i++){
-    const CPPL_INT jmax =std::min(n,i+mat.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-mat.kl); j<jmax; j++){
-      operator()(i,j) -= mat(i,j);
-    }
-  }
-  
-  return *this;
-}
-
-//=============================================================================
-/*! dgematrix*=dgbmatrix operator */
-inline dgematrix& dgematrix::operator*=(const dgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << m << "x" << n << ") *= (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  dgematrix newmat(m,mat.n);
-  newmat.zero();
-  
-  for(CPPL_INT i=0; i<newmat.m; i++){
-    for(CPPL_INT j=0; j<newmat.n; j++){
-      const CPPL_INT kmax =std::min(mat.m,j+mat.kl+1);
-      for(CPPL_INT k=std::max(CPPL_INT(0),j-mat.ku); k<kmax; k++){
-        newmat(i,j) += operator()(i,k)*mat(k,j);
-      }
-    }
-  }
-  
-  swap(*this,newmat);
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! dgematrix+dgbmatrix operator */
-inline _dgematrix operator+(const dgematrix& matA, const dgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat(matA);
-  
-  for(CPPL_INT i=0; i<matB.m; i++){
-    const CPPL_INT jmax =std::min(matB.n,i+matB.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matB.kl); j<jmax; j++){
-      newmat(i,j) += matB(i,j);
-    }
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! dgematrix-dgbmatrix operator */
-inline _dgematrix operator-(const dgematrix& matA, const dgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat(matA);
-  
-  for(CPPL_INT i=0; i<matB.m; i++){
-    const CPPL_INT jmax =std::min(matB.n,i+matB.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matB.kl); j<jmax; j++){
-      newmat(i,j) -= matB(i,j);
-    }
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! dgematrix*dgbmatrix operator */
-inline _dgematrix operator*(const dgematrix& matA, const dgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat( matA.m, matB.n );
-  newmat.zero();
-  
-  for(CPPL_INT i=0; i<newmat.m; i++){
-    for(CPPL_INT j=0; j<newmat.n; j++){
-      const CPPL_INT kmax =std::min(matB.m,j+matB.kl+1);
-      for(CPPL_INT k=std::max(CPPL_INT(0),j-matB.ku); k<kmax; k++){
-        newmat(i,j) += matA(i,k)*matB(k,j);
-      }
-    }
-  }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/ce/cea1ac740b3741f011edf45964354888e8a74747.svn-base b/cpplapack-r198/.svn/pristine/ce/cea1ac740b3741f011edf45964354888e8a74747.svn-base
deleted file mode 100644
index 639af42..0000000
--- a/cpplapack-r198/.svn/pristine/ce/cea1ac740b3741f011edf45964354888e8a74747.svn-base
+++ /dev/null
@@ -1,25 +0,0 @@
-//=============================================================================
-/*! drovector*_dgbmatrix operator */
-inline _drovector operator*(const drovector& vec, const _dgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vec.l!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These vector and matrix can not make a product." << std::endl
-              << "Your input was (" << vec.l << ") * (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  drovector newvec(mat.n);
-  char trans ='T';
-  double alpha =1.;
-  CPPL_INT lda =mat.kl+mat.ku+1;
-  CPPL_INT inc =1;
-  double beta =0.;
-  
-  dgbmv_( &trans, &mat.m, &mat.n, &mat.kl, &mat.ku, &alpha, mat.array, &lda, vec.array, &inc, &beta, newvec.array, &inc );
-  
-  mat.destroy();
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/cf/cf2bcc178238259a2318c0fbcc71ebae48da7ff1.svn-base b/cpplapack-r198/.svn/pristine/cf/cf2bcc178238259a2318c0fbcc71ebae48da7ff1.svn-base
deleted file mode 100644
index 2f08144..0000000
--- a/cpplapack-r198/.svn/pristine/cf/cf2bcc178238259a2318c0fbcc71ebae48da7ff1.svn-base
+++ /dev/null
@@ -1,38 +0,0 @@
-//=============================================================================
-/*! _zgbmatrix constructor */
-inline _zgbmatrix::_zgbmatrix()
-{CPPL_VERBOSE_REPORT;
-  m =0;
-  n =0;
-  kl =0;
-  ku =0;
-  array =NULL;
-  darray =NULL;
-}
-
-//=============================================================================
-/*! _zgbmatrix copy constructor */
-inline _zgbmatrix::_zgbmatrix(const _zgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  //////// initialize ////////
-  m =mat.m;
-  n =mat.n;
-  kl =mat.kl;
-  ku =mat.ku;
-  array =mat.array;
-  darray =mat.darray;
-
-  mat.nullify();
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! _zgbmatrix destructor */
-inline _zgbmatrix::~_zgbmatrix()
-{CPPL_VERBOSE_REPORT;
-  delete [] array;
-  delete [] darray;  
-}
diff --git a/cpplapack-r198/.svn/pristine/d0/d0627cb6640ff2c9d6a6aeacf1d64e1071bd8f7a.svn-base b/cpplapack-r198/.svn/pristine/d0/d0627cb6640ff2c9d6a6aeacf1d64e1071bd8f7a.svn-base
deleted file mode 100644
index f9ed13b..0000000
--- a/cpplapack-r198/.svn/pristine/d0/d0627cb6640ff2c9d6a6aeacf1d64e1071bd8f7a.svn-base
+++ /dev/null
@@ -1,16 +0,0 @@
-//=============================================================================
-/*! nullify all the matrix data */
-inline void _zhsmatrix::nullify() const
-{CPPL_VERBOSE_REPORT;
-  n=0;
-  data.clear();
-  line.clear();
-}
-
-//=============================================================================
-/*! destroy all the matrix data */
-inline void _zhsmatrix::destroy() const
-{CPPL_VERBOSE_REPORT;
-  data.clear();
-  line.clear();
-}
diff --git a/cpplapack-r198/.svn/pristine/d0/d07977870e780f499a79fe0ac9029aefe2bb10e4.svn-base b/cpplapack-r198/.svn/pristine/d0/d07977870e780f499a79fe0ac9029aefe2bb10e4.svn-base
deleted file mode 100644
index bd41248..0000000
--- a/cpplapack-r198/.svn/pristine/d0/d07977870e780f499a79fe0ac9029aefe2bb10e4.svn-base
+++ /dev/null
@@ -1,27 +0,0 @@
-//=============================================================================
-/*! _dssmatrix*dcovector operator */
-inline _dcovector operator*(const _dssmatrix& mat, const dcovector& vec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(mat.n!=vec.l){
-    ERROR_REPORT;
-    std::cerr << "These matrix and vector can not make a product." << std::endl
-              << "Your input was (" << mat.n << "x" << mat.n << ") * (" << vec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dcovector newvec(mat.n);
-  newvec.zero();
-  
-  const std::vector<dcomponent>::iterator mat_data_end =mat.data.end();
-  for(std::vector<dcomponent>::iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    newvec(it->i) +=it->v*vec(it->j);
-    if(it->i!=it->j){
-      newvec(it->j) +=it->v*vec(it->i);
-    }
-  }
-  
-  mat.destroy();
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/d0/d079bce838d53ab4b409f361e49ccdcdf04ef6b6.svn-base b/cpplapack-r198/.svn/pristine/d0/d079bce838d53ab4b409f361e49ccdcdf04ef6b6.svn-base
deleted file mode 100644
index 15e53be..0000000
--- a/cpplapack-r198/.svn/pristine/d0/d079bce838d53ab4b409f361e49ccdcdf04ef6b6.svn-base
+++ /dev/null
@@ -1,40 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int M(4), N(3), KL(2), KU(1);
-  
-  CPPL::drovector x(M), y;
-  CPPL::dgbmatrix A(M,N,KL,KU);
-  for(int i=0; i<x.l; i++){
-    x(i) =double( rand() /(RAND_MAX/10) );
-  }
-  for(int i=0; i<A.m; i++){
-    for(int j=std::max(0,i-A.kl); j<std::min(A.n,i+A.ku+1); j++){
-      A(i,j) =double( rand() /(RAND_MAX/10) );
-    }
-  }
-  
-  cout << "x =\n" << x << endl;
-  cout << "A =\n" << A << endl;
-  
-  cout << "#### y=x*A; ####" << endl;
-  y=x*A;
-  cout << "y =\n" << y << endl;
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/d0/d0eb247cf9813a1613f87a0bfc4e0ee0b62c93d0.svn-base b/cpplapack-r198/.svn/pristine/d0/d0eb247cf9813a1613f87a0bfc4e0ee0b62c93d0.svn-base
deleted file mode 100644
index 80da670..0000000
--- a/cpplapack-r198/.svn/pristine/d0/d0eb247cf9813a1613f87a0bfc4e0ee0b62c93d0.svn-base
+++ /dev/null
@@ -1,52 +0,0 @@
-//=============================================================================
-/*! zhematrix*=double operator */
-inline zhematrix& zhematrix::operator*=(const double& d)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT size =n*n;
-  CPPL_INT inc =1;
-  zdscal_(&size, &d, array, &inc);
-  return *this;
-}
-
-//=============================================================================
-/*! zhematrix/=double operator */
-inline zhematrix& zhematrix::operator/=(const double& d)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT size =n*n;
-  double dinv =1./d;
-  CPPL_INT inc =1;
-  zdscal_(&size, &dinv, array, &inc);
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zhematrix*double operator */
-inline _zhematrix operator*(const zhematrix& mat, const double& d)
-{CPPL_VERBOSE_REPORT;
-  zhematrix newmat(mat.n);
-  
-  const CPPL_INT size =mat.n*mat.n;
-  for(CPPL_INT i=0; i<size; i++){
-    newmat.array[i] =mat.array[i]*d;
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! zhematrix/double operator */
-inline _zhematrix operator/(const zhematrix& mat, const double& d)
-{CPPL_VERBOSE_REPORT;
-  zhematrix newmat(mat.n);
-  
-  const CPPL_INT size =mat.n*mat.n;
-  for(CPPL_INT i=0; i<size; i++){
-    newmat.array[i] =mat.array[i]/d;
-  }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/d1/d105207769a793051389ed8cfcfee84b90aadd0a.svn-base b/cpplapack-r198/.svn/pristine/d1/d105207769a793051389ed8cfcfee84b90aadd0a.svn-base
deleted file mode 100644
index fd87e0c..0000000
--- a/cpplapack-r198/.svn/pristine/d1/d105207769a793051389ed8cfcfee84b90aadd0a.svn-base
+++ /dev/null
@@ -1,97 +0,0 @@
-//=============================================================================
-/*! dgbmatrix constructor */
-inline dgbmatrix::dgbmatrix()
-{CPPL_VERBOSE_REPORT;
-  //////// initialize ////////
-  m =0;
-  n =0;
-  kl=0;
-  ku=0;
-  array =NULL;
-  darray =NULL;
-}
-
-//=============================================================================
-/*! dgbmatrix copy constructor */
-inline dgbmatrix::dgbmatrix(const dgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  //////// initialize ////////
-  m =mat.m;
-  n =mat.n;
-  kl=mat.kl;
-  ku=mat.ku;
-  array =new double[(kl+ku+1)*n];
-  darray =new double*[n];
-  for(int i=0; i<n; i++){
-    darray[i] =&array[i*(kl+ku+1)];
-  }
-  
-  //////// copy ////////
-  CPPL_INT size =(kl+ku+1)*n;
-  CPPL_INT inc =1;
-  dcopy_(&size, mat.array, &inc, array, &inc);
-}
-
-//=============================================================================
-/*! dgbmatrix constructor to cast _dgbmatrix */
-inline dgbmatrix::dgbmatrix(const _dgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  m =mat.m;
-  n =mat.n;
-  kl =mat.kl;
-  ku =mat.ku;
-  array =mat.array;
-  darray =mat.darray;
-  
-  mat.nullify();
-}
-
-//=============================================================================
-/*! dgbmatrix constructor with size specification */
-inline dgbmatrix::dgbmatrix(const CPPL_INT& _m, const CPPL_INT& _n,
-                            const CPPL_INT& _kl, const CPPL_INT& _ku)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( _m<0 || _n<0 || _kl<0 || _ku<0 || _m<_kl || _n<_ku ){
-    ERROR_REPORT;
-    std::cerr << "It is impossible to make a matrix you ordered. " << std::endl
-              << "Your input was (" << _m << "," << _n << ","<< _ku << "," << _kl << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //////// initialize ////////
-  m =_m;
-  n =_n;
-  kl =_kl;
-  ku =_ku;
-  array =new double[(kl+ku+1)*n];
-  darray =new double*[n];
-  for(int i=0; i<n; i++){
-    darray[i] =&array[i*(kl+ku+1)];
-  }
-}
-
-//=============================================================================
-/*! dgbmatrix constructor with filename */
-inline dgbmatrix::dgbmatrix(const char* filename)
-{CPPL_VERBOSE_REPORT;
-  array =NULL;
-  darray =NULL;
-  
-  //// read ////
-  read(filename);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! dgbmatrix destructor */
-inline dgbmatrix::~dgbmatrix()
-{CPPL_VERBOSE_REPORT;
-  //////// delete array ////////
-  delete [] array;
-  delete [] darray;
-}
diff --git a/cpplapack-r198/.svn/pristine/d1/d164643526650cfa9600962753f18ffa5b56317a.svn-base b/cpplapack-r198/.svn/pristine/d1/d164643526650cfa9600962753f18ffa5b56317a.svn-base
deleted file mode 100644
index 926cae2..0000000
--- a/cpplapack-r198/.svn/pristine/d1/d164643526650cfa9600962753f18ffa5b56317a.svn-base
+++ /dev/null
@@ -1,106 +0,0 @@
-//=============================================================================
-/*! dgels_check */
-void dgels_check_vector()
-{
-  std::cout << "############ check dgels vector ############" << std::endl;
-  
-  srand(unsigned(time(NULL)));
-  int M(3), N(2);
-  
-  //// make dgematrix A  ////
-  CPPL::dgematrix A(M,N);
-  for(int i=0; i<A.m; i++){ for(int j=0; j<A.n; j++){
-    A(i,j) =double( rand() /(RAND_MAX/10) );
-  }}
-  
-  //// make dcovector y  ////
-  CPPL::dcovector y(M);
-  for(int i=0; i<y.l; i++){
-    y(i) =double( rand() /(RAND_MAX/10) );
-  }
-  
-  //// make originals ////
-  CPPL::dgematrix A_original(A);
-  CPPL::dcovector y_original(y);
-  
-  //// dgels ////
-  A.dgels(y);
-  
-  //// print ////
-  std::cout << "######## dgels(vec) ########" << std::endl;
-  std::cout << "A_original=\n" << A_original << std::endl;
-  std::cout << "y_original=\n" << y_original << std::endl;
-  std::cout << "A=\n" << A << std::endl;
-  std::cout << "y=\n" << y << std::endl;
-  std::cout << "A_original*y=\n" << A_original*y << std::endl;
-  
-  //// reset ////
-  A =A_original;
-  y =y_original;
-  double r; //residual square
-  
-  //// dgels ////
-  A.dgels(y,r);
-  
-  //// print ////
-  std::cout << "######## dgels(vec, residual) ########" << std::endl;
-  std::cout << "A_original=\n" << A_original << std::endl;
-  std::cout << "y_original=\n" << y_original << std::endl;
-  std::cout << "A=\n" << A << std::endl;
-  std::cout << "y=\n" << y << std::endl;
-  std::cout << "residual=" << r << std::endl;
-  std::cout << "A_original*y=\n" << A_original*y << std::endl;
-}
-
-//==============================================================================
-void dgels_check_matrix()
-{
-  std::cout << "############ check dgels matrix ############" << std::endl;
-  
-  srand(unsigned(time(NULL)));
-  int M(3), N(2);
-  
-  //// make dgematrix A  ////
-  CPPL::dgematrix A(M,N);
-  for(int i=0; i<A.m; i++){ for(int j=0; j<A.n; j++){
-    A(i,j) =double( rand() /(RAND_MAX/10) );
-  }}
-
-  //// make dgematrix Y  ////
-  CPPL::dgematrix Y(M,M);
-  for(int i=0; i<Y.m; i++){ for(int j=0; j<Y.n; j++){
-    Y(i,j) =double( rand() /(RAND_MAX/10) );
-  }}
-   
-  //// make originals ////
-  CPPL::dgematrix A_original(A);
-  CPPL::dgematrix Y_original(Y);
-  
-  //// dgels ////
-  A.dgels(Y);
-  
-  //// print ////
-  std::cout << "######## dgels(mat) ########" << std::endl;
-  std::cout << "A_original=\n" << A_original << std::endl;
-  std::cout << "Y_original=\n" << Y_original << std::endl;
-  std::cout << "A=\n" << A << std::endl;
-  std::cout << "Y=\n" << Y << std::endl;
-  std::cout << "A_original*Y=\n" << A_original*Y << std::endl;
-  
-  //// reset ////
-  A =A_original;
-  Y =Y_original;
-  CPPL::drovector R; //residual square
-  
-  //// dgels ////
-  A.dgels(Y,R);
-  
-  //// print ////
-  std::cout << "######## dgels(mat, residual) ########" << std::endl;
-  std::cout << "A_original=\n" << A_original << std::endl;
-  std::cout << "Y_original=\n" << Y_original << std::endl;
-  std::cout << "A=\n" << A << std::endl;
-  std::cout << "Y=\n" << Y << std::endl;
-  std::cout << "residual=" << R << std::endl;
-  std::cout << "A_original*Y=\n" << A_original*Y << std::endl;  
-}
diff --git a/cpplapack-r198/.svn/pristine/d1/d17e901947f17713e881b0b59ba2a091474614a4.svn-base b/cpplapack-r198/.svn/pristine/d1/d17e901947f17713e881b0b59ba2a091474614a4.svn-base
deleted file mode 100644
index 0e8e26d..0000000
--- a/cpplapack-r198/.svn/pristine/d1/d17e901947f17713e881b0b59ba2a091474614a4.svn-base
+++ /dev/null
@@ -1,29 +0,0 @@
-//=============================================================================
-/*! zhematrix*comple operator */
-inline _zgematrix operator*(const zhematrix& mat, const comple& d)
-{CPPL_VERBOSE_REPORT;
-  mat.complete();
-  zgematrix newmat(mat.n, mat.n);
-  
-  const CPPL_INT size =mat.n*mat.n;
-  for(CPPL_INT i=0; i<size; i++){
-    newmat.array[i] =mat.array[i]*d;
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! zhematrix/comple operator */
-inline _zgematrix operator/(const zhematrix& mat, const comple& d)
-{CPPL_VERBOSE_REPORT;
-  mat.complete();
-  zgematrix newmat(mat.n, mat.n);
-
-  const CPPL_INT size =mat.n*mat.n;
-  for(CPPL_INT i=0; i<size; i++){
-    newmat.array[i] =mat.array[i]/d;
-  }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/d1/d1ce10b657ca2d6798adccebe0fa79d8376e176f.svn-base b/cpplapack-r198/.svn/pristine/d1/d1ce10b657ca2d6798adccebe0fa79d8376e176f.svn-base
deleted file mode 100644
index b72cf9f..0000000
--- a/cpplapack-r198/.svn/pristine/d1/d1ce10b657ca2d6798adccebe0fa79d8376e176f.svn-base
+++ /dev/null
@@ -1,78 +0,0 @@
-//=============================================================================
-/*! _dgbmatrix+dgematrix operator */
-inline _dgematrix operator+(const _dgbmatrix& matA, const dgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  dgematrix newmat(matB);
-  for(CPPL_INT i=0; i<matA.m; i++){
-    const CPPL_INT jmax =std::min(matA.n,i+matA.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matA.kl); j<jmax; j++){
-      newmat(i,j) += matA(i,j);
-    }
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _dgbmatrix-dgematrix operator */
-inline _dgematrix operator-(const _dgbmatrix& matA, const dgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat(-matB);
-  for(CPPL_INT i=0; i<matA.m; i++){
-    const CPPL_INT jmax =std::min(matA.n,i+matA.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matA.kl); j<jmax; j++){
-      newmat(i,j) += matA(i,j);
-    }
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _dgbmatrix*dgematrix operator */
-inline _dgematrix operator*(const _dgbmatrix& matA, const dgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat( matA.m, matB.n );
-  newmat.zero();
-  
-  for(CPPL_INT i=0; i<newmat.m; i++){
-    for(CPPL_INT j=0; j<newmat.n; j++){
-      const CPPL_INT kmax =std::min(matA.n,i+matA.ku+1);
-      for(CPPL_INT k=std::max(CPPL_INT(0),i-matA.kl); k<kmax; k++){
-        newmat(i,j) += matA(i,k)*matB(k,j);
-      }
-    }
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/d1/d1d452577be10fb96799bca8e3f043fe24969e68.svn-base b/cpplapack-r198/.svn/pristine/d1/d1d452577be10fb96799bca8e3f043fe24969e68.svn-base
deleted file mode 100644
index e5af88d..0000000
--- a/cpplapack-r198/.svn/pristine/d1/d1d452577be10fb96799bca8e3f043fe24969e68.svn-base
+++ /dev/null
@@ -1,44 +0,0 @@
-//=============================================================================
-/*! return a transposed row vector */
-inline drovector t(const _dcovector& covec)
-{CPPL_VERBOSE_REPORT;
-  _drovector rovec;
-  rovec.l =covec.l;
-  rovec.cap =covec.cap;
-  delete [] rovec.array;
-  rovec.array =covec.array;
-
-  covec.nullify();
-  return rovec;
-}
-
-//=============================================================================
-/*! return its Euclidean norm */
-inline double nrm2(const _dcovector& vec)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT inc =1;
-  double val =dnrm2_(&vec.l, vec.array, &inc);
-  vec.destroy();
-  return val;
-}
-
-//=============================================================================
-/*! return the index of element having the largest absolute value
- in 0-based numbering system */
-inline CPPL_INT idamax(const _dcovector& vec)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT inc =1;
-  CPPL_INT i =idamax_(&vec.l, vec.array, &inc) -1 ;
-  vec.destroy();
-  return i;
-}
-
-//=============================================================================
-/*! return its largest absolute value */
-inline double damax(const _dcovector& vec)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT inc =1;
-  double val =vec.array[idamax_(&vec.l, vec.array, &inc) -1];
-  vec.destroy();
-  return val;
-}
diff --git a/cpplapack-r198/.svn/pristine/d2/d206cb976fd8dae16ba1407e696a1b66cdcf435d.svn-base b/cpplapack-r198/.svn/pristine/d2/d206cb976fd8dae16ba1407e696a1b66cdcf435d.svn-base
deleted file mode 100644
index 425ba85..0000000
--- a/cpplapack-r198/.svn/pristine/d2/d206cb976fd8dae16ba1407e696a1b66cdcf435d.svn-base
+++ /dev/null
@@ -1,74 +0,0 @@
-//=============================================================================
-/*! zgsmatrix+_zgematrix operator */
-inline _zgematrix operator+(const zgsmatrix& matA, const _zgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  const std::vector<zcomponent>::const_iterator matA_data_end =matA.data.end();
-  for(std::vector<zcomponent>::const_iterator it=matA.data.begin(); it!=matA_data_end; it++){
-    matB(it->i,it->j) += it->v;
-  }
-  
-  return matB;
-}
-
-//=============================================================================
-/*! zgsmatrix-_zgematrix operator */
-inline _zgematrix operator-(const zgsmatrix& matA, const _zgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") - (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //// change sign ////
-  for(CPPL_INT i=0; i<matB.m*matB.n; i++){
-    matB.array[i]=-matB.array[i];
-  }
-  
-  //// add ////
-  const std::vector<zcomponent>::const_iterator matA_data_end =matA.data.end();
-  for(std::vector<zcomponent>::const_iterator it=matA.data.begin(); it!=matA_data_end; it++){
-    matB(it->i,it->j) += it->v;
-  }
-  
-  return matB;
-}
-
-//=============================================================================
-/*! zgsmatrix*_zgematrix operator */
-inline _zgematrix operator*(const zgsmatrix& matA, const _zgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(matA.m, matB.n);
-  newmat.zero();
-  
-  const std::vector<zcomponent>::const_iterator matA_data_end =matA.data.end();
-  for(std::vector<zcomponent>::const_iterator it=matA.data.begin(); it!=matA_data_end; it++){
-    for(CPPL_INT j=0; j<matB.n; j++){
-      newmat(it->i,j) += it->v *matB(it->j,j);
-    }
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/d2/d2155cd3f780cf967e5f0e851f6bb03ad61fe9a9.svn-base b/cpplapack-r198/.svn/pristine/d2/d2155cd3f780cf967e5f0e851f6bb03ad61fe9a9.svn-base
deleted file mode 100644
index 6df364a..0000000
--- a/cpplapack-r198/.svn/pristine/d2/d2155cd3f780cf967e5f0e851f6bb03ad61fe9a9.svn-base
+++ /dev/null
@@ -1,52 +0,0 @@
-//=============================================================================
-/*! dgbmatrix*=double operator */
-inline dgbmatrix& dgbmatrix::operator*=(const double& d)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT size =(kl+ku+1)*n;
-  CPPL_INT inc =1;
-  dscal_(&size, &d, array, &inc);
-  return *this;
-}
-
-//=============================================================================
-/*! dgbmatrix/=double operator */
-inline dgbmatrix& dgbmatrix::operator/=(const double& d)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT size =(kl+ku+1)*n;
-  double dinv =1./d;
-  CPPL_INT inc =1;
-  dscal_(&size, &dinv, array, &inc);
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! dgbmatrix*double operator */
-inline _dgbmatrix operator*(const dgbmatrix& mat, const double& d)
-{CPPL_VERBOSE_REPORT;
-  dgbmatrix newmat(mat.m, mat.n, mat.kl, mat.ku);
-  
-  const CPPL_INT size =(newmat.kl+newmat.ku+1)*newmat.n;
-  for(CPPL_INT i=0; i<size; i++){
-    newmat.array[i] =mat.array[i]*d;
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! dgbmatrix/double operator */
-inline _dgbmatrix operator/(const dgbmatrix& mat, const double& d)
-{CPPL_VERBOSE_REPORT;
-  dgbmatrix newmat(mat.m, mat.n, mat.kl, mat.ku);
-  
-  const CPPL_INT size =(newmat.kl+newmat.ku+1)*newmat.n;
-  for(CPPL_INT i=0; i<size; i++){
-    newmat.array[i] =mat.array[i]/d;
-  }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/d2/d23b51dd7e71b4270476805f8699ab736ec8a5a7.svn-base b/cpplapack-r198/.svn/pristine/d2/d23b51dd7e71b4270476805f8699ab736ec8a5a7.svn-base
deleted file mode 100644
index 3d2bbc2..0000000
--- a/cpplapack-r198/.svn/pristine/d2/d23b51dd7e71b4270476805f8699ab736ec8a5a7.svn-base
+++ /dev/null
@@ -1,95 +0,0 @@
-//=============================================================================
-/*! dgematrix constructor without arguments */
-inline dgematrix::dgematrix()
-{CPPL_VERBOSE_REPORT;
-  //////// initialize ////////
-  m =0;
-  n =0;
-  array =NULL;
-  darray =NULL;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! dgematrix copy constructor */
-inline dgematrix::dgematrix(const dgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-  //////// initialize ////////
-  m =mat.m;
-  n =mat.n;
-  array =new double[m*n];
-  darray =new double*[n];
-  for(int i=0; i<n; i++){
-    darray[i] =&array[i*m];
-  }
-  
-  //////// copy ////////
-  CPPL_INT mn =m*n;
-  CPPL_INT inc =1;
-  dcopy_(&mn, mat.array, &inc, array, &inc);
-}
-
-//=============================================================================
-/*! dgematrix constructor to cast _dgematrix */
-inline dgematrix::dgematrix(const _dgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-  m =mat.m;
-  n =mat.n;
-  array =mat.array;
-  darray =mat.darray;
-  
-  mat.nullify();
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! dgematrix constructor with size specification */
-inline dgematrix::dgematrix(const CPPL_INT& _m, const CPPL_INT& _n)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( _m<0 || _n<0 ){
-    ERROR_REPORT;
-    std::cerr << "Matrix sizes must be positive integers. " << std::endl
-              << "Your input was (" << _m << "," << _n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //////// initialize ////////
-  m =_m;
-  n =_n;
-  array =new double[m*n];
-  darray  =new double*[n];
-  for(int i=0; i<n; i++){
-    darray[i] =&array[i*m];
-  }
-}
-
-//=============================================================================
-/*! dgematrix constructor with filename */
-inline dgematrix::dgematrix(const char* filename)
-{CPPL_VERBOSE_REPORT;
-  array =NULL;
-  darray =NULL;
-  
-  //// read ////
-  read(filename);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! dgematrix destructor */
-inline dgematrix::~dgematrix()
-{CPPL_VERBOSE_REPORT;
-  delete [] darray;
-  delete [] array;
-}
diff --git a/cpplapack-r198/.svn/pristine/d2/d2eaa839e49f36cb62b1caa6987bb0c88d19afb0.svn-base b/cpplapack-r198/.svn/pristine/d2/d2eaa839e49f36cb62b1caa6987bb0c88d19afb0.svn-base
deleted file mode 100644
index cfe7eb6..0000000
--- a/cpplapack-r198/.svn/pristine/d2/d2eaa839e49f36cb62b1caa6987bb0c88d19afb0.svn-base
+++ /dev/null
@@ -1,20 +0,0 @@
-//=============================================================================
-/*! zrovector*_zcovector operator */
-inline comple operator*(const zrovector& rovec, const _zcovector& covec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(rovec.l!=covec.l){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make a product." << std::endl
-              << "Your input was (" << rovec.l << ") * (" << covec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  CPPL_INT inc =1;
-  
-  comple val =zdotu_( &rovec.l, rovec.array, &inc, covec.array, &inc );
-  
-  covec.destroy();
-  return val;
-}
diff --git a/cpplapack-r198/.svn/pristine/d3/d341740e1c6450813255faaf52526173dbf65bb6.svn-base b/cpplapack-r198/.svn/pristine/d3/d341740e1c6450813255faaf52526173dbf65bb6.svn-base
deleted file mode 100644
index 69d4162..0000000
--- a/cpplapack-r198/.svn/pristine/d3/d341740e1c6450813255faaf52526173dbf65bb6.svn-base
+++ /dev/null
@@ -1,46 +0,0 @@
-###############################################################################
-##                                 Makefile                                  ##
-###############################################################################
-
-A.OUT = dge2vtk
-
-###############################################################################
-
-#include Makefile.compiler
-include Makefile.g++
-#include Makefile.icpc
-
-###############################################################################
-
-HEADERS:= $(shell find -iname '*.hpp')
-SOURCES:= $(shell find -iname '*.cpp')
-OBJECTS:= $(SOURCES:%.cpp=%.o)
-
-###############################################################################
-
-all: depend $(OBJECTS)
-	$(CXX) $(OBJECTS) $(LFLAGS) $(LIB_DIRS) $(LIBS) -o $(A.OUT)
-	@echo
-
-.SUFFIXES: .cpp .o
-.cpp.o:
-	$(CXX) -c $< $(CFLAGS) $(INCLUDE_DIRS) $(MACROS) -o $@
-	@echo
-
-depend:
-#	touch main.cpp
-	makedepend -f- -Y $(SOURCES) > Makefile.depend 2> /dev/null
-#	gccmakedep -- -I./ -MM -- $(SOURCES)
-#	$(CXX) -MM -I./ $(SOURCES) > Makefile.depend
-	@echo
-
-clean:
-	rm -f $(OBJECTS)
-
-fullclean:
-	rm -f $(shell find -name '*.o') std err Makefile.depend $(A.OUT)
-
-remake: clean all
-
-###############################################################################
--include Makefile.depend
diff --git a/cpplapack-r198/.svn/pristine/d3/d3820eeedfb002a3e797adbce2c65fa63a9bc02a.svn-base b/cpplapack-r198/.svn/pristine/d3/d3820eeedfb002a3e797adbce2c65fa63a9bc02a.svn-base
deleted file mode 100644
index 7258c97..0000000
--- a/cpplapack-r198/.svn/pristine/d3/d3820eeedfb002a3e797adbce2c65fa63a9bc02a.svn-base
+++ /dev/null
@@ -1,25 +0,0 @@
-//=============================================================================
-/*! _zrovector*zgbmatrix operator */
-inline _zrovector operator*(const _zrovector& vec, const zgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vec.l!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These vector and matrix can not make a product." << std::endl
-              << "Your input was (" << vec.l << ") * (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zrovector newvec(mat.n);
-  char trans ='T';
-  comple alpha =comple(1.,0.);
-  CPPL_INT lda =mat.kl+mat.ku+1;
-  CPPL_INT inc =1;
-  comple beta =comple(0.,0.);
-  
-  zgbmv_( &trans, &mat.m, &mat.n, &mat.kl, &mat.ku, &alpha, mat.array, &lda, vec.array, &inc, &beta, newvec.array, &inc );
-  
-  vec.destroy();
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/d3/d3dfa8e8a051659157dcf494ce557998397fe6d5.svn-base b/cpplapack-r198/.svn/pristine/d3/d3dfa8e8a051659157dcf494ce557998397fe6d5.svn-base
deleted file mode 100644
index 0d358fc..0000000
--- a/cpplapack-r198/.svn/pristine/d3/d3dfa8e8a051659157dcf494ce557998397fe6d5.svn-base
+++ /dev/null
@@ -1,13 +0,0 @@
-//=============================================================================
-/*! double*zgsmatrix operator */
-inline _zgsmatrix operator*(const double& d, const zgsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  zgsmatrix newmat =mat;
-  
-  const std::vector<zcomponent>::iterator newmat_data_end =newmat.data.end();
-  for(std::vector<zcomponent>::iterator it=newmat.data.begin(); it!=newmat_data_end; it++){
-    it->v *= d;
-  }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/d3/d3e20912cb9dfad7ebcafef65507ead23e6b7638.svn-base b/cpplapack-r198/.svn/pristine/d3/d3e20912cb9dfad7ebcafef65507ead23e6b7638.svn-base
deleted file mode 100644
index bba0da0..0000000
--- a/cpplapack-r198/.svn/pristine/d3/d3e20912cb9dfad7ebcafef65507ead23e6b7638.svn-base
+++ /dev/null
@@ -1,74 +0,0 @@
-//=============================================================================
-/*! _dsymatrix+dgematrix operator */
-inline _dgematrix operator+(const _dsymatrix& matA, const dgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat =matB;
-  
-  for(CPPL_INT i=0; i<matA.n; i++){
-    for(CPPL_INT j=0; j<matA.n; j++ ){
-      newmat(i,j)+=matA(i,j);
-    }
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _dsymatrix-dgematrix operator */
-inline _dgematrix operator-(const _dsymatrix& matA, const dgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") - (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat =-matB;
-  
-  for(CPPL_INT i=0; i<matA.n; i++){
-    for(CPPL_INT j=0; j<matA.n; j++ ){
-      newmat(i,j)+=matA(i,j);
-    }
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _dsymatrix*dgematrix operator */
-inline _dgematrix operator*(const _dsymatrix& matA, const dgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat( matA.n, matB.n );
-  char side ='l';
-  char uplo ='l';
-  double alpha =1.;
-  double beta =0.;
-  
-  dsymm_( &side, &uplo, &matA.n, &matB.n, &alpha, matA.array, &matA.n, matB.array, &matB.m, &beta, newmat.array, &newmat.m );
-  
-  matA.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/d4/d4899fd7a1211f478511d3ece98a39f0ea427639.svn-base b/cpplapack-r198/.svn/pristine/d4/d4899fd7a1211f478511d3ece98a39f0ea427639.svn-base
deleted file mode 100644
index 0b5b289..0000000
--- a/cpplapack-r198/.svn/pristine/d4/d4899fd7a1211f478511d3ece98a39f0ea427639.svn-base
+++ /dev/null
@@ -1,65 +0,0 @@
-//=============================================================================
-/*! return a transposed row vector */
-inline _zrovector t(const zcovector& covec)
-{CPPL_VERBOSE_REPORT;
-  zrovector rovec(covec.l);
-  
-  CPPL_INT inc =1;
-  zcopy_(&covec.l, covec.array, &inc, rovec.array, &inc);
-  
-  return _(rovec);
-}
-//=============================================================================
-/*! return its conjugated vector */
-inline _zcovector conj(const zcovector& vec)
-{CPPL_VERBOSE_REPORT;
-  zcovector newvec(vec.l);
-  
-  for(CPPL_INT i=0; i<vec.l; i++){
-    newvec(i) =std::conj(vec(i));
-  }
-  
-  return _(newvec);
-}
-
-//=============================================================================
-/*! return a conjugate transposed row vector */
-inline _zrovector conjt(const zcovector& covec)
-{CPPL_VERBOSE_REPORT;
-  zrovector rovec(covec.l);
-  
-  for(CPPL_INT i=0; i<covec.l; i++){
-    rovec(i) =std::conj(covec(i));
-  }
-  
-  return _(rovec);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! return its Euclidean norm */
-inline double nrm2(const zcovector& vec)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT inc =1;
-  return dznrm2_(&vec.l, vec.array, &inc);
-}
-
-//=============================================================================
-/*! return the index of element having the largest absolute value
- in 0-based numbering system */
-inline CPPL_INT idamax(const zcovector& vec)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT inc =1;
-  return izamax_(&vec.l, vec.array, &inc) -1;
-}
-
-//=============================================================================
-/*! return its largest absolute value */
-inline comple damax(const zcovector& vec)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT inc =1;
-  return vec.array[izamax_(&vec.l, vec.array, &inc) -1];
-}
diff --git a/cpplapack-r198/.svn/pristine/d4/d4a6a8a33f0599c4f46f7d60fed70e3f3dcdc396.svn-base b/cpplapack-r198/.svn/pristine/d4/d4a6a8a33f0599c4f46f7d60fed70e3f3dcdc396.svn-base
deleted file mode 100644
index f5f42e6..0000000
--- a/cpplapack-r198/.svn/pristine/d4/d4a6a8a33f0599c4f46f7d60fed70e3f3dcdc396.svn-base
+++ /dev/null
@@ -1,79 +0,0 @@
-//=============================================================================
-/*! zgsmatrix+_zgbmatrix operator */
-inline _zgematrix operator+(const zgsmatrix& matA, const _zgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat( matA.to_zgematrix() );
-  
-  for(CPPL_INT i=0; i<matB.m; i++){
-    const CPPL_INT jmax =std::min(matB.n,i+matB.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matB.kl); j<jmax; j++){
-      newmat(i,j) +=matB(i,j);
-    }
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! zgsmatrix-_zgbmatrix operator */
-inline _zgematrix operator-(const zgsmatrix& matA, const _zgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat( matA.to_zgematrix() );
-  
-  for(CPPL_INT i=0; i<matB.m; i++){
-    const CPPL_INT jmax =std::min(matB.n,i+matB.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matB.kl); j<jmax; j++){
-      newmat(i,j) -=matB(i,j);
-    }
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! zgsmatrix*_zgbmatrix operator */
-inline _zgematrix operator*(const zgsmatrix& matA, const _zgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat( matA.m, matB.n );
-  newmat.zero();
-  
-  const std::vector<zcomponent>::const_iterator matA_data_end =matA.data.end();
-  for(std::vector<zcomponent>::const_iterator it=matA.data.begin(); it!=matA_data_end; it++){
-    const CPPL_INT jmax =std::min(matB.n,it->j+matB.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),it->j-matB.kl); j<jmax; j++){
-      newmat(it->i,j) += it->v*matB(it->j,j);
-    }
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/d4/d4da3458a836bafcd5779b993dcc5adde36c21e0.svn-base b/cpplapack-r198/.svn/pristine/d4/d4da3458a836bafcd5779b993dcc5adde36c21e0.svn-base
deleted file mode 100644
index 4a44b11..0000000
--- a/cpplapack-r198/.svn/pristine/d4/d4da3458a836bafcd5779b993dcc5adde36c21e0.svn-base
+++ /dev/null
@@ -1,212 +0,0 @@
-//=============================================================================
-/*! clear all the matrix data and set the sizes 0 */
-inline void dgbmatrix::clear()
-{CPPL_VERBOSE_REPORT;
-  m =0;
-  n =0;
-  kl =0;
-  ku =0;
-  delete [] array;
-  array=NULL;
-  delete [] darray;
-  darray=NULL;
-}
-
-
-//=============================================================================
-/*! change the matrix into a zero matrix */
-inline dgbmatrix& dgbmatrix::zero()
-{CPPL_VERBOSE_REPORT;
-  const CPPL_INT size =(kl+ku+1)*n;
-  for(CPPL_INT i=0; i<size; i++){
-    array[i] =0.0;
-  }
-  return *this;
-}
-
-//=============================================================================
-/*! change the matrix into an identity matrix */
-inline dgbmatrix& dgbmatrix::identity()
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(m!=n){
-    ERROR_REPORT;
-    std::cerr << "Only square matrix can be a identity matrix." << std::endl
-              << "The matrix size was " << m << "x" << n << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  const CPPL_INT size =(kl+ku+1)*n;
-  for(CPPL_INT i=0; i<size; i++){
-    array[i] =0.0;
-  }
-  for(CPPL_INT i=0; i<m; i++){
-    operator()(i,i) =1.0;
-  }
-  return *this;
-}
-
-//=============================================================================
-/*! change sign(+/-) of the matrix */
-inline void dgbmatrix::chsign()
-{CPPL_VERBOSE_REPORT;
-  const CPPL_INT size =(kl+ku+1)*n;
-  for(CPPL_INT i=0; i<size; i++){
-    array[i] =-array[i];
-  }
-}
-//=============================================================================
-/*! make a deep copy of the matrix */
-inline void dgbmatrix::copy(const dgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  m =mat.m;
-  n =mat.n;
-  kl =mat.kl;
-  ku =mat.ku;
-  delete [] array;
-  array =new double[(mat.kl+mat.ku+1)*mat.n];
-  delete [] darray;
-  darray =new double*[n];
-  for(int i=0; i<n; i++){
-    darray[i] =&array[i*(kl+ku+1)];
-  }
-  
-  CPPL_INT size =(mat.kl+mat.ku+1)*mat.n;
-  CPPL_INT inc =1;
-  dcopy_(&size, mat.array, &inc, array, &inc);
-}
-
-//=============================================================================
-/*! make a shallow copy of the matrix\n
-  This function is not designed to be used in project codes. */
-inline void dgbmatrix::shallow_copy(const _dgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  m =mat.m;
-  n =mat.n;
-  kl =mat.kl;
-  ku =mat.ku;
-  delete [] array;
-  array =mat.array;
-  delete [] darray;
-  darray =mat.darray;
-  
-  mat.nullify();
-}
-
-//=============================================================================
-/*! resize the matrix */
-inline dgbmatrix& dgbmatrix::resize(const CPPL_INT& _m, const CPPL_INT& _n,
-                                    const CPPL_INT& _kl, const CPPL_INT& _ku)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( _m<0 || _n<0 || _kl<0 || _ku<0 || _m<_kl || _n<_ku ){
-    ERROR_REPORT;
-    std::cerr << "It is impossible to make a matrix you ordered. " << std::endl
-              << "Your input was (" << _m << "," << _n << ","<< _ku << "," << _kl << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  m =_m;
-  n =_n;
-  kl =_kl;
-  ku =_ku;
-  delete [] array;
-  array =new double[(kl+ku+1)*n];
-  delete [] darray;
-  darray =new double*[n];
-  for(int i=0; i<n; i++){ darray[i] =&array[i*(kl+ku+1)]; }
-  
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! get row of the matrix */
-inline _drovector dgbmatrix::row(const CPPL_INT& _m) const
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( _m<0 || _m>m ){
-    ERROR_REPORT;
-    std::cerr << "Input row number must be between 0 and " << m << "." << std::endl
-              << "Your input was " << _m << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  drovector v( drovector(n).zero() );
-  
-  const CPPL_INT jmax =std::min(n,_m+ku+1);
-  for(CPPL_INT j=std::max(CPPL_INT(0),_m-kl); j<jmax; j++){
-    v(j)=(*this)(_m,j);
-  }
-  
-  return _(v);
-}
-
-//=============================================================================
-/*! get column of the matrix */
-inline _dcovector dgbmatrix::col(const CPPL_INT& _n) const
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( _n<0 || _n>n ){
-    ERROR_REPORT;
-    std::cerr << "Input row number must be between 0 and " << n << "." << std::endl
-              << "Your input was " << _n << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dcovector v( dcovector(m).zero() );
-  
-  const CPPL_INT imax =std::min(m,_n+kl+1);
-  for(CPPL_INT i=std::max(CPPL_INT(0),_n-ku); i<imax; i++){
-    v(i)=(*this)(i,_n);
-  }
-  
-  return _(v);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! swap two matrices */
-inline void swap(dgbmatrix& A, dgbmatrix& B)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT A_m =A.m, A_n =A.n, A_kl =A.kl, A_ku =A.ku;
-  double* A_array =A.array;
-  double** A_darray=A.darray;
-  A.m=B.m; A.n=B.n; A.kl=B.kl; A.ku=B.ku; A.array=B.array; A.darray=B.darray;
-  B.m=A_m; B.n=A_n; B.kl=A_kl; B.ku=A_ku; B.array=A_array; B.darray=A_darray;
-}
-
-//=============================================================================
-/*! convert user object to smart-temporary object */
-inline _dgbmatrix _(dgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  _dgbmatrix newmat;
-  
-  //////// shallow copy ////////
-  newmat.m =mat.m;
-  newmat.n =mat.n;
-  newmat.kl =mat.kl;
-  newmat.ku =mat.ku;
-  newmat.array =mat.array;
-  newmat.darray =mat.darray;
-  
-  //////// nullify ////////
-  mat.m =0;
-  mat.n =0;
-  mat.kl =0;
-  mat.ku =0;
-  mat.array =NULL;
-  mat.darray =NULL;
-  
-  return newmat;
-}
diff --git a/cpplapack-r198/.svn/pristine/d4/d4e1dd542a1ae4b7858ba69d989403e9d1be4133.svn-base b/cpplapack-r198/.svn/pristine/d4/d4e1dd542a1ae4b7858ba69d989403e9d1be4133.svn-base
deleted file mode 100644
index 77751e9..0000000
--- a/cpplapack-r198/.svn/pristine/d4/d4e1dd542a1ae4b7858ba69d989403e9d1be4133.svn-base
+++ /dev/null
@@ -1,18 +0,0 @@
-//=============================================================================
-/*! _zcovector*double operator */
-inline _zcovector operator*(const _zcovector& vec, const double& d)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT inc =1;
-  zdscal_(&vec.l, &d, vec.array, &inc);
-  return vec;
-}
-
-//=============================================================================
-/*! _zcovector/double operator */
-inline _zcovector operator/(const _zcovector& vec, const double& d)
-{CPPL_VERBOSE_REPORT;
-  double dinv =1./d;
-  CPPL_INT inc =1;
-  zdscal_(&vec.l, &dinv, vec.array, &inc);
-  return vec;
-}
diff --git a/cpplapack-r198/.svn/pristine/d5/d52e59149d20daf3ef105f177d63dca56162943a.svn-base b/cpplapack-r198/.svn/pristine/d5/d52e59149d20daf3ef105f177d63dca56162943a.svn-base
deleted file mode 100644
index bed3765..0000000
--- a/cpplapack-r198/.svn/pristine/d5/d52e59149d20daf3ef105f177d63dca56162943a.svn-base
+++ /dev/null
@@ -1,12 +0,0 @@
-//=============================================================================
-/*! double*zrovector operator */
-inline _zrovector operator*(const double& d, const zrovector& vec)
-{CPPL_VERBOSE_REPORT;
-  zrovector newvec(vec.l);
-  
-  for(CPPL_INT i=0; i<vec.l; i++){
-    newvec.array[i] =d*vec.array[i];
-  }
-  
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/d5/d5a6fb7b7023c72eabd74f8e47bcb2222604fa49.svn-base b/cpplapack-r198/.svn/pristine/d5/d5a6fb7b7023c72eabd74f8e47bcb2222604fa49.svn-base
deleted file mode 100644
index c5674ad..0000000
--- a/cpplapack-r198/.svn/pristine/d5/d5a6fb7b7023c72eabd74f8e47bcb2222604fa49.svn-base
+++ /dev/null
@@ -1,87 +0,0 @@
-//=============================================================================
-/*! _dgbmatrix+_dsymatrix operator */
-inline _dgematrix operator+(const _dgbmatrix& matA, const _dsymatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.n || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  dgematrix newmat(matB.n, matB.n);
-  for(CPPL_INT i=0; i<matA.m; i++){
-    for(CPPL_INT j=0; j<matB.n; j++){
-      newmat(i,j) = matB(i,j);
-    }
-    const CPPL_INT jmax =std::min(matA.n,i+matA.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matA.kl); j<jmax; j++){
-      newmat(i,j) += matA(i,j);
-    }
-  }
-  
-  matA.destroy();
-  matB.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _dgbmatrix-_dsymatrix operator */
-inline _dgematrix operator-(const _dgbmatrix& matA, const _dsymatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.n || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat(matB.n, matB.n);
-  for(CPPL_INT i=0; i<newmat.m; i++){
-    for(CPPL_INT j=0; j<newmat.n; j++){
-      newmat(i,j) = -matB(i,j);
-    }
-    const CPPL_INT jmax =std::min(matA.n,i+matA.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matA.kl); j<jmax; j++){
-      newmat(i,j) += matA(i,j);
-    }
-  }
-  
-  matA.destroy();
-  matB.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _dgbmatrix*_dsymatrix operator */
-inline _dgematrix operator*(const _dgbmatrix& matA, const _dsymatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat( matA.m, matB.n );
-  newmat.zero();
-  
-  for(CPPL_INT i=0; i<newmat.m; i++){
-    for(CPPL_INT j=0; j<newmat.n; j++){
-      const CPPL_INT kmax =std::min(matA.n,i+matA.ku+1);
-      for(CPPL_INT k=std::max(CPPL_INT(0),i-matA.kl); k<kmax; k++){
-        newmat(i,j) += matA(i,k)*matB(k,j);
-      }
-    }
-  }
-  
-  matA.destroy();
-  matB.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/d6/d6098062a05b606fee3c49378e1470d3814a7f04.svn-base b/cpplapack-r198/.svn/pristine/d6/d6098062a05b606fee3c49378e1470d3814a7f04.svn-base
deleted file mode 100644
index d620786..0000000
--- a/cpplapack-r198/.svn/pristine/d6/d6098062a05b606fee3c49378e1470d3814a7f04.svn-base
+++ /dev/null
@@ -1,36 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int M(4);
-  
-  CPPL::zcovector x(M);
-  for(int i=0; i<x.l; i++){
-    x(i) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-  }
-  
-  cout << "x =\n" << x << endl;
-  cout << "t(x) =\n" << CPPL::t(x) << endl;
-  cout << "conj(x) =\n" << CPPL::conj(x) << endl;
-  cout << "conjt(x) =\n" << CPPL::conjt(x) << endl;
-  cout << "hadamerd(x,x) =\n" << hadamerd(x,x) << endl;
-  cout << "nrm2(x) =\n" << CPPL::nrm2(x) << endl;
-  cout << "idamax(x)=\n" << CPPL::idamax(x) << endl;
-  cout << "damax(x)=\n" << CPPL::damax(x) << endl;
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/d6/d650cd1ac6b52534fa64e42285749b3633848eaf.svn-base b/cpplapack-r198/.svn/pristine/d6/d650cd1ac6b52534fa64e42285749b3633848eaf.svn-base
deleted file mode 100644
index 60a54e9..0000000
--- a/cpplapack-r198/.svn/pristine/d6/d650cd1ac6b52534fa64e42285749b3633848eaf.svn-base
+++ /dev/null
@@ -1,18 +0,0 @@
-//=============================================================================
-/*! _zrovector*double operator */
-inline _zrovector operator*(const _zrovector& vec, const double& d)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT inc =1;
-  zdscal_(&vec.l, &d, vec.array, &inc);
-  return vec;
-}
-
-//=============================================================================
-/*! _zrovector/double operator */
-inline _zrovector operator/(const _zrovector& vec, const double& d)
-{CPPL_VERBOSE_REPORT;
-  double dinv =1./d;
-  CPPL_INT inc =1;
-  zdscal_(&vec.l, &dinv, vec.array, &inc);
-  return vec;
-}
diff --git a/cpplapack-r198/.svn/pristine/d6/d652a916952a1984f4a7ca525c981aec8a66f7a4.svn-base b/cpplapack-r198/.svn/pristine/d6/d652a916952a1984f4a7ca525c981aec8a66f7a4.svn-base
deleted file mode 100644
index 1497e36..0000000
--- a/cpplapack-r198/.svn/pristine/d6/d652a916952a1984f4a7ca525c981aec8a66f7a4.svn-base
+++ /dev/null
@@ -1,281 +0,0 @@
-%TGIF 4.1.43-QPL
-state(0,37,100.000,0,0,0,4,1,9,1,1,1,0,1,0,1,1,'Helvetica',0,103680,0,0,0,10,0,0,1,1,0,16,0,0,1,1,1,1,1485,1050,0,0,2880,1).
-%
-% @(#)$Header$
-% %W%
-%
-unit("1 pixel/pixel").
-color_info(30,65535,0,[
-	"magenta", 65535, 0, 65535, 65535, 0, 65535, 1,
-	"red", 65535, 0, 0, 65535, 0, 0, 1,
-	"green", 0, 65535, 0, 0, 65535, 0, 1,
-	"blue", 0, 0, 65535, 0, 0, 65535, 1,
-	"yellow", 65535, 65535, 0, 65535, 65535, 0, 1,
-	"pink", 65535, 49344, 52171, 65535, 49344, 52171, 1,
-	"cyan", 0, 65535, 65535, 0, 65535, 65535, 1,
-	"CadetBlue", 24415, 40606, 41120, 24415, 40606, 41120, 1,
-	"white", 65535, 65535, 65535, 65535, 65535, 65535, 1,
-	"black", 0, 0, 0, 0, 0, 0, 1,
-	"#ff4d4d", 65535, 19789, 19789, 65280, 19712, 19712, 1,
-	"#ff9c4d", 65535, 40092, 19789, 65280, 39936, 19712, 1,
-	"#ffec4d", 65535, 60652, 19789, 65280, 60416, 19712, 1,
-	"#c4ff4d", 50372, 65535, 19789, 50176, 65280, 19712, 1,
-	"#75ff4d", 30069, 65535, 19789, 29952, 65280, 19712, 1,
-	"#4dff75", 19789, 65535, 30069, 19712, 65280, 29952, 1,
-	"#4dffc4", 19789, 65535, 50372, 19712, 65280, 50176, 1,
-	"#4decff", 19789, 60652, 65535, 19712, 60416, 65280, 1,
-	"#4d9cff", 19789, 40092, 65535, 19712, 39936, 65280, 1,
-	"#4d4dff", 19789, 19789, 65535, 19712, 19712, 65280, 1,
-	"#fffffe", 65535, 65535, 65278, 65280, 65280, 65024, 1,
-	"#e0e0e0", 57568, 57568, 57568, 57344, 57344, 57344, 1,
-	"#d0d0d0", 53456, 53456, 53456, 53248, 53248, 53248, 1,
-	"#c0c0c0", 49344, 49344, 49344, 49152, 49152, 49152, 1,
-	"#b0b0b0", 45232, 45232, 45232, 45056, 45056, 45056, 1,
-	"#a0a0a0", 41120, 41120, 41120, 40960, 40960, 40960, 1,
-	"#808080", 32896, 32896, 32896, 32768, 32768, 32768, 1,
-	"#404040", 16448, 16448, 16448, 16384, 16384, 16384, 1,
-	"#101010", 4112, 4112, 4112, 4096, 4096, 4096, 1,
-	"#000001", 0, 0, 257, 0, 0, 256, 1
-]).
-script_frac("0.6").
-fg_bg_colors('black','white').
-dont_reencode("FFDingbests:ZapfDingbats").
-page(1,"",1,'').
-box('black','',652,128,708,164,0,1,1,80,0,0,0,0,0,'1',0,[
-]).
-box('black','',552,128,608,164,0,1,1,170,0,0,0,0,0,'1',0,[
-]).
-box('black','',496,128,552,164,5,1,1,168,0,0,0,0,0,'1',1,[
-]).
-box('black','',440,128,496,164,5,1,1,164,0,0,0,0,0,'1',1,[
-]).
-box('black','',340,128,396,164,5,1,1,154,0,0,0,0,0,'1',1,[
-]).
-box('black','',240,128,296,164,5,1,1,127,0,0,0,0,0,'1',1,[
-]).
-box('black','',184,128,240,164,5,1,1,126,0,0,0,0,0,'1',1,[
-]).
-box('black','',128,128,184,164,5,1,1,122,0,0,0,0,0,'1',1,[
-]).
-text('black',156,134,1,1,1,10,22,36,18,4,0,0,0,0,2,10,22,0,0,"",0,0,0,0,152,'',[
-minilines(10,22,0,0,1,0,0,[
-mini_line(10,18,4,0,0,0,[
-str_block(0,10,18,4,0,-1,0,0,0,[
-str_seg('black','Helvetica',0,103680,10,18,4,0,-1,0,0,0,0,0,
-	"0")])
-])
-])]).
-text('black',212,134,1,1,1,10,22,38,18,4,0,0,0,0,2,10,22,0,0,"",0,0,0,0,152,'',[
-minilines(10,22,0,0,1,0,0,[
-mini_line(10,18,4,0,0,0,[
-str_block(0,10,18,4,0,-3,0,0,0,[
-str_seg('black','Helvetica',0,103680,10,18,4,0,-3,0,0,0,0,0,
-	"1")])
-])
-])]).
-text('black',268,134,1,1,1,10,22,45,18,4,0,0,0,0,2,10,22,0,0,"",0,0,0,0,152,'',[
-minilines(10,22,0,0,1,0,0,[
-mini_line(10,18,4,0,0,0,[
-str_block(0,10,18,4,0,-1,0,0,0,[
-str_seg('black','Helvetica',0,103680,10,18,4,0,-1,0,0,0,0,0,
-	"2")])
-])
-])]).
-text('black',368,134,1,1,1,10,22,50,18,4,0,0,0,0,2,10,22,0,0,"",0,0,0,0,152,'',[
-minilines(10,22,0,0,1,0,0,[
-mini_line(10,18,4,0,0,0,[
-str_block(0,10,18,4,0,-1,0,0,0,[
-str_seg('black','Helvetica',0,103680,10,18,4,0,-1,0,0,0,0,0,
-	"c")])
-])
-])]).
-text('black',468,134,1,1,1,42,22,87,18,4,0,0,0,0,2,42,22,0,0,"",0,0,0,0,152,'',[
-minilines(42,22,0,0,1,0,0,[
-mini_line(42,18,4,0,0,0,[
-str_block(0,42,18,4,0,-1,0,0,0,[
-str_seg('black','Helvetica',0,103680,42,18,4,0,-1,0,0,0,0,0,
-	"vol-2")])
-])
-])]).
-text('black',680,134,1,1,1,47,22,96,18,4,0,0,0,0,2,47,22,0,0,"",0,0,0,0,152,'',[
-minilines(47,22,0,0,1,0,0,[
-mini_line(47,18,4,0,0,0,[
-str_block(0,47,18,4,0,-3,0,0,0,[
-str_seg('black','Helvetica',0,103680,47,18,4,0,-3,0,0,0,0,0,
-	"cap-1")])
-])
-])]).
-oval('black','',304,144,308,148,1,3,1,135,0,0,0,0,0,'3',0,[
-]).
-oval('black','',316,144,320,148,1,3,1,148,0,0,0,0,0,'3',0,[
-]).
-oval('black','',328,144,332,148,1,3,1,149,0,0,0,0,0,'3',0,[
-]).
-oval('black','',404,144,408,148,1,3,1,160,0,0,0,0,0,'3',0,[
-]).
-oval('black','',416,144,420,148,1,3,1,161,0,0,0,0,0,'3',0,[
-]).
-oval('black','',428,144,432,148,1,3,1,162,0,0,0,0,0,'3',0,[
-]).
-text('black',524,134,1,1,1,42,22,167,18,4,0,0,0,0,2,42,22,0,0,"",0,0,0,0,152,'',[
-minilines(42,22,0,0,1,0,0,[
-mini_line(42,18,4,0,0,0,[
-str_block(0,42,18,4,0,-3,0,0,0,[
-str_seg('black','Helvetica',0,103680,42,18,4,0,-3,0,0,0,0,0,
-	"vol-1")])
-])
-])]).
-text('black',580,134,1,1,1,25,22,169,18,4,0,0,0,0,2,25,22,0,0,"",0,0,0,0,152,'',[
-minilines(25,22,0,0,1,0,0,[
-mini_line(25,18,4,0,0,0,[
-str_block(0,25,18,4,0,-1,0,0,0,[
-str_seg('black','Helvetica',0,103680,25,18,4,0,-1,0,0,0,0,0,
-	"vol")])
-])
-])]).
-oval('black','',616,144,620,148,1,3,1,181,0,0,0,0,0,'3',0,[
-]).
-oval('black','',628,144,632,148,1,3,1,182,0,0,0,0,0,'3',0,[
-]).
-oval('black','',640,144,644,148,1,3,1,183,0,0,0,0,0,'3',0,[
-]).
-text('black',80,182,1,1,1,55,22,421,18,4,0,0,0,0,2,55,22,0,0,"",0,0,0,1,200,'',[
-minilines(55,22,0,0,1,0,0,[
-mini_line(55,18,4,0,0,0,[
-str_block(0,55,18,4,0,-2,0,0,0,[
-str_seg('black','Helvetica',0,103680,55,18,4,0,-2,0,0,0,0,0,
-	"del(i,j);")])
-])
-])]).
-box('black','',652,232,708,268,0,1,1,453,0,0,0,0,0,'1',0,[
-]).
-box('black','',552,232,608,268,0,1,1,454,0,0,0,0,0,'1',0,[
-]).
-box('black','',496,232,552,268,0,1,1,455,0,0,0,0,0,'1',1,[
-]).
-box('black','',440,232,496,268,5,1,1,456,0,0,0,0,0,'1',1,[
-]).
-box('black','',340,232,396,268,5,1,1,457,0,0,0,0,0,'1',1,[
-]).
-box('black','',240,232,296,268,5,1,1,458,0,0,0,0,0,'1',1,[
-]).
-box('black','',184,232,240,268,5,1,1,459,0,0,0,0,0,'1',1,[
-]).
-box('black','',128,232,184,268,5,1,1,460,0,0,0,0,0,'1',1,[
-]).
-text('black',156,238,1,1,1,10,22,461,18,4,0,0,0,0,2,10,22,0,0,"",0,0,0,0,256,'',[
-minilines(10,22,0,0,1,0,0,[
-mini_line(10,18,4,0,0,0,[
-str_block(0,10,18,4,0,-1,0,0,0,[
-str_seg('black','Helvetica',0,103680,10,18,4,0,-1,0,0,0,0,0,
-	"0")])
-])
-])]).
-text('black',212,238,1,1,1,10,22,462,18,4,0,0,0,0,2,10,22,0,0,"",0,0,0,0,256,'',[
-minilines(10,22,0,0,1,0,0,[
-mini_line(10,18,4,0,0,0,[
-str_block(0,10,18,4,0,-3,0,0,0,[
-str_seg('black','Helvetica',0,103680,10,18,4,0,-3,0,0,0,0,0,
-	"1")])
-])
-])]).
-text('black',268,238,1,1,1,10,22,463,18,4,0,0,0,0,2,10,22,0,0,"",0,0,0,0,256,'',[
-minilines(10,22,0,0,1,0,0,[
-mini_line(10,18,4,0,0,0,[
-str_block(0,10,18,4,0,-1,0,0,0,[
-str_seg('black','Helvetica',0,103680,10,18,4,0,-1,0,0,0,0,0,
-	"2")])
-])
-])]).
-text('black',368,238,1,1,1,10,22,464,18,4,0,0,0,0,2,10,22,0,0,"",0,0,0,0,256,'',[
-minilines(10,22,0,0,1,0,0,[
-mini_line(10,18,4,0,0,0,[
-str_block(0,10,18,4,0,-1,0,0,0,[
-str_seg('black','Helvetica',0,103680,10,18,4,0,-1,0,0,0,0,0,
-	"c")])
-])
-])]).
-text('black',468,238,1,1,1,42,22,465,18,4,0,0,0,0,2,42,22,0,0,"",0,0,0,0,256,'',[
-minilines(42,22,0,0,1,0,0,[
-mini_line(42,18,4,0,0,0,[
-str_block(0,42,18,4,0,-3,0,0,0,[
-str_seg('black','Helvetica',0,103680,42,18,4,0,-3,0,0,0,0,0,
-	"vol-1")])
-])
-])]).
-text('black',680,238,1,1,1,47,22,466,18,4,0,0,0,0,2,47,22,0,0,"",0,0,0,0,256,'',[
-minilines(47,22,0,0,1,0,0,[
-mini_line(47,18,4,0,0,0,[
-str_block(0,47,18,4,0,-3,0,0,0,[
-str_seg('black','Helvetica',0,103680,47,18,4,0,-3,0,0,0,0,0,
-	"cap-1")])
-])
-])]).
-oval('black','',304,248,308,252,1,3,1,467,0,0,0,0,0,'3',0,[
-]).
-oval('black','',316,248,320,252,1,3,1,468,0,0,0,0,0,'3',0,[
-]).
-oval('black','',328,248,332,252,1,3,1,469,0,0,0,0,0,'3',0,[
-]).
-oval('black','',404,248,408,252,1,3,1,470,0,0,0,0,0,'3',0,[
-]).
-oval('black','',416,248,420,252,1,3,1,471,0,0,0,0,0,'3',0,[
-]).
-oval('black','',428,248,432,252,1,3,1,472,0,0,0,0,0,'3',0,[
-]).
-text('black',524,238,1,1,1,25,22,473,18,4,0,0,0,0,2,25,22,0,0,"",0,0,0,0,256,'',[
-minilines(25,22,0,0,1,0,0,[
-mini_line(25,18,4,0,0,0,[
-str_block(0,25,18,4,0,-1,0,0,0,[
-str_seg('black','Helvetica',0,103680,25,18,4,0,-1,0,0,0,0,0,
-	"vol")])
-])
-])]).
-text('black',580,238,1,1,1,45,22,474,18,4,0,0,0,0,2,45,22,0,0,"",0,0,0,0,256,'',[
-minilines(45,22,0,0,1,0,0,[
-mini_line(45,18,4,0,0,0,[
-str_block(0,45,18,4,0,-3,0,0,0,[
-str_seg('black','Helvetica',0,103680,45,18,4,0,-3,0,0,0,0,0,
-	"vol+1")])
-])
-])]).
-oval('black','',616,248,620,252,1,3,1,475,0,0,0,0,0,'3',0,[
-]).
-oval('black','',628,248,632,252,1,3,1,476,0,0,0,0,0,'3',0,[
-]).
-oval('black','',640,248,644,252,1,3,1,477,0,0,0,0,0,'3',0,[
-]).
-text('black',260,182,1,1,1,165,22,479,18,4,0,0,0,0,2,165,22,0,0,"",0,0,0,1,200,'',[
-minilines(165,22,0,0,1,0,0,[
-mini_line(165,18,4,0,0,0,[
-str_block(0,165,18,4,0,0,0,0,0,[
-str_seg('black','Helvetica',0,103680,165,18,4,0,0,0,0,0,0,0,
-	"automatically \"vol--;\"")])
-])
-])]).
-poly('black','',4,[
-	524,232,480,208,368,208,368,232],1,2,1,492,0,0,0,0,0,0,0,'2',1,0,
-    "0","",[
-    0,10,4,0,'10','4','0'],[0,10,4,0,'10','4','0'],[
-]).
-text('black',548,190,2,1,1,100,44,494,18,4,0,0,0,0,2,100,44,0,0,"",0,0,0,1,208,'',[
-minilines(100,44,0,0,1,0,0,[
-mini_line(100,18,4,0,0,0,[
-str_block(0,100,18,4,0,-1,0,0,0,[
-str_seg('black','Helvetica',0,103680,100,18,4,0,-1,0,0,0,0,0,
-	"assign value")])
-]),
-mini_line(56,18,4,0,0,0,[
-str_block(0,56,18,4,0,-1,0,0,0,[
-str_seg('black','Helvetica',0,103680,56,18,4,0,-1,0,0,0,0,0,
-	"at here")])
-])
-])]).
-text('black',132,206,1,1,1,174,22,545,18,4,0,0,0,0,2,174,22,0,0,"",0,0,0,1,224,'',[
-minilines(174,22,0,0,1,0,0,[
-mini_line(174,18,4,0,0,0,[
-str_block(0,174,18,4,0,-1,0,0,0,[
-str_seg('black','Helvetica',0,103680,174,18,4,0,-1,0,0,0,0,0,
-	"(if (i,j) means array[c])")])
-])
-])]).
diff --git a/cpplapack-r198/.svn/pristine/d6/d6b25a095d47fd3251e36e7eb17c129f0fa9eea5.svn-base b/cpplapack-r198/.svn/pristine/d6/d6b25a095d47fd3251e36e7eb17c129f0fa9eea5.svn-base
deleted file mode 100644
index 2b9ebd2..0000000
--- a/cpplapack-r198/.svn/pristine/d6/d6b25a095d47fd3251e36e7eb17c129f0fa9eea5.svn-base
+++ /dev/null
@@ -1,161 +0,0 @@
-//=============================================================================
-/*! dgematrix+=_dgbmatrix operator */
-inline dgematrix& dgematrix::operator+=(const _dgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.n || m!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << m << "x" << n << ") += (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<mat.m; i++){
-    const CPPL_INT jmax =std::min(n,i+mat.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-mat.kl); j<jmax; j++){
-      operator()(i,j) += mat(i,j);
-    }
-  }
-  
-  mat.destroy();
-  return *this;
-}
-
-//=============================================================================
-/*! dgematrix-=_dgbmatrix operator */
-inline dgematrix& dgematrix::operator-=(const _dgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.n || m!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << m << "x" << n << ") -= (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<mat.m; i++){
-    const CPPL_INT jmax =std::min(n,i+mat.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-mat.kl); j<jmax; j++){
-      operator()(i,j) -= mat(i,j);
-    }
-  }
-  
-  mat.destroy();
-  return *this;
-}
-//=============================================================================
-/*! dgematrix*=_dgbmatrix operator */
-inline dgematrix& dgematrix::operator*=(const _dgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << m << "x" << n << ") *= (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat(m,mat.n);
-  newmat.zero();
-  
-  for(CPPL_INT i=0; i<newmat.m; i++){
-    for(CPPL_INT j=0; j<newmat.n; j++){
-      const CPPL_INT kmax =std::min(mat.m,j+mat.kl+1);
-      for(CPPL_INT k=std::max(CPPL_INT(0),j-mat.ku); k<kmax; k++){
-        newmat(i,j) += operator()(i,k)*mat(k,j);
-      }
-    }
-  }
-  
-  swap(*this, newmat);
-  mat.destroy();
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! dgematrix+_dgbmatrix operator */
-inline _dgematrix operator+(const dgematrix& matA, const _dgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat(matA);
-  
-  for(CPPL_INT i=0; i<matB.m; i++){
-    const CPPL_INT jmax =std::min(matB.n,i+matB.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matB.kl); j<jmax; j++){
-      newmat(i,j) += matB(i,j);
-    }
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! dgematrix-_dgbmatrix operator */
-inline _dgematrix operator-(const dgematrix& matA, const _dgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat(matA);
-  
-  for(CPPL_INT i=0; i<matB.m; i++){
-    const CPPL_INT jmax =std::min(matB.n,i+matB.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matB.kl); j<jmax; j++){
-      newmat(i,j) -= matB(i,j);
-    }
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! dgematrix*_dgbmatrix operator */
-inline _dgematrix operator*(const dgematrix& matA, const _dgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat( matA.m, matB.n );
-  newmat.zero();
-  
-  for(CPPL_INT i=0; i<newmat.m; i++){
-    for(CPPL_INT j=0; j<newmat.n; j++){
-      const CPPL_INT kmax =std::min(matB.m,j+matB.kl+1);
-      for(CPPL_INT k=std::max(CPPL_INT(0),j-matB.ku); k<kmax; k++){
-        newmat(i,j) += matA(i,k)*matB(k,j);
-      }
-    }
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/d7/d71259569e9b913155b32b3add962e1afa7121e1.svn-base b/cpplapack-r198/.svn/pristine/d7/d71259569e9b913155b32b3add962e1afa7121e1.svn-base
deleted file mode 100644
index fbd4471..0000000
--- a/cpplapack-r198/.svn/pristine/d7/d71259569e9b913155b32b3add962e1afa7121e1.svn-base
+++ /dev/null
@@ -1,86 +0,0 @@
-//=============================================================================
-/*! operator() for const object */
-inline comple _zhsmatrix::operator()(const CPPL_INT& i, const CPPL_INT& j) const
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || j<0 || n<=i || n<=j ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the matrix size." << std::endl
-              << "Your input is (" << i << "," << j << "), whereas the matrix size is " << n << "x" << n << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //// search (i,j) component ////
-  const CPPL_INT ii(std::max(i,j)), jj(std::min(i,j));
-  
-  const std::vector<CPPL_INT>::const_iterator line_ii_end =line[ii].end();
-  for(std::vector<CPPL_INT>::const_iterator p=line[ii].begin(); p!=line_ii_end; p++){
-    if(data[*p].j==jj){
-      if( i>j ){ return data[*p].v; }//ii=i
-      else{      return std::conj(data[*p].v); }//ii=j
-    }
-  }
-  
-  //// (i,j) component was not found ////
-  return comple(0.0,0.0);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-inline std::ostream& operator<<(std::ostream& s, const _zhsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<mat.n; i++){
-    for(CPPL_INT j=0; j<mat.n; j++){
-      if( i >= j ){
-        std::vector<CPPL_INT>::iterator q;
-        const std::vector<CPPL_INT>::iterator mat_line_i_end =mat.line[i].end();
-        for(q=mat.line[i].begin(); q!=mat_line_i_end; q++){
-          if( mat.data[*q].j==j ){ break; }
-        }
-        if(q!=mat_line_i_end){ s << " " << mat.data[*q].v << " "; }
-        else{ s << " x "; }
-      }
-      else{//i<j
-        std::vector<CPPL_INT>::iterator q;
-        const std::vector<CPPL_INT>::iterator mat_line_i_end =mat.line[i].end();
-        for(q=mat.line[i].begin(); q!=mat_line_i_end; q++){
-          if( mat.data[*q].j==j ){ break; }
-        }
-        if(q!=mat_line_i_end){ s << "{" << mat.data[*q].v << "}"; }
-        else{ s << "{x}"; }
-      }
-    }
-    s << std::endl;
-  }
-  
-  mat.destroy();
-  return s;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-inline void _zhsmatrix::write(const char* filename) const
-{CPPL_VERBOSE_REPORT;
-  std::ofstream ofs(filename, std::ios::trunc);
-  ofs.setf(std::cout.flags());
-  ofs.precision(std::cout.precision());
-  ofs.width(std::cout.width());
-  ofs.fill(std::cout.fill());
-  
-  ofs << "#zhsmatrix " << n << " " << data.size() << std::endl;
-  
-  const std::vector<zcomponent>::const_iterator data_end =data.end();
-  for(std::vector<zcomponent>::const_iterator it=data.begin(); it!=data_end; it++){
-    ofs << it->i << " " << it->j << " " << it->v << std::endl;
-  }
-  
-  ofs.close();
-  destroy();
-}
diff --git a/cpplapack-r198/.svn/pristine/d7/d78ca33b8cdfd3a8ca7a85e15ef027aebbfa2eab.svn-base b/cpplapack-r198/.svn/pristine/d7/d78ca33b8cdfd3a8ca7a85e15ef027aebbfa2eab.svn-base
deleted file mode 100644
index 9f79789..0000000
--- a/cpplapack-r198/.svn/pristine/d7/d78ca33b8cdfd3a8ca7a85e15ef027aebbfa2eab.svn-base
+++ /dev/null
@@ -1,52 +0,0 @@
-###############################################################################
-##                               Makefile.g++                                ##
-###############################################################################
-
-CXX = g++
-
-######## FLAGS ########
-FLAGS += -O2 -funroll-loops -ffast-math #-mfpmath=sse
-FLAGS += -fomit-frame-pointer #-ftree-vectorizer-verbose=5
-#FLAGS = -march=core2 -msse4.1
-#FLAGS += -std=c++0x # -std=c++98 #
-##FLAGS += -fprefetch-loop-arrays -fforce-addr -march=pentium4 -ftree-vectorize -funsafe-loop-optimizations -Wunsafe-loop-optimizations
-##FLAGS += -malign-double
-#FLAGS += -fopenmp
-
-######## LFLAGS ########
-LFLAGS = $(FLAGS)
-#LFLAGS += -static
-
-######## CFLAGS ########
-CFLAGS = $(FLAGS)
-##CFLAGS += --param large-function-growth=99999 --param max-inline-insns-single=99999 --param inline-unit-growth=99999 -Winline
-####CFLAGS += -fimplement-inlines -finline-limit=0 --param large-function-growth=0 --param max-inline-insns-single=0 --param inline-unit-growth=0
-CFLAGS += -Wall -Wno-unknown-pragmas -Wextra -ftree-vectorizer-verbose=0
-
-######## others ########
-INCLUDE_DIRS = -I./  -I$(HOME)/local/cpplapack/include
-#LIB_DIRS = -L/usr/lib
-LIB_DIRS =
-#LIBS = /usr/lib/sse2/liblapack.a /usr/lib/sse2/libblas.a -lm -lgfortran
-LIBS = -llapack -lblas -lgfortran -lm
-LIBS += -lboost_filesystem
-MACROS = -DCPPL_SECTOR_SIZE=1000000
-
-#############################
-######### profiling #########
-#############################
-#CFLAGS += -pg #-g
-#LFLAGS += -pg #-g
-#LIBS = $(HOME)/opt/lapack-3.1.1/lapack_gprof.a $(HOME)/opt/lapack-3.1.1/blas_gprof.a -lm -lgfortran
-#LIBS = $(HOME)/opt/lapack-3.1.1/lapack_gprof.a $(HOME)/opt/lapack-3.1.1/blas_gprof.a $(HOME)/opt/STLport-5.1.3/lib/libstlport_gprof.a -lm -lgfortran
-
-#############################
-######### debugging #########
-#############################
-ifdef DEBUG
-FLAGS = -g -O0
-CFLAGS = $(FLAGS) -Wall -Wno-unknown-pragmas -Wextra -fstack-protector-all -fbounds-check
-LFLAGS = $(FLAGS)
-##LIBS += -lefence
-MACROS = #-DCPPL_DEBUG ####-DCPPL_VERBOSE
-endif
diff --git a/cpplapack-r198/.svn/pristine/d7/d7cd71d16fb3429777518f44a352c98f3e04e8e1.svn-base b/cpplapack-r198/.svn/pristine/d7/d7cd71d16fb3429777518f44a352c98f3e04e8e1.svn-base
deleted file mode 100644
index bbc8d0d..0000000
--- a/cpplapack-r198/.svn/pristine/d7/d7cd71d16fb3429777518f44a352c98f3e04e8e1.svn-base
+++ /dev/null
@@ -1,48 +0,0 @@
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int M(4), N(3);
-  
-  //// make zgematrix A ////
-  CPPL::zgematrix A(M,N);
-  for(int i=0; i<A.m; i++){ for(int j=0; j<A.n; j++){
-    A(i,j) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-  }}
-  
-  //// print A in two ways ////
-  cout << "A =\n" << A << endl;
-  for(int i=0; i<A.m; i++){ for(int j=0; j<A.n; j++){
-    cout << "A(" << i << "," << j << ") =" << A(i,j) << endl;
-  }}
-  
-  //// make A 10 times ////
-  cout << "#### A*=10.; ####" << endl;
-  A*=10.;
-  
-  //// make zgematrix B ////
-  CPPL::zgematrix B(A);
-  cout << "B =\n" << B << endl;
-  for(int i=0; i<B.m; i++){ for(int j=0; j<B.n; j++){
-    cout << "B(" << i << "," << j << ") =" << B(i,j) << endl;
-  }}
-  
-  //// print A+B ////
-  cout << "A+B=\n" << A+B << endl;
-  
-  //// write/read ////
-  B.write( "tmp.txt" );
-  CPPL::zgematrix C;
-  C.read( "tmp.txt" );
-  cout << "C-B =\n" << C-B << "<-Should be zero." << endl;
-  
-  return 0;
-}
diff --git a/cpplapack-r198/.svn/pristine/d8/d82472bedcbbc9e97dd5e8887c6ff72c05fd9227.svn-base b/cpplapack-r198/.svn/pristine/d8/d82472bedcbbc9e97dd5e8887c6ff72c05fd9227.svn-base
deleted file mode 100644
index f8b3996..0000000
--- a/cpplapack-r198/.svn/pristine/d8/d82472bedcbbc9e97dd5e8887c6ff72c05fd9227.svn-base
+++ /dev/null
@@ -1,13 +0,0 @@
-//=============================================================================
-/*! double*zhsmatrix operator */
-inline _zhsmatrix operator*(const double& d, const zhsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  zhsmatrix newmat =mat;
-  
-  const std::vector<zcomponent>::iterator newmat_data_end =newmat.data.end();
-  for(std::vector<zcomponent>::iterator it=newmat.data.begin(); it!=newmat_data_end; it++){
-    it->v *=d;
-  }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/d8/d8360ad672e2cef191a70818441297a72b775739.svn-base b/cpplapack-r198/.svn/pristine/d8/d8360ad672e2cef191a70818441297a72b775739.svn-base
deleted file mode 100644
index b241eb7..0000000
--- a/cpplapack-r198/.svn/pristine/d8/d8360ad672e2cef191a70818441297a72b775739.svn-base
+++ /dev/null
@@ -1,30 +0,0 @@
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-#include "dsysv_check.hpp"
-#include "dsyev_check.hpp"
-#include "dsygv_check.hpp"
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  //////// dsysv ////////
-  dsysv_check_vector();
-  dsysv_check_matrix();
-  
-  //////// dsyev ////////
-  dsyev_check_value();
-  dsyev_check_right();
-  dsyev_check_left();
-  
-  //////// dsygv ////////
-  dsygv_check_value();
-  dsygv_check_both();
-  
-  return 0;
-}
diff --git a/cpplapack-r198/.svn/pristine/d8/d849f69e82aab219b3659b1dfdb2ae3ddf315ddc.svn-base b/cpplapack-r198/.svn/pristine/d8/d849f69e82aab219b3659b1dfdb2ae3ddf315ddc.svn-base
deleted file mode 100644
index c04d705..0000000
--- a/cpplapack-r198/.svn/pristine/d8/d849f69e82aab219b3659b1dfdb2ae3ddf315ddc.svn-base
+++ /dev/null
@@ -1,71 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int M(4), N(4), KL(2), KU(1);
-  //int M(2), N(2), KL(0), KU(0);
-  
-  CPPL::zgbmatrix A(M,N,KL,KU);
-  for(int i=0; i<A.m; i++){
-    for(int j=std::max(int(0),i-A.kl); j<std::min(A.n,i+A.ku+1); j++){
-      A(i,j) =std::complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-    }
-  }
-  std::cout << "A =\n" << A << std::endl;
-  
-  CPPL::zgbmatrix B;
-  std::cout << "#### B=A; ####" << std::endl;
-  B=A;
-  std::cout << "B =\n" << B << std::endl;
-  
-  std::cout << "#### B+=A; ####" << std::endl;
-  B+=A;
-  std::cout << "B =\n" << B << std::endl;
-
-  std::cout << "#### B-=A; ####" << std::endl;
-  B-=A;
-  std::cout << "B =\n" << B << std::endl;
-  
-  std::cout << "A+B =\n" << A+B << std::endl;
-  std::cout << "A-B =\n" << A-B << std::endl;
-  std::cout << "A*B =\n" << A*B << std::endl;
-  
-  CPPL::zgbmatrix P(8,10,2,3), Q(10,9,1,3), R;
-  for(int i=0; i<P.m; i++){
-    for(int j=std::max(int(0),i-P.kl); j<std::min(P.n,i+P.ku+1); j++){
-      P(i,j) =std::complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-    }
-  }
-  for(int i=0; i<Q.m; i++){
-    for(int j=std::max(int(0),i-Q.kl); j<std::min(Q.n,i+Q.ku+1); j++){
-      Q(i,j) =std::complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-    }
-  }
-  CPPL::zgematrix P2( P.to_zgematrix() ), Q2( Q.to_zgematrix() );
-  std::cout << "P =\n" << P << std::endl;
-  std::cout << "P2 =\n" << P2 << std::endl;
-  std::cout << "Q =\n" << Q << std::endl;
-  std::cout << "Q2 =\n" << Q2 << std::endl;
-  std::cout << "P*Q =\n" << P*Q << std::endl;
-  std::cout << "P2*Q2 =\n" << P2*Q2 << std::endl;
-  std::cout << "P*Q - P2*Q2 =\n" << P*Q-P2*Q2 << std::endl;
-  
-  std::cout << "#### P*=Q; ####" << std::endl;
-  P*=Q;
-  std::cout << "P =\n" << P << std::endl;
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/d8/d8534f65186e929e6d9c326a084422512456d6c8.svn-base b/cpplapack-r198/.svn/pristine/d8/d8534f65186e929e6d9c326a084422512456d6c8.svn-base
deleted file mode 100644
index 117867d..0000000
--- a/cpplapack-r198/.svn/pristine/d8/d8534f65186e929e6d9c326a084422512456d6c8.svn-base
+++ /dev/null
@@ -1,51 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int M(5), N(3), CAP(4);
-  
-  CPPL::dgsmatrix A(M,N,CAP);
-  A.put(0,0, 1.);
-  A.put(3,2, 2.);
-  A.put(1,2, 3.);
-  A.put(4,1, 4.);
-  
-  std::cout << "A =\n" << A << std::endl;
-  for(std::vector<CPPL::dcomponent>::const_iterator it=A.data.begin(); it!=A.data.end(); it++){
-    std::cout << "A(" << it->i << "," << it->j << ") = " << it->v << std::endl;
-  }
-  
-  
-  //A.put(1,2, 4.5);
-  //A.add(1,2, 0.1);
-  //A.sub(1,2, 0.1);
-  //A.mult(1,2, 10.);
-  //A.div(1,2, 10.);
-  //A.del(1,2);
-  A.del(2);
-  std::cout << "A =\n" << A << std::endl;
-  std::cout << "t(A)=\n" << t(A) << std::endl;
-  
-  const CPPL::dgsmatrix B =A;
-  //// write/read ////
-  B.write( "tmp.txt" );
-  
-  CPPL::dgsmatrix C;
-  C.read( "tmp.txt" );
-  std::cout << "C-B =\n" << C-B << "<-Should be zero." << std::endl;
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/d8/d8c4c10be46bb8bd132c239ba44c716b0c13ffaf.svn-base b/cpplapack-r198/.svn/pristine/d8/d8c4c10be46bb8bd132c239ba44c716b0c13ffaf.svn-base
deleted file mode 100644
index 12e39d8..0000000
--- a/cpplapack-r198/.svn/pristine/d8/d8c4c10be46bb8bd132c239ba44c716b0c13ffaf.svn-base
+++ /dev/null
@@ -1,12 +0,0 @@
-//=============================================================================
-/*! cast to _zrovector */
-inline _zrovector drovector::to_zrovector() const
-{CPPL_VERBOSE_REPORT;
-  zrovector newvec(l);
-  
-  for(CPPL_INT i=0; i<l; i++){
-    newvec.array[i] =comple(array[i], 0.);
-  }
-  
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/d9/d933572afdba32c10612454d4b178f3538bb0368.svn-base b/cpplapack-r198/.svn/pristine/d9/d933572afdba32c10612454d4b178f3538bb0368.svn-base
deleted file mode 100644
index ed71f1e..0000000
--- a/cpplapack-r198/.svn/pristine/d9/d933572afdba32c10612454d4b178f3538bb0368.svn-base
+++ /dev/null
@@ -1,24 +0,0 @@
-//=============================================================================
-/*! _zhematrix*zcovector operator */
-inline _zcovector operator*(const _zhematrix& mat, const zcovector& vec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(mat.n!=vec.l){
-    ERROR_REPORT;
-    std::cerr << "These matrix and vector can not make a product." << std::endl
-              << "Your input was (" << mat.n << "x" << mat.n << ") * (" << vec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zcovector newvec(mat.n);
-  char uplo ='l';
-  comple alpha =comple(1.,0.);
-  CPPL_INT inc =1;
-  comple beta =comple(0.,0.);
-  
-  zhemv_( &uplo, &mat.n, &alpha, mat.array, &mat.n, vec.array, &inc, &beta, newvec.array, &inc );
-  
-  mat.destroy();
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/d9/d94bc41bcc033f8c41f10c01defeeba6e8cbe529.svn-base b/cpplapack-r198/.svn/pristine/d9/d94bc41bcc033f8c41f10c01defeeba6e8cbe529.svn-base
deleted file mode 100644
index 07703da..0000000
--- a/cpplapack-r198/.svn/pristine/d9/d94bc41bcc033f8c41f10c01defeeba6e8cbe529.svn-base
+++ /dev/null
@@ -1,86 +0,0 @@
-//=============================================================================
-//! Samll Real Double-precision Row Vector Class
-template<CPPL_INT l> class drovector_small
-{
-public:
-  ///////////////////////////////////////////////
-  /////////////////// objects ///////////////////
-  ///////////////////////////////////////////////
-  double array[l]; //!< 1D array to store vector data
-  
-  ///////////////////////////////////////////////
-  ///////////////// constructors ////////////////
-  ///////////////////////////////////////////////
-  inline drovector_small();
-  inline explicit drovector_small(const drovector&);
-  inline drovector_small(const double&, const double&);
-  inline drovector_small(const double&, const double&, const double&);
-  inline drovector_small(const double&, const double&, const double&, const double&);
-  inline ~drovector_small();
-  
-  ///////////////////////////////////////////////
-  ////////////////// functions //////////////////
-  ///////////////////////////////////////////////
-  //////// cast ////////
-  inline _drovector to_drovector() const;
-  
-  //////// io ////////
-  inline double& operator()(const CPPL_INT&);
-  inline double  operator()(const CPPL_INT&) const;
-  inline drovector_small<l>& set(const CPPL_INT&, const double&);
-  template<CPPL_INT _l> inline friend std::ostream& operator<<(std::ostream&, const drovector_small<_l>&);
-  inline void read(const char* filename);
-  inline void write(const char* filename) const;
-  
-  //////// calc ////////
-#ifndef _MSC_VER
-  template<CPPL_INT _l> inline friend dcovector_small<_l> t(const drovector_small<_l>&);
-  template<CPPL_INT _l> inline friend double nrm2(const drovector_small<_l>&);
-  template<CPPL_INT _l> inline friend CPPL_INT idamax(const drovector_small<_l>&);
-  template<CPPL_INT _l> inline friend double damax(const drovector_small<_l>&);
-#endif//_MSC_VER
-  
-  //////// misc ////////
-  inline drovector_small<l>& zero();
-  
-  ///////////////////////////////////////////////
-  ///////////// numerical operators /////////////
-  ///////////////////////////////////////////////
-#ifndef _MSC_VER
-  //////// = ////////
-  template<CPPL_INT L> inline drovector_small<L>& operator= (const  drovector_small<L>&);
-  //////// += ////////
-  template<CPPL_INT L> inline friend drovector_small<L>& operator+=(drovector_small<L>&, const drovector_small<L>&);
-  //////// -= ////////
-  template<CPPL_INT L> inline friend drovector_small<L>& operator-=(drovector_small<L>&, const drovector_small<L>&);
-  //////// *= ////////
-  template<CPPL_INT L> inline friend drovector_small<L>& operator*=(drovector_small<L>&, const             double&);
-  //////// /= ////////
-  template<CPPL_INT L> inline friend drovector_small<L>& operator/=(drovector_small<L>&, const             double&);
-  //////// unary ////////
-  template<CPPL_INT L> inline friend const drovector_small<L>& operator+(const drovector_small<L>&);
-  template<CPPL_INT L> inline friend drovector_small<L> operator-(const drovector_small<L>&);
-  //////// + ////////
-  template<CPPL_INT L> inline friend drovector_small<L> operator+(const drovector_small<L>&, const drovector_small<L>&);
-  //////// - ////////
-  template<CPPL_INT L> inline friend drovector_small<L> operator-(const drovector_small<L>&, const drovector_small<L>&);
-  //////// * ////////
-  template<CPPL_INT L> inline friend             double operator*(const drovector_small<L>&, const dcovector_small<L>&);
-  template<CPPL_INT M, CPPL_INT N> inline friend drovector_small<N> operator*(const drovector_small<M>&, const dgematrix_small<M,N>&);
-  template<CPPL_INT L> inline friend drovector_small<L> operator*(const drovector_small<L>&, const dsymatrix_small<L>&);
-  template<CPPL_INT L> inline friend drovector_small<L> operator*(const drovector_small<L>&, const             double&);
-  //////// / ////////
-  template<CPPL_INT L> inline friend drovector_small<L> operator/(const drovector_small<L>&, const             double&);
-  //////// double ////////
-  template<CPPL_INT L> inline friend drovector_small<L> operator*(const             double&, const drovector_small<L>&);
-  //////// hadamerd ////////
-  template<CPPL_INT L> inline friend drovector_small<L>  hadamerd(const drovector_small<L>&, const drovector_small<L>&);
-#endif//_MSC_VER
-};
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-inline double  operator/(const drovec2&, const drovec2&);
-inline drovec3 operator/(const drovec3&, const drovec3&);
diff --git a/cpplapack-r198/.svn/pristine/d9/d9850d81ed80f6d56563b9e39faf01562521bbf7.svn-base b/cpplapack-r198/.svn/pristine/d9/d9850d81ed80f6d56563b9e39faf01562521bbf7.svn-base
deleted file mode 100644
index ae80bfe..0000000
--- a/cpplapack-r198/.svn/pristine/d9/d9850d81ed80f6d56563b9e39faf01562521bbf7.svn-base
+++ /dev/null
@@ -1,147 +0,0 @@
-/*****************************************************************************/
-/*                                main.cpp                                   */
-/*****************************************************************************/
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include <vector>
-#include "cpplapack.h"
-
-//=============================================================================
-bool symmlq
-(
- const CPPL::dsymatrix& A,
- CPPL::dcovector& x,
- const double& eps_r
-)
-{
-  const CPPL::dcovector y(x);
-  const double eps(1e-16);
-  const double shift(0.);
-
-  double g_bar, alpha, b_old, beta, beta1, z, z_bar, s, t, rhs1, rhs2, d_bar, bstep, snprod;
-  x.zero();
-  CPPL::dcovector w(x), v(x), X(x), Y1(y), Y2(y), Y(y);
-
-  beta1 =nrm2(y);
-  s =1./beta1;
-  v =s*y;
-
-  Y =A*v -shift*v;
-  alpha =v%Y;
-  Y -=(alpha/beta1)*Y1;
-  //std::cerr << "Y=" << CPPL::t(Y) << std::endl;
-
-  z =v%Y;
-  s =v%v;
-  Y -=(z/s)*v;
-  //std::cerr << "Y=" << CPPL::t(Y) << std::endl;
-
-  Y2 =Y;
-  b_old =beta1;
-  beta =sqrt(Y2%Y);
-
-  double denom;
-  denom =sqrt(s)*nrm2(Y2) +eps;
-  s =z/denom;
-  t =(v%Y2)/denom;
-
-  rhs1 =beta1;
-  rhs2 =0.;
-  g_bar =alpha;
-  d_bar =beta;
-  bstep =0.;
-  snprod =1.;
-  
-  int itc(0);
-  const int itmax(2*x.l);
-  while( fabs(damax(y-A*x))>eps_r && itc<itmax ){
-    std::cout << "# "<< itc << " " << fabs(damax(y-A*x)) << std::endl;
-    z_bar =rhs1/g_bar;
-    z =(snprod*z_bar+bstep)/beta1;
-
-    s =1./beta;
-    v =s*Y;
-    Y =A*v -(beta/b_old)*Y1 -shift*v;
-    alpha =v%Y;
-    Y -=(alpha/beta)*Y2;
-    Y1 =Y2;
-    Y2 =Y;
-
-    b_old =beta;
-    beta =sqrt(Y2%Y);
-
-    double gamma, cs, sn, delta, epsilon;
-    gamma =sqrt(pow(g_bar,2)+pow(b_old,2));
-    cs =g_bar/gamma;
-    sn =b_old/gamma;
-    delta =cs*d_bar +sn*alpha;
-    g_bar =sn*d_bar -cs*alpha;
-    epsilon =sn*beta;
-    d_bar =-cs*beta;
-
-    z =rhs1/gamma;
-    s =z*cs;
-    t =z*sn;
-    X +=s*w +t*v;
-    w =sn*w -cs*v;
-
-    bstep +=snprod*cs*z;
-    snprod *=sn;
-    rhs1 =rhs2 -delta*z;
-    rhs2 =-epsilon*z;
-
-    x =X +(bstep/beta1)*y;
-    //std::cout << "x=" << CPPL::t(x) << std::endl;
-    itc++;
-  }
-  std::cerr << "itc=" << itc << "  fabs(damax(y-A*x))=" << fabs(damax(y-A*x)) << std::endl;
-  //std::cerr << "itc=" << itc << "  fabs(f)=" << fabs(f) << std::endl;
-
-  if(itc<itmax){ return 0; }
-  else{ return 1; }
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-int main(int argc, char** argv)
-{
-  srand(time(NULL));
-  
-  const int size(100);
-  CPPL::dsymatrix A(size);
-  
-  for(int i=0; i<size; i++){
-    for(int j=0; j<=i; j++){
-      A(i,j) =(double(rand())/double(RAND_MAX))*2.0 -1.0;
-    }
-    A(i,i)+=10.;
-  }
-  A.write("A.dsymatrix");
-  
-  CPPL::dcovector x(size);
-  for(int i=0; i<size; i++){
-    x(i) =(double(rand())/double(RAND_MAX))*1. -0.5;
-  }
-  x.write("answer.dcovector");//solution
-  std::cerr << "answer=\n" << t(x) << std::endl;
-  
-  CPPL::dcovector y(size);
-  y=A*x;
-  y.write("y.dcovector");
-  
-  double eps(fabs(damax(y))*1e-6);
-  //std::cerr << "eps=" << eps << std::endl;
-  if( symmlq(A, y, eps) ){
-    std::cerr << "failed." << std::endl;
-    exit(1);
-  }
-  y.write("solution.dcovector");
-  std::cout << "solution=\n" << t(y) << std::endl;
-  
-  return 0;
-}
diff --git a/cpplapack-r198/.svn/pristine/d9/d99fc5a2a30637dafc2d5c5fca997e659b6c469e.svn-base b/cpplapack-r198/.svn/pristine/d9/d99fc5a2a30637dafc2d5c5fca997e659b6c469e.svn-base
deleted file mode 100644
index 500b81f..0000000
--- a/cpplapack-r198/.svn/pristine/d9/d99fc5a2a30637dafc2d5c5fca997e659b6c469e.svn-base
+++ /dev/null
@@ -1,192 +0,0 @@
-//=============================================================================
-/*! clear all the matrix data and set the sizes 0 */
-inline void dgematrix::clear()
-{CPPL_VERBOSE_REPORT;
-  m =0;
-  n =0;
-  delete [] array;
-  delete [] darray;
-  array =NULL;
-  darray =NULL;
-}
-
-//=============================================================================
-/*! change the matrix into a zero matrix */
-inline dgematrix& dgematrix::zero()
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<m*n; i++){
-    array[i] =0.0;
-  }
-  return *this;
-}
-
-//=============================================================================
-/*! change the matrix into an identity matrix */
-inline dgematrix& dgematrix::identity()
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(m!=n){
-    ERROR_REPORT;
-    std::cerr << "Only square matrix can be a identity matrix." << std::endl
-              << "The matrix size was " << m << "x" << n << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<m*n; i++){
-    array[i] =0.0;
-  }
-  for(CPPL_INT i=0; i<m; i++){
-    operator()(i,i) =1.0;
-  }
-  return *this;
-}
-
-//=============================================================================
-/*! change sign(+/-) of the matrix */
-inline void dgematrix::chsign()
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<m*n; i++){
-    array[i] =-array[i];
-  }
-}
-
-//=============================================================================
-/*! make a deep copy of the matrix */
-inline void dgematrix::copy(const dgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-  m =mat.m;
-  n =mat.n;
-  delete [] array;
-  array =new double[mat.m*mat.n];
-  delete [] darray;
-  darray =new double*[n];
-  for(int i=0; i<n; i++){
-    darray[i] =&array[i*m];
-  }
-  
-  CPPL_INT mn =mat.m*mat.n;
-  CPPL_INT inc =1;
-  dcopy_(&mn, mat.array, &inc, array, &inc);
-}
-
-//=============================================================================
-/*! make a shallow copy of the matrix\n
-  This function is not designed to be used in project codes. */
-inline void dgematrix::shallow_copy(const _dgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-  m =mat.m;
-  n =mat.n;
-  delete [] array;
-  array =mat.array;
-  delete [] darray;
-  darray =mat.darray;
-  
-  mat.nullify();
-}
-
-//=============================================================================
-/*! resize the matrix */
-inline dgematrix& dgematrix::resize(const CPPL_INT& _m, const CPPL_INT& _n)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( _m<0 || _n<0 ){
-    ERROR_REPORT;
-    std::cerr << "Matrix sizes must be positive integers." << std::endl
-              << "Your input was (" << _m << "," << _n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  m =_m;
-  n =_n;
-  delete [] array;
-  array =new double[m*n];
-  delete [] darray;
-  darray =new double*[n];
-  for(int i=0; i<n; i++){
-    darray[i] =&array[i*m];
-  }
-  
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! get row of the matrix */
-inline _drovector dgematrix::row(const CPPL_INT& _m) const
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( _m<0 || _m>m ){
-    ERROR_REPORT;
-    std::cerr << "Input row number must be between 0 and " << m << "." << std::endl
-              << "Your input was " << _m << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  drovector v(n);
-  for(CPPL_INT j=0; j<n; j++){
-    v(j)=(*this)(_m,j);
-  }
-  return _(v);
-}
-
-//=============================================================================
-/*! get column of the matrix */
-inline _dcovector dgematrix::col(const CPPL_INT& _n) const
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( _n<0 || _n>n ){
-    ERROR_REPORT;
-    std::cerr << "Input row number must be between 0 and " << n << "." << std::endl
-              << "Your input was " << _n << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dcovector v(m);
-  for(CPPL_INT i=0; i<m; i++){
-    v(i)=(*this)(i,_n);
-  }
-  return _(v);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! swap two matrices */
-inline void swap(dgematrix& A, dgematrix& B)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT A_m =A.m, A_n =A.n;
-  double* A_array =A.array;
-  double** A_darray=A.darray;
-  A.m=B.m; A.n=B.n; A.array=B.array; A.darray=B.darray;
-  B.m=A_m; B.n=A_n; B.array=A_array; B.darray=A_darray;
-}
-
-//=============================================================================
-/*! convert user object to smart-temporary object */
-inline _dgematrix _(dgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-  _dgematrix newmat;
-  
-  //////// shallow copy ////////
-  newmat.m =mat.m;
-  newmat.n =mat.n;
-  newmat.array =mat.array;
-  newmat.darray =mat.darray;
-  
-  //////// nullify ////////
-  mat.m =0;
-  mat.n =0;
-  mat.array =NULL;
-  mat.darray =NULL;
-  
-  return newmat;
-}
diff --git a/cpplapack-r198/.svn/pristine/d9/d9b30187181d42b42804af6c1a02d4a14f239ad5.svn-base b/cpplapack-r198/.svn/pristine/d9/d9b30187181d42b42804af6c1a02d4a14f239ad5.svn-base
deleted file mode 100644
index bf274b2..0000000
--- a/cpplapack-r198/.svn/pristine/d9/d9b30187181d42b42804af6c1a02d4a14f239ad5.svn-base
+++ /dev/null
@@ -1,20 +0,0 @@
-//=============================================================================
-/*! _dgematrix*double operator */
-inline _dgematrix operator*(const _dgematrix& mat, const double& d)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT mn =mat.m*mat.n;
-  CPPL_INT inc =1;
-  dscal_(&mn, &d, mat.array, &inc);
-  return mat;
-}
-
-//=============================================================================
-/*! _dgematrix/double operator */
-inline _dgematrix operator/(const _dgematrix& mat, const double& d)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT mn =mat.m*mat.n;
-  double dinv =1./d;
-  CPPL_INT inc =1;
-  dscal_(&mn, &dinv, mat.array, &inc);
-  return mat;
-}
diff --git a/cpplapack-r198/.svn/pristine/da/da164c54c44397cdca8b394aab874e44e8d067ea.svn-base b/cpplapack-r198/.svn/pristine/da/da164c54c44397cdca8b394aab874e44e8d067ea.svn-base
deleted file mode 100644
index bfee7af..0000000
--- a/cpplapack-r198/.svn/pristine/da/da164c54c44397cdca8b394aab874e44e8d067ea.svn-base
+++ /dev/null
@@ -1,173 +0,0 @@
-/*****************************************************************************/
-/*                                main.cpp                                   */
-/*****************************************************************************/
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include <vector>
-#include "cpplapack.h"
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! solve */
-int32_t sor
-(
- const CPPL::dgsmatrix& A,
- const CPPL::dcovector& b,
- CPPL::dcovector& x,
- const double& eps
- )
-{
-  ///////////////////////////////////////////////
-  ///////////////// mid values //////////////////
-  ///////////////////////////////////////////////
-  CPPL::dcovector r(b-A*x);
-  CPPL::dcovector y(x.l);
-  const double omega(1.);//Gauss-Siedel
-  
-  //////// norm ////////
-  double norm_r, norm_r_min(DBL_MAX);
-  const double norm_r_ini(fabs(damax(r)));
-  std::cerr << "[NOTE]@sor: norm_r_ini=" << norm_r_ini << ", eps=" << eps<< std::endl;
-  if( norm_r_ini<DBL_MIN ){
-    std::cerr << "[NOTE]@sor: already converged. v(^^)" << std::endl;
-    return 0;
-  }
-  
-  ///////////////////////////////////////////////
-  //////////////////// loop /////////////////////
-  ///////////////////////////////////////////////
-  int itc(1);
-  int itmax(int(5.1*x.l));
-  //int itmax(int(2.1*x.l));
-  //int itmax(int(1.1*x.l));
-  //int itmax(int(0.6*x.l));
-  do{
-    std::cerr << "** itc=" << itc << " ********************************************" << std::endl;
-    for(long i=0; i<x.l; i++){
-      //std::cerr << "++++ i=" << i << " ++++" << std::endl;
-      double sigma =0.;
-      for(std::vector< std::pair<long,long> >::const_iterator p=A.rows[i].begin(); p!=A.rows[i].end(); p++){
-        if(p->first<i){
-          sigma +=A.data[p->second].v*y(p->first);
-        }
-        else if(p->first>i){
-          sigma +=A.data[p->second].v*x(p->first);
-        }
-      }
-      double z =(b(i)-sigma)/A(i,i);
-      y(i) =x(i) +omega*(z-x(i));
-    }
-    //////// update ////////
-    x =y;
-    //std::cerr << "x = " << t(x) << std::endl;
-    
-    //////// residual ////////
-    r =b-A*x;
-    //std::cerr << "r = " << t(r) << std::endl;
-    
-    //////// convergence check ////////
-    norm_r =fabs(damax(r));
-    std::cerr << "norm_r = " << norm_r << std::endl;
-    if( isnan(norm_r) ){ break; }//failed
-    if( !std::isnormal(norm_r) ){ break; }//failed
-    if( !std::isfinite(norm_r) ){ break; }//failed
-    if( norm_r>1e3*norm_r_ini ){ break; }//failed (getting so worse)
-    if( norm_r<=eps ){//r satistied
-      std::cerr << "[NOTE]@sor: converged. v(^^)  itc=" << itc << "/" << itmax << ", norm=" << norm_r << std::endl;
-      return 0;
-    }
-  }while(++itc<itmax);
-  
-  //////// failed ////////
-  std::cerr << "[NOTE]@sor: itc=" << itc << ", norm=" << norm_r << ", r_satisfied=" << (norm_r<=eps) << std::endl;
-  std::cerr << "[NOTE]@sor: failed to converge. orz" << std::endl;
-  return 1;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-int main(int argc, char** argv)
-{
-  ///////////////////////////////////////////////
-  //////////////// set precision ////////////////
-  ///////////////////////////////////////////////
-  std::cout.precision(9);
-  std::cout.setf(std::ios::scientific, std::ios::floatfield);
-  std::cout.setf(std::ios::showpos);
-  std::cerr.precision(3);
-  std::cerr.setf(std::ios::scientific, std::ios::floatfield);
-  std::cerr.setf(std::ios::showpos);
-  
-  ///////////////////////////////////////////////
-  //////////////////// A,b //////////////////////
-  ///////////////////////////////////////////////
-  CPPL::dgsmatrix A;
-  CPPL::dcovector b;
-  bool file =false;
-  ///////////////////////////
-  ////////// read ///////////
-  ///////////////////////////
-  if(file){
-    //A.read("A10.dge");  b.read("b10.dco");
-  }
-  
-  ///////////////////////////
-  ///////// random //////////
-  ///////////////////////////
-  else{//file==false
-    std::cerr << "# making random matrix" << std::endl;
-    const int size(1000);
-    A.resize(size,size);
-    b.resize(size);
-    srand(time(NULL));
-    for(int i=0; i<size; i++){
-      for(int j=0; j<size; j++){
-        if( rand()%5==0 ){
-          A(i,j) =(double(rand())/double(RAND_MAX))*2.0 -1.0;
-        }
-      }
-      A(i,i) +=1e-2*double(size);//generalize
-      b(i) =(double(rand())/double(RAND_MAX))*1. -0.5;
-    }
-    A.write("A.dge");
-    b.write("b.dco");
-  }
-
-  ///////////////////////////////////////////////
-  ////////////////// direct /////////////////////
-  ///////////////////////////////////////////////
-  std::cerr << "# making solution with dgesv" << std::endl;
-  CPPL::dgematrix A2(A.to_dgematrix());
-  CPPL::dcovector b2(b);
-  A2.dgesv(b2);
-  b2.write("ans.dco");
-  
-  ///////////////////////////////////////////////
-  ///////////////// iterative ///////////////////
-  ///////////////////////////////////////////////
-  //////// initial x ////////
-  CPPL::dcovector x(b.l);
-  //x.read("x_ini8.dco");
-  x.zero();
-  //////// eps ////////
-  double eps(fabs(damax(b))*1e-6);
-  std::cerr << "eps=" << eps << std::endl;
-  //////// solve ////////
-  if( sor(A, b, x, eps) ){
-    std::cerr << "failed." << std::endl;
-    x.write("x.dco");
-    exit(1);
-  }
-  x.write("x.dco");
-  std::cerr << "fabs(damax(err))=" << fabs(damax(b2-x)) << std::endl;
-  
-  return 0;
-}
diff --git a/cpplapack-r198/.svn/pristine/da/da39a3ee5e6b4b0d3255bfef95601890afd80709.svn-base b/cpplapack-r198/.svn/pristine/da/da39a3ee5e6b4b0d3255bfef95601890afd80709.svn-base
deleted file mode 100644
index e69de29..0000000
diff --git a/cpplapack-r198/.svn/pristine/db/dba4f8439c23f77b7db5be0e2640e7ea7e3b61c7.svn-base b/cpplapack-r198/.svn/pristine/db/dba4f8439c23f77b7db5be0e2640e7ea7e3b61c7.svn-base
deleted file mode 100644
index 5f6598f..0000000
--- a/cpplapack-r198/.svn/pristine/db/dba4f8439c23f77b7db5be0e2640e7ea7e3b61c7.svn-base
+++ /dev/null
@@ -1,76 +0,0 @@
-//=============================================================================
-/*! _dgsmatrix+_dgsmatrix operator */
-inline _dgsmatrix operator+(const _dgsmatrix& matA, const _dgsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgsmatrix newmat(matA);
-  
-  const std::vector<dcomponent>::const_iterator matB_data_end =matB.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matB.data.begin(); it!=matB_data_end; it++){
-    newmat(it->i,it->j) += it->v;
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _dgsmatrix-_dgsmatrix operator */
-inline _dgsmatrix operator-(const _dgsmatrix& matA, const _dgsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") - (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgsmatrix newmat(matA);
-  
-  const std::vector<dcomponent>::const_iterator matB_data_end =matB.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matB.data.begin(); it!=matB_data_end; it++){
-    newmat(it->i,it->j) -= it->v;
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _dgsmatrix*_dgsmatrix operator */
-inline _dgsmatrix operator*(const _dgsmatrix& matA, const _dgsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgsmatrix newmat(matA.m, matB.n);
-  
-  const std::vector<dcomponent>::const_iterator matA_data_end =matA.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matA.data.begin(); it!=matA_data_end; it++){
-    CPPL_INT k =it->j;
-    const std::vector<CPPL_INT>::iterator matB_rows_k_end =matB.rows[k].end();
-    for(std::vector<CPPL_INT>::iterator p=matB.rows[k].begin(); p!=matB_rows_k_end; p++){
-      newmat(it->i,matB.data[*p].j) += it->v*matB.data[*p].v;
-    }
-  }
-  
-  matA.destroy();
-  matB.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/db/dbe465283e4848413b822c117144dff2298a2026.svn-base b/cpplapack-r198/.svn/pristine/db/dbe465283e4848413b822c117144dff2298a2026.svn-base
deleted file mode 100644
index 448083c..0000000
--- a/cpplapack-r198/.svn/pristine/db/dbe465283e4848413b822c117144dff2298a2026.svn-base
+++ /dev/null
@@ -1,412 +0,0 @@
-//=============================================================================
-/*! clear all the matrix data and set the sizes 0 */
-inline void dssmatrix::clear()
-{CPPL_VERBOSE_REPORT;
-  n =0;
-  data.clear();
-  line.clear();
-}
-
-//=============================================================================
-/*! change the matrix into a zero matrix */
-inline dssmatrix& dssmatrix::zero()
-{CPPL_VERBOSE_REPORT;
-  data.resize(0);
-  for(CPPL_INT i=0; i<n; i++){ line[i].resize(0); }
-  return *this;
-}
-
-//=============================================================================
-/*! change the matrix into an identity matrix */
-inline dssmatrix& dssmatrix::identity()
-{CPPL_VERBOSE_REPORT;
-  zero();
-  for(CPPL_INT i=0; i<n; i++){
-    put(i,i,1.);
-  }
-  return *this;
-}
-
-//=============================================================================
-/*! change sign(+/-) of the matrix */
-inline void dssmatrix::chsign()
-{CPPL_VERBOSE_REPORT;
-  const std::vector<dcomponent>::iterator data_end =data.end();
-  for(std::vector<dcomponent>::iterator it=data.begin(); it!=data_end; it++){
-    it->v =-it->v;
-  }
-}
-
-//=============================================================================
-/*! make a deep copy of the matrix */
-inline void dssmatrix::copy(const dssmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  n =mat.n;
-  data =mat.data;
-  line =mat.line;
-}
-
-//=============================================================================
-/*! make a shallow copy of the matrix\n
-  This function is not designed to be used in project codes. */
-inline void dssmatrix::shallow_copy(const _dssmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  data.clear();
-  line.clear();
-  
-  n =mat.n;
-  data.swap(mat.data);
-  line.swap(mat.line);
-  
-  mat.nullify();
-}
-
-//=============================================================================
-/*! resize the matrix */
-inline dssmatrix& dssmatrix::resize(const CPPL_INT& _n, const CPPL_INT _c, const CPPL_INT _l)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( _n<0 || _c<0 || _l<0 ){
-    ERROR_REPORT;
-    std::cerr << "Matrix sizes, the length of arrays, and line size must be positive integers. " << std::endl
-              << "Your input was (" << _n << "," << _c << "," << _l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  n =_n;
-  data.resize(0);
-  data.reserve(_c);
-  line.resize(n);
-  for(CPPL_INT i=0; i<n; i++){
-    line[i].resize(0); 
-    line[i].reserve(_l);
-  }
-  
-  return *this;
-}
-
-//=============================================================================
-/*! stretch the matrix size */
-inline void dssmatrix::stretch(const CPPL_INT& dn)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( n+dn<0 ){
-    ERROR_REPORT;
-    std::cerr << "The new matrix size must be larger than zero." << std::endl
-              << "Your input was (" << dn << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //////// zero ////////
-  if(dn==0){ return; }
-
-  //////// non-zero ////////
-  n +=dn;
-  
-  if(dn<0){
-    //// delete components over the new size ////
-    const std::vector<dcomponent>::reverse_iterator data_rend =data.rend();
-    for(std::vector<dcomponent>::reverse_iterator it=data.rbegin(); it!=data_rend; it++){
-      if( it->i>=n ){ del( CPPL_INT(data_rend-it-1) ); }
-    }
-    //// shrink line ////
-    for(CPPL_INT i=0; i<-dn; i++){
-      line.pop_back();
-    }
-  }
-  else{//dn>0
-    //// expand line ////
-    for(CPPL_INT i=0; i<dn; i++){
-      line.push_back( std::vector<CPPL_INT>(0) );
-    }
-  }
-}
-
-//=============================================================================
-/*! check if the component is listed */
-inline bool dssmatrix::isListed(const CPPL_INT& i, const CPPL_INT& j) const
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || j<0 || n<=i || n<=j ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the matrix size." << std::endl
-              << "Your input is (" << i << "," << j << "), whereas the matrix size is " << n << "x" << n << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  const CPPL_INT ii(std::max(i,j)), jj(std::min(i,j));
-  
-  const std::vector<CPPL_INT>::const_iterator line_ii_end =line[ii].end();
-  for(std::vector<CPPL_INT>::const_iterator p=line[ii].begin(); p!=line_ii_end; p++){
-    if(data[*p].i==ii && data[*p].j==jj){ return 1; }
-  }
-  
-  return 0;
-}
-
-//=============================================================================
-/*! return the element number of the component */
-inline CPPL_INT dssmatrix::number(const CPPL_INT& i, const CPPL_INT& j) const
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || j<0 || n<=i || n<=j ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the matrix size." << std::endl
-              << "Your input is (" << i << "," << j << "), whereas the matrix size is " << n << "x" << n << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  const CPPL_INT ii(std::max(i,j)), jj(std::min(i,j));
-  
-  const std::vector<CPPL_INT>::const_iterator line_ii_end =line[ii].end();
-  for(std::vector<CPPL_INT>::const_iterator p=line[ii].begin(); p!=line_ii_end; p++){
-    if(data[*p].i==ii && data[*p].j==jj){ return *p; }
-  }
-  
-  return -1;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! get row of the matrix */
-inline _drovector dssmatrix::row(const CPPL_INT& _m) const
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( _m<0 || _m>m ){
-    ERROR_REPORT;
-    std::cerr << "Input row number must be between 0 and " << m << "." << std::endl
-              << "Your input was " << _m << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  drovector vec(n);
-  vec.zero();
-  
-  const std::vector<CPPL_INT>::const_iterator line__m_end =line[_m].end();
-  for(std::vector<CPPL_INT>::const_iterator p=line[_m].begin(); p!=line__m_end; p++){
-    if(data[*p].i==_m){
-      vec(data[*p].j) =data[*p].v;
-    }
-    else{
-      vec(data[*p].i) =data[*p].v;
-    }
-  }
-  return _(vec);
-}
-
-//=============================================================================
-/*! get column of the matrix */
-inline _dcovector dssmatrix::col(const CPPL_INT& _n) const
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( _n<0 || _n>n ){
-    ERROR_REPORT;
-    std::cerr << "Input row number must be between 0 and " << n << "." << std::endl
-              << "Your input was " << _n << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dcovector vec(m);
-  vec.zero();
-  
-  const std::vector<CPPL_INT>::const_iterator line__n_end =line[_n].end();
-  for(std::vector<CPPL_INT>::const_iterator p=line[_n].begin(); p!=line__n_end; p++){
-    if(data[*p].i==_n){
-      vec(data[*p].j) =data[*p].v;
-    }
-    else{
-      vec(data[*p].i) =data[*p].v;
-    }
-  }
-  return _(vec);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! erase components less than DBL_MIN */
-inline void dssmatrix::diet(const double eps)
-{CPPL_VERBOSE_REPORT;
-  const std::vector<dcomponent>::reverse_iterator data_rend =data.rend();
-  for(std::vector<dcomponent>::reverse_iterator it=data.rbegin(); it!=data_rend; it++){
-    if( fabs(it->v)<eps ){ del( CPPL_INT(data_rend-it-1) ); }
-  }
-}
-
-//=============================================================================
-/*! reorder components so that all diagonal componets are placed in front */
-/*
-inline CPPL_INT dssmatrix::diag_front()
-{CPPL_VERBOSE_REPORT;
-  //////// set initial dsize ////////
-  CPPL_INT dsize(0);
-  const std::vector<dcomponent>::iterator data_end =data.end();
-  for(std::vector<dcomponent>::iterator it=data.begin(); it!=data.end(); it++){
-    if(it->i==it->j){ dsize++; }
-    else{ break; }
-  }
-  
-  //////// swapping loop ////////
-  for(std::vector<dcomponent>::reverse_iterator it=data.rbegin(); it!=data.rend()-dsize; it++){
-    if(it->i==it->j){//is diag
-      CPPL_INT c(data.rend()-it-1);//current it's index
-      CPPL_INT i(data[dsize].i), j(data[dsize].j), k(it->i);
-      //// search (k,k) line ////
-      for(std::vector<CPPL_INT>::iterator p=line[k].begin(); p!=line[k].end(); p++){
-        if(CPPL_INT(data[*p].i)==k && CPPL_INT(data[*p].j)==k){ *p=dsize; }
-      }
-      //// search (i,j) line ////
-      for(std::vector<CPPL_INT>::iterator p=line[i].begin(); p!=line[i].end(); p++){
-        if(CPPL_INT(*p)==dsize){ *p=c; }
-      }
-      //// search (j,i) line ////
-      if(i!=j){
-        for(std::vector<CPPL_INT>::iterator p=line[j].begin(); p!=line[j].end(); p++){
-          if(CPPL_INT(*p)==dsize){ *p=c; }
-        }
-      }
-      else{//i==j
-        it--;
-      }
-      //// swap ////
-      std::swap(data[dsize],data[c]);
-      //// update ////
-      dsize++;
-    }
-  }
-  
-  return dsize;
-}
-*/
-
-//=============================================================================
-/*! reorder components */
-inline void dssmatrix::reorder(const bool mode)
-{CPPL_VERBOSE_REPORT;
-  //// sort data ////
-  if(mode==0){
-    std::sort(data.begin(), data.end(), dcomponent::ilt);
-  }
-  else{
-    std::sort(data.begin(), data.end(), dcomponent::jlt);
-  }
-  //// rebuild line ////
-  rebuild();
-}
-
-//=============================================================================
-/*! rebuild line */
-inline void dssmatrix::rebuild()
-{CPPL_VERBOSE_REPORT;
-  //// clear line ////
-  for(CPPL_INT i=0; i<n; i++){ line[i].resize(0); }
-  
-  //// build line ////
-  CPPL_INT c(0);
-  const std::vector<dcomponent>::iterator data_end =data.end();
-  for(std::vector<dcomponent>::iterator it=data.begin(); it!=data_end; it++){
-    line[it->i].push_back(c);
-    if( (it->i) != (it->j) ){
-      line[it->j].push_back(c);
-    }
-    c++;
-  }
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! health checkup */
-inline void dssmatrix::checkup()
-{CPPL_VERBOSE_REPORT;
-  //////// write ////////
-  const std::vector<dcomponent>::const_iterator data_end =data.end();
-  for(std::vector<dcomponent>::const_iterator it=data.begin(); it!=data_end; it++){
-    std::cerr << "array[" << it-data.begin() << "] = (" << it->i << "," << it->j << ") = " << it->v << std::endl;
-  }
-  std::cerr << std::endl;
-  
-  for(CPPL_INT i=0; i<n; i++){
-    std::cerr << "line[" << i << "] =" << std::flush;
-    const size_t line_i_size =line[i].size();
-    for(size_t k=0; k<line_i_size; k++){
-      std::cerr << " " << line[i][k] << std::flush;
-    }
-    std::cerr << std::endl;
-  }
-  std::cerr << std::endl;
-  
-  //////// Elements ////////
-  for(std::vector<dcomponent>::const_iterator it=data.begin(); it!=data_end; it++){
-    //// m bound ////
-    if(it->i>=n){
-      ERROR_REPORT;
-      std::cerr << "The indx of the " << it-data.begin() << "th element is out of the matrix size." << std::endl
-                << "Its i index was " << it->i << "." << std::endl;
-      exit(1);
-    }
-    
-    //// n bound ////
-    if(it->j>=n){
-      ERROR_REPORT;
-      std::cerr << "The jndx of the " << it-data.begin() << "th element is out of the matrix size." << std::endl
-                << "Its j index was " << it->j << "." << std::endl;
-      exit(1);
-    }
-    
-    //// double-listed ////
-    for(std::vector<dcomponent>::const_iterator IT=it+1; IT!=data_end; IT++){
-      if( it->i==IT->i && it->j==IT->j ){
-        ERROR_REPORT;
-        std::cerr << "The (" << it->i << ", " << it->j << ") component is double-listed at the " << it-data.begin() << "th and the" << IT-data.begin() << "the elements."<< std::endl;
-        exit(1);
-      }
-    }
-  }
-  
-  //////// NOTE ////////
-  std::cerr << "# [NOTE]@dssmatrix::checkup(): This symmetric sparse matrix is fine." << std::endl;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! swap two matrices */
-inline void swap(dssmatrix& A, dssmatrix& B)
-{CPPL_VERBOSE_REPORT;
-  std::swap(A.n,B.n);
-  std::swap(A.data,B.data);
-  std::swap(A.line,B.line);
-}
-
-//=============================================================================
-/*! convert user object to smart-temporary object */
-inline _dssmatrix _(dssmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  _dssmatrix newmat;
-  
-  //////// shallow copy ////////
-  newmat.n =mat.n;
-  std::swap(newmat.data,mat.data);
-  std::swap(newmat.line,mat.line);
-  
-  //////// nullify ////////
-  mat.n =0;
-  
-  return newmat;
-}
diff --git a/cpplapack-r198/.svn/pristine/dc/dc829351facff7bcc314aee119bb1315d2f4f61d.svn-base b/cpplapack-r198/.svn/pristine/dc/dc829351facff7bcc314aee119bb1315d2f4f61d.svn-base
deleted file mode 100644
index 92d8a98..0000000
--- a/cpplapack-r198/.svn/pristine/dc/dc829351facff7bcc314aee119bb1315d2f4f61d.svn-base
+++ /dev/null
@@ -1,55 +0,0 @@
-//=============================================================================
-/*! dgrmatrix*=double operator */
-inline dgrmatrix& dgrmatrix::operator*=(const double& d)
-{CPPL_VERBOSE_REPORT;
-  const std::vector<double>::iterator a_end =a.end();
-  for(std::vector<double>::iterator it=a.begin(); it!=a_end; it++){
-    (*it) *=d;
-  }
-  
-  return *this;
-}
-
-//=============================================================================
-/*! dgrmatrix/=double operator */
-inline dgrmatrix& dgrmatrix::operator/=(const double& d)
-{CPPL_VERBOSE_REPORT;
-  const std::vector<double>::iterator a_end =a.end();
-  for(std::vector<double>::iterator it=a.begin(); it!=a_end; it++){
-    (*it) /=d;
-  }
-  
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! dgrmatrix*double operator */
-inline dgrmatrix operator*(const dgrmatrix& mat, const double& d)
-{CPPL_VERBOSE_REPORT;
-  dgrmatrix newmat =mat;
-  
-  const std::vector<double>::iterator newmat_a_end =newmat.a.end();
-  for(std::vector<double>::iterator it=newmat.a.begin(); it!=newmat_a_end; it++){
-    (*it) *=d;
-  }
-  
-  return newmat;
-}
-
-//=============================================================================
-/*! dgrmatrix/double operator */
-inline dgrmatrix operator/(const dgrmatrix& mat, const double& d)
-{CPPL_VERBOSE_REPORT;
-  dgrmatrix newmat =mat;
-  
-  const std::vector<double>::iterator newmat_a_end =newmat.a.end();
-  for(std::vector<double>::iterator it=newmat.a.begin(); it!=newmat_a_end; it++){
-    (*it) /=d;
-  }
-  
-  return newmat;
-}
diff --git a/cpplapack-r198/.svn/pristine/dd/dd2bb9d546278d4f69e114a32e99ce9e8d14f155.svn-base b/cpplapack-r198/.svn/pristine/dd/dd2bb9d546278d4f69e114a32e99ce9e8d14f155.svn-base
deleted file mode 100644
index 80e2303..0000000
--- a/cpplapack-r198/.svn/pristine/dd/dd2bb9d546278d4f69e114a32e99ce9e8d14f155.svn-base
+++ /dev/null
@@ -1,38 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int M(4), N(3);
-  
-  CPPL::dgematrix A(M,N);
-  for(int i=0; i<A.m; i++){ for(int j=0; j<A.n; j++){
-	A(i,j) =double( rand() /(RAND_MAX/10) );
-  }}
-  
-  cout << "A =\n" << A << endl;
-  cout << "A*10. =\n" << A*10. << endl;
-  cout << "A/10. =\n" << A/10. << endl;
-  
-  cout << "#### A*=10.; ####" << endl;
-  A*=10.;
-  cout << "A =\n" << A << endl;
-  cout << "#### A/=10.; ####" << endl;
-  A/=10.;
-  cout << "A =\n" << A << endl;
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/dd/dd573a2ed0f2a7c8bd4c7772323378afa1907128.svn-base b/cpplapack-r198/.svn/pristine/dd/dd573a2ed0f2a7c8bd4c7772323378afa1907128.svn-base
deleted file mode 100644
index 4a6bdeb..0000000
--- a/cpplapack-r198/.svn/pristine/dd/dd573a2ed0f2a7c8bd4c7772323378afa1907128.svn-base
+++ /dev/null
@@ -1,20 +0,0 @@
-//=============================================================================
-/*! _zgematrix*double operator */
-inline _zgematrix operator*(const _zgematrix& mat, const double& d)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT size =mat.m*mat.n;
-  CPPL_INT inc =1;
-  zdscal_(&size, &d, mat.array, &inc);
-  return mat;
-}
-
-//=============================================================================
-/*! _zgematrix/double operator */
-inline _zgematrix operator/(const _zgematrix& mat, const double& d)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT size =mat.m*mat.n;
-  double dinv =1./d;
-  CPPL_INT inc =1;
-  zdscal_(&size, &dinv, mat.array, &inc);
-  return mat;
-}
diff --git a/cpplapack-r198/.svn/pristine/dd/ddc20d5a9d6513d369e28390e22a8ebc76dd682a.svn-base b/cpplapack-r198/.svn/pristine/dd/ddc20d5a9d6513d369e28390e22a8ebc76dd682a.svn-base
deleted file mode 100644
index 22989f9..0000000
--- a/cpplapack-r198/.svn/pristine/dd/ddc20d5a9d6513d369e28390e22a8ebc76dd682a.svn-base
+++ /dev/null
@@ -1,160 +0,0 @@
-//=============================================================================
-/*! zgsmatrix=zgsmatrix operator */
-inline zgsmatrix& zgsmatrix::operator=(const zgsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  if(&data!=&mat.data){ // if it is NOT self substitution
-    copy(mat);
-  }
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zgsmatrix+=zgsmatrix operator */
-inline zgsmatrix& zgsmatrix::operator+=(const zgsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.n || m!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << m << "x" << n << ") += (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  const std::vector<zcomponent>::const_iterator mat_data_end =mat.data.end();
-  for(std::vector<zcomponent>::const_iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    (*this)(it->i,it->j) +=it->v;
-  }
-  
-  return *this;
-}
-
-//=============================================================================
-/*! zgsmatrix-=zgsmatrix operator */
-inline zgsmatrix& zgsmatrix::operator-=(const zgsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.n || m!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a sutraction." << std::endl
-              << "Your input was (" << m << "x" << n << ") -= (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  const std::vector<zcomponent>::const_iterator mat_data_end =mat.data.end();
-  for(std::vector<zcomponent>::const_iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    (*this)(it->i,it->j) -=it->v;
-  }
-  
-  return *this;
-}
-
-//=============================================================================
-/*! zgsmatrix*=zgsmatrix operator */
-inline zgsmatrix& zgsmatrix::operator*=(const zgsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << m << "x" << n << ") *= (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgsmatrix newmat(m, mat.n);
-  
-  const std::vector<zcomponent>::const_iterator data_end =data.end();
-  for(std::vector<zcomponent>::const_iterator it=data.begin(); it!=data_end; it++){
-    CPPL_INT k =it->j;
-    const std::vector<CPPL_INT>::const_iterator mat_rows_k_end =mat.rows[k].end();
-    for(std::vector<CPPL_INT>::const_iterator p=mat.rows[k].begin(); p!=mat_rows_k_end; p++){
-      newmat(it->i,mat.data[*p].j) +=it->v*mat.data[*p].v;
-    }
-  }
-  
-  swap(*this,newmat);
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zgsmatrix+zgsmatrix operator */
-inline _zgsmatrix operator+(const zgsmatrix& matA, const zgsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgsmatrix newmat(matA);
-  
-  const std::vector<zcomponent>::const_iterator matB_data_end =matB.data.end();
-  for(std::vector<zcomponent>::const_iterator it=matB.data.begin(); it!=matB_data_end; it++){
-    newmat(it->i, it->j) +=it->v;
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! zgsmatrix-zgsmatrix operator */
-inline _zgsmatrix operator-(const zgsmatrix& matA, const zgsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") - (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  zgsmatrix newmat(matA);
-  
-  const std::vector<zcomponent>::const_iterator matB_data_end =matB.data.end();
-  for(std::vector<zcomponent>::const_iterator it=matB.data.begin(); it!=matB_data_end; it++){
-    newmat(it->i, it->j) -=it->v;
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! zgsmatrix*zgsmatrix operator */
-inline _zgsmatrix operator*(const zgsmatrix& matA, const zgsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgsmatrix newmat(matA.m, matB.n);
-  
-  const std::vector<zcomponent>::const_iterator matA_data_end =matA.data.end();
-  for(std::vector<zcomponent>::const_iterator it=matA.data.begin(); it!=matA_data_end; it++){
-    CPPL_INT k =it->j;
-    const std::vector<CPPL_INT>::const_iterator matB_rows_k_end =matB.rows[k].end();
-    for(std::vector<CPPL_INT>::const_iterator p=matB.rows[k].begin(); p!=matB_rows_k_end; p++){
-      newmat(it->i,matB.data[*p].j) +=it->v*matB.data[*p].v;
-    }
-  }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/dd/ddd621d2fb6ee05ddaabfc65a0314f520e147e4e.svn-base b/cpplapack-r198/.svn/pristine/dd/ddd621d2fb6ee05ddaabfc65a0314f520e147e4e.svn-base
deleted file mode 100644
index 5bdd179..0000000
--- a/cpplapack-r198/.svn/pristine/dd/ddd621d2fb6ee05ddaabfc65a0314f520e147e4e.svn-base
+++ /dev/null
@@ -1,24 +0,0 @@
-//=============================================================================
-/*! zrovector*_zgsmatrix operator */
-inline _zrovector operator*(const zrovector& vec, const _zgsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vec.l!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These vector and matrix can not make a product." << std::endl
-              << "Your input was (" << vec.l << ") * (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zrovector newvec(mat.n);
-  newvec.zero();
-  
-  const std::vector<zcomponent>::const_iterator mat_data_end =mat.data.end();
-  for(std::vector<zcomponent>::const_iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    newvec(it->j) += vec(it->i)*it->v;
-  }
-  
-  mat.destroy();
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/dd/dddce256f4aa67a2124bfd7b47e3c99533d56e65.svn-base b/cpplapack-r198/.svn/pristine/dd/dddce256f4aa67a2124bfd7b47e3c99533d56e65.svn-base
deleted file mode 100644
index dc659c9..0000000
--- a/cpplapack-r198/.svn/pristine/dd/dddce256f4aa67a2124bfd7b47e3c99533d56e65.svn-base
+++ /dev/null
@@ -1,20 +0,0 @@
-//=============================================================================
-/*! _zgbmatrix*comple operator */
-inline _zgbmatrix operator*(const _zgbmatrix& mat, const comple& d)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT size =(mat.kl+mat.ku+1)*mat.n;
-  CPPL_INT inc =1;
-  zscal_(&size, &d, mat.array, &inc);
-  return mat;
-}
-
-//=============================================================================
-/*! _zgbmatrix/comple operator */
-inline _zgbmatrix operator/(const _zgbmatrix& mat, const comple& d)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT size =(mat.kl+mat.ku+1)*mat.n;
-  comple dinv =1./d;
-  CPPL_INT inc =1;
-  zscal_(&size, &dinv, mat.array, &inc);
-  return mat;
-}
diff --git a/cpplapack-r198/.svn/pristine/de/de1a664d45312ad472e30d469b88a42b8c318465.svn-base b/cpplapack-r198/.svn/pristine/de/de1a664d45312ad472e30d469b88a42b8c318465.svn-base
deleted file mode 100644
index 39dfed2..0000000
--- a/cpplapack-r198/.svn/pristine/de/de1a664d45312ad472e30d469b88a42b8c318465.svn-base
+++ /dev/null
@@ -1,12 +0,0 @@
-//=============================================================================
-/*! cast to _zcovector */
-inline _zcovector dcovector::to_zcovector() const
-{CPPL_VERBOSE_REPORT;
-  zcovector newvec(l);
-  
-  for(CPPL_INT i=0; i<l; i++){
-    newvec.array[i] =comple(array[i], 0.);
-  }
-  
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/de/de32ee47aabbd724821fefdade418d56376ab841.svn-base b/cpplapack-r198/.svn/pristine/de/de32ee47aabbd724821fefdade418d56376ab841.svn-base
deleted file mode 100644
index 07695fa..0000000
--- a/cpplapack-r198/.svn/pristine/de/de32ee47aabbd724821fefdade418d56376ab841.svn-base
+++ /dev/null
@@ -1,15 +0,0 @@
-//=============================================================================
-/*! _dcovector*drovector operator */
-inline _dgematrix operator*(const _dcovector& covec, const drovector& rovec)
-{CPPL_VERBOSE_REPORT;
-  dgematrix newmat(covec.l, rovec.l);
-  
-  for(CPPL_INT i=0; i<newmat.m; i++){
-    for(CPPL_INT j=0; j<newmat.n; j++){
-      newmat(i,j) =covec(i)*rovec(j);
-    }
-  }
-  
-  covec.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/de/de4e67014960ad3b0d47ae5891ba22bf895e581b.svn-base b/cpplapack-r198/.svn/pristine/de/de4e67014960ad3b0d47ae5891ba22bf895e581b.svn-base
deleted file mode 100644
index 60c4da4..0000000
--- a/cpplapack-r198/.svn/pristine/de/de4e67014960ad3b0d47ae5891ba22bf895e581b.svn-base
+++ /dev/null
@@ -1,52 +0,0 @@
-//=============================================================================
-/*! operator() for const object */
-inline comple& _zcovector::operator()(const CPPL_INT& i) const
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || l<=i ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the vector size." << std::endl
-              << "Your input is (" << i << "), whereas the vector size is (" << l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  return array[i];
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-inline std::ostream& operator<<(std::ostream& s, const _zcovector& vec)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<vec.l; i++){
-    s << " " << vec.array[i] << std::endl;
-  }
-  
-  vec.destroy();
-  return s;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-inline void _zcovector::write(const char* filename) const
-{CPPL_VERBOSE_REPORT;
-  std::ofstream ofs(filename, std::ios::trunc);
-  ofs.setf(std::cout.flags());
-  ofs.precision(std::cout.precision());
-  ofs.width(std::cout.width());
-  ofs.fill(std::cout.fill());
-  
-  ofs << "#zcovector" << " " << l << std::endl;
-  for(CPPL_INT i=0; i<l; i++){
-    ofs << operator()(i) << std::endl;
-  }
-  
-  ofs.close();
-  destroy();
-}
diff --git a/cpplapack-r198/.svn/pristine/de/de59c358f9d61a9ecb8d487ddf9bb4d0be727106.svn-base b/cpplapack-r198/.svn/pristine/de/de59c358f9d61a9ecb8d487ddf9bb4d0be727106.svn-base
deleted file mode 100644
index f69ace8..0000000
--- a/cpplapack-r198/.svn/pristine/de/de59c358f9d61a9ecb8d487ddf9bb4d0be727106.svn-base
+++ /dev/null
@@ -1,33 +0,0 @@
-//=============================================================================
-/*! _dgematrix constructor without arguments */
-inline _dgematrix::_dgematrix()
-{CPPL_VERBOSE_REPORT;
-  m =0;
-  n =0;
-  array =NULL;
-  darray =NULL;
-}
-
-//=============================================================================
-/*! _dgematrix copy constructor */
-inline _dgematrix::_dgematrix(const _dgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-  m =mat.m;
-  n =mat.n;
-  array =mat.array;
-  darray =mat.darray;
-  
-  mat.nullify();
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! dgematrix destructor */
-inline _dgematrix::~_dgematrix()
-{CPPL_VERBOSE_REPORT;
-  delete [] darray;
-  delete [] array;
-}
diff --git a/cpplapack-r198/.svn/pristine/df/df0381167681ab81cbf5ac8a8f21bdc73ccc02a7.svn-base b/cpplapack-r198/.svn/pristine/df/df0381167681ab81cbf5ac8a8f21bdc73ccc02a7.svn-base
deleted file mode 100644
index 88b4d46..0000000
--- a/cpplapack-r198/.svn/pristine/df/df0381167681ab81cbf5ac8a8f21bdc73ccc02a7.svn-base
+++ /dev/null
@@ -1,82 +0,0 @@
-//=============================================================================
-/*! dgbmatrix+dsymatrix operator */
-inline _dgematrix operator+(const dgbmatrix& matA, const dsymatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat(matB.n,matB.n);
-  
-  for(CPPL_INT i=0; i<matA.m; i++){
-    for(CPPL_INT j=0; j<matB.n; j++){
-      newmat(i,j) = matB(i,j);
-    }
-    const CPPL_INT jmax =std::min(matA.n,i+matA.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matA.kl); j<jmax; j++){
-      newmat(i,j)+=matA(i,j);
-    }
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! dgbmatrix-dsymatrix operator */
-inline _dgematrix operator-(const dgbmatrix& matA, const dsymatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat(matB.n,matB.n);
-  for(CPPL_INT i=0; i<matA.m; i++){
-    for(CPPL_INT j=0; j<matB.n; j++){
-      newmat(i,j) = -matB(i,j);
-    }
-    const CPPL_INT jmax =std::min(matA.n,i+matA.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matA.kl); j<jmax; j++){
-      newmat(i,j) += matA(i,j);
-    }
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! dgbmatrix*dsymatrix operator */
-inline _dgematrix operator*(const dgbmatrix& matA, const dsymatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat( matA.m, matB.n );
-  newmat.zero();
-  
-  for(CPPL_INT i=0; i<newmat.m; i++){
-    for(CPPL_INT j=0; j<newmat.n; j++){
-      const CPPL_INT kmax =std::min(matA.n,i+matA.ku+1);
-      for(CPPL_INT k=std::max(CPPL_INT(0),i-matA.kl); k<kmax; k++){
-        newmat(i,j) += matA(i,k)*matB(k,j);
-      }
-    }
-  }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/df/df1a68e4341b4070fb580f934587c5964c7d373d.svn-base b/cpplapack-r198/.svn/pristine/df/df1a68e4341b4070fb580f934587c5964c7d373d.svn-base
deleted file mode 100644
index 2482587..0000000
--- a/cpplapack-r198/.svn/pristine/df/df1a68e4341b4070fb580f934587c5964c7d373d.svn-base
+++ /dev/null
@@ -1,12 +0,0 @@
-//=============================================================================
-/*! comple*zrovector operator */
-inline _zrovector operator*(const comple& d, const zrovector& vec)
-{CPPL_VERBOSE_REPORT;
-  zrovector newvec(vec.l);
-  
-  for(CPPL_INT i=0; i<vec.l; i++){
-    newvec.array[i] =d*vec.array[i];
-  }
-  
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/df/df38886478e71e8a1f6922a9a3c53abb44a8eab2.svn-base b/cpplapack-r198/.svn/pristine/df/df38886478e71e8a1f6922a9a3c53abb44a8eab2.svn-base
deleted file mode 100644
index 8433b1c..0000000
--- a/cpplapack-r198/.svn/pristine/df/df38886478e71e8a1f6922a9a3c53abb44a8eab2.svn-base
+++ /dev/null
@@ -1,23 +0,0 @@
-//=============================================================================
-/*! _dssmatrix*double operator */
-inline _dssmatrix operator*(const _dssmatrix& mat, const double& d)
-{CPPL_VERBOSE_REPORT;
-  const std::vector<dcomponent>::iterator mat_data_end =mat.data.end();
-  for(std::vector<dcomponent>::iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    it->v *=d;
-  }
-  
-  return mat;
-}
-
-//=============================================================================
-/*! _dssmatrix/double operator */
-inline _dssmatrix operator/(const _dssmatrix& mat, const double& d)
-{CPPL_VERBOSE_REPORT;
-  const std::vector<dcomponent>::iterator mat_data_end =mat.data.end();
-  for(std::vector<dcomponent>::iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    it->v /=d;
-  }
-  
-  return mat;
-}
diff --git a/cpplapack-r198/.svn/pristine/df/df3bfe7dbbd15f5706c7d8d0c937f5ade3c43b49.svn-base b/cpplapack-r198/.svn/pristine/df/df3bfe7dbbd15f5706c7d8d0c937f5ade3c43b49.svn-base
deleted file mode 100644
index 4993f7b..0000000
--- a/cpplapack-r198/.svn/pristine/df/df3bfe7dbbd15f5706c7d8d0c937f5ade3c43b49.svn-base
+++ /dev/null
@@ -1,26 +0,0 @@
-//=============================================================================
-/*! drovector*dssmatrix operator */
-inline _drovector operator*(const drovector& vec, const dssmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vec.l!=mat.n){
-    ERROR_REPORT;
-    std::cerr << "These vector and matrix can not make a product." << std::endl
-              << "Your input was (" << vec.l << ") * (" << mat.n << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  drovector newvec(mat.n);
-  newvec.zero();  
-
-  const std::vector<dcomponent>::const_iterator mat_data_end =mat.data.end();
-  for(std::vector<dcomponent>::const_iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    newvec(it->j) += vec(it->i)*it->v;
-    if(it->i!=it->j){
-      newvec(it->i) +=vec(it->j)*it->v;
-    }
-  }
-  
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/df/df42fa7afc044c6e418e46404c18c677092da4bf.svn-base b/cpplapack-r198/.svn/pristine/df/df42fa7afc044c6e418e46404c18c677092da4bf.svn-base
deleted file mode 100644
index 4925fbd..0000000
--- a/cpplapack-r198/.svn/pristine/df/df42fa7afc044c6e418e46404c18c677092da4bf.svn-base
+++ /dev/null
@@ -1,73 +0,0 @@
-//=============================================================================
-/*! _zgsmatrix+zhematrix operator */
-/*
-inline _zgematrix operator+(const _zgsmatrix& matA, const zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.n || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(matB);
-  for(CPPL_INT c=0; c<matA.vol; c++){
-    newmat(matA.indx[c],matA.jndx[c]) += matA.array[c];
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
-*/
-//=============================================================================
-/*! _zgsmatrix-zhematrix operator */
-/*
-inline _zgematrix operator-(const _zgsmatrix& matA, const zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.n || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") - (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  zgematrix newmat(-matB);
-  for(CPPL_INT c=0; c<matA.vol; c++){
-    newmat(matA.indx[c],matA.jndx[c]) += matA.array[c];
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
-*/
-//=============================================================================
-/*! _zgsmatrix*zhematrix operator */
-/*
-inline _zgematrix operator*(const _zgsmatrix& matA, const zhematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(matA.m, matB.n);
-  newmat.zero();
-  
-  for(CPPL_INT c=0; c<matA.vol; c++){
-    for(CPPL_INT i=0; i<matB.n; i++){
-      newmat(matA.indx[c],i) += matA.array[c]*matB(matA.jndx[c],i);
-    }
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
-*/
diff --git a/cpplapack-r198/.svn/pristine/df/df4e43c1b57985cdc0fda4cd6b4e080dc2e239b4.svn-base b/cpplapack-r198/.svn/pristine/df/df4e43c1b57985cdc0fda4cd6b4e080dc2e239b4.svn-base
deleted file mode 100644
index ff4b355..0000000
--- a/cpplapack-r198/.svn/pristine/df/df4e43c1b57985cdc0fda4cd6b4e080dc2e239b4.svn-base
+++ /dev/null
@@ -1,30 +0,0 @@
-//=============================================================================
-/*! drovector constructor */
-inline _drovector::_drovector()
-{CPPL_VERBOSE_REPORT;
-  l =0;
-  cap =0;
-  array =NULL;
-}
-
-//=============================================================================
-/*! _drovector copy constructor */
-inline _drovector::_drovector(const _drovector& vec)
-{CPPL_VERBOSE_REPORT;
-  l =vec.l;
-  cap =vec.cap;
-  array =vec.array;
-  
-  vec.nullify();
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! _drovector destructor */
-inline _drovector::~_drovector()
-{CPPL_VERBOSE_REPORT;
-  delete[] array; 
-}
diff --git a/cpplapack-r198/.svn/pristine/df/dfc3518198989f7a0ee3d1463377101b2ab82063.svn-base b/cpplapack-r198/.svn/pristine/df/dfc3518198989f7a0ee3d1463377101b2ab82063.svn-base
deleted file mode 100644
index e3e5124..0000000
--- a/cpplapack-r198/.svn/pristine/df/dfc3518198989f7a0ee3d1463377101b2ab82063.svn-base
+++ /dev/null
@@ -1,36 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int M(4);
-  
-  CPPL::zcovector x(M);
-  CPPL::zrovector y(M);
-  
-  for(int i=0; i<x.l; i++){
-    x(i) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-  }
-  for(int i=0; i<y.l; i++){
-    y(i) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-  }
-  
-  cout << "x =\n" << x << endl;
-  cout << "y =\n" << y << endl;
-  cout << "x*y =\n" << x*y << endl;
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/e0/e057b2069a27ec118b34385e1809d80391acf29c.svn-base b/cpplapack-r198/.svn/pristine/e0/e057b2069a27ec118b34385e1809d80391acf29c.svn-base
deleted file mode 100644
index ef3c6d2..0000000
--- a/cpplapack-r198/.svn/pristine/e0/e057b2069a27ec118b34385e1809d80391acf29c.svn-base
+++ /dev/null
@@ -1,61 +0,0 @@
-//=============================================================================
-/*! operator() for const object */
-inline double& _dgbmatrix::operator()(const CPPL_INT& i, const CPPL_INT& j) const
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || j<0 || m<=i || n<=j || i-j>kl || j-i>ku ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the matrix size." << std::endl
-              << "Your input is (" << i << "," << j << "), whereas the matrix size is (" << m << "," << n << " , " << kl << "," << ku << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //return array[ku+i+(kl+ku)*j];
-  return darray[j][ku-j+i];
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-inline std::ostream& operator<<(std::ostream& s, const _dgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<mat.m; i++){
-    for(CPPL_INT j=0; j<mat.n; j++){
-      if( i-j>mat.kl || j-i>mat.ku ){ s << " x"; }
-      else{ s << " " << mat(i,j); }
-    }
-    s << std::endl;
-  }
-  
-  mat.destroy();
-  return s;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-inline void _dgbmatrix::write(const char *filename) const
-{CPPL_VERBOSE_REPORT;
-  std::ofstream ofs(filename, std::ios::trunc);
-  ofs.setf(std::cout.flags());
-  ofs.precision(std::cout.precision());
-  ofs.width(std::cout.width());
-  ofs.fill(std::cout.fill());
-  
-  ofs << "#dgbmatrix" << " " << m << " " << n << " " << kl << " " << ku << std::endl;
-  for(CPPL_INT i=0; i<m; i++){
-    const CPPL_INT jmax =std::min(n,i+ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-kl); j<jmax; j++){
-      ofs << operator()(i,j) << " ";
-    }
-    ofs << std::endl;
-  }
-  
-  ofs.close();
-  destroy();
-}
diff --git a/cpplapack-r198/.svn/pristine/e0/e07216b850ef207375126b262fd6d46d43e11407.svn-base b/cpplapack-r198/.svn/pristine/e0/e07216b850ef207375126b262fd6d46d43e11407.svn-base
deleted file mode 100644
index d53e881..0000000
--- a/cpplapack-r198/.svn/pristine/e0/e07216b850ef207375126b262fd6d46d43e11407.svn-base
+++ /dev/null
@@ -1,133 +0,0 @@
-//=============================================================================
-/*! dssmatrix=dssmatrix operator */
-inline dssmatrix& dssmatrix::operator=(const dssmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  if(&data!=&mat.data){ // if it is NOT self substitution
-    copy(mat);
-  }
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! dssmatrix+=dssmatrix operator */
-inline dssmatrix& dssmatrix::operator+=(const dssmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << n << "x" << n << ") += (" << mat.n << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  const std::vector<dcomponent>::const_iterator mat_data_end =mat.data.end();
-  for(std::vector<dcomponent>::const_iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    (*this)(it->i,it->j) +=it->v;
-  }
-  
-  return *this;
-}
-
-//=============================================================================
-/*! dssmatrix-=dssmatrix operator */
-inline dssmatrix& dssmatrix::operator-=(const dssmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a sutraction." << std::endl
-              << "Your input was (" << n << "x" << n << ") -= (" << mat.n << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  const std::vector<dcomponent>::const_iterator mat_data_end =mat.data.end();
-  for(std::vector<dcomponent>::const_iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    (*this)(it->i,it->j) -=it->v;
-  }
-  
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! dssmatrix+dssmatrix operator */
-inline _dssmatrix operator+(const dssmatrix& matA, const dssmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") + (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dssmatrix newmat(matA);
-  
-  const std::vector<dcomponent>::const_iterator matB_data_end =matB.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matB.data.begin(); it!=matB_data_end; it++){
-    newmat(it->i,it->j) +=it->v;
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! dssmatrix-dssmatrix operator */
-inline _dssmatrix operator-(const dssmatrix& matA, const dssmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") - (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  dssmatrix newmat(matA);
-  
-  const std::vector<dcomponent>::const_iterator matB_data_end =matB.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matB.data.begin(); it!=matB_data_end; it++){
-    newmat(it->i,it->j) -=it->v;
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! dssmatrix*dssmatrix operator */
-/*
-inline _dgsmatrix operator*(const dssmatrix& matA, const dssmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") * (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dssmatrix newmat( matA.n, 0 );
-  
-  for(CPPL_INT c=0; c<matA.vol; c++){
-    CPPL_INT k(matA.jndx[c]);
-    std::vector< std::pair<CPPL_INT,CPPL_INT> >::iterator p;
-    for(p=matB.Col[k].begin(); p!=matB.Col[k].end(); p++){
-      newmat(matA.indx[c],p->first) +=matA.array[c]*matB.array[p->second];
-    }
-  }
-  
-  return _(newmat);
-}
-*/
diff --git a/cpplapack-r198/.svn/pristine/e0/e075d03b691e87484f432a82d3dc622d0dd0161e.svn-base b/cpplapack-r198/.svn/pristine/e0/e075d03b691e87484f432a82d3dc622d0dd0161e.svn-base
deleted file mode 100644
index b757303..0000000
--- a/cpplapack-r198/.svn/pristine/e0/e075d03b691e87484f432a82d3dc622d0dd0161e.svn-base
+++ /dev/null
@@ -1,16 +0,0 @@
-//=============================================================================
-/*! +drovector operator */
-inline const drovector& operator+(const drovector& vec)
-{CPPL_VERBOSE_REPORT;
-  return vec;
-}
-
-//=============================================================================
-/*! -drovector operator */
-inline _drovector operator-(const drovector& vec)
-{CPPL_VERBOSE_REPORT;
-  drovector newvec(vec.l);
-  for(CPPL_INT i=0; i<newvec.l; i++){ newvec.array[i]=-vec.array[i]; }
-  
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/e0/e08f01e628530cc8996317afcb6b0b4b52dfc1a4.svn-base b/cpplapack-r198/.svn/pristine/e0/e08f01e628530cc8996317afcb6b0b4b52dfc1a4.svn-base
deleted file mode 100644
index 9249e37..0000000
--- a/cpplapack-r198/.svn/pristine/e0/e08f01e628530cc8996317afcb6b0b4b52dfc1a4.svn-base
+++ /dev/null
@@ -1,89 +0,0 @@
-//=============================================================================
-/*! _zhematrix+_zgbmatrix operator */
-inline _zgematrix operator+(const _zhematrix& matA, const _zgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(matA.n, matA.n);
-  
-  for(CPPL_INT i=0; i<matB.m; i++){
-    for(CPPL_INT j=0; j<matA.n; j++){
-      newmat(i,j) =matA(i,j);
-    }
-    const CPPL_INT jmax =std::min(matB.n,i+matB.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matB.kl); j<jmax; j++){
-      newmat(i,j)+=matB(i,j);
-    }
-  }
-  
-  matA.destroy();
-  matB.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _zhematrix-_zgbmatrix operator */
-inline _zgematrix operator-(const _zhematrix& matA, const _zgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(matA.n, matA.n);
-  
-  for(CPPL_INT i=0; i<matB.m; i++){
-    for(CPPL_INT j=0; j<matA.n; j++){
-      newmat(i,j) =matA(i,j);
-    }
-    const CPPL_INT jmax =std::min(matB.n,i+matB.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matB.kl); j<jmax; j++){
-      newmat(i,j)-=matB(i,j);
-    }
-  }
-
-  matA.destroy();
-  matB.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _zhematrix*_zgbmatrix operator */
-inline _zgematrix operator*(const _zhematrix& matA, const _zgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat( matA.n, matB.n );
-  newmat.zero();
-  
-  for(CPPL_INT i=0; i<newmat.m; i++){
-    for(CPPL_INT j=0; j<newmat.n; j++){
-      const CPPL_INT kmax =std::min(matB.m,j+matB.kl+1);
-      for(CPPL_INT k=std::max(CPPL_INT(0),j-matB.ku); k<kmax; k++){
-        newmat(i,j)+=matA(i,k)*matB(k,j);
-      }
-    }
-  }
-  
-  matA.destroy();
-  matB.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/e0/e0f996a295bb5189191871098791eb563eba4367.svn-base b/cpplapack-r198/.svn/pristine/e0/e0f996a295bb5189191871098791eb563eba4367.svn-base
deleted file mode 100644
index 0710013..0000000
--- a/cpplapack-r198/.svn/pristine/e0/e0f996a295bb5189191871098791eb563eba4367.svn-base
+++ /dev/null
@@ -1,8 +0,0 @@
-//=============================================================================
-/*! comple*_zrovector operator */
-inline _zrovector operator*(const comple& d, const _zrovector& vec)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT inc =1;
-  zscal_(&vec.l, &d, vec.array, &inc);
-  return vec;
-}
diff --git a/cpplapack-r198/.svn/pristine/e1/e1279a58a3e224b1c212ea6c3d9f08db5d037ca5.svn-base b/cpplapack-r198/.svn/pristine/e1/e1279a58a3e224b1c212ea6c3d9f08db5d037ca5.svn-base
deleted file mode 100644
index 8de3010..0000000
--- a/cpplapack-r198/.svn/pristine/e1/e1279a58a3e224b1c212ea6c3d9f08db5d037ca5.svn-base
+++ /dev/null
@@ -1,79 +0,0 @@
-//=============================================================================
-/*! _dgsmatrix+_dsymatrix operator */
-/*
-inline _dgematrix operator+(const _dgsmatrix& matA, const _dsymatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.n || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat(matB);
-  for(CPPL_INT c=0; c<matA.vol; c++){
-    newmat(matA.indx[c],matA.jndx[c]) += matA.array[c];
-  }
-  
-  matA.destroy();
-  matB.destroy();
-  return _(newmat);
-}
-*/
-//=============================================================================
-/*! _dgsmatrix-_dsymatrix operator */
-/*
-inline _dgematrix operator-(const _dgsmatrix& matA, const _dsymatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.n || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") - (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  //// shallow copy to dgematrix  ////
-  dgematrix newmat(-matB);
-  
-  //// add ////
-  for(CPPL_INT c=0; c<matA.vol; c++){
-    newmat(matA.indx[c],matA.jndx[c]) += matA.array[c];
-  }
-  
-  matA.destroy();
-  matB.destroy();
-  return _(newmat);
-}
-*/
-//=============================================================================
-/*! _dgsmatrix*_dsymatrix operator */
-/*
-inline _dgematrix operator*(const _dgsmatrix& matA, const _dsymatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat(matA.m, matB.n);
-  newmat.zero();
-  
-  for(CPPL_INT c=0; c<matA.vol; c++){
-    for(CPPL_INT i=0; i<matB.n; i++){
-      newmat(matA.indx[c],i) += matA.array[c]*matB(matA.jndx[c],i);
-    }
-  }
-  
-  matA.destroy();
-  matB.destroy();
-  return _(newmat);
-}
-*/
diff --git a/cpplapack-r198/.svn/pristine/e1/e12a23e9161b29141242fd0fd2326d88897520a6.svn-base b/cpplapack-r198/.svn/pristine/e1/e12a23e9161b29141242fd0fd2326d88897520a6.svn-base
deleted file mode 100644
index fd644be..0000000
--- a/cpplapack-r198/.svn/pristine/e1/e12a23e9161b29141242fd0fd2326d88897520a6.svn-base
+++ /dev/null
@@ -1,79 +0,0 @@
-//=============================================================================
-/*! dgbmatrix+_dgsmatrix operator */
-inline _dgematrix operator+(const dgbmatrix& matA, const _dgsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat( matB.to_dgematrix() );
-  
-  for(CPPL_INT i=0; i<matA.m; i++){
-    const CPPL_INT jmax =std::min(matA.n,i+matA.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matA.kl); j<jmax; j++){
-      newmat(i,j)+=matA(i,j);
-    }
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! dgbmatrix-_dgsmatrix operator */
-inline _dgematrix operator-(const dgbmatrix& matA, const _dgsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat( (-matB).to_dgematrix() );
-  
-  for(CPPL_INT i=0; i<matA.m; i++){
-    const CPPL_INT jmax =std::min(matA.n,i+matA.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matA.kl); j<jmax; j++){
-      newmat(i,j)-=matA(i,j);
-    }
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! dgbmatrix*_dgsmatrix operator */
-inline _dgematrix operator*(const dgbmatrix& matA, const _dgsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat( matA.m, matB.n );
-  newmat.zero();
-  
-  const std::vector<dcomponent>::const_iterator matB_data_end =matB.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matB.data.begin(); it!=matB_data_end; it++){
-    const CPPL_INT imax =std::min(matA.m,it->i+matA.kl);
-    for(CPPL_INT i=std::max(CPPL_INT(0),it->i-(matA.ku+1)); i<imax; i++){
-      newmat(i,it->j) += matA(i,it->i)*it->v;
-    }
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/e1/e13c3be93f8247eda58c7bf3af65371444846ff2.svn-base b/cpplapack-r198/.svn/pristine/e1/e13c3be93f8247eda58c7bf3af65371444846ff2.svn-base
deleted file mode 100644
index 1a82d4a..0000000
--- a/cpplapack-r198/.svn/pristine/e1/e13c3be93f8247eda58c7bf3af65371444846ff2.svn-base
+++ /dev/null
@@ -1,74 +0,0 @@
-//=============================================================================
-/*! _dgsmatrix+dsymatrix operator */
-inline _dgematrix operator+(const _dgsmatrix& matA, const dsymatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.n || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat( matB.to_dgematrix() );
-  
-  const std::vector<dcomponent>::const_iterator matA_data_end =matA.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matA.data.begin(); it!=matA_data_end; it++){
-    newmat(it->i,it->j) += it->v;
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _dgsmatrix-dsymatrix operator */
-inline _dgematrix operator-(const _dgsmatrix& matA, const dsymatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.n || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") - (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat( (-matB).to_dgematrix() );
-  
-  const std::vector<dcomponent>::const_iterator matA_data_end =matA.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matA.data.begin(); it!=matA_data_end; it++){
-    newmat(it->i,it->j) += it->v;
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _dgsmatrix*dsymatrix operator */
-inline _dgematrix operator*(const _dgsmatrix& matA, const dsymatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat(matA.m, matB.n);
-  newmat.zero();
-  
-  const std::vector<dcomponent>::const_iterator matA_data_end =matA.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matA.data.begin(); it!=matA_data_end; it++){
-    for(CPPL_INT i=0; i<matB.n; i++){
-      newmat(it->i,i) += it->v*matB(it->j,i);
-    }
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/e1/e1e68b5942404451367c01ac9927a1b441a9070d.svn-base b/cpplapack-r198/.svn/pristine/e1/e1e68b5942404451367c01ac9927a1b441a9070d.svn-base
deleted file mode 100644
index 3d24809..0000000
--- a/cpplapack-r198/.svn/pristine/e1/e1e68b5942404451367c01ac9927a1b441a9070d.svn-base
+++ /dev/null
@@ -1,26 +0,0 @@
-//=============================================================================
-/*! dssmatrix*dcovector operator */
-inline _dcovector operator*(const dssmatrix& mat, const dcovector& vec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(mat.n!=vec.l){
-    ERROR_REPORT;
-    std::cerr << "These matrix and vector can not make a product." << std::endl
-              << "Your input was (" << mat.n << "x" << mat.n << ") * (" << vec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  dcovector newvec(mat.n);
-  newvec.zero();
-  
-  const std::vector<dcomponent>::const_iterator mat_data_end =mat.data.end();
-  for(std::vector<dcomponent>::const_iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    newvec(it->i) +=it->v*vec(it->j);
-    if(it->i!=it->j){
-      newvec(it->j) +=it->v*vec(it->i);
-    }
-  }
-  
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/e2/e27c872aa886da9894776187c2280c73d2169faa.svn-base b/cpplapack-r198/.svn/pristine/e2/e27c872aa886da9894776187c2280c73d2169faa.svn-base
deleted file mode 100644
index f716f6a..0000000
--- a/cpplapack-r198/.svn/pristine/e2/e27c872aa886da9894776187c2280c73d2169faa.svn-base
+++ /dev/null
@@ -1,80 +0,0 @@
-//=============================================================================
-/*! dcovector constructor */
-inline dcovector::dcovector()
-{CPPL_VERBOSE_REPORT;
-  //////// initialize ////////
-  l =0;
-  cap =0;
-  array =NULL;
-}
-
-//=============================================================================
-/*! dcovector copy constructor */
-inline dcovector::dcovector(const dcovector& vec)
-{CPPL_VERBOSE_REPORT;
-  //////// initialize ////////
-  l =vec.l;
-  cap =vec.cap;
-  array =new double[cap];
-  
-  //////// copy ////////
-  CPPL_INT inc =1;
-  dcopy_(&l, vec.array, &inc, array, &inc);
-}
-
-//=============================================================================
-/*! dcovector constructor to cast _dcovector */
-inline dcovector::dcovector(const _dcovector& vec)
-{CPPL_VERBOSE_REPORT;
-  //////// initialize ////////
-  l =vec.l;
-  cap =vec.cap;
-  array =vec.array;
-  
-  vec.nullify();
-}
-
-//=============================================================================
-/*! dcovector constructor with size specification */
-inline dcovector::dcovector(const CPPL_INT& _l, const CPPL_INT margin)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( _l<0 ){
-    ERROR_REPORT;
-    std::cerr << "Vector size must be positive integers. " << std::endl
-              << "Your input was (" << _l << ")." << std::endl;
-    exit(1);
-  }
-  if( margin<0 ){
-    ERROR_REPORT;
-    std::cerr << "Vector margin must be zero or above. " << std::endl
-              << "Your input was (" << _l << ", " << margin << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  //////// initialize ////////
-  l =_l;
-  cap =l+margin;
-  array =new double[cap];
-}
-
-//=============================================================================
-/*! dcovector constructor with filename */
-inline dcovector::dcovector(const char* filename)
-{CPPL_VERBOSE_REPORT;
-  array =NULL;
-  read(filename);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! dcovector destructor */
-inline dcovector::~dcovector()
-{CPPL_VERBOSE_REPORT;
-  //////// delete array ////////
-  delete [] array;
-}
diff --git a/cpplapack-r198/.svn/pristine/e3/e307da2c3968a2b87ed340e0d65c128b8c1af5b1.svn-base b/cpplapack-r198/.svn/pristine/e3/e307da2c3968a2b87ed340e0d65c128b8c1af5b1.svn-base
deleted file mode 100644
index d4627ab..0000000
--- a/cpplapack-r198/.svn/pristine/e3/e307da2c3968a2b87ed340e0d65c128b8c1af5b1.svn-base
+++ /dev/null
@@ -1,71 +0,0 @@
-//=============================================================================
-/*! zhematrix+_zssmatrix operator */
-inline _zgematrix operator+(const zhematrix& matA, const _zssmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat =matA;
-  
-  for(CPPL_INT c=0; c<matB.vol; c++){
-    newmat(matB.indx[c],matB.jndx[c]) += matB.array[c];
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! zhematrix-_zssmatrix operator */
-inline _zgematrix operator-(const zhematrix& matA, const _zssmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") - (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat =matA;
-  
-  for(CPPL_INT c=0; c<matB.vol; c++){
-    newmat(matB.indx[c],matB.jndx[c]) -= matB.array[c];
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! zhematrix*_zssmatrix operator */
-inline _zgematrix operator*(const zhematrix& matA, const _zssmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(matA.n, matB.n);
-  newmat.zero();
-  
-  for(CPPL_INT c=0; c<matB.vol; c++){
-    for(CPPL_INT i=0; i<matA.n; i++){
-      newmat(i,matB.jndx[c]) += matA(i,matB.indx[c])*matB.array[c];
-    }
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/e3/e3ed1205506665ac177b23c551ef2d71c50bdc96.svn-base b/cpplapack-r198/.svn/pristine/e3/e3ed1205506665ac177b23c551ef2d71c50bdc96.svn-base
deleted file mode 100644
index 29b3e9d..0000000
--- a/cpplapack-r198/.svn/pristine/e3/e3ed1205506665ac177b23c551ef2d71c50bdc96.svn-base
+++ /dev/null
@@ -1,20 +0,0 @@
-//=============================================================================
-/*! +dgsmatrix operator */
-inline const dgsmatrix& operator+(const dgsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  return mat;
-}
-
-//=============================================================================
-/*! -dgsmatrix operator */
-inline _dgsmatrix operator-(const dgsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  dgsmatrix newmat(mat);
-  
-  const std::vector<dcomponent>::iterator newmat_data_end =newmat.data.end();
-  for(std::vector<dcomponent>::iterator it=newmat.data.begin(); it!=newmat_data_end; it++){
-    it->v =-it->v;
-  }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/e4/e457c0ea65e301bf8b8fb5757bd322c6d7cb826f.svn-base b/cpplapack-r198/.svn/pristine/e4/e457c0ea65e301bf8b8fb5757bd322c6d7cb826f.svn-base
deleted file mode 100644
index ec42c4f..0000000
--- a/cpplapack-r198/.svn/pristine/e4/e457c0ea65e301bf8b8fb5757bd322c6d7cb826f.svn-base
+++ /dev/null
@@ -1,19 +0,0 @@
-#!/bin/sh
-
-rootdir=`pwd`
-MAKEFILE=$HOME/local/cpplapack/makefiles/Makefile
-
-rm -f do.log
-
-for i in `find * -type d | grep -v .svn`; do
-    if [ -d $i ]; then
-        echo "################ Enter into $i/ ################"
-        cd $i
-        if [ -f main.cpp ]; then
-            make -f $MAKEFILE fullclean && rm -f SUCCEEDED tmp.txt
-        fi
-        if [ $? != 0 ]; then exit 1; fi
-        cd $rootdir
-        echo "################ Exit  from $i/ ################"
-    fi
-done
diff --git a/cpplapack-r198/.svn/pristine/e4/e47a9036fbd9bea2c6ba958ad7b1d50fc61895cd.svn-base b/cpplapack-r198/.svn/pristine/e4/e47a9036fbd9bea2c6ba958ad7b1d50fc61895cd.svn-base
deleted file mode 100644
index a2b426a..0000000
--- a/cpplapack-r198/.svn/pristine/e4/e47a9036fbd9bea2c6ba958ad7b1d50fc61895cd.svn-base
+++ /dev/null
@@ -1,14 +0,0 @@
-//=============================================================================
-/*! +_zgematrix operator */
-inline const _zgematrix& operator+(const _zgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-  return mat;
-}
-
-//=============================================================================
-/*! -_zgematrix operator */
-inline _zgematrix operator-(const _zgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<mat.m*mat.n; i++){ mat.array[i]=-mat.array[i]; }
-  return mat;
-}
diff --git a/cpplapack-r198/.svn/pristine/e4/e4a1f2759e53e720501f34b110e616e1f4928c03.svn-base b/cpplapack-r198/.svn/pristine/e4/e4a1f2759e53e720501f34b110e616e1f4928c03.svn-base
deleted file mode 100644
index 1d98f26..0000000
--- a/cpplapack-r198/.svn/pristine/e4/e4a1f2759e53e720501f34b110e616e1f4928c03.svn-base
+++ /dev/null
@@ -1,24 +0,0 @@
-//=============================================================================
-/*! drovector*_dsymatrix operator */
-inline _drovector operator*(const drovector& vec, const _dsymatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vec.l!=mat.n){
-    ERROR_REPORT;
-    std::cerr << "These vector and matrix can not make a product." << std::endl
-              << "Your input was (" << vec.l << ") * (" << mat.n << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  drovector newvec(mat.n);
-  char uplo ='l';
-  double alpha =1.;
-  CPPL_INT inc =1;
-  double beta =0.;
-  
-  dsymv_( &uplo, &mat.n, &alpha, mat.array, &mat.n, vec.array, &inc, &beta, newvec.array, &inc );
-  
-  mat.destroy();
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/e4/e4f9f3cefac52eb0419ef09562342ea949a70357.svn-base b/cpplapack-r198/.svn/pristine/e4/e4f9f3cefac52eb0419ef09562342ea949a70357.svn-base
deleted file mode 100644
index 3cdb615..0000000
--- a/cpplapack-r198/.svn/pristine/e4/e4f9f3cefac52eb0419ef09562342ea949a70357.svn-base
+++ /dev/null
@@ -1,23 +0,0 @@
-//=============================================================================
-/*! zrovector*zhematrix operator */
-inline _zrovector operator*(const zrovector& vec, const zhematrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vec.l!=mat.n){
-    ERROR_REPORT;
-    std::cerr << "These vector and matrix can not make a product." << std::endl
-              << "Your input was (" << vec.l << ") * (" << mat.n << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zrovector newvec(mat.n);
-  char uplo ='l';
-  comple alpha =comple(1.,0.);
-  CPPL_INT inc =1;
-  comple beta =comple(0.,0.);
-  
-  zhemv_( &uplo, &mat.n, &alpha, mat.array, &mat.n, vec.array, &inc, &beta, newvec.array, &inc );
-  
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/e5/e56fb09e3adc70b10b26e5e9866ba1e0fb209826.svn-base b/cpplapack-r198/.svn/pristine/e5/e56fb09e3adc70b10b26e5e9866ba1e0fb209826.svn-base
deleted file mode 100644
index 10c7713..0000000
--- a/cpplapack-r198/.svn/pristine/e5/e56fb09e3adc70b10b26e5e9866ba1e0fb209826.svn-base
+++ /dev/null
@@ -1,72 +0,0 @@
-//=============================================================================
-/*! return transposed zgbmatrix */
-inline _zgbmatrix t(const zgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  zgbmatrix newmat(mat.n, mat.m, mat.ku, mat.kl);
-  
-  for(CPPL_INT i=0; i<newmat.m; i++){
-    const CPPL_INT jmax =std::min(newmat.n,i+newmat.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-newmat.kl); j<jmax; j++){
-      newmat(i,j) =mat(j,i);
-    }
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! return its inverse matrix */
-inline _zgematrix i(const zgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(mat.m!=mat.n){
-    ERROR_REPORT;
-    std::cerr << "This matrix is not square and has no inverse matrix." << std::endl
-              << "Your input was (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgbmatrix mat_cp(mat);
-  zgematrix mat_inv(mat.m,mat.n);
-  mat_inv.identity();
-  mat_cp.zgbsv(mat_inv);
-  
-  return _(mat_inv);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! return its conjugate matrix */
-inline _zgbmatrix conj(const zgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  zgbmatrix newmat(mat.m, mat.n, mat.kl, mat.ku);
-  
-  for(CPPL_INT i=0; i<mat.m; i++){
-    const CPPL_INT jmax =std::min(mat.n,i+mat.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-mat.kl); j<jmax; j++){
-      newmat(i,j) =std::conj(mat(i,j));
-    }
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! return its conjugate transposed zgbmatrix */
-inline _zgbmatrix conjt(const zgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  zgbmatrix newmat(mat.n, mat.m, mat.ku, mat.kl);
-  
-  for(CPPL_INT i=0; i<newmat.m; i++){
-    const CPPL_INT jmax =std::min(newmat.n,i+newmat.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-newmat.kl); j<jmax; j++){
-      newmat(i,j) =std::conj(mat(j,i));
-    }
-  }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/e5/e59448f0993651371bd2f188732ff3ebc6fb29e0.svn-base b/cpplapack-r198/.svn/pristine/e5/e59448f0993651371bd2f188732ff3ebc6fb29e0.svn-base
deleted file mode 100644
index f06e23c..0000000
--- a/cpplapack-r198/.svn/pristine/e5/e59448f0993651371bd2f188732ff3ebc6fb29e0.svn-base
+++ /dev/null
@@ -1,22 +0,0 @@
-//=============================================================================
-/*! return its largest absolute value */
-inline double damax(const dgrmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  //////// exception ////////
-  if(mat.a.size()==0){
-    return 0.;
-  }
-  
-  //////// find ////////
-  const size_t mat_a_size =mat.a.size();
-  double amax =0.;
-  double vmax;
-  for(size_t k=0; k<mat_a_size; k++){
-    if( amax < fabs(mat.a[k]) ){
-      amax =fabs(mat.a[k]);
-      vmax =mat.a[k];
-    }
-  }
-  
-  return vmax;
-}
diff --git a/cpplapack-r198/.svn/pristine/e6/e66cf4c1d3e40114fc419b569a208c7884cc5295.svn-base b/cpplapack-r198/.svn/pristine/e6/e66cf4c1d3e40114fc419b569a208c7884cc5295.svn-base
deleted file mode 100644
index 65180f2..0000000
--- a/cpplapack-r198/.svn/pristine/e6/e66cf4c1d3e40114fc419b569a208c7884cc5295.svn-base
+++ /dev/null
@@ -1,27 +0,0 @@
-//=============================================================================
-/*! zhsmatrix*_zcovector operator */
-inline _zcovector operator*(const zhsmatrix& mat, const _zcovector& vec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(mat.n!=vec.l){
-    ERROR_REPORT;
-    std::cerr << "These matrix and vector can not make a product." << std::endl
-              << "Your input was (" << mat.n << "x" << mat.n << ") * (" << vec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zcovector newvec(mat.n);
-  newvec.zero();
-  
-  const std::vector<zcomponent>::const_iterator mat_data_end =mat.data.end();
-  for(std::vector<zcomponent>::const_iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    newvec(it->i) +=it->v*vec(it->j);
-    if(it->i!=it->j){
-      newvec(it->j) +=std::conj(it->v)*vec(it->i);
-    }
-  }
-  
-  vec.destroy();
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/e6/e6a9fe091c43894802680bdb6c94c154ad7d386f.svn-base b/cpplapack-r198/.svn/pristine/e6/e6a9fe091c43894802680bdb6c94c154ad7d386f.svn-base
deleted file mode 100644
index 0689bb0..0000000
--- a/cpplapack-r198/.svn/pristine/e6/e6a9fe091c43894802680bdb6c94c154ad7d386f.svn-base
+++ /dev/null
@@ -1,77 +0,0 @@
-//=============================================================================
-/*! _dgematrix+_dgbmatrix operator */
-inline _dgematrix operator+(const _dgematrix& matA, const _dgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<matB.m; i++){
-    const CPPL_INT jmax =std::min(matB.n,i+matB.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matB.kl); j<jmax; j++){
-      matA(i,j) += matB(i,j);
-    }
-  }
-  
-  matB.destroy();
-  return matA;
-}
-
-//=============================================================================
-/*! _dgematrix-_dgbmatrix operator */
-inline _dgematrix operator-(const _dgematrix& matA, const _dgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<matB.m; i++){
-    const CPPL_INT jmax =std::min(matB.n,i+matB.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matB.kl); j<jmax; j++){
-      matA(i,j) -= matB(i,j);
-    }
-  }
-  
-  matB.destroy();
-  return matA;
-}
-
-//=============================================================================
-/*! _dgematrix*_dgbmatrix operator */
-inline _dgematrix operator*(const _dgematrix& matA, const _dgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat( matA.m, matB.n );
-  newmat.zero();
-  
-  for(CPPL_INT i=0; i<newmat.m; i++){
-    for(CPPL_INT j=0; j<newmat.n; j++){
-      const CPPL_INT kmax =std::min(matB.m,j+matB.kl+1);
-      for(CPPL_INT k=std::max(CPPL_INT(0),j-matB.ku); k<kmax; k++){
-        newmat(i,j) += matA(i,k)*matB(k,j);
-      }
-    }
-  }
-  
-  matA.destroy();
-  matB.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/e7/e737e9433c7d9d6d8a8226d629693c4030e73af9.svn-base b/cpplapack-r198/.svn/pristine/e7/e737e9433c7d9d6d8a8226d629693c4030e73af9.svn-base
deleted file mode 100644
index ae2bd50..0000000
--- a/cpplapack-r198/.svn/pristine/e7/e737e9433c7d9d6d8a8226d629693c4030e73af9.svn-base
+++ /dev/null
@@ -1,52 +0,0 @@
-//=============================================================================
-/*! return transposed _dssmatrix */
-inline _dssmatrix t(const _dssmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  return mat;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! search the index of element having the largest absolute value
-  in 0-based numbering system */
-inline void idamax(CPPL_INT& i, CPPL_INT& j, const _dssmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  std::vector<dcomponent>::const_iterator itx(mat.data.begin());
-  double vmax(0);
-  
-  const std::vector<dcomponent>::const_iterator mat_data_end =mat.data.end();
-  for(std::vector<dcomponent>::const_iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    if(vmax < it->v){
-      vmax=fabs(it->v);
-      itx=it;
-    }
-  }
-  
-  i=itx->i;
-  j=itx->j;
-  
-  mat.destroy();
-}
-
-//=============================================================================
-/*! return its largest absolute value */
-inline double damax(const _dssmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  std::vector<dcomponent>::const_iterator itx(mat.data.begin());
-  double vmax(0);
-  
-  const std::vector<dcomponent>::const_iterator mat_data_end =mat.data.end();
-  for(std::vector<dcomponent>::const_iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    if(vmax < it->v){
-      vmax=fabs(it->v);
-      itx=it;
-    }
-  }
-  
-  double val(itx->v);
-  mat.destroy();
-  return val;
-}
diff --git a/cpplapack-r198/.svn/pristine/e7/e7510d7cd9843ab66a284353e54534e863628cac.svn-base b/cpplapack-r198/.svn/pristine/e7/e7510d7cd9843ab66a284353e54534e863628cac.svn-base
deleted file mode 100644
index 9263e87..0000000
--- a/cpplapack-r198/.svn/pristine/e7/e7510d7cd9843ab66a284353e54534e863628cac.svn-base
+++ /dev/null
@@ -1,256 +0,0 @@
-//=============================================================================
-/*! complete the upper-right components */
-inline void zhematrix::complete() const
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<n; i++){
-    for(CPPL_INT j=0; j<i; j++){
-      darray[i][j] =std::conj(darray[j][i]);
-    }   
-#ifdef  CPPL_DEBUG
-    if(std::fabs(std::imag(operator()(i,i))) > DBL_MIN){
-      WARNING_REPORT;
-      std::cerr << "The " << i << "th diagonal component of the zhematrix is not a real number." << std::endl;
-    }
-#endif//CPPL_DEBUG
-  }
-}
-
-//=============================================================================
-/*! clear all the matrix data and set the sizes 0 */
-inline void zhematrix::clear()
-{CPPL_VERBOSE_REPORT;
-  n =0;
-  delete [] array;
-  array =NULL;
-  delete [] darray;
-  darray =NULL;
-}
-
-//=============================================================================
-/*! change the matrix into a zero matrix */
-inline zhematrix& zhematrix::zero()
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT j=0; j<n; j++){
-    for(CPPL_INT i=j; i<n; i++){
-      darray[j][i]=comple(0.,0.);
-    }
-  }
-  return *this;
-}
-
-//=============================================================================
-/*! change the matrix into an identity matrix */
-inline zhematrix& zhematrix::identity()
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT j=0; j<n; j++){
-    darray[j][j] =comple(1.,0.);
-    for(CPPL_INT i=j+1; i<n; i++){
-      darray[j][i]=comple(0.,0.);
-    }
-  }
-  return *this;
-}
-
-//=============================================================================
-/*! change sign(+/-) of the matrix */
-inline void zhematrix::chsign()
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT j=0; j<n; j++){
-    for(CPPL_INT i=j; i<n; i++){
-      darray[j][i] =-darray[j][i];
-    }
-  }
-}
-
-//=============================================================================
-/*! make a deep copy of the matrix */
-inline void zhematrix::copy(const zhematrix& mat)
-{CPPL_VERBOSE_REPORT;
-  n =mat.n;
-  delete [] array;
-  array =new comple[n*n];
-  delete [] darray;
-  darray =new comple*[n];
-  for(int i=0; i<n; i++){
-    darray[i] =&array[i*n];
-  }
-  
-  for(CPPL_INT j=0; j<n; j++){
-    for(CPPL_INT i=j; i<n; i++){
-      darray[j][i] =mat.darray[j][i];
-    }
-  }
-}
-
-//=============================================================================
-/*! make a shallow copy of the matrix\n
-  This function is not designed to be used in project codes. */
-inline void zhematrix::shallow_copy(const _zhematrix& mat)
-{CPPL_VERBOSE_REPORT;
-  n =mat.n;
-  delete [] array;
-  array =mat.array;
-  delete [] darray;
-  darray =mat.darray;
-  
-  mat.nullify();
-}
-
-//=============================================================================
-/*! resize the matrix */
-inline void zhematrix::resize(const CPPL_INT& _n)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( _n<0 ){
-    ERROR_REPORT;
-    std::cerr << "Matrix sizes must be positive integers." << std::endl
-              << "Your input was (" << _n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  n =_n;
-  delete [] array;
-  array =new comple[n*n];
-  delete [] darray;
-  darray =new comple*[n];
-  for(int i=0; i<n; i++){
-    darray[i] =&array[i*n];
-  }
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! get row of the matrix */
-inline _zrovector zhematrix::row(const CPPL_INT& _m) const
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( _m<0 || _m>m ){
-    ERROR_REPORT;
-    std::cerr << "Input row number must be between 0 and " << m << "." << std::endl
-              << "Your input was " << _m << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zrovector v(n);
-  for(CPPL_INT j=0; j<n; j++){
-    v(j)=(*this)(_m,j);
-  }
-  return _(v);
-}
-
-//=============================================================================
-/*! get column of the matrix */
-inline _zcovector zhematrix::col(const CPPL_INT& _n) const
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( _n<0 || _n>n ){
-    ERROR_REPORT;
-    std::cerr << "Input row number must be between 0 and " << n << "." << std::endl
-              << "Your input was " << _n << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zcovector v(m);
-  for(CPPL_INT i=0; i<m; i++){
-    v(i)=(*this)(i,_n);
-  }
-  return _(v);
-}
-
-//=============================================================================
-/*! extract the real part of the matrix */
-inline _dsymatrix zhematrix::real() const
-{CPPL_VERBOSE_REPORT;
-  dsymatrix mat(n);
-  for(CPPL_INT i=0; i<n; i++){
-    for(CPPL_INT j=0; j<=i; j++){
-      mat.darray[j][i] =darray[j][i].real();
-    }
-  }
-  return _(mat);
-}
-
-//=============================================================================
-/*! extract the imag part of the matrix */
-inline _dgematrix zhematrix::imag() const
-{CPPL_VERBOSE_REPORT;
-  dgematrix mat(n,n);
-  for(CPPL_INT i=0; i<n; i++){
-    for(CPPL_INT j=0; j<i; j++){
-      mat.darray[j][i] =darray[j][i].imag();
-    }
-    for(CPPL_INT j=i; j<n; j++){
-      mat.darray[j][i] =-darray[i][j].imag();
-    }
-  }
-  return _(mat);
-}
-
-//=============================================================================
-/*! extract the absolute of the matrix */
-inline _dsymatrix zhematrix::abs() const
-{CPPL_VERBOSE_REPORT;
-  dsymatrix mat(n);
-  for(CPPL_INT i=0; i<n; i++){
-    for(CPPL_INT j=0; j<=i; j++){
-      mat.darray[j][i] =std::abs(darray[j][i]);
-    }
-  }
-  return _(mat);
-}
-
-//=============================================================================
-/*! extract the argument the matrix */
-inline _dgematrix zhematrix::arg() const
-{CPPL_VERBOSE_REPORT;
-  dgematrix mat(n,n);
-  for(CPPL_INT i=0; i<n; i++){
-    for(CPPL_INT j=0; j<i; j++){
-      mat.darray[j][i] =std::arg(darray[j][i]);
-    }
-    for(CPPL_INT j=i; j<n; j++){
-      mat.darray[j][i] =std::arg(-darray[i][j]);
-    }
-  }
-  return _(mat);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! swap two matrices */
-inline void swap(zhematrix& A, zhematrix& B)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT A_n =A.n;
-  comple* A_array =A.array;
-  comple** A_darray =A.darray;
-  A.n=B.n; A.array=B.array; A.darray=B.darray;
-  B.n=A_n; B.array=A_array; B.darray=A_darray;
-}
-
-//=============================================================================
-/*! convert user object to smart-temporary object */
-inline _zhematrix _(zhematrix& mat)
-{CPPL_VERBOSE_REPORT;
-  _zhematrix newmat;
-  
-  //////// shallow copy ////////
-  newmat.n =mat.n;
-  newmat.array =mat.array;
-  newmat.darray =mat.darray;
-  
-  //////// nullify ////////
-  mat.n =0;
-  mat.array =NULL;
-  mat.darray =NULL;
-  
-  return newmat;
-}
diff --git a/cpplapack-r198/.svn/pristine/e7/e7cc57decb50608b3d0056118157052c554ffeeb.svn-base b/cpplapack-r198/.svn/pristine/e7/e7cc57decb50608b3d0056118157052c554ffeeb.svn-base
deleted file mode 100644
index d8a74d6..0000000
--- a/cpplapack-r198/.svn/pristine/e7/e7cc57decb50608b3d0056118157052c554ffeeb.svn-base
+++ /dev/null
@@ -1,71 +0,0 @@
-//=============================================================================
-/*! solve A*X=Y using dgbsv\n
-  The argument is dgematrix Y. Y is overwritten and become the solution X.
-  A is also overwritten. */
-inline CPPL_INT dgbmatrix::dgbsv(dgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(m!=n || n!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These matrix and vector cannot be solved." << std::endl
-              << "Your input was (" << m << "x" << n << ") and (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG 
-  
-  dgbmatrix newmat(m,n,kl,ku+kl);
-  for(CPPL_INT i=0; i<m; i++){
-    const CPPL_INT jmax =std::min(n,i+ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-kl); j<jmax; j++){
-      newmat(i,j) =operator()(i,j);
-    }
-  }
-  
-  CPPL_INT NRHS(mat.n), LDAB(2*kl+ku+1), *IPIV(new CPPL_INT[n]), LDB(mat.m), INFO(1);
-  dgbsv_(&n, &kl, &ku, &NRHS, newmat.array, &LDAB, IPIV, mat.array, &LDB, &INFO);
-  delete [] IPIV;
-  
-  swap(*this,newmat);
-  
-  if(INFO!=0){
-    WARNING_REPORT;
-    std::cerr << "Serious trouble happend. INFO = " << INFO << "." << std::endl;
-  }
-  return INFO;
-}
-
-//=============================================================================
-/*! solve A*x=y using dgbsv\n
-  The argument is dcovector y. y is overwritten and become the solution x.
-  A is also overwritten. */
-inline CPPL_INT dgbmatrix::dgbsv(dcovector& vec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(m!=n || n!=vec.l){
-    ERROR_REPORT;
-    std::cerr << "These matrix and vector cannot be solved." << std::endl
-              << "Your input was (" << m << "x" << n << ") and (" << vec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG 
-  
-  dgbmatrix newmat(m,n,kl,ku+kl);
-  for(CPPL_INT i=0; i<m; i++){
-    const CPPL_INT jmax =std::min(n,i+ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-kl); j<jmax; j++){
-      newmat(i,j) =operator()(i,j);
-    }
-  }
-  
-  CPPL_INT NRHS(1), LDAB(2*kl+ku+1), *IPIV(new CPPL_INT[n]), LDB(vec.l), INFO(1);
-  dgbsv_(&n, &kl, &ku, &NRHS, newmat.array, &LDAB, IPIV, vec.array, &LDB, &INFO);
-  delete [] IPIV;
-
-  swap(*this,newmat);
-  
-  if(INFO!=0){
-    WARNING_REPORT;
-    std::cerr << "Serious trouble happend. INFO = " << INFO << "." << std::endl;
-  }
-  return INFO;
-}
diff --git a/cpplapack-r198/.svn/pristine/e8/e8063763a643f9af8c960184e8f671c42e5c65df.svn-base b/cpplapack-r198/.svn/pristine/e8/e8063763a643f9af8c960184e8f671c42e5c65df.svn-base
deleted file mode 100644
index b7df583..0000000
--- a/cpplapack-r198/.svn/pristine/e8/e8063763a643f9af8c960184e8f671c42e5c65df.svn-base
+++ /dev/null
@@ -1,12 +0,0 @@
-//=============================================================================
-/*! cast to _zgematrix */
-inline _zgematrix _dgematrix::to_zgematrix() const
-{CPPL_VERBOSE_REPORT;
-  zgematrix newmat(m,n);
-  for(CPPL_INT i=0; i<m*n; i++){
-    newmat.array[i] =comple(array[i],0.0);
-  }
-  
-  destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/e8/e82e97f925dbce3e4c88e1ae2475b1d803a46931.svn-base b/cpplapack-r198/.svn/pristine/e8/e82e97f925dbce3e4c88e1ae2475b1d803a46931.svn-base
deleted file mode 100644
index 20a22f5..0000000
--- a/cpplapack-r198/.svn/pristine/e8/e82e97f925dbce3e4c88e1ae2475b1d803a46931.svn-base
+++ /dev/null
@@ -1,71 +0,0 @@
-//=============================================================================
-/*! dgsmatrix+dgematrix operator */
-inline _dgematrix operator+(const dgsmatrix& matA, const dgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat(matB);
-  
-  const std::vector<dcomponent>::const_iterator matA_data_end =matA.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matA.data.begin(); it!=matA_data_end; it++){
-    newmat(it->i,it->j) += it->v;
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! dgsmatrix-dgematrix operator */
-inline _dgematrix operator-(const dgsmatrix& matA, const dgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") - (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  dgematrix newmat(-matB);
-  
-  const std::vector<dcomponent>::const_iterator matA_data_end =matA.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matA.data.begin(); it!=matA_data_end; it++){
-    newmat(it->i,it->j) += it->v;
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! dgsmatrix*dgematrix operator */
-inline _dgematrix operator*(const dgsmatrix& matA, const dgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat(matA.m, matB.n);
-  newmat.zero();
-  
-  const std::vector<dcomponent>::const_iterator matA_data_end =matA.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matA.data.begin(); it!=matA_data_end; it++){
-    for(CPPL_INT j=0; j<matB.n; j++){
-      newmat(it->i,j) += it->v*matB(it->j,j);
-    }
-  }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/e8/e837fd19c9000de04b24c1e582e05b4db05273e1.svn-base b/cpplapack-r198/.svn/pristine/e8/e837fd19c9000de04b24c1e582e05b4db05273e1.svn-base
deleted file mode 100644
index aafa5b2..0000000
--- a/cpplapack-r198/.svn/pristine/e8/e837fd19c9000de04b24c1e582e05b4db05273e1.svn-base
+++ /dev/null
@@ -1,79 +0,0 @@
-//=============================================================================
-/*! _dgsmatrix+_dsymatrix operator */
-inline _dgematrix operator+(const _dgsmatrix& matA, const _dsymatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat( matB.to_dgematrix() );
-  
-  const std::vector<dcomponent>::const_iterator matA_data_end =matA.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matA.data.begin(); it!=matA_data_end; it++){
-    newmat(it->i,it->j) += it->v;
-  }
-  
-  matA.destroy();
-  matB.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _dgsmatrix-_dsymatrix operator */
-inline _dgematrix operator-(const _dgsmatrix& matA, const _dsymatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") - (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  //// shallow copy to dgematrix  ////
-  dgematrix newmat( (-matB).to_dgematrix() );
-  
-  //// add ////
-  const std::vector<dcomponent>::const_iterator matA_data_end =matA.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matA.data.begin(); it!=matA_data_end; it++){
-    newmat(it->i,it->j) += it->v;
-  }
-  
-  matA.destroy();
-  matB.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _dgsmatrix*_dsymatrix operator */
-inline _dgematrix operator*(const _dgsmatrix& matA, const _dsymatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat(matA.m, matB.n);
-  newmat.zero();
-  
-  const std::vector<dcomponent>::const_iterator matA_data_end =matA.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matA.data.begin(); it!=matA_data_end; it++){
-    for(CPPL_INT i=0; i<matB.n; i++){
-      newmat(it->i,i) += it->v*matB(it->j,i);
-    }
-  }
-  
-  matA.destroy();
-  matB.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/e8/e85f66f511b90caff8056dd105302a90f1b837df.svn-base b/cpplapack-r198/.svn/pristine/e8/e85f66f511b90caff8056dd105302a90f1b837df.svn-base
deleted file mode 100644
index 9213397..0000000
--- a/cpplapack-r198/.svn/pristine/e8/e85f66f511b90caff8056dd105302a90f1b837df.svn-base
+++ /dev/null
@@ -1,16 +0,0 @@
-//=============================================================================
-/*! +_zgbmatrix operator */
-inline const _zgbmatrix& operator+(const _zgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  return mat;
-}
-
-//=============================================================================
-/*! -_zgbmatrix operator */
-inline _zgbmatrix operator-(const _zgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<(mat.kl+mat.ku+1)*mat.n; i++){
-    mat.array[i] =-mat.array[i];
-  }
-  return mat;
-}
diff --git a/cpplapack-r198/.svn/pristine/e8/e8b8ffd2b6c379a753a6b276b40ec0a26a9c4ad7.svn-base b/cpplapack-r198/.svn/pristine/e8/e8b8ffd2b6c379a753a6b276b40ec0a26a9c4ad7.svn-base
deleted file mode 100644
index 90bd27f..0000000
--- a/cpplapack-r198/.svn/pristine/e8/e8b8ffd2b6c379a753a6b276b40ec0a26a9c4ad7.svn-base
+++ /dev/null
@@ -1,23 +0,0 @@
-//=============================================================================
-/*! drovector*dgematrix operator */
-inline _drovector operator*(const drovector& vec, const dgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vec.l!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These vector and matrix can not make a product." << std::endl
-              << "Your input was (" << vec.l << ") * (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  drovector newvec(mat.n);
-  char trans ='T';
-  double alpha =1.;
-  CPPL_INT inc =1;
-  double beta =0.;
-  
-  dgemv_( &trans, &mat.m, &mat.n, &alpha, mat.array, &mat.m, vec.array, &inc, &beta, newvec.array, &inc );
-  
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/e8/e8c6e169428083bd8532d22fd976b58ff81e8db1.svn-base b/cpplapack-r198/.svn/pristine/e8/e8c6e169428083bd8532d22fd976b58ff81e8db1.svn-base
deleted file mode 100644
index 3a442e4..0000000
--- a/cpplapack-r198/.svn/pristine/e8/e8c6e169428083bd8532d22fd976b58ff81e8db1.svn-base
+++ /dev/null
@@ -1,74 +0,0 @@
-//=============================================================================
-/*! dsymatrix+_dgsmatrix operator */
-inline _dgematrix operator+(const dsymatrix& matA, const _dgsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat( matA.to_dgematrix() );
-  
-  const std::vector<dcomponent>::const_iterator matB_data_end =matB.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matB.data.begin(); it!=matB_data_end; it++){
-    newmat(it->i,it->j) += it->v;
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! dsymatrix-_dgsmatrix operator */
-inline _dgematrix operator-(const dsymatrix& matA, const _dgsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") - (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  dgematrix newmat( matA.to_dgematrix() );
-  
-  const std::vector<dcomponent>::const_iterator matB_data_end =matB.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matB.data.begin(); it!=matB_data_end; it++){
-    newmat(it->i,it->j) -= it->v;
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! dsymatrix*_dgsmatrix operator */
-inline _dgematrix operator*(const dsymatrix& matA, const _dgsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat(matA.n, matB.n);
-  newmat.zero();
-  
-  const std::vector<dcomponent>::const_iterator matB_data_end =matB.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matB.data.begin(); it!=matB_data_end; it++){
-    for(CPPL_INT i=0; i<matA.n; i++){
-      newmat(i,it->j) += matB(i,it->i)*it->v;
-    }
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/e8/e8cfd7bbc6d78371ea1c2f867d2ec2e59e3905f3.svn-base b/cpplapack-r198/.svn/pristine/e8/e8cfd7bbc6d78371ea1c2f867d2ec2e59e3905f3.svn-base
deleted file mode 100644
index 5c91496..0000000
--- a/cpplapack-r198/.svn/pristine/e8/e8cfd7bbc6d78371ea1c2f867d2ec2e59e3905f3.svn-base
+++ /dev/null
@@ -1,18 +0,0 @@
-//=============================================================================
-/*! +_zhsmatrix operator */
-inline const _zhsmatrix& operator+(const _zhsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  return mat;
-}
-
-//=============================================================================
-/*! -_zhsmatrix operator */
-inline _zhsmatrix operator-(const _zhsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  const std::vector<zcomponent>::iterator mat_data_end =mat.data.end();
-  for(std::vector<zcomponent>::iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    it->v =-it->v;
-  }
-  
-  return mat;
-}
diff --git a/cpplapack-r198/.svn/pristine/e9/e9109079b057c9a2a021a2ebee75d899faa9f0dc.svn-base b/cpplapack-r198/.svn/pristine/e9/e9109079b057c9a2a021a2ebee75d899faa9f0dc.svn-base
deleted file mode 100644
index 4878fa6..0000000
--- a/cpplapack-r198/.svn/pristine/e9/e9109079b057c9a2a021a2ebee75d899faa9f0dc.svn-base
+++ /dev/null
@@ -1,133 +0,0 @@
-//=============================================================================
-//! Real Double-precision General Band Matrix Class
-class dgbmatrix
-{
-public:
-  ///////////////////////////////////////////////
-  /////////////////// objects ///////////////////
-  ///////////////////////////////////////////////
-  CPPL_INT m; //!< matrix row size
-  CPPL_INT n; //!< matrix column size
-  CPPL_INT kl; //!< lower band width
-  CPPL_INT ku; //!< upper band width
-  double* array; //!< 1D array to store matrix data
-  double** darray; //!< array of pointers of column head addresses
-  
-  ///////////////////////////////////////////////
-  ///////////////// constructors ////////////////
-  ///////////////////////////////////////////////
-  inline dgbmatrix();
-  inline dgbmatrix(const dgbmatrix&);
-  inline dgbmatrix(const _dgbmatrix&);
-  inline dgbmatrix(const CPPL_INT&, const CPPL_INT&, const CPPL_INT&, const CPPL_INT&);
-  inline dgbmatrix(const char *);
-  inline ~dgbmatrix(); //destructor
-  
-  ///////////////////////////////////////////////
-  ////////////////// functions //////////////////
-  ///////////////////////////////////////////////
-  //////// cast ////////
-  inline _zgbmatrix to_zgbmatrix() const;
-  inline _dgematrix to_dgematrix() const;
-  
-  //////// io ////////
-  inline double& operator()(const CPPL_INT&, const CPPL_INT&);
-  inline double operator()(const CPPL_INT&, const CPPL_INT&) const;
-  inline dgbmatrix& set(const CPPL_INT&, const CPPL_INT&, const double&); //const;
-  inline friend std::ostream& operator<<(std::ostream&, const dgbmatrix&);
-  inline void write(const char*) const;
-  inline void read(const char*);
-  
-  //////// misc ////////
-  inline void clear();
-  inline dgbmatrix& zero();
-  inline dgbmatrix& identity();
-  inline void chsign();
-  inline void copy(const dgbmatrix&);
-  inline void shallow_copy(const _dgbmatrix&);
-  inline dgbmatrix& resize(const CPPL_INT&, const CPPL_INT&, const CPPL_INT&, const CPPL_INT&);
-  inline _drovector row(const CPPL_INT&) const;
-  inline _dcovector col(const CPPL_INT&) const;
-  inline friend void swap(dgbmatrix&, dgbmatrix&);
-  inline friend _dgbmatrix _(dgbmatrix&);
-  
-  //////// calc ////////
-  inline friend _dgbmatrix t(const dgbmatrix&);
-  inline friend _dgematrix i(const dgbmatrix&);
-  
-  //////// lapack ////////
-  inline CPPL_INT dgbsv(dgematrix&);
-  inline CPPL_INT dgbsv(dcovector&);
-  
-  ///////////////////////////////////////////////
-  ///////////// numerical operators /////////////
-  ///////////////////////////////////////////////
-  //////// = ////////
-  inline dgbmatrix& operator=(const  dgbmatrix&);
-  inline dgbmatrix& operator=(const _dgbmatrix&);
-  
-  //////// += ////////
-  inline dgbmatrix& operator+=(const  dgbmatrix&);
-  inline dgbmatrix& operator+=(const _dgbmatrix&);
-  
-  //////// -= ////////
-  inline dgbmatrix& operator-=(const  dgbmatrix&);
-  inline dgbmatrix& operator-=(const _dgbmatrix&);
-  
-  //////// *= ////////
-  inline dgbmatrix& operator*=(const  dgbmatrix&);
-  inline dgbmatrix& operator*=(const _dgbmatrix&);
-  inline dgbmatrix& operator*=(const     double&);
-  
-  //////// /= ////////
-  inline dgbmatrix& operator/=(const     double&);
-  
-  //////// unary ////////
-  inline friend const dgbmatrix& operator+(const dgbmatrix&);
-  inline friend _dgbmatrix operator-(const dgbmatrix&);
-  
-  //////// + ////////
-  inline friend _dgematrix operator+(const  dgbmatrix&, const  dgematrix&);
-  inline friend _dgematrix operator+(const  dgbmatrix&, const _dgematrix&);
-  inline friend _dgematrix operator+(const  dgbmatrix&, const  dsymatrix&);
-  inline friend _dgematrix operator+(const  dgbmatrix&, const _dsymatrix&);
-  inline friend _dgbmatrix operator+(const  dgbmatrix&, const  dgbmatrix&);
-  inline friend _dgbmatrix operator+(const  dgbmatrix&, const _dgbmatrix&);
-  inline friend _dgematrix operator+(const  dgbmatrix&, const  dgsmatrix&);
-  inline friend _dgematrix operator+(const  dgbmatrix&, const _dgsmatrix&);
-  inline friend _dgematrix operator+(const  dgbmatrix&, const  dssmatrix&);
-  inline friend _dgematrix operator+(const  dgbmatrix&, const _dssmatrix&);
-  
-  //////// - ////////
-  inline friend _dgematrix operator-(const  dgbmatrix&, const  dgematrix&);
-  inline friend _dgematrix operator-(const  dgbmatrix&, const _dgematrix&);
-  inline friend _dgematrix operator-(const  dgbmatrix&, const  dsymatrix&);
-  inline friend _dgematrix operator-(const  dgbmatrix&, const _dsymatrix&);
-  inline friend _dgbmatrix operator-(const  dgbmatrix&, const  dgbmatrix&);
-  inline friend _dgbmatrix operator-(const  dgbmatrix&, const _dgbmatrix&);
-  inline friend _dgematrix operator-(const  dgbmatrix&, const  dgsmatrix&);
-  inline friend _dgematrix operator-(const  dgbmatrix&, const _dgsmatrix&);
-  inline friend _dgematrix operator-(const  dgbmatrix&, const  dssmatrix&);
-  inline friend _dgematrix operator-(const  dgbmatrix&, const _dssmatrix&);
-  
-  //////// * ////////
-  inline friend _dcovector operator*(const  dgbmatrix&, const  dcovector&);
-  inline friend _dcovector operator*(const  dgbmatrix&, const _dcovector&);
-  inline friend _dgematrix operator*(const  dgbmatrix&, const  dgematrix&);
-  inline friend _dgematrix operator*(const  dgbmatrix&, const _dgematrix&);
-  inline friend _dgematrix operator*(const  dgbmatrix&, const  dsymatrix&);
-  inline friend _dgematrix operator*(const  dgbmatrix&, const _dsymatrix&);
-  inline friend _dgbmatrix operator*(const  dgbmatrix&, const  dgbmatrix&);
-  inline friend _dgbmatrix operator*(const  dgbmatrix&, const _dgbmatrix&);
-  inline friend _dgematrix operator*(const  dgbmatrix&, const  dgsmatrix&);
-  inline friend _dgematrix operator*(const  dgbmatrix&, const _dgsmatrix&);
-  inline friend _dgematrix operator*(const  dgbmatrix&, const  dssmatrix&);
-  inline friend _dgematrix operator*(const  dgbmatrix&, const _dssmatrix&);
-  inline friend _dgbmatrix operator*(const  dgbmatrix&, const     double&);
-  
-  //////// / ////////
-  inline friend _dgbmatrix operator/(const  dgbmatrix&, const     double&);
-  
-  //////// double ////////
-  inline friend _dgbmatrix operator*(const     double&, const  dgbmatrix&);
-};
diff --git a/cpplapack-r198/.svn/pristine/e9/e99359203cf64dc6b1d962dac87bf6d77e699d0c.svn-base b/cpplapack-r198/.svn/pristine/e9/e99359203cf64dc6b1d962dac87bf6d77e699d0c.svn-base
deleted file mode 100644
index 1d3d194..0000000
--- a/cpplapack-r198/.svn/pristine/e9/e99359203cf64dc6b1d962dac87bf6d77e699d0c.svn-base
+++ /dev/null
@@ -1,38 +0,0 @@
-//=============================================================================
-/*! zhematrix_small constructor */
-template<CPPL_INT n>
-inline zhematrix_small<n>::zhematrix_small()
-{CPPL_VERBOSE_REPORT;
-  ;
-}
-
-//=============================================================================
-/*! zhematrix_small constructor */
-template<CPPL_INT n>
-inline zhematrix_small<n>::zhematrix_small(const zhematrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( n!=mat.n ){
-    ERROR_REPORT;
-    std::cerr << "Matrix sizes must be the same." << std::endl
-              << "Your input was " << n << "x" << n << " and " << mat.m << "x" << mat.n << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT k=0; k<(n*(n+1))/2; k++){
-    array[k] =mat.array[k];;
-  }
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zhematrix_small destructor */
-template<CPPL_INT n>
-inline zhematrix_small<n>::~zhematrix_small()
-{CPPL_VERBOSE_REPORT;
-  ;
-}
diff --git a/cpplapack-r198/.svn/pristine/e9/e9b35eef9b9e4e9a305db7381f0e8c3fd248046d.svn-base b/cpplapack-r198/.svn/pristine/e9/e9b35eef9b9e4e9a305db7381f0e8c3fd248046d.svn-base
deleted file mode 100644
index 2bc19ea..0000000
--- a/cpplapack-r198/.svn/pristine/e9/e9b35eef9b9e4e9a305db7381f0e8c3fd248046d.svn-base
+++ /dev/null
@@ -1,265 +0,0 @@
-/*****************************************************************************/
-/*                                main.cpp                                   */
-/*****************************************************************************/
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include <vector>
-#include "cpplapack.h"
-
-//=============================================================================
-/*! apply J */
-inline
-void rotate
-(
- double& x,
- double& y,
- const double& co,
- const double& si
- )
-{
-  double _x = co*x + si*y;
-  y =-si*x + co*y;
-  x=_x;
-}
-
-//=============================================================================
-/*! construct J */
-inline
-void make_rotator
-(
- const double& x,
- const double& y,
- double& co,
- double& si
- )
-{
-  if( fabs(y)<DBL_MIN ){
-    co = 1.;
-    si = 0.;
-  }
-  else if( fabs(y)>fabs(x) ){
-    double t = x/y;
-    si = 1./sqrt( 1.+t*t );
-    co = si*t;
-  }
-  else{
-    double t = y/x;
-    co = 1./sqrt( 1.+t*t );
-    si = co*t;
-  }
-}
-
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! solve */
-int32_t gmres
-(
- const CPPL::dgsmatrix& A,
- const CPPL::dcovector& b,
- CPPL::dcovector& x,
- const double& eps
- )
-{
-  ///////////////////////////////////////////////
-  //////////////// preconditioner ///////////////
-  ///////////////////////////////////////////////
-  CPPL::dgbmatrix Minv(x.l, x.l, 0, 0);
-  
-  //////// no precondition ////////
-  Minv.identity();
-  
-  ///////////////////////////////////////////////
-  ///////////////// mid values //////////////////
-  ///////////////////////////////////////////////
-  long m(10);//restart number
-  CPPL::dcovector r(b-A*x);
-  CPPL::dcovector s(m+1), co(m+1), si(m+1), w;
-  std::vector<CPPL::dcovector> v(m+1);
-  CPPL::dgematrix H(m+1,m);
-  //H.zero();
-  //co.zero();
-  //si.zero();
-  //s.zero();
-  
-  //////// norm ////////
-  double norm_r, norm_r_min(DBL_MAX);
-  const double norm_r_ini(fabs(damax(r)));
-  std::cerr << "[NOTE]@gmres: norm_r_ini=" << norm_r_ini << ", eps=" << eps<< std::endl;
-  if( norm_r_ini<DBL_MIN ){
-    std::cerr << "[NOTE]@gmres: already converged. v(^^)" << std::endl;
-    return 0;
-  }
-  
-  ///////////////////////////////////////////////
-  //////////////////// loop /////////////////////
-  ///////////////////////////////////////////////
-  int itc(1);
-  //int itmax(int(2.1*x.l));
-  int itmax(int(1.1*x.l));
-  //int itmax(int(0.6*x.l));
-  do{
-    std::cerr << "** itc=" << itc << " ********************************************" << std::endl;
-    //////// 0 ////////
-    v[0] =r/nrm2(r);
-    s.zero();
-    s(0) =nrm2(r);
-    
-    for(long i=0; i<m; i++){
-      //std::cerr << "++++ i=" << i << " ++++" << std::endl;
-      w =A*v[i];
-      w =Minv*w;
-      for(long k=0; k<i+1; k++){
-        H(k,i) =w%v[k];
-        w -=H(k,i)*v[k];
-      }
-      H(i+1,i) =nrm2(w);
-      v[i+1] =w/H(i+1,i);
-      
-      //// J,s ////
-      for(long k=0; k<i; k++){
-        rotate(H(k,i), H(k+1,i), co(k), si(k));
-      }
-      make_rotator( H(i,i), H(i+1,i), co(i), si(i) );
-      //std::cerr << "co = " << t(co) << std::endl; std::cerr << "si = " << t(si) << std::endl;
-      rotate( H(i,i), H(i+1,i), co(i), si(i) );//necessary
-      //std::cerr << "H =\n" << H << std::endl;
-      rotate( s(i), s(i+1), co(i), si(i) );
-      //std::cerr << "s = " << t(s) << std::endl;
-    }
-    //for(long i=0; i<m+1; i++){ for(long j=i+1; j<m+1; j++){ std::cerr << "vv = " << v[i]%v[j] << std::endl; } }// v check
-    //std::cerr << "H =\n" << H << std::endl;
-    //std::cerr << "s =" << t(s) << std::endl;
-    //for(long i=0; i<m+1; i++){ std::cerr << "v["<<i<<"] =" << t(v[i]) << std::flush; }
-    
-    //////// y ////////
-    CPPL::dcovector y(s);
-    for(long i=m-1; i>=0; i--){
-      y(i) /= H(i,i);
-      for(long j=i-1; j>=0; j--){
-        y(j) -= H(j,i) * y(i);
-      }
-    }
-    //std::cerr << "H*y = " << t(H*y) << std::endl;    
-    //std::cerr << "s   = " << t(s) << std::endl;
-    //std::cerr << "y = " << t(s) << std::endl;
-    
-    //////// update ////////
-    for(long i=0; i<m; i++){
-      x += v[i] * y(i);
-    }
-    //std::cerr << "x = " << t(x) << std::endl;
-    
-    //////// residual ////////
-    r =b-A*x;
-    r =Minv*r;
-    //std::cerr << "r = " << t(r) << std::endl;
-    
-    //////// convergence check ////////
-    norm_r =fabs(damax(r));
-    std::cerr << "norm_r = " << norm_r << std::endl;
-    if( isnan(norm_r) ){ break; }//failed
-    if( !std::isnormal(norm_r) ){ break; }//failed
-    if( !std::isfinite(norm_r) ){ break; }//failed
-    if( norm_r>1e3*norm_r_ini ){ break; }//failed (getting so worse)
-    if( norm_r<=eps ){//r satistied
-      std::cerr << "[NOTE]@gmres: converged. v(^^)  itc=" << itc << "/" << itmax << ", norm=" << norm_r << std::endl;
-      return 0;
-    }
-  }while(++itc<itmax);
-  
-  //////// failed ////////
-  std::cerr << "[NOTE]@gmres: itc=" << itc << ", norm=" << norm_r << ", r_satisfied=" << (norm_r<=eps) << std::endl;
-  std::cerr << "[NOTE]@gmres: failed to converge. orz" << std::endl;
-  return 1;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-int main(int argc, char** argv)
-{
-  ///////////////////////////////////////////////
-  //////////////// set precision ////////////////
-  ///////////////////////////////////////////////
-  std::cout.precision(9);
-  std::cout.setf(std::ios::scientific, std::ios::floatfield);
-  std::cout.setf(std::ios::showpos);
-  std::cerr.precision(3);
-  std::cerr.setf(std::ios::scientific, std::ios::floatfield);
-  std::cerr.setf(std::ios::showpos);
-  
-  ///////////////////////////////////////////////
-  //////////////////// A,b //////////////////////
-  ///////////////////////////////////////////////
-  CPPL::dgsmatrix A;
-  CPPL::dcovector b;
-  //const bool file =true;
-  const bool file =false;
-  ///////////////////////////
-  ////////// read ///////////
-  ///////////////////////////
-  if(file){
-    A.read("A8.dge");  b.read("b8.dco");
-    //A.read("A10.dge");  b.read("b10.dco");
-    //A.read("A44.dge"); b.read("b44.dco");
-  }
-  ///////////////////////////
-  ///////// random //////////
-  ///////////////////////////
-  else{//file==false
-    std::cerr << "# making random matrix" << std::endl;
-    const int size(1000);
-    A.resize(size,size);
-    b.resize(size);
-    srand(time(NULL));
-    for(int i=0; i<size; i++){
-      for(int j=0; j<size; j++){
-        if( rand()%5==0 ){
-          A(i,j) =(double(rand())/double(RAND_MAX))*2.0 -1.0;
-        }
-      }
-      A(i,i) +=1e-2*double(size);//generalization
-      b(i) =(double(rand())/double(RAND_MAX))*1. -0.5;
-    }
-    A.write("A.dge");
-    b.write("b.dco");
-  }
-
-  ///////////////////////////////////////////////
-  ////////////////// direct /////////////////////
-  ///////////////////////////////////////////////
-  std::cerr << "# making solution with dgesv" << std::endl;
-  CPPL::dgematrix A2(A.to_dgematrix());
-  CPPL::dcovector b2(b);
-  A2.dgesv(b2);
-  b2.write("ans.dco");
-  
-  ///////////////////////////////////////////////
-  ///////////////// iterative ///////////////////
-  ///////////////////////////////////////////////
-  //////// initial x ////////
-  CPPL::dcovector x(b.l);
-  //x.read("x_ini8.dco");
-  x.zero();
-  //////// eps ////////
-  double eps(fabs(damax(b))*1e-6);
-  std::cerr << "eps=" << eps << std::endl;
-  //////// solve ////////
-  if( gmres(A, b, x, eps) ){
-    std::cerr << "failed." << std::endl;
-    x.write("x.dco");
-    exit(1);
-  }
-  x.write("x.dco");
-  std::cerr << "fabs(damax(err))=" << fabs(damax(b2-x)) << std::endl;
-  
-  return 0;
-}
diff --git a/cpplapack-r198/.svn/pristine/ea/ea263e2ee4e5940986c1e9a63ffe547464c2e412.svn-base b/cpplapack-r198/.svn/pristine/ea/ea263e2ee4e5940986c1e9a63ffe547464c2e412.svn-base
deleted file mode 100644
index c1496ec..0000000
--- a/cpplapack-r198/.svn/pristine/ea/ea263e2ee4e5940986c1e9a63ffe547464c2e412.svn-base
+++ /dev/null
@@ -1,52 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int M(3), N(4);
-  
-  CPPL::dgematrix A(M,N);
-  for(int i=0; i<A.m; i++){ for(int j=0; j<A.n; j++){
-    A(i,j) =double( rand() /(RAND_MAX/10) );
-  }}
-  
-  cout << "A =\n" << A << endl;
-  
-  cout << "#### t(A) ####" << endl;
-  cout << "t(A) =\n" << CPPL::t(A) << endl;
-  
-  cout << "#### i(A) ####" << endl;
-  A.resize(M,M);
-  for(int i=0; i<A.m; i++){ for(int j=0; j<A.n; j++){
-    A(i,j) =double( rand() /(RAND_MAX/10) );
-  }}
-  CPPL::dgematrix A_inv;
-  A_inv =CPPL::i(A);
-  //A_inv =i(A); // g++ cannot compile this line
-  cout << "A =\n" << A << endl;
-  cout << "A_inv =\n" << A_inv << endl;
-  cout << "A*A_inv =\n" << A*A_inv << endl;
-  
-  //// max ////
-  cout << "A =\n" << A << endl;
-  cout << "damax(A) =\n" << damax(A) << endl;
-  cout << "#### idamax(p,q, A) ####" << endl;
-  int p,q;
-  idamax(p,q, A);
-  cout << "p=" << p << ", q=" << q << endl;
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/ea/ea5c25025dfa3df1bd3c22d05a6f7561403add98.svn-base b/cpplapack-r198/.svn/pristine/ea/ea5c25025dfa3df1bd3c22d05a6f7561403add98.svn-base
deleted file mode 100644
index 3777705..0000000
--- a/cpplapack-r198/.svn/pristine/ea/ea5c25025dfa3df1bd3c22d05a6f7561403add98.svn-base
+++ /dev/null
@@ -1,13 +0,0 @@
-//=============================================================================
-/*! double*dgbmatrix operator */
-inline _dgbmatrix operator*(const double& d, const dgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  dgbmatrix newmat(mat.m, mat.n, mat.kl, mat.ku);
-  
-  const CPPL_INT size =(mat.kl+mat.ku+1)*mat.n;
-  for(CPPL_INT i=0; i<size; i++){
-    newmat.array[i] =d*mat.array[i];
-  }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/ea/ea78caabaf50b86bd0b2ed39918865764bac073b.svn-base b/cpplapack-r198/.svn/pristine/ea/ea78caabaf50b86bd0b2ed39918865764bac073b.svn-base
deleted file mode 100644
index 789acb1..0000000
--- a/cpplapack-r198/.svn/pristine/ea/ea78caabaf50b86bd0b2ed39918865764bac073b.svn-base
+++ /dev/null
@@ -1,24 +0,0 @@
-//=============================================================================
-/*! drovector*_dgsmatrix operator */
-inline _drovector operator*(const drovector& vec, const _dgsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vec.l!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These vector and matrix can not make a product." << std::endl
-              << "Your input was (" << vec.l << ") * (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  drovector newvec(mat.n);
-  newvec.zero();
-  
-  const std::vector<dcomponent>::const_iterator mat_data_end =mat.data.end();
-  for(std::vector<dcomponent>::const_iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    newvec(it->j) += vec(it->i)*it->v;
-  }
-  
-  mat.destroy();
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/ea/ea8e43670d06d21bba4cceac3f89e4db1649a2b5.svn-base b/cpplapack-r198/.svn/pristine/ea/ea8e43670d06d21bba4cceac3f89e4db1649a2b5.svn-base
deleted file mode 100644
index d0c4ab2..0000000
--- a/cpplapack-r198/.svn/pristine/ea/ea8e43670d06d21bba4cceac3f89e4db1649a2b5.svn-base
+++ /dev/null
@@ -1,73 +0,0 @@
-//=============================================================================
-/*! dgsmatrix+dsymatrix operator */
-inline _dgematrix operator+(const dgsmatrix& matA, const dsymatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.n || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat( matB.to_dgematrix() );
-  
-  const std::vector<dcomponent>::const_iterator matA_data_end =matA.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matA.data.begin(); it!=matA_data_end; it++){
-    newmat(it->i,it->j) += it->v;
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! dgsmatrix-dsymatrix operator */
-inline _dgematrix operator-(const dgsmatrix& matA, const dsymatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.n || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") - (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  //// shallow copy to dgematrix ////
-  dgematrix newmat( (-matB).to_dgematrix() );
-  
-  //// add ////
-  const std::vector<dcomponent>::const_iterator matA_data_end =matA.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matA.data.begin(); it!=matA_data_end; it++){
-    newmat(it->i,it->j) += it->v;
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! dgsmatrix*dsymatrix operator */
-inline _dgematrix operator*(const dgsmatrix& matA, const dsymatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat(matA.m, matB.n);
-  newmat.zero();
-  
-  const std::vector<dcomponent>::const_iterator matA_data_end =matA.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matA.data.begin(); it!=matA_data_end; it++){
-    for(CPPL_INT i=0; i<matB.n; i++){
-      newmat(it->i,i) += it->v*matB(it->j,i);
-    }
-  }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/eb/eb2631bcc2c6cb597acedcc6703bc8ba3bd6e7b5.svn-base b/cpplapack-r198/.svn/pristine/eb/eb2631bcc2c6cb597acedcc6703bc8ba3bd6e7b5.svn-base
deleted file mode 100644
index 45eacef..0000000
--- a/cpplapack-r198/.svn/pristine/eb/eb2631bcc2c6cb597acedcc6703bc8ba3bd6e7b5.svn-base
+++ /dev/null
@@ -1,111 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int M(4), N(3);
-  
-  CPPL::drovector a(N), b(N);
-  CPPL::dsymatrix X(N), Y(N);
-  for(int i=0; i<X.n; i++){ for(int j=0; j<X.n; j++){
-	X(i,j) =double( rand() /(RAND_MAX/10) );
-	Y(i,j) =double( rand() /(RAND_MAX/10) );
-  }}
-  for(int i=0; i<a.l; i++){
-	a(i) =double( rand() /(RAND_MAX/10) );
-	b(i) =double( rand() /(RAND_MAX/10) );
-  }
-  CPPL::dsymatrix Z(X+Y);
-  
-  //dro+dsy
-    //N/A
-  //dro-dsy
-    //N/A
-  //dro*dsy, _dsy+_dsy
-  cout << "a*Z-a*X-a*Y =\n" << a*Z-a*X-a*Y << "<-Should be zero." << endl;
-
-  //dro/dsy
-    //N/A
-  //dro=dsy
-    //N/A
-  //dro+=dsy
-  	//N/A
-  //dro-=dsy
-  	//N/A
-  //dro*=dsy
-  	//N/A
-  //dro/=dsy
-  	//N/A
-  
-  //dro+_dsy
-  	//N/A
-  //dro-_dsy
-  	//N/A
-  //dro*_dsy, dro*dsy, dsy+dsy, _dsy-_dsy
-  cout << "a*Z-a*(X+Y) =\n" << a*Z-a*(X+Y) << "<-Should be zero." << endl;
-  //dro/_dsy
-  	//N/A
-  //dro=_dsy
-  	//N/A
-  //dro+=_dsy
-  	//N/A
-  //dro-=_dsy
-  	//N/A
-  //dro*=_dsy
-  	//N/A
-  //dro/=_dsy
-  	//N/A
-  
-  //_dro+dsy
-  	//N/A
-  //_dro-dsy
-  	//N/A
-  //_dro*dsy, dro+dro, dro*dsy, _dsy-_dsy
-  cout << "(a+b)*X-a*X-b*X =\n" << (a+b)*X-a*X-b*X << "<-Should be zero." << endl;
-  //_dro/dsy
-  	//N/A
-  //_dro=dsy
-  	//N/A
-  //_dro+=dsy
-  	//N/A
-  //_dro-=dsy
-  	//N/A
-  //_dro*=dsy
-  	//N/A
-  //_dro/=dsy
-  	//N/A
-
-  //_dro+_dsy
-  	//N/A
-  //_dro-_dsy
-  	//N/A
-  //_dro*_dsy, dro-dro, dsy-dsy, dro*dsy, _dsy-_dsy, _dsy+_dsy
-  cout << "(a-b)*(X-Y)-a*X+a*Y+b*X-b*Y =\n" << (a-b)*(X-Y)-a*X+a*Y+b*X-b*Y << "<-Should be zero." << endl;
-  //_dro/_dsy
-  	//N/A
-  //_dro=_dsy
-  	//N/A
-  //_dro+=_dsy
-  	//N/A
-  //_dro-=_dsy
-  	//N/A
-  //_dro*=_dsy
-  	//N/A
-  //_dro/=_dsy
-  	//N/A
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/eb/ebb356db9d79b959dde99cde3d5a56a6fb3f6c33.svn-base b/cpplapack-r198/.svn/pristine/eb/ebb356db9d79b959dde99cde3d5a56a6fb3f6c33.svn-base
deleted file mode 100644
index a2d7c83..0000000
--- a/cpplapack-r198/.svn/pristine/eb/ebb356db9d79b959dde99cde3d5a56a6fb3f6c33.svn-base
+++ /dev/null
@@ -1,24 +0,0 @@
-//=============================================================================
-/*! calculate vector product for 2D vector */
-inline double operator/(const drovec2& A, const drovec2& B)
-{CPPL_VERBOSE_REPORT;
-  return A(0)*B(1)-A(1)*B(0);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! calculate vector product only for 3D vector */
-inline drovec3 operator/(const drovec3& A, const drovec3& B)
-{CPPL_VERBOSE_REPORT;
-  drovec3 C;
-  C(0) =A(1)*B(2) -A(2)*B(1);
-  C(1) =A(2)*B(0) -A(0)*B(2);
-  C(2) =A(0)*B(1) -A(1)*B(0);
-  return C;
-}
diff --git a/cpplapack-r198/.svn/pristine/eb/ebcdde0047f67dafc8968bba0e1efbf05590e80b.svn-base b/cpplapack-r198/.svn/pristine/eb/ebcdde0047f67dafc8968bba0e1efbf05590e80b.svn-base
deleted file mode 100644
index 7294743..0000000
--- a/cpplapack-r198/.svn/pristine/eb/ebcdde0047f67dafc8968bba0e1efbf05590e80b.svn-base
+++ /dev/null
@@ -1,37 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int M(4);
-  
-  CPPL::dcovector x;
-  cout << "x || l=" << x.l << ", array=" << x.array << endl;
-  
-  
-  CPPL::dcovector y(M);
-  for(int i=0; i<y.l; i++){
-    y(i) =double( rand() /(RAND_MAX/10) );
-  }
-  cout << "y || l=" << y.l << ", array=" << y.array << endl;
-  cout << y << endl;
-  
-  CPPL::dcovector z(y);
-  cout << "z || l=" << z.l << ", array=" << z.array << endl;
-  cout << z << endl;
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/ec/ecabc4c8a754d2d345bdf0326098af64fa3d0830.svn-base b/cpplapack-r198/.svn/pristine/ec/ecabc4c8a754d2d345bdf0326098af64fa3d0830.svn-base
deleted file mode 100644
index fc566b9..0000000
--- a/cpplapack-r198/.svn/pristine/ec/ecabc4c8a754d2d345bdf0326098af64fa3d0830.svn-base
+++ /dev/null
@@ -1,52 +0,0 @@
-//=============================================================================
-/*! operator() for const object */
-inline double& _dcovector::operator()(const CPPL_INT& i) const
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || l<=i ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the vector size." << std::endl
-              << "Your input is (" << i << "), whereas the vector size is " << l << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  return array[i];
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-inline std::ostream& operator<<(std::ostream& s, const _dcovector& vec)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<vec.l; i++){
-    s << " " << vec.array[i] << std::endl;
-  }
-  
-  vec.destroy();
-  return s;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-inline void _dcovector::write(const char *filename) const
-{CPPL_VERBOSE_REPORT;
-  std::ofstream ofs(filename, std::ios::trunc);
-  ofs.setf(std::cout.flags());
-  ofs.precision(std::cout.precision());
-  ofs.width(std::cout.width());
-  ofs.fill(std::cout.fill());
-  
-  ofs << "#dcovector" << " " << l << std::endl;
-  for(CPPL_INT i=0; i<l; i++){
-    ofs << operator()(i) << std::endl;
-  }
-  
-  ofs.close();
-  destroy();
-}
diff --git a/cpplapack-r198/.svn/pristine/ec/ecc2083deff4a7cebe92dbc6eb0d4c308f5e22ab.svn-base b/cpplapack-r198/.svn/pristine/ec/ecc2083deff4a7cebe92dbc6eb0d4c308f5e22ab.svn-base
deleted file mode 100644
index e6ded7b..0000000
--- a/cpplapack-r198/.svn/pristine/ec/ecc2083deff4a7cebe92dbc6eb0d4c308f5e22ab.svn-base
+++ /dev/null
@@ -1,66 +0,0 @@
-//=============================================================================
-/*! solve A*x=b for real and unsymmetric matrix using Intel PARDISO.\n
-  The argument is dcovector b.
-  b is overwritten and become the solution x.
-  A is not overwritten.
-*/
-inline CPPL_INT dgrmatrix::pardiso(dcovector& b) const
-{CPPL_VERBOSE_REPORT;
-#ifndef  __INTEL_COMPILER
-  ERROR_REPORT;
-  std::cerr << "dgrmatrix::pardiso is only for intel c++ compiler (icpc)." << std::endl;
-  std::cerr << "Recompile your code with icpc to use pardiso." << std::endl;
-  (void)b;
-  exit(1);
-  
-  
-#else  //__INTEL_COMPILER is defined.
-  //#ifdef  CPPL_DEBUG
-  if(m!=n || m!=b.l){
-    ERROR_REPORT;
-    std::cerr << "These matrix and vector cannot be solved." << std::endl
-              << "Your input was (" << m << "x" << n << ") and (" << b.l << ")." << std::endl;
-    exit(1);
-  }
-  //#endif//CPPL_DEBUG 
-  
-  //////// pardisoinit ////////
-  //std::cerr << "initializing" << std::endl;
-  _MKL_DSS_HANDLE_t pt[64];
-  MKL_INT mtype =11;//real unsymmetric
-  MKL_INT iparm[64];
-  PARDISOINIT(pt, &mtype, iparm);
-  iparm[1] =3;//parallel fill-in reducing ordering
-  iparm[23] =1;//use two-level scheduling factorization algorithm
-  iparm[26] =0;//disable matrix checker
-  iparm[34] =0;//use one-base array index
-  
-  //////// pardiso ////////
-  //std::cerr << "solving" << std::endl;
-  MKL_INT maxfct =1;
-  MKL_INT mnum =1;
-  MKL_INT phase =13;
-  MKL_INT MKL_INT_n =MKL_INT(n);
-  double* a0 = const_cast<double*>(&a[0]);
-  MKL_INT* ia0 = const_cast<MKL_INT*>(&ia[0]);
-  MKL_INT* ja0 = const_cast<MKL_INT*>(&ja[0]);
-  std::vector<MKL_INT> perm(n);
-  MKL_INT nrhs =1;
-  MKL_INT msglvl =0;
-  dcovector x(b.l);
-  MKL_INT error =1;
-  PARDISO(pt, &maxfct, &mnum, &mtype, &phase, &MKL_INT_n, a0, ia0, ja0, &perm[0], &nrhs, iparm, &msglvl, b.array, x.array, &error);
-  swap(b,x);//set b as x
-  if(error!=0){
-    WARNING_REPORT;
-    std::cerr << "Serious trouble happend. error = " << error << "." << std::endl;
-  }
-  
-  //////// release memory ////////
-  phase =-1;
-  MKL_INT error2 =1;
-  PARDISO(pt, &maxfct, &mnum, &mtype, &phase, &MKL_INT_n, a0, ia0, ja0, &perm[0], &nrhs, iparm, &msglvl, b.array, x.array, &error2);
-  
-  return error;
-#endif //__INTEL_COMPILER
-}
diff --git a/cpplapack-r198/.svn/pristine/ed/ed6f70a4ccafb59c773b5cc791bbb80fb9f18a38.svn-base b/cpplapack-r198/.svn/pristine/ed/ed6f70a4ccafb59c773b5cc791bbb80fb9f18a38.svn-base
deleted file mode 100644
index 67b6dc3..0000000
--- a/cpplapack-r198/.svn/pristine/ed/ed6f70a4ccafb59c773b5cc791bbb80fb9f18a38.svn-base
+++ /dev/null
@@ -1,37 +0,0 @@
-//=============================================================================
-/*! return its transposed dgbmatrix */
-inline _dgbmatrix t(const _dgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  dgbmatrix newmat(mat.n, mat.m, mat.ku, mat.kl);
-  
-  for(CPPL_INT i=0; i<newmat.m; i++){
-    const CPPL_INT jmax =std::min(newmat.n,i+newmat.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-newmat.kl); j<jmax; j++){
-      newmat(i,j) =mat(j,i);
-    }
-  }
-  
-  mat.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! return its inverse matrix */
-inline _dgematrix i(const _dgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(mat.m!=mat.n){
-    ERROR_REPORT;
-    std::cerr << "This matrix is not square and has no inverse matrix." << std::endl
-              << "Your input was (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgbmatrix mat_cp(mat);
-  dgematrix mat_inv(mat_cp.m,mat_cp.n);
-  mat_inv.identity();
-  mat_cp.dgbsv(mat_inv);
-
-  return _(mat_inv);
-}
diff --git a/cpplapack-r198/.svn/pristine/ee/ee2dac8ebff82db6b6be3918f2972aaec267347d.svn-base b/cpplapack-r198/.svn/pristine/ee/ee2dac8ebff82db6b6be3918f2972aaec267347d.svn-base
deleted file mode 100644
index 9a71363..0000000
--- a/cpplapack-r198/.svn/pristine/ee/ee2dac8ebff82db6b6be3918f2972aaec267347d.svn-base
+++ /dev/null
@@ -1,74 +0,0 @@
-//=============================================================================
-/*! _zhematrix+_zssmatrix operator */
-inline _zgematrix operator+(const _zhematrix& matA, const _zssmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat =matA;
-  
-  for(CPPL_INT c=0; c<matB.vol; c++){
-    newmat(matB.indx[c],matB.jndx[c]) += matB.array[c];
-  }
-  
-  matA.destroy();
-  matB.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _zhematrix-_zssmatrix operator */
-inline _zgematrix operator-(const _zhematrix& matA, const _zssmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") - (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  zgematrix newmat =matA;
-  
-  for(CPPL_INT c=0; c<matB.vol; c++){
-    newmat(matB.indx[c],matB.jndx[c]) -= matB.array[c];
-  }
-  
-  matA.destroy();
-  matB.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _zhematrix*_zssmatrix operator */
-inline _zgematrix operator*(const _zhematrix& matA, const _zssmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(matA.n, matB.n);
-  newmat.zero();
-  
-  for(CPPL_INT c=0; c<matB.vol; c++){
-    for(CPPL_INT i=0; i<matA.n; i++){
-      newmat(i,matB.jndx[c]) += matA(i,matB.indx[c])*matB.array[c];
-    }
-  }
-  
-  matA.destroy();
-  matB.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/ee/ee625f1d0b4803a8e0aeec9b4ec6eb744e07c0cc.svn-base b/cpplapack-r198/.svn/pristine/ee/ee625f1d0b4803a8e0aeec9b4ec6eb744e07c0cc.svn-base
deleted file mode 100644
index 8e14beb..0000000
--- a/cpplapack-r198/.svn/pristine/ee/ee625f1d0b4803a8e0aeec9b4ec6eb744e07c0cc.svn-base
+++ /dev/null
@@ -1,268 +0,0 @@
-%TGIF 4.1.43-QPL
-state(0,37,100.000,0,0,0,4,1,9,1,1,1,0,1,0,1,1,'Helvetica',0,103680,0,0,0,10,0,0,1,1,0,16,0,0,1,1,1,1,1485,1050,0,0,2880,1).
-%
-% @(#)$Header$
-% %W%
-%
-unit("1 pixel/pixel").
-color_info(30,65535,0,[
-	"magenta", 65535, 0, 65535, 65535, 0, 65535, 1,
-	"red", 65535, 0, 0, 65535, 0, 0, 1,
-	"green", 0, 65535, 0, 0, 65535, 0, 1,
-	"blue", 0, 0, 65535, 0, 0, 65535, 1,
-	"yellow", 65535, 65535, 0, 65535, 65535, 0, 1,
-	"pink", 65535, 49344, 52171, 65535, 49344, 52171, 1,
-	"cyan", 0, 65535, 65535, 0, 65535, 65535, 1,
-	"CadetBlue", 24415, 40606, 41120, 24415, 40606, 41120, 1,
-	"white", 65535, 65535, 65535, 65535, 65535, 65535, 1,
-	"black", 0, 0, 0, 0, 0, 0, 1,
-	"#ff4d4d", 65535, 19789, 19789, 65280, 19712, 19712, 1,
-	"#ff9c4d", 65535, 40092, 19789, 65280, 39936, 19712, 1,
-	"#ffec4d", 65535, 60652, 19789, 65280, 60416, 19712, 1,
-	"#c4ff4d", 50372, 65535, 19789, 50176, 65280, 19712, 1,
-	"#75ff4d", 30069, 65535, 19789, 29952, 65280, 19712, 1,
-	"#4dff75", 19789, 65535, 30069, 19712, 65280, 29952, 1,
-	"#4dffc4", 19789, 65535, 50372, 19712, 65280, 50176, 1,
-	"#4decff", 19789, 60652, 65535, 19712, 60416, 65280, 1,
-	"#4d9cff", 19789, 40092, 65535, 19712, 39936, 65280, 1,
-	"#4d4dff", 19789, 19789, 65535, 19712, 19712, 65280, 1,
-	"#fffffe", 65535, 65535, 65278, 65280, 65280, 65024, 1,
-	"#e0e0e0", 57568, 57568, 57568, 57344, 57344, 57344, 1,
-	"#d0d0d0", 53456, 53456, 53456, 53248, 53248, 53248, 1,
-	"#c0c0c0", 49344, 49344, 49344, 49152, 49152, 49152, 1,
-	"#b0b0b0", 45232, 45232, 45232, 45056, 45056, 45056, 1,
-	"#a0a0a0", 41120, 41120, 41120, 40960, 40960, 40960, 1,
-	"#808080", 32896, 32896, 32896, 32768, 32768, 32768, 1,
-	"#404040", 16448, 16448, 16448, 16384, 16384, 16384, 1,
-	"#101010", 4112, 4112, 4112, 4096, 4096, 4096, 1,
-	"#000001", 0, 0, 257, 0, 0, 256, 1
-]).
-script_frac("0.6").
-fg_bg_colors('black','white').
-dont_reencode("FFDingbests:ZapfDingbats").
-page(1,"",1,'').
-box('black','',652,128,708,164,0,1,1,80,0,0,0,0,0,'1',0,[
-]).
-box('black','',552,128,608,164,0,1,1,170,0,0,0,0,0,'1',0,[
-]).
-box('black','',496,128,552,164,5,1,1,168,0,0,0,0,0,'1',1,[
-]).
-box('black','',440,128,496,164,5,1,1,164,0,0,0,0,0,'1',1,[
-]).
-box('black','',340,128,396,164,5,1,1,154,0,0,0,0,0,'1',1,[
-]).
-box('black','',240,128,296,164,5,1,1,127,0,0,0,0,0,'1',1,[
-]).
-box('black','',184,128,240,164,5,1,1,126,0,0,0,0,0,'1',1,[
-]).
-box('black','',128,128,184,164,5,1,1,122,0,0,0,0,0,'1',1,[
-]).
-text('black',156,134,1,1,1,10,22,36,18,4,0,0,0,0,2,10,22,0,0,"",0,0,0,0,152,'',[
-minilines(10,22,0,0,1,0,0,[
-mini_line(10,18,4,0,0,0,[
-str_block(0,10,18,4,0,-1,0,0,0,[
-str_seg('black','Helvetica',0,103680,10,18,4,0,-1,0,0,0,0,0,
-	"0")])
-])
-])]).
-text('black',212,134,1,1,1,10,22,38,18,4,0,0,0,0,2,10,22,0,0,"",0,0,0,0,152,'',[
-minilines(10,22,0,0,1,0,0,[
-mini_line(10,18,4,0,0,0,[
-str_block(0,10,18,4,0,-3,0,0,0,[
-str_seg('black','Helvetica',0,103680,10,18,4,0,-3,0,0,0,0,0,
-	"1")])
-])
-])]).
-text('black',268,134,1,1,1,10,22,45,18,4,0,0,0,0,2,10,22,0,0,"",0,0,0,0,152,'',[
-minilines(10,22,0,0,1,0,0,[
-mini_line(10,18,4,0,0,0,[
-str_block(0,10,18,4,0,-1,0,0,0,[
-str_seg('black','Helvetica',0,103680,10,18,4,0,-1,0,0,0,0,0,
-	"2")])
-])
-])]).
-text('black',368,134,1,1,1,10,22,50,18,4,0,0,0,0,2,10,22,0,0,"",0,0,0,0,152,'',[
-minilines(10,22,0,0,1,0,0,[
-mini_line(10,18,4,0,0,0,[
-str_block(0,10,18,4,0,-1,0,0,0,[
-str_seg('black','Helvetica',0,103680,10,18,4,0,-1,0,0,0,0,0,
-	"c")])
-])
-])]).
-text('black',468,134,1,1,1,42,22,87,18,4,0,0,0,0,2,42,22,0,0,"",0,0,0,0,152,'',[
-minilines(42,22,0,0,1,0,0,[
-mini_line(42,18,4,0,0,0,[
-str_block(0,42,18,4,0,-1,0,0,0,[
-str_seg('black','Helvetica',0,103680,42,18,4,0,-1,0,0,0,0,0,
-	"vol-2")])
-])
-])]).
-text('black',680,134,1,1,1,47,22,96,18,4,0,0,0,0,2,47,22,0,0,"",0,0,0,0,152,'',[
-minilines(47,22,0,0,1,0,0,[
-mini_line(47,18,4,0,0,0,[
-str_block(0,47,18,4,0,-3,0,0,0,[
-str_seg('black','Helvetica',0,103680,47,18,4,0,-3,0,0,0,0,0,
-	"cap-1")])
-])
-])]).
-oval('black','',304,144,308,148,1,3,1,135,0,0,0,0,0,'3',0,[
-]).
-oval('black','',316,144,320,148,1,3,1,148,0,0,0,0,0,'3',0,[
-]).
-oval('black','',328,144,332,148,1,3,1,149,0,0,0,0,0,'3',0,[
-]).
-oval('black','',404,144,408,148,1,3,1,160,0,0,0,0,0,'3',0,[
-]).
-oval('black','',416,144,420,148,1,3,1,161,0,0,0,0,0,'3',0,[
-]).
-oval('black','',428,144,432,148,1,3,1,162,0,0,0,0,0,'3',0,[
-]).
-text('black',524,134,1,1,1,42,22,167,18,4,0,0,0,0,2,42,22,0,0,"",0,0,0,0,152,'',[
-minilines(42,22,0,0,1,0,0,[
-mini_line(42,18,4,0,0,0,[
-str_block(0,42,18,4,0,-3,0,0,0,[
-str_seg('black','Helvetica',0,103680,42,18,4,0,-3,0,0,0,0,0,
-	"vol-1")])
-])
-])]).
-text('black',580,134,1,1,1,25,22,169,18,4,0,0,0,0,2,25,22,0,0,"",0,0,0,0,152,'',[
-minilines(25,22,0,0,1,0,0,[
-mini_line(25,18,4,0,0,0,[
-str_block(0,25,18,4,0,-1,0,0,0,[
-str_seg('black','Helvetica',0,103680,25,18,4,0,-1,0,0,0,0,0,
-	"vol")])
-])
-])]).
-oval('black','',616,144,620,148,1,3,1,181,0,0,0,0,0,'3',0,[
-]).
-oval('black','',628,144,632,148,1,3,1,182,0,0,0,0,0,'3',0,[
-]).
-oval('black','',640,144,644,148,1,3,1,183,0,0,0,0,0,'3',0,[
-]).
-box('black','',652,224,708,260,0,1,1,387,0,0,0,0,0,'1',0,[
-]).
-box('black','',552,224,608,260,5,1,1,388,0,0,0,0,0,'1',0,[
-]).
-box('black','',496,224,552,260,5,1,1,389,0,0,0,0,0,'1',1,[
-]).
-box('black','',440,224,496,260,5,1,1,390,0,0,0,0,0,'1',1,[
-]).
-box('black','',340,224,396,260,5,1,1,391,0,0,0,0,0,'1',1,[
-]).
-box('black','',240,224,296,260,5,1,1,392,0,0,0,0,0,'1',1,[
-]).
-box('black','',184,224,240,260,5,1,1,393,0,0,0,0,0,'1',1,[
-]).
-box('black','',128,224,184,260,5,1,1,394,0,0,0,0,0,'1',1,[
-]).
-text('black',156,230,1,1,1,10,22,395,18,4,0,0,0,0,2,10,22,0,0,"",0,0,0,0,248,'',[
-minilines(10,22,0,0,1,0,0,[
-mini_line(10,18,4,0,0,0,[
-str_block(0,10,18,4,0,-1,0,0,0,[
-str_seg('black','Helvetica',0,103680,10,18,4,0,-1,0,0,0,0,0,
-	"0")])
-])
-])]).
-text('black',212,230,1,1,1,10,22,396,18,4,0,0,0,0,2,10,22,0,0,"",0,0,0,0,248,'',[
-minilines(10,22,0,0,1,0,0,[
-mini_line(10,18,4,0,0,0,[
-str_block(0,10,18,4,0,-3,0,0,0,[
-str_seg('black','Helvetica',0,103680,10,18,4,0,-3,0,0,0,0,0,
-	"1")])
-])
-])]).
-text('black',268,230,1,1,1,10,22,397,18,4,0,0,0,0,2,10,22,0,0,"",0,0,0,0,248,'',[
-minilines(10,22,0,0,1,0,0,[
-mini_line(10,18,4,0,0,0,[
-str_block(0,10,18,4,0,-1,0,0,0,[
-str_seg('black','Helvetica',0,103680,10,18,4,0,-1,0,0,0,0,0,
-	"2")])
-])
-])]).
-text('black',368,230,1,1,1,10,22,398,18,4,0,0,0,0,2,10,22,0,0,"",0,0,0,0,248,'',[
-minilines(10,22,0,0,1,0,0,[
-mini_line(10,18,4,0,0,0,[
-str_block(0,10,18,4,0,-1,0,0,0,[
-str_seg('black','Helvetica',0,103680,10,18,4,0,-1,0,0,0,0,0,
-	"c")])
-])
-])]).
-text('black',468,230,1,1,1,42,22,399,18,4,0,0,0,0,2,42,22,0,0,"",0,0,0,0,248,'',[
-minilines(42,22,0,0,1,0,0,[
-mini_line(42,18,4,0,0,0,[
-str_block(0,42,18,4,0,-1,0,0,0,[
-str_seg('black','Helvetica',0,103680,42,18,4,0,-1,0,0,0,0,0,
-	"vol-3")])
-])
-])]).
-text('black',680,230,1,1,1,47,22,400,18,4,0,0,0,0,2,47,22,0,0,"",0,0,0,0,248,'',[
-minilines(47,22,0,0,1,0,0,[
-mini_line(47,18,4,0,0,0,[
-str_block(0,47,18,4,0,-3,0,0,0,[
-str_seg('black','Helvetica',0,103680,47,18,4,0,-3,0,0,0,0,0,
-	"cap-1")])
-])
-])]).
-oval('black','',304,240,308,244,1,3,1,401,0,0,0,0,0,'3',0,[
-]).
-oval('black','',316,240,320,244,1,3,1,402,0,0,0,0,0,'3',0,[
-]).
-oval('black','',328,240,332,244,1,3,1,403,0,0,0,0,0,'3',0,[
-]).
-oval('black','',404,240,408,244,1,3,1,404,0,0,0,0,0,'3',0,[
-]).
-oval('black','',416,240,420,244,1,3,1,405,0,0,0,0,0,'3',0,[
-]).
-oval('black','',428,240,432,244,1,3,1,406,0,0,0,0,0,'3',0,[
-]).
-text('black',524,230,1,1,1,42,22,407,18,4,0,0,0,0,2,42,22,0,0,"",0,0,0,0,248,'',[
-minilines(42,22,0,0,1,0,0,[
-mini_line(42,18,4,0,0,0,[
-str_block(0,42,18,4,0,-1,0,0,0,[
-str_seg('black','Helvetica',0,103680,42,18,4,0,-1,0,0,0,0,0,
-	"vol-2")])
-])
-])]).
-text('black',580,230,1,1,1,42,22,408,18,4,0,0,0,0,2,42,22,0,0,"",0,0,0,0,248,'',[
-minilines(42,22,0,0,1,0,0,[
-mini_line(42,18,4,0,0,0,[
-str_block(0,42,18,4,0,-3,0,0,0,[
-str_seg('black','Helvetica',0,103680,42,18,4,0,-3,0,0,0,0,0,
-	"vol-1")])
-])
-])]).
-oval('black','',616,240,620,244,1,3,1,409,0,0,0,0,0,'3',0,[
-]).
-oval('black','',628,240,632,244,1,3,1,410,0,0,0,0,0,'3',0,[
-]).
-oval('black','',640,240,644,244,1,3,1,411,0,0,0,0,0,'3',0,[
-]).
-text('black',80,182,1,1,1,72,22,421,18,4,0,0,0,0,2,72,22,0,0,"",0,0,0,1,200,'',[
-minilines(72,22,0,0,1,0,0,[
-mini_line(72,18,4,0,0,0,[
-str_block(0,72,18,4,0,-2,0,0,0,[
-str_seg('black','Helvetica',0,103680,72,18,4,0,-2,0,0,0,0,0,
-	"put(i,j,x);")])
-])
-])]).
-text('black',400,182,1,1,1,171,22,424,18,4,0,0,0,0,2,171,22,0,0,"",0,0,0,1,200,'',[
-minilines(171,22,0,0,1,0,0,[
-mini_line(171,18,4,0,0,0,[
-str_block(0,171,18,4,0,0,0,0,0,[
-str_seg('black','Helvetica',0,103680,171,18,4,0,0,0,0,0,0,0,
-	"automatically \"vol++;\"")])
-])
-])]).
-text('black',652,182,1,1,1,67,22,484,18,4,0,0,0,0,2,67,22,0,0,"",0,0,0,1,200,'',[
-minilines(67,22,0,0,1,0,0,[
-mini_line(67,18,4,0,0,0,[
-str_block(0,67,18,4,0,-1,0,0,0,[
-str_seg('black','Helvetica',0,103680,67,18,4,0,-1,0,0,0,0,0,
-	"assign x")])
-])
-])]).
-poly('black','',3,[
-	612,196,580,208,580,224],1,2,1,489,0,0,0,0,0,0,0,'2',1,0,
-    "0","",[
-    0,10,4,0,'10','4','0'],[0,10,4,0,'10','4','0'],[
-]).
diff --git a/cpplapack-r198/.svn/pristine/ef/ef1ea1986e8312de73f02d329260bd8505098057.svn-base b/cpplapack-r198/.svn/pristine/ef/ef1ea1986e8312de73f02d329260bd8505098057.svn-base
deleted file mode 100644
index 0f4d699..0000000
--- a/cpplapack-r198/.svn/pristine/ef/ef1ea1986e8312de73f02d329260bd8505098057.svn-base
+++ /dev/null
@@ -1,44 +0,0 @@
-//=============================================================================
-/*! return a transposed column vector */
-inline _dcovector t(const _drovector& rovec)
-{CPPL_VERBOSE_REPORT;
-  _dcovector covec;
-  covec.l =rovec.l;
-  covec.cap =rovec.cap;
-  delete [] covec.array;
-  covec.array =rovec.array;
-  
-  rovec.nullify();
-  return covec;
-}
-
-//=============================================================================
-/*! return its Euclidean norm */
-inline double nrm2(const _drovector& vec)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT inc =1;
-  double val =dnrm2_(&vec.l, vec.array, &inc);
-  vec.destroy();
-  return val;
-}
-
-//=============================================================================
-/*! return the index of element having the largest absolute value
-  in 0-based numbering system */
-inline CPPL_INT idamax(const _drovector& vec)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT inc =1;
-  CPPL_INT i =idamax_(&vec.l, vec.array, &inc) -1;
-  vec.destroy();
-  return i;
-}
-
-//=============================================================================
-/*! return its largest absolute value */
-inline double damax(const _drovector& vec)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT inc =1;
-  double val =vec.array[idamax_(&vec.l, vec.array, &inc) -1];
-  vec.destroy();
-  return val;
-}
diff --git a/cpplapack-r198/.svn/pristine/ef/ef2958c49277b5b45ec728119ff59dce90ccdc38.svn-base b/cpplapack-r198/.svn/pristine/ef/ef2958c49277b5b45ec728119ff59dce90ccdc38.svn-base
deleted file mode 100644
index 242d5fe..0000000
--- a/cpplapack-r198/.svn/pristine/ef/ef2958c49277b5b45ec728119ff59dce90ccdc38.svn-base
+++ /dev/null
@@ -1,55 +0,0 @@
-//=============================================================================
-/*! zhsmatrix*=double operator */
-inline zhsmatrix& zhsmatrix::operator*=(const double& d)
-{CPPL_VERBOSE_REPORT;
-  const std::vector<zcomponent>::iterator data_end =data.end();
-  for(std::vector<zcomponent>::iterator it=data.begin(); it!=data_end; it++){
-    it->v *=d;
-  }
-  
-  return *this;
-}
-
-//=============================================================================
-/*! zhsmatrix/=double operator */
-inline zhsmatrix& zhsmatrix::operator/=(const double& d)
-{CPPL_VERBOSE_REPORT;
-  const std::vector<zcomponent>::iterator data_end =data.end();
-  for(std::vector<zcomponent>::iterator it=data.begin(); it!=data_end; it++){
-    it->v /=d;
-  }
-  
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zhsmatrix*double operator */
-inline _zhsmatrix operator*(const zhsmatrix& mat, const double& d)
-{CPPL_VERBOSE_REPORT;
-  zhsmatrix newmat(mat);
-  
-  const std::vector<zcomponent>::iterator newmat_data_end =newmat.data.end();
-  for(std::vector<zcomponent>::iterator it=newmat.data.begin(); it!=newmat_data_end; it++){
-    it->v *=d;
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! zhsmatrix/double operator */
-inline _zhsmatrix operator/(const zhsmatrix& mat, const double& d)
-{CPPL_VERBOSE_REPORT;
-  zhsmatrix newmat(mat);
-  
-  const std::vector<zcomponent>::iterator newmat_data_end =newmat.data.end();
-  for(std::vector<zcomponent>::iterator it=newmat.data.begin(); it!=newmat_data_end; it++){
-    it->v /=d;
-  }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/ef/effe7dd25a41602ba1e4b7c2940f2da1364c45fb.svn-base b/cpplapack-r198/.svn/pristine/ef/effe7dd25a41602ba1e4b7c2940f2da1364c45fb.svn-base
deleted file mode 100644
index 73aa858..0000000
--- a/cpplapack-r198/.svn/pristine/ef/effe7dd25a41602ba1e4b7c2940f2da1364c45fb.svn-base
+++ /dev/null
@@ -1,75 +0,0 @@
-//=============================================================================
-/*! zcovector_small constructor */
-template<CPPL_INT l>
-inline zcovector_small<l>::zcovector_small()
-{CPPL_VERBOSE_REPORT;
-  ;
-}
-
-//=============================================================================
-/*! zcovector_small constructor */
-template<CPPL_INT l>
-inline zcovector_small<l>::zcovector_small(const zcovector& vec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( l!=vec.l ){
-    ERROR_REPORT;
-    std::cerr << "Vector sizes must be the same." << std::endl
-              << "Your input was " << l << " and " << vec.l << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT k=0; k<l; k++){
-    array[k] =vec.array[k];
-  }
-}
-
-//=============================================================================
-/*! zcovector_small constructor */
-template<CPPL_INT l>
-inline zcovector_small<l>::zcovector_small(const comple& x, const comple& y)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( l!=2 ){
-    ERROR_REPORT;
-    std::cerr << "The vector size must be 2." << std::endl
-              << "The vector size you set was " << l << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  array[0] =x;
-  array[1] =y;
-}
-
-//=============================================================================
-/*! zcovector_small constructor */
-template<CPPL_INT l>
-inline zcovector_small<l>::zcovector_small(const comple& x, const comple& y, const comple& z)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( l!=3 ){
-    ERROR_REPORT;
-    std::cerr << "The vector size must be 3." << std::endl
-              << "The vector size you set was " << l << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  array[0] =x;
-  array[1] =y;
-  array[2] =z;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zcovector_small destructor */
-template<CPPL_INT l>
-inline zcovector_small<l>::~zcovector_small()
-{CPPL_VERBOSE_REPORT;
-  ;
-}
diff --git a/cpplapack-r198/.svn/pristine/f0/f00f5c74daff4add8a125eef43cf47b18ce3fa93.svn-base b/cpplapack-r198/.svn/pristine/f0/f00f5c74daff4add8a125eef43cf47b18ce3fa93.svn-base
deleted file mode 100644
index 9251196..0000000
--- a/cpplapack-r198/.svn/pristine/f0/f00f5c74daff4add8a125eef43cf47b18ce3fa93.svn-base
+++ /dev/null
@@ -1,26 +0,0 @@
-//=============================================================================
-/*! _zgbmatrix*_zcovector operator */
-inline _zcovector operator*(const _zgbmatrix& mat, const _zcovector& vec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(mat.n!=vec.l){
-    ERROR_REPORT;
-    std::cerr << "These matrix and vector can not make a product." << std::endl
-              << "Your input was (" << mat.m << "x" << mat.n << ") * (" << vec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zcovector newvec(mat.m);
-  char trans ='n';
-  comple alpha =comple(1.,0.);
-  CPPL_INT lda =mat.kl+mat.ku+1;
-  CPPL_INT inc =1;
-  comple beta =comple(0.,0.);
-  
-  zgbmv_( &trans, &mat.m, &mat.n, &mat.kl, &mat.ku, &alpha, mat.array, &lda, vec.array, &inc, &beta, newvec.array, &inc );
-  
-  mat.destroy();
-  vec.destroy();
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/f0/f05b8cff99da1579ced5a146d5de4a1ceafe2394.svn-base b/cpplapack-r198/.svn/pristine/f0/f05b8cff99da1579ced5a146d5de4a1ceafe2394.svn-base
deleted file mode 100644
index 3cd9b0d..0000000
--- a/cpplapack-r198/.svn/pristine/f0/f05b8cff99da1579ced5a146d5de4a1ceafe2394.svn-base
+++ /dev/null
@@ -1,66 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int M(6), N(6), KL(1), KU(1);
-  
-  CPPL::dgbmatrix A(M,N,KL,KU);
-  for(int i=0; i<A.m; i++){
-    for(int j=std::max(0,i-A.kl); j<std::min(A.n,i+A.ku+1); j++){
-      A(i,j) =double( rand() /(RAND_MAX/10) );
-    }
-  }
-  
-  A.resize(M,M,KL,KU);
-  for(int i=0; i<A.m; i++){
-    for(int j=std::max(0,i-A.kl); j<std::min(A.n,i+A.ku+1); j++){
-      A(i,j) =double( rand() /(RAND_MAX/10) );
-    }
-  }
-  CPPL::dgbmatrix A_orig(A);
-  
-  CPPL::dcovector y(M);
-  for(int i=0; i<y.l; i++){
-    y(i) =double( rand() /(RAND_MAX/10) );
-  }
-  
-  cout << "A =\n" << A << endl;
-  cout << "y =\n" << y << endl;
-  cout << "#### A.dgbsv(y) ####" << endl;
-  A.dgbsv(y);
-  cout << "A =\n" << A << endl;
-  cout << "y =\n" << y << endl;
-  cout << "A_orig*y =\n" << A_orig*y << endl;
-  
-  
-  cout << "#### A=A_orig ####" << endl;
-  A=A_orig;
-  
-  CPPL::dgematrix Y(M,N);
-  for(int i=0; i<Y.m; i++){ for(int j=0; j<Y.n; j++){
-    Y(i,j) =double( rand() /(RAND_MAX/10) );
-  }}
-  cout << "A =\n" << A << endl;
-  cout << "Y =\n" << Y << endl;
-  cout << "#### A.dgbsv(Y) ####" << endl;
-  A.dgbsv(Y);
-  cout << "A =\n" << A << endl;
-  cout << "Y =\n" << Y << endl;
-  cout << "A_orig*Y =\n" << A_orig*Y << endl;
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/f0/f083e7d852120a87926d002f84a242504e7a8991.svn-base b/cpplapack-r198/.svn/pristine/f0/f083e7d852120a87926d002f84a242504e7a8991.svn-base
deleted file mode 100644
index fd125d2..0000000
--- a/cpplapack-r198/.svn/pristine/f0/f083e7d852120a87926d002f84a242504e7a8991.svn-base
+++ /dev/null
@@ -1,75 +0,0 @@
-//=============================================================================
-/*! zrovector_small constructor */
-template<CPPL_INT l>
-inline zrovector_small<l>::zrovector_small()
-{CPPL_VERBOSE_REPORT;
-  ;
-}
-
-//=============================================================================
-/*! zrovector_small constructor */
-template<CPPL_INT l>
-inline zrovector_small<l>::zrovector_small(const zrovector& vec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( l!=vec.l ){
-    ERROR_REPORT;
-    std::cerr << "Vector sizes must be the same." << std::endl
-              << "Your input was " << l << " and " << vec.l << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT k=0; k<l; k++){
-    array[k] =vec.array[k];
-  }
-}
-
-//=============================================================================
-/*! zrovector_small constructor */
-template<CPPL_INT l>
-inline zrovector_small<l>::zrovector_small(const comple& x, const comple& y)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( l!=2 ){
-    ERROR_REPORT;
-    std::cerr << "The vector size must be 2." << std::endl
-              << "The vector size you set was " << l << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  array[0] =x;
-  array[1] =y;
-}
-
-//=============================================================================
-/*! zrovector_small constructor */
-template<CPPL_INT l>
-inline zrovector_small<l>::zrovector_small(const comple& x, const comple& y, const comple& z)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( l!=3 ){
-    ERROR_REPORT;
-    std::cerr << "The vector size must be 3." << std::endl
-              << "The vector size you set was " << l << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  array[0] =x;
-  array[1] =y;
-  array[2] =z;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! zrovector_small destructor */
-template<CPPL_INT l>
-inline zrovector_small<l>::~zrovector_small()
-{CPPL_VERBOSE_REPORT;
-  ;
-}
diff --git a/cpplapack-r198/.svn/pristine/f0/f0910cd3dd9e4c094e993a7056338fda5a2ffcdd.svn-base b/cpplapack-r198/.svn/pristine/f0/f0910cd3dd9e4c094e993a7056338fda5a2ffcdd.svn-base
deleted file mode 100644
index c627559..0000000
--- a/cpplapack-r198/.svn/pristine/f0/f0910cd3dd9e4c094e993a7056338fda5a2ffcdd.svn-base
+++ /dev/null
@@ -1,73 +0,0 @@
-/*****************************************************************************/
-/*                               noname.cpp                                  */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int M(4), N(3), KL(2), KU(1);
-  CPPL::zgematrix A(M,N);
-  CPPL::zgbmatrix B(M,N,KL,KU);
-  CPPL::zhematrix C(N);
-  CPPL::zcovector cv(M);
-  CPPL::zrovector rv(M);
-  
-  for(int i=0; i<M; i++){ for(int j=0; j<N; j++){
-    A(i,j) =std::complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-  }}
-  
-  for(int i=0; i<M; i++){ for(int j=0; j<N; j++){
-    if( !(i-j>B.kl || j-i>B.ku) ){
-      B(i,j) =std::complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-    }
-  }}
-  
-  for(int i=0; i<N; i++){
-    for(int j=0; j<i; j++){
-      C(i,j) =std::complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-    }
-    C(i,i) =std::complex<double>(rand()/(RAND_MAX/10), 0.0);
-  }
-  
-  for(int i=0; i<M; i++){
-    cv(i) =std::complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-    rv(i) =std::complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-  }
-  
-  std::cout << "A =\n" << A << std::endl;
-  std::cout << "(10.,10.)*A =\n" << std::complex<double>(10.,10.)*A << std::endl;
-  std::cout << "A*(10.,10.) =\n" << A*std::complex<double>(10.,10.) << std::endl;
-  std::cout << "A/(10.,10.) =\n" << A/std::complex<double>(10.,10.) << std::endl;
-  
-  std::cout << "B =\n" << B << std::endl;
-  std::cout << "(10.,10.)*B =\n" << std::complex<double>(10.,10.)*B << std::endl;
-  std::cout << "B*(10.,10.) =\n" << B*std::complex<double>(10.,10.) << std::endl;
-  std::cout << "B/(10.,10.) =\n" << B/std::complex<double>(10.,10.) << std::endl;
-
-  std::cout << "C =\n" << C << std::endl;
-  std::cout << "(10.,10.)*C =\n" << std::complex<double>(10.,10.)*C << std::endl;
-  std::cout << "C*(10.,10.) =\n" << C*std::complex<double>(10.,10.) << std::endl;
-  std::cout << "C/(10.,10.) =\n" << C/std::complex<double>(10.,10.) << std::endl;
-  
-  std::cout << "cv =\n" << cv << std::endl;
-  std::cout << "(10.,10.)*cv =\n" << std::complex<double>(10.,10.)*cv << std::endl;
-  std::cout << "cv*(10.,10.) =\n" << cv*std::complex<double>(10.,10.) << std::endl;
-  std::cout << "cv/(10.,10.) =\n" << cv/std::complex<double>(10.,10.) << std::endl;
-  
-  std::cout << "rv =\n" << rv << std::endl;
-  std::cout << "(10.,10.)*rv =\n" << std::complex<double>(10.,10.)*rv << std::endl;
-  std::cout << "rv*(10.,10.) =\n" << rv*std::complex<double>(10.,10.) << std::endl;
-  std::cout << "rv/(10.,10.) =\n" << rv/std::complex<double>(10.,10.) << std::endl;
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/f1/f10ae373a8b9f97c580cd478d4af948cff4292af.svn-base b/cpplapack-r198/.svn/pristine/f1/f10ae373a8b9f97c580cd478d4af948cff4292af.svn-base
deleted file mode 100644
index 9ad49f1..0000000
--- a/cpplapack-r198/.svn/pristine/f1/f10ae373a8b9f97c580cd478d4af948cff4292af.svn-base
+++ /dev/null
@@ -1,16 +0,0 @@
-//=============================================================================
-/*! +dcovector operator */
-inline const dcovector& operator+(const dcovector& vec)
-{CPPL_VERBOSE_REPORT;
-  return vec;
-}
-
-//=============================================================================
-/*! -dcovector operator */
-inline _dcovector operator-(const dcovector& vec)
-{CPPL_VERBOSE_REPORT;
-  dcovector newvec(vec.l);
-  for(CPPL_INT i=0; i<newvec.l; i++){ newvec.array[i]=-vec.array[i]; }
-  
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/f1/f18334365d6eb528cc193724fd73329d20bc9b20.svn-base b/cpplapack-r198/.svn/pristine/f1/f18334365d6eb528cc193724fd73329d20bc9b20.svn-base
deleted file mode 100644
index 692b48c..0000000
--- a/cpplapack-r198/.svn/pristine/f1/f18334365d6eb528cc193724fd73329d20bc9b20.svn-base
+++ /dev/null
@@ -1,25 +0,0 @@
-//=============================================================================
-/*! _zrovector*_zgsmatrix operator */
-inline _zrovector operator*(const _zrovector& vec, const _zgsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vec.l!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These vector and matrix can not make a product." << std::endl
-              << "Your input was (" << vec.l << ") * (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zrovector newvec(mat.n);
-  newvec.zero();
-  
-  const std::vector<zcomponent>::const_iterator mat_data_end =mat.data.end();
-  for(std::vector<zcomponent>::const_iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    newvec(it->j) += vec(it->i)*it->v;
-  }
-  
-  vec.destroy();
-  mat.destroy();
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/f3/f324d0d24fc74043774c6e3e5cf37697154bb275.svn-base b/cpplapack-r198/.svn/pristine/f3/f324d0d24fc74043774c6e3e5cf37697154bb275.svn-base
deleted file mode 100644
index f57adc8..0000000
--- a/cpplapack-r198/.svn/pristine/f3/f324d0d24fc74043774c6e3e5cf37697154bb275.svn-base
+++ /dev/null
@@ -1,25 +0,0 @@
-//=============================================================================
-/*! _drovector*_dsymatrix operator */
-inline _drovector operator*(const _drovector& vec, const _dsymatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vec.l!=mat.n){
-    ERROR_REPORT;
-    std::cerr << "These vector and matrix can not make a product." << std::endl
-              << "Your input was (" << vec.l << ") * (" << mat.n << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  drovector newvec(mat.n);
-  char uplo ='l';
-  double alpha =1.;
-  CPPL_INT inc =1;
-  double beta =0.;
-  
-  dsymv_( &uplo, &mat.n, &alpha, mat.array, &mat.n, vec.array, &inc, &beta, newvec.array, &inc );
-  
-  vec.destroy();
-  mat.destroy();
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/f4/f44dcedc660ddc245a59780a0f8cd2eb86245f91.svn-base b/cpplapack-r198/.svn/pristine/f4/f44dcedc660ddc245a59780a0f8cd2eb86245f91.svn-base
deleted file mode 100644
index cefbe8b..0000000
--- a/cpplapack-r198/.svn/pristine/f4/f44dcedc660ddc245a59780a0f8cd2eb86245f91.svn-base
+++ /dev/null
@@ -1,89 +0,0 @@
-//=============================================================================
-/*! _dsymatrix+_dgbmatrix operator */
-inline _dgematrix operator+(const _dsymatrix& matA, const _dgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat(matA.n, matA.n);
-  
-  for(CPPL_INT i=0; i<matB.m; i++){
-    for(CPPL_INT j=i; j<matA.n; j++){
-      newmat(i,j) = newmat(j,i) = matA(i,j);
-    }
-    const CPPL_INT jmax =std::min(matB.n,i+matB.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matB.kl); j<jmax; j++){
-      newmat(i,j) += matB(i,j);
-    }
-  }
-  
-  matA.destroy();
-  matB.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _dsymatrix-_dgbmatrix operator */
-inline _dgematrix operator-(const _dsymatrix& matA, const _dgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat(matA.n, matA.n);
-  
-  for(CPPL_INT i=0; i<matB.m; i++){
-    for(CPPL_INT j=i; j<matA.n; j++){
-      newmat(i,j) = newmat(j,i) = matA(i,j);
-    }
-    const CPPL_INT jmax =std::min(matB.n,i+matB.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matB.kl); j<jmax; j++){
-      newmat(i,j) -= matB(i,j);
-    }
-  }
-
-  matA.destroy();
-  matB.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _dsymatrix*_dgbmatrix operator */
-inline _dgematrix operator*(const _dsymatrix& matA, const _dgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat( matA.n, matB.n );
-  newmat.zero();
-  
-  for(CPPL_INT i=0; i<newmat.m; i++){
-    for(CPPL_INT j=0; j<newmat.n; j++){
-      const CPPL_INT kmax =std::min(matB.m,j+matB.kl+1);
-      for(CPPL_INT k=std::max(CPPL_INT(0),j-matB.ku); k<kmax; k++){
-        newmat(i,j) += matA(i,k)*matB(k,j);
-      }
-    }
-  }
-  
-  matA.destroy();
-  matB.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/f4/f483bc188dd50ae6f490b5d29a45c2da26aa33a1.svn-base b/cpplapack-r198/.svn/pristine/f4/f483bc188dd50ae6f490b5d29a45c2da26aa33a1.svn-base
deleted file mode 100644
index 85d9a6a..0000000
--- a/cpplapack-r198/.svn/pristine/f4/f483bc188dd50ae6f490b5d29a45c2da26aa33a1.svn-base
+++ /dev/null
@@ -1,83 +0,0 @@
-//=============================================================================
-/*! zhematrix+zgbmatrix operator */
-inline _zgematrix operator+(const zhematrix& matA, const zgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(matA.n, matA.n);
-  
-  for(CPPL_INT i=0; i<matB.m; i++){
-    for(CPPL_INT j=0; j<matA.n; j++){
-      newmat(i,j) =matA(i,j);
-    }
-    const CPPL_INT jmax =std::min(matB.n,i+matB.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matB.kl); j<jmax; j++){
-      newmat(i,j)+=matB(i,j);
-    }
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! zhematrix-zgbmatrix operator */
-inline _zgematrix operator-(const zhematrix& matA, const zgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(matA.n, matA.n);
-  
-  for(CPPL_INT i=0; i<matB.m; i++){
-    for(CPPL_INT j=0; j<matA.n; j++){
-      newmat(i,j) =matA(i,j);
-    }
-    const CPPL_INT jmax =std::min(matB.n,i+matB.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matB.kl); j<jmax; j++){
-      newmat(i,j)-=matB(i,j);
-    }
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! zhematrix*zgbmatrix operator */
-inline _zgematrix operator*(const zhematrix& matA, const zgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  zgematrix newmat( matA.n, matB.n );
-  newmat.zero();
-  
-  for(CPPL_INT i=0; i<newmat.m; i++){
-    for(CPPL_INT j=0; j<newmat.n; j++){
-      const CPPL_INT kmax =std::min(matB.m,j+matB.kl+1);
-      for(CPPL_INT k=std::max(CPPL_INT(0),j-matB.ku); k<kmax; k++){
-        newmat(i,j)+=matA(i,k)*matB(k,j);
-      }
-    }
-  }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/f4/f4bf09262925f1b7a6c1912edb5b32501c1c3be0.svn-base b/cpplapack-r198/.svn/pristine/f4/f4bf09262925f1b7a6c1912edb5b32501c1c3be0.svn-base
deleted file mode 100644
index 6721de5..0000000
--- a/cpplapack-r198/.svn/pristine/f4/f4bf09262925f1b7a6c1912edb5b32501c1c3be0.svn-base
+++ /dev/null
@@ -1,9 +0,0 @@
-//=============================================================================
-/*! comple*_zgematrix operator */
-inline _zgematrix operator*(const comple& d, const _zgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT size =mat.m*mat.n;
-  CPPL_INT inc =1;
-  zscal_(&size, &d, mat.array, &inc);
-  return mat;
-}
diff --git a/cpplapack-r198/.svn/pristine/f4/f4d974e89bc0c2ad512e7ab5dd1465bd49e6325c.svn-base b/cpplapack-r198/.svn/pristine/f4/f4d974e89bc0c2ad512e7ab5dd1465bd49e6325c.svn-base
deleted file mode 100644
index f77b656..0000000
--- a/cpplapack-r198/.svn/pristine/f4/f4d974e89bc0c2ad512e7ab5dd1465bd49e6325c.svn-base
+++ /dev/null
@@ -1,30 +0,0 @@
-//=============================================================================
-/*! _dcovector constructor */
-inline _dcovector::_dcovector()
-{CPPL_VERBOSE_REPORT;CPPL_VERBOSE_REPORT;
-  l =0;
-  cap =0;
-  array =NULL;
-}
-
-//=============================================================================
-/*! _dcovector copy constructor */
-inline _dcovector::_dcovector(const _dcovector& vec)
-{CPPL_VERBOSE_REPORT;CPPL_VERBOSE_REPORT;
-  l =vec.l;
-  cap =vec.cap;
-  array =vec.array;
-  
-  vec.nullify();
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! _dcovector destructor */
-inline _dcovector::~_dcovector()
-{CPPL_VERBOSE_REPORT;CPPL_VERBOSE_REPORT;
-  delete[] array;
-}
diff --git a/cpplapack-r198/.svn/pristine/f5/f5e04ea974de03277af93283450d3cd69442305f.svn-base b/cpplapack-r198/.svn/pristine/f5/f5e04ea974de03277af93283450d3cd69442305f.svn-base
deleted file mode 100644
index 5c5652e..0000000
--- a/cpplapack-r198/.svn/pristine/f5/f5e04ea974de03277af93283450d3cd69442305f.svn-base
+++ /dev/null
@@ -1,16 +0,0 @@
-//=============================================================================
-/*! nullify all the vector data */
-inline void _dcovector::nullify() const
-{CPPL_VERBOSE_REPORT;
-  l=0;
-  cap=0;
-  array=NULL;
-}
-
-//=============================================================================
-/*!  destroy all the vector data */
-inline void _dcovector::destroy() const
-{CPPL_VERBOSE_REPORT;
-  delete [] array;
-  array=NULL;
-}
diff --git a/cpplapack-r198/.svn/pristine/f6/f6010566c36118a41cc4f27af3b8fa4df485540e.svn-base b/cpplapack-r198/.svn/pristine/f6/f6010566c36118a41cc4f27af3b8fa4df485540e.svn-base
deleted file mode 100644
index c91d4c2..0000000
--- a/cpplapack-r198/.svn/pristine/f6/f6010566c36118a41cc4f27af3b8fa4df485540e.svn-base
+++ /dev/null
@@ -1,23 +0,0 @@
-//=============================================================================
-/*! dgsmatrix*dcovector operator */
-inline _dcovector operator*(const dgsmatrix& mat, const dcovector& vec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(mat.n!=vec.l){
-    ERROR_REPORT;
-    std::cerr << "These matrix and vector can not make a product." << std::endl
-              << "Your input was (" << mat.m << "x" << mat.n << ") * (" << vec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dcovector newvec(mat.m);
-  newvec.zero();
-  
-  const std::vector<dcomponent>::const_iterator mat_data_end =mat.data.end();
-  for(std::vector<dcomponent>::const_iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    newvec(it->i) += it->v*vec(it->j);
-  }
-  
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/f6/f6280051d93be9f69c80dd3c86e17e8de9c85873.svn-base b/cpplapack-r198/.svn/pristine/f6/f6280051d93be9f69c80dd3c86e17e8de9c85873.svn-base
deleted file mode 100644
index 0080846..0000000
--- a/cpplapack-r198/.svn/pristine/f6/f6280051d93be9f69c80dd3c86e17e8de9c85873.svn-base
+++ /dev/null
@@ -1,51 +0,0 @@
-/*****************************************************************************/
-/*                                 main.cpp                                  */
-/*****************************************************************************/
-#undef CPPL_VERBOSE
-#undef CPPL_DEBUG
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  int size(3000);
-  CPPL::dgematrix A(size,size), B(size,size), C;
-  
-  srand(unsigned(time(NULL)));
-  for(int i=0; i<size; i++){ for(int j=0; j<size; j++){
-    A(i,j) =double(rand())/double(RAND_MAX);
-    B(i,j) =double(rand())/double(RAND_MAX);
-  }}
-  
-  clock_t t0, t1, t2, t3;
-  
-  t0=clock();
-  
-  C=A+B;
-  
-  t1=clock();
-  
-  C.resize(size,size);
-  for(int i=0; i<size*size; i++){
-    C.array[i] =A.array[i]+B.array[i];
-  }
-  
-  t2=clock();
-  
-  C=B;
-  daxpy_(size*size, 1., A.array, 1, C.array, 1);
-  
-  t3=clock();
-  
-  std::cout << "\"A+B\"   took "<< (1000./CLOCKS_PER_SEC)*(t1-t0) << "[ms]." << std::endl;
-  std::cout << "\"loop\"  took "<< (1000./CLOCKS_PER_SEC)*(t2-t1) << "[ms]." << std::endl;
-  std::cout << "\"daxpy\" took "<< (1000./CLOCKS_PER_SEC)*(t3-t2) << "[ms]." << std::endl;
-  
-  return 0;
-}
diff --git a/cpplapack-r198/.svn/pristine/f6/f65d5fe9abc81fed4a908387ceb1f796c4ca34b7.svn-base b/cpplapack-r198/.svn/pristine/f6/f65d5fe9abc81fed4a908387ceb1f796c4ca34b7.svn-base
deleted file mode 100644
index 74e57fc..0000000
--- a/cpplapack-r198/.svn/pristine/f6/f65d5fe9abc81fed4a908387ceb1f796c4ca34b7.svn-base
+++ /dev/null
@@ -1,186 +0,0 @@
-extern "C" {
-  // Solve Linear Equations  A * x = b
-  /* for General Matrix */
-  void dgesv_( const CPPL_INT *N, const CPPL_INT *nrhs, double *a, const CPPL_INT *lda,
-               CPPL_INT *ipiv, double *b, const CPPL_INT *ldb, CPPL_INT *info );
-  /* for General Band Matrix */
-  void dgbsv_( const CPPL_INT *N, const CPPL_INT *KL, const CPPL_INT *KU,
-               const CPPL_INT *nrhs, double *ab, const CPPL_INT *ldab,
-               CPPL_INT *ipiv, double *b, const CPPL_INT *ldb, CPPL_INT *info );
-  /* for Tridiagonal Matrix */
-  void dgtsv_( const CPPL_INT *N, const CPPL_INT *nrhs, double *dl, double *d,
-               double *du, double *b, const CPPL_INT *ldb, CPPL_INT *info );
-  /* for Symmetric Positive Definite Matrix */
-  void dposv_( const char *uplo, const CPPL_INT *N, const CPPL_INT *nrhs,
-               double *a, const CPPL_INT *lda, double *b, const CPPL_INT *ldb,
-               CPPL_INT *info );
-  /* for Symmetric Positive Definite (Packed Storage) Matrix */
-  void dppsv_( const char *uplo, const CPPL_INT *N, const CPPL_INT *nrhs,
-               double *ap, double *b, const CPPL_INT *ldb, CPPL_INT *info );
-  /* for Symmetric Positive Definite Band Matrix */
-  void dpbsv_( const char *uplo, const CPPL_INT *N, const CPPL_INT *kd,
-               const CPPL_INT *nrhs, double *ab, const CPPL_INT *ldab,
-               double *b, const CPPL_INT *ldb, CPPL_INT *info );
-  /* for Symmetric Positive Definite Tridiagonal Matrix */
-  void dptsv_( const CPPL_INT *N, const CPPL_INT *nrhs, double *d, double *e,
-               double *b, const CPPL_INT *ldb, CPPL_INT *info );
-  /* for Symmetric Indefinite Matrix */
-  void dsysv_( const char *uplo, const CPPL_INT *N, const CPPL_INT *nrhs,
-               double *a, const CPPL_INT *lda, CPPL_INT *ipiv, double *b,
-               const CPPL_INT *ldb, double *work, const CPPL_INT *lwork,
-               CPPL_INT *info );
-  /* for Symmetric Indefinite (Packed Storage) Matrix */
-  void dspsv_( const char *uplo, const CPPL_INT *N, const CPPL_INT *nrhs,
-               double *ap, CPPL_INT *ipiv, double *b, const CPPL_INT *ldb,
-               CPPL_INT *info );
-
-  // Linear Least Square Problems
-  // Solve Overdetermined or Underdetermined Linear Equations
-  /* Using Orthogonal Factorization, Assuming Full Rank */
-  void dgels_( const char *trans, const CPPL_INT *M, const CPPL_INT *N,
-               const CPPL_INT *nrhs, double *a, const CPPL_INT *lda,
-               double *b, const CPPL_INT *ldb,
-               double *work, const CPPL_INT *lwork, CPPL_INT *info );
-  /* Compute Minimum-Norm Solution using Orthogonal Factorization */
-  void dgelsy_( const CPPL_INT *M, const CPPL_INT *N, const CPPL_INT *nrhs,
-                double *a, const CPPL_INT *lda, double *b, const CPPL_INT *ldb,
-                CPPL_INT *jpvt, const double *rcond, CPPL_INT *rank,
-                double *work, const CPPL_INT *lwork, CPPL_INT *info );
-  /* Compute Minimum-Norm Solution using Singular Value Decomposition */
-  void dgelss_( const CPPL_INT *M, const CPPL_INT *N, const CPPL_INT *nrhs,
-                double *a, const CPPL_INT *lda, double *b, const CPPL_INT *ldb,
-                double *s, const double *rcond, CPPL_INT *rank,
-                double *work, const CPPL_INT *lwork, CPPL_INT *info );
-  /* Compute Minimum-Norm Solution using Singular Value Decomposition with Divide and Conquer Algorithm */
-  void dgelsd_( const CPPL_INT *M, const CPPL_INT *N, const CPPL_INT *nrhs,
-                double *a, const CPPL_INT *lda, double *b, const CPPL_INT *ldb,
-                double *s, const double *rcond, CPPL_INT *rank,
-                double *work, const CPPL_INT *lwork, CPPL_INT *iwork, CPPL_INT *info );
-  /* Solve Linear Equality-Constrained Least Squares (LSE) Problem */
-  void dgglse_( const CPPL_INT *M, const CPPL_INT *N, const CPPL_INT *p, double *a,
-                const CPPL_INT *lda, double *b, const CPPL_INT *ldb,
-                double *c, double *d, double *x, double *work,
-                const CPPL_INT *lwork, CPPL_INT *info );
-  /* Solve Gauss-Markov Linear Model (GLM) Problem */
-  void dggglm_( const CPPL_INT *N, const CPPL_INT *M, const CPPL_INT *p,
-                double *a, const CPPL_INT *lda, double *b, const CPPL_INT *ldb,
-                double *d, double *x, double *y,
-                double *work, const CPPL_INT *lwork, CPPL_INT *info );
-
-  // Standard Eigenvalue and Singular Value Problems
-  // Divide and Conquer routines are more fast, but need more memory.
-  /* Eigenvalues/Eigenvectors for General Matrix */
-  void dgeev_( const char *jobvl, const char *jobvr, const CPPL_INT *N,
-               double *a, const CPPL_INT *lda, double *wr, double *wi,
-               double *vl, const CPPL_INT *ldvl, double *vr, const CPPL_INT *ldvr,
-               double *work, const CPPL_INT *lwork, CPPL_INT *info );
-  /* Eigenvalues/Eigenvectors for Symmetric Matrix */
-  void dsyev_( const char *jobz, const char *uplo, const CPPL_INT *N,
-               double *a, const CPPL_INT *lda, double *w, double *work,
-               const CPPL_INT *lwork, CPPL_INT *info );
-  void dsyevd_( const char *jobz, const char *uplo, const CPPL_INT *N,
-                double *a, const CPPL_INT *lda, double *w, double *work,
-                const CPPL_INT *lwork, CPPL_INT *iwork, const CPPL_INT *liwork,
-                CPPL_INT *info );  /* Divide and Conqure */
-  /* Eigenvalues/Eigenvectors for Symmetric (Packed Storage) Matrix */
-  void dspev_( const char *jobz, const char *uplo, const CPPL_INT *N,
-               double *ap, double *w, double *z, const CPPL_INT *ldz,
-               double *work, CPPL_INT *info );
-  void dspevd_( const char *jobz, const char *uplo, const CPPL_INT *N,
-                double *ap, double *w, double *z, const CPPL_INT *ldz,
-                double *work, const CPPL_INT *lwork, CPPL_INT *iwork,
-                const CPPL_INT *liwork, CPPL_INT *info );  /* Divide and Conqure */
-  /* Eigenvalues/Eigenvectors for Symmetric Band Matrix */
-  void dsbev_( const char *jobz, const char *uplo, const CPPL_INT *N,
-               const CPPL_INT *kd, double *ab, const CPPL_INT *ldab, double *w,
-               double *z, const CPPL_INT *ldz, double *work, CPPL_INT *info );
-  void dsbevd_( const char *jobz, const char *uplo, const CPPL_INT *N,
-                const CPPL_INT *kd, double *ab, const CPPL_INT *ldab, double *w,
-                double *z, const CPPL_INT *ldz, double *work,
-                const CPPL_INT *lwork, CPPL_INT *iwork, const CPPL_INT *liwork,
-                CPPL_INT *info );  /* Divide and Conqure */
-  /* Eigenvalues/Eigenvectors for Symmetric Tridiagonal Matrix */
-  void dstev_( const char *jobz, const CPPL_INT *N, double *d, double *e,
-               double *z, const CPPL_INT *ldz, double *work, CPPL_INT *info );
-  void dstevd_( const char *jobz, const CPPL_INT *N, double *d, double *e,
-                double *z, const CPPL_INT *ldz, double *work,
-                const CPPL_INT *lwork, CPPL_INT *iwork, const CPPL_INT *liwork,
-                CPPL_INT *info );  /* Divide and Conqure */
-  /* Schur Factorization for General Matrix */
-  void dgees_( const char *jobvs, const char *sort,
-               bool (*select)( double *, double * ),
-               const CPPL_INT *N, double *a, const CPPL_INT *lda, CPPL_INT *sdim,
-               double *wr, double *wi, double *vs, const CPPL_INT *ldvs,
-               double *work, const CPPL_INT *lwork, bool *bwork,
-               CPPL_INT *info );
-  /* Singular Value Decomposition for General Matrix */
-  void dgesvd_( const char *jobu, const char *jobvt, const CPPL_INT *M,
-                const CPPL_INT *N, double *a, const CPPL_INT *lda, double *s,
-                double *u, const CPPL_INT *ldu, double *vt, const CPPL_INT *ldvt,
-                double *work, const CPPL_INT *lwork, CPPL_INT *info );
-  void dgesdd_( const char *jobz, const CPPL_INT *M, const CPPL_INT *N, double *a,
-                const CPPL_INT *lda, double *s, double *u, const CPPL_INT *ldu,
-                double *vt, const CPPL_INT *ldvt, double *work,
-                const CPPL_INT *lwork, CPPL_INT *iwork,
-                CPPL_INT *info );  /* Divide and Conqure */
-
-  // Generalized Eigenvalue and Sigular Value Problems
-  /* Generalized Eigenvalues/Eigenvectors for General Matrix */
-  void dggev_( const char *jobvl, const char *jobvr, const CPPL_INT *N,
-               double *a, const CPPL_INT *lda, double *b, const CPPL_INT *ldb,
-               double *alphar, double *alphai, double *beta,
-               double *vl, const CPPL_INT *ldvl, double *vr, const CPPL_INT *ldvr,
-               double *work, const CPPL_INT *lwork, CPPL_INT *info );
-  /* Generalized Eigenvalues/Eigenvectors
-     for Symmetric-definite Matrix */
-  void dsygv_( const CPPL_INT *itype, const char *jobz, const char *uplo,
-               const CPPL_INT *N, double *a, const CPPL_INT *lda, double *b,
-               const CPPL_INT *ldb, double *w, double *work, const CPPL_INT *lwork,
-               CPPL_INT *info );
-  void dsygvd_( const CPPL_INT *itype, const char *jobz, const char *uplo,
-                const CPPL_INT *N, double *a, const CPPL_INT *lda, double *b,
-                const CPPL_INT *ldb, double *w, double *work,
-                const CPPL_INT *lwork, CPPL_INT *iwork, const CPPL_INT *liwork,
-                CPPL_INT *info );  /* Divide and Conqure */
-  /* Generalized Eigenvalues/Eigenvectors
-     for Symmetric-definite (Packed Storage) Matrix */
-  void dspgv_( const CPPL_INT *itype, const char *jobz, const char *uplo,
-               const CPPL_INT *N, double *ap, double *bp, double *w,
-               double *z, const CPPL_INT *ldz, double *work, CPPL_INT *info );
-  void dspgvd_( const CPPL_INT *itype, const char *jobz, const char *uplo,
-                const CPPL_INT *N, double *ap, double *bp, double *w,
-                double *z, const CPPL_INT *ldz, double *work,
-                const CPPL_INT *lwork, CPPL_INT *iwork, const CPPL_INT *liwork,
-                CPPL_INT *info );  /* Divide and Conqure */
-  /* Generalized Eigenvalues/Eigenvectors
-     Symmetric-definite Band Matrix */
-  void dsbgv_( const char *jobz, const char *uplo, const CPPL_INT *N,
-               const CPPL_INT *ka, const CPPL_INT *kb, double *ab, const CPPL_INT *ldab,
-               double *bb, const CPPL_INT *ldbb, double *w, double *z,
-               const CPPL_INT *ldz, double *work, CPPL_INT *info );
-  void dsbgvd_( const char *jobz, const char *uplo, const CPPL_INT *N,
-                const CPPL_INT *ka, const CPPL_INT *kb, double *ab,
-                const CPPL_INT *ldab, double *bb, const CPPL_INT *ldbb, double *w,
-                double *z, const CPPL_INT *ldz, double *work,
-                const CPPL_INT *lwork, CPPL_INT *iwork, const CPPL_INT *liwork,
-                CPPL_INT *info );  /* Divide and Conqure */
-  /* Generalized Schur Factrization for General Matrix */
-  void dgges_( const char *jobvsl, const char *jobvsr, const char *sort,
-               CPPL_INT (*delctg)( double *, double *, double * ),
-               const CPPL_INT *N, double *a, const CPPL_INT *lda, double *b,
-               const CPPL_INT *ldb, CPPL_INT *sdim, double *alphar, double *alphai,
-               double *beta, double *vsl, const CPPL_INT *ldvsl, double *vsr,
-               const CPPL_INT *ldvsr, double *work, const CPPL_INT *lwork,
-               bool *bwork, CPPL_INT *info );
-  /* Generailized Singular Value Decomposition for General Matrix */
-  void dggsvd_( const char *jobu, const char *jobv, const char *jobq,
-                const CPPL_INT *M, const CPPL_INT *N, const CPPL_INT *p, CPPL_INT *k,
-                CPPL_INT *L, double *a, const CPPL_INT *lda, double *b,
-                const CPPL_INT *ldb, double *alpha, double *beta,
-                double *u, const CPPL_INT *ldu, double *v, const CPPL_INT *ldv,
-                double *q, const CPPL_INT *ldq, double *work, CPPL_INT *iwork,
-                CPPL_INT *info );
-  
-  void dgeqrf_( CPPL_INT* m, CPPL_INT* n, double* a, CPPL_INT* lda, double* tau, double* work, CPPL_INT* lwork, CPPL_INT *info );
-  void dorgqr_( CPPL_INT* m, CPPL_INT* n, CPPL_INT* k, double* a, CPPL_INT* lda, const double* tau, double* work, CPPL_INT* lwork, CPPL_INT *info );
-}
diff --git a/cpplapack-r198/.svn/pristine/f6/f680c1552fe227df9f91ff5dd9f7f8dca7aa03c4.svn-base b/cpplapack-r198/.svn/pristine/f6/f680c1552fe227df9f91ff5dd9f7f8dca7aa03c4.svn-base
deleted file mode 100644
index 6d144ee..0000000
--- a/cpplapack-r198/.svn/pristine/f6/f680c1552fe227df9f91ff5dd9f7f8dca7aa03c4.svn-base
+++ /dev/null
@@ -1,126 +0,0 @@
-//=============================================================================
-void zggev_check_value()
-{
-  cout << "############ check zggev value ############" << endl;
-  
-  srand(unsigned(time(NULL)));
-  int M(3);
-  
-  //// make zgematrix A and B ////
-  CPPL::zgematrix A(M,M), B(M,M);
-  for(int i=0; i<A.m; i++){ for(int j=0; j<A.n; j++){
-    A(i,j) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-    B(i,j) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-  }}
-  
-  //// make wr wi vr ////
-  vector< complex<double> > w;
-  
-  //// make A_original and B_original ////
-  CPPL::zgematrix A_original(A);
-  CPPL::zgematrix B_original(B);
-  
-  //// zggev ////
-  A.zggev(w);
-  
-  //// print ////
-  cout << "A_original=\n" << A_original << endl;
-  cout << "B_original=\n" << B_original << endl;
-  for(int i=0; i<A.m; i++){
-    cout << "#### " << i << "th eigen ####" << endl;
-    cout << "wr=" << wr[i] <<endl;
-    cout << "wi=" << wi[i] <<endl;
-  }
-}
-
-//=============================================================================
-void zggev_check_right()
-{
-  cout << "############ check zggev right ############" << endl;
-  
-  srand(unsigned(time(NULL)));
-  int M(3);
-  
-  //// make zgematrix A and B ////
-  CPPL::zgematrix A(M,M), B(M,M);
-  for(int i=0; i<A.m; i++){ for(int j=0; j<A.n; j++){
-    A(i,j) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-    B(i,j) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-  }}
-  
-  //// make wr wi vr ////
-  vector<double> wr, wi;
-  vector<CPPL::dcovector> vrr, vri;
-  
-  //// make A_original and B_original ////
-  CPPL::zgematrix A_original(A);
-  CPPL::zgematrix B_original(B);
-  
-  //// zggev ////
-  A.zggev(B, wr, wi ,vrr, vri);
-  
-  //// print ////
-  cout << "A_original=\n" << A_original << endl;
-  cout << "B_original=\n" << B_original << endl;
-  for(int i=0; i<A.m; i++){
-    cout << "#### " << i << "th eigen ####" << endl;
-    cout << "wr=" << wr[i] <<endl;
-    cout << "wi=" << wi[i] <<endl;
-    cout << "vrr=\n" << vrr[i] <<endl;
-    cout << "vri=\n" << vri[i] <<endl;
-    cout << "Real[ [A]*{x} -lambda*[B]*{x} ] = (Should be zeros)\n"
-         << A_original*vrr[i]
-      -(wr[i]*B_original*vrr[i] - wi[i]*B_original*vri[i])
-         << endl;
-    cout << "Imag[ [A]*{x} -lambda*[B]*{x} ] = (Should be zeros)\n"
-         << A_original*vri[i]
-      -(wr[i]*B_original*vri[i] + wi[i]*B_original*vrr[i])
-         << endl;
-  }
-}
-
-//=============================================================================
-void zggev_check_left()
-{
-  cout << "############ check zggev left ############" << endl;
-  
-  srand(unsigned(time(NULL)));
-  int M(3);
-  
-  //// make zgematrix A and B ////
-  CPPL::zgematrix A(M,M), B(M,M);
-  for(int i=0; i<A.m; i++){ for(int j=0; j<A.n; j++){
-    A(i,j) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-    B(i,j) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-  }}
-  
-  //// make wr wi vl ////
-  vector<double> wr, wi;
-  vector<CPPL::drovector> vlr, vli;
-  
-  //// make A_original and B_original ////
-  CPPL::zgematrix A_original(A);
-  CPPL::zgematrix B_original(B);
-  
-  //// zggev ////
-  A.zggev(B, wr, wi ,vlr, vli);
-  
-  //// print ////
-  cout << "A_original=\n" << A_original << endl;
-  cout << "B_original=\n" << B_original << endl;
-  for(int i=0; i<A.m; i++){
-    cout << "#### " << i << "th eigen ####" << endl;
-    cout << "wr = " << wr[i] << endl;
-    cout << "wi = " << wi[i] << endl;
-    cout << "vlr = " << vlr[i];
-    cout << "vli = " << vli[i] << endl;
-    cout << "Real[ {x}*[A] -lambda*{x}*[B] ] = (Should be zeros)\n"
-         << vlr[i]*A_original
-      -(wr[i]*vlr[i]*B_original - wi[i]*vli[i]*B_original)
-         << endl;
-    cout << "Imag[ [A]*{x} -lambda*{x}*[B] ] = (Should be zeros)\n"
-         << vli[i]*A_original
-      -(wr[i]*vli[i]*B_original + wi[i]*vlr[i]*B_original)
-         << endl;
-  }
-}
diff --git a/cpplapack-r198/.svn/pristine/f6/f68302da39802f59b226eb2f9e7b61aca911d70f.svn-base b/cpplapack-r198/.svn/pristine/f6/f68302da39802f59b226eb2f9e7b61aca911d70f.svn-base
deleted file mode 100644
index a1581a4..0000000
--- a/cpplapack-r198/.svn/pristine/f6/f68302da39802f59b226eb2f9e7b61aca911d70f.svn-base
+++ /dev/null
@@ -1,129 +0,0 @@
-//=============================================================================
-/*! operator() for non-const object */
-inline comple& zcovector::operator()(const CPPL_INT& i)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || l<=i ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the vector size." << std::endl
-              << "Your input is (" << i << "), whereas the vector size is " << l << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  return array[i];
-}
-
-//=============================================================================
-/*! operator() for const object */
-inline comple zcovector::operator()(const CPPL_INT& i) const
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || l<=i ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the vector size." << std::endl
-              << "Your input is (" << i << "), whereas the vector size is " << l << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  return array[i];
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! set value for const object */
-inline zcovector& zcovector::set(const CPPL_INT& i, const comple& v) //const
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || l<=i ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the vector size." << std::endl
-              << "Your input is (" << i << "), whereas the vector size is " << l << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  array[i] =v;
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-inline std::ostream& operator<<(std::ostream& s, const zcovector& vec)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<vec.l; i++){
-    s << " " << vec.array[i] << std::endl;
-  }
-  
-  return s;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-inline void zcovector::write(const char *filename) const
-{CPPL_VERBOSE_REPORT;
-  std::ofstream ofs(filename, std::ios::trunc);
-  ofs.setf(std::cout.flags());
-  ofs.precision(std::cout.precision());
-  ofs.width(std::cout.width());
-  ofs.fill(std::cout.fill());
-  
-  ofs << "#zcovector" << " " << l << std::endl;
-  for(CPPL_INT i=0; i<l; i++){
-    ofs << operator()(i) << std::endl;
-  }
-  
-  ofs.close();
-}
-
-//=============================================================================
-inline void zcovector::read(const char *filename)
-{CPPL_VERBOSE_REPORT;
-  std::ifstream s(filename);
-  if(!s){
-    ERROR_REPORT;
-    std::cerr << "The file \"" << filename << "\" can not be opened." << std::endl;
-    exit(1);
-  }
-
-  std::string id;
-  s >> id;
-  if( id != "zcovector" && id != "#zcovector" ){
-    ERROR_REPORT;
-    std::cerr << "The type name of the file \"" << filename << "\" is not zcovector." << std::endl
-              << "Its type name was " << id << " ." << std::endl;
-    exit(1);
-  }
-  
-  s >> l;
-  resize(l);
-  for(CPPL_INT i=0; i<l; i++){ 
-    s >> operator()(i);
-  }
-  if(s.eof()){
-    ERROR_REPORT;
-    std::cerr << "There is something is wrong with the file \"" << filename << "\"." << std::endl
-              << "Most likely, there is not enough data components, or a linefeed code or space code is missing at the end of the last line." << std::endl;
-    exit(1);
-  }
-  
-  s >> id;
-  if(!s.eof()){
-    ERROR_REPORT;
-    std::cerr << "There is something is wrong with the file \"" << filename << "\"." << std::endl
-              << "Most likely, there are extra data components." << std::endl;
-    exit(1);
-  }
-
-  s.close();
-}
diff --git a/cpplapack-r198/.svn/pristine/f6/f69759d95b767bb2bd09cec93254db8c47bcf682.svn-base b/cpplapack-r198/.svn/pristine/f6/f69759d95b767bb2bd09cec93254db8c47bcf682.svn-base
deleted file mode 100644
index 4b8f24c..0000000
--- a/cpplapack-r198/.svn/pristine/f6/f69759d95b767bb2bd09cec93254db8c47bcf682.svn-base
+++ /dev/null
@@ -1,52 +0,0 @@
-//=============================================================================
-/*! operator() for const object */
-inline comple& _zrovector::operator()(const CPPL_INT& i) const
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || l<=i ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the vector size." << std::endl
-              << "Your input is (" << i << "), whereas the vector size is (" << l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  return array[i];
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-inline std::ostream& operator<<(std::ostream& s, const _zrovector& vec)
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<vec.l; i++){ s << " " << vec.array[i]; }
-  s << std::endl;
-  
-  vec.destroy();
-  return s;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-inline void _zrovector::write(const char* filename) const
-{CPPL_VERBOSE_REPORT;
-  std::ofstream ofs(filename, std::ios::trunc);
-  ofs.setf(std::cout.flags());
-  ofs.precision(std::cout.precision());
-  ofs.width(std::cout.width());
-  ofs.fill(std::cout.fill());
-  
-  ofs << "#zrovector" << " " << l << std::endl;
-  for(CPPL_INT i=0; i<l; i++){
-    ofs << operator()(i) << " ";
-  }
-  ofs << std::endl;
-  
-  ofs.close();
-  destroy();
-}
diff --git a/cpplapack-r198/.svn/pristine/f6/f6a2c05e12d29bd6992d11881c17811802c970d7.svn-base b/cpplapack-r198/.svn/pristine/f6/f6a2c05e12d29bd6992d11881c17811802c970d7.svn-base
deleted file mode 100644
index 332873a..0000000
--- a/cpplapack-r198/.svn/pristine/f6/f6a2c05e12d29bd6992d11881c17811802c970d7.svn-base
+++ /dev/null
@@ -1,42 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int N(2);
-  
-  CPPL::zhematrix A(N);
-  CPPL::zgematrix B(N,N);
-  for(int i=0; i<A.n; i++){
-    for(int j=0; j<i; j++){
-      A(i,j) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-    }
-    A(i,i) =complex<double>(rand()/(RAND_MAX/10), 0.0);
-  }
-
-  for(int i=0; i<B.m; i++){ for(int j=0; j<B.n; j++){
-    B(i,j) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-  }}
-  
-  cout << "A =\n" << A << endl;
-  cout << "B =\n" << B << endl;
-
-  cout << "A+B =\n" << A+B << endl;
-  cout << "A-B =\n" << A-B << endl;
-  cout << "A*B =\n" << A*B << endl;
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/f6/f6b92696e184abfad4fc6ed780291942cea3ee92.svn-base b/cpplapack-r198/.svn/pristine/f6/f6b92696e184abfad4fc6ed780291942cea3ee92.svn-base
deleted file mode 100644
index 00e181a..0000000
--- a/cpplapack-r198/.svn/pristine/f6/f6b92696e184abfad4fc6ed780291942cea3ee92.svn-base
+++ /dev/null
@@ -1,112 +0,0 @@
-//=============================================================================
-/*! clear all the matrix data and set the sizes 0 */
-inline void dgrmatrix::clear()
-{CPPL_VERBOSE_REPORT;
-  m =0;
-  n =0;
-  a.clear();
-  ia.clear();
-  ja.clear();
-}
-
-//=============================================================================
-/*! change the matrix into a zero matrix with no change in structure */
-inline dgrmatrix& dgrmatrix::zero()
-{CPPL_VERBOSE_REPORT;
-  const std::vector<double>::iterator a_end =a.end();
-  for(std::vector<double>::iterator it=a.begin(); it!=a_end; it++){
-    (*it) =0.;
-  }
-  return *this;
-}
-
-//=============================================================================
-/*! make a deep copy of the matrix */
-inline void dgrmatrix::copy(const dgrmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  m =mat.m;
-  n =mat.n;
-  a =mat.a;
-  ia =mat.ia;
-  ja =mat.ja;
-}
-
-//=============================================================================
-/*! check if the component is listed */
-inline bool dgrmatrix::isListed(const CPPL_INT& i, const CPPL_INT& j) const
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if( i<0 || j<0 || m<=i || n<=j ){
-    ERROR_REPORT;
-    std::cerr << "The required component is out of the matrix size." << std::endl
-              << "Your input is (" << i << "," << j << "), whereas the matrix size is " << m << "x" << n << "." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  //////// search ////////
-  int k_beg =ia[i]-1;
-  int k_end =ia[i+1]-1;
-  for(int k=k_beg; k<k_end; k++){
-    if(ja[k]==j+1){
-      return true;//found
-    }
-  }
-  //////// not found ////////
-  return false;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! health checkup */
-inline void dgrmatrix::checkup()
-{CPPL_VERBOSE_REPORT;
-  //////// size check ////////
-  if(m<0){
-    ERROR_REPORT;
-    std::cerr << "m<0" << std::endl;
-    exit(1);    
-  }
-  if(n<0){
-    ERROR_REPORT;
-    std::cerr << "n<0" << std::endl;
-    exit(1);    
-  }
-  if(a.size()!=ja.size()){
-    ERROR_REPORT;
-    std::cerr << "a.size()!=ja.size()" << std::endl;
-    exit(1);
-  }
-  if(ia.size()!=size_t(m+1)){
-    ERROR_REPORT;
-    std::cerr << "ia.size()!=m+1" << std::endl;
-    exit(1);
-  }
-  if(a.size()>size_t(m*n)){
-    ERROR_REPORT;
-    std::cerr << "a.size()>m*n" << std::endl;
-    exit(1);
-  }
-  
-  //////// index check ////////
-  //not yet....
-  
-  std::cerr << "# [NOTE]@dgrmatrix::checkup(): This matrix is fine." << std::endl;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! swap two matrices */
-inline void swap(dgrmatrix& A, dgrmatrix& B)
-{CPPL_VERBOSE_REPORT;
-  std::swap(A.n,B.n);
-  std::swap(A.m,B.m);
-  std::swap(A.a,B.a);
-  std::swap(A.ia,B.ia);
-  std::swap(A.ja,B.ja);
-}
diff --git a/cpplapack-r198/.svn/pristine/f7/f722a721dcc27cf4abbcfe1df59aa324df755383.svn-base b/cpplapack-r198/.svn/pristine/f7/f722a721dcc27cf4abbcfe1df59aa324df755383.svn-base
deleted file mode 100644
index 42331cc..0000000
--- a/cpplapack-r198/.svn/pristine/f7/f722a721dcc27cf4abbcfe1df59aa324df755383.svn-base
+++ /dev/null
@@ -1,35 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int N(3);
-  
-  CPPL::zhematrix A(N);
-  for(int i=0; i<A.n; i++){
-    for(int j=0; j<i; j++){
-      A(i,j) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-    }
-    A(i,i) =complex<double>(rand()/(RAND_MAX/10), 0.0);
-  }
-  
-  cout << "A =\n" << A << endl;
-  cout << "+A =\n" << +A << endl;
-  cout << "-A =\n" << -A << endl;
-  cout << "A =\n" << A << endl;
-
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/f7/f74eaf8daa6d544fb663be62c26ce5d8e9e998be.svn-base b/cpplapack-r198/.svn/pristine/f7/f74eaf8daa6d544fb663be62c26ce5d8e9e998be.svn-base
deleted file mode 100644
index c95b5d5..0000000
--- a/cpplapack-r198/.svn/pristine/f7/f74eaf8daa6d544fb663be62c26ce5d8e9e998be.svn-base
+++ /dev/null
@@ -1,26 +0,0 @@
-//=============================================================================
-/*! zrovector*zhsmatrix operator */
-inline _zrovector operator*(const zrovector& vec, const zhsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vec.l!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These vector and matrix can not make a product." << std::endl
-              << "Your input was (" << vec.l << ") * (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zrovector newvec(mat.n);
-  newvec.zero();
-  
-  const std::vector<zcomponent>::const_iterator mat_data_end =mat.data.end();
-  for(std::vector<zcomponent>::const_iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    newvec(it->j) +=vec(it->i)*it->v;
-    if(it->i!=it->j){
-      newvec(it->i) +=vec(it->j)*std::conj(it->v);
-    }
-  }
-  
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/f7/f75dfef1782ade88a4004e18dce6acacc948a3e8.svn-base b/cpplapack-r198/.svn/pristine/f7/f75dfef1782ade88a4004e18dce6acacc948a3e8.svn-base
deleted file mode 100644
index 8f60836..0000000
--- a/cpplapack-r198/.svn/pristine/f7/f75dfef1782ade88a4004e18dce6acacc948a3e8.svn-base
+++ /dev/null
@@ -1,86 +0,0 @@
-//=============================================================================
-/*! return transposed zhsmatrix */
-inline _zhsmatrix t(const zhsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  zhsmatrix newmat(mat);
-  
-  const std::vector<zcomponent>::iterator newmat_data_end =newmat.data.end();
-  for(std::vector<zcomponent>::iterator it=newmat.data.begin(); it!=newmat_data_end; it++){
-    it->v =std::conj(it->v);
-  }
-  
-  return _(newmat);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! return its conjugate matrix */
-inline _zhsmatrix conj(const zhsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  zhsmatrix newmat(mat);
-  
-  const std::vector<zcomponent>::iterator newmat_data_end =newmat.data.end();
-  for(std::vector<zcomponent>::iterator it=newmat.data.begin(); it!=newmat_data_end; it++){
-    it->v =std::conj(it->v);
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! return its conjugate matrix */
-inline _zhsmatrix conjt(const zhsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  WARNING_REPORT;
-  std::cerr << "This function call has no effect since the matrix is Hermitian." << std::endl;
-#endif//CPPL_DEBUG
-  
-  zhsmatrix newmat(mat);
-  return _(newmat);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! search the index of element having the largest absolute value
-  in 0-based numbering system */
-inline void idamax(CPPL_INT& i, CPPL_INT& j, const zhsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  std::vector<zcomponent>::const_iterator itx(mat.data.begin());
-  double vmax =0.;
-  
-  const std::vector<zcomponent>::const_iterator mat_data_end =mat.data.end();
-  for(std::vector<zcomponent>::const_iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    if( vmax < norm(it->v) ){
-      vmax =norm(it->v);
-      itx =it;
-    }
-  }
-  
-  i =itx->i;
-  j =itx->j;
-}
-
-//=============================================================================
-/*! return its largest absolute value */
-inline comple damax(const zhsmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  std::vector<zcomponent>::const_iterator itx(mat.data.begin());
-  double vmax =0.;
-  
-  const std::vector<zcomponent>::const_iterator mat_data_end =mat.data.end();
-  for(std::vector<zcomponent>::const_iterator it=mat.data.begin(); it!=mat_data_end; it++){
-    if( vmax < norm(it->v) ){
-      vmax =norm(it->v);
-      itx =it;
-    }
-  }
-  
-  return itx->v;
-}
diff --git a/cpplapack-r198/.svn/pristine/f7/f7a31da8f9c9c48294e0d7a4e64f5afa49e02724.svn-base b/cpplapack-r198/.svn/pristine/f7/f7a31da8f9c9c48294e0d7a4e64f5afa49e02724.svn-base
deleted file mode 100644
index 2019c7f..0000000
--- a/cpplapack-r198/.svn/pristine/f7/f7a31da8f9c9c48294e0d7a4e64f5afa49e02724.svn-base
+++ /dev/null
@@ -1,70 +0,0 @@
-//=============================================================================
-/*! _dsymatrix+dsymatrix operator */
-inline _dsymatrix operator+(const _dsymatrix& matA, const dsymatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") + (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT j=0; j<matA.n; j++){
-    for(CPPL_INT i=j; i<matA.n; i++){
-      matA.darray[j][i] += matB.darray[j][i];
-    }
-  }
-  
-  return matA;
-}
-
-//=============================================================================
-/*! _dsymatrix-dsymatrix operator */
-inline _dsymatrix operator-(const _dsymatrix& matA, const dsymatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") - (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT j=0; j<matA.n; j++){
-    for(CPPL_INT i=j; i<matA.n; i++){
-      matA.darray[j][i] -= matB.darray[j][i];
-    }
-  }
-  
-  return matA;
-}
-
-//=============================================================================
-/*! _dsymatrix*dsymatrix operator */
-inline _dgematrix operator*(const _dsymatrix& matA, const dsymatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") * (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  matB.complete();
-  
-  dgematrix newmat(matA.n, matA.n);
-  char side ='l';
-  char uplo ='l';
-  double alpha =1.;
-  double beta =0.;
-  
-  dsymm_( &side, &uplo, &matA.n, &matB.n, &alpha, matA.array, &matA.n, matB.array, &matB.m, &beta, newmat.array, &newmat.m );
-  
-  matA.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/f7/f7f28021dbc0859a7de685aeef535a048805ca3d.svn-base b/cpplapack-r198/.svn/pristine/f7/f7f28021dbc0859a7de685aeef535a048805ca3d.svn-base
deleted file mode 100644
index 9306b19..0000000
--- a/cpplapack-r198/.svn/pristine/f7/f7f28021dbc0859a7de685aeef535a048805ca3d.svn-base
+++ /dev/null
@@ -1,48 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int N(3);
-  
-  CPPL::zhematrix A(N), B;
-  for(int i=0; i<A.n; i++){
-    for(int j=0; j<i; j++){
-      A(i,j) =complex<double>(rand()/(RAND_MAX/10), rand()/(RAND_MAX/10));
-    }
-    A(i,i) =complex<double>(rand()/(RAND_MAX/10), 0.0);
-  }
-  
-  cout << "A =\n" << A << endl;
-  cout << "#### B.copy(A) ####" << endl;
-  B.copy(A);
-  cout << "B =\n" << B << endl;
-  
-  cout << "#### B.clear() ####" << endl;
-  B.clear();
-  cout << "B =\n" << B << endl;
-  
-  cout << "#### B.resize(2) & B.zero() ####" << endl;
-  B.resize(2);
-  B.zero();
-  cout << "B =\n" << B << endl;
-  
-  cout << "#### B.identity() ####" << endl;
-  B.identity();
-  cout << "B =\n" << B << endl;
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/f8/f809ac17ecafe58c875f9fab1467adcf3b058136.svn-base b/cpplapack-r198/.svn/pristine/f8/f809ac17ecafe58c875f9fab1467adcf3b058136.svn-base
deleted file mode 100644
index a8db27e..0000000
--- a/cpplapack-r198/.svn/pristine/f8/f809ac17ecafe58c875f9fab1467adcf3b058136.svn-base
+++ /dev/null
@@ -1,80 +0,0 @@
-//=============================================================================
-/*! _zgsmatrix+zgbmatrix operator */
-/*
-inline _zgematrix operator+(const _zgsmatrix& matA, const zgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(matA);
-  
-  for(CPPL_INT i=0; i<matB.m; i++){
-    for(CPPL_INT j=max(0,i-matB.kl); j<min(matB.n,i+matB.ku+1); j++){
-      newmat(i,j)+=matB(i,j);
-    }
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
-*/
-//=============================================================================
-/*! _zgsmatrix-zgbmatrix operator */
-/*
-inline _zgematrix operator-(const _zgsmatrix& matA, const zgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat(matA);
-  
-  for(CPPL_INT i=0; i<matB.m; i++){
-    for(CPPL_INT j=max(0,i-matB.kl); j<min(matB.n,i+matB.ku+1); j++){
-      newmat(i,j)-=matB(i,j);
-    }
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
-*/
-//=============================================================================
-/*! _zgsmatrix*zgbmatrix operator */
-/*
-inline _zgematrix operator*(const _zgsmatrix& matA, const zgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  zgematrix newmat( matA.m, matB.n );
-  newmat.zero();
-  
-  for(CPPL_INT c=0; c<matA.vol; c++){
-    for(CPPL_INT k=max(0,matA.jndx[c]-matB.ku);
-        k<min(matB.m,matA.jndx[c]+matB.kl+1); k++){
-      newmat(matA.indx[c],k) += matA.array[c]*matB(matA.jndx[c],k);
-    }
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
-*/
diff --git a/cpplapack-r198/.svn/pristine/f8/f86dcd21022274d7a1717f9a5adfb677504d55a4.svn-base b/cpplapack-r198/.svn/pristine/f8/f86dcd21022274d7a1717f9a5adfb677504d55a4.svn-base
deleted file mode 100644
index 4c691aa..0000000
--- a/cpplapack-r198/.svn/pristine/f8/f86dcd21022274d7a1717f9a5adfb677504d55a4.svn-base
+++ /dev/null
@@ -1,30 +0,0 @@
-//=============================================================================
-/*! nullify all the matrix data */
-inline void _zhematrix::nullify() const
-{CPPL_VERBOSE_REPORT;
-  n=0;
-  array=NULL;
-  darray=NULL;
-}
-
-//=============================================================================
-/*! destroy all the matrix data */
-inline void _zhematrix::destroy() const
-{CPPL_VERBOSE_REPORT;
-  delete [] array;
-  delete [] darray;
-  array=NULL;
-  darray=NULL;
-}
-
-//=============================================================================
-/*! complete the upper-right components */
-inline void _zhematrix::complete() const
-{CPPL_VERBOSE_REPORT;
-  for(CPPL_INT i=0; i<n; i++){
-    for(CPPL_INT j=0; j<i; j++){
-      darray[i][j] =std::conj(darray[j][i]);
-    }
-  }
-}
-
diff --git a/cpplapack-r198/.svn/pristine/f9/f985baba32448a3d0c6ac2423e54ae0233c9a0cb.svn-base b/cpplapack-r198/.svn/pristine/f9/f985baba32448a3d0c6ac2423e54ae0233c9a0cb.svn-base
deleted file mode 100644
index 08418bb..0000000
--- a/cpplapack-r198/.svn/pristine/f9/f985baba32448a3d0c6ac2423e54ae0233c9a0cb.svn-base
+++ /dev/null
@@ -1,73 +0,0 @@
-//=============================================================================
-/*! _dsymatrix+_dsymatrix operator */
-inline _dsymatrix operator+(const _dsymatrix& matA, const _dsymatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") + (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT j=0; j<matA.n; j++){
-    for(CPPL_INT i=j; i<matA.n; i++){
-      matA.darray[j][i] +=matB.darray[j][i];
-    }
-  }
-  
-  matB.destroy();
-  return matA;
-}
-
-//=============================================================================
-/*! _dsymatrix-_dsymatrix operator */
-inline _dsymatrix operator-(const _dsymatrix& matA, const _dsymatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") - (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT j=0; j<matA.n; j++){
-    for(CPPL_INT i=j; i<matA.n; i++){
-      matA.darray[j][i] -=matB.darray[j][i];
-    }
-  }
-  
-  matB.destroy();
-  return matA;
-}
-
-//=============================================================================
-/*! _dsymatrix*_dsymatrix operator */
-inline _dgematrix operator*(const _dsymatrix& matA, const _dsymatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.n << "x" << matA.n << ") * (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  matB.complete();
-  
-  dgematrix newmat(matA.n, matA.n);
-  char side ='l';
-  char uplo ='l';
-  double alpha =1.;
-  double beta =0.;
-
-  dsymm_( &side, &uplo, &matA.n, &matB.n, &alpha, matA.array, &matA.n, matB.array, &matB.m, &beta, newmat.array, &newmat.m );
-  
-  matA.destroy();
-  matB.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/f9/f98ab3f800e2f951d5e12fd5b042d061c170d94f.svn-base b/cpplapack-r198/.svn/pristine/f9/f98ab3f800e2f951d5e12fd5b042d061c170d94f.svn-base
deleted file mode 100644
index c8ddad5..0000000
--- a/cpplapack-r198/.svn/pristine/f9/f98ab3f800e2f951d5e12fd5b042d061c170d94f.svn-base
+++ /dev/null
@@ -1,76 +0,0 @@
-//=============================================================================
-/*! dssmatrix+_dsymatrix operator */
-/*
-inline _dgematrix operator+(const dssmatrix& matA, const _dsymatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.n || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat(matB);
-  for(CPPL_INT c=0; c<matA.vol; c++){
-    newmat(matA.indx[c],matA.jndx[c]) += matA.array[c];
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
-*/
-
-//=============================================================================
-/*! dssmatrix-_dsymatrix operator */
-/*
-inline _dgematrix operator-(const dssmatrix& matA, const _dsymatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.n || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") - (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat(-matB);
-  
-  for(CPPL_INT c=0; c<matA.vol; c++){
-    newmat(matA.indx[c],matA.jndx[c]) += matA.array[c];
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
-*/
-
-//=============================================================================
-/*! dssmatrix*_dsymatrix operator */
-/*
-inline _dgematrix operator*(const dssmatrix& matA, const _dsymatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.n << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat(matA.m, matB.n);
-  newmat.zero();
-  
-  for(CPPL_INT c=0; c<matA.vol; c++){
-    for(CPPL_INT i=0; i<matB.n; i++){
-      newmat(matA.indx[c],i) += matA.array[c]*matB(matA.jndx[c],i);
-    }
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
-*/
diff --git a/cpplapack-r198/.svn/pristine/f9/f98ee25e92c1dc4ac0922e8efd892aaf7f23876d.svn-base b/cpplapack-r198/.svn/pristine/f9/f98ee25e92c1dc4ac0922e8efd892aaf7f23876d.svn-base
deleted file mode 100644
index 6b0c090..0000000
--- a/cpplapack-r198/.svn/pristine/f9/f98ee25e92c1dc4ac0922e8efd892aaf7f23876d.svn-base
+++ /dev/null
@@ -1,25 +0,0 @@
-//=============================================================================
-/*! dgbmatrix*_dcovector operator */
-inline _dcovector operator*(const dgbmatrix& mat, const _dcovector& vec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(mat.n!=vec.l){
-    ERROR_REPORT;
-    std::cerr << "These matrix and vector can not make a product." << std::endl
-              << "Your input was (" << mat.m << "x" << mat.n << ") * (" << vec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dcovector newvec(mat.m);
-  char trans ='n';
-  double alpha =1.;
-  CPPL_INT lda =mat.kl+mat.ku+1;
-  CPPL_INT inc =1;
-  double beta =0.;
-
-  dgbmv_( &trans, &mat.m, &mat.n, &mat.kl, &mat.ku, &alpha, mat.array, &lda, vec.array, &inc, &beta, newvec.array, &inc );
-  
-  vec.destroy();
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/fa/fa02dfce4cfa875c1bbb506fc0203c59f9e83003.svn-base b/cpplapack-r198/.svn/pristine/fa/fa02dfce4cfa875c1bbb506fc0203c59f9e83003.svn-base
deleted file mode 100644
index 8b9cff0..0000000
--- a/cpplapack-r198/.svn/pristine/fa/fa02dfce4cfa875c1bbb506fc0203c59f9e83003.svn-base
+++ /dev/null
@@ -1,225 +0,0 @@
-//=============================================================================
-/*! dgbmatrix=dgbmatrix operator\n
-  The left side matrix is overwritten thoroughly including band width. */
-inline dgbmatrix& dgbmatrix::operator=(const dgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-  if(array!=mat.array){ // if it is NOT self substitution
-    copy(mat);
-  }
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! dgbmatrix+=dgbmatrix operator\n
-  If the band width of the left side matrix is narrower than the right side matrix, the band width of the left side matrix become thicker as same as the right side matrix. */
-inline dgbmatrix& dgbmatrix::operator+=(const dgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.n || m!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was" << "(" << m <<"x"<< n <<","<< kl <<":"<< ku << ") "<< "+=" << "("<< mat.m <<"x"<< mat.n <<","<< mat.kl <<":"<< mat.ku <<") " << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  if(kl>=mat.kl && ku>=mat.ku){
-    for(CPPL_INT i=0; i<m; i++){
-      const CPPL_INT jmax =std::min(n,i+mat.ku+1);
-      for(CPPL_INT j=std::max(CPPL_INT(0),i-mat.kl); j<jmax; j++){
-        operator()(i,j) += mat(i,j);
-      }
-    }
-    
-    return *this;
-  }
-  
-  else{
-    dgbmatrix newmat(m,n,std::max(kl,mat.kl),std::max(ku,mat.ku));
-    newmat.zero();
-    for(CPPL_INT i=0; i<m; i++){
-      const CPPL_INT jmax1 =std::min(n,i+ku+1);
-      for(CPPL_INT j=std::max(CPPL_INT(0),i-kl); j<jmax1; j++){
-        newmat(i,j) += operator()(i,j);
-      }
-      const CPPL_INT jmax2 =std::min(mat.n,i+mat.ku+1);
-      for(CPPL_INT j=std::max(CPPL_INT(0),i-mat.kl); j<jmax2; j++){
-        newmat(i,j) += mat(i,j);
-      }
-    }
-    
-    swap(*this,newmat);
-    return *this;
-  }
-}
-
-//=============================================================================
-/*! dgbmatrix-=dgbmatrix operator\n
-  If the band width of the left side matrix is narrower than the right side matrix, the band width of the left side matrix become thicker as same as the right side matrix. */
-inline dgbmatrix& dgbmatrix::operator-=(const dgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.n || m!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was" << "(" << m <<"x"<< n <<","<< kl <<":"<< ku << ") "<< "-=" << "("<< mat.m <<"x"<< mat.n <<","<< mat.kl <<":"<< mat.ku <<") " << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  if(kl>=mat.kl && ku>=mat.ku){
-    for(CPPL_INT i=0; i<m; i++){
-      const CPPL_INT jmax =std::min(n,i+mat.ku+1);
-      for(CPPL_INT j=std::max(CPPL_INT(0),i-mat.kl); j<jmax; j++){
-        operator()(i,j) -= mat(i,j);
-      }
-    }
-    
-    return *this;
-  }
-  
-  else{
-    dgbmatrix newmat(m,n,std::max(kl,mat.kl),std::max(ku,mat.ku));
-    newmat.zero();
-    for(CPPL_INT i=0; i<m; i++){
-      const CPPL_INT jmax1 =std::min(n,i+ku+1);
-      for(CPPL_INT j=std::max(CPPL_INT(0),i-kl); j<jmax1; j++){
-        newmat(i,j) += operator()(i,j);
-      }
-      const CPPL_INT jmax2 =std::min(mat.n,i+mat.ku+1);
-      for(CPPL_INT j=std::max(CPPL_INT(0),i-mat.kl); j<jmax2; j++){
-        newmat(i,j) -= mat(i,j);
-      }
-    }
-    
-    swap(*this,newmat);
-    return *this;
-  }
-}
-
-//=============================================================================
-/*! dgbmatrix*=dgbmatrix operator */
-inline dgbmatrix& dgbmatrix::operator*=(const dgbmatrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << m << "x" << n << ") * (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgbmatrix newmat( m, mat.n, std::min(kl+mat.kl, m-1), std::min(ku+mat.ku, mat.n-1) );
-  newmat.zero();
-  
-  for(CPPL_INT i=0; i<newmat.m; i++){
-    const CPPL_INT jmax =std::min(newmat.n,i+newmat.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-newmat.kl); j<jmax; j++){
-      const CPPL_INT kmax =std::min( std::min(n,i+ku+1), std::min(mat.m,j+mat.kl+1) );
-      for(CPPL_INT k=std::max( std::max(CPPL_INT(0),i-kl), std::max(CPPL_INT(0),j-mat.ku) ); k<kmax; k++){
-        newmat(i,j) += operator()(i,k)*mat(k,j);
-      }
-    }
-  }
-  
-  swap(*this,newmat);
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! dgbmatrix+dgbmatrix operator */
-inline _dgbmatrix operator+(const dgbmatrix& matA, const dgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgbmatrix newmat(matA.m,matA.n,std::max(matA.kl,matB.kl),std::max(matA.ku,matB.ku));
-  newmat.zero();
-  
-  for(CPPL_INT i=0; i<matA.m; i++){
-    const CPPL_INT jmax1 =std::min(matA.n,i+matA.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matA.kl); j<jmax1; j++){
-      newmat(i,j) += matA(i,j);
-    }
-    const CPPL_INT jmax2 =std::min(matB.n,i+matB.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matB.kl); j<jmax2; j++){
-      newmat(i,j) += matB(i,j);
-    }
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! dgbmatrix-dgbmatrix operator */
-inline _dgbmatrix operator-(const dgbmatrix& matA, const dgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") - (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgbmatrix newmat(matA.m,matA.n,std::max(matA.kl,matB.kl),std::max(matA.ku,matB.ku));
-  newmat.zero();
-  
-  for(CPPL_INT i=0; i<matA.m; i++){
-    const CPPL_INT jmax1 =std::min(matA.n,i+matA.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matA.kl); j<jmax1; j++){
-      newmat(i,j) += matA(i,j);
-    }
-    const CPPL_INT jmax2 =std::min(matB.n,i+matB.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matB.kl); j<jmax2; j++){
-      newmat(i,j) -= matB(i,j);
-    }
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! dgbmatrix*dgbmatrix operator */
-inline _dgbmatrix operator*(const dgbmatrix& matA, const dgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgbmatrix newmat( matA.m, matB.n, std::min(matA.kl+matB.kl,matA.m-1), std::min(matA.ku+matB.ku,matB.n-1) );
-  newmat.zero();
-  
-  for(CPPL_INT i=0; i<newmat.m; i++){
-    const CPPL_INT jmax =std::min(newmat.n,i+newmat.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-newmat.kl); j<jmax; j++){
-      const CPPL_INT kmax =std::min( std::min(matA.n,i+matA.ku+1), std::min(matB.m,j+matB.kl+1) );
-      for(CPPL_INT k=std::max( std::max(CPPL_INT(0),i-matA.kl), std::max(CPPL_INT(0),j-matB.ku) ); k<kmax; k++){
-        newmat(i,j) += matA(i,k)*matB(k,j);
-      }
-    }
-  }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/fa/fa502bf73dff1891b2122ebdca4a2bdf5f23d5d9.svn-base b/cpplapack-r198/.svn/pristine/fa/fa502bf73dff1891b2122ebdca4a2bdf5f23d5d9.svn-base
deleted file mode 100644
index b16d2415f67a3a3ef9609a9af26f13669117704c..0000000000000000000000000000000000000000
GIT binary patch
literal 0
HcmV?d00001

literal 3317
zcmeAS@N?(olHy`uVBq!ia0y~yVBE^Uz|_si%)r3l{io#~0|NtFfKP}k0|UeV|NocX
zoPU>rfoGMci(^Q|oVRz+=ifdd%3h!!6cW22Lj1*2%}YWzcwc2R%V#nBRo?k_>926q
z0*BJv>+L49ca%(M{vL3kJx<DD<G-E-4$_)0lD0B7t@!Vt%+BN^@-{4J%GwlfCGRfh
zqO>3PW}7#k&6}<Iy<PXFeE$mlbPJhDi+e5X?r4bFr|Es}t%%vwYp!!AF~IH(+YSA&
zyUV^9e7d3c>FM#~Ip*PV|EIn^H}!b%w&42DGC%jO;=X!3=X$W5{>^pkZTgzR-`=_z
z{cw5w<nWibE$oXIPL)o7S0S`K|LyAX^!>k|%}zXQU-j?BxvTrmm;Jl>cKzPUZ+?&L
z_7s0j=DvQPyZrpOzxFnHt>NdGxVKBcZ##VC?BTtJ^?(25z0&*n{axwdy`Rr4z5VOJ
zgIn#>AK%^l_Q>CT1>H~V&p)~K{ZYx^cmG$0?m5T0d{3G7oxc_L^WUoZ?a|kHZl786
zoc;X|b#r@}cbzhNdf(a8zL#vi`lsxX-K=+=cf{G17dOAUc=XiSv;6;RPd-^tmQ;8*
zM(&E9Zq&2ytXb^p`MJDOY|n4K+qLcUy5FML|IXMm``!(XAAGm`<?~{UtP(uS?s`i#
zy)*InxBU)Fos-qaXFa)hi$6})5-6JY!)jykQMM&{f^OHD_a$4b6iG^tFD?4};j6q*
zo?31H{(y?=#(!<Sho|4#n|1x}f$41TtormOM91w_Yvn%U`ce7k!sDf<e+d6vc&(;g
z`^?%${ds3jEj?b^{bQxRtxVBflXumZoY!U^x~uc<^y?*CMG{+f2HvUH*O-2r@%~Bv
ztqg_c0dvI^UMl_ED3u_=-tqd#-su$$Q(kMoUc%;Kl{)tdL!r0|AOD1sgS#^t5<gXa
z`1GVSh<VA}O@8w(`ksI6I>jn=?i2>c?GZ;0t9-uqX0xQ2!ZWeX;O)ky2R6KTDm{18
zrUkoy+;g&+d9F9FaKcUoegVDwsngrpIClMX{2un~0>j}YapCdLzwWUyakz0ee)qkc
zwrdU-eD`g%ID5)DTj9ke*C*=hC-2#`gZtV#U0c=lIT2qn7W`VSSJbd1cz!_GwI@@O
z<@?`nU?{xq`PrFyNsRq5W}e42?!4AI4tF~La$Rbfq{qv<vT=v-Z~G-|Qge%TyfVDA
zX4Bpi+S11=k1x12|HauaOOF?D2gbQqt&54gv$o~)lIN!w3b%{!@d=bqTv1=pu%o+q
z-!{LZhQvALW~=_*owv<z<CaY=!pgh_yi4vZE=?=oT@rKcervYE(|Ihf^&7v0Y}_;@
z_}A`7(=FD$XZ;n#;<4+^-O1TO8#g6>{Ke?b;<0PtF29$P*gbY}$|<~j_R4Chx17Su
zX^orwUQSxC^U}pLfLA5<%|g=&WygQM7xCV=De>Y52R@0ZA1v}#*oUssdAo_>KQoJm
zwT;8Ahm4o__$QQAG_aNHtiN0(sDJRm1t|%!!|xY3XD>L|DHU;-T}sB_p4k%%!3BGK
zEd2IVE5E#Hd3+(`EE%x{CljHR?~0R&rWc-UkdhF4cz|zpqnbL?pPh0GE{6I$uZeHE
zsOY=mVk)DSdVjwqALoS^6Bv47)XK&*_UjIto3j_(OjXr=A}>>XXGxLBM7E5w0^zJO
zr32f(G@rb6HiMl#qpYBThn?+2K|%u$yV*h>_G=Dp%-ITuI~h{VA6h(Ea%;}xq!$KF
zk2f(ql@k0Z!_Io5FrWcWnJ$!Jzv|G}oRu*7af8&3sXJb%vrT7RF=tiIlK%UA8SFA{
zGE3jJ9qd#Kxy?RHRv_U-p+kcXJIjn+FLLLXIW(;K)4&jUn>&EHa$OVz`>|xi#(gzt
zdcMk6<9sK>>}@|onNy~Pb53}v#b^|(>ac9}6$BP$+?PH({;5Gz^t?KWgQbxTsl5-Z
zY#r8JW;Xe5zuA?4!s{;#JN@#VX2&eQ>QGi0#hYTimTgn4*n{+-I-BM3=MR)B9cWy8
znJL9u*P*N~s^QP4D-1vVcqhESB6XrXi`S%g|CH`1=AV93u52uQmFP10{S>t;i}vUo
zD9&EalJRf~gYF!m1+BqMTME2*!T5y#%Eq>j*{LU)=0sVq-G935lSfal@NBQ++iWZy
zq}ACo9zS82ZRW>yVU^8FPTrHBLvJZvb<kFaVJ4oOxwq~=wHAEPt7Fd{&Xy4#C#g`m
zZ^xrk3~ys37tGaW-cp>(3&T0LcIq6MSXy~Bk)?1i+mj{#)=ky+dl9uu$-z6ECF5lm
zgKn%~g7DsX9A%ZfN7g$x#l|t`f^nVG^=niA##&GBKl0%E?t^|TH@25nHuy%XGi}lH
zXUTZ$(s0d><;Ib9$B)ce(HOnWkLAXOQl$gR(bM^tM(*CT-+Dudt^4%v<+*oVzS!r+
z*4Z|%J<W7vz4!4L2s7u_?&Ra2s`~uClru-0pZv7BtoZn+Ym8PF7w>N^d(ANW#b1>j
z-pohdJ0FZaf00)<R!X7HUf|uezp?Do*<L(?&^KJ(KR3Fw{@JUfJ0GXrs_pc%O4?d<
z{&YU$^YD2myFYuBw^;sUOFwXy`AF_1y?xx9gP-;@=e={*xfN2!US%)Ocs|p=$?xyw
z2i*;yrP-%0mwM%_^4<EEaO~cS8?LwJ%m20!KX3lgeM<N7OY6@`PnCas`|FM!f&aIh
zTJdYcnOS>3wz2=2u*UuKma{CIOe{b7Uwilefa`m!Y1`kv$lH5QZ`ZR3xoub0m2F)e
z`!*|l_pPfS=H36BCac+e(T%ayH+=D`veQ2P`nk67!<kkJcb=VZub#Ab@yh61JFdO`
zyLGlp-LGXIVp%Mb|8#QiTCQKW_l}f)d0oZVxEVWH*9Lumd^Yd<-}pb<4CCT{U%P7m
z?Z&zN*0sN8|I2%S^z7Sf8?HXz{c+3QyZ8Cx?|fO`q8|55PjB(^iCo+7<mZ=fKm79B
zxv3j;pZUkh^!TikRb6NAduMCdL%lG!>!<EEzYY6n_59hVNq6SI`(9RkdGQg^_oqu2
zTi={f^4-5&>hiy>+Gmy8r+uu=jJL9%+c!P>^1pMQ#^-B4U7L2Y_Tty`Tjv(!PLH|m
zxZ!T<nf=^bKhODD-uRa*|KHtHbv>5<-z}^;W}@3^`9Ck!{%z;{tDoPW^0xi|F8uP&
zxakjGJt>R0zu{wL$=2T=OOEe3=e)ml*6S}j-|V=4_Ql@Zb)WCVEKO8eAOA}Izu$Fp
z9UbP}%%FFUHd1%H=Kplq?K17V!oTA$n&<ObIUM$mtN*6(@A>|HzcUvz-(k!zc=+Pk
z^32MqD>;0h_S$*eS+gryalQPT<NfdVRoH(@oBCtMby=tH{>3q>cF(@fzj~L;%75jf
zRlj{N^=^85hF#4-Vf}sEbK5pE8cbGs>2|ZsjG?cT*Dohs?m@@vZSFVA#2D@}HG6O0
zoc{5&SIw8NpWTzJrL~JyXPrL1pK+J%n%93Cf2v2Ulahb`k3C^U(^H!hGv9MJR+Y+x
zudUtlJA8qk>~fnG*S+p-H|e<iGVt+3o?CHe)-Cswopk?yyY)v=smw<f=g&6IEjsqM
zBA{l@@BatvEEn5+SkU~i;nwjYhquXh_jB@zO!|I!nSG?{$Ah<L9#s8!bJy4Z2Y*O>
zzkjGb<k_bO$!?pOA17NF*d6=({)5H(o0WNdmMUge7IvTiu$~ayxY6dxg!?ZZ{5Zqc
zcYcn%kxzb!+^Z8my*3E)PIi7|eC~e}Z^n#Mhuv~~_&U$OnDC?L^ZtbNNS|}X#V;B{
zUM+jMT*z&~;YZQWx6e?mooM;u!p9W`<pq^58gAeE`{Lna;Twq`Q{Npsyx+cAR_wmj
z{-19imL6HCeln>1<EPj4KW~3`e7<w9UyV)R9)14@-&uR}=iYzvZhrmO%|H1be0b<m
zWqtU#cV_#s^n#3<wqNb@A1|5v{8`7tgi8-UUVN)=DCP4`zT;sYh{xC8fA7EG@)e%X
zcUnI9%pCEKQ%?S7{ZE(rrbxMp%iM=c?_0S3SNt_!)?GY6{a=Cj!|#tL=DmCoHue1Z
zi=UkD9NM^N<;l_n_S%13$9p@jO}6?cZ8^>SM^o(aDe(<fyY`&F$$IYGg!##pH-1cN
z*0zg3d#Uq$_~OsavL7rnqbd*lSg=~#KK|^cJ<WeUAMg0H;8R%7r-qMrKYhM>VJZ7g
z5cQO!<ooCI{m#?bo}4-#et232xAgqwcZKGzZ@FjJ`P2EtFY|-v%O^bLm5n`rQTFlk
z{uAFWE6Ya3Sk>?Bj%NGu(<1A?f%>`sj_JK!KRDdq{%<?-)A!U@4)?eB`#H^3KYi}_
zeAMN?>fCs)Qtdms%!dU3ZniA_XM5=L><Q1`GJo2|^5+-R_4C4MdRu=B#oF34Z<(W2
zFH`XK56_C#&(jyY3beI99DY@I<3a1@?pb|&yB~cqEj%5+%d({M?cI7tFKNAw*r4C9
R7#J8BJYD@<);T3K0RY4?$zK2f

diff --git a/cpplapack-r198/.svn/pristine/fa/fa7f5753f9a71aa8d6e2da97dbc7c87c955c729c.svn-base b/cpplapack-r198/.svn/pristine/fa/fa7f5753f9a71aa8d6e2da97dbc7c87c955c729c.svn-base
deleted file mode 100644
index 4459885..0000000
--- a/cpplapack-r198/.svn/pristine/fa/fa7f5753f9a71aa8d6e2da97dbc7c87c955c729c.svn-base
+++ /dev/null
@@ -1,80 +0,0 @@
-//=============================================================================
-/*! _dgsmatrix+dgbmatrix operator */
-/*
-inline _dgematrix operator+(const _dgsmatrix& matA, const dgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat(matA);
-  
-  for(CPPL_INT i=0; i<matB.m; i++){
-    for(CPPL_INT j=max(0,i-matB.kl); j<min(matB.n,i+matB.ku+1); j++){
-      newmat(i,j)+=matB(i,j);
-    }
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
-*/
-//=============================================================================
-/*! _dgsmatrix-dgbmatrix operator */
-/*
-inline _dgematrix operator-(const _dgsmatrix& matA, const dgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat(matA);
-  
-  for(CPPL_INT i=0; i<matB.m; i++){
-    for(CPPL_INT j=max(0,i-matB.kl); j<min(matB.n,i+matB.ku+1); j++){
-      newmat(i,j)-=matB(i,j);
-    }
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
-*/
-//=============================================================================
-/*! _dgsmatrix*dgbmatrix operator */
-/*
-inline _dgematrix operator*(const _dgsmatrix& matA, const dgbmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat( matA.m, matB.n );
-  newmat.zero();
-  
-  for(CPPL_INT c=0; c<matA.vol; c++){
-    for(CPPL_INT k=max(0,matA.jndx[c]-matB.ku);
-        k<min(matB.m,matA.jndx[c]+matB.kl+1); k++){
-      newmat(matA.indx[c],k) += matA.array[c]*matB(matA.jndx[c],k);
-    }
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
-*/
diff --git a/cpplapack-r198/.svn/pristine/fa/fa81ecd6036f5f3001524ae84157a0c906c2790d.svn-base b/cpplapack-r198/.svn/pristine/fa/fa81ecd6036f5f3001524ae84157a0c906c2790d.svn-base
deleted file mode 100644
index 3131cb1..0000000
--- a/cpplapack-r198/.svn/pristine/fa/fa81ecd6036f5f3001524ae84157a0c906c2790d.svn-base
+++ /dev/null
@@ -1,52 +0,0 @@
-//=============================================================================
-//! Component Class for Complex Double-precision Sparse Matrix Classes
-class zcomponent
-{
-public:
-  ///////////////////////////////////////////////
-  /////////////////// objects ///////////////////
-  ///////////////////////////////////////////////
-  CPPL_INT i; //!< i index of the component
-  CPPL_INT j; //!< j index of the component
-  comple v; //!< value of the component
-  
-  ///////////////////////////////////////////////
-  ///////////////// constructors ////////////////
-  ///////////////////////////////////////////////
-  inline zcomponent(){ ; }
-  inline zcomponent(const CPPL_INT& _i, const CPPL_INT& _j, const comple& _v) :i(_i), j(_j), v(_v){ ; }
-  
-  ///////////////////////////////////////////////
-  ////////////////// functions //////////////////
-  ///////////////////////////////////////////////
-  inline friend std::ostream& operator<<(std::ostream&, const zcomponent&);
-};
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-inline std::ostream& operator<<(std::ostream& s, const zcomponent& c)
-{CPPL_VERBOSE_REPORT;
-  s << "(" << c.i << ", " << c.j << ",  " << c.v << ")" << std::flush;
-  return s;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! lessthan function for i of zcomponent */
-inline bool ilt(const zcomponent& a, const zcomponent& b)
-{CPPL_VERBOSE_REPORT;
-  return a.i < b.i;
-}
-
-//=============================================================================
-/*! lessthan function for j of zcomponent */
-inline bool jlt(const zcomponent& a, const zcomponent& b)
-{CPPL_VERBOSE_REPORT;
-  return a.j < b.j;
-}
diff --git a/cpplapack-r198/.svn/pristine/fa/fac100070b911ce3131070211120e88d8c365634.svn-base b/cpplapack-r198/.svn/pristine/fa/fac100070b911ce3131070211120e88d8c365634.svn-base
deleted file mode 100644
index 5bbf6df..0000000
--- a/cpplapack-r198/.svn/pristine/fa/fac100070b911ce3131070211120e88d8c365634.svn-base
+++ /dev/null
@@ -1,41 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <ctime>
-#include "cpplapack.h"
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int N(5);
-  
-  CPPL::dssmatrix A(N);
-  A.put(0,0, 1.);
-  A.put(3,2, 2.);
-  A.put(1,2, 3.);
-  A.put(4,1, 4.);
-  std::cout << "A =\n" << A << std::endl;
-  for(std::vector<CPPL::dcomponent>::const_iterator it=A.data.begin(); it!=A.data.end(); it++){
-    std::cout << "A(" << it->i << "," << it->j << ") =" << it->v << std::endl;
-  }
-  
-  CPPL::dcovector x(N);
-  for(int i=0; i<x.l; i++){
-    x(i) =double( rand() /(RAND_MAX/10) );
-  }
-  std::cout << "x =\n" << x << std::endl;
-  
-  std::cout << "A*x =\n" << A*x << std::endl;
-  
-  CPPL::dsymatrix B(A.to_dsymatrix());
-  std::cout << "B =\n" << B << std::endl;
-  std::cout << "B*x =\n" << B*x << std::endl;
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/fb/fb78bed11e69af0f29518deaf1dacbe74284fdbe.svn-base b/cpplapack-r198/.svn/pristine/fb/fb78bed11e69af0f29518deaf1dacbe74284fdbe.svn-base
deleted file mode 100644
index eb9a33c..0000000
--- a/cpplapack-r198/.svn/pristine/fb/fb78bed11e69af0f29518deaf1dacbe74284fdbe.svn-base
+++ /dev/null
@@ -1,41 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int L(4);
-  
-  CPPL::dcovector x(L), y;
-  for(int i=0; i<x.l; i++){
-	x(i) =double( rand() /(RAND_MAX/10) );
-  }
-  
-  cout << "x =\n" << x << endl;
-  cout << "#### y.copy(x) ####" << endl;
-  y.copy(x);
-  cout << "y =\n" << y << endl;
-  
-  cout << "#### y.clear() ####" << endl;
-  y.clear();
-  cout << "y =\n" << y << endl;
-  
-  cout << "#### y.resize(2) & y.zero() ####" << endl;
-  y.resize(2);
-  y.zero();
-  cout << "y =\n" << y << endl;
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/fb/fbd326792be68c191a34c3ee7971deb0a4c27bf4.svn-base b/cpplapack-r198/.svn/pristine/fb/fbd326792be68c191a34c3ee7971deb0a4c27bf4.svn-base
deleted file mode 100644
index d39fe50..0000000
--- a/cpplapack-r198/.svn/pristine/fb/fbd326792be68c191a34c3ee7971deb0a4c27bf4.svn-base
+++ /dev/null
@@ -1,77 +0,0 @@
-/*****************************************************************************/
-/*                                 noname                                    */
-/*****************************************************************************/
-
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  srand(unsigned(time(NULL)));
-  int M(5), N(5), KL(2), KU(2);
-  
-  CPPL::dsymatrix A(N);
-  CPPL::dgbmatrix X(M,N,KL,KU), Y(M,N,KL,KU), Z(M,N,KL,KU);
-  
-  A.zero();
-  for(int i=0; i<X.m; i++){
-    for(int j=std::max(0,i-X.kl); j<std::min(X.n,i+X.ku+1); j++){
-      if(i>=j){
-        A(i,j) = double( rand() /(RAND_MAX/10) );
-        X(i,j) =X(j,i) =-A(i,j);
-        Y(i,j) =Y(j,i) =+A(i,j);
-      }
-    }
-  }
-  
-  for(int i=0; i<Z.m; i++){
-    for(int j=std::max(0,i-Z.kl); j<std::min(Z.n,i+Z.ku+1); j++){
-      Z(i,j) = double( rand() /(RAND_MAX/10) );
-    }
-  }
-  
-  cout << "A =\n" << A << endl;
-  cout << "X =\n" << X << endl;
-  cout << "Y =\n" << Y << endl;
-  cout << "Z =\n" << Z << endl;
-  
-  //dsy+dgb
-  cout << "A+X = (Should be zero)\n" << A+X << endl;
-  //dsy-dgb
-  cout << "A-Y = (Should be zero)\n" << A-Y << endl;
-  //dsy*dgb, t(_dge), t(dgb), _dgb*dsy, _dge-_dge
-  cout << "t(A*Z)-t(Z)*A = (Should be zero)\n" << t(A*Z)-t(Z)*A << endl;
-
-  //dsy+_dgb, -dgb
-  cout << "A+(-Y) = (Should be zero)\n" << A+(-Y) << endl;
-  //dsy-_dgb, -dgb
-  cout << "A-(-X) = (Should be zero)\n" << A-(-X) << endl;
-  //dsy*_dgb, dgb+dgb, dsy*dgb, _dge+_dge, _dge-_dge
-  cout << "A*(X+Z) - (A*X+A*Z) = (Should be zero)\n"
-       << A*(X+Z) - (A*X+A*Z) << endl;
-  
-  //_dsy+dgb, -dsy
-  cout << "(-A)+Y = (Should be zero)\n" << (-A)+Y << endl;
-
-  //_dsy-dgb, -dsy
-  cout << "(-A)-X = (Should be zero)\n" << (-A)-X << endl;
-  //_dsy*dgb, -dsy, dsy*dgb, _dge+_dge
-  cout << "(-A)*Z+(A*Z) = (Should be zero)\n" << ((-A)*Z+(A*Z)) << endl;
-  
-  //_dsy+_dgb, -dsy, -dgb
-  cout << "(-A)+(-X) = (Should be zero)\n" << (-A)+(-X) << endl;
-  //_dsy-_dgb, -dsy, -dgb
-  cout << "(-A)-(-Y) = (Should be zero)\n" << (-A)-(-Y) << endl;
-  //_dsy*_dgb, -dsy, -dgb, dsy*dgb, _dge-_dge
-  cout << "(-A)*(-Z)-(A*Z) = (Should be zero)\n" << (-A)*(-Z)-(A*Z) << endl;
-  
-  return 0;
-}
-
-/*****************************************************************************/
diff --git a/cpplapack-r198/.svn/pristine/fc/fc49b1640ca26e51ca9db982af9a586d1e0b85d7.svn-base b/cpplapack-r198/.svn/pristine/fc/fc49b1640ca26e51ca9db982af9a586d1e0b85d7.svn-base
deleted file mode 100644
index d7f8820..0000000
--- a/cpplapack-r198/.svn/pristine/fc/fc49b1640ca26e51ca9db982af9a586d1e0b85d7.svn-base
+++ /dev/null
@@ -1,56 +0,0 @@
-//=============================================================================
-/*! _dcovector+dcovector operator */
-inline _dcovector operator+(const _dcovector& vecA, const dcovector& vecB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vecA.l!=vecB.l){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make a sumation." << std::endl
-              << "Your input was (" << vecA.l << ") + (" << vecB.l << ")." << std::endl;
-    exit(1);
-  }
-  
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<vecA.l; i++){ vecA.array[i]+=vecB.array[i]; }
-  
-  return vecA;
-}
-
-//=============================================================================
-/*! dcovector-dcovector operator */
-inline _dcovector operator-(const _dcovector& vecA, const dcovector& vecB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vecA.l!=vecB.l){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make a subtraction." << std::endl
-              << "Your input was (" << vecA.l << ") - (" << vecB.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  for(CPPL_INT i=0; i<vecA.l; i++){ vecA.array[i]-=vecB.array[i]; }
-  
-  return vecA;
-}
-
-//=============================================================================
-/*! dcovector^T*dcovector operator (inner product) */
-inline double operator%(const _dcovector& vecA, const dcovector& vecB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(vecA.l!=vecB.l){
-    ERROR_REPORT;
-    std::cerr << "These two vectors can not make a dot product." << std::endl
-              << "Your input was (" << vecA.l << ") % (" << vecB.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  CPPL_INT inc =1;
-  
-  double val =ddot_( &vecA.l, vecA.array, &inc, vecB.array, &inc );
-  
-  vecA.destroy();
-  return val;
-}
diff --git a/cpplapack-r198/.svn/pristine/fd/fd6f992dda336a421c1fc15d8dbb2519d2a5e65d.svn-base b/cpplapack-r198/.svn/pristine/fd/fd6f992dda336a421c1fc15d8dbb2519d2a5e65d.svn-base
deleted file mode 100644
index 2006e7c..0000000
--- a/cpplapack-r198/.svn/pristine/fd/fd6f992dda336a421c1fc15d8dbb2519d2a5e65d.svn-base
+++ /dev/null
@@ -1,79 +0,0 @@
-//=============================================================================
-/*! _dgbmatrix+dgsmatrix operator */
-inline _dgematrix operator+(const _dgbmatrix& matA, const dgsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat( matB.to_dgematrix() );
-  
-  for(CPPL_INT i=0; i<matA.m; i++){
-    const CPPL_INT jmax =std::min(matA.n,i+matA.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matA.kl); j<jmax; j++){
-      newmat(i,j)+=matA(i,j);
-    }
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _dgbmatrix-dgsmatrix operator */
-inline _dgematrix operator-(const _dgbmatrix& matA, const dgsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat( (-matB).to_dgematrix() );
-  
-  for(CPPL_INT i=0; i<matA.m; i++){
-    const CPPL_INT jmax =std::min(matA.n,i+matA.ku+1);
-    for(CPPL_INT j=std::max(CPPL_INT(0),i-matA.kl); j<jmax; j++){
-      newmat(i,j)-=matA(i,j);
-    }
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! _dgbmatrix*dgsmatrix operator */
-inline _dgematrix operator*(const _dgbmatrix& matA, const dgsmatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat( matA.m, matB.n );
-  newmat.zero();
-  
-  const std::vector<dcomponent>::const_iterator matB_data_end =matB.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matB.data.begin(); it!=matB_data_end; it++){
-    const CPPL_INT imax =std::min(matA.m,it->i+matA.kl);
-    for(CPPL_INT i=std::max(CPPL_INT(0),it->i-(matA.ku+1)); i<imax; i++){
-      newmat(i,it->j) += matA(i,it->i)*it->v;
-    }
-  }
-  
-  matA.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/fd/fda1a38499f9ab2b366f598f961d8ecfd13925f7.svn-base b/cpplapack-r198/.svn/pristine/fd/fda1a38499f9ab2b366f598f961d8ecfd13925f7.svn-base
deleted file mode 100644
index edab549..0000000
--- a/cpplapack-r198/.svn/pristine/fd/fda1a38499f9ab2b366f598f961d8ecfd13925f7.svn-base
+++ /dev/null
@@ -1,25 +0,0 @@
-//=============================================================================
-/*! _dgematrix*_dcovector operator */
-inline _dcovector operator*(const _dgematrix& mat, const _dcovector& vec)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(mat.n!=vec.l){
-    ERROR_REPORT;
-    std::cerr << "These matrix and vector can not make a product." << std::endl
-              << "Your input was (" << mat.m << "x" << mat.n << ") * (" << vec.l << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dcovector newvec(mat.m);
-  char trans ='n';
-  double alpha =1.;
-  CPPL_INT inc =1;
-  double beta =0.;
-  
-  dgemv_( &trans, &mat.m, &mat.n, &alpha, mat.array, &mat.m, vec.array, &inc, &beta, newvec.array, &inc );
-  
-  mat.destroy();
-  vec.destroy();
-  return _(newvec);
-}
diff --git a/cpplapack-r198/.svn/pristine/fe/fe0f78b15dc25915abba0f8d7c97474269e040e6.svn-base b/cpplapack-r198/.svn/pristine/fe/fe0f78b15dc25915abba0f8d7c97474269e040e6.svn-base
deleted file mode 100644
index a533061..0000000
--- a/cpplapack-r198/.svn/pristine/fe/fe0f78b15dc25915abba0f8d7c97474269e040e6.svn-base
+++ /dev/null
@@ -1,152 +0,0 @@
-//=============================================================================
-/*! dgematrix=_dgematrix operator */
-inline dgematrix& dgematrix::operator=(const _dgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-  shallow_copy(mat);
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! dgematrix+=_dgematrix operator */
-inline dgematrix& dgematrix::operator+=(const _dgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.n || m!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << m << "x" << n << ") += (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  const CPPL_INT mn =m*n;
-  for(CPPL_INT i=0; i<mn; i++){
-    array[i]+=mat.array[i];
-  }
-  
-  mat.destroy();
-  return *this;
-}
-
-//=============================================================================
-/*! dgematrix-=_dgematrix operator */
-inline dgematrix& dgematrix::operator-=(const _dgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.n || m!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a sutraction." << std::endl
-              << "Your input was (" << m << "x" << n << ") -= (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  const CPPL_INT mn =m*n;
-  for(CPPL_INT i=0; i<mn; i++){
-    array[i]-=mat.array[i];
-  }
-
-  mat.destroy();
-  return *this;
-}
-
-//=============================================================================
-/*! dgematrix*=_dgematrix operator */
-inline dgematrix& dgematrix::operator*=(const _dgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(n!=mat.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << m << "x" << n << ") *= (" << mat.m << "x" << mat.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat( m, mat.n );
-  char transa ='n';
-  char transb ='n';
-  double alpha =1.;
-  double beta =0.;
-  
-  dgemm_( &transa, &transb, &m, &mat.n, &n, &alpha, array, &m, mat.array, &mat.m, &beta, newmat.array, &m );
-  
-  swap(*this,newmat);
-  mat.destroy();
-  return *this;
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! dgematrix+_dgematrix operator */
-inline _dgematrix operator+(const dgematrix& matA, const _dgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  const CPPL_INT mn =matA.m*matA.n;
-  for(CPPL_INT i=0; i<mn; i++){
-    matB.array[i] +=matA.array[i];
-  }
-  
-  return matB;
-}
-
-//=============================================================================
-/*! dgematrix-_dgematrix operator */
-inline _dgematrix operator-(const dgematrix& matA, const _dgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.n || matA.m!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") - (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-
-  const CPPL_INT mn =matA.m*matA.n;
-  for(CPPL_INT i=0; i<mn; i++){
-    matB.array[i] =matA.array[i]-matB.array[i];
-  }
-  
-  return matB;
-}
-
-//=============================================================================
-/*! dgematrix*_dgematrix operator */
-inline _dgematrix operator*(const dgematrix& matA, const _dgematrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat( matA.m, matB.n );
-  char transa ='n';
-  char transb ='n';
-  double alpha =1.;
-  double beta =0.;
-  
-  dgemm_( &transa, &transb, &matA.m, &matB.n, &matA.n, &alpha, matA.array, &matA.m, matB.array, &matB.m, &beta, newmat.array, &matA.m );
-  
-  matB.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/fe/fec05a0d519f4ac2f1e67ef6e142dde79c0aec1f.svn-base b/cpplapack-r198/.svn/pristine/fe/fec05a0d519f4ac2f1e67ef6e142dde79c0aec1f.svn-base
deleted file mode 100644
index 7bdfbcb..0000000
--- a/cpplapack-r198/.svn/pristine/fe/fec05a0d519f4ac2f1e67ef6e142dde79c0aec1f.svn-base
+++ /dev/null
@@ -1,49 +0,0 @@
-###############################################################################
-##                                 Makefile                                  ##
-###############################################################################
-
-A.OUT = A.OUT
-
-###############################################################################
-
-include Makefile.g++
-
-###############################################################################
-
-HEADERS:= $(shell find ./ -iname '*.hpp')
-SOURCES:= $(shell find ./ -iname '*.cpp')
-#SOURCES:= $(wildcard */*.cpp *.cpp)
-SOURCES:= $(sort $(SOURCES))
-#SOURCES:= $(filter-out ./aho.cpp, $(SOURCES))
-
-OBJECTS:= $(SOURCES:%.cpp=%.o)
-
-###############################################################################
-
-all: depend $(OBJECTS)
-	$(CXX) $(OBJECTS) $(LFLAGS) $(LIB_DIRS) $(LIBS) -o $(A.OUT)
-	@echo
-
-.SUFFIXES: .cpp .o
-.cpp.o:
-	$(CXX) -c $< $(CFLAGS) $(INCLUDE_DIRS) $(MACROS) -o $@
-	@echo
-
-depend:
-#	touch main.cpp
-	makedepend -f- -Y $(SOURCES) > Makefile.depend 2> /dev/null
-#	gccmakedep -- -I./ -MM -- $(SOURCES)
-#	$(CXX) -MM -I./ $(SOURCES) > Makefile.depend
-#	$(CXX) -MM $(INCLUDE_DIRS) $(SOURCES) > Makefile.depend
-	@echo
-
-clean:
-	rm -f $(OBJECTS)
-
-fullclean:
-	rm -f $(shell find -name '*.o') std err Makefile.depend $(A.OUT)
-
-remake: clean all
-
-###############################################################################
--include Makefile.depend
diff --git a/cpplapack-r198/.svn/pristine/fe/fede6c54b602d1d6d36d95826e55579b10037539.svn-base b/cpplapack-r198/.svn/pristine/fe/fede6c54b602d1d6d36d95826e55579b10037539.svn-base
deleted file mode 100644
index 8242bdc..0000000
--- a/cpplapack-r198/.svn/pristine/fe/fede6c54b602d1d6d36d95826e55579b10037539.svn-base
+++ /dev/null
@@ -1,66 +0,0 @@
-//=============================================================================
-/*! cast to _zhsmatrix */
-inline _zhsmatrix dssmatrix::to_zhsmatrix() const
-{CPPL_VERBOSE_REPORT;
-  zhsmatrix newmat(n,CPPL_INT(data.size()));
-  
-  const std::vector<dcomponent>::const_iterator data_end =data.end();
-  for(std::vector<dcomponent>::const_iterator it=data.begin(); it!=data_end; it++){
-    newmat.put(it->i, it->j, comple(it->v,0.0));
-  }
-  
-  return _(newmat);
-}
-
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-///////////////////////////////////////////////////////////////////////////////
-
-//=============================================================================
-/*! convert to _dgematrix */
-inline _dgematrix dssmatrix::to_dgematrix() const
-{CPPL_VERBOSE_REPORT;
-  dgematrix newmat(m,n);
-  newmat.zero();
-  
-  const std::vector<dcomponent>::const_iterator data_end =data.end();
-  for(std::vector<dcomponent>::const_iterator it=data.begin(); it!=data_end; it++){
-    newmat(it->i, it->j) =it->v;
-    newmat(it->j, it->i) =it->v;
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! convert to _dsymatrix */
-inline _dsymatrix dssmatrix::to_dsymatrix() const
-{CPPL_VERBOSE_REPORT;
-  dsymatrix newmat(n);
-  newmat.zero();
-  
-  const std::vector<dcomponent>::const_iterator data_end =data.end();
-  for(std::vector<dcomponent>::const_iterator it=data.begin(); it!=data_end; it++){
-    newmat(it->i, it->j) =it->v;
-  }
-  
-  return _(newmat);
-}
-
-//=============================================================================
-/*! convert to _dgsmatrix */
-inline _dgsmatrix dssmatrix::to_dgsmatrix() const
-{CPPL_VERBOSE_REPORT;
-  dgsmatrix newmat( dgsmatrix(m,n,CPPL_INT(data.size()*2)) );
-  newmat.zero();
-  
-  const std::vector<dcomponent>::const_iterator data_end =data.end();
-  for(std::vector<dcomponent>::const_iterator it=data.begin(); it!=data_end; it++){
-    newmat.put(it->i, it->j, it->v);
-    if(it->i!=it->j){
-      newmat.put(it->j, it->i, it->v);
-    }
-  }
-  
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/ff/ff3af754531d04e5dbfb1375ed694a18caba11ef.svn-base b/cpplapack-r198/.svn/pristine/ff/ff3af754531d04e5dbfb1375ed694a18caba11ef.svn-base
deleted file mode 100644
index 51db6a1..0000000
--- a/cpplapack-r198/.svn/pristine/ff/ff3af754531d04e5dbfb1375ed694a18caba11ef.svn-base
+++ /dev/null
@@ -1,74 +0,0 @@
-//=============================================================================
-/*! dgsmatrix+_dsymatrix operator */
-inline _dgematrix operator+(const dgsmatrix& matA, const _dsymatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a summation." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") + (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat( matB.to_dgematrix() );
-  
-  const std::vector<dcomponent>::const_iterator matA_data_end =matA.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matA.data.begin(); it!=matA_data_end; it++){
-    newmat(it->i,it->j) += it->v;
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! dgsmatrix-_dsymatrix operator */
-inline _dgematrix operator-(const dgsmatrix& matA, const _dsymatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.m!=matB.m || matA.n!=matB.n){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a subtraction." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") - (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat( (-matB).to_dgematrix() );
-  
-  const std::vector<dcomponent>::const_iterator matA_data_end =matA.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matA.data.begin(); it!=matA_data_end; it++){
-    newmat(it->i,it->j) += it->v;
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
-
-//=============================================================================
-/*! dgsmatrix*_dsymatrix operator */
-inline _dgematrix operator*(const dgsmatrix& matA, const _dsymatrix& matB)
-{CPPL_VERBOSE_REPORT;
-#ifdef  CPPL_DEBUG
-  if(matA.n!=matB.m){
-    ERROR_REPORT;
-    std::cerr << "These two matrises can not make a product." << std::endl
-              << "Your input was (" << matA.m << "x" << matA.n << ") * (" << matB.m << "x" << matB.n << ")." << std::endl;
-    exit(1);
-  }
-#endif//CPPL_DEBUG
-  
-  dgematrix newmat(matA.m, matB.n);
-  newmat.zero();
-  
-  const std::vector<dcomponent>::const_iterator matA_data_end =matA.data.end();
-  for(std::vector<dcomponent>::const_iterator it=matA.data.begin(); it!=matA_data_end; it++){
-    for(CPPL_INT i=0; i<matB.n; i++){
-      newmat(it->i,i) += it->v*matB(it->j,i);
-    }
-  }
-  
-  matB.destroy();
-  return _(newmat);
-}
diff --git a/cpplapack-r198/.svn/pristine/ff/ff8fe391f02d2e82b43855d89f6f193ade7b9197.svn-base b/cpplapack-r198/.svn/pristine/ff/ff8fe391f02d2e82b43855d89f6f193ade7b9197.svn-base
deleted file mode 100644
index 3b71787..0000000
--- a/cpplapack-r198/.svn/pristine/ff/ff8fe391f02d2e82b43855d89f6f193ade7b9197.svn-base
+++ /dev/null
@@ -1,39 +0,0 @@
-//=============================================================================
-#include <iostream>
-#include <cstdlib>
-#include <ctime>
-#include "cpplapack.h"
-using namespace std;
-
-
-#include "zgesv_check.hpp"
-#include "zgels_check.hpp"
-#include "zgelss_check.hpp"
-#include "zgeev_check.hpp"
-//#include "zggev_check.hpp"
-#include "zgesvd_check.hpp"
-
-//=============================================================================
-/*! main */
-int main(int argc, char** argv)
-{
-  zgesv_check_vector();
-  zgesv_check_matrix();
-  
-  zgels_check_vector();
-  zgels_check_matrix();
-  
-  zgelss_check();
-  
-  zgeev_check_value();
-  zgeev_check_right();
-  zgeev_check_left();
-  
-  //zggev_check_value();
-  //zggev_check_right();
-  //zggev_check_left();
-  
-  zgesvd_check();
-  
-  return 0;
-}
diff --git a/cpplapack-r198/.svn/pristine/ff/ffbdd7020d6f2a5eacbd41802fad590bb277381c.svn-base b/cpplapack-r198/.svn/pristine/ff/ffbdd7020d6f2a5eacbd41802fad590bb277381c.svn-base
deleted file mode 100644
index cb5751c..0000000
--- a/cpplapack-r198/.svn/pristine/ff/ffbdd7020d6f2a5eacbd41802fad590bb277381c.svn-base
+++ /dev/null
@@ -1,9 +0,0 @@
-//=============================================================================
-/*! double*_dgematrix operator */
-inline _dgematrix operator*(const double& d, const _dgematrix& mat)
-{CPPL_VERBOSE_REPORT;
-  CPPL_INT size =mat.m*mat.n;
-  CPPL_INT inc =1;
-  dscal_(&size, &d, mat.array, &inc);
-  return mat;
-}
diff --git a/cpplapack-r198/.svn/wc.db b/cpplapack-r198/.svn/wc.db
deleted file mode 100644
index c957951691fb3b118068712255966163b4076149..0000000000000000000000000000000000000000
GIT binary patch
literal 0
HcmV?d00001

literal 827392
zcmWFz^vNtqRY=P(%1ta$FlG>7U}R))P*7lC;9kPOz;KEI0mK;?7+4To21W)326-et
z7AE%+20fhsRt5$JM*iO*c_|15Vvgd`5Eu=C(GVC7fzc2c4S~@R7!85Z5Eu=C(GVC7
zfzc2c4FURufFwUJxNp9Wfqxx+Y#g;^Gz3ONU^E0qLtr!nMnhmU1V%$(Gz3ONU^E0q
zLtr!nMniy52m~;)FvNytl#~<{Tj}c;m*wdt=clCV6{qRtrIzRy=qDEx<Rlg(CTHt|
z#0@Rd(u~d1jCD;?4Gnb-ObiWllZ-5lbW;t?Esax+j17}aO}W7R|0@jqR|wfXDnA+m
zqaiRF0;3@?8UmvsFd71*Aut*OqaiRF0;3@?8UmvsFqlF>n>m(~*f9do{691QRR;c#
z{LlEW4kllWx@9y3MnhmU1V%$(Gz3ONU^E0qLtr!nMnhmU1V%$(Gz3ON0B;EJGczkP
zh5HA2#|MVGhPpC0a56DVa)vtx`TK|PGBPW22Dt|K2YZJ22Sq~W|8Fqx-@t3)sN`q}
zjE2By2#kinXb6mkz-S1JhQMeDjE2By2#kinXb6mkz#t3(b>>jc(e?j>Fk(iXG#Ub<
zAut*OqaiRF0;3@?8UmvsFd71*Aut*OqaiRF0#phCQrG{3&gLIIm!C?3KWfZq2#kin
zXb6mkz-S1JhQMeDjE2By2#kinXb6mkz-R~zt`J~mWM*K1tpESR!2f4(Id0T7qaiRF
z0;3@?8UmvsFd71*Aut*OqaiRF0;3@?8UmvsFd72X2?1ti2F}s`KXt-#)RfT>7!85Z
z5Eu=C(GVC7fzc2c4S~@R7!85Z5Eu=C(GVD{Apq+CvobI+2=h+_Iq?MlZ~kxmANgPN
zKjpvAf0O?*|5^Uy{0I4W^Ka!}&%cs?G5=it=@6wL<)e5s1V%$(Gz3ONU^E0qLtr!n
zMnhmU1V%$(Gz3ONU^E0qLx7SH*xx3{z`(G*wS<9zVO6Ua0|UdnRs{wIhN&%O3=9kt
zT6`E77&=;%7#J8Dn=2R?7^<567#J7|n^hPX7*d<67#J90ngSRY7=oJA7#J8l8*3OC
z7@Qh|7#J9=8Z{Ug7>w!|7#LJT7#J8-w3zr_GH~-IvM?|(tl^K~SKv+LtKy%)=gh~+
zdx>`@{|Ua0l=x&+?`Q~&hQMeDjE2By2#kinXb6mkz-S1JhQMeDjI0o_GiJ_YQYp?z
zG*mG$N-?ucGBdI?G`CDNG%`;yPE1KOG)_q|v@kJAGBh?yNlZ*ONi}6$%D}*|0iiD`
zImOU2EiuW&+|u0GFx4W-GBG7F$->yo(!$Up%_1?;(7?dlG}VmBke`8pq1=c$lM!NJ
zqPc~kS#p}GVTysFQEHk=N@|LkQHrsFfvIJ3YN}zXv89EfX{u!!s9#usu+P%KDB0XH
z(KN-t%)~G`&BQFlJkco8I4wEJBH6?s)i}w(+|VT1IFaEu{{#jGhIoX9<`!v2X^Cl;
zhQ{UwDT&GENtS6QsY$6RmX;Ql7UqVDrUuDIhK6aDW(*7r#}L{~Qq7Vql2Z)KQ`5{$
zOwG(K3=&f;4UEjqQjCmDEsYZ`P0b9AERrk=85kI*BebPj7^Pa8r&$`ArX(e&8mF2h
zTUewTCZ-yhn42aUrdSvlCz_a98XHQ0Qk*%6ARX%?g2gD+G&woh#KJr&H7U)=GRZK_
zz{t|l(7-Is*wVzp!pPXr!Z0z((ui>i0|SE|LZ6|jL9&U7p@l`7nX#Esl0l+zN|LFW
zftf*aYFctiQktciMPj0vkrAUh0|SE}LZ6vwqNPEqg@J{og^77mvSCW9p_#d{g{8Sg
zin*CVVxonaVTys7ks0GG1_p*!guWD`)Wk#!W6M+%%QR!N<RmkrB*WyyL^DeZ^Q0t$
zWDAQFL(9apBm;)|O#Ds^oV*_y85kIr@(c1`;0xq?$hVPCk$(YSBkxDj18Y>rXb6mk
zz-S1JhQMeDjE2By2#kinXb6mkz-S1Jh5(I1fKQRZfJCEbX){MMspO`ZDyXDd7@MRf
zr<x~QrkN!f8>g6?85*S~rzNE%n_HSCr6e(0GB7YyBGg-&T3VzU8>X2Xq!}2QrzEAB
zC#NKtBw3i4rzNGDnj14|F)%Q=Ak>?fr>3MB8(A78rWqt9Sr{278K$HpTO^xV8YWsM
zTADJcGB7Y4L8wnoN=;0&Ff&RtN=Y*@wn#NGN;F7KGfpxvHA*s1Ni$;jz`($ej8JcG
zX=z}VoS2kkkz$r;n3Q5^0UBYjOi8s&HB2!~F=GPFkB1}Fn;9mVnpheqrY4(NSQr~x
zS{fReq?%c#q$Z|X7^b8qG3{qyU@%6gH%zv)FfuSnGB7YmNlCIWGD|ixvM@17P62iL
z6O$7e?Lgx#aU@0nY05hh&Phx&HcYiNGdD?2w6HL@FiuG`Ha1T-F)+6<wlFkKF=hPD
zz`$UFP;YFSoMMz}Zeo~dYHprrVrXJ)kZ53HVrpV;Y-X5fk<1v)3v!D9h#1AAAut*O
zqaiRF0;3@?8UmvsFd71*Aut*OqaiRF0;3@?8Un*L1VHEiF^u;AhimkX`fD@<MnhmU
z1V%$(Gz3ONU^E0qLtr!nMnhmU1V%$(Gz7pQFxvkI2g4{a8UmvsFd71*Aut*OqaiRF
z0;3@?8UmvsFd71*Aut*O!#V^;*Z&Xe=pFUkXb6mkz-S1JhQMeDjE2By2#kinXb6mk
zz-S1JhQMeDfWheeKR6ghiO~=k4S~@R7!85Z5Eu=C(GVC7fzc2c4S~@R7!85Z5E#}W
z0Gt2kpUFRyzm#8*ua`@j7|4bdu)bt{Ijn<g)N`XDFd71*Autp}fJ+>Yt2uw+ksOs8
z4S~@Rzz6}hV;Dj-7GMKi+Dv0Rkc?-2io_XZj)uT!2#kgRO+$dOn5M>KH~c?#VYujh
zIEx&{Lads)v5KM!rlWFc!h`q!f6~PGQA0;VU^E0qLtr!nMnhmU1V%$(Gz3ONU^E0q
zLtr!nMnhmU1O_++*cliYVC(<+e-E%@My($Wfzc2c4S~@R7!85Z5Eu=C(GVC7fzc2c
z4S~@R7!85Z5TH>AurjbRFfhdMJ_eb8ivKtNH~vTbANk+#Kj**8e}n%V|7HG@{D=AX
z@^9zg$iJF@DgS)_nf#Oad->b>tN9!GOZoHpGx?MGWBJ4R1NpuAUHR?#E%}Z4b@|o#
z75Sz4Mfv&pIr*9S{_=h2`^fj2?<wDXzMFiP`Ofkk=R3%^n{O-MdcKu>i}~jAP3N1)
z*Ui_;SI<|;SIn2om(G{S7tI&S=g;TK=geozXU=EHr_HCzC(kFzC(Oso$Ii#d`<wSG
z?|a^t5XXZ&Fp5V*U^E0qLtr!nMnhmU1V%$(Gz3ONU^E0qLtr!nPIi_sFfbhNjAvkA
zINa&Sz`$^@(~g0G;XtP@0|UdpPALWkhCQ7e3=9mrJIWat7<P4}GB7ag><DCFVA#=N
z%fP^}twW1}fnjrp7y|>trVeHX28NC8AeHOeQy3T+*0l#QFfgoacVu8-SkbP-z`(Gq
zU4nsuVM#kk<-)c?1_p)&Z3zqv4D;K37#JAlwwW_9FwALFWnf^K*(S`uz%Z?~o`Hd3
zN^2ei1H<H2kUJ-}`ZF*vOl);wU|{HPwP0Xi=xfzxU|{HNm1AIF=x!BaU|{HKWn*Aq
zXm6=xU|?uz$!B0-Xl_YnU|?u!31?tnXlU_bU|^_gabRFzsBJM}U|^_e(O_U;sA!R4
zU|=X~0bP4v(gNxM7dL}UC~D4SU|`5^PGVqS$ZZZ|U|`5@_GDmS$Y=(IKzg$Q0|P@!
zvkC(PLsBznFJ(eAHv<DhY!k@kQB6e*3=EM?pf&puP0<Vt3?WS*_XjsQGcYg&Hi6t9
z(4@z}z~I}Y#K6Gd-6YDuz~J7*$iTqh(*z26x5f$v1_swgkQ<yEL2htt3}s+ouy6EW
zU|_Iqv|?ajux>PDU|_IpRAXRZuxONIU|=wB<Y8c7Fl}UFU|=vPV_;y=1?e=*WME*>
ziezA5&;&)cqA~*mgR&C?1A~$o0|SG$CIbV50w~Vq1(^5(7<hTkft+-R*N!iYmz7V7
z_a)yR{sew?{u#U*c`JC%@%1x|g3%Bd4S~@R7!85Z5Eu=C(GVC7fzc2c4S~@RpiKzy
z+A&y?Yw~g<R?cJ&rjpd+68)6o%G|_~qRa{eOBW%Qo0yrWmt0W5e3XHK!N!D@Go6De
zGcP%(G$mC(zA8NlqE#1}9bZ+HUzVC&l3%2kQBc76jDdkc!<dyb6-i?Xl12nOB|Q~l
z99W+MUjPFGLl4ACh)ZGe`f!!H$@zK3B}Jtm+w|dX^<`jSs5WHfOhi~&l~D{aTUQ^!
ztb!Q`vXJ3B-%bVwhBO^k&Txc2gl9m0gn3LiGasad3Dk97t;xz6h^zr-C`bd04N}ec
zobL|<-yc4{e|-NKKwWYM1|5j+-~pOa40mNbf*qfdj2xg<3=9lgR9QJap%Do8g+836
zTbh?xRLLU22R^VU4>c$dfrk{1a6ynu8E*0OpXNWyf0lv&90)Ri`oct|wJ=l<73U`A
z<RH>jJeaRrT#%ZanV6GVm6`&!Z94-4gBNNFNr8v7K7xr9*C2gNCm0wQ;<Q*fgAt*R
z2mz$PfJ7F<e1s2-5KLlNOk8Ifgt?Su85kJ$a?j@u;!@^U=gs3);hD<g&BMg=gpZ4N
z51%*RL$1r*NBEZT*KmP`a)>c_RLy7zjE2By2#kinXb6mkz-S1JhQJUG0W(iFPUB2O
zTQnZgaz!-o5$#$eX|#qdBWQMOYd9OHcP^eLeokURVsbXPV+3#YA~kv;(jbAH;^O$^
zjMU_8P@|cJiCZ4p`S5UM<1|c0xEJ1S(}g(~A)=39B6@uw^B5YrxAM(qFeW|T)IHcZ
zjgfnk@Gc14{&<9tJ`x)dav&Elx-&2^s41{<N*i)8LR}7}^i$Gd{V9+le+xEF%|K|7
z!n>W|5QOve;VfOa<;*Ie>BCSLHcmsN9wl5F?p%Zja>oi5;~=*(oMK>L$UzHtc<&Bj
z5UjtatB;UG1OUh+rcwq5hG_I4M09OoArOxc(nn&WMk138A84C%sWls?b|@l2q~w<-
z<)k891>x#Lh2a4OcFsly28KjeHcn%t5Q>MVOSl<GLZBf7Xn$WfIX|}`C$$1(65}NX
z28J0J9)pJn!eekD{rD<48{tQ=VO#hZ7#L<dv2m&+r8ICa6lM;Xg9v8qT~tOkKE8*1
zd=EjXyxxY5(=ZsG)btVkbeNF{5oAg5hyiG#xeYD;5u+$D0}vwm2qq%vKt5yW;?Lpd
z-^ak8$G{146$mdvP2bR@4^7`t9#WQoCoSf=3=9koj%=KU(TK>ef@d9stDt7+>LVl}
zi2>{)&^f3_9oRUHk%vzZVF5D+X<$Pii4EzbGj{Ut<KM>siZzgrAb71Q8>gl>G~bpb
z#}_ApQVZB$aGpM#rB{|*P?Vp=(go2BCPB0MU<P>vXx#u4{|k`j#r$6&3=n4&kA}c#
z2#kinXb6mkz-S1JhQMeDjE2By2#kinXb6mkz-R~zNsz_P%E`dN#0=VQkqKclw()ZG
zGw`!FG4QMLALhHl*T?6<yO2+s*MY~Lm!JD7XFm5jjveex9R2Lftnb;bFuh?t!sNhs
zli@r=7O7#t(a#Rr5<;rBQT3xCFd71*Aut*OqaiRXL!gO^pIuy3l(D(IBrz!`)yLo2
z8-xX%gIpa$TopnboqSvsKq3kn3JMBEsRjAP@tG+K3Z8x;uI{cu3V!|}3VxwJJ_<pu
zZmvPDe$KAJ3PG*`{=uFh{y~un8ks4YI&h6esW}CSB^e3|A+8Z2aIGNuoc!eM_>%nW
z)I400`Q>@3MG#52hUEO*+|;}hG|`mAl2o_@L23hnJbfL5A{D${BNa4YUeJMh2I?kF
z1qB67{vSjx$ZRy>V;9#}W^7W=%u7kF@QinK4hePii4SlLa`g*=a{T;VT=}8l80zO4
z80xCv>F44ap@61b!QW2-NsEF;d2)PaijG1-Vo_>dNj%hnAde`J407_56LVljXtvn!
zu!}1zGj`a6BOA$5BqlG^$&jc=k^rXwu-o9F3y(wO=nr=e^7jvcM?H!YAW;R^2J#fD
zHz5kZ;zjudsYNB3sl^HkPCoulAhG29ytJIm<dXROoD_sgxM*H#ITq3K{G#m4ymW+2
zK~a7|d{JsvYBEyNNzO>jOHa+oEJhM5Nv$Y}&&@}&s-!42H6CtXN@7VO!dNt6n49x+
zQc{Z`>ja8Rb0Nx+gDW7&GdRT4&s9MKyq2K2G#8v>a#GVuNY_=AnVvz0Hk2F!j$$1J
zlz0PY4^v(?aZhDN25_1$F3ia+NsUh|Ey)M-VOao_>f;TOk_}%3H=DSoEMp~DnP)uA
zzwy2<rZ6@SG|j>C2TUBK29!Nud<Bi%6jOMpXg2zCvWv^gGB)Lc(=$vJjOK!x3Q5T@
zQE)Pb1vNA};H4N+KtR%4Zb4CMadBpT9z4y1#EUbl5Je11YA#AmOU^F^l}YF&BuF2!
z>(Q-NP|(!pViR|k#TCFX55yb7Slsa(?Bd#zjE(Hju=VkGcJzsNbP5h|4Do>ELr!QQ
zpp`%<DnUUEQLUf>iT1>#Vo*t~S;59GE-A^_=nW2Fh#CmV4mB4NxDYXL&?46kNWrP#
z7#ia5>E|5e>g(zk0tyTio1mcqb)|xWrZzj9xV<E<uz=VXZwR3|Tv*w}B^4QCp}_zu
ze-M=r8`Pz+#08QC`52)>L8B-?zeLl81;v!mP)`?x8dfw@K(gqjl$K_uXa+E|iEC>!
zMuI~OnoEjP3rkb;l2g&REKoBcVTdNFk(Zd8s#Ba=sM#pR$S$s^$k<p9HWT3{1d9p9
zB!oCDMqr5%Z-jsX0W}_A`2rMOAkRT%VZxv~)0l}(++7h@JRw{XZ-`)nj%5HHI>5lo
zx`jcIDV2f$I)4OTF`o-}4!0xMR4zSE6^{MvPuaOy_b{(uZDiWS1Ue96Shl}LJw@{n
z@K#_GS5;+<24@~vCM!uSF+^s|p=2Or8I6*p9G%RR3Z3GT#1hTMVtICPV|m7AMQB;$
z8WG|e<mc!U9Pi@l=IQ6^0vC{l8VN1aV8sty9;N|QiogZotv`~RdSDGHscG?$a+RWH
zqXJs(-y9~(E-o+6*j5b=M7V3=3~8ueAtf1H7+m~-+Y|8W6JA>)w}BwVI7LlHxVfOR
z3f9QSZ!4leg4+zL?Lh@KT0sXgGdnX6+7Lvs3M0h9@c<$)IyoSv5SKwC2c!y&u_^^M
ze-leG^Yg$h__9n$D+Htz<Q#}$Fj256Py(g`xvYovDNxderh=xS9GkeSJg(9k9*^;c
za3<*R8gSX&<Ril_?JmyI;#yLanVz0nl$W29S{z?m0P26i+i3B~lCVS)<mnFTJL1)#
z;OG|O8l(^!-~#H0`nxH>n{57m3SgZI;U2Dj3VyEPdT=SvU~t^{`?w&)oLt>K{S*{n
zCKVKA7MEn^r78rwhA6;WYqkicwt}I80?6zjSA?CmDE3&BV4N;?<B*+bt>EhC(ikqy
zE^R8#(UglEV(}@dIjJS7ghLTk9W?M<Tzy<aTtVdvQh*`btN;x#a1Wl;fFj;!QrLW!
znOB@zR6^KisOq3T^YjaL4GKZ?8MdTAmd}Vv0<L~8$&&1%ii#YKqGg$><)DsFaJ-Xa
zuq%QEP4Ho!uHgy@Q3c0f1qFp*S07jB5Cts-w;+FCXo`lVyZnOql+=Qf3<X;SgC=$f
zc2RY8j^;pwEzY4qpn(R6kx&k%T~G<!);R_%<bex~a1YlYR|O<nHK4BZb&Sw}32P#|
z6r|M%tQV7jn3iXx2Pye&74o1gOr;PJM?V*ZJR?1n!bt(74MjvVRh(U1U7WE|5?b{_
zyzlED=IR1wN<f1Et-=M%#e<cB5)7CNuV!=e%TiO~OY(K#zSnHj6k`|H6lZLbN3jPo
zwgc8Jj?W^9I!v2T$2mYnIK=ZrkthLy<W@~lHgQ{VT;(^|vGImrN~|?hgk4-*oUxk|
zT!(`N!GtK(H;}p;EJUMv8<vtVMh`)uff_!L3K%2~sWFjzmBb7+f_ksWX22>+Xh#TS
zFrK;|k}5J%ix9nhkPe7&Nj}109E}3d2ow6)6(mC|gt$h4d%y5H3oL@%7=rcg(FTNy
zD|2%)^RnYh5{uGPkp`(C16L{WMX6Z)2$KZW$&iGG6aX;E#L|+C{34Jv%yA_}iFw62
zi6yBi@hC$bpg_n;ECvsX#g}B}q6SY&Vp)80Vsb_*V!$pfGbc4ZwW1`oC@(Pw-WmfL
zlbM&1T9gU00TftBV|)agEl9~9)B)8MW)pXm#+3!ao#R2H*PxLCFhis<Nr+usTAHz0
z8k`NF@=!_`B`ZJ$@n#0(h{M{7P01{RjlV*Y4Y-8@s+K^Z02=pBO^MG*ElbTQhKCPa
ziGqu(n`5X?h=Q&mNHy-DL9#_tK|!-t5Heuk3h|?Vkav7wsB5TeIGiPf>QlHl*t5u)
z4cShNAso=qDkQQIPF7IRR2N_qw-&_}C6M?4k%GLS&L8L?L=ZiSM?+vV1V%$(Gz3ON
zU^E0qLtr!nMnhmU1V%$(Gz3ONU^E1VWe9MAd^Ott2Zh2Y9u0xf5Eu=C(GVC7fzc2c
z4S~@R7!85Z5Eu=C(GVC7fngg0qy7J38?~bz8x4Wc5Eu=C(GVC7fzc2c4S~@R7!85Z
z5Eu=C(GVC70eA?2*8g+z#WV0<;9t()#P7i`#rJ{l0ACMZJY2~rV>ARtLtr!nMnhmU
z1V%$(Gz3ONU^E0qLtr!nMnhmU1PFzIHYba`u`>MVBF}g@6L$8Np@D${2pcOH8ga15
zyUN2=K#u@JoNo!2i8lo40AoFN7HLO$=s5uxI-uf6>NVI{M6KmPTi-Dhg9MRO>aemX
zYilAMqltECtc8JrfdZH?G*B?KU|~`AR7O&bVLXytydhX0m@rgkW)W9c2Os+384so)
zC#8U8!GxiLp*j<bxTY>x7N!Vt$_ZEjm@qU@Fj6qoV`LGxg_wrn0<d;uyNwhKdHD`9
za5Jo6;H~0u;`+q7h$D!diFFf860-{9Glms#NGP6ZF5hG=AjuidVaS=xB+0-aD!`D*
zz{Doa#MT(czyP~`5pg9d(p8YjiNz(LI~*|;l@yicW$R;#W6{iTEHA$(H!%lvn1+U?
zN^wS_p^Bl2v8j2gfoY1Vp?Ol8d9s0VnrT{Unz5;6qN%BgiIIhwrCDlHauUOC23FA{
z=Qq`^tIW^KEY8T}+`+)w!1M3Ot34XUWqDTR$yP;)@hORAR%NM0pcBS)ON(+8%uN*Z
z3-pr<3ZR$WCg-Q5>MItP<>?od73mvVnCp|^e9b0ne!`(w48H>takC{x=)o1CSq~RS
zx)&6t8C&S3rKY5sC7YTgnHd<R7^aw|7@MV7npzl{rJ9<Wnp-9r8W<Rxn;KhUgdRsZ
zEkX~U^EI2S`3Q#|{7zAn<dc(3LE3|8#uj>}=BY-Oi6%ytCgzD|2Ik3$DT#@u7DmQN
z=4r;pX(pB?rfF%(iRMO_p|_Y8p@+}!noYjElAOsLhMf6mIX8<y&W%qguFOp=Dar(2
zo{O1J(NZ8bN1z&kEhN*@j1$w$O-)RV4O0wEQcY8m(vl2~%}rBN%q&e34K0!rlM)RL
zQ`0a)lJgTJB%fWulZ!13sE~_MJ)zm;%R_E>!h(qGG#L*sVnIe=3r|bSL}Nn(BQtYT
zi=?DPBcsHmR1-6E6H{XoV*^W53lkFy%aoMl<W!9C6uV2m@I(#=%_d)N!r_Und_avC
zc>07ZMN6M>aikIw)d+0inPzE`m}H!0VPKGIlxAsam|~i0Xq1*>nq**Nlwx3Jm~3cn
zkYZ_qnLat%X%U`;J)zm;%SCQ@rb92y1|=>s!xPyEY~g8;oSJ56ZeW^}Y+zt&Zen3-
zY>}8`m~5JCoR(^2Ze(n1WNw;fZf1^=J~__OFFcVwq1oiiNjN-VDOwk)_CdW>9Uh)=
zrD*9BE{@X(Y~h(?X>Mj_l$@GmVQ6Y@V47%RZfufjkY-?LV31^BY-yZgX=<2gYL<u*
zo}Bj};rZwd?aNQJ@Z=ynJd-G{kJ6Ehz!shs28k&KCYI(#sRl*{#%8Ie7D*|VMrOtq
z21#a#X-TGrMurw?CML-k;mM^#$M8h*gl3Z|n<Qs2haqP?TKyhHpniv3i%wR$glNSU
zen|#tW@$-DhN(#=NlE4gCKhQHhNdQ|#zqE-sU}HArYQ!dW@ag-1`G!oSmlrK%Pm_8
zZI!F<BqIFGjqujzmd3=i${~)|Y;s|h<c#Go<jh11w-f^5R*+bfl3AROQb@uxFA<p<
zNk6s_OtvsLNij$@G%+x-FfcSoO-nJhFicD{NlCU$voy0XNHH|BNJ&dJV>rgZs`r^|
zdJQ8q1bLevA$Xq!PmVS>#~*?g#DpM{4>TDV80~4^`y9R&@bbkna4{Az@bYq>;p*eG
zV}H#ykJX#`AJbmO0tRLNd3>=9e6fta!#4ov?6W2>DM`*m4nxjdv|OJ-AlIiL*BoRO
znkXh<%lU~ZDaOX8hDm9u=4Qsm#s;S5$p&VImKKQ?7G~xq$!3X07Rf0|DVTk7&JU2B
z|E&aH&bP#y^NAbLK=FfSlbxg_XC#LqXDV7?CLjW{DmlL_HMu0eNLL@hEX_+Sszfe8
z5mKlHC_)^YZft>Qk!GG`Zkl3fnr3WaY-(<1Vw{*}VUc8JnQCf~lx%KpYMPc}nrMdE
zHD~-mOdy()7Kr%Wui4}!K{z#HYx868n!{D11|niO390LYVglBHG&Qp{PEJfQF)%ST
zH%&=4OHN8LNHevxOf#~yOfoSyOR`Kew=~6US#s186Og2)M!4T_`9ZTOKwOeDmBWy;
z5G^(4AW|c||BT#FPtMOPE-5MnB~s)xiBO9cobbvXsilr)2DSh-Pc<@5HB2&2wlGdJ
zO*S-31$Bc=4AWAREiEn0EKQ8kOjC`Lv1D(q_mBYn)PpB`TNsj-G7-MR?F-E&FEKLH
zC)Uyu9*1ZF3KvI?TVxZk1*e&jVVaSlIcV%RHO0^(IVsi5*f`n9B+We4+}zYW(b&-3
zB+Ver6r-ii@tTO>G^a}XMD~MbQ-CPJ^og~+KucS&$_JqqH8>ICNM$CP8Q22UBr!ED
z+1N1A$iU1fIVIKDBGJ&?+``Dj(lpf~G1bDr($X@?zyeFxhl8Dn03|hj65|WaCSMVP
zeMzha#a9(Ut0m+dk5EcPh@u*SEkMnZj8hU#lMNEh(u^%k%u-WQQ%n+#6H^QgjS@}L
z%uJJw%~F!gQ!x9Ij4L1k`fdrn3{T?NCc<+_$pY0AnoZWi1V`Gjnv<JZj55-WP((yX
z!Zc$GLz7ekW7EVWBNKCzL~{cJ6T`IRR73Mb!$eS1DK*8|!qU(r+0wv*;V1*EcFocL
zvS4U$NFacSFeEU`V~IY?gYXto7{Z*d*<>d~usMXaF2-mMAylCTA3_|dq=f6n7JkM?
zM#iS5mS(0YMrH<}mXW!kp=FX~T4HKaicw->s=0ZxnWd4jCBp^=me-C!dsNRr!;h($
znDE2j95OdU?@eMW>EZ6zZ1NQ(n4Pf(L3|3Vm5H345lV>&MN}iO1*K(bQev`+fss*S
zqNPcig?Vx^C}dL%%o39g5)BP4P190RQq2<$F@lmgors_$FjYZZP@;MQ)Hh#D=l<2G
zb)*4awjT@}EJ+OPQLO7&lK3w2w(wYU{pH-rxs!P|QyilNX{HS))$IMl$v2~Z84ZDf
z34tb0IrK`EkxiPBtuYPJEymieiLXNLzL3@HKs5qurJ87vWMpb+U~HC_Vv%B&Xql3f
znq-n@oR(y4VPtHYYGG=eWNB$(!ot8JxNhQ?S3S_?2_K|N{S||!g=}ttuS;x#);1v`
z3^beEWzqY?#D!&526S-`a{B~fBWn8uA&%6_L@|Mqkkn#ekzKadcb6OWLehwsphWS2
zCdYDyB--YOCNF91=^kmM7i&nzSHT8&$c`*jBWMs?6pZwm5EWafJ^-~Og=iaHL(TLi
zM`cOQXbwZpbhOdNBt)@_=zt(~*HZFJlX6m#lNLf5YB_)q$EqD$vNE?!N;XciFtRi=
zPEAfpHZx5HEmcWMPBXDIN=!6MGPW>DG)}TG#^|H4M}Z5}qf9#Z3RE+E1*#!&eH4WM
zHJhxJ2oE>FDj{8cczvV`>vF>@CAcEg5Jc#}q8V%WnV1?SCt8@L8KoqqSXvsV7^Wmz
z8X8)drkYqJ8mA;DrluqtTclWG3^&NE1Bc&{e=hjK5C5W4%;5&Ox3D;0v&l^ndu4<)
zfsM6*t3qCn0S`i04_X&32;t($l@YQD*uv40vT7ZFDB_*MCaPLT2?5O}F9q~~gsg2w
zswuDzm!}{H11umBDp3OxA&xZQj$#6~fK0V8O0_gkvotbINlH#NPBlrkut+sbOf@nw
zH%&53u`n=BG%>R@HpCd^=A1xGf+Tg68&)$SPoJRpL9<CmUXs(7!;mu)ty~PjUoMhc
zAcFK^3pg`lgCvurR1<T{#3W;5BctRrV+%vjx(ZWcvn110!?a|>)Z`>f%!PZBHy{Cr
zw`plcYQSL`_yW0Hlb3%U0}n$S178}i2KQ~QHJmXV{A|Zq%UJZ89y3m3h+~MOq+)C`
zH6yq-2x}P$StA2W(g-D}Ng5%JR6aqpVvCYQa|=VW<TO*m6azz})HIWn)D$zL6k`Je
zQ_JMkRKrwbOAABOR4h><A_9(*qnv;66|VT#24T!^<8i!Zlb0!(B?7Fp1Vt_^_z*cC
zHTV$X$Rz@@3D`n0&CI|Mw1_I%*v!z-BGJS!IoTx5$UHI4ILRU{(Ih3!#KP3n#2^);
zif3jcCKT}}Y|JViYl(pD2hAo=6YLFfB08X07NjDoG}O>Uh$B^0@hBxdw&0|!rXr9e
zsnP*O3Iok17h{5p*03h*<ow)%oK%#R{0Mbu0g0{EfutW>D4LraCYmJ~8JU=yn<QBp
zq?lW#r6pMyn<ts3Bv}}ynwX`S8JQXyVlL}tgH%%l!VzzckGUBK;WMOi3CRbVO}>Wc
zNfJ`y6W$YnoV3Zx;HYEt*aFkUGC4IV#ni&Y(7+-!$s#Su+%Pr8(%js@ATcG`(!e0a
z+{`S=#5@r*hf5QY!%3cKz?Q>NJ)zm;W`JH^LdHc1Hbr6eB64|&$jN946BhQ!ONpwG
zO~4kKG|k|66DDy@QDpaPHhJlzCrn5{A~i)3!GluJQ9QyFk1|3-Nl<EG9bzJo$MIG?
z#12{@2ZCmkuO50}V&rnHMMXSHqJrgegi^F*iLJauH3C~;8dz8wm>8#-m?tJDnVTCM
zS{fvpB^sqzrlusB8Ksz77?>HDTbP<+*}o`3c`hfeHH7L3%_bdP!cBWDr3G@{MzncQ
z0}&yPXbXY#VGB76BeP`C;z$c~19L;u#8eBzWFxbrq%=#jq-0COG=o$llQhHB6wIc*
z6e}d;*hKKOBS~)B<M6R&la~&9p$JKSgz_@wYg156z#4=mDamG*CMK4arj{v5Mu|qL
z=Ba6>hK8mlh9=2|Cdo#LMuz4FCYXtjaWWA>Nb2G#tR)(XA2ge+wFwRtVM{|8Lq!Nh
zgcBfKGqxa1PE0g2FitZuO-{2&F*HdtOENGuwluU%Nj5M`PEJZrF*Z)MG)+mt=$Y#l
z5EF#>hl()rFTz`h`~!EsW|OHF;eH^t+7;57gO`ACC8%MCHU1!4v4vcknT4@|QA(n*
zrG<e}nyF=yk&#(yl2Mvvs(F%`VPZ09#4W|#05ksz%pfM@NbLv0J%v=ALL9Hjz(DI+
z3efp~JPh+0__p&F^QduM<Lu<HWc$Ioo~4l4nDITsd`f!%RM6Yx>qJBq3hkkQMrdJ7
z)Q%TC0l@~$&<7de;`;Con=Yym*b-8*rG-(Ffl;cdiA7>kvYD}Inq^wDscE9Qk(q%>
zTAF#Hxn-hhTB-#`78Le{BqYHzcq#${4P}fhh;TVhPiQtdIue{UK(sTEdM}7kb3|A|
zcY$GqB}^Qvc5LC8n4Dr}YM5dO+NYJ6WNKlQW@utyYGi3?0NTTqVqltNVQOw}Xo3-r
zY?FuxM|1qM23W!ouLm@ntQ`ne1z6)EIT5m>9}$AE)QVP|VM~oL&Dg@v5H#qLY?%z2
zJ4iM&G6WTGrWPsYDQU@xDaNMBhNi|wsmX?k42Kz5mEwMuTweyAd*v}8Cj9VM1(v4h
zv#<D^ui0d6PekZpi2>MY5{S@)DMAlDm^f1UgK5SVdZuY+DTXE{smW=n#;L}s7Rkw`
z$!V5G#^$EU7Rf1QsY!+@Nv4*jm|NBvH&GsX#HBu%^EI2??9khEkp3BRM;BXv0HrlU
zRuH0?fGr#;?CA17(ZF*Y3TYi(f+3*UWM@lwtt^(7wJv<MC@c^WEg#f$h!96=5y5q1
z3&2$4)D%M_15;B2Gcz;O#AMLs0wd#OQ&Yp#G@}%A!(>x~q?BY!GmLQ;=vvvM_=Awt
zwX%49ui4~lLqyGtB`d~PWk8EPQ2z=Riik=FH53uzNVyr+2y8(KDg-T(O${x~jnXWW
zEzFY*QWK5LlhQ2A(m)$pjm*t0Ow%mQF>4gA5J;ZJ8<eEi%ml+hv&qXEJ!fO~*082)
zih~m+La>FVrKM3)lA)1_g<+yea+0y3xrL><p|Pd8S(<rbTB2p5p?PXra!NAhMglG|
zB0`ho-WtJB&}{OxA~$iuTH_QXPGlpn1*d^=nt_2qa+;+<qG@uniD{Clv4N#Ua<YY`
zQF5w*ftis}npvVbmNRFVjfe<NDkV;2PiQuIS(2GJk&PiMufzLxpa{Vhnu#XnmL?V^
z<_3wz#zrQ_mT5-GDaHmV#>Q!;7M5wo<`%}rX+{=?nESAp<%tMQ>LgC&P|$30v>@09
z$69${w!sm~P)kjOI8xn%(2gw_&66w)O;QXjk`hxa%q^0QO_Nd#jg8V$42(=uEKCiO
z4UJO_O$`%MFe)F|${oBVraAsLIFZwO@RduNO>XAs2@<m%1PgVP;d-p4C0r$HFv8Ow
zP7|<&<REGX!Tp6aw186DYl8a!S`1Sd_!sfJ@IB+};M3wg!<)w|z_W=bg!>!!3~no~
zJ6v^K3Y>>HQ#jc;R&aQ+zhUoVH(<NOR>CI6x`Q=}<qyj|76;}>%q`4nOedJKn0Of1
zF$OSvVwgg1|35~HEt7$XGZJ#n9<lkGSzaYK#Z*DX%ren9E!8~PAjQBU+1$c1$-=<Y
zz`!sq+0r1@%plb)Mibd|Vv{|46vT8B1EUmU^F)J0lhkB0&=g~;iHT`q66pLeGmE4&
zqZkcj(}`ViAR+=W-8e19$ka3?$-vaez{D^q(KIpH#3I!q&B)Rs&B8d*B1RqAbYf@X
znb{zwTO=i$C#M=G8KfGgB$*l+7?_!vn}Bw=S(+J`CYh$hs3Dt9?360o1c>QIi7BQg
z=H`|LX36H3sb+>LhDk<dDWD_$l8sD_lT%_;kxeIdj*(d!VtSIPvAKnbA?R4eG&2(e
zV~gaJR5L?k6C(pNOS2@Clo%Cc(}|ti;FN%vZe)>~YGGt<Y+-0&VVq`YVw_}dk!)sS
zo(x+0WM*a-ql|1ivE%<ztPs;p(oB;rjg5>9l1z-#jLj{Rl8h`(l1&m#jSP~~QWFzn
zlu%43a%h}!GQ@O4!&KvBi$qh?Gy~Jb#1!L{L<<88BU8`;F3ASTDJC(B$fgrJYOGrT
zF+I)1A|=htFvTR<*w8%5)GRI0($FX+*&xLv#njT!#4tty*>qw@Rt082OixTpOi3~@
zF)>O?PDxHNx3o+(NH$6}NwzdINJ>pJGKrB#Hr*&SCC$v#(#X)z$jH>()F{cs(l9kG
z#URzhJki9&#3(JvG||%BAXVWW#B@VrV`Ga%GqY5KlvI;Mi<D$zW23ZG0~6B}!{n5d
z6pI)+WYdk!jFXd0l1)-l%~DMaj1p6ljLlMvQcTQ^jEpVJQp}PK49yIU(hONQKuotx
zN=`9PGEcTJNHaGzOG`5|NlUb_OiVRNO-nPgNHmR+MK(P((IVBv*v#A@#lS4Z$S^4>
z(Ih!JH8I&Z&B8L(Bqhnv%)~O$D9M!b6~uItG)pt%G*fdEV<U@{RKr9|!?a|RB!e`|
z)Fgv66C;Zl8D!Hf(#%sWjf@Q}KpITbK(?fS>TUxw3yV}^gQOJ0L_;G}a}z!}i0MWt
zW`;(o#>uImZNO%UDF()dDHbWlDJd3d#;HlhsWH+hrdxncG6m&nOT$DXlN8XBfHaFl
zQv*XIW5YBH12ba_OJfrwOR>`s)6)!7%+f4PP0h_LjgrkQjSZ44%nXtfEt8EvXH=Rb
z#YiEWPVAClSP5)oWM&F#mLw&n7@1h6f^0}hGPg8HH8L|dNH$1|kwh`w1T-i{ctNeq
zI*8j-%|L!Mw@6G(G)gowGB-#vGd3}|NVG^XNHI4xON@~~Hl5hjk(|&n(!|IpB{?O@
z!ZOJu#W=+xB{9{~Ff}>FIMqDKz$_^_B}N?CbYhnfO5T9D-89wI)GXP=GR-16(Ztj=
zG0oD%B*io>$tcOlz{12JDMpMflYx;DTCWn@OyLWHm~NSrmTF;<WR#d<X_RV^lnOeG
zBgxRfFvS>DAS5Qnh$6e4*t29fKR``4w=^<00W~#E4ULQw6O#<mQj=0G49pD-l2a2+
z%wt55O(*t{6~-SB(~V8cK#NrqQ<Kar%@QqB6D`aQl9Eyr&C^VijZ9LFVuVplC-USG
zj#`N6sb-1h=B5TF2C0^*iK(E0)>Pv(qa;fc<3zJWb7RvOA!O5uJ%)qpJ;Zd2WTQkw
z1LM>*OQXcpM3WT5RFkw+BMZY+)1(w*Q-hQkL1fd3J(YsvHN<oSBQt|U^F+%uOA`wN
zGm}(HGlR6$6ywC?L=yvZOGAqo0c6vOJ)(hw9b&q1VoG8%=pax_6H61&o+?u#W7EXc
z<g`SSBts($gBX5f(}_K=fN=%H^rYm(G!x6@lqAz6OHhZ}$S^G}B^k7+A<@*t$S666
z57~4RB6so&1VBtTFf}qaPBjDdhfK^3Et4%w%#A@uI;WZ>SsEu98N~1+n@;RLccx;9
z>50Z>#)%ddrUphv$(G>3=fo5PLt_I=Gc!w5lf<+b9%R#r-TKX(4l&)##55%>#n{p!
zHO(^BB-t=ADcJ~ga#K>Og@r+~Sz-(~vgyR0WX-t)V!COvQHq5H=)4%iv?SBCG&4hU
zlOz+9<WvhYV@uN{qZlq^(}_LlnWG$Hx}~9UQi`FGNm6pEd8&n>k#Sn8v1xLuskw2I
zk(p_tNem~l>BOFd%&{0^x|vxDXu+yMs+pOErD>|UnMI1Bg}G^3qETvMl2MXz3<t95
z#GVe!`3YjWVVYTrrLj@6nK5WG*(l8**}^<2&B)Ny$RZ`#Bsn#P9ockZ&&n0M3o+d^
z$sp0v(!|`*)GXE5EY&b6G08Z^!ragZGzOPwY8=CcY&x+g$8xkoOixR*Ofj)YH8x5E
zwO1`tP18V!tr(`5S(=$78W|hJup*mI>^Z6&=OCsV8YEhP$^zrGltc?t<K$#x6VUO%
zMk%QVhK3et7BMWyrW1RrC?~X~XONO&WMYz*mSSOPXkn6OXr7vCY-*g6Y-D1VYH4n0
z7Q>8eI<aSLa_K<aZf=-nW?~LH3em{IBGEL(!q_Oq(jdjiGC9pGIVH(Bh6&kpVo#t{
z-w822&D6xq(j?U)%`nx}(%ir>(J&>^ASKNbbWn1txshoMBeLnlp3cbI1To#hA}QG@
z*}~AmIL*Q&IVm|Q$;iUMB*_SDfw7S}F9QR^pzHsKAp6+T)WRY$%@B03lBKbcg+Z#h
zQEFO>si8@tQBtZwqJ^PJl7W$hL9!q(#K(z-hQ^5|2F504mZqr&iIyf7risP|$!Vsh
z#ujGAsg^Op$flc`CYz<Dm|CV<7+9oPB&QmHs`4b0L~~=~BoiZ$rHRRDW+@gNQy``%
zCm9$S8z(2HrkI%~S(sRuTBKPdnOdfqq$C+z7$+vh1R<NAYM5#Uk~T3iF)%SPH8eIe
zPc|@2Ot!Q%GEX#2GBGhsv@|d`NMUw|m~Lin1UgG9#Uv@oBE=F^`6QVeC8wnsSs0im
znx`hm1R|SmVVGo;WM*QNVwr4WY-C~p+Qpn?mTC?@CpyIl)aW)bO);}%D}k79VP*m9
zcAFSmrkI!}8ki)Sr-ABD3sdvNRC7xsvzP#6)6ETxjFZe$lZ=y0Q&W=-Kz&$COH)%L
zlhh>Bq+~+_3)7U8WJ60MCKZV3CaGqiMKj4sDQPAq2FB)TsYyvm=7z>5CT50d7DmP~
z{>Y}MfX)RsHL@^HHL)<UFfjye8Z=5aG&DCfF-b{FGcvNYNHj7qGBZ|$m~N0}VrY<J
zX>4JfWMF1snUZFbn3xEPB}3!1Bs1f*7(Zmw%~F%hQqxS$%uN$bQ;iHvlakCqJ&;6`
z)FeZ*Gz&8eGvh>4%Op#VOo-{J$tg)jCW(p07RHu|$w|g(=4qCepoC=(n)om<iSb1?
zJ=MV6$j~gw!qgx&&B(yq*xc06$Sldo%qT6zEXBku#l$$((9p!dT<{mfbTdOEBLlN!
zQ&UqT&`v%x15kyKXk=k%oMxP6oMIN^gKWB)NlL0wlBJPpQksFOk!7+;T3WJslChb2
zl7&H<sfnS1L5h)KvVozLD8%&Cq@=Wz6aypBNRff5MXHfWvMFe)%QDT_BsIyvEXEtz
z^b~_s&|yZ&X_gj-#)*bzhQ?_Y=7|PLX~`z32C1nANoGdLmc}UtY+4Z0(+oh>q=|8A
zVsc8FkrAkinq+KXU<O)1WoVd^8smj*x?z%$v6-<^N~)Qqxv6=wnPHMas;NbCl8Jd5
zs4_QBH8eLiOEfX&a)p|1o@#EAXq0G@YM5w}l9FU#WSN#~XqjqYnU<7fWMCQNiEO%s
zX_|SWsey4?l0}+@xw)A!sQYbTVQi9Ul4@jPk(z9lYG`R;k-``XG2Oy6$=D*%DA6J*
z%^=O#B+<YaG*4xkXqK9sXklWR7~_F#da`Azd19KGky)CBMY4&RnWagRWs;epA!trE
z)zsA3I0bYfS+coc8pL!nGm9jH)Wl@-RCDu0OXJieQ*-lV10yq2^VAf}#3aiYcVyE+
z16H6+oory7XlMkgJq!{J%}k68%+1Zs(?CP(hG_<A$(91a5Yx?*jZI7q%~Q=l^|67a
zF{os+NK8sGO-f2JN=Y$`aYHse$<!b*B{40{Bq=q~z%(T}8B`X5h6F59ERs?Tl2cO?
z4J|AzjD^i1rW=8p66VRKh6ZVAh9>657DlO{#lFTSCI%^{i596buE?evTO^tom>C+H
z8k?D0n3{kxeyT~5g>h1fiBYmKD8U&T8Je3LF@1-ao|>F!W@ZHPt)*E?Qc`M?MQS2w
zS&DIzp+T~-u}O>zvgrn(i!96yQw+?Kl0db!S(0gTqKSDLXeWoEg@Iv;iK&IDrG+^=
zC&YA<w6wIeWK*M*Bm-k}<J2_sWJ}AmL<>V>lf-0GBLl-2XJpeYOpQ$pjSN5wA`>kw
z3{pWGXbsYmQ%uY)%u`K3n-|S2%o5EL?T<iAH%c@$vM@?aO))b|NlFBbE+iS58=07-
z7^kL~B&S)#I3b%38s{-EGfhgg05!Nx&5V-L3=+*#3=LD#EYmCulg$iM%|K&`LQD|T
z)67j$Qb6ejbjF>TDX35~v9L%qGe}EGGf7G`jd4Ua-NX=-?b9rcEDa12%~FyL(+o_L
z4NO3_NJ@%Xa#C8Fp@p%9Wg@p7#B@XR6a(;vOw;5PizFknv?NeR)+E(DDb>W%I3+p8
z0oim@L-29f=B8<u#>r+ThDpgrrY2@aW{Jrr#umv*7ABS!mgb2m$sEQI(=8H{Oh7AT
z5{*F1u}lpuQ!LF4ObktvOp{VfO)S!4?2%1RGBz=?FfuT+Fg8z2F*8n0GB7eQurRYU
zGD}W0GD%AWjS88W8YFV6K}<JHNlr3LPBk?#OiePfG)l5aG)py4H8VFbOiD3Kvowvd
zLpI&q+}tuTHQ5X_g9>Ve8Jn9Jnx>gpB%7F~np&8eSteN~gL;~Rw;-llCL5V0r<x^N
zSR^Kz877-sT3VW#C7K$5mU|kf7+S{IBAae#n3iZ{m~4_{X=-L{Y-yaBY-wzmn3!m6
zlw_D<VrBv^gVIcm#2q1~r<$54r5Gfpf)-vSTco5U87C$h7^Nhe7@L3`loVrwY`U?D
zacWYUS*l^0r8($`d;??4G;?E1qqLM1V}q1L6SGt^(<GBL15O@@=>`Ut2IiKDpo@hp
z(u|Fg4b4pqj7$wuQq4^*lTyqLVyux(H%Ur0NHa=HG&3_WHZrm_0w)OzV<S`ZWJ}Xz
zb2G~n^JF74!zAJ55YsJFQ_PK%k}XY5O_P$763q<~LAlM?G||X7%`n-*EXE4ibc<xr
z{Szh@#^%O}MwUsbi79F3rj};rrpAe>DdwqZNv0MCh8C8o+6)lWjm%Th(oBp~%@Pw0
zLH@HeN;NhDc@8v8ZD?s6V~K3Kxn*KvT3V86O0v0O8o2y3G_^EOPE0aQN=r30OtmmJ
zPfkoVv1EddE*K@6m>3%;ry8c1Cz_fX8zm<jC0V9enwXgzCRrpITf|r(n{I4oY-VC<
zkY=1@Y6yxSOH)guBvW%^0~2F2GYg}{v?N2zWJ4oMMQH!uJUPh-WWK3UN{XqaL2|Nr
zig`+sg^8J&k%gs&iBXI>vgx1|B^HTEX(pf(l8p=!Et1WRjFOX*4HGRbl1(g(j4hK>
zP0dU#*eoC+lbT{-Xqal623kL1WS*F8Y;I;|Y?y2WDt;5qjZ<UHkWDwY0L5vVrJ=F8
zK}uq>d6H$CNorDRilwE6rG>d+qNzc$k)dIlrIbI!^pvzjOH%_&W3x0%vov$iv2X^4
zmS#zyH86&0M#jc5rYNR^nz1S7=4M95pn);7WQ!Eb6f?6V0~1S&M9Va@)YK$nlO(f5
zj(mveX(<Mvtea?VX>MthXl!9_XqjkYVq}<{m||p}WMCL$f^536u^FgZN;EPuvq&*B
zNd%2{CR$h;f(BTVlg!Ob6I0BRjm=Xzb0MaK@?&bUp=F|JqOn<8vSngYO0tPTim{o6
zQA(1DiE)fEvgt;kA?PFnBf}I+Lo-8zWKaYc8zh<-8KtHgCz~W1rJ1D|8yF=sLEAG)
z$)I}yOij#^j8e@F6VnX9ZAl}OWV7TH^Tb567$aoUiCy3;><e*wYMQxGs*$BpVv3Qe
zv0++bilM2ofvH()a!RV9Noty9j3Kh=#4dYfn*=c(G-+UxmS}Ehk(Od$Y;I<fY-(%@
z8UX`MyBH=J#uy-*PVAyk9s`K!$%)CJn#?FQG1bz{+}Jn`)Hwk4t&&ZW49(2VV)T(s
zCw9>!<0gpdDdq;Cdl-^U5>t~vWkrg)MM`R#iA7?HIjB)#5u=A}I<YI^V54a%CgzEt
zlHbq-<a9%G(9C8^lA)=YL8^s$qNPQQF0$#wE)L@gfw<k=+}JG1B-zp=$=KN3(9{xi
z;9`=YiK#JYRj5H)T8s{|>BKIU;u3?HZVAeuDQTdID}%JeL{me{#AFi-!z6Pf3!^ks
z6QdYyWYdXVJH%`RF+C|cCDq8#2y_7xs2!1Lkz$!<WMW`ooRngmVquWV#kz_ig^`7Y
zbv>gK<1PM|Y@+;U`FFEjV|&5+h1HZPhH*1fGt+9O%Pfg(Um00g=CbbKZ{SbhcjH&*
z=i+<Acad)!-weJAzGyxhK3U$+ya#z_^Jeop@{002<=M^C&y&bw$s@@9lzT6CKX)Xz
zI@fou!(5ZOlDYIb|1&nR9b_wJoW=Nt^BEH(YcQK9i#hWQ=1i8`thFp$tQ>5LjDbwQ
z*jkz7nNKlma~|egz*)-~#c9qd!ts&g9LH*o4vtg~Ck}b`KkRqdcd}1sFJ%vAH)IoF
zeaCu+brmUV4{X^uExkFIl2Y@MGjbD)vh^V=W#WtTbIMY&i|XelX6ET77ZkAE=40dJ
zmE>Rwa&>g^b!E9>z{aWW%)ykBpA1$LUyzudio((NN-RjsOD#^-%P7gsVL2qu#wn}{
z)&NrGl3!5?x@C}Mw*(ufusU2ktu!YmIVUwSk7bt{8>hTEl5;U!Sddd%%<@o>jgwa%
zNg2y`5jIX?dANz0xryniET3f9IED4$f<>u0i6yBiU{@EjykoFo<J1oZ%j%;@ft-pW
zpdSR$8IYKsS`6{oN`eke&M&BBxvb8{DQ}77Pz?Wo<ALQ4L3JgWxv9l07YSNhm0Fa~
z@{Mpr`6g!Of&2sU&K6rXPW@1#!XmgJv8XsT-WPg#9VnW&>alUkyF+w?Lmm`@U<T6J
zN{K~9iIsZ!Nm(rWh*zFkP|UKQfq}uEjZ;4oVgX9bfGk20&=1Z{EGp3rNzE<DF9P3#
z0CM0F9X3vRXu<`%3#1RsKyqL~X^9@lzN4CKobt91%fM<7ijxxaQlPga738I}T(@T9
zH1|Y`U0CJ<#XUw$g9O3Z2As7n;mVlch{n(i7Ded3K#Ye{Qggr_I!}yZkncf}b4Hep
zQ(hIxPsmPTIZag9fI{&UF_wZ{2(t7T{~QKZ1`ak(23`&(mLIr+6_mD-odY`SD;^|>
z2$-)5Y@G7iSe*|kVZLy)aq<d-W0&PKG}pl+7|zfy$t}puhdJ*fQN9Lw<bxm^r?4d0
zbdXso`7H0P**NtB!6Jl88Mn-w)Oa`0U92ULT=^EYP=k2j4YcelNKDR7OwY_qXL-%T
z#>p$n!Bmo3T*C4USKxsPPK>|<2_gdTfg&5Hv>^u*bS*2C(oab*f+TufrpLHcKv%u%
zGAiLx0b3=`bP<ON_<BC3y-IAH(#9C>fL|D^m%+#)&&DaOi>U;15{E9+3hYK8j%3$m
znubdWY@fR>Qxi@lF#j@T<5B|OVZaoGQwiJ@8=Oku!KRK&2_oDCaVSZF-8HJq_#LMb
z=oy;2j1O@sft~8F%Xk`>61b-sx8YO*^EBgPoJwGxX6(kL1nz0Z8q~G~sO<u-;aLvr
zvvF$Maxf+5=am#?Ch4c7ry7-&WTSE6sh@d;F&n40D?#<XiP@>3MvPv%wl>p8;_QIw
zVOGMTz926h*-Zs`=?FK;V{sD}^)T~6Zerd<oE<PdOg|0TICbq2{thlpDlSM&PK7xN
z#z(kH)|8D?*PRF*-e!96a~7FJblEsHt&wy^`uh3=!fgTb5Oz4KvvDe$BB}Ndf-Ch8
zLa0;IX5&;wisfKbbueFoLq;9HnJ~4?d(hMc`oirF^hL7U49!Qro_;~D!7yh+cnFtD
zYqN2xTOxeq?u(=t%t5Ht(`4gRNAf*b8fGw<qn~7<my(>%%%RW5sqTo^RG7a&VZii<
zuq$BdnRN-f!qGx6B|ViHJ+HZV`h@B_yTe=z<s$s|K$VSC(HP-sgi>dBgeq>dl<Ab|
z>|R`wm;^Hx#z*LI)@0*UHAk2WQh}@*q4KI68>h53TqR5qw2)w4iCelLFP(X_3>&Ak
zI)-j=4b5x?t(%}`LMeS%K4O-WW#g3A#LyfJ&H>C$Qf!>k%9yhLLCkxxO9lD{F`HvI
z6Osm*Ww1LJoRFB0VD~CC&X^xcvT;f)Vz|fIotX!_KS5y*iX~<jX*N!2RScaVdFE^U
zcNygI^kboooLp#OTg*J4pN*4O8eZWuPv!r~zymV?DhCZ|=0^++4D1XH3|x#F3|0)&
z7?{hMLzzvOg_yoEU1i$AG>xf*DTv8{iH|jp)rXatWfw~!iw5(3=4p)OjCu^y7#{HN
z;4k3U;CswBn=hD8i1$2iH?J=*3(szzA|6fd2i()SL%0RGj&s#>nRCA9T+W%qDaCP#
zV<Lwi2N(Mp_GWe~wvTKpU`|7(-Pt&eQ#m}@IE^#m9??gf_M{7Ia3KjHOQT&g#Ha=_
z57t~mR!YDmlp8%5;}{DW*ccd`*f@=&$#Pd>aS3Px6C(%XE(#5T>>+2AW}Uzgf*f+x
zU}JA~R>Ahn=rSC^p#ssUaloYl)}~=tic1BoNy9J|hYEO$hM^6bTcME%rSyw)6LWGH
zxfIwqrS;*_1d}W%$}h<;sVqok)Pm+Zs0@_S2c7E6JO#Vmi1s0KH^_KH4o0XpD23EZ
z&c$H_ym82E2`x{cdZ84wYplyG<iW;ioDTN@38@zKLUBf63Jij|7MyGuC@=_?Hoyj@
zQ(_P_34sl&ro<p<N&_3DO@TqM1PL}M3VXD}_s#1vJi?&@-kV|!V_+D`cdp<r!!RNV
ze#itY^B}G}*VRX2$HVtRf+NX{5`&P_pBE(tA*Vkb3JgL?e-mukIE@35OAYu&X{0cM
zS`7{(C>tCwy3TBz#<67RMx2Pi=!j8266pf?Nl}a%4s4vp;p8|2a%2*t3Pz1jtQ+7(
zJUBes$TtV2<TP?&<1~&Z$3u`=2(V++$#)D&>1#uQImn4$fdX@o6J0a;=Aa~fWsC+R
zv5}76VC*703B%54VYHyY2x#L@2D40n1{+cX816+-aR-w|YXCG*U=T_&cBQ}|lq4ue
zi9yI|(1a3$puq*sT;dcMgpvyDFbZIpG*Ya=g^*fxU}x}P6u@w$h~gVAgrpm(08Yk8
zdT<Q{%mB50!OjrGD1eDI0$Kp`V&rLJ4L~h`rN}o2CFROv6u?Bg2Y%iFBP;oiK}r4m
z6qtjY`1L6;2RZGFaxptG<T3nWX7OU~;eW{z#3;+Wi}^a^RQ|)v?#!u-o0$JHUf`b0
zKcBywKaW3*-;`gOpM&os-$lMXd<*!R_!9VB_|*6Wct7&q<2}T?o_8{DF>g4pBd-!K
z7td3kBRuPQX7E(-gz%W~$a4SXzRA6lC6if?e-q1LMnjeoCJC0s%(IxDFmtk~Fj+7~
zGyGy{Wm>~@kg<s6BFihrw@h`6Zrr8ZQQWFrAGmgNwQ&V<$#A~q+{f9$8N#W+@rGju
zM>|I_hdlcy_QULx*)!Sw*d^JXu&rmSVsm8^V13BCiM58+gH;53t5S)T6M4E5ss9F_
z=M!e-M4sl;PswLFEyBtPnU&W^nv&OM<-|5KtdDIX7-27b99|!7rdfuS6M2Fk+AoX;
z%|x+0lx5{ao-Kz-f@eQjF5=J%ngL|_rp3yMZ89I*+`T+2C-VHRKGL)<c<K`23-J6e
zQs}{E1driX0t#S|DMxi#Ik8Py>tmmxMg%=P<X8?PY=H}+udq;I<wTx&M{+A<!X4z4
z{e%>OrY`qE5(H@460uH$yM=+30Y{`jS1zcra^hTH0v~Q=xy{SUiL{UePYi%3)^Wr%
zXbPR>vMMVlu1R-<g_m%+3!Ib?$}S*+7+YL}Lhn3x3j;eVCwOLBjFl64a#<fd;LGxb
zi<J{Lr7Xb830a1s4>phG6D0IN!3q{Yn_0#a5THo;00}mbZqQt^1S=<GIScAkGRr$n
zR!(el%=(y9%EqjmsaPBA$PKL&Sn~^9Yc><72Uhcd^(dRNa-s}!!c0W&o9SXSQ1w_j
zQHCI~>w=9pS`eum*6=i8<wO~H!fHBtBa=u?DAlqnk(yAdPdQ>WA=i~A#A-sW7{!Uy
zgc755QmmYaIeFyN!q^Q-e)wBq;AFw0&&r9?4~JO+N)~W7{2)QbWb_z@t3hrfBHDL4
ztehzQYplv)Z8`L0ja4yPyNx(KD2YMdfRz)akBr?Or1ltbmY^gaej@cCryYGF^&lr5
zQR4K#ya<l;IP|grCW{j3=w*Q#QBe=?m~s%Q99kAgqh|rEZbB;ygo)II68#KBYC?(5
zbYe9j$7eOMnvf$@n@CNt@BznY6na?zlhtLc;bY}QnWkIEz>m~M#Zh;InsA6p`75MW
zgihzd7H+`hnO7*Ya$+vj(1*=igXg(FVmAY(hFJ+xm803gyb@Cz>VgbRt3mQGV?kCk
zZ^CW{ObyddOsm0j%8(`?%thd)1+$d`D<_t<8Hliug|zKpx?q#c`lw4U#929Y;S;e)
zGtqLaoER%I5N11yvT`Eksr6wK)Y7b+NJ|rfQC4H1dL1MO^ENnW)G_tK<eB#fv2r5j
zz4e1Z6W*xGQ5RpJDhE%3qk0E2`Hk?7G^%$X(#$fD1{y2?!E@pWJ$k4vfXKp@UMRA1
zqOZI_O@x22nGN@_E;h4a3o1|(1K3{XBdDPZouNlK_5o_bg32>LgydG34^dWF2(oe_
z=JxeLllrI$4m4R0n#@O7;*6S>U<#OBAZ>P-Eg*4(rmK+71+pabHAqPT6=QzH|BHbI
z(Rv0af0j2m$_r3$5pFum1Bf>G>PD9D3=E)&Xwd$D9>(bmTxop!d5d_|xVLgjv7cgV
zX0>M#U^>q@oxvTcWWvW}48SKlDo0ufG@1Glyf6d4Y)luaM+<4V!J3%}C8!5mBE&JY
zVmr~2*lm9d2N_u9kMPSaTM0d1UYh}Y#Olqza`?{n#(!akrLjKIj@N9m^Cft!H`cTH
z;q7Ty&>>Wz+Kv!Mx@7^b8(ZiRyR8x9b^|7MNa+1E!xwt^kM*`NM+-gt?$>P6@gaD}
z5;h}1Z60!h4x|rTpb@)U6XPOe#Q-7#jldmCmc#@a$mN<%j@|^%^2HWhx`@d=azYJB
zJGQ_hb~7qQies}NBJc>D<x5<OL-=2_$;FG{osw7!tb)X%l+5CMP(;825upw>*CND`
z3OpqJ*g}!mO}7lk7+Cc_b4{;dgqC_z{*X}o>W44i;=R$p(9!}e-xBhHW|OZc5oex5
zJ42{f<se@H2n$I>sznV+gg8?9hk8*P*1#lkk1<A)<j5x?Ff9!5UJOrMl0@}{W|OA}
zdU!&Pm`1)f7BM`AxTpZJfdV;YBIMD-6WY}TMG1_FY6Q0MB=+=176ul<brZk5>Vc+B
zJ|aTXoV06W35S7ZlaDicSTeCmGqN>iAzjK1>)j*Y?H!+jJWv2joA4z)Xjcy*#F36Y
zM>T?yuw-avV5wo+yzkIAl)yYHNWm>m#)jzmoNzE`=DSO98gfW;+Jde)7Z#9ZU|?dC
z1~)J<LkKE@n&=P#1q+Xq%pwiV%)GSByv&kHj1sNM(+&N&bx8anT_uPx6Dja1k3JL=
zV6IKe%t_VIgq#mfY)&96_6QvRPh9MwctNwt%N0vlGO;xxg(ae}K)Uq=Uh<M%te}{H
zEi8#Ws{x~w=FA0`EBLblfxyI4O2f)ST%n-ZWamOedmoE2@D@8Xe<0a_npLny1zb0_
zKqU4^3XDKx(jq1hNpA1s^Svf7_d^CQ1}z3YKdvd9?(E;$ma|5&urqCE%wy1E(Bgi`
z{SaKPFfcGQIYyG#)Xhl*?ZZS(w6JCfdRW86k=hmr?brgF*z=t*0^9xwIIwSVT*KE$
z!+&iBmK2NE1DZ{45$Jgz(xyPUz6*;P@I}OA2P29J*g}%nauj=u;ugz0eBp?<v5Rp}
zHGFL^QZhhszh;wfIF<$l6KaD3)~rPyABl&zqme@rE{NWsAZ!G-pd|KKFpNYg!~{u{
zcmtEv#xBBhNPQpFaL{ZD2$SSY<uK$d1T`r{1sF0xO$sKq#vDWg4PJYITB@)#iZ&&M
zC{1Ash{)k+W?&0Z6C#g7!w6AsJ7PlAkP6)gG+$^od4;0qbu1Tp!GZ}nrNa^(atcKR
zJ`n+ma(y_q;3W3!H;mxqFopytBOAWlj`u2cL*hzJ6hCM-`G%02-(lSo<j_Q93DnR;
zh@)f`WFxQzC$Wd!VFV|q8WF)srTmWU3C$+oV1nU^NODMt6ZPsnva&m>5!k|$*yH^$
z!c*`T4Z@R%aL{b>3L-PJ!|FQZ<cY8mHF+Y$kzxcc2r>a%XcBvzAx3D5I}#C^q&MoZ
z6?w>^pxNXVKrk?|=F}8qV_<0$p%OJP5#mUB9mND}fl2J?jSL4ESmmuIG|9F@#|k)k
zz=26%Dg=MYX=#K$SOBXkkefIte$eEf$CL|e!jICUAwbg*X!7+Zw^~82o?uxQUbLY#
z%Ms#8<zPI#r;e*2B=&4njDk>jIT3l6)M}atPiQhQFeK45!Weit3K`hgH5k}6_%`z<
z^N4Ys=d7o#jiaWIhQMeDjE2By2#kin&<TMiHx=|g3C74R_8tY+2~2pqotQoevI*Gw
zB$SQZ9%a(OH<m-v$SvUz&}3j><QqECPHUGo`Dzl;V8$|ogWB3fG?-yZQPUN?X{?Jh
z&xL9PwuD9Og{v41W`%p;2J=xi5j;tY^aeA`b2vSr+2o=@a4iwmTfLJZr(%M-4)DN)
zuh>TmOt?7Gt=dTXv4teDm&;;=B<ltuLed;>CdD$~O27x2O<wBgr5(oDHTL;_*fE;O
z0f|tF8juKa<P`(RCSVInVsFyL2ujXZ!~`Y&5g3fIYr=leZ1PnjoX4@nNIX2HB8Mhi
z5WQ1O*a&RFN$l0Z7{SRW2MJER)d$IWoUkV}o4i!XOq{T#HORq<h(KZzC$b4xLzBp>
zk}*P4>@*RfN$OZD!f(hK4A~EwT#N+_-VDnb*tywmu`OdOV%o*j&AyYppS^_Lo<)-R
z3G;g9DrQ$^F{bBi60A>HH-LB4i?cjtS<h0<;>UQGaRtM2#!iNdjBJe7OpZ)E{HOWn
z@aOWI^E30E=bO!!&S%EQ#Cwi+A#V|{6R!l%U!D^@lX>EJG`YWU@8|B~j^@_k`o?vL
ztB)&+OO5j@=RwY1&PYxjj=vmdITmwtF!M7#U|Pjg#(=(i5;o8a+8zgEgJP9&KKfoQ
zm~X)<VF&mkP7efY@+VRg@)#AP6S110<K1AJ5*U{-NMdbNKsKPj>K??YRl1DZ7;iAJ
zpl=F=c^d33s0~O5fjBdjF|abA@At#13BEHlnn({JH%A#`h|~m&25>0&u=z2FVuS*Q
zYvI*>Jbbe?(m_$^`&eO-0}c_GR>*b;MimURVL=AkqzhxiH%j^usT{gd(f}h2U?w7)
zj<!*93Xz&nLff54O(>ylMyw{NtHDv^MXV-hNP{)$V8jX3NN}9M*w8o$N8cukHFcuy
zEw&_54>X^H9W{qIJt*P42z@^?cDEt+Bij*Y2}-;K5vd0nZeY)t5~&9{R%Q^V2Uhcf
z?Xg1NkBl_{(3U(f+Oof7P{GL8XaX3nfw~o(Mqq5zXm2A<4@wjoVMHO!Y*40zu@T!4
z7}bfh1SJY>h|DD@VLJh%sE5X|F5_a1dJg7LBu9fINEf3*z@ieVLU3eYV3>~<6N8D1
z9wzVs62^z<VFHV0P=bN6!C`U?JxpM-$SRS-BnQ2i$EqG)Kh~p{ZdjE=OSek&)Pz+r
zYBEnFQV(+Jc8WMXFx$c5bO=3bz+_Rv2`Ou25@!iY*2pJP4>awA9ac`H9%xbr>q#O`
z4@wT)hhDm24FL4gEtja|0&hg55~&>8h$ulXO0c>Ktq~DRtS00nQ%j^Km;=DUypu>x
zC}|*zSWU=@Ady&2$f=-^NKGioAQHXMf%#aM@icm&1M?Rsi@@06fLV)P=)h!=RU#ES
z8_|;mR`u{gCj`CF!Kxfu=mewZ1+0ou3!Mz&^uU4!?B}iM1qgO~5Y3|q;w*s~1GdDQ
zNIl4DXBClpkdsaTae7cvPBwZ00&_V^q@x!gc|=7$yZ}idQaQ8$aYN4nSlxtHfGp=_
z*~Y-hB*wsQ&z#2kiAjuaGjA!6Cf7C2NzAjEEt!}Y&JCtk0%5nXuP3Z#R0W|BX!4CE
zJY)&K6+j<xK>+I7PS|J$LLPOD4Iz%x2yBCF#NMTjF~}wm3?5{=#j}r^(-MTkL9@v>
zn%wY2E_cWbPh=yohbM9OyJLhW(|1UC;@v|-@(?ig@I>~6CPyu!4WTqVDvvz`n!I8N
z4xeLPn+Bgm1Xa)QqzE4vK+D>2aik@BC?;S_iAkmgi7AO`X`l<E4NOy#lZ`Em6U|dC
zjVw|ul2QzkQ&STSEi5dIF;b$iIV2_G&Do?5pA!xR%_i$8NzQN%L(XKheKT>0eKS}m
z#gh{u)ix{~5sFa55h0GWN*SgZTM!ypCYl(T8>SeTB_)}qTAG_BnI<Qin5UVWn<N=p
z7#OCQfG&8qFvkc&c1}nT;?2zFCZz3@!Rvg`S^&&pVC<=O<cKyoCK29eiLH!8bl72u
z3Q@nJCMtwDQoW1NjxAZG7^Ef{nV2W1Sy~txCmNa=8mC#9CmJNBC7Yxgq^24qnHeQp
z8mAawBr7(^rq){m%kb2>Bp)e)-~XCT0f_{+vtdt~`FX`9MWx9l`9;X396~K>KqADE
zb0?}9*h14V$;jBu*eE5{%+lP{JlV`J$spC#B00&#JT28c)xtQ{(A?N8(FC)c<8p;$
zQoNyQLE?5cVtk?5<e7lpgn=x8LOBit+8F~aGl4Nt&$56gO?dr)8lqUsTvQ{l1t?`p
zpa>*R5|6`xc^s+YL-l}WlXX17S_5kyh4l^Lp$N|hXrTxfN6O$Z&Dg@v!Zgi1(bT{=
zEy*Iy!ra`<*gVNR*}%fsB+(?*$iyNw*(}x2(!wGIBYQK3LJ}nYikHM%1FzpTo4n%4
zY{0-m1vzUY5*%6(!V@S`Ji;9YG67pSCR?VOC#IPhnWb4+B%7F-S(+qSCYc!;rluGg
zrJ9-=8>bjsBpN1T*1m#i#DpV>i&GGO!{rA}F2-yIXNL0(Eahy^**5c^;h({9p2eAE
zHGc~Gc76lq<*e0wfA~)FP322syv(Q1-pu=(nVa`Gn>d>{?-brdUR|DFOpAGrvGDUu
z=85Og=Kjuon7f}lnp>UuHrHo%X|DZj^;|t%kxbW_*cr_k=X0rYe&pQC{+d;oL!ObD
zvy1gHb1`Qa%Y9B|rhHa+c7Kld%=R3+Iog@5If7Z&GiH-q>l-s?GC__7F)%btN;Wh%
zH%qlJvrMu`Ni<1KHZV)IFitT|voJI;x3Ek~N;ESyWBP#5V`yk@l4hKgYHFF3Y-VDR
zl$K(VWSEqcY?f?bY-wz0WSC-{Y-VVX!n7Wt#~?M)JjK8y)gUQ3H6<y@*fh-~$->OS
z$kf!#!py)hCB-N)(J;x}jA;^+HG>JM9zwDw&B)j?#n3#>BE>M#$lM^w$kf!r($K)f
z)YQ^EG07y^(lF7$%-Dd*3`vifd8&!2L9%&TYO<M;K}w>9rLlp9sj0bfiiN2`a#FHE
za#D&#aw6kXBt5AnhN+e&i7Dn5W~r8`mPRJV#wO-wMy6>d7M6)dmPQuFNtQ`QCX8p9
z?J4n(p^2GEs)>nFTC#yfnvtbtnyHa#l5uLHk+ET7T8g2eiK&5+QEH+A<60!QS(+v#
zrJ9%;T9~AonOPbdnpv2dnwlgUB_}1Bo2QwYm>47*nwpq0u0+xUiWy@|0|OJY#AHJ=
zLrcpP^W<bRGXul4q(lqTG$XUb#1sq56vpL9dd!VX%#AFPP0USGOi~h)lM>U6lhcxt
z4U;WRjgnGRjnWJZQc{yl7?-iGrzi}JEDe%P3{p*uO%l`6EKH5f6HN?_5>t|lQxc65
zQ_ai`6U~hb3{#n=Ai2#b%``2=z}O@u$;`miEG5m%$RgR?FvZf;*dQs{AT`M{DFu{<
znRJl!Bv}|H8kr_qq?)9q7?_!+S(+v%85o-xr5L4H8d(?`CYhufo242sg(B&(v@|kF
zPPQ~pF*7tXFicD|PBk=6HA=KJO0r0`G)_u0NK7#`FiK_;LDFMrVQy(;YGjg>YHF02
zWSC-NWMO1%VUU)Zn3QUnVr*n!o@!{6WW>aZq{qO}*x0~0*}}{yCDAC=B+<aw!Xnu+
zIn~6%I3?NG%-F=(%p}#^fbk!a9#H!!Ez!)xEXB~sAT`k_$;2cvF~!&*(a6XwE!EO6
zImIj~$taO&1456Xu~Dj-Sz3yzv4Oc^im9=MQL>?#k-3p&VzRMOih*&mnW>SXg@GAU
z5Rx8)G)q$hi{vCTGgHH4W6R_u6AKFyOG6`La0W>Mg=30ossU36k{%OtqhwQaLyI&}
z<Jc(G%)r9J(7?hd$=uK~$tW?+(j?6&(b&|0X*WWTfw7@+T4JJ^xrL=cN|L3Kg=v~W
zl37w}qD7ifYFe^cVv@0$c}j{o(-w|k%F>&0s+oz2v1O{Mp{b#1Vp6J^v8h3dWuj@S
zX|hS0iMeH(nPG~t0aF%|+su;_4UEz(lTDM;Qqqi!%?!+wlZ`BlLH$dEBm+xx1G5x!
zGgAwuL?k_+GQ!xzBH1L#*ucQRFxAA^z{K3##3U)r+}P06ASun%D9P9)jVTIAPckSu
znHgJHq@);Im|Ga98YG$+rx;kKnj0D>8k?sjS{R!prX(}%N77?pmS|v^WN4CVWRPZI
zoRpTFY;2xtX<=cSWR_-ZoC?ZQDJEvgOw*9{n3@`c0yHt%z#NoHEz^=x(#(xaO-;;<
zERzgUlhcfnOj44WULxs9Hcc@%OEEMyF-bDDNKLY|FtIdAGfXzLG)zo0Of?2I-;FJk
zESLomdJIj{k}NIEl2eTnO_GewjT0@>%o0Hj0E-m!RKp|_a|??^P|3w~1EI&jEX~wB
zEzQEn%)rRd$RsVrB*`GnGA-58$lTa4)!5j?z$n!`&BB!F0+JphGozF=3sX}AbHh}#
z)Fi`1gH(eQOM^5E3-go|Lz6^PQ$tHj152hO2t9@dmdPd-i5A9&=4Q!emPQ7~=4J+#
zX%@zosg@>b7O4hC7Un6&W+}{^NO}y74bxIBjEu~a%q<K|&CM;%3=PZ-5)D#~4J|E<
z4UJPR%ni+rQkjJr7#J>)TF(t;^+wE@jF2{kp^34nd8&bFim9P_Qkr?PfpMB?T56iH
zsb!+6sfme^g_)&UYEp6%H&U<}C7GmIBv~e=7^aw~rI=cp8zm)Lm>5`Cq*|mU8W>on
zn53o|8(K1&BUxjZmS|*{Y?5SYYG!O~X`GmBX>6F7m}qPSDpJi%zzy{@QzKg>YYfbj
zl1vRv3{#VmOj8prQ%zITjExM_49rrJlF|&)ObsoQQ_U=r7`7nv7^J1985t&7fU96j
zvlQcGOEcpna}!IWMDt`*Gt(5alr+mE^F+olWIc%nsix+JDMse0CMJogrpXqjCdQ_z
z$%z&gCTXTAMrNQaVwlWu8sQy-<kU1na|6?)WCH_Ja}x_wV~fNj!(`KB<Fr&Gb0cG8
zBXiR<b2D>R6fI^Z=7x#MhG~YDX-27*#%9TBmgW`)pcH0iYMf@83aTp7%8e22y=05z
z6btadCYA<9W@ezm+|b;>*wj2R&C=Z1#5mDBEyW_ygkcGio+L}tq*PN2;}qj$Q)44j
zV++%il$0cc6p$~BO%2VHK=F{2#2AjO$1FL~$jHdd+}JWX+0w!&G1)lDIMKq~*upT)
z)FcIz4GoP<Eg3$c=rJ>~OiM~Own(wGNK671glQH@$!X>$sc9C;rm1G;W=4hv<_ss0
z^%xna85*W0CM8*>rWzYqrkR_WC7YX?rKY7N8-SuS(ZnLrEQz5TNl#*0TC!Q1fl-=8
znq_LLd7`Pgv7vF2xw%EMWr}68xmlV;qCsk68Y45Z9<yXiQ$r)m#MG2zOS7~z!xYdd
za7IR;fr(TDQ%gf5GecujBZh6rdW_9elg!hSjFODaEiDW!%*>694bu!v&61Ln(@YFZ
zKtn;sMurRvk@Q$5g2Fi^#WE=^(I73^!pJnyFxfaU+1$d!!ot+V+$bq6EjiVI;SN$V
zAaX3z1=$*N1B*1%6azz(R5OE=RD<NyM00~A!z4=saC%ELH%PWHvM^)xLbk@lI4Q{j
zTr(M3SQ?uerWmD}r=%qsnps$;CL1TEnwXfGCM889S!0oAk!oa;1`4^<)MR7RRP$5=
zW6M-CW6RV;3sXyTb4w!&12YrGNl4aMq#7C-q@|jIg4sO9G|AX7$<#b4Inf{~E!D`(
zz|_(pImOVzv=Uj1rGbfYnu&R0a+0~Zv7x0wqFJI*ie+j_l9^G8sfB@=fw_gLX_5+(
z%ghs#EG*0|EzJ`xjVz6l%~LE5j4hK*%o3B#&617N(o$25k}S;<8I~dGF-tQ~O*2U~
zF*Y_zOifEQHZ?U&wlGdfH84vwGcr#ywy;b}G&iwiv_W#3S!yyU8>gh1Cnp<#Ds)g2
z+%hrA($qLDG07s)(%i@*)yOOyNsDQsu`wu#m?Rn}o0=J>Ss0k58k?n=nweOdn;V*$
zBqy31o26K!Be~4P%plp+!ZOX+(%d{T$=JfgFfq;4GRed+$uQB#$i&hh)yOi<AcZj+
z$r|G{0|SHPG)sd-)8u3m(<D=4151nKWD859<WvI#Gb5ukvqbaMG;Jhnj4dpU%u+1O
z3{sK|EkPxXp-Hl3Vw$<BsZol#v5{qRa;l-BnGwSZBt1sSNye6@rUq$dmWjp&DQOmF
zmIkIKrsifQsg{;WNv4Sw#wMnQNeqjS^cbcYr<s|VB^eum+FEHT78Yrih6br7VEYr3
zQcM#qEi6rw87?E~F|af<0||l#^Ha>tERxKUEfZ5MlFUrZOhNUwr70*Wnlb!D)?=2E
zoNS(GVrF4!0P3}Yx^m_Qrbgz;W)_LY$rgqwX~yO$X^ib$jAjf@4CfeFZn7+8DP*x_
z;bgwbypTDU*^-fo;T-=N{u%r!{07i5fJ8oB-k-e3cqj43@oMpWXJ+L&%+t>k&7;o!
znR`EX4|fE&3fBj&JzO1JAzTWaZ#Z{wwr~b=%5uEq*viq!;maY({*-+qdo8;syC~a3
zwzX`PY_4pAtan*gvX-(svhp%rW?I0M!(_?C%6O4+E@Kv>8L7<zL<ksKCK{xqC4&-{
zWukeasZm;Tin&3Wd6Gejk%h5EQmVOGs!57v5@Q9j9uo_5BXbi2Q)5$8V<RI&V++&7
zBvaF*WK;7L(=@}RG)v3GR5KH%hYSpi=Sg+jsQN)00!T?9%`nZv$kfm@*(BA_*wEb2
zBGEJ{+1$+7&?3n+(a0j%FvTp{BE^JR8A*?YrA1n*DX1N7lxAvZVrgz@m||gMo@!=j
zoSbN6U|^J-2CDNJz98!{wlKCZGO#pDNlZ0QN=-F1N=`FOOfxV_G&M9dGc!(1Gc-&#
zw_uuxqzBXmG)*;3OEEJ|HAqV|Ff=tWwlp<PPO`L2N;EXEFfcVTG)PQgDn!;}YHDEu
zD!!8pjM5AZEfUj=k`j$9l0c=pS(3R$DyU>gO=Gl2(qoneYAq!in;My!rY0JinkJ=L
zn5SBpn^~k97#pXV8XB3W7^WF9en-}mWM-UVnrd!lY?PX2Y+-0&o@#DvVwz@YX_9D`
zm|~omVwPfPmcp<JS&x~irA3N?fr&v%YKobeiAkz~MRH=YxjCpwYL=K}VgVXiGhh})
z)?;dE0%~j-C0ke|85kHOrWu%~85<g=SSFjL8k?G=7#k-h8(K2PBIz+rG)%HI0@bZ1
zhUVtU#s<bopdlpCz>%e)WwK$asX?l_VG82{gdU?*Q=_C5Q$tYS#>_Is5ELtkCQ0Uo
zMkxjsNr|Qw$%dvzhKZI;Nd7TOH8wRfF*QvwHL);DHU`zfNhy{omPtuwMn<VAhK81D
z#>S>;rVLY%?J+hmPP4R3H8)92G%z*-^>~w$EX)kdEYd*LouP4RibZ0oDWeCHo|I(E
zWRoNdb2CfBM9>gcs-d|_YO-;PnQ>x@Wm=MHvVn!EQJNXkY7{*NNhYS|Y350Z#->RI
z24-d{hL(n==Ad4nv2mh_QJP`0ahd_cK_orNsmaM{$tji=hDip7mZpgoCTWIg25E*C
z7DlEPsTL`zhN($LDM<`FQS=xjCYz)h8Ji_rBqbWBf(I6iOp{Ga%}qeVIVpxIiN;1I
z3}2D;SeT|7q#7C~r5S>1;N&FGfS3iS6>pMinQCBZXkcV!lx)G&kF3W$*~rMm!Xzot
z+{nVrA|=JdJk`+9G|AXJ&Dhi+E!jBP+$b^Gf{`6rkBM1Il2Nijih)^jQnE>sp|PcL
zN@}usnz2PPXdu$Uz}zg&D3!4mNl#LmnR%jxsfDSbS#p|riltd{s%ff)sYP<CsUc__
z#mp!XG!npw?4P7mLxZG53uE)-G?T;>gS0fz=vQi@WwND(xq+Ess<}y;sfnd2qXV)%
zW@&~-DT!$&DQT$&mZ0%Ai^NpWG+>%hlDUPssj-=np{ZFCGar(kL^C7MNLR99l9{EY
zX<D+Wxsh?AnQ4lVxj{;bVWOF_VNz<6xdl@kk{-*{WP@ZA3qvDIOM?^(<HXdIG}A;-
zlQ}6d1=N5sPfIa0H8Et8K-Obwlw_HdY+;gYW}a-6nv!CWY>;SbYLN&^H0G&Brm2>x
ziAe^`NZno|OQX~zP`@bAEHTZ@AlV|xz{D^mDK*jDBE>MxA}!U-B-t{}!i@13l06ow
zMk$FYmX=AW7RhNADWEiJkd$Jan3R%|WMN@pWRPT-Xlh}^fHYcdWMOP-ZjokeU}2P&
zVxE#_Vq##Pl4fLPWNw~llALN}lwy=*U}j*-h@4N&QxeUMQY<YElTs`!EYeI24N@&F
zl8sH1O^iTU)xadpz|u0!g3%4hZRUxosc9yb7Uo8YNfxGQ7O57=#;Hc824?1I=4l4W
zX2}+&7O4gnjQWUnD6zM2m?K$ZW}akXnPzHg3YsV~H?vGOGc&X_Nij+@F)%bqOiWI*
zurReuGi1s{)?;RFlx&`AV3BH;m~4`0ZVVm_O*J()H%U%TvM{hTGD%IgFlSUi(qn1@
z$|#2BNtPy{;S8e`OJh?5OH;!{W5ZNK3j+)D#54;7ixh@+NP0}nlFU;~j8alSy=h|;
z^F)gzP{+y;G$fjsoMf4jmTGElWWm^ntjE|iDaFhp%`h?5C^gl@!aO-8#XQX*)dE!b
zq#Br-n;Ds#CYm#vAn7qqO0h6aPBKb0NHjDvPc}$P1P$sYCnp*tTNorKS(+pnrW&N0
zF{L2uF)>ZDFiA8Ab>J=23=EBuO^ggo4ULQ~l1z+@P0|b!4J-^SOc|yl>oG_)NJ}v^
zG&f8#OHQ^lNU}&WHcl~0HZn9cGq$iaPBKn5Gq5yaL>fFaGD=P{GBGeo1C1`4nwo&d
z;?t5+%?!;A%+r$6Qj=0m49qP|44EvD>@iAAHZ(L#HZn0uGqFgvG&D0cFix^C0*wNh
z8k-mygGPjs4J?_~A|)MAcRI<y$S}py(9F;vIn5*)G`ekKWR#j}oNSV4lxCJ<Y+#gZ
zjBE|a-6^SQi6&{L$)LV`vH_@@la!VQ8ed9HF-$eFOfyMi+KZ&eFg4BGG$qm4EYZj!
zB{?O@DACkB$uh;*JkiM5AT`-MDaqI%$-;!82U(9%T9S!@k$IwFqPcmhg-NQ3k+GSP
zWooKPT9Rp+Q8K9XPct`TxPqd`BpEc@V`7<NngpuVL4EL~<U~-rDcJ}Vr-o)miHS^_
z2t9^rNhv9bpdrSTRO6(SM9>gts<~-$Vv>Qmp^;^>1!%z4FfoboII<p#L<93g%OoQM
zi<CrT<3tMs6NA(ga39z*F~!2fz{J$Z*w~oiI3lPGQ^2v3Y-*I8m<$><GBz+WwE&eR
z$%!e(rpbn;#zv{hhKUA9)+DDSnphennVTgV85@Jj0Aq7AQzLUzi$p_1Lj#Ls3v)9=
z3xgykq#l`JvZZmFiKP)}T)@l}G{&EtW&y523@yye($dV+ER&Or4AU46AlqY>lwxF(
zm}Y2hX`F0e2|89fH6_^yG|p#|2C5R1jm-=!(imPLc_-P#)YLT9#3(sA(Ztvy(ZVvx
zG|4>8%+xg1$js8*z}Upx+|tt0tPa^4V<SUDqa?$mR8zC0M1xe5WJ`<W)MQieIIwwY
zY8t2mZJNkbjjYEY)!fv;EG@}ADb+GDDK#Z2(KI#5A|=f-)i~9}AkoOs)WRUunCT{x
zo}|Q-6l0@Ai$qIP%hZ%aLz7fvQ_xVLxka*>g^97bk#Sm@aZ)1FZDc(bCI*H{W~Ql0
zCZ@&)iD^lx#z~-ov_umN%Txmc6GJ0Y3xgyBMx?<*(Bu#?i)*})tVv8VwzM=(G)+r3
zw@gkpOineoNJ%sU4IG&pr=+H)nwcb}7+V@L%tY3cn34o)fte&*m>F1@8zvf=7^guR
z{E474EXmX;Dbd)3@i(#_15jf;Inm6(!Z^(WWTr)`nVFHLrKz#01t@D<SX!o<Su!98
zn`K&(xq+dnWpav<L1JQZs(Gq;nx&<oQEG}=s->A}a$2HEQnHx=(;p;zER&OyQ;kiN
zj1p5*jVvw9(#$N4&C|>clarH8j4X{)EX)m)P0fs$>OlAZ@iIg(aIfUs%$v^hjVqQ@
zkNrQ}8rB#VIi_2Ta~LAX>$NpGmJwdX23ymsi*%3*Vi{UyUUE)pN-B~Z+6oQ)+OaLq
zFt8+Uqz_}63+pEE@{G6KPpG+y4ZjC8o2*L-FB5`o%+b|{pOCK$TOSG!LAWBc5QK|k
z(TpwpjLi&8Qq7VrElrFK%#2bDO+c&uK$EGaCgv%rmZqu3#-JiM4I}*6Ul0?1q%IS}
z=X}j3#}dLR5Vj&n7ipao;=&1d_`#K-g&$lTt9EQ52$})}ja??2q?o6e8=4uUrWhs~
z8YY3J*p1W75{(nhK)vTAj1Uyx2?;^=Kh#Wt_&uQ6WL-=+1!7CZ7%3302rUHR;z-#X
zrWsrKrI=V)TBfC#CmI?V8m5_;TbLRerWmItr&?Mh8e66rq=HsIn;BbTgdh6@V#1Hq
z6o}9HnoYh%=u0Lcrzj!adWFceNLer*zHke)&J3Ok;mI8>4B_H9jldR?24=(!;A4a&
z(|;mDlH^?<ggv3z6i`TTRWE#n9&(OG+lU7bP<ZM`3sAT?Qnp4j16zoirlh8&SQ;6b
znx~kgm?xW?Ss11mTUwYH8ybPeR?<?;Q;khhQZdsew-hlUO5&<sVnRZ*NvDADb)Q(G
zhTL=s(uXbROj44~l2Q%QEG-O7%nb|;jm-^>Op=q5QWDLKOifHplM+qM%nVJ8Fs}O)
zh9*W9d?(G3eBCDwA8R)0<P#1qEM)@7+wfEemq$x=aB)OY2-1fwxGYUAEE3Z|OGL~q
zjg2e}Qq7H0(^5<gO%jcgQVkL<3{8>@j4TY2F@j5w7n0Jb8(cVCuG!?7hh6|;t{KOc
z*-+O@!$S_P6fNZ7;z;=w)d;MCm<U=#X=q?<mX>0XVwPx`l9ZZcl4hKiWNcw%3>xJ#
zPO`MLFu{J|(ObMhNa7WWggv0y<dsEm)ic(G{3)>50VO6_P$E>K1|>oqX+r~w3D`n1
z)ey9{#MIIRG&W*lYG@1^wlPdhwzLEd6C|0K7$#a8m>Z-pY+zt{?HII2^$he<1ZH<|
za=ax`hObd$iFePDxfxNHA|Qu?W_~Wg3l!l8kU)bBS2)4KgU|(vIRtY8*04vty%Opc
zq`1N5EF>kUM!?)l&J~K-bHXi|IDD~3((VZ&!a%dhE1O_Wz*_lXZ&ktb9%@h`#E}XW
z6cez8q^W5#XpO05s)d0?nniM|L87_2X%c8q);P(;$jBtkJTW=VEX4w&QN=L@k`wTU
zCH|a%aX2MmKWOrD1TwI(K4f550-yh{%KDJAj<b%uKL4n$(GVC7fzc2c4S_)v0!?-q
zgm1`&*MUfN9sG`4Sfc|`n-Eb`!gXV-CCv?tjFZek6U3&esi4J!$(ELurlv+FsY#|u
z$%Y1?S-fOJOCyY0l1T+pOX6=Yl6pffUf*jr=_C{G^I<Upxw%bB(1G+}3p6v6lvJZ6
zOC!^yGy_v3%Vd+Zv}AM8#*icngEUhULj!{pBg13^LySJ3lqe+7MEdYF(@5?j<M6R2
z*B(aQL6rOlw^N#|GYOBcVhL%?5q`KLBJw7_@l^}MB%>rV6QdN%WD{c}69Z89ILQn&
z<75ij%V=R{kZfX_Vum?}#a04IW%#ouspG3~Zy^;-Fz17gkH{R{@jFah*JPbWFqvZQ
zxxtRHgH<62MX1RXA&%5<g=xlC7^WnpnwXgySs169SeRIt7=jj57$t+&a+sK;q@@`d
zSz06-85o&i)F8%+kYtLtFr>;UCot!0Hu<Ka_x&-a0k9=>9Mb@BrKn+usAG`w3aSy<
zLeeZX$t*R^)Xdy8(KOY_z%(hz+{_?3G0`M7$<Qp#!py?VIMLKH2{XfUWD*gQBu@jt
zJ%`g1noV9Q1pEJ36BJw!RK=2&BvDMj7MiIB=0=8QNfxFCscA+A=EmlxhDK&dMrKB7
zDP}1qW+^7dsfLCo23Yq0{~{tZNj<;_?p&1XL180Xpis~R&HrmLOkv<(#P7oQjIV=F
zi}ws~9<Kn;CY})PZ`?Dut+?)R)p03s9^y>lWaC)D;l=)jy^r01?GjrFn;7d3)+m-g
zEb~|#m>)5>Fsm`0V9H|RVO+-;!0?G-3c00UOdVS$0~2Q?bkiM?D_U&TRdQ2I6;wcr
zZ4;9cQ$c&b(#%qlk_|1=j8aStlM>C0jg5>=Vrr31w=gtINli0Ou}C&GN&)TrGBz@{
zNHzzpT1zuEHZ-zKF)}brF*6o&hM1lN+VulkL~ERCkz!zKn3kAgoN53XC<g6eH#Uf=
zK{h=#EiKhNCB?`z(ZtZqz$huvFx4c<JlV+7#30QmCDG8>%p}>wG%bl^Cd70zqm(3*
zWMc!<6ib7oq$JSZ!8Fk3cFWXcOQW<@!<cGh(~S*Nk`0Y4EG?6blhTY$4K2+rEsTsT
z49$~_%#uybj8Y9PO$-dojoHi~rW+?Grx;mU7$l`w8kiXxm>QcKnSxfFTbLx98X6l}
z##AAjZkd>7Xkcz=k&>F22HKZnVQ7+OXl7su@^Gr5S#oNsu}N}bY6{m;i0S63hL+|@
z=849p7Rew3EmDn=O-+rG4Gcj16pNTjWYZ0Z+ziEO1Tj6;#K6ojG1<T*G0DKp)YLH1
zC^gN{GAY^6(jw8^!YC=G0@-vk&?a>Y3v(mT5m?E|MoE_D7N&`oM&>5Qpk+qMptZb4
zNvW0w+7Q#t%#97xOf3wP4J^!45>3p_3==I<&COCwlZ?zv%#F-q%8^YsNKPeccOo+*
z#Pk&7L`%aY^Q5#yLt|smjuc}9(=;<v3o{b~)8s^>#F#Q<(=E*mjg6Abl1x*QK$i`h
z8d!i90h*gxn3<ZVCK`ekLxZ*$BnnkROi#5mH#JN)GqeO3Ey)HZ=Afnc<_0NA29_qK
zhDI@^$fld8fVM_knx`gOnwXd*rWjZnC8n6BnI;+}gO(+jCR-*M7+D$`NIrp>ZUKts
zG|Qw^^OU3{Ljwb|BohPB@epZdrbelWX{IqH$fl=Qnj|Hg7$zkrgEk6SB%2tf85$%T
z7^bAArKTn&nx$GKgN_EU6ykuGZf<H~Xaw3mm6~j9m}X*XYGiJfWMO1zlALB>nU-Q2
zQ;cl7d0J|UL7E9@F>;cLfkm=eQkuDurFp7(qFI`yiMg?1a-wOnnL#qg9f;|vMy6??
zE!t*@MrJ8SiDrqW7M3X~sYXVohUS)OsTMIs$fg^E7Oo{)rWz-K_QWTp8JeaVnWPvR
znHd|HB&Q}O8-fn{Ff&V%Z-JO@l9p^~WSW``+Ps)zmTH!4Vv=N*nv!anY-VX<ZeSTx
zh-|t^s#%gna*Ba@YMPmeshPQjL1K!ffswgcijk42rE#LAshOdXMUn-_ZHVaxMu~=I
zW=6)Qre>*$iKeEeiROtWX=#S3W`-sf1_r4y1<0l+TNs;KrkSLfCxd3M%o9_L3_;aR
zBIvjRV-us)B$JdxbMurW9tVi&CZILx#%W0@ptX{qb3{^&Ksn0T*fiBJDK*(RCLh`K
zG;@>G#59YP#6+_cQxlW4Br`MPq*ODbWFydO_!JA!F(H-~NvX^s5Yr9J(oE8fjLbp1
z_Y*CQOw243&CE^AQ_@n6EG*5;EMxMJO;1TlF*5?~xJ)uj1?{a)NlZ*iOExo2G%z+a
zNi#JvNHsJuPc=zpmV}s|WSMA^oM;HzQE!=+n3e*XA2vx#Of^a|GfOfvFp9}VHa*qU
zEG@~vGSxUSB^k7w&mhUjEY&pC(!$IPR2mzkB^eo5S{RveY=@Yhm}rrfXlk5fo|I&e
zWR{X@Y-wg;XkwX?mY4`SJuf*X2ibJf6eD9(<1~YmR5LTP<TMMjWD864<RsH1(<Bp<
zR1@<=Q$u5mBuhi4cM#K)l9CKf&5aTb(hN<KlZ}l`O)U-0Oj45!3=NDxi|S*tkxfrB
z2W=rRHn&VQOf&|yW|LDvdDhb0#K1T;)y&k?C^b3N%-o#iJH&JY(B@kcP?eIJ3|cN~
zU}0izX_=Uml4zK0WRPkRlZ9+LXs05`otDX<Q$3PQ6Ty2%O_D8)OiYXoO;b#bjFS`1
z%u}5@A*QDonVF{<8e62M8JL@;n3)<I7@HWHC7KwfB_*dMn<d9&BAaeulwx9$m||dT
zmXeZ`23ixFlxAp_nqr)2WMP_OXpod-l$>m6p2WEqVtTSA=!}JAqa*{96vJdAOG9%b
zP$Dx;F*PwvF|tUC$v`&U*upZ^Fv-Zk#KJJu5_EEbrMX3#g@v)PS&A`edrn$XnuSHG
zkrCq$i0Q_lU07zxpp)wiQ_NFLQ%sD~jEquJO${uQQ%w`iV$zXKHz0DKs^m?G>6VG0
z?fk~3$w`SO28NbqmWe58#))akh8Ct~28k9aF=@!An<gixq$HbKnx&Z}TclVR8Ks#T
zry8W1Cs~*oCZ`xDS*9AArllE~bFf29H%~ORNK8&mO$Be=OiWD%ZJjVTPc$@7GzRSy
ziAhB^-6X|0Dbd2hC=Ikn%*f0r$;i|UG@ET?nVe=~WR_%Znq*{@l9a}r4mCa1%+fN^
z%rr64*ucOv+0r;ECCSu0ImI%`1a!zrVoVCM>82LOrbY%97RHH5X_lZ?h9&5jlSDJ)
z<m6;?12eN^P%<_)Gvbqnm~LuekYa8Ls(&p~jLp+bEYd8E3_;P5YME$anq(Z4jAD9{
zS*oFhscB+Lin)<_VhSjIn<piw7$qkfBqtgqS|l5#C0ZDoGDF)0MwY25scFf^DXGS$
z$;rkR$wp?DmL`^Frin(W#z{#@F-gd#r<$Z$rWq%vrX?nu8l@%~m>627rWsh8ni+vg
z$V5vM%S2F<(VPid^MMWz0d1xS?XEF3wE(G0Gc!!KFi5pDG&3_xj7dZ`-NeYyz$C>W
z#n{-uz%bbev@+f_6|}=I1+;<G#N5y_E!ot<Fi{`?5;7)<W@bhvh6WbqCZ;LIpfh%i
zlPrxbLG`e?L87I3Oaij$NtOo5i6%xyM#<($7RDxtpe+=}=7z?gqkmG(Ee$O#Knv?l
zESY>Drl%Mim>5_lf<^|DQw&Yb%?yo=lT8y%QZ17~`)ZP6;*m{H1{J)P$wtPeW=TmV
ziI!;=hGs?vDM`i#DQ3wgsb--1$I{f?fWsYPdZMLeT9Sd0nQ4-lxuL0nX{x26X{xDN
ziczvfl0}M%aZDVt>6W0~NS2^dE;%vDDAg<_(I5qM3{{GSsc~9rs<}m~rA4wuim~8H
zi0MWtCgw&aNoL8WCaIu|Xla-RI>*G!ILX2wCC%J4CKlOr@R2%($;nBH7ADC_=9X!O
z28qdOiD?FD#>Pg5MrJ0Ki3W+r#^$V>Af~6K7@30(n=(#IGy?AhOfpY2O*OVOH8f5(
zF)=cVi9t3!&BVeO)Pb-_Nij7@Of^dbE&Df3F#@IDWYBp<W{IF}28LWB5YtUkLB}E)
zC8dDQH%Lq|H%d%1OEv*j?J344DMraL(a5F~yBZnhc4NyF(1{$Tre;Pd7HMe~W}x$M
z%#uwklZ=ck(^8CMqL57|cC9Y^3y9lIjZ#cfQ$V}A3@nl?%?vHgj4jPl%|LBnBXf(?
z<d{fg(}`WjD!vn9dTOGPnHgw{j)eiJQb+^s6fsT%9o}PXk(_F78WVwRI<c!f*&jem
zPfRgQF*7zbG&D9fFi0}AG`BD|NCRy~NHj1pH%>B+2}d@a*p-h={~@L)8(Uf!rX*XK
zSs0ju_9&)UCK{R=7^D~&7#O9b8XLrfA)9VW<SIaJDTwK5X343EmWipxDWHw1sm3XW
zmL|rjsTP(drUsz>2r;3^rW3nRP8jO;G;{N`v?OCwlO#*SG-C_URw~QHG_xc#%QTBL
zV`CF8_MZ#^3<nwbud?zoo@DZ6eaXL)zm`9UU!CzQ-*3M2e2du}SuOd>`MlXZ`4o7+
zFiP^C;GM%;!0W;*$@Y=qEpsDFC)-h;w~VgLnoJjY4)RQ8o5_>OI+4eYeIauwk1)F|
zQzheE7DMjm+<VwWSy;IzFcxyBGX3SY<mO{u%k_x)Cf9bRrCi<YXIWxd_j1Lv<#L&@
zrm}2hdC0}VaFFv3lOpE^_EOFkP6m!EjD;L4IchlqIaHa~vj2pRE@(4HGC=~;5VWr)
z(KyZ0*d!?h)Qqt(PfjvVN=!^kGD|YFOl0Oms5LN81)X1%WDMF<XJ~3*0_w_I7@4G)
znWdQ|nHeyBK~ig)nrvv9l$L600NVYRWSo|kVrXD!WRPTLo@Q#4%+!pe)-u)1D9yyc
z!Zg*)&?4C=$<V?yEjh)=!o=Ldz`)#`$pxX-(7@6lDcRT{B_$;>#lpfY6|^NUB`w9!
z#J~WwL4=tfq1GVH0CcRAsYRM4$hfpL(6Jz97HK91DT!uDX6B3^kklF)8G|;5gErxs
z8YEh#CZ<}Z8kt)p8k<=pnphY!{zg)3l$x57Y>)`bkA`N6iAHJ3NuVRQO_PibEK<@^
z85bke8YY2iPXps5GedJz19MQf)Wp;*#l$i(%^0*xjqxf%t$|^pnS~LkL6m5iVr-IV
zW@ut!Vw{?km~3opnv!VBcnL{us)><>MUqKkvQe^`nQ2;*d1_jUxv_Z~Xcwn}r3K?f
zgjz#WQ$zDqb3+4T3uE(C^VH;I(<I|0(1~5CiDo8gMvPAoY7G*N3{p*vQ;f_FQ;p3G
z&C(JRO$;m&EsagmlG4o0lNj$K)PnZhTbhFQ;(@l<C7FSCzNc9l8KoL0r<#NIk3K`F
zHLy&z0N0j=h6cu|ph4#(Q-c)q6eGiwloZQEbEb(%YEwYlW{nM!P0|w0K_>{L8Ki=$
zrDUTdW5X1KB*r~RYAwJ)Ym#PZ0&21+8Kzm97#bKQniv@-nx+`0GR;A#H8eIfHcB%y
z1D!>dYMhj6X=#=UI`YKCC@s}2(J+}=5k+k>=%6Q~RMSKYa})DaQ<GHlR5Q@gZKi2y
zrYVfC5NZw5l2R>AO_CB*3{ulflPyiml1&oL(vpk}K?md*m@=6lt2Ht)GEYth?T<1A
zRTCy@h6YCFmMMm5sU}8dX-v8ZwT5QN$)KHUCKjN*PKKbv6%#?{#+am~7^Rq4rZTA@
z)EZcr8CimQUY4MZ@CJ$I$)If|W+{ou7Rd&wX{k)T2(^Y5CMlrJfhLKjW)|kD$%&xx
zCqn~M(AGgC!?YwO1!T3!$%!dRrb(cE)=8#D$%&x---+gy<_2j=28n4*vIw;X28qeZ
ziH3$oX-S}<OEEGuHwASu4U^0*5|b?qn2^g76JtY5qf`rvL}Me1RLe9|&~X8Y$*Gp6
ziHYV(X{JnE2y+cB4ATtLKnHmlrdp(cHmaK?8Kr{G3$;i|GB+_{;zX!5NH#SDc__^s
zbV!7$MWV5RIjFoyHnlW1H8!?nvO=geG&eR$u>j4Y8>FNenVOlT8k-xZCZ!oCnI#*V
znI|zVN2oP0OiHv!PBJz#u}CsAH!w6ZN=i&N1)V_yItCymnaLGNZJL=$s;Q}|xfy83
zW3nY^EX3H{DACv`4Yc<)nW+^?t#OKlL261G=xl3?)HFk5%cMlJG_z#WBumiHn;BCv
zLam{BqCqm~;4nk8Btv84L`%?#OQ|L%1_s7PiAIT*OnC^k21$uV#uk<)#-QUDlPt`V
z4O2}`4O2laGIP^3BNL`vB()ZxAy!KxP>E&$>JJ;Hq*_{-fKJ*rNwPFEX8Mez)(o`C
z+}I$|)W{sv%mX!1Qw<G_jLj^QKrKn82S{pDjgpf<yO=>oN1CR9_L`Wc85)B2mnR!1
zn^-a(K~igKn4FZ9Y?N%CXa?GZ4mz$V&D6};)YvG+!qC`&X*WWxVX~2-Ns^^WYHEtP
zk%eh$in&EfN~(o<vZY0msfDox(+-4MgA{YqR7*?aR7<ne)U-rUSeqLg7^YboSXf%7
zSfnwnN2oP4OG-&HPPRx%GBHdAZJRVSGfx4HzkxOznkJev{a|2V?1omMqtw8L08+Fi
zo0u4yS|%Bpr<z)tnJ0q|XaF70m}+5|l4@>d&d7|UHYqL1(lXJ&(!|g_)hs2|(!@9|
z$uQB((9qo2!XU+hQ5Z>WqFIVDsF(q5n>I;HO-xBiF)%hxG%zr>NHtGPVXQ(@YiW^|
zl$>mAXaKHglTwlm(vp)*(u~Y3(kzoL%^9X>F-Jm2whhfw3@i+c6HQE$Q!J8<%+iuf
z%`A;gKquOmSQ@7!J0cltZftImWMXD)X<`OC=*=?G1k|6gut-ZbGBPzbVDv{)YX;gE
zY>=9oYymp-*wVlflzNRVEe$ObQ<GAR7^fjQ!PwZ?BGJq&)gUF+B+()z+1S`9E!Dup
zG{rDEB_+i|9?4i^LlZMoLsLt0Lrc*9_LRgVLkr_HgH+=*<1}+iV}`v*#u}y?CtD<%
znx+|;f{vC=NwhGqFfvUwG%-jvNKP?PLNeCS+}zv%bbOmh8fZ+!*uu=vAjv4v*x1m*
z(!|n;5jns><3WkZ7RG5Qi58~D$;rkhNubjNQ&J5K4K30vSP{m8PR&g;PDwUPO*FEw
zFgH&&F)&Rv0}Z2?8K$P0rZF}kTx$S2#3IGg*uofe+J$9Gnn_|}VxqaRv7vEVl9_QD
zQrH@#fwmYXTc#O;cC4qSrC1o7rWqTVnkR!sX-$n7ULhHqk^(xlAT7nh(hzj`i+O6Q
zv8i!NvXKesW)VX(79^zv#vZegJeHJXX>Mu(DxOmf4bzg%LFW{vSX!ilj;T&bGGSyw
zR%?=yW@HW;pRxoU7zY|5Gc!!IOf|Q#FiJ^IVVI4iHqpo+%^)?|GTFk?0u%|xsfH$|
zhGr&dsb&TyDX9#|b)ZF}MN*PUnrW&@su5^Sc9LnTiD9BiiV^6%-?S7)B_yvA7|zZ|
zasud79Wz5SvlLKW4LXR%5_BGdnUO)7WnyBQC1V=0T1$hp<WvhoV^hmyqqMXX3nMcV
z@N}MGTB<>kA>(vpwdN*frp6|q(XM1uvouSy#5B;bwFPKE-XblLQ4UG1X&R`;O-%#!
za7>d@EkKuZ7@H)e8i9_?F->LcLsknq9Xv5LF~!Uz(aa<<(b&SmEGaoLEhW)B#W2}~
zp%p0@OpVNqQ_Vo<#DIpgk}XWkjX~#~rkW&K8YdYUptOjR5<%wz8k(4=B^#zBn<u8E
zrWu);n^_u}Sr{c6G9t&CNfKyDTT+U#xmil8k!6ZWibYbgg^>|x^g7MJh+#jHbB#^S
z3_z#ISePbTrkQ|FFHTKNGy|P4la_3eY|O9<S*=N03h1PA(_}-lG($7fG;>fl!63~j
zInlz<*qC86vRVTZOG}fKR5OFLl(bZf#6)w;<RlAIGn160L<93wh90C~ATTjgh^*Ai
zAkjS0GR@KibQWZ)rI|q*Xaqbt(Zs;q($GQ>$puD6pfe;=Kqmr#&M!z#GXpioER#(w
z6HSdQEE$m#nUSG|VT!4li2-QsB<OrtOVH`kDT&4g#)d{Fri>;?PB5@EFb8$eOf4<a
zjE#~F%}or9Obt>}%}p(nQp^o(xVWD(1Teg1X1d7Q!<xXhpS^&ij5nX-7ndGa8}D)6
z+1y;*I~iTMn3xoqmNHecnsTmUeZsnfvyR)8?KOuSR}^C*hZidcn+^MC_T%ic*`_d_
zWE0?6#Bzsa1G_j&D_aIj6pKESFAFpC4bE%KYnU6DLzp!<)tLVBU*+1wzmnaVzm`9c
z*O_0HQIc^k-%q}?d<!|w@s)8W@_BIvaouBh%O}V9mG?7uFHa_qEsr3V9%~O*8^<rE
zi`-A4bvA1PgASBQkV1sFv9VclYI0(7k{M{28FZG7xtVdId75!@idjlxQX<neB(<Qy
z`7}!d%T&<GQ5L3_CdP?IhDM3WCZ@>-DJE%5+6c8qh6bj_MoA{1o>Q7>YD$uUc_L`m
z)50Lx%p%Fqn9&DGt*L>5VVa>yq8VswNE+yfIYV;;!(@}hL^BI>!&F9Rgj!=mb4#;C
zle8qzQ9u@;BbUuhjFU{wOpTILKpi?JqyoUm!oV~oEyXN3#VFMx33NPmnt7UGD(IXD
z3yU-hLq?=FyRnIx5y)K2<TS%HBU5vuR5R1W6yu~M&}pHj7RgL65pFO7)taEblcA9@
z=vspmP_>kll#*haWN4CTXu!AzNiC?;Xlj<6W@?xW>ItQ$7$&DC8Cw`9gZctS223JI
zYK;sGjZ9O`EKQS55)Dif&5eve2giX<{<N@6F-T-Y>OUD7CZ(n&n;Tmu8YdcACYoCs
zn^_o|8>b|hnIst*nWQo$Bg{2SPD@F&Oa+}_W@u`WoS0^8ZUH)`zyx%DURqKTqXQzJ
z5E^ujLl|oWnRPZX2CXnLN(J3eW|@)(D&i82Ei5fk8JdvQrdWW^B{woKGXSm304??~
zN-;CEurM_@PEIjoyo;nZF*V63DaqI<F)=kU)xylw40J-SiJ_%Ql2LL}YBJ+{6t$LS
z=9Zx8-NZD|vBf4S=0<6T#wN)|rirFWCXD-#yq1_^3Oe+~z%1F^GS$p5#W2apEXCBq
z$Sm2&)Hpds4cXWvbEA|*OVGhTM#g4|#ui2<pkXJ=BonhlBLicG1IWgj8d(@6f)4IW
zNlHvLN;XR}GB+|YNij}MF-cCda7I>YVq$EZoNAb2o(MWv6TBcJ#nQyg+z@o;l7%Ib
zQUX&tNYQI#2|7f|%+S!l&^W~;(a<a@*}ya@)zB!>G|?c%#F9}N$zztL$;l?k1}2s%
zNr{G_zEG-VqLBe;wL+q)xoH~1A|$n--maN3=p>`0)a1kzBXc7&GYeDD4HBuzrsl?s
z9;`_2H8KO;#$c3`m||pN2?_<vlq7RYgH$6kbAx1qG%19+hABw~pd<ZF%+oAP43jNQ
z43kaFQd2?m!JxVO6b7Vv*)SzB6*T^9nQUm7W{{K!I#AirEY%=2#Vjew)WV!$6T)00
z<3xj0!!(2B#3XYgV++txr>RD1DW>L0=Ad(f(imEh)tZ`t=C#u-&C(1F6G08!L<3Nd
z(%90>EG;pKu^-867OANgMxbM@Ei8=F3{8xaK<D(Bm?vABr&*ernW-=!nF|W?G;<U1
zDt_Z6i)1r%%hW{Bv6w~%<`!ng3}2DdTBaphnk1Q+8iH0hB!f=+GEPl00G(81Y-(<4
z%H)mY2J@7(G!tXc6clI{$k@^-6;!&W8KfAeBpO;8BaeWjBpW9gBpIa|C8wGs8k&Me
zGeMUEfJW~O%q`NG9FUw~0$M9&nv|H7XqjkfY-yGVIxacY3^XKcl4@+gh-9vjWg@7Y
z1>N~zoNSt!WC}XQFgeXE%{<x2EGaRWDF?~il+?7e6wpyf$wo;=CWdC_X(mR7=H><|
zh6ZNFMn+7T90<P|rX(kU)=z-WY&Qbks*z|08kRFRFic7@OtUn#M>5wu#XQl-)C7Fs
zbef^5X{v=;N>W;yWtyo)N=lL`V;HhpP(RB&#VEzdAju-x*v!%**(ll60(A71Wtw3!
zV=cl7My5%i;Wbl3gS0e56LVt=qg2p&(#9qx1}UK1LfnvyH8D?4N=!8aU9n-9Y><)+
z9v(|eHA*x}N;5VvX8ez&*3{S_$po}m#1M3tr-7MelBrRuS(-(Xk)ef!fh7a-0A8x0
zWg=)9oUx&WL5fk5nVGq{iKUr=Sz<EiWOXx!TS(?w8iAH&q$Z{rnJ1YfnVW(de`y95
zpw?Q7QJN*wIfPnc!&KA66r)to;ctm%X$B@~spg<#lS~YfEX~alEtyUs)EcIm8yZ=d
zo2Hq8nyE&hzMxT(G3aRgL?h$Wv{Z&i2({qUm1bs~W)8Y*#WXD`HO<_@%-r0-+yHd=
zw<!}+v(nheEX~Zs%qZ2^%*ZU+EHMp~*^N`pK<D)(Tc#K=EkQEZI4RWvbX0S4vT>rh
zahkbtvPl{!){-p^(~Jy~ndT#@HA*!HorrCmnrvcfWC$vtOic|_3_(X_B^z2AFwI3$
z3p%ja*vvf9GSMQ%9CQS>p_!q%iJ6h1i8*M1oM|SKT0@HzBSQ<&+N9)E3rkRE)7Zj1
z5i~`cY-*8e!Za13)-cuF!Za-{EzQU<)zrcuEiEZAIoZ@CDJeNACE47>oUsj|7PRfv
z+#)T}*euB~*(lk_!qCJd*&rF@(==lXBO@lHlG-rU!q6biA{8`jXqcLq3L2~jt-~=)
zv$V8GHB4ee4zm=qM9}^rGfU&7WFt$nlw`BCG$WJ5WP?PL6k|&xrrQWN7#o`!r<$iE
zCt8{%8JQ+qnkE|=8>E0PqXC^jZ<)w+3z01h)67yVjg6AcjMFSr&5hCwk}b?Z!@#DX
zL-I_LQ#laE8X2d7PFGI_9X4*3m}r)2VrB>$s|SUQnWb?u(?^6_V<Ygf_bJApYnPIe
zjZ!Tv%?%PkhbpF-BpH~bFd<d&#wM0Y#%4*WCZKU=P#4G82(+#hbc>jgnW04@Gg2Sf
z$iU3p+|n>L*)k<LG0Du-Fv&0tbbzC!rIC?EvOx;NM+OGQID(DiQ3Yg%08$Jam?S5g
z8-eE949yY^P0dU}lk=va<$!4>hDqkkstC1)sfMX3paV~hQ_@mRQVonjyBREuER55P
zEsYG4lb9ut)TS9HCnhF=>b?{s^EA-xU{Z>uiFs0zg^{tDsRbi9lG@b7M8i}g3j<@*
zBtwHlb5l@B3OYVD#URl%$t;Pn5|Pl2P0W%ELFWr6nStuS)I<w&gCx))t!bvoMkc97
zNR4!3&=4PJ@sEk6xe;i14RiyNp}C<^qKUC_ilrH25yA<^pnAnH)yUG^7__K5(ZVz_
zF%`5}*VGKOa>0;M9mxp<R%T@&8EcqiY-yBikd_L%{J_G(FvY?!(aa<@CCM_`+{hw@
zaRahi(1j}&sRoG#CP}8CPL_dzL81w$VPIgHmTJa$7)7m-aguS8i3#W+VM`;E6wvHX
znvqeWk)gR^YAQoJl3Igg&;hu{pj{`aCP^knCgz68X5gh?re+3~77RO))f$<Yn<l21
zC8e4trC1nR7@M1$fYw@@nwTe>o2M`$#jsJDQBtx6XciQ7vS_M>v7rg*uvCK-&>BLM
z)I^4D2y=~6EDVe+Elg64OjAGuXyz86GZ<4$3=EPJlT%Vm8Ezng7u4ARPhy&+nVFh_
z*5etbSfm)Iq*$aGrzRPv%JA~9VBlsfX5fqF73V(1Rm*A2{)}w}YYYn?(_Y46#$pB~
z1_s7JGIPeLHf$l#<krZ9zJUdDEKUmI(&#GKc_qkaBcj}&4cowiP>Hr5h@c7BHn323
zk?LFVIU2=fc~<4gRz->NDT!rPWvNBQnfZCTrA0Xk=H~bgaxp<W#s%Ro#Cb@%C?TNP
z<lD$dcxx4w!<=;EQ4E3yC0r?5P{PGgPgqOJO)M$OtN?AK!4{ULM6PGV*rdj61l|mU
zKQu|+T1D6snoVAf4CqM{vR5qwDQRLes462B5g25JCyEK!f|J+<oEX8$^n{4uBz12U
z)`R;{{Gi$7S&yDNA^9Bn%4BT0G`<RXj}|;M;Y!g`CtMsUqo5jrEjTI6>B3v^<#dt`
z{lS{kQ9Yp9WL-;e3o6zqfo;Qthax=nqJ<({94U{(G-C@t6CzjqV(iBk2!JF<{2_>c
zr?jOxdTEKz`I=2$HDqRMSlR-WabyJ{JaR!MU<*fL*EVBjYae35k<=rTu!SRvA2gfX
ztI-3KxNKdOUW}!TgoUs!T6%<wBjsuo6R-s)v6)(nfkk%NTHjr6(1Y0cAVJB0hWt!z
zgq|V^dO)+us|r0NF>4!G#e#gGC-(9Yt`aRI;o?Ypicw6!7Lvp+ipNNn9PY$~C8^1h
zpdU1wyebI?Ce}EC34(GcJdeW!iAt6*#UK-~1tzh305Aem@FXn)6Xsl$wlz!;<Oj_r
z#|pxSM`J50upD0wSB91>;o?XY4njM&U?g_414b~yjxWcbzs>M9&kZezs&Wt>&}{N5
zC!8R$rt5U1hBZ7v!d0RLBU~IgcO#pCEhLHE*nts}Tq2MJiT@yYs^o5DKWH*Akb4q8
zwk{|_jEkd-L6@P0iKmE1pZg8>B9<R48~Atd7w~KIJ?5Lu7tANbd!DzO*O!-tXE#F&
z!&yc##(2gROs0&lnJSnAm^qjZuw=3*GT&sL!Qsxq%zl);hTWL$7286#2sVD!W30`r
z4&46SJX|Na>bcB0-*YbKOyZQ{xWv(gZ~+5@2OFnxItLRhrsGp!^`tHqA$=t2_>^>{
zUI$|WB?ci?&5S-27zE4JpkjnEh600%D-n$a#^p|IoW{}Qgc0nt97Z=!HcsPAvW&>j
zD=sN2O)kkV0{beD0>>1WfQ?9TXX7+ZCC4!+htV=-lWz_zk%8UgO@TScNpKYf<{%Y%
zi~$a8oW|kggimHZ*h9hOI|L=+Wsq+UN>147!p3PFPmYHWH40+{M;E4Zpuvw^R=|Wn
zWd)3#f?S+3&LH0$<aPq16-HKo`5MVRa3OufQM|gziO{T&N`VnM$>7K?!6;_nRw7DJ
zxDc`{;!{v!JC+iIkW0{73Jiid6zsK~6c~h(!?P$c2%3n%E=r`tAmlt=NP$5pi7?WZ
zjng=gjJyT*&st|TPUBcIbnC*;cx2p&k%nPmkCYAILZEC3O)R>w5f;V}1_ovc<W|8b
zdo%<_Lx6z+v)KkMjgYezObC><U~IG-OBii2Gbv0dqLzR)sC7|Hg4I=i6c_=ms|+wo
zJ-C$wT!B_sO~Et>R;VBu1QP;z2gZ&^Z3{S2U=T_<?2lOv6BoeXa(F&wIZT{xq;lAq
z?D&C~!_k;6Pa>TGZFz>1-?Tz$i&#=%4m760;W~$Wb5L3$i!fWTL<S5}3)YT&$H1yj
zu&073FbC>tusNo@oCXYBj1>&r^Lak-ZRT@izr(hMHH$@(=`3RfR|%&9rva=C=HAWd
z2V;-Yl!ic4U?YztXC{X_XDO2;1B0jlLnZ@c?7ILl(^{OHn3JOqALNJ!^L3HR^<q#Y
z!b&@^Eb8DGScsqj*apamJ$njcfQ;okc!2DCjv$_?1Pf!*h8l_Uhh~#UBR6QqRh=^*
zEl`neT*GcwT4`Q#NoIZ?c_E6T8(VM^d)OAk5e8P}+i9DscS9#;oH`-FnW2d<I1TUy
zrzQFgIYa~jXl(@-C@c-}g(Z9yg|0q=iF)QNEOjE}QIjY_9H$Z30+iVE#W2z*=U&PK
z6muvXHn@O095kEk8aX97BRLE?Q_&J<0wTv_ox+Cqv*2L~tC-LyXW-&UQwnh1*n*MR
zgVZpBk?{u+!DvqEN&I--ui2#2$U*ohek@UeTuLI+8{u>a(uXb7h&><<W9nb>CM48S
z9P#94l8@rY;bYCFfJS!07bap0bEGN;6b59aJ2W$}g(I;?;bEjc4t65K(Sp<q6Nv~3
zO$G+0d`j#7QT?MKKx7Cs`8F~Wu7$BBT-5sy$;!c~MqtgrM4ktUk%9T-!5R3ibPJw>
zkV-2YVW9&m$w18-7IFhL1F2g{W`H6afh|CZJ-!q3CdG8h0~F&XMXarn_$p*iXy!Mv
z5xPqezI+NcVue=o!Uj=vVIhKgm*P<dR_&Uj{bj+>CUKKzBP)6o61M;=9%X$dJPP6V
z<8l|$3M^D3U=F6<Ws3N7ggG_VRl*ibfb#<{0|NsugChgqCf;HmC9W%+4II{NZ&~NF
z>N5XlI>0!I!I3~o)#TeKi5?q}jx1823x01RsC^6_f6$GGrwfov;IRQ84n&I$xVS#T
zG*lz7#RjowwPTb}%#5H6^`EizJvB=x!k*A<(rT2D<n-rI=Zr?{CxjvT3D6!KY`_dM
zGJqV6U<Ifl2o}<ZPxvA9U<)^5Poc-?unJWY5pL$>byzXItJ!4TC{B1`Ft%Wajd+rk
z@L-y;1s$<R>|^#0!0XfrBsl_i(_k(P#^-lXViO}avBBz5M8bgu9XMrSO>CHYu!R`0
z*9Kr@QXvjVVryc@lSv6AHjK_Z*f;tqm`>NsZxkh1*TFku(7-_r7DVq877hgJI<H0%
z!i(tOb|MX-pe%5Ox&=uZm$Q(RpqK!2E^<w0PUL+I7}3UY2NZ4pz862l7j2|2q9Ygz
zpzSTfWQHcpaO5%;5t+n<Cb9|GLX+70Con=&zJ+d~iR=f>CdWo0!i!{KT0k{FboGO7
zPGUh~ayHpPiO`NM9ErVY10x(cZbQN`|0ljwN$Mh5{Qd`x(FhVAqrqkf+V~1tSscv_
zY{5zF)gl<d$>TsoaFRSmLqte`vbg}^Yz`~mb&<wOQMxwp5QVEm%jR%#Tqa-(&om-0
zQ^D-vg%A;*1a`3z*TX{z1yGNfpKt>oTUf-SY*!&GI8lwj7M{djAA=d5l92GkKT(Ch
zp-NnMqIv?<WaT5G$qFkhk!obvT3&ci!gB*!%7lw!(Tpt+Q;EDK2P2bnY$qZR2{c(T
z8eoWe6^rvhxto{F+zo3Aqtra`l#3RIaB<|^jcfw8fF$-pAdG-ydPht^lG-F9=m$++
zrWghuhItGO^Z3^DM)3%7?d5FYuwZ+|I)|m4*_!bc(+vXsf0{}+c{ECa${u1SbYY`7
zknV{t%9JcD!+@LisPPOI(uc1q$EF)wL=$_%97aSNXoDj9KV#>0Jgp2;M?Q)0gl2xD
zD&fuxY-|P^V5mWb7<Yk%2>#9s0|Uc-nkJ8dHN459Q3bsmhm1qUAO>m>VTLqp1zY<K
z4P_)5Tmg=x1g04l2gp4#Vz+-9GO)-8ib-i6h7PHMw}1X;oZ62kO`79fvteS1zWozc
zRDv4*uw(^uyJnMOqp~EYCx<#`DB2)b03z%lsX947w;(4~7tBE}xWNLb;RP1bN7sNY
zppuM?6O$~=!N(<=S(t)Or%3_bvu9vx4mtrbDbXk~$<or?1S9*h&VXd!iOcZ>l^NcH
zE--h}VRtvErc)wZ(_sr|><urtO4LxpnnY1dz!rkZrbz}#2Fd2B#wMvr7KWg!;Y^cE
z(u~s#%|SOSnVXp>8W~!qnPP+>$4??ckU%>YOOpYX#E^0diXT9ssYqsM!m1YJ<cA0~
zVnP$y1gxQ%m}(5VT+iG%CDGCdbdb5Rxkajpsf8uzu1F(uLnBM`lq8EJjL?L%8~!um
zO^?(GO=LfSmRczgTQj2$+mc!{<I{~TC=H3cFBl^zZPg(Ovv)t9tW9RkjL#FAO{R_V
zlAOUDhMe(eg<%w;Fhry`q!bQWa!Xb<0?~>s0ExX486yCNoQViPb0fTK)ria45XWma
z1vbhNxrh=z*92|gA&q<xx8#qI0oX#4*z2D$LXu-95g|$5B1%I3&}?#Pl$GR+<uK&T
zL`#jx$5X-U5~S1!sd&N1A(53Nk@RB=O=7RR#t2O|Ge~ISZF1v3oC>qf#+o0Id;m(E
zGDId$w7CW{R`|j?dN@)yw%{c8es7H6<T^@3aFUle2?YdbFiIL!?GRX%ils4tItW8n
z`b0GXTbL4it2suPa)M9%qH?bgYZ68EgeGYIUyC7|fqxOdGv5=wRz5Y}<GdNXoII;|
zyt&_S_j2oTo#!gx66D;(8O-s8V=9Lk`*rpTc1gBfY|*TLSm(0ZvD{~AU{Pc~#GK5`
z!nBmhjqy2S2css#DTZvc?paKu2J%gY2F4baMrJ7%pc@?wEz>N`EeuVPEfdqsO-+qb
z%#DpKlao^o4b6<yUqi0<GfhdhG&eUfu{5&)U2klfY;Izfl4fd<XklP%ZeWob)2NPY
zd<y8C*F*zL(-af)v=n0_Q_v-FsphFkhUUqJMwV#?X^EDpsfnh-8z9CT5V$=grcn*q
zcmwmqBnu1hmC2SymPX0uDVCsvU`@<G2j?dnr=_K)7$sSnC9*<|H#Y*``J9+ym}CgL
zzRtul#n>V-$qaNSu92Z-YD}XlvhgXFp!;GIjS`Iw%#6)b64R26QcROg(~?0aRi~Pn
zS|*t#o0wUqiX=i@pO%(nk(iR4WMK)q%-X^<$;i^k%+xH!BH75m$THC^rcnjic!Ok%
z<P-~2!z3e9O9LY_Gb7O5*5KQ36VoisjZHvTA*5I&n#dbNj88JRG%-msOg1q|O*Az&
zH%du1Pc<_(F*P$YNHjG|G>B<bMm9b%8FV7DVTx(0sfDGXsfl5#QEIZeshLHpnWb@x
zg;|<;Vk+neWeyLB@u^8^M#-kehDj#Lrio@ri58{?rYXrO7HKIdW)^7%7BP)V$i^EO
zB_|nMnwlD<fv%1>NJ+CWvotUTEwMLAwX{r1GEKBFHZe6!VuId_ZDeVR_w@IeMnx3k
z6OGMNlg!hSjFODaEiDW!%*>694bu!v&5}Tu+!%lkV^1+QGUS{Hb-ihFin)=YfhFj)
zZvz9<6aymz6GP*))HKkQJw{0}jS9%dn;9o2gU(Yo1zl}!lA2;-U~Fb)Y-DMXl4@va
zW}cXml$2<kW|GDt3o$;~Ako0o9CQs)vYAD4YO-lsN|JeE8t5LDL~|2Mi<m}vWaCqe
zQWFy`j4e}5EYpn5l9SAgk_?j*6U{6wKxbzsTUewRS|+9?88AUpPI78$N@Aj+8R&k=
zL{sAwvotdcLnA|Da|>fjLlc9vm_|8N<BgL{4O3D;cS9wa7?~TGn44J`n1Z6fGBL^A
z*en%%sJuDsc2natQ%g%zL-VxcG)oI}qhv#iBqMX<M9{hJ2C3#2#xaeu$i|zSgU%H<
zHZo03PBjG`j%;FNmYS4go@{1fo@!ud3c5znBq=pb&<qkd=4s}M21!QdiRP(^CMjmA
zpsU`^%##vL%q&3{o?6B<${-sLI*m0YCE3`(Jk`kDJTb}8($pv|$;dn{G0o7((!j_l
zInBr*E!9N$CDeFx0~1U0B%?%glcXe5O9RkFp%&(eiH4wyR7?yFVj889jZaH8NHe!c
zGBgEUb!cg5nwXT72)c(BbY{MZxrvdPWvYRRL8_TBFT{9*B>cA<#WYGG8=ssCI$uB4
z#2_)zG|9p=CD}01z&P13%{1A}B-O$YbkTeY=r(#`3yASaMrLN9V$jmUFewFe8Hu4m
znwgmi=%8CeV+%vWm_|ut;|&v&j4dsV6G4~GS|%qOCa0QPq$HY|8zg~l*ho!HH8TNU
zPvd$JV!WlXnPp0{nSoJSN}{QG8tBsIBx5u46icJD#H7^J<d{YYWaG_E3=J)l%#2gb
zjEvJj_fVS~TN)=@m>ZcVo0+DVSQ@8-(ws>O|3--MDT%3RN#^FMi77@#2B2%;O^r+}
z4O5dWQ%#aBlgv|M8pV-~H!?Oc1>G-fZef~|Vwq-OXq0SXWMFD&WNeXS0y+iWAko0W
zz`|7NE5vwH6VM%Jh6YBa#wLlzrj{ut#->R|$tk85si4!`O=23wkc~GpvoJFO-Kmml
zY6LRJ*fP;5DLEz8IL*S`BGo9(2y`2Vk+HGha)|MX7M5m41{UV#mKLcN$%&Q*#%AUw
zsfI}==1E4WNv1|IjiSiLn_F5~8m6S0CZ{BtfX?PMFgCYLGyvU>Wn!9UW|U-XVvwAe
zYLd(XEz*)KOh75#IK{*;&D_$&G||8;H8Iu1+{`%D&^XmJF{V)j*?6N=V^cE|Q_~bv
z6AQCsV^F=7lwz4;nUn-MRou`r&Dhv9&6Ejx_qic~JK$m(g^`UnGdDCeGB!&}G)o4R
z9R{hE#))a5%ifYqQ;kzB)65MF&CL>x%$cB7d9slS=my=iG*i%-@hPb(Y32q7NhwB&
zrpc*ksYd28jY7!ATO=o?nj4#$CYo57m>HXzm{=qy8W|)en;E8Anx|P<m?fH7SX!o;
za9@Oky=j_BGU#qgGvnlx<fO#pv?NngL$hR4GjpRPQ)6R`m_|Wl<4w##cgv@x8Jidx
zrY0LFS(+Fo873MSnV6fKm>Z{ABpO?!q*xl8i)KTNH%T@%PEIpVNwcs7-SlP%y71G?
zAT7}pbP29`a!O320J8CBrWTf|78aH%sfos>NuX<2%uUi#Q%y{gQVo;M3{%XKKo@YB
znKJ7_jJLD|m3ii=mPw$Cc+AWajSVf#6OBO^UZhx<7$wFu@*^9cnv`U0YL=2@nPP64
zWNB)dl9Fm^2}+nLrl6|XEG@}6%`Dm27*?HtZqhSJOEXC_PPH&FO-f2hG&2UR<1sfh
zH8e9#O^RvcLpI(hHPI;1z%<Rw($vyC&Db!-*fhz+)F?3(bm4-zv0;i)qG6gvvY~Ma
z#Px)3If-fHMK(Ug&^*=Bz|hjfJk8MD+|W4H!oo1gAj#AcGy-d2X=q|@VrFQPXu>QA
zF&=bNAik?5Vj6jnjW;q(O*1!5Ni;S~1fAWVl4O)<YMx}7Vr-rWx&RP#&yBG`l7$J|
zTZr)n#`rG+i)rLWHr^n~$T-c=Ff}nL$uc$7*uXN)+{_Hr&`C{8OExgHOioQSu}Cya
zQiQe?j4jO4l8utm63tRm42_M=EzJx}j4jQLOf8Je4O3E0Vj8)SjZZZ;Fi%M|N;bAM
zvq&^bvM^6gF$UkqV`iFcXk?LOk!+ZlW}0NkQ4VpvrE#*MWwIIQVrqjVBMVbA!$f04
zgA~gYBa5`8lq8dwMowholR?*bB!Y^8v}90=$~4K;*eul|&Daohue^zwSz4+^no**K
zg#g5Ob2Ce`WOHLvOS2>c1G8j{6w_2Qb4v@0#AHwjnr0T$$boFUse!p+Vv><jk}2py
z6bn;R3yWlPi=^aKbEBlx<P^(fb4%0I6vGseg%IN{lZ{N04U^4`5-p7q&61K0(~^=>
zO_B{k*Z3MGrkKYxvLhRBW@(X_Xq=jAl$4TaX>O2eU}l<TYH47ZXace@)xy*~F)by{
zGMOs~V!W|oBHmNpV;b3zjR#${Y6`k~Gdax+eCN7hilvzm=ni7@q%^Y>bMsU)OUo34
zWR_D<<CD`s!{A1y2Faj%UQ>*XlZ;F(Qb4)NG|2)KwXDd-CxY&LwMb4iO-nUPHBT`$
zPfJQmO|t;yf@Dw~YzC^uOp;ARwnL0JFvWjSUrZwlvhk_rriKP7=E*6R7AD4tNoJtr
zZvwgj!_)+Hi=c&>v6+!Ya$>S{55#yvcL>EaG9w!gy3EPM5Y+fKPDwE^N;R`ENlrDg
zFag~dVqlh%mTaD8U}S2M<mwMGJ|)rE(9ALkRE;N@nWP$77+EA48=5DZ87HP$8XFnJ
zG%_I@Z*G(by510UjbXBdWukG4p+%~JsexIFX=+lUNn)z0L8@_LlA)pSCW!HbZsdw-
zWJETe*ts9p84%+^U9Th)BMTD?%Vc9iLqkyMZD|R*@jKBn*)lmTrjY^Jcw#3;IDSHm
zH%T^0PD@Tqv$QZaNiwuBut>8^1U2zfP0Y+qjg!n`>QPK5a-x9g9mI4qi!^gkeQ%Uz
z0lGTf&@9C?IXO8s8FX)XiiJrksQ=H+#KORLiMNf%om-Og2uCryE9*~|70h8wEDU?l
z`tXB{%jhx495f`I)8yA^D9M@5q0U*1HsYIyn16uGQNo9mpaYG?1*yrIi8+~7sVT^l
zV_?Oo^I~8j#9%RY{n*CTh^@mJrZTW}`mNmJ@C`bt&Gr^NPRYMm4&QtZ{^<yeX>Fps
zq1oiuXh39$qMz<SYKRihk1a%rZMHD1Vqm$}?o%$B1PxKeiIj(^xdGZj0Z51v@CIn$
zSD)~}FKlZQ@>$WS2g$<+e&I?{lPP?M7;Yo51u3yjHH?8@j&ewl&NsuCNb#>iw7@u-
z7w$QvGjUPF0W^WD2MSOkmR7-+$U!qLX-li{>c$q9#I{Q@!qP&324M+Fo_IY0+C`&F
z>@FJEEIK4Ci7GTxF!f*yH)0#y7~v+ekce<2a~BP!(?MBT2bA*g&*5NC!mx#{$l->_
zvP5NNWFxQzBe5L|j9}ynf&}AiKiX$yWKV!*8nua>X@rLrB>9m((@4kwY#~Z)UkW2c
zSxylXqIlP(VNTpaGc+uH;Rpy&p4K8VPosqia@qu2hMFwFLWpu1Vn0X^wxA=npNJ83
zBH)GD|M~GIM)LAB7Vm=Av}>ZTg@o(^jzcsd;Tn<aR@hETvMOenW^6%6Y#$h78>Vy*
zB-Kq%!;_B*tZB#Gh6zh=*!&Kvj5R<-A~BUQY~=+c;gGnR3cdY~Qk7#1MPj@97zxnT
zpNLQ-Z#5NOPk=J6I<XlSvvz_dLvSv|nsG7pU<)^5$1pI$O?VR#;YMc0#dNwR7Xt%>
z8&d`Y(<P?4Oc~7C%x28&EJZ9fEF8>Nm=|z(aEP!!U|+*t&mO?8!1j&pHrq0`LN*&V
zcGgR*b6N9P?O8cluCgrTH|9_0pUr=U??2xqzQugSe4c!Iygzx5@b>dY@v8EC;MvX7
z#uLt?%Ke^uANNG=ByJ<Fe_W@yrg0^4>2dzzJjOYRGlSEYQ-b3$$2yKmCQl|w#;1%M
z8EY9m8ATZ$GORUWWnf^xYRtgEer8Dautyzj!pezq#RKeuGtfD+a5mz2bWnZBIGIRI
zuo4lh={&KTp!=)9nu_#TIZ<v`fICS)J_XK(ZNFkHBhn7os!y;TO~h(KI%S5jz?hX2
z<(dSzV~`yN?>vJoY9&$+asU()rw3MmfbF?s%F2myp9EI7AuY57>uMx2sG+ChU%_w~
z^jZvX!hx|-5A^LJP7jJ_W@2~-W;Q6GVQh5Ie8cbzOeKmg*zw7;iBt|fD)}Wwios?&
z+Of#(L~4Sq7z9VkG9ophoIyL4SWVE?cwn2R6RQb1bv`9h6H1J>NU?GnBOhxI%Z<8>
z-!)k|QO?W9mU6+)?a*iCj72d7nmfVC55|TcvB=nm5yLPwpacP9!<wy(4|G^LQEvIb
z<`7-TYG=kyjARWn57}(^`7U7h-yl*C)FiN;3gYyjB%nzKtehyfdtmhl(m}}mXi<u^
z=M!-^t1jwkON>{E)PzzY93)l~Qi@{|B~lYgid&DC;t+mfQb$X1@KxBl`lx3ZF|nY9
zK30{wC}(pp@erp6CB_yIrw940FUI3U>Os!%7l_k?T(U565UB^r9wq@I^&rJE;~C=g
zphWV1v=RY({2)q%HE1OQcJ=TQ;V@c>fL%GXMEH-E>#!?E%5`(mYB}s0&}+F3hOC^4
zNQEFSU7&q>;MM<(yNL2MygjuNJ-5L^965LBq7Gm)t{_qqN~-@&q$ZSPzlB&$Na>Mr
zFOiy%6F%coVl^S#w3=8=$Vq<(k(yvJ0j?Qlp%-v4SzRVUv;q!Z4S_34XuAb$$TYMJ
zgjFTdod%oG(h_#{@C>vNEdya!4$VNH&<X(Tis7PQ_fI5F4@w>Mjz~So)$lyD%nf%1
za)|08W$tyvS%Q)uw)3(+WZ-1>Wnh`f?8~=~H-<-<>mp|ZhY{Od=4(tF7;_l37_=b0
zSH69$+aat`ax?@+LjX$%G<h@{6FH2V0?USE4ddd~jcquR*kzm;!;!`%kl{%DizrB(
zp9T-EqMxvbI+6|AhG;~18zQz*b)-#ru+dz^%meC>E<zkJA)||=A6rloyJQt3D47L`
z2uhN-Arc4y(8aNTuq4$HA=DJuXhrPAD6GDQ=0~J9Fp>L%2^fGaDG|HsA0sJ2E?N1{
zzwRoYDJt@|V4_d1pa%r#90g0l=O|!HmhgT9s2xRC)<iJ@TZj_7(E%ewnILDc@~?V_
zCqzj;M}c4{fEGhofT|3<iy`3SySj+Ge01aC%R-QY6QLBfq(g|~Gy+?A61%elGdy2I
z3Ol^vN$T_;5uN}oy)!3v=^boD5Sr&nUV4XLKeq5Bb}I`;cyeDPCOq*kX2e)02Cawj
zdjoVlg&E=FDX=AVNH2@5oDR{7EeMI-u7eSTqS=rjT+W6si<20HSX&Sf$AglhDUnGL
zeSI0JNs)klY~e`kz9fuwwamIigrf!iaKyE)7Oho`77U;eH6b!Y(VNI<M!^y#I18W_
zm0%%^)+w5PY$2LT<W?+<5M`02S%?w{2Jrm9HH#1fM<9nB`zsb9_HFD<?0)Q0Y|q#>
zvDLHrut~5!W!=bH%j(H0#`1_|9se2rnfz(|#w>1p|M^byP3KGI)93xedy;n=ZxXK_
z&o7>1Jd=3hc(k~`aUbID<BsB1<NCz4pR1cIoJ*Odit|0^Zq9bj5Kcvow;Ve;TA6P%
zFJ~@hwrA#My1}%Bses9biG%Sf<3h$<Mk_`(hRX~K7#P@}j)=DEs3%85U{HjBF>@x9
zN^wS_p^8zOsgX%iilu3aVQONEMRKBHVoH*6s%dhvfk|R=l7X2~vZaZEQ5v%rLXWYz
zMY5?uiUF9iG&4;BZCkcXF-b~EHZ(P|G&e~xG)YS`GGo?6=rJ)gG)hV}wKPgG2OaQ{
zVriaiXlel3Tx*tMo?@1oVr-sllAM~%EQiozY?7R2oMN0}m}Zb_VPKS+n39~9XlQ0=
zWR_--XqcR4Vqpy0&}+f85?POFqG^h`L9&slsaayOsgY$`T5@7)TAHb$iGjH(c(Y=f
znYjg1ixG1sBP0xrO^j2M(#%ppTaA+pj6sKdq?sFA8l|PA7#pM{nwX`UfsVa1utBoM
zI60M=-Ej=f$a)gf%uEdo%q<PlQZ3CAjSY-Ulg!Oh%q>lm%q)_UQjJrMladTg7*`|f
zF*h|xOR}&uG*2`$N=`{JOG^VCAYo`=WS){_U|?iyV3Cq!n8uWg<Q-!(lcdzdL?a_J
zixe}H#1!LH^F#|v!^A|R#N;G%GtdDE$;RfXCP>y8C8ZdqSs0oaCncvDC7Glcq?&>b
zb4apGu`su=Og1o0OG+^}O<`t1vc|~B*whph{YGX6=1JzJ=Aga*mT8Hppk3aHspjU%
zW|l_Amb^$>3{yaxS}iS;jg!)hO${y0EiH_UEDX()j6hqrjZzIQO$-dojjNGdW@usn
z+5>B33El&5kY-?JVrY<NY-nj>VUe7gVq{@vVPayG%CrMnk5RHE=&S;>q~sKfM8gyd
zW3$ARG{a;A)6}$N)8yo&WMgwf<3vVFBs~Vn78a?=h9(9k<|)ROrp8GINr@K8M&>4#
zMg|5+sYWTuCdQ^lhD@9YJw|D%hRKP^DXEr;iK%HOCZ=X-rY31=X2zBlhDPQ|DJIFL
zh88JiMoiO@^(3Z%PIWO!OiVU2N-;GzGy<jJBttV3V^9W3vM^6hvP?^6e1ojV($v(@
zIL+L`JjDzYot8<KMrj5HDJCXK=1HlbJ=Ml32Fd0O8<F)Gn58BeB^sm{CZ(j9n;DxW
znOdZ#8Ks(~rY0F0niv`wrKB3Bq%h7$M2}HwN}8FerIDebk&&snsZkQ>EQYicgH#jq
zL=zJeqqHPb@HSj|Bx{J=I?m9C&|_khl$K_YmXerelxmWcXlP+(WM*Pukz{0MY@TM2
zW@%w)mYSSqlEhSstjE&Q+$hb+$iOls1(dYYj4czBk`s;1Q;f_Kjg5>=QjASg3@n&@
zk@XlG8=EH?CMR2@q@@{JB!dpIFf%hxP6i#qU<}IM<`(9LDNJh+L11EJXke0JkYa3X
zU|^VRWNw~nVVY`eVPue!WNMmZVr~dJvd03HmEfg^iD8nlnR%L}k)?q_qFG8Z=oFb`
z(BUv<<|!#=$w?rqjV&w_9g$pSm}q2TWM-b4Vq{=wU}~9YWSMA@mSSj-Y-p66nwV-~
zm}p{bo?^ztfUL&^bb1o#aHA9>6Eh>wc3BG(12bb26Z5pB<Wvib6eE))BSWTO6g?(}
zhKc4W$p#kYW=4rgX`u5%l1<Z66D<-=EliS(lg*M-(-IkXA?Y!&OiD{MG`37hO*1!1
zGBP$aGBrsxw=^_PF)}eqHZd?WHMFoWHfPd9=rK++H%I{;3uBs=Y>=2_YGh!TlnBag
zMwXUo7M6*ia@y1|*^=QMlAcrxqcl(=NJ&ddN=z~|H8V~zFtD^t1RaNDo@ADklw@g|
zlxD!N9}zpmUY}8fWKBw%S+bc?l7X3lMQUP_X^N#uvSDh9u`%fErc^_dq{QUp#58kb
zCJtmhW@*L-mL_Q?sYxbghAEbb=H{uO!$3^T6AdjbEK@BlEi6+kO&QN1>oEbvn@LKd
ziKR(uN@_CbT$NM{P?}9OF)%SoGB!0fu`n=ZT!^g402J${W{DOS7HOu&Cg$cT#)&D$
z;NmbP*$CudOJh?@hL=csl8sZ0O%hE~&5aEWjgu`cEYl23ObpY^Op*+fQWA|#jV)7*
z(hQQBxRLc37+aX9nI~H$nHZ)S8kw3JnVBS+8Ce=8nwS}wq*@x9nVOlHm@{@G=}AmY
zvM@C=F*HpCZOl(hOfj}JGDtKwO-wa6O-V5|G)qecog~AUhpflYz}(UjRN9)RnI{>h
zq$C=o8Cn{FDzL;v!$i<=B&n9h$xN+CdMwinO)OF^Q$Z&xSy(2gnxvW<nkT0i8JdC0
z9rH8;!_-uBBO^u>JxL~@BU;Q-43kVv(+n-ml9SC16HP3WElrJ#4bl=*O$<^@Q;ivs
z+Y*+BX`s`t63tW16HSwiQj9DOjVwS%511tym|LWz8kmBP8Zlx@Kz1AGATLu(a|7e#
z6a$N71Ix6eWP>!5#AFl0v^4XyRD)ELq-2v+CS4>w7Rjk;W{D{l2B0G>EKE#|Es`uP
zjE&M#Elo^}Q`6ECQ;ZXh)6y93A|-2!<dmc&i<D#o<3vLvOM?_6gG56!6C(q2b93{w
z6hl)(!!(1mWJ`BsEr})uW`>5Q#%AUgrY4}11X4|sER2&<OpKC^Q$eRJ7#W(I8@VED
zu}n2gGBPl+Fif>H0Od<_i!=)hV`H-vV~eCj)3l^C3yV}EqYPxvSXi2vB!kX2Ni+jx
zeNZ)Gl4zD}o|cwoU<^LGCehf`jPV7s9urfeG)qGhi$u_&X%=ag=0-`0#+C*~CTV7=
z=1GQzsRrhWhDMBW$a;*D3_x=(25Cu2$(AYRMwY2b2F5AIiIx_rMxYZgERxfV%*>gX
zko6cECYmJ~86~Eqr5YF~C8imsnx|NprI@E$q*|na&T}zJH8VA53`Ejno@AD0YLS?l
zl$e;9YM5kZW}0ejXpxwlYyoO7nVT9Int{qH#`8$QW@en6WRh%>l4_P}VqgSn9h;>X
zrI?r-85vucrI;lffLf$!hH@xc%uFl|(m<zZB_<jeS(;iJC7GHV8<-fInOPVmrX?9#
zg3hP2K-OYll4_Q0X=!3?U}ltJXaZ_?r<fXBn3|ZUq*|J$8XH>}m>8r*A$i8sFxe<2
z)xaXj(kwZ}#5^r6H8sTybVO8&skymnnnh|#8pzp92YGp4Gw?7hW#C)Svzt4YOOfL;
zdlQ=l>oJxY%wCM&7?y(JK=(_Ud>cIo4wA!%z>qI=iAR|+fDQT}l%kIOAjFaGd_Xk<
z+qe(0N3LOvNHQgY$9)t|&c`z%X+h%TDiNLl-8$q>@YW%$qwPr3L1a%mpqYU^NI@Bd
z@G)~3LCP&fOpuazGc++F0h$+cBRDUH)g<`J9<oCe#RP2ON$k0L7~v@hIXf4B5+!wB
zjBqG`c5%59yNe5T&=@%o!9%&Ic^oW+$lj2tACMkw!3OFM6LVf5Mz9ILge1eG+wtUV
zGIw!ddRH^Q(S_jM9`FeoXeo#qEQomwSUBLn+oQ>?(HT9pGqOoDvNa-~5)HQ#X?X>_
zd;$eJ)GbKTxSWNg1jPiHbIG{|gN1=baNWc&uX>>8TR^VC;NP|sU!>u^+rb3wa0^7R
z;&MM|2H1&U<%TuK#KT3AgAy*NiyD*&ag-Tg*s=wX5!k|#*fT9Lvj8tR3-E8+izhTm
zt=x$41gIc(L{FNKy~r7ey~tP%LfJ+HOPUCkM1&`b3D|;@*fTsagVTbD;G|ALjC#0$
zN23EMc@ncV8J684g(~WTE?97a%U{%x1PdYZ2R7Z<f|A(tN-=`c^&k;JNovX@!V{pB
zX-_a^VlOgaK?};Ju%JY!L=8`bI3iGW;esF&umvZv=d)r2C;vuBaN=EzL~6=}I~RGs
zJX{du2hAp(MmtGPUk*dgNVH?CLh$EvkZxEQl9IbY`mlu@u}9A`9A;ouiu+k|eHpaA
zQTj?m$eCH<y)eVl6s^iZ_y|$XgIo?;33z0ndvcW8-{jk94JwVuSuO=z<^l=~a-v@s
zb*Ck^ltAn$!5Dc+a5)hvfz%=iTS`Fl1bF`6lu3z!e>Z;_zaig8zD;}ue44y3cvtgg
z@@nzC;#tO%$Ro>rlY1(60JkXDd9E%lSI+;OyEscZ4LCk>Y~;w}&|rVgzLGtIU4!if
z+hVqOHfh#ttdm&%Sh-j(uynDwF#luT!Cb_w!}Nw}4O1qQ65|8LMT|*|iVSxcrsGKt
zjNN!7N2TZ&0&Z-ahDck`;g@RZ!txM8L?6LK@8jQhV&gPK+DVI0Nx&GyrZQ`LHcmsN
z-Lk|QkqFsJ&hVUE{gCb03?E(DI1Q5#`{0PQKOUvK!e~#fDab7VhU?^-l8(H^NRMn&
zQgahaiZa2Q{TObOZ3@zcG=?|ingZK{1}fGWep#|{8v1fDA`%tUrAVn2CW1JO5~S6~
znT^vhkyM?i8*xL)Gy~S72e~7HOf!&^N1O}TFHEF`f-XEkgWSQeh)jndcPN9%H3KPS
z#E|J3lytEWl=mY^j$QaRUSE)Yl(GkwiZH_%k*;)MyAm0uJFsyYMw4tm;->pZTQ*L^
zVC2GwC<j1RqB6`U&w9k>LT^y+OeNX<Xth8XMkPR$Cy+Pf%q1@(l3|s=5<74uLSg}-
z3)`yf07{I>B!>g))@4s}4M8p^638_Kxu6IJMJq~`MpT5L-XX;>n_Q<L7Zpxq8-i3;
z_>=1&l)_@B6}S>XDn6lBAXOqT5yTDU;6k$l<cmb)Yzk9|C?{Yd2(75K2*VVNQWK^H
zzahxU!;VZdkW+^>nPwnIt1FoSf;<MrFquq;AjhgDsNg`U0f-7zcn#o!QE(8YA65e>
zIf5$y64R6}q5@!;WCN}NkV-D18~~{S%rGhdqBJ8a07r~&08s{@RR9bVLBSA<Tz(R1
z47?j)OkO;|Dgb*>GC--wiE}_Av=h(=O3x@208#o;D*!!m4MEP~9^@K=oW*T;`R6k5
zFwAG*^X6sb-prN6sm#I2c8ax$#gOR-;|+%S4D;#N)5Ky^lWAip;k`$&U_qYwhopOW
zfeBZFHdG21M@$Jq&s)MazGGsXVr*fYWR#W)x_rpM$RN=Sv_vY+&=hp*hlQ!JfvH7G
zvSkv+_>RD8@c53xO?y0(AtYaoi`(&<O)`zalAO*Q`kek~gQH%E!O?=E{F3~V%7Rq=
z6j(t63oy78YIwng5jwDiQ<|A+ifLLZXc?x3VOna6Nus5Jg|UTsa%vLjzACe1ljKBW
zlO%JD5mEg^kZ`&hjwhVVOh_9M#o}ntrnVr$2@BR+2Hjx~?KneI2P~Z6eI~ToHiS6R
zpa>*QVhb>0FT-Rw$iOOpgkNsiO6U->I%J=v0^R^4kgzO`(T0%mI36@z8A$F3EUc^r
zHI-lih!~_qO=$>m#4xsQJi+-j(0zBNL|prckwb+y5RvkzGy;np4xob$0tg>;fGw*d
z^^0Jk2_I`hPmToiV@;DpUU7;Ml&r)ACCLXJ5by!$2x@<VM^Ix;Rj@W1ED#Zjh)9w!
z&DcVa*jrpNLQn*{FzjMJo??)|5!4vFeG%S5%26=qYc`2B`bl!ybLew=qg5DgSSyUA
zoWx?i3|NrCi&)eUgA41YK-6OkC1Nk5#Rw&NV@Q_88%k#QH=<&M5{8pO3CowfgasQl
zfQ1qw22g_uA&wL?FwNM4jMxiyG3r+i4<dq$K*Azw#t}YZ0;({42v!(~ato;)hI;xV
zED#Y&Q3DYnj?)NiK}qao!WgNK={qDS&$i>qqoh_CM0f(Uiol!TDgvxYDh1Y_A-e)b
zF#&6E5_x$tMsRXM?iNzO8=R!BA|M<JnoVwvUg)8Tv5*bBIj|au{Ln-;0b6KVf-W~U
zH8e0bOG~jxF-x>eNlHyJNi$AMGPW=>HchoKHBPd$v@pTGkc~iClC+SGa0q}l=X(;l
zIUl|%8@kp9ZF4;=tAp3npyqP0kUjzZ*n*PSYqxQ2&d0w3mdxW0U;|Xxg8{T+BN<Dl
zn3_VM`~S2UvKaUm@;mW8=4;_o<vqrm&db5GlE;htHFpoUF4sA(d@cdbjhsOopE;&*
zn6h7EFK3rv+sPKi`kQqQt1ZhtmU<Qi=7Y>h%*;$nm|Pj3F}5>mFq~w_LUm_MV-WI1
zhNh{h$wrArX(oy0mWGK2mPY0lpc~4QO_LK%5{)g5l8wzREKLlOb#6m0GPE=>HwSep
z&5V;16D>`X%~MRwlg-l1LD!L*B_*cBGzKCYpJrfT4BGQyYGi0+kZ56UX=IjSU|^JH
zVFKD-XKG*q-uG&0$T1UQd~$M1qJ>eCp`m$VqCt{jQj&$ap^1foiG^93iAiFrc}!yf
zvhj%)#s&tKW(Jm)mS$<DiAE--hN%Wd#)gK;$p)4N7KzE`X@;gIiDrxkpvGGo8=I$?
zCL4fmcQ-XLH%>}4urM?-HcT}#0PQ%8Y4k@n-ptZ0(J0B#*d)c$GSSR5$-u(M)HK<`
zJTcYM&?L>w#5CE^(8SU_jX4BjyoDj?Qb!B3WCH`sBqIys#AHJYOGAT13*#gU1Isky
zm_|Qj;}ea|3@sAP43iR*k}NEZEJ0iPObn9~ElrFPjVuyDyOAuD4UNs2iXp})o28@}
zB$<FVBU_}Vfo=vjN=!^lGBh(tHZnI$GmmNXMK<0%EhW`BHPs-+z|11WI61}K5_I9a
zsZpY_5omKzN?J;)3Fty)ac_w6riqD0CdO%|X32)hCWgtDmgcF(7A6L1MkXc}X{pHu
zF^xXR#;2N@C8wDr8>Seiniznt<4iU&v`jKJvrIHH09`R_VUi5m+il964l&*`ImN)#
zC@tA6)xgNYGBM52#LO6^&(bv6&?40|HKx%U*?5DrM1xdQbHfxP^HfmOn<iVBni!j=
zCMQ~0n53De7@3)vB$*l}GfP5@H%T-%Gcry}F*Zp~G%`<2GfGM^NlHylOf@#ONKG~~
zk7@KmHa;12wJB&rbfOVx|5uWQiLs?+l2J;Mv9XB(=pyDM0}JEiWD`?;i1A6r7HOs_
z<|!$briO`@rl3uF#;KqSjgyQ`EmJHLV;Vh?jZaN8vNW|wHnB7^H%|gx)ts7aZe(F-
zXqlE~YMGLpYH5(1oRVy8!5#%M-UPJeJ}JpG4YWZHw97p;*(lk}JTckQ+|<Iz)F7tO
z1KD_kBr`J;&{j8Nixf+X#3U1wq_i}Pq~tVnlhibeWYCSkW=4hv<{WMi<Bbzj%`DA~
z4AYDgjSN!F4GlnBDh*9c&CShIl1vTKVjA6%jW<lQNHj1{1YH$tk&<X^oCw<3l$w%k
zo&vhrH^sulz{J$Z*w~n}4`O@@Xm7q{Qi`FOabl8%p_xHis)<pmNm?Rk>uRcHQcR;8
zvhildsRovbh9;(##wli|X~xM(=7yjP#8VT~k_}7^lTA#Fjg3<*%vnxCj5o6|PcyZ!
zu(U8wG&8hJNi|EcOf$AHPBb>PFiK8IONnW8MK(U!G{w|BF)0yrGklVXnW<5-aiW<a
zXscDCNlG&4;%U&1u%slxzYyb-Qj(L?OhKD1lTuAV7i%Y)o2DeESr}QE8W^P|TEsNE
zAR7<5$vQ1H&CuM!C^03~!XnYcz`!Kc&>|%{)hsbNF*(`N#3Io+)q)#(Pq~?;ky(<3
zxrwQPkx8nFF*sS6B$}tB7$+H|C8Z?BG&&<2pKM@ZXlY`SWN2b+WNeXQ2-;(qVwz-T
zX`W(cW|{=rhL~uclw!tX0CBx>a#B)Ks<EM&iD6ojp`nFwO0sE+k%6&gN}5r!sd-vV
zqZ6|6rbZ@~W`@Z|M&@a$Ny(<BMy9Ez7AdKQW+^6SMn*{{=AdnNiD`+-(2Hv=4HJ`6
z6D^F53=PfAl1<GM&6ACjQc_LK5-lx_(o8L48Xb|1H%du1NHQ@sPcu&fU9)arU}lzL
zXlZC_ZjoqVY;2rpVw7f>Y@BAmsRnVqg;|=ZsU_%S1yjSM6yroA<1~X*&@If#X{m;m
zmZmX{4#>tECR-Y(fijh)k%gIQlBJPFa+-yqv1O{Mp@o?lXv3#va*~l@8jlpjc%#H5
zbEA|*OVADDM#g4|#ui54o4YNOOw1CE42)wM?U9W)CUV0wM?1uL1Ct~p)1<Vd6k~I<
zlvE?j6q6K-q+|;tBLfQ)(A~>1jdsY!r<f#~C0ZmJ8>bnVT3RNXq?wqdnWunqONzNc
zs&Sfe3aCu5G~?2P7@uNbVrXEQ49X2jX^F-Lpe@9po5hpO%*;{@Op{|8ZIO*PH8M<0
zGd8v`F*Y(Yu}m^CwX{r1PBAyNNH$HgOf)n~vP@1)NlG?jW`h`SXl!U=W@>0^X>Mp~
zWNeU{l9*&@0SbTPG~+aLOXHYE8)V}_TX`*0EG>;pL07>WSR@-87@MY;B_$bICMKF1
zB&Ves8=4v>8*m+i7@urvoMf7mlm;4oHcSTHFQ05+WM*!eW@ZSwJK8L!(HhzKM9_v|
zL(qlDDaID2N#<#0Mk&cD78d3fX{n%Xss@&+$wnrr=4^Ek<CBt&l2R;_OhM<M7^NB~
zS(um^8(Airry5zB8yc7-#WY$W8=quqY+z`XWR`4ZX_9D=Vs4QHYE~E}o13SZ7$v6|
z8kwY;rdpUMF?K<WPfoN*vPd&CG`6%bH?=e{w=^-eFt@ZcGdD<0F#=~ROJw7Xl2enD
z(~?sxEew+k3@uF)ElkotJAw@@ER0M+n_W{4Q$e+hI4i_>V}oR))RYus6AKfIRFfnV
zBNKDOWHV#a<fKGXGXqPDm_`d^<1LfTjSUSz_idYj&b<H?*=C8BMy4i-smA8X21Y4{
zi3Xq(McBh3#;2K^nxz_~TBMjJ8Kjt5nwnT9nVJ}yCa0x=?zaXNY39hrr=%o<E(K4t
zOffSxG)^%#vrILzFt#*EH8M)HNKHyMH%mzY?TQuK2{9hD*WNrW)yTxm!pOuh$-vaW
zG|?=@Ak84fEXBye!aSzY4B2>tM6+Z|Q$r)m#MG2zOS7~z!xUp<GZP~tb5rx=R0C5>
zLnAXoV^bqo!Zb=VN=mk{umE+jj8juBj15gpEX<P)QcTPfO-)i0V;W77jW;(+0$oXN
z2->`xn3!x}W^87eW@M6RkYt$%I)cK?+&C>Q)g(>24B~pTG$Ru;OA`YN69Xf&G>gPU
zi!_5|gG56^L$fqfGegsuMiXS?4Gqkbl1vRv3{#VmOj8prQ%zITjExM_49rrJlF|&)
zObsoQQ_U=rxZXpIPfRp{Bs4?Alq4f_gH$8q6i_ZqG%-mvHa9bfX*5PQKG8DK#K<x+
z$-p?tG&MQN7<3_gqD4|_N>XaFfk|45S(-(fg?VzKkO#zg17nl4lqAa}BhzF<vou39
z(=>C?aWDpHM#+g5hQ`J*jYi1EgPdZVVw!4hW^9z2W^7?-VV-JkY+{;bX$dNgK!+Ka
zr5Ku}2=0LxZ<vypYH4C>V3`cs(VmoOl5A;g2ue$!oNfw=T0>;xjnara_k{Bk#Q4;t
z<RnWIgEX^L3(!G7pvI-Sg+)rTxlwAOfkCoaOrrs^@hL_IX30sG=HPyJVydB8QX=S#
zAW&l_5wtfvIVCyG#Mm^2^B%-_Gh;)Glr#&=lw=c2gOoI5qePQLGfN{A!(@v@%j86p
zm_~hM<1Gx#jm#30O+XWdY39b}7Uq`b<|$?-7D;Aih9;>NX33_hDJDrKlD8nnTNos#
zBpD@vnyuhAv{9mwvAKb{Wr}&KX<|}}SxloIvhhZyCdTGz#)jq~FPo;A8l_kon;L)`
zkj93opeyFh6VogVEK-=|A;u@C7@J$9B_<h}B%37}nj4uLm?eV_Hv*lm0Ltbujk?Ij
zo24d$wvd~eTbd++^14y7VREubs*$0ErKx3Fa;jN!s%5HanwcIn<(L_p8>E2F&#^F0
zF$Zn)PfIaQOG*Qs1Z8NDY>^VvsDo^LvPFu4v2jvzszI`)frVjmTC%a3S+b#-Wn!AS
zabl9Ofu(tpnR%iKENabD4bu`$3{y-}OpVPg5>u0nj17&AlZ?}nQj^jwjm%>jwULdt
z0A(Hv^F&KiOG9&uWOH-FltfV8O0-NdPEIpOOffPuH%qawWHf;Uj=7<QscCA8MUuG*
z=<EpdMAI~*R0}iE0aqp#$)F-l3)y&Lr-%hsLyR{tHZ?Oy0X20@lP%LsQq7D_Qxg--
z%nXt((vmHbjbj=$k&P#IW>x<X#CVfbbAvQP(78ToNvY;$X6A{epre>ljnYyr%q%QT
zK>dGSh5!aWf1ZEbPq?OWda!?ITge*DqQrELaUMeee;;Zuo)E9et1%IMI1OX-9oA7!
z_@pE9a2i4->M#&O9BHr@#RP0)K*ZJu3>z3&UONWuQ9V<cpO;yjk;%*k8S8!W4bNCF
zfx$_0GxS+j*ytbfvIP`BfVMa#5ZvMf*Mc-ljS`0Gu&HabFocUErl>*su!S74RUO8#
zu5=kB<R0?j2{{5=oG|8SaQPT?u0cG(a}BWRM!pCc6b7&nNQ7F#VTW!8ws0i2PR9sG
zuJ=TQqXmiQ8X$a!NCD`+0IigWBe+rm>+mpSxdSXH5lT>l5+RN>`32F6Ed+^ewqS&y
z5OnGbZ%Q;LakdbT<3aN@v1As7u#y2KDZ&Janc9b!k02AU1tYP|GmKyq+(Se{Bv2G$
zW@xzIkc)GeAjl7((2OA*nplc7UHCO@Aah`;5s~y!QzJqgDNCT3fGsqMZH;1tCg&$w
zgeJjI08Pq96P}dCW==f(f&j9E6V(W8;Yn=s8#6rbLBjK{I-cr=<Vjh=;Q&gWQ3R7G
z*3tqlh#a19LA1<{5JxI3;esF&umvZv-3^T3l)ObmaFUwY;m$?A%>XV4@&hO|BMF8k
zyo^I_KS9^yg3N(uc34S*7Mg@jz!sXs_O38OlUbeyp-I>eprt(#lEg3Vse&xkfdw9X
zK@4g^2^ZFfs>c>o#P$?1f=UlsS>w&e<S*@kIvG?9hLc+iA}^zcg%zUqKn*N}I8v>G
zy1WHj@DbY+#t1%GwQ>{Ra$_nLgUI0kS}PSs?pi6xHeFay!V3hnJc|%VDgj}u`>_Qg
zvHg9FKx8z5WLLa_NMNlLMoR~;^ELAulL(&U1TV{=A%&LG;L@<Lz<-Vt7e^(7Gs7VU
z<`5PG78d3k%xhRW_<r!6;akX8%IC=^%lnD<81F3JJYFYWF`idE`*<etq%jsTx-oub
zJjG+hIFDI_=`Yhorlm}kOuihxOo|+e>|fbWvd?8NWOrkfVwYxn&vuw?I$JiIJ)1D=
z3)VfX6IfzcQyAVcH!vJxwP598dBC!T{|f&K{u=%OeiiO6?l=|$Zewl^uDe{DxZ1g5
zxD2>hIB#&S;cVax<<#W(%W;uoDMuyq8s;0YkqB+(NG9l5hjEHwih;Rls$pVcikU@H
zVw#0za#ETZ=&W#alO!`{9wfC!sivluCdtXEsitWbX$I!Tspgi(pu>+-%u)@^Q<?rC
z)EcLyr6n39S)`?yn;4j<nt+bVHLy%GOEEXIG_XugWcrPymcXnS!(kM)pgCQ0BV!8_
zLlZNLv=oa}&}6EiiLrr+fw3{;Lu9pSsYw=wMy3X!odzi>#>PoTCKf5?hNgz5NfxOl
z3~gG>k&KXVFiuWRF|xEUNJ_CZFf%kTH8wXgO*1e`v;ZACZER#&jcjbPc?xJKDA71E
z&CJXYG`?#BI%U$_IMvuRHI4BUlG@ayWCLTP#3V~glO*$0)09LbOH)(JGz;^zG@~@j
zRHmoMYAwxElTuAB(o#WZFQ*w>nxv)~8yXoHTBaD88k;dOAgeVqH!?6W2OYnfYy_IZ
zH8V3eGD}TK1|7v|V8A#RNo`89MXI@_fl+F*1!(-*!ZbPA%*e#Z7&IDfl9s|GjjR?l
zQE!=+W@wORU}|h&VQOXonj|qxHcc}$O)+NlMGCSML(9};L(4?dL}RnGWXr^)lw=do
zxy2SnDM=<K#wN(d8W^M`CRwH>r5L3q8=0CUCxMQi2c1rCY-(g=%w&zE*32+5(b706
zEy=<l$=J{`)!ZV*9JHPz33QmYfjQ$kgjy403o|2wM1y2w0|O&dGfQLBq$JRktYw-(
zQmTnT64Ne(T4VF%L?Z)}<RlYg3v&Yt6T?)C<YdrtFhfftQ)A;K#!1L(EzArIjngd6
zj7&hs2OC(VSr{jqB&L~I8X8)d889HHGP4vz&@K%l@Nx>1L`zF^&<YqMvs9yGBTLI<
zraB~Z&5SKl4U>$GEfW*XL5B^SrKTksC7K(VnV1_}rW!EaM5r|}vP?5dO$JScr-H_r
zQ!OnFEDg=gj4TY(Oq0!wm=++^8iSVH7=TXVHn2=FF-l5JwM<DgGD|g1HZw3XHZo^Q
zMW{6~Nj5Y#F-%EKGfM?cxSN`qq!^hdn^>3`r5GC+8Zb2=tF=foOEE}FGqki!wlq#P
zF$7IinVX~-n5P*Sn^-V0Bdaw}v`kDfFaYHZqa;I9Q&S_$L`#zt0~2GzB(oHzHe|Ji
ziJ%27CMIU7DV8RN#>SS$21cM`w-b%h%q$a`!jaS(C8Zgq85)=xCK(!n;wr`5BGt&u
z+&IZ18FZRF!*yh}mZ?b=pqWeaG*d%!W00d$Km+XNscDv`mIh3XC~8xTO;eMSObk*@
zEey?#Op+`tEzOe>EiF?GO)Qd_Y7t4@#0WIMnPg#^WRhZ>VgZ_VF-%QPF-|p4G5{Tl
zFM({Vk&#)7CFov&Gy~9?&&HsY69y^C2ByYo7Un685y)x{l0gZ<AT2e?+#=D^)Yvl3
z*xbS>#WFF;!qn7)Ngqiq_@wN#<P;N&WD{c(vm|p1!z55WZJc6hV3?G|q=u{(bi#77
z0cgI`05mmWkdz1>jZaQaF-S@=VEBZj)*unI+{M5mEg5w9ud$_xxv@oJlBKalqM50Y
zp#kGYWVPmIDTXO&X(kp)iAlzW#s-PzMo9*s`vOuElaiAegOGyEz$nGoJkcQ0BsJMA
zEy=<-)x^X!G0DW#*wD-(Da}X|q0~4n#mLk&CCR|l$iT!fDbX}B*~B8%BF)GWl<g8N
zG!QN@PD@I*OfpF`OEXDIGBz*=tx>Z~HaAF3G&8bHN;7A?jI7oo*&rn)(bCkyB-zN^
zGS$S=5_Ii=0chEQiKPLf7K&PPGb7M?3d>~kL{rc_h=pacg{6T-l6k6`MJl5`vRYG1
zOH)JhG|-I>=0?ee7D-0tpw(Jwpyd!2#tie2)TXAHnx&?tnH!lVr<#Kn>ZKT1rkGlS
z?mjR`GfZL9LspxZWM*t&ngS|PO+hDwrx}}?q*_{-r&y+@8mBU5GB7Y7gjM0A^k@i-
zhQJUD0i?{HoN8%iVP<4$1X>7aX<=!YXliI;oR(;6YGGnwVa}|CtQK^VI;f#;ZklFj
zkd$g{X=t2eX`YmnWMpERn!<P%S*>Y`fw_@Ma-yZNS&FF%=mhr^BU1wl(3E$wkp-g^
zvRV_f#58mBq{P%@0}BJ=B$LD>6VT-mDXA%`X2yw(f05N1B_*X;q#C9g8e1fqrWquI
zim}ur3(%CkQIa{+0c5p?iH0VYpmX^xQd3h>EK|&kOw5dvQY;M949qPIneHH|O-eQa
zEvGUx1g*qMO0_VsG*7k!Eh<hkNinxDVKPEiYi?v{YL;wlY?x|bY-wo#TF{r4WMPzQ
znqp?0WW>~utk%>dDa8b|7{WBgz$Dc)CD|~^z`!si$<WZ$&?t>D2T3h~1(ysbkm{<$
zl*D9<q@+Yk6H61&o&r-N&>arRX^AFDhDH_!0?5WDn;NBBCZ{A@nj3){dgdtx$!2NE
zsmW%^<|&C5O!tx1g6c-l6#$9GNhzR8#Wck@&B!Pv4b+Y^Ok}!(q}DRcG%>{tw0O$E
zG{x8~B{|73F~t&e5d!GSBTL3JNY1rPNlCLzGBq_bO0h^wvoJGDOi4CNHnB`HGO|od
zF^)zu)*>y*I4L#N+$0&)vPn)fHcLtY)$j%;=BZ{zsf_H%YR%G;jgrz5%~Degjg8GM
z%?wP8EzONgEsV?!Q&LSBx)Ev#t(IjtiKNyn%_z}0(J(nN$ucF;+$1T<z#zrkJkiL^
z*f7;B&6IH_vf302W0O?F)I{S%OVBzSP=u$LTBatM8yOpzBr=I1sWml8Nd{d(WDGj7
z(=gdAG1VeD(K5}%%+w&&(#(YM9Fkg-v?RmC<Yc2%P{%dJ*f=p2v|KIG5Y&^jv@~OU
z4x0bxX8gs#x0yGUM}g}T=Vp#Bc6-)WEOVH>8GkWc9b$zN%(;xJFxDuIBLtd!8*>Sd
zeP+Pc4(M0GnWzJo&|xSfd9)EJxIQE$s7Anss*um{CU!|I#;_enJ9ya6LdukyQ$U10
z0UAusAsnDM=8~|@TELZ}1t?q`WiT0eQ#rN(C3X=oMu2kZ(IP+zdjd2IludXR2%ACh
z{b4AxKyZ~rgeQs#*n*STMbEg_5?P4(;z^$b=G4qF))K+}hLk2y{Gizs*q9~BnaQEf
zS&Fv7y8yAl8?wC)ezQ1qUmDUWKE=o(3RaC8m|!7&LIz+9P-2&PW2Vnzko1W+KrM{%
zo*9BMPEVXaG@INTGtrYMWcO$qB2cl;{=nz$kOLH<5;as2;>ghp8|nv{fGtFc-94(s
zz#_YBt?w>3=xR5}H3$R}s0F_8G%-S7>xMObB6~oyNwqOUlGBqzpEDFKeFh+c5;5zT
zo1GI+@}V`zny`f!v3mh9(jZ$M5oyp2?~YqTj5LVdv!FS)bb@niSW^sanhaiL!()Yr
z<Ob7>E!>FR<bY8aGIl}2O(+##VTk{{AL0r_nDaH8v>MZhyjcc5SqCWxLHP_8bl~y<
zHPpaDh)GF=9&8~-?7j_#BMhv{x6?LN?}lbhaaLkN4F8=`mgv<7PN!=&IX0$Baz=9)
za;Br@$|OXt#G2R;XUD<94517);1J?Sr5i#!w%{XnUkXNoV-F`L_{{JXZid7qID`j4
z4Ve`5S^{%XG(0mRg#tWikkcMq5N&E4A&$!gY(Yuv9vqA^Pi!Y7DEVsf<y}j>L5Wf3
z5%z;-lV@WxdOI7V&V^@P<V8mDDabVrELkFyq9#j(I3iQ)q8foMJc+G!v7gysfj>0y
z*SctxE)gEk<mC%t;9@$&z*ol0%zcEbmD7#=2is!SP!@KkLrjMlRQW;}7#R3MnC9Z>
zMUD!OhQPpvK$Bx*1>qVBTmKzVLc@vz#25!^QGgIf8pA+n$5spwyAdC=hKhm|tEzAD
z6|1DyQ26~1s-emW*HG9D!M+?Au9ApwL@@zdP#O?<=m16y#o<OwP?B0h!TpAm7Et^E
z3e7UYp^3e|haSL9L4A*80=Cd3_KXFL(B$lcgr*WJzJy6?Xc7zs(7;70u>%*dJANRI
zZ{)o!L=IdKFaTSC5__ryMu4)MBqBh`9JnCh4^R><A)G|9CUuw~N)m+$qBlw5;>ei=
zCI~VCTZj^SkOoGG3jQS`L<x+oVKzx&&IMgX1{)5C*9ag#fV$*GguCR}%z>TqM^+64
z(~K<)i9Ia@BMiB-i3vmeU2@{W5axVP@D&mcK5Qig%m{e!!4;uZJaBQOt`ST#w%{Z7
zG!%^B<1v5)pPVedQj*l*!{>ZZ@D&gaK5VHEcKRng_~44rf)6f^l#OAUu>~Kor@deV
zpYl6e1Rp-<gXV4W(fgB--gy?%5C=9R;!!q+krjxjMqmp{BO*_>!3auDH6ntN<V^sC
z!$FgOHiHuWK0%XWV;*R%R~_G2FLY2UzceW)RTs<wm9?-?1`D93Qm~Ldq*;#8fGtdk
zJ<bOsOnD&Ji{qbMBz2q@ySqWB|E1y&Mk>hiax^h;GP^Obo3TD+nZoSGcZqibj}zA`
z&Z#Urm<yOR8QxOClEGsH`_#eXmQj}sn-FO7YOF!8LLftuNLNn7n~ccqNYvW_VTBt)
zDQXFa5J#$qQH{V>+z~q@iDM#A^D4fk4BieO=0qU&`U81f7E~cuqlYH36*BBZRphDy
z5o$z*CbALOLX+6@Cox8LnA0H@GT!hcP$6T^Jzx(|WKVzsw2E+mVryf@qpTr-Cr`Li
zv;c*RBek+ojldS521K5?i5Z}hv<Ohbp3rRaXsiSUs5)mp+N>B-lMzy_!vhdHB#~B{
zmt2yWpGVwy1YX_P!jjnIMKM}7ruvYu#5?RrAaP=J`-lhvO$G)=;bBt|P{$)pflZ7=
zj(EYBkwB9d$xC$z8GtR35qr2YMk3>w2}xvzOYqbv<c)X{@`q+qND~9-cyeRTVzfM)
zhv??T!&ffp>LamHXZ>KsAd&*qau7)Zw<*{Hme^yZF#?wH03={__uvay5)Zc_${V1O
z#CkGE5|Jw@SfG+rS;LD*P<4+jK#4s_8?$N&AtFEtj3g3QSEKkrv&pWpPLeZ{!;mu-
zEtMu9QYqF+a`;V!@Q{R8WT>eVziw=yNbGsx7@^2iOiU=6;$0$u8H#X!A+<8#z6Y)E
zsU>oK4}8`JQh0(A5iIb)H5Y2QfrSv4`y%vU3o>HQK*z|*;@*%T!`nzS$G^S@S3L~7
zm=oc2O)dro1~bNc49s7cw=fqo>oL7#TEf4Zzl`6I?;GDnzHB}<-iN$%c*A(bd2aAb
z<?-j?<G#S%&+X66&vlBcjmwGiFXs-<5>6|QFC6PQGB}jj@32o}4`UZ&yUf<Z=EcUt
zdWN-|)s2;rWe-a^ixE>ilM3TK#u<#kjJyoT85+UWCF5c+HA+xF1kkU;g>|zK7umu^
zkPhBLYq6g|zYZ7P<A7xrM464~mVz=9BOmCF%0#5=aEa2Y3$M$;hKQjX0?+?&`{5!;
zB?3HigA8H#My?@93-cN7kZA~VJ;(4GbQNnPQkcLUkJmf!0*>Jy#ucWpNh!Prz=rD?
zjWMngCrUr`NWM$xVL)V*!jyqy;|sZlAkA$v`jTk~tP}*h<U6^BAf*dNZZZu)Nf-ao
z(*-QV5SbM&g2-mN@N~f_gq|+o%Hin(E`nqLEL|{sKu;HN)p+$o(gh<k=w{z&q-0H;
zZpdgoI4XXiUolLa2}nI2kTHy&PHdcpu_QYrIUjz-Fk>irAqiVz%os?ne&{8`pU}%~
z;z9y#An*^lroe0i2PZq(rXb~2hPULJf}B|yUC1^CDYr7bC)X5|?E2dhd`UdwI&RoG
zSV-9w8Ump4UMLe3q{-;FnG>ZG^^W)|j1mWG0bbitD^`ZXWEui<FUT_t`^oeTa>Qnn
zYX(xZmXqljlt|qP%DBjv#KXLbKUm>qa0W;}^6lcp>4z7=D?xQYG}86x#Oa6agDEH|
z!6?ItN*9naoM9Vz)+5UBBv95$CE5LGMR*}b2~LzJkV<fdP3X786Bm%M5<H$<?T`XI
z6BG=|$W;(g9zeY$o?$&GMI&D|Pn;i6Yk@p+4S`t(%H*-+8iJh3Q^^e!l#Q)x$aM;G
zK95H4(Gb-H2ZaQ~1Cag5JsP64q7}R^$utBxP8iL}Gz8{guy>w-_Wx@!WHRtC;CJME
z#MjKH!h4iAjhCHg1&=59EADP?9j>!nd0hOQ8#n_wK5<OuFk!#SUdArYwu3E_^%v`G
zRvVVPEOjjM%m<hgnVFatGr2H6Wo%<qXE?!-iPE2qX{<rM$H3Aw#WX1yboz(6fsv`H
zWpav%rKzE%d7@czT2hLoxnYuFvaw}aBGYTgnRY2A1_r4{<`$MlNhX${V>ptNjFSx$
z%}f)M%neM^Ok*0WQH(b*N;bDlG)*xuGcim~GcijsPc%w2PD@U*0H4v3WMFP+l5CvF
z;R`W733NO~nq_LTrFn9yVUoGInORbzk*T4vL5i`VQL<r7V-<?=CW!{g=4PpBW@aX!
zg9c5^42%to6HP75j17$~Oj8Y0jLlOm%newex9*rEnp&C|7@3=-nt_fRNi+goHj!d#
zmXZuQQ!m*xrm+&)c+k~?W)_yF$*Gp+pi>4dlFX7V6H_gc%uLKo%|W*gnp%J^!Qp%b
zaebPxL9(fNs<8>^+^3Y3R5Odjl%!N6vov!9Bhc{>F^v_-#wQu37#W&cT7ZsJF$LY7
zm~3W}oM>QZVUd!SWNu+*W@4CXVv>@~1-;?U+{`4|+z52fp?O-esgb#nrHMt7QIds$
zp{1covVlcRV>z<%CdOt4rWVPGDHi6&DapyH7Un6bNv6pu7G~zA2A~7m%q>$u2Yqq)
zKwNK@nqrWaYMhdim}p^;m}U;TddAoyIn~(EG6{4aN=#!JvhkKCAorLU8k!n{ZkMu5
zOEfbwF*G$bN;NP|HA^-JU3QXeY-z^X2{As^$TZm^)hHQsQk7wvfvLG!ikSuItUpUb
zgJkm*gP6urWaEvJQw<V9x0x85C0isV8mFe3CYz*z4wW-C2OYd&mSUKaXl!JnZUiyj
z$TZO)CC%K#($dt_2y~8{nYm?ZqNPPzs*!=Yg_&_oV+peHh87?xQ!`5=1EVxk&?SzB
zhA9?C=BZ|e#-KC(42+V~K-cQAFN7GMVwh-@l44<!Vr*cZWNK=hnwVmkY?y3hX_#nc
zo|I@7(^!mbyqTqGa#E_Lxp`7D=!_6!12a<tqtqk=GxMaBGz-veG-+lQ<|&C{*C56x
zS|*v87^Rq|S{Q(C2{JXZFbAFRWs+u@W@>D1kQ&oiglxP)l38-1krC*`I?Lo_OADjK
zWaA{`L<@6c&_RBnqx1|@4UJ4Kg#sbQn;7Chye+1&5ZU-tvqa0ZR0B)HWD{cxOB2xH
zcc4=&L8;#)8FZg!ig^m?ctFkui19`SX6ELWhN;PxDanaRW}s8`(k#pq(=08Gj6mn5
z#WWTm8*gcxVvv-Unre`iWMrOfY;JC82`XlijT2K+z}L2<S|pm98>E?MK#WgLN=;0&
zFf&RtN=Y*@wn#NGN;F7KGX|aQmSmoiW)#zyk79hHiHWI!fq9Bint_q2WumF2MWVTR
zqNQa@D(FVCWE0CY<HRJBWX5L@<CDxRO;U_fl8g)>cLW()7@8V^FEUI{HcK)xjcLq7
zHr_bR9CRQh=<c0lgTy3LBLl;v#AE~0R3l5vGz-f_3*$6nQ^RCSrs)vl%?-?qlP%0F
zK=<dQnI)x|m?otfC4%k)v@kMHvowim%tban%_POr+$7b)GAY?0*(fo^)X*r^JTb{M
zB?WX@TT+UNWvZF6k!dpXCW!GVmT5_b78a>VhL(wGsmA7p<`x#oW{DPQsfH;=W(H<4
zjXB81gYMF@Fg7(vHb^$LFi$hGNH#JuOind1Ni(%HG6fx6XlQJfXk^484Kdy<G1<r@
z#WdA2HPOg85p=3kqNRD7X`*FPin*mla#~DdHnQ=l2BzjoMh2ieK+RK=4Gk@lj7`7=
zv4w$UiiLr(rD0-nnvrEP$83o4DM<z<i3Wy=Ddwg|pt25B%!AJAF)=hrF-c2KjA_h5
zHr_DVEGfmvBr(m<+|oGNz|zbj(KIzB*~rw;1au#(5$K{GGXsk>W*L>-6jKEigEZqr
zGvj2-G(%G(bJNtc6bob1G-D%E^JL3JGjmg;n8r+G<Bd}cEYea8P0bQ5EG*JYjZMtW
zLHA>UPU|#FPDwVhNCh2YXllvC0x{k!E!85`)XdB*In^M=B+=Z$G%Y2~(#Rq)6;%3J
zro=R6ARC`zn4D^8kYr{GIyE%K%-qr<5mYWGr5dCqnp>t=7@M1=8k(D>ajt|IpKO+v
zYMGXln4D&5mXu^*XkcJzVVP)bk!Y5bY;I(39@ChPVtlHxQEDpa0>>oKaZe@|Muusr
zX(^yXF%2zJOwEkV%@UI=Obi*JHy)*cuF5jANU<<6H8DytPBBVJOEpU}u&^{UH8U|X
zHH>LYLpI*r%pl1u%`_z?B{|tJ(J0Bn*u>n@+}Oy%)Y2l^z}UdlAlb~^(Aa`27vlOf
z6Js+IV-s_b7SPp*mS%~TNy!$52BsD!=H_XZF^#Fn#v56r8l@zrSXw5fg6?!o0bLwv
z0J;$}DJ3Pz!otGHAjvS%)WV1jdU0f;QIdg$Nuo)Lp`}@BD(Ln{vs5DsP(vdz5p>^c
zOk)bN@u?}GS~$@pIXN*c$<#90+}t?HG&$Ma(l9A0$-*El$uiB*BGK4_1!{bnnPrl3
z66glulw`9Mb0gzaqtrwTL(4SNR6|2cP+gmhY<!AgiixR_skwPlsv*cQGjq`0i-{Jg
z#%Ts7#-N+>EX^!a%`8};*PxlFf-cW8OH4FOG)prwGPO)eG)qfNO9446&D7j5rZEZG
zcoXA9lSB*4R0D%V%d{i|gVaQe#H3UcP|`>-OEgb1F|`0)F_y-30}}Rzspf`87UrgD
zW+|y@Mn<699F3BUjSQ145{-;g(^6v^6H$z}FiJ}?OR_LCOi2aRL1roD=0>T;mZ|0`
zCW)y@hKXs0Nr@(gX#&uMX>5-FDBGCE1Z3lrj8YAfEX~Xe63r5gLG7U=%T%LOGh+jz
zWDA2t3rpj)L_?!A!&J`G5Z9+98>E4*;x$iAOifBLHBK?Nut>8sF-u7XU0`Wq7}FS!
zY`l4zfuX5Is;Q}oL1LnbS*l5*VVbEa=o(N<P!VBnX_;(no?>DGyG7a3!pPFdIMKk^
zEHN=H%_Pad*uccnz%a$s$TZO;EzvZlF%H@IG}BZAlhi~@bCZ-*17jm|P`zesWMOP#
zY5=-a+04?!#K_pdG>vgN#Pz8bNol4=X%?xeiN+>IMiv$pCKg7?hN(uWphK7qQ)3!q
zk&Oqnu+q#DQ!EUUOcKp3OhA_rTUr<!rKN(de@;zH1D(NUoR(Gwy@xn4(IU~nASubr
z+&sxLG1bV(*xbU{+{iL1$-pEn%`hpZF$URq15kyOVw{p<nUt1jkd|y=WSVH0Y@C>E
z4muLh)WqB<DJ?BI)j$e*VQQ+OrCFLG=nU!<BQwy^riMwN%Qwx;(kzV4Q$aV}MI#%Z
znw*%FY?5q|Xbw8@H^tb*G$|#`z}N_Mg=J!znMqnAs7y6BV1wR`m}X{TWN8FCsnj^d
z*vKq3+0xR~#L_IuDAmXy)zsKBrZEcH_(W5)loU(Q#dC?E)qWPHW~oL-sYWI#7NDkD
z8tB%=L{N>xwHFfhhN*^@iN<Co$;O5j1}R2KW@hH*CYELfpjs?3+1M<mF%sE$!$boU
zP(_<)W?*5QW|5R)Y-y2dW@cn*X$rbD+Bn(7!qPI;%#s7z`LQrJFi15qvq&~HwKO*|
zw@5WGO-wdQO--`|HLolUV;Uonjkh#2Pf9Z}PE0d2HBK@&G6LO}nrZ;*dKjA+n<g5j
zT3Q+#r5KyCIYC@+lwx6EWNBfNYGj&{YG{~dZegC3Y6<FbB_}4Qq?pDuh9etqVVPuT
zVwPr{1ZvcqgKk$(Gchnt16@yPW@Z8kA(O=9Gy_XUM~LwzM)(gsj%f@-Hr_1J$igT&
zDJ99+GSS@7JSEY{z%<p+*dz%QLgvXS$%)Ap#z|?WLd+23Q_K_1O-#%Uj6nxPS|l5p
z8Ch7SnI$Kt85x0&c(#aX3`I8H0@OK5H8ug=Se$H<YME@BXqK2{YG7mry1qRvCB?)H
zlvd0oenN~-Hb^o~O0+aJHa4&@F*QmyH?%M|FiS~IOfm*VvPn#12(s};hDK>gpsrq`
zVWPQts)b3aiIK6Hk!5PCNm`O=ni2S-#58j=CRd2@CP|=<X>zK$aU!UBWRPkMI@Zs?
z+|<Ox0(8n`Y-2E6CId5Pq)Kr{qM?d`VVZH8nVDIVu@UG(+q4u=31w)I3TiJKnI$Hr
zm?m0+I*tsx7DLQWOf@hCb;nZDj7*J8Ks^{kqZET=Qxg-zWFr%!B+&eS2%{nc|2h8o
z{JH$r`~rLr`L^)2@x}4E@Couh;oZ*L%p1t7#Pgl!6wfT4JRS!g3GV;gXSru{XL6f!
zvvOVLTFzC?<-sM+`HXWbXA5T-rz*!6j#C`-IPy81IHWmP*srs%Vy|TnU{_}Q#&(iz
z4qHB(6PqaO3)bDNeXL2WW~^K+_gFTuw6R37=&>*{Ut?ayT*n;5tj6?<=>gMPrYa_P
zCK1MmjO!Sy8T}X)8QwDN29GP~ure?(q=A_<C3ILhkp^_(2T17ZBbcyJL#9(iDTa&@
zGHo_u<wP1IL>Px;a(oJGA17$EhFOs~Ezs#)kQSz!L}`Jo0sw0{Oq3SnVI-#8#A$(!
zf`V;1Mw}L;5q_riL}@`D=wlX@WaTtO48$S=nb}gCl`|Ac2C~fvwtEO=1p?DP{A!Ws
z%b1oCP>U1>%$)euq6G0K0&0=WW!gnREpnhP!mk!3G@0<KMM<kn>j<btPNe(st3^qj
z+wiMJ3A1?w)E4C?mK0@HfYakI0&0=NcNGD($l<#Yzgpz*WtxdrexRmF)Pa4b&jb{s
zq{>5t6eD|YDFMYOVZ54<Vq}xo5>kvDa#IK>MhUw2_!Xn3&4q*%BPC8|K>~_VQs+tn
zicx}YJ0Zo$K{tVrV&tHENkB15(9IEJ<<!O~37Lh|SUG(WQ+X*cr-KeuLJA*U9ac`H
z8B=V^5NlLy^;kJ$@tdhzkXV$GS)32bl&spI$`?Mxj@4|~+^M!ED`zkPqao9rYzC~H
zi3C)lq!)E!G$1DfH(gdvq*+|7?nX?SS`cGAEc8LaqDqtoq{O2@lm?^(Bt?t{<V0j@
z#L9^@?~B#P$@zK3B}JvlCHX}lUx*VCxv-X%08wfo4J$rFP`e6$qCss}@e-v2If9*u
z(t#XjJjCfhiZo8*bRfkV2T?kZqs>qP)I7oxR_^Mc%+HjWmz-0YlB%DQ4y`IdnIFmo
z#UaxYT~O}Fs}7O-nR?OcLM*207A0qbO@5>gDk|`sj8s%G%|I*iu$c`jE0`8&feH)!
zhC>PqrcOOjUdFE!k(Zh78G;HI0?Lu2fN8QZDC^+YftGccW)tCASl(f3B}y?Q^Dx~&
zYhz;zM#R1la7^{1wXxw^m>#32B53jkr6MR3WCFuJ^i%|uL{f)HMU0B*{=uRe7Sjyp
z(W4KGV#M+pMgjDMfkinaVK89CG!~^O)d<5e^t6FZ2XZmPaEb`mBN88@EHM@!mr4w$
zLG%B-3^ojWZu~QNesCY;YUB)L|IfCIwS>ip=^kS*gAMN9b(3$CDCo9zW6nbOUKNa8
z&xpi=vZE>mc~u9jm_bsDy7dA{0(nCfiXqr`VGz6V8T(m`F2DZb*-eFi^N$JIS&YQ^
zK(ooWNd&a5)DYjcQXHo`B1bDMJP}G!gA*Z+a<V0|5!gaAiOBJEj6E%!r@?z#@Q0@b
ziF;az@PuYlK$9@~o<B$mMcSu}BWh6F2(TbUQj8j=ND|0N6x9@Lp-Rg%ia$(=Orxk?
z&}_165+b}q4c7Yvt$l^|77#@^EHDxKMo_~NA&#_89lppCTOblU7lUhun#*@ld|92;
z9cp-eui50(BnUdO(iq>F$~e*!tYU)&A(ArGFhr6-PLDAC*aDH*87GFR3@n{~E4Mg&
zgPuvvxEzwd@dqOQBP&fTi7PQ-9?)!ZY!U#4BHoj!u@(}D`W_aF2xX{&h!96AC=uGR
z1tPKYY7B=MSmoc|%Kdi{8i-|(4fq67BK|<MM9<O$JfPX+*Tj##3MX7Z!aI4OHXJM@
zk&+#1P$Eenr$-b+u!SeF#iJMliwGO<7r!uQa6&FIaQUo@Ctu?)9*xj1F(AeZnoT-Q
ze3G2L9EO~c@J12j@RAUu4ZK(i2;@*i6o9CKh!95<j39m30*=@jSd7|Q3UbC3{-86%
zd+ZD5T?V*ZuGwVM#0xsS&X_Y9Exh6o;e{jQAuVxolO9AjwxA<+b{Qk+*xo}5LcFQY
zoW#Tb@Ooae$+(F}k~5IQm@^hF{2~a2A1LLJ8F(PA*g}rjiF1sQ<JwD1$Qk0@DUPx2
z8GFcq+^*T=)x=HasRh`2E{Nn!IK%3qoEnHN6p39QfDwuuuOXrM-W5-&hri=OT-HVP
z1E?C|1huo(@tv&!-9Hao#17enu3KD?nw*)KlUbFT0*V+|dIT#*4NI_)eieTG*n*ST
z^$-~C8a5|za9Wu5;0aC({HJPQv}=g+hGuFLmjtIehcu@#C|3&$$TBc6u}Opb;wV7`
z<zNXZSV*K~7HMc^=A~ukWtLQ8TqnZIk<GxyZp6TD#5adGfcqcUTF!LNbg(_6#ApbN
zhQMeDjE2By2#kgRJOr9do0ugzgE<U2<3Uxkr~pGIsA^_nYm7oPxDo9^L`O{*(&2#C
z*hu22l{X%(uqqw-o>bG+)MTSXqcoF5b4$ZS14|=w3k&n4q-4|NM3Y2gOQU3Ca|=ro
zgJgz-46O1;_~n+Zgm#d1ZbKS3c+X-p$KSZIG)5b=!Q*()vCx0up*X@AO-@Z5pus9~
zhWua?d9Z|o)T=>FIY<)7Lo6`;*isL%Yk4tx8jOyR)PuKaY>t1lipc(&F3ba<`4M)4
z^CMW3U_4wDxsw4GB<9u%R3oqjCb27*F#=PFnTWu|KUhU%w++=3pne-0k^MIK!H8t`
z+X(2#7M{c|)n-`9z;exak<#8iXwfF|lbG<tU$mK_k4HoLZ3Mib+2qm0D#;noVa%D0
zRy!bF2#X`5B4%>Q&FTmfu!SeFYtu2(CzC4?;c1TdZaU2LNiYyJ8>^dGBsq;aq&e-8
z!;+b;(F#%1CKnXI2IQfkhFT~h$zux>q8HTfVPF+KwQtL8*l<0=uEmf*!CQZt5-0&J
z(CSYl*V5_yfBxAFJPel@c<=GFaa(Xc=UB)d%_hdOk2#Y`gy9muCO^m-L#ncFvTIT#
zI6sMXUIaeF2u(;xb3UkP3cqe_$qcj`iI^Rpm|2enoXT9;w&EFrGRHqZiBZqucfV#+
zV3Pv+q!45ZBL|W1;^B)gK<heSW1_lnqmk=bB(<mki6o(q#6~d$TX3cjxuX>$I5}4m
z5u6qz4>QBPkJA^RK$RyVP+?2MK!FNp!?!J<1}a=0Jy78i$jv|$L$C%ak^6Wt0+n$!
zBv6^o;z^^V2P$D-fX;N51GQfWoau};dg4*09${G?DHWoJDiNk&3sz$HFJlBNS1vKZ
zioX?uk@b=Mhn!YX0|PX-E(_|ekUqDLXo0{&6rP#U8rcYOq;eLa9a~TmyH^_{DA^!a
zA-UpBp``X!2zUUr%tHnghy?n4Sd$g(YBE?LB1Icf$r7d?TPPB{B^@IaS!fZ8NIpYO
zkT4H`LQ$HCP{dkTzzjizB3v1ID8eO>i%gh)Y@tZ(&U?&I{6s{yCN(YMXiURA0O~nQ
zq1Qf;g>Xn0)Zj1#Wf3d6L5X4rw(ul&od=Gkn*W~SseACxc%rYFAto3=^T!ed=Z~?M
z5U`|%T$v+Oq9#m)IC3G0Yy!5hB=*<_jI_yg1DrNpC<sl=jviq@fa-B^3hHsBJrIcW
z2`^VsLlj4OgAfKq3)Vm-@~{ewKox+rIq?T7fmvh{>T#sN&}?#V5<^d=kZg}M8i5!E
zLmHDt*#HX*RD?>@Fhz*tG67qF5}V_(-%5plF){wZ2;y#~LJ0!R{3ay{PD2i9PFv7e
z1l9?8L_&uK7-}dXq+y|fIyHZofmJE)XUX+t&`~S~1_s*S|Hs99lEI5%5d-g3-b7wq
zo}WBN8H;!(^2G9JGT!3;%6*W#kKr136t^1JC$4>5U0h*YN}TUGcQf&EwsVGXDsa4I
za$@A-*vZk#5y(`=xQs)V{U!TW_9k|Jb{V#pY+KnH*?id~S)Z|PVy$CX#HY*Z#VW?~
zm}LV?4c|!?Prj)vV$6@2*D+TyyD<wf-D6tCXvcq+e<oide=5Hr-(O>+v_u95W9CdI
z$l(WO2C1fr$*D;oaZ{rtbK_JC(7A7kDXHek#wp2ZNy#ZmW@cuVOg|8MObt^~QqnBU
zQw$7@4bsfalZ;JM3{y-EQVdg#4AP7&O^uU5r)niKeMQn^VV-1enP!-5lxCc4l$2y(
zYHnhlXkwmXlx%Kdlw^`>Vri6^WMahh38BZ#B*iG%(lRN<$TZR1)X*|5(I`35!VGlk
zgNdPqd1|7ud18uXaw0P`LXW9|L7IheVp58MNotBol9{Pds$oissfBT}r9qluQi`!@
zVp6I>Vk*;fBt40VDJhA`Nk%D&CZ<M7MoCF&DMkjC=0<60Mk%R=i3Z6ACg!HbDNOf~
z^cYx}B%7uho0}V^C7Gpw&P+))NJ>pIH?&AIGfz!2G_Wu>Nl8v)x`(94G$qO0AT`z8
zFxkw~GT9)-BF!*0$<i<-DLF00(Ad<{ASKnrz$A_74w4=V)6_J}6pIvdqg2bplr)pX
zR0A_317kyzq%=^VTN;^Jn5G(~GTlPblW1t1WSC~0Y>;SdX=r3@ZkcRkY79E0$0WtT
z%)-LJ%rw!&Fg2O!6he=giLr&bX{wpAc~Y90skyOfvWbbQv0<8}NvcJPr5Wg$4MS6N
zLo-Gs{}6pi_c0`Uj1!ZM(+o{aO^pmvK~ZF2Y-VO`WNDECI<3Y$F(oM}(KyW{jbQ<b
z9)o0)L<=(mqg2rGeimlt28k&KDW<8$iD`)@pksW@ElrXP7}q1~F;6zNOfpPKOER&v
zG)hfQ1BJG^k%@&_vV~!qp=B!Q#IqDjrbuKxrfF&Bsj11vrl}?dhDNEz7AeNYN#;ow
zsU~R#21d!ClamaLjF?=I^_Uo@S)>{prJ0$4Dl^j*OY_8J!z9q5CnhF_hM<$dQVc9D
z8RLzZGZ~?I&e$NyBq`Oz+%hrA*x1M@InCI@FvTF%(A3y0$u!k4E!i+NImt3j97&5&
zl0~Y8g}G6ZS*m4nvQd(yxrJ$>rIERbv9Y<4ak5!*nz>O@s$~U|%ZyA6(o#$kjnWJf
z4Nc6<EE7RTnx$H#7$qmBr6pRLnH!{}B_^6PH6mMMm}X>XZl088o|<B4k(`ujW^9~n
zWRhl{YHn_7o@i`nZjxq@W-5rH#lj-l)X>7*D9tk2!aUg^HPOgCDb2zRbYL0ij3o=x
zG)r?6T_l%*j*?5YFtjjDN;ES`HZo65Gfgs1F-tQ8osMR1Vv=N(oRVaa#wd!c$0X4Z
zoUc+Xjf@OaEsfJa=Y<+1ry5w87#Sp+nOUTn8yTfAbt368FgHy!NH$EfurN(CPqHvf
zOEfY{N=Y#_PfWH*O*R0XewLbIk<4@gp$Bx#R<fmqNm`1TrMbCrin&o5XgE75#Udrq
z40M2-VWOFFs&NuyKOzV~dJIiWQj^nCjZ=+NEs~Q>lhZ7XjLl7xEs|5rQj-i*l1wd4
zQ}vOpF-f(wOinR0O*An`F-|iD9r~4GmYA4oYLI4ZU|^X9I<+Xxj42#hk5O8xaiUpb
zs-b~JVrrtHQHrI3xrv3PNupUQ$bX3@NtT8dhKw;tdWfCLzJ#pDz`{J$EZIE8FfB1P
z#nQyo$jl%ObkLzeVv2=@Dd<?uBr{_JrsGIKkdm5~VrgV#YMx?}VxDYnW?`6OY-wQv
zI_T9n%^)oWbdqXHs%03m79(R*<1~YmRM4S&X`p;*X`Y;9nq-<}Vgfq)&eYJ@BFWM)
z2T4nEa!N|Fsij$(NwP(Xg^^L3sd1`7syXPiv*Z-xB+FDo)3h`r^E4zaNoJ{r7N(|&
zDJkYg=7}k$Mybi>Ny(s0V33?>kZ6%?l$K~=Xqt@V|HM>db2DQLOVhMe^Aw9T3&TVU
z6AJ?~bE6b9(_}N#L^ER(6Eib2CVpf+DP}1t$;Jlesi5L0$<Wf&2y`N5T4I`^k);7B
zj~f}JrJ69zLDrL)mYQS&I!e^o+yHdKkWrGQiD_D@fq{XMWs0$pk&&sfnUNu5C6XRX
z3j=dABMXBxQ-c&x-D94bY@TM8WN2t+keX&@k!WC%WM*M*#^i^r#}Jg+jm=FhQ!Ffu
zEfbT{(hSlPK?m8UBpRfqnt)DKvM@DgT!o~^BGJUsG&wCT$q2OK!7|Y_)gsL@#mG3#
zEY-vk6uT+rX+}wgOvy+=ZDDL`WMBcRebX$HjLecPEz%5<KxZ~4Cz~6XnI#(-86+E<
z8KodwW0+`?nqp~@YG7<`Y-nI^2CDN-l1<IcEK?0E%#st6&5R9`k{FjDS!14RWSMAU
zWNBiaXl7uZoS2dbI!n+v$vn;2IL!nUf@#T#=0==I)|e+5r+^~JGTGPwbnK>4l8KpN
za#FIfp@B)Np^34HsYP;XvL)j+Bt51n<|Y=Y=4qBmhUO-TCdS4_29}nFpyDqLl=2dd
zjZG~qlg$}>kep_kY?hW{YME+bV3B44I`r1u+%(A~(cIWL$;1d$j3y?hnWb0+BU_V{
zYMf+lnVM{2Vvv?-W@c<@kZhK0mTY8^Y?xwXWN4C_WRjd>!ZaUQkA+D}vbm+Xd1|ty
zfq{u-nuS4{iE*lhrDbxerIA^Zk!4C+a;gava=XYRF%fh=E9lHYi_}D;WFtf4M2qBP
z!z3d!)1;I{P&+U=+0cS19?2dPP$MeI&;WF@RVwHl)6_)6q*MzFLxV&UBQwi16AKeV
zQ_D0aZzMg&W=3h|mgY%Dsg{;zNtU1!#6X$PBF#L}GR@r7EX6P}$u!Y~38{W3`eOS-
zNcI>RCZ-u1TbLLdnVDE7nV5pkXiPCTwMaGvonUN~1Ug<YDcOu+FH-avCK;Kg7?_);
zSsEvsnHVM|8=0Dz8JQ&}n;2UpCs~+ST3DJVrX)KcSz~CPnr3NXVPKwQXpw4aU}$7&
zYyv8B4J=blOj6S<lG6;6EK-vhWs&q4q@);If+`zRV^E_r(cIY5+&IZR)hsQ=5Oflw
zL8?KTiBU3>8nPbqR3p&A$i`+#sb+>2=H{k`#%9UM#-KynOf5m}N<$+f3rj|%=CP@P
zxnW|Gkx`OqN>ZY!g{i59MY6d?QgSM&C6JtAnQU%pnwnym!q9<ikC~-Kib<MbnxUDc
zg{hH=NlI#BYGM+o^=$-d{ic~E8JiiIFx4XKF)%SQFf&O@F-bB_Otdt#OiD{Lw@gk;
zOEWPxurM+-u`o|IOfqGXN9Zw0OG{2kGBi&yF*7tXGcq$WO9E9}hG|Kb<|dZO<_1Zi
zJerikv;<j?S&ErCsNrppY-*TjVVrDW3TnNkC7Y&z4x&vout-a_FiK|RLDplKVw_}Z
zZjopPIv3Hz$k05+)EwlTq?8mB!!%1v0}~?)!(>JkBt5B?iH6B$DW)mOpbTtbnrLDS
zYJR7hn<kkWftr8jsm5tZ22AA)3=Ao>o~K2)%goRq(G1kmPcun2PB8|ZVVq`RnPO>>
zVv%f?0%}$znI@T=Su$%N=`l4hwn(%9)zKE9#%p2{=%8v)4Q!E?oS0}}Y?)?elxmX3
zjFdjjj17#_Qqzo6O_B|hQq4f8MkXhjCnhB&rWu==8(WwgTBaJA8Co#QAlYMNnrfP6
zXlMzFA_G%UGPX1^O-)QQF*PwrwMa5gwM;fJGq+%tMABnwVVP=SVVRPeXl$BfVPuwU
zZjzRoYGRU<YM5+hm;x#tQZ3C)873g>F*QjvHL@^EN;F9{OiN5QPEAQMurxDCHZe?1
zGBh<eu(UKuOtoOzg{;TWFe%9#)Q2-MHaAEzGB&eJG&eC$u}C#EG&e~xGE6ozGB8bM
z+=-+IRF0cj8k$(98KxzrB_^3A8l+enfzDG;v^1~)omOvPWNDtvn29Jp%uG^Jjgmko
zE2kNl8d)ZT(zrS3#6r-Sv!*771_mIj3=Dlh=l}UJJYnG9&0or|&-apVF<%OwBJVBU
znY_`wGCa3=rt<{x@N%EvZsxY*`pLDQYc^Lgmp7LZ7c=J*&ZC^m7zH@1IsG{mIX-Y4
z;h4mc#_)v0pTmqpnuCG;Df=n*ZS3>do7pqiec27!rP%(nJz+b^wvKHwTLoJzn-ilI
z8z1Xs)>*76tlBI;S&p(yU`$~#V}8Iqf!T`b6Vo!L2qqQAmy8=IP1f3Moa&YwOa+O_
z*@@|ydFlEk=~XBk{oL%5^eVmL43?LgY@F(*$ZAtklMrfCQj_$9Tpe9}U0I%MvT>@K
zb1;>p7MJKluO2~W>*pqB=IJFD6tFz;X5(~^gsOzEAJT`jbU~x^V6AW=G)aV6cP-dB
zH3MO0!G<^?nqfSB#LPUL#r)oijZ-s}XpKk*jxhf;X5-X!Cthn}PBOEXFB_+4G)xa{
zyc)?{;I$SIcjJ;p__~Nt2!b{R<1`E;i7;!rI~%7nJRq>xotcl*q|AJTIW?hdoPo)B
ze3$||$pfcxa1{ts=lZj8ddK236?`TfZX?0c2=gikx)K%wxQ&FVK$v<nl8rMo9gi!K
zk`GREk<=heZZ=`#)bvC*8K)WGRK!w@l0ae3#i<FD9$01=vT<rU6KzpuK1(f1)+1;O
zJaSp)nX++edJ}CGWD1<6l0@rZ4q~~5lG9<rI70&|8dzFL3rJA8#d1%IjZ;(;;ybV<
zRj_o=at%WYw(Xf^BBoR-<S<5-lNeI4b4gg@Fr{F+HeyOaCqh{IFr;9C!qR{)RhArI
zoCvxIkma!$8>grulE1*~Kbd``**HbDk%S9N6H8Ky@-p-DSk|GN2A}j~$-$I@o{GVY
z;c`UEaTRCd6jesD44O733$t;GN~4G~Pr$GN9&GxUQm|lC!IXjq8}ly=DR{8mmtf-*
zRYkHNTK};;MGv&(oYcfTmO_jgxTqi(QL7de<m%^U7Zv1!YT#LhY@F(@$TcvATErqr
z(B@H=O&F%9R-__KPpwGRFD^;R%q!8$U|C|o#;NX%Y&wQogz0(3nJmk6**Mj0@oIoH
z2=q!SN?3MaI0d8mkei*7ngsIbOf5D}b#r8sG1MmK=am%Y=detXW8;)pM^cLLT}gTs
z%PZW{MFqJmn{i90R;04*#4VkYn#A%#gN;+(nu94fF*_Bs@1z*c(D#K3>18GtBr~(9
zvvJB>;#Ziit<ChBusYq$<Q(RC%50qShIq|m7Dm5>5mxpf?(2h#ATBrt&F~huuyGn9
z-{S>W2c5e^DAz?|!V5Q$84P#HGz3-*f(@BKt|8Do3^t^JOhaI01lW*=<QjtPl3sER
zftEX9m)u0Z5R%B)ft64oLuwq@I1Q2SStia5aFYV0pP>`|5<ub%05vZ_`fJgzVkAyG
zWRn=fRgmkE&JcwsJiIAe7g9lhtgk@7O_w<9k(vV_QyAKv&~DQu))-JF3O-qx;R1Q#
z2x?t`oKT8>Zy<3lKs_y)p_yD$Q1WUE*`^?8ku&6)f|6VNK^YDCdPri!B^}8vMWFNl
zco?TMu$|^Rz&n@6iR&BZ2960F3asTU@=Pxnr!%+_*ZXD+Bu?F^DxyN5$+t;Qk~5hD
z?@54&Yb%kiy^n{Bf-(=hGJ_=@v_-gZ#kx3+fGt)5RsI^9&{<(3ubIPG3ng|9yud6p
z&H&GHJ(732!99o56QE;qbcr}72R4QRT7C~>BZnhmnHX9?B1s@EV+Co&7JkIuqlXcG
zLV-ktpE*_bFM!+*T9~Ip%)&fqkpd1j7#k5JAfsR@F&?oD3UzrDk_0FOv73S|FjI-V
zH4q~(IU9%wOfnYc!JLlU8=6f4P1@+;3R#$!g}lWE)}8@{E1ZohT;U4P!xb)pytWzD
z6l~#2?D{<HD{@1lJjl-CM6Sq1^#W*zjWYTgXQH<)!NLeFsX`m2L}hke`0y>r5Nshz
z>@|WIDV13UoKignui*<*s$_dqUufnwX-RPEb4YVq<6QPwP?TSiUs73+3eDoE$qz0I
z3lRK^9-CyEG$lEmIrKUGK^7vNuHc2p7;rQ7tI+m->cgdQxB{UA<{spFjo2GPF(Sx3
z0}?@!%kV^y8HoqK!To}8G-x}7h9qY+2RWNcU_BFPJb{WQlF~O!Kh}^V^72!RGqxC?
z5fO6c__xtwoUw%{89*f`tRmNic>uIaTb+nq+Hj4?L51jIksFQ(6R?FOvG=@Uq(P?X
zkdPGJhbIl<Ul@(KcppbdBD|p46yBsJ$(hMv%vp+-V+#;D7RR0nwB9BnKw-r(M!^f0
zK(5QsjKLPF#9nWUkv^F>5fQ2u#&{1V#F9RV@rP!Ue3Pmqrz?j(XCPY8`XGW9QA*@y
z=fo%FBo^yszycC3hpRM1Xu%d}#9rFVu$O^V^wb$yj|S+{bq;AF0?mxTu4VKC7~r1K
zN4Oeve5eW$$A@Cg$&jHISXd#Ybkxv7l0Ys8AiA*y8?l!WW8`3t*^pqvTg{Vxd?+5z
zYx1(KW8h@aX5gw}&0rB{y204Mpv|emevL1bFO>Z!+d8&&@cwF3V3R2^?JI1}UwES*
z)HFg0ahO_+5Qj;CLLA0MF$7z{n-F>PJZ8ZAfCD}>jR8;5N%{_E*hmYw62j^WPzTEd
zy(0i=wB{kQIF1yE=rN&%DoM3Eswvol)zZWqyr{*{)DW~@%`z>~%*X_^^CH#26two%
zD8<q^+1SzyBUm{*i3wJ!?O=w6FeorIo2;9RLFIxWzGH>4j()%z39wX(P=uOD5#mUr
z4lvEwg3$=H$THa^)yUW^*&+$FfX+18B+bY)*~AodFQ>6tieXBkv5^TzFsd675sai3
z3wWIm+AnH^p4TD$Q<VLpSW6c8{3R$NV4;YVgi(VLNdlDDVM!Oo5Nx4IVed3a0#8mS
zb-yU#U;wq-4Tx#CL(?!yi2)l4M+!@rGK{c<Nr1u<#)j#~7L0}#mKJHLre>B#21aS1
z4J+n`hAE&+j?D~>lM{_VJ4w<KlT0uZCHq21qQoDN_}lH+b~VBrjm-m^+-Dgz;Pufc
z17`>{c{Q1%@B4(*DoEKEYY6~9UKu&_B2=QLH-tD+5r|>}wj^g@U}<Is+Cq?OX>OKc
zZf22WmTZ}rYLR4SVrFV?W?*S)YLRMWf~7in1xa$5FUZcjm>nF#egM_cX2jId*pe>l
z!5ZY|U{q7E1!|IEijkqIrA3OVNs6giQesN7nMrb@fuV&(N?MY+g_)U&VXBEqN-{>}
z!X*g_RQydJ((7o#fdQ&y^ogisuy&PD+JcB+g{wtPs5rWxD28AQ)xlKBz`cgt^F{H2
zCjV@v4xDAesKjUp&?y9(oSH0%Y3#rnd!V`=#)cjCiOAFN))ji5hD%`6k2O1kwqcr^
zrKXvgnV4B5C7PHS7#kQTnp&6{8yZ`frW&Rgo2Ocs8(<WYEUb`15`WD@dSeIXX>1+<
z9lS^T{r{l(e=UYA2L6ToPJEB~TKH6XkMXASa`3F=@#22X-NUWRb&e~aOMr7DXAs9{
zjwu|b?AO@K*(KO^vPH4}W}U-o%W{vUo<)KAAafEkGt&|#SH@?I?Ti`>CmFI(Q(H`v
z8e1j<6K5o33OOasB-O+iv=_(R(!w-3CD|Y?CD9}~#VpAr)xg3aCD|y|$k;N;gt<&5
zH^o#z#lqOq)WpEVFvZf`G}QpqWKBvnOaW~ZGfXrzF)@j0QbjgCIVIUNF~!^@Ey>W_
z+}PB@&?wc&%sAON*~l2Q1v4o%In~g>GR>Ir7Q}cH3((Fqvm|q4lQaV}(^PZN*5Nc0
z%hXh})MNwGq?jfZWaCZJh}+A<ED15*Jkco8%*50(HPJBHI59cJ%-F=p$Sl#qFv%o2
zIVss7rb!vucuO-Qv*c8BbBh#<#54=D6th$_(C)D`6AMdI6AQznRMTWb3zJk6W*vy}
zMwS+amWF1Ah6aYlDJF@AW=SA7ry3e1nkE{gm{`U%DIpu5WNB$)0BU?CCmAGLn3`Lf
zm?owqC7W1SBv~35CR!LJrx~OqSz0o=LX0=CNVG^wGD$N{HAyuxPfSirG6n6#G)XZs
zHLyrdONnVxL^eLv&^XyR3AF9m!pOutH6_v1BH27C%{Vd5%+%N%6j>G~W@%|goSz`Z
zTcjkL7#pV=rkPtB8zfp98GyFsnI@Yj8yJ{aSeRSJG$|k(Z)9d>Zj@}EYG9EH+76d!
zZfs(bn3$4kYHkh+ObY``Ba_r*3v;H25aZL55)DDS#taNh%+ic442)A#QjJm*4O7w#
zQqqi5Q(~Irk&QP?Nli8~OEWf1PBJq#O*SwvNHtF}GBZm`GEYi0NHjDzN;EY!Gcsm$
zgczS{U;x@#V{B+@W^QbpoNAN|+N_n7l5Aj+l$K<c6w@S!Y&<AUr<xiWn57sdnVO~<
zTAC#%n;RyYSSDMV8W|g;C8nByPYYm~3^Cro%-qDx)Yv37E!jBP)GW=?EHTZ%(!$8X
zEXCBsA}ukdNfz07Q(`v(UV|8KVqs>GmTZ}9k&>L8mXriKlET>B!YtLmGTGEH+0-Pa
zNe0<?vt+~6)KqhGBO?P-ON%5E^CSynBa37U1EVCv)D&YwgA~KW#3TztW*La_sTP)|
zmZm1gW)_L2CW&bVCZN4r#)hVeNfsulDaL6rP14B5TN)V~rJ9>3S|)*9WRPZRnPg;O
zmYkBBXk?NEGThQK5w!1-=^w;+vm~?RL=$rh3nQasi!^i4-rTelW6)-JbMw^1<g}P3
zDP-f5EDbG9Qq4`1Ese~REG<$~Qp{6RjEpQSj0_D8Qqzn<-4c@&qa-eNi1EhBpe>k2
zCdrAG#-QL%u`o*kr}@OB6wt2Mm?lYN<I|E&ERzh)Obn6}jm%O_4U-csQ<5w#j1to<
zL3K=uVX8rrg=va8+jWTXrYV+27NDJPNr`4@mWhcb$;M{M29}0KhG}MorUt1oO%f=^
z8ylIV7^E1Pq$Qi17?>D?lDk=|ajI!@nz6Z=rMaQ0Nm7!Lxhc~Zi1Ee-MkeN_i794D
zspd&37KRoe9iWpyOij#_&COF{n#7TfPc$_(P6lP76hpH#GovKX##mD`3p0x()3jvJ
zE;7*W)1;JSMrg_b?J-X?N={5lN=i*LHBCx12b~*WVrXD#m~3hW%2r~?##<&^nwX?m
zq?#sLni(Y~Stc7KCRv)8SsJD$n<l22q@<b~T9}y{q_K-aT%TrUWMpDyYHDF=V3KBT
zk(!idW|U%NVrG_XX=Y%SY82BXifp_Yk>@lp6+w+pG)*(IG%!puH%K%wPE9j5HZeC%
zO*Tw5O-?j3NJ@!m5<xaT*&;c~#Kbh&*fQC~$k@=r)F9Eo*bua{&eYH_#XQ9<G0DWt
z*fN<}8DhL?Vw!=0g^@|3k+BizoP<Q<<TO*mWD`?RQJ!jP9@8X@Y<!Zrk*T>EXmhTS
ziAidbVWLHvWok-_sb!K$l8LE>k-4dbp@FfX8T(#{@rFrhNtTw029_p<=BZ{Wsg@?j
zX-S5OW`>65#uf%C7BNji$i`cmrx_)tSehFfrX?kTdV!$uH#IXbN={3&G&M9bu`n?;
zvotVcf`+}Rk#U+)s*yQpXfoB@!pOkb#KbTy(bCAsC@sa<BqgRv5ZQPOlf+a|4V7kO
zoSJHylALCkVgxz~#v(Pv#4^p)JjK`|)g&p=l<_LW^=63{=82|>7M97DmKLUFpdFE^
zCT58iCdL*P#)he;F--!<#+xLXr>3SETbibtnI;<<7^i`X1#`0`&;bi6DaI-0X{l+Z
z25E_0P7vc04MC;5ajKbxrD2LmqNPb%a!Q)9QHoizWs0G(d0I>pKeF+ljmwrMhL&k&
zrm1F@sg{YR=ElaxDaK|dsfh-rCaDI-X~rpuiAJ2zmV$+$iK&^1nUT49s<ELFC`%fe
znIt6|S(um^nk1*C#We9D8=q)mo|<G~0UF-`ou6Zxl4xRKV3cBHYMy44W}XH*oWdk6
zDan#`J;e2?mZ?UTMn*{nCZ@(l#-^!;rpZYLhUTEsKRGSc&?Kgb7uoovMB_yBv=nno
z6AKe_bF(Bfb5PM~XqIelVQOYzX<=?*V4RX@ki-RTDWs)Ym{=I58YUa0rWl$TCYc%-
zC8Z{tn;V%WnOLMHC&x7LARBLz2HHeRc%L(~9>n#QW)`WY$!3-*=82{TW@)Kr$*CzO
z$(Bhb7UqeTW+{m=P29-Fr&<`8fzGc;G&3<yvrJ600A+4a%La5Xkzull5y&vplr%<Y
z)PfEQN=!^jH8x60F)~jx0B2Q86Z51b3nODQQ;V1;E@b1Ajg!m_O$;qe3@lQOO-;=$
z4U;XB4J?h44MEXtWSnA<n3|MkXvk3ualMfdXw!VEnWbs6Nuq&iqPdZgiD{apiJ3vN
zg=LCCVoVb!vhgWNi6&_lCdQV@M#gF8=1Jx$Nv27u2B}77CI+eIsfp&PAp4Wex#}Rs
zry8c2m>8L)C8ZfAB^wwgnI@+ir<j?VC#M>kTP7zN$24&u8*iSLVwRk0n4FlJnq+94
zY79E^$iUDv(a^%oIN8Y5)X3O0*)TcPoGSogJm|Co%M=q6V?&VhEfUR5Ei8@Fl0iGt
z&CDzf&10I_k&QP>HcvJJW&NZ?b0Z5gi<A@-^Hf7a(<Ec_G-Fc(P=YfzN=&xk=zth+
zY>}2^oRpdhYGkDtrzR&Fn<b?f8zh<=n3$)U8KuTFu^}6uY+;aSlxScMI_bv1+{7T&
zz%UVXW{PE+agv!)N)l)%f0|`tDi^ekX`W<aVvv+#k(OwlmX>UsYHDbnW?%$5$s)}#
z(GpbNvmzUBm}FsMV3=fPnwn%{YHX0020EG|Eh*VJ(Zs?s)xf~S(8$!nAjyE;9pZXZ
zP>V1z*)TCFH4${0k$Iv)ig6<7XpUsiE`O7lCKhDl%`8%lL9uC;W^QO;Vwz%_XqJ|k
zWMB+xW}2F$B`2ksr-05@;W!5|-rOk3)WXcj%rwo!*f7P&#5~c`D9O~o%+ew;$=Jv&
zC8miP*?5D*w6tWiGy|hFP(hz+4k~jDjg!pHEs`xkhas4yStJ^yCZ;joff#R?YyvvH
zBFV@+)zs3=JlVoHG1bz@0CWIaN~*b;c}x=%vhj%qX~v+6z&I`0(8SQtG{wZ+JUP+8
zA~`Y1GBwe}+}I!$bcmB7R|dp*gQO%&b5jcggXH8?L&LOWbC82TC!Lt5r6#8&nZz_P
zA{(D<X=VsI@4&z?8RTOF^CVEpNlG?0Gc`{$OEye1G_f!>F->B82QfZ5IT6%y0+sE_
zMkYq)#+IomNe1S|Nyf&h$(AOGF-;7}#-~^&85<Z{m>XIcrhtxHGqNx+Nd%djXkY~D
z+?b>p8Cxc%m@<_^jJHg&Oic!Ld6GeC-NYz4)gm?7!q6xgbeKY-L2^uEJ&N(Erk2UZ
zrl2EY%s?qCImsf$#KJr!CCxG^$t1-fDb?J_+|a;`c@Nb1WCM#7Gm}I!OLGe&V@nHD
z6GKxI6En~eU`CcEMrkpPb;!o2rI@8zS{kLKBpMr=C7Ku+CWFq%GEK2aNlG#@HMC4I
zN(5D8DO`pS<IOFSKt-~-g;`3HX$t6g9}{Cxt1ZbS(b(M5&^V^C7TNgZ6cfW_^F#|{
z6Eky*Br{WU0|RiiX<}+@X=VuOP+ORSqLDocVth)PnGvXbGEYrPNwP>uG%+`_NHQ=2
z9VU}zk(QDM>i=^yWiYU><(|(K&dJ0U#J7bvjpqw1C-X+83`TL(KKuycjc#b5YGgOL
zHaSaj#&Q^QW}+=+N<mrYfNk0Uz9kE3Oc16HV@wbx0UA<+vEc?_8x$nAEXEiVWW2+`
z+Q9QaG5-_3=_qr&E5j_z(JlZ%tj0i@0*3nlG#TYY%w!aFdokD)7#lIyjy$`Em|VhG
zZHL%cfuso46l_6CZ2f}~q+F0?wD^ORj1~E?001Ql7#r0anoX`vj>IHTY(uv2*g;C5
zFm)IS6ea<33ycjn09$AhTis%WCgVFu0?px~ZUTk58mkX9o5GuHiC7Pcb!`;dLQbUM
zgk@!n;Dkwl90Oyc8G|iQQ;2K@V6F$<0}j;C!X0=5mGt$X!~_Ruhl3^hgehcNKZjr;
z3O|bgE$hR=jHrM`F$7z%S{fK7n_DKDrWlx+7$&Egn5BS5zKzq8lPr==3{s7g49pEp
zl8qBF(kh29Bv|pzuuy9SUU4PltO-z1fCANqm_Wsr>Zx*t2#O)t0+rY%B}Slf8A1Xz
z_X57ON~LWhu(|>gs4h*`pwiS3Uv-al=>_yC36LqU?2k}~nn)4iNXt)<^kWN4V%yIQ
z8yHw#I|l7hJyV&Vmsy;V$sR>SSeoOn?aj^5YI{OH03}W<ViG4T7bBN~DBF=>VTshf
zKn+YJ37m#t3s6hb6w{>SRAWm+a|0t&Q_JKO6H8M=OY=mt<g}y|OLM~{!(?O2G|U{&
z1i7m|l-h}tU{Gl0H#rbG${i6g(11e?EQB;HNKkh*q2IOI<ke)4zMU6iIVHkSq~wgc
zjUDP3Bzau!LQ;Zi1kAxG+ny2)Kz&mKW3#jrixe}^v_)!?Nt$t5lCcG74AR2XILXq|
z!bFRKMRwU*-(7CdJi!Oa5_qdZ0&6Lah{+MCJ^=0Bu_I>p4%U<aJ|GLZbU{k^sDX(j
zfs!NOCSVInVh1lU%4()^Vgi%oI~K9FE0A{Y@N&g4a5IWC@U7>K<`LyO$jQOJfi0Sq
znRzQyKBG9JIBOaMLsLMLC#VoI<Saz%yCF3@sxn{=YkdS0tsw?azHqguA&$_9+YD@h
zPV87CMxb-Kf&)FV_!e3P*%Z>`Pkt{8wp0r(nZW`G)ze5lD^N0nDMBn+1DS%&*Tjy^
zV^n3#dJtb%uR`;6S!z*nW`3S-X;F>>fnF9yRYsIIG@G27{D@f@ge~hPCl;50!UC3x
zkn$%+h~m?aEi8$hh`>lej7~&^C4udW#0~<$0swURkT2ooz3@zil$lT#=fVOKk?l~!
z5h0Gt1Z+V`?4%1uP;%4~6O@*uji(Uy1879Why1*b-0Xz~C{kWP4N)Ws)Vz*t3bsHc
zcB%;@P`T<Lfm(iu{Jf4WeZq<<+};4SUA;lohB3Zs14oFU^ohs~Run_9g(|T#Y?z@M
zKuoBT-m$_KswlnyB~~wD5-YX>5K&-KQjDUSf-P8yoms>PR*nv0f|Y7((V<}k3JlPJ
z93!obgHqd*m{zeCt7xq~`Yd2=3TSdi&k&HV70O8}SlhwzD7(y%iWz9iz#I>UNq~wy
z7#r0TY#D;GZ3LLDQ<Ru9z*iw+o}@xVK!93lZp5_GuoYLZ&1OiU2~$Q?T?o^UEgXrR
z^v5Vz*xexo3r0I1IV8zwrNMj#N)9kK%mbhz#g&+piEUsJHBBLfB}_3!Si&SgPJyve
zO~DqTgDPdhoQ>NHpe;i#=mRN`5pbm3j<s-#uY#p~P<amvQG`;|07Zx+HGNTyz!sdu
zE*rr}pd9BQ2^8;KBFX2XVe0{)dP0+n@f3pzLp=k34Zj)R2fht_1$>&kPk86^M)8XB
zT;}OxY~=~y5#T=0J%!tkn}gAw>kwBBml@|bhX0)FIkPxb8Fq0z;F!k|$sxjji2V}#
zB=$gtdUkHMqipqTmaLyy*Rtla>asjzS;!K@BF=n?c>=RHGaJ(hrZy%wCRWB%3|4HM
zhQ1t3u;_rFR}Vks5+Q;()*cjrOcy}MA0i##icpAY7(y%R{q#)7?b$dD!%4MY7uFGD
zI)ZkRBax0kZ9*{}ME448`~VROa1o><^id{bnD#I*Fdn1ol>Mk-0}uj^Y@CMC$O#hG
z%0Q%Qm<aNX!0<6iMp^X41S|Fsi3u)(YywIT^fbAKK-~t)p$xakH3V7@fDOUO8*s<t
z4-i;}0U5$5fp!)yeAguYFhOh2GGLY#Q122j20CuVa1EohAyR)%GRPYYXE90}qV&h3
z6ch}*$u$LbzAV@+kI6L!Ih`?zkZlUo=U}%SBHI+?ly;F^Q;?Gy!w%57%}A$C6Imm`
z7l1HzV<Zx&BasprOa!T3gB?7=Gzp^wfvHAh7?=o>e%LvB1qDpi82J{a9<K=~sf?+e
zOhb?p8Pjy~{DPR?VCo^$8OW)WshnIxpy38eq)g3Z8iJg<m^v^DGN={!69-yB##BsR
z8iVz0nCdXH3Q^8LEr^)V57Q<xtDtsjm>S4+3rZB{lWhvr=ioT5B-a#_NUle36vJc@
zkqj3>GzY;BNJKAv;0obc7cPR(s*5OnwxXvDxN^J(z)PPTv_tRVYY_0d9eNTQQxSR|
zA<lM`Q5>dN^g@G3L*Pv)rVV5|10_Wjl4}T3&Bl~Tt|7>&GL=k2VBrQ%S!w7c4@?$+
z#G;oxx#XoUc!w*JT>X$H6w?~?97>!w&`Pc<a!o<0-IB;P1tp!8q31aGsR-~K3l~AE
z?;)obGM(XK6k!Nq*u}tjk8utEV*WyYCw>9Gdwgs78u>!_)Oi2#KIPra+sNzBE6ekm
zXD3fDPa=;V_h0Ta+_SlJxox<)xo&Z7;A-It<<j6{<b2M#g|m^<k5iiC1;<v74vuIJ
zb@s39hZ!ERPh?MGH(>k6f0gY#+ak6ShFy%MY_^P@Y*K8DtPfcCvd&~JW({K1XO&|4
z!m^L0n<b1zm-##M5$1m8G-d~8E~e{Di<l~zoS6g|JsCwH-7<AnPUMjT*qT0FeUyd>
zbC)42C-N`>7ImnD0?egs2@Hu4J7`1-vvR5;`gowilX;2~E2lH6n0^&#En9wGD(L2-
zf&%8rXg+}@CS84a0jLYFL&2GL2QfNeIRK=CS=ES@Ga2Cw@SRtP0F4Lpb<;}ol1no4
z^NK-Q7#5haa%K|Jf>aJbbbZxe<@CqU1@jWbBCzq(OjtS72`JPB-2;`Gn3GwRngZ6e
z1*<nuO-J*_W~|;o(}LlRIjXFjo*1qJS0%dOzydqx9ahi6da_8KeTLPus0uMWy8)|b
z(KMmPSvOYCqG`eKY!6m%z|s$rH`ZeH2C71IZ!of9^#+<IRBz0}>J2n47~Xh=EzUq$
zEhiNz&K8TXa;l@nEF%|cE=8P33qOaPQB#4H(;lG@NeSd=UWOZ})*}>vPPK(~!x&yD
zvvRs(GX|szViKb&F4v^Mjk%1=H7O7?7|uzsa_VEThfxdFa8MzoUzL#x2`BKyK1|QC
zC`kb+fR|ZJzZn=9pyf59EY)S@MD8JDE0GZ`(l0u!oX8`z*i?fY2g+#7%zCVx$fIZ2
z6vM)%pn&NXTKR}gIZAE9^nn;1utEdmB&G*MI0>o4`iU3|P#OT2iPC}GAbdrP4p=S%
zd*YojD`zSqmB7P9S0BMd%4c9b=ZJ_nSi6q7kSN8_M%)wBk^<obB-fy|*j^B&1v%oF
zxrow&5)~(j(}L8(XU-%}3v%?`CrS%S{5_Op<ut?=f6U!#pk@>!yscOao5s{nfiXd`
zDX#;{vv`#udXYkUtemkN_!So<7Nuks=Y!1l(gx*l{K{cDJWZ38GnjzUkfyDl0jS-F
z-&A<Y0Xaj0C=Jly0cl7fMgww^QqcvKP6V6;ZaaXCS0=`ISd|UZ5I~d$q?9B^j0WU%
zlw|}e2Jm|Ttr$ooB64A+06$S`A%#GcA*i8>-zlhN05@?ukRmvoC>_W#oI{ij<VfQp
zP6tw~g%G6!IobpzK)D}FSmmPip<rG?>QR6a7SjQ=8XJo`MDAzSM=Q&*sfOierb}9&
z42_ro#-<pOp_#6uRa@AUqU30%-9+g?igBi+#OQ!o3<?`&9klu#CW#b=NVhUFoh8Ns
z<VuCvf+!tGbqdpYv@pfitbv3nb3GRW1496l9|Qjt{uTT+9E$t_{3?7u_|EVx;49(t
z<dfz7$a|D`CT}jUBd;jWOP;+v6M0gZ{CKQ*__!Z&Z{zOf@a0b6Hs$8xy3e(RtAi_s
z%Yci8^9JWy&PL8qPEC%#>|Z%9axCSjWIxG1m%WhPm0gnUE!!csX>3_+c5Fhd&scY{
z_Oqt2TCno4JYd<v(!mnLV!*=6e3N-Cb0c#ovnJDDri)BVnW_-2$5Gbc4FPTDNG8a+
z6DFx9iDo9|X2yw@DJI57=B6peCW%R=NfxP~<E)H~nbowIBN-uT%?yn|r@Wb(ni?5e
zn5LQ;7#W%xB^p^68mEEIUNZAV7;9#bW^Q1Vm}X&aY-yU9l4P80VQy|@06Iy>FfGX-
zh4BZn+N4y_IX{->Mu|q|X=!GLi6%zI7RkvL7RjlJCPs{j$ZAb2ERBs#O$`%G)677}
z9a<PC85ky;Cz%+T7$uuCDIwIFrX?9$rkN!tr5G3`nHeM-85)_TnI;<;Cnl$v8Jngs
zRU)f3Nj9-aGBYzyPDxGzpPXoFXqIeh20Adt*w}($5|Ua1N7OK~BCAa@GB7eTwn#Hd
z1Rc%>IzTfe(b&?!AUVl0#W0a+6|!1$OCvKggCt|KRHGzg(-fn$#MGozvt&bqWJ?P(
zOUBKJs4z`6H8o2%u}rf_PBbw!O-utF+Gd)TWRzrNU}0jAB#vyXL5hWeX|jc7l96SS
zrAd;hd76o-MPgENnz5m!Q4-T+B(*8YmgeRrCZOY?l9LTglg&-cQqoKf5-kjj%?&J4
z8CD>xwM;ZhOiQ!`9hGJXIta$xASuPtI3?LEHOVZ|gz+DWTD&LdF-jt-O-?dMN-|DO
zGBrsvu}CyCO-?bfNHa1`Gc`*#PfAW<VnkMJZkUo{YLsMVY+`PfXl#^Xkz$l=l9X&{
zWSVSgYQne@MXf=SrD?L6X;Mm(v5}>LWr|^%foWo*v7t$#Wuht5RixleHcGLuFae#k
zpO$0_N|NR#NhT)AsTO9&mZnKY+(=533=%CZP0S5V%~FlcQVo+5lZ;a=%ngmw5-k%G
zO^w-+TtMKkIYtp=wW*0_Ddxs07M2Ev7HLMH{9}<~3ObQ2)zs9;h{+vUZK9EhF(`Zt
zlT8ehEiKJcjV(+J(u_<@EYebw4H(WMskKZ^O-xQQFikWvwJ<a@H8(agFf~g{v@kL^
zPfAKnW!#OdHpwu_$Slb$HOT^W+m*Rds;QZwp@mtZk)?^TX)==!l3ELsG*inIGfSg1
zQ?o=9O9Nw*<W%Eiv*fg76BA=|1Ez;aL1tl)Vs4pilw@g<Vr-sfVv%MEI(`RqR#Kvg
zX_9dYlCkEgmZ@fj28L;-W|oF#X@*H@X{jb=CPpTSNd}4LDU5Z<YR!x+(h`kLL5Bq!
zm?axoCZ{HvrJ5L6CWFqDO<{^bQfp>mnV4n_%IoHamKI5grfH^$$!V5`mPsiV2B|5G
zpODp>CYo6oTY?UM1YNz5l4zQgY;2KiY+#vUX=!4_SdOgLI5|1l&@|E1Jk2~ME!EJ-
z*dQ5nQlvp*s)41MCF2exwWi6YX=av|pyNuxM^`2rrzIttrkW&~f^xPYV>^;slVnSi
zq_oszLqmfkQ%mDiW6MO)=}C!3sg{OGiH6L|2(>1bAXix!8YEe!S*CzWuoM%Elq7@1
zltj?^NJh*uNNUrJ%`7ZZlFgD*Kv^s?)zm1_(7-$?)!5wFFxf1bSs0<#)HKQ10CWtS
zp;4-(sd2KoxusdENvefuk}2q5##E+_NNP<|j0}=YOh5-VnV6Xw8JU6(=`%_+Fa#Y}
zm1fDb6IpF?vaz9|fsv`PNuseSs2(y+GD=P{wMaELH!wG0n2xO0!aOC-BGt?^&BDSm
z$<in-E!n`(%rMy~CC$RrIF+doNv*MoiMe@Ns-;1Sg-K$PnPqa4scDLlS!z;hie-{P
zDw80JT4O^~Lu2E#6yr2g^CT0)R3k$(i!}3OGtlv=X^e-E)EcFj8k?mUS|(bUCa0NN
znpqebq?(zSnp>n8B^sI~GR{Cs>P9IhsVSxwiADw%NtR}YmS)D5W~pW=rb$Ld<`${R
zQOL&PKg^L)2uZD>Ns@(0Qj%e^S)x%|Vw$0;p+RDzG3Y>BgA@Z3Q^q;SY7I<Nl1z;f
zO^wV=K*uI08(LZ#nOdeMC0m%ArI<3#M^bB$3OWcP+1S7^)iBk}G$qwAHQC6(EHTl<
zFflRFjL8C7tx-xM==4J46f+A$BeSHG#1tb_V@pemL}OD!GgGE?L@=17rKP1Mn;NAg
z85o-zr>2=FTUw?iS{NFeBqp0085p{tC{0W<PD@Hjv`jJr9V?n@WSD4_Y79DJF)20K
zxByvcvZWE|z&Hz26Hq0TY+{mRmYR}knQUfhVs2nrgsjxk3>2{@#zqz?sfLM`hH1$r
zNd{?_sYwQDCPo&r$VyF<Esc#p$=5i|*xWKH$;i?q*(A}_$RH^#H8D{cNoi`DL1Kzg
zQc7B~g;8RPxlv-8S+a?#nV}Kr^i88=qyonzHPtXJCE3W_C@IA<$s#q)45TjA$kH^)
zz{uP%i3zD@HA%HdOf*VNHU*uvZD43_mS$>{lwxRZm}qKZU~Xv2cnlE>CaLBIX@;Pa
z2h);L&CSfr6HN^bEt67>(o!wVEG$hJRw6ssEXCX)EjcMA&BVmO*gP#YDJjX^(AdPp
z%rMQu$T$GmSmWem<1`Cn<K#rcq!c3)Q{$9mL-Uk01JDU>X2y)#C~6HYQ_W2+EkJi!
zn1M2pxk;KC=y>5&6GKxACgk!aImyt{IN3bW%-kf!+z50)v1L+HTB?D8p%LiBK}KUF
zbCZ({(hSoq4NZ(K4UCgblT4FS%q@)#jg!qRlTyqrm@Xo#H8oBKmADp`7Le*9#n8+k
zEz#7_%+SC*IfY>&vRaemwB*DzOABL@Btr`W3($#{DM{w3CT8ZQ#z|%j4ajPZ%#01w
zEX+XXE~kPH-%CkOH88R?F-uHMGqE&hEJIS81Uf?{In~@a(Zbl&z#!Gw*xba>z}(ct
z#KJf!#e(4qlG?<SWD~Pw17njU1G8jfV`D?}<P?i!i)2d!6VQ3COkT)p%|S=nnVP4j
z8K;<<rI=c#S{j?1CK(!Aq!=0|8Zd>Rs5LV(PD(L0Nlr8}PfRmPN-;@FO-@WTHnm7i
zHZx~9jg%Y`%|Q2q8CaN`n5Gz~m>HTGCs~4;>juf@28ovDNX>4OMAH;wP`a@+0=1$I
zO)M-^k`2r((m*FKn<p7FAvKRp5=|{l42;Z8K!r5uh~-4f6tKIKQ<IVnl1&+YAvxDF
z*}}xY(!ek+#lphe#Msc>%qTU*BGE9}z%b1$$&v}F{bpjBY;I`*I%C(|(8$uj%*-++
zCCSh{%?NbFx{+}*<5y&JlZ+FMEkJz`Lo?91d#OeimS&boMi$`qODa<~vRcbTOLK!1
zOM_I4Bn!|@17^l%NtS8G7KSO7mWF0bT}WyPoIcN}imVp@iQSB{$Z8Ez6D=)3=fI~X
zCM6pf8m1Y6%0*Md#6+`XGb6?mylj08JdCysoWkr^SS|Su@K*5{aUWot!u*zLDx)n|
z6@w}R0|Q$hQ^DZvbPk-$nnIeQ(0BMicB7zN-Ul0t1D(YNXQS@#hmF4@L^1ZB!F3|v
z|AJ5t8jQlWC56~?w=uS)u#1AXq?DalLe-taM0f+V$u*LQa4pI&OHD4xF9L-toQ)bH
zh;W4~K;7trSWSq>6l~#2?1AGL;mTA53D+Zgs2Z+t|LG%n2{kZ42d6|3b8rfDL=+Sv
zu%Sq#F-%05!X?qe6fObU$^|nGG0TZ9Jc&JF9rH8`Wg^0pz_rK3o@RmY0%&)85HY*k
zp#!tvu!ONuwsa!}CrlnAIAIc?;DoVJ48a<r$;QdV9Bht}LOE}NLo~5|6225l;*Md&
zo+sQvp~;oOz{bGPWYZK5y1UaD-`$-!%!7<;lN+WG-Pi(?*c19O0+W3&I55lbW_MCA
z@5JkQ%_i%nKv4MMzxx#1=0Mm?94!10+aOVsBtl#t!GvkX7JS5>f{&5AS=WPu4}V%D
z5PTT98{uXw&Ije}0Ag}BtXu<SN*Ehu{T(b6k<Pe44MrphoQ7ZvO=1uI$4HD^Iz)sf
z8K*45ypPitptAskP#bDZPEFCoY%+(HcObK2Y}oW6QV7GOFhUq6flWWQz$Nw`6pWKW
z8Lxo@7k`6^z$SAnH^swdi&2VASO93|H-!;A%MPB?p}~b3M2O4)3k?Ei*|{`@5<c1y
zZYOdM%g-&yNd>PRgSrGs5|^Wplz^6&LG{C&igJn_k++;+L>v>OrJLAXg{QtFaI_;v
z#36zeyAMEzEQAn~{;}mPSoFh!5vd?S4M!viQ2K|N1=Ei$7>T{j1tS<4uY%J*fndac
zNghTp67Ya#lTA}FsIDW_R)F~&ITRqZJ-J~B(TyzxiM_A}vv`IcCWb#Dn&3O|1M`Ag
z93cpCz9ujCbOvrlVFtdHyn)<*xa>Kevrl64WMyXF%ap+=%qWanW{(J7Q(#j%dhe5w
zO`4Id5$U)?M9&ITF2g&uh`<K*#}P>jt^hrI!X;39^{@^U$P{czjM#HK#28pa*m%GA
zg`u3-S#~7`Pf3Tr{x?EDv6HBf05z)8h-g${?Zu)j>Oq7lTrGN-!X=Qq!YGDd3sPdQ
z6~xH3Ob@~39wmW_E!PtE1*i&1C87$!Y7(rqPHuR@^kWN3Vy{rd2uemrB7%}Y6AH^|
zb$9~+6pATCgd!|Ug7Q0@4GRTCD8i-CQzcvixe9{m#}<mj-V})uiY${Mp?IMLPcA1t
z6!CfhbbmrJs98whf)A|a9elMvA{gQ7(1Q^!fm~q14Zs$T#9oPs5st71J^paSf8;lo
z)QH~)ppr6)?2;0;)elr}AOaJf{?P*yE`d@~A{&A&K#9Es6eB>HWr#?a_^Th{OG;#4
zfJT%P(d%?9BlTFr12Nb_NvNWlf-P8yz5Em-SegDog7r)fp8QVWJYOv7l!(9pg=+#4
z;fl5BKn)Q@YK1FCPpxnX<PsFs6l~#2?5(dD;mXBMlW--%8=&D5+TZ=%6xb9;L`j3S
zyn=7+N6iy(wdipNmq0GIQ4GNrb;RDNixG8f*NKTbl83Mf`vR0BVu{ERI5HP(sWxh;
z!WE;3DqI4&{6^jOfHhc&yh#`%Sed>M6Rad3&`N|iG@F8(Vz7iOBU>ZNTq};u1+xJ)
zT;Yn*!xb)pTGAk!f-PK$?UgY!GqBV!ZQgh28)~<VlBrf>Lwz!Qp$WeKk1>paZ#8c`
z4?EW;&P)zIw#}?@ENo2c7{j<u!+ZQqflc{D6c(@`0=1IiY?P@gL_rUiM|U_}0y$Zu
z7=kVIlMU01L07Pv7#Sxfnt?8`Fi5dTF$b+SHaD>_wJ@|uF*h+xO~jaEV3vfW>N`64
z>QDTI1?n6_Q%F-0mc+`0mRMms>_CA9XQSRrh6pXV0`$;=OX$bL_w4DSnu0C3l8n*}
zEKMv@jLp*0QqwFA5))05j7$@gjZKXcQ_W0`jgvulT&9|06at)ykl=bCj4!xIE(D11
z2B>f?BqCg~rXSQ0L4+$@F?zVdC6H4gswr5*)!Z^U%^)Qibgj8%s;Nnmxv80Xl7*#_
zrKPcHl7+dMX_AFynu!5MxH9X~BwUH`1}Iz$hzM64Q3Ml4EnH!u7z<h85~%4FCJZtK
zTew=7rKO~po0x+Z=7QEiCK)7}q=2rRH8(ReF-tWyPPG8-_DI19SI(_830IhV(K0Vg
z7~~C5Uv9L})K4xbfNZ+gPtH$C)mJPo%hN9^E7CVaEi_Y7kuw@H8>Q$6T`-tO%mstk
zhWycXry@!Lc#V%<3cw|hn*wOYU`wusrUsx(n=LHT%#6*9k_-|-_eq->m>DFerX{B&
zrCFL;Bqo{}8DUJLFn@w1SNye+G2Tf4Vy98i`~eEuTq1%NYmtIx79wcjs?mcME`c1^
zXvSa*+LSbtRM1VwNv7tO7NDI^25BjYCdnygNhYZV76vKFMyW=i!86RDEu%@$65|ih
z_*f1R<6~IOf)8(z8>nytumxvwO0sEUin&QzlA*b|v8jcj5olXWvT?GJv3Zh(SyF0p
zs-b~pnlVPf$_QB}RE9UD5|}q7cH9B(15lZoO+-T!YraM4a3TT|t`<Fo!X=P1KZ+sP
z0@NhUFvU2@)Z8M`%s3^*(!|KnJjK-9JlQZQDJ8|kFwGLQ7~8@y8D~TEh6}!y6)6o-
zaG6Tj7oY|}77+~qtf>>%oEKa%dZ@xBkn=sNDcFM5(#*&#In~_UBE=#x&B6?{GsD8f
z*eK1!!qU{l!Z0b-6trSH)dVwGA*)`>@CPgY1}m{u6{<HtD=ssMSaFFpL=cM&5h)d}
zkf<<4n1C%jlPoPw3@pvfQj(Jlk}XWlElof>YLiVYERrk@3==JkK+V`BOG}J=&*Taz
zM)8Ixffbj;=6i$}Kp8)S?2M0nU<IBt(1Q~$fs*l&4Z#+osfNbM#!0D`#%UHtCg!Or
ziKZ6G=1FPBiD_o0#^#2gZEGfGX=z3nA<7A@^C_5@#WpZb*cY0h{r?sWGgz2TGPN){
zGtXuYXX|EjW`E1Rls%T)kDHA}g=;TY370m9DeF$w0#;p?SM1`PGg+3hF|j1^@8K`u
z*Wr7@H;3~vUkINVX8`Y6#_zl>yw;rTY?pa{FyG@@$CJr%j7N=GnEM__9rrZG^^EC^
z@(d3dX28c4a4<aBIE|5xeT%QkfHmjfnE@fBk0c#m1skLTwZNGwY}q)C0})5x#KUhu
zgCAUpBm^=Dx?T*dJKdd)(-`UCBP69r&VcIBMbfQXh1?Hd;wIl5SdIs~CyRV@GN7&m
zo1=jlyijQZp`wd=eFT#<vpRzV8>cbS30(*kNM<1|VuRnq0bPH?c+Z86(>NYEir}gd
zfeaVYM=~E#I4~J{vT+(C9Yctuihv<#4Nk^C&TO2<vB=JW1s#%q;6li84sW9{DPx!c
zcRvBwz|CO%?8L@tjC7b8@jimB?qa;}%EoDoboeFl$rov<9g{pp79!F!prpq59Mc<^
zIT@*-LfnE2^9B<WW&$D72t)#5{7bewU~}}0A1N>ba%vId3yh2h_c~I-fcXxT)?sYa
zJ8+rAC@=_?ctP>Q#EO}HVOA1w5o84!lM6<fL}c>NtwNrnWilb(9OM$8@j6B<!Td`o
z|H98V*Wtj(IK)O1a>nr`-$yVfgQAG>Hu>hjoDDYT2L<Lps|T<-k10rdC=U97;UJj5
z2}KoZ(n-ch!^D~cO~dgRJ|fnDc+`qMngWB6Q!!IGW_?CvwnVGXm;x~Z85RdffeaTy
zE^^>aB~Yw0d181Cu8BZFfvCB_202h-5Yj<tj87;q2qmz2F@p%2-jRa{CIkv17#lVA
zEyy<qrJ2WoVGgm$5#G20hqN&H=AeWRJK04lybkBXsKbf%5~2=gV#df6#2SL0Da6V4
z5v(=9#D$Uih;<BFRnAX=K`<*p(arde0)tShVm8bcA8~~b*cm@DQXR1cMHO-`VEjeC
zIWP;s?s-drInaC#GKYzi0&|dytuN%8gPbcFzhZVWh>Im%cqfBN2sHn%#gN6ozmVUF
z?=fEspDOP$-gI6Lo|Qaa+^@NNxOKVCapiLfaBk!b;`q!lg~OEn8hbgr1lvxwDAwPs
zb69Oz?y=OfC@>#nPGV+eTEgVY_>8fgQG?+mLl$b+KBg&vEt7$XGg75EBhgUBEF}$e
z-j7*|rJ;FJs!?i+iMgp|N=gdo44^d7!4l@lCTRvHshqDNhr}fsq#0SHfllE_G_f#D
zPDx9%Of@qzN=-{lGdDL&N{VUnM>amiBo%ammx)oLVPdLDlDUPcMN*=fWs0SRrHO%Y
zs%45{QmToeu`!c7#CSt<V{?ln6EkB=&<IU(s%4^yv1Lk%g+*Gjk&&sfK}?e$vhijX
zhAF9OAlal;1JD^vhK6S5CW&Uo#+D|g7AdKg7DkpyscFf~&mqPq8XG1X8K)R086}w|
zC0iI6nx<MNCMQ{>CYz=iCnlN1H2ESMZ<&|~I;zIPI3>lxEXg=IDJjJwH7&_7G1c56
z*&H;IWMph^l$yl6A7Z?5iit^*sbyN4p+TB~sj-2DshNRck^$(Xximx56yumCA7tZ`
z3{nk~42{gp6Ae=nO)SjKEkVa+C8nl<j<iZMFflN+NJ%s`w_sO>7;j`~U}|iX1Uf6q
zEX_1ECCR`%(Ja*>*}@>%%p%FqIHt)P#rPB>Q$veXOAAXglT;%^17lMYOB0hsqg1oR
zq!jaHb8}NeW6NaAG^U3T<1N$DlG98rK;w?dmIg*9CaI<=NoGlwmPw{&mZ>R5F-=~`
z#v53g8(5^7rWhESq?#F|q#7irCYl>0875g8Bpaut8YP+=BwH9+m~py5jJGf_GDuEI
zF*CC;PBJkuFtIR5GO#pEOEI=gG)YTMvxsT(L^j^s)WXm>#V9p7+0fj`+|by_*wE4>
zEy>){Bqh}#(cIE7$t=;>*wTVy62y2jOUpDvgG2*!3(M4$l*H7OL`wscWCPF{M#f1g
zmMJk!9>~TUr5YO;r&(I2nwumh8W<ay7^fH{gU$yrvq(!!GPW=@1|3wAYAW;>V!V;5
zskxb%ahg$bGU&jS6eDvZGcyZQO9KOw)MQh0<CrFQWaCXtl9DV^EDe%P&CM;0K&QHx
z87C!~BqmuV8>A(r7?_%y8yFd<C32}kj8C&nPDwOKOifNrNj6M1G&Qv_O|&#lHb^!%
zGcZU^HHv9+LpI*XJSEZGD8<s!Fe$~t!XnMY&>+>)BH7q9*~BQx%*e>VB+bCmGR=ac
z8)AH7in*zYWukdXN|KRTN~(dSd9qnjnt7r{npsMUVNyy=lPj|EY37N>hAD{_X_m>B
z$tD&?mL{nNDdveLsb(f=rip2ZCYGrNM&?E)9Ptq2%~Oqx%q<fQ3`|o@4U&v3Qp^+0
zlg&YA0GTA48Ks%VG`XM{pOR>pXl!9(X_;o3m}Hb>Y-W~bYH5*XX=a#Wk(!*AVrXn>
zWSVBq^bcZunu$?bl8Lbq$ZKW>re+o?M&`*z7HO%LMrr0oW(F}$&dA26q#0XSSeTiZ
zTcnyBrdlK#rkPn986{dK8Yi0?CnhDCm?T=HCMFp%D?*GnGBq$TOfxh|G)pouGD<Tx
zv`8{EH!w^#NlY}eFgHw%X>vj~-o(r(E!EJ>($FX^Inl_#Fd2Mek+DT;iZSRcpcGSs
zlw>0da|0$Xi1A6r7AC1lW}p+9jEpQT4O1;GO%05VO^nP8EX@s5l46=1k&QP`OS4Ey
zOf)hwv@}mmF-b8rG_*`KPE9qpurM+(O-VCIOioR)Ff`^WgczTi1Ug{I(lW{1%)r>(
z)WFy%#W)cZY37!umX^tuF-;E0#v3K28X6=eS{R!rr<o+C7^I~oCZ$@YCR!$2T9_M{
z8K#<>q?wvnnlfL97;l)ImXc@*nk%<7G_^=hOfxpOFfmU_HAyiuO-%!p_x8xf8=9M%
zT9{Z^CM6~r7^N8+T7b?dN;I-aGBQsxHcK+MNHt5fOifMW;e!}&oMvHeW@Mh2m}r@7
zo@i>EmXvB?nQUQcV3A~=YG#od(`1Kid~&LJa-wCLQL?2;vW0<Bs<DY#YO-M(cxKc*
zDGd}_Nol5*MnZKE;|-H7EsP9Ik_-$CQc{vEjLedaj4VtHl2a@V4a^dg6Jwfek&REY
zv@lIdOiDBc9j%xMDiO>QlZ{M_j8jcb5>pL~jE$2m6AhA+IHp64PfoE+F}E}^F#}yV
zoMf3|k!WIMY+`0?o|=+ko?>Dg(`18eyn$Joc`A6)+}J2FH7yl%&S|oRaZ0LzS)v&z
zfI#79Zeq!K7Gk`aaax*Xa%u|r=u;zea|;v8WRpZgLxaRL(3wt2F-_LU##<&?nwl9U
zn;Myzf=)6svrJA*vP?@(OiD8|Nij1?H83y%C0j#|28i*A#-OvL%t7a8SsEIfrWhL=
zr&)jwjY~F2GD<cuifOV!Ha^kVJSoXM(IUyrIL$C6IVH_F)x<c_C@IY{)hNj*#oXM|
z$i&PdIf>~D#CRhULrZf@aCllKS{hrLC0bgVC#ITNni(3Hq=Kq)OJw7X4ULj5)69)b
z%#xB*ED{Y<ER4+(Q_>8R4NOzhl1-D7lah_i4UH4|p(op>S{R$8g3^O!npu*uaf-Q_
zp;2mbT2e}~xusbWC|g+|8=q<jDxpj*5{*-hj7*XYlZ_0GQWMRRjZ-Ys3@lQTOj8Vu
z&65*NIle($Z)TQgoMvJPY6qE^8<-^-8dxNofJ!IJG(#gJQ<In`b7bQUjgm~#ERrk}
zQw&qg(^5<=&5e>0Eldn7EK)7f5)BM2Q%q7p=dm(xhZvufY;KfjnwVr^V31^FXlS08
zl$4liVPs-vlwzD_X<!)BWQJ^fifN)*T9SDZsM1I_H%d)R0xcA<NHsA}N=`B|GBPqV
zFaZ_IT$3Tjo28f}8K)$fn1k9QX=y3ONydq(h9+s2MwV%&NhxMAO{U1kCz_aArkWU}
zrX(60B!iAQGfYh}v;ZCOn`CH|Y-W;Tm;^d=&zNx;#CUVFlq55g)FdN=WV2+8G&8fL
zL<5UdGmB(H6BA=oBjcDR6J+C!OpHO6TBI2!rW&QDnpl`8r=*yt8KhbmS{j<B8kmBL
z0MkTsW_^h921bS!hAF0ICI+d=25H8Y#)+0jN#=$i*BKicnV7~j86z8?Y+!DjWNK(>
zYGPzzU~Xn%m}+90YHDt2mSSRQWNDgcZk7rPK1=3&i18)_4ylW2GD0@q+&IY$v}!QT
z$THQ`)WkeF$s{!`$uh}2DLK`^)YR12A{BJ{pBZy9#P}p53j+gV(_|y_Bm-mPMDyfi
zbHfy~q-0a$6k|&xLz9>$LuBJE%oCFhOfAe!Q<9C6LA6h+sYz<8S#nZZYO0BmscEW3
zQc9X>q8ZyCi18LliRP&WhK5Gw2F4a9i3TZVX=ce5CZ?cL+S1%SHKxe`+4y8r(5ev=
zV-o`tgCv8LR5Q@A&c<oU2FWIthGxdbMn)zUprf8Sp@l+9QmUbuNt&^#k-4#1nn`M+
znYkhO++<@T6Oc<|n)H#4H!@F51)Y><VQ!R|WMP_Sk!q1_oN8ohU}m0Xo(4`HrWUCN
z7EG}2gPD<WT56K1fti81Nm{C@fmx!lrKNF-K~kEzWtxF`Op_k6@u}v<=Bbt@#>UC!
zDV8Z_DHe$qMn+~SW=57~md42@2F3=U<M`4n*~%b+lW1URl9Xs+nPOmSoM@P8U}BbP
zWNwm_WNew3n3iH>5YwcKVtkrmYNDZ~g;}bFv7u2)s=0BRfl-RFk)@HDK~jo^se!41
zrG<g1Im-`-@u`Vs7Rd(5i77^)(^1os%|PufgH%hC)MO)5vn0cqCLLts(-O_oOwCP=
z(<~Fs4HFYBQp{3~QW7oAQ<9R+lP%1XElo|6&5bORIiZa}OLJp`6eDA^lqAsMsHx^@
zi3XtaKa-O|M|CErrN%UABO6cb%3;n#i0e&K@gMpa)1-xBJdq1%nROw?gDMY$l$1nE
zQwx)1BXi4C6H7~@lw{EPyh%nTmIg6Rn#jfzyN;A|E5vwnLsJVg&^gxzW+_RQ7KWhW
z+tSFwG%+#B5>$l8G-)6kPwXmmW=V+g7OAFY$%ba;NybS@$%%<3#%3vI1}3SXQ*$jq
zz1)~4b!6j-T~^5a31Ymlk!g~FVXBd(xv{BHN=hQg-KmC_Ny(;WW=1I%hP>P>7<d>~
zFz^QR@UpCBj^GOB6lUMemd^T_iGg7S-!8sgsJ-}s;x&ad)e*5k2{w!cT9gZCBX+2R
z#&I(9l5<KS>!P5eG8ikA;W|O9KVXVbO~JPOgV^eZVK)P-=#lfAYS&ff=VcaWWHRf6
z7u3`nyur8b3;zNo3v<l<A26rm_J(FtNK-8l;R+j=1BEM`jo5C08m@2!=&Ner5~vHm
zke5ne3s++6S<HoB`H*ncWhFmciC_4I><!JPz@~B{7As*55%~4=lmsh^A=pBd*cucg
zwKBa1hicjL$M`}O|0+c+sg-b0fOhJa5wTMr77?Jt3TMM6cM;hiE`^><;S$Ij6kz(X
z1tqbq1&p9%gDyyZ{2NbDlD<<PuLm>>n`$IDjX9(_?U^JQ7=#6685o$@q`?I{B5+_M
z&9DhD^e}?U!@>jg&?xj0t|_3Y8oii-oT-w<z<|Y8<XxhuJAAPy#_2ZProdc{a(+~z
zL6VWFp@FekT8c%AS)yf15@-{daaxkGg^{sos)ea>lBK1E2@3;@;JS%lUiCmrZ$3zN
zczqgA99kIQTd!||QFOzD7q=HcMRyf?m}1$}jx{l$R%VDWg)2r6Q@8|jo<KDPTbL5t
zhrukmlZgpc{8b{BqMHbBfR2=^B;rUZtmPGCJpm#-;fm116E1;V6+(1l3rAu*YnUa>
zA4oXjEvyNgpGa(B4RJoG>Z>54>cbip@C}TpRUcd}dN9Hzkdq~fA=pBb*uE)7XmU0X
z5t^hQU_sayntUr5=x`u_Q&R~M^()r23#%W=P5UtY*y1ad$nG*me6jq1#21z8SG)lL
zO8>=Vr+--2gQE10YzVgSBzAlNBRn}(i3m?>rGI2!fDXjKJU_Ia+{6l7mO^e~h3Ur@
zxWtZWV(d<1Tm}wY{JlT|jX^9M|F9-jm<Keu82>T&G3GEZ?P6+S3S^RD%wasiIF%!e
zLzn$K`w{kj_B3__w!dsA*ygjfvIVm#vc6~C%i6^n!K%jch2;eQMgDpG1^jOOQhaau
z_V9J_Me=Fze&;>LJC!$u*OphA=OfR4o*tek9u4kq+$Xu`a_4bdar1CJ;@ZsB&K1R_
z$@!i080S>Z6iy>fE{+czdpWvUrm-Zm7&8B7KFhq2xrEt;S&->5V+x}&BO}8Fa1)gP
z!T68iC;=q{CXMa-bog!sr0dg{qh9a}zDHgkzOoCV5bgH*71(Y<N7sV12&x!VzA%8s
zcI0pe2ew<>(cFuEi#r3_706Jx!<w^L-To7++tIXOxP2bB(1aiI2eAn3$r-4(?!p5_
z7ZIdLhueFjUU7?6HIiFEHiYSet~-WbVTwZw{ODVTxv2M}VppG7TmmwiVTm@%<;XY`
zLspkNpxz9NRW0gzRZpUHz)BF1gA$0+fxIj&7&SHHa24{3Er!`dSpr*T4sw<gS}?&<
zkFGvE!Ro?V7{zF&V^fP7O!Y+RKn^AmqIAIaG=Y4ej}}bWU4<O546Q_2f*i8a#OXj<
z^=3kx4(LcD$Rlz@>413;q(cq$c5+0FF|=XJ<nUF3NSXX7*0Kr~BM^lcWz|;HAcvM!
zXqwVW^O8$4^Yb7j<~pop6`B^L@&T-ikrAsmU~vg?9Vj3eR$=u9szP*cFmht`2AU>R
zZydnt4Kyw2-e6db)f=#Eh~$mGSiOO&5ZxOL8`07YOgVBn9gni^-yhZEI7$}el*TX<
zEvdmRVOWZK7dG4?ko8EZo1p{sI%aI@P&fZEOhLV79lH)#5&|UyJ7P4zA`7I!nivf*
zuYxqV65|Qv_BX?1Vyr+8YD*nf&PWdUrQ=wA4PS@qf>wOPtVRlaU09P<3H8EltOi4l
z8v*&0VUi{*XD|VGKn5<%&>ITSXh(JgVlld-F)Jt1&QPq*K*~X2w@lOnwG{A&3DO24
zV<JKYwjA9ay-|V1@vsVzp$|Q)VNr})1L_f_133|U5Tye-72BX^XRNM5PR0yfL|Fn$
zO`tf?BuWQzLbgILGGNYPn5xFg>5G)KV7ibR9Uv?7(XtK}WvC^F0Wlho!&-+J4akiR
zS)w!`H3Q6v(SY32s3uASk`0PzMH1FfLXJs>CSt6B83T%lO0*&gCWjPXh^6t8XqgY2
zVpx$Rj8?{AQwu3$w9v{JY$_3DOc`2d1e<EKGDZ}wh{3J}-Wk#0;_72?W3*!6iek*;
zQsex@xsS7pGmOcOQ;Fj}$8L^xj$roJ?AzI!+5Oq2xm9>H*q*a(VQXOXVUu8e!n%Pw
zg3*e#hSh^rgyjLt8lE3aTs$!>6)dhSg3NcBS2CCJ9AS21=Hvdtbc<;j<2A-bJQKJN
zFcopg^Pl0L!Joo!$oG%$6n78bG`?g$ecnI3CwQmuCh+P&dZc_a7)&56(nxajaeX7*
zE@S3QCfHU6<K$FxLn8wdlf*Q0L({~RG|(E(L^A^u1G6M^!$bp<REw0fG^VXcddv(#
z3!Rfp4H6TL63q>hOjDCh6U~fFjf^afQ!Px)O;Rll3{n%BmLv3l?szp#O)@k#FfmR{
zOg1nxHnU7KGD$Q@vP?9#OiVH}HwN8eoyLG<kGWA|VwwSH@f~P&Yoc+Ap+%~JsexIF
zX=+lUNn)z0L8@_LlA$3(6T%*|RC5bUGeg7FwB%&NRHLNC#FRt}LnF|31tT*H6H9YT
z(2_*MM5Zz%Jr*VgW)_CV7G|K;hnAp|n2b!4Q_WM23@t2E5{=A^QY_6=%?z0e5PFE6
z9AY#=(qm+4Vq%zVk!WOSWC99mL(uB>L<<A6#H8e8Llg7F#1sPqlSC#<Bt3@7X&|Sh
zSQuECnwlG=m>Z=enx-0qws<5Pr>0mMrWqO-o1`%wMAiekE7Kwsw64(7C^gw2G11J-
zG$|Rh{woEv`N2F9v?9-#@d%P01Iv^&Q!@*b6hjlxUW%kN<7A6uV`GEV6wtlT=EkOp
zpv?hBjPHz?GZ`Ui2ehy<$vid5ILR~>wCK<@+0xR|)YQl%HOVw7+0ekkG$ke3(9$RX
zVU1auk(pttMUt^;vV}=vvbiN_Sz)S0vPr6GnwfdBiG=}ZwXQ)TV;z#7)Kt)(fs{lO
zV?)rL*(oXJ$%&xVY{|wJ=E;eMmMLjT=0*l-jG@SSl0ob0OwBD#k_=KUQjC%flaoOk
zIxH+rEz^=y&5~0sK~^%XMR><7HOVYB&D6}?G|@EG$iOrSv^pHLtSL3g&<u3lt(kG6
zsb!L-AF?%xhL*<0iHRv7FBljbgBJd!q$L?znkSl>SXw3-q$ODzSz0jpBk4&=1Fby;
z-7s#HWNw+5VriLZY+`9@o|0l|lxAX>WMOV;mS$wY7=)t7&?wcC;D#ec<e*MTO*Tn2
zu{2CHNj6HfG%z<$F*Y+aF*ZuI1TFM8u&}f=GfOl`Vsb{dCpFo~EX~+3Imyh}G}*ww
zAk{p@$jmG$33MTQq9JJgt*M!jF{3=Po<t)f6LS-b<YY_BWKilf07Yz)d5VFNX>wY!
zajHRznVFF#<8EX<hDo4{;*Ctr3{4UZERu~4j7?L_K-WqqCYl-~r=@~!9#1x4*n^}e
zIVmm4GSwi>%*-I!)HvBP8FV{vVv?CzYN~+&Xfs4wnuTeyA(ITU9>dhsRM3se2Bx4p
z%gvK4jEz8he~gk0Q&Wr$4N?pfL3c7UqUbR&PfND2v@}RIF||lDv9w4uGED(3WH(PT
zFiSErFiWvCOHMRn;zhD2$vid1(mc&F%>Z;Sx1nWfTAI0mWumc}p>bkrs-d}YYD#Ld
zVJhQiq~w-loRVmoY>;S{W^7>sx}!VAB+)oA#n8|w(Im~xG#Rv}(L5!YAIX};WXq&v
zBNNMHQ&UTG&?;ik>TpZLRP*FiOA`~*H1J*D=4njY$a+joOp?-44ATq^O_L2xL2IiG
zl2TJrjf~9`lR?M)q$MRKCL1s|BI_}-FiK8J0WASFH#AR4G%_$vH8eI!0_|EePfkfr
zOtvsiN;74+hNQ>RA`!IZ!U%Lrxw%2AfthKVsilEsqDhizN>ZwYsd-{rN}6RdLp!P-
z%VYyHLvsV;G*ctchL|+tq?9!CMAKAL6GPDPu1S`b#+FPG$a>5YjgkzFO+fj^%rwcs
z!pPJ#*}^<A)zZ)ebc1-Zp`nSTc^bocgdTI_v{YkrV>6>vLn9+2!$gy`Bx6%kGee71
zlf=|ivlL@v%Vbc=%G8I@V`gcZoRn&5Zl08!Y@B3ZY+z<;V3e9<U}m0_l4b!a#na3z
z%u^B>J|pR|NClmgm}Hh_ZfIa)3SNMom}Fp_m;zb^otB)GW}cF0W^BU9f~+UW#MIE#
zA}!6(!pz(xEzKa=+z52?YD!X~rDbZ8rJ1=|lCe=DV>43Hu}CyEFf#=$mNx~J+D1uf
z28re=hK4C=mLRv88K#;UCz)F~AzNc&YMcZrn^O}FjZ+OwEt5<@JIM@_jgu1%EG?2O
zj1ALFO)VIaa~zQy1sRb`M03z0P}5|iMB_vY6U!vaWQ*iPvlPn|(Be&llw<<~bE9Mv
zLvzLnNNzJXG&C|cOG-3LwlFjT?aDGvOapCbOfpRcZ8b0l-S?hoWX>=dNspNYXoE&_
zN~)=mfrWvEv1OuBQgTWvXm5-~s!^JexuuDPk+CtuG-N$SDM=|tCI(4H2Ii&~pz_JU
zG%+zH)iTX6B`GN_$=JXkDJj{42|0R9lTu6!O^gza%q=Y~j1rA4jX)uuXpmxRVw7lL
zVPKwQnwV;s#$?C9z%Y%p)*d}nBl$kj%rY^}$lN$J$t)3+f6S82l9NnLl1)>SK$}yI
zlFSW^6Vnoz)sXb07#Sy~r6rl0n;M%X8K;;Tq@<;$BwJb<r<t0h8XFs#8z&kVni?>x
zBJ`M>f?6>tX@+UW#>uHBMxYAFILX*B#nL3%Fe$~zFwMv;HN`xUSsY1^u~DKSs3DPP
zVPR&LmSPSn$&D>i4UChF4bn_f%+1m)lS~tnn1zt^7@C=ynWQGBB&V617@JubnHi;~
z8XB9MnWY$+C7N1V7$%!18>FN%qZXh>7DmP(n?Sp6Ow0`}jFLgyObikYQ_L+5%|Yk%
zr5U6#BbV)|7D*-ssU}HDNfwqC$wtYE#)c+l$;KuImKG*yX_ko=iK&UHDJINpNNzJW
zNCj86rm3lh76zaVT?Xbxpv{LyNfybb2F6JysisE8mQ4SU^cWZ?rJ5U>85@|HnWY)0
zTBIeJStKP}B!Zfssm7K`mS!f#$;M_(uMv98QcaUA&5}U-VJ%Y(ER9VpQj;uFEKHJ<
zEE3a9&5hHH(kzmalTDbeBJ`MBn4}~nC8n6AS{j&JCR!w$CM6r2S%5a5S|*yM8W|=f
z8l{*enK2=?CCtr}lM@Y%jZ9OMQ%w!Pd;ZK)lakDn%}hZ1Doo9ilT%ERQqvgbBH3e}
zY@U>CW?*S*lxks~Xq1v>X$i`!DF!BnDamOjY01gSW`>4|j5m<=BpDi+Cz>0XCYq!f
znkHK&8YhAF*cc|J7+4w_BpDhRn1bY(+z^GKxw*MzVrsIPr9q;pWpbLCvAKz%X_|>e
zGH64Kg{c{+3^Fn{O|(O{#yBl4&BVyq%+S=>I4udZEjZQG0JN{z(jq0r#3DJ-&@9Q)
zl<_sPHHL|1NuZXFxk-|xL5jI$T3V8Yu{o%A1MQvxZLlykG&D!bJ?3TxNoHxLDJdz*
z$%ctWNfyQ?=9cEhMi!=)7Rd(22BrqdX6A;*77WjjoMuYg4qir2B&UH+h)*#$H#0I$
z1noymwgBz>FiSE3wOuUJ%u-X6j7^fv5>1h{m>MM~T9~C7rGOfs#wms=iI#?j7N)5t
z7Kz3w$%&~c$;K8bmXb&=GchqVF)=kUOf)gFu(V7vGfOfxGqEr+G&4vuN;5DtPck<K
zHQbmKk@XlFS|*tpr-F8{SSDMfm>XLfCtH{snJ1f>rkGe7ry84E7@MRp%s|y+YMx>Q
z+9qvoW^A08WNDsiY-VYkWMpb;U~Fb$YMyMCm}JIy6}11KhmnDSZw1dy?nW*hjw|f-
zY+5Xrm}fIZGcxdz)dQzTnM^G^n!=m8BsnuVj5$j|t6@b27&1YtVVT$(3y>G4!Umo|
zON!xaw4oQoViLFt^yO-B3FH;|XvSb$Q$p<KS&TI$%#eFf>TQ<bTbxSzVbZWMP(1$7
zY_e(QBw`&U*2Qm-(K1Ac!WE&1C|m-00U$&-wtysdn=r=8CmzTuU;F_{`Z`KH&ev=*
zZsw5W4CFB8j73YD5y(jsn-O{$1qEaV9!M*;kOS>_C1wXSM#u@(L6$Y)O@ihmZx_Jj
zZOx{TW_DthMOWq~mK0@HfO0hKTvuJxt8<V-5T+O-`N1SW$q&XxH3eH>61(3UBQQCp
zLju!c55D}2e_1q^<-G6!!0ipqrod)4B9=8`E#lzoazLpI5v*{v=)nq?KrUZU48azv
z#BOuP2vyFr#DprzNtCcJK!M6iM4)0z?7ApBd=P;OSBoB~a0yT(!%hl9F$7zn61%w{
zBTzXYYo+V)CsmRIm9Q^BB>)TgB>-&31U0F`a|lML!g4(*RAFqw8zYE4)Bqz`p;vGb
z2v%y90LXy>O03L8Bv$On9wv$!tT0jHwqT~fl!FYxmRN~B%K;-)`I#UkfXNkn<toXE
z73N-0B?D)p_yUwznTScOunY@IW-vBtMMG{8fNBc1U?uhp3yfgp_(n{ylAc&$0f0L&
zG@HVk8Hs4vV=Ye5TIA#gESfRcLYCO$J1`se+ldKTk{kBK1czo}GdJN4gz)4J4L$U7
z6D|)676KaxLz)?g$R==8ksA)E2^{JkWCb|ghO7wH6qu`#HxPoys);x(1tXhqK`v~@
zzw+OL<ZMDjU}%EQ|2JSd!oZTjBF}t>c^b11Gdur&{u+J@z7KpW_!9UecrWmF@H+7P
z;Mv7f$fLo1pL-g&FE<O<L9RM33(j|(D>*YbRXHAV%;X5<;AB6@Ude9A_L*%JTOykT
z>v`5TR$G=YEE}1QFtsq*Fn(cN!<fP-!*GvbDuMnxiwpq;qtc@x01E+(vs__o#9*73
zkx%SJX2TZGF<HB?p<O`$Yxp1;0T<Fo+%bW)bAWL!#_6<h9q=*-v9=l65VVSdaRbKj
z<HVZ;U)saC3nN^JHYE|Vp@4BE#)-1T8iBfekZ}bC1|hF>WBiTbDdHm=>Z$h_ZXwnP
zG*8{4z#tS)y`jJ$<Q0@mdK4Ihyn2uE93=)Jt?FZZO^HF!QASW}pYa+62Eh_7$RH+d
z%)^bL_8{eTq^c9XvKOSA@hIluy~OE8UE<03h<tNUlFmu;%|T8%jAzL=2bOz4;lrdv
zfjQ8C1ewElfP8b1W1I0V<{`;YYY4<PVkIc!3CuEwNHbsyL>Vt)+)w~dVTif`E(EHh
z;5Oug!h=Z;qlSX3CSU+!IVt0Aj2enqL(pm{CN+#2ig=R{HPlVA0~S_uGajM92uOXv
zB!yYBzylw4RusGt0A2C~_bOU_u$cmbP%`y13JgNY)mJGn2sv9b9;Cz|XlR1du_y%w
zp=9j!7{xeD8YyGLg^*fXU}vyk6fbb4i0lLxLeh;|j5G0&Zw^X~FCgC><aPaw$0;xe
zx!S%!zB$P42qq2+%t3MwlK=(gASFM>Gvu2COAVm(!?+)#T7gLuNPS4v${LKKi&!(@
z)yiRvYK2%MAXB7_|9Sb`7`Pb~82DE6{N>)r70JoMzL_nam7RG#Qw5^}qXMjtHB#xO
zkY;fr#+~5P1E3K}#4G@E8452~;PY4*<4#1Ff^FQ1*c0n9#+^7Ofd>(LHr~NE>P_;v
z6A|73O>T=3Gr0{5OQdiGWk50m6QmVe2oifJKSl@&{e^_!+AnxQkc`P~9Nq@a7Kl=i
z9HHappkN>~1a(m_xWyKjCPZFAfDxEnkke&)@CGL7!=Sj5BT`_1!c~NbaE0Y(@O%!m
ze!{tE0InEgcp0V>G`tLB6CPeB_U;9YaOLPGB9W3Fu5kb1_J(FtK(jD<xMDf?59_o;
zd<t?C2`RloBM!6pgh_x33m6;K6m03$GLe#V|9V#O;K}-=p8H2cKxj7kHVdIo!$QI|
zgV4GlU8)2riXrq4QFBYuPEy1gq9{H9&1(yy2Potq#T=9X#ZoBi!Ygx1%2X6Xumvcw
z_o85C{dh>$$Dc?^p4Y}&q@wr&RH6!?=X^+@<{<|vjzR?1j71GqxMCtpRAf`I1}l;G
z!C(X{(?3YCE>ppm_epLz!TpC?q9S`kv&o~GpNJdfu_ycd(xjYJ)G&oBL=RKA1afJL
z7)-(zp2S{&gL&GgA`#(9;6{03Py0l8L9@xVnNN~4mcy7c6K#cM3UV678WQlcE6A;w
z;09m|Nn-E%!3aqvFJeN{9A6n~NNh;LeE>S0j}E6(1~&7MT};Eq?9dWFtVqX5{4fbn
z;)k(O7Vcn+HDa$&!YEI;3W<m{GR{?mxg4i2G`YAF8T=RyGq9iLHsj{vx(_~?FPcM{
zOP`CG@f+t2&Nb}CoDH0zoSGc}I4*H4<EUo)z;=Xf23roB1LG++5!M&1dsrv1rm$MD
z^0GW+*~-$z631f1!p3}yc^$hua}#qIvli1orb|rAn5vlkn3NdjF%~hpF-kGKXE@9*
z%|4&~JBL6275)|cHT(hms(e5B&hjnfE9LX#ljZ%ydyID$Zyv9cVPZ<Ep{0>|8e^;$
zb0j0=Vgqydh=ewCB=l+?b0Y)LZfg_JtvYFGhG`aN=Beh%me}<hrkR<T8ycjh8Ch5)
znx<G78>Ltpq!@v=za*z588agpYnW`2l4fiPx{fEw*v!DfBF!u{DKXXD$jr#VG&zOo
z6S7(hQ`6KGizIWCR1?tMWu|FHsTOAD7RjcdEio1htC7{>zgdD&6Irc^g-Mc0DrhgU
zQ4;97tYizbM1z#n6yqcdGs7gN=?JxE76t~X$tLDW78XXPplw$vM#iaz24-n#Nl7WG
z#um&%NNP<?%~Db=O%hX$L3>e*jLpq0Qc^6FERqaCdkGVn{vy<x8<-g<TbNmZHYBH+
zC8d~{CZ!rBT9})dS{Rw9S(-4sLsn~GVrZO_nr570kYa3UW}0YjlxCTjY+#ZII>I20
z@gPF2Sz0RS77R19<Wz$clSFe1Q_wC~BMVRnr&wC1FuX)oYh+?(X<}euVqj#JW|5d^
zk!Fx=kZ5RVXqIMbW@yT=6-jMsYD$`^i9wo$v7xDf0q9CA%cL}e)MN`2^RyIWL#9p0
zYEul-QjJqm5)&;z*IcEgfVLDTry3htCMB7f88UoFR%>i&lxUWcVw_}Yo|J51Y?xx0
z3c8oi5Og<SsyWj=B(*7^(6UIg1m9tnY-yB|1iEx5)x<I-HN_~^gz*ltTKtzMF`6N%
zO)^VPGy&bsW|VA^W^QSbYLJ#<Y-w(8Y;K;Kn4HEajieTImspA^=(aT@<HV%I)Z|1<
z^EA^$%cK<0Q4VPgZ;;hmm?xShT39AqT3VQz85$-frJ8`wbTGECFg8pzWfVkF3%dTw
z#Lyzy+|V*LCDp_zIVsi1G$qM6DaF7zmFX;!TFb;#Q_!X;GXq0I(^Nx~6a#Y;;}r8`
zqa@J1OleF8h^%d9nP{Ar3fg#RV3BNYVVPuM0KO?N+0r1@%plcF3)xuwmoGAUBC9nr
zO9G`<10$1E6Jt<}n3#aBCNu^eF_4nTa0JN-7HQ_j7Uq^lX%?oYhUSK5DW=KE$*IYy
z$%ck07AC3nNXA;Enj4s#8=Dv#n53l`8l|NfSQr?aS)?R^uIe-~V(La#n`oS7mXw$R
zI^V<8$T-c&%*e#t*djG4#oRn4F^OpkvRVtXG-FHC<V1s1^CWX~W3yy)v(z*T^E6{q
z12ZE_rZ{A^=Aa8SEiKFw%?vG5Qq58<(~K>Q6OBzRjFMB*QW%aQt2MDmF*QrE1SM@#
zlf+c>6vGrFLr@MhHcL%0WIT<m)-cV;JT(n;2O8+)heS(rGt=bcMDrBmRM4JBCUGRS
z=4s{zhQ`K8$tJ0W$*D$3NomOzMh2;=DJdzSQ!SW~!^}J-(IhR+B*{3{0(3|OXh(Ni
zYKnomp{b#nX=)NfKeD-?3mX&7jg1UJml7F(N?|kOR1<SU&_$bR226d(YE2DI%~K6i
z3{ng%LHlZr%*_)Mlgx}Q4U&@+lT4WWkfPY!*f7o1!Z6tYv<2P7+{`f1BGue1#Wcyt
z%*5QttO8*ys9rGx?WzV{2WFI*W@?cN+N7S8VwRQy+QH5&hfr&loRXMm3A*6a%-qD-
zJk21<)YLT9(!@O3G%?B8*pOKTNv)}ciJ7^%d0JA6g?Un{fuTv7i8&}ljEpTTQ!Nac
zjw959PUkQ*Nlr{LOfob#G%z-?Ofj}dOfpL|u}CvAv`l4KhEQu}1iCUY$;imSz|zbh
z*(Al(BrVk>F~!o@+$1^0z=UZnLan)xd5VQ;3fRjA#s;9fb<GS+QjF6KEmF-)QVp4q
z3u<FaV<QVQ%Vfhe(51RY#wIC==1JzM7ABy*wx(uG^N`I=GPN)>GBZsxF*ZyA-Qi_v
z1iF69(jqa**vKq}kp(#_j6nCkr9cJ_Q_YeRlgy2h)6$GA3``TvQ<H-b#+sQMrKA}p
zCnhB&rKXvhCMBAiTAHSs7#dg_CYze2rZA$UNCV@v<kU2S6l06DWJ|-;B%@TLB=bZQ
z6N_Y1P;(*)$q8mDpwmqZQq9aPEKO6*%`8$3EzC{R5<z#~86_EWA~}J;4SkFj$i`YE
z8KfpAo2QzaCt4b(CYhR>CmR@<nS#!`NKCTyKsMGeEiK8+G&#-GFvY;o(#SFqRJ$fy
zn421y8(CN|B1M{+si~n^s)2!pQHqgyqJf2xiKT^Mnz4bgiLtq<X<8~%Ig%4hOjAHr
zgGFkZWvWTCVPaA;XbZn(QmO^${@z3$BqtEK_mR;CS#4@cszpjFs9rHMHB2>01s!r>
zkZ5XVlw@FTXv{bjS*^JN=<E&?3*!{?RP!Xz<-2L1^E6D-3=NVkQW%iEW^8DYl4fC<
zl5ApWkdkI>lxUJ@W@!XI^T#qd(S%_GlDS4{7A9t(>&T2u%`7cVOcPBL6O&U7Ez^wB
z%u~$F8Mh$?gHcM7NwTqlX^N#mQc@D=+Qc-Y<fJ6a)MQK0y{a|H#+sWXnHZ;9q*z#5
zCZ`xB8iTI9OE$1DPBAsGFgIa}M>ZCeKoV2U4UA3G%u<q)4K31)QcMh!KzBhK8JpBG
zFfcxZH&sU&!!HC7>Bih5Db2#f!ra0P)B#DfFf;{a$HbH*lSE^4OG9IZf5>W0jX}qL
znV2P~nOTA^lQm5?Pc%s~N=Y&`OG-3nyoIdRI4uQqF{PztVv0esDd>XdWFw<gGqV&^
zQ=^nL#xF=}%~Ord(^5e<q8gbPCK;F-m?oN~7^E4bn57t5SeP?xN2Fa)n*w~PcapKO
zxuL10Sz@w5lA(#IF{ns2NK4a2HrCJ}G1<%vbQVLZaiXQEp_#E^YD%(sN~)ouiCHQ$
z1F~8J6HD_XqeRdJh^CeXrUoV^7UqeGhRKHJCMJdk40Djw61dQl(G*3kv4H`oZ(x*a
zVvuG6>NO-Mr>2+~7^fs!m?beDMOJHRmTYcpYH5~aU|^PPkz$%^W^QR=k(g|30&0RW
zbRw%YNj5h!OEXP0PXpBpMwTWPNk&N)28Nb~CdmdC3_p;9%+$ot2-H4JO*S@6Gch$a
zGB-=IFfuer1|71NVp@V^tce-ubd$tn3ll?2vlI(+Bg>@3lteSoSq3IXW@(J;k=2@}
zCK-YnBqnLb=0+w-$%&RJ#^#`7<4g^VOcNOkk<@}tq%bo89Zi;)m}Y8_l44|PVq|P;
zm}qWlW@w(qh}^?8HZxB)P6Qo)mTYchVwz}RVwr4~YMg3mk_@`kow0zIIh=uq!IFWo
zkHL~}1#c1$FV{iN91c^q2duMLJeeLdKf#e>n*y69$sUbC9??V^KZ6Zd5H}iwYzVf|
zm?R>vp~o1FVR{G|jln-HPNhL}WM6=0A|!|iRIKB~DcFa&;A+tW6)u51*o<Nbwm>zo
zG&ca9Dq&z~l4@p<l4_8gnrLp2WSC@WkZcS(|HRxN*}}-e3?ooEU1$=hgngk|*sM&%
zb|u(6EHpXd3@uoo;NPyqz`*bcN5&bZ!cD%-O6W-!%d8~!_`*KX3s;LXGEkB(vLUco
zLf)Q5;XLo&DR}03NS&30dkv=#G@G276^Xdt2J2KDY=IawF(VKEqK743{n&yr(L5<B
zIXT7D1awilS&A9xBIHzKb5nDpRC6;kv!pb0i)52zi&TsffC+LLQ_s#d_yW=l@6-gb
zXBWT%092wXpeIYnG$iueF7|CX@QVgeCJhj3(Si~ofwEqdP_i^5@+?b?@MK&8DN*r;
zC&`lrMEC-<cuSs$#aq}CIZ9B%4<Eo-%7IHOwghQxVF)=^DlsJublO>BnqjJWiiKH<
zd8$RKMT)USN{UgcnW;HO017z}5rCvG-ooW}P+F8DoEG8J=%7VL@Z6b#ysVboY>i?F
zwxBdiNh9ivRE(hHgxm>>KW~$q7KsQ7(0sTo;rVdvsTwgA3=dI+LZWgv!USx=nPQS^
zm;yfJ&=53UW^Q3>k(6j=nPO>SX<}fUYMEk~lxkvVY>W|{Ozx1Bx%CLXqSAuIq7vaZ
z<N^xe1yBN&AtHfdOW?XFmoCDCle8R;Y6!LvH6!vkO^gs_eojP)lAb^b2L-4emnOF!
zhi!8~geSZ}Kuez3vkFW<wxG03Of&`!JR7H^SePXlCnqJPSfr*U878KhgC;HvO-zi8
z&5cr%FoSYG5kX1do;nN6+sffSLvF3WJOElwBt>{R5%v_0*shCG`ydpfg(X4)IiH}K
zf-OXo3{nk2$4Htd8m1<iSeTnz8k?t?B!Z3t2aQ6T7#LclB$}FAV1y{UG9*OtcQ{F1
zPDG41G(qS8X)$Cm@Gs<d;(N^3!l%l6j5nQ^gJ&g=7x!!K9&TN(b6ojc0-PH;gE&5O
zOyMwPzs6q9F2S~wEsFIw>l{{FmU}GqEDFpAnUk2AnU*lQGCpH$XVhRg$&iKG(}`)S
zV#{P;;*5kGe4b)pZfS0AVQ!FWZefsSVriLZZkd*9keF;~02=vD15F?q8l;*q2SDcg
z4HL~$j8j3g&lbj(CTXdODJdxi#>R;T2F4bt=7}jWO_j*Tn<gfvr6!per6w5|n;TeI
znkE}1S(=!pr5YF*7+Izm8yOjy8k-pza->3yPfbiTOf|AFFg8sxGyn~yBqkdrSy))4
z7$lk|nI*+ERUjL0Xqjk`l9p^@2|75_JkiuBEjh*9Ak93<AjQbS*di&_+$_~3#WIQG
zFvR#YlO#(Mi&PV{)U*`CM58p5#KhFJB#X2}W6-IeM#(Wv<;cc^j=M}XGBpFKGcyOD
zb)S@$VxDATo@$(IX=!R~oMLL0YG%qb9b&wxnQ5Y#g|TI#S(;^<si8?qBIrO;i)3R1
z&<WutMlnrg$i`b(7@C64F*YzrH8n^xG6GFwTY!!Qw=gwMGf6f|Hcd(~GB8QxXn+`R
zl5AvVYzR8OJta9g)e>~>Z*r=Ek)?@QVrrU+rFl$KDYEfN7OCc@7D*{aMn*~I<_0N=
z$!6vz2FVr%Ddx$k#^xqz7DmYiY37#9(4`!fNvXzZ#;Hc8Y02i6mZp};CMJo-smV#n
ziH7D$NyerzO(n?2TUr_#CV}Sdj7&|9QcX-P%t51d$)*OThK3fFCPpa+p!3g-Q#q?3
zt_MYgc~Y`bs)d1}fqANtiGiVkk#U-7T53{CilK>VOj9wk@rkA;Mh51_7Rg4ImX>KL
zW{HNN<sRlHCTWRAM#<nbm1b^eX2dlaYP_LAlDUBy=rr|2qhxdQG|=I|DJBMHMivGp
zW=4iFO-0DYCm9$do0unBCYq#}B^xIuB^g^7fF?6RllRG{Mn*}A=4s}M$wnNDAjTV;
zm?ozfn;L<}RE<&%OiV3J5>pJ#K?j^08>d*B#WWQn8*gctY?fk@W?_+<YMEkYl#*s(
zlxApQk!F&Vlx&%pnqp{b22R{e^$_FDP4JIA#xxZm8*gG_m|~I&o_0wyG5{aip8{TC
zVPs;Q0=e$O!ZbN4jqy3ucme~EF-`d>##@*f8<-dw87Czgr=%u>hKntd3@nn(k`oO<
zS4bo!n<W`p8k%z)fEaIJWMph^W}1?eVr*%cWMrJ2W|nATlxCT1YME$iWMLW8l!t7*
zabjwcg{cwf-Uy?_6wp->#+F6~iN>ahsph6BDW-;IY01Wxmd2dy5aTVAEetHujFSx$
z&CQI=l1-Bhlg(2>bMgi$Mu`^5CNWL9$i^q7m?R~enpzl|rdp(!StMB`rkE$EB&C`e
z8zow%B`2F1TbLwT8X0q5fEb@<VVrD|WNK~<x^&($%`nx(95gy@ZeVF(Y-#~2(sGcE
zPfkiSN;5D>N&y|6Y+_)Nm}Y2Xl$K~=oML2To@QujYGMeA9dqUwi1EfrrY1=#CT6Jy
zsir9gCaI<=$%aV=28Jm~hK8nwMrkok*~rGHT9~GpnWdQ;g2(a_)6y&qOwCeK3=K?;
z4M2Avq#1&a>P<;wd;>8)4RrFpX$t7{`&9E}b2G!F6r+?BOM^sn0~1rDMDv)YEM()8
zO+km`rh@JcFibQsNHQ?CG_goY1c#=%iCLOqvMHz{Fyh?+G2T4QG|3{>FfrLYF$L60
zPDwI0Ni;D|H8D&wHnT8IiD}A2Hr~u6%^=Op($K^*%`hz~EinnSILgu}#lp-y(bB-e
z5L6HuS(+ycL({!+Dri}NfoY1NWuhtQ0CVFsV^fn<OAGT9%hXik)R?9WWaAT)k}M2U
zlR>>oQ%hr0^RyI8lSDJqWYaVgbMr*QG|<W@qtp~5MrguJv$RM`HZV&AB?QnZ_$d~q
zMroic4J=Yp4NWZ!W17;DjZd~rOG!2~N=`LTOtvsLvq(0xurN0@NlG%eur#+YGBQgt
zF*YzXFk_qx37lk$L{l@9<mA-EH1kA*RFjmXG(&^b6hnhVQ_xy3lbEJ7WaE=k%*@PF
zj1yCmlR?cq(?l~fOH1SA<V0h$L?a_h^CZxcl(bYMw#N|T4a`yuEzJzg%u<XE%#(~w
zK})BSO;XK_4ALwU6VohXno^OCPqwfyF-$fyOEgP0G*2=}Gqp@gvH)FrV`5=xnPQoo
zVrpq(W@u@~*#a>>%@B0+fsv(=v9Xy+GUzg!G;_05!xRgPq+~Or<g}Qk6lCKQO%hYm
zQVh*g3=A!d4U!C!LFJEWikYQhN}_R+QF2mRVxpy~aWX%26=0gVrGcTLrHMHxLK7_v
zj19n7Yk*4?OH(tWn5JZ8<1Ld7EsRsmOhL!dr=%DrrKP2$8l<IxoMU8^mINB!HnT`E
zPh@)maebmmlA(nGsB|$&GO;jCN=-JiFfletHZid@HZe>!jA=?jHa<Doz}zCm%n&q6
zo|0&2o@@a+Xxlj1$iy(k)ZE<6&@wqWDb>(`DHdY98R#AdP;(K-qJ@~IL=@vex3?r)
zq?ntgrWqs|nkA)Lni!iJnHVG|rI;tCSr{0lC0iJ$r7_Kf8gG!4nrfM7YH4niXk?z2
zW(GQn+SnpF*}@_@H4)TONI*8;!UD9$B+()*)hsR5%q-Q+C^gZ-$kNEj%-F;<$<ox&
z$lTc2*vN><6=J-3lChz2s(DJPr9o1fr2#0#Cnu&QnHU%vf!4HG#5Bbt8*gT8Vwh%;
zYHXBdW@2HKmSUP>X`YyDn3R^1Vq#)qXlQ0`X^~=JY00h#F+MpZE!Eh_+z52iI%sVT
zs8UEWNi#7tv@``Jp_ryPWaEu3OiYc^EDcR85-p7^jV#hE&5e>0jV%p~Ow!Ci>ktf6
z4a^e_jW|Of#-|yZBpR8Un<QHrm>8Q{n3x)-npq}Vm>4G-8l;(}8OJomA{%dL2C9rL
z%#DqbEi94@3=9&}3{2CE4GmMklWe9YDaOW$$%d9p3=rc%%ZQA@xz#iU+w#<yrWj=7
zP1B6hQjHVM5>pKgK<DEdf)=Qnn^=HKp42q+B#T6oBuhgJLnd#C@kthzDVFBu2IiKa
z<ZNtioM>cfo@knsnqpyWY-DH|(-e(tynzYm4j2nd(85;p#3W-26T?JM)-^FqGE6iw
zGO;vBHL^@INMVL1Ok>mJ6r)sg6T?JPbMr(KLla|zL<7)a=H|wrrBlf<O;O0krx_Te
znI@Z?q$H-LnIxv9SR{fj9!gC!F-}f1F;6nINKQ3QOSCj*hNc_~lSD&f&|=**BTI|a
zM5E-Clw^a{BtuhUBa;*h1JjtMNMz$J4M4}Oo0zAWm?oteC7K%;rly&sC8Ze{nx=s=
zSdxLMxtY0zDbp-S;G`y7TBIa`FSRf-G&V3uG&E05GchqrPBu+3PD(V2X^KEG-aIWe
z)hx-_)Fj0u3ACOrG1(y5)X*^1z|1Ty&D_GsB-z5;Fv(1q4Pv|r=sKbl%OrC%(=-E6
zBg5F#614I)*}xQZn?_1ZQ#i8m21%BtNvWn5#wo_hrp895#-MASQj!c(%uGy@j7<&A
zlM;;#larDdFGGw^GDrq3eltk5Fg8g{1T|PpQ`3x%%|Ht~%}fl;Vw%EGj898VGcruF
zFiJ}{u&^{sF;2Dw-DP58X_RQ5Y-(njVwRF-nPi^Gc@AQ{k$H-FB4`%bB+b$k)RIUA
zEn!Fl^(8D)Qj$z#nnIC{H%le%GARxXi18_D$!R90#wnJ`hAHNTMy4i)=B7z$rWT;P
zC(=^W%wn2Ckd05ZFg8z1F|<s!G%x_oFq$M8nIs#gnpzm88ki=TfELh#Zs0KFN`@E@
zntC_2NCvGvOiNBPHMdB#Ofdo7Dv)ew0Ll|FO~J^<6FYyw^aEmiQX0rPmIjsvCW*-g
zhDHX)pawu{N>ZwEvPmMS`w)a|Jh8+1j4L3<n;4jzr5L89rI}bHC4x#%gG6(qBm)x@
zqtsN;m1Z$bfyl-aJJ>Dc05Lu_H4(H%JjE!*EXBYyCDp>jBF)r1*~Gvo%`DBtC=GP}
zpC7{q2L7k~8~CgF-S`Fh?(i+=tKjqG6X$)%yMecvH-uM(=L63ko(`T69tG|<+=sZA
za~E;ja&vH9=9<Tq$z{dG&3Th^F=r8{E2kL8GmcFhbsSzCV(gFD*Ri*-XR@2H{bxJH
zHkB=bO`G)(>si*>tf{Oftn4f|SXQu<usE>rFyCNa!d$@Y#;ncsjp-m$4^udk660IO
z9gLlf;f#t59~cg!jwE347*Apd;Sw-l<&5Wm-_;%upW*?X>jImpK|0ip$qe<TWE>jM
zkH?8Xz04A)F8EP6OkJqA+TzlY2tBjL9`%N09Lf>Gpn)$YS0XhbpD4oQL#!s~1UlFz
zV<I&nPiim)6RQc?rZ!?VA)Nxkq(!7A<h2=0j#8|g##oaM(=<(1&Ol@-SO|hr6^soI
z7+KU?gX61UvdAiR;i(d=$ACCJFq6P~Oo`Nk9F!`==}AY{Q$nO3<j|KSP7g}p*XV<8
zPDaYNFyEqt8+=0=lOlR{!m1uNOU$H-dV4aCXn~xW!eoSAhF~=tF|ER6iC%_a)qq}x
z*rJyqICLS(5M81?4I5Ht(j-zjw8&9F&oo%wgI44;5~&Gh7C7-15UU9}C5jNK2_^aJ
z6RQb1{mKxj2_*qnpqCynAL}wTVU!+Fe}U6BlnoA;bc~z>l|@#Gc0v_5ae82NAK0EO
z;`AUNHO8btoF0_m7ba2<a_A=$rw1kQ*)d8FY~h9|J(MwW1~&EZ(t{79^uVSZT6)A|
zlpfd=Bb6S^7^Md`4d|tZI7aD#T^FMCkSEI1@X~{eNafJdLkA<%U~>=ZfqG2QL~24w
zy!=FJLQcJm|A^Ftl6<9!)r6dW*@)DHl7Pc8N)K4*F=eBd9<VkQs7!#dLAjdoCwk6-
z$s(&nZF?~OB2Eu-STcDMrw3*`*lll#)C2W4NDmVyk$R9qpYaQEdXNL3@hf`i0dqM@
zxFJdpA@rPqRXx1)U_viFuqua^9xmvm2Uf+1(u46Ydg*~x1A6HZh+cZ&(1j>He2MZj
ztn^^~NThN|>B0B{J=0)y4_ezpj7Uu=iI<f~O)v+5QX=CAVl^QrUk73}A*bIbL~24#
zz)Za8r3cLMx=cZ!`F|b;TL!+>yy4vcxmI(gatN^PVJ&8{Vfw&0gTWS8KN>9F6y9t=
z_>K+i>k!bA9DIcfLN!sVGSG~{wk(6#flkajHe$icGNyA`;aP=cLFyeF2oEB!E<y7L
zXuXR*5$j!GYyQDS5j3IbqOMdyge+V!ddR{hkPjY4H3eJ15<A3;vEGH*m6(7fdA$n}
z-T*BZ)FZrH5c_H>M6n7FQ-ngaFhxipFK0rSfGs?U9n;1LPo`N!geQUHbBJA$h42Ds
z8L%!f%Yb1=v4PgQL)oBW6A_5;@(4W;;Sy+Cv4$RzL-rV<C(K4n=#jkL2bbGHrw-{5
zK6MCtF#&I7zylAV4lVEy63FEY+yHDrNbIx(Mi4Syh6Ev75T26K+?*=wRpCAW9WJPi
zUPdyqNi(uFW+5HlggqSMtB{-W<c21yDcFLPvP~z`@dhY~hYJ!D5TGT%TEr{?hUR0?
z8g+O=hcEV}Aa|qQYKSdF4TzlF!bqf?=ZHw8WGn$D7!;r-z?y`Y0Ar7zWayATxk(hJ
zA6rloJCTPGlpGq6pk&Izm)}X<%7Z@uK-pb`{Ok@p#0@2FB5Wk8@I)P+z!stuW_P^d
zNu}(L91x&praF3<LbgYtp3;adjia7e3s0Z$O(vL|dI+0>Eli1>55`EPT**YFQZmlH
zCF~7QT2(_2SInvjdm|C`#9BnS!WYP+rBz}~!4|HAD6JCX1yI$biaksTZ{>@xg4I%#
z<$q*TC<#+71{T?6YkhaQRp#eq7H4EaZWo{SuL)0iioa?yG15m%7l^_QxdDh85}LeR
zfebthD;PMY@NMUf=i%bo#(9_Bne{!(bY>66KMX4vR)Bl@15PvrG}~g2d}7*q$U{8v
z421|EA_ETD6iOnWg@HwI-NY}idQc*N(WX{>k#B&n@oYkD+#`Dd)EBlU+!w}v^$nsM
zhzL)3{~J9#;S$K>3kVaig=I34>l!f%eWsb<LVwY^xp+d8<i0SWK+tURZnl!-Oyn@;
z%w>{fU=S5x$Yg+2q{xSIBa$3)mQ2ovkE0?26E=c}UW*bm0$XSjyNnYvG$A831VR(<
zk=%xuBMSum0BV<5qGxwVaH6zJU=u%}ZU~%>tNw&5KuezR!@%*Ff-O*qUA&4BsO*YF
zBvI1aC2;@gBSJtI!30%&pmvD`dbnb?OR&dJJUkPCj3PIsqMCv&Tq$dpELyb{PsXQG
z8yZ%ifdT?_9=|zyml+bK$XOqI69=C5KqkS16rmP9slwZUD5Hw7m<Jg`?+_*R<O{++
z01c2C5*{E!^fQnK2X*12Lx{kHwb{^1QUV5G3rJ#@WMdx7?G4WI)A<zfBu)YYWLS>n
zhI<Wb5NH-Qn-OvH4Xir@4Keg22e$(jAOugop~F$&0nMi9S&j)j@`v0Nz#hRkvK-u-
zIQ@?t#wdos0*0K!W*C|oSZbIy?>qDjr7<{Nh!amj!QT@wG&V$U4iXU(pzf6k_NoCn
zOmS5Wu;omkA_$t0kefJYfl7=il!Pkw?iD40N__VUIV3>s7-RH6#capGD^|2=JmjGo
zM4-YdAN2B!7*ntXDzUp{FxoMkAw(2vB)4OT@dl`hFe0Lgz*^a0sUqO&(9$VF0=d40
z8-Oh|iQN>05t>X4M1&@RDgv{qO~415T>PII3s_z-@W0`I%72glI{yX!ll+JHck^%I
zU(3IYe?I>V{)zlu{LTC|{H6SP{OSA&{E_@Y{NDU7{I>jN{QCSF{EGZi{KEV^{H%Qc
z_`dUf;CspUi0?Mv6~424$N2X1?cm$Uw~B8u-yFWFe0_ZFd<}e+d_{cOd?|dfd|`b4
zd>(v`d{%tMd^&upd~$r^d;)x&d`!H*dB5<!<$cC`pZ5muMcz}qhk5t#ZslFayPS6c
z?@ZoFyxqJlytTY#y!pHtyotO~yurLayso@<yym<Hyqdg9ywbcPyu7?@JpXxq@O<QX
z#q*fw4$oDdb3Dg+4)E;Y*}$`cX93R)o(Vi1JPkY*JOw-%JPAAzJOMl&JPte-JO(@(
zJPJG#JOVr%JPh1FxIb{e;C{e;gZl#a3GM^jJGeJ+ui#$5J%f7!cL#R^cLjF=cLsL?
zcLa9;w+FWaw*|KWw+6QYw*<EUHwQNZ*AK1_TrapDaNXd#z;%M_0M`z#4O}a@7I4kr
zn!we;)xcH3Rlt?OmB1Cj6~N`e<-ldZWx%DurNAY@CBVhO#lZQ4^8@D#&Ig<~I4^LX
z;5@*&gL4Dt3eE+bGdL%3c5pUuR&W+@W^g8OMsNmjdT=^$T5uY0YH%uWN^lBra&R(m
z{NVV&@q*(4#|@4P949yqaO~jNz_Eg30mlrE2^<|94IC951soY12^<j|0URD24jdL7
z1{@k33LFv~0vsG14D3JHKd`@Gf53i&{Q~<5_5<uY*f+4RU|+yKgM9*f2YUm11$zN|
z273Z~1bYCx2fG8i1-k*e2D<{g1iJt`2Rj4X54I0%FW4Ti-C(=Gc7p8y+YYu3Y%ACn
zu+3nbz}CUmz*fOlz?Q+5z!t$4z~;f`z-GZ_z^1{bz$U>az{bJG!1{yr1M3Uc2dp<(
zFR-3qJ;1tybpz`P)&;CHSSPS{ur{z(uokdpuqLoZum-StusX0>uo|#xuqv=hunMqp
zurjdxVEMrE0t_Fp++exDa)RXm%MO+eEGt+Ru*_hYz|z6ez*50dz>>j|z!Jd{z~aH;
zz+%B-z@ovTz#_pSz{0`8!2E;x1M>^!2h2B^FEF2AKES+#c?0tb<^{|%m?toIFgGw)
zFc&aqFeflaAO^~q4G`>6)<A~<J1Zvx2NPo}lx~62%}}}tN;g931}I$*rR$({EtIZ-
z($!G93QAW(=?W-a4yDVWbP1F$hSEh)x)4eiK<Ruaod>0Jp>z(E&W6%iP&yMzXF%z6
zD4hnSQ=xPUlum}yNl-cwN+&?+I4B(prDLFUG?b2l(veU)0!oKN=`biA3Z+A!bTE_-
zg3^IdIsi)hLuo%K?F*%SptLuX_JY!$P}&_zyFqDJDD48JouRZ7ly-#D4p7=2O4~tc
zTPSS<rLCc~6_mDw(iTwK97>x(X;Ua|0;P?iv=NjxfYSO<S`SL=LTMc+tqrBMptL5G
z)_~ILP+AR2t3qiND6I^om7ugDlvaS!@=#h1O3OlN87M6crKO;>1e6ws(qd3r6iSOg
zX<;ZW1f>O`v;dUmhthmdniop*Kxu9$%>|`7p)?1SW{1*jP?{A=vp{KPD9s3^86Y&n
ze<=MAO8<q@f1vblDE$jc|Af*%p!9br{S8Wgh0<T3^d~6&5lVl6((j@4J1G4YO22{9
zuc7oSDE$&jzkt%uq4YB-{S-<+fzpqm^dl(!5K2FQ()XeCJt%z_O5cIfx1sbcD18%3
z-+<EBq4YH<eHBVyhSHay^hGFr0ZN~T(&wP`Stxx5N}q<(r=avnD18D-ABWP%p!88F
zeFRD$hSG<i^g$?n07~zN()*zFZYaGAO7DcyJD~J-D7_6zZ-vrZp!8-ay$MQhgwh+J
z^m-`04oa_u(rcjfYAC%5O0R^{E1>jpD7_R)FM-mFq4Xjsy%0(-fYS4!^gJj%7fR28
z(zBuTEGRt_O3#4O)1mY<C_NQQPl3{tq4XpuJrPPzfYSX?x(`bCLg^kT-3_I?pmZmc
z?ts$mP`V9DL+fb<Xg$pUt*05F^)v&to@QuZ1J&z{^$@BSLe)U1Y6w*Yp(-I%1%xVx
zP-PIR6hf6isA33J1fdEcQ~`v_hfsMCDi=cKK&Wg8l?9<PAyfv0N`p|T5Gn;iB}1qr
z2$cw-5+GDOgo=Yuu@EW-LPbNUC<qk^p&}quID`s=P@xbi1VRNvs2~Ux0HORLlploh
zg-|{a${Rv?K`2iM<pH7GA(R`0a)nSX5Xu=sIYB5#2;~5w>>-pLgtCQDHW11hLRmp5
zO9*8Fq0Awa8H6&0P$m${7(y9BC<6$k525rRlrDtQfl%5IN((}1LMROgr4FIgAe1VE
zQh`v)5K0L`DMBa(2qh1p<RFwRgp!6(QV>cKLP<a<aR?;_p+q5+2!s-bP(lz&5JCw+
zD1HdV2cdW&6c2>rhEQA(iW5R{Kqxi{#md0I09y4AX_0gBaxkVaJ1`L2izU8)%yR<0
zugzJ2ub0ZpfYwjN*-Pc|!04yq=%sScz|v2}+e_uTfznUK(@W)2Aka^R_EI@Bu=Z22
z^inx?u)JUa^-+oJp>lA5`>6POsL=i?djz6~${fJ#!R)~EgXaU!3!Vo&H+U{EFJO^i
zxxnhcx`S;6@uLo;jAlSaN>ImI_<!(!;D5pYfd2;n1^yHK2l#jJZ{T0Szkq)R{{;RH
z{s#UE{sR6C{sjIA{s4Xteg}RFegl3Deg%FBegS?Ceg?iDd@uMO@ZI3Mz;}Z00N)P2
z4SXy37Vs@V9ZTWnfQ`R!J8)0n4&Xk(b%D2lPXN0=!6Ppf+ydM;co?`DcqGtATex@d
z?f{Lr@E(BV9tLQ;k_lR`F+uA!CTP9J1g+PYp!FIPv|eL^)@w}AdW{KMpD{uEolMYv
zClj>a$po!$nV|hnCTPEt3EJ;ug7!O^p#4rJXup#Q+V5m4h19D|(EcYAwExKj?SC>s
z`=3nE{wEW(|H%Zc@0p<ePbO&plL^}IWP<iPnV|hnCTPEt3EJ;ug7!O^p#4rJXup#Q
z+V5n7_B)xN{Z6KMs5_zkPbO&plL^}YWP<iTnV|hoCTRbY3EKZ;g7!a|pzReVX#bN5
z+W%yN_CJ}R{Z1xmzmo~t?_`4ZJDH&UP9|u-lL^}IWP<iPnV|hnCJ(54q3t9lX#bN5
z+W%yN_CJ}R{ZA%n|C0&Y|73#pKbfHYPbO&plL^}YWP<iPnV|hnCTPEt3EJ;ug0|C`
zp#4rJXup#Q+V5n7_B)xN{Z1xBsC%LPPbO&plL^}YWP<iTnV|hoCTRbY3EKZ;g7!a|
zp#4uKXup#Q+V5n7_B)xN{Z1xmzmo~t?_`4ZJDH&UP9|u-lL^}IWP<iPnV|hnCTPEt
zNfPRAX#122+W%yN_CJ}R{ZA%n|C0&Y|73#pKbfHYP9|u-lL^}IWP<iPnV|hnCTPEt
z3EJ;ug7!O^p#4rJXup#Q+V5n7_B)xN{Z1xmzmtgx>RxDjl?hr-FhcvEjL`lkBeeg?
z2<?9|Li?YL(EcYQwExKn?SC>t`<;x?ekUWe-^utHVjm;4|H%mLe=<V*pN!D{CnL1~
z$q4O#GD7>GjL`lk6Kq@w+W%yP_CFb+{ZB?{|C15g|73*rKN+F@Pey3}lM&kQWQ6uR
z8KM17Mrgm25!&x$g!Vfbq5V!qXup#Y+V5n9_B$D&{Z2+`zmxF_#J^0iaU^K}lM&kg
zWQ6uV8KM18Mri+&5!(M`g!Vrfq5V!qXup#Y+V5n9_B$D&{Z2+`zmpN#?_`AbI~k$<
zPDW_IlM&kQWQ6uR8KM17#=TJY!p4)J{ZJ-ozmN&qFJyxD3z?w(LMCXxkO|r^WLgF_
z2iiYmg7y!Yp#4K8X#bE2+COB1_79n${X-^b|BwmVFJyxD3z?w(LMCXxkO|r^WP<h!
znV{oLOi+I_LH*4H^*0mL-%L<{GeP~$1oQVEsJmhQhW5Xip#5(qX#blD+W%&P_P?2+
z{ck2{zncl#?`DGbyP2T<ZYF5In+e+QW`g#+nPB5iP=7K){mBURCnMCKj8K0vLdzFM
zXt~M=E!P>L^$8=iK4gT}$BfYaFC(=7%LwiNGD7>kjL?2BBeZ?M2yGuQLfZ$7u=W8o
zoiRbv851m>LC2dIq5frr`j-*vUq+~Z8KM4Vgr+A(XnJCVrYA;ddSZm8Cq`&`VuYqA
zMre9sgr*}#XgXqqrXxmZI%0&TBSvUCVuX$}FhbK4BXrz}37X%Sp!tmnn%|h9`Hcyh
z-<Y8JjR}_Dpy`4Unl2cj>4FiOE*PQdf)Sc77@^}bjL`JK2umN(cwvIZ3llV6n4sel
zOwjmYg2m5iKG1GwSfg%~9yB2UDL0s*^*A#$KQlw?Yi4MD%?z!tnW6PHGqk>DhStl>
z(0ZAfiGhKE1LQe~xlGV{mkC<$GC}KICTP9O1g&40p!F*gw0>oR)~`&^`jrV<zcNAV
zS0-3}3LVd7g4U-@(E5}KTAwmO>rW<V{mBHaKbc_p2wIOaLF-W_Xg$gVtv8vV^(GUv
z-eiK-n@rGplL<OL%LJ_-nV|I}6SRJ0Iu9BN;9<xE?f(zsVdPrL8N$KGc7k;xOB6E)
z<9>!bP*_n9H~BVuqOaS+Tq=ou1qjNaXymSjK`{i|@(l_XpYF54vuumRrIJJh185zL
z2jO)v*iC{jV<9&%;Rav}NMer@$5;o$_y)WVW)c3NBzZ3}eAN{49t5}#G@JaI-La=k
z!uw0$hxk#l_zlGnYynDa%EZ3*4S#SFSQbs>)*=)yfKCT+BjR)b*xF^}#rG)T2w!T6
zzTOQXfwbTqq!nA}5qtbRMsnoc07;I!Lh$8ml1~S~<!w-~xe^XGtT`IwcQW%bNGrBr
zBlcK*j9?S4r$w;g^fqXVwF?njtg)5?uv3Z13_D$zery3q?8N~X0myiOm;fYsi#6T=
z0EMD65upg*n}oc?7j~c(A{61u&{kDqU;PWyk1Z65y&r*LDg#TW-^wixu+`Lzb0ML)
zEeBuj#UF|$mgvi=@p}NYlG+KqE`coiMP5mbwfNG7i-K|_JSgF!M3sT4hF}X%VlRZi
zNR@1li3m>u%hRzeQpHvpqWS`~lG>5{mDJb|`+#Q#^aKi*KyEA$KJ0_oi!d;Pm9vGI
zV5Qc9NXUT!N~{iq6D!t&R~Igdl33xQ=!q2}fgG%GQIH|n5-YLye_(_vKNB&bN@~>&
zcQ49feYhyd7ob43Cn8Yc1tfAg3NKthCc#SpxF|-T5;g=|pb~rQ2}Yo@y?_KN{@uzX
z2P$D-fCANyaG)ZJN~BhyZVJqNlt4wOMJoUh5;zUP7O2GD^@0(oOpuf22y6i-HBgE0
zg(erHE`ue*92TaV{M(r(FwEgE;Wy-a&9{&*hEJOJ2JaMxr@TH)9=t3(dw5EC%(&lj
zFJUa^j^-BPI?2_*Wy`#U^E2l<&Rk9{j%Q2^9P>EBSn4_W*pD&iuy-&TvwN^}u$^G*
zU_8L)!N$pYip7Doo7IPvmxYn#II}84BLf423mXFi3$F164>nHYbgaj!BeDf-w+$#W
z!r5pCK{mRxaT=$RV-P&ofszeV4dWgLHU<WJHcs7WglW*-+qy6}!T9<x2I@h2OtUb&
z1+V>JMj+e|@)legwE|*lWB$d!Lb_vMp#=8Qe2k!h+eW}Ks6o?*VGhh1c(~v=R2}6U
zE~XNUz#-Nggz;dH6;NOha{b7p&-{zQm5tLd84=^~!UXO&gor+Z8J_}cMu1(klNlq7
zhz@I*La;#-UD-H|6A{iqN-YH944NXrrgSkdFt9T)Fxati>P8|AgDQdh49172W|R>$
zrsX7SM+w};<Od0Czb4o-Q^}1X<Z6K_gJjRZ5+~RZainWUJ`Xm9WbG(H;7_`C=y{=F
z$48N@9VO@zNH2#_(zG|}`jL+^VG1Q(KT7C@kf9$r@?yx)j~x7NwrrfnC|8KUf(M=x
zk+Qiyf(?#5JMyy;N(y$Oz#Qbz@F3qDl;XjU0&|c<*UFiV(>NAU$RUD{K<FZl6JT<7
zV&gPMs`iOD12(Y16yU(dX&g?DGoYt`d%3W28e_k{h(O7YIBbW>%#)4NIFlS#pq)|7
z6hU^7zz!v3vd5^ViA?vpi0}tz0apqPLdgR@lo*7Z35+Q)2&HTaro<rRY@kJfK`5oY
zBSvWj3qqv)1Q*grYnsVo<Z8H5L@I_0A?ZfFn}ErHd~;x?gOiRa1?C_}xC;5^pfnUE
zF-j|#a|whlQfZ}#ku`}m172FGVw6_I8UZb>j4(<oVhunltt>H0D`E{nFRg4bn$5(U
zlv|LKS^-Whx?~3|Y?gpYlL8|k_aQJTVB}<C{Sse=(ryyr<vq{9!!Vbb&xF5|r;b~b
z^CCwjy9VncmdVV%j9(e%GR(!*JEwzqQ%G|dF=M{aTnOqc!`ctJsOL-}3KqBmv>_jO
zKNOEC*v5Q_y^S7Y%!jiIJdn2T@^d^>6J(s8K{zl#W9gy9ge$c20EY;SjhcXv!WE_f
zBV1t;$b-J9reF)#L{k$Z19M}GWFt#U%d`};L_-VEoxLU|X^BQg$*D;uMyYA$hGs?>
z;mS3cHsMOx8=&d45W>@EDX?Q*KvUjuHmrDnhbTfBT8JVf^y3k1n0{<wnPgy)Y+{~h
znP`$?mTa7ulw@pSkZNLXm||>co@{Dll$2<mW}cXg8I~N2hzLt_{L^PxrhDL?#^wRg
zQHnuC9Hj`)$e?ruOZ3p;3Q$oE4@gALMhi%U1P&vxg{7rovRR5rnuSGbs%46qQA(PD
zQJSHJMVd)cQnF=YYKoz$S)#eASt3TdWP;3yuRH%APkzV0M92^`ED8DnlqdrUCrbGI
z1xjXzH3pEv5|#}x!V)F{3QHIprXO2CnwS`-n1HTwH!({yGB8d|OtDBYH8DuDFfuVt
zF)%SOOER}GO-@R~oYQ>{NtE~l5`Ut^GN%h`gJBH-&>?>T=#vjvR<6OC$sj}EY?LY&
z5tMLw^q_=GpiB!P*W1{_li2k^*iWCOBv}%9`YcK?fa)NB!gUa$d_yiO;&I$G054b2
zLX;R&um!1!g_*H|iII_UQlfE6YO=YBiJ?W3fkm=ea-yM;nNdnovRRUmrJ*@SUgv-;
z-oPKIB-ic4cmou!euTpnd$ECfHZ&ro!i!q8a3#hRY~gC02)ZKO$i&bz(I_#+JTWoF
z*wV-Vbgg-+xoJv@si9d~vazM5F-Ev@vO}`|8F4&iD9PbUj5k2DkG|*y0Oq0&?8PWb
z%0~)TSTTtatS|}WvJ}M-Y@wQzVv>|>YHDF<nre|^W|3r(m|~usl9Xy@Y?Nr3mYi&6
zY+;gUX@n(IFAx)|q|QDP5fq?O)dxLLi7r)P1vYAB4=+5?0~IcTQmP^wf-O)fELHI)
zRQ#1av85`q4>TDV80c{NW?-`ydaPk)1st=_ureAY)(~pZVhtgIG7*n#2)0;DPD(UN
zGcZU>F*GqtHZd?sOfxhxN=vjbPBAhvPct+%H8BLWKFl%BX=RQ9X9WVQW$|YPEa$Ys
z2Q_i}LbI^hoA6n!aC4xA2+q)g1qz|FS{b=mx)}l)HnFqU@a$*z;OXWGXWPu9%>ABS
zg!?G>TDBnWI&Ob%1;#sU%1kG@J~45#er1}?mC0DcpU>35T)}yX<sEN3ZwS|PMlpU~
zCQD9xE><pc&INpuoC1uiSoZL~<1A+X%5{n<jjxX9J^LX>Pd;ycE53~^{k*&Q=Q2Fu
zxW}u+x{a-oVH3w@zI$xX`7g0*GsiJ&GyPzRU{PiM#Jrz*5^FnaFh?VYe{v3+1nW}<
z2Gpx5;d89I`Uocc&_hrnV`?Wx2XZcAYBpl!#5&)LGP?^qG!kq{6`B^9dC1O+habZV
z){?Kw%86y>6*1Ea8`A-+jzjYWqBuj$IKy)bSVt`C9h=aukuKbP)IK;<C?V&-yaYBp
z3iZ}fgd3282-YQKij-vKG(^leAR>zCBI?zY$pr;Di3N$t*?Jj_ECk&HJ-8U`9)E(K
zh2<Tva&PqLf^{JE;Y~|j)cJdci$rOGMGMFlh8^hshS|cXgeC*irpvS!EnwkoFC>@2
zrcW5o66Gf3gvzj+C@si=#qgLYEy!~gj3UHofrbY-unw^*GO(a~9^Mc_q#1asIzmj2
zK=wP+9yC|MLmes6qQ*MYPS&RkT#%tobyiMaY>60A@PPcmbOH5>VMKaDj==o9;*z4$
z<dXa%kRFEP=>CQV45;*gF=75@xW=E0n%EIxgK&y2(inOV`)UROh#w#%!JGxP6XZ6g
z#i*8HD@Kqr;(UV2VWAE-eHL0I!U`FX&tZ{|TC7b+4PV4OAgIp`OSifx_x&(UMGs$?
z(MSOX8>?WNM4SaMtH9ovNSq!NulJ#b6b_HTofW{L%peYlKNJ!zO=Al{)c!KlLDcxi
zT6V*CMlo$=U|`Teu@MgkJvN~U2^5<!COox*0*>JzF*=ZgjZs32l`|NBKGcQIK%GH1
z980vr^C!qTOvh2<1Z&VB<*W^;(T-I)`aD!FT3Up8P8X>Vf=7A|nh&rkM)g4^T6(~y
zBOdNhu%|PKu>@ugSVtN$I$$XgtRodQ&0&-xD7{;z6rwzVk^_^_if5R6k%ATMkVHZb
zfoTM*PC!i$7|uo=F<}ZJtQ?vRz^2C#Rt`<EVC8P&tem=tln-+Z(+W*iPV8%kFcu1-
zrdJ$A4$3}0CMP2GAbZS%I6bho4cK>nMCw5f5i5OGPVDP?kbI6bE$)n#u3$+NR6aq?
zMQipkRiY(zY+6v;_2p=mz!DTvN(5PgTxpgOrv*8POHqRhUaBH{1-<AgMk_k8xeQu#
z7NL0?n^IJ77ozzATR@@SM#R)WlopuP;8aqNR(fKy1=c)fszc3RSi=a`-zX?xszx&#
zW-)Ta!OdPnl-p67pDhdwgbE*&B5gTZ9ANV+YDwO~fNlj=KO-vlZeC^&1|9}22F7~6
z)x0r0EL`h3qc~XEj<VLXSTbE<&_dMpO@YlxghzdFjQSxD*g(fFkjFOB#xaO61UA5d
zeCLWuQksEDQnHz`iKU^rS+a$3TB4C@s<B~`k-530p+%a7nUT3kVk+j;9H#_$)MwXE
zLwv)^_(y%PP0hiI6lAYfAqNF$R5_fOK!xUfP!ktcXzHS@z()#Hm|BcLg-L*%17o8Y
zf-O*!EK<!)Es|1<jEs`Z%?(l#lg-Rc43aGjQp}T6jm=HcER2#3(#$O}#_E|F!GXH&
z`g!UGD$M0LeW6*{oJe>m4HgZsHC1S#g_vuB1qz{|G=`6eyfOk<O-{`Tgr}7e!H7J6
z2W#HK6D>j+&S=1<9~L#pg@9R_k(pttMUt^;vV}=vvbkk)lA&d)MY2h%X_}dNvWbO(
zWwJ@4K_cd~@;XR*y+0pMdL^*d0draz;WKO=08P%v6Ane}6I2+Xh){+WiU<khOas%8
zEfkHCP0Uh~jFJsf49t>~l1-8fjV-}bplQYy$tFf=$rc9YW@$#Ln4x%$7NLmW1DZ`X
z&2f^P;T*=C$!M2v#xXF!6B%|xAnhG2iiiqBh;D2lm}Fv{nw(-_l9-a5Vrgt)oRpSq
zWSMGanwDl{Vrgk=ZjxqcXq;x2f>Ca=?<6J!P4Ha@OY}Msi1R_UP%JUE5Z3w()=C03
z&ya!<rWPX@VG^LE2xAkhg)CA`k}Xn<(hSWL4a^J;3=PuEKzH$(7+RW|8JQ&}8>OU~
z8z-5WVuU8M5hOHkZ^x6XN#3xIqk)1P6rezjAsndK%LkNJ9XwDGYS97}A%R@TpcsNJ
ziKZBsTbi3&m>Z;;TNtF7SXw5UTc)KNBqm!L7+EH!rllGsB^er|nqbb71yCNSSZ2xK
zRWeRrfC4p|aG+w(=_o@C@IXbVMGI7f1SqA#S{*2cU<*{!#Kbi4>ck`iV{-!wOVebd
zBuf+1v{VBF10%~6V<RIYQ)4qDLyVNlkxF@>VrzuLT#nNhpd}+w<S!Y4#Tr`vhgnNh
zsK%qTim?T&p=F{$N?NjsrMbCfqIsgJQCf0}xj~wFl0k}*g|S6as<~OJNs46>X0RTH
z1S|e#DCtKl!2E|Ctf<}qEo6)&W+5Z26a*OsV?zgb&;k`EixH?W2^>aX3(=I6l;l(+
zQ?oRa#6&amL?c5Zlccm1^CT1VRO4hzOH*Ux6jQTQEJZ5QbRt3&|Jnwu6%+wKfbxC>
z;k=KdEJW^z!}C5uEn0vgBv6VXWJ9n8sfC51X_BdtiGe|?sX>~NQIe&3l7(feL7IiB
zahgf8QL<@Lijjc{W(Sm`frua_xt1cr7n-2CEgy!(47}Pr-+2!6OyG&-(PS*<{>pub
zyN}VH;W~E|?{98(t}k2%xO%uE7?*RYaDL?6%h|~p%BjThj$=1RJ4XnI0{dI`oeYcF
z+t`EH<=9>^a<gsYjc03O^J9}{eZjhwwTY>m)sIz*<r&K+mO2(M7BS{W%<Gt|ncbO%
zd5<&QXIjnV%*4-loBu5TO#W1UL%zR!C;6uFCG$?^(`R5{FlNqVQYp?zG*q!LN-{T0
zNj5gJOfxe!Gc!s~F*mnJOf@kxGciw1F-}Y|H!(IbG&E*bLg+D1PBu14G*2>2O*J%3
zHL)-<NJ~jGN;OGMPD)EkNi{Y$2er!*jhGb>dMr!~j4dq_6O#>+EK>~(EfNzAOwtU~
zjFL?al8h4#O^q!RO$|)a(wHR>dd!njlgusBl1)s_%u_8>O_P%hOp{a1ER#%AO-#(p
z(~Qk5(+rG~%$a$R^dzPkq!_1I8YHEfm{@{V4VxJ!rI{KUB_$dfq*$0F8=DxWrKK1!
zb0O(TOG!>OPfRv6PE9hhOind2NH$J0FicHOF-|r#GBr0cF-T4_OG{(giO^$_oRn&A
zY-XBhVqs!tY-(a+k(_8`keF;{m}Y67W?^BLXl7w)nP$Q;2}w^<QksE<d7`DMrJ=b+
zvbnioN}^?|X=<Wnig9w9L1K!LnYmetg(bskWIe`~=4R#wmd1%m$(BYbX=X`D#zrP-
z#%Za>Mn)-Vspg4kmX;PNOwmYs%uG@YOf8JkObiXo%?yo=lM+o$5=|`(Ees4(O)U%z
zQcO*aOj1pl9wF&TGB!%Kv@|j@vNTLKN;6J0Nis>XG)qk~HZwOeG&M0ZPO~&gv`k{`
zLegWIWN2cRW}K8{nw(;8WRPf)W@2EPmTH=sW@ct$VF4N%N=`GdWVnv3$IKwr%plFs
zz}(Q(DA_XA(!{{T(%jh4Fxen6&A>D<&BDUc%rJ>54@r+jQeslFiD9C#c~VNMk%^J1
zL87IRg^6jBahge@ak6EKX>wYUp(WECBj!v-Xu7rlIo>kW%+S&>(a0nv$s#Q&%_7m%
zz|hFpFwMfi%-F)x*u=<E8rd3)6a#Y;6C?9PLo*X&0~1p-voy0b1JDxxM3W@L6idUz
zlr*zcrWh1GiAiRO7HO$wX{lyrsb)s0i55ndMn-1FCZ<W2riMo5#>U1*MvMu_dW=#G
zO-&M0(@ay%lgv^~OpPp)42>;}3{xzPEmKkwO;U_3Qxi>?tdR8(R}3<iA?YzsGE1^B
zPBb&OG&e9vPBk%2F*PtYOiVMgG%z<ZO*KfgFf&XxPh_e<){~fQU}|A*nv!e;N(P3h
zrY5PWX30rusi`JLrlzSDNhxWjiDrz3$a+jHjg8Y1O-;;_Q;iJG(m*X=1JJT_ixi_|
z1G8jPQ-c&sgA^tsBt2$nDJkYA=4r_WhDIsICP|=BHa0UgH#ajgF-tWyPPIt2Of*el
z)I`=}k(iPSDvd0RlTA`BlT8!N5|c~~jLeLT4Gq&$Qb2{4k)=7qRitEKnr5D8YG9m}
zWRYfJZf<65o@AbEU}0>MXp(AVVv(9`mTG8eVUgmAti{aII5{!J#K6Q96b@#|Nht<t
zrk0jzMwXUICgx^ImTBgerisGHT8vE$jSP~LladoHEeui<Q&W-+(vnk5%q`4QO^g#w
z%*-sz63r8xk+hhkB%4{9fcmYLDM?0&MyckhX{LsTpk;K)h9=2IiAILz1|~^J#jb@(
zVyaoHnMInBacZh*N^+WEijiq*nx#c*iiu^Ksd<XAMXE_sqA8;wQka>TnWq>grI;HS
zf|??RmX;QVDQ3nd7AeL_$%bhbrfEsZY38P>jGf4O3{8zv5)G3LEfY;mO-zl<Q`3wr
zlP%4SQ<KaL42=!a5))Gm4HB8Wkn|Xvn<XVD8>NB@HM0~0Gtd?z6Eh<N%QVxZ6i|34
znxvSfB{9_?>oGL3Fg7(vHb^$LFi$hGNH#JuOind1Ni(%HGEGV{F)%bXOEfZKc!Q+J
zDAm}+Bsn$7%+TD}*wDb-)XXH&JlVhulq?J^43f<)QWKMnQy6C>1+`I%iA7?Hfw5Ui
z3a9{1wn$1dGy_#`Mi!<ih6YJVM#;&B=1G~z)+DBwnVK0TnJ1f?C#NQx8YQMCnp#>U
zCnqLam>U@yB%7Ee86=r9K18<0EZM-+JlVn=RJ0|gS{No9nI$EqS(+s!TN<Vrq#Bu|
z8K$PBDI;5BYM5q_lx%F7Vq}(VV3}lY1`33fL<7U5q|_wC#6(k*G!qMR#`{Rt7$zAd
znVA@+SSFho8<`jw8W@`;nWdViS(+NAq!?M486=ySrkGg<B3WaYXlZ0*nqpvSX>M+0
zYHn$fY;0hWl#*g<YM7X4WMO1sZeU@UlFWDs*&4Hy)HLH1i)2%yloT@)6JsM|i)3@t
zq!hC>Q)5FT%M>F6P)e#rw#FzW+05KH#VE<xJk8SFBH7H)*wQT7(kwaEJjL7~Dbdo*
zFgYcOsSU{*gTxe2`EQhJU}RuymI@jcw=^;{wlGLCOH4~LH8e7`NHZ}>W=68cAkoAy
z(J0j-B`qn@(mXLOG1<u2GRZh8HOV+7(a_S;+$6=s+{lm#IRp&MK|>lQrp5-QY39b}
z7NA~wikXQ;l9`#INvefevT16HNs<Y}dW1dZX=xToiHSx=hL+~3DJCg~hK81j#;K|1
z78XVZrYUI#iOH!c7KX-*jtK9Vr=_MCq?s5cS%Q+UMY35^nz@msd8&D$S(>GZxv^n#
zqG__3L2@y&H7Tjasi~k*L5mdQ<P>vD<3#fmQ=>#<BlEPhw3M_IP$$gToZ&2r9<$_B
z!{o%&)FeaWRAY0~R5JrZ(?mlHGvj0<Q&S^j(`3WsRC7iSWId)yrl!UQX-TFg$w_9(
zCPro^1}Q0~DJI6C_DE`yQEH;Osf7{KY-BwKhNc#&rluwaiHRm=sV0erX{M&hNk)d2
z$p)5Y=9ZSp#^xy|CJadF(>&G4IMp!87&KR8nrvv6YHnbfWMY_>nrvxlX=Z6+lxCW0
zl$>HIgcNEiNoHxrmgcF6mL?`9i75t_Mu{n=X{Lz=$%aXWiKfYxNd`uih6bfbE=w^<
zv@kO_w=_31G&i+029FS=SeTj_nwgs$8JZa;8yO}Vo0>9SMADO#YGIUSY-o~dWMGnF
zZfas~VxD4XY?=nz9$}P{XknIYW@>Df!qkrBv?L2dlN1Asq{I{pbBknS)1(wbW23Yb
z10&NE3sZw+L*o=fQ^Uj*q-x4M$=t#?%@ou+Gqp%bNi;S!OinXON=Y^`H%T$GOtVNf
zH!?6WNM>A&<g~;@GgHeX!=&Uy!z3dU%fw^@a|;7YGmsxrla0+%ElrY5Q&JO|!jPP1
znUrjtWMO1!1{xJjHZx64F-<Z^N=`GeG)hb~O9E|8Fix^CmO|E&n3$H9WSWv}ZkU#A
zYyzrpEX|V>lT4G+QcVq0EsV{R6H`qrEs<PiX<=!Yl4_a^YL-}}85<azTP7M98iHEo
zX=X-A#wG?JEy)a1(exOaS(urmS(;cHTO_5KrX;2$rlq7ACmR}=nu8i07D<WbOwGu8
z%uJ0fQjAhe63q=P&C`-B%@WNFOjC^0KyEcLO-@cqva~R@U_!FT!o)DeG9}gA%-ql-
z#l+Y=Eip00AjQbU#5~E+JlP^8#U$C#%*euo8M(icW|5q1nw(^Ao@$<!WRYZOY-FC4
zWRPlVnPO?4YGRUVkZ53PW@*9n1>rUeOUvX`3sdt%69dC!%M?@a7Mrvr12eNEOG8sb
z)08BmB+HbvB&N>@J?1Iq7KX-_$)=`e#%bo3CI)Hd#>t=x-ORw$(7@QlDA~x+(j+yN
z={-V^MOsR7iba}nnyERcy0J(yFa(vLmMNeeQYk5kX~t%07M4aSOzem#wMa8hwKOs|
zurM_@F*Z#zHvok|T8e>znT18FF=)AdBB%>vB7>qO$=o!>&@|21!r0W@%)}Vf=uR@T
zOf@w~N;Wq)HBCz~O*AtSL3Wv;Wg@7LWSDH3YG9I_W}IqbYLS*~2x>wn85o<HC7PyL
znwm3CMADOLU}TbNlwxUUW}cd4Xkcudl#-mBW{_%{oC@l?Ct9Q$7$qf|Ff}3RNik2e
zNHsP$PENEiFiJ85O*5rh7+WT#7#mm^CYvQ2o2MlurW!FKr-BsX#<3Zzk?k=tNli61
zG&V^~wM;UwOf$1ENK8q#NHsDuv@}gMPO>yeN=!^mVah-Xw&WDkR8Wh>+&Iz5GAT7N
zCC%K_(#+h{I59QFJT)!J)WX2f!ZOtgbpF2<Lly)7LVhQ{$9ye(s=UW|(|I{~R`Pgp
zzvk}Y*5x|KmCq%>xsfx7<1@z;4pa7P?B(ndY&+SaSbww5VYOws$5PLtz<iK7iJ6&c
z36m@1GsbpC4Th5pS*Ww1G0iG$nG8&vk&r%*sfA&pNotCvMXG_ZIjC`DW@eINWRh%Z
zZf2QkU}2V=m~3Wjn3TlvRV6pYR6)fs)xyvq%_7w-*)+*8H8IuLBrPe)EG5+t)T2x_
zOp0k%MmC<<f{n==V!VM-DySWtm}Z)0WN4O{Xq1)=>W-M3CK(%8q@<<BG%Fz+pJri}
zlAK~>XkcVyWNwmTo@i)pXr5-7XquRkmSkpbZfalx%6cZuED+;C)vCF<L6UhAXbi#9
zIML9|&?M2=)W9$;$<#8%B&Jyr*?8j=6HuGXBqh<r(j*nM_0S?EG1bD{2sCnGU}BVH
zY-(&`VPMRx12I0?(#R++$so}n(ZI~W+}zS6**MuaDG5}685)@y7{oLyAR7;=eUmJW
zl2Z&VObpG<lZ_3GlS~aQOiWD@jVui<lMPc%4N}bwQ#eW?#wQvYo0}P#85<Z|q$MUM
zCZ?vP8K;<m=3z`sKowd{vpll#Mrj6SsYynO2B5}#in*DwS(2$mYMN218K?<hXkut!
zl#*(glERn_G2YbBz%(Vv)F{!^$lS!-*d#64(9+V#)G{?G*}~i`#Wbc_4%zsmRMWI%
zlVoF~WDBFjWJ?p%#6)Au)TES@WK)aOWFyNY<CG*bqofqha}eV#l1<Fa6HU!cQw>s$
zl8h{kQ_~C$6BCon6AcW_k`qm0nq`rVPq8#MHZ?a&OiM{hG&V{$G%zzXGBGttF-bBs
zw@5QKHMU3s6(SZ)-yy~ur<#H4Nb^MVRP$sbgEY`^l(~^vYD#iaVqzjF>}8ORPc^Ur
z4cC|%S(q9dBqv)~TACRfnkS|uCxII2CP}77DQU@ui6&e<5aUe^O_D53l9CLQ%@U2$
z64MM#4Gj_#jZITPOE3&fOk<j*k&U+?vd_U)05RUcBnebDBpZUdw}vUn=7}k(X`rDU
zOCvK2qeR1)W+`Oj%}f(54N@%(EG#Wd%#)H0Q&J7h%#AH9%`H;Q%?uJjopext%8dIk
z#P~EzP%&r-D)*B?6_SB*ih)^5Qj#Hfaw*X`rdbl%_@qPwqa;gXL$fqvGtda1g(1ih
zrWS^&X%@+esb*;@$tEUAsYXnV5aU5x#}kbc4U-d-EK?HAO_Guf3{uR^6OGJ_4O7k1
zOk<iQP>eTBOH4~PPD-{gu}m~FPX-mz24*R#=4pw><|amFpq8dVvWW%bRfzGXMk$~+
zmZ4>$g=un{sim2PkwL1NiK)3oiczAWSz=7HII{66sV1prpw6qMnL%QTagsrbiFsnG
zsfDFsQlgPjQksROX{xD(VG`R%i17wymIi6bsTPLDrk2S@X=y1IMrJ04Mi!QqhH0q=
zNro}aV#vlD85<-Tq@@@dnj0pWB_~@NBv~XG8>fIOXG1g42vL%8vYCOU3CBi=@rGum
z7Kup)sj0~pM#h#YmY_y(N}{o)rJ-eFYEp_(OtUDm@fJi@XUvKa<IRjyQ&KHbQd3M*
zEzL{~Q%zD0%~KK$5<xvt19L;;m}U`V<Bd{HlarH8EI{L=X-1YwhG_;ymX?MFpvE+4
z_|4eR!Z0z((unyN#CStPb8~Y815--_le8owvt(lnGed(UqeNq4Lkmk2OQV=(VPxZz
z%o9zMlM_vh%nc2aER#%443pB#5<wxKW@2GxX_5-++ax9>Gwy{LpK6+F0xFXdjT24N
zjKH}j%_1$;#L~bb(K6A{D5hBm*?0qsGz(Cl7&J(hnwo5EnrfbEU~HLcW^9?7XkiMP
zl`^t0Ff$Q84KW_nHZ?LZNlr2`2K84>3{ycZxl{{NLrWu5W8<WlW<g}*Ez*c<vT#6+
zPck+&Gc_?XG%!fBOfxmGG&fE(vrJ4$wlpySwWcg%ngx)JH#0XjOEEJ|HcB*3v@o$u
zvP`x}PBcrgOtCOcOf*PIHZU+ZN;WYxXWj;JeNw7%iXo^5GP1NZu{29cOiVUTOEOP1
zH#amlF*7iaY34^Z-ZafDCE3!#BrV0v(%jrQ#oQ>(z%b1?Da9fs(abU}DbX;|%sACJ
ziCGe2ypgdfsH`(fvor&h#K{(kriliY#;KOZmS$#YiAgcde8|QdnV2P+r<fR}q?j9<
z7#o|ICt4&KBpD_dT7a@~GN?71YHDs|!KDW=-oP}?GzmO^ZE0p`nv`mhYLH}R3@SFv
zlZ}i_Q)8NWk&RCUos42&Y?hXk0%|B3C7UHBTAG43PbV3sm>Q%dn;C*;aZ?y?LX1yJ
z1PL0Lm?ozhnHw9WrJ5wAn5P+-8G(iZEfbAmnt70oH#JQ$H?aT>c_bN{n<SbT8ygu|
zS{j<98Kk9IfHtKX8=G2KCYy6aLX1yK0d->1ObyH}ObrZ@4O5eo%t1plre>xorY44o
zG0oh_#v3Oa7+aX9nI~I-`mKgWrlv+_CP`*SmWGKYW(FpymWF1gW+o=)j3*$*n<piv
zC7W0zr<zzKnx!Qt8XK6Trhuj&jFM9<ObpConz@jTw;*z)ovRLFe42r!kx^2znMq=b
znORzLYN{z{NW#$EFeNS3%rr4IrkNAPcp^vqxbq;!Cz+ZUnOm9|8JJp{r==JrB^nqe
zS|%GNStg~Knwf)A4hORFDaNTr29}0K;53q$VxF3moS2rHW@c(?V4j+oVq~0ZmSk>b
zY{9V$V!TBXXr)-HxoK*urKL$~qEU)vifLksk%@(wnORzrQA{&CvhfB6W+}<Z=7}a|
z7M2E<iAI)Ysg|G-1S9igGmAvyWDCQTG-LCWG%jcx)6_KCG|kM?(mW~Az$7`*(ioJh
z5=~Q0l1!6LEYl2Qn%R(zH%T%{GX|9*hDpY$$p)6Dsc9BTMy5s<CaI>zsY#X=<|&{_
zaTAVZ5Z4=~np>ErrKP1AfhSJV(vlLBlTAVA(j=uMo12)&G_xWbZ)}-nXkw9SnVMo?
zWME;LoNAJ4YG@8>)S7_~2Qmk>Qc}&0jM!g8j5o3X4J4(QC8rprS|ovHQ_{@S3{#WS
z5=|^D(ku*Pnpu#IPqZ{oNlh|JGB8OrwM??KG%!p`F*Y``Fix^GN=Y#`PBS%4O-@QN
zWsim!pK5AiVxE>}nPO;ZYMPXql$M%omX>I4nUZRpW}cX09@ET>Y`mF8l8LFIsYP0v
zp@o^bNm`mgvbm9|Ns@U=Qlh10YLcayxml92QKE1@#P}o&Q&7jpFgeLGG1<u6&^+1D
z(7?>hz|7pzD8)3{ET)+W+4wXQla%Dtlw>nAgOrqHBNNj^Q%iFTQ2lEG@_&+rnURTU
znx!Gv28i(~iD{sgie*wFc;!q=iiuIOsbQ+2k+GS%L8_TyOfw_0@n(spCg36NG($tv
zWYDmcMVdiUYD%h+v3X*0N}{PnT2fMCvH@2X#Q4ONlteR7S#N2aW^Qa?Y-yGT8oNwQ
zGcmVJHZ(GiX=Xq+J`t4uOcIk56VpsVRZxm~ikYQFig~Jud6KDFie;LyVOm<Ec_Ifi
zTN$LKCMFuEB%7rs8d+GFn<twXn5LSg7@Mb=8K$P0ro}YXBO6cbI%`e|i0jRhEKNW&
zT;^t=_1LLt=EkY!hN%`t$tj6R#)hfpF->*I#uK}OlW`rycvJIK(A1fMVVbF#rJ-4x
zVNx2X5pH5+l9*(WXr2<&REumpu}d2nuR)AA0u8|?nWq?~7#Sp4BpaJqT7YKqEet?Y
zVQGfRF-<kd#uK~lk9{Y^cuNBl15-ouR8ynmG|=>$IVh%#%*~RF%u_5=%+g|-s*#N+
zb|D<I5ybdp^Hk8Vv|&<WN^+8^38)B3PD(a4Gd41@G%_?X;AMWvz{O|_y8kbj`#0Be
z&H@fCwkJ#z8Esj$Sdmu$qxR)TdEgLe3TVzjUpU3cCe6s!h;nHhe8oO!bq;LZ5Mu8Y
z+8Q620<<M5*q5WBnu2Xj3S|eF>}Gk1Z{4H;zE!B02bd5M5TM0q+2~;kIb0-<;96eP
z3liYVd=NoLWSGL-35pqPVM=VxjJX(X8F-x!fl#H^Vl-rLXtLEaI)W4JC_!EbGzB*2
z5?+1=-**n)ssr8Qhq@abDP6+kG14VW0#sta*l?q9B}-!4qZrAO%bS>FN&5aLn9Fhc
zf==fZIW=bz-edtkGzNSuXJu|;Nl|8nE^NOaJkk)#&>{^X0a`PNt{+=5LTn2hBfi*Q
zL*k2(5l`VvV5<t|Qepfa0Bu#tARLPDM2eFBF+vfc3@sE963B@LrXO1<65G+h48>?#
zgd%<qfUfsUC+2!jSStV&3Q#sE+ryI~X>}S%E4HvBwiksFcEb6@gdOQ62GpzI!~<o6
z+^*Ra(42<eD!|s#!nTGOwT*-nf-uDxNf0Ih3VawF)f8-jNm)y4*I!9Inc0HWmKMy}
zxV->sX{DlvDP~Ixd#Ml)-&YKZ9(b4{6r+VHLISyPL^TClm=fC$$4H=DkZXGhges{m
zEn>U@3fC0E;flSSz<FvptSUtdS7J=T7Oun&KwySz7C7TmIb4bH259|%GBFJ>Xt{x0
zhUmhJOO)ga7sa?#5!Q6ZZ3wndC3f5eBUCx^AfZa_4d?`eLX($Wih+m0nvv-gYXV~t
z-!2vf-a;N3uH&3JY|A*r8LaWNm79#4D~YMfU`ZEL6hYZ&u>cjtj0KnknpSLKPwWg0
zM%W9V28aF0v)}NPzviS@WjNdpDjo_bC?253QV@cms}Yb)!4{ar4*O#SCRZIeFn4oY
z#1oig9MB7OFE~5G*r;dkfQpAa!o>sj5*+0SC30&s6hp9uDzVcM7@^9s3lggM2V+Q0
zqC^CRCQp-1a}nXK)!2=K>@FrZI3c>Rg(I<3YM9{|2?<A@op@5GIjLK#@p&H9Ys#18
zjOH-rOh?<Ao<wjs3)bs_haidd6-+<2Fti|Y<_#kZxgk{*{v1wn-xJ|8P*D%7wqPF6
zENm_(;zSQvpBoxpXiX(VG{M4y;E5i8@zj39TdFCrxq@(EiaplgjXAVB3Kpwq@j`?l
zun0pw=Y!ZK6Br4YgP8iB<h_<e_(HQOytz!0Gn2!ZvlOi?C_pL;5a|@TtAuux7c_|@
zt3V4@qKv^7u*5DF!8rPZc^jm36<CO;bhR+XH)UXm?En>6wnp|WT5y0W|59SoE3EAR
zDrI17l*1?B0SiyXM72s$4`ad>ti&#oVc5XH^4c+IkLsDq{JhNKj7(-pVuBTa<!^4L
zkCr?T-oqIbpg=7lJ5XVVm7x^^us|oyImm`!3shp424NHeTzZf|#oH1fqY!|34<%5M
zeWBUp+FUHj8OveJnTb{iq#zXn*ozbRxot?Pl%!G>ZUDBxBz7SbMqo1DBqA`)&GBY@
z%;9JPK>%u56%y03!WJdTiNz(9ButooY{5wEiY$zb&UgY6jClJ_1X@<aW^|YbG<g{_
z7`Pdf82HxlhH?MqTF)8IA<lM;L5WqA`5sdnQyT|QlT!;5x#0{uVhSm}!lHwy0sy8T
zTR0~XxtJHDo?^TT4(F3skKw7O2!u0cJ%znMg?T`eEs;@fcsCg-@m*6$3oH3!BFHym
zk(<&`FGIkV-oR^wiP+7HQ9N=LK+@aIb$HSn)y71S14FaPxP^s?Av)N(RiNP&7#p>C
zgo$D_hTsxNx9WhjVhcfHHxFQhAUEU;pObh)kn|xsTyEEF@@Qd}<c#Mq=FCQ`qtlS<
zXjo8#f(_0_oDPmiif~EvLJuwhy5$&FlOs&P7Kp@dk-!K<rbZ%?p}7UAwKM@Q&}oL>
zw}k<{r3#rI%s`GX?4$a~XYL~646YVE&fpTDHXba_s*nxA7HyPG4ic!VEb&Dek;|}9
zd;mI8v7Yd-AH3%T$^r1)1R1zPgd|)7JtW~0NM#4~=zeTLNbL3+jFivz5t8!pSNNn3
z`{DCEXpp~-hzbpB=0UBB5a9?{j2@0~3FJ}))f8;uN$h?ijPT^x2no-N_o!N-5#bHZ
zCXeP?B1&f1T{NI{31=h9RYaJ=CDFqaE&<Brur@2g1Z?3+>;@`~hCj0+5#dRoWG1%Z
zkMII$II4#5a1{1#7~1#?Qh>rrM2rB1Nq_<r#zr#+Tc{GdZw#ZE&-{ysP$hXdim2cK
zW&dg-vOm@W5OtvmB4pu;(L)w4fn1EDnu0B0iQO@Wk^LF>5)-hbF0H^`oT7R|v&pZy
z3VS_|y5Jg?VL@pP#zv{&5Wx!1=;*-;m%wQVwooOup4VbvkzKadcb6M<l#dS*rg$fz
z2`mCKB65rmxv8Sb#dM6pj8TY@bs=jqt0K!omIaI#S)!Oc`48|{@|!UB@qOdl##hYf
z&u7H@op%#&F0Tg9W1e|Dkvvk|x4EZs2Xgaro#blea^Yg&+{0PV>A>-iV;@HghdZMX
z2N(NU_6aPq?7>Vt>|$&;+2*jtvnerkvOZ&RVqs%G#W0Jxk2#2$hv^vho+IN0h6?O5
zv=y~s<J1mE+_C~GFkz>}>qEIP8g&H|(@Q%xPQy?n&FMwZb)>KamjV~jM=*<$GeLbO
zrbmu!oQBaPYlpZAY{ESzD>hC;lxxahWi7%5FcHLsWFWl^`$+RSJi~%CGrhNG<1|DL
zHn=|#_QJvf$>*>cKBgNaT8^BEnLaZxFox4MRg6f}NsANsaigFF!7S*?#%YLri6(Ig
z0_|$5eg`&AL!?VG;cF}q84}SSLrB8MxfvBP(j_eQBhn>I1d$(fVdHiT=P|M*Of_Ep
zh+AbC1#H<k4N)#EBgzCwFN)!w3md0lB65*Hly3O!A1E#uj#;yDY9kj*`K3uYsfZwi
zaA9Q{%DLf8Gf7JXsCP#lB2_cgb0AkUEhSMitilFsUQMcIWSiHLsu{Z47Hsnr(ln#Q
z6w^WyHKP=RD@oLh5@6d&)r=fq6G+qyYqEj^Y>p+k%3?%hC|HvXQ$#-n+0nY7%pJ)=
zqE20S>0k@W+_5C<FGws($t=zXIi3|%;fIrK0<3t^wgHz7q<R2SHn2H^iw06Pqa-+W
zGR;6vcW$6EI-2A#K(tyc$aDm9Qcxw=45VbNK&}}`*<XrGGmvwHDX8j9B{@LRI@99h
zB~94Opa8krbCN+BgAY`1C6nxjc$C!1ORgcv$<vu!Ly(gf57~wwr7uph4M9p^9ON2;
zoWcw-dI_+$Iikpgi6C0*pm=3k0?O?uEi#xwd|DA@E>o`)8>b=CrHzPg5MBe23SFid
zpmLw|&IYX1Wm<sIBqPcXkYbmq6BGj|O){c%qc*E1yRmT^rXsiNh%y8%k2B3CFC<`@
zoT-(UzlVXFk&}VXgy%kYFP8<!C-%8)J}h6D*D*yga`N|#n0`-_Z;Jr-p(T_lBv>v2
zjV#02@IgUP4uPfOcz6eys7X`QEh>}@EwM1L2(Fv><y8;r(9+X1Jfrpauj{~^LV|l8
zdCU<d7&My#TKLh&Kp}H-C}VXvM*WdXa72j06{8Q<!6i_qK#)zLcaRbot-~0sBf<-s
zO-?O*M6AWZY80&WBR4c*`mu#0vBzOzj3qO(K*l}sCr&eb^PAZ2lEE7QnoS`syyz(t
zbK@iS1wDvdjhfeCjRlOn4wpb4Mn*LSTZj^S0x0HWk`5$9AJ*Z??gUnw5IdQK>J7~%
z-xeOSi%{&>NWse)^b8M|Kq-Kb4Z#+w#E#D6C_?duDRqiaWFKfY1-5Xb2Ph<=<{&R?
zz?#}oZqy<-&!ZTEEkKDqNfsmHbCeR3O!2R3wlF8I5Jm9?s0`&Iw+w}~o5&4Mn0{<Q
zN$jb)7(vOHOhix;SkFjoP{KR_N}8NRBu%WPA4)p`5tMMX=y@G3fn0>57=kT4i9IG5
zBRo0JLBjLyG<+o}$w`y2FEpF{S~$=H6-$!|d)WswAGKbBt3?k~xCBZ8ifjnBKqa;S
z#WB5!KS=SPaez6!N!SaZWXg^nqC}UVF!NDE6kgh*hbUYExeW^M1b_^|7NW!+H;s`@
znZDB`nG*H|sQtu7MEeP=Nw^L;fGZ{{R8dXA7Ocb`vyBm~Ts@Fr#k<y&K>LZ<(iGJj
zprw)}^zLtSai}tQGOS=^bY>4>S73X?wu8f)TZ!`(TMN%Oj(WBLHW@BC))%Z>SQ}Y=
zS*5r?f$s3*+Qr$#Qpe)W6U8FV{Fr$?b2YOE_daG(rbkTcn5vlEdHNXdGp^<e;yJ`v
z&TyOKIj1zk3hprW5A1t*wHW!?JGk1o-tnmMpW&aupTcjz2fFQVDqkX>9`7&SW4x0%
zxADd?33F_=OifBOO@oC8;%Wnsc(RFskx^ozrAe9v=zc#_Q_B<sv&3YBL_<SM&=o1E
z=81+#_v~3FTbh`pSfrXJTACRpCRrvMBqmv!m{}U8CYvUvnWUte8(Nr|8l*9bA#Pnr
zG%z(ZHcd>lOf@u0PBSq|107;+2--DkWRPr>WN2uZWME;CWWn?pp~up|+{C~#&BVmQ
z(kKyp9;mUIX|lO#ig9A1v7rU%gnH10yNOKtNP3b%w;vd!f=+NY1>H_(06MqY2z2F|
zv3atAQHo)rftg8CD#H$BJ%$#>p!0MMQcP1)K<8biq#C598Kzi(P83c`O*A(!vq&*d
zWK2fVlLWddIoZ_61ayB&qM0S=%=EP6#H2JclN2+PR09JOLo-W5Lq=<ao<uVfQ_!KL
zi3Z7_6LyVFjZ=&gEsaeKElfctN*fqj8l-|Q4`xb2ik?L9b$J#ksflTc=Ei0gh9+r-
zW(JmtDaNU(hGxmBsm3PBiK!`72x}}86OGeA7jLDcSePXlCnqJPSfr*U878JeE*>;7
zF)}tcN=;()Mb=|tVrpPuo??_{U}S0uy6-B{+&t0JG9}g27;>Jjabl85GQ)dhrx_#}
zfi5&LOG~jxF-x>eNlFEsv744;Y++<<nrdNcoMdTfVIqd4#WK;@(7?#d+|(iobclOm
zQmToWxrwQ<iLrsDsRbyeQ&N(XQ;{w?v9vTwN-{Ju0o`wroMdchZeeL|2)Y+B4RrmJ
zWul>ZYFctia<UGRXDkg3lPnCA4M4{?gDxvEPcllfNH#SvH3S`YZj@q>2)Y+8m9Yd#
zkA;~@q8aEO88c&ZOM|qOB!e`w)Kv2{bF*YaOC!Ui<Rl}bR0}i4HAs5Q(^6B-l8nK(
z8Kk6|r6hu`Gcz<yH83+vOEb4HGD)@o9WKupfuhGKF$Hw#VOmlW=u})#{xLN(FiK8K
z1D%F$Vqs!xW@%u?h;&DirMW>$ilvze=)C15Bal4?DVCsnG(h*Df-a>>wX{gKNHLB>
zvc@be5p)@XaUv+Cm{_J7Cz__2CMTPwni-~=rzD#gCL3598(T0QLe^uRlm@yG#?aI_
z$=t}u*fhl~)c|zIy0M9|X`*4OrKPb^im@rf4P-q=pc}r-EmABJL8BI+JL*h~jnYgk
zEKN-;43kn#lMO9QQcW0@krIKKp|MetS(0f=lCg<#s;Pkm_?{Ru3o}#m)I>v2`Y^FH
zH%vsj&d|~{#WX27)!5R|92BXR$tfn5riPa0iDt>5bH>dLlMIuMEz=Si{vcUnYGIL>
zW@u!RW^QS0WMPnMZj_pqVrpoTXp{uH|IpAR$-v0MAUOodH>Spkmga`3$rdIC=7x!e
z#s*22W+|ZSHjENe5-m(kj4cd|lTA$-Un1!-Ni;|{Hv?aLX=ag>XkunyY+#&dYGGz<
zXl!AcYM5edo@!xk!0-!Mk9m@biD6Qzp>bN85$Kvl%S1y%LzCnb19Q+_ah6G@#ugT4
zmW(G*^q83>n;06J8m3t$8d|0$ni-iGnwlD=f({o>HaAKE9e{0V#_$bEk8z3t==Mf~
zv?L?*WMgx4OG{8lB^xKEq?j0k?hLd@G&MI!WB7oi$H*9TlV2kESbOm0he<{TX2~h3
ziAE+#h6X8ymX?VYmgb3!NVjKN8YY{in50=)q^4S?m>H#{85pG*T3Do+Bqb$VCZ?ts
znwlkou482^M6$=w%qSVO`vP<)jA^1tT8g=$VTyT5vSpI7DcJjohM*gl822LSF-S2?
zNi;D}0~NYPiRK1|sc9x@NofX#rfG?($!19grsihm7N(4m2tA1gX~yQDcuPw*1chFT
ziMe@lqJagdyiQFtF*i0ywJ=OEFl1yx=&?*QH3k)!NhT?#DTWqCCaGyDY003=V2o1}
z4b08bEK*WUl2eQsPa^9vG%`prGDtMGOiMAhurM`F0o@{#l4h1{l#-f~Xpm}RVUUuR
z%J`Op)1N^NRuSW-k&HGnwJ<O@H%v(d-EwA;nhLrW%QD#zbpKhhMY54ulBuz&sfjTY
zN)j_nw6I7rGBPwZOG-3NGBf~P17v8HXl81ZYGRpWVrgccVrgc~^bTQ9qPdBMWwN0O
zs9H|}-M*D-VPb3uir7>`ixi_IgXCmW151NsCR>CaOVG8a7Ks+d$>xTZhQ<b#pvy1}
zjVzK3j8Z|D9vFcRQBN{TW14`h$I{Zo%sABubPt<(no+7zVoFl7fvIVVnYn>cvQZK!
zbPY_BnC5YJF&N_xA*?b;)|jOlSy(2TrJ5zBm?S2eSX!ngCZ(8}TNtKTnwf$QIZv@L
zNlG<ksz>Mn<y#|23&8?(>x}{En%XoY^CaWsl;qS@1EW+^OA8~DG^T3^J(k862C1Nu
z#K_V#Db3QzI4v>BIMEVxuM+4!;iNQB4V{!?&U6_`kBMcfiJ4JyvYC;giDh!4QF4-T
zBB;rcnr4t>U}l<XVQFb$Y;44I21!q{v87Q;Vk+ne^0YLw#5B<T5yokj#^&ZGsg`L5
zX$FbLW|pajOvey<K&7^UxtVDi=tfOb&}HNXCTXS?rj}-@Mn-8CMwY3ThNk95W=#7K
zdMwS73{5RSF`Z&zmTHo0X#~2~I5EY<7*wgG8CsZHq#BqdSukxw=t(p(HAqf1PBAu4
z0o}-EW|nH0mX?%i4!Tv&GQ~0xbk9zzNn#q)MuZ+q(5(u|p!hd4H3CINBIx2CizMSD
zV~fOOlO&^5gH*#ba|5PTNP1FJjZ+g-5=~7(ck`N>87C*2CYgb5TQ^Nkv`n=yvoKBs
z-S)_|jDdl{1Zx7pBZy>=rMY=h3h2rK^W-#33k!=RQ&3wc)zBy@&A>Fp5_Dsyk!4CU
zvkH<P&~=jLCYC8CCML#)$p*=($!TfksYd3OX`tJH4NWY}%u|h0&6tr&&P1b>RM7p-
z7KSNC=Ef;$pt~20Oj8Vv%nXv#j8cpZj13JeEDVyF*^%r4T}qu|l44?zW@cuQ0=m*K
zEydW-5Ofu?d77oMnT5Ggs*#y7Gb56oB#WfvB+#`XmPy8m7M4loDWG<MVQQio=&D3B
z3yT!vloV47roTvfl1+^)4N?=6QbG3yr&w4TfbIcEGPO(v-Fj$dXqpB(^(N7j$p=Y~
zahjzm=>7r|LsJX0<TO*zy{D;WMn*{{hUTD~!cEgsKzHIXxg+UGOEoq&HZd|WF)&QB
zOffLBNU=ysO)^e4GBi#xH!x021KnC_Y0PvNp(oKaB{j*yEXg#@(9F`z*dp05%`_=7
z)i^0F$tc;x*gVBJDaF_##e(rUvL3UP6w9<^W3$9mGqYq1Q&1jAH8KG;^UYJ!QbD!1
zfvI^C!!2YzrpC#srsn1;hGw8E56vyjlT6Jl%q)^j(~{E+OpVNp%o3AQk{QL3^_UnL
zm>XLpgYLmiOEF6{v`8~cH8(LyOEfY{PE9f~N=-92G&5o>Ml@CuO^uB~_gyBNq?o6e
z8=4uUrWhs~8iMZJO*Bq3OEgY2Gqy0aNJ6gIOpPoJ%~I1qS1=}7g6>OA0^R0nl$dB?
zl4x!Uy0Fy5+&ndv@hFnhOcGPlQVh*g3=A!d4U!C!Q;pIrKsUx3rX(6C86_vBB_>*$
z8YeTRAnP$tO|q~^OtnZ#1>Jd=l4xRKV3cBHYMy44W}cR0W(>MgD9MtM56L?w=9VTF
zCgui-#>Pe_#+GSD$tlJLDWGdAEG*NE%`J?L(~K+(O|_7%F--<tgqdcTXk=lYoNAb4
zk!A$CxXi>nIVr`^z%bDQbcbyUBT~mL(Ztj;)x;n*CDGU*ImtZH$S^g<(89ndF)hi^
zDA~*;#V`qU(Xuh4DUv<L=1EDQJ8#U4(+pFRQ$W`l8YdbhrCEY*GfOcyw=^;_vq(;2
zM7n`H(b&w;BGJq+DKRO@!qUhx(a_k^#4tJ0(!?my$O3e8sj+3Up|Lr`IbP;K25yFJ
z4E#NO&OGn9r*YYFykzfV{KK$~^&(3pOC_GdX8@&|oLZ!a7{iAhyaAf5hqGZz&NK6p
zb4pWEL1W6$<u#adcQ6TLMKJx?Mx6{SO_P#RO+a_)rJ8|y(`FW?rl4E(l9Q6m&C^Ux
zObn6@O-)QOMx8hy2g6_e?0{#?ne;JyxTmps05mu%NzC9VY&j-qTocBwf*B1O*F*$m
z2237f7!M|a(-3UonPy>NnV4*7o(j6R$J8R(!rU~?GA%I)G!B!PlALCoWMFDxXl#ZN
zo}8-SQ9S(NN&5LNaPQ&tg(kZuqs9Q{j3HxnQ%H-9BxgE@F=sK_9($B~9<YWu>bNPn
zsSni@Y{}2qI5Eu(G|FUYkd|s`mS}8XWSV4dmSS#cnq+2?l#~j()hx--1T*<1LXzKi
z4LsSIj6q~<nF!Szpuu@*V!{==E)i5T!pGim-JbzhfRU>Sn}RJ|O)U*A&CCsq%}p&+
zEG&#I6O+=?4AK(Q%ngh{{mxVq!$fm)3sZB9a3!jkBqLl2djm8$pGx!0)fC<$PQ;d6
zczl40A(-3ImIfl_3YZF_Vh_z2Y|&?sYLJv{Y-wO%VwRX}Xl7_>nPQ#{x+=>sEh*8$
zG|k8?F)_u$G6i!>?l(xbz+20az9pBK-~d&2V(9sT5qwt<%32E81Slw9z}cv~P!S;u
zSAZU}a0yVo3(K^qreF(L%4S!uzK_6H+TfkAHo=@-CBhG&!bTK5P$AQ+D1|tztpE;G
zSepv9+(HUem;#JIg-L({6~;z21zVsRm>Zdx8(Acqn46}Uq$DOMC8ilCrzIsDCR>^s
zC8eesr5PBcq$Xh&;sUE6sTF^)lDyBEh`<1as|XR{ilcIb<p)ZdX7N?XreF(K6QdL}
zOYlvT=Aa8x%~OmMQxXl0Q$UwWn}DvWPf1KnHc7?O)`gY=R1Q}n0s~YC2ouxdg_W4d
z<txg96GU=_1rtW+0WN{l5Nx4J?6v5aRpVDkYJFWmb|FCYN=lTV&}?#T5hCV9Ls&To
z%Dyl*d@B|rK;h*MM*fFs!fF7vz$Eq(c#K7qOpptauHp?$bNnY761#{J9t4_&ErJA3
zIfkz%f$iQz4<*>56<t_>;6LS<izkgCl;IEqj};Fe_apA@+}+&q+{WDOT(`N_b2W2C
zFudc^;bP>x%DIZOjx&f;o#Qvhd5*;#<s9A|^6a14kF(Ea&u4dL7iW9Twx4Y>TRNLH
z8$at~*6pm_tnsYItn4gzST?e>vP81zG8|%IWWLJ0nz^1im|27A57PyvB}^4ezD!Dt
z-xyCZ&SNZMbYqm_zrw$gzm`9cUzP7C-&wvzd}VxId~&>>c#rYU;?3iA;uT9vOG#mP
zhiHmvGe<H(?mDzEH?&AjH8;03GzMM&o0gJdlxAUWVw7xPWM*M*Zo({$P-~uSnrN9~
zWMFD$oMZqRhBGoYGBPtTHBUA*O)^eOWmZS11zjMV3Yu9nPBSn~vP?2EHcd1!wy*#V
zsTdnsS}?vwQk#-&Vr&c=2DUUdNVGIEFf&RsH%&HAHZU-;urRk|R76p0Y>;SZVVRm}
zng+TX*uXM5DcK|mG?Hjyk!H?x23f61lA(oJnsJJyX|jd6L9$sA=%(VNl*A+p%OoRH
z#^uOrjm<$5XqKtw7D>tGpovuTv@}z510&-!bED)WrW7Q#$tGsziKgbJsRp3oBunE|
z(3Q-IN#=<LhGxl$CXDm6m?IgX;hSufXlP)Znr3N~n3`ykVwh@@mTF{Sm};7oVr*)V
zB7~$gDcL+Z6&$oFNv1{y24-gFpgGwjOEUx0B-0e+&`nA-Pc<+!G%`0ZwlGOFNHI$@
zOSUjEO-Zy&wKO+RWi&)`ErAPq89Pwa8dxNynHqz}WkIuwMyBS57UrqOrirO(mT3k|
zQpjozOpQ`ajZ#3<C5fhq$th+jNruU(28qU|DJE%2%mPSWOH49JGfOc{G%`)HFf}!_
zOtCaGFflYuGEGV`HL*x@Kr+@cHPz5G#V7?d=w}ETwzNnxHZe>xvNW|cw@fl&dW53Z
z(k#&|*}^CdG^LelVVG)?Y+-0%kYt%^X=-53B&5k4$q9`Ji=<?uWD7$J<1`DC<fP=J
zBqIw0lO&^*G)oIhV<U4UQ$fZU8K)T;q?s5Rq*xdk85<{?nj558rY2jMr=~FrqNoK;
zX{MPQB!TXhPf0OMv@kR`Hvrv<Zf0O$#CRJ?t+|0gDrnfz(A3i0#M~m)z%()0C^a?B
z(!e-5#nO=BCX!mSG*eScP<PoBbO&&vk#U+qs(D&cT5?*dp{1oM!$D-Vsj0@spw%qK
zMrIaiNogi&rk3WZmY}g^6U#IM#y3b2VP;_hy0+NZGR4F+(ZD3pJS`;&6es41spghO
zW`RgbO+iyMMu`?lX$EP=CW!{dphXy_iDs$EpbOCxJ&{~sl5CQc2wE2ex}4rDDKRxM
z(b7CQ%`C~n&?wa+jcFRP+C)QR^JGiIG$Tuk)I_7?l$2zH)FeYwW6&VIfhl7YvRXq+
z%d}*(WFupXl+<LyGz$|0(1o(*#z~-A5lbcyB(=sV7N!Qq=9WpOX6B}#S!FY$RC6Qq
zG*csE<FsTWCTC=|mZl~KCWa}Npgf$GYHF60YM26=JU2`<G%+z@R6|y4WN2YvXpwAb
zXla_9W?^8FW@!MP{ZBDAwoEl<+>4~vC^6A2)zHK;(cB^})!f|NFxAM=!qCXTJT=uM
zEis8%5?QT<kx`<#v1v+LN}741S&F5lfrV)@XpkE;<(<s*6<MvZX)0(j0BEi=)if>1
z!XU{!)g;+GEy*~^$Rven3$j`xOVbpKq%_bJzbR<hL6V7il0lkrVydyRNn#>1Ba&Lf
z<mBX33$tVc1Ir{M3**FOLkmkogG3ACBntz}G-HPI$ZE|~EmBR5EX_dU??$F(CP_)D
z2B1lXL?iQ5V@sxO$ZE~f4ARU~43ZKpKo_x_CYdCsSfr$+rWvNBnkJ_*BNrovCZ=X4
zW=7`bsm6vzMkXl+hGr&7iAEMCW`-uoX=#l7Nah-(C7N0!rCOMoni?9U85$)Sq**4J
zo0_K@nk1VTr!WN}t4&TxGD<QwFf=qaGEYl0N;EPyH!!zMF;6uG%@8xJM^<ZWWMO2S
zWNMsbk!G4?2%6(fwoEcfH3F?BN=s%uf~?laAUP$)%*?_#$;8CK#KIuSz|t@+#n>{@
zBrP?~g3$}1);ulEFwrD2(ZnLf*eKP+ASunv$kHs)z{tQdDa|Owl4&WjTJuDMBqQ@g
zb5J#5mYQT>nQCSZT54jMWNDaY$uJjLt!a`)s$pWXc_Qc@dPC3}n?w`iR1?D_V>1iW
z6vixMwI&7zhKb3b6%<C6DWFjXgB0VGv?OyggOsE+Q>H*9wW%qV$;rtnX_hG_spgiJ
zDF)`ICPt|iiD_vD=4OehOh1v;TAC-BnI$F~CYq%g8JSw9B$}lqrlpvJGN-AzA;V)t
zQDUBIW@(vdW}292Y+zuTY-ya7l4NS0oMM?|Vr*%Wn3#%etdWtqWuk$BX^N>qk`ZV{
zo_VslnYl@dNwS$ynkl0zvRcEmL=(dllN3{9bBn~(WFuokW8);_G|*M(mPY0bYml8_
zXlb5go@i`pk!+G|YG{#alx%8hlx$!C;-^?tAsL%uYGG+%mS$;WXl!C>o@@?UEMa71
zY?72{ZjxeZ#?+2vY;uy3iHWhXsZmObsii@3vU!SmN|J?%nVFG=rG<%+1(LDJW=6?r
zM&<@-DT#)rCdOu_DJe-7#z{t?fVQwSVP-)#*4PAe!L=D^m6d^|F{oCxNK8sGO-f2J
zN=Y$uM>f{LG||j7HObQ0BE{U;+#t!&AkjD_(Zayc(9qN%jmZ*8ZBk-dvWZ1<s)<FS
zSsJLUF-Zj_AQPkH6blmrGsbRYwU&4<AZM&cR%@CH>dP7!S(+G|8>N`1CZ`&vg6<eM
zG_o{IHD#KBtk%TDASuNnEzvwJE!jBL)X+T5z{uFx$RN!y(K6MDkqud`v7vFQc}l9K
zK~kEffuSX6A{4yJ!N|zi!qS2<0ZDCQibaw^s)f0kMOv~&vT>?8sLhvbWRhrUm|~h_
z!1xv^coR)65|dL?Q$csW8-o@VnIv19n}e1n7#mm`7^Wc`YXrJ--Owz_%*-&+AUW00
zB+<;$)HKP!*eub^z=R2@;b5L<1X}%RnVM*rYz%4-8JidxnI&2nCYdBBCnXy&svwzb
z35p8?BU200Gy@A`OVA1=L-RD#loZfdph+U*b_NE94Tu)|;AbKHW@&0>nrvoanq~r8
z%9L!7oMvH`oMN7qnrM-fWRjf3bOTAPiBVdbg_*ILd0I+JTB@O`X`;EIiLn8AZI)q@
z2{SvgT0;W^Bg;h7<TOi5Lkr6^L(m+$X=0j@d0J9RQWE21WVHrnMwTW9si{e+W(J0-
zmT4x&rYYu@$>yN-C&_8d97t-7lMOAC&5R6^%s@qsshJ^Y0c(n7ijf7#ToZ;aWVL3N
zDamFAMrkRDrsiqpMxd?-XqA;wT4GXaYBIx2B(;V~md2o_vw@L;v9Sp#&088787CQ8
z7$q4bC0j7nAgfJGN=>vdHZn9cH%m4(Pc%<91}%{?OSH5!N;9=!IE1X$%+fO1B+1w)
z&B)l$$RZ`l($d(#+`uH+G||%3B#BuTk<={>jgwLgjZBh~Q_WK?42_J_QjJYPiye%U
zjLb|EO}LPaH8e9xwJ=OcHAuEhP6m}z=1HbWAY=?$S;nk|q}IUP+%&~B4YW2V(b6>8
zJjKL3*(}Z6)Y2@;EGaRC;S#c16U$Ufvm_&fG*bgZL(?RqMDrvAGb7NN7V~5SV<uA+
zwFaPq&(tV6&D_}7*xbz0BE`tuEXl|`#WKY#jS(rxEYi%(Q<9U-(ozglQ%y`Pk}M5O
z%q^3Qj7&gl4vkHjLJ`4W0a`+xW|@>~o|2SgXkcKLWMYtNX_A-*S}B*9W?G7Hf<>yS
zS+b#-d6IEbQgULViLqIVnSn`anvrRmMRH178lwg;0|SE=Lly)7LVhQ{$9ye(s=UW|
z(|I{~R`Pgpzvk}Y*5x|KmCq%>xsfx7<1@z;4pa7P?B(ndY&+SaSbww5VYOws$5PLt
zz<iK7iJ6&c36m@1GsbpC4Th5pS*ZCurrD1zlYxmdQl&T}(NHBR%_u3w$i&1X)zHGk
z*v!P#B+<YuF)h{1*fPm5F)76&(IU;vEIExU0Mh3%F*Qj^Hcm1~GB!6cG&D>$OH8#$
zPP9xjF*7wtwKOw{Y4$}n-XPV)5ELjW<`!nDmZ_FTCdS4l=4M8wpq0LfMwUhv#-N_O
z3FBpm@y5yKrUr(_DTXQLrfG%-NuZ^>#z~guNl8gYphfU8%|6J+8>g7185>xdq?x29
znV1=-SSEtne3pquCgzETmKK(&mX;QlDVC<p=}_Y>(@YanK+CBt4NOyv%~Fz+3=>m8
zOPv!zlZciv&ECkyC#9yD8z);Nn<gijnwX~<o0*%NTbdZA8d#VbfmU3ZCL5)ir6!p$
zl|hU*voNtpF*QrEG&ZzM0&N{IPccj}G6Y4xu~}-0VNA0Zvhm5F{RpYaprA}jPD!;i
z1aAQ_HA^)!O-fC&NKP_HHA}HDG3FA77;g+}3#6r5fR^>7nVErHU}R!oW|U%XoN8>E
znikXSiEKQvt5G?0AjYQ{86+DS8X6lKf@bs0lZ}&&jEyV|O-z$bz}>2tW)BqOO^92J
z%(o3<yorTDYNDlup;4k~YGP8dfuUiVk*Se^p{ZeFqFJ(;QB1Qtvhjv#Nhv9bh6ZK^
zDXGRuDT!$orlz0@I5Ek<+|bA}*}~W|$-*!(iTNwU_(TJ<R5OD#3s5uK%p%3e(%8Z>
z(LB|})GXN|#l+Ggrr8bI_!MIcBZJh`)ReR&0|TQ(<5Y7?P|G(t)hOA_G%eB0IMFgG
z*}y1~*$861NvcI+qETY9DX0)LFf=zyGc`&|F*G+!GzG2sHjQa^MK(T>$VFDniV)+?
z%~C+^SkOwhR1<?VleAQe)a2yU6cYnbyUQ#orr8DAcymKg=vkzim>8Q{8l@&1Bqo}f
znI<J$npqmBB$}mKm?wgkKN)khLyWgDz~38*X?8|7KE=$`AUVY_G1)B1)X3D>BrVa*
zB-O;o$imdz#4^d)%-Gn%#3D5@jmaHiys=?oieZXHszIWG3214ZNuq&)L86ICqM@mQ
zWm>9POtTZR@s^<Vpca;vgf<y))<KLnH8wFeG&M9f2CV@!HBT}D^?}VS(#(_1EG?2u
z(qft&k&QPuOilw;O(_-z7N(#<7IUMNMAKB`L=$7nWaHEnOT#on17njkP8W#r=Ab<{
z#wn?3#wi9V#+GKLiRMOWmWjy*CW)r0Nrq`L%?`-MCnuX5Sb)Y`Knqn9&CSdVlZ}!r
zQWK5SOpQ!UQ&Lh*)6&w6Q`4BaAjVr-nwXoKCYu{2Cz}`>C#G0hm{}SbSem678zvi@
zC0WKa+anvFVs2<;YH4a_nF{Kp85@GeL5-3?EAK7Mj6f?Y6U_~c3{wqxvLMET7sy$p
zrGPe}B&Q@NB_^7iCmW|4m?S18nwnb}#WdTY7@uNlZk%Y8nqrV<lxUu8k(6SRY;JCD
zWNc&%>hPo`8d`$#mjzQJ#CW5`R7*2+OA`wVlf*PrV+&K06mz3ALt~R<Bhy6FB$JqC
zTV&%ciCmq}aR6dGsC9yGC?uxY2HAKs3lmf0BvT`k)YL>n<5UAv%On#}SJ^PxI62Y4
z(jv*i*f7o1)PiFn#CU_0WDApIV}oRqv_$hH(?p{*gH$6!BeP_qBxA!AgQS>dYZT*C
z5{-;Z%uOtklPxWiL8-<dG1(ln=+(f;G#S*jFi0^oGqPlY7RaWSsi}#{Nd~5gMy3{q
zW~S!GppopfL<=Kx^Q5HI)R<-~WaCW?O-u|86U|eS4J^z-JK)kRk}M6AO+l^LL{kfs
zB;#bW<kYl8ra2JTCmSW2fL2YW8W<&|S)`gLCns5$q!^f{r5J!#w<g9kTOu28W@=~%
zTB4Yel4xRVZjfYTY-X8gZepBbk!omYZjxeT2x^d;CNqmbj898VGBq(XPButMv`8~e
zF*8gvwJ=CdGD<cwNlP;`GKgumKsG+ngt&#4%&rjQL5r-DlMPM5ZCX$}+{oA<+0xL+
z&>%6@z|zbzrr8|XcoWNHlT_0rLo-8@G=szx0}D&TG!t{nWYF?b(12!&k%>jBp@Ajq
zb%^oi1bRC$&1NXZn<g8kC7K(hBpIeyBqt^(8>Xfhn;RG#CRrp~nk88#CnYAOSf-hB
zltYX+GXkwrP6BUhGqbcbF-<g0OiWHSv;-|)O))c%X*NYRJ~_=ODLL8D+``D%0<;g#
z$k@;#*&r<`IoaGWH7POG#3BXMIW=Vd0Wm%)5!7f-G%`suNCNFSOEES~18oB_wluLw
zNi#~0X*NMNKE=Sy$UHg8%*@0fEzKy|GQ}*>EHO1PIn5BXXVB2V+z{0LHBV$*2Ql6<
z&BOv!6j+*=m>L<GrX^dNf<_QQ+cyl-3@lAznvGG62W_lOG*3)RHZU<sHcK@zv`95E
zGchnpHnd1KGdDK??H@2nO5<pN7;g$5*fldqGB!&!N-{Q0F-l7Wb&8S=4U$2{TTHVN
zvhhY1#-`>LX~qT?MrkSLDQPAq2IeVgMxX(@M3dxHBO}lr5i<i*CLxINX{JV&NuWx`
z*vK%^#Mm^+*d!6O!3wmR)-ug3C8pUB*?1E(PzTH?#nQ+!HN_+?)g;Bx#3&K8tt7?B
zz$nc!DKW*u*v!m;b0frf6NALmWOE|}i!{*QyhLM56LVvWM9^RdXp@VfK}@p&vhk@F
z$!RI(NlD3ODWGi$hM=yvQJRIBd5TeLGH9YA)!5R&G|iaF3u3&nVUn?>QL;f=YLb~z
ziiL$?iiIJl{!B@-Og1;NNQr6IM>gKfIME>4B+<eQv`56y#L~jd9F+W1KowS6qKT2Y
zd7`<cNs<BQOo;L3CT1o^i3W+u7AA(4W+@itMj#I+f`)!lOpMIZVw&}kjW<a$O*S^R
zOtvt!urLB)qqH;=&>oxQRM37NBhb<d!!!dUrZ*7djm-=b6D>jO;Vlf3j156^S1IOZ
zrb(cIMpH`z^O$B`WaAA@KrI6kqqJlLi!>ukOHdt{WSp94WNet2mSSjVVrpPyl$vP3
zu^3{!nHgw*hnZ<|nki`W6lhI!s!^f^Xho@kxsioMOtTKM@s>pHt`xopG2Y0~(#Y5-
zB{9v=$T%g%C^5yz!ooZ$DJ8`;$<QPb6t&vO#uK}+kTVftyt#3jQJR?nsNI#Am}Y8_
zl44|PVq|P;2->A)Xr30+tc7emvFqzNmO+e9G6xlSplUxc$=oQ-z#`ECRPmdbo26MA
zni!kKG;1OoPwXmZnDM5`=7uRLrbbC-pe|UVu~CXeiczvjQnI0uDX4&mY1TkCp4dgd
zoT?Dlrz9mB8XH-rB^el|C8rpq8G}j&!&JjGQ1&r4H;ZXjM>d|=)oaY(AjVsy;GcPo
zX;woqp2+1!0;?d#C#RZQT9_D`q=Kf!Km(o@p!wp&WE0cmq?A-ci<o9rWaEilb;AL5
zeVTb{qNQnSN}@4n%-F&()hxxx7_<k;G}$!Cz|@F~fq}u3sgHrhiA9w81@kuMR^||9
zC8m!|2l&tPui)?FkLK6l`^tBSub(f5PoIy8_Y&_s-h5scUU8n6JllC%d4hQqx!-f|
z<(|r2&F#r8#`T126ITP5FP9?cSI(oHlQ>g2EjhV4?s077sORwGkY#_(zLUL!J(1m=
zU4-o++d8&tHV-yY))%b1S-V-oSv6SxvRq(U#8SZ2#}vb)#rT8q7~?#~7REqEIfge3
zJ5fdy7_XvmM>#`31Poa@kq*{`pCzuVk6@x~JYeKD0O^1qfec@mq^pl$Ru$!!r6!l;
z7lGEpMG&JQ1G@eTq#+K?P3cfM6dPb`mOvU977=3w%ovc4AfhxtS3H6=#1P{q*g_zX
z28M+?tei*(Wg`LyDV*R7k$iPnIgw6R#i|&78sKzYR!*eDpRp=NoQ5BX=JE{qnl7Xm
zMsfLnU69L}GNHS55Xz9!1l;9}LTFCMW<K2MAGBCGkq+j^YBc1`S4L(%kT3DO0&$=<
z!w+Lt&Q!$Vu2@Y*TWHPbsn5!ZbSy3oJ-G!rsTH6oWeg?4tI5!NZW#lKQVcn|nc<TW
zD`zqR*P|_F{zH@&SZsjZ&rX~cXm$f>VR%cF7UZnO=t7(pq|C+eo+vFSiS)N5E2km0
z5MvBeW99Tk9D@yCRSPQ8ki3?RRs_IGAS7kFD96}Up=TthVJI4q3qFR!#OQ$83l8r6
z#5f8$w6lrQfE3o{#JCA1q<5kfWH1LK`x{;yWT2;dEP(_s4OXHRWY|nb6l5jnWd|0c
zA!P@{HX;m0lpRS%prQj&qhWIfTG3I6UUFb@OL9KE<Y3sO4JzLWSOG0L;)zlVDL69G
zGY%Ga#G|BQhV_P^q6WWHP>Y&8qIAGQ4U~>!iPC|bj#G*92y7ug$PR`zL|KBIl%vth
z3|MF}98m|A8HmaT*17;SIiU3=*v<!Nxd)3nU6jTT!%JdxAcq~JIWan57K2^&geV<Q
z&w_P)BT5HSvB7YM7#+xg&F~tn83A)LQkWvnsAu?xR&Zcb4J$YpjnRq%Y>J^p!6me2
z1U99JqJZHkS~CKha<sC5;XYbnfL#x~FkrMM!mF@m1jBQp6hle_hL32u2%Ae#^ERVB
zQCg4_D8qH4w7~2Jr8h=B;<O+q(c8pnK~AG@h|+?RNPnRf2{2ddGCH6&BVeT!DET6}
z(+8~r#-a?h84(Ja|L0-!V_^Qos>!sNZx?SNj||sk&N>bYw!3VZjDADEPf1T7GzGS3
zkiEYMIa$NHJBV#qMD8y_HUzc<BrP*1RYMc9?81b|=?KjIMdjfAMGqT{>9D^D*%z8k
z-YxQyoQWL9oViSr3=E<I44Dj&O@=5pGr;tKHW|X%NX;H{gA~aKtN}{oI5$RsGQ9x@
z=+)l>cmfpvq2feu*h2DyW|MJ?tR!b3hcRa?T5v|794ZcNX@G+h$_AC5NWlmd#Y~wn
z3DC|rC>x{|TksJ((2fy&!uKG-hj)v;Io?gLSc4DhUUYA3Hrceu5pg3rtWgNk4`)Ma
ze?-W^CD1o-!6iUj+@O^So*U7Lodm%MJdVZ01fB`0*Dm03zGh*II^oT2a08%Wg)@9$
zNeTbvwx;kFH6pgt!)-+lb+mRB)IrE9a5@fI5t=bDcOw_c#7^O2Zm0hNj>T(C5Ac*A
zq;IDuCOAN+=&MR{MspZ*rlXZ2NrXxf_~n|2Fog{a5ml7H^<xW6VkfLI0+VqaI54mN
z`++Ag37o)VVu^Vn0haOv?g7w#WEEoC3)l>S4<&($R&s+9#SpCFN#qPYW)agsM0ir`
z1Rhv@4+;v<eq?1L_9MgefJ$mO8$NV|6rj-dHD=m`Nr0+37#nT?w!kEIJpx8xG6@k8
zm<0AC6MHB*+y|i4sYFET#9Cg!=K(-bf(T5wTA~V16hp8DD6uOrFanfwBP2laHoizt
zopA3VR{<!#0HsbvVp1ozEDw(wM1Yc3a>5P37MR4YH^JO3??psl5=fm`cFV)P2FhQs
z;DGx8R0AoHTLZz)a3ePyVfwKJBeCmhFw^8rVuF$MyRcwEha8MB4`_n>{|r_Pe7ks)
zc(}NZaF%k&vK?hDW>IH)&e+djg}e9M6xd=yOz8kC89`YB#zvXMMMMI8xB{befN8{O
z2)39Yc0Dd;Ot^q!;$in|JZ%9oN(X|z03G~dOvJ%2u!$W|-34bO#tKl&T(|=CP=!nA
zBZlF0QBA=Xti-NE#t2qsE@Fa}<O6kx@CK;&W<*5q4Qr8u-g|>9LJv>41aeM;=*AX~
z#4fnT2uGeQBEr#}<lY+|=W8~3v=~Zq#&Z~RW}`Lt(~z6{@C=NcPZ0y!<mPmQ30T9C
z$d%<7;mFho3C9j*JlWjbg5+K>wrq~@0_c_}1N4FuauONp#hBR2ZItO8L~z2Rj;JJw
zVhFYnrR*HChj_!2z_pl|=a9kuhMcQVyZ|aS^@%7ov6_VQ%tKi46BVSWreF<IA~z^t
zq*9IpM5IzO&OC(q4>?#-y#WeWJtD#tYpzGFM-WLBt{6RB;S$JY2dXL9!j;&a8JOX^
zkS5_ugf~DV+PcJyXk&{aq@i3ypu$r&dZ5B3kYgFi2&^GW<Yp9%ArvNYNQkyb<10@s
z@s_8=4xu3V0n`)FA*LsQR4&6i{IG^FQdq*2VT2`20u+`oHcUUZfFyR?4Q4>jAtoU4
z_XMy7B+Sv+JOIk<+T>?;<ata)Si&;{dRW3GP%}HSDcC}k*qufgnVngLh!7>c5GBGJ
zpm5b9B3yB_Vqqf+lr`y*O~Dqf#BQ;|3|Ci3xZ<A`q*jw2*&Co-uSra<$6AO&S2rP2
zD!iaXPpNPTP^N*I1z!+xEHA$(H!%l!IG@=4WEjIJtk;PMO9CU%#15mtJfO+T7s|lR
zq{PUvoNo(z5HBb97Oq0hKdj$b4lq|SDKRNAoWeZ<FxX@mBL<s`hJ$;WLRuV%D8Jxq
zRX`;=ET5pZClR>~t{6SH!6k5;g01`__CN!S@{0@7WO=*M6i<_djCuhU0JyyYD!=TB
zD8I1Q3$RuPB1GZJ&_fh1fjr0q(~m7Ii9NjmBP=-}H_zh_O9JH=mPrb{9ssRoup?qM
z12#h_s8T^%v4$OyM^j*g9p5%^*-s$sNM6l=%iEew;VrgA%#35N{POdPONvTiJ8BSV
z5Uv_M4Z<Z*>QGc;umvZvM{!^@pqU|uA-`Sgi!WOnQ>iC{5*(meGYj<L9msN}9D+k-
zD2t;J0Sj+tq6aKo0#wexTK6c1U<+1a5AncAr5x?xRQj<0GQMCXIh7Lj1t?HWi3n7z
z2@SrJ29#?NfeKfP9;k2$<kX5{2(~~a_G}T1K;^8XNuUz;g=S%k4G~LnV95#^a_FH2
zk33kQ;9ru%+hpHjjb80RMn4k>W)E1a73vh^M32*1$ckY4VNOMEwi7$%X~@7LA1EfJ
zdAKq^FS9r!lMfPmlXv6E66U7(N*XLZb$Fm+b3G_CSP_vKuoeEgIA-49YSF_HE`i*9
zKrsYcU=n-C5k_WUHX<T8NuPNm><iEghb0j+99XjzVsIakGT{o*LliE7T)ZGmz!sdu
z9_obArDRrw1Sj4Co4^bQv0X}p7eIIA#M7|r)8x@&MnqI$jdX-75m5zKh#pmN3FO3&
zFacXs5qp9aM#^V$r#z~NZ9OBrpvlD;!eGoO!ps=Yq{{BkF3fhFZ8lpxn=<Qj*43=}
zT&kQeIWBT8=8WYO=R3oDme-xPm&b<tD=!oG2JURWc5Y3cy<AVY=5r-7ityAhK46^9
zY{2xIX&F-@D=W(}mUb3L=D*B4nM*msIfU8Ivv+gcV^d&#&AOGfmeq^@H2-w|V16Ow
zgu)oY(1y$(7`8ndry<h*=M;D{fF&7(h(3Y|+YiKaiAkD)8|rdvHcstO#Kuraz{9R?
z(1&tibPBB42Q^ffR=Kco8YUyQj;0jDI+bu|z(w>ClJP0XgQ$X5Y@CL^NDd&%FJSu*
zuzE3oPKRJ%U?9;KMY)M3MVa7T%1pn=^##mtAh(2*YY5D@AVYG<H3T_UxX3mHx|$p0
zk`QM$PQyf!V-_WO1dwY6k~_r6Gy^$-Wx29(8m5x$7qn&3iFV*D2j2&ZNX~fEI;=g%
zPp)>zPPHg<Bel2^k<z(2W-zEib3JZ~q@0AZIG34|G`+BqG*E(L+C-vWXqz9bcNd9z
zkrEiwBGU9CCoE<rlJuq^#|6_m67@n$R<M8flcpEBh+*1BnqHJRnnz}CME1A@xn>{*
zKnj^=AP0ns0~@Cy(y1Us=4VKK2#N(|J~0MM+}Q|^45&OpI=li=Kf_BBm_v1uDsR+U
zlUbBpQ&3{`Hrb{i=f7iQn}VDZ*OQboQI^**?ITSutb+rJN2X=AY@CKjhpZ48ACOgZ
zOxHmrGt!AbMCwK@40e-i2vVkCI_d~c(eO?A#JVKEG$|()91>^AbOv(sgXuiEh9IYf
z9d6({n^eD`)!9rZ$ZIFVDs84yph6;&)V3*Nmp-#TnSlW-06@{gtV5<DD0P)8xp@@1
z@McydH$WlH7^cl+y8=0--(+B5;1^;j#8bvnUy95~KrU{XEy(pga(ZAo%)o$ryBzhs
zI=D>a<!WQ#WKd?{bLBK-f5EnbHGqYeX$NC6gEE6M_eHKYt~Q1yn-(u3)=tAh5oJv}
zq#TD;y-3T<i5hBw=*Bk8l4fQJx;)wvbRD;OQj$?pih*TvYO<xVk*P^a66mtmq~tU+
z3nPqS7Pf!jVV1Xh-r^gtC3)>M9?ye@Ydwh=u7#y#Q24>wC|v+VFv8{0gApzP8aRgL
zYF!jVu!W|DVWOpxk!gy7rKP#Kk*T?*MY6Gh1?cor&>8tg7Dg7JlgCq%F+!8enuyRO
zeYlpeFF=9nK}4WpjTe;gKm;mWEqb8BC6I>!Q4GNrsOBl4!*$KgEzQjg%}p(h6BE-?
zlR%fq7@C=z8ySL5Z#PUdHpRRjm+3nsP<OK8Nus0&Dq&w}Hrcnhf#zm(@onmbuDsOM
zhcQsEV1|V!OcpgTVWK!RV++S*Q!~?43ky?2vs8nmG!sjM<P;0DR1-5Z<1{nSol?fe
zY38PhrkIJ7(VmEKBy~Lk0S|yy`?(UaS_W%mAc{v&%LEpX2vLk3s6?28EkupYlg!dg
zEfQ0c5)%_s4U^2wOjC^wEfSNHEm9K`jX)Qnm{}O78DnI3b~PeGl=RgyM0f+Vfyaf2
zN(gJo0jWk1;R#oSnl|IB;1bBCCqy^4a3uB$8;o$|3V?*;R#`kbob(Mmc$^Q~cIr&T
zwo|N80pD|p2tv3z^dN*wAeWVJ1F(f6u{ZT#gd*c*VnPxBCC$Xnn81Ais(75puXvzU
zG9~$&;7SBy?<T^WElejOKnYYlSY`{cCJ7W@X!6fx-aok7#iOnn4S~@RATk7+LRuWj
zZ}cFKq>x*~#8)Akf~}fKBJxT#jB19djF?i9T3Z~Dy#ZQBkxXP1kgE)||DRs>|5YGg
zWRRGgYMz{GXlRt2YG!U~o(Q_u64c61N;a}cHL*+u-2o4}dR^fR<emgGgEVskqr@}|
zb7M=>#FQlCWD9e1BLmaqRAa-mB!iTg=5l1?4b9R_j1xh3<QkcorY3@Jvr4lt2Vbe0
zYG7=fW@>0;o?@70#9Re2J~7SM5Om>`Nphlvg}H@sN}92;d9sOtxrMQXp>c|7Omi8s
z@rj9PMk&U|Ny&+psm7@mCP^vDNfyb;CPt<Pre=nq3(Jg>5=~RmI6p&-Pc=w1vNTMw
zFfcMTG)@HFRBMr%Vs4sfl4g;TVqu&b(_D&dyirn`nR%jxDX7<zoMxV4X_lO7nrdNc
zk(_F3Xl$8kYG#yZl4h6;yBEjAGTGeH!otYh6m&(Mfti_QN=lNUd74qOp@oT&adJ#^
z39|7ih6bia2Il6VYnm*L4NMJ<Ei6-0ERsPtvV%NhX^@zhl46j^6$5d-xrK3BiiKf{
zsikFNib1kzl0}MTvXN1$nOTadsZmN=Omi`^@n%WpsVSD`X_jdQiAJfQyIj)J%nd9P
zjm->=6H`+S&5ct*H=w5qOoJGo2D-Jzz}(2hGS$M!#4;t>FcEacY?5hes!@umfkjMn
z5wh{72Ii@ti}O;A&5}~h3@yyfO%09Bl9P>-L02(brY4yif?~jub2G$vQ!@+8#57~j
z6=mjzmKI5grfH^$$!V5`mPsiV2B|4A&4tLury7E;*9KjRXqaSVX=q|-WMY(-Vvv?%
zWNc)XVqsxnX>Mv{kZ8tb2r)j<!pPDh(b&X1B{9(`8Fcwy3h1g-gEY{s@hO%`G0g=i
z#v7R@TbLUqCR$jSr6gKfSelrdgFKOJWMpBGY;K%lWN2oYmYB#X1~J|s&A=elAjQ-o
z%`z=H#V9S!z{EJs%p%RiASKZ(33MM+KC<!2DP~5-hDnA=X~}6uplg#2l2VcrO_D(u
zAsM73SsIubf^OMN;dg`>Z<LstWR#R-Y?PRonh3g#+|0-{(a^-u(j>_!IVm+cra2GU
zcyj~Glr&Q_3(!?ZscE3Azd_ej8XFs=rhqQTGdDI(Oi8pfFyiBc7@uftnrM+?kYZwN
zVQG|{Vrpq@4!YnoCDGI*Db?7}B&InR*?7w|L(pYZ28qU&X({Fw7N*82mPSTtDQRZO
zMk%Q&i3X`A76vJ4slw2E(98*3lpNEXgKWG}T4GAFi5cjc?qoBg6i{YKGd3|wGBh(W
zHcCo0O|mdgPO?l(7F-W;y@gq7s<ClOD(FrbGmEsOG?O$_OY>Aq!$d<v6U#J%nC5I`
z<IT;D)6&vRjEv0;O^uDyl1xDtQkxnWCK(!8TBM|ySR^MJnk8A9GIm0ZPc=wNHAu2F
zGfp!w1>Ht!Y?^3dY++$(Vwh}f1iCpg3)y(k{WggfCTXb#pu4`3Qxc6*jgm|ZEs~N9
z(o$2?3=B++EEAIqEVv>d#v2+NCZ`!0CK;ugCR&)An5UYWq?)Ii8CaSdn5Lzfro=R7
zA{%dM3cBjbFg4i%bgyKhp)ts1DP~Eg7DkCFi58|N#uf&~$)=`^D<H-vS{PfTny00u
zn3yGjY&SJFGc~pZm6?gjNk(brG0hps#)JK3l5Am_YLRG`Y+_($W^9&Zl4zD}o|cwo
zU~FiZmTZz}Y-+||3Nb#(0ObC}q_m_|(_|w{i{w-T^Tbqx6qBSxBa5`eq?qP(WaAS}
zQ&N*G%s`hwnpv6|TO=E%nI<Ksg6@+tN;WYzPccqPF}6stVDyC;Z(@>`WSE$o47$qR
zJT=AGI5E}2#LPI+&;oP|qNQ0(a~iVopc{ED3=Pv#Ei4n0l1&T^EiDpFjZIQgQY_6u
zSA1C*rX(2}m|Ai{U2kY;W@c$>WNdC^WRwcJkIT$7HO<n<DAhPQ)!fX$G^RNf*?0pp
z(1oD}$>wRPpsVsy5-lu^!FNa+r&yR8fC|IpB+%_~j2sZxTbd@BB&8->CW5YIOEgGH
zHAyx#H#M;|OHDCJG&eMiX-+{l-Xt;ABGJes6;ujXCYvW(nwWuZ4m7hgPE1WQFt9K%
zF*UU?GBaT8fEaIR3c9!0+|a<-!q`03JT*DlG|3n=+F_EKXl9aT6w{oHY<!wYQksFK
zk(rUDk!hM?l6j(8vZ1A+QEEz(X_B##sexg#VX|>jssW=h#CS^+{C8i+G$$b&52^(c
zlPyw{($Xx9Qj$QIGJ|gCwMa9v1eK$y$wp@8pyHPUdd*sjsbyjssD3m`O-e~IGB7Yo
zO*6AhN=q`gG)glBrTau=<3Y*W%+$;%$voNAJUKPl)F?4E(bUo+IXN-W!raKvAlbw$
z$soy;5qdeIadMKWVWOqEkum7nCNqn)6pPd}i=<@GP2VO4#>O$t3CPB$q#7ognVF=R
zm>L@zC8n5|8>Jc>q?njlCRtb{niwTnBpVxAn3$Qu0w*!WB+Wd<*x1O}C<#>Unwyv<
z8CjYcq?uZn7#V?X?Tkk@-onV#FwGz-+1N70$Sm2wGRfS`BH73&CDFhzDJeC{Ffq~8
zB+bOaoOu=`><to)3{p*vQ;f_FQ;p3G&C(JRO$;m&EsagmlG4o0lVY0Vkc~GpF}5%_
zO*Jz%Pf7z_GijP^0`f?jrAewqiX|w!85x?I8=5gg6K1M`VPcv^im9<_BIs&E%QO=c
zBLlNki^NpW#l)7DG0m~a#wS}^B&S&z8Jeb~rCFv~B&C^Irlpt~rzD%3gX&Q8q$Go6
zQzP>f#%hS`jgnF<EI=vIz|6qN$igt$#5Bz)#mvyc!qnV28FbHa46^ZwX~t%Wi3W+O
zsm2zD7Rkv5=4s}ZMuvulCI(5M)6OhXEfWn5EsPl_L5w#`0o}D}k!ERXk(`*8Y-yB|
zWMFDxo@!#5lA2<aY7)~Njck0Hp@p%riLse!idkxssgXr;vZ1B1xsgd)in+0|k!6aJ
zK~l11l92&3^qynTm3-!ghH2&oNtOml7AYx)i57<D<_0E~1{P)p21YT>QOL$8nWdR0
znk6M0CZ{APrzBb!rKBZ-t~pOLOf^okuuL^gOExn~GD>7IfVke=!qhm?+%U<+EIG~0
z(kwOE&@|aR(Im+zCCSt*DbYNpITG1;lSE64G&AEwb5qduovDUth8C#?Y38YhhRJE5
z3s#LRQj<;04NVy5LX1yJO-wT~O))b{O-xAy-87hFYHpOAnqpy)WSC}@Vi40Dfo#0F
zd9ry@vYCOUsZpwhd7@EDnx&<wk%2{ufr(*Ca+*n6a&oenp<yE9K8W!tDJI6Ct8zhi
z!kU_xBv}}OD$rD8OAAB8WD6t1nC5U~;}b0tQ&N&Z_d^?ju8TKFGBXAxe+y&FL<5u5
zl+>iuRFhOQQ$uD(sPX2;rk0kVTZEHRQj$%Q(#%pVEYeIZQ%x+AERqvVW17Q|jW;z<
zGEPY`OG&XzHa18~F|jlPUGtrslx%EhV3KNRVr&9xizi#cu2D`lHAqTKvNW?WNli3N
zF*PtrNli;mO))UDNHRAyNHL3P4n;N|bcMO8d5RI}`crc=W8=gmOY>A?GfU$nBU4iY
z&~51E$!3X3X3WsuiD8m)a%!4^aS~`M$-vwq#nRBk)GWmW)UGu&16?l|f^2-ML7Jtd
zS)!38=*D|P3rj;wLkn|514|2YOT*M8Q#0e#B+y;(=8VubW}-!+IjGfUkz|^boMvpC
zVr*n$m}G32WRPNMmI}IFFc{f*VkckO{z1atI1Q8!Ow!EKOp=m}4b06gjm#{Q%?(l$
z&5SIQKrMwJWaEjQjpVY17;j*hXl7xQoRnyiXqaMbl4xdVVqyaFVzRNZX$mN61Cfn4
zCvskn={wZ;R1+f$izJi8WTRv=Gt;yr^Hfj<H%|jyBWeI@r3D}xPwaFRqdmlUPzxf(
z!q~#tI3?M@GS$Q+6?8Lsnz4n6rJ;GUVM<K1KeF+}&fT!9L5xo_2HgQ|YG{#Uo|Kqm
zmX?xakz!$)VhHLhCYl%;^78y);9<DL$nDDR!TF72AsYwZF5Y;a4wenfxlCFNml!UQ
zJF+lP`kF#o!igA+f}a2b+J*yNZ>NhojD#4Bf-6R!?tn|+HU-;Y6tUGR#$XgP2Y4{*
zPcYt7_(>j&BElP>$>C6PCWm2WBhPujW>Hat6DEo@IgG3sTR;-qfWQby#%dx0k_wZ<
z$Q}R%VF)=v2%Fd=D+rM_V+%rJ8%Y?`MU0au4?=S@v=g(jqyc0PfaceOiOAhp=bR7|
zyvPAb`usYwgRq4tvF$>P5M_p(pzz1v8_&Ejf%$ce5JmDI@|-McV1VY={UtdgIdnNw
z(GGY-+LntEIq(^C<N$@KB9OUJ^kNG}Vq1`yd3zr?VZJ?Z6;CkY-;;}ZH3ZC8@WKhj
z{h)N|Lw>qMUNViSb>N8@H6(FHD6%P71JuOOkeF5{X1c5*B0#B@E|I;V$<q|r;z#y;
zJM!9Ta>Etn_-<^$N^DmIBb_oc5)-T>AEy9MHptl>#TTFh2z`k-fDl&Dp)5&+W(4FM
zk0?tpmM9T20$YF*+xfywr;zQ=1TsGU0|>E{pM?AXs@J{Asn=mKg&da9;6)2am?*sT
zK@<WY&DcVb*iIluvSbv4Buo5DWbvOqh_SAQfCn@STY`u<ivqfQ2DX6~y<CJx6f8XO
zpGCpIz(DKi)u!;4KqAiBfjb;|;ThU~3q<(^SB=yEc#MGs4f5F+#Evv!oU_AX07)uG
z_Ts5&El56R2kt>U{s5hy6#&X~1a6>#<uOnh24}<eY9qoFE`=VZa0%qn6s8|rU=lm7
zh7p*IbBPE{0$ma;XNlnT0QCI-<qUjFdDD2*xXy8QbJ()|W!=kC%k0behhh0Z_2SX&
zZ3=8jCZZJp>urG|8_q^KtppL{aC!6?hf5&$=}`>97VX5&&S4a{ToK@C|C2=BLzM{o
zLbJ)YB}tMqnZuAXAFa)gbPzfGI00RK1T!AK{S8$6z`_(Ej~b*1ahyhA3sGVxBr!si
zaRo6UYJl%d9?bSX5uVU&(rHPQ<n-k*<cvfM&=ADgM%WA@Hxxnoumv5lldTv*$6pEw
zx;T6{Uzp)<L1EPWxO@!ibS99|=|o;51xtId_62IngNeeMO$3*T5j&5J5ps;aM1&mW
zola!GgTgPKh(+;Oivq~9c3AKs&RIumcp^z47l#nt*peQxGvyco$VE)jGbedx79P)o
z!Y_`D^oQI*g#{oir4dSh$a=8_AF(R|FoKT}Ix-xM_c9B-2a#bGdN5xh@(;56HJiLz
zVnN+VLwq;0V$1!yl-D09CSVImVi!GNhGYjMC*u!EDwKh!p#bVd#()~MB=5e0&R&2j
z0}_*CJj$>DwooK?Z3kv38WR(Wl=mW$hj>7vaM47J!eK2F;!)1cgass0`G=adktC1{
zMpRR<g($JhSujGB19E5GAH3<3z$hF>-At4>Km}zK83iTsdF`+Og%v5Np$QX36g0?s
zu>~Ws%XTn=kr8sa!k=)ww^UGEP$Iiuv&p(85>!zeawelS4CC-O40U0rCBT9YQJSI#
zAVM6ejSbU`E&PaGmxLL9(2R{g{79^)@j4%LT5$vsqbOK=x;RHs;Hpsr5;3p_>O{g7
zp&5fMM2TIBh0*b6o&_l?@rEerqbP8<Bad95`9qVJ{SgB<lNSS<9^W?J3?4(S2b|M5
zT-ozj-ZRf;@?!F0_=MII9|qjfdje<?iA}yO`GiLkV8x=YehQo!p8^~3LvF$#<WVyy
zLL8?N*m5Va%la|OJ1#>8)&^b%_Sg6Djd7AXngI7aPETky1+?UX#=HzU3(+bKq=Uq<
z7o4a^tCLrEpqha-NQvCafDxpepcw{U2KMLQ@C7M}6JNxH1gIj;A+I8a4f&E4m@v)Q
zLXp@V8yKO;?+8hlcterY4l~wJggGD74oo4V9SCc0BWG_|iw`w(!$cA7KxDnxf{)lu
z7Z}0E*a@k1@s7JvK463Fe$B#`Y{Ii#FdevNx#04!;28K>F5i|cP)TKsR8m3Cbk9IE
zZ*lZAP>z~|WiBMOsObYq0=d_PVhAi)kY~7vJ>8v!fkklL#4oRUDv?ij|C6;CPeEml
zcPPLFZGjUpKG1A(Yso|(Sb+p+3L-$UW>u6!Vqw9FP>C9v2yvuN1BwZB4@<nqHK2zj
zVfTaPI5G&gN?@a^sB;`JQRHF^VI>hkiF&Fewy-32KOIKt#m5OLz0&aAJ77U-s|4m_
z+~EMaa3`IJ3wPj!6jC-t4o9SHfEtiU5@=eng&(mS1~I}<7;^E`AH3mbPGS=Tx7$HO
zrD^Cn8geTPQW1$rT*&zm7AeTVhfs+cdI)h`CSVIiV)sR2greYjB2pp#@)2{;nXn%~
z<zp&(XcAjKBAtXuX8DL@0=Ceku&%-19-&70h~$1v&<XEejEoHYXZUCEr|=sv&gJ{V
zcY<#UUjic|hZLU<?+@N1yc2k1cr|#waQHEr@*Lpl;fdf;;r_tAhr5G2gejL>k;#(l
zE!R%2Hm(pZ1<p5|J2+c70~j+oWjS7QY~yHRf6l&zy@B0_U4rci+Xl88HV-xt)(5O>
z7%#F`u)44cu-su;!BWD+%Hqhv%Y2i0DRUvSEi)(6Ri=fs=%r$qY0R9-q*9!bXsD8u
zW@%uYYG9m}W|5khVv%NKlwxXWk!E6PoMLR6Xl#%Q-qUGp#w>==lWb~aW{_r*nrdv4
z1lmkzkYa3_Vrgh#X_;bTnq-+~VQG<^l4xeZ%!H)J(#*`v+|<(C%-kf|!VI*x#3(Vz
zAT=?~&@eU8(#X=tAkEOo(tzndLQhhPMVeu9nsKtBnTc77DQLHunVCUiT4HKiTAHbG
zvPp`e0cZy{(<_9Y<djrnW7DMMWOH*<gG6IvV@rdy)D(-vRAVy>lVl@9OLHT0&;}W%
z7YIEm2IiJY$*C5`pgnwvNhV1q29{~YW`?OImdVK}$th_DCaGy=NoGtJ5qgr%O%ly5
zEliV5OcPU+O;Qa^lT1tulMPG~%~MT{j0}=MJN68cl9)~-=`k}iG)OfzPqef&OEXP0
zOExevO-VB_2X9?W25tUJO*1w$G-W!3(34_hoMdX4l470;+T><rZeU_=W?^8OW?^P&
znV4j5Y?hjAk!YG|&M*&IkD;k)a*A=9xrIS;nx&a}s%e@*s)eaxnpskkfpKDrnPFP0
zWuhe$8?qh)v*aX8bF;J*i<HDvL$jnrLlXn@R5MGnM9^Vr$)N3P#-=F@8<6xErkI!-
znVOp?r5YNfC0Ux8TUsV1Ct9Q$gZJyF8kty{S*Ds<Fg!-qlbmX3kYr|Ro}6fuVrFh>
zk(iR4oSKwskd|m}nPOpVZkB3jZkEP?96yHUsg?$YmL}$DhUVsm#;Fz-hM>)<mPv_5
zi3XO2Cgvt)h9-$7486$qn3<TF7@HcInVA|SrzKjN85mfa8JU|Jrx{wLf%f{Dni(6K
zCo-YvA?}0-#xF+9nT(M9lVXsXWMpEVoMvfZXq;$hW@wydVV-D^lm<!@si_7@W=6@D
z#wiBgNKP{_w=_4mFgHjww=hUEv9wGyw@gblNKCdgFtSWcO-nUON-{J^HDRnm)?;R5
zo}6T62HN{<lx&$|mS~oknwXqsm||v<YG`0?2+AzxiHutidXm$Ol9H1R%`HGX=S?jW
zjf@Q~k`2;8dBZR@DKXW=A|=s0EzOW|E0UhnM8m{na}$FkV{;S3Gy_A!)RZ(6Q%g`#
znpjv^q*^4Jo0yxJGpQo$v9vTbO*Jt{Of*fhFa@1tVPFi}ik@s{l4@aSkz{F@Vrrab
zz%UD0k9l&UWtvg4rAe}dfl;cl325tP8Ypd8nkS{1q!=0|rI}h9G1?*NNl7+MOfd)T
zVK+B7HnlJ`N;NVwPBu<9GByY8f=>nOPBUgib{ml=LomKaw#URU**ww0*u>1-0+dn>
z3_u4I7@L?HTbdb~7$+Nowx=hjGW<o-lMFg6)YQ^EEiEZE(cBDl&}EWEYNBzPsgbE^
zN=m9}T3VWMY8vAKWIe{omL`UlX=bLWW|paziKgbp#>OeeW+thL2Bs#ULfJSaG0}*T
zA6bt<N^)X~Wr}55vQcu9v1yX2v017`nz5l7_>>2;v{Z{UqeKgaP82=n7Aa<iiRK1L
zDT#*W$rg#J$!5mMMka<Srl4~;ER&N#IhZjCNl#LuQJR54Qi`Do=-dL6#56-AqqIZ|
z;}jz!^E5+KQxiiI!xR&9#vEilprXJqImIv~G0EK0EX6R@%qTG>EiKv9JSoK}(JU<~
z&C)a}mB|!IPhy&ZCFlT`L?csUi=-qA6JtwD(B@rZV-rxpZIEPOVVs<7!f*<a<&qOq
zjnfQ`EzFHm5-p8VO%g4P%`H+*Of4);&CD%~K!?GYrzBY<)gx<3G&3+xGciq0vq&*C
zNi$0_Fg3O`v`k4hFiTEON=`90PPH^mNl`>{nSr5clDTCnXuGpfvZa}^rD>YEfk|RY
zs*$l-qM=D*a#EsEN{TVlIwU<NscA_@W+_INhH0j$sVRvjDVB+;DJIEjiHS)@rY4Dr
zW~P>wMuto)kn~ulr6hw61Ts%dwgBy8H?y!XH#JF0GPkfaw=gm?OENJwFf=e@Oh@vL
zWvY2%nwgPVnuSHOiJ6(DNs?uf87QwB8l{?=f)bHMqG7VR2eLIpZaTk<Y>kCcl7UgG
zsfk5mQnHz`Dd;p7Q`1CqBQpb&v^4WXbIU~2v{VZtWNXX}lMPG_4Gfcw%uLe^%#%#a
zQw@`njm=EW)69|$(+o{4OifIa7#WfDSfm($P8CWuNVYVvFa+&JH#18%G_y=hGdE65
zGB&U@Pck!4G+|hStS33i#Kbh&*fQA!RIZsCBpMhSni^Rqn;IIXn5UQ}CYhKSTP8D#
zAnQp=H8M5<o&R8*oRkQvMp7*-LC1HbSXvlcnphfw4nRmXWC}snV_{;LY-W}Ss+E!q
z(o8Lrk}N=*txYT}EmJH(hr5`V8Cse#rW!J5azd(vWD9eX6oXVl69W?q14Dz<v=n0t
z!^AX`lw`{^OEU|D6hkA66wo$ycqNi-VQgxdW|C%}Y@C*4Y@P@@4kyLLEYZZm!o=9b
zC^g9>CDGhGC8+?}VFsYe&pgfC$jHFl!~k>#fhG7L7vm%|qm-n?)WoDT%fwVhq&hy?
zJUP)Y*&@Z<G&Rj2$<Qn*)e=-gniwP}rI;tCSr{0lC0iJ$r7<QVr2(_lR0GRoBV$vu
zq$HC>%QOo^Gb4kPBx8dVvt*N0v&2MGQ%h5GgLovTnHd^_4w^AdG)^{3F*3F=G_(Yr
zvTR_QoNR7sWMF2LY-DC&k;Wv2q{lSX(7@8f*u=oZAju#l)y&Mm$j~?~*&x}(($LJ<
z*vQDlBGt^mh|vI9Pl~B|Vp3wFQBrb}iJ7TUvT>prsJ=>0G)V!KIhJP0paUTojw0(x
zGDtE=HcvG+NlmgaG*2@$Hcc`~Gfp!!Pc$+&H#aj+G%~bIGi7K%){~fGX_;zaY-C}W
zXkd_JU~CDhI@63TO%2RV%+d^#O+gj85n~pz9^%gLWxRl_$Hdsu)Y34?!qU<(Imyg2
z#URDd&^QTn@{5_7S&Cs|ib;xLS|TG-6FJ$`*u=ylB{kW=BFP}pIL*x5G$q;C%*Zgw
zI3+bPCB-b+BH7e9*^;RT$sW*-dJ{tn69bD>V^dReOT%P~WCKg1WJ6FLWMrITkeHg3
zW@yOBg{&tr(Kt03)GA0yP63@0Ws+iMVrrIZW}1|mWRaX?kZP7<VPed93Q3P)nz4CG
zlBtQ2ablubYLZEsL5f9+xq)f2xw(mjsfD3Min)nlY9gZsvK~-#+sGgdba*tVUtj<_
zQo__C(F~OIQWH}XEew;AQc{_ek@Og(StO?#S(+Ofrx~T0n53DQfhszqL`#EI^W;S1
z)Re@uv}6klCIw_Y7KWB4CP{`S#zw}VD#6IWJjFE0%+fr?%*-??IVCA6(L5=|jNve{
z9&=Dz+|ty<$il$f%)&6$#5C0uRMDAO8d;hqnwzDXCYq&LG8!ZFfX<IeF)}eRNj0=E
z0UdE*l4t-riVAcdlwo30ibbMDnweR08sj-6JwzVb$B5LmNJ=$LOEyV1HcGZIN=&vi
zF-=S~wgjC7lWb~{nrvj5WSo*@W|Wk|I1kC5l*E)&OAAZ$Bojkp3zH;^BohlGqa@>G
zBQr}&Lr_P?C@nc9$%M%XS&x~Sd5STp&7Pc;lwz7_W@c$=oSd9!Y?f$b1S+VL5>wJr
zjTqCA^_V0jo0?h}nx<N$m{}xQB&L`rrzEAC85<>9rX?qv8C#enS{fNM=A!5^1c{~@
zTbL%NfzI!;FilNOOiE2Mwn#KKHwB%~l4P7{#FUP#$H>&s0^}nzlT;%^17lMYOB0hs
zqg1oRq!e>dhtSa2GTAbX(HqqNw_rTQz%+@;kBOJ@6pI535AzA;c4il5UZ#^AM(pp|
zcd(bR8?$|2+sRhSX2SZBbr)+Ht0~JTmfbAn{QLQ9_+9xK_;&M^@fq^I=3T~{$ScEh
zmuEIlD31vDb?zD55!@nN=efGM+_{)J_j6WrnsfZ+*uhbZ(GMRLpfCiS*f`bG5x1!n
z=O*Ulzy`R$9DVr6emt13TU?NuoSB%DS(Tas8e3%8;K0VIj&yetSQUOF(n|A^OEUBG
ziophSJF{`BXOiRwr1dBeGkVO}IMw~}n*kdUh4=$(^;#mVhF!J-(WZ-G^;aUShApar
zm;ttW8WACnstqILw-6EXXhxuh{AMD&k7fXd_vaY1ajJXb4|(u)M!MjH0rvYlB7zLI
zLK7*-o)LB~d`b_Z4I{P~83|hrzoP+S2H3@`2*(zhHuTtH<Rlzh=tiK%)&U~C51T-N
zI32_L46BLoK9-RGON94PwV`{TVIvXVM>7J|`zwg>KAHg-iFFqd-p5i*EGNSIsM;{R
zf079AqZxtf{hvg5AI$&^@6RLbefTA4kQ4+?{4)r9A59yE_qP-FKDrU8-d_N^>nRy=
zV<>!Q9c;aWK0*YEiF(V3Cb@>d0u~e;R+iw)apAX)!Z!yYTmn<Bs}Gk1>C8vFBM~l%
zSEnw@3UdQ8&43l-Ab04HX$JBx4q0-|K-zX-PNo^i>;9_AH3P{VilAhHbYCE`@d8_o
z2MSY$CNdoYODiBlD(%@g4I_~fIZP6N0)byMA&GXQEs-99Ez}aW0pGevV#?Nq?CR2T
z0AF=Ts%FIHon@el*pTi7Cerapg&ZgdML{<%#*!R_&=q7L6Ew&R#N<TCeR{>9#DrW>
z5f_K3J3#8mH3T`Ei;!ywaz57w#R^jEp2%21tZ4uRDMKr{PC?G<(qtQgl-EtjHUw$@
zTaH{qU}*sqC~AZ&W3<*RNEgFV!j&<aHjK)6E8)r*-3ZjmcpWd-BnB=96$ZW)obDWa
zY`a)fStOWFG1f4s@P>1}=bFSdiGiUhq@{wGT~)BtIY8@nU~HTx>cJGCu3w3V-wOlU
zeF00pXy@`_TXaF}dH<Ma#(>T?;$>j}ybjM2KLWd|u$&nKcRKFC0IdlsM_<K)xh4o!
zHzBW>r+mRYiV4^Pl-L^%7<MzTiXJ(?sdgQ7$t34z$g*U-0ZQ_kAcCO)3e7U~m41*l
zL4;OV;n;rw%i?G|qOmSdLNx+gcoMrRNQ{9+gpK!$Ul=qv`6v!eBO|mWs6_Zcv&pli
z6nki<5m<p54<BX%m2$A*BZQr(86F{yv|tU@2ueZ|+j?GJ2KM*I@MLy#3w$R-5VZys
z)dQeA!%EQCM?*3?(oPN>MIXuzU07%$sYMM=Bnjk#2gML<;YsX;BN(}zqXCjW@rEdY
zJHsr@(Gn;zzR+w6XekB-D*o*;*vbvGh9)df5gUt8!xSNov{whs3~XUa>@6!8VagRl
zgD@q=7n)6`Ek%-?!5oI1@n~C)q6p-ANY?=#l%$lM5Utokkl2f4FhWpZ8WACAPU11S
zSc@u%<29SyTME&ua!BPvsJKL_h{*~+6cexoBZXBD-i>eg3rpgv9uyB~GB7Y5rEn@_
zRQqTM3~UHA`L<M|H=iIiKJw98*ea)ZctMTQe1a<_qHaPp0$Yhd?B#111*^gtNWuDj
z8lDCe$=gogo<pi&Q9S`V*`t8`J}9g=h8(0wjSSQ<MUp^nLm`AgreF(IVlO7c2vyF_
zkWj^2(h}%{65EJE^#=I-KRVt2*P?`ckpXBSL~;svt(IYmxpATaXl-tisimQTu^DJt
zqM1RmSz4l5B1=BxA_Fr66AMdYV^dSZMAI}gi$n|1vT_5%Wb-5wBNL-!^OzPzWaG_E
zObks-Oic_EO^hroEtAa5l1$A^EKCf|4AP9!3=GYa%#D-NQjHlWLX1yNw6Fv%A5Ts(
zHaAPQFi1`@PDwQ}Fi$iyH38jW7Sp1DY<x123vC$7A;ue8n4~17B&L}pnwnXdrzR(Y
zZYDG|FilBGG&C|yONwccM>gIRbeWfdnMqoTNs?(|BIv5Rv@~<eWYG0u#s(Hfh9(x~
z$%aX$unRoW(#$~1F_TS9ED{Y2%}h;A%}tC!mKYeNnwXg+#<a*G8=sN}x-uix#Ms0z
z$;80iAT7z%!XV8Obg7AXGH8W!vU!TJxp4~YvMggmb4#;CleDB1qcjr>(2aiPCdNso
zpmk;`=BcJ8F)gwv##<Pfm>VUfrX(jNC0nLinx~|IZg96SPc}<SGdD^$Fiitp>t@cl
z2NpQV$%&xLqKr}!(~?Y$k`s+BjZ+fMEkQ0bNKA`qkwG@zEIBDH$uiX-&CJXIyrL^P
z8FV*Rk{M`yo`G4KsbyN4g=w-OqY1=#6Oe;b%|R;~%}kQb42_M`%uUkF5|cp7mJCfT
zVp^n;jZZQ*NKQ0OG)Xl}N-;G{F*G(cPck)0F)#q#5@&8|VP;}zVwRR<%zYkWym3mh
zMXI@_fl+F*g(WDpnI<Qj8JQRvo2HqknWUw}v`8Tv54!Y*m?eR*lw*-(X<(6*W@>Dl
zY-DJVl$L5_YHny@o@#8Gm<qaKF{VWl*?5x_OJn1-#54ml3roX9bMrLNdLlDRQ)Bbw
zq@+~K6l1f*v_!)sBgV-P*QcczSeU1p8<?6WB^w%>nI)N|8Cj&7T9_G{S)`a)7{;_n
zARBLFnF?BnXkln%X=#vRVVsznl4hD{ZeWp?l$c^+W@%uamSSjXVhBq)i5AHwsTRh`
zhAE(p4i>3KpgT?s4H7Mlz;}vS#<Ykd8=q#D1iBl>EETlkDJczf7gn-aYKpmqfsv)5
zrHN5;YNBy!s-+PR^iCo(3&S)c^VBrZ#XO*ePKlQ0W~Rx>iRLNBsmZ2E$uTWr$i|x(
zo1_?+o10jI*7aGKSs0rpn;M!XnwuvXn;L;`KQb{eFgG)|WaNSbj)_@{g|SJhVQQi=
z_=c<$Q<J2W6jRU@lSak{pll_IY<!|ca%zf6DrjMqnOU-hWlEBvVUn4tiK%H)TB@ay
zWttIa?O94P<6emImKKJVi3Vm#$!RG`NvX+cM#;wJiJ&D~7O6=|=848JEh5Oq8(3Nz
znItEJ*5w(R85n|AAsQN|8YNm9C0V3e8YiV0B&L`e7$w6B1@JO+Q?ukWQ^VxsR7=y;
z6vJfDqA}xS%S1~fBZHV0VPxYIQ&UY+z#EJ}1{oQpCYze4m>PmEu}VuxPBb<!NiqV(
zB`fsOAj>rK#8mUtR0Gf@ng$lhX{IJ=pjC89#wHd?X=w&AEkek~gH}kUrluJhrI;py
zt{5~-HA@3stqNM*Xl7_+nre`2l9FU-$tVE{91F`-OS43?WDBD-%Va~)?uk^BWD7$B
zgCxsT&}!3|7C~g=6O$7`x1(96rkR);Sy-5*fi~@=SteQ<r<$22rkWU<CZ!~$7+Jy+
zCTOv!xp`VDC>5I|CYf0#Cz+b27@4IerKVUW8KlOv2p}7unw)H8U}2n+nwDmgXb#$>
z1G*e6*(^25AjKrv*uWyqG}Xu`F^OXf#Px}$rUn+NNhXP)RmGNurl!WpMy9Ezpk?i*
zsY#$hfgjm;)5KKJ#h4bBrfI3>DHdrKhKUv?76xYKMk!{d$!4aBX2vEaW@cv0k`Uul
z63s#T3e3||O_IzELDz?ZqR1%8GSSk~C?zp5riBmL_{5a76a$kaOCtkQGYeCrB+InK
zG*b&>%hZ%KW5YDdw8UgngB0@=6GjJ!@dgHo$;pX^hDK>gpbI2Zj10|96H|>+43o?)
z5|b?qVp@2SjW+{btd?wHX=#vbVhY+YXOU=RngY6}(mct)EXl~g40M5Qq8ZC3i1CS_
zi=RL@R9Tp%f!1cH8kr}V7+aWGm>L)vm?W9RwD2GspJI}d2&$SAEsV{Q64R1FJ2fnm
zEG>;wl0my*Qc{i0l8p>g4aA{Wnx<G<7^WE*r=}T!Ht3j}n;WDgSy(2T8d@5dfUY@>
zY2ijT-Z<G9bZeAJs=2YDp>eXMg=Lz7iHTvFnMsmiQc9w+Dd=jwG=pTe7ZBH{m>HOv
z7#o{em|B`AT9_rJ7#JBCq?#lr8-n+MnZ&ekAse5TmXwlWZeV1PVwPr<XquXsoRnf>
z2wGsCm||*akd$O(Zf<O0m<+rB&%ngk(9$T?!XnYw$RgD;%{0X@(KHd1e-jhUlhRCM
zS~!u7H#SJNut-e?t*|#wF}5@{PBKVJv`98GH?cG_Fi1)@N=XJKK|>~JWoT$&m}Zz}
zY?NeZm}-$?YLJ#}mSmJ_VP;`uk&<L?ViMEBfnq%9>QytNBm*-8i`2v<(-cdSWJAz(
znW-s8NvVb=NuY$1W^T-s2nn22)1+iG)1(xm)MRtR<dif^6Oc<x6U~fF(~^=?Qes-z
zk&U-VOG!?#NHb0|H3wa~Xpv+9+BRlsnPQP-V3CrNm}YF2W?^ZR!W0cLJ|z)!7haO3
zfvLG!lBJ1>xpA^Zl7YFAL87HG=&HMz7B*z#Q;dk){l_)|Vtk@;T9T2uSxQn`YKp04
z8mLe;wJ=Eqm078VCZ=gIEv(4K8yH%cTN;@fnIxr}8YLzfrkEIk8nFhTL=CEHjSS3F
z4ULkFn6x0qTUr_#8yJD^_B1lHOi2SJvNU5uixi6#14FYEL(7;J7G&eiK${m*j7$uY
zj10_8Em90XmrExmrleY?8Kxv9r6m~~7$hYnTQIpoj86nLr&CNV%##dL5>1klOj8X^
z4U>%xO^q!KQp`+@V_KMzjW;#5FiA-U?Y~P+wlpv>u}lMP!81;^u(V80wKM|VI+>D|
zoN6KjZGfAYSfrVy7$l_`T3RMs8mF2VrW&Mz_jj1585o;b#I!IW8*dESFq2|vo@$T=
zY6Yg48(F3%85pM+Ct8A<0ibIllhcgM%$cD#1%n#nrk0>Z(V)#T21$tqCZLT7W|jtt
zM#ct~sWB~#$i}Cn8Gv?En1L3bgIaRQNuW!eL2Jm343kol&5e_jlMRd#&AFh}iD`0@
zK~j=&Y7+Q5%tSNO<P;N&G$YeAQ!~&#g()#D49Lct7$zE-7@3);rWhH3?sZKxvP`r{
zOEEM6?@vlhwJ=NsT`FtFECdOA<5WxY)TC5Xi?mc@(-ea=V@ngz238{jL(3E+Q)9E3
z=6Yn~lTC@+-@xJtF&?z7GAS|D%plRo$S~O;B^g{ir==Pt8YQI}8yLql*C88kU|?u$
zY+#&hVP*unCD<g<z}Uhf*)loR#KIV~CjxY7rAex}0hd3-c+(WiM5DyCM9UPjR5L?R
zvIgys0~N4lsYzyuCNa&m$i}B78W@3-MsixBg}G_6VNz0(sexHqvVoC-ak8mp8fb@z
zfq}7nE5vx?WD~PQ(B-0upv@Tu#z`iioyAFsNhzr*sb<EBG0in7##>sXrW%>1g0^9#
zB%36HHe?v3TBN3>SXde*CZ?IE85vuco24*IL5#OdGBGwZNij;Zury3FPBSwyv@lP!
zFfd8AOi4*eOH7Mtu0}TAFflPD$<i<}5w!W*z``69)5dAZiJ*&O6OEHnERsx(k`j$g
zShyj^8yFfHCmI-<f;PLE8YEh#CZ<}Z8kt)p8k<=pnphaeG*=-TZ)9ndnq-^=+UJp&
zW@Z2?pG*u>KszBVQVi29(o)S#k}cCL%$U<5#wR8lo12=LB&MdB8KkBdCs}}MEkpAZ
zV^afTBV$A3nC41k<5SI(LG7~CWKf73SR@&z7=Uh^H?%M`H8(IdN;Wk$NlQyjP2#u-
zF+SBO*)S>5Ffk=9$sjS=#MC?qw8z*a)zremB*oIqn2U>nA(-JU1LqZnx11|DYd8Zr
zRXKigoaI=^;mIM({*nDC`z)SGjD`Fvj9=OF*qzzM+1{`nV4K30$!5zY$oiCZ7tcP%
zldOHLNv!6q+${H5HnX&|#IP8!uy8+SzQMePsgk*Y$(K2VS%c{>(?!O){8#vX@UP&n
z;SXSxWK!fP<vYW-fUktlgHML{1MgAZnY_8Yj=W+#uei4}x-u>0?&gl?Hs<Ewy2G`B
ztA#59%b*_9QU)C?!dQj0nIoAX!D4A<W?-6XmS&oooSc?qW^S1TN?j(F<_1Q|DHi4y
zOwSN%30?5c_z_8M66j7`&<O%bhAE(JHHk?{Mxdbwi_|nD%M=4<UW8i9#AGv2^UK)C
z!qUtv)!01A%q+#o*gVD9B*i2-)qt4`p*GPZ$<V^U)X2ipB+10WG$}RN%)-RjDA~ls
z(%8f>)sQh6q1G}rEjc+g(bCi)IW^71BGJ?=#Vjc)G0nu(%rMz3(SYd%lG-GrWJ|-O
zWOH-ShHF#Mrv1cJ1G6+sgA@ZZlT=Hlg$T8TF8pSEiKN!p$SBpoz`!8U*vQ1vBFQW%
z)!ZO4*~r)=5p<t@GE*m#TB9UG<D_I`V+->%<D?`*&<<WpBSTA56LU*TOS2@VCM2~4
zatq@xB((%;b0#(|=14|JdPp=jGfuPsH9$f8uuW2v(-Kn*42=ye&CD!KO%l_PqAk(b
z%*Z&&+`v3J#nRB&G{xB1IL!jouunEfGD<cuVzfqff@z{fib0Brv4y1(Xon=Im2a7p
zl4xp@lxl2f!uSqZtzoi}af)%0QIc6wvIVHbu}n-(vPexfO*2kRGGX*XQfriCU}2JI
zl459SmYQm4VP<BQYGh%WVqlh-Xpx$1#_$wbt(k>cs;POBp+TA{=)UhXOS2?U`^wBH
z)x^*^g~<*{t)a2GnUR^Xfw4teVqzlbbP3}W&`}MBCMKYc8sh?FwMMClhQ_I&frb>5
zL`##j<digHqZG4b%M?Rn^E5^Qq~J9)G)^=zFg7u>G)*-~v^22*9jK9<W@>6|VP>3a
z8G>Z2L7I_8nx%!AVWNozs0o>7nQCTcl$w^9W^Qhll*AZ-tk%*bDbd0*#lX}!(J<A(
z#4Odw9CXL5WnyAlije`M9<o}qR5OD#ixe|63p0xpBTHio%S6zv>t@LoDJGT{jK>jb
zEz{DH(@ZTaERrliClQ#Kq?&^69k;YhGBvYIO)+BhMtIFK%^XzCSehGv&TRnoG7^(b
zEDV#(jVz4POihe*kd4LPV`dUYR%>FBoRpYoX<}k(WMrC_Y-wr&IvpX&#L^(mz|w?q
z3z8F3Q_PK%k}XY5O_P$763q<~O)X3<jZG7cjMEI0EzFP-q-Ba_YO<kOQgU)~vS|uv
zK*b_8*}~8$8FZO;qCqkv1CkSxQw&Uv(vr<m4U8--6VnV$%!~~T4NWXflMO9WO;Z`p
zAgi@7umBxTk_bva$)?GM$>yoxZJ{YfpfMoEJS68P8<{1ink8CTBqo{}CWA7$sac|_
zL6VtaqH&6$B~p5{Og1t}HcU1H4RV05!cI#{N;OFa51ASzrkFEyAUnapBE`%k(G0X#
z+}P5>)Wp!##KbJs(9+Dv(!?l@;XjfSlG0KwERu{8Q!I^A4U$q*4AM-K3=IrZj17%a
zk`oifkc>@AHBK{51x10mrKPE5vWW?J`)6{Zp?Ol0u_<FIva!i2=1Jzs7NAX=W}rdY
zv_uQb#8i{iG|-T>sT{Jg_!}*Ze~^q#G_U~ePX%3ZY+z_<W|^3hW}KJ?I()&*AkiWv
z9m!bBv_x|=gH(%DGfQ)GBV$VwbHfx%V-pK=1H&|fWD}+^WVI%syMfJ(l9Nr0jT2KW
zEzB&93@pvkj17~G&5|q`51^<uGD|g2wM<G(F-|fwOEd;GvW$&W5)D%<OpFp4CLpWD
z-_2oSMW{`*Fb5T<DHaw+Nk*WKg{g&+Ns^Iia+<N3iJ4^*Q#C@ZrA10ol8IqTVzQB;
zagr&>W<&E71MrRamX^k5OcBUxjVwXUHqia=X=x@&2F9RU)(ulkjZ70w(h^M>?jx(k
zKMcntilo*&6*QobWS#`N@!Jx7%!x^&v8e&*wsOl96UIeI(PnOGWNu=bVqt0uYC<L^
z8Kk8qrCJ!68yF;~CYqR|7;9{hVq|QVl9Xa<k(z3r2HF~H1ggf(OjDB6QW=p;5i^Ta
z(_}Nt6!Sz-qdV0MH0YRYnPg&No@i;7lE}z|<XqDvlcdyS%S6ywDTxLtsV2#$=B6f=
zW~nJAiROlej8A#^8L+jgur{Aa5k$Cw&}a`6a^0G0U}|PyYLSu#>Q<YZfR2MmF-SHA
zohM{uVwA*i8Ohv~lteRwG|Mzg<1}+)17l0GG&6J12%U+!WwN1>Ib$QTT9B_3%~Mj6
zjLcF}4J^%*&63j0K|799QVf$)7~QlGO@S2C6f<K}LqlUz1A`<(OLGfjP_>Z;x>(-a
zILR0(m4U{m%~Onxjf{<wER54q%uPVOW;25{QwtN&Xe8qUWG5JdvPGJarLn28fq_wy
zv59G-VX}#dDJU(cr7&wCsU^^pXJSE8n`C4PYUrdGm{=s4Cz@LrnItBI&cuN<YSWlb
zBB?bpv@|v|wn$4(1I^Evo1__n_7A5RB_|~(ni?iCD=;uHG?Nm|G*F9hu4ST$g-K$H
zfti7MijiTed0JYsfw8Hnv7tedrKyRjB{Lh6+SF8YV{_xAv}Dj(KdC8}rb&sGNuaVU
z(cIWP*@PLn&`Gp3GEA{BPfSZOG)YM`v`k4%HZxC3O-nQ~2X%{?W+A19M2oaUQ{yD_
zq$GnRvy@b0OEU{Y6U&se#6&|21H<H8gcA}IEkI`?B$=6;Cs`(@8W|azTNs-gStccc
zjtDVKVz`T}*2K^($qY0Zl#*m*ZjfqZoRVU0YLRGS0vZW6VAz7B)-uV&#0WHnW&n~k
zHL@^IO#@9~S*Dp9n;WDud`5DvrDa-@fsvVMl9{=osex&#rJ-r6sac9qvPF_biivSN
zvatrB05vzVG%+wYOtVNfG)*xD9hQ)0l4NRWk;<fwq}C$M#4yp^D9zHy!qnU_)!ZUE
z$utRco`tz#YLamZlOwWP{8K(m63A*3%@ZvRj4YB&lakXwhqV})7$zATCK;qynx&ej
zF<wDdYiVX=U}0`<X_0D?oM>raY-VnfYM5kVo@A7oWNO4P4Oy*)g+Xdcnq`V<N@|i}
zsu}2DCD51;xM62t%v6e`7IXwis;OC;k-2G7szH*eak80lnz2ceL5itCnxP5P2ZUP7
zB%?%wBnv|$V{_9KgCxsj1Jfi+i<DI3L=#I(3nN1&<o3K-s%cW1g$cMu1sQ3cVhEaE
zFic4?GD)>eWwJq-n`o9~0h)3%GqFrfH8C<xGf1>BF--$i$EGI6CYDTY$ZCy@(^A3R
ze{++xR8s@9L}SokxIt2yxn-JxIio(3S_0D$Oai<dix_wq9x$+na)ogGXA|RF&zr=<
z%RQ6j1amo)1;Yb|2Q<jybTqOlq?L_`btACdHlSSxa5n1gIIy*ONEbw)uN#5uM80tW
z)f8;&Mod6MP(%ziVyqis76Pvu5uT!nZ#52y%N&vXhua&PP1dcfgbz|rFUn0UDaxz>
z?OlK|VV9D?!ZQV~2sJnn;`#_COf$A%Bz900BN$mci3moL4^oGF3ybqLn|xbY$Xy=>
zJH`OC3<(j4&`nL~n-$Vw;wVe2kd43=l*A4oV+19aKM_GmrS)ORp3rRaYGp=WfD2i0
zhrIg(TWC<e-VVhCY{5zFfH_8R%C|y-bAltD3{IuJG|+?sN>!k166%P^-B2x{+zn&G
zHcyh3Fkzapg(0!S_84Kv!VL~X_TP2*!jRPaim;_5nDarKXR6S1H*u@M<KcVfLGb_&
zL{gU1qZ)xND2ZJUj$`u--nF0j*Mk$ec?KnCGcYj3(yYPI6xdP&+C+kUa{;8-AYx|@
zELM=C3bDKrtt3X0Kweb}--Qb@1Y2YgJD-HPu`!*9bWdPs4zU{>QGB7<<k(UTy2#Lw
zGaYRgNfOd75^OmrC$S(gIU5ud@T3n{hTb}Wl{iQh8$vs_kR*2M45I|$xCseK{0X1L
zs|?|l26E|%@PKAvD-#h{g}`>vLW2u6jF6HXEIjaE719*g%81@rhLl@`a|5E;h#Y-L
zPQd9l<m`ZI3e45y+~lFfz#_YBt?w>3)P0oy)9};+_;Z5^`aVh|&*AoiW|L<t1L4X5
zp3ISwGmcxf;Yv|M6l;P)HG-1x#8DaGuT@FgNeTBD&M*L7=TVOyn2_?C@V*Lc#Wf<(
zhzd+(Bd`T#8j(vEFp3yvDM%56H#n)(ZbtS5c>O;Q!(0ZwO}r^Q+FW-yXK{qG3$yNH
z$z?WVyu&b;W;HJ{1~*x^3X#_gg&l+fEf<jz6cO<Z(~K>KiCv6{5yRq;+q#4opTtuD
zk>1I~QVYVIuh|sXDo8}*2J5H={MZQ8(j2Z9H5d`aHp&1BiXqrSli0PF7@^7b0-Rrj
z=Rd>~n)r)zLo7RH;NC+X`9Sf7W|Kv$04Pmr<Gsoia!#H;<V+l0)a~H#Gzn3J8j?^Q
z*mYtHLSomKVgw;0=pI*I2K+%ta)N~T3A^(_qaOT3l-{tBBBX&6)SHyxAqXF1K?_8<
zI8Gz51tqa-X)%J5$%L5HNa|%wggpVu;e2H0aO8Rb7NYU+#E#K@!Jape4Z#|wL@pr4
z4AVqNn9lx5ha8UV3(Y3GR$fWYNDf2JRJ86(0&@2SODcsQ-vtX!#K0vH2^6jyTR0NC
zQW`THqlpMdQm;8g_zNk6!QHRf<k-qXUI!3T{2|vlB(=~G+OdTpvCF|R!jNqOF=0rJ
z4j{q<pk&BRL^8zE0DwmXA{oL|p(jI_I8p-%t{Ynrg4PBTv*aBk2${5q2|^NYT}Px1
zZ0^@=@^0k<jR_lb=Ava}q%mQn5)Zl3M><9h7K%tJQG*dl0*4XUf|A(f{g^@N3JJ;?
zf_O?sQU`?z`$4nGw3U<a;UL&*Eyy7muy8~a9;m^H5JxIhAX>47AF=xvFv3qLpP29?
zan=lv<3V#19H4Y)h%X&tP0R2jN60S`k*hXr!AR^r4UAx92Hil(%OFhEWJov^K%vP_
zW@sXhD<e`PtPDg?jWBVfvIS*y9$RP<yDbGHG`S=oi4yNrE~%LsduSquf+iOu2SXIY
zRYsPBEd4C8ET$~d%rBU?GB+~^Fw63%^PBK<@ZI2B!dJ%U%_q<Mk@o;^A8!n=7S9i!
zV?0xMa(QBSoOo1t*tnlF7BFsMJjuO;yN&4u(_jAm{ExU}_-Aw5F*Y(zV|>cZ&G?at
zl}U-of+?130#`IsH`7)wF3ww=8yK!~_Hrh2+Hmr5yx`c$v6!QdBY;DN{XP3p_DSp+
z?56B|Z1>o<ur;#9u^F*(v)*Ri#@fMJ#Oli`&+?h^8RL4!az+P64z$4pBUa924yKaS
z;u6H6VhEOQ3alxspPQJOr<Yt%z%rN1kRb!j6q;}aSUKf6m_Vc4iRqbn=`62BSUJ^^
z1oTVNt5{yivT|CY3F_x&m!wze6=$%#MAwp%n#A%#nw8TOSxZW4l75h@ql>RA%X4m4
zPEkmBusjoH<y3{RVRvk^Je6VPG)EOfgv=9BR!&W*B)m9cxv#>?>5eXn6vUvZFqV6|
ztelYq6d^3StI5h4h(|TT@>_)B7gpvW48MsUW~mjaEIZ{{Ic<@{EVUvP8fJPW6(uY?
zAojpY3PjgPAHj@=pY#qYq8ZK*r3LvcREB;-P-;b-whK#~x+u25&O-;;Qbe33(DDnU
zgQ1ZqEwFF{YdImw%4x{Kgz0;RN9wGczDP2#(^Yi!;iq?kOkm_QWaUIYj2VkMU3f@>
zb%+t817-|J2g4VlbRZoY%jm1k${7kvXRu&J+>L>J(mt~vatg+#HZdm|k;oX3GX)OS
zER4wc38sie1;rw0%pp}gpfNqTMa;1%7GYP-9H-C984LF(rXt8(6T;A7HC9e<g6f$=
zP=XKB*vx!{ky=WuoX&WR%*<!jh9pc#Sq+;2K=L@e#zmMKid<0O)507^AP6A6EriMO
z1cCsfo;iV#n_<z4Fj<+9n_*g*RR|gm3v*cI#r%$-;ZQBi?@d@a)A2+I(y4|BxBnmz
z<4BsAe-cQ?pn3sevL}Ib3{uVPg_2=lKKZ4`${7vw39Q^gs(`?~Sh!6rMXIcvo`jUM
z6eGJHi=imFkYzfu>v5=NnSmU5SQH^;7nU02?1EJ-OD%F#V^IQc+OW(+PW#wYf=6l*
zAyk2!_Hn9bspQ(jphaBE2sy1`F%T))AY9Q*Ah?h;v9xf@GWZkc6rxlKvT`aylSpz-
zYGNKsA$K8zB3`ZN?X;qTT>aeaqJmsdJ8c$vo1>^8mt`~eK?YF_GttcfHQsWwQ&N*a
z=FEgN&){uFeUNN&eqKpYeh$kN1_lN-4D&Dq<XAbaIhb-2vr|EH>BaiKP?lb1azQdP
z3&egb(&^gTOs{dt>SiYAFwcWD6EO8M3q#tva2e+LYM^!l-j)uiPA@>K(y=v&P?`-4
zcZtz~(rlPOln$h3149EbI#3#R4~f!&Y)3CqI-o@$D5w~28i1Nuc!N|IWpPdoq=>_8
z)giSu!DT1d_)cwB&TynF7_dbJs89qcuGM1Y3`S}dVp9tp&AF-zD!lQ#8dBGS46ZO{
z<xC}DFjBby(!$UVDgE$z6KRN#;Q|pJ1=U6%!%HDGG+wh2!)YKL49!GoK}n%449cvW
zuE@O;P~nnXPylJS=@l2GCbMjU)EJ1O0n~#*sL3nNWLXBuy{JlxOHwlPO7t>VmhdvK
zVc=#e2F?GM@hEby<x1w1W`D#spVga%pQ)H>^qxM9qI6V%!VqXOZIzSc4CT<~Ohg-&
zk3pJW12<1}VH3$HM+C!i9;Apso2Y~eV%3Ok#E#fQ+b~A#825rl>||Xg;2VZF#&?!H
z<`M*auGeH>U`VDg><MXavS^hdeRTt@bq6ZzNQoTOS$%A=L+qJ%n6V=Ui5-U(_+p3D
zRo|$I64m*dO#!Xapviaw2hwAiH%6<y;6VtVOF<u+CTs?_z$EsBKa9X+B_=RQU2TJP
z#sn=SG@I;Or9d;uy7-n7Lo0G!*nlS5buqBugegM}OqeJR&Dg?`*rN<F!jTa&$S;dO
zQIa^1Ouz%6X*)@hi(7JYG<=X2R1{zfJ7Uji#0)!MNQSmKfG<N+Sll9eTeHcfRYH<8
zmcx)U6Rn;~L8_<Vc@$~VvLLZ2C9^mm6b7)whe++H$qylpT|c%kB=#^$j4<TbLQEK%
zlUQXD2m#F|w^niV2|LKDa+Gj{c59HA!^1~2P(u=?5<Mhg;>g2?uwDqr1Z-hR*<Kh~
z{HYOdNMh`TfemHi3<1r;Rx!eR0$@Id-86_AN{Eh$E-W|*?g<bD)oKKG$iQtyUI9^s
z+#iPJ1SA*WbQ(@WU~UGDVrXcp6lWwFst|j4D&`IuNpN<+za*DHwT5Mf4B?>AY_ez-
zA-S0azZMmgmSLd@Z7`ySBvcUA21dO)6<ZJzdq6BkiNfeWL=aNCh!n-+p!t7c^x_1v
z1psMP57uH8rE-D?AiVfO3q!a#Qo)R30=9r8_9$G8fMnT3Oh8&vp=d_&19<&EFT+s=
z)=g|*S<3j1^S1MZb4znR;#kCC!feIF$S@S{VrjBy)g~i5K{rp4k)4oqVoL?YUOs?P
zA~8+`rvlA63-L8_@b_9UN+itE0Ll5F=AjnJ%|qC16{$goay1;bkR$e91&sW|SPluf
z89VWX9EHt8WN(AYa7~gE9rhLtq+5wr{y+rbWjKmXY(Yotoe`Kp2kG5u;tx9fi4J2g
z1$v@GaXu*Q6iE*|<b_M{;u{i71i}tkC$_L7_F4nXu!HtWJSy-dJ4(Y2+4-O@u{=3l
zV&u_fSm?p}j;O&06GiG0BWuPMfW+RcfEj>X;CxG96pivOF|r3hhnFaTlAj^oJv`VN
z0I<mpSO6m08K^;s5Jze~z%*kEKw@vczz9H|xx@q@sVNYj-!-#aH6%E7Iixu)LH%N3
z0a*qHCN^pC&>}2cU`YtdM-3d9BrF^VbU<uc)j{jvb@6S-fEfu-vM3XTP*=buu{#GY
zjiMLkNaP*|vG?a-L>42oxbR89S6q;|3Ld}TK^43jsTDlRIxbk~L5p<Mz=I0HswotW
zSc8tpyMZu+ZVx1#;}1H@DtHvvgDNRiP$@yuPCu08fTV;R+Csu(dHF@Ti8;urj@WyT
zFoO=VJxvyW(2-h1Kq_8X#G^W2vq`5_MUvB(!;mu)R7QvjFl2(t2qw115d33jC@o5O
zDTJ2h;NpnF6{HVadL#BWCyYSjJ`YK6cx!euDs;#|F4t_bX;mhpkV9^e!V(*-I6w_E
zm?)x<L)MEe<UnT=5_3@%M#w>%;<9){j?^7z_}vdG<djG*<X{7CpcsIK9<)3|4LqnI
zEUlxAM_>y&VlUys47$lgBsy~n3pr$OYx45XWdQI0kK<M1e#te1Gnhk)?IG(TmIP*X
z#@7sU2lNDhCa+ct!b3fX@iurTLl?gD0VQtXD$$}BF0PNm1Z<IPY-yNeXl`n0ZeX08
zVqlSMV40SbY>;M>m~3L0mS&!oYLIG@lx&iU5y{YvGny+R@ihWSEm;Wq0aTxvlU$#X
zJ@Fooq7z#H8W^RSrllAdo1`R}8JL=-q?s96B!iBtHZ?X#N;XJMvP?=zGfqmyIZA>*
z0P)vn1V>3woDV8r%t$R?;AsgZ4MM6-v;+tdgq1HS8nK0(Sz@wfQnHbWWwNQMCFr`!
zG)qhKL`%a|^W;>}f$?c3NoJ`j=4lv758D3JTvCWH=}}g`ptv5ii`5iVvEkoL4V!n<
zMPI>-5_E7?XrTue$EF)w_@x;dfG%7!PP9m}OtUmkHnlKFPBAgJNHIxFvox_tPD?W}
zvNTG>5`I6x<uifsBeDGsACSfBdr)W97?f@CcUG}wf7pUGc-;n9gcg8saisDOrWsrK
z85tUxB%7p~n3!0mm?l}6rx+w#7+EAGCt9SXnkE}1Cs~>pni(Y~Vx&KoLSn)Xf6m1m
zYQpDyP|h_XHRocTw}LhT(1H#%=b~uD7IG=ZDQSrosTPR_riNywmWHP0DamOjmL|!m
zrl#hWmKMgA=4q*BDW(`92VHGMAmve(b5UFm3OGYj0}gw&3kf5<0f(XyTfn6znkE~W
z8W@?Tq$L`sq!}iq7$+MUr5Kndnx&bWni-lH7$>HrSXy8P9HdF5xuBDVMIK6%s>!j{
z05m{{|M)v>g%%`<kzM8?v||fFQ-hQgV@t!dL?csUOM^7SL~~<HbK@lQRI{`c!&GC-
zRL}(`CPv8^A;>xpl4<dWAc;eCSPMOb2S7)~=o3CF23yWYy*Qk#vJce=Y=N1anrN7q
zY;IzZWNdC?m}X#Tn3|Gi0=hcc*wn<r0+hqeP0UTqF#?lWhKRr<`JgYt;Q-3cdL(CO
z<bh{+ND`Bsku_oqza(?x)I{?XOOv!jGlNuP(<IPMnx^JvX$I!W28PC_7G|dA<`$Ni
zH3(x9B>eEtkWp3+!uOnkaw4eNtP84tNgD=2?p>1-a)eI{PX=9zWMBlkV#d-qHPO<@
zzzB55phcotqGg&zYGP`lg<(=s3TD595i$%!(c~g#<qJs-u%;`j^FeJF9Z=ZeZ@XYC
z3SrF;c-X-eq17XBaiqo{Of$BWN9?`x7&(^(a%=>ZgAbqc>9OFKmw|yniy@1Fe<8mU
z-($WOK2_dhyy?6gJS%y;xL<SkaO-lN<I3j};M~X=#POM93Wq8CHTH6L3AUYVQLMjN
z=djwc++(R{QD8pEoW#t`w1ml(@fl+~qXxrChAi-m0Gx<v@j<@G&@$Q7$kHG+F)7tB
zG0iN+!V=WsGfOhHOf@x3OffSwO|vjDGfy<tbb{Q_W@?#a2)atoEEROsin)QgQL3q#
zp`nFYqLHPEv1xKli#M|IrX~g^sVPZ@2B5oRQcY4VEK?H=lTs}#3=I-ZjLa<4Oe{<c
zO)b-y9zu*avP??^-K}S8m}qEbmTa1wWMrJ0WRPfKnPhBgZfP3R;)QHHNV8E&qG7V3
zWumF6i7Dt3awE%ROLODYBr^j;V}rEB#8g9rM6NQ3@g|8W$tGsW2B2#t%#w|bjSbB~
zm)2V(gYG0Y2f5x8+4z)X3(!3=hG~h(X=&z3$;rlsCW)!3hK80&NruLTrYS~gCTV7d
zDeTbe4AV?4L6_Pj8W<R-fiC+qH%d)QNi$A1NVBvsvNTAGY4JcdJ~h$YA~`WJDKX8|
zAPIbhagtGLim|1op#`YmH3MDiYhZ4i1iNn9!o<+hGA-FG*~r);B{kU)bgPAtL6QaN
zz7;bw3(J@mcVy!&jngbmEiBSNfn))?f7~R^Fg4Z8$SBFg&^!%vw@+G%ahkcM!fQz2
zn1ZedN-;MEB?3c>G^1n-b92z$#6~GbsivkzMlmgJ$i|zSCm9-<Cz^w=axyecwoEim
zN;NS^HB3w~urxGCGBh#(U-QHq12LY^<r*<9uE@rxnp&EeSfm+%u9Px0G&VO(N-;_^
zw6HKYHcCq~PEATSOG`4cOf_Kq4>8`r5Om>klChbIMUt7hfuWI6Qev`cs)?~hqKQ#j
zN^(q#3$pQM#-?d$=BcU4#-^zz28Kqd#uh2Yp!;PkQccnf48YfQniv=v2`qvdZ<%Ul
zlxAXJVVY`YXpwA`WN2ZUmYiZ_VPbA!U|?<@)8dR`d`c>)XJ%=bXp(G{XlY<>o?>if
zXku)XYH49%W@2DrX=!GbXpqFY8DhMJaf*ehfw4L0YCCgNL&IcCGow^<Bl9#<BV*&V
zWTTiCCuHN3Qb6|)TUeSWnHU;dm?T*wnOGPZB^f6hnORyInk1U18l@$tB$@CBLyS+e
zv@}jjH8M|4F-S>GGzVP-4NADipev6JjgpgMS{#v$Pqj2Ourx5YOfoPvPX^sdYhYxU
zXq1|inrd#EVqs~SmY8UnW{{FBehy-MB7u8pVp<$fjJHU#NJ~pGN-|3}Hn&VPH#JT)
z16}x>WMYt-Y>;SVmS~x5l9*!7bOU0%VM;RSK5e5^qvTYRL_<?Uv&2M$Gz(*MGXqlt
zbBnZ?7JFpllZ=y%&C^m-4bu$GEKCdyj1rAa%nc0EjEzmwj8Y7Z(o)Qm(kv5Ac%V0l
zCm9-BSfm<RB$}iqrWvG}n;E91fiCV%wlGLcv`kEiX|Y2#9(1p^iJ^&6q7kU4Xq0Gd
zX_S&?YL;k_VrpWPXkcMro@APsYM92l3gY@iBm5UX#<bWX8=q)yVquwVXp(4YW|Wd*
zoR*wwVPb5UVv=T&YG{#Slw^>cY-(U>kSrn(F&=aSrHOg6VUn>?nuTGSSz@BGrKy>L
zNt&^Raaxi|T1<-#vhgVv$tKB$21%(VW=TmFNhyZLM#)CTmPv^wCduZ8W=RIghQ?`W
ziD|HV&=Uz<pA*w!jck0XMY36{p_!$Lk%fT;=oVj7W1|!!qqG!DbF(B<i?lQg(0%7g
zhMaF9t~X9GFi1&EvP=WtRc>TzlAL6enwVl~VqjowYGh;_(_)2eyoH5PilHg!mR{3T
z^CYtr6H_BgQ1lsrZr8I+Nl7$GF|tfeG~s|=vu==VYM7j8o|tBCmXeriYLRGcV4jq0
zY>*7Pm(keRGN#26*?7<;OeTiO7Kxyd6+_d+6vLz>lf*;|1GB`W<YYq=^Tfmy0|S#p
z&RmG=&67bLU(?hiOJj=^b7OOZBtwHl<CH`T14BbYQ&4$tfo!~yQ8MTrag($(W8+j)
zQxnj@Yg$sOnW4FXd0G<aRyq>{a|;tgCRl-NkeXtiXq0ShV3=x{YG#^}YM7dA1iD<*
z#4s^2(JZFL9NBo#C~aD*c}h}JilJ$mskwn!vN`Bd^JGh7^EA`MlvLwn6XPTkOJ*;q
z>l2NVQxcOv7hstgCK@EC8iH<ZG&M~!Fg8mxGcbv1F+(=qAkE0wGR4q5%_7Ax(a78&
z$;i~y!qU*d1T^@Wm}HV{X_#nWW^BOx5@LLkp<!}rvPG()u@NXAg08YnvP?BMPfoQk
zO*KlfjA=1NHa<DY6jY-mrx>OrCYf8Br5L7~86~Eqr6q$dOEyY0OG`?#G)+q7V}lrP
zX<%ZRYH5~aWRPZRU}$KXWRz&0WMF2LWSWv}o@`(o(_(^be4@DpD8!RelPt~6KxJ>D
zWvY=uvUwUP$P>*hO^qxplG02~8KHO38>A(rTAG?9C8ijprkN&NnwTY<fZSkYn3QB;
zY+xGGVvKCOiJ4)tA?S*{L=)pwOM|o&W22-bOJie@Crr|e(~J$06BAR7OgIlfT%T;7
zXkcbyoMxE_y80|J%_2F~GC9%IzzB2=x@nSOOp6h+@fPMLmd3_uiKZrI$*D$$X5c&G
z4NMHuEG$xtk`2s~O-&6_EDchGk|4$#CncL0q#CCg8d?|`8Gvp(v@}n)G)giwOfyL_
zw=jumF+?^#DLKW^GA%L5#N5){*f7;1$ucn|G0DQ%%+kWpBF!Q((a^xa+%(mUaSz1!
z6iYKp%d{j*3(#Osim{oIp=qj#rLjR`Qleo}vYBN}ivhCnDW*oLrk0@V+KdcR64Q)R
z(+mwv(+thcQ_PH0k`qnM3_(|e8YeRPLX0=FOiVQe$(Vs6Hr3E1#lYOeIK@2KC@Iy%
z!aOaeMIYICO9OKg1IsiM6VScnW)?<?md0kL$>ydh#)+W&F;h~KO)bsMEfSfawUvnx
zC^F2GLH9tKTO?YV8e66rn_C#ASSBV}n3`I|wCEulZ(?AXl$K~{Y?+dpW^R&XWNc_;
zYLaShX=t2cWMY(TVqj)!XklS&&R7m{y>V)qsTt^II3v^KRP$uhWKer3#T3*!HZn*v
zOo?gHMK+$;`735li17w#MkYq)$;m0Hsi~$Zrb$L7X@&+y=9VdjX{jbgW@#}kI>^Qo
zJG;X;5n_C@S#q*bYKnnHqNzc0a*DZ;sd0*tX{uSWC8(jAVieP&jcmLbky9YBs5Lf7
z1y#NVmZ_kdtt~*I0xE1lSE45yq=0HGEo9?~ogrZS0dc)0=*B!_!!&b)Gy@~^l%zCs
zP%9|O!o)l+Db>{6IHpAt*?3Sf4{D|n8bD_$gczS{U}<EOoMdjEY-p4Mns!VwGfPfQ
zN;WhzGBYtYFp6o>KsKJ(QD(-y5aW|A(~QlGjLZy@jLcGvObwC^jf~8V49yJ9K$$x+
zHKs)!*?3~dVi_kxj8C-0f74)0iyE@=#12%l&Vv|lVrXdry7N56#3I?m*u*T!+`=%)
zA}J}&IK|SyFexdfMHSh2Vu$XSWuV5Jr>3MB8(A78rWqt9Sr{278K$HpTO^xV8YWsM
zf_jE3$i@>pvc=d0G2YNDIXNZS$kfEb$kNi((A>x(Ing{h*}x<%#VEzZGBu_}8QFMZ
zM}HWh4G|-gG;?!{v_xaGB*SFzHP0p{$p*>E$;OFk#ui3Kp#DD(;|4~qe7@tnl|1^~
zdpOP5|FWHBtzmIsde69lAqn1rC!4|ON4C~cjc6gzWZmjQctj00AA!7;40d%Md_)bd
z2yH|SE{?R14yGB~h#Il&GmH^6=9l2HT;sd__@-t^oejk2e9*LlGr7|Wut9dvs4zSb
zVS?zV5WvNerc?=E#zJgc6eB44*oX*9DorcEyaoyf(CD}mC_R!kI*z;=8y=L9kz};Q
z2oXdKFC**3mKcd`ZeuPgnLtDc64=RRZl+Iy^FfKxk#J(fmY#83C;?ZB<_fqtQjSJ7
z0$WfL+qJ+*jGPA`L3wjIo_tMmVkGPd(5h1h!mCbU=~ow#H9<)ko(|#iXrTxfN7aWd
z=!oq$VFaB}5)na1@~TrDE(gsC+LJyfh_rhQ9%hhiiWXoHL0H~RDMr$WEzpSV3}R+o
z$kK3Qyy=a=s!2jw7sd6UfU_et;81oIkP>hx8nFc&vE5vZ)COG+W_)!&o{UN$;0VnK
zqPQM(8JZ<}kq0>oAPs3<IJQYK)H!*0_`#K;r9HSf(zGC|5!gbKveN(vtmq`|GBm;-
z(9CbOmEbhwkmj@nt+B_t4+pW#0vcktf(aHH`1j&4G`Y3fps&b<#2@lm4%pm|GN}%A
z3{u?Sau<>k6cb?XMcyDmVeGBJd&w?oXE_iI0nj#fYxI!B+{TWj<km$A2Y5)rRicF?
zTpUqrp_+g-B#9i^!YEOg&VlPMP5fa=m9@>tOH4oovK7e%GP!Fss*p8e3qE2;?l6K6
zx^;p;@KLt91;zE6ye#h+xR_EHSe=;X@@?Xc<Kg8x$CScp#D0%$0^0<ZcZ{lN9ng`;
zWqHSFKN9^-B|kTrw)zlpaSWE@dm!h9!pk^#7XYn{gNq~eZy;K+<xXNJIx%vmh&;G(
zGkzM6uen6>#W6Vj4eB7ep|_SGbwn0YYYAHkkJ`I~2OwN2S^&buktzvPBd`S|vD1ne
z0m<|l5|9te@dPBv9Yn&O(Bvv-2%%D<h8xr5)#^%aMUK=XA}fwidL`JRh}fxFj6M~!
z7ZFiJ;6576J{7hoLh%ErS>#V<Xd>6j<b@`(3D`n2mB{rYm<j#{Bs5>T<4N!YLKCy2
zg*7yh{Qx?W(hqcammy~%sEdHK4HxM`Z+LrBS0BMdJBSe;p0HLI`gkW?9Jd+RLX_Ag
zGZ-Pt1Gxa!7;lIYIJ*loM2YYP=yF3}!pr-y#tnEtgxs+v-4wWXY#~YP>L84eWL-r}
z+9Y*(KYss%R<?%2OHk@Dnyg#BK%>$4*BfJV8*G9Dp3vcnh^Q)Inz6+TvFn~N;sts?
zFM-wusk0++Zz0w6Fz18X8=i#Q8`v^QJj!-Scp$=+q6H#c9I3QGH3C~u61&C=BPcoF
zLXtS%h8xN44Z@xPmA@W@%U`T<lAl*xQdF8;l3zr2fq_<rV+&GZ*R^2;DF<XTfieCj
zoFR$l)e#XApcaBV;T8h6E&<BvWAHQzSBaKJ;o?Z03KSEtg(tBK`7pwhGZ&IX@rEbK
zEd+vo(Bx&TVc=%aV_@IH?!?B-pvQ8Gxtqy~_Y6-pw;AVC1Z1oMmC{XKt-*xD9$Uts
zynH}00bAIc5xMjkGwe5m!`?c&lA5hEf}x<v@q}R?C{%|gZt`u7BwSfw%hB;DO@4Sr
zgeyhMh;VVFDht&JY^edXrjwXm0+>CY7)WY}PsEcN2viot^?Xo00op7TLAddP<?I_>
z*nTH?P{I|V1tnY@ac~Y?Gqyk^b}s}*mSX%*L?9BFO~-7W<8wY}2soVZC=<5C1Q{xV
z2OeArTHwLOk<uYVE4H8`cAp1E&<QMp1Reg;h}2Og+>QsOyCA~p4x0h61MSEPI+$i`
zfk*5%6O6#)4<;t?sL^PKIbSosHIU#e9K0Teh7?-Lf=k1~0{<*rlTK>@;bjhRLlNy4
zl$Io19+zWK^}(EmJmE&{b{&jp5{FC^8Nb!XQ^u0K%mMBrRF`Y=3o<ee%{rD!u5R*e
zjVD}HV{5RWPMJefFH)xsE$t9C0$VZy?Gq$sGbKhc;wppW_GC{y$%sHzjakbO_5^4Q
zD30(L5Vq<HF^B^XOt><%z=Vq<Rn`dY*aDK+ZKD_g$<9PXK$?>}287=OpwWhC!l@El
zy@NVb01rsGQnY}Ciz8Lss77E5Oky|5Vm2Tl*9uruk}8R9Kq6nT07{ingi|H9<PE)3
zE~B6T9++@tXn_eAM=Avn+OY*BvD<+$Ql$c9n#dY&OPu6XiQfaDk;(T|Dt3p0F}!T4
z4BQL`3_Pp3qqyWaR<f$Ga5L><tYa`>U%<Bs1{oMQA?N!tG<mgVkvjqao#;eqg}`Hj
zh-60akRS_#L=(_{VT+Wsq(n>e#I!{47E|M-)Fk7SL_<qUbCVPkb0b5Hl*VNNF8{pB
z`tVdFB#*wp{f3lPQ2YQ|J)H?^dXuzz8pQ~Beg#hspwG%c1Ys*MQ7dz7S=HRaBqb>+
zF~uwuv<o}YBH1)4+1Sh?E!8N|GSMv6$S^6<D8($v3?l#;?THCMQrq45oDZr#G6+{6
z*y11_KFvjTQbaWZTTq&%CK_5A8z&}$CIC_mjE&7eCkdn_8CsernweNyCK;q9SsGzE
zuu8y^h@hlWqXrf_pm5M^5^qhH<aFjx<@86JEc8OGHUM>d^s6#bq35xJG{TY~ND4I<
zgGA62V+$%%OA7;YGb0PohT0T!bHg<A)MWECvm`@9GlSGLGmAt6izG7(bIepH-~<V(
zqGfoptr>}_4vV8fUE~x{KE*$;1Pe`FeRu+ckFLN12_b_TR0we_nz03%iIJtHxlx*t
zkpXD?d7_a~nz3bKQgWiPd5V!)qOp;&Ns6&)iUH<<XdFj~2sDz1X7Kr4lT(_}dMH$e
zgV2pltgYFSoR%E&oUUk@(t&{iezmqf{66n=ZEd(HB!$7bD2lKpDMMqUR5P=*6jNgZ
zbHfx<V+$kD22*n*%fw`3qZ9+<WHVDELkj~lhCK|dqNnz4nSHS`KQFU5Ba<f{lBBB2
z@Z>{N0;@hPpnGSqyH_*6HJR`*3+!G@Xl{c90F;B&i-LI`|1b;hS4QSRm?G%uq$Z2j
zB+#;2L%dh@V(aG>C1)bn4T$?NaK#By^g#8(VhMS~iP%%4Fd8VDkgCEu-4IU_C3&j@
z9-o8SCyC^?PhiW(QGyU&#G(ZuTpX$9K)sq4TSyXnKo&+wGCc%mcKjhprS=JOIDqbv
zOhE5?VD3G@78)o=62prFxJn|z6U78<!AaTP1N?z$PTJlBxWACn1B&}WecZkDEJmnm
zSCdz39(pohVv}ZKYec^P4{IPGCnxff0kR3$l7We#iMfTLiFs<0VTzH7nUO`RfvJUw
zftj%h=p=~bRM4?0CP`R&pwNvIUU;ie>hwU7{Q$oIPm3Xw;Q4<{OQ7ffnXzAIuV9yC
z+r<{m`iFHcs~yXImIf9@=0nWM%q*N6nOqq%;U@qh$9rr`5$GHP#z@GeooT6{Ba94E
zObsnTN9G%)8K#<<r>2>u8k!iTq@<c#CL1JzPMTw_fF5y|nwDg2V3eGioNAJ6VVG)~
zmS~=wnr4}jW@edWl4NKa(^3X9pA%}nS*p2(rJ12&YFcu#VX9G5Vq!|71?a>vi&P^s
z3lmFoON(Ta6vITmi;!a&Qj9E&EzDC=&63TMQ&LRLLFeuynHd@<gHF;jOf!mUDMdEk
z#3(5(%^)o$G0iB|Bq`C*0(20Efkl#$nX!2q=+r$!v()4?lO(=$i1CRQ78VAnDQT7|
zrYWgOhN)&221co7rpcgVhSE$yhX$1(8=q=mZkl3XoMdKcm}+5eVqubIVr-OXVU%K=
zl57S#_BbWQz|hPv6?Xhcs-b0yWpb)PGU)iLL<=J`BTF;mwA2(cqeL@9<3!7tmSPm+
zL5CWqrlwgYS*Dt#S|%DBn5HC|8(SEr8Khby8>gihnOGQ@n5D>9LtJlQoC0=zl992Q
zMQWNM=-4i^G_z#WB+EogBXhHumO^CX4b4+h%uQ1b(^AY#Qw`D*4Gc|9j4e%#lankh
zlM)RLEDTJI3=I-f1lK@}H#M;^Pf4>#H8V}Ku&_+BG)hZL26->pC?(Cp)HpS^B^G2n
zEa{|}TO=nM8z)&Lr=+DACxXt)NVG6bH8f2HoxPHnnv|55Xq1|m#K8(pI?13h3`?UV
z!!(mbleDBXbCXm915*=F>?S4|q$S3*<b%wIC7qN+Lo<_PQ<G#96JtyB<doz@izH)9
zlf=X%3v<w+=cyJc24?1|iDLI5&QDG;O*Kq1votkKHnKEJGfp&2F*i&!w=^|3Nl8sh
zN{ngALpI*R(##;$%plFsz}(Q(DA_XA(!{_7bo`NFGU$jA(?n1pm>DK9c|eReG*2{0
zHZe9$H8e{yG&WAOOfgC`Pc;D@RA!WD1d7{SWaEvE%}ou`k}NC@%@fUxl2cO5($Xx=
z%o9Op^`s;j7#JBFSfnHwrm?y~j5kP1G%~iZG%-$2GO<XqFiSQ}H8nL%O))h{G&fB%
zGKp!)K{h_c*u>Brbl76DnTe@^g`u&LscBkbVw$OusgaqXxp7KTnwe=*k{Qb{i19|2
ziAknrriMnwmd44ZsY#|LDappkX=Z8W$wp>LiODf7*~rF&j@e5yG6$UkYMg3rWMFDw
zm}YE}WN2uRYG!DbYM5qXX=IUXV9W$Pw$sEi$vDy2BF)^u$k5CLa-5!}nPrlZ1^8^x
z)R>kmWaABuj8n}((VA*%XliJhn3QT}3_8Fn(KOXG*(A-x+%nC~FvZw_#SY^7)D+{y
z6f<McF+0YI$w{EWi6l_iq?sm~8yXoT$FyW38*gN0o@8Q~W@>6`oMLQYZf2QmW@cz<
z0y?eJz|bTyF*(h`!qhU&P%{}~yirPOT3Sj<66kF6BqI|;GxIbPBSUj@gA_vpGh@)f
zml?>$Tcntnq^6o08k?l0S|%A-rkPn7B&H;TN;E@D(^TUmOM|4u#MBg?IEeAdCKkpi
zmX^krY37#6re<cTCMl-LDWGvY&;frY#xX7F$i^q7m>61^BwD5!TbL%N8JHQGS(v7#
zCV~b}EfS5*O)bn#Q<IDnjhJE~#+w=#rGSoGFf&duvoJI=15Mh4&K9?{NHhkWZXeT<
zhHQLdqNRy}VT!rAkqPJ=Gee_9Q?s<><YYthL`!p1(=<!-Gy@Y86Jtgji1BG=CdsMB
zrYXkBrp88=DJh^6^3&2%k}W}j3qFxG6~*{8GgE`)v}99@)Re@;q_i{>14}al;}pYG
z12Y3-%hbfgB+&6*NxYd5<BcuMKu548C#M)#rkEHdrKVb@BpR8e8Yi0>7#SOx$F!s%
z8*c<YQxJ4Wph2Rc8R!hJL?g4b)a2wugJcT>(2WO4hN%XrX0T)2EK-ck(~^wLEmO@c
zl9J66LFeM7fzHM=GEOrGAAFgNY`m#OqKTzxa#~uFkx8PlrDdXNszsV*iji@eS*nSp
znT26Wig}t*k|8JbNF^h~q|~%zb7RXy<3uCNL~~1HGYfF;Gc!ptGBQbxX-PshKGDp?
zG&LpFDA6F<GAYf}7<9H)qNTBkp@pfru~~|Np`}5pL8`e0V*w;^QZ17WEG>*o!DoIM
znWPw*8>UzoSth0=o2411n59IwB(h~PFv3bq1M}oW1EVy{WYc8O@vg>Z2Ik4hMi#~f
zW=Tl~Nd}hY24*SdW~LU<!*G)lQ_PK1Q^Dsx8m1Z;nxrMBB_$=BnwuD<m>GbM`bt1{
zJm}E+6pKXA;iBfCoRVT>X=r3&l5A*XmS|vZk&<d)YG#;bX~d%naeP{e8TkCaWOK`8
zi<IOvOEb`skS3;ShGxm;X=xTQE%C_4o0=phnkO5ZCt9W@S)?W!B^w!nDwSl=X~U*T
zDWLPoO_P%iEkueS#+w<Ln<SYSr&@pxBu!2+N;Eb%Ft$iGurN+BHLx%@iD`*LHr^=F
z%*Ze~#Vi?AMOd1GP8BpVPBb%3F)}wuNij?`Gd4_0O)|HD9aLs!VPTeLY-yUD2s*LM
z+}zkK+1xBO&B8p**wnzx$TFs-0NHpmQ0vmd(AdH((E_yX)Fjow$Rs({Jk`k10-T_Y
zQY_6=%?w%LXO5<tnj4syr<o+DnVY3qm|B>bfDVqd0Np#0YGD-95`%2Kg@py^3_KGf
zb5NydY+zz)W|n4_W{_x-VwPx<WSC-Un3$4gmdXJ=EXx!$j+>TfY-(U^U~FKPY-E|7
znrN14Vqlq^YGh`d64MfmVtkUZrMa28fu(U`QZnc`Q?sNbV<XVHg{j6yMk#5j=80*R
zmKG_D&~q=-QcWz9QqwFgQ&TJ~ERD@fl0gT=g3dckwoFU2Oo?fULN*?B5~!sy=vc5M
zV*>*N!&DPv0~2#|6O*Jgb7MnOgQPT5qa<UKG+1SoVwPxTX=s>il4P2am|~G;m}Z=o
zXp&}-nq+QfU<hiZMIsw-W^A5pYMEr1l9ps*X=#+2oCeYZD&NeKEez8PEmJKmlG9Qw
znKU3NC&k1Fbkw9tib0yWX-cYjYND}Onn_|}ijjqxkzrC=OiKic@s<{emdOU7Q#y^)
zOpQ{FjLg%FlTy;mLA8~MVT!R?S`w&qXB3ARZ)uT|lw@L<k_bw{Nv4U0DHew2DF#XA
zW){hy!;E8E!jX+PO*2Wgv`kJhG)*)yNHI<`HMK~xOfgGLOf@w~Gd3`=Ofoe#wMa8#
z%YYbfVq%z>l4_D-Vq%t>VrgP%Y;0+4V3d}WoSJBqW@ecf(-MYkym?}x87Od)k`oP+
zj7%&OlMT!*3@ptI6OBz%la0+%ElrY5Q&JN-LLkP24)--TGf1^aHM2A~H!`*~0bK=U
zY+_+<V3=l*Y!cHFifp_=l7(TSk!d36)Z`QcGt)Fn(`3;3p++f2DV9bShK5Ndsm5lh
z2K>_@##^MBnWrQtgYUXXH8HVBvNSL;w*-}yM#)Ku#-=eXA;`ujTO_3#8Jk!dC#D*M
z<WoUcI)DyrG*1Ct(qdw1XliMZoN5RQdy_<SOLGe&Q}fg`;}lb~6jRGoOJj3W&=IjI
zhK7j-F)hK!#uM93gq<9jW^8PcmSSvbZen1T1PXIABMVDI&=iuHiHVs-QcOz_vhl<Y
z<nqKr1IHjO(bOU-)xylw)X*T!&?w0u%`(Z{)I8PDB-sR%YXgyuCw7{Z%K~D&d76oV
zfnj2DT2dP5t^&}Mm;vaBLQt+sNlG(~X$e3!p4dr9Mtg|yNv4U3mdWO(mY^x4M5DAs
z0|OIFBa_tB)HK5sljP)>7Jp>piJh1eu!I<&Y+_+*ZjhX2YGh=Rlwz7<kY<=@WMGz*
zW?*h)m<&1u+7H=yVkff%py%3~nVTAd0y@PY#lX_sIMKk!+#J+aF}5^FPEJfRiD~gg
zHlEmNAC4ms*QcZ;8XK7!nwuF}CL5Y1r<fTh85)?GTBfBYCYmG}Sn{%-WZ+_oVc<K$
zTgDU0Ex>t&V-kBU%LL|9rWl4R3|AOh;E;i#1-U~{JvO5VLjd(mV_;xC$=E?n^G3}g
zF9e!ITWcga9XZrFebMHwJQx^~^YcoIGL!V(eS=(sQKqI)WFTX+C_*TTu?@lzJ3zqD
z%D_?+bY@wNKqX`zi-Q$BwC&ZVhi8(&4FB;P#>UWjEZlAe&9qk&H`AU1nrF|?OU)}m
zo(cd>Q9}X-Hi`)n0Uec-TL4##Eo6vo&S4Dtb3m>wA`mj<%(SEW5VVTF3N+)Sjd#W=
zzceW)RTs9d1wOfi97d3plK2<IplHMzUPQJ}F~W-xvYpGT$qi3RB6+$AkGC}$7#O#Z
zmrX}?4O9p;3AR>Ba@uleb9$l`kS>S<G9^9Ls30#LUh2Wh6{t9*96%F<E5??niR~3J
zbTY6sK0oti@hWKX$npzPJmO8%X88Af8k?gPk5F&GT@1Q0w1n`Dq1fhkO7jwnDpAS+
zxGG2}!AeW4i*4Y#v4t72T|JC~fJuXhFeCLcZ2ayAttu=AtyUswRUyhbeei&SlsIUi
z2N8sozVRqJu?8NI9a)UPV-$x3UR@l%Qk2A62U;;;cRpwhb&(`zGzb368{z2+d5RSr
zEMzA?h_gW2u>~Qqopp>LWXm8X2uWSpkKg~AO|q?plANv_+MI!C<(dy_xmH$^4bS*`
z>Dt=J#aLNMHYDAl38HAg7FNWLJTS~)VCfS1Qu=Qfw0z?TAtJ2I@ZauhYJ{bHL-!_V
z4|@TbbJ(z;2c;BvHiZeIH+SIT$mtX&2r>a%_z^p_f|1tvr$fSz4s+PZe$Z^PXw4_R
zyhEM_hX*7$52J@7L=aJ6AnU{yfW!_SVFVzoyu%-Wl$LkM&e!DPYGd$VIL*Kn#3jf1
zigO!hGp9eNG{<v}%^daI5ggv!DjeeMkJ;DrXs}l^{O3QzeSqDaU6}0w+ZwhCHWxMl
z);p{#SW8(QxxcXTvfN}@#!|#$$HK*Yjd>As9<voQ8`CAGc}!Uhr<u%{m>JJA&Sp$!
zH0GbdpTcj*_m}S^-!$$Xz9c?9-ru|@c&G3t@apjV;5ouGfhUFuyi9<>m^l-|QXzcE
zEt1-_WMfl93(&m~7M5w|i3X{u#wms-X2!<m=7t7_Nk)lD7DfhU#!Q=$^jH|186>8d
znS*cpN;9-HOf)yJFtji+F*LFS-8PqGZf<IBY{|3~p(oYQ$lNj!bh}e3XmH3d*~ri+
zHPI~DIK?szG|LK_!#7V(G-b3v(qoWjX$iWt&@?H@)X>7x(9+Pt+|a<%!ram@HObV>
zI5jEJ#MsQ7@d~mYi!=knR5K$BQ)7eVWY8UM#)jsJX~{`uNd`$KNv1|AX~~9(CX92C
z^$@p&fT_fYIg=3_+A67_AuY2c3sZyCG$R9ZV{=o`w4RZfQCf;wiiuf@iE*l-p^1UH
zFS0eJ=1E2dW|oOY=Bdesh89W2CdQ!Icnbr|6bl1mOVGHVk!3Q&YlNPZG?P>l<7C4m
zQ*%oT)8v$7&_W86<P@_clT-r>gOp^WRM5>}CX8w*dW_OQ7iuLNn3yD+rJ5L8q?(wS
z7?>m*S|pp9n;Tdfr6igpr7<E$X_|2oG51n2nIqd{Yyr9`&)g!_+%VN5(J;--(g?Ks
z0W=Mnn3QB<l4y~dm}JE0jI75n(aa*%#Ms0z$;80iAT7z%!XVAk*u>NVG(liyl5C!0
zY;K&wB!{fWz}Ujj(9GP-!Z0z(!Z0~0%``FDBGDqv$S^4-+1xleIoZG{(VU49Nl&V&
zWin_?-ZI6^FwrtKImsf$#KJr!CCxG^$t1-f33PFvp@A90e`Gx-si0d4O)NpF+c?P}
z#l#$RA(^FNQlgPjQksROX{xD(VG`qXWIe`4si~k#$C8p#K+_pUhH0s3pqu|p3@uVj
z&5X^>5|b=U3>lsy>oH6;Gc!psF*P<cN(Ak)Ni{Y|F)_1DvH;zKm}HS`Y-nL(X3F>g
zNl!{ja;lLjcn-wO9CRIzNfPLeJQMR&<77)qQ)AFjda9WzV>u#;rlh2p85yP+r6rlA
zrW%;0faiLX%}f&wj15iFOpOduL94G!QuC0lNj5S_F-^2gF*7wZPBAvKOf|AFwlqjJ
zGD@^aO-eR5OGz=aFiK?Dj;zPj+&B?*A5of7qIt4KQi@5kIcQqK$k^E2A~7w|(9*!%
z(8z*uACev-FYRRVMDk8js)?DYk%e)piG_)UiJ@_lg^^LRp`p2<iAhRYnvs#EMWT^`
zk(ob|HA#skX%;5NmdT*0Wb-8RlqA!nRD)C_GZO>QoRWE}agv!~vN<CslAc7+OmS+e
zX{uS0Ns>VdXw^niT51~T!ahR_(A73676#@9mP|8{^$@oVhAAIOk7bgv0jNB)Fa*u1
zgH|J%B&L}q8zveUrI;idnt-lyOH46kL@wAZEz^=s6O9s$4a|(qQxemXjZ#dLP1BMS
zEkQGvrj|)&$tGr&sSHR3Z;GXbsX>Z`VQPwnL7G{LshO#nagt@Kv1M9fnt`FInUSfH
zVNz0>Ia3u<P+OWLC7T!~B_|sg8>d+$n;51U8YCMSrlh8&rY0qtrCKB>rJ5R9mLPk_
z*x1zEC^0Q1Dbd&{+0eku(8$EpB*i4j(A*-;*wok}2{h+q!8jL550UpAGT9*OF)}eX
zN=i*hPD%nT2r^GeF-^6wurN<HO9QPIFfdI^u{1I=XOczIL*yzbrdVV>hDN5Are>C@
zmPwYNdt^<MjE#~&cd3DH{WMHW1FdQ?Of_WOkEF*e$;dR(z|u6u#2j?HoT(vbUJbOs
z5p)@qWtu@+qGf7oqAA02WId(^$ti}3$!1BWMyAG~OTJA~O^l2zOwB<HcFc^8Eley@
z6Vn(EBk3^(-EwE1WNu(&oNNwSzm;MRx_i>ZJSjQJ$Ov>hl}TEni6x^MvL52@cVjX@
z(qocpm;$~r(=ajBB+1;u)FLU-%reE&!qUXRIMp)6Few!@xygu}<xEl%L8W=3g|S&u
zVp?*Fskyl&Xzn#7IoUKZB_-9^EZN8~)qsfy*`7qRM2kdY<1_<POH0t=BC|B}6f=Xg
z)D&~j4SB{X$tlUkmSzn5kdmkg=#JAA^F%`<L&G!^a|=^L!xZDx<W$g-8p||;)I<{_
zb2DSh2qbHaQ;iHPK?@r#Q_>Ps%u|z+6Vp=D%uG!U%u^FnK<k~7%*~7~7(0;lq@*Q+
zuBbNvEz_|yG&N62PBXDINd_&ku>{R;f))d$m@;V~>#;C0NKH*mNdv7ROEgY3w=_>o
zNlH#NN;Wf1OEfc1v`hk3Sd7Pz^$@pKj46kKfnnZ24Z;z&7s*FvrbdaDhM-#;6Adjv
z%Q6!|?K>mWWJ?Rf#MESqL^HEA^F$M70c1S}mKFwPMu`TdNoEFSX{n&=FfEPEEkHGu
zL5i^j=-S*g0~4la2tBDLrsl~8sflK$sm2C|Nok;SN0Us=P0f>1jE#(v%~H&hlPrwP
z(wLqg^rTpTavJDPK(ka!Bg<5?6w72|&=MI76B8pNQ&7oemSUD{!E_c$PYUR^$P`l(
zGb3}06q7VFOHczZ5p-LyWpb)zszr*SNt&UlDbq<LJ?6<N=7uSTW@$;rCPtR#=H{k`
z7HK9XiN>JSj23CesRkyg7O93zNSQm;0#vq}87D%no=meywlp&^v@l5pP0Jf5n;4~<
zCYzb2q%m?M>`66GPBt}9Nli{NH83-<NHR__04?+}v@kR^H!w9yHZ?U#1C`v2KausA
z8XBaSC#P6im>4G}nVBUTS(q4`8mF3?m>Qd;T9_G|f$mpJW@tgyV{D#kX<}@gY@TA7
zVwPf&XklbzmI7KrYiXQpVgR~1&^R&8l2H#yk6EH+TB?DiVX}#_g{6swfsvVoK~hSR
zS+b=`GU%Sz6!R3&0yBn>$a>6@(@c^<8QR3a(9k3;*~AcZ>#}8{k%2|BxrK#EGU!Tl
zQ-(80dQ6GCi<-$5QHZ3Pnx!QfSf&~$rX+(eh6P>fXPRnhVP=+;Xqak{mShB4+hvxE
zq{Sr7GR-(SH7zmO)F?H{z{JopHO;`%)Xd1(#3(h<(!?^++`!n>JPFBVCW(e=Mno*s
z%tqE@o@i+RTDFp6nFLyCWtNm^X=;&}VxDA}Vrr0<Y-VU-X_}nE*o)*e<J1(;h2EwH
zW@culiOGiM=1E4z$)F{wX+|mLhRLP|Nh!&eX2_9aY+#-Oy1mxY%p%b!$-+D}#n{9k
z)gZ;pG}+L|BFQ4zFfq+E$&jH7$!SLB$rk2DiHQ~#W+{oFy1?Ar%+SI-*~rMkAlckF
z#mLYMbo(^p2PCI~mT@PUTACP{7?_xt8XAL^1sWzMTUvrvOC^EU%UBwi8>9pwSz~CN
zY@C#8X`E(ZWMZD0l4xp?Y@U>6oS0^2Y7A=gnOK;ZrKK4$DkAGKN;EP~wKOy{Ofs@G
zG%++XF-l7@NJ}v?HZn`Gu&}T+H#IUyG-E_cYbh2cmY~dRVU(DdWMpWWWDH)5laiK_
zWR#d{oRX4eY-pO2lFYQ7i-CbbhQpVEe=mO}zct?{zLk6leB!+4cw2d$c>eQj<;mqy
z<-W^3l{<i&gX;iSJ(msV56)ejg`653_c^9<_!2HXM^%i5z-S1JhQMeDjE2By2n_2G
z@L=OKPUm2P&8Eax!KNB?u?XoSNyk@Zq~<1;6lGR`CZ!nnQeY7BiCBzFDKQAyMXM<>
z2<hA-#vK$G1Pe`Y7|pU}<1`LL3T(up0C->{g!EAltYMty%*JUPONMS;_%aE`O-^i_
z#?j=M0a~pF_QXO5HcsPka*Ti+yvq2=osH8tl^g@$VFPx^MDopnoh}D9XS)j<r*S-4
z?g7s-f(=<mzGF~Q|2zuJK~DVdC@=>(?e~yx4ocFW>B+`voJmd~qn(J)_>Jr&47)Rd
zaW(};<RpXR`z3mr08g8UauXqhl$CYSa&<ce2B9S5WfT~Mk_4wxVi0l~oKA^B$cgYN
z1qPv{!WPT|7<!!(a;(9GK(Pj8gX6pdvjB!l6VQ!R0QX@gJtED37r+mAnVA{58R8gt
z-}7wXUc&K@{U}=nYbC1$V>HurhBz#cqy|i5Wt*@hry++t<cd<H`-dzT7%&g|fr~&E
z{=m8LB|q3!TY$z+h}rnbaEyUf?=#o*8b;`HAKpyxauwe|Mm(#_Oz|)GvBZ69k!F)c
zn;^-{Qm`M553U;sEK5Pri7lXr-NK4-peZBdYIJYDr+5O2z=>g)2bx0s1YcEy;(X1_
zHX#X4Z4PNpbI<}Z>{r`D41hLvASnjQff))51^nkcaWONAl9Z}P6%YRqh->4K;8f(0
z=G28JKt?vm8K|)Jh|ca%79{OKIr`4-Sd*P01B-m1n3U#WXz9~f-Nr4+Y0RO>X%Dgi
zTr@I*kFl{ptdVqf*UwGN%+pIQC_osGZXH|+%wFUJvxwbTj_y3p$>74#tM?zCJdeL{
zG_gcm3W?+!%_h$_F7(r}7}=y5*&2~A0*5X0)73|`f8tTjGJ@xLxKc>)V2a~30$Z?A
zcAOLbP%|g(B5=6JaC$(q$+V4=)J-!eJ#KhtLCRFLAcP3Q3RM)1*usw3!v-*yKNdjJ
zT$dQ0G)Lj485GxRHZitwNOGETsB=0ZXF^7{MjJ#XgzQjDvd~LO&WGhfuoxtmP=xd$
z%CH3s(T5~3uoN8Lbg^O`w4i{TaqopUP)zZj5N2oyYo%awt0un&<HF%zpbudmHgUAE
zNOD?p$aA{GQz_)cGbe1VXuZtjf@FBx8InlhTzFF&tO{E?CHA-tjP^8-DiPV&%mD9|
zaCq9&U<Ye9S+_BR8r7tq#0%^5z{@&#!3qf?OmU<F7p56ofSD3`fCxr;CsG6nFudDM
z3AC$;yS@VEd{9lnL~>1m-0g*j5~NZ<3p$7(yrw|bh%MxZJsSlh<QRR42|4^5bumK@
zkLy84Cf*prMF>u(bMby=2xmCJz<-7JIPYxUd|qc>ah}&a`*|kwr1Mzw@N+-r-p<|4
z9nUAnZOqNib%$#M<7}>0t|%@&E+)=voU8e3IO`b>a0WBH;Z*1N&2fQa2}cEo4~GJy
z3;P%L6YO)?3)o%QCD`7u9blWnmceGjCcyfHbq8w?YXW}&s|hOy%N>@DEUhe&EV_)x
zSs0nGGD<M7WUgfnWL9PR$#j-!5mOnHH<LW$XT}146}}&QXZRNKmGOBo&S5NocuAW%
z5_-y8im8RAWm2+*MRJN!T5=-z<iAwVdG??KXcA4$nC>F0O*S`AGqf~LHZnIiFitcx
zvPiT@F-$QtN(LRiV8V1Ap%%1a#?Z_(Db3IXw0hV)$;cwj)Fe4AEz#20GRZ87=`uns
zXkCkWqKSopv4N?ng^{s=xhd%Muv9Yxv*c7uvs9+HTFjA*kdqlwL94k85<v&`7$;k#
zq$C+9f>y~Un;4rUo0z61*&-Qhl$dG?I$p>m#WK+p<Ui19f5|B(1_mY;risbSoCvk4
z1{R5_sYYp*DW(=lW@!e-hL)BopcAc3(o&3*Ei9P+BdIk79ZQ*JnPO;ZYMPXql$M%o
zmX>I4nUZRpW}cX0&e(#a)+EK!JSo{I)xyBgz&zE+#K6$N$T-b3Ej1}6#n8l*u>{F$
zCI)7PiOB{giAe^aBSjL8Qqv4AladWBEfUQwjFKvmj5SI&OiBbDB9vs1m}~+HljP)7
zlT=d+3zHN}Gh@b|NX8nOg7;;ZB^sHf7$uq|np%L)1p_T^Gq+4jwJ1h5))aIuT5^i1
zrHNshfvLG!ikU@fvZ1A=p+T~FiUGqnWVHr{$!W>Ppp(>$jZ6$vOw2%w=L{?jObtxT
zj4hasA*nS?Gchp&9U^F$lx$#}WSX36oML8bo}6lEZke29%!nKl1P*0nDnT~a(k#s|
zG0n^@#mLOkC<PQKmPVFlW@#42=BX)W40n*#8YGz;n3)<UTP7NT(y?)Bl39w00q6vM
z6Eh=2M&xiXNHnrEOtCO9GBq?#G)YZKvPexaHwCRAPf4*bPGv+62LnqZqvRxW(7N6f
z!z4rVBr~(*)FjXu;ASSq21ZPpNNzANOiZ&#F*P<#OtMT)vIK>Sfmy0WVk&4&o24b=
zJ!G{8=1In8#)hV5=ElaL6{DsppcVDW1{O(aNoGlm@(8slX~}6Orp76j$)H0NjZ94p
z%}tZiOfAez%}hYcS{XwT$sr{z(bCkw(%3A`61227CDq)((9#UFu*}>r&B)l;4B1%F
z`6ouk=BY_3Nfs%ICgw&KNd`v7h6W~S7HKJI41bZ;8mAdqBqf9PCKx59nJ1>2TN)S|
znWmbhSr{6nq%h4!Qk$9tI)609(99ULi37B{*Tg6lwB9*66?8@)!*L|F1WsaM@<mo_
zX`W(XY+-Dil5Aj^YGRUVU}$QXW^7?%X=t8on8J7gS*@A5xtXOwa#||rkha8BqeQbL
z<J4p`V>1&ABg15-4ajOuj8lyhO+Z^2OifIZEDY0<OjA>hEiDWUlP!!48E+t|O$HqT
zWRzl_nwXlDVrraXZefvTX=0X=Y?+*xVq(bf07-39s-c-lnz5;oIp|2M)I`u_7iMP0
z$;L(|=84G$j0VVR6Ag`xEYp$<4AYWR4AMX=&`k|f4bzg-Qp}Cb%@|i8t2H%9NlP&@
zvq(%fNlHpKNij7`wloBtotk1{m}tVZ7g?==Nuq&aVv4z`QL2eaib0C8p>d*NvWcNd
zib+~>BExGWwTWq<9UqoSpu_W0(^67QjFLfaFfukX2c0y@*o3S$H7&^;yqFrajl{&z
z)W`(1Rm(EfB-t{_JcVHfidxWlT_#DEW@#4YX66=_rpC$Ure>DOMxgVg5}8gTt4&Tx
zPEN7}6;4T(CMM>_$recl=0*mImd56ZCP_@}$ZE|Klgus6(^5^6%nU&b6Vp<X6OBN}
zuY&eHB{K0Nt2H(Roq%bOVwz-Tl4@jOWRYZSXr63loS0^5Y-GUDjHK2wEy>WrA~ng-
zGBGXH*xb<E!Xnu$(E^l|jLZzo7~UeQ1)UFToC?|y14=;V1}RAvmWif@mIfw9iHWI9
zJjiOzEG^TLEG>)^Q&Lil&5R69Q%x+54HA<Q4U>}1ESU_E)S4%no0x#smztzlSR@;P
zj<!lOOHNEPGBPntHLzf~hOE}u6m*M^Wl~Z~O0r2(npvuaMVhH4=vX)l&_=uKNX3IW
z=-k=VWRt|yq{P$|^AylgfoUe7<)&t!RsZ@(#u7O9jVTIQt$~?|v9Xzjsik?Mg;`RH
zfsuhhs!4LPp<#-NsgVg2H<DUY%fvLJM3XclP$g+(U|^IADlXEJ%q@-53{6uQA0eqV
zNj6C~Ge|Z_HnK2FNj6P1FfmLsN=h?HHZlO2!E_YKYbM|`;4BPHEX~Y~4b2VA%*<1g
z3{64Dr<o^OTIeAgi~r0yrbuM9hA9@HwbN+^21!N+CaIPd1_qXv7OBZ;7A8jKsZ7Wz
z-Ne8k)yUk!(kRKqG9|?_B{|7B*)Y+}G%?BCz$DF-;SZ8?jT0>mlgyLS5)F-wO)SmL
zjSWoG%s?j(8ki<08YPw^D>X1NuuM#{Fh~QPOlNLpXl$HpnrM;=I?B<&EGYrWwFFLV
zW-3E6*2v5}&Cu8)HO&Cj5->G3Fg7tXOEfV|1C{e;$yvz88YCMT8X6lK8kkxbnkO44
z8yOo}7@C+Sn^=O5hh#j7q}DLeC?&<hB*oakJjvA5I5jcFFd1|TuwkN^c~YVo!xv<=
z7Aa|F7AY1crY4|soI$4>nk5-nSc0lHBU3|$=SXS|ObiVylTD0`jg!(6jSURb%uEa|
zlg*ON%*;{@Op_V*A*(euO#$s5OHEEqGc!yxN=r2{Og6K$NHI?`GdH(j>OiPXPD?d5
zwM;RyNHQ}8#W5(2nI{^VSsEl785>xpGBF{mHLx_bNH#DuHcm@UGc~tJv`jIvFg8z0
zHZ(}GuuNeLK~kHVnv$4kXl7uLYLIAZoMM&+IuO>-*xbU{($K^pjbT2rT60Sa6GM|!
zBV&*g3=J&O%uSOMlTA#MlTuO*Ef|*}sZB{sH8wIg0$o4_I#=7!$jm6oB+bOo(9+c0
zEY*-P9$Bqrin*nUiJ6%N=p@_}(5^#c6EjfjDaAa+#F!DOJq<ds*(l90$ucR`9CS9W
zVY0E2rJ12wVw#bqQL?!qQx&qg_)m9c%12gfY;KX3m}F#<Y?fqbZe(s?mTZucXp)+0
zZe(npY{0M%MXf=KMOsQC=xC9Y<fOzzbMs`--igGdL{oDMBgXwmYLinEEsT;34b2l1
z4U!C#k}S*(K__&Bj<7XJOf_e?h^#g-#lkGb!q_l1*~rAm+}JWTCCR|tILX*JHQCZ6
zk&%&q1%o!E^F)wD7@J~fX=G$*VrXWO0zUZG9CS{kiDi<ZNg^mJjF`m{YE#X@M=M%@
zIzMTNW@#x&rbfnT$*D%5tHqK{jhPN1a%QSoqPe-Lfr&w?Wolw-YO-Nss&Sf8lBJ1p
zqFJK3v8gb!QcJ@`BXf(y#6+V+BO`NzBr{_Zb5O_4AjRC&EKw541*WMc7NDBSIMFoC
z$igVq7}U;7HL*0XNVH5eG-8~LtTs8t+{n<t5_I^ofq`j?fsuiUp>bMjTC$0OsZkQc
zLS(f`$!4ZWDMqQu=7z~BX_h8N<|dY=iDpKoppqnoi36cFB?Yt-D>2F3*w7HX8{NXp
z7<5*!Nm`n@xrwncGjc^?VxDY~m}-(}W?*P&Y+?Z_c?^>b4O7xUyHL{%nSL=aFz67B
zE~o;88wj0z&J+t;|F6pSoq_)#e?7lFKP%sUzDf>NK4aduyvuph*`M+%@Z9E^#=d|j
zkcXf96n86o61OuqGuI(@b*@Ql-?@^w^f`ZV9^vfajO0||_`tD-BOB_7QED^<MnhmU
z1V%$(Gz11;2<WqMsyZW9kb>q%U^5#awtf}Lxtq+Bt=KpXeG%#rs}W$j5F&_KBhW%W
z<}O<{PQzeQwdz9FH#66}uyGnDlB_!=9ck?(bE!QWry<fRYlK_zxn38x#Fe?wm5tLd
znPf-Aqq-u~fsIog$&}*U#GD+M1Hc^60j6cC$tC$k@nF7gT4`Q#NoIatF(@P%W;wHQ
zsv|A?1*^et0MdG2h#9Yp**Mib5njP!1}NrpQgy*HV0#yvuyN`mC6<Ds{F3~V%7Rpw
z-EaZ@D%effjG9Jloci_%i{NUoXiCaSEY{0lxM9x5sgL9~JX&(IbK+rEF}yHk<J5O0
z$|{gPh;59j#QQ1*Zq;SteU$>Shv6K-tcG%#EYovB>Qg`wln*-+m+7|y8>e9;!uLcb
zZum9^rZ42>4p1=xN*>J2j%=KUNZTNYbO0<&3ksNSk(tS16WAbUFnu7?5ae~=Ob^KO
z3*ziTrcY!#19{ar(`9lEL0ag|^omSFkSDE~-np@H8Y1m4Au@82${ldzoFgxdB_~35
z2rxY%w**E>A}`1_1v!l{bCGKbN)(?Y+Z5zDzE7?xD3Sco5?s48!ir}2Qe^m2e1wQT
zoC%6pc~HDYa*(JKv4md;l;2`W)?biVl#*GT4|0K*9k^~M)djH9D~*@SjDd&Y3?s)%
zzV*BdIM1?A;M&b3#b(c{#e9-kpWzG&9DMCK6c;slwW$(5RTGw&b@ky3Np(?ncEFPX
zTqW8n7q~bs6R@pyA@<rgjI}OI9^kbuL38r)t%@XYxiak3WlX=}@`GlRV4FPAhg0XG
ztx|@b>I?}u*s4RQAl~)L#NN<`c{sHlIG6%Ht-=#b<Q`59^PXm-SeuFjXCQ|rXDnzb
z9?HgqlGNf7{giZQ`GjEU!rQ^9Dj<P_DuzuLEH$C-VnDxxyD7F!8ML4}kTW0TGVpqG
z$Rfck1_r{Gz$1mQQexc=HxlLn<aO!9UQ>v1*Ep*iB%Z%b!V}Mgt{;Z2hb8P;xF<mQ
zL5ZmRP=<7<F>=x;c%U)1a3c1;MU2CYSs;hC2jC4S0{Ma9VaA$GzHN%2RA-1S)!{8{
zP`55(DutvnOmU?03e^Z~p-1d>l9+`q<dSRrr3s-_MpU7T>Iuyz(KcC0PJ0erPH(hq
z?1os89$cDKT#%TY3QwG{WCoLf1RlC5TsgL&BKGb|h9eBD%D2-tRquwbPuENaXGq`K
z7I-qGnGybFzh-D#MPMF*J6W?yp-n`R)15<?GZ-E)ko_`#SOUh|Ob^~rLk|WVfrG3C
zTL2Mze`N{-i)%#Xj%$9<@L{xpgb&_rhGzIrU^g(p6+XzW)=X=Yk>J$ikmfW61rfM%
zLf^FH>**Kd8Vn5*)R2Hk!Mu)A+ZZsg$a@yC2d;toiCdGQ6{YDl5S;8bISEc(4rxwH
zxNn)zwrIhU5mx`gB(eG!BbhTWFqI92FGuYh(IL>p-6jp%`=N=n_XASwIUtHXNX~_q
zmC)3#4-v+e$>B<2X&<?1M(j1i=!F7L9HgKNd5NbYFvZ(ZF@ZJAP`v<mE~vdBN^W}t
zxzCT;u7Cs+rZ`G_1K9{{K}YNr%9!nqSR%rXO6?6~PiXS8croxWyky|}!~2?hCO0qV
zevZxT%h^(y{Fyf}ykvZX42N_^Y^-lH18wzFM&0Vi#MWqq$Vh>{LGZK&OM-#EL6Ee8
zBmh^0EfJWdnp;?!8G<(;7^WH}B_^gMT7XXIwMaEGvoNtVx3ow$Nij@B-*U@$5u66X
z*fa6vAG{3(j4ijw9@0!`Gne30=8)#phgX>B&4WPSAgDJn{0#FdO2Yu%4^6RcCZPO@
zuNMlPn$m}Ni*@0ns_<}ycFgc7g}9HfI=GQA_ahf|CPqnVX`tH&(u`6~k`fIq%s{88
zTO=8oftH)4Sy~vHr6#ADBw_SI`O?90721`BC$0$PS6E?3f+s)&5T*nMAn*kmWQYQ)
zg4iI0g&a!EV+0A$JtoNh_#s_Pj5?kMA<$&krcd}vH*CYI@M${CiW!o6F~yN8Y`AV%
z3P#TRsRqPdkb+THGyWhV?~{C`8(!aQHgUA+Npf0psB^l4%5L!J9!4_|yeS=C-a*T8
z$OWsAz(Ns%E5sT&mPy8@si|p}NtUT5sg{Yx2Bs-V=Ek5M0I3$q#%U==p!KI_Ddh|-
z1*g8x-2gjNN4}bfu)*I3G&Dp%Hv-jPps>&-GAw)(vr|EFj^c4_VF6Q!EiBSflMPH0
z4N^=EEz?XAla100Q_aj%)67y0O^i}fQq3)s4H8q64b#xWg0%t?7Hv&<>Im|}0_I%J
zCa*RfGN(LX2@W)igqe#VfrKfJl)K>5Cm<8B1)QOIN{YE@s$p7+nQ5v)S|VsahB0VI
zOp>K#Qlg=Og@LJ&p+RB_Mh+8PLqy1#<LyZpVs7t+c^GBl2PO#egJvT~o3;d}GlwRp
zKPZ=h2T))`3eZX#b96s5A5{txa;RcR!}^)|u%JS%PNy@lbgmcWQg{R%Vrg=0(*o_(
zcE)xQE*{h2*&2@;f=+}R0&^=U6KQBdZizCpFflN*Ff_I>OSCXCumoM&WMq<@Y7W}T
zY6)5$Zj=JLxW$kG-Ak-5z|k7CARJGIAaK5isUdVE43GEVuGeH>VC1DieKs_WY~pQG
z2Tfoo<GXD(*gr@gR=ObH$QbO8)(b*ch%Kd1dJ#ANIZpzU7slupaihCfvx%Wi4SSam
z>GT(nF4*)RtQx@@7%)Xx10s>QyOhwY5V8A^9D{f6m(bxa=+!B*k2FEqLyIAsfqx;t
z6W?RL7Cu$pW4!6S96T#|ytrR;_i*cSo#V>q65!m(8N~6KV+w~U`!)7*b_uqfY*DPg
zS?93YvfN{-XHj52$dJvP#LUdJgvpih8Dl%62E$3TY!cln!IsIu!59fCMpB5plZr(p
zH^o#zCB+2)=Cqhr1-48ECQhj7rp9JQY37#ZNk*xbmS#zo#-=7IpsRW;(##Vr)67lH
zQVbK5OcPBwvmwTt7+Iznr6#AQq=Bx%0O_(YurxF`GqNyDGfg%#ifNTcG2S#O)i}xA
zGBw%4#2_uv%*@!*0JJ|V*~lW<Fa@+zCN;?<ImLv%1Y*3AaZ;*<0cgK=vT>rhahkbt
zvPqh$g@H-3rD2+pL2^v19J2A2sg{-|X2z*T=B6g*=4nQ$MxeWP3`|W^%*+jpl8us5
zQcaQ#Op;j4A;y~-TN)c#m{}$prhzUsGBP$vNi<I~Pqi>fGfuTIHH&GLMK(SyG1<_-
zz`)!f$<oj;In~(E*wDb-z{t?h(8wUw!Xm{Y*%)-AmI=!bi19{7spghx#+JsZ$tI>o
zhDPQ_pk4hbh889UhRKGO1~IKN$i`b(Bqf5b+DbGwPfAHOGBGkWNVGJvFfmOsPBTd~
zPPR-jO-@TPv}CP-7!SIT+RV`0B+b$!DJ9V`$uP~*#L&Pf(Zt9w(KN*{HKtV>*?99b
zQ_yBR&^3D|$)L-@Kz;U<6w?$FV@p%e&RnC^L~~OMBNpgE3n^*%H+09eN+BDc3hMoX
zt_d?rHcL(d?ea`cO-W8RGdD0!O14N!G)_t}OEph2<#+>eePW`ekztC3d16|Mp-D=j
zp=C;9vYB~OYFeU^xk;+IK}@S8vhit&7KW+GDQ2L1P)yT|4Gcj0i4#*TObkuU6Ah9r
z4a|~_%q<O4IG}-Jl$dG;x(_nZGSMOhwBIt>5ENEsMusNl28l)nF|Fdr#v7%j8YU+u
zr=(gYCZ?vDn3$TSf$qsM18wm(G6!8_XKHAXVrImW32{AWBbiAOXop&gkx`PFVXAqu
zg;}CON@|L6l7*RJQcSBDvhfB6W{C!%U0<n225A<?NomQ+pxbjSEKHNk(u|E$)6y(V
zQ%uZ~CF3E+TbLx9Bqb)BCZ<^$8h|dKNli?&G*3=5OR_LDO0`IfX%$5_-rUm6)Yu{g
zbXS}?XhT+#rCFkxfoY0yTC%xenu%$0a#E6|g{cLbGQ@ZzLyHt6Lkn{YgT&-i3(%cM
z#>N()9s3rk$)*;mCNZrd$i^EQSsEmp7=UhSOa!?Uw9guJTVaxMN+Kwn%?%UHjSLJ^
zSq?#rH?v4IPBTjaU1w;L3fjYFWM*VyZfud7lwxk4l9&|JDvWG=8t8T=GjmI$q*ODD
zWY7(w#wN+esi3Q}3{z5*3=&O}jm(qMOgPs=j5kd+NU<<5O}4O1GO|pvG)XcwPct#K
zNK8sjGd8p|N{VR}LN?wYHPJl9z$DcmDLFMIDaqJ0%_Paf%)-dj)Xc)nz%V7nC^6A6
z$=po17Gk_fqG^h8a#BhfXy=}hnW2e=WlFMvnMIm$vT2HWl5tF{AhPj>pz{VSj0`Nz
zQW8_mlTuR+jgmn}QWzK|ni?9Kfwqqu8YY`tFn@;_Z(x~f0lI_G)X>nt7<Bcgd6KC?
zig}8WVM<DhWukdZs{pd`mZ@e&sTPSA#>wV}mWIX#mX?XBNucX^42)7!3{5~A`%Kf4
zjM7*bAjX>~nWmbj7$+JSS(+G|gN`9cPBlz5HBYrPG_o{IHH~TIM>gIl*}^o{Al1+?
zDb3Kr%pfH>2^7l~mIg*<CaIR7tC|dq%#4yPSj!;B8z-3?8Je0U8yg#@8W>wzg37(b
zv?L3oRMQkQ<0PY)Rz76o&5hGijm?eCj8YAajEoEuP12H#O-;=}myjl=rkbS~8(StD
zq?j9VG(wCwGq*6Yv`jQNHZn9zG)gltH!w>wGfp)zH%zoNFiA6rY2`&WKE=??#LUFl
z)X2=t)F3%6(bCMoz|zdf+|)SD&>}4@(G+wstf6@#j}gRp0}C@F%al}OOUon+GXsM}
z^W;=xW6;e-$ri~5scES(tvtxaCz~3Zm{_Ewf==8p03~U2)0AY;uKXn9l+?r&(5+y}
zpyNcC_d$$LO-nSiNHj7tH%~H4GfB2cOf*YQGe}G_OEXL}O*JryY2`*XJ~1W508}QM
zS*DnpCK{O<TUw;08Cn>d7$qepr+_jf=+?7TQ&v-m@n#mO<_6~G#wNxFCTS^#MrmmV
z76!&<7AZ*<$>!!JMlr2iD8{EHg9ac>5)G1*Ee(uQ%+1V9Of1b!&CSvbl1(j=jf@P;
z6HSfMSaKl7g96^t+#m%Mr=Z{g-79I9WSM4cVVGiRX=oPH%86{enW0IdA?Q9sgH%vP
z0bR}nvdSPi)xg5U$ROFw%p%R)$S8%~2V#7pv5`@#fq{WRqOp;QrA3liQmVN@VzQC3
zNn)CTL27bLD+jXih6ZVtrUn+tNoHoIhRMd3$w?*_pkq9Yj4e$PQ_NG+KsR2QrW&wx
zL5xo^z`vh6rj;Gpc=M!G3!^k+(0*zIlN3;M!Nfep(AYFBCB@XxC?(OtEZNM|*er!3
z6k@zN=$Ir6vouR1L(o?IWOGB4L`x$hW0RyrbI|D;F|BOK#)D2gNj3xBf0blxo@Qxo
zk!)sYY-yHkX_lO7o?>p0lxS&Yn4FTtQUNjE#Kb(&GBL%#ASEpov}4)S)YQl_(b6Qv
zz{J=v$t)$Nl@-}|<3vLPbI^^0W{IY0pj*IF5)IM}EsYG)k}MJv4HJ`6EK^b~jgvX`
zAjTV{nVF=TnwpxMC7M_oBwHFAm?RsU8zmYWr5UA}rX|O;vY;4mVwz~0Vs4NODkDL6
zn^~r%B`2n)rI~_mF*Z$10^NXXW^TdK2{9g&@zT;jcV-z|nu4sbNH$DLOG~jZO|nQ#
zv9OG3WkxpM+|t6*(9q1n4AgS5G`2`eGfhcMNlZ&gGfp-%Ff}(!HczxjN;GG!h8S;P
z3Oa!(DJ|91z}zS?Dakl3Eyd8l(8wUk%skE1C^@E;3E6myR0AWERHGD2Lo;ylG&W93
zNls2PNCh1_lxC8g2vU%gXu|RoVtk@elA&=@GN=YjGfqk}Oaq+*Vq|D(YGQ5)Y6Hi#
zG9nvqW@KWJmSO@boe~XA%*-qkElkr=QY})9k`qCPTbY>~q@*P#n)8G~j5jf|Oicpa
zbZ2g!W@>0|Y?*9noMLHenPv{UM;6owWI#4P&A>FtA~`M1(lRB{(A3;AIW@%;WKRm{
zw1Py#<kZA8&@Im<?2b_5O_B|bO+dG?nt`vxH8nL!F)~dyu`n}AF*YzXh-s-uHr~=K
z)yTp!(Ja+0Da9l)(Ztd+H8Cm0%p8=*%}mWrK(S_$lxoV-05RUoJk8v|(AYRB*(B8v
zycIny8GNH<N=k}pvZZBAOC7TDhL*|6$*IPspzG37jVvw9(#$N4&C|>clarH8j4X{)
zEI?P!nHg~gLX0;yO99;$mui$`YG#>e0=l}^#KJ7i$Sl<;*~ro|Ii{r+*?3a}&;bo5
zX@+TrW|kJFMkXdHsfnqHNhX#?iAISgrbcOINycVICalngh>4M9im_>GQj&=Q=(c8a
zBa<WxOH1>lL`%z5LlcXnn3fu3<1LKM&61LnjZ)3c4O7fg49tuyLH!9M1Iskiq!bHd
zP=KYFrX}$vKwNKWm}F^eY?_#AU}RuyY?5M;1}+nlj4X_j43d&9Vp^(^jRzf<U}$KR
zWSEp{YL=7;I{n1bA~`kLG}XY!!rVMHHO<u6z|u64(*|OEq6MhtG)}RwFaljhXPInj
zVPukIWSX32YzDd^I;N!x*?3|v_vJkgF+MrPG!@@z4lym2$i|zPTBI1I86+E6SQ;55
zB_@Ij<W$g2;Yo=WNuU!JQcRLSH%Ia>fEaI@mSk+1W|j;(=_Sd`0CdN@S(<6GfpKDT
znwha_N=!=yvhfz?NoGkF#))R;mgWWq$*Cr$DW(R-prgGk4a|*9Qw<U=K({j|GMt7O
zZ*B={@+T%GS)`aH8YZQHE)q3002O<whM*JaVp__PjRy_J8z!5jfR50zOg6VLO*AnE
zmG`OUrb(tosi~mmxN%yN0W%xKcu+^pEY-lk!YIYaJkh`cRAm{afzCfMHa9g*OXX!{
zW#DCqW8mAw=fLaCna`2H{+;asTQM^?<35&BhB(G}bcoig$IET3ZS$7oL_OphvMAXK
zx+odE%?>_b2OiV|3n2|rg86VI*oIe#&8--Vx;O*D<15kL92&)Cc~<4gRz->NDT!rP
zWvNBQnfZCTrA0Xkrg*2^4J~177ZHw!J61EM%}0V$kwX;e7;%&VWw75s8qxg=^Cs#b
zG5XreCeJoc(8QWMXDVpG8ayoo3Eu>0_+nd+4%$`(cOuAg#PBqNr3+Gp<SK#&!CZ_y
zR7`9+hcTJVdI%gbQ4zQBL=2%hHnjP5%%OXb7vTY+*_77iA<3D|;mui&7MMlwz=Y16
zBduM4?BfFoq?W}eXQU=)gQgOop^8g6O1R=ugl;Cb04BDi#~6#}O&}tGEllvP+BHQR
zizn72nvFbdUJ{({9GZ}|yu{73fFcVTtk9T52}P(FS^|cJ8EQ5{-#fu|lQ9o(IW{Uu
z#SqA9b3tFXi@prWDbv}#xFj(NI^Yh8XedV?CW$p}F%~2Vw>hJ)r-w|OyC9Z*!Ayjg
z1?W~`cK}>D%q7T0AF+)jbO&=nmWxM9^x!G^@K1eUtOCREpJrN{6QPyj!I8ecK7r7X
zKn(zh6wKEsc?*3}XcKpvBf<5n5cA-{3AIxnB8<&yxKfxKkVBr>_9MDedC!B3#E9uj
z@q|47`Ff1?s}L{1oeQdC94M$`(rHk~pqPm*Jc(^EW7IMH3y26%>eVqQ9?@iAV9KIm
zp*3pMXb9j4fyT-<D@jgu4rxwfaJ$ijA(H`8#pofbnB<()#5`!hhFYS5Wl-`Rs4J3M
zk(yjul9-f}s$i&~1zmYTY~Qk;fu(}sses-K=voqn(~yifc`v?_4gbvyMzGy%P*3QC
z-L0A5W+}mG$RQ26;0>iEhq-tNDgyC8l!LUO2o?w^6$-}UpeC<23o@5HA)i2iX+17y
zA-OOG*#ww#k?S5}yXP2ptTD5JqbS_^Kb|Neu;j@c))U3_8!kU+^0L@4@Gz7y@J;9a
z$yLGmgrk}LCEFY}9;Ww9@eE~*r_mvfJV2swQ(#-XBxfv#H)kd|%Lp)JGC=yRDe$fq
zW`jNjd_e=eGDYnSAT|6U>LAfcKoQ(9Y>{b9<nS>@#mCYKj?8$wo%kXX|D8SPohyRD
zq1h<VmLS3D&7sK|4hmG1yhtDzP^F0qIaq+9W>)kiUyVF%aU}QjK!;P1<RXv;;@s2Z
z*%nLsfC<QacuGNa8B($XsUi?`ASG~vU@k^3KZu=Dz({hekcGE#f}imvIsBJd5>9d`
z?$_i#%Xoprj6bS;5Qjh`Pg?|m%!)b014<ImECH27$pcU^&{!7af_Ghz23XR^UwAZm
zwuKYQtk}(m=P^{5p}B$xhr$hlxfnUKg67|dnV`eStSnE#^+RlJ3-vN9fq(#Q914>l
z`Q#GV`BBhtgjPZ*0S6UBDhT1*xnO~Y8qMgVZ%wgnp@jB~;jsiBMW}AX<{o0*4L1_z
z0pwUGcHR_YOq(YR9P2UrWbwp0iF?L~2^UbqAcW+G0c2boHB1SFA4Cf*%m_q!U|TTh
zEkKA3@aREx9a4-#)Dh)exM47NBgZwdlh_z>&F%<^>wJ9Ir<&t$0a_58zkqlX?gP-6
z2hoRw58`@g)M<1Gfkvq|KMBrI4o%4Z5^TK%%qj)xTtjHygQ`KvYEUtx+7?M4ESsSg
z59s}drqniHNzQbRP|jjdUj}JnGY{TD#A^*aQ=qyNyPJr2J=|EBH;_vUV%MZ#wg(y@
zrA15`zM2955jyCNcj7`vlb0!$fr}xDf!m&MKF=EFEgar#w^&&jk{Ay&m7+p&(_~X@
zTRws69kvMzd6c5K7}8#Zhd3l6@hL@)MtthvMq-P^L?TxkVn$*PI1-aQxba0I{y{dh
zNF>S=pq5<${+1m+b5Mho*dT<39R6I)x|~4*Te4}gZYw135?9!n)bJ55SOZlT;&M!J
z#Btp41Fd0>N6x#%u3^O(j$}0jM|%pd2A*iA$|bHazk?1z$pqyn{D-c=Lk1}XP><xs
z3@jo75!DE6K}qbARE(hH2n7dal3)y;pd{2lh7D6=dJbneXg12V<w$Twa%e)9(GXV`
zrsWqUWu~O0<|XH+q(X90I<(M*1S6^#Qq6;+6BdG~ISIXw#JPjf7+X#n6~h?<O}TB^
zpsChKl9uzJ#0|WnATBCNiFUZru=qzVjEG&5j@j+-f#e`j7koJg|EeDJZU;0?<4V79
zk7zb!wq;3j=5ly*R-(1pO7OJVpnaH>^z@wKRH`qaLNydySQEQGAG5yiA||X!8*#-9
zYaGF&$?L}0jx*_xO3*6=nljrGDM<6FImN|PPxGjTVoUSHZo9xJUpV!^X+Ghs8ou%c
zf0`#;zQEHws!u=--DLa?UD))jK767Uakdn+42O0rP|9kk7&cw7;6tsR(Yvb*42+TV
zN^&F0o~GEgBv4Zq-+5wqVh>(9p+-Koh$c2cz>S2Z4CIQN*zHo7l?mjmn1qXb_%aqr
zokx6m0qzM+(EWe9%&rV9X)L<TznPCRPh@uGP+~vBUdFD*c7d&f&4Tp}>kighRu@)o
zma8mt_>c2<@kj70@x9~Q$(PF~%)6I2omZUa7*7F@5cetWVs06(BV4&$qMZ9U(>TRA
zPI1&QGcc`UN@5aYe8jk%F^|!d;Sa+xhF-=ij0+gk8TA;xG8|;+W?*2jVdK<fU|@eg
zqLTNhXNN@yc(ZZ3M{+Ph3mMEg8O){YNOKh+NqBx__B3YW)O1HT3#ZAT$yDYzQ#MXb
zZ=&@;s#oR^LpDxLXQFjw<}+(suyJYz60HM14agiungb#0cbF4Ut%J6Wp+N!VA@xe&
z$5Am)LbVR66t_n3vLY5`60L)E_F2S8)R>$Px#Wzw){2c&GZY@4gxrZVh|cVXnoJ04
zP0UGVVI-7HL5T?(N|<RFB#B6-vHonF-m!3}V=9LvGMuJCq!H!?yR&gRBZ30cJoHnx
zkTOtaKEfQWP&UrMWIXPICrX@7gR4N88cN8wkQ9sCNN@^6m={mbm9WHx+enxSgsIAe
zO@)Rl9#f$z5T?G1WaA7?#}lGR$r7izNNNx!|L|qw^o)j^3{AsGIU0O?Bh*YBvIx_P
zP*XRidQbw!X&6WnVOBV5d}EpgNxnEugGeLHs|#o2^v=cOQ-}sa=An;~FlU9aae8M{
z!(8Nj1<VfAa&BsISqh?i%fdn}=cX1TZM9?Jp_+41dgIKARC8_)QYW9eglfj3M4AU`
z35uC!;Uy?GDMVWBh-Kr9#FwT}Mo4icSrk<W)3Z^_C`_loOJAHO!&M+mH3?wj3`8`*
zu$T&)0mE%7OohImo+I-_LInUyfse&L)B>MHiJ-S(#W`*V!c@S$%_2(BR9I63x2Z4{
za8sFUPz!ua&mk4&IL$>;gD}~bP!SDk3gb31F((;r77K$38>glxdeMhdGq@^YE+(zj
z1gaF6BS>pZLP~NLUev}lG!St*FEgLH6Vw65NW(aFpyV&+91@$Lu(?5IQ!YLS#x&*#
z2A&9>03Hh-10D??1s(|=4ju;XAKV|fUvNL*zQKKfdk6Oh?iJh%xMy%za2IfAa3^p_
za0hUEa4T?2a0_sAa5Hed;CjGygX;p<39bWNJGf?WP2lR_YT&BiD&X?qa^SMyGT_qS
zQs9!{e8KsE^9JVy&K;Z^I9G5k;J&~)gL49B23G`U0(S>z1ZM!J2Imh>1#SaQ3GNA;
z0(>7hUT{3%cHp?dXTfoSV+Gd&js;vlIA-vE;F!QAz>&eVf+K-<2S)^l0apN50*40g
z1`Y+z0~`{ZAJ{+e7O=lyf52J5eu4c2ZwC7T&Ia}!oE+>MI4js!a5}Ir;5flv!D+!>
zz-z&t!SRDVfun)lf#U<a1<w!O7wiTcJJ>ZiJlKA4Y+(Dqvx4mfM*-Ub4i2^*JQX}A
z*fwxju+3nbz~jKy!PdZ5!4|;g!QQ~;z$3tB!9Iaaf?a`4fcpd+2YUb;1KSPO9~=R!
zC%7AUJXjB~?%)t$ox#q*I)Ph*+k&-&t$?+GHGu5|s|VKxRtGi%Rs~iGRspUIt`Dpn
ztRGk&uy?TBU`t@Rz{S9_fpr7R3U&{c1uQc-Pq0j2XJ8j#>EP^O$zZ*~lEAitC4#kp
zC4kd|i-X00MT13w)qq8UlYvEmErNxEHG=sA%LnEc90xcJm>;kyFyCNhV7|an!F+)A
z0`m^$4a_Sz95_0d7qC{aE?}O)a)5aPa|inm<_1;^<_hKl<_z{5%n2+%m?PL{@D%W5
z@FegoV2|LL!E=CR2hR?62@VFH4J-vbA9!ByJYc)PbA!c!=K`+*uLj!!UIktWUIDfY
zUJe!pUIyL--U!|RHVw81ydJy`yeoJYus-0O!8?JcgSUgXfwzKn1?vmm2fR0UFR&)?
zp5Q&eXTYk#n!%^R)4->|@`6u-<piGq9|ubX9|MaAO9Sr@z8B0t_#W`x;Jd(lg2jUG
z1m6Lk34A;FHgGa<FtPNrvx4a!DBTUEyP$Ljlx~O8tx&odN;g93Iw)NOrK=${Y}|sk
zf`J3X<~;zR`5YiLL>0??C_NWS&xX>op!7^AJsnC<h0;@?^du-vtZzO+)f4NRcTn|*
zp>ze5E`!n~P`U_87eeU*DE%2q?}XB?pmY|L&VbTsP&x%lZ-&w@p!91f9S@~rpmY?J
zj)c<TP&yP!uY=N)q4ZNI9RQ{MptKK^ehj5+q4Yc`-2$cEptLiTc7oE5Q2HK}E{4)G
zptKE?wt~_YP`VOI--6Qjp>!sco&cqdptJ#$)`imAP<kSiz6zzoptKs4R)x|^P`VRJ
zr$Xs-Q2H8_c8Ai^P+Ag7i$iHqC@l=7o1pXwC~XU+`Jglpl;(ocoKU(PO8Z0UgHYNK
zO0z&|W+=@Br5PYJ^M44<vKLCHLulsTQ2Gay{sy60ETQyvC@lr0PeN$s4^SGK?wQ{}
z_$;wdS_ewULFo-pS_DEfL(>;CG#xQNfQrM?MFfP;A_1jWKxpQhQ2IKQhQ=fFWeA^z
z8%p~^X?`fZ075gLh0>>?G|WH8q5Pvz8k&!p4?*}Wb09SHeki>UO7DTtEYqO$MhMOP
z9YV9HLulr0P<jiL-UOxBL+L*dnxz*)Ge3jSEHV(9c@>m~g~Ku^|09HEX@k(ru>8>n
z<-`09&7aILe?ZGk=C@FFParf)J%nb4rgLU!Im!$z7nq^>hZ&mRn4$TQ`36KEODTkA
zhNf?3Xf44EttFUY?u3;S4N&!0p!69C&5{kFnPKjM)*j5z+Jm_YDt`b<pMuiIAT&z?
zgl2}h2U`9zL(5-gX!*+wEq|Hwq3X9nXqIRQ&71?JVeWyJ$IQ@jhZ&kbm|^uqAVfV2
zOy5EXpE(&yCqd~%C=GKbw7h19<`-sYK4OOE8)j&2$qY?jEG|&}(0sxSEzg;u<ry=y
zTxSk}stbnF(0Y@3IfTz*4WXH#<vTMp-!MbVd1h~@ycd-Agwh@mn#C1DGehfTW|+I6
z<vugC+-HWC`^*jy^(=Z2ni<w=(1-G&^)xfI{AY%iL(I^6fY}_X&J0SMLTM8S&7usU
znW6O(Gqn6>hM5nu7g{ecL(3^<X#K#f1<}tU2BDdu^%FBJA4BU2W@tUZtO8XBvlm)#
zFe^gDS$H8dvpkfRgVM548kWCd^#>zFoCRhswEkd*mYXcle9y8Js%{B{X8sAGSsp^^
zi%=R?p09-Rq4CcA9?FN7LoCp8h-EEAocR}oX4wU$cR*=qImQCZC$RDiX73TGI#{_0
z&7UmLa+3vGZnD72&D{|7%&__tS}wCd^D_&yTxNmgYgqXVwTBs2pFztH7Fa!S31TkG
z1t@(UN<+(k7HB!c3~fI#!@}ndRNZYT4XtljVC5UE-gyL(XNI*)VfEijh&ao0C=Dye
zVdX1S9}Bd;W4Q}a$2^7a2SWj<{Yx(lv6lr}@3X+_tFKV;FHjm*zd-AI7FfE0)f?Rm
z42<A*JH6aJSnc6uE@j|ic+SALo==u%Gj}Tc3-$=s@2s&*3JlMgOHtuq^#c*^YBFuB
zm*foQFyxF!Tbmfgz<_tDaArQ}JU2`wko6*%;z+BEAzHDm6Cw5}Z;U0<!nNQ9Sm_UE
z;#ntRj(?{J=FK>;;UHao_~5E8#POO<fo*k!_US=KxAYMg`awp);G=aoN3kI4AVEn$
z5!^6r;YsY-<qXXXEHzA<_Z|8MJsE}hJ0v{sZp0U!`1k1<6MGCE?1m6cPE*DgL?qf#
zB||&}8pYab2`pH|%sVNtA$imcK_HXBb-}U+{soIov28Vk*45#08ay+ix)G@afV+oS
zcf*Z@c>sA`9kG`OV6LlU0O#-2ms|1VZvtCN&^Bek=V1`V9o(~UPk@fNtj2$q0(^rT
z{GxjB(Fl+bg-IfZ9!yLhRRb)%P$L|D14)x-TNQz`6mXai_Y<ni&|E=;L*WL&T#OvU
z#NOY4u_T$b3=+e~dhx_CX(z=J3JB0XYl9(PG>tl+jv>(G)mBRQ$TDoLFnAe5b|VzU
z1Z+8v*sD!2+M*nd#N<3uZ)qeL3ZOGIOF$dDyh+;F1!-!6YAEE@7?3gzOOXyyj$EqY
zRD^COwm>HKf)|VmjK_$GK&IXqnyJWvquI#URxH8k$)U*^3hFfxw=WVr)s7mj1cDK)
z0~Tti)foClizeT;B1z6@4o}W>kc*Jc1xUiP#|&%%y!t_P8z}Z5JI!^$%7}3*+$fl%
zk!vzyFWbS0YUX|5s7?_Sz*m#uKa8GmTLtV%xCb=3*lQVr8BQ{AMDiYE_{uw*Uxnc$
zZ$7UJ`&ITpUP+#}JO|lId8YAXGu`BIU^~my$Ro<6$+VV*m-`h<D$7LHkBm#X_cQu(
zPv&32=E+#euF9Rxc#+$N<t58r=2&h){wo}<Tu+%<xps2(aV2w^bMdgraz13<%9_jE
z$^4M@D2FcFPmYaDp&X2?qMX~<7P2~WcJuw<4`8umoylLrY{>YReI;i+rwJz~$6ZE6
zK3P0vwl;Gl6XeQ+RLf-3WQ&y4q?FWD!&C#q#56<0G{aOQ<1}N7G}AOAW>F-y7O57=
zX$IyNNl7LqhM;>S(o&LAO_I%%EiBDaj0~9eA=IX&r6ilDr5YNfB&VbqS(>L98yTmj
z8YLN68W<*;q*yR*M^X#A`NPuG$k5cp#4s_<$UG_4+{n^6$=DQf^$ycIB(=uL<|f95
zsitO@DTyYatA&k{(o9nm4N}Yv49ra}nARYvHB3%UO*J>POfdxAo@Hifkz|r&WS(qh
zW{_fPY--N58cD5*xka*NQmUDSWs-qes*$CEsj0b%rCGAMv4w$oQYzCjB(<rjDdy&>
z=82Z3NoI-0mX?M_CKe`1Nya8-W(EePCQOSEY6;yA#ngjPOXx-&rWS<S)YRnEwB#f+
zlN5`T<iw;j6EjN#6Z2&ABx9pw;}kO!W-%nSX-UQgM#-tksV2!5hN-4$pewM_EK}0V
zER#%<3{9DekkqCaC#IMg8=4uJ87C%#u5L3-GE7Y|O*2h2H#9OxX39dSO*1nAUHg(^
zoNQ`rWSNqZYHDf@ig!y>;}m0aOH-yaB(<qYrY2^_$p$Hj7HOs_W`>{(9g~xcl8sE#
z(#(tu7<VG6H8rwKGBY-|Fa}*7W^9^dY?5f4XlZV2W@urVW|qRZ2}!M`QL=%7xsi!w
zD(Je7lw`xi<fLSSB-7MXqZCsE3&zh#YRyv<ElpEX5{(Tl&66w)Q_WJ0jFUn4g(aIN
z8JHR|E=5vnX_jnkZkT4CYMBhWxY58k#lS2DbWu>MQBqQ(G2<*GwFbsXpinXb-A9s~
zWRjF*k!og~W@2h$nPg&OY|3;PNo@+~9;7r=19J;g1A}D4)Z`>{BeSF=Q!~>PQxn5P
zM&$HhU}<EOlx${_m||v@mYkYuYGh<+X=rYkl9p;_nwZMig=DUwp-Gylfq|iUszF+6
zlBq$mrG>GvL0U>mqJgP_r6tn^B()~ViAHHDscFfE7AYp6doq&^lM>U6EmG4=jgkxu
zna(4tO|mqxNHsA_O-nIMG)gl8-ISPQk(OwjoSb4}l+0Lxq&6uf+0Y`<G|e>G(!xC1
z$TGzuH8m~8DAmN&*uc=jkm)g!+7v@mV@tC{Q*#qDgXAO&6ElNEQ)5HJL_^C&gOrpM
zrb|d_EsT>v_x%~08X6c|rWvN1n1fP;xq+pDv8hF33S%yk+LT1oWYd(CL{p1Y^JH@~
z!=x0WloU&YL~{cZQ=>$4#%v_DmKI6L24-og7Aa<Cpqs@kOpVeEEmPAhQc?{~Eeshm
zkklH2E^sumG%_|e1KlQSoS0^AmTH({VUd(<W|W-9n2My<+|t0%(9*=**wiF7(Zayk
zz{teh#KOqPI4RN6)Xa!61xc+j=r%udlVnQ+6Jt{g6H~)f(B)Dlpk1eFW@*NZaR{}k
z$(9x=iK#|uM&?F_#s&tUo7mD!OpKC~O;e1M5{(!m5o*&?3@pr3%?(V=ladXM&CHTa
z(u^!pO)bm}%`8$(EDV_>5o%LY6G2y4rWk>)KQc{8wJ@<rGc`{(F)&IqOEWP_V+=&7
zO|wi+Ni;|VUH+PEm}+QhYGImaX`F13Y;I;?keX`5=#He;#3(Jv#29o{rjeO}shLHJ
zk$JL_MOvz*QJT4tnE|5<LTzdi=z2j*%OrC%17mYj17o8U<HTeW3nOz&Q%lQaOGZcD
zPYgt#*M%@QEe(`?Qj<+gED{Y2%|O?onHVQ0nkO0<rJ9(TBr?e()TSnyStJ`IC#D!B
zo10svC7YQhn;03STAHLL8=0CV88Yf3)TSkYZd^05G%zqROEb1GFiuTLHA+o1Oi43H
zNi$AOVN^g;YiVhmmTF|4nqrUwx@|Sl%*Z6o%+S~(#lX<eC^?DA386OC!qU{z)Wq1#
zBGD9dN1ll}=<YK^)5IhTlhhRBG)5VO+B7pGBNH=IQwz{7iRKomNoi(ADMlt{pd05v
zbr>U39gvo2nr38aV3=fXkZ59@nr3WlVh*}tE!8wR(aazzg%PQqPXk>jmy!&+HOs=t
z%)&Iu$kNEn)GWm!*~q}iGSQ4-sTOl2^uE}%G|Lndi&SHyG?O&bWQ$bOGy@BhWWy9Q
zOEZ&1BVz+LWTh6S$!2K=hDm0YpmbwqWSnMZm~3H?YH4U@W|o+Q<g+vj6AQys!(@Zh
z6hkw^BvS*Uq|{_{P)TWGk(Qjy$ctobijldcWtyom=nh%)WMhLQ^F-5BV@p#*<75*P
zBcoVkr3PlE28oI0mgbg5iN+S@hL(vYCPs#!C^t_sFf>I{YMyFt0=ix-71UfwNis09
zOiMKc-Hn-+lw@RJ>4mJ+JPmZirAd;dVVW`MD#$d;#5A)cGs`p!P&kJo`ODnYEY%>@
zBE>YxAjQlQR6&@U7@8)hrKMR~7$;gV>_9fwBqhbnBFVtWz|6?Z)ZEM<*~G#k(aaz%
zCCwx$(bNe^sabMrqGe*Laf-2laZ;*rilL>6acZiCrHQG5X<D**7?KOjER&3r3@j3p
zQ<BY6%#Dmesn){KGR-vA(9qJrg5e3WS`#BnBhXEo#wo@|W~s@RAQzh@8KoK-q?#IA
zGTcUTf~kp_rAewqnqjJ`rMZD&qG3v+K}wpX1*lzMZe+@Yq}0SBCC$t*#U$C-&^*c1
zEG^N}&?qI@AjKrb)Y8zzP!Y)mCdOta#wO-zrYR|@MwTg-W{H+b$rgqNrWT;9o-G-k
zA*nSsNH#T3H8wFfGcr#}Nj0-bOi4;LGD|ZzFfvO_wP5&(<OIVMvouT4)rgix$!3<u
z2B51ilM^kIjZ7^-*E>ohDK)ULG)*-zPE7<gWQ`Jyl1!6~4GheT4UAF@4O3FR5lU0j
z%#BiwER7OVj7*IU(-J{doPnuXYH~`dp-F0*r4f?S6bnOeOAK^*oOxohvALO<v0<`N
zifN)nqPcOZIg--klq4gQ#6)8YW6Q+kB;z#mG)qfElOzLkqogE50~0@FrHN){Mxfi#
zEJ1CR)Fg}4#AGugL*pbvgJff46IVoNr6#2rC7T)>CYdCgCYmKBT9_J`rX;6Wq=C|0
znt=twVq~?+NtPxCX=bSwplcuv(u_>ZEi6)!&5cqM4Gfaa7&am~At@;>CB?uf*~B8%
zz|<nu$RybmbdRrPnz2c0l7X2IlF~#YGqWTMlSB)H6vze7M#;u$pbL|YEs|5sO_6G|
zR7+5}8YLN+m>L@yo2D9?CMOvfnx`cjCnu++8k#WjAsK6FZfclpW@u@gYG??ms?C$k
zj8n`FQj!cTO-v1q%8)z;x`omx%_225(b&Yu$il+H#KI`qFx4p4A}!U}FqPpRpC^Mh
zo_-Xv6vEiFw6v5ob5qOYlqBP1qhupPGZS-@#METaMdQh7X-3Q<3=9nGk@XI8Hj>v;
zOie9QQY<YJ6D^Wb4UCM<Q`3^uEKH1ylMGE#QWBY7Bh;o^CL35<7?~QR8JQRvnWPw*
z8>UzoSth0=o27wnT4X{l@Kel^Q<E)Hlg%xYEmD%xEX^zoER0P|(+tg$&C}8>m=X}?
zrlp!#B&DWVTBfF0SXhFaV@8IFpi3E(EkV^0Q#6uVV`Gc76k}6!69cm(qcl)k&BD?!
z$sjGs%*4dZB8e#&Nv$cUcsEZpFfdL_F-uA^H%bNHPHK>5X<=k(kjCW6%ht%i$9RW<
zZ$2L@&k`OkuA^L*oSYofS!b|#GjC#=&Sc1Vhv7QIbp{_e#2K@U;ozP8IOXXm!Pdyg
zN=NGkr&U4iq7t0a9K4+Bps_NP(YwsN<ebu!RLEc#lmi>gLLGrS#=xrgnQM9tBXq_*
zxm`qpQ<X!S(-4=T`k;L?P%}|1083!EWj6z>=#lfAYS%$+X%cT2mgIEiQ04RoS%Wmr
z=Y?3W0kTKGDmg#5AU`iPuLOCB93+KlH=1IYQ;<jR(h@BUQ<GE7Af>mlfq|i^kx62z
zg^8i5d7?ow=&nv9b4!C1%+YYj2_D($uknoDnVI0dP!D5e2FM#|j@E1xZ5KkHREFK3
zhI42$1-88nRRtu7P{oi2MB%z%A%&7OSQuCY*G>HLss|Qlp6!C5DaJrf#ATF>Y|<QT
zjWKw}X5n^#Hr^3-39&8)nFez;a{Q(w8e1kBr>2^wnkAVe8Kf8+nVKf0fo?E1GcdHU
zG)PQKu`n<<utfJ9cxX23at)ryH8;i=xhDFgI9;<bwOv4xQ<_5*l6gfzmkL2{NKt|X
zW<DsikPXd8@i5L?gpATs4U-d-Q&KHK10N<Pre<lTpb;x$OAA9I^Q07$WK%<n6f+}?
zsaBRuB0|B0KoUni)H)wDmnt?mi_cM44O|H1w{uGnx>gE4Q;4;$L9Aqh<qDL-3#0sQ
z(rM?C<n-k*<cvhCaY7I^4#H5xN;%|e2O$s1mr$1>6zl54m4NiYoQ7ON85o!)f_e-l
zsYV8Apb@%c(4Eef78a&SW@*O8scC5zrYR<7$rwJ6j0b1W%zigKg_Ic;=3_xF*KFiy
z=ak@d=Fo)H&?v17P{D+#Mi4Ar^gZa1P{N}e7C@+RhcPSY*v=uz8Oq@dIm;ZWwSceY
zK{_`Cj|&Jo5k8j&b1QOWnp>Kg8e60orI;j|8(5mBC0Uv!ni-g;7^fwh8>X3<CMPE)
zSz4G{U`z(GDT5<3<KKQfk%_;?F(f=0h!g~xjbiQW=<N!WyQ<-5>LDMWmJU5I1R8?H
zkf~IZK!b{5(*+AM)ab=nyA<2bMrg4b9!ua6gz83Y?jhFQa3f(JK#p@mBTIv16N6L}
zW0OQsW;HfXG%++vOi40MNi<4KH8VF%G&eFZOvS8UA(vifL~Xzm=L8n3S)kUh*bae%
zMH$=^pr~iXAN8=Z7EyfZ!Y>4e1S?DhauCAAu<3$@9Kon(ArSTWEP;Cw)s5KPL#(^u
zM#4OR9QA2QDaJ--=9WgFS=VGkOT$EClVs!6RC7yn!<5t{gG7^L(8!SqM$~hz2WNNu
z>$*vcdZNNblZ&aF!ILSNk?AedE~W|0Q<?L4C3xQP9N?M8lgwkv{g2t3`x5tR?h<ZW
zZdR^yT+_JXnSz<c`ERq|XWz-*#a_bh#V*eFmTec?1h!Z<E0#L`Gt4JARM=Elf3bM8
zUSOTeTFmOeD#r4d<p7I3%PRi4{8{|&{L*~i_)hR`;_GF;&6mih!^gyXo_8s45w8cA
z4i_uuRnFC%wVc6R9!xvAWH_I59^jn7nak<ODZ|vw@r~m+$6Ssq4hP1o9DIx$7@HWw
z7!|?eSu7uL%%w0rXHdY`kYRexAdg3$shiOVkMyV%MhKX*a^|8R%z@MffUK<2$2`o4
z*`0xvL6emeal#yy709qvSS(^jtel90zOblFh90v9&#=rjgbasiVXoC@<wTrrhG{s|
z53mLO%ylfB3@l2loQUJ}F!g}W_)ufzM4Z!ysU!t_Yz&JsA+Ny#0q!*xQ6W}NWmup?
zOqs09$_YPD1WRE6I&1}DKmZ3H1D1Z6HY+FmR5sWU0@5uVNbLs}XJl7nQ46mx5SCgY
z8;_-`LN;Dkl$BEx=0n&DUFMC*fsVz}%zPFXLhgcx4Lmw$Atw|pro!9s%(Dp^4r`de
z4bLZNI8+OB0U^UN(gE`_LWaY%FfS*l656t3u|^JgSZJ`gB8NQIxMR^nc0U#+@L+_e
z2<9YYSK-sboJ`1YjAjmV8zIACTA14j84fEc5H6oX$Z(hz=DEn>3G*Y1z8)(l!Nc$n
z))lF;a$+2RgjC9cm-#UlBbNcNs7F!-9$$o~%y51V2W*9aG%KemEa!pC7PvE5Ch;F<
z6vn6lMz#QQLV%Yo@U)INkevA#a_nGJ3CnDt!A$1Mgv^DhX1;=4dtoydEfTYkt0kQ3
zS+bEc1vX{y1O`h{Eb(TnocPX?gVv)d>FFqE**Or~gg`%FkXY-`4iF^TI<x}<iMB2W
z<p4mUwV?!x2XZXIgBrfPUl$UVEW9XnDrOr4sZM3?Am9>|L&o5lo;e#i-C}VGiZ<pP
z<Ya?IH9Th^EHFV%>iD!Un-Xve%IpI3L_+4mv(O~uEQHMkXjw=J*<^fqgCzkuIIyaO
z*1L${Xd!4gR10$}A;V#n5W?{NgbasiVLo8O$_YOR7K_WVp80nYIXU9j#C%GHl@osS
zH8!=NQ;Y+VYfqRWmK@}C0BaqhZBaw`xeCQ1XmblqHFGtJ%P|!pXQcJWjUg=7XXZ0+
zK#3Ym<1qISGA}@h8a!H<7cwv~urlzma!SMNY32#Yp2U)bL3KZK1TW)u23`hV20mHd
zW*#N(4z7AGHIAbk+ANP)JeZA{jx+dzAd?LUGHz$wj<;%WN^935urmi1V@N|Vkb(;&
zkdAb$E6x!ch;jnMH4sJUW?~z%F*P<bN;9`KPclliv@}byG&VI!F-=TKu}Cvdv`jNM
zHA^u}OfpTxGGvnt9<nJYxrJ}Ej-=Tzq60^h&6!aEZ&Zvh$;@_52~KSeX-;#{<PFMX
zL~?#!Nl|7JsMTv!R+0_nLedYE1CxWL57aTq84N64B40}X?Sjp73$|-Wa@uleb9#a-
zLz-=HVPHTr5nkq?iDR`Mt{CPH<e^1V)1*}6By-EuWD666v_vyAV@rc%vt+YmBa39i
z6eA-;lhh=W<P;MIbmy{{fYWI{FTS~JGedlH*M_D>(AjG=Z@^uw*(lboj(-RlR<|Mz
zAHW+gkjxHK0SO#bF>JbE!Gs!J7?VS>?P>&ukYN^Mvjpx%!tNo~-Ebpe9zc#~%T!BC
z6EovfBXd*GdQhWO(9A)y0ccBuxq(r#QBq2(NwR@S62^=Xi#a%+^9pV8l}999AwyKS
zX!6&Mo@Ox;irYr9c18SI981dw-mHOSAD9Z{tO655YJkCY!Ey+}EUrKxi{rBdo*z-&
zh|N93x*KjJ%mc_-JS{QV(7?dJ+#t!)&@egG*wEO}z}&#d(9qDxAl1Sm#Uk0*%+$=-
z1T%~O0B7;sJLjmD#fb_R&9HWP2~K$qUQTULjfYab<|byRf;?9Y2^u&T=5f@RLtjnU
z#M&+=$!W<U&*=&>8L2LHU|@iorSA*1L^m@z2QG?cA&MfH?I4$FXsQ%vBpRw%SR^GT
zC7T!~8k;Ajq#BtRnHnTo8d;c_CK;!hBpN4MrkEzDB^g>`OwO@FmiFa3^y3M3QvwSs
zVDqwY=cBk6RDa6i&s?yPLgaaCSl<kiaA7JS0fQ=rO&2VXP@@P-{V78rbHOaeW(hne
z5Oxo-?uHu)^8j)zo2Qv3nVK3Kq$Qb}Bqy0An;4my7^I|_rkEI8npzsBCK-YDD_Iy}
zW-dl>=E~W?fhU#;Ou?eBxPbTBU?HRnFWKOp07bnt{;0=R55xKjkYI(WKn_Bf7;>uy
zrVAEw1fyPxK-A;21nxytH)3-SvF?T&3G)DQ)TbsHnHd`<B_|stn<XciTAC*&r=}z)
zo0%IJCnZ}XB^oECn5CL0nPNme#~X0eXa9+!TGSI2E}9Gs3{3;ubl_#3$-u|(kb!pt
zuL{pz?m65BocB3>IXKvBSf;WVGC46kWS-7EogoGZ6768tnGCH&E2fpgrr36S0%;hQ
zDL}&oko8MgvMD4D<5P;9hViMxn}#h@Q;ky-QxZ*0(+m<#OwGWXxy=%d42?{a6D?CM
z%q)x(jm#30G14$=Jva>)e|M%@8YapUnoWW2b_7lc#9|P1fCe^GfHQO<>IeiaL=oO_
zO|dXGGe}G^18rwZPE7+X%`rEyFtji+F*LF?Pc%15GB-ChH@3tGSEg<v!qpuA34v(U
z0^#5Q)d>#x>jW%@!0Q&&&?FFea9yw>6@Q(O*lsJqsmvkGsSj$fp)>_yg9E|-K~N^d
zYA8oP*gpun9jy#3H9=>V)d;{wSQy%EBsonvlsO$imVjG@jBL_OY>hUE5td;8Ab1lB
z$p#E7;fi2(BUc$|smTVWi3TaAhL&k2iOEK3hN++fILuNFO^i}fQq3)sK^wyj)5;lG
z3Qm2Wy8*Tf2HGSnI<yW?ZZpN7Dhw^r233%Kq{;V{@iDE+#8GnxMF=!<w3|zC;#)$E
zC6mLJP{X7k=^Zu4BUNOX@J%78*&1Vwtz)|xfhE*18&OP$7rJ;{K+uVBL$GC0leDzt
zlq5s*6caN;GczMIBeSH$R6_&9v?NP&6U$_CgQT?NMDwH+%x+sDxa2Ofy@w}{5?Dfw
zwwxA!5NI~?wVUEUFAIwS;FTJvp+_LVz&c<-g&M6Goj2ch69VUD;c^l@Qc&H76#HOz
z5aU+3Q7}g%7r~(2b;*eaX355&UU`~<aWbffW@rG~J#T7kY-w(4ZVK8=jZrf*?*PYd
zVbuhD@k`QqSp>sEGqc^8n2CmhymV-t1PLD~2RzYGke3b%2h_;xWMFB0e&);KRj_JM
zw%tgQ)0IP;GZ0=4LiT|9AgaNX^i-pQymWXir<bm+jb<BGC!lD6xd$a)z+3H;4ULo2
zz~^zKf%ZNd8z&hUSs0lnCMFpfCYmRk8zwTKJDVdI94`gW6!FB1nJL~02V--zx)GZ<
zHB;IRB{(%XL^(}C;e*l^fhJmL2OPwMgaU|#7}$gP8#Nx#%f?2Ib^`+CG}Io1$?&Z%
zumLt~)}tuL?iP#;?bxnQsGP>;7<d*$4FD7u5OgBk5SUw$(@RofTAHz?nTe4}TC%aB
zsfm$^QF3aUiD8O`Npf;ZVv1Rsd77DVBId*eD?cQ?;GIY%P)?(_u<-_gCIbT__n>G2
z47?+F85kI}7_u1n7xFvtJ?3lSQ{_Fzo6gI@vy#V)`!#nDw=UN?u6!;5&W)Tw9G^L+
zaG0`RV=rfyVB5(S#rm6d4y!H8J(hYF1?GdyNzBYlOPE|4pE0&GYA~E+$U^m9Osf}L
zCIb^^BxE$!G!b-$N1Ac6L87sxp^>pU=%f<kR5N1(lN19p3kw4?(?k=))MUO6$f<sy
z1M(76j8ct^P0|w0(hN+}Qq4ifhL{*6S(=+ATE?_`A{(EQVw99*nPO^UW@K)WVv=TN
z2|79>(HJz#pPXu$YLQ}Sl4fXX$`S}MJ~7G2)Hp54D8<0UBFQ|_+``BtF*(I7(ag-;
zGAS)3EvD52*?2PpbJIkFWWzKI3)3{v!E0%WMn*{~DW>L$pd%j)Qc{wWQ&TLGS!Y3v
zPXe9VVqjuylwy{cWMP~JIzS@T)Y!t()Xdn_+|Vqh)g9S*(^Sw=S7yoPDTZl@sVSBw
zrbcE4X-TO@i3W)&78a(dW`@Q|X2u4r#t`GpOf5{z%+1Zyl2R<plTr-~P0~!vQ!NZk
zjf^cUQ!NZ*THTP1w@fy+G)hTKO-?c~PD?XOOfxq(G&fGOG&VOkNwrKfNHa(@1_c=N
zU5N3iMh1q-Y01VZ$)IDAObk;@%u>x#EDbCTObtxTj4fhXU6GAXN;Cr<qGFI}Xk>1b
zlx&okXqE~(G%?B0!YIu$(HM02T9UazD(e%7@hK+BCdp<7$p*<r7G^2Qrilh7hG|Ag
zX(q`=25Cl#CNZrp$i^EOnHi;|S(us{m>Z^=r6w6B8l)PeSQ?~RSeU1z7@8!Sni^VK
z8d$Q-gcxs-YLuLmW|)|22s$D$#Ujzz(lpJ`(8wsoDA_pK#4@JU8QJ(0^W+qB!xTfa
zv?OB_BTI90b5lc$G!v6VV^gDKON%t)R0ES#i&R6Frx4@Q2pp9c)9Qq5e6pFDp+Ty#
zd7`DIS(<60S+aqVX-b-bd9smFN@B8klBIEKnz5mwDf?`Q@u}t}=9WoD7UrgA#-N0s
zl4NRRoR$nevM(js)HtTq5!rZSQ_zt+sRkBFmS)K*Cgy2rsi`Su7KRo{DW>M;rfC+b
zDQU?jDXFY15aZ2_%u_5(Q_M_2r<WNUm{=Gln;Dp-7^fLpq?(ze8pgCbARC{S20BK@
z(lE`yD8(q%!YIka*uvB_1$2gCnxUm}VoIuclBJ=gIWsTBc;jTFq@)y!RKrw5W6&{r
z2B29M%hV)`L^IGqfaWo+_Q=K?B&V1f7?~McSfr#FTbNrIr-F|5N-?lZH8%v!+oUC0
z7@H-gB(vB<j0c^gWnyWZn3`;6VPR|tKDIK|%rYf4G1UUJ;VP!p4%zrb!&FNHb2HPl
zBohNe(<Bq~R0ESVQwvi|vs5FaGz%lkR7*osb0ahEE{O4|1WpHyX|+W*-pI(v(9kR;
zH7yZza9C<evSqS?S)zGrQd(M?v7u#ZieajWWtvGEOB2NSlq6Gwl(ZBhGmFGzlcc0%
zlN3|4WJ^N>qg1mL3qw%4w?Q^OHPHyPE+944B-PZ?#K6+REZH#CGSSR9EiKj5#N5Qp
zB-tp{#L$TKFU0u7G}ELMP$6JuZf2HZkz`_IWMGhHU}<2MYM7X2o)Xh)jcmN3iMdg-
zskxy=8mLEQlxk*RVPR-sVU%QUXqjY`m}Y5`W|U}bYQX*&V!VN=VRBMZvQe^mqFJIz
za;m9il1Un<I5Rd%u`o0?h-tM#Hr~wC)Fjc=$igfs(In9@Eiu_RH6_Ks(##~;1ay?C
zskworC8#UFstGaP#Mr{j$RN=m+1S9q$kfcz*fc50z{1edGR+_<)x;nvrqvSJc=NQB
z<W%#-WJBZBBqPh@R3ih>!Aqc{JdBeKjZDprObn8f%+k_WXF!ZMHAyitNHQ@ou>f@}
z&5Vpd2d<hLB^nr}SX!i}S;n+lARBLNXkuWIY?x?dnPv_;f-KFz%*4<D6ssl{7Rjk8
zMiyokCMHIytcxJV8zvhWnj~48fR0r)vM^0eF}FxbNwqLfwzNnxwE&fv=E%mUSeRIX
zswfL1aKqX%$=J-)GRZI{EhWhabOu^Vnz5m2N=h=P1H^dHk)-&JqK#=aLpI*hEXmN+
z!qmXhAjQHg)g;-{D9zG5EiuK!*eoqEInB_*)FRcuEXjfsnyoAh%~LH>O^qzg3{z7K
zjZDo<l9Eyl%u@^u6OGJMjV)tZO_7Z^OEFGP1s$boVv?9<ZfKgAl9p(kVvuNN06L<`
z+%OSTV5X#{F;_rbpOltnXl`O+kYZ+%oRXAel9-%iYLS*^YG7n!VrXe#9MfuoY`lT7
zp>bMbqM5mcr9n!PrICecnn99TQfi__no(+6vRPu1v6*>FiaE=Ai18Mn<FqW(63tSL
zEG$z^(~>L<lFU<0lFieSjFXH^Qes+-k&RDDOExw&v@o=^u(YsDGfy-~1)Vl$VrFb?
zZf<B`m}HcgWMO1rX3Qc3G2SRS)g&>^%s9<F*&sE^G%YDL&D_Gw+}yz2Al1y+(ln;k
z2-$d}R8ym*6jMWELrV)Y%M`;zQ$xc<lO%IPqZ9*+q(oDTWJ6OU!$eCSXhXy-H8my8
z)C9Ek-_X>+Ak8v4)iNo~AT`;-#5^s<*f6Hm5ZU-dBU6K9&?$MwDQ4z|7G`FthG}U@
zspb~O=E;^RmWgSGriLK*!b(h2&{1zmX`r<Rsg|b3pi?2uQcY4VOp{DO6;EnRs{yj{
zApe7^9TT$@(Bgzdqa+iP#KaV1gG3`Ev$Rx8!(`C0Qbvhv(CQ>5#mwB?%+dgKgjtG(
zQDUl5qFIu0YO<NJnTdswVRB5XKC<zKhUO+|#z~;EBiYQvASo@yBFQi*DcLO9z}V8*
z(8w^wIN8k5Ace&X67~iu=BBBZmd2@;W~r%Zi53Q_DdxrohG~`t7M7MN7HKi9ddS8n
zgGzaG%Tz-PV`HOaOHk~jnH!iSrlcAfn<W~85?-QFN{TVpREY6u1Ws*^Y1KtG-pD91
z+0f7|*~r8s&BP+v($LJ*z&OdmDAB^iz|`2p$k^N{DKXi=lEoWhyqS@qsYP-Us2H{c
z9etQ$YLb>}l9*y?Y;KaAVqg-}s)KC2iIK6fv3ZhVa<WBATAHCnvQb(Js6CpToRVsq
zY;2U4l45RQZkWPq0x>>~z&X+}t=h=O8-eO4lOzjsGfTt7L<`fjR6}!<RM1Jw#)&DG
zX-THZ1{S79X=W@jP~!<4Jss1kg>1Z~k)>f`vU!?Os+p-#iiJs1qM><WnnjXvk}<ft
zGfFi`HB2)%VC{n#Z<?B91g`qij1rU63`|XvQ<6c4^%xi=CxNm}Osgic@x~^}X~rqW
zDTZkVsTKxCsfj7cX^DnrhDK&-28o8rX(krNX~rf-7F<x*n^=O@O<EclrlnX|fR5WX
zH#162u}CybHZV*xOR|h<)j&2r*(5bB$;d3l$kH&)G&MCP(Imw(F*U^`ISo`mo0=ph
znweT!8W}PtL0oT=nrfJqk_>9^rdTFfq^6mfn3@@;8d;hq85o%xCdIU>BO7mKW@wm_
zXpsauxzi}o+%U;B6?A5yk*Sf9rE#i-iMdItrGY_eBIj#}@rLHcCMgz{mX@Ff1E@Ss
zH8wX+O-eIPGD|izGf#?XRYNwO*hxgzdWi991WpQ%X;nowp4hoGrf!Jw=4ok$i6)7O
zCKf5iMxeSo&CJNsEYZNoz%nV#D8(|SRR!62Vh4O#3n9iE8=0k<nV1=+8k-rJC7UIt
zr5c)=8>gC?nHwc1Tc#Mqv?`+*pO|Vv%y=X74v6u|W`>Cd$!3<xsRqU-78b^qh6X7X
zmS#z57M8{q=Bddstx71y6FF?g5ezXN)IP^|@_J0GBC_#GM2@ns@<WWbOfpKgG)zi1
zHwT?_Ynp5TI_=uPEX~p&#lXxY)sl;WfkB-klY##<{~Z2YertYKzAJpo`6~E4_(XUg
z@UG#l;C0~@;CaS#nr9kMB99LDckV;nz1$Jpnq0rQPH;`)O5`#D@7Z6-nagR($;xq&
zV=hM~YR`X^HyQ$?Aut*OqaiRF0;3@?LPNlql{1xt33eb}d=+d*qOLv?yQ&yEaRWMH
zj>&>JJ+P&gU_A`P>B&fiEc65EVZ2S89@rXQu$~`8>Or>WF_C(pyLmzOFqsgiCmDL!
z4M-2;b;#yr0$~lFy$7rR3^{s&fO^n=QLys+I;@=G1fvpie=y@c16Iy>f{IhX+o?gO
zGZ~t)a%K|LfV9^bq>J&7AuDGh5xQ~<a#Ab6IxZ3A>Ey&>@VUZF)<i1LNd}w#9<o=O
zK#<0xq<6+!L~24#@QiPW)P$Vkne>R%gp%aX5vvI~&A%pA6H=mQyhfxZ<W$e3Eyc=d
z%z>?hVX}d2q(+JjsBPfF2g(M=+fj_{29-rtsf!wIkBHNQ5^E=k(}NsojAx0{11nfT
z{$WxgQV-OZAU%u+h|_}{_>6ZkiX5nkDB*@Ea!z1mCv58BMb1TxA_tptNRh)Nhf(BU
zQ;aBb7<Xe7IoLFy6*)|57)1_tU5Fy*CQ+V-6*-JYh*S<Ka+strG7UEOpcOfrx!7MZ
zxH4R4WZ%Z##Jz|61H*Oh4t76&11=e!9v&5TX|5Kw=NwPiHuGw*)${$~sA2PF6K8$G
zx`A7PwT3%{CxSnP)q_=p<ssh*mbEOEEN&bkEJB<O%=h`va7yre;q+l%!(74a!nuW!
zn^}PA4%15BAG}96JeW$kc5nr7Y~Xss<jBO!c$0A{?*zsoMtjZ|yfMh_BQp~Q1_rK=
z3?K?woFLnnIg<&p&H!}3Uy6BB66k6e3uAM`)I`H%qcjUM^Aw}hWTRA5%T!}a1Jg8P
z#tjHPX%+^SiOGiMsmY0Hsiqdm7UrgDmT8Geh9+j_i7Clx#z_XI7KX-Vj4O<oGZ`WF
zq@{uG&oVVJH8xB!FiAB{NlHsHG&VO)O);}HNi?)bPE1NPG)zt7K+=+$l4_Q0YLa9I
zx_BkUEXCL?#nRNm$Sf6fr;}xpp#kXLC}T@5B$uTcq?ubJ8Jeaf8<|>y?odifG)S{Z
zF;BKMH!(LcGP6uIFfm9qW0;MkCneD^(b&So(lX65G07;&*vu@=)Y2l&(#$Z$A~iWJ
z#n9N&$TZEI(FIwLS(>G#QA$dpv9Vbq=sqFCv}8lm6pNIkBqLKp%M_zT(^NCl6o!9D
zdXh~nlMKyF43ZN;UNB5fv`k5|v;a*VCYoB9r5L6fBw3iIm@`Tu=}9zCGc`9gPP0rj
z2aQ6fn57z}BwCuMB!RAAG*7lPHBB}*vP@>wK?*iYi^L@3Gz$ZRRHHOYQ^OR~R70aQ
z(EURuMkxknhRKHJ1}T;%X>3T=SX!7SB_<^r8-Xs(GEOl_HcL!4GBGkvH8n{D-T7gh
zY?)|~oWy90qzAMXA;rkhz{tqR+$6<3(a_w`Jk2r@G`*E%W^Qh3V3J~LnrOnf2uY85
zqA_S-H_bBH5_Hp-rAewmig}_*s+mceX<}NUiDjyRk-3oxqbsr=)0DK-G(&R>qr{X{
z3yVY(0|S#(LyMH;RI|k7#N=d46N^OSR11b9NI_t3lA4%ik&>8bmSSpRl9ps<W}K92
zW|VAXmYiyuVv!2kMQ)LlnvbN#%mQ@3PolA<g@I9;sb!Lpky&bzQJQ6{d6Jo7VsfIT
zp<#--L7D=R%Rm?SrKMUXg6=0uOHDCJv^20VwlGglO)^X~w=_#ONlr92Nit_xiENF5
zp@FHHS+cR2p`k^hiD7cGNt%&)Vwy4NhCP#%G!qL`Qxk(!btG#{K`SZ}EzM0*QVooa
z%*_+iERBsoSEU%F7$<|WkBO17foU4UJtRFQDVF9YsTP(=pj9J@DW---spg4Erl9p7
zW~NCgCYGsY#zv;e3~!N~W@2HSlxzrETVQICm}-`0Vrh_Mnqp*`XkwadlmgmTlW1(5
zXc&WRjY$e<4;kos&6H##6VpUfOLGeYP?k$hF-lFcFf%eSO|vv)Y(mmwY-EyRkOEo;
zXKrF(0$Nj(Y?f-AYMPv8Y;I<0ZfI(flw@RX$|!-P$H2lk6|@k;$k50j(Zbx)$SlRc
zz$neaBoVw%)g;wC(ZbTwkl`Y-9)mQ~WOI|0#I!V%#1zn6hLLG%YMP00a+-;GlA%R%
zs&QJPr7>d^A_!8`(o)S+Qj9=LtIQ0Hk`fJ5O_D&@8k!iS8Koo|f^MEMF-=RVL0FTT
zW@Kq<k!)gVWNw~hnq*>{nrv=lVQ6TXmS$?1lALO3ker;7Y;3`B5?K$Zn6<PpOSLdI
zG)hS|HwLX2F$UeaW{{Kux|hko(!#*hoKY7^4`_iP=z!eh#Iz(+%VcwN<0RAMWOGZy
zq@*MZgR~^eG((F-V+)2SNP3b%8+wy163s!=`6<RGrb#Jj2F6Ba29_3yX=WziX=n>$
z1BTm3dXhkwu%;wgrkGnMS%Pl<Nwu_0PDwRRF-<fzO9ZX@Ndw*6$Iy=yY>5`BCdOvw
zpfU3lBg3SmM3dy?)Wl@tGz-gAlN3;)X9>DROBTr*OG{%@OCtm0<TNvrlw`9c!xT$1
z&<Y<5^Q1I0&|Rx$mX;|7$qa2sdMr%SKxMO`VUndma$;JVg@LJAN{XR@sj-1kqNPEa
zVUmThc}f~%HnJXL^RyI0%VbLf1A~-Q1Ct~plVrnGQwyV11Jfjv6woE0=EkXpj3GP+
z7_<o1n_vY9)6>k1EDQ`x4O1+QlTtw|6p}3rQc{eQEzD9uO9WC<Et4%wEzFIX<&pFx
zni?1-rI{OpCoL@vlZ*_Fj8c<Qk`ql5jgnG8H}D##n5I}VOCj{6rkWX<rWvLfB$-$k
z7$;h!8YHHsCR-+%q$ZoCCYhU<q#Bqf8zd()iy-u*C7D|!rKT8yZ<housIvrJTalWW
zW|)$goRn&AVq{?gy3Cj98$wTNQgTX4s)2!td77DdN@5!5mS2mcq(p;M!_>4S(5#~+
zXgV>8=?y|pnpvVzvVm!;p;3yFWm1Y6s9H2Mw6FlxGZu!176wMimgWX2=1dQe^q3nN
zC7K%<rX(jDnJ1^2Bqk++XT;M?EfYbN5a=!~Q)3Hbrt3(0%q$F&4NXmr(o&6#%u~`V
z(<}|sK)1wMrkSUKZp1ZDOf)b~HeouCq{lqX$il$LFeM2zS!<bS4!R@GG%+<b&D0pQ
zjLyQsz%)70IECpPlAbi;mT)m0K<FWM=@HW&gdSo~IbfQL&_nDFUZz<HJ;dJF!!#2~
zPZDwGbTdsx(qmwnWRaYfW@(v{XlQC~nVgzpnrLWZmSUQcYLaM}oSK-HYGiC_!qkAQ
z$I{RsImI|7#S(OCi=_!@@j{}xfhp)J;Ix!P(?lcC?v@m0MTDMIOG5)o19QtH15@*4
z%S59@10%ykqtv9-RCCZmJIl1hM9VaTlw>AHBs~^M7HMfIMxYx<%`FqnO^p-Hl8nsF
zl1vOzlMO&Mn`N>|Vv0GF1G1iEvs6PfOA{l|y=0(b+1Mz>$S5tv(%cNZ9>>Bk)gmRy
zkjWZJPolX+a$;gqVwx%Fe!-*^gCwKW6wr0i78aoU98Ey$9n6iBm^=`A(hLm}LDSWV
z7D<+AmgdQ(76zb&i54j)pfzQn5CvVyn3%?-h0v3lXqs$f3SJqRXq=K}n3Q4+S|4d(
znrH?(lFQJ<z&H_fWgC+^pAIFR1JKOBk(s4gs-cBRViIUYR9dnbXt9=ok)@#}XaPIu
zt{_VzCUGRUB_|shSQw|If~s9mTPW4iC?yG0P8opie>AX2Gfg!zN=#xBK<G(JOG-&G
zH!w0tF-rrroI%%6n}CXrw8RusO9N1Qz}(ovFqsLZsZZS2M5ZDndlC(dQqn+|Vy7iq
zn42aWCM6}A8knUe8-QveQ_D2VR10GR17pU&NO~+SQd5mgQ!R~>4O5a$Knqrkj8ZL9
z(^4!fjS>^n%+rjFEzHeQ82|9kWS9f4AO<0U<R6oyGy_W`Gb2!^#xTh|(F}ADzfo!m
z=$1<(Qv<_f!(`*6R0GDx2tA;iwG)#;*UhF`7^NhcftHsUTN+xV8CjYeB_^gO8=09K
zo0z9CK0?xCnPd!VZ&@Z;rkbQ$CK?-<rX+!45ws#D**Go5$i%|H#4LrW7@;Q(v=Yh0
z*vvG=EH%m0$Rat}(9+o4$RsVr+!%D<xRF6pvSpHy0po2@5F3LC5-^fIW|rormMNB|
zN#<teNl8XYDF&9wsmYecMy4hyNfyZ_=1IwEW)?<_mqGLY=8WA8{KxtG_+$9l_%`rG
z@d+_G@!sTJz?;si$Mc708BYNBFYYDWG2F^rAG!8&rE|%1Ugn(7nZl{f@rh$6M>B^P
zhamfX_Lc0V><(;S*k-Z0u)brR!Ro>Con;|QBnuPsYUU7T7N#9cS&ZFGGK}vScaz|$
zk)u?fjZ@nedVXVJX<|ugQC?<#9(cbFf(ze*!?M<hjZ@PVs=h2azBmyy(gaox=jp>)
zdc`?;EZw?noSN1Iw7|CHvn*9*<5V<;sxHn=%*g>84ralf!R)Qh#;J^YJTzDtWPA;-
zj%AWB8>c7yfNNYE?I2ol$-+%z-r~*1>5lJod(hA!PQyTw2(wQ6vvGREPy5GWH{^H$
zoTfpf5$5d+W8?IOpL$HTc`3z}#YpF2vP4nMSma|inO9NGSd`O>54p2(I>WCHz!C`P
z`<RjTl_H<4x-FEAGZ22y0~T}O#|Pt#AGiuc6des<;|#=?eBkE><2DsGo)0;kn@}2p
zWCz@)fhWM=4rIw9=xx|AKW-yoDiEf|6E+n(W{k&Fs0z5L%q;{>g-sRUHWj7<Ve0-!
zHqKBYj~m8mF4CAi!sL^L$_~)Y7`Tm0%t?lu#S&n`#;FNEhaZ+aacTxnfG}@0X5-X!
zhZd~x)QM9QsI+1}W6H*<3BNmpphb`}i6z>QjZ+hTDG5Pcnfc7yE!a3U;Ww}l)B$%r
z^Dz=N!m<zZ71DeL$w(~OBw7c{3@izxYJ{eD=2j9l!jd%e0V_66O^l)tXLKW_S>{uu
zr4&%YWeG%0-p~aVNE>}Y=?Q8(c1d{hX0Adl#W9t`OL1&c2y@n>77>_=;fK)RbQoL(
z!qf$*p#wD)rwJf`GgqVL2ts;52X~{!J0Tr#cQP+T2|QSOM>_os7I;{t;NE0$MhQGD
zis6|M;&pr~;HEOqB5W#(SFxH3Re>-ypP;F*jELK<Fck<>mk~A<noIGR3RM9&mBk7r
zDZu=P(*)2}LMTarpbmJvFwZ7cBQ#){3rN%m3p?iJq-ul)4~sQQs)a28K|0wHmTIv|
zAwpLdCC;!YhKCL$#PO+so64L-&{WtRKDbSVsX&<8M$lAPVUF8Wm<oicb5PP3%zrpd
z$joQaLy0tkI^ZG5oJ^udSP(F`^D>`j;AMQqz<r7D7q1OhAzuQg0Piu@RqVp-hgqc<
zpD|mrOlFK`jAj6jNDQgYIP-aihJkc2^Ld8ufwUjV?xw(YU;JnERl(CQoTUqCYQYmU
zIOW1+LD$lkr6!l;7eUn_ogRW)5!^6rCx{pkxt|W>Bp?=V@ChQ7;=AyiI78AIeMI;`
zvr(YkPlD5%Lz6Qc`|&fl4M7b`qCyT9V5mpcOlM%}TrbL{@CbTj5c@_(Z=`r1Ws)BP
zjXdo>5}fWFnw-JdqZeNMA`M-D+L++Tg-aquE?f*v194H?l-lko$(ha(%2^C@5BN|-
z$Z1e{3=F7tBAJiWn}Fv%ViXf_Ha25n-atMSh}cc0m{~dooTba9-{Hy97DjjvkwQNd
zs1mZ~n?UGjHcGX7NpOa8XhLoi$9Aj~UXxIRm-v8$g&+PL&bx#`2sKeRdA55?az=8v
zbEcvtj08Lh1C&w;rwEWL0zLpKfg1$#19BQ5b{{iF8ela6r-2HeIe5~5IsSvh2&VxQ
z_iHxAw!7m$E*M*>ju3;5o`VwsLKx1{g|m=?6)uKUsUpN+Mq&$FVs}|%9*)=t4%@Qs
zbUa~8;IwlK*qQc(Jqu4Dpa6EoAHdj(NrV_IG{ANugyAe*I14F&;bKU6A0Y-a5?cTh
zyU!dW@p3^5urk%_<OeX}#Ea<(&8D<=CrU2iLLSD)8OV_FMFJrVQ3MKdWHYgaGO_#N
zF+!R1H8>fUT36x=W&D?L5e{YS9??u~cah*!=aA+!29>)g^#tq$Mt9#J*I+0I5?WA>
zK3E187N|vjE820$3=9lPs6{?HuTiYs1MhLsh|&bkLMn+;i%SqC55$?^n1`!H$Rc!M
zcRR+}iDK<;cwL4_!EhE*76!QtE{^0fxELsPL8^6xF6=HtZz?x2wL60jnO4Vl$TT>X
z^c^kqQqogVVh-XK6d|ZGnC-|_AhE|ulrgXr9Nu)XVjZ+O&zwX=@+Nf5G^~`y=2%T$
zb|VIU#>otPoB5=8g?ZL-yK*h(jN&-O`j$13#gF+hb06bmrY{i4V27UW7#J8sF~vqj
zC<=k5*!E=nH6+%22^)@tSGBmaFia^V5ffGiHxgUgCieU!jIx_W2AsHSibe31-K1Pt
zMqIdn4%bh?TPEQ(2Q|2e4MJGRp_cUMWl~Ukk_4wT2QQ~Ot{MemA2cgtH}nVttMcu%
zP1U=hg-AwwBKncVjBL{2BnmZ0-^J4>RM*)Z%0;mQCWqB70|pj(&m#7~HBhUX_}dfE
zuSSF%-0y@qu^4I@JW)Yyg;|8vcDQ1gGmuMHVvpEDcP&pKI005a>cx`)&G05b6ZFCr
z-E*3a9PRNEoOlj-$ClWjW9)D#NSL6eJfu1q*CFrd$*ak+Jr4ij!EhT<OoxX)9v2XF
zBHR#cQAq4DW|)PDJtPj@{P4sfNrwj$2m;XI!85>_XOtLJA<)Rv9))+jt_n8mp$}*2
zf@aJii5ez}oQ`2)Xc}M%7_}@%Z}~QPwnyS0mVrA1&3t%HL3J6LDk2;THwflp<WiH^
zqx~?34%k@0S*~iCI=(E2e^>@>=m1AR!`%-WlZ(JRCWkH8A`MbPLNXb8N&<4w!NiaX
zJS2UvfJ2RHjB+)#JskhgECJ`iJ&Nj1>~137^>AZh-aw9jV$WX0EONad@z41JPyCZK
zG)rvgXePCXNpPxiNOKy(+ehe48K+Df?HG^*EF4gx(~yBhK2S_b^DwLt!`vP!$!X4^
z%IOTU1w7CWX~ZDiJ_Iri9=xy?3`h_XJIEq%WiZ>3V}aNsD$yOuH5C#GOcHn^0e{cX
z1pWRYkn`b=)oc`P4?%Aw!vY(eOtJRC;av-odhRe?un<Ct9~K4{!F3bAyy}6)k7s)@
zs9+658t-OgljdM+jKMSB4PVg-TCYij`-@8Rvh@k81DOVMHFCUyj;;jl9WhNcOEO6^
zNHI1tHBCxOO|vvLGcdHUG)PQKu`n<<utfJ9I94lD@!ctpzcph5y*Pt7r)zR?$THY4
zFJoYT$-b4nk=>VFlI<zmMz&fuPc~83hpcN^D_LDx1zGN~tl~ezKa=?ue=5Hr-(S9y
zEKYn=`4ahbd4KXA<DJAC$E(Hjop~A0VV-`TXdVsjFWd*Xd$}W7__$TMK635j>f#FH
zQsR8a5x}{dvz;@9Q-R|R#}1Y<juz%6%!SOh%$!Wun3gaVFxfD1FkWF?z?jQu$;ifV
z$=HH{0kNwgF(t(Sbi1dSC1~Tdk*Tqz1?XH<V-wIZtDy736V1|6QyCc8Hw~(W$*5yS
zLx92%K;(fWqh#~cG$Rw^q(t-N6cYop)HL%%Q)5#L6AL3V&`wZ`Wb+h*<RoTRgr3Bd
zlw?b@MDsKwBLnj!Lz7es!!#ok^JLJ@qeM%Kq*O~|b4yEeQ>O0-JxOLJriN)|$;rva
z1{Ns>DF$iD#>R%`CYCAY<_5{8$!V4*$z~}AhD=uwdJ@wt5-lwZQVdef5)I7_64Me>
z(=07hjg!n%OwEi^%nd9-d!7tTm@Xmo5PMey(@}(;#N<@-<WxgLqvTXGb5nEBss5mQ
zI1H1LjVw|@JO7g{Oj1nJk{Ev=ws3<k^Ds3`F*HdvHcCt~wJ=IEG%+wWvIK3u1MTZJ
zO|mdGH#amfM7Ac;$SBFuGBwS_)X2iZEG;R~&?L<=(b728%rr68#LzS;B`L+ol1UI*
zkC{cHNn&zhVwx%Fc8wJC6f;YU6!TOQ^CVNV6w5SY!?d(S^F&6ZO`?g(pwq)a$5@zJ
zSQ?s|7^WJfCYzg@S)`g-8mCy8rI{zDf{q(!Sd3&(Qj!JeaC-~06jMuMQ}eVGOOr%1
z(`3^$6La%K!!!dk&^1~qMvNKAdMr&+Es|4B(^Ab+%~MRx(?AuHg?XBxd9tOYaiW=p
zX$t5n4u)1_JtnE9hRLbPhAGAtrb*^$W=1K=pc9lW(oz#GjVui;Q<IHMQq385Bk4&@
zGfFWwP6FLm3OdX<DJ40{A~_j!-?pilp^=e=sZmm*X-XO+(#Gt>L`xF`!xVFKBNGc_
z15-nzL{qc0<m6;S^F&K?Q&Z4!^#&#;CdN!@NcLDJrlcg9SX!hS85@`z7$lh)n<X1q
zS{Pe`4xCQ`?U*%5H8VA2ypE#B#K<x+$-o$N<Z_a+5okLrXd8J_YO;YzT8dekMVf_q
zaw5ZKWIg67sYymj1}2H7mPwYD28Kx~#-IZ#l0XNf7#pXVnx-ZvrI<3dAn5^J3Sg3I
znQWP6W|nMWnUZ8^m}F*Z0&WCY8d;_pB^jqAr6e<nBI_|WFt9W;u!P(UVq{`!2s)a?
z&@egKz|z11beOiGsY#+4!v!Qgpp$KqQ%p@jXEK|Ct~WLYZMHQvH%c`(Gc!v{Gq*@K
zNw!F33`W)iI)cL}DHU{aj-{DdVxlGJx&-qy69aS5y&Ry#o|I;4$^<%fhx|Q=Nfv3z
z28PCl$%dxp7N(&6uND?Y#)ip8Nyf$oX_khdoNJk!n8@@I;WT1TH)dLhtj9RfJT1lC
z(!|2V+}te5%sk05*}~8)+1$bubP$BOg@JKOqCpZPFR~s3qa;gXL$fqvGc#i|GYdmA
z3!_9+3&Yeji)7HzASuZvCP}GAj7WRNlPp1(ZkU^;BqtdpTbP2bfk;eAN;a{uNU}6A
zOtdgcP6J&}V9BV2D0M&~Y-W_4nq*;UYHnbfXku<`l4_7<U}#{F1Ulh9#nRLebm|0)
zG5owD(Df-Msph81mPY1DmKLcgDdwpuMn)DEMuvt4sUY`SSem35B{51NTVs%%Xkuh!
zlx&`4VQi9Uo(8&M#t@Xc%~Q=SL0223m?oK6CLmd3k!o&gk(6R&1iJawAO%zinHYeM
zcQ8**H8wX%voK0FNHe!&EJe~|o@km3vdG-fAjvYx)Wk3;%`DN<Fex$3#KO$dBsI+(
zl(&)@k#@}|nOlOwB{|tNG0ig7)FjE=)XY4|!qNzIJ_hLUdDA2d%QO=MMx@=}N#@3>
ziRPdqd=kwJQjJZM5-rS<OwG+ex8xWY8k>T)nwwi#CNilY1%bJ-Ip}~D%T&WeW6(kJ
z$*CqLCZI!Q42)A#%}h;=QbDzaInvP?N#;hT=4MG2pc2dkbd8Wjnq_KA3g{k_Bok8$
zBXd&=Ljz+&Ge%*gAOMxdW=YA0$tj>q%`A*k(h@-zRizoGf)4{RO-nX2N-|1hyoIF4
z)Y!n#EXgbxbP$w5in#^okP8!|WOMU06Qkr5LnD(^(^L!dB!*o`-Z3>u1Rv~@l$vN@
znv$GsY+;;eo@!}ikz$dQVvwAgnrLWYVPWisWQ~b&D(Du0#FXR|OJfV;q_kus%TzPd
zv@|0VOG{I8lQc_1<217rMx?`Cl8lp$&C@_<*BhEym>3!uB^sNU8yKV+8=IsVrGQRV
zGEYjgOf+G#M{*kISbZY{GYez$#1u2*)FcBV0|N^)OCz)7L?aW>i8BUCW~K&-_DD`M
zHb_o11s#KwlwxX@VrXn?o@8p0VqjosW@2n^YGGz#XaYKTg-IGok5QU|CFsO>vouh*
z$sjS&B+1A$G1=JEI5E}C)YuqwdVyuCDWf*Bo>YS*OEWWrM6*QWq*NobB+FDI(3N6F
z$rc8Q7M8|oiH4vnei<Ghc?Wbpm0@ynQlf=Pa+0|v=(vL9w8S(}AQ%}MnVDE78YCJU
zo5vzsW1N^|VQ!pcU}j)uVVY`anUs>6m}qKXYHn_nl9-fel$c~`X>P*Mh@{6bEio+_
zbPv6WWulRJvLWb>3$v6|^Rz@`(79bnX2~W7$tD(zGm!P97#W&cT7ZgoQ?sPRlw>oL
z<U|9|2}Yp9Pt43r3{y=^Qj!^v+Br!EX=Z6jNrtIOCP_)=1|}A17KWyvMvp;aDkuO`
zK!-D>m>Mu4S!0lDm}F>V25Lwpnpl{dTN<0EnIxvBf%c528JHLtTBIbJnp-gXAnP$q
zOSCXa165EKM#(9OMyW<gCWaPCNd{@Dsc8lVkXqJ)@fETjgJcu)M9V~z6tiUG#H1u+
z3xiY>bHfy4(5VncMoEe0Y37N^MvO=Y8YHGAgLc-NBpM_qTN)Urn46iIn1HSXHA^!{
zHnm6wwP+JfjnbI95cVXdnVA|SrzM+Oq^2Y$CZ(mBfNE7^(D`F#2F8}DiHS*OmWioJ
zOsU9vjLi}gL8s0bTNqj-CmWcjnOhne8XB4yB!Nzlvq-f}G&Hm@X1s%>CpFb1#W>l}
z%p}bqF~!IzHQCf0bP$z6QgT{Ka-uQ#ES^*gV<x2XBQYf{#lR%V(#XKn4Ac&?OiN5N
zwJ^3!O#!tGEz=T{O$}1aQ%son5Ggb<CB@j-)G#S6)!fY3*cfyyh=G}*rA4BJg_*fY
zvRR^$MRH0~iY0PWf~cNyswq=9FY^lqE`~!442Sr0I8Sm*ab)mBva@sVXA)<Q!GtWW
zEOHcfWhm0l{DKkVZh@x2_EZ9E+p!EUr=V`Q1&@|s8;^&mgAD2sPy`=3!!{mdU`*U4
zMwp|m>%l`pwc^Se#btR`<;hk>iSa3kWmaXWMa7x<dAg-VISQn$Z6_QYnoW-FWdvpl
zv6zCiaT{k?W#$tIOe90F1thUIabW}`>mqPK)_2I^3rJ%URup4PFG#KjP5qWjaN?W#
z#TtgFK}RsOV1a}(W{Tl^?lsKv6lJ|p&7&bOd_$lqw!MJBnky`M6;S}dmJp-nU8EUX
zxKaZ78Lkd*Z9?pQff#eQoDSeZu<rQ}JcS@>%f5*U7tpfrJp2Ki0yhZG(uK3&p#ctH
zgfN_iP>K}5a9Mpg3!x5fB&+~Mp1vXW#zf2jhO9@a3ooQr0K=V**AtpezU?`ZoY5Sf
zoayjcOUU-1B<QRdwpmv2ffVqN00%BkWk>;wQw`iGY=KJbJ&_od7jp$T)z+?_geOqV
z%}A-blc7rikfzvC!$Px>uRT|S)00D!GZYk{D9gJE1QclQ6COmw1RE^0@YmrypBaSF
zir_}E_CoYYS|;e?K8PdXxe8vg=)zg3Dv%wDPZxH_qA!1G6l>4N>oUCQ8tgK-3M7}o
z#jxcD;#|hSz*LDAjHBGq5TJbsGzzq*;omTfCEKNdJF4LPfXKIq#R+gRq_ze`3--)_
zzI2I~^)Le$(;EhME4DdoraWKy!Z;Rlui)Zk31fN#f*gwM(-^c^53?R-3uZb*`!E`{
zVKfA26#`9Z9nAQ5#=&o;(ucEjp_{*|(o=Ja<C8N|le0m$q(Czy^r{;S<w!La+$0P|
zAOU1EVL2ALAqtw@Cg#d|j5ZT@7r4#T%4LhE&16B!&N$*dqS=($!6eC<%i+yg32Hlm
zm(W2Pqb0D$DD0#fP#{1za3O~@O@bQ9P;6msWMpJ$XqJ+imS~b@3Oe@RGTFc^(L6ON
zEe&+jduobds)=QqNg76@pQQ;B)@-5p!kV-dvA9weD7<otk$j@bHJ71?R#^tSxhd^c
z5}cYGqMW9n*u`ua!y9R!T!NGp;Nq~*M{Vz7G$EzhEAcM+g`0=e7(`mU3$h&{gUuZX
zSzRQ3*j<NSb2g>6SKwdtOTc;Xz7ncCvAc<Q*Tap4c>}pPF;7cLPBl+VHZ)F6GO|nt
z&HEdt8Gu%j7$+MVnVK7!7$hf|rKMpMC#*BTNxUH#Z*fA>c?|Hz4m_NYBLVIW(1zxE
zN{VgdQ&ho0jk_R23T51iKsgZEOl;w7Xku=ZY-(<3k!ApzhfOszu&^*RurNw8H?&Lw
z%{ZE*86_H<8eoJo`(to8H-7ZOSCmk%*hcn<W+P7rBi=0(DezJo&O&UVfD0joB3w)#
z&H`(Ig&F<=fbRn%H}(=}#ECX}b})bzJ>xm#14rDzGZHxM!=nK$LWqbnxIwVULoQf|
zy&(dl?qvN-M1m)9$Or0f5?o${yB{<dS&e@%5?i;bDg#z06CUk_DMboa;*7)=wq~ZL
zCW)p-7G_C_CW(e=iOI&PDJce)W+urdhN(%Ql|`18CW)yQ7=;O|COB*x_H4mdnBd*u
zXoz|`0&$)I?Xa!EJNSdw9B@K~s~|QAVIhZFq@dT@3=E6{Bd+kk<6&Nw&kQ^a9~t;2
zb1&nH<UGj{&wiS%jrA9E7t<TYZibIYkk*IUHN|#_;?I@XayCK?C08PZ;VfM+t5K{&
z3~$l|t12nVtUxLu;bP#ViQpl|Vc=rebP<;{>EnNp&ycbdUU$PwOqd6dOMGHiZex~8
zPr#*8d$k3%N+sevq1h<aA%eF*fvwGl)Gq)>K3ok_Ai~8!O+#pB7D*p0^zfHVO{pEi
z`1=zCtbxZCsynf}iFnt;jfHswIT08bnHi;|S(us{m>Z^=ffi93q#C4H8l+iRn1k-(
zOEfh#w6rv^#7G1zGr@_V?Y1DkL_kV^g4oc}<oV6Wj;BN%DN>Cb9sClUcvq*u+B@)|
z)rB2Q0BdU!NJhjTOwhqcXt@zK$H3Dj&Loev+z78B*b;b(d2))mVTvJWd8&z#rMbDe
zsi8%hiAkcdsZp|}MVc|_?n;YPL(ByJ6q3NLUg1gL__y+5w7u}UUb9i4gBS1g0=8lj
zGUf&jKDabeq{79Jsx^ofSYV+RYUo2aO=%rG`1|g-Z2(z`+&x8gBuExo)IuCYl&e9y
zkj;eo0=Y~}HZwB>t)EYX?87ii2H!(wU=F&0EHT+U$<jDA&DhY;6eG&nXM>}>b(=Jv
zC?{#imH5B`_1(Gg_TAx`7^y-4oqY%nR=6ZmD8j|iG{C|PHRjP9+D)DvT=+YzxXdS<
zslm=hw7m!#1amQREE}5|CL5)s8dxM*nt|@4OG`^lO);}Dv`9)ZH8(d+vq()zOEyVK
z#fW8A$ngjG2i6I6SkXIGm>C=7MR-7HHU)NY5?bSmX$B-;z)eAoXrxGms3Q>b5Jhmq
zumx!vkvB_X1SvBwB;(+ns~~ZWE5YCxJ;-H{wse{@J6P~f9uX=QQ_$w=aH~g3^tcs4
zDh(t<u_b<k<P=i_BQs;r_0q-`<`%}O28kxdDF&9Q=7xre#^z~>7RF|YDaja#p9QjF
z41alIfq(J{wLBrgCz@P*Ul_cZ+Zp&S@-5}7<8$W|;JwMalDCC7jMspdk>?f9DV`lX
zb9vf%GI(5gWSQG}*ts8ZZ{hCX4(8V3`ondTYb{p?R}_~C7c1v&&J~<>oZg(KoB|w=
zIJR*#^55iN$=}8w#c#~d%n`$($HBsWk$pLP3A-1&I6EWT9kz9BZET@znyg<~FS0IW
ztz&g(6=!+CvXZ5c#fpWA`7ZPNL7GBGoi!Q))C~c3R!(2&g<$Y28<8$=EK9B^D9X=b
zd8EtA3A?tAV5^6PONEsacFh<r)hyiRtem+}tFbA9*85fIsl{bTMIei#87n93l0!oJ
z5XCX`f1<5JndD|+BHB9S6%{PZL~BDnqL^j2J}W2eMo2uKgN-<{a1v)tN_skqHAZTz
zoUl9Ha9hJNN1K%sc7GT)Wk`EYSooA!Ibj#RVOPt-Z^Ft6yI2pK5~PtUcyo_Mn1CCQ
zG_i;nuyV%ZNm9xApqol75Qfi3O8(eg1lGW^fI#vGo#uuxbt-}64^quCO_Y^W6Wy&W
z8;w{wVV6$ACnAtm*kMiuG5^+N<%HdvhgS>pA3}!123HVXktSp~Obd$)LBpXJJ;4oU
z{y@-hs21jrDB%wkMG6*_P76y9O88?}&C-jK7%>$gr7O6LS=3MxBVJ7`>IB>jN(FF}
znQszsGe|Y_EtE6^wVtI9IpmWumzP(;4!J_u_82+j@o8axLdbBqZdjSbe4LQsFfGg{
z^jJAzH}k@mt>au6&-_M}l@oU5B~IncZ;`_tW)+g5sA;7RIoxrmW~oPxb}WjJ%0cFP
z$mJkbwaoXC3wbO`Qot*35wUd^xwOWqp7|VdipHW0TZ(4BPQYtOnwW182w6}Xg}a)i
zgh0rGRI`*Kr)Zd)SsIW$jJ;I?Zj^K>vvOkGLygpU0pC0=$I6Lu@ifAbOOfn{+r;u%
zij@=P{%N=dW^X}OPDN<34Ze_?*+-t06Z7_LxDJ-JVyv9nP#uWtv{}|6rG0D%+M#X=
zVcvq2_Him_-ij1M*i@mUedg0hF@#Gs^BJVXicJx;nFi1O`;b~Bc+_KDGEKBL)Jvp^
z)`r~vVLpVEz;HW~B^oJnU{i*i@3$f4d+chNw=*y>@FO+fkwO+*#f=uSEUie6#;u;E
z4aw2ilp#C%8<L~3t7ZO9z?JBQ)l&klgs5kJ#>ME(V8*bBfpH~&GQS4jC%yxGJ$&JO
za=cG@XY$(fyyscY6V1cRy`4LeTbJt-*B-7et`IH-&gY!#I7>M-InHy`bC|O~XP?dP
z%J!aZCR-|-9_we;gRI@G;jBt5FIhG)NisfQ{=~3|c?NR;(@&<A3}2Xn7#EXrNm(Ep
zr!Nt$Nt~mbn5|9Z8_%&dHz6^O(?EzcX#5m8F|*8Ov15osN>)^6nz3<eVssI~ZiE+@
zNM$a(!-#w_B;2oHZEzmQC(xM`cpHUf1Bn`83!Ye3P%U&(J95YutYdRJBvx?x3?hxF
z4mhdfOpG2K^6jbEoQXbxiWK-rB?1c{^6lr?%t2}p;Pf++8idD%k*|lwYI0&uGHxSL
zZa<&OKb_u7&q+*{@P3gmi5lUJpa|p}-r?beGl0PD1r`b9o2dzF0<{NNxRLKcC#(mO
zpjl8ZnI)_%GoOVY`8smKI*<|(iwJTdM2uEwx1F@m0Jlh|Az#Uhtxkk@!J$zB?S>)s
zM&T;piJ$p5K~rG~2Dhm&6>w8oqzRh}bsZj4p(@~}GJinLs4#hWSm=UM4Ne0=l5n$F
zdQeMGOtT=V38!fgX@q&LsKp$ndGKNmn-ts}=5K`D1!<<>bQeS#Vct{JViVJHq|}Vl
zP$V^QlUdXV#Re$V;x-bw*krzmS{6ZFiBmH?9W(zSQ6ns=vdECC5$Y!9kEmG}DvZ;q
zpj5}wi&~Ho(gR6bEN#fQWy2FWPMb3GnZJ`}4<xNHKSM442)Pa^F|eqU78sxu!F&s)
zY=G4&NaG;zCKtr3_*B4CBlBZ|rozm@Z7NI!!qnrwY@D712ZC^#2(J1NroBPQF>u@9
zBSuK&7Y<3dSuAxZ<qa0)u<{106x<x<dnn}%7R8W6g42r-X@q%aQOX-E<{>2?oQ5K)
zL704<Q0ReD7j7ew%Nv#wl-v(<B~H!o6v_OAM2#?`nNOfJnqa~>Z3L$r=C>%>i=ZZO
zSyPWvY7o?una_M5rPLs(0}|uR=TJ%wg1V5Rl=%i}-U7udODO{b1I9sjRPInhjN@hJ
zWZ+@+VBizwZRSzp?%-1A>}B1;s=%_7X(OWti!_TggCm0@{|Xp{=t3gdIY(F1GB7YS
zrFN(hTD=XeYxLo@8`k}fkX!=a9Envi(y|q}JON{|tyxJnH%T<Nv@lIJF-=TOHc2%w
zO)@btOg1n{G*2}(GBQX4og!<Hl!UQng>@fz!B+Q?8~9c_lD2xAxX{sTO6yR?zoHc0
zUebrNV4L_;iYt-FEg?Y-8@j+yjvUH36@e}wMK%*#IGZLK8Yda187CVg8e19~8Jk-s
z8<`q|4yH9pF)*{RFaRAPY?z9<Hi)l-m~bX(Hz?5_0d1F1C$L=tZ=69w7nYEb0~02O
zJ;}mC5dZqplnxaFd(fdP071?`vK+oR3cEGv3z!=PI+RIXR1K*#Ko*0RjzPxOusH!C
zs|(SB-Ax!vYXdu!@UI4idlJJ2cnbs7br|Z1axUC3n7fe|*rucyB_&y=n3|XwnOmfo
zq?uW!8XB4;8XKirS|+Djrdp&Jnxq+;VlJa*fn3Yj`6LBT;X=}CP$GgulRu5A1*uva
zWsZgb-9w;JtV0Ix-b8GbJ^DBtv`j|Iz<71RvMy?Ai(U*i#db*J-<yfo5_mxYE_LuK
zCDz?=BVisuE_=)j%uN#wk_|!E!laoeSs12)u5w99F*Q$2wn$AjNJ&XfPED~$#@vlQ
z3tZuL`taf@d#G?eCbVvXdqT5OtV0Ta)MKf*;Q<K=R+tLpAcTn_HE!U#U?E2^>Lm$8
zJw8j|UPN^xHun(gZn%*!4<JXqX{v#Rd8%2md5U3LVrq(|iK&s9L0VF(QKCU&iiL$~
zs+pm2l9{mqX4D&lqrPKz8`YwosBqD2<m-^Yf6yds91m%-2;60c1Sw1wIrv~==sI8_
zh8pD<4GiB7aRO(F;<5l9H>hqycLy<Ug&PHPG;%asCL3ECr6i_;E?G)TGfPY}H#aml
zPO~&NH#bSOOfyI`NHhkuI54^{%y%Kt%)cB@G?R9gD8aDMWME*JMfci-C<}QR7#Oq|
zvKjan@;mW8=4;_o<vqrm&db5GlE;htHFpoUF4sA(d@cdbO`O3TUpS_6n6Y1HuV9yC
z+r<{m`iFHcs~yXImIf9@=0nWM%q&bxncNtkGj=d)GMr+_Msq++YYAH>0~2SYN^wS_
zp^8PCMRKxfa+0}us(D(HMUtVhk$F;*L8_@`ilup~iAkzKqJgQIr3K?tmE06l1r-DH
zR7*2MgCyg`#N;$XQv(x|<iu19Ba;*}vow<=GlQ7cVie;+txOA3^F$K^!(_;Xfr%+;
zNd{(SNtTADhNdY=MoE?_X-OOwP~$BULC1R;86>8e8W<!erx~WCT3VPGrKFmfBw3mn
z$Fvq98*gf14!$fT*(l98*(fQ=z|`EtJki8F#VFa_#3;!m)x^>$G0DV;^)|$KbHikd
zlr&>Ya|5%aBxBHVKxt;FNr|cEMrK9^rpYNWt%b<O6MK0Qt2e}WBjYp!W6R{!G)vIk
zCy8dMCT51FDTb+OX=!O@md433tp&)&8yFfUB^#QXo26QqStePeB$}iq8<?e97^j$~
zSr{6aTUaI~C7PL<F;_y2Pc%(UGe|WxOEWSzO-eOLGBr*%Gfp!GU2JJ;kY;ES)0&TL
zym^Ybg`u%!vZ*QP-ZD!QgEVvFWOD;hESVY_7@HU+8yQ-fq^1hIh8S;bWRR9@VU%K=
zY>=Fklx&o0VQFrVXqIH2l4g=*V3HEknulz>rHNspg+-E)ks;_-6w@R_1Ittc3q!L+
zGgG5f6U!tMOEdEnOEY7(Fo^M>6PFB<EI=J^(-eaw%VY!7Buk5wRO3VwOG^tQ!<g1w
zWaCYe4O3FhlZ;c76HQVR6BAPs%`D6k(<~EHjnm96(=3ck5)+NgEsWVWLX1zbOiDFR
zG_f!+HZV1{0Nq7qYG!O`mTG2TmYiy7mKxKVgKT_iQgTX4s)2!td77DdN@7~Fg{7HA
zQc|Kps$ptcQksFOsii@xg+UUF9>n-06AN==WAnsR(_~8n6LVuD3sW;=(?mniy=;al
zW~MQ%*~rG58yF|0nj4xK8<?4yr5UGMq$QbIBqduUni-{7rW#u&S(=#`CmWlw*+Ps@
zOEERIOi8h{NKCXy0$t}~o|=}NW?^DvoMdQ{l9CwHnuTn9Qi?^IVR9Py+7q)BQ_zKe
zp!;?}SN)}>nHndXq!=2cm>8zA)If|+N;5MyH%m%1Hcl~5HZx8%Pf0PcFfuVTPBTw7
zF)%cWY0X47-oU`r)HpH8*eo&Gz}ysck4{=rN}9QmDX1H1nPiZfoMx0{l9J3a8)Ce%
ziJ6gEqDh)%a++Zp==?I!)qE+&NlA%G=4PfA$uX@N$i^q9q#7HWCM74Eo121e^)a?I
zNJ~wzNK7?0voHZAN^>J~W7CvG79EK3mZ@pU$*GB!rUuEWX(kqlre-N-NucYlOwA0F
z%@Pe_TGNq@H#IOwvoKCfN-;1=O)*IVB}c=Q6jKZ1WJ`lI(5-Q%iAkvjiK%RFA;u?}
z8yZ+xn4}n|nkIoR?*f%ahRNn;pzCuCQ!NZ*TGNn?PXS$LW?*KNXkeOTW&pbD)HvD1
z(%9T0)zHM;AjR0i5PbEQ3Ck{s@t~WKOjFI$OjDDS(~`{0EtAqxEG$hd%?*r_Q!LCa
zVp>y?jW;n)HMUGiHZU|vN-<6`PE55lF-<g1GY8#ol$2&@oNQ{DW?*2E#2f=L-Z(WW
z*#LB#qNSxtl6k6WN}`dasi|d}g?U<<QJQ6HOlu0V@u?=J=E(-BiDss$#s-E-X%<Nq
zX-TH$rshd0#zscTW+~>$Nft(CX^f8{#wQt@7?~OxgRV+4O|-ByNV7~!O*2YMG)e&l
zS*lq~YcjI&i3X;I#-^aV><o>P(@c!g3_&h8F*8pwGDtQ`GBh+yGO#d6vS5O`J}oIF
z+0Y`<G|e>G(!xC1$TGzuH8m~8DAfdXT^A_qlaP(KFf&Op09_ktVrXD)W@v1jln6SM
z$->aWz%bR+!oVQK)YQl%)r19FAX`|brW%^2fbyJ)fuSkr7RV%H6T>7UOH)g8%OsPS
z)<k6E4J}P9%#F-V3`~tpO^uC=42>;J6O&9$lfZWhr5PrrSz0EhnwhZpKmy0q!X(Yq
zGR4f&D9zL?(Ztfg*d#gCIN2;YE!o7x*xVqdH38Z9G_ypbWCPPwL!%TU%cK-DOG~2^
zLqiJ-!(>Bq3qwN-1EXY1bAuFfmIn~y4b0LkQVfg@5=}t`T~e}{NorE6p@EUHnPn2F
z+KXw8M>gIxF)<}2F*(U7CDFvxD9I=(DJ{jwz|!0(EzKw;)iBW@*}%ly)HsDj24cK%
zVzQ}Gs%3IYvZc9^S!!A$=*m*FwB*!eP`f?RBBnJC#dre?lVsCWV{>!Ev?Q~XL~~P<
zRD-0{B+&7CX6C6$h6WbKCMn5joZ%4T%~FjmjS|gLQjC)<&6AQXj15x^Q;p1x%s_WA
zCZ?Llw8kPEZ<&^AY;0^|WMX1qm}Hq^0J>u>B{j)7*~rj1#oWL+G0oH@ImyzPB@|+O
zim8RAWm2+*MRJN!T5_TxxQwtcNl8jgG)ql1HH&GDK{nphG$qO0AT`z8Fxkw~GT8uB
zfTku{8m54*i83@cwKPacH8C(rWB&{>-Z<GX(a^-wIMF!GA~iK7#WKar$i&PzDaFDt
z&A{BkFuFCGEt7!}){HVt0^JW~lxUG?X=<68k_fut)YKv|$<W*)+04Sk*xblCEzLM7
zF&JXHQHoh&DyXuzG)_u3vNTIcHcLx0GD%D}NHj??wls=qjY4s}g=uP<Wr{_LxlyWR
zVoI7xVyc0ek%6(HNm5#hVT!4xk(q^Qs!=M79mIHJV^iZ)^OWR7OS2>+(_~B2WFupP
z6hqLJc*&qE`(j!nk&QP@Hb^x$H84v{GEYjiOiW5mNlG+LO|nQyvrIKkH8DsuGBmX?
zNHu10gc@&VY>{f1WNd7im}s7CX<-RUJVuG;MrJ1F#+IoDF|83O#+#%iSz4GSgKGLD
zV{_v~i!`%DQ)6S0e^L#TOw27nm$e!tv;2n`Z)s{~nrvoanr4z>VQQ9akep^=mYiaq
zmYQghlw^{e6w?}xY<!xz5y)=Cl;mV1^W-#>#H6I;v{b{CG*ipOL}Me9lr(cwQ)3Hb
z7BPtNDW;%1{|qgSla0(l>B`K=BGDqnFvZL$**q~3R3?NW8=q)u0V?awOp;P9lFW>f
zK$$c(&B#2-I5{ObHPyf<)zs3$$Rv$T8DhM#u~~9za$<6lSz?N*k%@Vtg*m9gO*2kT
zF$3L77t<PwY`j^jX_BQ`66oeP%M=4kV-pKdz=JNqvq(%cH8)N(O0!5xPBvkYf*5a_
zY;KTbX_{;Xy7tx>boFbBVVZ$yVxqC3Nup(<X-sPfvhl=TAj|~~d*ejY#3T~~V?)D4
z<D?XGqhv$V6yr1_qm;CiL?bi9#F*A#WaBN3EeukPEDVy3EKQTrERBrQ5|fM*ElraQ
zQ$eSiCZ!phBqt`Nn6vOfT%T%?mSkvVnv@2*;y1<EJjuucl&#Z1_Z3<unI*-v1|b_y
z>{Z6BM<B+hr5KtTTbd=BnwyvzBqv#zm>DFRg8X7=nP`xbk`mJzh-`d{fw^T;a;k-~
zMGC07W0GWIV3}rY2I_z$C#NK*q#2l`rkN#~u~b2fH%U%1NHa{cG&C``G%!v!O)^bR
zF}E}}G)^|NOiBUO<N?UW8<?e;nx~~fZiF^6NlP(F0#~1wM&`zbsm8`821cpoX%?m|
zD<Q_G85){^dOe2bsRn7ONu~zLmKLB(T2oRI4NMIzEn`~!k&RC?voJ_DG&MC!OEoew
zPf4>(vouUgGfhdcOfyfjNJ&mKPfRp0PB!6(wqVmtk`s;6Qc}~B4J}ekOifeFl0kQd
z8e62MnHnV-7{;{vp%`zTW@G`n$~r08z{1or(L5#9%)&G=H8suD*fi0=#KOYBG&#{Y
zh1C+`dLz(HsYwQ@iJ-gzx?nUlG0`l|z#`Gy5>!H4#<cn(8=qofYHX5bW@>0*mTC#Q
zAv47?+1SV|(ZIsQ#K_3h(8vVT%1gFjoeMGEEYSjV@1TjHMY6e}Wok;QiBWP=s*!0*
zl5tXsfpKa~s}HjAmL`^|CT2#-$!11|CYH&GM#)LWiD{tTWST*efthKlg(WC(jaZ=V
z5Q~&#V}nFP3(M3*(=>CFL=ywc<fLSiBvAchVv%MZ)9Q_EJh4-@totCYPXQI!hUTCy
zY?_6+nYo3fsWIqsY0G4zq*Np0L|!&W20n%c2EN^V`aG|A;<&$at>Tj6*ue6JC4%WY
zQ!JwZLjw{tVqj?G>9ECr&<vJgFVLz6$cPY35;_7zUDLo9ufS|T8e#-l4;w`yF!bfw
zVME~98XV@shpSNiiRKEZxA8d?ZV=4H$m3qb7EBo9UaUvJ<6iw~P58#WNI7N#KD&<Q
zMY#JxgWA@32enh+dm`a1#05>@aD<B^1sq&VAI?JPf(06CG-H|1u#)6V<_P4>2OVLK
zbU=L;^niM}(bz13dlA)**pw3MZn%*!4<N@nvGoPUpf*btIM(|v3FC=%lIAmr3m4E~
zWR`g6&9S8($Rs#8OySZ<;RhE(N^lS@urNc7bc|u`zzz%i^X9m1fJYCi>o8nGlyl*R
z!Q71;*Th!d7&)9}B_yu3Wbni_N%Q7J1cxRA15-ZQK<_AbGz4fB0!?WhMg*3BVVRDB
ztTER|+pPu3$~cuHXJwp<(9Oh_qls-VW8`RlJtA^6Ne2qT7YiUw$YBp0(1C)6B)9WG
zi*g~s3Tq`HhayZ2sni5%fQ1=>(%ZAcfb^Cb$b5Kli|R5oR}kS)xIr)%BbVE0M0Q&+
zVwu$v9Lqg_!|;{cl(x)J0zxyTL!ZFvxnk(DwbbGgq>xEThl;~O05#6gn^}z<9eNU+
zc+QxGo2L(F!Oob43t+PzMLBl2>}FsUJ#v0i?YheRyv*W^%qGVUUHoUv!fiw`9Ukf6
z)Pr3OK_|iufw>hq<q+E=WkB~5>s(06$vKZN<>0^4+QM9)c-Lz-a&+k6jnFDs0?~)F
zU=a!zK(Y@mhN2u6Nca<1lVgWA{s_fxIy^4G5sF<6K_|iufw>hqLWvy%z-+F^Kq8dg
zfr1FNK#oxC-h;bdlb21FftMkPfp;>GCf5_L2+ofjOE|b$_OK{1U1YLn_{5Ne0?DY>
z8+kec@zx{Qj%fgO*ul{QmqdyYxR^eiMZ%>rO`aVA`0Ek4sc7cILk-nsXsU>CDBK`y
ziN}!0L2Jy!^B<geChxw5FY(~7M=Veh55a%{tzGiRzjg^rosYD32_}maXxKU(U>&f)
zLM;_AI(fbwegxJo!7N2;0DvukM+-Q9ak_&Tx5ABrIU2cmAa>pWqou$i28m%Fe7$+n
z)-DkY3(z2rFWx~MY;8)o7$hiR&1dAGgNY%vMB%z%p++F8V>^8C58}WL#AXRRj!@l*
zO)0VNh8qd<0CKbwJD-CQ?QF{6XrENP2T#T(Fo=VCLM(CNqRG#|_>PPce^kqm41q?`
z4tMm7&WLiCIF`Z!zF8EKiC`*_GYm`&sknvfg5?vGjLyQqBDikimsdTomb+(%8>q$(
z<V=MR)-tk5bFekWKnH8FmDO-N^!@Z4QC)}4CB(WIWE#xX$hkWu(bzK4I5pKY)hr3L
zF3#A<)HEqAHO<o0%)rpX(jYM{#lpbcz!Kea;H*9Ib}F8%jsKPi6O`s2zQ6`KT{ES_
z6@SkUHY5)UGNeF(kNd(rj}m1Vjgdx<4i~%~1-N-ggXWp}AWIPf*sMp$>XLA~h%^3<
z0(Qs1OLJ6Lp}2sc6XAxy!VNjm5IYBtQ6;cQLDG%2J=y67?RF6YK>*r!=|o`Q4NKaC
zjxAMXq#~b{1rASac^0A^DNJ!I0_9<3GqD9Pv1<@8f|m=@l%8lFjwg6Y8+ao+a5S4T
zI~?(!e~+#Dh6Ej`@q%(rGbE_7w6!4Wk%JniA`C;Zg*CAYGBCoLg%6UH@rO13ZVTbo
z4aB<`J^@_<F(fN%YB`#hX#oQt!%_y`-MsqT=eSKce{)P^|I0Rqjfr(Oixu+%Mtg>(
zD3DqflVVPzSVt;)%Y+G~Wdf_T^x?I>F8rVoNEU#pKu+;6F>JbEX&kkh+s451@tODf
zj@z)NNo+?7fi4I>OW>6QsvEJnhgf&Rjf8msxxOKGp(X>mKUrkJnRLeYmG}xo{5OeO
z7@@ROhzb`_7lf3QGVIhgighI5P5RizXyE&u!O04)0x1c>#gGQC;JRQb2Q}$q479{{
z#N$u;crAgaQ&cx%a}TlZh8qd<07}v)auG2`{lpm#N%~!$<R^X9`iZ!3(M;)x!`o7a
z5AA|N5Gjn{;;>*qjYo_*8nKR8yeSNB9?}>+THy*C^vC83Y`U<!3`+`&!JoqLIt`v2
zK;eUM1%icCMIc`$2A$!;rVef-%mc_NjM#PL7%7Y;6r94QSKOvn3L`FDK#O#u@h;NA
zmQo=tDR7v=rIF$tE{2qoAzENzhCewrrFBH%?`Pn)0c0ie?S80^1j#}sHKE7B5anu+
zE@U%dzCez7Vwd=1^pe>>gJXW0q#wSR$A7*H;URlS@S}S~v&pn0Qj*i3!=5u5KCHsT
zCe6s!7=~?F1$K^dRYs~_Nks`bY*D&rPz6Y#icK2SZv*Ma7LJBQ?qy);WMFB0e&);K
zRnTTwFcHCMj=yzcj4}_3&*h*I@dyGXCTxE{yr+g#)_~W3!a7^Xp#>8I^-`b-6<*H5
zf(teCU@0-f36+?5oCYu6Ad!pDJ;b^jZY0bDDEWrS-6fbMrX4uKr#!fTFW=ygaMU^(
z9#Pl=AMOdz{C61MVJ&$71E~!U9oB+NA%`87Rxk;}TA}!dwcs|QI0o(;NGxM@0YN9i
z4Z#+##BS@sj8{iUyawQFYvCUbMH|*45Co(Be~x1e{0v7J_~!Gm@+{%u;@Zlk$hnKX
zkgc9ok7W+CKhu83IEEuoXawqBHHvkV<1hWN40XZFF-V$&sX$I<FfmXCL0aiI_+0b|
zS}!%lc9an)kMVgMp2<){4O<8i8<KD%vE^H0_b+4QTei30d^_hm-rL+sDvyZ@7tkWb
zQoM^x;0X`u$X)p261XIC=p|!b-2~DA3oq0PcrF7=U%?6Ym2+Sb?%7cSnyPX~nyO-A
zlV)OTOn|kiaF`E|7)V^>P(_48;ReB6j9lZU5V?h%0o`LPyC5-aUyY~6C3NdCY7+~G
z7vb&)EiNg>ySO9;ZUmgA3tq_q4nw#YQlP=b^x-Us4p?BJMlVMD%D1Bk|Kbw3vFH}S
zy@l#FbY;Z26>b#F(a14O>@I$cJj@JPdp3J|3%(dOQ_wHaPcA5c_9>F{Q&RO6i_7x#
zi^_`h(du5pVWHWW*HI|RsmLM9sSECdm@s5AK=O+QG`}S0q$cKp!VD>7z+xz#FD}co
zO07suE-gt+%1Ko)RM66doH9e~sRI}zo{W#d34ZqEIe3D@#2jyMppJNgT@AX*yMXjf
zDA3@BUGD@64@511U}1J_Q93fvY8A~elz@Z=TOyICDPW``CTJ?c8*CJBLP7HZ=zOIw
zpti|K!YLg&c!vk!!z7@@f|PmS;;?u}E%Gpi2L(E^Ngg9g0biX5vKTb#07-V(oPdxe
z^#If?{CNoONemm{g(s@(Fw_y{T)1JdutYA2i9Ip|BM-57gNvS-*ZlDmJtXBJB7y@n
zs*y>cT@N1_&49AdM>SyLNP$-c6Vr#Y5V~N&hMEL1YTek53_`7FsDrRs0*@qcjKf`l
zO)0VNh8qd<0CKz&dzK4ky!$}n-AVvYypy)h4`1NJJpqdPbOKQiA2out%XQ%+CeUDo
zsz3=ss2EZO1=j@&If7B2Mkwm>SOWJVsvEJnhgf&Rjf8msIqHc$X9qLtA3&mBX#w@3
zo|tga<Yf+I;A8y2z_*%DoJWCs3YR<QcFq6}G4?(-Rn~SEBj$OGA0UuvJA*k={mLkh
z#2ICxh5&OQV<M`^VBs~zc5)ENP*?^85v@qn7AQWY$QcTsI=mT**rWa!HZZWfb`091
zdIs7NXA1*osD)P*$<I*cW&{^3z)C~7Cp39e8GNZ0*^L67Y<L@A@Uwi8j?#xTjv*x;
z?4*6<$bgAqXn~bzs6{e*gRm*ElNEpC3%8@-!G!8M43`k)T)1H{cO#d?#2(^^IVHCd
zl5iv!;Ym0I8egbWazq4&W}{Rm3*NgHu=S;pZkYjxCtM9u@WI891{#p`!GaDo$}t*X
zsh!M{oar2)oW<Z?x&XYFo(Juv6R-vzRjBU7?k3`04>uO(4dfI+>^Ym5bunbu_543I
zcv64`DVLiN8#<beES*deoc0`=oZg^-78a0Y01bzL%M)<WAqwKEj8xc!D|kW?RuUnF
z9yZ0WkV1`c^!d~#vra}y&Oi=(&RCE;z{jI7f`>6fpb?JEY<P6wb}G_33z&mJjWMWC
z;0C~4i5#EA9&C!fz@E((oT29j%*7L(W|sH{a&RxPM|ZepN+$!}UO8gO8FgbdTpZ?g
z)CfW^gd2G}>Pa5=25kX{L=9}*6gjcL#E=HcK^m~T2cv}W?5HDs+#6&*JkC*FhUN+)
z911rG=3?Z;L+r7&n1w+NIQ7ii;f5#m5E}P3L}^Fh2xz$bL6gk25}f#U%_qa=DBvXv
zY?C!y04c=aVo2pJ36sn<_$QgMn-2F4I9jo*A?QT7A=sjn*rS3mqjWYTN+sm+MJfJW
z^QemluzL^gdeHFXCU6-(WQazAj!L`@Pi$UJK^pagrBDKK4ABCMUeq!Vql^jcsKDRw
z#O)|}T;NQO5SI|;T)1H{cO#cH#2zt?nJjg{$#QOiCcb2ef5L%qvV?dO?gLFO1_lNT
zh8hO`mHdJHtbE(~68X4!xALa&8u9$(*~k;kqs{%Ddk=RTcL=u}*DJ2ATs2(ITwI(N
zIcIQ&a0+r9<;docX1~l{!>+@2m937=i1i6;AFBn+BbFW(YZgxC3(OtNM$8OM$C>(=
zLYZV3uQ1jzTw<tU)BxoKluJypbrE3;kie0KZ6ybMGzsn@mMer!h24+?ZZ~1I7pekb
z>RE!O!kRO<-3n8IFtvlAsqk!s)2%QS2vbu~E=$GYKlJrT*jER!greO32{VVV|5!Rn
z)Ch}amaC*{gvJxgITAI(0*xgV<^E8De$32g2}6l9eB-N-kiw?|5oZ}FafU??EY7e>
zA<XGV2?&^C!Y*OSL<tCj8Z+}*CIql?21ar)K@G<;+K3vQ@Z=BgI_M&@w4a_MiyLal
zVlfbA1a2!~Di9%ZfS{?c<cHf-m<oicX@pIMrcFGiLRBD4l_Y2?EaBod6{Z4VY8lG4
z&hQXIL<3^U1Y8W%DT7SgL6%1#O!Gszm>7#`phi7T=Yb><W*LOBae8OtNkYg&Sy-%s
zNQ2ypyh59057mrC-eAh&gmQT_PUqnCJJhwX5mc4}>NpeaPE!_D)S?748^MbbY*L8G
z*+$5_kfsDq??R*z=2@WJm5n9%kcOpj8j7R_Ve)Z8NfNYv3%8LdcV*i+v2oh_V@s0I
zu0EzYPzg{n1TAc5iF9V;v=1c92zc6PL@mdmF@<S2G>^gyQWkd-HNxV7<sgX~VPzsq
zI;k3=#U6_ki5g)g8%sIL?cy*W;0zpa@y6nhat${@O`w8`#SrDLaDsXu8JuM=YE?=o
z?lSXPwv%QLBxkW$qTESN&~->zhvfumfdR@tEVlY=oSOFN$r>}%q1l0@38gZF?GVGZ
zs|sQUJ{5?(9)nW4VbKFC-LOg_%+W?kd@#j?UBVKJ61xO7X6Cc#pfr?V`38BP0ct}D
zp9;_s9xUroLl&CAkPSpl4A=~WsX&Cta)PG9%z=gy7JFeT5T^PNG!>SuahnQLfiN{3
zrAY&~72X|$G+J<)2rdy2rir7}A6QHS6$UsB14$yx;tFTu^v;Fl5-esx3JIL1L8L)(
ziE@ksiz7;7fiiRBlQUA2v-L6x3Yh<c?*9{Fuwvk{=M-cA#<!W*fX|0*Bkut=FP0~)
zFL~6Mr!$pv-DGBGj9{<=_1O`)NvcyylGBnyozoROM*v;A$;j5|z`#(Dn4F!Mo|%`f
zUsRB*pPOA&kgHdmfg%bSYC#c#D?}Ms!MV26%plb?F*!BK*eEU0)F{c^IMo7lD@9^T
zs(G?;N^)9Ka!Qh!nVBWS1O}F7yD8femOv+m)xaYy%WtUR8EG-aJ0oCd0-F=S?g7mv
z=}t*3p~Hk0Iw`41`nlODsYxiIlaiW*9y-Vhi3^>?l$2ykvqbYWBO?RzBtw%_3&S)c
z6Z2$ab0d>PON*pbOJj3OOLJ3<&|!ugH%9H?LH2=WBTuIo{`m_mNgPxSp=KOND4~jh
z@(#3F1kwNtEYz_@%=wf~3B2yXHna%J`Cz-@l1T1>iy;lVgEU}w55`!hXQwEE`4k)h
z1TTufE`yhdXrY4SP+Usj2Ekm6Jj!Wmn39r`W?`OUU|?*JW@esbYzn##$^dlHmO+{k
z=#mkG6l1eQjOleYQ*ho}n(Txp?-7_!L7!g7tcXAn4|l(26Jw{4B&R8dGN&WBq(V$z
z+dyYCAuTGn4sg&x#E=3CA^=x}Em$mwymS;}@R!2^94t$YGvf&sQ<4UM!GrN|*J{Rf
z3QKS*bBJ>4gTerFW*Oo;kk2u^4D%^!7D7+5DV>7&XFib!m5}U!FUZ7h4f?{KCdW>G
z{1Z}e1CdsEX6C~~0^~)641xukK|`LN##~W~WC+ZyD0za&D`7F#DzV-MNB-hjws<0+
zz^+HMwMwwCM)4jz2sE2yI=Lk|T{$#413{?)JiiawcHslf5oO8o#fiBEIjQ<^mR@lV
zcq0Zv1SuBbst~du_1MD6fXK^d8D=xEbni)9cqS5BZ8KMb!)ejGcs$``M&P6<Q{=f=
z9In=EQtjlD<n-py<P1j(pCCNpQ<hv%l%EAoUvPs71QA3FwooGW4qc2;5_nBaC|TfJ
z?_g+3Fq9w;*K8E)<ix*n7}mEznq+{FGJ=B&K6Zf=RB$nDx?rJ&S{z}N6P}&o_-jyH
zH8eb%fSrd+6_RUlDS;aVb1`yhk(Oj`k(8QZXqakdnV1HyGYu_LQWMh*K{sipnwuC|
zn53m7rD9YSEV1DDUHW|^o?Jkn1|>XC2x_Xp-LKii)+r*%Y0ja}>5P^i?2y~~pe9~&
zeqKpYeh#8pjH59NRfjETh`kw{VLt<_=$Y27={C>;g7GONXyT*r1dS>Fq;CmZtbyVK
zeW-Im4Od>g4Ml9L{Xl^UPE2q~q|^f!Ls|t1(f|t?)MSoc>o#(93P^C`Su29QHiWna
zR!bne1}275b6|H1dX`J+<ip<rfUP_Q*^X={OdPv4=xy~T&rTlvIU84y!V@&e0f^v6
zuyjEIkIiLhO5g^;T#THviM_iWBWJTh_WdmS<c=r#l9aOv281T4|F6Z6&A`8q--+)r
zUn`#)?{VG?UQV7>Jl@=IxO=(vxXyDGa0zm5;tb~a$}yG0jQu)$1-m5MF1BdaKdf_E
z?O5)!G_WW#A7V~sW?@>&<i_}%v4c^Q;S@tQVypnnifNNWzRA$U(9kF;)zs1`#oXN7
z#3aSiJlW9Hz|z9Z&@9C~#Vj?&*gV-JIW?L29ONcLb0Y&|GeaXo152YMbECvGQ;XD8
z<CLVN6tlFHG&2kHm^N8t<IPMBj4cu^EKN*}EKJkV%oCGREzQkS%#+P6(vm^<Q(C5(
z8Ks(}u?Rqnw=@LZ&T9f1OfWJwG_puZva~cdFgGwsHchlNHA#wTlR+`w*uXd~HO)BH
zB-t=2)y&)|DJ?n4JP~v`xUreJu?6U=NFy^t3s$J>O)M=fO^hrI4U#O=EK@-0Q%o#U
zk_-}45>w1f5{+Woq>+ucG&3|wH8-(LF)=YQHcU21PEAfrGfy=#w@gd2G&M9du`n}F
zHA*#OgkI}wVQy%VoN8`vX=rSjn3|TBl46u*VQylSY+z(&VQy{`(<X&%d|INZfl*SL
zxp7KbnxTcIVUm%dkx^<=N^+t}qES*xnrWJmaf)e*CC^t#;8+-%r5U7|rx+w9T9_M|
zC7C9fB&S%Uq@;rGwKPpmjcJoaHr~w0G}ScC(9qH>#mwBm)G*c9($d5<H8IV^)Wjgw
zBFQ|}GTFe)+=3+^YP?ZmqFJh;iDja>MOv!4xw&Dgk)eg5k%4(?s!3X6QcRl!vhfxs
z2F8|_iHXSuNtUSwh8Bs51}32E-;+%Zl8h5U7qKRq8knS|u{l7DH%v85O-VIMNi<GL
zOEpO~Fg7)^Ft#wVFitbJG%`p|ifI!^Hs0JcF~z_jCCxC+*f=@W#K_Vx(Zo2(*f7Ns
z6xS(6hG|A-sVU}(uv>#u3@wd}3{4EpEI>Earlp!ECZ?L2SSA^oB$}F=r5eSwi6I-G
zlxAsQoN8d4mS&Nfm|_9C;?~sCBF)6oIK|jB(byo>(9F!z)Y!}tdjDu@YI15?a*~-z
z3g~Lpq%;#VO9K=0Wb-6rqh#Y0Gn1G$QDox{&CE<KEm8~&Obk*|Q_RdvOi~Rjk`t57
z%`J@5lFbs6OhCPM69bm5kibc`Og2rnNJ&jfNli6OH84y}Gc-&yOf@o2GqwPwgP1lE
zWaCp)&5TUb3{wn}Oe_qH6D>g3*{3F3CYhuro24e1gKRTTHb_oZW`h`?mX-#(2H7$>
z1$3clvXP;giMdH)YO=9ON@8+ano&%fFtYK6hQ@|zsTM{?=1Jxj2BzlbmS%<qW(J7{
zsm6wu7RH9gsTSsj=0>T^X%OR0(u~b4EK-uql2X!)Ow$rmO^p%_4a}2Ljm?b>lg*N2
z+JumeH#as)G)zr0PD-?}Ff&U_0bPQdY;2KgV4P%ZkY<u%ZkA@5WSW?y-U2b+%)-DR
zHQB^G$-=@2lypr}jEqwa4b0Ngl9EzVjV)r@1d)w5NH$F|H%l=zHZe&uwMb2}v@o$W
zNi$3~v;+lfs<B~`L8`H3k_F3Ni18K{hN&h-#%V?dX(omSDHcXX#>UB}<_0O2smT`R
zscA870?5Xvn3)<Sg32k7CoL^Z(o7P~lM_ur_iS4jCZ;A^B$}C}nJ1d4Y=#=2WMFEP
zYHE}Mx+yx*G!b+Ubdq6mszIW$X^Kf&QcN2^vhn7IW~OE)sfj7cY33%zW)?<fMyaWW
z#^z>bDMn_Arj{0l$>zxhDXA8^5aSIEEDe&9jX~ENC#G0fn57z<rx~ZDr5KtR7$lk*
zSj4pPAscU$WR_-Vl#-Zcl9HBcU}<2Om}rrhnraBTX*$W=!rau@%*fExEQzZSYP_YT
zrCFkJnx(NxQcALgk%@(Qa*}ycVq#j7S(2e;VoVz^vhik#$wn4N#-PYGvq(-dF*md@
zO14ZfNi|3`Ofk1KG`BP}0u^Fj&^wP4lgyG#(?FRp$uPyx(gbvSw~<+rshLG;nvrFS
zK};JDvhn7i`{pgul1)s_%u_8>O_P%hOp{a1ER#%AO-#(p(~Qk5(+rG~%vsJrTyJ8W
zVwhrJZklSCn3!T_k(8KbVVRtiW@c;x3f&~Lm^N-?<Bcp$jgml@%9|vcnI{{irlc4o
z8zh>VS|l2!877;j8kweArY0sCC_t}NPDx2lOiN8nGB-9fG&VJ~Ftji;Hb}Mrm3rpp
zCdS4wZCuF4n<u6jq!_1I8YHEfm{^*dnkAYUC#9Jh8YLxy(w#}Nv58??T8e?lCWz}T
z6O+x14bv=*jVvt9KoOe+N(9E{DaIx#CdsJ=F>Rd4#v2+~CYx9!S{NIen<blB8W|Xy
zn;BT9Sr}WUTAHL;q#77mn5P(<rEnxbj88F2Of@x5F*Ptru}m}tUDBLlnVg!OVq#!m
zVquz?9NWghmdU^jyW-x&%)r<rG11UG)!aDE(k#h1DapVzEiui)+#)3@#XQB*DA~w7
zDLIX?V<N<SOA`Y#BTEy5)YPO@GXuj^%QO>X(-d>dWOGCF#I)qJ=r(q?Oa?}n`H4m;
zsRowDi57+_MxZLuFv&8>$TY>!$jl%)%_zm#z}V2h!oncg0A{*TTAGEKv6*>VN=jO)
zp{Z%2xuJ=%fvIs?lA&ReNlY6Xa^RSyS|phmq?#lpC0STnBpW4zE=)H|Ha0N;W#KeS
zP%cPJO)+794K+T|#KI&o#lXzKJjKW`)jTaN*}&M;)ELxsFf}o?jA>&<Ha^KH**rDP
z$iz4)(Hs<lW~piBiKfP;7ABDEzf&xd%~K4LlVI0bTc)O(8=D&^r6nh)86~BrSehm!
zS|*vL85<^=gIZiMZ7j&f8yh917^Ybmniwa6)SILjq?#tDSz07nrdXI;SSA~orX{7A
zo2E!Y8zSb(W=6?rM&<@-DT#)rCdOu_DJe-7#z{uzmX;|NmL@T6%*e)@nWPvcTUsWi
z7?~!Tn;KfCB^o6sT9~Dpq$QacT9~IM8k;AkSSBYr20#KQ+1LbB-kBJf7^kEq8W^OR
zrWmD}rzWK(nWh*grW(eyF(DhDY-(g?kY<vaYHX5ZXqJ{}kYa3_Vrgh#X_;bTnq-*<
zijb5<GYfVPi1EfImPy8DNvS4==B9~>iDqWTMrKAvsVRm=si4MOVoVz&vhkMYMkWR+
zCMhNcX=Y{?DM_X&$!RIZhK80Yrpe}Mmd0il<{*v6Ot5B@k&&foibYbIk+D&#X{xD7
zYLbb0l0lkrBIr`~#Kf3324v$cObk;jQ&P>%%t8028=I#kCZ-sq7@3%uCmEV2Tco6z
zBpaF;S(pf3hPd9`+|VE~+04uoRFfMgTACV~85^diB%7zC8XB6IrN*?@BO9M=X=Y|-
zZfa?6W^R&fVP;{GWMY&EzDM2AFg4NA$kNCl&CtlwfMWr~_*4T>d2N(tnPO^@WR_-N
zY-nkjVqjzpx?tWo*}@{GwGP>Mb7O;4V>3e&V~}$!3@j4Uj10_;%#Bhkjgl;qO%05b
zOj1paj4iobA;u?}CMTICrdp&~f}{=8EK)&LXR<+3l7%toKJ}Q^T4dublPr>wlgx}k
z6{>Nfg=La?ieV}UCz>T1o0@`J1;!~UrWP#95aZ22*Se=#nk1$ggGzZLV{>zhloXID
zhDnKL$%!$oHOR&rTBaqL8yK2`u8=oKOiWHSPc=`ov@|qIO)*QgG&4<3OEgJJHZzce
z778XtsivluCdtXEsitWbX$I!Tspgi(hK44FDQ2k#=BY8Q)yT%1SR|&U8YUVfC7GC;
zStJ>!r5YM18ygv<8kv|TrKY7Mr<kT%CYz_RaY0;foR*fBXpm%)mSS#VV4iA{lxC4+
zV3}r?Vs2(>U<q=46|(V`My3`9=H`YesVNqq8Z9;1+%U~D+0fh!lyH(k^_;P(sfjW3
zJ&5rsCg#Z&iK!-uW(J0a#wHe~7KY}ANrr|gY39bD8Yrf<64`je<dj4cOM@hHvqU3f
zV^ae&b7ONeQzLUzi$p_1Lj#Ls3v)9=3xgys3yAUNsVSDp$;l~cp!yh85Ez)7ni!>8
zB&MYqn42Z0Mz>ZVm&e4;>#9LaH#AEEH7+eul1vO!4HDCm49(0_63tRA%*>1|O%u&y
zTFa3gPwc!XGc@5O8JHRy7?_%ynI@SgCmSUurWu(VC7C7~CYhO<q#C5gw3Z<oPwcoJ
zODx3oN#-Ugh6c&zDan>8Mn;B~$!W%^W(MZQ=B7z$NhXO&F|DP@#uGd7#%2mJ-onVj
z$SBd=*fa&y4o@^ov9vU>FilQ0Hb^!%FicJ6WvXM~WiVpko5sh)vyg|KYaN#a`%AVP
ztb16ZnGZ6$F&Lph1_p*EflggXPFoIbPEYt)AY^Z#3v_I}ur#qGwJ0w$KMy`m0v>Qd
zh$9WLAOzuxu??yaTh!(-umtg%aEUC14hb@S1rG_X*~f}!OvTI)?`XII%B6T%9IV-7
z(y1xQ8O)*284nK=$b3o^14BxFvVKu&PGU)FN_;_LdTOzL5QG;1;^<|R<mO-~fdmkS
zFs4pyVMT1cfiXENc$tX6GRMF3)dCh+L^xiP;~S$hcx-5tAU6aW#X2?c&%j_=D1bHt
z15*J>b>O^;ZB+nV7c9}?ADV88?Nldl)CA08eYkbHa7*CD0b%zL>u$J_Fb^OP+Y;Lx
z!Wg#YSOCs7t1I!{!b{q*Jw%0zW|Ksxnk1()hdQS}TB+lOJS&r0k%~C6PcN@H6EU-q
zT9FC~I}{;Q)!4#{*tQ+U<Rq6XB&<rG<13C$@D|7L$w@qp)@<VKRF&kk=FsGHM++M#
zXe|YwqJ^gla6*F%Ljnd>46YPgpn%$v#I#5;0)+*#;A%DgKp}8?DvlXj*otz^CeBV3
z<OOMnMKBKNiKVzCB{Q!?4{5m`j&uT3h%GdTZ9p?jKwF$AXFx;}A$@foC>Oxo3p({#
ziQEErWaw)Y>Qs>6^ySdxj0EK$Va$^#u#{2B`Jfde72rGrFVT_m5nK$Zyoc(6B_RS;
zN@%CNBxgK_FK0H$RY>br(xAB-j}`FDi|Rg1w-D!IxN$J2BUdKG_U|w%6E-ez>R;s;
zh^K%w$3KOQI=fFyh=A5{$l+~8U|Zt=zcLUUpl}sP!3P&ZS_BE#1q(L<Q6AeVi@z0t
z*AjRvp}G;9dx&*6+(?)QkRzVho;OCsGv5P8{EEp-@kBgHtq9`6MYB<$QwHx=e{2Z|
zvP>Nurf_Mb@PmsXWiE&oSeT(kI>r=#TBkJrOJH!@0J0K!-yW(XL9)=*!4L-#<!X>F
zWHVvDK#qB02SqSqo(r<}6aRW^(k`3CQZ_?;i|!Hd{J$Wh1_S>Lo`-yT{D$0z_>Qy9
z=j!5gW#7%(!*QF*nPnNX4Tn2q$NtEu`>^@4NxaielGB|-o--I;^FT&DydXXN%-qEE
zRQ;4<=(17W#G<0aO1=D~EKolfED1?za4t5r*wPiTb2sSc9*JxM7bsf}?8j4}nBi?|
z!}d7fb+cw;X{VJWr#go)r!hEa5F0`CAVHH>nv(-Q{5mB+84(C@Q4~+(-0VT@Bn?9s
z1548cdC%|np(8+$=Hw=WW<0@QiobDfj69|RceiF!TBi+xQVPD!3f`@S7CWHbqR5+;
zA*B>f<&a<_pa|Velz@dE>`m-c9Y!g|kpNCk_`{L3QVOSU(LJKsnAB-4$*IaA%xMTt
zV$jYDGh3q$B#F7?S5$%uW0VvI6T}t{#Lg))>}FsUJ#v0i?K)_3V(gemL_nC}-#ugj
zy9oi5vtZ8DY~t^<0FA7wBaN&=MiE`myJ$hKjxN5gpzX#eonS~ZK@rkND8&{IW<<_T
zVsu)WA<K+6GVjHcuLumR;^@gETnrlGFu^&*0SY`&{}w!|s_&banFktCg%7C0r68e#
zM>W=fA#!GtVIKpl=xKJ5z+cb=;uru<9~-8{;R_hN<*uQn0d$o*9!G07a&(##So#Uy
z83W5|piK_oqhw$Lkg&m7un>DpSffCvE&fI%%tBD!Ms0wR;vPsV1{PnajY#yRvFV+b
z5}fKB@{no?r3Z_WL*N`pSirgZsTHZ%Z9?Ce(B#-@Mrcn8wy1#jB=Cek#8G$@zzu=9
z6;uvtK#O}~R|jAe_pEavsdyINbMHtwBn@5zBBg*##I_vJ9EvF@5cN3|;blCeg%trQ
z<5A~Of(sIhic{l#6HAIRE8uw^MGYkAKv@VySRYd>wxA<+<pX-VOA>M!A^!Ytj(5fh
zx!py`>7bpaMxebs>e%-3AQCfZA1?gf7QNzv)MOMnNLZl=Aq@kAlw%7cV%Jw-tkh@s
z04J~YW*6}llK8jsU|Fe;=}FBd&rW^NYVkm%8<`l{q&e6cWAF?aAvU1+={Z6&AC^89
zTookr2&)5a-^Uh?DT&6GiN>j^rm1F0CP@Y<#zv;5NolERmZoL~h8C6viD@Yo2IdBq
z=xGfci0cGz;|WCk`^I1?jX0-kHi~u{pbrx<qFls|H<Z97Jxm3$VFn8?l)@f8AksUH
z377Rn1-bA94zV511#MHuY7s`tP3bfwu*m^h(u0B&Vhe}`>Ucw{J?z$?kAS3h>Pc{F
zbBJ=9g9<}%<%JT^h*@Zm=}7h<B(Pe9K0nUIWyE01@PdJhne!&+GR_)KPfmG`HynpJ
zrf}48M04nKu(Drb-@`tey^!65U777G+e!XJwnc13Z2k-{*fdx_vL0mZ;y=ln%4*Ik
z$nuC~2TLnUG>ZoFKjzcS3;Cxpmos}Z8#4<qJz?6#)Xr4M<j17M_=E8%<7|FC#zMZ|
zjP8sg*m~ROV%n^np|CR*U=0a$HTe11Ou$|dv1~J9<xGazhHv{Cyyj);&}8L=pZJ4M
z3ri;<m9Xr=a+RP;*g-ny2st<zc3do|NvxM#P{5Kx$Z(hzmQ>`B!{RlhDx4)$iIvkC
zPso9e&l6?k)I?Xpat+xBSau-6Pe(=sc?Pl%@M&SmMD_s|mB>EmNA>|$wJZ~meE?I!
zGEtY6lc>Y+Kve*X8;awh1qM=bgjXyq?u1mrvIEOOlrY3%CM;zk!Z3}H;V>;M=>!dj
zCPswek^~KhYGIKgWH>A_A`CAhWH?L<OSv8^XEZFq!2$~@sL{@X@l$2x^dzL5#h*ZI
zgSL?&9BZJ$%IS{BOpt08Lo-%R!bjnO9F9B?&Ellb${CBtY)FR*;g$m8tid=`PK}k*
zo1ir;dr`6vW*W@QXW34`!6~Tc7O+?luo<GB#S$fxW7>>z`W1oLLpeQy#fCuafmE~D
zYOr$RJ2egzZ=lf{mPlL)7dj7$h^a;eR!)rLwm{}URkAdp6hu%jvz$cEOt9mru${Vv
zuqg)FP5891#3F|>7L~|FsWx(2z^ax-2iXTOB`k5s(E}@i5bY<lQ$yFII35}b*i^G@
zKnWQvD&eIAyqa82$Z(hzmKB5yhkFEWxDO%2VOm&x2^kJ6?GSMqPRMYW7M2L)0up8=
zQUIbAkm3vsEGO}|wMJz}Ltr!nMnhnbhX8V+ilt+NSYZG!v9A!+0&UVF%Hgvnteok1
z8cs;<5`?DX$o9ah7*N#@89~6ZMwaCOaqYUQj8x=VN0vRH{r>_C)eL-3d0Tj1ai8PP
z;?m(1=U`%+$@-gh3iCUrkBoO1s#$)~ATFC?JALu5?16WKkdJ|Z9Tou(F3<o7LIHxM
z3qSn;X?TP<BVj`)$V2JGZmh;wRnM{&JWRK<Uk}eP9f6fS@KyDMJqr&P%_hN4AJF8P
zJkt7L$cVZdWJDdjECFd9LP2Q>kt-IUDzSwVu{*@khwzlyhzKS#yqgbTqnV%~e;j_(
zY^?0`mgH3BkcUnsLsu&>fv1v_QuC5CaubWP^;7cUY)I;XbM;g5QM`?F#R9Q=*)ir`
znA3;|2?8_B@HK$Q?$&JL==1{3Fv}y&Fhf#=19FN;O3X`v6g7IO1;y~tgaibftB<M-
zB~YN#PsHxGM^6jtEkuL>{x!guX#v%_pe2uf=wsPTC}Y`JD+Oo?kD3o5A%iN0tssJh
z5z1ILMuCyi>4|@c8CE5LEJU^%CQh6+jZ&Q+c<&s<He-iWUx92#R7%*~fsoZj(udu3
z=(D#?sh#fl?;IrHJa{>X>Q3x#BHs0IV`1Jvt|N#&00JY+v+M;Y`0eeh@YNA`3qM16
zmM6x;aBqNW2{)2ziImhFB5Mh#N^BvOLgZN%=p}>7W+DQL{8|F)Vo;#Ck`ySQ3K3sf
ziC7p2Rf#Q7h&_P=Jy0xkX&NX{7i%_Ib-IA2QuR@%QklS0si0~BZLT^uv8Y5hBsI4n
zzbLV&lEgWBESj+e8L_8|pa&UOAtcC}58=sh#Lb-&=X1@(PG`^*C3KY}ct#Ia-GEF0
zbuz#UnNXIn!9`(yN3A)~*B&)VbUJ~OE!G`jD7NT(B^D&+r52~cqXljiq%6dv8s-+{
zl8@NqS1>9&ua)44*t*ykPekBfrfLXp9piB{sJ?f^U*E&3PoydWUdN!8sgNK-6~m?r
z7E-9OhEdhUb~+H~2;p-YyeKE^9%9`MHxlLn<ftb0C>+d6?hH7pw;WlHC#nf_ga}u1
z@F;_OLbFM{)1HjQ+r*XUkcHl<1;yCHir8~~(2FMp$Q{J^g9?AHz-#~`>L9qAHMtmb
z8T=UbvT}T9jb}CHb>tOgW#`T1*~{>f<u=QDmS%ocmT(qr=Ksu>89y+uV6Ne><&$L&
z;QPs}!myX=4ATOp5+)DEnH<u5XW8F#lyIEkzrw$g=?8}g#{!;-JZXHTyfb;Mc=)&<
zac^T3<y7YG;*R4s;%4Kz#puYjo^v@@Ggmm5Hs^m%f6mK1FL^(*A7+wapU$4mZqF{l
z_JVB>+XS{$&KmI8gEn&{6XZw(@QDf7#PFP=!1N7CzhSDWxq*p!8t5n{vos4+3o{er
zltc>)^R!g6R0|`f0wlF*X2#}bNr}eBDdx#$#);-BDJB+1CWgjo=E)`ohDJ=U5NZjX
zO~cI0c!WU*>~JCoE#^o@sDCXJO_CE0&5aW+EYlLxQjAPZOij`fQ;ky0%#zFujPh8!
zh&LADT+l&q#>VD}siw)G1Lcg3EKJReO%n}MO%0O`Q_M`6-XPQ_o2MFrPUK5UOi4~M
zHAzhaoxPH5YG!O?VrgV(V!&99P@807nPO>fZeVU{oN8uj3_3u>)I8BNDK*8y*x1O>
zk}(EZt!ZkCd8%P@l4WADk-4FHvZ0}YnVEr^xusExX|fq(GqPF}^VCEW;}jFaG;>Q6
z(?kQa)WlR1b2H;qL*rD_M24wIYRxT8Op*+fO-xb~O^wZsQj*P6&5TV<&CCoEP0bPw
z7?vQZO*S`5G)+vhFfd3mGBgCA;h1V+WMXENVw`4aV902Wq}JTT+%nlR$<i<}$=oQ-
zz#`Ei$v82^1axkkp^32><0>SzW|k%?Mkz@~1{R5y$%!V07KWxqX2yw07RkwGNk*m&
z?~&A+ni!c|niv_FTAHV&7$qed7$#aKgU+E!Gc_|$Ok(UrN)D#R<`yP~CPo%!X=Ww{
z#umvbsb+@8CPoHkmS#yNDXK`uf{yS@F;7XcG&KYrVriIWXq=j8Y?hd0Y-*WenaFSo
zMXgC{639SvBO^;o!&FO4Qv+jT6C*PNOLN1NBt|D>wdSU#$)<)Dp!3+0%+gYlEK)2i
zQw%MP%uN$b3=J92BdawvGc_?XG%!fBOfxmGG&fE(vrJ4$wlpzFF)%Q*WSoek*2u!Z
zz}OUYnwNpGaiV#0vbkZ3SyHm8af&f0oiQ3At2HxAF-tPCv@lFcF-=WLG6WsMWRhfJ
zVqs`(VQ9!O3t6pEN?Mv_YO<wya;jmHxw)BHQlgQmp|L@Vv7u42A;WJZwFb$CW{E}y
zsTQC!#}bWA6HQaojEzC<8xu1V12e{OWVMFIhRKOZX-TQ3$wrnI$*BhBiKzxDCP|4#
z7HNq|j4u$;mY9~9l4M|FVw9AelAL00X_;z}Y?Nw}Y-whY1UkP<f%hoGZ6eBrp{N8A
z3dxDdW~NDrMyZLZmS*P0#%XCONv0-A21d!C1G>!33=n~voM@3`k!EISY-wR`YH0w<
z@)qWnmS*M#sVPRL=4lMOP}Eu`TY!#|Gd4F%wlGLeF-}P}F)&XwGc_?bO|)QAL{e*+
zW^86;WM+_LWR_}VYLIMbWMpn+Xl7_;kYZ_&n98Jq<XlV8iH^xeNd_h<hRH^jhUP|Q
z#!0EBDW)cdDMl7anaIW(8=I$?CL5$AB_*1gm>VZ08dw+_85^b=8Kk6|CNo?>R%>LG
zmSm7<kO(^E&D_!?**MuaDaphr&D7Ay)WCpoA(C2)L{l@+xl)N~=7|QWCMij2h6brA
zh6ahIpu;Fl7}Jr|nkO2VnHZ;8CK{TgBqpX=B&S*?gN}MNOEyn3O)_LMMyO3nOiML3
zO*Aq|Ge|N_vM@|BHcT@zNHH?DG_goYGfHOMimcYuAT8Oz#56h8$lTZ{E!89`#XQZx
z%*ezn)zmW4h_ROg5oSrriD@RF^FB?JEDa0{l8rzo3nm+w7^fwgniv@+^CPQGN;EM^
zOEfpMNJ{}78fcPiYHSM9on~fX3_5@cS#5Gks*$0QiK(%PrIDpUqD6{jnvsctfpJob
zaf*dOsx}Xj8<LU?P0fuG4bluvl9NHJX)O)SOj45!3=NDx2P@_v{Fazznv{}iVPI+o
zI_MH~2AYw9L7IW3fmy0yVw!mh(;kG{q_i|ca}yJT6f=|Ll%yn+#N;GXi?lRT10y37
zLrVi=CZsS+HZx2#NH()fPBkz#v9K_<1Rb<!X_k~`VQFk(o|??Gm>1#R<Rk;o(Vxkw
zDQ2cg7NGOD(kzlpEz?X=l8h~k6O)1wZb&vxF*Ha59Wa_^W?+z#XqIeXZef^elwxdX
zYG9a@#H@*=)+`xxmZX72qNzc0a*DZ;sd0*tX{uSWWnyAdVu}%y4w70^<0R9hq%_OK
zq-4;Ela>acvxCho)65JLQ%w!b7?8pNbkJ^MlBJo2Not}Y_!!63wB*zj12c;xb5ny9
zGsbI3=9*ZTnj0jinHm|HB&C?97^E2{8X1@+r5TtT875n#G5MpYHBPa#G`37Lw@fxQ
zGfOo|F--;?<z-})l45LP%#?u?WX6^jhAE(P>kQ13(hMz9EE5e)4M25@fl*4Tu>n#s
zootk1nglve-@-E4*wE0>BrP@7($XNsJSEXG*)lnep%KXmMu{dVi6)>kE0fYJQq7Z-
zlPpY93{2BNH{B$rB{CwHI!2(QyA0FPOp}vMO;S=*(##DEl2VKkO_Nj8QjN?RCL@_^
z06KNn($v`4z{14TDB0Z5!q~tpB{eb0*bH?1HN#b8wTT9%=4l3|iOFUb$*IYvX(>tO
ziD^lRDHe(5CYBZq3lM6P(u~d1QY;ND4NMY~4GfJ8j4h2#%~Mm7QjL>M5=~4Qk&;eQ
zYGRs^X^NRqYGO)alCh;xlBu~-a%zf&L6TvbQHlZMO(b(uEi5ckK!;D8CYvN$B$}IA
zSQ@1zgNj2lGfP8rMh;}P#wms-iK!MwmX;=#W=V;O$;N3(=85L!hUO+_2Ih<t5Yd*D
zYGjgT4r)-RTBI158m1+tfDS`Wva~d^v`jNLs6{e1B{@0GG|9}!5>(<En<gcigAQ1<
zFtRW;FiK0bU^t4T*3j6(BGt$u(IgdgnS!~QVOpA@G5AQ-#6-))6efFw+GMj7(DB9Q
zmZnJ-scFfE$*D$(iHS*uW(LVd=4NT;4CfGPlMF0OOw5xFLC1ny7^ayeCK_9sni-g+
z8Cw{qC7Gl#*&?gOe^4CLcO<ojhRLbP7O95DMuuh<CYA;%ptG#a&686tOjC_gESb!Z
z)TSCI8>g9o&a*R1N=!C4ut>2?GPE=>O-fBRH#W6kmgn;%rvs2|mX>OnmXw$bI#U%?
zG#Xf1SSA`<B$_29n;V&%GrT}@1A)UCnf~!DB*zU&sh~r7O^l6F%o39<j6wHcn53E-
zTUdhnBIbr>OegpQ$uc)F#oRbG)g;;6(9AH^z|bTuF)b-6+0@*`D8<Ym#fT{p$#3SM
z<6TWsj8jdMjEs`aEmP8x43o{x3=B++3{x!(nVuu5H8ugY8_kmqlT8yXEJ1DB)HI{C
zM57c73zL*oGo~jD3}m_2G%?XK+1%7J%`C|<(Fk<3sfneLNop$SgmshTWTpV5ER<}L
zlw@vdVwPl-YHpaAW?*2Ml4fFLl5CcoVxE|2hFr-f8zrS!CYh#!PA*I}PO>mDGd8kJ
zG*30MG&eLbNn+T|#lXNI!{Nlhzk|PkUxV)f-)z2MK5pK_yiL6JJimGN@|5ssb3fvq
z$sNGW&UJ*Vk;|O(J?C=HcupyfOB`JsPD8OdI_l=p5Eu=C(GVC7fzc2c4FO6+z@3fL
zIF*AbGcP%(G$mC(9x=;+MF?3srMMEh$S9+rfbj+e=0MNf0o`cKSV6uyu=PG*b0)d4
zaT>>y<uC9K7O)}x<U0no5+7_%D+T627c7CzDJI_>*nR=9Id?qSIE^#O2^^$#Kwy&^
zo!B^yqscNUu^4nlWdY+A3XI4}2D_rngN@TTog7!hqo(2}N(@3y#sw4@gp!UYQ(zEE
z8az*lLCA@)hysI9Qel-X8>ev~a;(98u8Syo;6nQG@RJ9@aemC1jng=m4Be2+<-um;
zU?e@bb@*KXzGx0?M7;wWr*Swr&dAIM8&HXnr-^j~YSK-kz#Qb1dy0H>U=9cS>kvi(
z43j1hySk7qfnY;2$#)EFKN{Gad<x8g?lc3NQ%-?7$ayG<d~;B;&^}QAU!6mmf&UEu
z4E_{;1HM0eC-|oDCGhF;{^UK%A<a9HH<nkE=PS=ao?f0v9#!s-+<UpZxWl-WxZZK?
z;%es#=91@p&AFYkg)@LthT|p2R*ohPe@fdFqxwffU^E0qLtr!nMnhmU1O_MsjF~f;
zREjea4OL7`lg*RT%nS_;Ow1C^%#%!#OpMKqLHEoVT7vHKGf1|yNHR7tWL7s~&SZq@
z0o}8jm}CUH?$g}Bz{D^uIn~fS(J(Q^*w{2R#n{5q&?MQ?z=97+3+NutRD(223j-5#
z&_z_{hDIjINl7V*W}r21rb&sWW@d&aMxjV9OR+RIPD@NPFte~UOf)x7GfA{G0$rbK
zo}84FYMEkemY9}km}JBxiEIt{{!gPcGt*Q9BQv8UBU3XABV$t|%j7f@BeNuP&@@m=
zQd%mKHOYo4spd(>smY)T#>7O>opEM~X_kqp#%bo3X%<E%iHSz$7RF3(k@O^`8Gx<`
zGd8gVU5jX8oR(;03c3T-2y{)aMVf_~5$Gn=M8<j~rzNEtfToko%nXc;j4X}JQw%H&
zER2mz&66!nlg-U6Q_Pc%%nXyPk*!HKO-=z_+-hl<Vs4yhU}0noT039}x-Hox&CJXo
z*(@#5ERjhGS&v0(Vsf&fadMieDR>qu*}&4+ILW}s!pJl+G0Dg<(LCAQFp+5yvL4f9
zV`Ix?3scZts1_DRMrmm#21cnV$*D%ECYDA<NvWxZX$D4&>yY)Bq!}BSBqteyg3iFw
z6tr;A$kfOJG{*<J9@RX>GSMK#gs}}N2oh7%l8wP@1dNhFcdRBFg08MLu{2G!NKCab
zu(Y%UP0A(<AX$@`YLT31V3us0l#*(cW?-Cbl$vO6Xpn4>Vq$7+Y-w(4Zkl3XY{s-0
zRZpUkNoumODd=9vL`xGh(?lavGfU&d)FcA~3j-5VQ_uy9j8BmDSX!ik7J-_Y8X6|0
z8m1Xqq#C4|ry3e2rzL_{7=Z4IH8f$oiLA#wH8suH(lph~G}#Dr>#wP0lDSz@a&k&a
zN{Vrcd0J|ksX<yIqX1G6SSF_?rI=cn7#dilCRwB<nH#2pmsA>n*3B6hq=441nV2W4
zB3WaZY?5l4WN2n+l4g*YVqjrum<C#^Xq;q}oSK?unPOyOk!omQ$+#U!k42KDg(2v=
zUC^2j6GKBwi$qgnla!PcOLJp0GXo1l(4sn1OU7r&dWgHXj_EhD9y4PD6C)$zq(tMC
z)MRrL6GMw61B+y{<U~UwGozFw&~ix7l7f6>Jw|CMW=R%ipeyW5Q!UI=%*~BbjV)8n
zQ%n+5lR($$CMB8}rZGH3(qo=zkZ6&XW(=CPO*T%lG%-vvOf)buF*i3cH%_xiGzMMx
zXKc<e5lN33=t@w~orIRDDJE&DCMkv{Mv3NzmWC-t21aR?pfwkuuwdMXtj8!V)zHk+
z&?qfA(a69Ml#k3TjV(YomYbTGq?j6{BpX?n8!$Q{>j5pQHAps1G%-%KG)PM^HcCpe
zG&VL&H8V0vGfp!$NKQ;lH8No`M%F{zwWrJ+NP0|@4bu|MjZ%^fQ$V*qCmVuXWngTW
zWRYxXmSmZnl$exanP$qk4Ox#xicy+DvVn!AkpXD&Mv{p|YMOCUT2i7#lA(EGVv0#p
zl9^c|QzcRoH8ls{0&WRfJOR2g+1%37JkccC!U()%B*oOoI62YGJT(j18Z+>8wo!^{
zVzPyafnlmynz4nUvAL-w=w5fzRD)!blq5q-CLts}CP_&aDV7Gwrl2yw)GWo+475%z
zG08I7AT22cbV0O%k#SlgqdT%5!xWQLqcjT>vos?E<HW=iixg8615hDtoMK>NV3uTV
zVVazj##n%)2Xu{OO0t2W31~5yabhZHeX%hpYg;BIr5PG0n_8wB7+54RJw?`&Vhp<2
zG%YpR3{>zLB$}C|S{kMqnkJiq7E>D=m|CPHTP88ALe`ULl4xO>YG9CPnU-W=keX<b
zn3QS)T7!{dmS~=2Vrr3OX=0GZ@CaFtnSrTAa$<^wxp7Kza;k-SN@|j6a*BnSxv7Ck
zvZ1lLCHQJzhVRIFOi~QYLHEZSB&J%JSr~&>>zXE-n<s(pK2J4BGchnQH#4_n5(Dl3
z7i4s2;Cs!xi`R}vkb63p8Rr~MQx0Z!W7bQo7A)+{-Hhv)elxlcP%C6;Sew!rk9W&1
z{4NgA9v!4zIB;>;<`LALLUS2d`U+0CubcxtTe``!GZwT1&mCz89^{1Z1O^6>(fV)$
z5iDKM303gTFnCpAa~Up!U@k`98f0Q<Xq1#{YH5^W4qDWfVriaiXlh_-VP<HSVxD3K
zDvOd$l2em0wgxeu18)u5&$tH9)*y5I=fR?G4I&s2nvFc2aT1*F9GZ|T9Z+`U;SVLy
zIi_&)i3l@TP@zUH`Zlo2&KL<!OAdKXSNM^iunmI9oA^tUa#G`q^K;5l;i3>Hz`6R6
z0Z@n{;_PnH?TnV>^yaYS3<p_`bg@zp0|R!0;VBBcG(I=MwZa^SoQBLy4U8=kEi6q;
zjVw&l(##W+QZ3ERQ_PdiEz*(`6Ag?l)69%gP0}#Z5Q_jf4eiSe#gm52h`c%pyQkm|
z2kj<|!n>Ogo<5NB4_pj2c|n2-RScUhSZJXpBaAX4wlfm{ZbG;-uvr54B4PIs>u$J_
zFb|+ax3Ph7T56hcs!6h8QmUD`QBqoR5_l6%nz5O=v4y#zCHU@b26TV2LW+#NH_qXS
zZbG{WVfQc)_AJ~JnvFi45t5ve9K4*WXn93}fdO)N0VHG~Y;2ykG&3|w1y#=`pypDt
zL2_zxTAF#Pk-24BlBKDkp^1f=d8$#W8AA^POVhT9Z@J5%6#ygTaB=*eHo<=^y9w-a
z0f_rFoAf%vkq-rlVaQ})WRqrMYs7UZNI_mYXs0dsh!u!e;aucHK??HHQ9KViDJ3^E
zH&wT!vLIC<v7jI)GdZyYbWL!6a!G25ZgELbYGN+*=#VtfzJ;VTbK{h>G(!tZ!z3d^
zBcs%$l;lK{M5CmXG}AOA;}p{rj3cpmAQ%4P4<QPU4k^e>*G%aQ!&}?K4;ca_D@Xu=
zScnrrV8Mc#lhMzBZWQYb#aqU}?LnBV3qQ6B)kbWtz@`hk%h0Q;rr6F9{ACPYr@`|Q
zsvEJnhgf&Rjf8msrHnB$O*Kt3G_*8JF*7$XHB2?Ov@|hIO-wT}H8DuFNHR~gOg1nx
zx4^7Y^1)Tg9{!UQlre_-Bzr=$yfavW)0{(|(-~C6pfpV|YNq7;f=aj`#40!!))WA#
zfrSieqQi(<&CVc6PEQVV&QOrmNG*W?EG+?$x$vOJYAYTG!8O8Mh8$-WCI-fqmWheU
zpoQ@Uh8Bs51}15SX-1&EC&r0}rpA_urUoWyn9Tq-2XLJ2&R>it&dkj5Uoi`dGpt^M
zyIZreGmz*eTS;baYBAhA9Kixs1PcxV5vAK1Kzx%8Y%tv6aA&~M2Ur@Po8Veujzf+s
zbJN5W1A~+_!!%>#<Wv(QOT$DH<0NCl6iZO0o?>K}W@MI{VxEYZzy5>cYS-lyd~ro?
zlMU=CxWhqby7+?*#~}JRG|*u%#GL^ERf#QZlF}><Ks#L0(kxOFQ!LVqj8aT3Ez(RZ
zjZ=(G6O9d04b4E~)n@1?09ZmUU?C7RcuxevcLD&^#o+t@c)0r+_!sg!@jd2i<x}H5
z!JEm;&9jEbm-`)e|Ip}ukGgU+1V%$(Gz3ONU^E0qLtr!nMnhmU1cqb?#I$L#Wil{v
zMnV?R7^RtlPED{hO)&&@9+E-JXOfITyLmy|{gVvLj6mn;7^Sg7kH)ez1RZl>VVII?
zkZhTpY><|c2s-!!bg+Z5p@C&;Oq(XM@y6yB$)*M=24Kq4%rqrAG1bH}#Uv>u+0fL;
z(i}7!o|a@}#&{KS5*4AdCt}((kc~GpG)Oc{u}A@(v}K%P3_1xZ4Rkn^L5fAPS&Bhw
zqEV7*lDV0siWJ27#1vygV*{f!BTHk@PI{vxV-wRv&>>EsqbU;8QexWFk&P#IRg!WI
z#CY>$(?rV@BLmPJvO%hGQks!5=olDN^JG)gB;%yi=r%RBOa?|+*qedQDM~XkH%?75
zOEfe#Nij<{108;qYzkVFVQFEMWNu)bn3iY<G2JB9B+(3X8daiYiixq2xoL{ANn#S{
zhyhazBXc9;m^M{p$D5@X87HQtC7GL>8k;2<gEpn7rKTiXS{kRBnxq;V8-bSc7@8WW
zeSjDbT1Jy>Ze(O`k!Wa^XlQC?nrvd3WNK+*ZjfeTm}DN^rh@EvOG|U}q?BX}!xZ!6
zG)oH$izL$|BU8gvL!+cL1Je{svt$EHBg>Rz6^Q9($tj76mWIZb$!6vz#^z}TNv5Wz
zsg@?7AWJefHjHUgMs~bmnqiuSk*T3+vPr6;v7x!4MWSg^vbmYDp+%BuqLBsY{IFz;
z6cff|i1DT-$(ANbX{pJEh6YKdmY~V@M2pm9i$tSTOT(l@!{|08WXFSo)-Wa6*vK-?
z%-GD#C^^O4+#)g6#LUdZJT=8QF~!`(*u>D#I00h1adN7qnT45=rBPCHnz<!tA(*Kl
z__!HU3lj?q^O!b8WXGo&SQ>&42uiU`HAyzGG)c9zG)^=JB@1JVw3I~CM5DB{<dhWd
z?GWP)jSY>B(#*_2>y=WClTs}$%~B1L(=1Jl(o)S54U=Qq6p)QKPfj*ANi<I~OieX3
zOf|7EGDu5FGfFi{O-@QnN=Y>~HcvLPOieTr-2^c{(a6x!*v!}>Eji8HC@Iz4B+by=
z)WST)C^;!P(bO<0rcEB%_%t&k3j+gF!xT%9Q_{>VlPwHVQjC)=%u)@_Q!P?b!7H@P
zjagG6#)HlQ!FPBBX#QW6p`C&6GG8RGF3&OUz1&gU++3`jvpH%wgxGhoonf8Ms?Flg
zY|UiKc#E-@p`9k>Y7<jui6o~shdkuILs7)3>_*6=j^JD5;e%J`<5gf;lrb34j6-Tg
zYI12wVp2}3f}w&IbasK*k`H6Vit#FV#OheUc040irg(>C5C=8GeWDL`x~5lWu>_|u
z2QQ~QXy_GX)ED_wSeO@4#|P2Rf{o}blHio*5a!f|8wR^U5<XjlY^pwZItQ!S=wnk&
zOr3?2h^cDu7%^nV$Oics`I6j%+<eeLQ+`qw+)7BK!MXa#ieQ!_k1Y~giJ-etMG72I
zNBv&nizvLqz?kD_$c_aareA<OZw9)Q9uf+;=FRYh1JddA`AJ#WLW0=(4m~84YlsO6
zycgDEh6Ji}H5(H;^Fec>!q7QUX#QnnYgB-wh?IPkv_|Y53dB~z47(XvMUR}{RJ#s3
zQEEqop9##9TEHfUL5VdbUo*2aPl8jQLzvSVo}pmtGe9a(4!=h6EQ$;)W>GUQ`qW>O
zVP~!+XCQ|@XDrAva1Mhk^uc-=wp(USYP?&1QEp-h{5)qATM@YqMOYtQBg}OuIgrSv
z3PTqIOVb2-&+qr4aiI1A90`Yex8TWw_;12CG`4`wo?!$rhTAn8Gdpu65k(%X5@BR(
zRD&c!a4CxtHDD1GPvfjIh;33apclj{M1+Eg8Q%FQOW2e>C=|eM)(q>+1{LqTNX0uW
zHNtN-hQvCY3-c#x(%a9#Dte}MYq||I*3vt(K<AXpa~gwE9!ezyH%Y%Fy$a4jvjrqa
zoJ~#AotdC&L>;o?2^L?Fg$HosLFVb_W|yQ_=@n<7h+?rAt`Oz|a6-lzr^Gg7F>Zlo
zOa@2lA-?B$k~aQT28LMfFE2^2g8M)-y)%PwM5Lr9!NUYSJW^7VV8MVt%A1%v(<M1g
zIn+5FL2(W%Z5Y`aZ5SBf#_Ok~Ch0@gjG%~Nu@<TfW;-|%pe-+A8}|&`7+5|&^IqR^
z8=5W?z#)FHYy!Rz$6KEpS{OkK6BPGD9jocnnI^$0%E8O22nqz0gb!M$0P!Y>1@jha
zpdMjhRlc3Jsd_iey`8BNoT?n6kb8zOjMGof&n?JFtpFK_Fd8O`-3pAkde+VqNltSP
zRmd^{SiCW@HQF&imV-hqflq>hY=hZ>X)9bA%zEUABevg!(PZY{4vx74mm2ZK9Fdc}
z$R2<@S2LwE8SjFevgG*UL{M;pv?KW&E)MfBYLw1qVCmkIw(v|OG)kK^I+G+heK|Ba
zBSA?7DZE3V;SD!XAI{P%ORgv=%FhB>jS$7=2!t$556oG}@jz?`lL6iJqMIP`U?+qp
z9?bBz0}V}0p*aZEH<&KhEbmMtdId{CPAS2a5g;|N;6RNfj9j7FnLzvs7Ld8{goNmj
zrGO7{i3iC-q6(`NTqDe7$Pq<sR~;k6u%?0|YX8E^_#z5_Q3qcPjo;mxynJ^VSa{7C
zc+L2d`Iqy@)1-GlYUpSPjE2By2#kinXb6mkz-S1JhQMeDjE2By2n^W}XwvK~CBBPU
zm0FY!?<r#R$3U_;x|kp-xJGPUOk&rEV0JN?z+FuI)0kv$l0b2{W_f2B(IWvMo$wIC
z6DqL4z&{eez`)QnuxZS-vqFNCmxF;*95i5rJP0TN_8oSA9AjYB`^+`Hh7mgMq@fws
RS&nP8A6IZ;HyVAg1OR=)?Q;MC

diff --git a/cpplapack-r198/.svn/wc.db-journal b/cpplapack-r198/.svn/wc.db-journal
deleted file mode 100644
index e69de29..0000000
-- 
GitLab