From: Adam Sieradzan Date: Sat, 30 Jul 2022 10:58:20 +0000 (+0200) Subject: Merge branch 'UCGM' of mmka.chem.univ.gda.pl:unres4 into UCGM X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=commitdiff_plain;h=ae2f9918e1e5f88a78cc32b1d3a7ff90dede1207;hp=0f5304c0d44e3ec4d6538de7d274c4b1a1930049;p=unres4.git Merge branch 'UCGM' of mmka.chem.univ.gda.pl:unres4 into UCGM Conflicts: source/cluster/io_clust.F90 source/unres/data/energy_data.F90 source/unres/data/names.F90 source/unres/energy.F90 source/wham/enecalc.F90 source/wham/wham_calc.F90 source/wham/wham_data.F90 --- diff --git a/.gitignore b/.gitignore index 35af1a2..633959f 100644 --- a/.gitignore +++ b/.gitignore @@ -17,6 +17,7 @@ build/ build2/ build*/ run/ +ctest/ # latex files in documentation doc/*/*.aux diff --git a/PARAM/DUMMY b/PARAM/DUMMY new file mode 100644 index 0000000..e69de29 diff --git a/PARAM/WATWAT_Voth.parm b/PARAM/WATWAT_Voth.parm new file mode 100644 index 0000000..7323ead --- /dev/null +++ b/PARAM/WATWAT_Voth.parm @@ -0,0 +1,800 @@ +ENTHALPY + 0.0000000000000000 10000.000000000000 -1499.9999999999995 -4863.8903879041327 1585.9282048615498 + 2.0600000000000001 133.48730599999999 -1240.2415950000000 -4489.7149081646630 224485.73290823671 + 2.0800000000000001 108.68247400000000 -1150.4473118367021 8979.4290663295506 -85659.548724720531 + 2.1000000000000001 88.580022999999997 -894.06160765318464 3839.8561428463145 2638.3369906486960 + 2.1200000000000001 72.255840000000006 -737.30135755055346 3998.1563622852364 -16918.799237877345 + 2.1400000000000001 58.973725000000002 -597.67766214459675 2983.0284080125948 -8432.3900391368861 + 2.1600000000000001 48.145924000000001 -488.47539387105712 2477.0850056643812 -8131.3906055753250 + 2.1800000000000002 39.302199000000002 -399.14966237117216 1989.2015693298613 -6165.6725385617565 + 2.2000000000000002 32.065561000000002 -326.98040664425179 1619.2612170161556 -5062.2942401782011 + 2.2200000000000002 26.133158999999999 -268.28471105181933 1315.5235626054632 -4057.1505007243559 + 2.2400000000000002 21.261216999999998 -220.53234914847002 1072.0945325620016 -3285.1037569346677 + 2.2599999999999998 17.253126999999999 -181.59069235431230 874.98830714592577 -2661.5594715151715 + 2.2799999999999998 13.950016000000000 -149.78503143429344 715.29473885501534 -2146.5333570167500 + 2.2999999999999998 11.223261000000001 -123.74908190851292 586.50273743401021 -1793.0571004180672 + 2.3199999999999998 8.9685360000000003 -102.44064093165417 478.91931140892609 -1277.6132413107241 + 2.3399999999999999 7.1010700000000000 -84.817004364869973 402.26251693028257 -1722.3649343390277 + 2.3599999999999999 5.5518559999999999 -70.793341608865504 298.92062086994082 1132.6979786668223 + 2.3799999999999999 4.2646189999999997 -57.477279199667663 366.88249958995021 -8554.1769803281932 + 2.3999999999999999 3.1933929999999999 -53.066991592463495 -146.36811922974181 18228.759942645949 + 2.4199999999999999 2.2193360000000002 -37.047204430477997 947.35747732901598 -21119.362790255782 + 2.4399999999999999 1.6883800000000000 -24.496140685624308 -319.80429008633212 7114.4412183774375 + 2.4600000000000000 1.1274510000000000 -28.750982827024664 107.06218301631452 -1028.2770832540066 + 2.4800000000000000 0.58703000000000005 -25.702428006276890 45.365558021074072 723.29211463856655 + 2.5000000000000000 9.6914000000000000E-002 -23.019855147867645 88.763084899388105 -49.516375300252427 + 2.5200000000000000 -0.32837400000000000 -19.528751402252418 85.792102381372956 -38.976613437562889 + 2.5400000000000000 -0.68494400000000000 -16.143839243122574 83.453505575119181 -151.95217094950272 + 2.5600000000000001 -0.97565500000000005 -12.988041625257207 74.336375318149010 -165.33970276439697 + 2.5800000000000001 -1.2070040000000000 -10.212994255848521 64.415993152285182 -159.18901799294204 + 2.6000000000000001 -1.3867710000000000 -7.8273813513486425 54.864652072708651 -132.02922526382051 + 2.6200000000000001 -1.5224290000000000 -5.7912303387568800 46.942898556879413 -104.19408095174835 + 2.6400000000000001 -1.6203099999999999 -4.0385472936238003 40.691253699774506 -81.069450929240645 + 2.6600000000000001 -1.6854530000000001 -2.5081804867479072 35.827086644020063 -64.153115331231334 + 2.6800000000000002 -1.7217990000000001 -1.1520807593845812 31.977899724146180 -51.693087745856729 + 2.7000000000000002 -1.7324630000000001 6.5003524286238679E-002 28.876314459394774 -43.574533685336334 + 2.7200000000000002 -1.7199610000000001 1.1677666622396268 26.261842438274591 -38.883777512794957 + 2.7400000000000002 -1.6864120000000000 2.1715798267552571 23.928815787506892 -36.765356263308107 + 2.7599999999999998 -1.6337029999999999 3.0846140307395449 21.722894411708452 -36.929797434309314 + 2.7799999999999998 -1.5636170000000000 3.9092140502867125 19.507106565649892 -38.140453999281917 + 2.7999999999999998 -1.4779350000000000 4.6437297681135705 17.218679325692975 -40.133386568598993 + 2.8199999999999998 -1.3784940000000001 5.2843168772589708 14.810676131577033 -41.950999726291663 + 2.8399999999999999 -1.2672190000000001 5.8264027228505029 12.293616147999531 -43.437614526229751 + 2.8599999999999999 -1.1461209999999999 6.2660222313390088 9.6873592764257435 -44.298542168824675 + 2.8799999999999999 -1.0172800000000000 6.6003583517934494 7.0294467462962604 -44.618216798454604 + 2.8999999999999999 -0.88281799999999999 6.8279943614871543 4.3523537383889819 -44.353590637348958 + 2.9199999999999999 -0.74487199999999998 6.9488642022578944 1.6911383001480422 -43.467420652163163 + 2.9399999999999999 -0.60556600000000005 6.9643488294812208 -0.91690693898175013 -41.901726753971211 + 2.9600000000000000 -0.46698099999999998 6.8773904798171852 -3.4310105442200252 -39.425672331978383 + 2.9800000000000000 -0.33112100000000000 6.6928392512500094 -5.7965508841387301 -36.520583918101870 + 3.0000000000000000 -0.19987500000000000 6.4171525151827380 -7.9877859192248444 -32.491991995616381 + 3.0200000000000000 -7.4986999999999998E-002 6.0586506880190045 -9.9373054389618289 -27.761448099432481 + 3.0400000000000000 4.1988999999999999E-002 5.6278447327412113 -11.602992324927779 -22.337215606650890 + 3.0600000000000001 0.14972600000000000 5.1369203810161190 -12.943225261326834 -16.139689473966314 + 3.0800000000000001 0.24715799999999999 4.5998237431942854 -13.911606629764814 -9.9790264974843943 + 3.1000000000000001 0.33350999999999997 4.0313846462067113 -14.510348219613878 -3.4442045360884510 + 3.1200000000000001 0.40830600000000000 3.4468376719788494 -14.717000491779185 2.7558446418316187 + 3.1400000000000001 0.47137800000000002 2.8614646658778797 -14.551649813269288 8.6708259687562421 + 3.1600000000000001 0.52285599999999999 2.2898036645096149 -14.031400255143913 13.935851483150287 + 3.1800000000000002 0.56315099999999996 1.7452706760836385 -13.195249166154895 18.335768098655496 + 3.2000000000000002 0.59292500000000004 1.2394636311558289 -12.095103080235564 21.721076122197740 + 3.2200000000000002 0.61304999999999998 0.78172479929304317 -10.791838512903698 23.779927412571261 + 3.2400000000000002 0.62455799999999995 0.37858717167198047 -9.3650428681494216 24.659214227521495 + 3.2599999999999998 0.62858099999999995 3.3576514019036066E-002 -7.8854900144981634 24.208215677320315 + 3.2799999999999998 0.62629199999999996 -0.25279322774810625 -6.4329970738589433 23.007923063223437 + 3.2999999999999998 0.61884700000000004 -0.48250360302659606 -5.0525216900655359 21.010092069763381 + 3.3199999999999998 0.60734399999999999 -0.65939236014550162 -3.7919161658797318 18.451708657737033 + 3.3399999999999999 0.59278699999999995 -0.78892695639140653 -2.6848136464155088 15.558073299298030 + 3.3599999999999999 0.57605899999999999 -0.87764981428886923 -1.7513292484576262 12.565998145059622 + 3.3799999999999999 0.55790600000000001 -0.93262378645310284 -0.99736935975404817 9.4279341204625347 + 3.3999999999999999 0.53893000000000002 -0.96120503989870965 -0.43169331252629561 6.7222653730913589 + 3.4199999999999999 0.51958700000000002 -0.97040605395205193 -2.8357390140813753E-002 4.3080043871744280 + 3.4399999999999999 0.50020200000000004 -0.96637074429307512 0.23012287308965218 2.4207170782060374 + 3.4600000000000000 0.48098600000000002 -0.95426096887564182 0.37536589778201457 0.88412730000586315 + 3.4800000000000000 0.46205800000000002 -0.93818538020435416 0.42841353578236641 -8.2226278234312430E-002 + 3.5000000000000000 0.44346500000000000 -0.92114751030694064 0.42347995908830766 -0.93022218705830317 + 3.5200000000000000 0.42520400000000003 -0.90532457856787829 0.36766662786480941 -1.3218849735480012 + 3.5400000000000000 0.40723399999999998 -0.89220417542154351 0.28835352945192927 -1.5322379187366129 + 3.5600000000000001 0.38949299999999998 -0.88250871974595024 0.19641925432773241 -1.5491633515075927 + 3.5800000000000001 0.37190899999999999 -0.87651094559465004 0.10346945323727677 -1.3961086752386549 + 3.6000000000000001 0.35440899999999997 -0.87404749787544533 1.9702932722957405E-002 -1.2414019475288027 + 3.6200000000000001 0.33692600000000000 -0.87474906290356169 -5.4781184128770824E-002 -0.88828353465337273 + 3.6400000000000001 0.31940200000000002 -0.87800625051029657 -0.10807819620797324 -0.70546391386319762 + 3.6600000000000001 0.30179299999999998 -0.88317593505525127 -0.15040603103976513 -0.28986080987701252 + 3.6800000000000002 0.28406700000000001 -0.88954000926869436 -0.16779767963238590 -0.13509284664462889 + 3.7000000000000002 0.26620800000000000 -0.89641402786996338 -0.17590325043106364 0.20523219646198548 + 3.7200000000000002 0.24821099999999999 -0.90320387925145151 -0.16358931864334450 0.43916406080100157 + 3.7400000000000002 0.23008500000000001 -0.90922045512422411 -0.13723947499528438 0.66311156027558127 + 3.7599999999999998 0.21185100000000001 -0.91391430025170473 -9.7452781378750353E-002 0.78338969819845461 + 3.7799999999999998 0.19353999999999999 -0.91687234386901650 -5.0449399486843037E-002 0.95332964688829558 + 3.7999999999999998 0.17519000000000001 -0.91774632427222436 6.7503793264547425E-003 1.0282917142402404 + 3.8199999999999998 0.15684600000000001 -0.91624235904207785 6.8447882180869210E-002 0.93350349615312578 + 3.8399999999999999 0.13855600000000001 -0.91238423955945935 0.12445809195005680 0.98769430114605916 + 3.8599999999999999 0.12036600000000000 -0.90622068272008172 0.18371975001882040 0.74071929926478208 + 3.8799999999999999 0.10232100000000000 -0.89798302956021125 0.22816290797470737 0.67442850179596303 + 3.8999999999999999 8.4458000000000005E-002 -0.88804719903906770 0.26862861808246519 0.43656669354815492 + 3.9199999999999999 6.6808000000000006E-002 -0.87677817428351135 0.29482261969535450 0.32930472401166760 + 3.9399999999999999 4.9392999999999999E-002 -0.86459010382688317 0.31458090313605458 0.12121441040718595 + 3.9600000000000000 3.2228000000000000E-002 -0.85186141040895236 0.32185376776048574 6.0837634358380285E-002 + 3.9800000000000000 1.5320000000000000E-002 -0.83891425453730284 0.32550402582198856 -0.11456494784046005 + 4.0000000000000000 -1.3290000000000001E-003 -0.82603157144183181 0.31863012895156095 2.2422156958063412E-002 + 4.0199999999999996 -1.7722000000000002E-002 -0.81325945969542002 0.31997545836904473 2.4876320144128751E-002 + 4.0400000000000000 -3.3859000000000000E-002 -0.80043058977648496 0.32146803757769249 0.12807256228609765 + 4.0599999999999996 -4.9737999999999997E-002 -0.78741818119863427 0.32915239131485818 0.46283343088621276 + 4.0800000000000001 -6.5351000000000006E-002 -0.77369668542897607 0.35692239716803159 0.64559371399918453 + 4.0999999999999996 -8.0676999999999999E-002 -0.75864507708545614 0.39565802000798184 0.95479171328338275 + 4.1200000000000001 -9.5684000000000005E-002 -0.74167300622919641 0.45294552280498612 1.1602394327046006 + 4.1399999999999997 -0.11032699999999999 -0.72216289799775191 0.52255988876726067 1.5292505560555649 + 4.1600000000000001 -0.12454900000000001 -0.69942540177979418 0.61431492213059669 1.5977583429189874 + 4.1799999999999997 -0.13827900000000001 -0.67293549488306814 0.71018042270573389 1.8297160724235839 + 4.2000000000000002 -0.15143899999999999 -0.64233261868792979 0.81996338705115146 1.8333773672325990 + 4.2199999999999998 -0.16394300000000001 -0.60733403036520539 0.92996602908510506 1.8367744587918253 + 4.2400000000000002 -0.17570300000000000 -0.56793125985125004 1.0401724966126171 1.5695247974668556 + 4.2599999999999998 -0.18663299999999999 -0.52444093022978611 1.1343439844606265 1.3851263514609020 + 4.2800000000000002 -0.19665700000000000 -0.47740501922960682 1.2174515655482825 1.1399697965795783 + 4.2999999999999998 -0.20570900000000000 -0.42733899285178112 1.2858497533430557 0.67999446232089411 + 4.3200000000000003 -0.21373600000000001 -0.37508900936327261 1.3266494210823103 0.39005235404856542 + 4.3399999999999999 -0.22070400000000001 -0.32155496969512304 1.3500525623252237 9.7961215645238405E-003 + 4.3600000000000003 -0.22659499999999999 -0.26754111185623541 1.3506403296190952 -0.30423684037904536 + 4.3799999999999999 -0.23140800000000000 -0.21388058287992762 1.3323861191963529 -0.54284875998957671 + 4.4000000000000004 -0.23515700000000000 -0.16123655662405981 1.2998151935969775 -0.77436811970414765 + 4.4199999999999999 -0.23786800000000000 -0.11017319062382674 1.2533531064147296 -0.85967876116810948 + 4.4400000000000004 -0.23957700000000001 -6.1070680880638190E-002 1.2017723807446419 -0.78691683563708792 + 4.4600000000000000 -0.24032400000000001 -1.3944085853618003E-002 1.1545573706064176 -0.86765389627649014 + 4.4800000000000004 -0.24014800000000000 3.1197024295107931E-002 1.1024981368298270 -0.49246757925640161 + 4.5000000000000000 -0.23908699999999999 7.4705988673192419E-002 1.0729500820744435 -0.53747578669648821 + 4.5199999999999996 -0.23716799999999999 0.11697902101213348 1.0407015348726549 -0.23262927397828925 + 4.5400000000000000 -0.23441400000000001 0.15832792727826667 1.0267437784339573 -0.15700711735103015 + 4.5599999999999996 -0.23083799999999999 0.19920926987480286 1.0173233513928956 0.11065774333155960 + 4.5800000000000001 -0.22644600000000001 0.24003499322251751 1.0239628159927894 -3.5623855915768089E-002 + 4.5999999999999996 -0.22123599999999999 0.28095075723512930 1.0218253846378433 0.15683768026339981 + 4.6200000000000001 -0.21520700000000001 0.32201197783696006 1.0312356454536475 -0.21672686506363317 + 4.6399999999999997 -0.20835600000000001 0.36300133141702873 1.0182320335498298 -0.16493022008579780 + 4.6600000000000001 -0.20069000000000001 0.40353269649491991 1.0083362203446817 -0.62355225450964091 + 4.6799999999999997 -0.19222100000000000 0.44311788260329477 0.97092308507410408 -1.0908607619698278 + 4.7000000000000002 -0.18297900000000000 0.48064577309189599 0.90547143935591290 -1.1380046975078293 + 4.7199999999999998 -0.17301300000000000 0.51549902502912237 0.83719115750544459 -1.7321204481096926 + 4.7400000000000002 -0.16238200000000000 0.54690812679160916 0.73326393061886064 -2.0585135099351959 + 4.7599999999999998 -0.15116700000000000 0.57376846780444091 0.60975312002275150 -2.0338255122752225 + 4.7800000000000002 -0.13946400000000000 0.59571800199062108 0.48772358928623533 -2.5561844408299272 + 4.7999999999999998 -0.12737499999999999 0.61215952423307429 0.33435252283644296 -2.1164367245463320 + 4.8200000000000003 -0.11501500000000001 0.62299390107707664 0.20736631936366010 -2.3530686608401541 + 4.8399999999999999 -0.10249100000000000 0.62846487145861485 6.6182199713253884E-002 -1.7212886322366658 + 4.8600000000000003 -8.9909000000000003E-002 0.62904661308846099 -3.7095118220948443E-002 -1.5117768100702444 + 4.8799999999999999 -7.7354999999999993E-002 0.62574867618753882 -0.12780172682516117 -0.85660412762539617 + 4.9000000000000004 -6.4897999999999997E-002 0.61960868216138176 -0.17919797448268612 -0.31180667928801453 + 4.9199999999999999 -5.2580000000000002E-002 0.61206659516692885 -0.19790637523996660 0.22883084464139575 + 4.9400000000000004 -4.0416000000000001E-002 0.60442493717089962 -0.18417652456148254 0.77148330085690553 + 4.9600000000000000 -2.8395000000000000E-002 0.59798365614946880 -0.13788752651006919 1.4352359517971813 + 4.9800000000000004 -1.6479000000000001E-002 0.59419043823122253 -5.1773369402236327E-002 1.6125728920872844 + 5.0000000000000000 -4.6030000000000003E-003 0.59405459092563784 4.4981004122998679E-002 1.9894724797872689 + 5.0199999999999996 7.3119999999999999E-003 0.59824119806630238 0.16434935291023228 2.0545371886976365 + 5.0400000000000000 1.9359000000000001E-002 0.60728061680914913 0.28762158423209333 2.0423787655552390 + 5.0599999999999996 3.1635999999999997E-002 0.62123633469709871 0.41016431016540505 1.6509477489462203 + 5.0800000000000001 4.4238000000000000E-002 0.63962404440245091 0.50922117510218057 1.4788302387989893 + 5.0999999999999996 5.7245999999999998E-002 0.66176748769309635 0.59795098943011804 0.80873129571335323 + 5.1200000000000001 7.0726999999999998E-002 0.68665600482515776 0.64647486717292035 0.41124457849861840 + 5.1399999999999997 8.4722000000000006E-002 0.71300849300627234 0.67114954188283693 -0.32870960986572367 + 5.1600000000000001 9.9248000000000003E-002 0.73946002314974757 0.65142696529089306 -0.97140613887287530 + 5.1799999999999997 0.11429000000000000 0.76435141439473531 0.59314259695852178 -1.6606658348099959 + 5.2000000000000002 0.12980100000000000 0.78608431927130462 0.49350264686991974 -2.2609305217148461 + 5.2199999999999998 0.14570200000000000 0.80311130852004331 0.35784681556703185 -3.0456120785066139 + 5.2400000000000002 0.16188300000000000 0.81377044664851683 0.17511009085663079 -3.5566211640802790 + 5.2599999999999998 0.17820000000000000 0.81650690488588573 -3.8287178988181403E-002 -4.1029032653531825 + 5.2800000000000002 0.19448199999999999 0.81005193380793439 -0.28446137490937806 -4.5317657743234578 + 5.2999999999999998 0.21053300000000000 0.79323535988237159 -0.55636732136877975 -4.8950336375334933 + 5.3200000000000003 0.22613600000000000 0.76510662666257945 -0.85006933962079612 -5.0130996753713122 + 5.3399999999999999 0.24105799999999999 0.72508813346730294 -1.1508553201430685 -5.1775676611414232 + 5.3600000000000003 0.25505800000000001 0.67284083946820916 -1.4615093798115610 -4.9016296799146257 + 5.3799999999999999 0.26789099999999999 0.60849850865985067 -1.7556071606064323 -4.7159136193364297 + 5.4000000000000004 0.27932099999999999 0.53261512589238780 -2.0385619777666246 -4.1097158426101501 + 5.4199999999999999 0.28912500000000002 0.44614098777059258 -2.2851449283232284 -3.3452230103416252 + 5.4400000000000004 0.29710700000000001 0.35072092302525121 -2.4858583089437305 -2.3843921159309249 + 5.4600000000000000 0.30310799999999999 0.24842532012838711 -2.6289218358995829 -1.2422085259976132 + 5.4800000000000004 0.30701499999999998 0.14177779646120417 -2.7034543474594415 -0.14677378003596861 + 5.5000000000000000 0.30876799999999999 3.3463494026785660E-002 -2.7122607742615994 1.3293036461133358 + 5.5199999999999996 0.30836300000000000 -7.3431772568340048E-002 -2.6325025554948009 2.3295591956031645 + 5.5400000000000000 0.30586000000000002 -0.17593640375341060 -2.4927290037586078 3.6024595714401375 + 5.5599999999999996 0.30137300000000000 -0.27132261241802480 -2.2765814294722042 4.5106025186927221 + 5.5800000000000001 0.29507200000000000 -0.35697314657448359 -2.0059452783506346 5.2301303537153752 + 5.5999999999999996 0.28717199999999998 -0.43093480128404904 -1.6921374571277188 5.9438760665396249 + 5.6200000000000001 0.27792400000000000 -0.49148764828931152 -1.3355048931353330 5.8693653800141794 + 5.6399999999999997 0.26760699999999998 -0.53786460555870697 -0.98334297033448981 5.8286624135243574 + 5.6600000000000001 0.25650299999999998 -0.57020392947585796 -0.63362322552302031 5.4409849657662335 + 5.6799999999999997 0.24488900000000000 -0.58901967653785903 -0.30716412757705325 4.7823977235362065 + 5.7000000000000002 0.23302400000000001 -0.59556736437269764 -2.0220264164874206E-002 3.9294241399552230 + 5.7199999999999998 0.22113600000000000 -0.59166086597134659 0.21554518423243413 3.1249057167769139 + 5.7400000000000002 0.20941399999999999 -0.57928917174191652 0.40303952723905329 2.1959529928086061 + 5.7599999999999998 0.19800699999999999 -0.56053244706098448 0.53479670680756686 1.2162823121144988 + 5.7800000000000002 0.18701999999999999 -0.53768104001414385 0.60777364553443847 0.56391775861215820 + 5.7999999999999998 0.17651400000000000 -0.51269339288243232 0.64160871105116724 -0.22195334645041945 + 5.8200000000000003 0.16651500000000000 -0.48729538845612552 0.62829151026414176 -0.67610437291888936 + 5.8399999999999999 0.15701499999999999 -0.46297505329306304 0.58772524788900926 -0.94862916176545953 + 5.8600000000000003 0.14798300000000000 -0.44060439837162074 0.53080749818308037 -0.90437898012499685 + 5.8799999999999999 0.13937600000000000 -0.42045735322044792 0.47654475937558172 -1.0588549176375588 + 5.9000000000000004 0.13114899999999999 -0.40266618874658933 0.41301346431732672 -0.73520134941170612 + 5.9199999999999999 0.12325500000000000 -0.38702789179319064 0.36890138335262529 -0.50033968463389233 + 5.9400000000000004 0.11565800000000000 -0.37287224408064601 0.33888100227459106 -0.26343991213346191 + 5.9600000000000000 0.10833400000000000 -0.35963313188422275 0.32307460754658368 5.4099333247717103E-002 + 5.9800000000000004 0.10127100000000000 -0.34664522838246187 0.32632056754144678 0.17204257906430112 + 6.0000000000000000 9.4469999999999998E-002 -0.33338595458592712 0.33664312228530463 0.63273035053650484 + 6.0199999999999996 8.7942000000000006E-002 -0.31916095327387145 0.37460694331749411 0.42203601882149544 + 6.0400000000000000 8.1712000000000007E-002 -0.30367023231858553 0.39992910444678442 0.55412557410782470 + 6.0599999999999996 7.5802999999999995E-002 -0.28700811745178512 0.43317663889325320 0.48646168481581786 + 6.0800000000000001 7.0239999999999997E-002 -0.26909729787427555 0.46236433998220294 0.12502768656645244 + 6.0999999999999996 6.5044000000000005E-002 -0.25045269105110812 0.46986600117618993 0.13842756897359026 + 6.1200000000000001 6.0224000000000000E-002 -0.23149193792129177 0.47817165531460554 -0.30373796251228585 + 6.1399999999999997 5.5782999999999999E-002 -0.21272955726372270 0.45994737756386878 -0.42347571887563257 + 6.1600000000000001 5.1708999999999998E-002 -0.19483983302381830 0.43453883443133023 -0.62735916202967201 + 6.1799999999999997 4.7981000000000003E-002 -0.17821111064100104 0.39689728470955071 -0.81708763296623610 + 6.2000000000000002 4.4568999999999998E-002 -0.16331572441217815 0.34787202673157541 -0.97929030614123536 + 6.2199999999999998 4.1433999999999999E-002 -0.15057599171028488 0.28911460836310254 -0.89075114243436571 + 6.2400000000000002 3.8531000000000003E-002 -0.14008030874668179 0.23566953981703936 -0.83270512415467035 + 6.2599999999999998 3.5817000000000002E-002 -0.13165277330298597 0.18570723236776021 -0.65342836091633116 + 6.2800000000000002 3.3252999999999998E-002 -0.12500859804137504 0.14650153071277944 -0.55358143220737888 + 6.2999999999999998 3.0807000000000001E-002 -0.11981283453151281 0.11328664478033741 -0.13224591022816992 + 6.3200000000000003 2.8455000000000001E-002 -0.11544006383257302 0.10535189016664703 -4.2434926905961214E-002 + 6.3399999999999999 2.6187999999999999E-002 -0.11127691013819438 0.10280579455228941 0.30198561787764505 + 6.3600000000000003 2.4006000000000000E-002 -0.10680229561464952 0.12092493162494854 0.58449245537122085 + 6.3799999999999999 2.1923000000000002E-002 -0.10126390740320625 0.15599447894722104 0.61004456065981960 + 6.4000000000000004 1.9965000000000000E-002 -9.4292074772525436E-002 0.19259715258681107 0.85032930196828804 + 6.4199999999999999 1.8162999999999999E-002 -8.5567793506691261E-002 0.24361691070490726 0.86363823148744345 + 6.4400000000000004 1.6556000000000001E-002 -7.4786751200709767E-002 0.29543520459415507 0.82011777206325653 + 6.4600000000000000 1.5185000000000001E-002 -6.1985201690467943E-002 0.34464227091794941 0.60589068027504511 + 6.4800000000000004 1.4088000000000000E-002 -4.7472442037419564E-002 0.38099571173445296 0.63131950682467131 + 6.5000000000000000 1.3296000000000001E-002 -3.1475030159852195E-002 0.41887488214393243 0.24383129243306251 + 6.5199999999999996 1.2836000000000000E-002 -1.4427437323175592E-002 0.43350475968991586 1.8355323442954857E-002 + 6.5400000000000000 1.2721000000000000E-002 2.9347794525529883E-003 0.43460607909649318 -6.7252586206106441E-002 + 6.5599999999999996 1.2952999999999999E-002 2.0238319512965019E-002 0.43057092392412688 -0.49934497862094929 + 6.5800000000000001 1.3526000000000000E-002 3.6861942495585324E-002 0.40061022520686923 -0.56036749930402263 + 6.5999999999999996 1.4419000000000000E-002 5.2213910504694955E-002 0.36698817524862859 -0.88418502417248646 + 6.6200000000000001 1.5603000000000001E-002 6.5832415485633400E-002 0.31393707379827818 -0.90289240399325033 + 6.6399999999999997 1.7038000000000001E-002 7.7306427552772408E-002 0.25976352955868431 -0.87924535987041941 + 6.6600000000000001 1.8681000000000000E-002 8.6641874303275468E-002 0.20700880796645793 -1.2051261565067684 + 6.6799999999999997 2.0486999999999998E-002 9.3476075234125544E-002 0.13470123857605337 -0.80025001412191921 + 6.7000000000000002 2.2404000000000000E-002 9.7903824760221456E-002 8.6686237728737112E-002 -0.96887378698509929 + 6.7199999999999998 2.4389000000000001E-002 0.10020862572498880 2.8553810509632391E-002 -0.82425483795938226 + 6.7400000000000002 2.6398000000000001E-002 0.10036167233982282 -2.0901479767931684E-002 -0.60910686115527946 + 6.7599999999999998 2.8392000000000001E-002 9.8794684915719272E-002 -5.7447891437247670E-002 -0.48931771744139269 + 6.7800000000000002 3.0341000000000000E-002 9.5909587997299608E-002 -8.6806954483731907E-002 -0.43362226905757040 + 6.7999999999999998 3.2221000000000000E-002 9.1916963095081336E-002 -0.11282429062718557 -2.6193206348748180E-002 + 6.8200000000000003 3.4014000000000003E-002 8.7372559622375320E-002 -0.11439588300811050 -8.6604905529070547E-002 + 6.8399999999999999 3.5714999999999997E-002 8.2692798415416116E-002 -0.11959217733985462 0.24761282844858370 + 6.8600000000000003 3.7323000000000002E-002 7.8206246715960132E-002 -0.10473540763293926 0.34615359175041643 + 6.8799999999999999 3.8848000000000001E-002 7.4432214720743128E-002 -8.3966192127914716E-002 0.49277280453402328 + 6.9000000000000004 4.0307000000000003E-002 7.1664894401067325E-002 -5.4399823855872637E-002 0.68275519012840957 + 6.9199999999999999 4.1723999999999997E-002 7.0308207674986523E-002 -1.3434512448168935E-002 0.65120643493863140 + 6.9400000000000004 4.3130000000000002E-002 7.0552274898986148E-002 2.5637873648149848E-002 0.83741907013086636 + 6.9600000000000000 4.4558000000000000E-002 7.2582692729069115E-002 7.5883017856000753E-002 0.74911728452229009 + 6.9800000000000004 4.6045999999999997E-002 7.6516954184736002E-002 0.12083005492733920 0.79111179179781210 + 7.0000000000000000 4.7631000000000000E-002 8.2299490531986805E-002 0.16829676243520691 0.58643554827709732 + 7.0199999999999996 4.9348999999999997E-002 8.9735083687327424E-002 0.20348289533183200 0.48814601508414157 + 7.0400000000000000 5.1228999999999997E-002 9.8460174718701887E-002 0.23277165623688117 0.33598039140754188 + 7.0599999999999996 5.3294000000000001E-002 0.10817421743786597 0.25293047972133326 -8.2067580738133014E-002 + 7.0800000000000001 5.5558000000000003E-002 0.11819295552983378 0.24800642487704516 -0.25771006843013361 + 7.0999999999999996 5.8019000000000001E-002 0.12780396044279921 0.23254382077123747 -0.51209214556763882 + 7.1200000000000001 6.0664000000000003E-002 0.13649120269896772 0.20181829203717844 -0.94392134927150206 + 7.1399999999999997 6.3466999999999996E-002 0.14343122876132894 0.14518301108088952 -0.96222245737474699 + 7.1600000000000001 6.6386000000000001E-002 0.14808388225571492 8.7449663638403369E-002 -1.4571888211992445 + 7.1799999999999997 6.9371000000000002E-002 0.14983324221581196 1.8334366450555722E-005 -1.2090222578605163 + 7.2000000000000002 7.2358000000000006E-002 0.14838314888103729 -7.2523001105182089E-002 -1.5817221473267362 + 7.2199999999999998 7.5284000000000004E-002 0.14358416226003806 -0.16742632994478424 -1.3390891528648776 + 7.2400000000000002 7.8077999999999995E-002 0.13528020207880861 -0.24777167911667874 -1.1869212411807120 + 7.2599999999999998 8.0674999999999997E-002 0.12394502942472488 -0.31898695358751994 -1.0382258824428208 + 7.2800000000000002 8.3017999999999995E-002 0.10993968022229235 -0.38128050653409062 -0.66017522902117431 + 7.2999999999999998 8.5058999999999996E-002 9.3896249686103675E-002 -0.42089102027536024 -0.32107320149556323 + 7.3200000000000003 8.6765999999999996E-002 7.6675321033294178E-002 -0.44015541236509448 -5.5531964976212489E-002 + 7.3399999999999999 8.8123000000000007E-002 5.9002466180719325E-002 -0.44348733026366716 0.41820106138177193 + 7.3600000000000003 8.9129000000000000E-002 4.1764814243830377E-002 -0.41839526658076026 0.50772771946417261 + 7.3799999999999999 8.9801000000000006E-002 2.5638276843957305E-002 -0.38793160341291055 1.0508880607505255 + 7.4000000000000004 9.0166999999999997E-002 1.1382078380341214E-002 -0.32487831976787757 0.91372003754179865 + 7.4199999999999999 9.0272000000000005E-002 -5.1659036532350142E-004 -0.27005511751537081 1.1692317890763826 + 7.4400000000000004 9.0162999999999993E-002 -9.9157169190468575E-003 -0.19990121017078624 1.1593528061566458 + 7.4600000000000000 8.9894000000000002E-002 -1.6520541958490221E-002 -0.13034004180138897 0.94335698629615194 + 7.4800000000000004 8.9519000000000001E-002 -2.0602115246990467E-002 -7.3738622623618549E-002 0.81721924865528350 + 7.5000000000000000 8.9083999999999997E-002 -2.2570997053548848E-002 -2.4705467704302580E-002 0.66276601908627453 + 7.5199999999999996 8.8627999999999998E-002 -2.2763896538817434E-002 1.5060493440873041E-002 0.28171667500082492 + 7.5400000000000000 8.8180999999999995E-002 -2.1823416791181494E-002 3.1963493940922925E-002 0.21036728090752208 + 7.5599999999999996 8.7759000000000004E-002 -2.0292436296455586E-002 4.4585530795373980E-002 -0.12318579862871548 + 7.5800000000000001 8.7370000000000003E-002 -1.8656838022995052E-002 3.7194382877650881E-002 -0.34262408639587788 + 7.5999999999999996 8.7009000000000003E-002 -1.7580211611564086E-002 1.6636937693898644E-002 -0.38131785578385236 + 7.6200000000000001 8.6661000000000002E-002 -1.7372315530748767E-002 -6.2421336531330255E-003 -0.50710449047329020 + 7.6399999999999997 8.6306999999999995E-002 -1.8230526265442006E-002 -3.6668403081529785E-002 -0.59026418231674993 + 7.6600000000000001 8.5922999999999999E-002 -2.0405579407483363E-002 -7.2084254020535601E-002 -0.38183878026556939 + 7.6799999999999997 8.5483000000000003E-002 -2.3747156104623392E-002 -9.4994580836469278E-002 -0.38238069661676261 + 7.7000000000000002 8.4967000000000001E-002 -2.8005796174022386E-002 -0.11793742263347556 -0.21363843327181953 + 7.7199999999999998 8.4358000000000002E-002 -3.2979659199287477E-002 -0.13075572862978446 -1.3065570290416046E-002 + 7.7400000000000002 8.3645999999999998E-002 -3.8225567028827477E-002 -0.13153966284720944 1.5900714427075881E-002 + 7.7599999999999998 8.2829000000000000E-002 -4.3468072685403251E-002 -0.13058561998158491 0.32446271258977799 + 7.7800000000000002 8.1909999999999997E-002 -4.8302142229559017E-002 -0.11111785722619778 0.31124843520526951 + 7.7999999999999998 8.0902000000000002E-002 -5.2373358396360530E-002 -9.2442951113882010E-002 0.43054354659880478 + 7.8200000000000003 7.9821000000000003E-002 -5.5554424184997307E-002 -6.6610338317953127E-002 0.46657737838833496 + 7.8399999999999999 7.8687000000000007E-002 -5.7658944863649399E-002 -3.8615695614653625E-002 0.45314693985790322 + 7.8600000000000003 7.7521999999999994E-002 -5.8659796360406066E-002 -1.1426879223178801E-002 0.34583486217155146 + 7.8799999999999999 7.6346999999999998E-002 -5.8701869694727363E-002 9.3232125071138448E-003 0.16351361146566440 + 7.9000000000000004 7.5177999999999995E-002 -5.8132724860684000E-002 1.9134029195053935E-002 0.25011069195409963 + 7.9199999999999999 7.4024999999999994E-002 -5.7067230862536948E-002 3.4140670712299592E-002 -0.16395637926826845 + 7.9400000000000004 7.2896000000000002E-002 -5.5898351689166868E-002 2.4303287956203259E-002 -9.4285174895787388E-002 + 7.9600000000000000 7.1787000000000004E-002 -5.5039362380793697E-002 1.8646177462456136E-002 -0.33390292113538639 + 7.9800000000000004 7.0691000000000004E-002 -5.4694198787657917E-002 -1.3879978056675103E-003 -0.32010314057486083 + 8.0000000000000000 6.9594000000000003E-002 -5.5133842468574432E-002 -2.0594186240158751E-002 -0.51068451655960501 + 8.0199999999999996 6.8478999999999998E-002 -5.6570431338052264E-002 -5.1235257233734399E-002 -0.38715879318616964 + 8.0399999999999991 6.7323999999999995E-002 -5.9084432179224981E-002 -7.4464784824904082E-002 -0.44068031068101826 + 8.0600000000000005 6.6109000000000001E-002 -6.2591839945038641E-002 -0.10090560346576696 -0.35011996411917634 + 8.0800000000000001 6.4813999999999997E-002 -6.7048208040612220E-002 -0.12191280131291710 -0.15883983282785263 + 8.0999999999999996 6.3422999999999993E-002 -7.2115327892522216E-002 -0.13144319128258805 -0.13952070456798554 + 8.1199999999999992 6.1927000000000003E-002 -7.7540480389307206E-002 -0.13981443355666701 9.1922651114977327E-002 + 8.1400000000000006 6.0321000000000000E-002 -8.3022750550236279E-002 -0.13429907448976799 0.14683010007446168 + 8.1600000000000001 5.8608000000000000E-002 -8.8218517409737532E-002 -0.12548926848530048 0.44575694860390508 + 8.1799999999999997 5.6797000000000000E-002 -9.2703179810824779E-002 -9.8743851569066746E-002 0.32014210551056349 + 8.1999999999999993 5.4906000000000003E-002 -9.6268763346974706E-002 -7.9535325238433346E-002 0.64867462937480436 + 8.2200000000000006 5.2954000000000001E-002 -9.8671766801262384E-002 -4.0614847475942455E-002 0.46015937694754921 + 8.2400000000000002 5.0967999999999999E-002 -9.9744169447963008E-002 -1.3005284859090090E-002 0.63568786285714762 + 8.2599999999999998 4.8973000000000003E-002 -9.9501555406898062E-002 2.5135986912337954E-002 0.49708917162234034 + 8.2799999999999994 4.6996999999999997E-002 -9.7899608924457787E-002 5.4961337209677739E-002 0.50095545067709446 + 8.3000000000000007 4.5065000000000001E-002 -9.5100008895257923E-002 8.5018664250305437E-002 0.37408902562487240 + 8.3200000000000003 4.3200000000000002E-002 -9.1250355494495963E-002 0.10746400578779730 0.25268844684492386 + 8.3399999999999999 4.1419999999999998E-002 -8.6648569126770256E-002 0.12262531259849241 0.24015718699719610 + 8.3599999999999994 3.9738000000000002E-002 -8.1455367998434045E-002 0.13703474381832387 3.6682805180997556E-002 + 8.3800000000000008 3.8163999999999997E-002 -7.5929958879483520E-002 0.13923571212918387 -1.1888407754013853E-002 + 8.4000000000000004 3.6700999999999998E-002 -7.0374796483621105E-002 0.13852240766394305 -0.11412917414787757 + 8.4199999999999999 3.5347999999999997E-002 -6.4970855186040941E-002 0.13167465721507055 -0.15659489565426007 + 8.4399999999999995 3.4099999999999998E-002 -5.9891782772223338E-002 0.12227896347581514 -0.25949124322298778 + 8.4600000000000009 3.2948999999999999E-002 -5.5312013725058028E-002 0.10670948888243482 -0.18044013147897509 + 8.4800000000000004 3.1884000000000003E-002 -5.1260162327535483E-002 9.5883080993696551E-002 -0.26874823084912880 + 8.5000000000000000 3.0894999999999999E-002 -4.7747336964806646E-002 7.9758187142749168E-002 -0.24456694512307298 + 8.5199999999999996 2.9970000000000000E-002 -4.4850489813244424E-002 6.5084170435365102E-002 -0.12798398865961366 + 8.5399999999999991 2.9097999999999999E-002 -4.2400703782221404E-002 5.7405131115788446E-002 -0.24349710022883347 + 8.5600000000000005 2.8271000000000001E-002 -4.0396695057864349E-002 4.2795305102057452E-002 -0.14802761044420215 + 8.5800000000000001 2.7479000000000000E-002 -3.8862515986315127E-002 3.3913648475405511E-002 -3.9392457984558885E-002 + 8.5999999999999996 2.6714999999999999E-002 -3.7553240996880399E-002 3.1550100996332028E-002 -6.9402557617554081E-002 + 8.6199999999999992 2.5975999999999999E-002 -3.6374520026168207E-002 2.7385947539278872E-002 -5.7997311537313870E-002 + 8.6400000000000006 2.5259000000000000E-002 -3.5348678898441767E-002 2.3906108847039805E-002 5.1391803750632591E-002 + 8.6600000000000001 2.4562000000000000E-002 -3.4330764380059435E-002 2.6989617072077695E-002 0.10243009654268893 + 8.6799999999999997 2.3886999999999999E-002 -3.3128263581325132E-002 3.3135422864638900E-002 -8.6112189920545992E-002 + 8.6999999999999993 2.3237000000000001E-002 -3.1906181294644252E-002 2.7968691469406250E-002 0.24201866314539913 + 8.7200000000000006 2.2612000000000000E-002 -3.0497011240093411E-002 4.2489811258131178E-002 -6.9624626745393948E-003 + 8.7400000000000002 2.2019000000000000E-002 -2.8805773744977645E-002 4.2072063497658824E-002 0.16083118755980855 + 8.7599999999999998 2.1461000000000001E-002 -2.6929893779999568E-002 5.1721934751247131E-002 -1.1362287564901246E-002 + 8.7799999999999994 2.0943000000000000E-002 -2.4874651135027605E-002 5.1040197497353071E-002 0.13461796270509691 + 8.8000000000000007 2.0466999999999999E-002 -2.2671501679887209E-002 5.9117275259659430E-002 9.7890436734116487E-002 + 8.8200000000000003 2.0038000000000000E-002 -2.0189342145419946E-002 6.4990701463706294E-002 -0.15117970963650151 + 8.8399999999999999 1.9658999999999999E-002 -1.7771129738435542E-002 5.5919918885516395E-002 0.13182840181234920 + 8.8599999999999994 1.9327000000000000E-002 -1.5376138900840122E-002 6.3829622994257179E-002 -0.25113389761027671 + 8.8800000000000008 1.9043000000000001E-002 -1.3124314658202036E-002 4.8761589137639560E-002 -2.2928113775030003E-003 + 8.9000000000000004 1.8800000000000001E-002 -1.1176602466349498E-002 4.8624020454989383E-002 -0.23969485687639777 + 8.9199999999999999 1.8593999999999999E-002 -9.5192754764016289E-003 3.4242329042405824E-002 -0.28892776111649604 + 8.9399999999999995 1.8415000000000001E-002 -8.4962956280452053E-003 1.6906663375416429E-002 -0.10459409865658448 + 8.9600000000000009 1.8251000000000000E-002 -7.9455420114164215E-003 1.0631017456020938E-002 -0.41769584426022249 + 8.9800000000000004 1.8093000000000001E-002 -8.0215363262878380E-003 -1.4430733199591879E-002 -9.9622524301335516E-002 + 9.0000000000000000 1.7926000000000001E-002 -8.7183126834330989E-003 -2.0408084657671882E-002 -0.30881405853432908 + 9.0199999999999996 1.7741000000000000E-002 -9.9052129399811364E-003 -3.8936928169731232E-002 -4.0121241561073183E-002 + 9.0399999999999991 1.7527000000000001E-002 -1.1510835556643638E-002 -4.1344202663395571E-002 -0.15570097521908205 + 9.0600000000000005 1.7278999999999999E-002 -1.3351444833442496E-002 -5.0686261176541125E-002 0.16292514243272915 + 9.0800000000000001 1.6993000000000001E-002 -1.5183385109584831E-002 -4.0910752630577585E-002 0.12900040549009040 + 9.0999999999999996 1.6674000000000001E-002 -1.6665014728219799E-002 -3.3170728301172327E-002 0.32107323560710177 + 9.1199999999999992 1.6330000000000001E-002 -1.7606555977538157E-002 -1.3906334164746632E-002 0.33670665208557582 + 9.1400000000000006 1.5975000000000000E-002 -1.7758761361625314E-002 6.2960649603892790E-003 0.58210015604279097 + 9.1600000000000001 1.5626999999999999E-002 -1.6808398575958429E-002 4.1222074322955993E-002 0.33489272374776108 + 9.1799999999999997 1.5310000000000001E-002 -1.4757644334542928E-002 6.1315637747821228E-002 0.70332894896548026 + 9.1999999999999993 1.5044999999999999E-002 -1.1461024085871591E-002 0.10351537468574915 0.22679148039287686 + 9.2200000000000006 1.4859000000000001E-002 -7.0482593219698573E-003 0.11712286350932267 0.51450512945822324 + 9.2400000000000002 1.4768999999999999E-002 -1.7459386262472076E-003 0.14799317127681541 -3.4811998222349372E-002 + 9.2599999999999998 1.4793000000000001E-002 4.1320138269584639E-003 0.14590445138347449 -2.5713656950967676E-004 + 9.2799999999999994 1.4933999999999999E-002 9.9678833184139084E-003 0.14588902318930391 -0.33915945550256088 + 9.3000000000000007 1.5188999999999999E-002 1.5396452899383330E-002 0.12553945585914889 -0.64310504141461677 + 9.3200000000000003 1.5542000000000000E-002 1.9646305084051671E-002 8.6953153374272701E-002 -0.71342037884177900 + 9.3399999999999999 1.5963999999999999E-002 2.2268326764412406E-002 4.4147930643766875E-002 -1.1282134432182149 + 9.3599999999999994 1.6417999999999999E-002 2.2680387858301246E-002 -2.3544875949324577E-002 -1.0237258482900478 + 9.3800000000000008 1.6854000000000001E-002 2.0510121802379974E-002 -8.4968426846731587E-002 -1.2768831636127482 + 9.4000000000000004 1.7219999999999999E-002 1.5579124932175552E-002 -0.16158141666349485 -1.1187414972634597 + 9.4199999999999999 1.7458000000000001E-002 7.7733784689198015E-003 -0.22870590649930100 -0.99815084733496184 + 9.4399999999999995 1.7513999999999998E-002 -2.5726388078539464E-003 -0.28859495733939744 -0.76365511339266601 + 9.4600000000000009 1.7340999999999999E-002 -1.5032823237501946E-002 -0.33441426414296049 -0.44722869909833274 + 9.4800000000000004 1.6903000000000001E-002 -2.8946068242138058E-002 -0.36124798608885988 5.2569909785652097E-002 + 9.5000000000000000 1.6180000000000000E-002 -4.3332903793949364E-002 -0.35809379150172083 0.36194905995650706 + 9.5199999999999996 1.5173000000000001E-002 -5.7222316582070103E-002 -0.33637684790433087 0.74963385038787100 + 9.5399999999999991 1.3899999999999999E-002 -6.9777829877777642E-002 -0.29139881688105956 1.2645155385106015 + 9.5600000000000005 1.2397999999999999E-002 -7.9916363906807883E-002 -0.21552788457041835 1.3173039955360004 + 9.5800000000000001 1.0723999999999999E-002 -8.6956714494981310E-002 -0.13648964483826001 1.7162684793616265 + 9.5999999999999996 8.9440000000000006E-003 -9.0356778113277733E-002 -3.3513536076564612E-002 1.6926220870177286 + 9.6199999999999992 7.1370000000000001E-003 -8.9666173051919096E-002 6.8043789144496936E-002 1.5132431725872035 + 9.6400000000000006 5.3829999999999998E-003 -8.5128529679034143E-002 0.15883837949973528 1.5044052225945137 + 9.6600000000000001 3.7559999999999998E-003 -7.6969708231931527E-002 0.24910269285540418 0.84413593705511825 + 9.6799999999999997 2.3230000000000000E-003 -6.5992637393249481E-002 0.29975084907871019 0.61905102918535260 + 9.6999999999999993 1.1280000000000001E-003 -5.3259742195078931E-002 0.33689391082983056 5.4659946212493052E-002 + 9.7200000000000006 1.9799999999999999E-004 -3.9718393826429797E-002 0.34017350760258036 -0.33769081405592222 + 9.7400000000000002 -4.6299999999999998E-004 -2.6516682499193960E-002 0.31991205875922546 -0.95389668997716648 + 9.7599999999999998 -8.7299999999999997E-004 -1.4864876176797766E-002 0.26267825736059669 -1.0967224260357398 + 9.7799999999999994 -1.0740000000000001E-003 -5.6738127936169528E-003 0.19687491179845371 -1.4092136058803666 + 9.8000000000000007 -1.1199999999999999E-003 5.1012735126505890E-004 0.11232209544562601 -1.5164231504437959 + 9.8200000000000003 -1.0770000000000000E-003 3.1833033885575257E-003 2.1336706419000189E-002 -1.2750937923436922 + 9.8399999999999999 -1.0150000000000001E-003 2.5066590945051499E-003 -5.5168921121619710E-002 -1.0082016801819318 + 9.8599999999999994 -9.9500000000000001E-004 -9.0993976657785742E-004 -0.11566102193253433 -0.31709948692764239 + 9.8800000000000008 -1.0620000000000000E-003 -5.9169000281927651E-003 -0.13468699114819416 0.65159962789105486 + 9.9000000000000004 -1.2290000000000001E-003 -1.0522460120651184E-002 -9.5591013474731701E-002 1.8357009753638929 + 9.9199999999999999 -1.4630000000000001E-003 -1.2143259489203794E-002 1.4551045047099517E-002 3.6305964706541420 + 9.9399999999999995 -1.6710000000000000E-003 -7.2045019225350400E-003 0.23238683328634338 5.2669131420190007 + 9.9600000000000009 -1.6800000000000001E-003 8.4112671793429763E-003 0.54840162180750474 9.3017509612695566 + 9.9800000000000004 -1.2179999999999999E-003 4.1509433205165674E-002 1.1065066794836662 6.2760830129074447 + 10.000000000000000 1.0500000000000000E-004 0.0000000000000000 1.4830716602581049 0.0000000000000000 +ENTROPHY + 0.0000000000000000 500.00000000000000 -59.999999999999943 947.52000213989527 -471.53228895241676 + 2.0600000000000001 275.24737299999998 -2107.6560530000002 -6430.4603729172959 321522.77614586998 + 2.0800000000000001 233.09424999999999 -1979.0471365416470 12860.906195834919 -116777.46843762224 + 2.1000000000000001 197.72345000000001 -1604.7438508333967 5854.2580895775782 5809.2226046139276 + 2.1200000000000001 168.01675000000000 -1363.6024601247566 6202.8114458544142 -22766.046980826173 + 2.1400000000000001 143.04369700000001 -1142.8092586675712 4836.8486270048425 -11562.284681313309 + 2.1600000000000001 122.02975300000000 -963.21005520495339 4143.1115461260433 -11619.564293916252 + 2.1800000000000002 104.32984000000000 -811.42907051261102 3445.9376884910675 -9158.3331430244616 + 2.2000000000000002 89.406367000000003 -684.58156274459759 2896.4376999095994 -7785.1031339850051 + 2.2200000000000002 76.811030000000002 -578.06617850899545 2429.3315118704986 -6465.7543210353215 + 2.2400000000000002 66.169713000000002 -488.65182321941785 2041.3862526083790 -5407.6295818966191 + 2.2599999999999998 57.169969999999999 -413.48552861336009 1716.9284776945888 -4548.4773513281798 + 2.2799999999999998 49.550643000000001 -350.26656232717033 1444.0198366148977 -3707.8360128183176 + 2.2999999999999998 43.093257000000001 -296.95517207795638 1221.5496758457984 -3485.4285973983156 + 2.3199999999999998 37.614890000000003 -252.27569936100235 1012.4239600018993 -1512.8245975888249 + 2.3399999999999999 32.962243000000001 -213.59413047803295 921.65448414656976 -6538.1480122460762 + 2.3599999999999999 29.006716999999998 -184.57372872686543 529.36560341180484 14170.541646574000 + 2.3799999999999999 25.640353000000001 -146.39445461450438 1379.5981022062456 -61487.018574050926 + 2.3999999999999999 22.772407000000001 -164.99495281511577 -2309.6230122368133 91733.532649630419 + 2.4199999999999999 19.282527000000002 -147.29963412503167 3194.3889467410168 -55093.362024471862 + 2.4399999999999999 17.173542999999999 -85.636110684757242 -111.21277472729798 10544.290448258407 + 2.4600000000000000 15.500690000000001 -77.431473135939058 521.44465216820697 -5624.4247685625969 + 2.4800000000000000 14.115643000000000 -63.322996771485890 183.97916605445084 -229.34137400777084 + 2.5000000000000000 12.920940000000000 -56.239039778117174 170.21868361398458 -918.70973540616717 + 2.5200000000000000 11.856897000000000 -50.532744116045187 115.09609948961450 -235.44468436764373 + 2.5400000000000000 10.890397000000000 -46.211433757701776 100.96941842755587 -127.88652712328872 + 2.5600000000000001 10.005533000000000 -42.326120853147486 93.296226800158536 -27.009207139049327 + 2.5800000000000001 9.1961130000000004 -38.626682829708002 91.675674371815575 -33.701644320777973 + 2.6000000000000001 8.4599799999999998 -35.000097828020309 89.653575712568895 -74.934215577614964 + 2.6200000000000001 7.7952399999999997 -31.503875858210687 85.157522777911993 -120.31149336880549 + 2.6400000000000001 7.1982629999999999 -28.241948739136770 77.938833175783657 -152.06981094723358 + 2.6600000000000001 6.6633829999999996 -25.306879185242103 68.814644518949635 -169.28426284208018 + 2.6800000000000002 6.1834170000000004 -22.757434519894609 58.657588748424814 -173.91813768477493 + 2.7000000000000002 5.7503399999999996 -20.619832735179347 48.222500487338309 -169.04318641846018 + 2.7200000000000002 5.3558800000000000 -18.893784539387966 38.079909302230689 -155.40911664158801 + 2.7400000000000002 4.9919929999999999 -17.557079107268642 28.755362303735399 -136.32034701601961 + 2.7599999999999998 4.6512630000000001 -16.570449031538466 20.576141482774396 -112.18449529249291 + 2.7799999999999998 4.3271870000000003 -15.882024766578482 13.845071765224816 -87.191671815023327 + 2.7999999999999998 4.0143870000000001 -15.432851902147517 8.6135714563234114 -60.673817447382845 + 2.8199999999999998 3.7086899999999998 -15.161117624831441 4.9731424094804373 -37.113058395339777 + 2.8399999999999999 3.4071600000000002 -15.006727598526631 2.7463589057600486 -15.873948971403836 + 2.8599999999999999 3.1079970000000001 -14.915921981061913 1.7939219674758176 2.6088542810282700 + 2.8799999999999999 2.8104170000000002 -14.841034477225646 1.9504532243375139 17.938531847261572 + 2.8999999999999999 2.5145200000000001 -14.741490110035432 3.0267651351732092 30.262018329952319 + 2.9199999999999999 2.2211430000000001 -14.584105082632561 4.8424862349703499 40.263394832915154 + 2.9399999999999999 1.9317200000000001 -14.342089559434248 7.2582899249452613 46.934402338386462 + 2.9600000000000000 1.6481570000000001 -13.995436679630373 10.074354065248452 50.623995813541931 + 2.9800000000000000 1.3726830000000001 -13.531713722044184 13.111793814060970 52.069614407426826 + 3.0000000000000000 1.1077100000000000 -12.944758432192833 16.235970678506582 50.472546556779598 + 3.0200000000000000 0.85571299999999995 -12.234752549184433 19.264323471913361 45.415199365453795 + 3.0400000000000000 0.61908700000000005 -11.409681371069354 21.989235433840591 39.241655981371757 + 3.0600000000000001 0.40000300000000000 -10.483021966538084 24.343734792722898 29.118176709083258 + 3.0800000000000001 0.20031299999999999 -9.4743307627782674 26.090825395267895 20.035637182289339 + 3.1000000000000001 2.1423000000000001E-002 -8.4066549823488028 27.292963626205257 7.4892745617624055 + 3.1200000000000001 -0.13573299999999999 -7.3059493078264763 27.742320099911002 -3.1177354293481203 + 3.1400000000000001 -0.27078000000000002 -6.1999977863452536 27.555255974150114 -14.893332844360950 + 3.1600000000000001 -0.38387700000000002 -5.1156595467924815 26.661656003488456 -25.183933193207665 + 3.1800000000000002 -0.47572700000000001 -4.0794140264847911 25.150620011895995 -34.370934382807491 + 3.2000000000000002 -0.54752999999999996 -3.1146343472683200 23.088363948927544 -41.582329275578623 + 3.2200000000000002 -0.60092000000000001 -2.2409985844419120 20.593424192392824 -45.549748514852418 + 3.2400000000000002 -0.63786699999999996 -1.4719213149640213 17.860439281501677 -48.968676665072060 + 3.2599999999999998 -0.66055299999999995 -0.81626615570205341 14.922318681597416 -47.575544824750011 + 3.2799999999999998 -0.67129000000000005 -0.27646406222785647 12.067785992112412 -45.979144035967906 + 3.2999999999999998 -0.67235999999999996 0.15107240461347887 9.3090373499543357 -42.757879031422910 + 3.3199999999999998 -0.66595700000000002 0.47212444377394502 6.7435646080689589 -37.489339838303053 + 3.3399999999999999 -0.65411699999999995 0.69687982029073992 4.4942042177707737 -32.284761615394835 + 3.3599999999999999 -0.63863999999999999 0.83790627506309712 2.5571185208470819 -26.371613700102095 + 3.3799999999999999 -0.62107000000000001 0.90854507945685792 0.97482169884095471 -20.103783584197991 + 3.3999999999999999 -0.60267000000000004 0.92341340710945852 -0.23140531621092580 -14.463251963095153 + 3.4199999999999999 -0.58440999999999999 0.89680129210530724 -1.0992004339966357 -9.1682085634424482 + 3.4399999999999999 -0.56698700000000002 0.84183142446931081 -1.6492929478031830 -5.3639137831218013 + 3.4600000000000000 -0.55085300000000004 0.76942301001743729 -1.9711277747904914 -0.87613630406044041 + 3.4800000000000000 -0.53625999999999996 0.68952653546094500 -2.0236959530341179 1.1184589993352692 + 3.5000000000000000 -0.52327000000000001 0.60992084813878256 -1.9565884130740017 3.9023003067404511 + 3.5200000000000000 -0.51182300000000003 0.53634007198391098 -1.7224503946695744 5.6473397737082145 + 3.5400000000000000 -0.50173999999999996 0.47421886392557783 -1.3836100082470812 6.1333405984070799 + 3.5600000000000001 -0.49275999999999998 0.42623447231378303 -1.0156095723426561 7.3192978326730191 + 3.5800000000000001 -0.48458299999999999 0.39439324681928439 -0.57645170238227461 6.9644680708981799 + 3.6000000000000001 -0.47687000000000002 0.37969254040907119 -0.15858361812838345 7.0728298837416048 + 3.6200000000000001 -0.46928300000000001 0.38183659154442579 0.26578617489611323 6.2442123941282528 + 3.6400000000000001 -0.46149000000000001 0.39996109341322428 0.64043891854380874 5.2003205397477430 + 3.6600000000000001 -0.45319300000000001 0.43181903480267392 0.95245815092867359 4.0795054468807601 + 3.6800000000000002 -0.44414300000000001 0.47481276737607786 1.1972284777415194 3.1066576727293747 + 3.7000000000000002 -0.43414300000000000 0.52642989569301391 1.3836279381052821 0.99386386219852130 + 3.7200000000000002 -0.42305300000000001 0.58296764985186345 1.4432597698371934 0.41788687848377487 + 3.7400000000000002 -0.41081299999999998 0.64119950489953181 1.4683329825462199 -1.4154113761072236 + 3.7599999999999998 -0.39741300000000002 0.69823433055005069 1.3834082999797883 -2.2562413741163763 + 3.7799999999999998 -0.38291300000000000 0.75086317290030269 1.2480338175328056 -3.3096231273981802 + 3.7999999999999998 -0.36742300000000000 0.79681297784873706 1.0494564298889146 -3.7552661162895835 + 3.8199999999999998 -0.35109699999999999 0.83428491570474628 0.82414046291153942 -3.9193124074446049 + 3.8399999999999999 -0.33411299999999999 0.86254735933227433 0.58898171846486291 -3.8174842539343929 + 3.8599999999999999 -0.31665700000000002 0.88152564696614755 0.35993266322879913 -3.0607505768053396 + 3.8799999999999999 -0.29890699999999998 0.89225005280313308 0.17628762862047859 -2.6895134388629693 + 3.8999999999999999 -0.28101300000000001 0.89607414182131673 1.4916822288700275E-002 -1.4311956677302509 + 3.9199999999999999 -0.26309700000000003 0.89495337991158841 -7.0954917775114840E-002 -0.83570389021499281 + 3.9399999999999999 -0.24523300000000001 0.89111233853232585 -0.12109715118801445 0.27401122858600674 + 3.9600000000000000 -0.22745699999999999 0.88659726595910848 -0.10465647747285403 0.86465897586834239 + 3.9800000000000000 -0.20976000000000000 0.88344859763123629 -5.2776938920753441E-002 1.8923528679463775 + 4.0000000000000000 -0.19209699999999999 0.88360834351594175 6.0764233156029308E-002 1.3159295523912571 + 4.0199999999999996 -0.17438999999999999 0.88761802830505232 0.13972000629950304 1.8439289223395587 + 4.0400000000000000 -0.15656700000000001 0.89541954326384021 0.25035574163987911 1.4333547584548052 + 4.0599999999999996 -0.13854700000000000 0.90715379863958079 0.33635702714716559 0.29765204363714176 + 4.0800000000000001 -0.12026700000000000 0.92096526217783237 0.35421614976539451 -0.49896293280041426 + 4.0999999999999996 -0.10170999999999999 0.93453515264908738 0.32427837379737029 -1.6768003126426776 + 4.1200000000000001 -8.2903000000000004E-002 0.94549412722581117 0.22367035503880731 -2.4188358164163555 + 4.1399999999999997 -6.3922999999999994E-002 0.95153833844766378 7.8540206053829081E-002 -4.0228564219068064 + 4.1600000000000001 -4.4893000000000002E-002 0.94985251898352863 -0.16283117926058488 -4.4897384957419186 + 4.1799999999999997 -2.5996999999999999E-002 0.93795158561821523 -0.43221548900509427 -5.2681895953365290 + 4.2000000000000002 -7.4530000000000004E-003 0.91434113854360699 -0.74830686472529329 -5.9375031227057828 + 4.2199999999999998 1.0487000000000000E-002 0.87728386020734928 -1.1045570520876327 -5.4817979140394275 + 4.2400000000000002 2.7546999999999999E-002 0.82652342062699535 -1.4334649269300059 -5.1353052209468348 + 4.2599999999999998 4.3463000000000002E-002 0.76302245728466034 -1.7415832401868094 -4.6019812023502666 + 4.2800000000000002 5.7990000000000000E-002 0.68783675023436586 -2.0177021123278318 -3.3317699694902250 + 4.2999999999999998 7.0913000000000004E-002 0.60313054177786618 -2.2176083104972411 -2.3209389198329582 + 4.3200000000000003 8.2070000000000004E-002 0.51164108265417485 -2.3568646456872218 -1.2594743510541175 + 4.3399999999999999 9.1350000000000001E-002 0.41585512760542309 -2.4324331067504672 0.35883632394630904 + 4.3600000000000003 9.8696999999999993E-002 0.31898840692413771 -2.4109029273136882 0.94912905535338699 + 4.3799999999999999 0.10412000000000000 0.22369124469801627 -2.3539551839924862 2.2196474545756577 + 4.4000000000000004 0.10767000000000000 0.13219661428380558 -2.2207763367179436 2.6722811263858128 + 4.4199999999999999 0.10944700000000000 4.6572298166752561E-002 -2.0604394691347983 2.8412280398592755 + 4.4400000000000004 0.10957699999999999 -3.2435806950809984E-002 -1.8899657867432378 3.0878067141822538 + 4.4600000000000000 0.10819700000000000 -0.10432907036351932 -1.7046973838923065 2.3075451034231240 + 4.4800000000000004 0.10544700000000000 -0.16974791159510527 -1.5662446776869159 2.1820128720975478 + 4.5000000000000000 0.10144300000000001 -0.22977928325606364 -1.4353239053610658 0.83940340819705117 + 4.5199999999999996 9.6280000000000004E-002 -0.28618495538066863 -1.3849597008692438 0.96037349515363990 + 4.5400000000000000 9.0010000000000007E-002 -0.34043089522125525 -1.3273372911600241 -0.43089738888191409 + 4.5599999999999996 8.2667000000000004E-002 -0.39404146373431337 -1.3531911344929384 -0.98678393954462151 + 4.5800000000000001 7.4236999999999997E-002 -0.44935324984148572 -1.4123981708656170 -0.62196685303131416 + 4.5999999999999996 6.4680000000000001E-002 -0.50659553689974679 -1.4497161820474951 -1.9003486482257734 + 4.6200000000000001 5.3953000000000001E-002 -0.56686460255951898 -1.5637371009410441 -0.40163855418448141 + 4.6399999999999997 4.1986999999999997E-002 -0.62989605286218076 -1.5878354141921125 -0.86809713490194096 + 4.6600000000000001 2.8747000000000002E-002 -0.69445118599174904 -1.6399212422862302 0.62402709364334075 + 4.6799999999999997 1.4206999999999999E-002 -0.75929920317082489 -1.6024796166676305 1.6219887604914363 + 4.7000000000000002 -1.6069999999999999E-003 -0.82145200132494178 -1.5051602910381421 2.2630178642147780 + 4.7199999999999998 -1.8620000000000001E-002 -0.87894279152940857 -1.3693792191852583 3.7009397828380899 + 4.7400000000000002 -3.6717000000000000E-002 -0.92927683255741422 -1.1473228322149678 4.8082230042321283 + 4.7599999999999998 -5.5723000000000002E-002 -0.96939987824093365 -0.85882945196104621 5.1911682004451585 + 4.7800000000000002 -7.5412999999999994E-002 -0.99752365447884184 -0.54735935993432949 6.1771041937657811 + 4.7999999999999998 -9.5533000000000007E-002 -1.0120055038436959 -0.17673310830839054 5.4754150247187692 + 4.8200000000000003 -0.11580000000000000 -1.0125043301463690 0.15179179317474317 6.1712357071313502 + 4.8399999999999999 -0.13594000000000001 -0.99902717557082199 0.52206593560261627 4.3396421469796813 + 4.8600000000000003 -0.15567700000000001 -0.97293696757034098 0.78244446442140314 3.7201957047331238 + 4.8799999999999999 -0.17479300000000000 -0.93717495414780594 1.0056562067053858 2.1545750342965335 + 4.9000000000000004 -0.19311700000000001 -0.89436321583843370 1.1349307087631808 0.41150415787984718 + 4.9199999999999999 -0.21054700000000001 -0.84847218249845158 1.1596209582359711 -1.3005916656199947 + 4.9400000000000004 -0.22706299999999999 -0.80364805416775575 1.0815854582987696 -2.4591374955905878 + 4.9600000000000000 -0.24272299999999999 -0.76333560083051444 0.93403720856333750 -4.6128583518417283 + 4.9800000000000004 -0.25765300000000002 -0.73150954251019040 0.65726570745282742 -5.3394290972004024 + 5.0000000000000000 -0.27206300000000000 -0.71162622912871809 0.33689996162081010 -6.1544252592854605 + 5.0199999999999996 -0.28621000000000002 -0.70553554097502824 -3.2365553936309674E-002 -6.6678698655721833 + 5.0400000000000000 -0.30038700000000002 -0.71483160697116765 -0.43243774587064993 -6.2990952785848835 + 5.0599999999999996 -0.31490699999999999 -0.73968803114029480 -0.81038346258573490 -6.0107490199327724 + 5.0800000000000001 -0.33007300000000001 -0.77931626846764457 -1.1710284037817096 -4.9079086418471185 + 5.0999999999999996 -0.34616700000000000 -0.83204689498912832 -1.4655029222925304 -3.6076164125004269 + 5.1200000000000001 -0.36342300000000000 -0.89499615157583157 -1.6819599070425610 -2.1616257083437413 + 5.1399999999999997 -0.38201299999999999 -0.96486849870754499 -1.8116574495431828 -0.62088075392074626 + 5.1600000000000001 -0.40204000000000001 -1.0380798535939788 -1.8489102947784284 1.3951487238083817 + 5.1799999999999997 -0.42353000000000002 -1.1103620869165445 -1.7652013713499273 3.2902858589265835 + 5.2000000000000002 -0.44641700000000001 -1.1770217987398310 -1.5677842198143277 4.3187078402265469 + 5.2199999999999998 -0.47055000000000002 -1.2345507181241313 -1.3086617494007404 7.1848827804408621 + 5.2400000000000002 -0.49570700000000001 -1.2782753287636326 -0.87756878257427873 7.9417610377241914 + 5.2599999999999998 -0.52156000000000002 -1.3038479668213343 -0.40106312031083741 9.6730730689582369 + 5.2800000000000002 -0.54771999999999998 -1.3082828039510179 0.17932126382667024 10.490946686145142 + 5.2999999999999998 -0.57372999999999996 -1.2885208173745775 0.80877806499536531 11.738140186738669 + 5.3200000000000003 -0.59908300000000003 -1.2420839265506751 1.5130664761997017 12.056492566648098 + 5.3399999999999999 -0.62322299999999997 -1.1670934764227112 2.2364560301985721 12.160889546913182 + 5.3600000000000003 -0.64557299999999995 -1.0630421677584698 2.9661094030133799 11.799949245456235 + 5.3799999999999999 -0.66555299999999995 -0.93023785254339031 3.6741063577407389 11.389313471475711 + 5.4000000000000004 -0.68259700000000001 -0.76960642206798580 4.3574651660292973 9.5177968684754060 + 5.4199999999999999 -0.69616999999999996 -0.58388645918464765 4.9285329781378096 7.9144990547419916 + 5.4400000000000004 -0.70581300000000002 -0.37724774119343990 5.4034029214223400 5.4492069124729827 + 5.4600000000000000 -0.71115300000000004 -0.15457257604158353 5.7303553361707120 2.4136732954184277 + 5.4800000000000004 -0.71193300000000004 7.7538045359752492E-002 5.8751757338958210 -0.10390009415376969 + 5.5000000000000000 -0.70803300000000002 0.31242039460259574 5.8689417282465950 -3.7480729187811481 + 5.5199999999999996 -0.69946699999999995 0.54268037622991738 5.6440573531197309 -6.4038082308289113 + 5.5400000000000000 -0.68640699999999999 0.76075810047771675 5.2598288592699873 -9.3866941577354019 + 5.5599999999999996 -0.66916299999999995 0.95988722185922981 4.6966272098058752 -11.674415138436860 + 5.5800000000000001 -0.64817999999999998 1.1337430120853442 3.9961623014996475 -12.915645288271783 + 5.5999999999999996 -0.62400999999999995 1.2780907297994013 3.2212235842033570 -15.413003708757991 + 5.6200000000000001 -0.59728300000000001 1.3884440687170281 2.2964433616778561 -13.932339876379315 + 5.6399999999999997 -0.56870699999999996 1.4635829953324859 1.4605029690951150 -14.482636786058928 + 5.6600000000000001 -0.53896699999999997 1.5046239499530203 0.59154476193155925 -12.762112979047684 + 5.6799999999999997 -0.50873999999999997 1.5129712048554256 -0.17418201681128542 -10.843911298087349 + 5.7000000000000002 -0.47863699999999998 1.4929912306252686 -0.82481669469654140 -8.7372418282688944 + 5.7199999999999998 -0.44917699999999999 1.4495138726434855 -1.3490512043926639 -6.3321213891631052 + 5.7400000000000002 -0.42077700000000001 1.3879532788007816 -1.7289784877424590 -3.4342726147599802 + 5.7599999999999998 -0.39373700000000000 1.3146730121533730 -1.9350348446280534 -1.5557881521005024 + 5.7800000000000002 -0.36823000000000000 1.2354046725857282 -2.0283821337540857 0.78242522344632404 + 5.7999999999999998 -0.34432699999999999 1.1552082975037021 -1.9814366203473073 2.3010872580497077 + 5.8200000000000003 -0.32199699999999998 1.0787121373994677 -1.8433713848643216 3.7632257445965531 + 5.8399999999999999 -0.30113000000000001 1.0094931528984121 -1.6175778401885332 3.7710097633423274 + 5.8600000000000003 -0.28155700000000000 0.94931525100688030 -1.3913172543879884 3.7777352022435400 + 5.8799999999999999 -0.26309700000000003 0.89819584307405398 -1.1646531422533808 3.6180494274865524 + 5.9000000000000004 -0.24557000000000001 0.85595137669690180 -0.94757017660418263 2.5000670879981661 + 5.9199999999999999 -0.22881000000000001 0.82104865013833295 -0.79756615132429587 1.3816822203388714 + 5.9400000000000004 -0.21269700000000000 0.79080402274976702 -0.71466521810396166 0.84820403082057216 + 5.9600000000000000 -0.19716000000000000 0.76323525886259391 -0.66377297625472842 -0.77449834378980409 + 5.9800000000000004 -0.18216700000000000 0.73575494179985634 -0.71024287688211774 -0.87521065549832089 + 6.0000000000000000 -0.16774300000000000 0.70629497393797425 -0.76275551621201587 -2.5996590342981740 + 6.0199999999999996 -0.15394300000000000 0.67266516244833663 -0.91873505826990298 -1.6011532073828143 + 6.0400000000000000 -0.14087000000000000 0.63399437626868016 -1.0148042507128741 -2.6207281360270360 + 6.0599999999999996 -0.12861700000000001 0.59025733247693379 -1.1720479388744929 -1.5409342486393265 + 6.0800000000000001 -0.11729299999999999 0.54152629382358564 -1.2645039937928546 -1.0905348692964085 + 6.0999999999999996 -0.10697700000000000 0.48963749222871694 -1.3299360859506377 -0.47192627428546519 + 6.1200000000000001 -9.7720000000000001E-002 0.43587373726154760 -1.3582516624077663 0.72823996654053436 + 6.1399999999999997 -8.9539999999999995E-002 0.38241755872508676 -1.3145572644153352 1.3089664080308903 + 6.1600000000000001 -8.2406999999999994E-002 0.33140602783810924 -1.2360192799334799 2.0358944014146014 + 6.1799999999999997 -7.6257000000000005E-002 0.28440832992246851 -1.1138656158486064 2.6724559862455695 + 6.2000000000000002 -7.0993000000000001E-002 0.24306065247201808 -0.95351825667386858 3.2742816536588886 + 6.2199999999999998 -6.6487000000000004E-002 0.20884906018945465 -0.75706135745433945 3.2304173990699416 + 6.2400000000000002 -6.2587000000000004E-002 0.18244310677016448 -0.56323631351013848 2.5540487501047395 + 6.2599999999999998 -5.9143000000000001E-002 0.16297851272988498 -0.40999338850385736 2.5533876004719027 + 6.2800000000000002 -5.6027000000000000E-002 0.14964284231029673 -0.25679013247553967 1.7324008480432296 + 6.2999999999999998 -5.3122999999999997E-002 0.14145011802892715 -0.15284608159294810 0.64200900732143407 + 6.3200000000000003 -5.0349999999999999E-002 0.13610668557399483 -0.11432554115366117 7.4563122702863527E-002 + 6.3399999999999999 -4.7673000000000000E-002 0.13162313967509193 -0.10985175379148945 -0.69026149816233240 + 6.3600000000000003 -4.5089999999999998E-002 0.12640075572563739 -0.15126744368123035 -2.1885171300256072 + 6.3799999999999999 -4.2639999999999997E-002 0.11772383742235770 -0.28257847148276399 -1.8056699817620703 + 6.4000000000000004 -4.0412999999999998E-002 0.10425389458493228 -0.39091867038849071 -2.8388029429019146 + 6.4199999999999999 -3.8507000000000000E-002 8.5210584237910836E-002 -0.56124684696260196 -2.8391182466504303 + 6.4400000000000004 -3.7050000000000000E-002 5.9353768463425577E-002 -0.73159394176163173 -2.6797240704810688 + 6.4600000000000000 -3.6177000000000001E-002 2.6874341908383781E-002 -0.89237738599049243 -2.0669854714345020 + 6.4800000000000004 -3.6013000000000003E-002 -1.1301136096958247E-002 -1.0163965142765654 -1.8023340437783397 + 6.5000000000000000 -3.6659999999999998E-002 -5.4119797520553903E-002 -1.1245365569032635 -0.97367835345736198 + 6.5199999999999996 -3.8199999999999998E-002 -0.10026967382083227 -1.1829572581107040 0.19704745762434703 + 6.5400000000000000 -4.0676999999999998E-002 -0.14735150719611229 -1.1711344106532429 0.31048852293259038 + 6.5599999999999996 -4.4089999999999997E-002 -0.19382429739472190 -1.1525050992772878 1.8109984506827832 + 6.5800000000000001 -4.8412999999999998E-002 -0.23775130322499502 -1.0438451922363183 1.9455176742885298 + 6.5999999999999996 -5.3570000000000000E-002 -0.27717048970530073 -0.92711413177900903 3.0319308522203401 + 6.6200000000000001 -5.9459999999999999E-002 -0.31061673795379741 -0.74519828064578442 2.9267589167638897 + 6.6399999999999997 -6.5947000000000006E-002 -0.33691255847951163 -0.56959274563995477 3.2610334807988219 + 6.6600000000000001 -7.2886999999999993E-002 -0.35578302812815155 -0.37393073679202093 3.6541071599596684 + 6.6799999999999997 -8.0123000000000000E-002 -0.36635532900788065 -0.15468430719444551 2.7475378794454448 + 6.7000000000000002 -8.7489999999999998E-002 -0.36924565584032393 1.0167965572285005E-002 2.9807413221758430 + 6.7199999999999998 -9.4847000000000001E-002 -0.36526204763082171 0.18901244490283176 2.4544968319338230 + 6.7400000000000002 -0.10205699999999999 -0.35475615363638752 0.33628225481886453 1.8262713500065679 + 6.7599999999999998 -0.10900300000000000 -0.33911333782362540 0.44585853581925627 1.2404177681189428 + 6.7800000000000002 -0.11559700000000001 -0.31979049506911195 0.52028360190639455 0.96205757744539111 + 6.7999999999999998 -0.12177700000000000 -0.29782468189992223 0.57800705655311679 -8.8648077835569702E-002 + 6.8200000000000003 -0.12750300000000001 -0.27481077733119968 0.57268817188298249 -0.35746526616293206 + 6.8399999999999999 -0.13277300000000000 -0.25233220877527640 0.55124025591320702 -0.98149085745667153 + 6.8600000000000003 -0.13760700000000001 -0.23146038756769566 0.49235080446580537 -1.7165713040632520 + 6.8799999999999999 -0.14205300000000001 -0.21382624095393968 0.38935652622201244 -1.6522239262397429 + 6.9000000000000004 -0.14618700000000001 -0.20023464861654661 0.29022309064762558 -2.6745329910246118 + 6.9199999999999999 -0.15009700000000001 -0.19183516457987121 0.12975111118615229 -2.2746441096187642 + 6.9400000000000004 -0.15390000000000001 -0.18937469306396765 -6.7275353909766883E-003 -2.8518905705401960 + 6.9600000000000000 -0.15771299999999999 -0.19306606316425479 -0.17784096962338480 -2.6927936081836918 + 6.9800000000000004 -0.16166700000000001 -0.20341105427901093 -0.33940858611441005 -2.3769349967644335 + 7.0000000000000000 -0.16589000000000001 -0.21983971971970423 -0.48202468592027303 -2.1744664047386233 + 7.0199999999999996 -0.17049700000000001 -0.24173006684220100 -0.61249267020458764 -1.3001993842505977 + 7.0400000000000000 -0.17558699999999999 -0.26779001291148585 -0.69050463325962530 -1.3747360583210315 + 7.0599999999999996 -0.18123000000000000 -0.29705988151185542 -0.77298879675888543 0.42414361760146663 + 7.0800000000000001 -0.18747700000000000 -0.32747046104108979 -0.74754017970279685 1.0531615878472496 + 7.0999999999999996 -0.19431699999999999 -0.35610827432378439 -0.68435048443196322 1.2382100310807527 + 7.1200000000000001 -0.20170299999999999 -0.38199644166376656 -0.61005788256711635 3.3689982877504168 + 7.1399999999999997 -0.20956000000000000 -0.40235595902115040 -0.40791798530209566 2.9107968180046653 + 7.1600000000000001 -0.21774700000000000 -0.41517972225162880 -0.23327017622181170 4.6128144401394380 + 7.1799999999999997 -0.22610700000000000 -0.41897515197233398 4.3498690186548727E-002 4.0129454215308131 + 7.2000000000000002 -0.23443700000000001 -0.41241966985903483 0.28427541547840307 4.8354038736468494 + 7.2199999999999998 -0.24253300000000000 -0.39524616859152295 0.57439964789720788 4.3954390839706727 + 7.2400000000000002 -0.25017299999999998 -0.36699565577486903 0.83812599293545431 3.4578397903809970 + 7.2599999999999998 -0.25714999999999999 -0.32932120830899458 1.0455963803583097 3.5232017545830754 + 7.2800000000000002 -0.26329000000000002 -0.28326951098916137 1.2569884856332991 1.9493531912314332 + 7.2999999999999998 -0.26843699999999998 -0.23065074773435282 1.3739496771071826 0.92938548053252301 + 7.3200000000000003 -0.27249299999999999 -0.17457749807342518 1.4297128059391353 -4.1895113404308258E-002 + 7.3399999999999999 -0.27541300000000002 -0.11743925997194614 1.4271990991348769 -1.1368050268727887 + 7.3600000000000003 -0.27720000000000000 -6.1715462038797166E-002 1.3589907975225080 -2.0358847791346584 + 7.3799999999999999 -0.27790700000000002 -9.7988918728594901E-003 1.2368377107744311 -3.0946558565753408 + 7.4000000000000004 -0.27763300000000002 3.5961029530228318E-002 1.0511583593799063 -3.3354917945583398 + 7.4199999999999999 -0.27651999999999999 7.4004773751953842E-002 0.85102885170641018 -3.8133769652093630 + 7.4400000000000004 -0.27472999999999997 0.10346987546195958 0.62222623379384312 -3.5360003445896666 + 7.4600000000000000 -0.27244000000000002 0.12411572440020537 0.41006621311846764 -3.6676216564401636 + 7.4800000000000004 -0.26982299999999998 0.13611722693721603 0.19000891373205275 -2.2935130296346435 + 7.5000000000000000 -0.26704299999999997 0.14096536785093655 5.2398131953977072E-002 -2.5333262250341186 + 7.5199999999999996 -0.26422299999999999 0.14002130165905477 -9.9601441548066799E-002 -0.94818207024072021 + 7.5400000000000000 -0.26146999999999998 0.13489942551284309 -0.15649236576251133 -1.0489454939765470 + 7.5599999999999996 -0.25884299999999999 0.12738099628957097 -0.21942909540110281 0.39396404611997315 + 7.5800000000000001 -0.25638000000000000 0.11907658932887064 -0.19579125263390387 0.84808930952190487 + 7.5999999999999996 -0.25407000000000002 0.11226264639494089 -0.14490589406259066 1.2136787157716220 + 7.6200000000000001 -0.25187300000000001 0.10792282509136315 -7.2085171116291660E-002 1.2971958274127575 + 7.6399999999999997 -0.24973300000000001 0.10659605323960679 5.7465785284721294E-003 1.9725379745547476 + 7.6600000000000001 -0.24758300000000000 0.10919296195021148 0.12409885700175971 1.1876522743888334 + 7.6799999999999997 -0.24534000000000000 0.11558209895954831 0.19535799346508820 1.2768529278692600 + 7.7000000000000002 -0.24293999999999999 0.12492864221159519 0.27196916913724556 0.70493601415405083 + 7.7199999999999998 -0.24032700000000001 0.13665333219406961 0.31426532998648771 0.15340301549314406 + 7.7400000000000002 -0.23746700000000001 0.14940802901212119 0.32346951091607656 0.30645192390333831 + 7.7599999999999998 -0.23434700000000000 0.16271455175744798 0.34185662635027647 -0.87921071114411098 + 7.7800000000000002 -0.23096300000000000 0.17533376395808636 0.28910398368162860 -0.78960907928639279 + 7.7999999999999998 -0.22734699999999999 0.18595039241020764 0.24172743892444604 -1.0873529717519517 + 7.8200000000000003 -0.22353999999999999 0.19431466640108327 0.17648626061932743 -1.2359790336666161 + 7.8399999999999999 -0.21959300000000001 0.19989094198545634 0.10232751859933205 -1.0937308936184937 + 7.8600000000000003 -0.21556300000000000 0.20267156565708749 3.6703664982220913E-002 -1.0140973918179188 + 7.8799999999999999 -0.21150300000000000 0.20292279538619484 -2.4142178526852916E-002 -0.34987953915679776 + 7.9000000000000004 -0.20745700000000000 0.20153725279813253 -4.5134950876261265E-002 -0.71138445150630736 + 7.9199999999999999 -0.20344999999999999 0.19887819342127458 -8.7818017966638795E-002 0.57041734513148779 + 7.9400000000000004 -0.19950300000000001 0.19604997351676676 -5.3592977258748738E-002 0.42971507103310713 + 7.9600000000000000 -0.19560000000000000 0.19442191251165655 -2.7810072996762858E-002 0.71072237068519506 + 7.9800000000000004 -0.19171700000000000 0.19416237643660830 1.4833269244349828E-002 1.3523954462706067 + 8.0000000000000000 -0.18781700000000001 0.19637858174190692 9.5976996020584501E-002 1.0046958442148668 + 8.0199999999999996 -0.18384300000000001 0.20142329659578803 0.15625874667347522 1.5038211768668224 + 8.0399999999999991 -0.17974000000000001 0.20947823187496700 0.24648801728548264 1.1050194482739577 + 8.0600000000000005 -0.17544299999999999 0.22066377590431591 0.31278918418192458 0.95110103012583191 + 8.0800000000000001 -0.17089699999999999 0.23431666450774358 0.36985524598947328 0.71557643117863134 + 8.0999999999999996 -0.16605700000000001 0.24996956606473653 0.41278983186019025 -6.3406754836380044E-002 + 8.1199999999999992 -0.16089300000000001 0.26640507123334012 0.40898542657000753 0.16305058810130549 + 8.1400000000000006 -0.15540000000000001 0.28296014900186311 0.41876846185608652 -0.83879559744371568 + 8.1600000000000001 -0.14957999999999999 0.29870433275917380 0.36844072600946465 -1.0578681983937173 + 8.1799999999999997 -0.14346700000000001 0.31217251996147966 0.30496863410584296 -1.0547316089739238 + 8.1999999999999993 -0.13711000000000001 0.32310558739494449 0.24168473756740888 -1.9732053657847892 + 8.2200000000000006 -0.13056699999999999 0.33040513045869940 0.12329241562031354 -1.3024469277480994 + 8.2400000000000002 -0.12392000000000000 0.33377389077021419 4.5145599955429244E-002 -2.0670069232888753 + 8.2599999999999998 -0.11724300000000000 0.33309930646048480 -7.8874815441900614E-002 -1.3045253790992750 + 8.2799999999999994 -0.11062300000000000 0.32837888338788979 -0.15714633818785545 -1.8398915603862123 + 8.3000000000000007 -0.10413300000000000 0.31988515998791139 -0.26753983181103563 -0.96090837921063632 + 8.3200000000000003 -9.7850000000000006E-002 0.30803047666041744 -0.32519433456367258 -0.94147492284423728 + 8.3399999999999999 -9.1827000000000006E-002 0.29389293337045780 -0.38168282993432562 -1.0231919294134155 + 8.3599999999999994 -8.6110000000000006E-002 0.27739778985778907 -0.44307434569912924 0.28424264044033093 + 8.3800000000000008 -8.0737000000000003E-002 0.26001590719835110 -0.42601978727270823 -0.73877863222948470 + 8.4000000000000004 -7.5713000000000003E-002 0.24208858134876782 -0.47034650520647636 0.79587188841591416 + 8.4199999999999999 -7.1053000000000005E-002 0.22422976740660822 -0.42259419190152253 5.5291078566700527E-002 + 8.4399999999999995 -6.6737000000000005E-002 0.20739234902482773 -0.41927672718752057 0.85796379727493766 + 8.4600000000000009 -6.2750000000000000E-002 0.19165083649405582 -0.36779889935102084 0.51285373242081844 + 8.4800000000000004 -5.9060000000000001E-002 0.17755430499892025 -0.33702767540577239 0.84062127299707501 + 8.5000000000000000 -5.5636999999999999E-002 0.16508194351028610 -0.28659039902594896 0.87466117559076584 + 8.5199999999999996 -5.2442999999999997E-002 0.15466792095995727 -0.23411072849050413 0.41073402463968112 + 8.5399999999999991 -4.9439999999999998E-002 0.14579637264990489 -0.20946668701212379 0.98240272582001165 + 8.5600000000000005 -4.6600000000000003E-002 0.13859658844040354 -0.15052252346291911 0.65965507214472441 + 8.5800000000000001 -4.3882999999999998E-002 0.13336727358846054 -0.11094321913423649 0.37897698556688048 + 8.5999999999999996 -4.1257000000000002E-002 0.12938431720577143 -8.8204600000224148E-002 0.19943698558946690 + 8.6199999999999992 -3.8703000000000001E-002 0.12609545758846988 -7.6238380864856389E-002 0.57327507204702455 + 8.6400000000000006 -3.6207000000000003E-002 0.12373385244033194 -4.1841876542032592E-002 -0.11753727372160191 + 8.6600000000000001 -3.3750000000000002E-002 0.12191913265018475 -4.8894112965328557E-002 -0.22812597718875594 + 8.6799999999999997 -3.1333000000000000E-002 0.11968961695894516 -6.2581671596653621E-002 0.15504118247613055 + 8.6999999999999993 -2.8962999999999999E-002 0.11737239951405042 -5.3279200648085986E-002 -0.76703875274114608 + 8.7200000000000006 -2.6643000000000000E-002 0.11432078498483733 -9.9301525812557856E-002 -8.6886171459378311E-002 + 8.7400000000000002 -2.4396999999999999E-002 0.11024446054658385 -0.10451469610012044 -0.76041656144809466 + 8.7599999999999998 -2.2239999999999999E-002 0.10515137282884145 -0.15013968978700515 -0.37144758274807599 + 8.7799999999999994 -2.0199999999999999E-002 9.8700048138063698E-002 -0.17242654475188923 -0.62879310758028339 + 8.8000000000000007 -1.8300000000000000E-002 9.1048434618891227E-002 -0.21015413120670878 -0.48837998688799000 + 8.8200000000000003 -1.6566999999999998E-002 8.2056213386357491E-002 -0.23945693041998756 -0.16768694489066674 + 8.8399999999999999 -1.5023000000000000E-002 7.2276711835689400E-002 -0.24951814711342735 -0.34087223354875373 + 8.8599999999999994 -1.3679999999999999E-002 6.1886939270894024E-002 -0.26997048112635214 0.40617587907366126 + 8.8800000000000008 -1.2547000000000001E-002 5.1575531080727668E-002 -0.24559992838193082 9.1168717279686937E-002 + 8.9000000000000004 -1.1613000000000000E-002 4.1860936406186267E-002 -0.24012980534514972 0.60414925179359991 + 8.9199999999999999 -1.0867000000000000E-002 3.2980723294532770E-002 -0.20388085023753449 1.1172342755462761 + 8.9399999999999995 -1.0279999999999999E-002 2.6166170415687039E-002 -0.13684679370475936 0.55191364601669679 + 8.9600000000000009 -9.8069999999999997E-003 2.1354595042716421E-002 -0.10373197494375531 1.4251111403976910 + 8.9800000000000004 -9.4100000000000000E-003 1.8915449413443454E-002 -1.8225306519895679E-002 0.74764179238724127 + 9.0000000000000000 -9.0329999999999994E-003 1.9083607303512294E-002 2.6633201023337837E-002 1.3343216900533894 + 9.0199999999999996 -8.6300000000000005E-003 2.1750121372509784E-002 0.10669250242653949 0.29007144740012275 + 9.0399999999999991 -8.1499999999999993E-003 2.6365907206451406E-002 0.12409678927054649 0.75539252033863236 + 9.0600000000000005 -7.5669999999999999E-003 3.2236249801680085E-002 0.16942034049086749 -0.31164152874156503 + 9.0800000000000001 -6.8570000000000002E-003 3.8639093586824776E-002 0.15072184876637398 -0.38382640537828594 + 9.0999999999999996 -6.0270000000000002E-003 4.4207375851025681E-002 0.12769226444367732 -1.4030528497454873 + 9.1199999999999992 -5.1029999999999999E-003 4.7631403009078151E-002 4.3509093458949884E-002 -0.87896219565099554 + 9.1400000000000006 -4.1399999999999996E-003 4.8317012112654933E-002 -9.2286382801134090E-003 -2.4560983676293291 + 9.1600000000000001 -3.1970000000000002E-003 4.5000548540295331E-002 -0.15659454033787001 -1.2966443338428353 + 9.1799999999999997 -2.3700000000000001E-003 3.7180793726169330E-002 -0.23439320036843847 -2.8573242970000798 + 9.1999999999999993 -1.7430000000000000E-003 2.4376276555032036E-002 -0.40583265818843961 -1.1490584781592754 + 9.2200000000000006 -1.4270000000000001E-003 6.7641000537020397E-003 -0.47477616687800078 -1.9214417903558316 + 9.2400000000000002 -1.4970000000000001E-003 -1.4532676769844488E-002 -0.59006267429934822 -0.41517436042343292 + 9.2599999999999998 -2.0270000000000002E-003 -3.8633392974326011E-002 -0.61497313592475367 -0.16786076795062080 + 9.2799999999999994 -3.0469999999999998E-003 -6.3433751332856378E-002 -0.62504478200179070 1.0866174322451041 + 9.3000000000000007 -4.5570000000000003E-003 -8.7131601694235394E-002 -0.55984773606708005 2.0713910389368260 + 9.3200000000000003 -6.5069999999999998E-003 -0.10703984189019403 -0.43556427373087314 2.3778184120222310 + 9.3399999999999999 -8.8030000000000001E-003 -0.12160903074500203 -0.29289516900954232 4.4173353129753155 + 9.3599999999999994 -1.1317000000000001E-002 -0.12802403512981331 -2.7855050231028997E-002 3.2028403361059241 + 9.3800000000000008 -1.3863000000000000E-002 -0.12529482873572692 0.16431536993533943 5.0213033425444253 + 9.4000000000000004 -1.6263000000000000E-002 -0.11269664992726043 0.46559357048799854 4.2119462937462853 + 9.4199999999999999 -1.8297000000000001E-002 -8.9018571555245563E-002 0.71831034811277028 3.3809114824725706 + 9.4399999999999995 -1.9762999999999999E-002 -5.6229063851768443E-002 0.92116503706112018 3.2644077763675301 + 9.4600000000000009 -2.0493000000000001E-002 -1.5465173037679584E-002 1.1170295036431852 1.5614574120414597 + 9.4800000000000004 -2.0343000000000000E-002 3.1089756002496541E-002 1.2107169483656708 -1.0237424520739127E-002 + 9.5000000000000000 -1.9237000000000001E-002 7.9506149027697454E-002 1.2101027028944265 -1.2705077139582441 + 9.5199999999999996 -1.7173000000000001E-002 0.12638564788672366 1.1338722400569334 -2.6577317196467658 + 9.5399999999999991 -1.4213000000000000E-002 0.16855125942542404 0.97440833687813089 -4.3485654075008178 + 9.5600000000000005 -1.0487000000000000E-002 0.20230931441155023 0.71349441242806422 -4.6980066502667803 + 9.5800000000000001 -6.1929999999999997E-003 0.22521148292835230 0.43161401341206340 -6.3594079914714285 + 9.5999999999999996 -1.5670000000000000E-003 0.23484475387506909 5.0049533923785819E-002 -5.8643613838497961 + 9.6199999999999992 3.1029999999999999E-003 0.22980950157140101 -0.30181214910719445 -5.1831464731784642 + 9.6400000000000006 7.5370000000000003E-003 0.21151723983929743 -0.61280093749792330 -5.6530527233379164 + 9.6600000000000001 1.1476999999999999E-002 0.18022153907137581 -0.95198410089819108 -2.2046426335224494 + 9.6799999999999997 1.4683000000000000E-002 0.13949660387522214 -1.0842626589095352 -2.4033767425735260 + 9.6999999999999993 1.7020000000000000E-002 9.3242045427753550E-002 -1.2284652634639437 0.44314960380577739 + 9.7200000000000006 1.8397000000000000E-002 4.4635214413759478E-002 -1.2018762872355953 1.7557783273809047 + 9.7400000000000002 1.8822999999999999E-002 -1.3329030828063138E-003 -1.0965295875927432 3.6587370866509099 + 9.7599999999999998 1.8387000000000001E-002 -4.0803602082534210E-002 -0.87700536239369331 4.6092733260165462 + 9.7799999999999994 1.7257000000000002E-002 -7.0352688587061576E-002 -0.60044896283270643 5.4041696093039162 + 9.8000000000000007 1.5653000000000000E-002 -8.7885643569205876E-002 -0.27619878627444955 5.6490482367322628 + 9.8200000000000003 1.3830000000000000E-002 -9.2154737136105197E-002 6.2744107929479001E-002 4.7496374437845255 + 9.8399999999999999 1.2050000000000000E-002 -8.3945407886384896E-002 0.34772235455654443 3.3524019881314566 + 9.8599999999999994 1.0536999999999999E-002 -6.6013631318365837E-002 0.54886647384442755 0.84075460370055777 + 9.8800000000000008 9.4430000000000000E-003 -4.3050066840146450E-002 0.59931175006646442 -2.3404204029582645 + 9.9000000000000004 8.8030000000000001E-003 -2.1886101321038180E-002 0.45888652588897155 -6.9790729918537036 + 9.9199999999999999 8.4930000000000005E-003 -1.1905527875703795E-002 4.0142146377758259E-002 -11.743287629629764 + 9.9399999999999995 8.1770000000000002E-003 -2.4391787176148618E-002 -0.66445511140001257 -17.547776489615643 + 9.9600000000000009 7.2830000000000004E-003 -7.2027323419692535E-002 -1.7173217007770223 -28.565606411926908 + 9.9800000000000004 4.9270000000000000E-003 -0.17499891914508275 -3.4312580854926003 -19.314797862680937 + 10.000000000000000 -1.0000000000000000E-004 0.0000000000000000 -4.5901459572534318 0.0000000000000000 diff --git a/PARAM/ions_fin_08_02_2022.parm b/PARAM/ions_fin_08_02_2022.parm new file mode 100644 index 0000000..f179b5b --- /dev/null +++ b/PARAM/ions_fin_08_02_2022.parm @@ -0,0 +1,149 @@ +2 0 0 0 0 0 0 2 0 0 2 2 2 2 -1 -1 2 1 1 0 0 0 0 0 -1 -1 -1 +1 1 0 +1 1 0 +1 1 0 +1 1 0 +1 1 0 +18 3 0 +1 1 0 +23 3 1 +24 3 2 +39 3 1 +40 3 2 +35.5 3 -1 +65 3 2 +5.69891E-02 3.17002E+00 4.95421E-01 0.00000E+00 8.09856E-01 0.00000E+00 5.95645E-01 5.61069E+00 2.58276E+00 5.23464E+00 4.42980E+00 0.00000E+00 4.14020E-01 0.00000E+00 1 0 0 0 0 4.12992E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -9.04131E+00 3.62811E-02 9.69329E-01 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.35052E+00 0.00000E+00 +2.79444E+00 2.91727E+00 8.33501E-01 0.00000E+00 9.99999E-01 0.00000E+00 9.81661E-01 6.93235E+00 5.97322E-01 4.87889E+00 4.43795E+00 0.00000E+00 4.32100E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +1.45596E+00 2.83670E+00 7.43295E-01 0.00000E+00 9.99920E-01 0.00000E+00 5.98655E-01 6.55996E+00 3.46739E-02 4.74838E+00 4.56099E+00 0.00000E+00 3.76099E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.48735E-02 4.36914E+00 2.58957E-01 0.00000E+00 -9.67829E-02 0.00000E+00 1.34649E+00 8.42957E-01 3.46574E-02 2.60246E-01 3.82376E+00 0.00000E+00 2.49457E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.52118E-02 4.63748E+00 3.64272E-01 0.00000E+00 1.59087E-01 0.00000E+00 9.53869E-01 4.77396E-01 3.46872E-02 2.68034E-01 4.11193E+00 0.00000E+00 4.00815E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.49660E-02 4.34679E+00 2.09480E-01 0.00000E+00 6.64390E-03 0.00000E+00 1.36813E+00 7.14527E-01 3.46574E-02 6.55911E-01 4.11720E+00 0.00000E+00 1.61904E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.46667E-02 2.97236E+00 4.04152E-01 0.00000E+00 -9.99966E-01 0.00000E+00 5.18590E-01 1.20064E+01 3.46665E-02 4.46463E+00 4.08858E+00 0.00000E+00 6.95524E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +4.22623E-02 3.55300E+00 7.52451E-01 0.00000E+00 9.99989E-01 0.00000E+00 1.46027E+00 8.56620E-01 1.45909E-01 2.11520E+00 4.15491E+00 0.00000E+00 4.92352E-01 0.00000E+00 1 0 0 0 0 3.46593E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 0.00000E+00 3.46574E-02 -3.18395E-02 1.03355E-01 3.46574E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E-01 0.00000E+00 1.00000E+00 0.00000E+00 +2.79183E-01 3.38227E+00 4.58897E-01 0.00000E+00 9.10411E-01 0.00000E+00 8.34463E+00 4.99499E+00 6.90949E+00 8.14074E-02 2.51032E+00 0.00000E+00 1.48920E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.84139E+00 2.72458E+00 7.07073E-01 0.00000E+00 9.99751E-01 0.00000E+00 1.55244E+00 5.23148E+00 3.53037E+00 5.29844E+00 4.18614E+00 0.00000E+00 4.88630E-01 0.00000E+00 1 0 0 0 0 3.53127E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.32639E-02 2.00298E+00 4.09554E-01 1.42549E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.15490E+00 0.00000E+00 +7.57785E+00 2.69464E+00 6.59173E-01 0.00000E+00 9.96763E-01 0.00000E+00 2.25237E+00 5.92011E+00 2.68553E+00 5.20529E+00 4.39604E+00 0.00000E+00 4.44385E-02 0.00000E+00 1 0 0 0 0 4.02319E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -3.67928E+00 1.79969E-01 1.50196E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.08211E+00 0.00000E+00 +2.33132E-01 2.96945E+00 4.53728E-01 0.00000E+00 7.24649E-01 0.00000E+00 8.22898E+00 5.43525E+00 4.88545E+00 4.96245E+00 3.78540E+00 0.00000E+00 2.45870E-01 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 -7.67410E-01 1.90266E-01 4.59049E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00010E+00 0.00000E+00 +9.48215E+00 2.89500E+00 7.84420E-01 0.00000E+00 9.98547E-01 0.00000E+00 3.43103E+00 6.23121E+00 3.00319E+00 5.18071E+00 4.41926E+00 0.00000E+00 3.36059E-01 0.00000E+00 1 0 0 0 0 1.46750E-01 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 3.95183E+00 4.00136E-01 1.90755E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 9.47250E-01 0.00000E+00 +1.89742E-01 1.95673E+00 9.00000E-01 0.00000E+00 9.98063E-01 0.00000E+00 7.37857E-01 6.04538E+00 6.70453E-01 5.20022E+00 4.33545E+00 0.00000E+00 4.02223E-01 0.00000E+00 1 0 0 0 0 4.72482E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -1.50741E+00 1.59389E-01 1.88996E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 9.66766E-01 0.00000E+00 +9.92793E+00 2.64623E+00 2.65809E-01 0.00000E+00 7.31160E-01 0.00000E+00 1.71506E+00 5.95064E+00 3.71304E-02 5.37684E+00 4.25598E+00 0.00000E+00 -7.82987E-01 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 5.55281E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 1.61327E+00 +6.55245E+00 2.72566E+00 8.01881E-01 0.00000E+00 1.00000E+00 0.00000E+00 1.11117E+00 8.74351E+00 1.93383E+00 5.21161E+00 4.43586E+00 0.00000E+00 1.34392E-01 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.82464E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 5.49894E+00 +3.46816E-02 3.48560E+00 1.78424E-01 0.00000E+00 -4.61362E-01 0.00000E+00 7.66510E-01 5.49102E-01 1.78264E-01 3.46574E-02 3.29851E+00 0.00000E+00 4.50032E-01 0.00000E+00 1 0 0 0 0 5.53438E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 0.00000E+00 3.46574E-02 -1.04360E+01 6.05739E-01 3.46574E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 0.00000E+00 9.99998E-01 0.00000E+00 +3.47440E-02 4.93389E+00 6.59651E-01 0.00000E+00 9.09560E-01 0.00000E+00 1.45067E+00 5.85525E+00 5.87716E-01 5.05488E+00 2.87499E+00 0.00000E+00 8.80085E-01 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 0.00000E+00 1.00907E-01 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 1.58498E-01 +3.47157E-02 3.88251E+00 -1.92325E-02 0.00000E+00 1.43402E-02 0.00000E+00 1.52175E+00 6.22560E+00 7.96165E-01 5.37775E+00 4.03779E+00 0.00000E+00 6.32819E-01 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 5.55281E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 1.83448E+00 +3.47578E-02 4.01099E+00 1.98246E-01 0.00000E+00 -8.62837E-01 0.00000E+00 1.49163E+00 9.06598E-01 2.76008E-01 3.93459E-01 3.70271E+00 0.00000E+00 2.87385E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +2.79444E+00 2.91727E+00 8.33501E-01 0.00000E+00 9.99999E-01 0.00000E+00 9.81661E-01 6.93235E+00 5.97322E-01 4.87889E+00 4.43795E+00 0.00000E+00 4.32100E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +1.45596E+00 2.83670E+00 7.43295E-01 0.00000E+00 9.99920E-01 0.00000E+00 5.98655E-01 6.55996E+00 3.46739E-02 4.74838E+00 4.56099E+00 0.00000E+00 3.76099E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +2.79183E-01 3.38227E+00 4.58897E-01 0.00000E+00 9.10411E-01 0.00000E+00 8.34463E+00 4.99499E+00 6.90949E+00 8.14074E-02 2.51032E+00 0.00000E+00 1.48920E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +2.79183E-01 3.38227E+00 4.58897E-01 0.00000E+00 9.10411E-01 0.00000E+00 8.34463E+00 4.99499E+00 6.90949E+00 8.14074E-02 2.51032E+00 0.00000E+00 1.48920E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.84139E+00 2.72458E+00 7.07073E-01 0.00000E+00 9.99751E-01 0.00000E+00 1.55244E+00 5.23148E+00 3.53037E+00 5.29844E+00 4.18614E+00 0.00000E+00 4.88630E-01 0.00000E+00 1 0 0 0 0 3.53127E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.32639E-02 2.00298E+00 4.09554E-01 1.42549E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.15490E+00 0.00000E+00 +3.84139E+00 2.72458E+00 7.07073E-01 0.00000E+00 9.99751E-01 0.00000E+00 1.55244E+00 5.23148E+00 3.53037E+00 5.29844E+00 4.18614E+00 0.00000E+00 4.88630E-01 0.00000E+00 1 0 0 0 0 3.53127E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.32639E-02 2.00298E+00 4.09554E-01 1.42549E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.15490E+00 0.00000E+00 +3.84139E+00 2.72458E+00 7.07073E-01 0.00000E+00 9.99751E-01 0.00000E+00 1.55244E+00 5.23148E+00 3.53037E+00 5.29844E+00 4.18614E+00 0.00000E+00 4.88630E-01 0.00000E+00 1 0 0 0 0 3.53127E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.32639E-02 2.00298E+00 4.09554E-01 1.42549E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.15490E+00 0.00000E+00 +5.40033E-01 4.41744E+00 6.40857E-01 0.00000E+00 9.57375E-01 0.00000E+00 1.41585E+00 5.84146E+00 2.22249E+00 5.28349E+00 3.26342E+00 0.00000E+00 -5.41440E-01 0.00000E+00 1 0 0 0 0 5.60413E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -2.40876E+00 3.96712E-02 2.97530E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 9.87733E+00 0.00000E+00 +5.12100E+00 2.96715E+00 7.87559E-01 0.00000E+00 2.06425E-01 0.00000E+00 3.01066E+00 7.14712E+00 8.28676E-01 4.84834E+00 4.32378E+00 0.00000E+00 5.87310E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.48244E-02 5.14144E+00 9.01893E-02 0.00000E+00 -7.75830E-02 0.00000E+00 5.96794E-01 6.73438E+00 3.16339E+00 4.88579E+00 4.64210E+00 0.00000E+00 5.22546E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.46604E-02 5.80191E+00 3.28443E-01 0.00000E+00 3.22840E-01 0.00000E+00 7.85743E-01 4.19477E+00 1.94123E+00 4.02330E-01 4.51534E+00 0.00000E+00 -3.32144E-02 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.46578E-02 5.80193E+00 3.29777E-01 0.00000E+00 2.93787E-02 0.00000E+00 1.55415E+00 9.03230E-01 3.66901E-02 2.24085E-01 4.12118E+00 0.00000E+00 1.86773E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.46590E-02 5.53520E+00 9.56586E-02 0.00000E+00 -8.07031E-01 0.00000E+00 1.02853E-01 1.92892E-01 2.99391E-01 2.61753E-01 4.91832E+00 0.00000E+00 5.31986E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.46585E-02 6.44209E+00 5.92565E-01 0.00000E+00 7.38064E-01 0.00000E+00 5.00150E+00 5.00182E+00 4.99940E+00 4.99850E+00 3.06919E+00 0.00000E+00 4.89695E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +6.03185E+00 2.59077E+00 8.10272E-01 0.00000E+00 1.00000E+00 0.00000E+00 3.47984E+00 6.83831E+00 8.29494E-02 5.19389E+00 4.09247E+00 0.00000E+00 6.48867E-01 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -3.41371E+00 3.46971E-02 1.69559E-01 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 2.79208E+00 0.00000E+00 +2.07431E-01 4.25937E+00 3.76895E-01 0.00000E+00 5.43405E-01 0.00000E+00 8.37959E+00 5.12688E+00 6.82556E+00 3.47687E-02 2.55561E+00 0.00000E+00 6.33778E-02 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +1.02661E+01 3.01002E+00 3.54124E-01 0.00000E+00 3.33249E-01 0.00000E+00 8.06931E+00 5.46078E+00 4.08705E+00 4.78382E+00 4.56983E+00 0.00000E+00 2.81656E-01 0.00000E+00 1 0 0 0 0 3.52831E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 -3.82122E+00 3.46574E-02 3.50807E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 9.99964E-01 0.00000E+00 +2.88710E+00 2.91588E+00 1.06001E-01 0.00000E+00 1.90717E-01 0.00000E+00 4.94190E+00 6.67311E+00 4.69960E+00 5.17698E+00 4.49051E+00 0.00000E+00 7.36208E-02 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -3.62781E+00 1.27188E-01 3.53663E-01 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00364E+01 0.00000E+00 +3.50268E-02 3.43342E+00 2.69955E-01 0.00000E+00 4.40375E-01 0.00000E+00 3.50964E+00 6.12026E+00 4.18020E+00 5.24424E+00 4.33443E+00 0.00000E+00 3.66855E-01 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -2.64593E+00 3.65549E-02 9.43631E-01 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00243E+01 0.00000E+00 +3.66584E+00 3.04726E+00 3.54686E-01 0.00000E+00 3.76939E-01 0.00000E+00 3.61242E+00 5.62115E+00 4.28055E+00 5.26053E+00 4.63323E+00 0.00000E+00 2.52640E-01 0.00000E+00 1 0 0 0 0 3.15535E-01 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -7.79305E+00 6.48937E-01 5.34975E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.35220E+00 0.00000E+00 +4.00006E+00 3.02283E+00 3.36720E-01 0.00000E+00 2.61431E-01 0.00000E+00 4.02255E+00 5.60722E+00 4.16026E+00 5.20224E+00 4.72663E+00 0.00000E+00 2.66122E-01 0.00000E+00 1 0 0 0 0 1.38418E-01 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -7.73594E+00 1.88595E+00 3.46997E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.57392E+00 0.00000E+00 +4.42356E-02 5.03283E+00 4.68392E-01 0.00000E+00 8.84686E-01 0.00000E+00 3.92084E+00 4.03821E+00 6.66349E+00 5.50903E+00 5.39108E+00 0.00000E+00 6.92130E-02 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 5.55281E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 1.38418E+00 +8.07755E+00 3.45780E+00 7.18077E-01 0.00000E+00 7.50121E-01 0.00000E+00 1.38508E+01 1.11095E+01 1.00815E+01 4.69231E+00 4.45843E+00 0.00000E+00 2.41181E-01 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.82464E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 1.36851E+00 +5.16850E-01 4.62992E+00 7.30337E-01 0.00000E+00 9.99922E-01 0.00000E+00 2.42528E+00 5.10463E+00 1.36519E+00 5.27152E+00 4.41810E+00 0.00000E+00 2.84141E-01 0.00000E+00 1 0 0 0 0 1.55118E-01 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -6.71818E+00 1.79649E+01 1.63310E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.68335E+00 0.00000E+00 +3.47644E-02 5.68514E+00 7.31836E-01 0.00000E+00 9.96188E-01 0.00000E+00 2.96272E-01 7.16537E+00 4.09320E+00 5.10387E+00 7.45972E+00 0.00000E+00 -5.87795E-01 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 5.55281E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 1.73051E+00 +3.39499E+00 1.98986E+00 8.76452E-01 0.00000E+00 -9.89326E-01 0.00000E+00 8.97340E+00 1.06200E+01 1.30437E+00 4.77487E+00 3.86883E+00 0.00000E+00 5.75799E-01 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 5.55281E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 2.03908E+00 +5.16940E-01 4.02533E+00 6.11267E-02 0.00000E+00 -9.99091E-01 0.00000E+00 3.53497E+00 2.84895E+00 4.14480E-02 1.74708E-01 3.22577E+00 0.00000E+00 3.49203E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +5.12100E+00 2.96715E+00 7.87559E-01 0.00000E+00 2.06425E-01 0.00000E+00 3.01066E+00 7.14712E+00 8.28676E-01 4.84834E+00 4.32378E+00 0.00000E+00 5.87310E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.48244E-02 5.14144E+00 9.01893E-02 0.00000E+00 -7.75830E-02 0.00000E+00 5.96794E-01 6.73438E+00 3.16339E+00 4.88579E+00 4.64210E+00 0.00000E+00 5.22546E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +2.07431E-01 4.25937E+00 3.76895E-01 0.00000E+00 5.43405E-01 0.00000E+00 8.37959E+00 5.12688E+00 6.82556E+00 3.47687E-02 2.55561E+00 0.00000E+00 6.33778E-02 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +2.07431E-01 4.25937E+00 3.76895E-01 0.00000E+00 5.43405E-01 0.00000E+00 8.37959E+00 5.12688E+00 6.82556E+00 3.47687E-02 2.55561E+00 0.00000E+00 6.33778E-02 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +1.02661E+01 3.01002E+00 3.54124E-01 0.00000E+00 3.33249E-01 0.00000E+00 8.06931E+00 5.46078E+00 4.08705E+00 4.78382E+00 4.56983E+00 0.00000E+00 2.81656E-01 0.00000E+00 1 0 0 0 0 3.52831E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 -3.82122E+00 3.46574E-02 3.50807E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 9.99964E-01 0.00000E+00 +1.02661E+01 3.01002E+00 3.54124E-01 0.00000E+00 3.33249E-01 0.00000E+00 8.06931E+00 5.46078E+00 4.08705E+00 4.78382E+00 4.56983E+00 0.00000E+00 2.81656E-01 0.00000E+00 1 0 0 0 0 3.52831E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 -3.82122E+00 3.46574E-02 3.50807E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 9.99964E-01 0.00000E+00 +1.02661E+01 3.01002E+00 3.54124E-01 0.00000E+00 3.33249E-01 0.00000E+00 8.06931E+00 5.46078E+00 4.08705E+00 4.78382E+00 4.56983E+00 0.00000E+00 2.81656E-01 0.00000E+00 1 0 0 0 0 3.52831E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 -3.82122E+00 3.46574E-02 3.50807E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 9.99964E-01 0.00000E+00 +2.28417E+00 3.11967E+00 7.53444E-01 0.00000E+00 9.96355E-01 0.00000E+00 2.17928E+00 5.59535E+00 3.51811E+00 5.22672E+00 4.58445E+00 0.00000E+00 7.68478E-02 0.00000E+00 1 0 0 0 0 2.75910E-01 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -7.74441E+00 9.50957E-02 1.88460E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 9.95370E+00 0.00000E+00 +5.61517E-02 4.42618E+00 5.27067E-01 0.00000E+00 -9.35872E-01 0.00000E+00 3.94007E+00 5.62577E+00 5.69252E+00 5.01986E+00 4.39277E+00 0.00000E+00 6.44335E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +2.62482E+00 2.89552E+00 7.19111E-01 0.00000E+00 9.99654E-01 0.00000E+00 6.22191E-01 6.71472E+00 7.59725E-01 4.71116E+00 4.92977E+00 0.00000E+00 2.83076E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.58977E-02 4.71829E+00 2.02388E-01 0.00000E+00 -2.35139E-01 0.00000E+00 7.11334E-01 4.36250E-01 6.12703E-02 7.84648E-02 4.03229E+00 0.00000E+00 8.91540E-02 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.49641E-02 5.18602E+00 2.64948E-01 0.00000E+00 1.08992E-01 0.00000E+00 6.58099E-01 3.00470E-01 6.08084E-02 2.57582E-01 4.15735E+00 0.00000E+00 3.35986E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +5.67675E-01 3.87476E+00 3.04352E-01 0.00000E+00 -5.44993E-01 0.00000E+00 1.19380E+00 6.77261E-01 3.46574E-02 3.73156E-01 4.49257E+00 0.00000E+00 3.42866E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +4.51330E-02 4.55712E+00 5.85804E-01 0.00000E+00 6.42133E-01 0.00000E+00 2.97864E+00 5.31736E+00 5.45513E+00 4.92960E+00 4.77883E+00 0.00000E+00 4.17574E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +1.29390E+00 3.57431E+00 7.03840E-01 0.00000E+00 1.75902E-01 0.00000E+00 8.02108E+00 7.46898E+00 7.07329E+00 5.15783E+00 4.28321E+00 0.00000E+00 5.38351E-01 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -1.79887E+01 5.32217E+01 3.46684E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00352E+01 0.00000E+00 +4.32837E-02 4.32014E+00 4.68194E-01 0.00000E+00 9.27389E-01 0.00000E+00 6.98569E+00 4.18288E+00 5.94434E+00 4.44280E-01 3.11342E+00 0.00000E+00 2.42507E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +6.09339E+00 3.10691E+00 7.44248E-01 0.00000E+00 9.99993E-01 0.00000E+00 1.15828E+00 5.50927E+00 2.87480E+00 5.26883E+00 5.10064E+00 0.00000E+00 -2.41577E-02 0.00000E+00 1 0 0 0 0 3.79731E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -6.35055E+00 3.87025E-02 2.19172E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.20089E+00 0.00000E+00 +3.06949E+00 3.15302E+00 6.82317E-01 0.00000E+00 9.99435E-01 0.00000E+00 2.60888E+00 5.53742E+00 3.91430E+00 5.21037E+00 4.88989E+00 0.00000E+00 -2.36374E-01 0.00000E+00 1 0 0 0 0 2.00875E-01 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -5.63044E+00 1.03176E-01 1.60774E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 9.96490E+00 0.00000E+00 +4.56308E-02 3.98470E+00 4.43004E-01 0.00000E+00 8.59186E-01 0.00000E+00 1.10114E+01 8.19441E+00 8.79990E+00 4.89299E+00 3.54455E+00 0.00000E+00 1.96321E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 9.99942E-01 -3.32776E+00 2.37226E-01 4.01340E-01 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 9.83870E-01 0.00000E+00 +3.79299E+00 3.04104E+00 8.27103E-01 0.00000E+00 9.94705E-01 0.00000E+00 2.04203E+00 5.82234E+00 2.85011E+00 5.21114E+00 4.62378E+00 0.00000E+00 2.16705E-01 0.00000E+00 1 0 0 0 0 3.47082E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -5.14175E+00 9.65693E-02 2.86577E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 9.88727E+00 0.00000E+00 +4.56223E+00 3.20950E+00 7.63502E-01 0.00000E+00 9.99714E-01 0.00000E+00 1.89230E+00 5.77012E+00 2.86322E+00 5.17611E+00 5.02402E+00 0.00000E+00 -7.59549E-02 0.00000E+00 1 0 0 0 0 3.46868E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -3.98524E+00 9.95547E-02 2.01432E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 9.94608E+00 0.00000E+00 +3.30017E+00 2.92509E+00 7.27062E-01 0.00000E+00 9.99966E-01 0.00000E+00 8.26725E-01 6.17445E+00 5.73256E-01 5.35144E+00 4.57875E+00 0.00000E+00 3.25776E-01 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 5.55281E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 1.37409E+00 +5.42960E+00 3.06271E+00 7.23838E-01 0.00000E+00 9.99995E-01 0.00000E+00 1.61783E+00 5.98429E+00 2.27894E+00 5.33877E+00 4.78185E+00 0.00000E+00 -9.02454E-02 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 8.68574E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 1.18496E+00 +4.32522E-02 3.66063E+00 3.07488E-01 0.00000E+00 -9.45380E-01 0.00000E+00 3.41055E+00 2.23532E+00 3.08684E+00 2.18157E-01 2.92952E+00 0.00000E+00 4.69712E-01 0.00000E+00 1 0 0 0 0 1.85456E-01 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 0.00000E+00 3.46574E-02 -1.74782E+01 1.10687E+00 3.46574E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 0.00000E+00 1.00000E+00 0.00000E+00 +6.92086E-01 2.93371E+00 6.49846E-01 0.00000E+00 9.99924E-01 0.00000E+00 2.09511E+00 5.91998E+00 2.49017E+00 5.41138E+00 3.97807E+00 0.00000E+00 6.85924E-01 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 5.55288E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 4.92867E-02 +3.54380E+00 2.87461E+00 7.92366E-01 0.00000E+00 8.09536E-01 0.00000E+00 2.81889E+00 6.56658E+00 1.68978E+00 5.34487E+00 4.06904E+00 0.00000E+00 4.72316E-01 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 5.55281E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 -8.95252E-06 +3.51189E-02 4.15569E+00 2.58552E-01 0.00000E+00 -7.36162E-01 0.00000E+00 1.15411E+00 5.45723E-01 2.59335E-01 4.43090E-01 3.73618E+00 0.00000E+00 2.34780E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +5.61517E-02 4.42618E+00 5.27067E-01 0.00000E+00 -9.35872E-01 0.00000E+00 3.94007E+00 5.62577E+00 5.69252E+00 5.01986E+00 4.39277E+00 0.00000E+00 6.44335E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +2.62482E+00 2.89552E+00 7.19111E-01 0.00000E+00 9.99654E-01 0.00000E+00 6.22191E-01 6.71472E+00 7.59725E-01 4.71116E+00 4.92977E+00 0.00000E+00 2.83076E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +4.32837E-02 4.32014E+00 4.68194E-01 0.00000E+00 9.27389E-01 0.00000E+00 6.98569E+00 4.18288E+00 5.94434E+00 4.44280E-01 3.11342E+00 0.00000E+00 2.42507E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +4.32837E-02 4.32014E+00 4.68194E-01 0.00000E+00 9.27389E-01 0.00000E+00 6.98569E+00 4.18288E+00 5.94434E+00 4.44280E-01 3.11342E+00 0.00000E+00 2.42507E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +6.09339E+00 3.10691E+00 7.44248E-01 0.00000E+00 9.99993E-01 0.00000E+00 1.15828E+00 5.50927E+00 2.87480E+00 5.26883E+00 5.10064E+00 0.00000E+00 -2.41577E-02 0.00000E+00 1 0 0 0 0 3.79731E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -6.35055E+00 3.87025E-02 2.19172E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.20089E+00 0.00000E+00 +6.09339E+00 3.10691E+00 7.44248E-01 0.00000E+00 9.99993E-01 0.00000E+00 1.15828E+00 5.50927E+00 2.87480E+00 5.26883E+00 5.10064E+00 0.00000E+00 -2.41577E-02 0.00000E+00 1 0 0 0 0 3.79731E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -6.35055E+00 3.87025E-02 2.19172E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.20089E+00 0.00000E+00 +6.09339E+00 3.10691E+00 7.44248E-01 0.00000E+00 9.99993E-01 0.00000E+00 1.15828E+00 5.50927E+00 2.87480E+00 5.26883E+00 5.10064E+00 0.00000E+00 -2.41577E-02 0.00000E+00 1 0 0 0 0 3.79731E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -6.35055E+00 3.87025E-02 2.19172E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.20089E+00 0.00000E+00 +9.97525E-01 4.18439E+00 6.77393E-01 0.00000E+00 9.97401E-01 0.00000E+00 7.31614E-01 5.99156E+00 5.12616E-01 5.16280E+00 4.78825E+00 0.00000E+00 9.56238E-02 0.00000E+00 1 0 0 0 0 4.65837E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 3.56508E-02 -4.26339E+00 3.60916E-02 1.77410E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.16288E+00 0.00000E+00 +3.46727E-02 5.69741E+00 4.04784E-01 0.00000E+00 -9.99866E-01 0.00000E+00 1.16515E-01 5.94188E+00 3.69978E+00 4.62284E+00 8.10860E+00 0.00000E+00 5.24562E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.47274E-02 5.72829E+00 4.22155E-01 0.00000E+00 7.66092E-01 0.00000E+00 1.96847E+00 1.27875E+00 3.46574E-02 7.89190E-01 3.22939E+00 0.00000E+00 6.50326E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +2.20559E+00 4.06572E+00 4.77602E-01 0.00000E+00 5.40577E-01 0.00000E+00 2.38951E+00 1.87918E+00 8.19911E-02 5.90656E-02 3.60279E+00 0.00000E+00 8.77579E-03 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +1.96601E-01 5.10122E+00 2.68703E-01 0.00000E+00 -4.52724E-01 0.00000E+00 3.99839E+00 2.99985E+00 4.64968E-02 5.05432E-01 2.69873E+00 0.00000E+00 6.80297E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +1.12752E+00 3.88423E+00 4.97048E-01 0.00000E+00 4.07795E-01 0.00000E+00 5.56897E+00 4.56273E+00 2.80514E+00 3.47279E-02 2.95142E+00 0.00000E+00 8.60369E-02 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +4.43247E-02 5.96363E+00 6.22133E-01 0.00000E+00 6.59525E-01 0.00000E+00 4.99795E+00 4.99646E+00 5.00199E+00 5.00205E+00 3.00902E+00 0.00000E+00 4.87953E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +2.60283E+00 3.69545E+00 4.46478E-01 0.00000E+00 -4.18371E-01 0.00000E+00 2.10068E+01 1.58383E+01 1.51080E+01 3.43730E+00 3.75758E+00 0.00000E+00 5.41827E-01 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -1.30256E+01 1.84492E+00 7.79864E-01 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 9.33937E-01 0.00000E+00 +1.68072E-01 4.16175E+00 5.68603E-01 0.00000E+00 9.48088E-01 0.00000E+00 8.97167E+00 5.79892E+00 6.95293E+00 3.46913E-02 2.57100E+00 0.00000E+00 -8.29498E-02 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +8.58958E+00 2.90846E+00 4.75166E-01 0.00000E+00 4.68647E-01 0.00000E+00 5.27341E+00 3.05368E+00 2.01220E+00 4.96228E+00 4.67037E+00 0.00000E+00 3.26370E-01 0.00000E+00 1 0 0 0 0 1.65824E-01 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 -4.64188E+00 3.46574E-02 3.49844E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00002E+00 0.00000E+00 +5.09309E+00 3.14518E+00 7.42449E-02 0.00000E+00 1.80707E-01 0.00000E+00 4.80775E+00 6.52559E+00 4.52505E+00 5.16510E+00 4.84967E+00 0.00000E+00 5.71291E-02 0.00000E+00 1 0 0 0 0 5.03834E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -4.06644E+00 4.08528E-01 3.60491E-01 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00425E+01 0.00000E+00 +6.76474E+00 2.75846E+00 2.46733E-01 0.00000E+00 -1.08755E-01 0.00000E+00 2.14001E+00 4.84231E+00 3.44439E-01 5.01561E+00 4.57000E+00 0.00000E+00 2.36119E-01 0.00000E+00 1 0 0 0 0 3.77635E-01 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 9.99460E-01 -2.97361E+00 1.67156E+00 7.49271E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.36961E+00 0.00000E+00 +2.44973E+00 3.89948E+00 6.40772E-01 0.00000E+00 8.05096E-01 0.00000E+00 3.20174E+00 6.31066E+00 1.82636E+00 5.30654E+00 2.21824E+00 0.00000E+00 -5.53286E-02 0.00000E+00 1 0 0 0 0 3.57955E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -3.35319E+00 1.15949E-01 1.86536E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.18263E+00 0.00000E+00 +3.87252E+00 2.92265E+00 8.36180E-01 0.00000E+00 9.99800E-01 0.00000E+00 3.59703E+00 5.59916E+00 4.47886E+00 5.21866E+00 4.76985E+00 0.00000E+00 3.57409E-01 0.00000E+00 1 0 0 0 0 7.33078E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -2.18070E+00 3.95470E-02 1.84526E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.03630E+00 0.00000E+00 +7.56733E-01 4.61917E+00 7.12573E-01 0.00000E+00 9.95639E-01 0.00000E+00 3.59780E-02 5.91931E+00 6.36534E-02 5.25673E+00 5.92293E+00 0.00000E+00 -9.69403E-01 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 5.55281E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 1.60467E+00 +4.67055E+00 4.10713E+00 5.44558E-01 0.00000E+00 6.89135E-01 0.00000E+00 1.39925E+01 1.09166E+01 1.05604E+01 4.70275E+00 4.88794E+00 0.00000E+00 -3.57355E-02 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.82464E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 1.24905E+00 +1.34610E+00 3.11693E+00 5.92165E-01 0.00000E+00 9.99955E-01 0.00000E+00 1.23508E+00 4.69920E+00 1.44058E+00 5.28377E+00 4.60458E+00 0.00000E+00 -5.18828E-01 0.00000E+00 1 0 0 0 0 4.44947E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -8.01020E+00 1.81209E+01 3.24712E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 9.87027E+00 0.00000E+00 +2.07983E+00 7.53143E-01 6.80598E-01 0.00000E+00 9.99918E-01 0.00000E+00 2.26601E+00 6.07154E+00 6.53911E-01 5.32884E+00 4.96206E+00 0.00000E+00 5.34943E-01 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 5.55288E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 1.60319E+00 +3.52541E-01 1.81925E+00 9.00000E-01 0.00000E+00 -8.45490E-01 0.00000E+00 4.30142E+00 7.33512E+00 1.11363E+00 5.24191E+00 4.32761E+00 0.00000E+00 5.17484E-01 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 6.45011E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 1.76514E+00 +1.66728E+00 2.45263E+00 5.26602E-01 0.00000E+00 -9.99369E-01 0.00000E+00 3.75332E+00 2.65059E+00 3.46574E-02 3.46911E-02 2.78295E+00 0.00000E+00 3.36168E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.46727E-02 5.69741E+00 4.04784E-01 0.00000E+00 -9.99866E-01 0.00000E+00 1.16515E-01 5.94188E+00 3.69978E+00 4.62284E+00 8.10860E+00 0.00000E+00 5.24562E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.47274E-02 5.72829E+00 4.22155E-01 0.00000E+00 7.66092E-01 0.00000E+00 1.96847E+00 1.27875E+00 3.46574E-02 7.89190E-01 3.22939E+00 0.00000E+00 6.50326E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +1.68072E-01 4.16175E+00 5.68603E-01 0.00000E+00 9.48088E-01 0.00000E+00 8.97167E+00 5.79892E+00 6.95293E+00 3.46913E-02 2.57100E+00 0.00000E+00 -8.29498E-02 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +1.68072E-01 4.16175E+00 5.68603E-01 0.00000E+00 9.48088E-01 0.00000E+00 8.97167E+00 5.79892E+00 6.95293E+00 3.46913E-02 2.57100E+00 0.00000E+00 -8.29498E-02 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +8.58958E+00 2.90846E+00 4.75166E-01 0.00000E+00 4.68647E-01 0.00000E+00 5.27341E+00 3.05368E+00 2.01220E+00 4.96228E+00 4.67037E+00 0.00000E+00 3.26370E-01 0.00000E+00 1 0 0 0 0 1.65824E-01 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 -4.64188E+00 3.46574E-02 3.49844E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00002E+00 0.00000E+00 +8.58958E+00 2.90846E+00 4.75166E-01 0.00000E+00 4.68647E-01 0.00000E+00 5.27341E+00 3.05368E+00 2.01220E+00 4.96228E+00 4.67037E+00 0.00000E+00 3.26370E-01 0.00000E+00 1 0 0 0 0 1.65824E-01 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 -4.64188E+00 3.46574E-02 3.49844E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00002E+00 0.00000E+00 +8.58958E+00 2.90846E+00 4.75166E-01 0.00000E+00 4.68647E-01 0.00000E+00 5.27341E+00 3.05368E+00 2.01220E+00 4.96228E+00 4.67037E+00 0.00000E+00 3.26370E-01 0.00000E+00 1 0 0 0 0 1.65824E-01 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 -4.64188E+00 3.46574E-02 3.49844E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00002E+00 0.00000E+00 +8.62098E-01 3.73125E+00 7.00692E-01 0.00000E+00 9.88889E-01 0.00000E+00 2.88466E-01 5.33382E+00 3.04897E+00 5.12037E+00 6.22961E+00 0.00000E+00 -9.31924E-01 0.00000E+00 1 0 0 0 0 3.86053E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 2.82330E+00 9.04100E-02 1.80415E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.16114E+00 0.00000E+00 +3.46578E-02 4.46387E+00 5.12970E-01 0.00000E+00 -8.91112E-01 0.00000E+00 6.41980E+00 7.07251E+00 6.09954E+00 4.90064E+00 3.89398E+00 0.00000E+00 5.20810E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +2.72698E+00 2.58793E+00 9.00000E-01 0.00000E+00 1.00000E+00 0.00000E+00 1.43984E+01 5.14046E+00 6.67706E-01 1.14234E+00 3.01613E+00 0.00000E+00 2.44037E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.47035E-02 5.09875E+00 5.04219E-01 0.00000E+00 8.91590E-01 0.00000E+00 6.59671E-01 3.60321E-01 3.49066E-02 4.60251E-02 4.05916E+00 0.00000E+00 -2.08514E-02 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.46599E-02 5.09831E+00 4.71043E-01 0.00000E+00 4.96533E-01 0.00000E+00 6.71879E-01 3.31190E-01 7.55743E-02 8.68816E-02 4.24439E+00 0.00000E+00 2.25158E-02 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.74845E-02 5.08895E+00 1.55634E-01 0.00000E+00 -7.28288E-01 0.00000E+00 5.35658E-01 6.28217E-02 3.46574E-02 4.21658E-02 4.76316E+00 0.00000E+00 2.43749E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.46579E-02 2.78072E+00 9.00000E-01 0.00000E+00 -9.99516E-01 0.00000E+00 2.45365E+00 6.02447E+00 3.53157E-02 5.50721E+00 4.25319E+00 0.00000E+00 5.55443E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.47629E-02 5.15825E+00 6.75281E-01 0.00000E+00 1.00000E+00 0.00000E+00 5.29977E-01 5.94692E+00 2.12632E+00 5.32595E+00 5.02401E+00 0.00000E+00 6.98022E-01 0.00000E+00 1 0 0 0 0 3.84865E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -7.68570E+00 3.92230E-02 8.86179E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 9.99600E-01 0.00000E+00 +3.46589E-02 5.14054E+00 3.09344E-01 0.00000E+00 7.55465E-01 0.00000E+00 8.64675E+00 4.56216E+00 7.60156E+00 2.16120E-01 3.18280E+00 0.00000E+00 7.71626E-02 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.46626E-02 4.59525E+00 6.70482E-01 0.00000E+00 9.98615E-01 0.00000E+00 2.27779E+00 6.15674E+00 2.47068E+00 5.34326E+00 1.31224E+00 0.00000E+00 -1.25169E-01 0.00000E+00 1 0 0 0 0 3.46578E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.37751E-02 -4.92279E-01 1.39322E+00 1.53857E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.42315E+00 0.00000E+00 +4.82225E+00 3.40841E+00 6.65188E-01 0.00000E+00 9.96584E-01 0.00000E+00 1.57438E+00 5.83803E+00 2.52051E+00 5.14874E+00 5.28915E+00 0.00000E+00 -3.29340E-01 0.00000E+00 1 0 0 0 0 3.71778E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 3.10474E+00 8.71437E-02 1.46444E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.11272E+00 0.00000E+00 +3.48212E-02 4.52622E+00 5.71513E-01 0.00000E+00 9.99715E-01 0.00000E+00 1.14151E+00 9.48303E-01 3.46617E-02 9.92175E+00 4.07600E+00 0.00000E+00 4.69311E-01 0.00000E+00 1 0 0 0 0 3.15315E-01 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00907E-01 7.49595E+00 5.05569E+01 2.25084E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+01 0.00000E+00 +2.20138E+00 2.96657E+00 5.24561E-01 0.00000E+00 9.94153E-01 0.00000E+00 2.25014E+00 6.17356E+00 1.60783E+00 5.22631E+00 3.87712E+00 0.00000E+00 6.15718E-01 0.00000E+00 1 0 0 0 0 1.23959E-01 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 9.56493E-01 6.79183E-02 1.49726E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.43421E+00 0.00000E+00 +1.60652E+00 3.72149E+00 7.24008E-01 0.00000E+00 9.99546E-01 0.00000E+00 1.48146E-01 6.01322E+00 3.57132E-02 5.00817E+00 6.48242E+00 0.00000E+00 -9.96397E-01 0.00000E+00 1 0 0 0 0 3.46797E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -1.57206E+00 3.50256E-02 1.87839E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 9.74397E-01 0.00000E+00 +3.47326E-02 4.55046E+00 7.27910E-01 0.00000E+00 9.95261E-01 0.00000E+00 8.19747E-01 5.98971E+00 3.47676E-02 5.37011E+00 4.41816E+00 0.00000E+00 4.43236E-01 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 5.55281E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 1.57257E+00 +3.27904E+00 3.26999E+00 7.54352E-01 0.00000E+00 9.99576E-01 0.00000E+00 1.64589E+00 6.15598E+00 2.96046E-01 5.34135E+00 4.44316E+00 0.00000E+00 2.52188E-01 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.82464E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 -4.74670E-03 +3.42380E+00 1.22887E+00 9.00000E-01 0.00000E+00 9.99672E-01 0.00000E+00 4.86590E+00 6.32326E+00 1.12727E-01 5.18911E+00 3.56132E+00 0.00000E+00 5.75126E-01 0.00000E+00 1 0 0 0 0 6.94340E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -1.70312E+00 1.80914E+01 4.35390E-01 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.88453E+00 0.00000E+00 +3.46710E-02 4.95669E+00 6.04046E-01 0.00000E+00 -6.76790E-01 0.00000E+00 1.70302E+00 5.91142E+00 4.60400E-01 6.09915E+00 3.37648E+00 0.00000E+00 6.51286E-01 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.10924E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 3.41926E-01 +3.47258E-02 5.24509E+00 6.56205E-01 0.00000E+00 9.67802E-01 0.00000E+00 3.00032E+00 8.31601E+00 2.80541E+00 4.46214E+00 1.36151E+00 0.00000E+00 6.82412E-01 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00908E-01 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 8.54380E+00 +1.20595E-01 4.37444E+00 2.52255E-01 0.00000E+00 -9.99908E-01 0.00000E+00 8.30188E-01 3.60469E-02 1.53706E-01 1.22822E-01 4.44863E+00 0.00000E+00 3.82358E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.46578E-02 4.46387E+00 5.12970E-01 0.00000E+00 -8.91112E-01 0.00000E+00 6.41980E+00 7.07251E+00 6.09954E+00 4.90064E+00 3.89398E+00 0.00000E+00 5.20810E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +2.72698E+00 2.58793E+00 9.00000E-01 0.00000E+00 1.00000E+00 0.00000E+00 1.43984E+01 5.14046E+00 6.67706E-01 1.14234E+00 3.01613E+00 0.00000E+00 2.44037E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.46589E-02 5.14054E+00 3.09344E-01 0.00000E+00 7.55465E-01 0.00000E+00 8.64675E+00 4.56216E+00 7.60156E+00 2.16120E-01 3.18280E+00 0.00000E+00 7.71626E-02 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.46589E-02 5.14054E+00 3.09344E-01 0.00000E+00 7.55465E-01 0.00000E+00 8.64675E+00 4.56216E+00 7.60156E+00 2.16120E-01 3.18280E+00 0.00000E+00 7.71626E-02 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.46626E-02 4.59525E+00 6.70482E-01 0.00000E+00 9.98615E-01 0.00000E+00 2.27779E+00 6.15674E+00 2.47068E+00 5.34326E+00 1.31224E+00 0.00000E+00 -1.25169E-01 0.00000E+00 1 0 0 0 0 3.46578E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.37751E-02 -4.92279E-01 1.39322E+00 1.53857E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.42315E+00 0.00000E+00 +3.46626E-02 4.59525E+00 6.70482E-01 0.00000E+00 9.98615E-01 0.00000E+00 2.27779E+00 6.15674E+00 2.47068E+00 5.34326E+00 1.31224E+00 0.00000E+00 -1.25169E-01 0.00000E+00 1 0 0 0 0 3.46578E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.37751E-02 -4.92279E-01 1.39322E+00 1.53857E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.42315E+00 0.00000E+00 +3.46626E-02 4.59525E+00 6.70482E-01 0.00000E+00 9.98615E-01 0.00000E+00 2.27779E+00 6.15674E+00 2.47068E+00 5.34326E+00 1.31224E+00 0.00000E+00 -1.25169E-01 0.00000E+00 1 0 0 0 0 3.46578E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.37751E-02 -4.92279E-01 1.39322E+00 1.53857E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.42315E+00 0.00000E+00 diff --git a/PARAM/ions_fin_21_02_22.parm b/PARAM/ions_fin_21_02_22.parm new file mode 100644 index 0000000..c24707a --- /dev/null +++ b/PARAM/ions_fin_21_02_22.parm @@ -0,0 +1,149 @@ +2 0 0 0 0 0 0 2 0 0 2 2 2 2 -1 -1 2 1 1 0 0 0 0 0 -1 -1 -1 +1 1 0 +1 1 0 +1 1 0 +1 1 0 +1 1 0 +18 3 0 +1 1 0 +23 3 1 +24 3 2 +39 3 1 +40 3 2 +35.5 3 -1 +65 3 2 +5.69891E-02 3.17002E+00 4.95421E-01 0.00000E+00 8.09856E-01 0.00000E+00 5.95645E-01 5.61069E+00 2.58276E+00 5.23464E+00 4.42980E+00 0.00000E+00 4.14020E-01 0.00000E+00 1 0 0 0 0 4.12992E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -9.04131E+00 3.62811E-02 9.69329E-01 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.35052E+00 0.00000E+00 +2.79444E+00 2.91727E+00 8.33501E-01 0.00000E+00 9.99999E-01 0.00000E+00 9.81661E-01 6.93235E+00 5.97322E-01 4.87889E+00 4.43795E+00 0.00000E+00 4.32100E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +1.45596E+00 2.83670E+00 7.43295E-01 0.00000E+00 9.99920E-01 0.00000E+00 5.98655E-01 6.55996E+00 3.46739E-02 4.74838E+00 4.56099E+00 0.00000E+00 3.76099E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.48735E-02 4.36914E+00 2.58957E-01 0.00000E+00 -9.67829E-02 0.00000E+00 1.34649E+00 8.42957E-01 3.46574E-02 2.60246E-01 3.82376E+00 0.00000E+00 2.49457E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.52118E-02 4.63748E+00 3.64272E-01 0.00000E+00 1.59087E-01 0.00000E+00 9.53869E-01 4.77396E-01 3.46872E-02 2.68034E-01 4.11193E+00 0.00000E+00 4.00815E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.49660E-02 4.34679E+00 2.09480E-01 0.00000E+00 6.64390E-03 0.00000E+00 1.36813E+00 7.14527E-01 3.46574E-02 6.55911E-01 4.11720E+00 0.00000E+00 1.61904E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.46667E-02 2.97236E+00 4.04152E-01 0.00000E+00 -9.99966E-01 0.00000E+00 5.18590E-01 1.20064E+01 3.46665E-02 4.46463E+00 4.08858E+00 0.00000E+00 6.95524E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +4.22623E-02 3.55300E+00 7.52451E-01 0.00000E+00 9.99989E-01 0.00000E+00 1.46027E+00 8.56620E-01 1.45909E-01 2.11520E+00 4.15491E+00 0.00000E+00 4.92352E-01 0.00000E+00 1 0 0 0 0 3.46593E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 0.00000E+00 3.46574E-02 -3.18395E-02 1.03355E-01 3.46574E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E-01 0.00000E+00 1.00000E+00 0.00000E+00 +2.79183E-01 3.38227E+00 4.58897E-01 0.00000E+00 9.10411E-01 0.00000E+00 8.34463E+00 4.99499E+00 6.90949E+00 8.14074E-02 2.51032E+00 0.00000E+00 1.48920E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.84139E+00 2.72458E+00 7.07073E-01 0.00000E+00 9.99751E-01 0.00000E+00 1.55244E+00 5.23148E+00 3.53037E+00 5.29844E+00 4.18614E+00 0.00000E+00 4.88630E-01 0.00000E+00 1 0 0 0 0 3.53127E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.32639E-02 2.00298E+00 4.09554E-01 1.42549E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.15490E+00 0.00000E+00 +7.57785E+00 2.69464E+00 6.59173E-01 0.00000E+00 9.96763E-01 0.00000E+00 2.25237E+00 5.92011E+00 2.68553E+00 5.20529E+00 4.39604E+00 0.00000E+00 4.44385E-02 0.00000E+00 1 0 0 0 0 4.02319E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -3.67928E+00 1.79969E-01 1.50196E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.08211E+00 0.00000E+00 +2.33132E-01 2.96945E+00 4.53728E-01 0.00000E+00 7.24649E-01 0.00000E+00 8.22898E+00 5.43525E+00 4.88545E+00 4.96245E+00 3.78540E+00 0.00000E+00 2.45870E-01 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 -7.67410E-01 1.90266E-01 4.59049E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00010E+00 0.00000E+00 +9.48215E+00 2.89500E+00 7.84420E-01 0.00000E+00 9.98547E-01 0.00000E+00 3.43103E+00 6.23121E+00 3.00319E+00 5.18071E+00 4.41926E+00 0.00000E+00 3.36059E-01 0.00000E+00 1 0 0 0 0 1.46750E-01 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 3.95183E+00 4.00136E-01 1.90755E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 9.47250E-01 0.00000E+00 +1.89742E-01 1.95673E+00 9.00000E-01 0.00000E+00 9.98063E-01 0.00000E+00 7.37857E-01 6.04538E+00 6.70453E-01 5.20022E+00 4.33545E+00 0.00000E+00 4.02223E-01 0.00000E+00 1 0 0 0 0 4.72482E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -1.50741E+00 1.59389E-01 1.88996E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 9.66766E-01 0.00000E+00 +9.92793E+00 2.64623E+00 2.65809E-01 0.00000E+00 7.31160E-01 0.00000E+00 1.71506E+00 5.95064E+00 3.71304E-02 5.37684E+00 4.25598E+00 0.00000E+00 -7.82987E-01 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 5.55281E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 1.61327E+00 +6.55245E+00 2.72566E+00 8.01881E-01 0.00000E+00 1.00000E+00 0.00000E+00 1.11117E+00 8.74351E+00 1.93383E+00 5.21161E+00 4.43586E+00 0.00000E+00 1.34392E-01 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.82464E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 5.49894E+00 +3.46816E-02 3.48560E+00 1.78424E-01 0.00000E+00 -4.61362E-01 0.00000E+00 7.66510E-01 5.49102E-01 1.78264E-01 3.46574E-02 3.29851E+00 0.00000E+00 4.50032E-01 0.00000E+00 1 0 0 0 0 5.53438E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 0.00000E+00 3.46574E-02 -1.04360E+01 6.05739E-01 3.46574E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 0.00000E+00 9.99998E-01 0.00000E+00 +3.47440E-02 4.93389E+00 6.59651E-01 0.00000E+00 9.09560E-01 0.00000E+00 1.45067E+00 5.85525E+00 5.87716E-01 5.05488E+00 2.87499E+00 0.00000E+00 8.80085E-01 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 0.00000E+00 1.00907E-01 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 1.58498E-01 +3.47157E-02 3.88251E+00 -1.92325E-02 0.00000E+00 1.43402E-02 0.00000E+00 1.52175E+00 6.22560E+00 7.96165E-01 5.37775E+00 4.03779E+00 0.00000E+00 6.32819E-01 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 5.55281E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 1.83448E+00 +3.47578E-02 4.01099E+00 1.98246E-01 0.00000E+00 -8.62837E-01 0.00000E+00 1.49163E+00 9.06598E-01 2.76008E-01 3.93459E-01 3.70271E+00 0.00000E+00 2.87385E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +2.79444E+00 2.91727E+00 8.33501E-01 0.00000E+00 9.99999E-01 0.00000E+00 9.81661E-01 6.93235E+00 5.97322E-01 4.87889E+00 4.43795E+00 0.00000E+00 4.32100E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +1.45596E+00 2.83670E+00 7.43295E-01 0.00000E+00 9.99920E-01 0.00000E+00 5.98655E-01 6.55996E+00 3.46739E-02 4.74838E+00 4.56099E+00 0.00000E+00 3.76099E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +2.79183E-01 3.38227E+00 4.58897E-01 0.00000E+00 9.10411E-01 0.00000E+00 8.34463E+00 4.99499E+00 6.90949E+00 8.14074E-02 2.51032E+00 0.00000E+00 1.48920E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +2.79183E-01 3.38227E+00 4.58897E-01 0.00000E+00 9.10411E-01 0.00000E+00 8.34463E+00 4.99499E+00 6.90949E+00 8.14074E-02 2.51032E+00 0.00000E+00 1.48920E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.84139E+00 2.72458E+00 7.07073E-01 0.00000E+00 9.99751E-01 0.00000E+00 1.55244E+00 5.23148E+00 3.53037E+00 5.29844E+00 4.18614E+00 0.00000E+00 4.88630E-01 0.00000E+00 1 0 0 0 0 3.53127E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.32639E-02 2.00298E+00 4.09554E-01 1.42549E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.15490E+00 0.00000E+00 +3.84139E+00 2.72458E+00 7.07073E-01 0.00000E+00 9.99751E-01 0.00000E+00 1.55244E+00 5.23148E+00 3.53037E+00 5.29844E+00 4.18614E+00 0.00000E+00 4.88630E-01 0.00000E+00 1 0 0 0 0 3.53127E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.32639E-02 2.00298E+00 4.09554E-01 1.42549E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.15490E+00 0.00000E+00 +3.84139E+00 2.72458E+00 7.07073E-01 0.00000E+00 9.99751E-01 0.00000E+00 1.55244E+00 5.23148E+00 3.53037E+00 5.29844E+00 4.18614E+00 0.00000E+00 4.88630E-01 0.00000E+00 1 0 0 0 0 3.53127E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.32639E-02 2.00298E+00 4.09554E-01 1.42549E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.15490E+00 0.00000E+00 +5.40033E-01 4.41744E+00 6.40857E-01 0.00000E+00 9.57375E-01 0.00000E+00 1.41585E+00 5.84146E+00 2.22249E+00 5.28349E+00 3.26342E+00 0.00000E+00 -5.41440E-01 0.00000E+00 1 0 0 0 0 5.60413E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -2.40876E+00 3.96712E-02 2.97530E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 9.87733E+00 0.00000E+00 +5.12100E+00 2.96715E+00 7.87559E-01 0.00000E+00 2.06425E-01 0.00000E+00 3.01066E+00 7.14712E+00 8.28676E-01 4.84834E+00 4.32378E+00 0.00000E+00 5.87310E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.48244E-02 5.14144E+00 9.01893E-02 0.00000E+00 -7.75830E-02 0.00000E+00 5.96794E-01 6.73438E+00 3.16339E+00 4.88579E+00 4.64210E+00 0.00000E+00 5.22546E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.46604E-02 5.80191E+00 3.28443E-01 0.00000E+00 3.22840E-01 0.00000E+00 7.85743E-01 4.19477E+00 1.94123E+00 4.02330E-01 4.51534E+00 0.00000E+00 -3.32144E-02 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.46578E-02 5.80193E+00 3.29777E-01 0.00000E+00 2.93787E-02 0.00000E+00 1.55415E+00 9.03230E-01 3.66901E-02 2.24085E-01 4.12118E+00 0.00000E+00 1.86773E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.46590E-02 5.53520E+00 9.56586E-02 0.00000E+00 -8.07031E-01 0.00000E+00 1.02853E-01 1.92892E-01 2.99391E-01 2.61753E-01 4.91832E+00 0.00000E+00 5.31986E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.46585E-02 6.44209E+00 5.92565E-01 0.00000E+00 7.38064E-01 0.00000E+00 5.00150E+00 5.00182E+00 4.99940E+00 4.99850E+00 3.06919E+00 0.00000E+00 4.89695E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +6.03185E+00 2.59077E+00 8.10272E-01 0.00000E+00 1.00000E+00 0.00000E+00 3.47984E+00 6.83831E+00 8.29494E-02 5.19389E+00 4.09247E+00 0.00000E+00 6.48867E-01 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -3.41371E+00 3.46971E-02 1.69559E-01 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 2.79208E+00 0.00000E+00 +2.07431E-01 4.25937E+00 3.76895E-01 0.00000E+00 5.43405E-01 0.00000E+00 8.37959E+00 5.12688E+00 6.82556E+00 3.47687E-02 2.55561E+00 0.00000E+00 6.33778E-02 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +1.02661E+01 3.01002E+00 3.54124E-01 0.00000E+00 3.33249E-01 0.00000E+00 8.06931E+00 5.46078E+00 4.08705E+00 4.78382E+00 4.56983E+00 0.00000E+00 2.81656E-01 0.00000E+00 1 0 0 0 0 3.52831E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 -3.82122E+00 3.46574E-02 3.50807E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 9.99964E-01 0.00000E+00 +2.88710E+00 2.91588E+00 1.06001E-01 0.00000E+00 1.90717E-01 0.00000E+00 4.94190E+00 6.67311E+00 4.69960E+00 5.17698E+00 4.49051E+00 0.00000E+00 7.36208E-02 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -3.62781E+00 1.27188E-01 3.53663E-01 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00364E+01 0.00000E+00 +3.50268E-02 3.43342E+00 2.69955E-01 0.00000E+00 4.40375E-01 0.00000E+00 3.50964E+00 6.12026E+00 4.18020E+00 5.24424E+00 4.33443E+00 0.00000E+00 3.66855E-01 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -2.64593E+00 3.65549E-02 9.43631E-01 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00243E+01 0.00000E+00 +3.66584E+00 3.04726E+00 3.54686E-01 0.00000E+00 3.76939E-01 0.00000E+00 3.61242E+00 5.62115E+00 4.28055E+00 5.26053E+00 4.63323E+00 0.00000E+00 2.52640E-01 0.00000E+00 1 0 0 0 0 3.15535E-01 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -7.79305E+00 6.48937E-01 5.34975E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.35220E+00 0.00000E+00 +4.00006E+00 3.02283E+00 3.36720E-01 0.00000E+00 2.61431E-01 0.00000E+00 4.02255E+00 5.60722E+00 4.16026E+00 5.20224E+00 4.72663E+00 0.00000E+00 2.66122E-01 0.00000E+00 1 0 0 0 0 1.38418E-01 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -7.73594E+00 1.88595E+00 3.46997E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.57392E+00 0.00000E+00 +4.42356E-02 5.03283E+00 4.68392E-01 0.00000E+00 8.84686E-01 0.00000E+00 3.92084E+00 4.03821E+00 6.66349E+00 5.50903E+00 5.39108E+00 0.00000E+00 6.92130E-02 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 5.55281E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 1.38418E+00 +8.07755E+00 3.45780E+00 7.18077E-01 0.00000E+00 7.50121E-01 0.00000E+00 1.38508E+01 1.11095E+01 1.00815E+01 4.69231E+00 4.45843E+00 0.00000E+00 2.41181E-01 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.82464E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 1.36851E+00 +5.16850E-01 4.62992E+00 7.30337E-01 0.00000E+00 9.99922E-01 0.00000E+00 2.42528E+00 5.10463E+00 1.36519E+00 5.27152E+00 4.41810E+00 0.00000E+00 2.84141E-01 0.00000E+00 1 0 0 0 0 1.55118E-01 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -6.71818E+00 1.79649E+01 1.63310E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.68335E+00 0.00000E+00 +3.47644E-02 5.68514E+00 7.31836E-01 0.00000E+00 9.96188E-01 0.00000E+00 2.96272E-01 7.16537E+00 4.09320E+00 5.10387E+00 7.45972E+00 0.00000E+00 -5.87795E-01 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 5.55281E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 1.73051E+00 +3.39499E+00 1.98986E+00 8.76452E-01 0.00000E+00 -9.89326E-01 0.00000E+00 8.97340E+00 1.06200E+01 1.30437E+00 4.77487E+00 3.86883E+00 0.00000E+00 5.75799E-01 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 5.55281E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 2.03908E+00 +5.16940E-01 4.02533E+00 6.11267E-02 0.00000E+00 -9.99091E-01 0.00000E+00 3.53497E+00 2.84895E+00 4.14480E-02 1.74708E-01 3.22577E+00 0.00000E+00 3.49203E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +5.12100E+00 2.96715E+00 7.87559E-01 0.00000E+00 2.06425E-01 0.00000E+00 3.01066E+00 7.14712E+00 8.28676E-01 4.84834E+00 4.32378E+00 0.00000E+00 5.87310E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.48244E-02 5.14144E+00 9.01893E-02 0.00000E+00 -7.75830E-02 0.00000E+00 5.96794E-01 6.73438E+00 3.16339E+00 4.88579E+00 4.64210E+00 0.00000E+00 5.22546E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +2.07431E-01 4.25937E+00 3.76895E-01 0.00000E+00 5.43405E-01 0.00000E+00 8.37959E+00 5.12688E+00 6.82556E+00 3.47687E-02 2.55561E+00 0.00000E+00 6.33778E-02 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +2.07431E-01 4.25937E+00 3.76895E-01 0.00000E+00 5.43405E-01 0.00000E+00 8.37959E+00 5.12688E+00 6.82556E+00 3.47687E-02 2.55561E+00 0.00000E+00 6.33778E-02 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +1.02661E+01 3.01002E+00 3.54124E-01 0.00000E+00 3.33249E-01 0.00000E+00 8.06931E+00 5.46078E+00 4.08705E+00 4.78382E+00 4.56983E+00 0.00000E+00 2.81656E-01 0.00000E+00 1 0 0 0 0 3.52831E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 -3.82122E+00 3.46574E-02 3.50807E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 9.99964E-01 0.00000E+00 +1.02661E+01 3.01002E+00 3.54124E-01 0.00000E+00 3.33249E-01 0.00000E+00 8.06931E+00 5.46078E+00 4.08705E+00 4.78382E+00 4.56983E+00 0.00000E+00 2.81656E-01 0.00000E+00 1 0 0 0 0 3.52831E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 -3.82122E+00 3.46574E-02 3.50807E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 9.99964E-01 0.00000E+00 +1.02661E+01 3.01002E+00 3.54124E-01 0.00000E+00 3.33249E-01 0.00000E+00 8.06931E+00 5.46078E+00 4.08705E+00 4.78382E+00 4.56983E+00 0.00000E+00 2.81656E-01 0.00000E+00 1 0 0 0 0 3.52831E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 -3.82122E+00 3.46574E-02 3.50807E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 9.99964E-01 0.00000E+00 +2.28417E+00 3.11967E+00 7.53444E-01 0.00000E+00 9.96355E-01 0.00000E+00 2.17928E+00 5.59535E+00 3.51811E+00 5.22672E+00 4.58445E+00 0.00000E+00 7.68478E-02 0.00000E+00 1 0 0 0 0 2.75910E-01 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -7.74441E+00 9.50957E-02 1.88460E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 9.95370E+00 0.00000E+00 +5.61517E-02 4.42618E+00 5.27067E-01 0.00000E+00 -9.35872E-01 0.00000E+00 3.94007E+00 5.62577E+00 5.69252E+00 5.01986E+00 4.39277E+00 0.00000E+00 6.44335E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +2.62482E+00 2.89552E+00 7.19111E-01 0.00000E+00 9.99654E-01 0.00000E+00 6.22191E-01 6.71472E+00 7.59725E-01 4.71116E+00 4.92977E+00 0.00000E+00 2.83076E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.58977E-02 4.71829E+00 2.02388E-01 0.00000E+00 -2.35139E-01 0.00000E+00 7.11334E-01 4.36250E-01 6.12703E-02 7.84648E-02 4.03229E+00 0.00000E+00 8.91540E-02 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.49641E-02 5.18602E+00 2.64948E-01 0.00000E+00 1.08992E-01 0.00000E+00 6.58099E-01 3.00470E-01 6.08084E-02 2.57582E-01 4.15735E+00 0.00000E+00 3.35986E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +5.67675E-01 3.87476E+00 3.04352E-01 0.00000E+00 -5.44993E-01 0.00000E+00 1.19380E+00 6.77261E-01 3.46574E-02 3.73156E-01 4.49257E+00 0.00000E+00 3.42866E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +4.51330E-02 4.55712E+00 5.85804E-01 0.00000E+00 6.42133E-01 0.00000E+00 2.97864E+00 5.31736E+00 5.45513E+00 4.92960E+00 4.77883E+00 0.00000E+00 4.17574E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +1.29390E+00 3.57431E+00 7.03840E-01 0.00000E+00 1.75902E-01 0.00000E+00 8.02108E+00 7.46898E+00 7.07329E+00 5.15783E+00 4.28321E+00 0.00000E+00 5.38351E-01 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -1.79887E+01 5.32217E+01 3.46684E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00352E+01 0.00000E+00 +4.32837E-02 4.32014E+00 4.68194E-01 0.00000E+00 9.27389E-01 0.00000E+00 6.98569E+00 4.18288E+00 5.94434E+00 4.44280E-01 3.11342E+00 0.00000E+00 2.42507E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +6.09339E+00 3.10691E+00 7.44248E-01 0.00000E+00 9.99993E-01 0.00000E+00 1.15828E+00 5.50927E+00 2.87480E+00 5.26883E+00 5.10064E+00 0.00000E+00 -2.41577E-02 0.00000E+00 1 0 0 0 0 3.79731E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -6.35055E+00 3.87025E-02 2.19172E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.20089E+00 0.00000E+00 +3.06949E+00 3.15302E+00 6.82317E-01 0.00000E+00 9.99435E-01 0.00000E+00 2.60888E+00 5.53742E+00 3.91430E+00 5.21037E+00 4.88989E+00 0.00000E+00 -2.36374E-01 0.00000E+00 1 0 0 0 0 2.00875E-01 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -5.63044E+00 1.03176E-01 1.60774E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 9.96490E+00 0.00000E+00 +4.56308E-02 3.98470E+00 4.43004E-01 0.00000E+00 8.59186E-01 0.00000E+00 1.10114E+01 8.19441E+00 8.79990E+00 4.89299E+00 3.54455E+00 0.00000E+00 1.96321E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 9.99942E-01 -3.32776E+00 2.37226E-01 4.01340E-01 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 9.83870E-01 0.00000E+00 +3.79299E+00 3.04104E+00 8.27103E-01 0.00000E+00 9.94705E-01 0.00000E+00 2.04203E+00 5.82234E+00 2.85011E+00 5.21114E+00 4.62378E+00 0.00000E+00 2.16705E-01 0.00000E+00 1 0 0 0 0 3.47082E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -5.14175E+00 9.65693E-02 2.86577E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 9.88727E+00 0.00000E+00 +4.56223E+00 3.20950E+00 7.63502E-01 0.00000E+00 9.99714E-01 0.00000E+00 1.89230E+00 5.77012E+00 2.86322E+00 5.17611E+00 5.02402E+00 0.00000E+00 -7.59549E-02 0.00000E+00 1 0 0 0 0 3.46868E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -3.98524E+00 9.95547E-02 2.01432E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 9.94608E+00 0.00000E+00 +3.30017E+00 2.92509E+00 7.27062E-01 0.00000E+00 9.99966E-01 0.00000E+00 8.26725E-01 6.17445E+00 5.73256E-01 5.35144E+00 4.57875E+00 0.00000E+00 3.25776E-01 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 5.55281E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 1.37409E+00 +5.42960E+00 3.06271E+00 7.23838E-01 0.00000E+00 9.99995E-01 0.00000E+00 1.61783E+00 5.98429E+00 2.27894E+00 5.33877E+00 4.78185E+00 0.00000E+00 -9.02454E-02 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 8.68574E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 1.18496E+00 +4.32522E-02 3.66063E+00 3.07488E-01 0.00000E+00 -9.45380E-01 0.00000E+00 3.41055E+00 2.23532E+00 3.08684E+00 2.18157E-01 2.92952E+00 0.00000E+00 4.69712E-01 0.00000E+00 1 0 0 0 0 1.85456E-01 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 0.00000E+00 3.46574E-02 -1.74782E+01 1.10687E+00 3.46574E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 0.00000E+00 1.00000E+00 0.00000E+00 +6.92086E-01 2.93371E+00 6.49846E-01 0.00000E+00 9.99924E-01 0.00000E+00 2.09511E+00 5.91998E+00 2.49017E+00 5.41138E+00 3.97807E+00 0.00000E+00 6.85924E-01 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 5.55288E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 4.92867E-02 +3.54380E+00 2.87461E+00 7.92366E-01 0.00000E+00 8.09536E-01 0.00000E+00 2.81889E+00 6.56658E+00 1.68978E+00 5.34487E+00 4.06904E+00 0.00000E+00 4.72316E-01 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 5.55281E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 -8.95252E-06 +3.51189E-02 4.15569E+00 2.58552E-01 0.00000E+00 -7.36162E-01 0.00000E+00 1.15411E+00 5.45723E-01 2.59335E-01 4.43090E-01 3.73618E+00 0.00000E+00 2.34780E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +5.61517E-02 4.42618E+00 5.27067E-01 0.00000E+00 -9.35872E-01 0.00000E+00 3.94007E+00 5.62577E+00 5.69252E+00 5.01986E+00 4.39277E+00 0.00000E+00 6.44335E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +2.62482E+00 2.89552E+00 7.19111E-01 0.00000E+00 9.99654E-01 0.00000E+00 6.22191E-01 6.71472E+00 7.59725E-01 4.71116E+00 4.92977E+00 0.00000E+00 2.83076E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +4.32837E-02 4.32014E+00 4.68194E-01 0.00000E+00 9.27389E-01 0.00000E+00 6.98569E+00 4.18288E+00 5.94434E+00 4.44280E-01 3.11342E+00 0.00000E+00 2.42507E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +4.32837E-02 4.32014E+00 4.68194E-01 0.00000E+00 9.27389E-01 0.00000E+00 6.98569E+00 4.18288E+00 5.94434E+00 4.44280E-01 3.11342E+00 0.00000E+00 2.42507E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +6.09339E+00 3.10691E+00 7.44248E-01 0.00000E+00 9.99993E-01 0.00000E+00 1.15828E+00 5.50927E+00 2.87480E+00 5.26883E+00 5.10064E+00 0.00000E+00 -2.41577E-02 0.00000E+00 1 0 0 0 0 3.79731E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -6.35055E+00 3.87025E-02 2.19172E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.20089E+00 0.00000E+00 +6.09339E+00 3.10691E+00 7.44248E-01 0.00000E+00 9.99993E-01 0.00000E+00 1.15828E+00 5.50927E+00 2.87480E+00 5.26883E+00 5.10064E+00 0.00000E+00 -2.41577E-02 0.00000E+00 1 0 0 0 0 3.79731E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -6.35055E+00 3.87025E-02 2.19172E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.20089E+00 0.00000E+00 +6.09339E+00 3.10691E+00 7.44248E-01 0.00000E+00 9.99993E-01 0.00000E+00 1.15828E+00 5.50927E+00 2.87480E+00 5.26883E+00 5.10064E+00 0.00000E+00 -2.41577E-02 0.00000E+00 1 0 0 0 0 3.79731E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -6.35055E+00 3.87025E-02 2.19172E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.20089E+00 0.00000E+00 +9.97525E-01 4.18439E+00 6.77393E-01 0.00000E+00 9.97401E-01 0.00000E+00 7.31614E-01 5.99156E+00 5.12616E-01 5.16280E+00 4.78825E+00 0.00000E+00 9.56238E-02 0.00000E+00 1 0 0 0 0 4.65837E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 3.56508E-02 -4.26339E+00 3.60916E-02 1.77410E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.16288E+00 0.00000E+00 +3.46727E-02 5.69741E+00 4.04784E-01 0.00000E+00 -9.99866E-01 0.00000E+00 1.16515E-01 5.94188E+00 3.69978E+00 4.62284E+00 8.10860E+00 0.00000E+00 5.24562E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.47274E-02 5.72829E+00 4.22155E-01 0.00000E+00 7.66092E-01 0.00000E+00 1.96847E+00 1.27875E+00 3.46574E-02 7.89190E-01 3.22939E+00 0.00000E+00 6.50326E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +2.20559E+00 4.06572E+00 4.77602E-01 0.00000E+00 5.40577E-01 0.00000E+00 2.38951E+00 1.87918E+00 8.19911E-02 5.90656E-02 3.60279E+00 0.00000E+00 8.77579E-03 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +1.96601E-01 5.10122E+00 2.68703E-01 0.00000E+00 -4.52724E-01 0.00000E+00 3.99839E+00 2.99985E+00 4.64968E-02 5.05432E-01 2.69873E+00 0.00000E+00 6.80297E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +1.12752E+00 3.88423E+00 4.97048E-01 0.00000E+00 4.07795E-01 0.00000E+00 5.56897E+00 4.56273E+00 2.80514E+00 3.47279E-02 2.95142E+00 0.00000E+00 8.60369E-02 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +4.43247E-02 5.96363E+00 6.22133E-01 0.00000E+00 6.59525E-01 0.00000E+00 4.99795E+00 4.99646E+00 5.00199E+00 5.00205E+00 3.00902E+00 0.00000E+00 4.87953E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +2.60283E+00 3.69545E+00 4.46478E-01 0.00000E+00 -4.18371E-01 0.00000E+00 2.10068E+01 1.58383E+01 1.51080E+01 3.43730E+00 3.75758E+00 0.00000E+00 5.41827E-01 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -1.30256E+01 1.84492E+00 7.79864E-01 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 9.33937E-01 0.00000E+00 +1.68072E-01 4.16175E+00 5.68603E-01 0.00000E+00 9.48088E-01 0.00000E+00 8.97167E+00 5.79892E+00 6.95293E+00 3.46913E-02 2.57100E+00 0.00000E+00 -8.29498E-02 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +8.58958E+00 2.90846E+00 4.75166E-01 0.00000E+00 4.68647E-01 0.00000E+00 5.27341E+00 3.05368E+00 2.01220E+00 4.96228E+00 4.67037E+00 0.00000E+00 3.26370E-01 0.00000E+00 1 0 0 0 0 1.65824E-01 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 -4.64188E+00 3.46574E-02 3.49844E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00002E+00 0.00000E+00 +5.09309E+00 3.14518E+00 7.42449E-02 0.00000E+00 1.80707E-01 0.00000E+00 4.80775E+00 6.52559E+00 4.52505E+00 5.16510E+00 4.84967E+00 0.00000E+00 5.71291E-02 0.00000E+00 1 0 0 0 0 5.03834E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -4.06644E+00 4.08528E-01 3.60491E-01 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00425E+01 0.00000E+00 +6.76474E+00 2.75846E+00 2.46733E-01 0.00000E+00 -1.08755E-01 0.00000E+00 2.14001E+00 4.84231E+00 3.44439E-01 5.01561E+00 4.57000E+00 0.00000E+00 2.36119E-01 0.00000E+00 1 0 0 0 0 3.77635E-01 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 9.99460E-01 -2.97361E+00 1.67156E+00 7.49271E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.36961E+00 0.00000E+00 +2.44973E+00 3.89948E+00 6.40772E-01 0.00000E+00 8.05096E-01 0.00000E+00 3.20174E+00 6.31066E+00 1.82636E+00 5.30654E+00 2.21824E+00 0.00000E+00 -5.53286E-02 0.00000E+00 1 0 0 0 0 3.57955E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -3.35319E+00 1.15949E-01 1.86536E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.18263E+00 0.00000E+00 +3.87252E+00 2.92265E+00 8.36180E-01 0.00000E+00 9.99800E-01 0.00000E+00 3.59703E+00 5.59916E+00 4.47886E+00 5.21866E+00 4.76985E+00 0.00000E+00 3.57409E-01 0.00000E+00 1 0 0 0 0 7.33078E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -2.18070E+00 3.95470E-02 1.84526E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.03630E+00 0.00000E+00 +3.41450E-01 2.65245E+00 6.84130E-01 0.00000E+00 9.61652E-01 0.00000E+00 2.71783E+00 3.07443E+00 6.66773E+00 5.66252E+00 4.19992E+00 0.00000E+00 3.91907E-01 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 5.55281E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 1.44986E+00 +4.50085E-02 3.05907E+00 7.09345E-01 0.00000E+00 7.81313E-01 0.00000E+00 3.07333E+00 5.10720E+00 5.41459E+00 5.37843E+00 5.68896E+00 0.00000E+00 5.04182E-01 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.82464E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 1.00542E+00 +1.34610E+00 3.11693E+00 5.92165E-01 0.00000E+00 9.99955E-01 0.00000E+00 1.23508E+00 4.69920E+00 1.44058E+00 5.28377E+00 4.60458E+00 0.00000E+00 -5.18828E-01 0.00000E+00 1 0 0 0 0 4.44947E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -8.01020E+00 1.81209E+01 3.24712E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 9.87027E+00 0.00000E+00 +2.07983E+00 7.53143E-01 6.80598E-01 0.00000E+00 9.99918E-01 0.00000E+00 2.26601E+00 6.07154E+00 6.53911E-01 5.32884E+00 4.96206E+00 0.00000E+00 5.34943E-01 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 5.55288E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 1.60319E+00 +3.52541E-01 1.81925E+00 9.00000E-01 0.00000E+00 -8.45490E-01 0.00000E+00 4.30142E+00 7.33512E+00 1.11363E+00 5.24191E+00 4.32761E+00 0.00000E+00 5.17484E-01 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 6.45011E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 1.76514E+00 +1.66728E+00 2.45263E+00 5.26602E-01 0.00000E+00 -9.99369E-01 0.00000E+00 3.75332E+00 2.65059E+00 3.46574E-02 3.46911E-02 2.78295E+00 0.00000E+00 3.36168E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.46727E-02 5.69741E+00 4.04784E-01 0.00000E+00 -9.99866E-01 0.00000E+00 1.16515E-01 5.94188E+00 3.69978E+00 4.62284E+00 8.10860E+00 0.00000E+00 5.24562E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.47274E-02 5.72829E+00 4.22155E-01 0.00000E+00 7.66092E-01 0.00000E+00 1.96847E+00 1.27875E+00 3.46574E-02 7.89190E-01 3.22939E+00 0.00000E+00 6.50326E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +1.68072E-01 4.16175E+00 5.68603E-01 0.00000E+00 9.48088E-01 0.00000E+00 8.97167E+00 5.79892E+00 6.95293E+00 3.46913E-02 2.57100E+00 0.00000E+00 -8.29498E-02 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +1.68072E-01 4.16175E+00 5.68603E-01 0.00000E+00 9.48088E-01 0.00000E+00 8.97167E+00 5.79892E+00 6.95293E+00 3.46913E-02 2.57100E+00 0.00000E+00 -8.29498E-02 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +8.58958E+00 2.90846E+00 4.75166E-01 0.00000E+00 4.68647E-01 0.00000E+00 5.27341E+00 3.05368E+00 2.01220E+00 4.96228E+00 4.67037E+00 0.00000E+00 3.26370E-01 0.00000E+00 1 0 0 0 0 1.65824E-01 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 -4.64188E+00 3.46574E-02 3.49844E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00002E+00 0.00000E+00 +8.58958E+00 2.90846E+00 4.75166E-01 0.00000E+00 4.68647E-01 0.00000E+00 5.27341E+00 3.05368E+00 2.01220E+00 4.96228E+00 4.67037E+00 0.00000E+00 3.26370E-01 0.00000E+00 1 0 0 0 0 1.65824E-01 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 -4.64188E+00 3.46574E-02 3.49844E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00002E+00 0.00000E+00 +8.58958E+00 2.90846E+00 4.75166E-01 0.00000E+00 4.68647E-01 0.00000E+00 5.27341E+00 3.05368E+00 2.01220E+00 4.96228E+00 4.67037E+00 0.00000E+00 3.26370E-01 0.00000E+00 1 0 0 0 0 1.65824E-01 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 -4.64188E+00 3.46574E-02 3.49844E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00002E+00 0.00000E+00 +8.62098E-01 3.73125E+00 7.00692E-01 0.00000E+00 9.88889E-01 0.00000E+00 2.88466E-01 5.33382E+00 3.04897E+00 5.12037E+00 6.22961E+00 0.00000E+00 -9.31924E-01 0.00000E+00 1 0 0 0 0 3.86053E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 2.82330E+00 9.04100E-02 1.80415E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.16114E+00 0.00000E+00 +3.46578E-02 4.46387E+00 5.12970E-01 0.00000E+00 -8.91112E-01 0.00000E+00 6.41980E+00 7.07251E+00 6.09954E+00 4.90064E+00 3.89398E+00 0.00000E+00 5.20810E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +2.72698E+00 2.58793E+00 9.00000E-01 0.00000E+00 1.00000E+00 0.00000E+00 1.43984E+01 5.14046E+00 6.67706E-01 1.14234E+00 3.01613E+00 0.00000E+00 2.44037E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.47035E-02 5.09875E+00 5.04219E-01 0.00000E+00 8.91590E-01 0.00000E+00 6.59671E-01 3.60321E-01 3.49066E-02 4.60251E-02 4.05916E+00 0.00000E+00 -2.08514E-02 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.46599E-02 5.09831E+00 4.71043E-01 0.00000E+00 4.96533E-01 0.00000E+00 6.71879E-01 3.31190E-01 7.55743E-02 8.68816E-02 4.24439E+00 0.00000E+00 2.25158E-02 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.74845E-02 5.08895E+00 1.55634E-01 0.00000E+00 -7.28288E-01 0.00000E+00 5.35658E-01 6.28217E-02 3.46574E-02 4.21658E-02 4.76316E+00 0.00000E+00 2.43749E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.46579E-02 2.78072E+00 9.00000E-01 0.00000E+00 -9.99516E-01 0.00000E+00 2.45365E+00 6.02447E+00 3.53157E-02 5.50721E+00 4.25319E+00 0.00000E+00 5.55443E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.47629E-02 5.15825E+00 6.75281E-01 0.00000E+00 1.00000E+00 0.00000E+00 5.29977E-01 5.94692E+00 2.12632E+00 5.32595E+00 5.02401E+00 0.00000E+00 6.98022E-01 0.00000E+00 1 0 0 0 0 3.84865E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -7.68570E+00 3.92230E-02 8.86179E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 9.99600E-01 0.00000E+00 +3.46589E-02 5.14054E+00 3.09344E-01 0.00000E+00 7.55465E-01 0.00000E+00 8.64675E+00 4.56216E+00 7.60156E+00 2.16120E-01 3.18280E+00 0.00000E+00 7.71626E-02 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.46626E-02 4.59525E+00 6.70482E-01 0.00000E+00 9.98615E-01 0.00000E+00 2.27779E+00 6.15674E+00 2.47068E+00 5.34326E+00 1.31224E+00 0.00000E+00 -1.25169E-01 0.00000E+00 1 0 0 0 0 3.46578E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.37751E-02 -4.92279E-01 1.39322E+00 1.53857E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.42315E+00 0.00000E+00 +4.82225E+00 3.40841E+00 6.65188E-01 0.00000E+00 9.96584E-01 0.00000E+00 1.57438E+00 5.83803E+00 2.52051E+00 5.14874E+00 5.28915E+00 0.00000E+00 -3.29340E-01 0.00000E+00 1 0 0 0 0 3.71778E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 3.10474E+00 8.71437E-02 1.46444E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.11272E+00 0.00000E+00 +3.48212E-02 4.52622E+00 5.71513E-01 0.00000E+00 9.99715E-01 0.00000E+00 1.14151E+00 9.48303E-01 3.46617E-02 9.92175E+00 4.07600E+00 0.00000E+00 4.69311E-01 0.00000E+00 1 0 0 0 0 3.15315E-01 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00907E-01 7.49595E+00 5.05569E+01 2.25084E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+01 0.00000E+00 +2.20138E+00 2.96657E+00 5.24561E-01 0.00000E+00 9.94153E-01 0.00000E+00 2.25014E+00 6.17356E+00 1.60783E+00 5.22631E+00 3.87712E+00 0.00000E+00 6.15718E-01 0.00000E+00 1 0 0 0 0 1.23959E-01 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 9.56493E-01 6.79183E-02 1.49726E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.43421E+00 0.00000E+00 +1.60652E+00 3.72149E+00 7.24008E-01 0.00000E+00 9.99546E-01 0.00000E+00 1.48146E-01 6.01322E+00 3.57132E-02 5.00817E+00 6.48242E+00 0.00000E+00 -9.96397E-01 0.00000E+00 1 0 0 0 0 3.46797E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -1.57206E+00 3.50256E-02 1.87839E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 9.74397E-01 0.00000E+00 +3.47326E-02 4.55046E+00 7.27910E-01 0.00000E+00 9.95261E-01 0.00000E+00 8.19747E-01 5.98971E+00 3.47676E-02 5.37011E+00 4.41816E+00 0.00000E+00 4.43236E-01 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 5.55281E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 1.57257E+00 +3.27904E+00 3.26999E+00 7.54352E-01 0.00000E+00 9.99576E-01 0.00000E+00 1.64589E+00 6.15598E+00 2.96046E-01 5.34135E+00 4.44316E+00 0.00000E+00 2.52188E-01 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.82464E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 -4.74670E-03 +3.42380E+00 1.22887E+00 9.00000E-01 0.00000E+00 9.99672E-01 0.00000E+00 4.86590E+00 6.32326E+00 1.12727E-01 5.18911E+00 3.56132E+00 0.00000E+00 5.75126E-01 0.00000E+00 1 0 0 0 0 6.94340E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -1.70312E+00 1.80914E+01 4.35390E-01 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.88453E+00 0.00000E+00 +3.46710E-02 4.95669E+00 6.04046E-01 0.00000E+00 -6.76790E-01 0.00000E+00 1.70302E+00 5.91142E+00 4.60400E-01 6.09915E+00 3.37648E+00 0.00000E+00 6.51286E-01 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.10924E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 3.41926E-01 +3.47258E-02 5.24509E+00 6.56205E-01 0.00000E+00 9.67802E-01 0.00000E+00 3.00032E+00 8.31601E+00 2.80541E+00 4.46214E+00 1.36151E+00 0.00000E+00 6.82412E-01 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00908E-01 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 8.54380E+00 +1.20595E-01 4.37444E+00 2.52255E-01 0.00000E+00 -9.99908E-01 0.00000E+00 8.30188E-01 3.60469E-02 1.53706E-01 1.22822E-01 4.44863E+00 0.00000E+00 3.82358E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.46578E-02 4.46387E+00 5.12970E-01 0.00000E+00 -8.91112E-01 0.00000E+00 6.41980E+00 7.07251E+00 6.09954E+00 4.90064E+00 3.89398E+00 0.00000E+00 5.20810E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +2.72698E+00 2.58793E+00 9.00000E-01 0.00000E+00 1.00000E+00 0.00000E+00 1.43984E+01 5.14046E+00 6.67706E-01 1.14234E+00 3.01613E+00 0.00000E+00 2.44037E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.46589E-02 5.14054E+00 3.09344E-01 0.00000E+00 7.55465E-01 0.00000E+00 8.64675E+00 4.56216E+00 7.60156E+00 2.16120E-01 3.18280E+00 0.00000E+00 7.71626E-02 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.46589E-02 5.14054E+00 3.09344E-01 0.00000E+00 7.55465E-01 0.00000E+00 8.64675E+00 4.56216E+00 7.60156E+00 2.16120E-01 3.18280E+00 0.00000E+00 7.71626E-02 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.46626E-02 4.59525E+00 6.70482E-01 0.00000E+00 9.98615E-01 0.00000E+00 2.27779E+00 6.15674E+00 2.47068E+00 5.34326E+00 1.31224E+00 0.00000E+00 -1.25169E-01 0.00000E+00 1 0 0 0 0 3.46578E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.37751E-02 -4.92279E-01 1.39322E+00 1.53857E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.42315E+00 0.00000E+00 +3.46626E-02 4.59525E+00 6.70482E-01 0.00000E+00 9.98615E-01 0.00000E+00 2.27779E+00 6.15674E+00 2.47068E+00 5.34326E+00 1.31224E+00 0.00000E+00 -1.25169E-01 0.00000E+00 1 0 0 0 0 3.46578E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.37751E-02 -4.92279E-01 1.39322E+00 1.53857E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.42315E+00 0.00000E+00 +3.46626E-02 4.59525E+00 6.70482E-01 0.00000E+00 9.98615E-01 0.00000E+00 2.27779E+00 6.15674E+00 2.47068E+00 5.34326E+00 1.31224E+00 0.00000E+00 -1.25169E-01 0.00000E+00 1 0 0 0 0 3.46578E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.37751E-02 -4.92279E-01 1.39322E+00 1.53857E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.42315E+00 0.00000E+00 diff --git a/PARAM/ions_fin_23_02_22.parm b/PARAM/ions_fin_23_02_22.parm new file mode 100644 index 0000000..d82ad9c --- /dev/null +++ b/PARAM/ions_fin_23_02_22.parm @@ -0,0 +1,149 @@ +2 0 0 0 0 0 0 2 0 0 2 2 2 2 -1 -1 2 1 1 0 0 0 0 0 -1 -1 -1 +1 1 0 +1 1 0 +1 1 0 +1 1 0 +1 1 0 +18 3 0 +1 1 0 +23 3 1 +24 3 2 +39 3 1 +40 3 2 +35.5 3 -1 +65 3 2 +5.69891E-02 3.17002E+00 4.95421E-01 0.00000E+00 8.09856E-01 0.00000E+00 5.95645E-01 5.61069E+00 2.58276E+00 5.23464E+00 4.42980E+00 0.00000E+00 4.14020E-01 0.00000E+00 1 0 0 0 0 4.12992E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -9.04131E+00 3.62811E-02 9.69329E-01 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.35052E+00 0.00000E+00 +2.79444E+00 2.91727E+00 8.33501E-01 0.00000E+00 9.99999E-01 0.00000E+00 9.81661E-01 6.93235E+00 5.97322E-01 4.87889E+00 4.43795E+00 0.00000E+00 4.32100E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +1.45596E+00 2.83670E+00 7.43295E-01 0.00000E+00 9.99920E-01 0.00000E+00 5.98655E-01 6.55996E+00 3.46739E-02 4.74838E+00 4.56099E+00 0.00000E+00 3.76099E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.48735E-02 4.36914E+00 2.58957E-01 0.00000E+00 -9.67829E-02 0.00000E+00 1.34649E+00 8.42957E-01 3.46574E-02 2.60246E-01 3.82376E+00 0.00000E+00 2.49457E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.52118E-02 4.63748E+00 3.64272E-01 0.00000E+00 1.59087E-01 0.00000E+00 9.53869E-01 4.77396E-01 3.46872E-02 2.68034E-01 4.11193E+00 0.00000E+00 4.00815E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.49660E-02 4.34679E+00 2.09480E-01 0.00000E+00 6.64390E-03 0.00000E+00 1.36813E+00 7.14527E-01 3.46574E-02 6.55911E-01 4.11720E+00 0.00000E+00 1.61904E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.46667E-02 2.97236E+00 4.04152E-01 0.00000E+00 -9.99966E-01 0.00000E+00 5.18590E-01 1.20064E+01 3.46665E-02 4.46463E+00 4.08858E+00 0.00000E+00 6.95524E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +4.22623E-02 3.55300E+00 7.52451E-01 0.00000E+00 9.99989E-01 0.00000E+00 1.46027E+00 8.56620E-01 1.45909E-01 2.11520E+00 4.15491E+00 0.00000E+00 4.92352E-01 0.00000E+00 1 0 0 0 0 3.46593E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 0.00000E+00 3.46574E-02 -3.18395E-02 1.03355E-01 3.46574E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E-01 0.00000E+00 1.00000E+00 0.00000E+00 +2.79183E-01 3.38227E+00 4.58897E-01 0.00000E+00 9.10411E-01 0.00000E+00 8.34463E+00 4.99499E+00 6.90949E+00 8.14074E-02 2.51032E+00 0.00000E+00 1.48920E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.84139E+00 2.72458E+00 7.07073E-01 0.00000E+00 9.99751E-01 0.00000E+00 1.55244E+00 5.23148E+00 3.53037E+00 5.29844E+00 4.18614E+00 0.00000E+00 4.88630E-01 0.00000E+00 1 0 0 0 0 3.53127E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.32639E-02 2.00298E+00 4.09554E-01 1.42549E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.15490E+00 0.00000E+00 +7.57785E+00 2.69464E+00 6.59173E-01 0.00000E+00 9.96763E-01 0.00000E+00 2.25237E+00 5.92011E+00 2.68553E+00 5.20529E+00 4.39604E+00 0.00000E+00 4.44385E-02 0.00000E+00 1 0 0 0 0 4.02319E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -3.67928E+00 1.79969E-01 1.50196E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.08211E+00 0.00000E+00 +2.33132E-01 2.96945E+00 4.53728E-01 0.00000E+00 7.24649E-01 0.00000E+00 8.22898E+00 5.43525E+00 4.88545E+00 4.96245E+00 3.78540E+00 0.00000E+00 2.45870E-01 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 -7.67410E-01 1.90266E-01 4.59049E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00010E+00 0.00000E+00 +9.48215E+00 2.89500E+00 7.84420E-01 0.00000E+00 9.98547E-01 0.00000E+00 3.43103E+00 6.23121E+00 3.00319E+00 5.18071E+00 4.41926E+00 0.00000E+00 3.36059E-01 0.00000E+00 1 0 0 0 0 1.46750E-01 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 3.95183E+00 4.00136E-01 1.90755E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 9.47250E-01 0.00000E+00 +1.89742E-01 1.95673E+00 9.00000E-01 0.00000E+00 9.98063E-01 0.00000E+00 7.37857E-01 6.04538E+00 6.70453E-01 5.20022E+00 4.33545E+00 0.00000E+00 4.02223E-01 0.00000E+00 1 0 0 0 0 4.72482E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -1.50741E+00 1.59389E-01 1.88996E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 9.66766E-01 0.00000E+00 +9.92793E+00 2.64623E+00 2.65809E-01 0.00000E+00 7.31160E-01 0.00000E+00 1.71506E+00 5.95064E+00 3.71304E-02 5.37684E+00 4.25598E+00 0.00000E+00 -7.82987E-01 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 5.55281E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 1.61327E+00 +6.55245E+00 2.72566E+00 8.01881E-01 0.00000E+00 1.00000E+00 0.00000E+00 1.11117E+00 8.74351E+00 1.93383E+00 5.21161E+00 4.43586E+00 0.00000E+00 1.34392E-01 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.82464E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 5.49894E+00 +3.46816E-02 3.48560E+00 1.78424E-01 0.00000E+00 -4.61362E-01 0.00000E+00 7.66510E-01 5.49102E-01 1.78264E-01 3.46574E-02 3.29851E+00 0.00000E+00 4.50032E-01 0.00000E+00 1 0 0 0 0 5.53438E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 0.00000E+00 3.46574E-02 -1.04360E+01 6.05739E-01 3.46574E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 0.00000E+00 9.99998E-01 0.00000E+00 +3.47440E-02 4.93389E+00 6.59651E-01 0.00000E+00 9.09560E-01 0.00000E+00 1.45067E+00 5.85525E+00 5.87716E-01 5.05488E+00 2.87499E+00 0.00000E+00 8.80085E-01 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 0.00000E+00 1.00907E-01 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 1.58498E-01 +3.47157E-02 3.88251E+00 -1.92325E-02 0.00000E+00 1.43402E-02 0.00000E+00 1.52175E+00 6.22560E+00 7.96165E-01 5.37775E+00 4.03779E+00 0.00000E+00 6.32819E-01 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 5.55281E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 1.83448E+00 +3.47578E-02 4.01099E+00 1.98246E-01 0.00000E+00 -8.62837E-01 0.00000E+00 1.49163E+00 9.06598E-01 2.76008E-01 3.93459E-01 3.70271E+00 0.00000E+00 2.87385E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +2.79444E+00 2.91727E+00 8.33501E-01 0.00000E+00 9.99999E-01 0.00000E+00 9.81661E-01 6.93235E+00 5.97322E-01 4.87889E+00 4.43795E+00 0.00000E+00 4.32100E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +1.45596E+00 2.83670E+00 7.43295E-01 0.00000E+00 9.99920E-01 0.00000E+00 5.98655E-01 6.55996E+00 3.46739E-02 4.74838E+00 4.56099E+00 0.00000E+00 3.76099E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +2.79183E-01 3.38227E+00 4.58897E-01 0.00000E+00 9.10411E-01 0.00000E+00 8.34463E+00 4.99499E+00 6.90949E+00 8.14074E-02 2.51032E+00 0.00000E+00 1.48920E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +2.79183E-01 3.38227E+00 4.58897E-01 0.00000E+00 9.10411E-01 0.00000E+00 8.34463E+00 4.99499E+00 6.90949E+00 8.14074E-02 2.51032E+00 0.00000E+00 1.48920E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.84139E+00 2.72458E+00 7.07073E-01 0.00000E+00 9.99751E-01 0.00000E+00 1.55244E+00 5.23148E+00 3.53037E+00 5.29844E+00 4.18614E+00 0.00000E+00 4.88630E-01 0.00000E+00 1 0 0 0 0 3.53127E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.32639E-02 2.00298E+00 4.09554E-01 1.42549E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.15490E+00 0.00000E+00 +3.84139E+00 2.72458E+00 7.07073E-01 0.00000E+00 9.99751E-01 0.00000E+00 1.55244E+00 5.23148E+00 3.53037E+00 5.29844E+00 4.18614E+00 0.00000E+00 4.88630E-01 0.00000E+00 1 0 0 0 0 3.53127E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.32639E-02 2.00298E+00 4.09554E-01 1.42549E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.15490E+00 0.00000E+00 +3.84139E+00 2.72458E+00 7.07073E-01 0.00000E+00 9.99751E-01 0.00000E+00 1.55244E+00 5.23148E+00 3.53037E+00 5.29844E+00 4.18614E+00 0.00000E+00 4.88630E-01 0.00000E+00 1 0 0 0 0 3.53127E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.32639E-02 2.00298E+00 4.09554E-01 1.42549E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.15490E+00 0.00000E+00 +5.40033E-01 4.41744E+00 6.40857E-01 0.00000E+00 9.57375E-01 0.00000E+00 1.41585E+00 5.84146E+00 2.22249E+00 5.28349E+00 3.26342E+00 0.00000E+00 -5.41440E-01 0.00000E+00 1 0 0 0 0 5.60413E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -2.40876E+00 3.96712E-02 2.97530E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 9.87733E+00 0.00000E+00 +5.12100E+00 2.96715E+00 7.87559E-01 0.00000E+00 2.06425E-01 0.00000E+00 3.01066E+00 7.14712E+00 8.28676E-01 4.84834E+00 4.32378E+00 0.00000E+00 5.87310E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.48244E-02 5.14144E+00 9.01893E-02 0.00000E+00 -7.75830E-02 0.00000E+00 5.96794E-01 6.73438E+00 3.16339E+00 4.88579E+00 4.64210E+00 0.00000E+00 5.22546E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.46604E-02 5.80191E+00 3.28443E-01 0.00000E+00 3.22840E-01 0.00000E+00 7.85743E-01 4.19477E+00 1.94123E+00 4.02330E-01 4.51534E+00 0.00000E+00 -3.32144E-02 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.46578E-02 5.80193E+00 3.29777E-01 0.00000E+00 2.93787E-02 0.00000E+00 1.55415E+00 9.03230E-01 3.66901E-02 2.24085E-01 4.12118E+00 0.00000E+00 1.86773E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.46590E-02 5.53520E+00 9.56586E-02 0.00000E+00 -8.07031E-01 0.00000E+00 1.02853E-01 1.92892E-01 2.99391E-01 2.61753E-01 4.91832E+00 0.00000E+00 5.31986E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.46585E-02 6.44209E+00 5.92565E-01 0.00000E+00 7.38064E-01 0.00000E+00 5.00150E+00 5.00182E+00 4.99940E+00 4.99850E+00 3.06919E+00 0.00000E+00 4.89695E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +6.03185E+00 2.59077E+00 8.10272E-01 0.00000E+00 1.00000E+00 0.00000E+00 3.47984E+00 6.83831E+00 8.29494E-02 5.19389E+00 4.09247E+00 0.00000E+00 6.48867E-01 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -3.41371E+00 3.46971E-02 1.69559E-01 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 2.79208E+00 0.00000E+00 +2.07431E-01 4.25937E+00 3.76895E-01 0.00000E+00 5.43405E-01 0.00000E+00 8.37959E+00 5.12688E+00 6.82556E+00 3.47687E-02 2.55561E+00 0.00000E+00 6.33778E-02 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +1.02661E+01 3.01002E+00 3.54124E-01 0.00000E+00 3.33249E-01 0.00000E+00 8.06931E+00 5.46078E+00 4.08705E+00 4.78382E+00 4.56983E+00 0.00000E+00 2.81656E-01 0.00000E+00 1 0 0 0 0 3.52831E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 -3.82122E+00 3.46574E-02 3.50807E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 9.99964E-01 0.00000E+00 +2.88710E+00 2.91588E+00 1.06001E-01 0.00000E+00 1.90717E-01 0.00000E+00 4.94190E+00 6.67311E+00 4.69960E+00 5.17698E+00 4.49051E+00 0.00000E+00 7.36208E-02 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -3.62781E+00 1.27188E-01 3.53663E-01 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00364E+01 0.00000E+00 +3.50268E-02 3.43342E+00 2.69955E-01 0.00000E+00 4.40375E-01 0.00000E+00 3.50964E+00 6.12026E+00 4.18020E+00 5.24424E+00 4.33443E+00 0.00000E+00 3.66855E-01 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -2.64593E+00 3.65549E-02 9.43631E-01 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00243E+01 0.00000E+00 +3.66584E+00 3.04726E+00 3.54686E-01 0.00000E+00 3.76939E-01 0.00000E+00 3.61242E+00 5.62115E+00 4.28055E+00 5.26053E+00 4.63323E+00 0.00000E+00 2.52640E-01 0.00000E+00 1 0 0 0 0 3.15535E-01 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -7.79305E+00 6.48937E-01 5.34975E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.35220E+00 0.00000E+00 +4.00006E+00 3.02283E+00 3.36720E-01 0.00000E+00 2.61431E-01 0.00000E+00 4.02255E+00 5.60722E+00 4.16026E+00 5.20224E+00 4.72663E+00 0.00000E+00 2.66122E-01 0.00000E+00 1 0 0 0 0 1.38418E-01 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -7.73594E+00 1.88595E+00 3.46997E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.57392E+00 0.00000E+00 +4.42356E-02 5.03283E+00 4.68392E-01 0.00000E+00 8.84686E-01 0.00000E+00 3.92084E+00 4.03821E+00 6.66349E+00 5.50903E+00 5.39108E+00 0.00000E+00 6.92130E-02 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 5.55281E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 1.38418E+00 +8.07755E+00 3.45780E+00 7.18077E-01 0.00000E+00 7.50121E-01 0.00000E+00 1.38508E+01 1.11095E+01 1.00815E+01 4.69231E+00 4.45843E+00 0.00000E+00 2.41181E-01 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.82464E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 1.36851E+00 +5.16850E-01 4.62992E+00 7.30337E-01 0.00000E+00 9.99922E-01 0.00000E+00 2.42528E+00 5.10463E+00 1.36519E+00 5.27152E+00 4.41810E+00 0.00000E+00 2.84141E-01 0.00000E+00 1 0 0 0 0 1.55118E-01 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -6.71818E+00 1.79649E+01 1.63310E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.68335E+00 0.00000E+00 +3.47644E-02 5.68514E+00 7.31836E-01 0.00000E+00 9.96188E-01 0.00000E+00 2.96272E-01 7.16537E+00 4.09320E+00 5.10387E+00 7.45972E+00 0.00000E+00 -5.87795E-01 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 5.55281E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 1.73051E+00 +3.39499E+00 1.98986E+00 8.76452E-01 0.00000E+00 -9.89326E-01 0.00000E+00 8.97340E+00 1.06200E+01 1.30437E+00 4.77487E+00 3.86883E+00 0.00000E+00 5.75799E-01 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 5.55281E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 2.03908E+00 +5.16940E-01 4.02533E+00 6.11267E-02 0.00000E+00 -9.99091E-01 0.00000E+00 3.53497E+00 2.84895E+00 4.14480E-02 1.74708E-01 3.22577E+00 0.00000E+00 3.49203E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +5.12100E+00 2.96715E+00 7.87559E-01 0.00000E+00 2.06425E-01 0.00000E+00 3.01066E+00 7.14712E+00 8.28676E-01 4.84834E+00 4.32378E+00 0.00000E+00 5.87310E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.48244E-02 5.14144E+00 9.01893E-02 0.00000E+00 -7.75830E-02 0.00000E+00 5.96794E-01 6.73438E+00 3.16339E+00 4.88579E+00 4.64210E+00 0.00000E+00 5.22546E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +2.07431E-01 4.25937E+00 3.76895E-01 0.00000E+00 5.43405E-01 0.00000E+00 8.37959E+00 5.12688E+00 6.82556E+00 3.47687E-02 2.55561E+00 0.00000E+00 6.33778E-02 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +2.07431E-01 4.25937E+00 3.76895E-01 0.00000E+00 5.43405E-01 0.00000E+00 8.37959E+00 5.12688E+00 6.82556E+00 3.47687E-02 2.55561E+00 0.00000E+00 6.33778E-02 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +1.02661E+01 3.01002E+00 3.54124E-01 0.00000E+00 3.33249E-01 0.00000E+00 8.06931E+00 5.46078E+00 4.08705E+00 4.78382E+00 4.56983E+00 0.00000E+00 2.81656E-01 0.00000E+00 1 0 0 0 0 3.52831E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 -3.82122E+00 3.46574E-02 3.50807E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 9.99964E-01 0.00000E+00 +1.02661E+01 3.01002E+00 3.54124E-01 0.00000E+00 3.33249E-01 0.00000E+00 8.06931E+00 5.46078E+00 4.08705E+00 4.78382E+00 4.56983E+00 0.00000E+00 2.81656E-01 0.00000E+00 1 0 0 0 0 3.52831E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 -3.82122E+00 3.46574E-02 3.50807E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 9.99964E-01 0.00000E+00 +1.02661E+01 3.01002E+00 3.54124E-01 0.00000E+00 3.33249E-01 0.00000E+00 8.06931E+00 5.46078E+00 4.08705E+00 4.78382E+00 4.56983E+00 0.00000E+00 2.81656E-01 0.00000E+00 1 0 0 0 0 3.52831E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 -3.82122E+00 3.46574E-02 3.50807E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 9.99964E-01 0.00000E+00 +2.28417E+00 3.11967E+00 7.53444E-01 0.00000E+00 9.96355E-01 0.00000E+00 2.17928E+00 5.59535E+00 3.51811E+00 5.22672E+00 4.58445E+00 0.00000E+00 7.68478E-02 0.00000E+00 1 0 0 0 0 2.75910E-01 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -7.74441E+00 9.50957E-02 1.88460E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 9.95370E+00 0.00000E+00 +5.61517E-02 4.42618E+00 5.27067E-01 0.00000E+00 -9.35872E-01 0.00000E+00 3.94007E+00 5.62577E+00 5.69252E+00 5.01986E+00 4.39277E+00 0.00000E+00 6.44335E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +2.62482E+00 2.89552E+00 7.19111E-01 0.00000E+00 9.99654E-01 0.00000E+00 6.22191E-01 6.71472E+00 7.59725E-01 4.71116E+00 4.92977E+00 0.00000E+00 2.83076E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.58977E-02 4.71829E+00 2.02388E-01 0.00000E+00 -2.35139E-01 0.00000E+00 7.11334E-01 4.36250E-01 6.12703E-02 7.84648E-02 4.03229E+00 0.00000E+00 8.91540E-02 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.49641E-02 5.18602E+00 2.64948E-01 0.00000E+00 1.08992E-01 0.00000E+00 6.58099E-01 3.00470E-01 6.08084E-02 2.57582E-01 4.15735E+00 0.00000E+00 3.35986E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +5.67675E-01 3.87476E+00 3.04352E-01 0.00000E+00 -5.44993E-01 0.00000E+00 1.19380E+00 6.77261E-01 3.46574E-02 3.73156E-01 4.49257E+00 0.00000E+00 3.42866E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +4.51330E-02 4.55712E+00 5.85804E-01 0.00000E+00 6.42133E-01 0.00000E+00 2.97864E+00 5.31736E+00 5.45513E+00 4.92960E+00 4.77883E+00 0.00000E+00 4.17574E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +1.29390E+00 3.57431E+00 7.03840E-01 0.00000E+00 1.75902E-01 0.00000E+00 8.02108E+00 7.46898E+00 7.07329E+00 5.15783E+00 4.28321E+00 0.00000E+00 5.38351E-01 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -1.79887E+01 5.32217E+01 3.46684E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00352E+01 0.00000E+00 +4.32837E-02 4.32014E+00 4.68194E-01 0.00000E+00 9.27389E-01 0.00000E+00 6.98569E+00 4.18288E+00 5.94434E+00 4.44280E-01 3.11342E+00 0.00000E+00 2.42507E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +6.09339E+00 3.10691E+00 7.44248E-01 0.00000E+00 9.99993E-01 0.00000E+00 1.15828E+00 5.50927E+00 2.87480E+00 5.26883E+00 5.10064E+00 0.00000E+00 -2.41577E-02 0.00000E+00 1 0 0 0 0 3.79731E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -6.35055E+00 3.87025E-02 2.19172E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.20089E+00 0.00000E+00 +3.06949E+00 3.15302E+00 6.82317E-01 0.00000E+00 9.99435E-01 0.00000E+00 2.60888E+00 5.53742E+00 3.91430E+00 5.21037E+00 4.88989E+00 0.00000E+00 -2.36374E-01 0.00000E+00 1 0 0 0 0 2.00875E-01 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -5.63044E+00 1.03176E-01 1.60774E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 9.96490E+00 0.00000E+00 +4.56308E-02 3.98470E+00 4.43004E-01 0.00000E+00 8.59186E-01 0.00000E+00 1.10114E+01 8.19441E+00 8.79990E+00 4.89299E+00 3.54455E+00 0.00000E+00 1.96321E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 9.99942E-01 -3.32776E+00 2.37226E-01 4.01340E-01 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 9.83870E-01 0.00000E+00 +3.79299E+00 3.04104E+00 8.27103E-01 0.00000E+00 9.94705E-01 0.00000E+00 2.04203E+00 5.82234E+00 2.85011E+00 5.21114E+00 4.62378E+00 0.00000E+00 2.16705E-01 0.00000E+00 1 0 0 0 0 3.47082E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -5.14175E+00 9.65693E-02 2.86577E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 9.88727E+00 0.00000E+00 +4.56223E+00 3.20950E+00 7.63502E-01 0.00000E+00 9.99714E-01 0.00000E+00 1.89230E+00 5.77012E+00 2.86322E+00 5.17611E+00 5.02402E+00 0.00000E+00 -7.59549E-02 0.00000E+00 1 0 0 0 0 3.46868E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -3.98524E+00 9.95547E-02 2.01432E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 9.94608E+00 0.00000E+00 +3.30017E+00 2.92509E+00 7.27062E-01 0.00000E+00 9.99966E-01 0.00000E+00 8.26725E-01 6.17445E+00 5.73256E-01 5.35144E+00 4.57875E+00 0.00000E+00 3.25776E-01 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 5.55281E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 1.37409E+00 +5.42960E+00 3.06271E+00 7.23838E-01 0.00000E+00 9.99995E-01 0.00000E+00 1.61783E+00 5.98429E+00 2.27894E+00 5.33877E+00 4.78185E+00 0.00000E+00 -9.02454E-02 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 8.68574E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 1.18496E+00 +4.32522E-02 3.66063E+00 3.07488E-01 0.00000E+00 -9.45380E-01 0.00000E+00 3.41055E+00 2.23532E+00 3.08684E+00 2.18157E-01 2.92952E+00 0.00000E+00 4.69712E-01 0.00000E+00 1 0 0 0 0 1.85456E-01 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 0.00000E+00 3.46574E-02 -1.74782E+01 1.10687E+00 3.46574E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 0.00000E+00 1.00000E+00 0.00000E+00 +6.92086E-01 2.93371E+00 6.49846E-01 0.00000E+00 9.99924E-01 0.00000E+00 2.09511E+00 5.91998E+00 2.49017E+00 5.41138E+00 3.97807E+00 0.00000E+00 6.85924E-01 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 5.55288E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 4.92867E-02 +3.54380E+00 2.87461E+00 7.92366E-01 0.00000E+00 8.09536E-01 0.00000E+00 2.81889E+00 6.56658E+00 1.68978E+00 5.34487E+00 4.06904E+00 0.00000E+00 4.72316E-01 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 5.55281E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 -8.95252E-06 +3.51189E-02 4.15569E+00 2.58552E-01 0.00000E+00 -7.36162E-01 0.00000E+00 1.15411E+00 5.45723E-01 2.59335E-01 4.43090E-01 3.73618E+00 0.00000E+00 2.34780E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +5.61517E-02 4.42618E+00 5.27067E-01 0.00000E+00 -9.35872E-01 0.00000E+00 3.94007E+00 5.62577E+00 5.69252E+00 5.01986E+00 4.39277E+00 0.00000E+00 6.44335E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +2.62482E+00 2.89552E+00 7.19111E-01 0.00000E+00 9.99654E-01 0.00000E+00 6.22191E-01 6.71472E+00 7.59725E-01 4.71116E+00 4.92977E+00 0.00000E+00 2.83076E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +4.32837E-02 4.32014E+00 4.68194E-01 0.00000E+00 9.27389E-01 0.00000E+00 6.98569E+00 4.18288E+00 5.94434E+00 4.44280E-01 3.11342E+00 0.00000E+00 2.42507E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +4.32837E-02 4.32014E+00 4.68194E-01 0.00000E+00 9.27389E-01 0.00000E+00 6.98569E+00 4.18288E+00 5.94434E+00 4.44280E-01 3.11342E+00 0.00000E+00 2.42507E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +6.09339E+00 3.10691E+00 7.44248E-01 0.00000E+00 9.99993E-01 0.00000E+00 1.15828E+00 5.50927E+00 2.87480E+00 5.26883E+00 5.10064E+00 0.00000E+00 -2.41577E-02 0.00000E+00 1 0 0 0 0 3.79731E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -6.35055E+00 3.87025E-02 2.19172E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.20089E+00 0.00000E+00 +6.09339E+00 3.10691E+00 7.44248E-01 0.00000E+00 9.99993E-01 0.00000E+00 1.15828E+00 5.50927E+00 2.87480E+00 5.26883E+00 5.10064E+00 0.00000E+00 -2.41577E-02 0.00000E+00 1 0 0 0 0 3.79731E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -6.35055E+00 3.87025E-02 2.19172E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.20089E+00 0.00000E+00 +6.09339E+00 3.10691E+00 7.44248E-01 0.00000E+00 9.99993E-01 0.00000E+00 1.15828E+00 5.50927E+00 2.87480E+00 5.26883E+00 5.10064E+00 0.00000E+00 -2.41577E-02 0.00000E+00 1 0 0 0 0 3.79731E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -6.35055E+00 3.87025E-02 2.19172E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.20089E+00 0.00000E+00 +9.97525E-01 4.18439E+00 6.77393E-01 0.00000E+00 9.97401E-01 0.00000E+00 7.31614E-01 5.99156E+00 5.12616E-01 5.16280E+00 4.78825E+00 0.00000E+00 9.56238E-02 0.00000E+00 1 0 0 0 0 4.65837E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 3.56508E-02 -4.26339E+00 3.60916E-02 1.77410E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.16288E+00 0.00000E+00 +3.46727E-02 5.69741E+00 4.04784E-01 0.00000E+00 -9.99866E-01 0.00000E+00 1.16515E-01 5.94188E+00 3.69978E+00 4.62284E+00 8.10860E+00 0.00000E+00 5.24562E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.47274E-02 5.72829E+00 4.22155E-01 0.00000E+00 7.66092E-01 0.00000E+00 1.96847E+00 1.27875E+00 3.46574E-02 7.89190E-01 3.22939E+00 0.00000E+00 6.50326E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +2.20559E+00 4.06572E+00 4.77602E-01 0.00000E+00 5.40577E-01 0.00000E+00 2.38951E+00 1.87918E+00 8.19911E-02 5.90656E-02 3.60279E+00 0.00000E+00 8.77579E-03 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +1.96601E-01 5.10122E+00 2.68703E-01 0.00000E+00 -4.52724E-01 0.00000E+00 3.99839E+00 2.99985E+00 4.64968E-02 5.05432E-01 2.69873E+00 0.00000E+00 6.80297E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +1.12752E+00 3.88423E+00 4.97048E-01 0.00000E+00 4.07795E-01 0.00000E+00 5.56897E+00 4.56273E+00 2.80514E+00 3.47279E-02 2.95142E+00 0.00000E+00 8.60369E-02 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +4.43247E-02 5.96363E+00 6.22133E-01 0.00000E+00 6.59525E-01 0.00000E+00 4.99795E+00 4.99646E+00 5.00199E+00 5.00205E+00 3.00902E+00 0.00000E+00 4.87953E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +2.60283E+00 3.69545E+00 4.46478E-01 0.00000E+00 -4.18371E-01 0.00000E+00 2.10068E+01 1.58383E+01 1.51080E+01 3.43730E+00 3.75758E+00 0.00000E+00 5.41827E-01 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -1.30256E+01 1.84492E+00 7.79864E-01 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 9.33937E-01 0.00000E+00 +1.68072E-01 4.16175E+00 5.68603E-01 0.00000E+00 9.48088E-01 0.00000E+00 8.97167E+00 5.79892E+00 6.95293E+00 3.46913E-02 2.57100E+00 0.00000E+00 -8.29498E-02 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +8.58958E+00 2.90846E+00 4.75166E-01 0.00000E+00 4.68647E-01 0.00000E+00 5.27341E+00 3.05368E+00 2.01220E+00 4.96228E+00 4.67037E+00 0.00000E+00 3.26370E-01 0.00000E+00 1 0 0 0 0 1.65824E-01 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 -4.64188E+00 3.46574E-02 3.49844E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00002E+00 0.00000E+00 +5.09309E+00 3.14518E+00 7.42449E-02 0.00000E+00 1.80707E-01 0.00000E+00 4.80775E+00 6.52559E+00 4.52505E+00 5.16510E+00 4.84967E+00 0.00000E+00 5.71291E-02 0.00000E+00 1 0 0 0 0 5.03834E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -4.06644E+00 4.08528E-01 3.60491E-01 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00425E+01 0.00000E+00 +6.76474E+00 2.75846E+00 2.46733E-01 0.00000E+00 -1.08755E-01 0.00000E+00 2.14001E+00 4.84231E+00 3.44439E-01 5.01561E+00 4.57000E+00 0.00000E+00 2.36119E-01 0.00000E+00 1 0 0 0 0 3.77635E-01 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 9.99460E-01 -2.97361E+00 1.67156E+00 7.49271E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.36961E+00 0.00000E+00 +2.44973E+00 3.89948E+00 6.40772E-01 0.00000E+00 8.05096E-01 0.00000E+00 3.20174E+00 6.31066E+00 1.82636E+00 5.30654E+00 2.21824E+00 0.00000E+00 -5.53286E-02 0.00000E+00 1 0 0 0 0 3.57955E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -3.35319E+00 1.15949E-01 1.86536E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.18263E+00 0.00000E+00 +3.87252E+00 2.92265E+00 8.36180E-01 0.00000E+00 9.99800E-01 0.00000E+00 3.59703E+00 5.59916E+00 4.47886E+00 5.21866E+00 4.76985E+00 0.00000E+00 3.57409E-01 0.00000E+00 1 0 0 0 0 7.33078E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -2.18070E+00 3.95470E-02 1.84526E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.03630E+00 0.00000E+00 +4.65424E-02 4.62683E+00 5.19170E-01 0.00000E+00 2.67693E-01 0.00000E+00 2.95628E+00 4.56700E+00 8.15507E+00 5.29944E+00 4.25301E+00 0.00000E+00 3.03135E-01 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 3.10373E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 3.27171E+00 +1.28156E-01 3.60914E+00 1.12677E-02 0.00000E+00 -2.96058E-01 0.00000E+00 2.00930E+00 2.14180E+00 1.15580E+01 1.92910E+04 1.48840E+00 0.00000E+00 1.91371E-01 0.00000E+00 1 0 0 0 0 2.65936E-01 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 2.88450E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 4.13140E+01 +1.34610E+00 3.11693E+00 5.92165E-01 0.00000E+00 9.99955E-01 0.00000E+00 1.23508E+00 4.69920E+00 1.44058E+00 5.28377E+00 4.60458E+00 0.00000E+00 -5.18828E-01 0.00000E+00 1 0 0 0 0 4.44947E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -8.01020E+00 1.81209E+01 3.24712E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 9.87027E+00 0.00000E+00 +2.07983E+00 7.53143E-01 6.80598E-01 0.00000E+00 9.99918E-01 0.00000E+00 2.26601E+00 6.07154E+00 6.53911E-01 5.32884E+00 4.96206E+00 0.00000E+00 5.34943E-01 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 5.55288E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 1.60319E+00 +3.52541E-01 1.81925E+00 9.00000E-01 0.00000E+00 -8.45490E-01 0.00000E+00 4.30142E+00 7.33512E+00 1.11363E+00 5.24191E+00 4.32761E+00 0.00000E+00 5.17484E-01 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 6.45011E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 1.76514E+00 +1.66728E+00 2.45263E+00 5.26602E-01 0.00000E+00 -9.99369E-01 0.00000E+00 3.75332E+00 2.65059E+00 3.46574E-02 3.46911E-02 2.78295E+00 0.00000E+00 3.36168E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.46727E-02 5.69741E+00 4.04784E-01 0.00000E+00 -9.99866E-01 0.00000E+00 1.16515E-01 5.94188E+00 3.69978E+00 4.62284E+00 8.10860E+00 0.00000E+00 5.24562E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.47274E-02 5.72829E+00 4.22155E-01 0.00000E+00 7.66092E-01 0.00000E+00 1.96847E+00 1.27875E+00 3.46574E-02 7.89190E-01 3.22939E+00 0.00000E+00 6.50326E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +1.68072E-01 4.16175E+00 5.68603E-01 0.00000E+00 9.48088E-01 0.00000E+00 8.97167E+00 5.79892E+00 6.95293E+00 3.46913E-02 2.57100E+00 0.00000E+00 -8.29498E-02 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +1.68072E-01 4.16175E+00 5.68603E-01 0.00000E+00 9.48088E-01 0.00000E+00 8.97167E+00 5.79892E+00 6.95293E+00 3.46913E-02 2.57100E+00 0.00000E+00 -8.29498E-02 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +8.58958E+00 2.90846E+00 4.75166E-01 0.00000E+00 4.68647E-01 0.00000E+00 5.27341E+00 3.05368E+00 2.01220E+00 4.96228E+00 4.67037E+00 0.00000E+00 3.26370E-01 0.00000E+00 1 0 0 0 0 1.65824E-01 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 -4.64188E+00 3.46574E-02 3.49844E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00002E+00 0.00000E+00 +8.58958E+00 2.90846E+00 4.75166E-01 0.00000E+00 4.68647E-01 0.00000E+00 5.27341E+00 3.05368E+00 2.01220E+00 4.96228E+00 4.67037E+00 0.00000E+00 3.26370E-01 0.00000E+00 1 0 0 0 0 1.65824E-01 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 -4.64188E+00 3.46574E-02 3.49844E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00002E+00 0.00000E+00 +8.58958E+00 2.90846E+00 4.75166E-01 0.00000E+00 4.68647E-01 0.00000E+00 5.27341E+00 3.05368E+00 2.01220E+00 4.96228E+00 4.67037E+00 0.00000E+00 3.26370E-01 0.00000E+00 1 0 0 0 0 1.65824E-01 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 -4.64188E+00 3.46574E-02 3.49844E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00002E+00 0.00000E+00 +8.62098E-01 3.73125E+00 7.00692E-01 0.00000E+00 9.88889E-01 0.00000E+00 2.88466E-01 5.33382E+00 3.04897E+00 5.12037E+00 6.22961E+00 0.00000E+00 -9.31924E-01 0.00000E+00 1 0 0 0 0 3.86053E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 2.82330E+00 9.04100E-02 1.80415E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.16114E+00 0.00000E+00 +3.46578E-02 4.46387E+00 5.12970E-01 0.00000E+00 -8.91112E-01 0.00000E+00 6.41980E+00 7.07251E+00 6.09954E+00 4.90064E+00 3.89398E+00 0.00000E+00 5.20810E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +2.72698E+00 2.58793E+00 9.00000E-01 0.00000E+00 1.00000E+00 0.00000E+00 1.43984E+01 5.14046E+00 6.67706E-01 1.14234E+00 3.01613E+00 0.00000E+00 2.44037E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.47035E-02 5.09875E+00 5.04219E-01 0.00000E+00 8.91590E-01 0.00000E+00 6.59671E-01 3.60321E-01 3.49066E-02 4.60251E-02 4.05916E+00 0.00000E+00 -2.08514E-02 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.46599E-02 5.09831E+00 4.71043E-01 0.00000E+00 4.96533E-01 0.00000E+00 6.71879E-01 3.31190E-01 7.55743E-02 8.68816E-02 4.24439E+00 0.00000E+00 2.25158E-02 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.74845E-02 5.08895E+00 1.55634E-01 0.00000E+00 -7.28288E-01 0.00000E+00 5.35658E-01 6.28217E-02 3.46574E-02 4.21658E-02 4.76316E+00 0.00000E+00 2.43749E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.46579E-02 2.78072E+00 9.00000E-01 0.00000E+00 -9.99516E-01 0.00000E+00 2.45365E+00 6.02447E+00 3.53157E-02 5.50721E+00 4.25319E+00 0.00000E+00 5.55443E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.47629E-02 5.15825E+00 6.75281E-01 0.00000E+00 1.00000E+00 0.00000E+00 5.29977E-01 5.94692E+00 2.12632E+00 5.32595E+00 5.02401E+00 0.00000E+00 6.98022E-01 0.00000E+00 1 0 0 0 0 3.84865E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -7.68570E+00 3.92230E-02 8.86179E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 9.99600E-01 0.00000E+00 +3.46589E-02 5.14054E+00 3.09344E-01 0.00000E+00 7.55465E-01 0.00000E+00 8.64675E+00 4.56216E+00 7.60156E+00 2.16120E-01 3.18280E+00 0.00000E+00 7.71626E-02 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.46626E-02 4.59525E+00 6.70482E-01 0.00000E+00 9.98615E-01 0.00000E+00 2.27779E+00 6.15674E+00 2.47068E+00 5.34326E+00 1.31224E+00 0.00000E+00 -1.25169E-01 0.00000E+00 1 0 0 0 0 3.46578E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.37751E-02 -4.92279E-01 1.39322E+00 1.53857E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.42315E+00 0.00000E+00 +4.82225E+00 3.40841E+00 6.65188E-01 0.00000E+00 9.96584E-01 0.00000E+00 1.57438E+00 5.83803E+00 2.52051E+00 5.14874E+00 5.28915E+00 0.00000E+00 -3.29340E-01 0.00000E+00 1 0 0 0 0 3.71778E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 3.10474E+00 8.71437E-02 1.46444E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.11272E+00 0.00000E+00 +3.48212E-02 4.52622E+00 5.71513E-01 0.00000E+00 9.99715E-01 0.00000E+00 1.14151E+00 9.48303E-01 3.46617E-02 9.92175E+00 4.07600E+00 0.00000E+00 4.69311E-01 0.00000E+00 1 0 0 0 0 3.15315E-01 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00907E-01 7.49595E+00 5.05569E+01 2.25084E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+01 0.00000E+00 +2.20138E+00 2.96657E+00 5.24561E-01 0.00000E+00 9.94153E-01 0.00000E+00 2.25014E+00 6.17356E+00 1.60783E+00 5.22631E+00 3.87712E+00 0.00000E+00 6.15718E-01 0.00000E+00 1 0 0 0 0 1.23959E-01 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 9.56493E-01 6.79183E-02 1.49726E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.43421E+00 0.00000E+00 +1.60652E+00 3.72149E+00 7.24008E-01 0.00000E+00 9.99546E-01 0.00000E+00 1.48146E-01 6.01322E+00 3.57132E-02 5.00817E+00 6.48242E+00 0.00000E+00 -9.96397E-01 0.00000E+00 1 0 0 0 0 3.46797E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -1.57206E+00 3.50256E-02 1.87839E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 9.74397E-01 0.00000E+00 +3.47326E-02 4.55046E+00 7.27910E-01 0.00000E+00 9.95261E-01 0.00000E+00 8.19747E-01 5.98971E+00 3.47676E-02 5.37011E+00 4.41816E+00 0.00000E+00 4.43236E-01 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 5.55281E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 1.57257E+00 +3.27904E+00 3.26999E+00 7.54352E-01 0.00000E+00 9.99576E-01 0.00000E+00 1.64589E+00 6.15598E+00 2.96046E-01 5.34135E+00 4.44316E+00 0.00000E+00 2.52188E-01 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.82464E-02 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 -4.74670E-03 +3.42380E+00 1.22887E+00 9.00000E-01 0.00000E+00 9.99672E-01 0.00000E+00 4.86590E+00 6.32326E+00 1.12727E-01 5.18911E+00 3.56132E+00 0.00000E+00 5.75126E-01 0.00000E+00 1 0 0 0 0 6.94340E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.55619E-02 -1.70312E+00 1.80914E+01 4.35390E-01 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.88453E+00 0.00000E+00 +3.46710E-02 4.95669E+00 6.04046E-01 0.00000E+00 -6.76790E-01 0.00000E+00 1.70302E+00 5.91142E+00 4.60400E-01 6.09915E+00 3.37648E+00 0.00000E+00 6.51286E-01 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.10924E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 3.41926E-01 +3.47258E-02 5.24509E+00 6.56205E-01 0.00000E+00 9.67802E-01 0.00000E+00 3.00032E+00 8.31601E+00 2.80541E+00 4.46214E+00 1.36151E+00 0.00000E+00 6.82412E-01 0.00000E+00 1 0 0 0 0 3.46574E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00908E-01 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 8.54380E+00 +1.20595E-01 4.37444E+00 2.52255E-01 0.00000E+00 -9.99908E-01 0.00000E+00 8.30188E-01 3.60469E-02 1.53706E-01 1.22822E-01 4.44863E+00 0.00000E+00 3.82358E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.46578E-02 4.46387E+00 5.12970E-01 0.00000E+00 -8.91112E-01 0.00000E+00 6.41980E+00 7.07251E+00 6.09954E+00 4.90064E+00 3.89398E+00 0.00000E+00 5.20810E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +2.72698E+00 2.58793E+00 9.00000E-01 0.00000E+00 1.00000E+00 0.00000E+00 1.43984E+01 5.14046E+00 6.67706E-01 1.14234E+00 3.01613E+00 0.00000E+00 2.44037E-01 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.46589E-02 5.14054E+00 3.09344E-01 0.00000E+00 7.55465E-01 0.00000E+00 8.64675E+00 4.56216E+00 7.60156E+00 2.16120E-01 3.18280E+00 0.00000E+00 7.71626E-02 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.46589E-02 5.14054E+00 3.09344E-01 0.00000E+00 7.55465E-01 0.00000E+00 8.64675E+00 4.56216E+00 7.60156E+00 2.16120E-01 3.18280E+00 0.00000E+00 7.71626E-02 0.00000E+00 1 0 0 0 0 0.00000E+00 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 1.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.00000E+00 0.00000E+00 +3.46626E-02 4.59525E+00 6.70482E-01 0.00000E+00 9.98615E-01 0.00000E+00 2.27779E+00 6.15674E+00 2.47068E+00 5.34326E+00 1.31224E+00 0.00000E+00 -1.25169E-01 0.00000E+00 1 0 0 0 0 3.46578E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.37751E-02 -4.92279E-01 1.39322E+00 1.53857E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.42315E+00 0.00000E+00 +3.46626E-02 4.59525E+00 6.70482E-01 0.00000E+00 9.98615E-01 0.00000E+00 2.27779E+00 6.15674E+00 2.47068E+00 5.34326E+00 1.31224E+00 0.00000E+00 -1.25169E-01 0.00000E+00 1 0 0 0 0 3.46578E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.37751E-02 -4.92279E-01 1.39322E+00 1.53857E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.42315E+00 0.00000E+00 +3.46626E-02 4.59525E+00 6.70482E-01 0.00000E+00 9.98615E-01 0.00000E+00 2.27779E+00 6.15674E+00 2.47068E+00 5.34326E+00 1.31224E+00 0.00000E+00 -1.25169E-01 0.00000E+00 1 0 0 0 0 3.46578E-02 0 0.00000E+00 0 0.00000E+00 0.00000E+00 0.00000E+00 0 1.00000E+00 7.37751E-02 -4.92279E-01 1.39322E+00 1.53857E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 0.00000E+00 1.00000E+00 1.00000E+00 1.42315E+00 0.00000E+00 diff --git a/PARAM/scinter_GB_ext_lip_nano.parm b/PARAM/scinter_GB_ext_lip_nano.parm new file mode 100644 index 0000000..f64e011 --- /dev/null +++ b/PARAM/scinter_GB_ext_lip_nano.parm @@ -0,0 +1,300 @@ +4 6 + 5.6053537261 6.2200032154 6.2159898496 6.4386968963 + 6.2098101231 5.9596374798 5.4310222662 4.8790085257 + 5.2638423822 5.4961954124 4.2928124162 4.3582250540 + 4.2667755921 3.6813845958 3.5405429647 3.7026985912 + 4.7177596156 3.3811992227 3.7936085458 4.5157490585 + 6.2200032154 6.2159898496 5.2638423822 5.2638423822 + 4.8790085257 4.2928124162 4.3582250540 + + 6.6296746680 6.6717260508 6.8168876945 6.8378960152 + 6.3512039986 6.1425192423 5.5200206406 5.4858936024 + 4.9382573262 4.2795129166 4.0534857018 4.2086428525 + 3.5388086279 3.4209730327 2.7995744193 4.8164268553 + 3.8790755071 3.5878262177 4.6457432555 6.6296746680 + 6.6717260508 5.4858936024 5.4858936024 5.5200206406 + 4.2795129166 4.0534857018 + + 6.6424306340 6.9715947250 6.9241225787 6.5291325353 + 6.1394821460 5.4415971840 5.2914044780 4.7881880526 + 4.1302408718 3.9405275117 3.9022731880 3.6078928145 + 3.0809713206 3.0182595342 4.7935507272 3.8711928134 + 3.6826168780 4.4872661030 6.6717260508 6.6424306340 + 5.2914044780 5.2914044780 5.4415971840 4.1302408718 + 3.9405275117 + + 7.3271707934 7.2970176793 7.0494948235 6.2565687662 + 5.8133715113 5.8845382769 5.3463553241 4.7146928716 + 4.4864793359 4.3092352779 3.6928361281 4.0100566871 + 3.6584608489 4.5901676001 4.4681844010 4.6334334282 + 4.9023945082 6.8168876945 6.9715947250 5.8845382769 + 5.8845382769 5.8133715113 4.7146928716 4.4864793359 + + 7.0106342493 6.8341607204 6.2047876082 5.5802122247 + 5.6716968726 5.2011344932 4.1966522349 4.2383931955 + 3.8954073453 3.5679086118 3.1136348127 2.7622561241 + 4.5092053374 4.0238412606 3.9799853578 4.8087180377 + 6.8378960152 6.9241225787 5.6716968726 5.6716968726 + 5.5802122247 5.2011344932 4.1966522349 + + 6.5353606708 5.8844482033 5.1100976261 5.5515360893 + 4.9587559238 4.2030790774 4.0351600709 3.6506289806 + 3.4640416936 3.1611022087 2.7976192835 4.0422832763 + 3.4415952740 3.8620694983 4.5934246009 6.3512039986 + 6.5291325353 5.5515360893 5.5515360893 5.1100976261 + 4.9587559238 4.2030790774 + + 5.2828811325 4.8298466315 4.7575327777 4.7249779042 + 3.5656384285 3.5613366567 3.9273045564 3.7664779118 + 3.5861699761 3.5523191627 4.6508672463 4.2424308260 + 4.0987727783 4.5079669929 6.1425192423 6.1394821460 + 4.7575327777 4.7575327777 4.8298466315 4.7249779042 + 3.5656384285 + + 4.2222645754 4.1627149417 3.9786372270 3.1623319201 + 2.9379696734 3.1365985188 2.8025851476 2.6576343487 + 2.8733395837 3.8785891655 3.4443068252 3.4405132673 + 4.0915305763 5.5200206406 5.4415971840 4.1627149417 + 4.1627149417 4.2222645754 3.9786372270 3.1623319201 + + 4.3860654351 3.6520014167 3.0264937881 2.5680579493 + 2.5001857370 2.1393094782 1.4707077389 1.7373181916 + 3.1045342752 2.0152329038 1.8196209136 3.6395852546 + 5.4858936024 5.2914044780 4.3860654351 4.3860654351 + 4.1627149417 3.6520014167 3.0264937881 + + 2.5016557935 2.7879606493 2.1424756816 1.0741544747 + 1.3236438850 -.2712356678 .7613312181 2.8627348285 + 1.5002127649 -.2392577636 3.5381128985 4.9382573262 + 4.7881880526 3.6520014167 3.6520014167 3.9786372270 + 2.5016557935 2.7879606493 + + 2.2903847447 2.2466771550 1.5053607856 1.4031797188 + .9676209687 1.3075541842 2.8595118604 1.9833053538 + -.0085773647 2.9557553666 4.2795129166 4.1302408718 + 3.0264937881 3.0264937881 3.1623319201 2.7879606493 + 2.2903847447 + + 1.2800038243 .7689806100 .9119606366 -.0744371793 + .3669965427 2.4288563200 1.4975482174 -.2134101897 + 2.9415021479 4.0534857018 3.9405275117 2.5680579493 + 2.5680579493 2.9379696734 2.1424756816 2.2466771550 + + -.6792428859 .4532383239 -.7590387660 -.3617034846 + 1.6803275058 .6775209988 -.5354837468 2.6208591363 + 4.2086428525 3.9022731880 2.5001857370 2.5001857370 + 3.1365985188 1.0741544747 1.5053607856 + + .4136122500 -.1637152873 .2212564728 2.1287126020 + .3896388275 -.2354089650 2.3255326077 3.5388086279 + 3.6078928145 2.1393094782 2.1393094782 2.8025851476 + 1.3236438850 1.4031797188 + + -3.5193531074 -2.0157307929 1.8355926160 2.7489174124 + 2.0098391558 1.7975718667 3.4209730327 3.0809713206 + 1.4707077389 1.4707077389 2.6576343487 -.2712356678 + .9676209687 + + -1.3532688232 2.5504275249 2.8202873790 1.6253609671 + 1.8625091247 2.7995744193 3.0182595342 1.7373181916 + 1.7373181916 2.8733395837 .7613312181 1.3075541842 + + 3.7292778697 2.2944436481 -.0303565255 3.1115776177 + 4.8164268553 4.7935507272 3.1045342752 3.1045342752 + 3.8785891655 2.8627348285 2.8595118604 + + -.0827362961 -1.6043113182 2.4439837435 3.8790755071 + 3.8711928134 2.0152329038 2.0152329038 3.4443068252 + 1.5002127649 1.9833053538 + + -4.3897783280 2.3664634533 3.5878262177 3.6826168780 + 1.8196209136 1.8196209136 3.4405132673 -.2392577636 + -.0085773647 + + 4.1927969260 4.6457432555 4.4872661030 3.6395852546 + 3.6395852546 4.0915305763 3.5381128985 2.9557553666 + + 6.6296746680 6.6717260508 5.4858936024 5.4858936024 + 5.5200206406 4.9382573262 4.2795129166 + + 6.6424306340 5.2914044780 5.2914044780 5.4415971840 + 4.7881880526 4.1302408718 + + 4.3860654351 4.3860654351 4.1627149417 3.6520014167 + 3.0264937881 + + 4.3860654351 4.1627149417 3.6520014167 3.0264937881 + + 4.2222645754 3.9786372270 3.1623319201 + + 2.5016557935 2.7879606493 + + 2.2903847447 + + + 2.6748060017 2.7338810145 2.9664647229 2.8819636737 + 3.0210738150 2.8414286152 2.4773438660 2.4611943788 + 2.4653201213 2.4925087371 2.5734767751 2.4564026744 + 2.4847825281 2.4889289233 2.5089517645 2.5083338383 + 2.4220622723 2.2714609770 2.4520703089 2.7026129788 + 2.7338810145 2.9664647229 1.5000000000 1.5000000000 + 2.4611943788 2.5734767751 2.4564026744 + + 4.9272154761 5.1054284230 4.2073516165 4.8513972837 + 2.7848875293 3.5829861634 7.8660217576 7.4299209847 + 1.9625939832 .7987769569 4.0580899681 1.8889021032 + 3.1987197026 3.2673274538 2.6848131904 2.0043027404 + 6.2446341910 8.1959452095 13.4748295858 2.6632376837 + 5.1054284230 4.2073516165 1.9625939832 1.9625939832 + 7.4299209847 4.0580899681 1.8889021032 + + .8699023011 1.0540660014 .9385909298 1.0263274101 + 1.0835277045 1.0543183886 .7888686996 .8989305833 + 1.0039962875 1.2427518128 .8932801724 .9173928990 + 1.6157695657 1.4315860373 2.0498317879 1.4199615546 + .9933677971 1.4319625600 27.4951763288 .7788025286 + 1.0540660014 .9385909298 1.0039962875 1.0039962875 + .8989305833 .8932801724 .9173928990 + + .0103697556 .0611385674 .0448303346 .0392831782 + .0854166338 .0398896619 .0249496569 .0232410908 + .0861379100 -.0754794185 -.0266146021 -.0163429099 + .0572167103 -.0468608825 .0151048455 .0084963678 + .0278930397 .0076922911 .1033536738 -.0098256036 + .0611385674 .0448303346 .0861379100 .0861379100 + .0232410908 -.0266146021 -.0163429099 + + 2.252000 2.758289 2.828747 2.573807 + 2.573807 2.314337 3.329045 3.123838 + 1.679138 1.245463 2.417517 2.138542 + 2.902927 2.675567 2.916240 2.690005 + 2.934561 3.360153 2.904943 2.252400 + 2.822849 3.512073 2.021838 2.021838 + 0.000000 0.000000 0.000000 + + 3.378400 3.464698 3.152444 3.152444 + 2.834641 4.077473 3.826132 2.056637 + 1.525464 2.961017 2.619323 3.555555 + 3.277081 3.571861 3.294765 3.594301 + 4.115573 3.558025 2.758779 3.457474 + 4.301648 2.476383 2.476383 0.000000 + 0.000000 0.000000 + + 3.553200 3.232970 3.232970 2.907049 + 4.181627 3.923866 2.109172 1.564431 + 3.036654 2.686231 3.646378 3.360790 + 3.663100 3.378926 3.686114 4.220702 + 3.648911 2.829249 3.545792 4.411529 + 2.539639 2.539639 0.000000 0.000000 + 0.000000 + + 2.941600 2.941600 2.645052 3.804760 + 3.570230 1.919084 1.423437 2.762977 + 2.444136 3.317750 3.057901 3.332965 + 3.074402 3.353905 3.840313 3.320055 + 2.574264 3.226230 4.013942 2.310756 + 2.310756 0.000000 0.000000 0.000000 + + + 2.941600 2.645052 3.804760 3.570230 + 1.919084 1.423437 2.762977 2.444136 + 3.317750 3.057901 3.332965 3.074402 + 3.353905 3.840313 3.320055 2.574264 + 3.226230 4.013942 2.310756 2.310756 + 0.000000 0.000000 0.000000 + + 2.378400 3.421196 3.210309 1.725618 + 1.279938 2.484436 2.197739 2.983282 + 2.749629 2.996964 2.764467 3.015792 + 3.453165 2.985354 2.314748 2.900988 + 3.609290 2.077805 2.077805 0.000000 + 0.000000 0.000000 + + 4.921200 4.617850 2.482205 1.841120 + 3.573723 3.161325 4.291286 3.955188 + 4.310965 3.976531 4.338049 4.967185 + 4.294266 3.329637 4.172909 5.191762 + 2.988806 2.988806 0.000000 0.000000 + 0.000000 + + 4.333200 2.329199 1.727631 3.353434 + 2.966456 4.026765 3.711385 4.045231 + 3.731412 4.070646 4.661001 4.029562 + 3.124393 3.915686 4.871735 2.804572 + 2.804572 0.000000 0.000000 0.000000 + + 1.252000 0.9286429 1.802551 1.594541 + 2.164482 1.994958 2.174409 2.005723 + 2.188069 2.505400 2.165986 1.679436 + 2.104775 2.618674 1.507524 1.507524 + 0.000000 0.000000 0.000000 + + 0.6888000 1.337002 1.182715 1.605456 + 1.479715 1.612819 1.487700 1.622951 + 1.858324 1.606571 1.245684 1.561169 + 1.942343 1.118173 1.118173 0.000000 + 0.000000 0.000000 + + 2.595200 2.295720 3.116286 2.872216 + 3.130577 2.887715 3.150245 3.607117 + 3.118450 2.417947 3.030323 3.770203 + 2.170439 2.170439 0.000000 0.000000 + 0.000000 + + 2.030800 2.756675 2.540769 2.769316 + 2.554480 2.786715 3.190865 2.758589 + 2.138922 2.680631 3.335131 1.919976 + 1.919976 0.000000 0.000000 0.000000 + + 3.742000 3.448923 3.759161 3.467535 + 3.782778 4.331384 3.744599 2.903442 + 3.638776 4.527216 2.606238 2.606238 + 0.000000 0.000000 0.000000 + + 3.178800 3.464740 3.195954 3.486507 + 3.992146 3.451319 2.676042 3.353784 + 4.172640 2.402115 2.402115 0.000000 + 0.000000 0.000000 + + -7.2938 -4.0239 3.800125 5.9101 + 3.8743 2.916757 3.655463 4.547977 + 2.618191 2.618191 0.000000 0.000000 + 0.000000 + + -3.0057 3.505321 6.0636 3.5303 + 2.690483 3.371882 4.195157 2.415078 + 2.415078 0.000000 0.000000 0.000000 + + 3.824000 4.378585 3.785405 2.935082 + 3.678429 4.576550 2.634640 2.634640 + 0.000000 0.000000 0.000000 + + -0.1779 -3.4493 3.360749 4.211903 + 5.240276 3.016734 3.016734 0.000000 + 0.000000 0.000000 + + -9.4378 2.905459 3.641304 4.530360 + 2.608049 2.608049 0.000000 0.000000 + 0.000000 + + 2.252800 2.823350 3.512697 2.022197 + 2.022197 0.000000 0.000000 0.000000 + + + 3.538400 4.402332 2.534345 2.534345 + 0.000000 0.000000 0.000000 + + 5.477200 3.153127 3.153127 0.000000 + 0.000000 0.000000 + + 1.815200 1.815200 0.000000 0.000000 + 0.000000 + + 1.815200 0.000000 0.000000 0.000000 + + 0.000000 0.000000 0.000000 + + 0.000000 0.000000 + + 0.000000 + diff --git a/PARAM/scparm.momo b/PARAM/scparm.momo new file mode 100644 index 0000000..ed29461 --- /dev/null +++ b/PARAM/scparm.momo @@ -0,0 +1,212 @@ + 6 6 0 +0 0 0 0 0 0 0 0 0 0 2 2 2 2 -1 -1 2 1 1 0 +0.000210 6.89 0.100 0.100 -0.188 -0.188 0.50 3.24 3.88 32.100 5.330 5.33 0.08 0.08 1 0.00 0.00 0.00 0.00 0.60 0.00 0.60 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 2.82 184.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Cys Cys +0.001570 5.70 0.003 0.286 -0.998 0.207 0.50 3.56 3.72 4.400 4.030 7.57 -0.04 0.04 1 0.00 0.00 0.00 0.00 0.60 0.00 1.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Met Cys +0.055600 4.39 0.587 0.587 0.892 0.892 9.13 -0.27 0.66 33.100 9.590 9.59 0.21 0.21 1 0.00 0.00 0.00 0.00 2.50 0.00 2.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Met Met +0.000020 7.55 -0.011 0.167 -0.998 -0.036 0.00 0.05 2.26 4.700 3.550 6.67 0.03 0.20 1 0.00 0.00 0.00 0.00 0.60 0.00 1.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Phe Cys +0.000800 6.01 0.374 0.370 -0.487 0.078 0.60 4.39 4.00 4.500 7.780 3.78 0.28 0.17 1 0.00 0.00 0.00 0.00 2.50 0.00 2.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Phe Met +0.058900 4.76 0.581 0.581 0.914 0.914 0.84 2.88 2.84 33.100 10.800 10.80 0.16 0.16 1 0.00 0.00 0.00 0.00 2.50 0.00 2.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Phe Phe +0.000290 7.36 -0.030 0.186 -0.998 0.225 0.80 4.59 4.41 4.400 3.730 7.02 0.04 0.08 1 0.00 0.00 0.00 0.00 0.60 0.00 1.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Ile Cys +0.010800 5.45 0.444 0.464 0.419 0.960 42.40 -0.07 0.22 32.700 6.900 7.04 0.27 0.21 1 0.00 0.00 0.00 0.00 2.50 0.00 2.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Ile Met +0.000600 6.79 0.346 0.279 -0.372 0.371 0.80 4.44 3.96 4.500 8.000 3.89 0.25 0.13 1 0.00 0.00 0.00 0.00 2.50 0.00 2.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Ile Phe +0.010700 6.20 0.322 0.322 0.546 0.546 135.50 -0.59 0.42 14.400 10.400 10.40 0.17 0.17 1 0.00 0.00 0.00 0.00 2.50 0.00 2.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Ile Ile +0.000290 7.36 -0.030 0.186 -0.998 0.225 0.80 4.59 4.41 4.400 3.730 7.02 0.04 0.08 1 0.00 0.00 0.00 0.00 0.60 0.00 1.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Leu Cys +0.010800 5.45 0.444 0.464 0.419 0.960 42.40 -0.07 0.22 32.700 6.900 7.04 0.27 0.21 1 0.00 0.00 0.00 0.00 2.50 0.00 2.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Leu Met +0.000600 6.79 0.346 0.279 -0.372 0.371 0.80 4.44 3.96 4.500 8.000 3.89 0.25 0.13 1 0.00 0.00 0.00 0.00 2.50 0.00 2.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Leu Phe +0.010700 6.20 0.322 0.000 0.546 0.000 135.50 -0.59 0.42 14.400 10.400 0.00 0.17 0.00 1 0.00 0.00 0.00 0.00 2.50 0.00 2.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Leu Ile +0.010700 6.20 0.322 0.322 0.546 0.546 135.50 -0.59 0.42 14.400 10.400 10.40 0.17 0.17 1 0.00 0.00 0.00 0.00 2.50 0.00 2.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Leu Leu +0.002470 6.21 0.001 0.009 -0.998 0.078 1.00 4.58 4.23 4.400 3.600 6.76 0.07 0.05 1 0.00 0.00 0.00 0.00 0.60 0.00 1.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Val Cys +0.016800 5.21 0.586 0.253 0.969 0.531 12.80 0.50 0.75 11.000 4.630 6.42 0.06 -0.07 1 0.00 0.00 0.00 0.00 2.50 0.00 2.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Val Met +0.001800 6.02 0.308 0.414 0.734 0.314 1.00 2.77 2.49 3.800 4.280 8.04 0.04 0.20 1 0.00 0.00 0.00 0.00 2.50 0.00 2.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Val Phe +0.023600 5.69 0.425 0.245 0.990 0.250 30.10 0.05 0.30 31.900 5.690 7.89 0.07 -0.20 1 0.00 0.00 0.00 0.00 2.50 0.00 2.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Val Ile +0.023600 5.69 0.425 0.245 0.990 0.250 30.10 0.05 0.30 31.900 5.690 7.89 0.07 -0.20 1 0.00 0.00 0.00 0.00 2.50 0.00 2.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Val Leu +0.002300 7.05 0.158 0.158 0.267 0.267 149.80 -0.56 0.45 5.840 8.890 8.89 0.10 0.10 1 0.00 0.00 0.00 0.00 2.50 0.00 2.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Val Val +0.000030 7.11 0.112 0.089 -0.998 -0.032 0.20 3.69 3.44 4.100 4.830 9.08 -0.10 -0.13 1 0.00 0.00 0.00 0.00 1.50 0.00 0.60 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Trp Cys +0.001800 5.46 0.481 0.411 -0.505 0.191 0.60 4.24 4.12 4.500 8.160 3.97 0.22 0.15 1 0.00 0.00 0.00 0.00 2.50 0.00 2.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Trp Met +0.046000 4.64 0.591 0.681 0.896 0.998 0.60 3.04 5.19 4.100 10.340 5.03 0.06 0.53 1 0.00 0.00 0.00 0.00 2.50 0.00 2.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Trp Phe +0.006200 5.33 0.547 0.445 0.428 0.978 0.60 4.37 4.03 4.500 8.230 4.00 0.23 0.02 1 0.00 0.00 0.00 0.00 2.50 0.00 2.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Trp Ile +0.006200 5.33 0.547 0.445 0.428 0.978 0.60 4.37 4.03 4.500 8.230 4.00 0.23 0.02 1 0.00 0.00 0.00 0.00 2.50 0.00 2.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Trp Leu +0.002400 5.72 0.505 0.310 0.424 0.779 0.60 4.35 4.05 4.500 8.230 4.00 0.19 -0.07 1 0.00 0.00 0.00 0.00 2.50 0.00 2.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Trp Val +0.189100 3.86 0.750 0.750 0.992 0.992 6.82 -1.03 0.35 32.700 8.720 8.72 0.00 0.00 1 0.00 0.00 0.00 0.00 2.50 0.00 2.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Trp Trp +0.000730 5.61 0.101 0.148 -0.997 0.120 0.00 4.23 4.34 4.200 4.310 8.11 -0.10 -0.07 1 0.00 0.00 0.00 0.00 0.60 0.00 0.60 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 1.70 179.36 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Tyr Cys +0.000040 7.13 0.062 0.203 -0.998 0.074 0.60 3.84 3.31 3.900 5.220 9.81 -0.20 -0.07 1 0.00 0.00 0.00 0.00 0.60 0.00 1.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Tyr Met +0.000030 8.16 0.015 0.129 -0.998 0.056 0.50 4.59 4.11 3.800 5.230 9.83 -0.01 -0.36 1 0.00 0.00 0.00 0.00 1.50 0.00 0.60 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Tyr Phe +0.000100 7.30 0.084 0.196 -0.998 0.199 0.60 4.52 4.24 4.100 4.580 8.61 -0.08 -0.06 1 0.00 0.00 0.00 0.00 0.60 0.00 1.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Tyr Ile +0.000100 7.30 0.084 0.196 -0.998 0.199 0.60 4.52 4.24 4.100 4.580 8.61 -0.08 -0.06 1 0.00 0.00 0.00 0.00 0.60 0.00 1.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Tyr Leu +0.000050 7.85 0.083 0.081 -0.998 0.059 0.40 4.44 4.39 4.200 4.370 8.21 -0.04 -0.01 1 0.00 0.00 0.00 0.00 0.60 0.00 1.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Tyr Val +0.000010 8.49 0.027 0.091 -0.998 -0.024 0.50 4.67 3.93 3.400 5.820 10.95 -0.03 -0.33 1 0.00 0.00 0.00 0.00 1.50 0.00 0.60 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Tyr Trp +0.000180 6.88 0.065 0.065 -0.317 -0.317 0.70 4.10 3.37 32.100 8.530 8.53 -0.23 -0.23 1 0.00 0.00 0.00 0.00 0.60 0.00 0.60 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.08 183.49 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Tyr Tyr +0.002090 5.63 0.013 0.186 -0.998 0.118 0.90 4.51 4.22 4.600 3.240 6.08 0.09 0.07 1 0.00 0.00 0.00 0.00 0.60 0.00 1.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Ala Cys +0.007400 5.00 0.377 0.383 0.821 0.386 37.00 -0.01 0.20 31.300 5.380 7.46 0.10 0.83 1 0.00 0.00 0.00 0.00 2.50 0.00 2.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Ala Met +0.000100 7.17 0.142 0.206 -0.006 -0.750 0.50 4.39 3.96 4.300 3.900 7.33 0.07 0.09 1 0.00 0.00 0.00 0.00 2.50 0.00 2.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Ala Phe +0.000400 7.20 0.154 0.249 0.088 0.704 37.00 -0.00 0.25 31.300 5.340 7.41 0.10 0.13 1 0.00 0.00 0.00 0.00 2.50 0.00 2.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Ala Ile +0.000400 7.20 0.154 0.249 0.088 0.704 37.00 -0.00 0.25 31.300 5.340 7.41 0.10 0.13 1 0.00 0.00 0.00 0.00 2.50 0.00 2.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Ala Leu +0.000500 7.01 0.111 0.317 0.121 0.869 27.60 0.08 0.34 32.100 5.080 7.05 0.08 0.07 1 0.00 0.00 0.00 0.00 2.50 0.00 2.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Ala Val +0.000100 7.03 0.324 0.103 -0.290 -0.096 0.50 4.41 3.94 4.500 8.010 3.90 0.08 -0.12 1 0.00 0.00 0.00 0.00 2.50 0.00 2.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Ala Trp +0.000040 7.12 0.099 0.100 -0.998 0.023 0.30 4.37 4.23 4.200 4.260 8.01 -0.10 -0.10 1 0.00 0.00 0.00 0.00 0.60 0.00 1.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Ala Tyr +0.000500 6.40 0.238 0.238 0.503 0.503 16.60 -0.08 0.78 31.700 7.460 7.46 0.16 0.16 1 0.00 0.00 0.00 0.00 2.50 0.00 2.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Ala Ala +0.004010 5.08 0.097 0.005 -0.588 0.024 0.80 4.56 4.22 4.600 3.100 5.83 0.10 -0.00 1 0.00 0.00 0.00 0.00 0.60 0.00 1.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Gly Cys +0.000002 9.49 0.124 -0.006 -0.997 -0.085 36.10 -0.12 0.20 31.300 5.160 7.16 0.23 -0.12 1 0.00 0.00 0.00 0.00 2.50 0.00 2.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Gly Met +0.000010 6.93 0.423 0.033 -0.997 0.225 36.70 -0.55 -0.02 31.400 3.330 4.62 0.53 -0.04 1 0.00 0.00 0.00 0.00 2.50 0.00 2.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Gly Phe +0.000020 8.79 0.018 -0.011 -0.997 -0.042 36.70 -0.05 0.25 31.300 4.940 6.86 0.15 -0.07 1 0.00 0.00 0.00 0.00 2.50 0.00 2.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Gly Ile +0.000020 8.79 0.018 -0.011 -0.997 -0.042 36.70 -0.05 0.25 31.300 4.940 6.86 0.15 -0.07 1 0.00 0.00 0.00 0.00 2.50 0.00 2.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Gly Leu +0.000100 7.69 -0.036 0.007 -0.997 0.000 36.90 -0.03 0.27 31.300 4.800 6.66 0.11 -0.02 1 0.00 0.00 0.00 0.00 2.50 0.00 2.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Gly Val +0.000002 8.05 0.132 0.004 -0.997 0.014 36.20 -0.47 0.04 31.400 3.140 4.36 0.62 -0.04 1 0.00 0.00 0.00 0.00 2.50 0.00 2.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Gly Trp +0.000350 5.53 0.143 -0.013 -0.998 -0.062 0.00 3.83 3.76 4.400 3.990 7.51 -0.07 0.00 1 0.00 0.00 0.00 0.00 0.60 0.00 1.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Gly Tyr +0.000020 7.92 0.039 0.005 -0.997 0.002 36.80 -0.02 0.30 31.300 4.240 5.88 0.19 0.01 1 0.00 0.00 0.00 0.00 2.50 0.00 2.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Gly Ala +0.004000 5.13 0.000 0.000 0.000 0.000 90.00 -39.90 50.60 0.010 0.000 0.00 0.00 0.00 1 0.00 0.00 0.00 0.00 2.50 0.00 2.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Gly Gly +0.003360 5.83 -0.032 0.161 -0.997 0.084 0.70 4.47 4.32 4.500 3.360 6.31 0.13 0.07 1 0.00 0.00 0.00 0.00 0.60 0.00 0.60 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.60 179.41 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Thr Cys +0.001400 6.08 -0.032 0.240 -0.998 0.063 0.60 3.60 3.68 4.400 3.930 7.38 0.09 0.08 1 0.00 0.00 0.00 0.00 0.60 0.00 1.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Thr Met +0.000020 8.08 -0.019 0.146 -0.998 -0.056 0.00 0.04 2.19 4.700 3.430 6.45 0.16 0.21 1 0.00 0.00 0.00 0.00 0.60 0.00 1.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Thr Phe +0.004530 6.10 -0.008 0.232 -0.998 0.259 1.00 3.70 3.66 4.500 3.720 7.00 0.11 0.10 1 0.00 0.00 0.00 0.00 0.60 0.00 1.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Thr Ile +0.004530 6.10 -0.008 0.232 -0.998 0.259 1.00 3.70 3.66 4.500 3.720 7.00 0.11 0.10 1 0.00 0.00 0.00 0.00 0.60 0.00 1.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Thr Leu +0.005070 6.13 0.043 0.078 -0.553 0.012 1.00 4.60 4.21 4.400 3.620 6.80 0.12 0.05 1 0.00 0.00 0.00 0.00 0.60 0.00 1.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Thr Val +0.000006 8.23 0.128 0.115 -0.998 0.073 0.00 0.01 2.47 4.700 3.610 6.78 0.30 0.09 1 0.00 0.00 0.00 0.00 1.50 0.00 0.60 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Thr Trp +0.000030 7.52 -0.005 0.202 -0.997 0.067 0.00 2.49 3.75 4.500 3.740 7.03 0.06 0.08 1 0.00 0.00 0.00 0.00 0.60 0.00 0.60 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 1.49 179.40 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Thr Tyr +0.003690 5.57 0.042 0.176 -0.732 0.079 0.90 4.53 4.28 4.500 3.250 6.10 0.15 0.07 1 0.00 0.00 0.00 0.00 0.60 0.00 1.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Thr Ala +0.003770 5.40 0.045 -0.036 -0.669 -0.071 0.90 4.59 4.22 4.600 3.100 5.83 0.17 -0.01 1 0.00 0.00 0.00 0.00 0.60 0.00 1.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Thr Gly +0.000050 8.64 0.043 0.043 -0.252 -0.252 1.10 4.04 3.25 32.100 6.090 6.09 0.14 0.14 1 0.00 0.00 0.00 0.00 0.60 0.00 0.60 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.05 184.10 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Thr Thr +0.003910 5.43 0.024 0.177 -0.997 0.123 0.70 4.57 4.20 4.500 3.320 6.24 0.10 0.08 1 0.00 0.00 0.00 0.00 0.60 0.00 0.60 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.58 179.42 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Ser Cys +0.000120 7.04 -0.008 0.220 -0.998 0.061 0.40 4.49 4.39 4.400 3.770 7.08 0.01 0.08 1 0.00 0.00 0.00 0.00 0.60 0.00 1.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Ser Met +0.000010 7.91 -0.063 0.109 -0.998 -0.248 0.00 0.01 2.20 4.700 3.430 6.45 0.06 0.27 1 0.00 0.00 0.00 0.00 0.60 0.00 1.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Ser Phe +0.000500 6.99 0.003 0.199 -0.998 0.262 0.80 4.57 4.41 4.500 3.580 6.73 0.06 0.07 1 0.00 0.00 0.00 0.00 0.60 0.00 1.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Ser Ile +0.000500 6.99 0.003 0.199 -0.998 0.262 0.80 4.57 4.41 4.500 3.580 6.73 0.06 0.07 1 0.00 0.00 0.00 0.00 0.60 0.00 1.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Ser Leu +0.006700 5.73 0.092 0.082 -0.410 0.019 0.90 4.55 4.26 4.500 3.460 6.50 0.10 0.06 1 0.00 0.00 0.00 0.00 0.60 0.00 1.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Ser Val +0.000020 7.11 0.108 0.100 -0.998 -0.041 0.00 0.06 2.15 4.700 3.350 6.29 0.47 0.49 1 0.00 0.00 0.00 0.00 1.50 0.00 0.60 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Ser Trp +0.000020 7.60 -0.037 0.179 -0.997 0.221 0.00 2.91 3.62 4.500 3.960 7.44 -0.06 -0.00 1 0.00 0.00 0.00 0.00 0.60 0.00 0.60 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 1.58 179.38 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Ser Tyr +0.004000 5.39 0.093 0.158 -0.554 -0.061 1.10 4.59 4.28 4.600 3.070 5.77 0.14 0.11 1 0.00 0.00 0.00 0.00 0.60 0.00 1.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Ser Ala +0.006100 4.97 0.109 -0.032 -0.545 -0.079 0.90 4.63 4.19 4.600 2.980 5.60 0.16 -0.01 1 0.00 0.00 0.00 0.00 0.60 0.00 1.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Ser Gly +0.002550 5.85 -0.001 0.131 -0.997 0.067 0.70 4.53 4.25 4.500 3.340 6.27 0.10 0.14 1 0.00 0.00 0.00 0.00 0.60 0.00 0.60 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.41 179.42 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Ser Thr +0.000160 6.86 0.076 0.076 -0.315 -0.315 0.50 3.41 3.76 32.100 4.900 4.90 0.13 0.13 1 0.00 0.00 0.00 0.00 0.60 0.00 0.60 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 2.78 184.01 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Ser Ser +0.002540 5.70 -0.012 0.257 -0.997 0.250 0.40 4.37 4.36 4.400 3.640 6.85 0.01 0.03 1 0.00 0.00 0.00 0.00 0.60 0.00 0.60 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.41 179.42 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Gln Cys +0.000100 7.40 0.044 0.201 -0.998 0.217 0.60 3.72 3.54 4.200 4.420 8.31 -0.00 -0.05 1 0.00 0.00 0.00 0.00 0.60 0.00 1.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Gln Met +0.000020 7.68 0.086 0.148 -0.998 -0.042 0.00 2.66 3.95 4.400 4.090 7.70 0.02 0.09 1 0.00 0.00 0.00 0.00 0.60 0.00 1.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Gln Phe +0.001830 6.36 0.105 0.218 -0.998 0.336 0.90 3.77 3.63 4.400 4.010 7.53 0.07 0.04 1 0.00 0.00 0.00 0.00 0.60 0.00 1.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Gln Ile +0.001830 6.36 0.105 0.218 -0.998 0.336 0.90 3.77 3.63 4.400 4.010 7.53 0.07 0.04 1 0.00 0.00 0.00 0.00 0.60 0.00 1.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Gln Leu +0.000200 7.69 0.069 0.081 -0.998 0.109 1.00 3.79 3.63 4.500 3.750 7.05 0.09 0.04 1 0.00 0.00 0.00 0.00 0.60 0.00 1.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Gln Val +0.000070 6.72 0.109 0.255 -0.998 0.289 0.50 3.83 3.28 3.800 5.270 9.90 -0.12 -0.10 1 0.00 0.00 0.00 0.00 1.50 0.00 0.60 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Gln Trp +0.000820 5.66 0.072 0.259 -0.997 0.120 0.20 4.00 4.69 4.300 4.150 7.80 -0.03 -0.02 1 0.00 0.00 0.00 0.00 0.60 0.00 0.60 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.34 179.43 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Gln Tyr +0.000900 6.01 0.074 0.154 -0.998 0.109 0.60 4.51 4.18 4.430 3.640 6.85 0.06 -0.01 1 0.00 0.00 0.00 0.00 0.60 0.00 1.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Gln Ala +0.000840 5.79 0.113 -0.112 -0.755 -0.409 0.50 4.57 4.15 4.500 3.460 6.50 0.15 0.00 1 0.00 0.00 0.00 0.00 0.60 0.00 1.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Gln Gly +0.003950 5.74 -0.027 0.279 -0.997 0.267 0.50 4.43 4.31 4.400 3.610 6.79 0.12 0.12 1 0.00 0.00 0.00 0.00 0.60 0.00 0.60 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.47 179.42 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Gln Thr +0.002440 5.71 -0.015 0.231 -0.997 0.184 0.50 4.42 4.31 4.500 3.560 6.70 0.05 0.05 1 0.00 0.00 0.00 0.00 0.60 0.00 0.60 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.34 179.42 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Gln Ser +0.000170 7.27 0.118 0.118 -0.228 -0.228 0.60 3.98 3.57 32.100 6.730 6.73 0.06 0.06 1 0.00 0.00 0.00 0.00 0.60 0.00 0.60 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.02 183.34 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Gln Gln +0.001540 5.80 -0.009 0.163 -0.997 -0.039 0.50 4.44 4.29 4.500 3.520 6.62 0.06 0.09 1 0.00 0.00 0.00 0.00 0.60 0.00 0.60 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.41 179.42 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Asn Cys +0.001930 5.61 0.043 0.296 -0.998 0.285 0.50 3.60 3.67 4.400 4.070 7.66 0.00 0.00 1 0.00 0.00 0.00 0.00 0.60 0.00 1.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Asn Met +0.000030 7.43 0.014 0.158 -0.998 -0.051 0.00 0.10 2.30 4.700 3.510 6.60 0.06 0.20 1 0.00 0.00 0.00 0.00 0.60 0.00 1.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Asn Phe +0.002810 6.00 0.041 0.216 -0.998 0.217 0.70 4.40 4.46 4.400 3.660 6.87 0.09 0.06 1 0.00 0.00 0.00 0.00 0.60 0.00 1.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Asn Ile +0.002810 6.00 0.041 0.216 -0.998 0.217 0.70 4.40 4.46 4.400 3.660 6.87 0.09 0.06 1 0.00 0.00 0.00 0.00 0.60 0.00 1.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Asn Leu +0.001690 6.27 0.037 0.089 -0.998 0.058 0.80 4.61 4.22 4.400 3.720 6.98 0.12 0.04 1 0.00 0.00 0.00 0.00 0.60 0.00 1.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Asn Val +0.000040 7.18 0.082 0.117 -0.998 0.035 0.40 3.78 3.36 3.900 5.240 9.85 -0.20 -0.05 1 0.00 0.00 0.00 0.00 1.50 0.00 0.60 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Asn Trp +0.000040 7.30 0.064 0.130 -0.997 0.065 0.20 4.44 4.46 4.200 4.380 8.23 -0.05 -0.01 1 0.00 0.00 0.00 0.00 0.60 0.00 0.60 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.11 179.48 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Asn Tyr +0.002360 5.43 0.123 0.148 -0.495 -0.052 0.60 4.46 4.30 4.500 3.360 6.31 0.13 0.02 1 0.00 0.00 0.00 0.00 0.60 0.00 1.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Asn Ala +0.002350 5.17 0.120 -0.062 -0.474 -0.218 0.50 4.65 4.05 4.500 3.370 6.33 0.16 -0.01 1 0.00 0.00 0.00 0.00 0.60 0.00 1.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Asn Gly +0.002840 5.75 -0.019 0.195 -0.997 0.081 0.50 4.40 4.35 4.500 3.470 6.52 0.13 0.12 1 0.00 0.00 0.00 0.00 0.60 0.00 0.60 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.40 179.42 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Asn Thr +0.001910 5.65 0.006 0.184 -0.997 0.031 0.50 4.50 4.24 4.500 3.430 6.44 0.08 0.13 1 0.00 0.00 0.00 0.00 0.60 0.00 0.60 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.33 179.42 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Asn Ser +0.000090 7.48 0.008 0.176 -0.997 0.079 0.20 3.85 4.83 4.500 3.450 6.49 0.11 0.08 1 0.00 0.00 0.00 0.00 0.60 0.00 0.60 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.01 179.44 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Asn Gln +0.000060 7.65 0.079 0.079 -0.269 -0.269 0.03 3.16 4.26 32.100 5.650 5.65 0.10 0.10 1 0.00 0.00 0.00 0.00 0.60 0.00 0.60 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 183.35 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Asn Asn +0.000090 7.82 0.033 0.126 -0.998 0.130 1.00 4.60 4.21 4.500 3.460 6.51 0.01 0.04 1 0.00 0.00 0.00 0.00 0.50 0.00 0.60 0.00 0.60 0.00 0.0100 2.86 1.14 2.08 0.00 1.15 0.00 0.69 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Glu Cys +0.001590 6.00 -0.311 0.205 -0.998 0.011 7.60 3.86 0.64 13.500 4.410 7.95 -0.25 0.15 1 0.00 0.00 0.00 0.00 0.50 0.00 1.50 0.00 0.60 0.00 0.0000 0.00 2.80 3.52 0.00 0.00 0.00 1.26 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Glu Met +0.000800 6.25 -0.422 0.150 -0.998 -0.300 7.30 0.01 0.48 13.600 4.060 7.32 -0.23 0.26 1 0.00 0.00 0.00 0.00 0.50 0.00 1.50 0.00 0.60 0.00 0.0000 0.00 2.07 2.72 0.00 0.00 0.00 1.24 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Glu Phe +0.000470 7.34 -0.150 0.195 -0.998 0.348 7.70 0.55 0.79 13.600 4.190 7.55 0.35 -0.12 1 0.00 0.00 0.00 0.00 0.50 0.00 1.50 0.00 0.60 0.00 0.0000 0.00 2.76 3.49 0.00 0.00 0.00 0.08 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Glu Ile +0.000470 7.34 -0.150 0.195 -0.998 0.348 7.70 0.55 0.79 13.600 4.190 7.55 0.35 -0.12 1 0.00 0.00 0.00 0.00 0.50 0.00 1.50 0.00 0.60 0.00 0.0000 0.00 2.76 3.49 0.00 0.00 0.00 0.08 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Glu Leu +0.000110 8.25 -0.117 0.079 -0.998 0.148 7.60 0.64 0.84 13.600 4.070 7.33 -0.08 0.06 1 0.00 0.00 0.00 0.00 0.50 0.00 1.50 0.00 0.60 0.00 0.0000 0.00 1.86 2.96 0.00 0.00 0.00 1.10 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Glu Val +0.000590 5.95 -0.587 0.202 -0.998 -0.335 4.90 0.01 0.53 13.700 4.130 7.44 -0.29 0.29 1 0.00 0.00 0.00 0.00 0.50 0.00 1.50 0.00 0.60 0.00 0.0000 0.00 1.45 2.63 0.00 0.00 0.00 1.16 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Glu Trp +0.000006 9.65 -0.043 0.135 -0.998 -0.029 0.00 0.00 2.33 4.800 3.400 4.55 -0.07 0.29 1 0.00 0.00 0.00 0.00 0.50 0.00 0.60 0.00 0.60 0.00 0.0100 2.25 1.03 2.02 0.00 1.00 0.00 0.03 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Glu Tyr +0.000240 7.01 -0.149 0.139 -0.998 0.184 7.60 0.52 0.77 13.600 3.790 6.83 -0.13 0.06 1 0.00 0.00 0.00 0.00 0.50 0.00 1.50 0.00 0.60 0.00 0.0000 0.00 1.68 2.70 0.00 0.00 0.00 0.98 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Glu Ala +0.000190 6.83 -0.140 -0.031 -0.998 -0.110 7.60 0.53 0.72 13.600 3.540 6.39 -0.05 0.03 1 0.00 0.00 0.00 0.00 0.50 0.00 1.50 0.00 0.60 0.00 0.0000 0.00 1.60 2.65 0.00 0.00 0.00 0.82 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Glu Gly +0.000210 7.52 0.042 0.098 -0.998 0.129 0.80 4.60 4.19 4.500 3.550 6.67 0.04 0.08 1 0.00 0.00 0.00 0.00 0.50 0.00 0.60 0.00 0.60 0.00 0.0100 2.96 0.93 1.96 0.01 1.12 0.00 0.08 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Glu Thr +0.000270 6.91 0.050 0.098 -0.998 -0.026 0.70 4.67 4.10 4.500 3.410 6.42 0.11 0.16 1 0.00 0.00 0.00 0.00 0.50 0.00 0.60 0.00 0.60 0.00 0.0100 3.37 0.96 1.98 5.29 1.24 0.00 0.09 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Glu Ser +0.000150 7.51 0.035 0.195 -0.998 0.187 0.70 4.62 4.10 4.400 3.820 7.18 -0.01 0.05 1 0.00 0.00 0.00 0.00 0.50 0.00 0.60 0.00 0.60 0.00 0.0100 2.82 1.05 2.03 0.00 1.19 0.00 0.18 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Glu Gln +0.002240 5.76 0.072 0.211 -0.998 0.162 0.70 4.48 4.27 4.500 3.570 6.72 -0.04 0.08 1 0.00 0.00 0.00 0.00 0.50 0.00 0.60 0.00 0.60 0.00 0.0100 2.96 1.04 2.02 0.01 1.16 0.00 0.63 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Glu Asn +0.000002 5.57 -0.996 -0.996 -0.990 -0.990 0.08 -62.40 6.34 13.000 4.530 4.53 0.08 0.08 1 0.00 0.00 0.00 0.00 0.50 0.00 0.50 0.00 0.60 0.60 0.0080 4.89 0.34 0.34 0.00 0.00 0.00 0.84 0.84 13.60 -13.80 0.52 33.30 9.31 9.31 1.00 Glu Glu +0.002000 5.94 -0.019 0.151 -0.998 0.067 1.00 4.64 4.18 4.500 3.260 6.13 0.10 0.06 1 0.00 0.00 0.00 0.00 0.50 0.00 0.60 0.00 0.50 0.00 0.0100 3.60 2.96 3.97 0.13 0.99 0.00 0.86 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Asp Cys +0.001900 5.53 -0.594 0.266 -0.998 -0.224 7.50 0.01 0.50 13.700 3.630 6.54 -0.11 0.34 1 0.00 0.00 0.00 0.00 0.50 0.00 1.50 0.00 0.50 0.00 0.0000 0.00 2.53 3.29 0.00 0.00 0.00 1.24 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Asp Met +0.000880 6.23 -0.445 0.162 -0.998 -0.255 5.30 0.01 0.56 13.700 3.810 6.86 -0.07 0.31 1 0.00 0.00 0.00 0.00 0.50 0.00 1.50 0.00 0.50 0.00 0.0000 0.00 2.08 2.99 0.00 0.00 0.00 1.25 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Asp Phe +0.002780 6.15 -0.232 0.249 -0.998 0.356 7.40 0.00 0.55 13.700 3.580 6.45 -0.05 0.13 1 0.00 0.00 0.00 0.00 0.50 0.00 1.50 0.00 0.50 0.00 0.0000 0.00 2.68 3.54 0.00 0.00 0.00 1.30 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Asp Ile +0.002780 6.15 -0.232 0.249 -0.998 0.356 7.40 0.00 0.55 13.700 3.580 6.45 -0.05 0.13 1 0.00 0.00 0.00 0.00 0.50 0.00 1.50 0.00 0.50 0.00 0.0000 0.00 2.68 3.54 0.00 0.00 0.00 1.30 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Asp Leu +0.000480 7.27 -0.152 0.069 -0.998 0.084 7.60 0.69 0.87 13.600 3.880 6.99 0.01 0.08 1 0.00 0.00 0.00 0.00 0.50 0.00 1.50 0.00 0.50 0.00 0.0000 0.00 0.42 2.19 0.00 0.00 0.00 1.10 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Asp Val +0.000100 6.89 0.100 -0.556 -0.998 -0.599 5.30 0.01 0.47 13.700 4.000 7.21 0.37 -0.15 1 0.00 0.00 0.00 0.00 1.50 0.00 0.50 0.00 0.50 0.00 0.0000 0.00 0.56 2.36 0.00 0.00 0.00 1.11 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Asp Trp +0.000010 8.99 -0.088 0.136 -0.998 -0.113 0.00 0.11 2.06 4.800 3.100 5.82 0.12 0.06 1 0.00 0.00 0.00 0.00 0.50 0.00 0.60 0.00 0.50 0.00 0.0100 4.69 3.02 4.02 0.00 0.89 0.00 0.06 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Asp Tyr +0.000160 7.24 -0.166 0.136 -0.998 0.102 7.50 0.61 0.84 13.700 3.540 6.38 0.01 0.11 1 0.00 0.00 0.00 0.00 0.50 0.00 1.50 0.00 0.50 0.00 0.0000 0.00 2.16 3.14 0.00 0.00 0.00 1.02 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Asp Ala +0.000140 6.95 -0.138 -0.017 -0.998 -0.047 7.50 0.62 0.81 13.700 3.320 5.98 0.06 0.02 1 0.00 0.00 0.00 0.00 0.50 0.00 1.50 0.00 0.50 0.00 0.0000 0.00 0.29 2.29 0.00 0.00 0.00 0.75 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Asp Gly +0.003760 5.73 -0.054 0.189 -0.998 0.123 0.70 4.70 4.04 4.500 3.490 6.88 0.08 0.09 1 0.00 0.00 0.00 0.00 0.60 0.00 0.50 0.00 0.00 0.50 0.0100 3.18 3.05 3.82 1.69 1.18 0.00 0.10 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Asp Thr +0.000090 7.65 -0.019 0.123 -0.998 0.039 0.90 4.69 4.14 4.500 3.290 6.18 0.10 0.10 1 0.00 0.00 0.00 0.00 0.50 0.00 0.60 0.00 0.50 0.00 0.0100 2.81 2.25 3.47 0.00 0.97 0.00 0.75 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Asp Ser +0.002110 5.89 -0.026 0.246 -0.998 0.156 0.60 4.56 4.19 4.500 3.520 6.61 0.03 0.10 1 0.00 0.00 0.00 0.00 0.50 0.00 0.60 0.00 0.50 0.00 0.0100 4.07 3.04 4.03 0.10 1.00 0.00 0.32 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Asp Gln +0.002910 5.53 0.030 0.199 -0.998 0.091 0.60 4.54 4.20 4.500 3.290 6.18 0.12 0.16 1 0.00 0.00 0.00 0.00 0.50 0.00 0.60 0.00 0.50 0.00 0.0100 2.90 2.05 3.03 0.16 1.08 0.00 0.35 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Asp Asn +0.917000 3.97 0.083 0.059 0.992 0.395 6.40 0.37 0.63 13.700 3.500 6.30 0.48 -0.09 1 0.00 0.00 0.00 0.00 0.50 0.00 0.50 0.00 0.50 0.60 0.0001 4.99 4.37 0.68 0.00 0.00 0.00 0.04 0.64 79.70 51.20 34.50 4.60 0.61 0.69 1.00 Asp Glu +0.000002 5.55 -0.279 -0.279 -0.990 -0.990 0.07 -62.40 6.29 13.000 4.440 4.44 0.07 0.07 1 0.00 0.00 0.00 0.00 0.50 0.00 0.50 0.00 0.50 0.50 0.0009 5.00 0.34 0.34 0.00 0.00 0.00 0.94 0.94 13.20 -13.80 1.30 33.30 9.29 9.29 1.00 Asp Asp +0.001290 5.56 0.002 0.216 -0.997 0.024 0.20 2.50 3.50 4.600 3.610 6.78 0.00 0.13 1 0.00 0.00 0.00 0.00 0.60 0.00 0.60 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.43 179.42 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 His Cys +0.000850 5.67 0.081 0.294 -0.998 0.160 0.01 4.05 4.65 4.320 4.090 7.70 -0.09 -0.04 1 0.00 0.00 0.00 0.00 0.60 0.00 1.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 His Met +0.001020 5.55 0.100 0.299 -0.998 0.325 0.30 3.44 3.76 4.300 4.410 8.28 -0.15 -0.00 1 0.00 0.00 0.00 0.00 0.60 0.00 1.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 His Phe +0.001220 6.16 0.070 0.230 -0.998 0.209 0.40 4.16 4.58 4.400 3.960 7.43 0.02 -0.00 1 0.00 0.00 0.00 0.00 0.60 0.00 1.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 His Ile +0.001220 6.16 0.070 0.230 -0.998 0.209 0.40 4.16 4.58 4.400 3.960 7.43 0.02 -0.00 1 0.00 0.00 0.00 0.00 0.60 0.00 1.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 His Leu +0.000090 7.81 0.045 0.068 -0.998 0.034 0.60 4.52 4.18 4.300 4.030 7.57 0.05 0.03 1 0.00 0.00 0.00 0.00 0.60 0.00 1.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 His Val +0.000090 7.00 0.073 0.168 -0.998 0.190 0.70 3.48 3.67 4.300 4.220 7.94 -0.26 -0.36 1 0.00 0.00 0.00 0.00 1.50 0.00 0.60 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 His Trp +0.000100 6.94 0.081 0.185 -0.997 0.218 0.40 4.53 4.12 4.000 4.690 8.82 -0.10 -0.18 1 0.00 0.00 0.00 0.00 0.60 0.00 0.60 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.57 179.48 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 His Tyr +0.000800 5.68 0.089 0.150 -0.998 0.072 0.20 4.18 4.28 4.400 3.770 7.10 0.13 -0.07 1 0.00 0.00 0.00 0.00 0.60 0.00 1.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 His Ala +0.000010 7.62 0.055 -0.036 -0.998 -0.147 0.00 2.61 3.66 4.700 3.100 5.84 0.21 -0.01 1 0.00 0.00 0.00 0.00 0.60 0.00 1.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 His Gly +0.000130 7.16 -0.032 0.152 -0.997 -0.015 0.20 4.41 4.35 4.400 3.860 7.26 0.13 0.01 1 0.00 0.00 0.00 0.00 0.60 0.00 0.60 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.87 179.40 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 His Thr +0.002080 5.36 -0.005 0.235 -0.997 0.162 0.00 4.06 4.30 4.400 3.770 7.08 0.01 0.03 1 0.00 0.00 0.00 0.00 0.60 0.00 0.60 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.39 179.42 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 His Ser +0.000090 7.27 0.069 0.144 -0.997 0.055 0.30 4.50 4.32 4.200 4.250 7.99 0.02 -0.04 1 0.00 0.00 0.00 0.00 0.60 0.00 0.60 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.22 179.45 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 His Gln +0.000100 6.92 0.024 0.159 -0.997 0.021 0.00 2.12 3.57 4.700 3.450 6.49 0.10 0.12 1 0.00 0.00 0.00 0.00 0.60 0.00 0.60 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.04 179.45 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 His Asn +0.000090 7.80 0.005 0.160 -0.998 0.080 0.60 4.63 4.07 4.300 4.010 7.54 -0.10 0.06 1 0.00 0.00 0.00 0.00 0.50 0.00 0.60 0.00 0.60 0.00 0.0100 2.57 1.15 2.08 0.00 1.07 0.00 0.30 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 His Glu +0.000090 7.67 -0.043 0.153 -0.998 0.017 0.50 4.59 4.11 4.400 3.660 6.87 0.04 0.03 1 0.00 0.00 0.00 0.00 0.50 0.00 0.60 0.00 0.50 0.00 0.0100 2.61 1.09 2.05 0.00 1.08 0.00 0.03 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 His Asp +0.000190 6.60 0.139 0.139 -0.155 -0.155 0.40 4.17 3.38 32.100 8.020 8.02 -0.03 -0.03 1 0.00 0.00 0.00 0.00 0.60 0.00 0.60 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.08 183.37 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 His His +0.000130 6.65 0.137 0.134 -0.998 0.129 0.20 4.39 4.16 4.200 4.220 7.94 0.06 -0.11 1 0.00 0.00 0.00 0.00 0.80 0.00 0.60 0.00 0.30 0.00 0.0100 2.97 1.02 2.01 0.00 1.46 0.00 0.10 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Arg Cys +0.000020 7.83 -0.131 0.130 -0.998 -0.346 7.60 0.11 0.35 13.400 5.360 9.66 -0.11 -0.05 1 0.00 0.00 0.00 0.00 0.80 0.00 1.50 0.00 0.30 0.00 0.0000 0.00 4.28 4.87 0.00 0.00 0.00 0.10 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Arg Met +0.000010 7.50 0.105 0.161 -0.998 0.244 7.90 0.13 0.43 13.500 4.500 8.12 -0.08 -0.08 1 0.00 0.00 0.00 0.00 0.80 0.00 1.50 0.00 0.30 0.00 0.0000 0.00 0.53 2.18 0.00 0.00 0.00 0.01 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Arg Phe +0.000070 7.74 0.112 0.143 -0.998 0.355 7.60 0.25 0.46 13.500 5.160 9.30 0.02 -0.09 1 0.00 0.00 0.00 0.00 0.80 0.00 1.50 0.00 0.30 0.00 0.0000 0.00 0.53 2.18 0.00 0.00 0.00 0.08 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Arg Ile +0.000070 7.74 0.112 0.143 -0.998 0.355 7.60 0.25 0.46 13.500 5.160 9.30 0.02 -0.09 1 0.00 0.00 0.00 0.00 0.80 0.00 1.50 0.00 0.30 0.00 0.0000 0.00 0.53 2.18 0.00 0.00 0.00 0.08 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Arg Leu +0.000060 5.57 0.162 0.068 -0.998 0.115 7.50 0.23 0.49 13.600 4.460 8.04 0.16 -0.02 1 0.00 0.00 0.00 0.00 0.80 0.00 1.50 0.00 0.30 0.00 0.0000 0.00 0.53 2.18 0.00 0.00 0.00 0.09 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Arg Val +0.000050 7.01 0.023 0.151 -0.998 -0.001 8.00 0.38 0.66 13.600 4.160 7.51 -0.07 0.06 1 0.00 0.00 0.00 0.00 1.50 0.00 0.80 0.00 0.00 0.30 0.0000 0.00 4.46 5.02 0.00 0.00 0.00 0.04 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Arg Trp +0.000100 6.42 0.154 0.087 -0.998 0.060 0.70 4.15 4.36 4.300 3.950 7.43 0.04 -0.05 1 0.00 0.00 0.00 0.00 0.80 0.00 0.60 0.00 0.30 0.00 0.0100 3.28 1.01 2.00 0.09 3.42 0.00 0.02 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Arg Tyr +0.000060 6.86 0.122 0.083 -0.998 0.396 7.80 0.08 0.35 13.500 4.780 8.61 0.03 -0.22 1 0.00 0.00 0.00 0.00 0.80 0.00 1.50 0.00 0.30 0.00 0.0000 0.00 0.28 2.13 0.00 0.00 0.00 0.59 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Arg Ala +0.000020 7.15 0.141 -0.060 -0.998 -0.259 7.10 0.05 0.35 13.600 4.150 7.48 0.18 -0.03 1 0.00 0.00 0.00 0.00 0.80 0.00 1.50 0.00 0.30 0.00 0.0000 0.00 0.39 2.15 0.00 0.00 0.00 0.59 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Arg Gly +0.000020 8.07 0.115 0.098 -0.998 0.071 4.10 0.00 0.52 13.700 4.450 8.37 0.11 0.03 1 0.00 0.00 0.00 0.00 0.80 0.00 0.60 0.00 0.30 0.00 0.0100 3.12 0.60 2.20 0.11 1.63 0.00 0.12 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Arg Thr +0.000130 6.50 0.145 0.153 -0.998 0.172 0.20 4.27 4.26 4.300 4.010 7.54 0.05 -0.18 1 0.00 0.00 0.00 0.00 0.80 0.00 0.60 0.00 0.30 0.00 0.0100 2.86 1.05 2.02 0.00 1.47 0.00 0.04 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Arg Ser +0.000230 6.64 0.106 0.227 -0.998 0.340 0.50 4.42 4.15 4.200 4.390 8.25 0.03 -0.09 1 0.00 0.00 0.00 0.00 0.80 0.00 0.60 0.00 0.30 0.00 0.0100 3.10 1.01 2.01 0.00 1.58 0.00 0.10 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Arg Gln +0.000020 8.02 0.086 0.134 -0.998 0.183 3.50 0.00 0.52 13.600 5.250 8.62 0.06 -0.14 1 0.00 0.00 0.00 0.00 0.80 0.00 0.60 0.00 0.30 0.00 0.0100 2.78 0.71 2.23 0.09 1.86 0.00 0.06 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Arg Asn +0.080000 4.17 -0.279 0.227 0.000 0.000 14.67 -0.07 0.29 13.210 3.290 6.00 0.43 -0.99 4 1.24 0.47 1.00 0.00 0.50 1.84 0.10 2.27 0.83 0.03 0.0100 5.74 3.34 2.51 0.00 0.00 39.77 1.55 1.34 0.15 0.15 0.15 16.38 4.00 7.79 2.28 Arg Glu +0.010000 3.52 -0.924 0.050 0.000 0.000 9.53 -0.16 0.34 13.600 3.220 5.86 0.05 0.66 4 1.16 0.18 1.00 0.00 0.14 1.40 0.20 2.35 0.53 0.13 0.0100 5.54 2.00 3.72 0.00 0.00 18.31 1.62 1.50 1.00 1.00 1.00 34.01 4.00 8.29 2.32 Arg Asp +0.000210 6.21 0.134 0.215 -0.998 0.320 0.40 4.43 4.11 4.100 4.450 8.36 0.03 -0.04 1 0.00 0.00 0.00 0.00 0.80 0.00 0.60 0.00 0.30 0.00 0.0100 3.03 1.01 2.00 0.00 1.75 0.00 0.04 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Arg His +0.000020 7.58 0.146 0.146 -0.107 -0.107 1.10 2.58 2.63 33.000 6.470 6.47 0.17 0.17 1 0.00 0.00 0.00 0.00 0.80 0.00 0.80 0.00 0.30 0.30 0.0100 3.18 0.41 0.41 0.00 0.00 0.00 0.01 0.01 87.60 64.00 36.70 21.20 1.21 1.21 1.00 Arg Arg +0.001410 6.11 0.119 0.163 -0.998 0.230 0.30 4.11 4.58 4.500 3.580 6.72 -0.15 -0.02 1 0.00 0.00 0.00 0.00 1.00 0.00 0.60 0.00 0.70 0.00 0.0100 2.95 0.98 1.99 0.04 1.16 0.00 0.40 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Lys Cys +0.033790 4.81 -0.206 -0.152 -0.998 -0.566 8.20 0.15 0.38 13.400 10.260 5.73 -1.00 -0.66 1 0.00 0.00 0.00 0.00 1.00 0.00 1.50 0.00 0.70 0.00 0.0000 0.00 2.41 0.17 0.00 0.00 0.00 0.94 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Lys Met +0.000010 7.98 0.002 0.125 -0.998 0.067 8.90 0.05 0.34 13.400 4.880 8.80 -0.33 -0.13 1 0.00 0.00 0.00 0.00 1.00 0.00 1.50 0.00 0.70 0.00 0.0000 0.00 0.16 2.12 0.00 0.00 0.00 0.71 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Lys Phe +0.002330 6.22 -0.072 0.206 -0.998 0.353 7.70 0.00 0.48 13.600 3.920 7.07 -0.16 0.03 1 0.00 0.00 0.00 0.00 1.00 0.00 1.50 0.00 0.70 0.00 0.0000 0.00 0.56 2.18 0.00 0.00 0.00 1.06 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Lys Ile +0.002330 6.22 -0.072 0.206 -0.998 0.353 7.70 0.00 0.48 13.600 3.920 7.07 -0.16 0.03 1 0.00 0.00 0.00 0.00 1.00 0.00 1.50 0.00 0.70 0.00 0.0000 0.00 0.56 2.18 0.00 0.00 0.00 1.06 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Lys Leu +0.001250 6.46 -0.030 -0.062 -0.998 0.096 7.70 0.00 0.47 13.600 3.900 7.03 -0.09 0.01 1 0.00 0.00 0.00 0.00 1.00 0.00 1.50 0.00 0.70 0.00 0.0000 0.00 0.50 2.17 0.00 0.00 0.00 1.03 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Lys Val +0.253010 3.82 0.150 0.296 -0.998 0.997 9.00 0.11 0.46 13.600 3.830 6.91 -1.00 -0.14 1 0.00 0.00 0.00 0.00 1.50 0.00 1.00 0.00 0.00 0.70 0.0000 0.00 4.46 5.01 0.00 0.00 0.00 0.02 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Lys Trp +0.000040 7.14 0.131 0.202 -0.998 0.223 0.60 4.37 4.26 4.200 4.300 8.08 -0.25 0.00 1 0.00 0.00 0.00 0.00 1.00 0.00 0.60 0.00 0.70 0.00 0.0100 3.07 1.00 1.20 1.10 1.72 0.00 0.04 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Lys Tyr +0.000100 7.30 -0.080 0.120 -0.998 0.263 7.70 0.24 0.53 13.600 4.070 7.34 -0.17 -0.05 1 0.00 0.00 0.00 0.00 1.00 0.00 1.50 0.00 0.70 0.00 0.0000 0.00 0.37 2.14 0.00 0.00 0.00 0.88 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Lys Ala +0.000060 6.25 -0.065 -0.056 -0.998 -0.161 7.50 0.26 0.53 13.600 3.770 6.80 -0.03 0.02 1 0.00 0.00 0.00 0.00 1.00 0.00 1.50 0.00 0.70 0.00 0.0000 0.00 0.22 2.12 0.00 0.00 0.00 0.80 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Lys Gly +0.033500 4.96 -0.054 0.072 -0.998 -0.373 0.01 1.98 4.82 4.800 3.070 5.77 -0.07 -1.00 1 0.00 0.00 0.00 0.00 0.60 0.00 1.00 0.00 0.00 0.70 0.0100 2.98 3.51 3.88 0.00 1.79 0.00 1.06 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Lys Thr +0.001460 5.63 0.160 0.217 -0.998 0.235 0.20 4.05 4.62 4.500 3.550 6.68 0.20 -0.04 1 0.00 0.00 0.00 0.00 1.00 0.00 0.60 0.00 0.70 0.00 0.0100 2.97 0.98 1.99 0.02 1.17 0.00 0.68 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Lys Ser +0.000040 8.12 0.097 0.149 -0.998 0.225 0.30 4.03 4.66 4.400 3.730 7.01 -0.07 -0.03 1 0.00 0.00 0.00 0.00 1.00 0.00 0.60 0.00 0.70 0.00 0.0100 2.78 1.40 2.23 3.29 1.23 0.00 0.72 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Lys Gln +0.000060 7.64 0.122 0.151 -0.998 0.182 0.40 4.15 4.37 4.400 3.840 7.21 -0.05 -0.12 1 0.00 0.00 0.00 0.00 1.00 0.00 0.60 0.00 0.70 0.00 0.0100 3.46 4.83 5.09 3.02 2.50 0.00 1.16 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Lys Asn +0.010000 5.49 -0.859 0.200 0.000 0.000 15.97 -0.01 0.35 13.040 3.730 6.79 0.01 0.23 4 0.20 1.41 1.00 0.00 1.30 2.25 0.20 2.25 1.13 0.13 0.0100 4.60 2.00 3.43 0.00 0.00 43.61 1.80 1.72 0.03 0.03 0.03 15.05 4.00 3.35 5.99 Lys Glu +0.010000 5.14 0.071 0.131 0.000 0.000 7.26 0.19 0.63 13.700 3.150 5.68 0.20 -1.00 4 0.04 1.16 1.00 0.00 1.24 2.20 0.20 1.93 0.26 0.13 0.0100 4.15 2.00 3.66 0.00 0.00 26.41 1.99 1.34 0.04 0.04 0.04 14.60 4.00 5.28 8.92 Lys Asp +0.000010 8.29 0.113 0.117 -0.998 0.018 0.04 4.63 3.97 4.100 4.060 8.65 -0.14 0.04 1 0.00 0.00 0.00 0.00 1.00 0.00 0.60 0.00 0.70 0.00 0.0100 3.34 0.98 1.99 3.36 2.08 0.00 0.04 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Lys His +1.460000 3.67 0.158 0.009 0.381 -0.036 7.20 0.02 0.45 13.600 4.140 7.47 0.01 0.05 1 0.00 0.00 0.00 0.00 1.00 0.00 0.80 0.00 0.70 0.30 0.0070 4.00 4.38 0.70 0.00 0.00 0.00 0.01 0.05 79.70 51.20 34.50 4.60 0.69 0.78 1.00 Lys Arg +0.000540 5.58 0.397 0.397 0.257 0.257 0.80 -0.19 3.81 33.000 5.130 5.13 -0.16 -0.16 1 0.00 0.00 0.00 0.00 1.00 0.00 1.00 0.00 0.70 0.70 0.0001 3.00 2.11 2.11 0.00 0.00 0.00 0.01 0.01 87.60 64.00 36.70 21.20 2.51 2.51 1.00 Lys Lys +0.003210 5.65 0.065 0.188 -0.670 0.121 0.80 4.47 4.32 4.500 3.430 6.44 0.06 0.09 1 0.00 0.00 0.00 0.00 0.60 0.00 1.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Pro Cys +0.176000 4.08 0.343 0.456 0.464 -0.390 4.90 0.59 0.67 31.600 5.460 7.58 0.20 0.14 1 0.00 0.00 0.00 0.00 2.50 0.00 2.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Pro Met +0.014000 4.81 0.476 0.462 0.955 0.408 9.80 0.07 0.31 32.900 6.360 8.01 0.09 0.04 1 0.00 0.00 0.00 0.00 2.50 0.00 2.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Pro Phe +0.005600 5.93 0.219 0.215 0.181 0.556 37.00 -0.06 0.24 31.300 5.460 7.58 0.12 0.00 1 0.00 0.00 0.00 0.00 2.50 0.00 2.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Pro Ile +0.005600 5.93 0.219 0.215 0.181 0.556 37.00 -0.06 0.24 31.300 5.460 7.58 0.12 0.00 1 0.00 0.00 0.00 0.00 2.50 0.00 2.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Pro Leu +0.093400 4.73 0.407 0.079 0.663 -0.564 5.60 0.99 0.97 33.100 5.160 7.16 0.21 0.03 1 0.00 0.00 0.00 0.00 2.50 0.00 2.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Pro Val +0.015700 4.58 0.500 0.534 0.998 0.507 22.30 -0.12 0.21 9.600 4.610 7.83 0.02 0.09 1 0.00 0.00 0.00 0.00 2.50 0.00 2.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Pro Trp +0.000530 6.04 0.120 0.163 -0.998 0.128 0.50 3.56 3.71 4.300 4.270 8.03 -0.07 -0.05 1 0.00 0.00 0.00 0.00 0.60 0.00 1.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Pro Tyr +0.005200 5.36 0.127 0.127 0.318 -0.390 17.00 0.14 0.37 31.300 5.080 7.06 0.04 0.39 1 0.00 0.00 0.00 0.00 2.50 0.00 2.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Pro Ala +0.000040 7.83 0.030 -0.008 -0.997 -0.042 36.90 -0.05 0.27 31.300 4.560 6.33 0.18 -0.04 1 0.00 0.00 0.00 0.00 2.50 0.00 2.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Pro Gly +0.004450 5.78 0.036 0.196 -0.813 0.185 0.90 4.56 4.23 4.500 3.480 6.55 0.13 0.10 1 0.00 0.00 0.00 0.00 0.60 0.00 1.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Pro Thr +0.004800 5.46 0.089 0.192 -0.581 0.115 0.90 4.64 4.16 4.500 3.370 6.33 0.12 0.11 1 0.00 0.00 0.00 0.00 0.60 0.00 1.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Pro Ser +0.001100 6.18 0.101 0.172 -0.998 0.214 0.60 4.36 4.48 4.500 3.610 6.80 0.10 0.03 1 0.00 0.00 0.00 0.00 0.60 0.00 1.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Pro Gln +0.002220 5.73 0.102 0.153 -0.607 0.025 0.70 4.62 4.12 4.400 3.660 6.89 0.12 0.05 1 0.00 0.00 0.00 0.00 0.60 0.00 1.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Pro Asn +0.000550 6.84 -0.157 0.154 -0.998 0.202 7.60 0.55 0.78 13.600 3.940 7.11 -0.12 0.08 1 0.00 0.00 0.00 0.00 0.50 0.00 1.50 0.00 0.60 0.00 0.0000 0.00 2.03 2.93 0.00 0.00 0.00 1.09 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Pro Glu +0.000280 7.13 -0.171 0.143 -0.998 0.134 7.60 0.60 0.80 13.600 3.780 6.81 -0.01 0.11 1 0.00 0.00 0.00 0.00 0.50 0.00 1.50 0.00 0.50 0.00 0.0000 0.00 0.79 2.29 0.00 0.00 0.00 0.98 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Pro Asp +0.000070 7.49 0.046 0.113 -0.998 0.012 0.60 3.57 3.73 4.400 3.860 7.25 0.09 -0.01 1 0.00 0.00 0.00 0.00 0.60 0.00 1.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Pro His +0.000040 7.60 0.141 0.137 -0.998 0.314 7.70 0.17 0.44 13.600 4.440 8.00 0.06 -0.08 1 0.00 0.00 0.00 0.00 0.80 0.00 1.50 0.00 0.30 0.00 0.0000 0.00 0.52 2.18 0.00 0.00 0.00 0.06 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Pro Arg +0.000200 7.26 0.124 0.251 -0.998 -0.143 7.80 0.26 0.55 13.600 4.220 7.61 -0.14 -0.00 1 0.00 0.00 0.00 0.00 1.00 0.00 1.50 0.00 0.70 0.00 0.0000 0.00 0.26 2.12 0.00 0.00 0.00 0.95 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Pro Lys +0.010200 4.71 0.349 0.349 0.535 0.535 49.90 -0.53 0.47 5.710 7.810 7.81 0.17 0.17 1 0.00 0.00 0.00 0.00 2.50 0.00 2.50 0.00 0.00 0.00 0.0000 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 1.00 Pro Pro diff --git a/PARAM/tube_carbonano3.parm b/PARAM/tube_carbonano3.parm new file mode 100644 index 0000000..c3e20da --- /dev/null +++ b/PARAM/tube_carbonano3.parm @@ -0,0 +1,33 @@ +1.1970470 5.3667307 0 0 0 0 3.0000000 +1.5539975 5.6438808 0 0 0 0 3.0000000 +1.6679316 5.6689787 0 0 0 0 3.0000000 +1.6606077 5.9381499 0 0 0 0 3.0000000 +1.7428987 5.8625088 0 0 0 0 3.0000000 +1.7310307 5.9950466 0 0 0 0 3.0000000 +1.6322831 5.8318806 0 0 0 0 3.0000000 +1.5348705 5.4955850 0 0 0 0 3.0000000 +1.3603992 5.3937664 0 0 0 0 3.0000000 +1.3228511 5.4371481 0 0 0 0 3.0000000 +1.1970470 5.3667307 0 0 0 0 3.0000000 +1.0325602 5.5439558 0 0 0 0 3.0000000 +0.98513186 5.3780737 0 0 0 0 3.0000000 +0.97556829 5.3995867 0 0 0 0 3.0000000 +0.90197319 5.4184709 0 0 0 0 3.0000000 +0.77024281 5.4679136 0 0 0 0 3.0000000 +0.75456488 5.4686551 0 0 0 0 3.0000000 +1.1983876 5.3466215 0 0 0 0 3.0000000 +0.96779823 5.2968884 0 0 0 0 3.0000000 +0.92065424 5.3752089 0 0 0 0 3.0000000 +1.1218165 5.6721835 0 0 0 0 3.0000000 +1.6679316 5.7029562 0 0 0 0 3.0000000 +1.6606077 5.9355397 0 0 0 0 3.0000000 +1.3228511 5.4343948 0 0 0 0 3.0000000 +1.3228511 5.4343948 0 0 0 0 3.0000000 + 0.000 0.000 0.000 0.000 0.000 0.000E+00 0.00 ! Pro + 0.000 0.000 0.000 0.000 0.000 0.000E+00 0.00 ! Pro + 0.000 0.000 0.000 0.000 0.000 0.000E+00 0.00 ! Pro + 0.000 0.000 0.000 0.000 0.000 0.000E+00 0.00 ! Pro + 0.000 0.000 0.000 0.000 0.000 0.000E+00 0.00 ! Pro + 0.000 0.000 0.000 0.000 0.000 0.000E+00 0.00 ! Pro + 0.000 0.000 0.000 0.000 0.000 0.000E+00 0.00 ! Pro + diff --git a/ctest/1L2Y_clust.inp b/ctest/1L2Y_clust.inp index a08fcb8..0dafcd7 100644 --- a/ctest/1L2Y_clust.inp +++ b/ctest/1L2Y_clust.inp @@ -1,5 +1,5 @@ 1L2Y clustering -nres=22 n_ene=18 ncut=1 cutoff=-58.0 pdbref rescale=2 PRINT_CART PDBOUT=1 & +nres=22 ncut=0 cutoff=-58.0 pdbref rescale=2 PRINT_CART PDBOUT=1 & iopt=1 temper=280 one_letter WSC=1.00000 WSCP=1.23315 WELEC=0.84476 WBOND=1.00000 WANG=0.62954 & WSCLOC=0.10554 WTOR=1.34316 WTORD=1.26571 WCORRH=0.19212 WCORR5=0.00000 & diff --git a/ctest/1L2Y_wham.inp b/ctest/1L2Y_wham.inp index 96c2309..5b763e8 100644 --- a/ctest/1L2Y_wham.inp +++ b/ctest/1L2Y_wham.inp @@ -1,4 +1,4 @@ -SEED=-3059743 n_ene=19 isampl=1 nparmset=1 nq=1 einicheck=1 & +SEED=-3059743 isampl=1 nparmset=1 nq=1 einicheck=1 & rescale=2 ensembles=0 nslice=1 delta=0.02 refstr pdbref classify cxfile nres=22 one_letter XNLYIQWLKDGGPSSGRPPPSX diff --git a/ctest/1l2y_micro.inp b/ctest/1l2y_micro.inp index c0c545c..e9f27c8 100644 --- a/ctest/1l2y_micro.inp +++ b/ctest/1l2y_micro.inp @@ -1,6 +1,6 @@ 1L2Y microcanonical simulation with VTS algorithm in ff_1l2y SEED=-3059743 PDBREF MD RESCALE_MODE=2 -nstep=100000 ntwe=1000 ntwx=10000 dt=0.01 damax=20.0 dvmax=20.0 lang=0 & +nstep=100000 ntwe=1000 ntwx=10000 dt=0.008 damax=20.0 dvmax=20.0 lang=0 & t_bath=300 reset_vel=0 PRINT_COMPON WLONG=1.00000 WSCP=1.23315 WELEC=0.84476 WBOND=1.00000 WANG=0.62954 & WSCLOC=0.10554 WTOR=1.34316 WTORD=1.26571 WCORRH=0.19212 WCORR5=0.00000 & diff --git a/ctest/matplotlib_fit_hist.py b/ctest/matplotlib_fit_hist.py index 754540c..f766a3d 100755 --- a/ctest/matplotlib_fit_hist.py +++ b/ctest/matplotlib_fit_hist.py @@ -1,4 +1,4 @@ -#! /usr/bin/env python +#! /usr/bin/env python2 import matplotlib #matplotlib.use('GTK') diff --git a/ctest/matplotlib_hist.py b/ctest/matplotlib_hist.py index 86881a6..6c64539 100755 --- a/ctest/matplotlib_hist.py +++ b/ctest/matplotlib_hist.py @@ -1,4 +1,4 @@ -#! /usr/bin/env python +#! /usr/bin/env python2 import matplotlib #matplotlib.use('GTK') diff --git a/ctest/prota_MIN_CART.inp b/ctest/prota_MIN_CART.inp index 7d1f3a0..14717b1 100644 --- a/ctest/prota_MIN_CART.inp +++ b/ctest/prota_MIN_CART.inp @@ -1,12 +1,12 @@ -Test minimize cart - 1bdd - pdbstart +Test minimize cart - 1bdd_unres - pdbstart unres_pdb SEED=-3059743 minimize pdbstart pdbref refstr rescale_mode=2 cart overlap & -nosearchsc +nosearchsc unres_pdb print_min_ini print_min_res print_min_stat MAXMIN=10000 MAXFUN=15000 WLONG=1.00000 WSCP=1.23315 WELEC=0.84476 WBOND=1.00000 WANG=0.62954 & WSCLOC=0.10554 WTOR=1.34316 WTORD=1.26571 WCORRH=0.19212 WCORR5=0.00000 & WCORR6=0.00000 WEL_LOC=0.37357 WTURN3=1.40323 WTURN4=0.64673 WTURN6=0.00000 & WVDWPP=0.23173 WHPB=1.00000 WSCCOR=0.25 & CUTOFF=7.00000 WCORR4=0.00000 -prota.pdb +prota_unres.pdb 0 0 diff --git a/ctest/prota_unres_energy_check.sh b/ctest/prota_unres_energy_check.sh index 8497f9d..2304013 100755 --- a/ctest/prota_unres_energy_check.sh +++ b/ctest/prota_unres_energy_check.sh @@ -21,14 +21,14 @@ if [ "$1" == "prota_ENE" ]; then cutoffdiff="0.01" # energy cutoff variation - more then this rises warning elif [ "$1" == "prota_MIN_CART" ]; then extremediff="10.0" # extreme energy difference, comething went terribly wrong - expectenergy="154.9622" # - expected total energy - cutoffdiff="0.1" # energy cutoff variation - more then this rises warning + expectenergy="158.3680" # - expected total energy + cutoffdiff="0.2" # energy cutoff variation - more then this rises warning sumsl_return=`grep SUMSL $file|awk '{print $4}'` echo 'SUMSL return code' $sumsl_return if [ "$sumsl_return" != "4" ]; then echo 'ERROR = SUMSL return code' $sumsl_return 'is not 4' - exit 1 +# exit 1 fi elif [ "$1" == "1l2y_MIN_INT" ]; then extremediff="10.0" # extreme energy difference, comething went terribly wrong @@ -43,7 +43,7 @@ elif [ "$1" == "1l2y_MIN_INT" ]; then fi elif [ "$1" == "1l2y_MIN_REGULAR_INT" ]; then extremediff="10.0" # extreme energy difference, comething went terribly wrong - expectenergy="5.258893" # expected total energy + expectenergy="47.55" # expected total energy # # something wrong with REGULAR and sometimes gives code 8 and different energy # for now 8 is only warning and cutoffdiff is large @@ -65,8 +65,8 @@ elif [ "$1" == "1l2y_micro" ]; then if [ `echo "a=${array[0]}-${refe};if(0>a)a*=-1;a>5.0"|bc -l` != "0" ]; then echo 'difference ' `echo "a=${array[0]}-${refe};if(0>a)a*=-1;a"|bc -l` "from reference ave etot ${refe} greater than 5.0" exit 1 - elif [ `echo "a=${array[1]};a>0.15"|bc -l` != "0" ]; then - echo 'standard deviation greater than 0.15' + elif [ `echo "a=${array[1]};a>0.30"|bc -l` != "0" ]; then + echo 'standard deviation greater than 0.30' exit 1 else exit 0 @@ -185,14 +185,14 @@ elif [ "$1" == "1DKZcut-micro" ]; then elif [ "$1" == "1ei0_min" ]; then extremediff="10.0" # extreme energy difference, comething went terribly wrong expectenergy="151.3218" # - expected total energy - cutoffdiff="6.0" # energy cutoff variation - more then this rises warning + cutoffdiff="8.0" # energy cutoff variation - more then this rises warning refe="134.8382" startene=`grep ETOT $file|head -1| awk '{print $2*1.0}'` echo "initial energy=${startene} reference=${refe}" if [ `echo "a=${startene}-(${refe});if(0>a)a*=-1;a>0.01"|bc -l` != "0" ]; then echo 'difference ' `echo "a=${startene}-${refe};if(0>a)a*=-1;a"|bc -l` "from reference etot ${refe} greater than 0.01" - exit 1 +# exit 1 fi sumsl_return=`grep SUMSL $file|awk '{print $4}'` @@ -203,6 +203,76 @@ elif [ "$1" == "1ei0_min" ]; then # exit 1 fi +elif [ "$1" == "prota_CHECKGRAD" ] || [ "$1" == "1DKZcut-checkgrad" ] || [ "$1" == "checkgrad_dfa" ] ; then + diff=`gawk -f checkgrad.awk $file |grep 'Largest abs(1-numerical/analytical)='|awk '{printf "%15.10f",$3}'` + gawk -f checkgrad.awk $file + + if [ `echo "a=${diff};a>0.0003"|bc -l` != "0" ]; then + echo 'ERROR largest abs(1-numerical/analytical)' ${diff} + echo ' greater than 0.0003' + exit 1 + else + exit 0 + fi + +elif [ "$1" == "Ts866_checkgrad_full" ] ; then + diff=`gawk -f checkgrad.awk $file |grep 'Largest abs(1-numerical/analytical)='|awk '{printf "%15.10f",$3}'` + gawk -f checkgrad.awk $file + + exit_error=0 + ene=`grep ETOT $file|head -1| awk '{print $2*1.0}'` + hene=`grep H_CONS $file|head -1| awk '{print $2*1.0}'` + + ene_ref=3127.901 + hene_ref=1872.981 + + echo "ETOT= " ${ene} " reference= " ${ene_ref} + if [ `echo "a=${ene}-(${ene_ref});if(0>a)a*=-1;a>0.01"|bc -l` != "0" ]; then + echo 'difference ' `echo "a=${ene}-${ene_ref};if(0>a)a*=-1;a"|bc -l` "from reference etot ${ene_ref} greater than 0.01" + exit_error=1 + fi + + echo "H_CONS= " ${hene} " reference= " ${hene_ref} + if [ `echo "a=${hene}-(${hene_ref});if(0>a)a*=-1;a>0.01"|bc -l` != "0" ]; then + echo 'difference ' `echo "a=${hene}-${hene_ref};if(0>a)a*=-1;a"|bc -l` "from reference etot ${hene_ref} greater than 0.01" + exit_error=1 + fi + + + if [ `echo "a=${diff};a>0.0020"|bc -l` != "0" ]; then + echo 'ERROR largest abs(1-numerical/analytical)' ${diff} + echo ' greater than 0.0020' + exit_error=1 + fi + + if [ "${exit_error}" == "1" ]; then + exit 1 + else + exit 0 + fi + + +elif [ "$1" == "remd_dfa" ]; then + rm -rf remd_all.stat + tail -q -n +100 remd_dfa*.stat >remd_all.stat + if [ ! -s remd_all.stat ]; then + echo 'FATAL error - stat files empty' + exit 2 + fi + ./matplotlib_hist.py + + echo "`pwd`/1L2Y_remd_ene_hist.png" + echo "`pwd`/1L2Y_remd_Tene.png" + grep ACC remd_dfa.out_GB000 |tail -7 + exchange=`grep ACC remd_dfa.out_GB000 |tail -7|awk '{a=a+$4}END{print a/NR}'` + echo "average exchange = ${exchange}" + if [ `echo "a=${exchange};a<0.05"|bc -l` != "0" ]; then + echo 'ERROR average exchange smaller than 0.05' + exit 1 + else + exit 0 + fi + else exit 1 diff --git a/ctest/wham_check.sh b/ctest/wham_check.sh index 79d9614..40a7bfe 100755 --- a/ctest/wham_check.sh +++ b/ctest/wham_check.sh @@ -13,7 +13,7 @@ if [ ! -f $file ]; then fi error=0 -max=`awk '{print $1,$7*1}' $file | sort -n -k 2 | awk 'END{print $1}'` +max=`awk '{printf "%s %10.4f \n",$1,$7*1}' $file | sort -n -k 2 | awk 'END{print $1}'` echo 'T of max Cv(T) ' $max rms=`awk '{if ($1<260) {a=a+$5;n++}}END{print a/n}' $file` echo 'average rms for T<260 ' $rms diff --git a/source/cluster/cluster.F90 b/source/cluster/cluster.F90 index 70b685e..a47f418 100644 --- a/source/cluster/cluster.F90 +++ b/source/cluster/cluster.F90 @@ -181,7 +181,7 @@ call probabl(iT,ncon_work,ncon,*20) -!elwrite(iout,*)"after probabl, ncon_work=", ncon_work,ncon + write(iout,*)"after probabl, ncon_work=", ncon_work,ncon if (ncon_work.lt.2) then write (iout,*) "Too few conformations; clustering skipped" @@ -192,9 +192,14 @@ call work_partition(.true.,ndis) #endif !el call alloc_clust_arrays(ncon_work) + write(iout,*) "before icc allocate",(allocated(ICC)),ncon_work + if (allocated(ICC)) then + deallocate(ICC) + deallocate(DISS) + endif allocate(ICC(ncon_work)) allocate(DISS(maxdist)) - + write(iout,*) "after icc allocate",(allocated(ICC)),ncon_work DO I=1,NCON_work ICC(I)=I ENDDO @@ -204,6 +209,7 @@ ! CALCULATE DISTANCES ! call daread_ccoords(1,ncon_work) + write(iout,*) "after daread_ccoords" ind1=0 DO I=1,NCON_work-1 if (mod(i,100).eq.0) print *,'Calculating RMS i=',i @@ -236,6 +242,10 @@ 'Time for distance calculation:',T2-T1,' sec.' t1=tcpu() PRINT '(a)','End of distance computation' + if (allocated(diss_)) then + deallocate(diss_) + deallocate(scount_) + endif !el--------------- allocate(diss_(maxdist)) allocate(scount_(0:nprocs)) @@ -271,7 +281,9 @@ ! ! Print out the RMS deviation matrix. ! + write(iout,*) "before distout" if (print_dist) CALL DISTOUT(NCON_work) + write(iout,*) "after distout" ! ! call hierarchical clustering HC from F. Murtagh ! @@ -317,6 +329,21 @@ write (iout,'(2i5,f10.5)') i,list_conf(i),totfree(i) enddo #endif + write (iout,*) "before CRIT", allocated(CRIT) + if (allocated(CRIT)) then + deallocate(CRIT) + deallocate(MEMBR) + deallocate(CRITVAL) + deallocate(IA) + deallocate(IB) + deallocate(IORDER) + deallocate(HEIGHT) + deallocate(ICLASS) + deallocate(HVALS) + deallocate(nn) + deallocate(DISNN) + deallocate(FLAG) + endif allocate(CRIT(N),MEMBR(N)) !(maxconf) allocate(CRITVAL(N-1)) !(maxconf-1) allocate(IA(N),IB(N)) @@ -326,7 +353,7 @@ allocate(nn(N)) !(maxconf) allocate(DISNN(N)) !(maxconf) allocate(FLAG(N)) !(maxconf) - + write (iout,*) "after CRIT", allocated(CRIT) call flush(iout) CALL HC(N,M,LEN,IOPT,IA,IB,CRIT,MEMBR,NN,DISNN,FLAG,DISS) LEV = N-1 @@ -337,7 +364,12 @@ endif CALL HCASS(N,IA,IB,CRIT,LEV,ICLASS,HVALS,IORDER,CRITVAL,HEIGHT) ! CALL HCDEN(LEV,IORDER,HEIGHT,CRITVAL) - + if (allocated(licz)) then + deallocate(licz) + deallocate(iass) + deallocate(nconf) + deallocate(totfree_gr) + endif allocate(licz(maxgr)) allocate(iass(maxgr)) allocate(nconf(maxgr,maxingr)) @@ -595,6 +627,7 @@ ! ! Compute free energies of clusters ! + if (allocated(prob)) deallocate(prob) allocate(prob(maxgr)) do igr=1,ngr diff --git a/source/cluster/io_clust.F90 b/source/cluster/io_clust.F90 index 312b9f8..7f3e42d 100644 --- a/source/cluster/io_clust.F90 +++ b/source/cluster/io_clust.F90 @@ -2,6 +2,8 @@ !----------------------------------------------------------------------------- use clust_data use io_units + use geometry, only:int_from_cart,sc_loc_geom + use io_config,only:readpdb,readpdb_template ! use names use io_base !, only: ilen use geometry_data, only: nres,c,nres_molec,boxxsize,boxysize,boxzsize @@ -49,7 +51,7 @@ real(kind=8) :: temper,curr_dist,emin,qpart,boltz,& ave_dim,amax_dim,emin1 - + if (allocated(tempfac)) deallocate(tempfac) allocate(tempfac(2,nres)) do i=1,64 @@ -301,6 +303,7 @@ RETURN END SUBROUTINE WRTCLUST !------------------------------------------------------------------------------ +!------------------------------------------------------------------------------ subroutine ave_coord(igr) use control_data, only:lside @@ -1277,12 +1280,14 @@ ! ! Read molecular data ! - use energy_data, only: rescale_mode,distchainmax,ipot !,temp0 + use energy_data, only: rescale_mode,distchainmax,ipot,constr_homology,& + with_dihed_constr,read_homol_frag,out_template_coord,& + out_template_restr use control_data, only: titel,outpdb,outmol2,refstr,pdbref,& iscode,symetr,punch_dist,print_dist,nstart,nend,& caonly,iopt,efree,lprint_cart,lprint_int,rlamb_ele,& r_cut_ele,nclust,tor_mode,scelemode,r_cut_mart,r_cut_ang,& - rlamb_mart + rlamb_mart,constr_dist use geometry_data, only:bordliptop,bordlipbot,& bufliptop,buflipbot,lipthick,lipbufthick ! implicit none @@ -1395,20 +1400,533 @@ write (iout,*) 'beta_h',(beta_h(i),i=1,nT) lprint_cart=index(controlcard,"PRINT_CART") .gt.0 lprint_int=index(controlcard,"PRINT_INT") .gt.0 + call readi(controlcard,'CONSTR_DIST',constr_dist,0) + call readi(controlcard,'CONSTR_HOMOL',constr_homology,0) +!c if (constr_homology) tole=dmax1(tole,1.5d0) + write (iout,*) "with_homology_constr ",with_dihed_constr,& + " CONSTR_HOMOLOGY",constr_homology + read_homol_frag = index(controlcard,"READ_HOMOL_FRAG").gt.0 + out_template_coord = index(controlcard,"OUT_TEMPLATE_COORD").gt.0 + out_template_restr = index(controlcard,"OUT_TEMPLATE_RESTR").gt.0 + write (iout,*) "out_template_coord ",OUT_TEMPLATE_COORD if (min_var) iopt=1 return end subroutine read_control !----------------------------------------------------------------------------- + subroutine read_constr_homology + use MPI_data + use energy_data + use geometry_data + use control_data + use control, only:init_int_table,homology_partition + use MD_data, only:iset +! implicit none +! include 'DIMENSIONS' +!#ifdef MPI +! include 'mpif.h' +!#endif +! include 'COMMON.SETUP' +! include 'COMMON.CONTROL' +! include 'COMMON.HOMOLOGY' +! include 'COMMON.CHAIN' +! include 'COMMON.IOUNITS' +! include 'COMMON.MD' +! include 'COMMON.QRESTR' +! include 'COMMON.GEO' +! include 'COMMON.INTERACT' +! include 'COMMON.NAMES' +! include 'COMMON.VAR' +! + +! double precision odl_temp,sigma_odl_temp,waga_theta,waga_d, +! & dist_cut +! common /przechowalnia/ odl_temp(maxres,maxres,max_template), +! & sigma_odl_temp(maxres,maxres,max_template) + character*2 kic2 + character*24 model_ki_dist, model_ki_angle + character*500 controlcard + integer :: ki,i,ii,j,k,l + integer, dimension (:), allocatable :: ii_in_use + integer :: i_tmp,idomain_tmp,& + irec,ik,iistart,nres_temp +! integer :: iset +! external :: ilen + logical :: liiflag,lfirst + integer :: i01,i10 +! +! FP - Nov. 2014 Temporary specifications for new vars +! + real(kind=8) :: rescore_tmp,x12,y12,z12,rescore2_tmp,& + rescore3_tmp, dist_cut + real(kind=8), dimension (:,:),allocatable :: rescore + real(kind=8), dimension (:,:),allocatable :: rescore2 + real(kind=8), dimension (:,:),allocatable :: rescore3 + real(kind=8) :: distal + character*24 tpl_k_rescore + character*256 pdbfile + +! ----------------------------------------------------------------- +! Reading multiple PDB ref structures and calculation of retraints +! not using pre-computed ones stored in files model_ki_{dist,angle} +! FP (Nov., 2014) +! ----------------------------------------------------------------- +! +! +! Alternative: reading from input + call card_concat(controlcard,.true.) + call reada(controlcard,"HOMOL_DIST",waga_dist,1.0d0) + call reada(controlcard,"HOMOL_ANGLE",waga_angle,1.0d0) + call reada(controlcard,"HOMOL_THETA",waga_theta,1.0d0) ! new + call reada(controlcard,"HOMOL_SCD",waga_d,1.0d0) ! new + call reada(controlcard,'DIST_CUT',dist_cut,5.0d0) ! for diff ways of calc sigma + call reada(controlcard,'DIST2_CUT',dist2_cut,9999.0d0) + call readi(controlcard,"HOMOL_NSET",homol_nset,1) + read2sigma=(index(controlcard,'READ2SIGMA').gt.0) + start_from_model=(index(controlcard,'START_FROM_MODELS').gt.0) + if(.not.read2sigma.and.start_from_model) then + if(me.eq.king .or. .not. out1file .and. fg_rank.eq.0)& + write(iout,*) 'START_FROM_MODELS works only with READ2SIGMA' + start_from_model=.false. + iranconf=(indpdb.le.0) + endif + if(start_from_model .and. (me.eq.king .or. .not. out1file))& + write(iout,*) 'START_FROM_MODELS is ON' +! if(start_from_model .and. rest) then +! if(me.eq.king .or. .not. out1file .and. fg_rank.eq.0) then +! write(iout,*) 'START_FROM_MODELS is OFF' +! write(iout,*) 'remove restart keyword from input' +! endif +! endif + if (start_from_model) nmodel_start=constr_homology + if(.not.allocated(waga_homology)) allocate (waga_homology(homol_nset)) + if (homol_nset.gt.1)then + call card_concat(controlcard,.true.) + read(controlcard,*) (waga_homology(i),i=1,homol_nset) + if(me.eq.king .or. .not. out1file .and. fg_rank.eq.0) then +! write(iout,*) "iset homology_weight " + do i=1,homol_nset + write(iout,*) i,waga_homology(i) + enddo + endif + iset=mod(kolor,homol_nset)+1 + else + iset=1 + waga_homology(1)=1.0 + endif + +!d write (iout,*) "nnt",nnt," nct",nct +!d call flush(iout) + + if (read_homol_frag) then + call read_klapaucjusz + else + + lim_odl=0 + lim_dih=0 +! +! write(iout,*) 'nnt=',nnt,'nct=',nct +! +! do i = nnt,nct +! do k=1,constr_homology +! idomain(k,i)=0 +! enddo +! enddo + idomain=0 + +! ii=0 +! do i = nnt,nct-2 +! do j=i+2,nct +! ii=ii+1 +! ii_in_use(ii)=0 +! enddo +! enddo + ii_in_use=0 + if(.not.allocated(pdbfiles_chomo)) allocate(pdbfiles_chomo(constr_homology)) + if(.not.allocated(chomo)) allocate(chomo(3,2*nres+2,constr_homology)) + + do k=1,constr_homology + + read(inp,'(a)') pdbfile + pdbfiles_chomo(k)=pdbfile + if(me.eq.king .or. .not. out1file) & + write (iout,'(a,5x,a)') 'HOMOL: Opening PDB file',& + pdbfile(:ilen(pdbfile)) + open(ipdbin,file=pdbfile,status='old',err=33) + goto 34 + 33 write (iout,'(a,5x,a)') 'Error opening PDB file',& + pdbfile(:ilen(pdbfile)) + stop + 34 continue +! print *,'Begin reading pdb data' +! +! Files containing res sim or local scores (former containing sigmas) +! + + write(kic2,'(bz,i2.2)') k + + tpl_k_rescore="template"//kic2//".sco" + write(iout,*) "tpl_k_rescore=",tpl_k_rescore + unres_pdb=.false. + nres_temp=nres + write(iout,*) "read2sigma",read2sigma + + if (read2sigma) then + call readpdb_template(k) + else + call readpdb + endif + write(iout,*) "after readpdb" + if(.not.allocated(nres_chomo)) allocate(nres_chomo(constr_homology)) + nres_chomo(k)=nres + nres=nres_temp + if(.not.allocated(rescore)) allocate(rescore(constr_homology,nres)) + if(.not.allocated(rescore2)) allocate(rescore2(constr_homology,nres)) + if(.not.allocated(rescore3)) allocate(rescore3(constr_homology,nres)) + if(.not.allocated(ii_in_use)) allocate(ii_in_use(nres*(nres-1))) + if(.not.allocated(idomain)) allocate(idomain(constr_homology,nres)) + if(.not.allocated(l_homo)) allocate(l_homo(constr_homology,1000*nres)) + if(.not.allocated(ires_homo)) allocate(ires_homo(nres*200)) + if(.not.allocated(jres_homo)) allocate(jres_homo(nres*200)) + if(.not.allocated(odl)) allocate(odl(constr_homology,nres*200)) + if(.not.allocated(sigma_odl)) allocate(sigma_odl(constr_homology,nres*200)) + if(.not.allocated(dih)) allocate(dih(constr_homology,nres)) + if(.not.allocated(sigma_dih)) allocate(sigma_dih(constr_homology,nres)) + if(.not.allocated(thetatpl)) allocate(thetatpl(constr_homology,nres)) + if(.not.allocated(sigma_theta)) allocate(sigma_theta(constr_homology,nres)) +! if(.not.allocated(thetatpl)) allocate(thetatpl(constr_homology,nres)) + if(.not.allocated(sigma_d)) allocate(sigma_d(constr_homology,nres)) + if(.not.allocated(xxtpl)) allocate(xxtpl(constr_homology,nres)) + if(.not.allocated(yytpl)) allocate(yytpl(constr_homology,nres)) + if(.not.allocated(zztpl)) allocate(zztpl(constr_homology,nres)) +! if(.not.allocated(distance)) allocate(distance(constr_homology)) +! if(.not.allocated(distancek)) allocate(distancek(constr_homology)) + + +! +! Distance restraints +! +! ... --> odl(k,ii) +! Copy the coordinates from reference coordinates (?) + do i=1,2*nres_chomo(k) + do j=1,3 + c(j,i)=cref(j,i,1) +! write (iout,*) "c(",j,i,") =",c(j,i) + enddo + enddo +! +! From read_dist_constr (commented out 25/11/2014 <-> res sim) +! +! write(iout,*) "tpl_k_rescore - ",tpl_k_rescore + open (ientin,file=tpl_k_rescore,status='old') + if (nnt.gt.1) rescore(k,1)=0.0d0 + do irec=nnt,nct ! loop for reading res sim + if (read2sigma) then + read (ientin,*,end=1401) i_tmp,rescore2_tmp,rescore_tmp,& + rescore3_tmp,idomain_tmp + i_tmp=i_tmp+nnt-1 + idomain(k,i_tmp)=idomain_tmp + rescore(k,i_tmp)=rescore_tmp + rescore2(k,i_tmp)=rescore2_tmp + rescore3(k,i_tmp)=rescore3_tmp + if (.not. out1file .or. me.eq.king)& + write(iout,'(a7,i5,3f10.5,i5)') "rescore",& + i_tmp,rescore2_tmp,rescore_tmp,& + rescore3_tmp,idomain_tmp + else + idomain(k,irec)=1 + read (ientin,*,end=1401) rescore_tmp + +! rescore(k,irec)=rescore_tmp+1.0d0 ! to avoid 0 values + rescore(k,irec)=0.5d0*(rescore_tmp+0.5d0) ! alt transf to reduce scores +! write(iout,*) "rescore(",k,irec,") =",rescore(k,irec) + endif + enddo + 1401 continue + close (ientin) + if (waga_dist.ne.0.0d0) then + ii=0 + do i = nnt,nct-2 + do j=i+2,nct + + x12=c(1,i)-c(1,j) + y12=c(2,i)-c(2,j) + z12=c(3,i)-c(3,j) + distal=dsqrt(x12*x12+y12*y12+z12*z12) +! write (iout,*) k,i,j,distal,dist2_cut + + if (idomain(k,i).eq.idomain(k,j).and.idomain(k,i).ne.0 & + .and. distal.le.dist2_cut ) then + + ii=ii+1 + ii_in_use(ii)=1 + l_homo(k,ii)=.true. + +! write (iout,*) "k",k +! write (iout,*) "i",i," j",j," constr_homology", +! & constr_homology + ires_homo(ii)=i + jres_homo(ii)=j + odl(k,ii)=distal + if (read2sigma) then + sigma_odl(k,ii)=0 + do ik=i,j + sigma_odl(k,ii)=sigma_odl(k,ii)+rescore2(k,ik) + enddo + sigma_odl(k,ii)=sigma_odl(k,ii)/(j-i+1) + if (odl(k,ii).gt.dist_cut) sigma_odl(k,ii) = & + sigma_odl(k,ii)*dexp(0.5d0*(odl(k,ii)/dist_cut)**2-0.5d0) + else + if (odl(k,ii).le.dist_cut) then + sigma_odl(k,ii)=rescore(k,i)+rescore(k,j) + else +#ifdef OLDSIGMA + sigma_odl(k,ii)=(rescore(k,i)+rescore(k,j))* & + dexp(0.5d0*(odl(k,ii)/dist_cut)**2) +#else + sigma_odl(k,ii)=(rescore(k,i)+rescore(k,j))* & + dexp(0.5d0*(odl(k,ii)/dist_cut)**2-0.5d0) +#endif + endif + endif + sigma_odl(k,ii)=1.0d0/(sigma_odl(k,ii)*sigma_odl(k,ii)) + else +! ii=ii+1 +! l_homo(k,ii)=.false. + endif + enddo + enddo + lim_odl=ii + endif +! write (iout,*) "Distance restraints set" +! call flush(iout) +! +! Theta, dihedral and SC retraints +! + if (waga_angle.gt.0.0d0) then +! open (ientin,file=tpl_k_sigma_dih,status='old') +! do irec=1,maxres-3 ! loop for reading sigma_dih +! read (ientin,*,end=1402) i,j,ki,l,sigma_dih(k,i+nnt-1) ! j,ki,l what for? +! if (i+nnt-1.gt.lim_dih) lim_dih=i+nnt-1 ! right? +! sigma_dih(k,i+nnt-1)=sigma_dih(k,i+nnt-1)* ! not inverse because of use of res. similarity +! & sigma_dih(k,i+nnt-1) +! enddo +!1402 continue +! close (ientin) + do i = nnt+3,nct + if (idomain(k,i).eq.0) then + sigma_dih(k,i)=0.0 + cycle + endif + dih(k,i)=phiref(i) ! right? +! read (ientin,*) sigma_dih(k,i) ! original variant +! write (iout,*) "dih(",k,i,") =",dih(k,i) +! write(iout,*) "rescore(",k,i,") =",rescore(k,i), +! & "rescore(",k,i-1,") =",rescore(k,i-1), +! & "rescore(",k,i-2,") =",rescore(k,i-2), +! & "rescore(",k,i-3,") =",rescore(k,i-3) + + sigma_dih(k,i)=(rescore(k,i)+rescore(k,i-1)+ & + rescore(k,i-2)+rescore(k,i-3))/4.0 +! if (read2sigma) sigma_dih(k,i)=sigma_dih(k,i)/4.0 +! write (iout,*) "Raw sigmas for dihedral angle restraints" +! write (iout,'(i5,10(2f8.2,4x))') i,sigma_dih(k,i) +! sigma_dih(k,i)=hmscore(k)*rescore(k,i)*rescore(k,i-1)* +! rescore(k,i-2)*rescore(k,i-3) ! right expression ? +! Instead of res sim other local measure of b/b str reliability possible + if (sigma_dih(k,i).ne.0) & + sigma_dih(k,i)=1.0d0/(sigma_dih(k,i)*sigma_dih(k,i)) +! sigma_dih(k,i)=sigma_dih(k,i)*sigma_dih(k,i) + enddo + lim_dih=nct-nnt-2 + endif +! write (iout,*) "Dihedral angle restraints set" +! call flush(iout) + + if (waga_theta.gt.0.0d0) then +! open (ientin,file=tpl_k_sigma_theta,status='old') +! do irec=1,maxres-2 ! loop for reading sigma_theta, right bounds? +! read (ientin,*,end=1403) i,j,ki,sigma_theta(k,i+nnt-1) ! j,ki what for? +! sigma_theta(k,i+nnt-1)=sigma_theta(k,i+nnt-1)* ! not inverse because of use of res. similarity +! & sigma_theta(k,i+nnt-1) +! enddo +!1403 continue +! close (ientin) + + do i = nnt+2,nct ! right? without parallel. +! do i = i=1,nres ! alternative for bounds acc to readpdb? +! do i=ithet_start,ithet_end ! with FG parallel. + if (idomain(k,i).eq.0) then + sigma_theta(k,i)=0.0 + cycle + endif + thetatpl(k,i)=thetaref(i) +! write (iout,*) "thetatpl(",k,i,") =",thetatpl(k,i) +! write(iout,*) "rescore(",k,i,") =",rescore(k,i), +! & "rescore(",k,i-1,") =",rescore(k,i-1), +! & "rescore(",k,i-2,") =",rescore(k,i-2) +! read (ientin,*) sigma_theta(k,i) ! 1st variant + sigma_theta(k,i)=(rescore(k,i)+rescore(k,i-1)+ & + rescore(k,i-2))/3.0 +! if (read2sigma) sigma_theta(k,i)=sigma_theta(k,i)/3.0 + if (sigma_theta(k,i).ne.0) & + sigma_theta(k,i)=1.0d0/(sigma_theta(k,i)*sigma_theta(k,i)) + +! sigma_theta(k,i)=hmscore(k)*rescore(k,i)*rescore(k,i-1)* +! rescore(k,i-2) ! right expression ? +! sigma_theta(k,i)=sigma_theta(k,i)*sigma_theta(k,i) + enddo + endif +! write (iout,*) "Angle restraints set" +! call flush(iout) + + if (waga_d.gt.0.0d0) then +! open (ientin,file=tpl_k_sigma_d,status='old') +! do irec=1,maxres-1 ! loop for reading sigma_theta, right bounds? +! read (ientin,*,end=1404) i,j,sigma_d(k,i+nnt-1) ! j,ki what for? +! sigma_d(k,i+nnt-1)=sigma_d(k,i+nnt-1)* ! not inverse because of use of res. similarity +! & sigma_d(k,i+nnt-1) +! enddo +!1404 continue + + do i = nnt,nct ! right? without parallel. +! do i=2,nres-1 ! alternative for bounds acc to readpdb? +! do i=loc_start,loc_end ! with FG parallel. + if (itype(i,1).eq.10) cycle + if (idomain(k,i).eq.0 ) then + sigma_d(k,i)=0.0 + cycle + endif + xxtpl(k,i)=xxref(i) + yytpl(k,i)=yyref(i) + zztpl(k,i)=zzref(i) +! write (iout,*) "xxtpl(",k,i,") =",xxtpl(k,i) +! write (iout,*) "yytpl(",k,i,") =",yytpl(k,i) +! write (iout,*) "zztpl(",k,i,") =",zztpl(k,i) +! write(iout,*) "rescore(",k,i,") =",rescore(k,i) + sigma_d(k,i)=rescore3(k,i) ! right expression ? + if (sigma_d(k,i).ne.0) & + sigma_d(k,i)=1.0d0/(sigma_d(k,i)*sigma_d(k,i)) + +! sigma_d(k,i)=hmscore(k)*rescore(k,i) ! right expression ? +! sigma_d(k,i)=sigma_d(k,i)*sigma_d(k,i) +! read (ientin,*) sigma_d(k,i) ! 1st variant + enddo + endif + enddo +! write (iout,*) "SC restraints set" +! call flush(iout) +! +! remove distance restraints not used in any model from the list +! shift data in all arrays +! +! write (iout,*) "waga_dist",waga_dist," nnt",nnt," nct",nct + if (waga_dist.ne.0.0d0) then + ii=0 + liiflag=.true. + lfirst=.true. + do i=nnt,nct-2 + do j=i+2,nct + ii=ii+1 +! if (idomain(k,i).eq.idomain(k,j).and.idomain(k,i).ne.0 +! & .and. distal.le.dist2_cut ) then +! write (iout,*) "i",i," j",j," ii",ii +! call flush(iout) + if (ii_in_use(ii).eq.0.and.liiflag.or. & + ii_in_use(ii).eq.1.and.liiflag.and.ii.eq.lim_odl) then + liiflag=.false. + i10=ii + if (lfirst) then + lfirst=.false. + iistart=ii + else + if(i10.eq.lim_odl) i10=i10+1 + do ki=0,i10-i01-1 + ires_homo(iistart+ki)=ires_homo(ki+i01) + jres_homo(iistart+ki)=jres_homo(ki+i01) + ii_in_use(iistart+ki)=ii_in_use(ki+i01) + do k=1,constr_homology + odl(k,iistart+ki)=odl(k,ki+i01) + sigma_odl(k,iistart+ki)=sigma_odl(k,ki+i01) + l_homo(k,iistart+ki)=l_homo(k,ki+i01) + enddo + enddo + iistart=iistart+i10-i01 + endif + endif + if (ii_in_use(ii).ne.0.and..not.liiflag) then + i01=ii + liiflag=.true. + endif + enddo + enddo + lim_odl=iistart-1 + endif +! write (iout,*) "Removing distances completed" +! call flush(iout) + endif ! .not. klapaucjusz + + if (constr_homology.gt.0) call homology_partition + write (iout,*) "After homology_partition" + call flush(iout) + if (constr_homology.gt.0) call init_int_table + write (iout,*) "After init_int_table" + call flush(iout) +! endif ! .not. klapaucjusz +! endif +! if (constr_homology.gt.0) call homology_partition +! write (iout,*) "After homology_partition" +! call flush(iout) +! if (constr_homology.gt.0) call init_int_table +! write (iout,*) "After init_int_table" +! call flush(iout) +! write (iout,*) "ithet_start =",ithet_start,"ithet_end =",ithet_end +! write (iout,*) "loc_start =",loc_start,"loc_end =",loc_end +! +! Print restraints +! + if (.not.out_template_restr) return +!d write(iout,*) "waga_theta",waga_theta,"waga_d",waga_d + if(me.eq.king .or. .not. out1file .and. fg_rank.eq.0) then + write (iout,*) "Distance restraints from templates" + do ii=1,lim_odl + write(iout,'(3i7,100(2f8.2,1x,l1,4x))') & + ii,ires_homo(ii),jres_homo(ii),& + (odl(ki,ii),1.0d0/dsqrt(sigma_odl(ki,ii)),l_homo(ki,ii),& + ki=1,constr_homology) + enddo + write (iout,*) "Dihedral angle restraints from templates" + do i=nnt+3,nct + write (iout,'(i7,a4,100(2f8.2,4x))') i,restyp(itype(i,1),1),& + (rad2deg*dih(ki,i),& + rad2deg/dsqrt(sigma_dih(ki,i)),ki=1,constr_homology) + enddo + write (iout,*) "Virtual-bond angle restraints from templates" + do i=nnt+2,nct + write (iout,'(i7,a4,100(2f8.2,4x))') i,restyp(itype(i,1),1),& + (rad2deg*thetatpl(ki,i),& + rad2deg/dsqrt(sigma_theta(ki,i)),ki=1,constr_homology) + enddo + write (iout,*) "SC restraints from templates" + do i=nnt,nct + write(iout,'(i7,100(4f8.2,4x))') i,& + (xxtpl(ki,i),yytpl(ki,i),zztpl(ki,i), & + 1.0d0/dsqrt(sigma_d(ki,i)),ki=1,constr_homology) + enddo + endif + return + end subroutine read_constr_homology +!---------------------------------------------------------------------------- subroutine molread ! ! Read molecular data. ! - use geometry_data, only: nsup,cref,nres0,nstart_sup,nstart_seq,dc + use geometry_data, only: nsup,cref,nres0,nstart_sup,nstart_seq,dc,& + deg2rad,phibound,crefjlee,cref,rad2deg use energy_data!, only: wsc,wscp,welec,wbond,wstrain,wtor,wtor_d,& ! wang,wscloc,wcorr,wcorr4,wcorr5,wcorr6,wsccor,wel_loc,& ! wturn3,wturn4,wturn6,wvdwpp,weights use control_data, only: titel,nstart,nend,pdbref,refstr,iscode,& - indpdb + indpdb,constr_dist,raw_psipred, with_theta_constr use geometry, only: chainbuild,alloc_geo_arrays use energy, only: alloc_ener_arrays use io_base, only: rescode @@ -1433,10 +1951,12 @@ ! include 'COMMON.INFO' !#endif character(len=4) :: sequence(nres) !(maxres) - character(len=800) :: weightcard + character(len=800) :: weightcard,controlcard ! integer rescode real(kind=8) :: x(6*nres) !(maxvar) real(kind=8) :: ssscale + real(kind=8) :: phihel,phibet,sigmahel,sigmabet,sumv,& + secprob(3,maxres) integer :: itype_pdb(nres) !(maxres) ! logical seq_comp integer :: i,j,kkk,mnum @@ -1747,12 +2267,172 @@ ! write (iout,*) 'nsup=',nsup,' nstart_sup=',nstart_sup, ! & ' nstart_seq=',nstart_seq ! endif -write(iout,*)"przed ini_int_tab" + if (with_dihed_constr) then + + read (inp,*) ndih_constr + if (ndih_constr.gt.0) then + raw_psipred=.false. +!C read (inp,*) ftors +!C write (iout,*) 'FTORS',ftors +!C ftors is the force constant for torsional quartic constrains + read (inp,*) (idih_constr(i),phi0(i),drange(i),ftors(i),& + i=1,ndih_constr) + write (iout,*)& + 'There are',ndih_constr,' constraints on phi angles.' + do i=1,ndih_constr + write (iout,'(i5,3f8.3)') idih_constr(i),phi0(i),drange(i),& + ftors(i) + enddo + do i=1,ndih_constr + phi0(i)=deg2rad*phi0(i) + drange(i)=deg2rad*drange(i) + enddo + else if (ndih_constr.lt.0) then + raw_psipred=.true. + call card_concat(controlcard,.true.) + call reada(controlcard,"PHIHEL",phihel,50.0D0) + call reada(controlcard,"PHIBET",phibet,180.0D0) + call reada(controlcard,"SIGMAHEL",sigmahel,30.0d0) + call reada(controlcard,"SIGMABET",sigmabet,40.0d0) + call reada(controlcard,"WDIHC",wdihc,0.591d0) + write (iout,*) "Weight of the dihedral restraint term",wdihc + read(inp,'(9x,3f7.3)')& + (secprob(1,i),secprob(2,i),secprob(3,i),i=nnt,nct) + write (iout,*) "The secprob array" + do i=nnt,nct + write (iout,'(i5,3f8.3)') i,(secprob(j,i),j=1,3) + enddo + ndih_constr=0 + do i=nnt+3,nct + if (itype(i-3,molnum(i-3)).ne.ntyp1 .and. itype(i-2,molnum(i-2)).ne.ntyp1& + .and. itype(i-1,molnum(i-1)).ne.ntyp1 .and. itype(i,molnum(i)).ne.ntyp1) then + ndih_constr=ndih_constr+1 + idih_constr(ndih_constr)=i + sumv=0.0d0 + do j=1,3 + vpsipred(j,ndih_constr)=secprob(j,i-1)*secprob(j,i-2) + sumv=sumv+vpsipred(j,ndih_constr) + enddo + do j=1,3 + vpsipred(j,ndih_constr)=vpsipred(j,ndih_constr)/sumv + enddo + phibound(1,ndih_constr)=phihel*deg2rad + phibound(2,ndih_constr)=phibet*deg2rad + sdihed(1,ndih_constr)=sigmahel*deg2rad + sdihed(2,ndih_constr)=sigmabet*deg2rad + endif + enddo + write (iout,*)& + 'There are',ndih_constr,& + ' bimodal restraints on gamma angles.' + do i=1,ndih_constr + write(iout,'(i5,1x,a4,i5,1h-,a4,i5,4f8.3,3f10.5)') i,& + restyp(itype(idih_constr(i)-2,molnum(idih_constr(i)-2)),& + molnum(idih_constr(i)-2)),idih_constr(i)-2,& + restyp(itype(idih_constr(i)-1,molnum(idih_constr(i)-1)),& + molnum(idih_constr(i)-2)),idih_constr(i)-1,& + phibound(1,i)*rad2deg,sdihed(1,i)*rad2deg,& + phibound(2,i)*rad2deg,sdihed(2,i)*rad2deg,& + (vpsipred(j,i),j=1,3) + enddo + + endif ! endif ndif_constr.gt.0 + endif ! with_dihed_constr + if (with_theta_constr) then +!C with_theta_constr is keyword allowing for occurance of theta constrains + read (inp,*) ntheta_constr +!C ntheta_constr is the number of theta constrains + if (ntheta_constr.gt.0) then +!C read (inp,*) ftors + read (inp,*) (itheta_constr(i),theta_constr0(i),& + theta_drange(i),for_thet_constr(i),& + i=1,ntheta_constr) +!C the above code reads from 1 to ntheta_constr +!C itheta_constr(i) residue i for which is theta_constr +!C theta_constr0 the global minimum value +!C theta_drange is range for which there is no energy penalty +!C for_thet_constr is the force constant for quartic energy penalty +!C E=k*x**4 + write (iout,*)& + 'There are',ntheta_constr,' constraints on phi angles.' + do i=1,ntheta_constr + write (iout,'(i5,3f8.3)') itheta_constr(i),theta_constr0(i),& + theta_drange(i),& + for_thet_constr(i) + enddo +!C endif + do i=1,ntheta_constr + theta_constr0(i)=deg2rad*theta_constr0(i) + theta_drange(i)=deg2rad*theta_drange(i) + enddo +!C if(me.eq.king.or..not.out1file) +!C & write (iout,*) 'FTORS',ftors +!C do i=1,ntheta_constr +!C ii = itheta_constr(i) +!C thetabound(1,ii) = phi0(i)-drange(i) +!C thetabound(2,ii) = phi0(i)+drange(i) +!C enddo + endif ! ntheta_constr.gt.0 + endif! with_theta_constr + if (constr_homology.gt.0) then +!c write (iout,*) "About to call read_constr_homology" +!c call flush(iout) + call read_constr_homology +!c write (iout,*) "Exit read_constr_homology" +!c call flush(iout) + if (indpdb.gt.0 .or. pdbref) then + kkk=1 + do i=1,2*nres + do j=1,3 + c(j,i)=crefjlee(j,i) + cref(j,i,kkk)=crefjlee(j,i) + enddo + enddo + endif +#ifdef DEBUG + write (iout,*) "Array C" + do i=1,nres + write (iout,'(i5,3f8.3,5x,3f8.3)') i,(c(j,i),j=1,3),& + (c(j,i+nres),j=1,3) + enddo + write (iout,*) "Array Cref" + do i=1,nres + write (iout,'(i5,3f8.3,5x,3f8.3)') i,(cref(j,i),j=1,3),& + (cref(j,i+nres),j=1,3) + enddo +#endif +#ifdef DEBUG + call int_from_cart1(.false.) + call sc_loc_geom(.false.) + do i=1,nres + thetaref(i)=theta(i) + phiref(i)=phi(i) + write (iout,*) i," phiref",phiref(i)," thetaref",thetaref(i) + enddo + do i=1,nres-1 + do j=1,3 + dc(j,i)=c(j,i+1)-c(j,i) + dc_norm(j,i)=dc(j,i)*vbld_inv(i+1) + enddo + enddo + do i=2,nres-1 + do j=1,3 + dc(j,i+nres)=c(j,i+nres)-c(j,i) + dc_norm(j,i+nres)=dc(j,i+nres)*vbld_inv(i+nres) + enddo + enddo +#endif + else + homol_nset=0 + endif + + + write(iout,*)"przed ini_int_tab" call init_int_table -write(iout,*)"po ini_int_tab" -write(iout,*)"przed setup var" + write(iout,*)"po ini_int_tab" + write(iout,*)"przed setup var" call setup_var -write(iout,*)"po setup var" + write(iout,*)"po setup var" if (ns.gt.0.and.dyn_ss) then do i=nss+1,nhpb ihpb(i-nss)=ihpb(i) @@ -2071,37 +2751,380 @@ write(iout,*)"po setup var" return end subroutine cartout !------------------------------------------------------------------------------ -! subroutine alloc_clust_arrays(n_conf) - -! integer :: n_conf -!COMMON.CLUSTER -! common /clu/ -! allocate(diss(maxdist)) !(maxdist) -!el allocate(energy(0:maxconf),totfree(0:maxconf)) !(0:maxconf) -! allocatable :: enetb !(max_ene,maxstr_proc) -!el allocate(entfac(maxconf)) !(maxconf) -! allocatable :: totfree_gr !(maxgr) -!el allocate(rcutoff(max_cut+1)) !(max_cut+1) -! common /clu1/ -! allocatable :: licz,iass !(maxgr) -! allocatable :: nconf !(maxgr,maxingr) -! allocatable :: iass_tot !(maxgr,max_cut) -! allocatable :: list_conf !(maxconf) -! common /alles/ -!el allocatable :: allcart !(3,maxres2,maxstr_proc) -!el allocate(rmstb(maxconf)) !(maxconf) -!el allocate(mult(nres)) !(maxres) -!el allocatable :: nss_all !(maxstr_proc) -!el allocatable :: ihpb_all,jhpb_all !(maxss,maxstr_proc) -! allocate(icc(n_conf),iscore(n_conf)) !(maxconf) -!COMMON.TEMPFAC -! common /factemp/ -! allocatable :: tempfac !(2,maxres) -!COMMON.FREE -! common /free/ -!el allocate(beta_h(maxT)) !(maxT) - -! end subroutine alloc_clust_arrays -!----------------------------------------------------------------------------- + subroutine read_klapaucjusz + use energy_data + use control_data, only:unres_pdb + use geometry_data, only:theta,thetaref,phi,phiref,& + xxref,yyref,zzref + implicit none +! include 'DIMENSIONS' +!#ifdef MPI +! include 'mpif.h' +!#endif +! include 'COMMON.SETUP' +! include 'COMMON.CONTROL' +! include 'COMMON.HOMOLOGY' +! include 'COMMON.CHAIN' +! include 'COMMON.IOUNITS' +! include 'COMMON.MD' +! include 'COMMON.GEO' +! include 'COMMON.INTERACT' +! include 'COMMON.NAMES' + character(len=256) fragfile + integer, dimension(:), allocatable :: ninclust,nresclust,itype_temp,& + ii_in_use + integer, dimension(:,:), allocatable :: iresclust,inclust + integer :: nclust + + character(len=2) :: kic2 + character(len=24) :: model_ki_dist, model_ki_angle + character(len=500) :: controlcard + integer :: ki, i, j, jj,k, l, i_tmp,& + idomain_tmp,& + ik,ll,lll,ii_old,ii,iii,ichain,kk,iistart,iishift,lim_xx,igr,& + i01,i10,nnt_chain,nct_chain + real(kind=8) :: distal + logical :: lprn = .true. + integer :: nres_temp +! integer :: ilen +! external :: ilen + logical :: liiflag,lfirst + + real(kind=8) rescore_tmp,x12,y12,z12,rescore2_tmp,dist_cut + real(kind=8), dimension (:,:), allocatable :: rescore + real(kind=8), dimension (:,:), allocatable :: rescore2 + character(len=24) :: tpl_k_rescore + character(len=256) :: pdbfile + +! +! For new homol impl +! +! include 'COMMON.VAR' +! +! write (iout,*) "READ_KLAPAUCJUSZ" +! print *,"READ_KLAPAUCJUSZ" +! call flush(iout) + call getenv("FRAGFILE",fragfile) + write (iout,*) "Opening", fragfile + call flush(iout) + open(ientin,file=fragfile,status="old",err=10) +! write (iout,*) " opened" +! call flush(iout) + + sigma_theta=0.0 + sigma_d=0.0 + sigma_dih=0.0 + l_homo = .false. + + nres_temp=nres + itype_temp(:)=itype(:,1) + ii=0 + lim_odl=0 + +! write (iout,*) "Entering loop" +! call flush(iout) + + DO IGR = 1,NCHAIN_GROUP + +! write (iout,*) "igr",igr + call flush(iout) + read(ientin,*) constr_homology,nclust + if (start_from_model) then + nmodel_start=constr_homology + else + nmodel_start=0 + endif + + ii_old=lim_odl + + ichain=iequiv(1,igr) + nnt_chain=chain_border(1,ichain)-chain_border1(1,ichain)+1 + nct_chain=chain_border(2,ichain)-chain_border1(1,ichain)+1 +! write (iout,*) "nnt_chain",nnt_chain," nct_chain",nct_chain + +! Read pdb files + if(.not.allocated(pdbfiles_chomo)) allocate(pdbfiles_chomo(constr_homology)) + if(.not.allocated(nres_chomo)) allocate(nres_chomo(constr_homology)) + do k=1,constr_homology + read(ientin,'(a)') pdbfile + write (iout,'(a,5x,a)') 'KLAPAUCJUSZ: Opening PDB file', & + pdbfile(:ilen(pdbfile)) + pdbfiles_chomo(k)=pdbfile + open(ipdbin,file=pdbfile,status='old',err=33) + goto 34 + 33 write (iout,'(a,5x,a)') 'Error opening PDB file',& + pdbfile(:ilen(pdbfile)) + stop + 34 continue + unres_pdb=.false. +! nres_temp=nres + call readpdb_template(k) + nres_chomo(k)=nres +! nres=nres_temp + do i=1,nres + rescore(k,i)=0.2d0 + rescore2(k,i)=1.0d0 + enddo + enddo +! Read clusters + do i=1,nclust + read(ientin,*) ninclust(i),nresclust(i) + read(ientin,*) (inclust(k,i),k=1,ninclust(i)) + read(ientin,*) (iresclust(k,i),k=1,nresclust(i)) + enddo +! +! Loop over clusters +! + do l=1,nclust + do ll = 1,ninclust(l) + + k = inclust(ll,l) +! write (iout,*) "l",l," ll",ll," k",k + do i=1,nres + idomain(k,i)=0 + enddo + do i=1,nresclust(l) + if (nnt.gt.1) then + idomain(k,iresclust(i,l)+1) = 1 + else + idomain(k,iresclust(i,l)) = 1 + endif + enddo +! +! Distance restraints +! +! ... --> odl(k,ii) +! Copy the coordinates from reference coordinates (?) +! nres_temp=nres + nres=nres_chomo(k) + do i=1,2*nres + do j=1,3 + c(j,i)=chomo(j,i,k) +! write (iout,*) "c(",j,i,") =",c(j,i) + enddo + enddo + call int_from_cart(.true.,.false.) + call sc_loc_geom(.false.) + do i=1,nres + thetaref(i)=theta(i) + phiref(i)=phi(i) + enddo +! nres=nres_temp + if (waga_dist.ne.0.0d0) then + ii=ii_old +! do i = nnt,nct-2 + do i = nnt_chain,nct_chain-2 +! do j=i+2,nct + do j=i+2,nct_chain + + x12=c(1,i)-c(1,j) + y12=c(2,i)-c(2,j) + z12=c(3,i)-c(3,j) + distal=dsqrt(x12*x12+y12*y12+z12*z12) +! write (iout,*) k,i,j,distal,dist2_cut + + if (idomain(k,i).eq.idomain(k,j).and.idomain(k,i).ne.0 & + .and. distal.le.dist2_cut ) then + + ii=ii+1 + ii_in_use(ii)=1 + l_homo(k,ii)=.true. + +! write (iout,*) "k",k +! write (iout,*) "i",i," j",j," constr_homology", +! & constr_homology + ires_homo(ii)=i+chain_border1(1,igr)-1 + jres_homo(ii)=j+chain_border1(1,igr)-1 + odl(k,ii)=distal + if (read2sigma) then + sigma_odl(k,ii)=0 + do ik=i,j + sigma_odl(k,ii)=sigma_odl(k,ii)+rescore2(k,ik) + enddo + sigma_odl(k,ii)=sigma_odl(k,ii)/(j-i+1) + if (odl(k,ii).gt.dist_cut) sigma_odl(k,ii) = & + sigma_odl(k,ii)*dexp(0.5d0*(odl(k,ii)/dist_cut)**2-0.5d0) + else + if (odl(k,ii).le.dist_cut) then + sigma_odl(k,ii)=rescore(k,i)+rescore(k,j) + else +#ifdef OLDSIGMA + sigma_odl(k,ii)=(rescore(k,i)+rescore(k,j))* & + dexp(0.5d0*(odl(k,ii)/dist_cut)**2) +#else + sigma_odl(k,ii)=(rescore(k,i)+rescore(k,j))* & + dexp(0.5d0*(odl(k,ii)/dist_cut)**2-0.5d0) +#endif + endif + endif + sigma_odl(k,ii)=1.0d0/(sigma_odl(k,ii)*sigma_odl(k,ii)) + else + ii=ii+1 +! l_homo(k,ii)=.false. + endif + enddo + enddo + lim_odl=ii + endif +! +! Theta, dihedral and SC retraints +! + if (waga_angle.gt.0.0d0) then + do i = nnt_chain+3,nct_chain + iii=i+chain_border1(1,igr)-1 + if (idomain(k,i).eq.0) then +! sigma_dih(k,i)=0.0 + cycle + endif + dih(k,iii)=phiref(i) + sigma_dih(k,iii)= & + (rescore(k,i)+rescore(k,i-1)+ & + rescore(k,i-2)+rescore(k,i-3))/4.0 +! write (iout,*) "k",k," l",l," i",i," rescore",rescore(k,i), +! & " sigma_dihed",sigma_dih(k,i) + if (sigma_dih(k,iii).ne.0) & + sigma_dih(k,iii)=1.0d0/(sigma_dih(k,iii)*sigma_dih(k,iii)) + enddo +! lim_dih=nct-nnt-2 + endif + + if (waga_theta.gt.0.0d0) then + do i = nnt_chain+2,nct_chain + iii=i+chain_border1(1,igr)-1 + if (idomain(k,i).eq.0) then +! sigma_theta(k,i)=0.0 + cycle + endif + thetatpl(k,iii)=thetaref(i) + sigma_theta(k,iii)=(rescore(k,i)+rescore(k,i-1)+ & + rescore(k,i-2))/3.0 + if (sigma_theta(k,iii).ne.0) & + sigma_theta(k,iii)=1.0d0/ & + (sigma_theta(k,iii)*sigma_theta(k,iii)) + enddo + endif + + if (waga_d.gt.0.0d0) then + do i = nnt_chain,nct_chain + iii=i+chain_border1(1,igr)-1 + if (itype(i,1).eq.10) cycle + if (idomain(k,i).eq.0 ) then +! sigma_d(k,i)=0.0 + cycle + endif + xxtpl(k,iii)=xxref(i) + yytpl(k,iii)=yyref(i) + zztpl(k,iii)=zzref(i) + sigma_d(k,iii)=rescore(k,i) + if (sigma_d(k,iii).ne.0) & + sigma_d(k,iii)=1.0d0/(sigma_d(k,iii)*sigma_d(k,iii)) +! if (i-nnt+1.gt.lim_xx) lim_xx=i-nnt+1 + enddo + endif + enddo ! l + enddo ! ll +! +! remove distance restraints not used in any model from the list +! shift data in all arrays +! +! write (iout,*) "ii_old",ii_old + if (waga_dist.ne.0.0d0) then +#ifdef DEBUG + write (iout,*) "Distance restraints from templates" + do iii=1,lim_odl + write(iout,'(4i5,100(2f8.2,1x,l1,4x))') & + iii,ii_in_use(iii),ires_homo(iii),jres_homo(iii), & + (odl(ki,iii),1.0d0/dsqrt(sigma_odl(ki,iii)),l_homo(ki,iii), & + ki=1,constr_homology) + enddo +#endif + ii=ii_old + liiflag=.true. + lfirst=.true. + do i=nnt_chain,nct_chain-2 + do j=i+2,nct_chain + ii=ii+1 +! if (idomain(k,i).eq.idomain(k,j).and.idomain(k,i).ne.0 +! & .and. distal.le.dist2_cut ) then +! write (iout,*) "i",i," j",j," ii",ii," i_in_use",ii_in_use(ii) +! call flush(iout) + if (ii_in_use(ii).eq.0.and.liiflag.or. & + ii_in_use(ii).eq.1.and.liiflag.and.ii.eq.lim_odl) then + liiflag=.false. + i10=ii + if (lfirst) then + lfirst=.false. + iistart=ii + else + if(i10.eq.lim_odl) i10=i10+1 + do ki=0,i10-i01-1 + ires_homo(iistart+ki)=ires_homo(ki+i01) + jres_homo(iistart+ki)=jres_homo(ki+i01) + ii_in_use(iistart+ki)=ii_in_use(ki+i01) + do k=1,constr_homology + odl(k,iistart+ki)=odl(k,ki+i01) + sigma_odl(k,iistart+ki)=sigma_odl(k,ki+i01) + l_homo(k,iistart+ki)=l_homo(k,ki+i01) + enddo + enddo + iistart=iistart+i10-i01 + endif + endif + if (ii_in_use(ii).ne.0.and..not.liiflag) then + i01=ii + liiflag=.true. + endif + enddo + enddo + lim_odl=iistart-1 + endif + + lll=lim_odl-ii_old + + do i=2,nequiv(igr) + + ichain=iequiv(i,igr) + + do j=nnt_chain,nct_chain + jj=j+chain_border1(1,ichain)-chain_border1(1,iequiv(1,igr)) + do k=1,constr_homology + dih(k,jj)=dih(k,j) + sigma_dih(k,jj)=sigma_dih(k,j) + thetatpl(k,jj)=thetatpl(k,j) + sigma_theta(k,jj)=sigma_theta(k,j) + xxtpl(k,jj)=xxtpl(k,j) + yytpl(k,jj)=yytpl(k,j) + zztpl(k,jj)=zztpl(k,j) + sigma_d(k,jj)=sigma_d(k,j) + enddo + enddo + + jj=chain_border1(1,ichain)-chain_border1(1,iequiv(i-1,igr)) +! write (iout,*) "igr",igr," i",i," ichain",ichain," jj",jj + do j=ii_old+1,lim_odl + ires_homo(j+lll)=ires_homo(j)+jj + jres_homo(j+lll)=jres_homo(j)+jj + do k=1,constr_homology + odl(k,j+lll)=odl(k,j) + sigma_odl(k,j+lll)=sigma_odl(k,j) + l_homo(k,j+lll)=l_homo(k,j) + enddo + enddo + + ii_old=ii_old+lll + lim_odl=lim_odl+lll + + enddo + + ENDDO ! IGR + + if (waga_angle.gt.0.0d0) lim_dih=nct-nnt-2 + nres=nres_temp + itype(:,1)=itype_temp(:) + + return + 10 stop "Error in fragment file" + end subroutine read_klapaucjusz + !----------------------------------------------------------------------------- end module io_clust diff --git a/source/cluster/main_clust.F b/source/cluster/main_clust.F index be5e364..650250e 100644 --- a/source/cluster/main_clust.F +++ b/source/cluster/main_clust.F @@ -129,7 +129,7 @@ c call flush(iout) #endif call probabl(iT,ncon_work,ncon,*20) - + write(iout,*) "after probabl" if (ncon_work.lt.2) then write (iout,*) "Too few conformations; clustering skipped" exit @@ -138,6 +138,7 @@ c call flush(iout) ndis=ncon_work*(ncon_work-1)/2 call work_partition(.true.,ndis) #endif + write(iout,*) "after work partition" DO I=1,NCON_work ICC(I)=I @@ -148,6 +149,7 @@ C C CALCULATE DISTANCES C call daread_ccoords(1,ncon_work) + write(iout,*) "after daread_ccords" ind1=0 DO I=1,NCON_work-1 if (mod(i,100).eq.0) print *,'Calculating RMS i=',i diff --git a/source/cluster/probabl.F90 b/source/cluster/probabl.F90 index fd7f817..2f9c7d3 100644 --- a/source/cluster/probabl.F90 +++ b/source/cluster/probabl.F90 @@ -41,7 +41,7 @@ real(kind=8) :: etot,evdw,evdw2,ees,evdw1,ebe,etors,escloc,& ehpb,ecorr,ecorr5,ecorr6,eello_turn4,eello_turn3,& eturn6,eel_loc,edihcnstr,etors_d,estr,evdw2_14,esccor,& - evdw_t + evdw_t,ehomology_constr integer :: i,ii,ik,iproc,iscor,j,k,l,ib,nlist,ncon real(kind=8) :: qfree,sumprob,eini,efree,rmsdev character(len=80) :: bxname @@ -143,7 +143,7 @@ #endif ! write (iout,*) "i",i," ii",ii ! call flush(iout) - if (ib.eq.1) then +! if (ib.eq.1) then do j=1,nres do k=1,3 c(k,j)=allcart(k,j,i) @@ -180,7 +180,7 @@ do k=1,max_ene enetb(k,i)=energia(k) enddo - endif +! endif !el evdw=enetb(1,i) ! write (iout,*) evdw etot=energia(0) diff --git a/source/unres/CMakeLists.txt b/source/unres/CMakeLists.txt index 8852d5f..3670a46 100644 --- a/source/unres/CMakeLists.txt +++ b/source/unres/CMakeLists.txt @@ -72,7 +72,7 @@ if (Fortran_COMPILER_NAME STREQUAL "ifort") set (CMAKE_Fortran_FLAGS_RELEASE " ") set (CMAKE_Fortran_FLAGS_DEBUG "-O0 -g -traceback") # set(FFLAGS0 "-fpp -c -CB -g -ip " ) - set(FFLAGS0 "-O3 -ip -fpp -heap-arrays -mcmodel=medium" ) + set(FFLAGS0 "-CB -g -ip -fpp -heap-arrays -mcmodel=large" ) # set(FFLAGS0 "-O0 -CB -CA -g" ) set(FFLAGS1 "-fpp -c -O " ) set(FFLAGS2 "-fpp -c -g -CA -CB ") @@ -506,6 +506,7 @@ if(NOT UNRES_WITH_MPI) if(UNRES_MD_FF STREQUAL "GAB") add_test(NAME UNRES_MD_Ala10 COMMAND sh ${CMAKE_CURRENT_BINARY_DIR}/test_single_ala.sh ) + add_test(NAME UNRES_M_CHECKGRAD_homology COMMAND sh ${CMAKE_CURRENT_BINARY_DIR}/test_mpi_E0LL2Y.sh Ts866_checkgrad_full 2 2 ) endif(UNRES_MD_FF STREQUAL "GAB") if(UNRES_MD_FF STREQUAL "E0LL2Y") @@ -525,6 +526,7 @@ else(NOT UNRES_WITH_MPI) if(UNRES_MD_FF STREQUAL "GAB") add_test(NAME UNRES_MD_MPI_Ala10 COMMAND ${mpiexec} ${boot_lam} ${CMAKE_CURRENT_BINARY_DIR}/test_single_ala.sh ) + add_test(NAME UNRES_M_CHECKGRAD1_homology COMMAND ${mpiexec} ${boot_lam} ${np} 1 ${CMAKE_CURRENT_BINARY_DIR}/test_prota_E0LL2Y.sh Ts866_checkgrad_full 1 ) endif(UNRES_MD_FF STREQUAL "GAB") if(UNRES_MD_FF STREQUAL "E0LL2Y") @@ -542,4 +544,6 @@ else(NOT UNRES_WITH_MPI) endif(UNRES_MD_FF STREQUAL "E0LL2Y") endif(NOT UNRES_WITH_MPI) + + diff --git a/source/unres/MD.F90 b/source/unres/MD.F90 index 983c469..02414e3 100644 --- a/source/unres/MD.F90 +++ b/source/unres/MD.F90 @@ -554,7 +554,7 @@ ! Calculate energy and forces call zerograd call etotal(potEcomp) - potE=potEcomp(0)-potEcomp(20) + potE=potEcomp(0)-potEcomp(51) call cartgrad totT=totT+d_time totTafm=totT @@ -645,6 +645,118 @@ end subroutine gauss !----------------------------------------------------------------------------- ! kinetic_lesyng.f +#ifdef FIVEDIAG + subroutine kinetic(KE_total) +!c---------------------------------------------------------------- +!c This subroutine calculates the total kinetic energy of the chain +!c----------------------------------------------------------------- +!c 3/5/2020 AL Corrected for multichain systems, no fake peptide groups +!c inside, implemented with five-diagonal inertia matrix + implicit none + include 'DIMENSIONS' + include 'COMMON.VAR' + include 'COMMON.CHAIN' + include 'COMMON.DERIV' + include 'COMMON.GEO' + include 'COMMON.LOCAL' + include 'COMMON.INTERACT' + include 'COMMON.MD' + include 'COMMON.LAGRANGE.5diag' + include 'COMMON.IOUNITS' + double precision KE_total + integer i,j,k,iti + double precision KEt_p,KEt_sc,KEr_p,KEr_sc,incr(3),& + mag1,mag2,v(3) + + KEt_p=0.0d0 + KEt_sc=0.0d0 + KEr_p=0.0D0 + KEr_sc=0.0D0 +!c write (iout,*) "ISC",(isc(itype(i)),i=1,nres) +!c The translational part for peptide virtual bonds + do j=1,3 + incr(j)=d_t(j,0) + enddo + do i=nnt,nct-1 +!c write (iout,*) "Kinetic trp:",i,(incr(j),j=1,3 +!c Skip dummy peptide groups + if (itype(i).ne.ntyp1 .and. itype(i+1).ne.ntyp1) then + do j=1,3 + v(j)=incr(j)+0.5d0*d_t(j,i) + enddo +!c write (iout,*) "Kinetic trp:",i,(v(j),j=1,3) + vtot(i)=v(1)*v(1)+v(2)*v(2)+v(3)*v(3) + KEt_p=KEt_p+(v(1)*v(1)+v(2)*v(2)+v(3)*v(3)) + endif + do j=1,3 + incr(j)=incr(j)+d_t(j,i) + enddo + enddo +!c write(iout,*) 'KEt_p', KEt_p +!c The translational part for the side chain virtual bond +!c Only now we can initialize incr with zeros. It must be equal +!c to the velocities of the first Calpha. + do j=1,3 + incr(j)=d_t(j,0) + enddo + do i=nnt,nct + iti=iabs(itype(i)) + if (itype(i).eq.10 .and. itype(i).ne.ntyp1) then + do j=1,3 + v(j)=incr(j) + enddo + else + do j=1,3 + v(j)=incr(j)+d_t(j,nres+i) + enddo + endif +!c write (iout,*) "Kinetic trsc:",i,(incr(j),j=1,3) +!c write (iout,*) "i",i," msc",msc(iti)," v",(v(j),j=1,3) + KEt_sc=KEt_sc+msc(iti)*(v(1)*v(1)+v(2)*v(2)+v(3)*v(3)) + vtot(i+nres)=v(1)*v(1)+v(2)*v(2)+v(3)*v(3) + do j=1,3 + incr(j)=incr(j)+d_t(j,i) + enddo + enddo +! goto 111 +! write(iout,*) 'KEt_sc', KEt_sc +! The part due to stretching and rotation of the peptide groups + do i=nnt,nct-1 + if (itype(i).ne.ntyp1.and.itype(i+1).ne.ntyp1) then +! write (iout,*) "i",i +! write (iout,*) "i",i," mag1",mag1," mag2",mag2 + do j=1,3 + incr(j)=d_t(j,i) + enddo +!c write (iout,*) "Kinetic rotp:",i,(incr(j),j=1,3) + KEr_p=KEr_p+(incr(1)*incr(1)+incr(2)*incr(2) & + +incr(3)*incr(3)) + endif + enddo +!c goto 111 +!c write(iout,*) 'KEr_p', KEr_p +!c The rotational part of the side chain virtual bond + do i=nnt,nct + iti=iabs(itype(i)) + if (itype(i).ne.10.and.itype(i).ne.ntyp1) then + do j=1,3 + incr(j)=d_t(j,nres+i) + enddo +!c write (iout,*) "Kinetic rotsc:",i,(incr(j),j=1,3) + KEr_sc=KEr_sc+Isc(iti)*(incr(1)*incr(1)+incr(2)*incr(2)+& + incr(3)*incr(3)) + endif + enddo +!c The total kinetic energy + 111 continue +!c write(iout,*) ' KEt_p',KEt_p,' KEt_sc',KEt_sc,' KEr_p',KEr_p, +!c & ' KEr_sc', KEr_sc + KE_total=0.5d0*(mp*KEt_p+KEt_sc+0.25d0*Ip*KEr_p+KEr_sc) +!c write (iout,*) "KE_total",KE_total + return + end subroutine kinetic +#else + !----------------------------------------------------------------------------- subroutine kinetic(KE_total) !---------------------------------------------------------------- @@ -688,7 +800,7 @@ ! write (iout,*) "Kinetic trp:",i,(incr(j),j=1,3),mp(mnum) if (mnum.gt.4) then do j=1,3 - v(j)=incr(j)+d_t(j,i) + v(j)=incr(j)+0.5d0*d_t(j,i) enddo else do j=1,3 @@ -776,6 +888,102 @@ return end subroutine kinetic !----------------------------------------------------------------------------- +#endif + subroutine kinetic_CASC(KE_total) +!c---------------------------------------------------------------- +!c Compute the kinetic energy of the system using the Calpha-SC +!c coordinate system +!c----------------------------------------------------------------- + implicit none + double precision KE_total + + integer i,j,k,iti,ichain,innt,inct + double precision KEt_p,KEt_sc,KEr_p,KEr_sc,incr(3),& + mag1,mag2,v(3) +#ifdef FIVEDIAG + KEt_p=0.0d0 + KEt_sc=0.0d0 + KEr_p=0.0D0 + KEr_sc=0.0D0 +!c write (iout,*) "ISC",(isc(itype(i)),i=1,nres) +!c The translational part for peptide virtual bonds + do ichain=1,nchain + + innt=chain_border(1,ichain) + inct=chain_border(2,ichain) +!c write (iout,*) "Kinetic_CASC chain",ichain," innt",innt, +!c & " inct",inct + + do i=innt,inct-1 +!c write (iout,*) i,(d_t(j,i),j=1,3),(d_t(j,i+1),j=1,3) + do j=1,3 + v(j)=0.5d0*(d_t(j,i)+d_t(j,i+1)) + enddo +!c write (iout,*) "Kinetic trp i",i," v",(v(j),j=1,3) + KEt_p=KEt_p+(v(1)*v(1)+v(2)*v(2)+v(3)*v(3)) + enddo +!c write(iout,*) 'KEt_p', KEt_p +!c The translational part for the side chain virtual bond +!c Only now we can initialize incr with zeros. It must be equal +!c to the velocities of the first Calpha. + do i=innt,inct + iti=iabs(itype(i)) + if (iti.eq.10) then +!c write (iout,*) i,iti,(d_t(j,i),j=1,3) + do j=1,3 + v(j)=d_t(j,i) + enddo + else +!c write (iout,*) i,iti,(d_t(j,nres+i),j=1,3) + do j=1,3 + v(j)=d_t(j,nres+i) + enddo + endif +!c write (iout,*) "Kinetic trsc:",i,(incr(j),j=1,3) +!c write (iout,*) "i",i," msc",msc(iti)," v",(v(j),j=1,3) + KEt_sc=KEt_sc+msc(iti)*(v(1)*v(1)+v(2)*v(2)+v(3)*v(3)) + enddo +!c goto 111 +!c write(iout,*) 'KEt_sc', KEt_sc +!c The part due to stretching and rotation of the peptide groups + do i=innt,inct-1 + do j=1,3 + incr(j)=d_t(j,i+1)-d_t(j,i) + enddo +!c write (iout,*) i,(incr(j),j=1,3) +!c write (iout,*) "Kinetic rotp:",i,(incr(j),j=1,3) + KEr_p=KEr_p+(incr(1)*incr(1)+incr(2)*incr(2) + & +incr(3)*incr(3)) + enddo +!c goto 111 +!c write(iout,*) 'KEr_p', KEr_p +!c The rotational part of the side chain virtual bond + do i=innt,inct + iti=iabs(itype(i)) + if (iti.ne.10) then + do j=1,3 + incr(j)=d_t(j,nres+i)-d_t(j,i) + enddo +!c write (iout,*) "Kinetic rotsc:",i,(incr(j),j=1,3) + KEr_sc=KEr_sc+Isc(iti)*(incr(1)*incr(1)+incr(2)*incr(2)+ + & incr(3)*incr(3)) + endif + enddo + + enddo ! ichain +!c The total kinetic energy + 111 continue +!c write(iout,*) ' KEt_p',KEt_p,' KEt_sc',KEt_sc,' KEr_p',KEr_p, +!c & ' KEr_sc', KEr_sc + KE_total=0.5d0*(mp*KEt_p+KEt_sc+0.25d0*Ip*KEr_p+KEr_sc) +!c write (iout,*) "KE_total",KE_tota +#else + write (iout,*) "Need to compile with -DFIVEDIAG to use this sub!" + stop +#endif + return + end subroutine kinetic_CASC + ! MD_A-MTS.F !----------------------------------------------------------------------------- subroutine MD @@ -822,7 +1030,7 @@ character(len=50) :: tytul !el common /gucio/ cm integer :: i,j,nharp - integer,dimension(4,nres/3) :: iharp !(4,nres/3)(4,maxres/3) + integer,dimension(4,nres) :: iharp !(4,nres/3)(4,maxres/3) ! logical :: ovrtim real(kind=8) :: tt0,scalfac integer :: nres2,itime @@ -1042,9 +1250,24 @@ call hairpin(.true.,nharp,iharp) call secondary2(.true.) call pdbout(potE,tytul,ipdb) + call enerprint(potEcomp) else call cartout(totT) endif + if (fodson) then + write(iout,*) "starting fodstep" + call fodstep(nfodstep) + write(iout,*) "after fodstep" + call statout(itime) + if(mdpdb) then + call hairpin(.true.,nharp,iharp) + call secondary2(.true.) + call pdbout(potE,tytul,ipdb) + else + call cartout(totT) + endif + endif + endif if (rstcount.eq.1000.or.itime.eq.n_timestep) then open(irest2,file=rest2name,status='unknown') @@ -1241,7 +1464,7 @@ t_etotal=t_etotal+tcpu()-tt0 #endif #endif - potE=potEcomp(0)-potEcomp(20) + potE=potEcomp(0)-potEcomp(51) call cartgrad ! Get the new accelerations call lagrangian @@ -1756,6 +1979,7 @@ t_elong=t_elong+tcpu()-tt0 #endif #endif + potE=potEcomp(0)-potEcomp(51) call cartgrad call lagrangian #ifdef MPI @@ -1790,7 +2014,7 @@ do i=0,n_ene potEcomp(i)=energia_short(i)+energia_long(i) enddo - potE=potEcomp(0)-potEcomp(20) + potE=potEcomp(0)-potEcomp(51) ! potE=energia_short(0)+energia_long(0) totT=totT+d_time totTafm=totT @@ -2004,8 +2228,16 @@ ! Compute the acceleration due to friction forces (d_af_work) and stochastic ! forces (d_as_work) ! +! call ginv_mult(fric_work, d_af_work) +! call ginv_mult(stochforcvec, d_as_work) +#ifdef FIVEDIAG + call fivediaginv_mult(dimen,fric_work, d_af_work) + call fivediaginv_mult(dimen,stochforcvec, d_as_work) +#else call ginv_mult(fric_work, d_af_work) call ginv_mult(stochforcvec, d_as_work) +#endif + return end subroutine sddir_precalc !----------------------------------------------------------------------------- @@ -2113,7 +2345,11 @@ ! Compute the acceleration due to friction forces (d_af_work) and stochastic ! forces (d_as_work) ! +#ifdef FIVEDIAG + call fivediaginv_mult(maxres6,stochforcvec, d_as_work1) +#else call ginv_mult(stochforcvec, d_as_work1) +#endif ! ! Update velocities @@ -2341,6 +2577,7 @@ use minimm, only:minim_dc,minimize,sc_move use io_config, only:readrst use io, only:statout + use random, only: iran_num ! implicit real*8 (a-h,o-z) ! include 'DIMENSIONS' #ifdef MP @@ -2348,7 +2585,10 @@ character(len=16) :: form integer :: IERROR,ERRCODE #endif - integer :: iranmin,itrial,itmp + integer :: iranmin,itrial,itmp,n_model_try,k, & + i_model + integer, dimension(:),allocatable :: list_model_try + integer, dimension(0:nodes-1) :: i_start_models ! include 'COMMON.SETUP' ! include 'COMMON.CONTROL' ! include 'COMMON.VAR' @@ -2366,7 +2606,7 @@ ! include 'COMMON.IOUNITS' ! include 'COMMON.NAMES' ! include 'COMMON.REMD' - real(kind=8),dimension(0:n_ene) :: energia_long,energia_short + real(kind=8),dimension(0:n_ene) :: energia_long,energia_short,energia real(kind=8),dimension(3) :: vcm,incr,L real(kind=8) :: xv,sigv,lowb,highb real(kind=8),dimension(6*nres) :: varia !(maxvar) (maxvar=6*maxres) @@ -2537,8 +2777,14 @@ write (iout,*) "vcm right after adjustment:" write (iout,*) (vcm(j),j=1,3) endif + + + +! call chainbuild + if ((.not.rest).or.(forceminim)) then if (forceminim) call chainbuild_cart + 122 continue if(iranconf.ne.0 .or.indpdb.gt.0.and..not.unres_pdb .or.preminim) then if (overlapsc) then print *, 'Calling OVERLAP_SC' @@ -2648,6 +2894,136 @@ stop #endif 44 continue + else if (preminim) then + if (start_from_model) then + n_model_try=0 + fail=.true. + list_model_try=0 + do while (fail .and. n_model_try.lt.nmodel_start) + write (iout,*) "n_model_try",n_model_try + do + i_model=iran_num(1,nmodel_start) + do k=1,n_model_try + if (i_model.eq.list_model_try(k)) exit + enddo + if (k.gt.n_model_try) exit + enddo + n_model_try=n_model_try+1 + list_model_try(n_model_try)=i_model + if (me.eq.king .or. .not. out1file) & + write (iout,*) 'Trying to start from model ',& + pdbfiles_chomo(i_model)(:ilen(pdbfiles_chomo(i_model))) + do i=1,2*nres + do j=1,3 + c(j,i)=chomo(j,i,i_model) + enddo + enddo + call int_from_cart(.true.,.false.) + call sc_loc_geom(.false.) + dc(:,0)=c(:,1) + do i=1,nres-1 + do j=1,3 + dc(j,i)=c(j,i+1)-c(j,i) + dc_norm(j,i)=dc(j,i)*vbld_inv(i+1) + enddo + enddo + do i=2,nres-1 + do j=1,3 + dc(j,i+nres)=c(j,i+nres)-c(j,i) + dc_norm(j,i+nres)=dc(j,i+nres)*vbld_inv(i+nres) + enddo + enddo + if (me.eq.king.or..not.out1file) then + write (iout,*) "Energies before removing overlaps" + call etotal(energia(0)) + call enerprint(energia(0)) + endif +! Remove SC overlaps if requested + if (overlapsc) then + write (iout,*) 'Calling OVERLAP_SC' + call overlap_sc(fail) + if (fail) then + write (iout,*)& + "Failed to remove overlap from model",i_model + cycle + endif + endif + if (me.eq.king.or..not.out1file) then + write (iout,*) "Energies after removing overlaps" + call etotal(energia(0)) + call enerprint(energia(0)) + endif +#ifdef SEARCHSC +! Search for better SC rotamers if requested + if (searchsc) then + call sc_move(2,nres-1,10,1d10,nft_sc,etot) + print *,'SC_move',nft_sc,etot + if (me.eq.king.or..not.out1file)& + write(iout,*) 'SC_move',nft_sc,etot + endif + call etotal(energia(0)) +#endif + enddo + call MPI_Gather(i_model,1,MPI_INTEGER,i_start_models(0),& + 1,MPI_INTEGER,king,CG_COMM,IERROR) + if (n_model_try.gt.nmodel_start .and.& + (me.eq.king .or. out1file)) then + write (iout,*)& + "All models have irreparable overlaps. Trying randoms starts." + iranconf=1 + i_model=nmodel_start+1 + goto 122 + endif + else +! Remove SC overlaps if requested + if (overlapsc) then + write (iout,*) 'Calling OVERLAP_SC' + call overlap_sc(fail) + if (fail) then + write (iout,*)& + "Failed to remove overlap" + endif + endif + if (me.eq.king.or..not.out1file) then + write (iout,*) "Energies after removing overlaps" + call etotal(energia(0)) + call enerprint(energia(0)) + endif + endif +! 8/22/17 AL Minimize initial structure + if (dccart) then + if (me.eq.king.or..not.out1file) write(iout,*)& + 'Minimizing initial PDB structure: Calling MINIM_DC' + call minim_dc(etot,iretcode,nfun) + else + call geom_to_var(nvar,varia) + if(me.eq.king.or..not.out1file) write (iout,*)& + 'Minimizing initial PDB structure: Calling MINIMIZE.' + call minimize(etot,varia,iretcode,nfun) + call var_to_geom(nvar,varia) +#ifdef LBFGS + if (me.eq.king.or..not.out1file)& + write(iout,*) 'LBFGS return code is ',status,' eval ',nfun + if(me.eq.king.or..not.out1file)& + write(iout,*) 'LBFGS return code is ',status,' eval ',nfun +#else + if (me.eq.king.or..not.out1file)& + write(iout,*) 'SUMSL return code is',iretcode,' eval ',nfun + if(me.eq.king.or..not.out1file)& + write(iout,*) 'SUMSL return code is',iretcode,' eval ',nfun +#endif + endif + endif + if (nmodel_start.gt.0 .and. me.eq.king) then + write (iout,'(a)') "Task Starting model" + do i=0,nodes-1 + if (i_start_models(i).gt.nmodel_start) then + write (iout,'(i4,2x,a)') i,"RANDOM STRUCTURE" + else + write(iout,'(i4,2x,a)')i,pdbfiles_chomo(i_start_models(i)) & + (:ilen(pdbfiles_chomo(i_start_models(i)))) + endif + enddo endif endif call chainbuild_cart @@ -2694,7 +3070,7 @@ call enerprint(potEcomp) ! write(iout,*) (potEcomp(i),i=0,n_ene) endif - potE=potEcomp(0)-potEcomp(20) + potE=potEcomp(0)-potEcomp(51) totE=EK+potE itime=0 itime_mat=itime @@ -2828,6 +3204,17 @@ ! include 'COMMON.NAMES' ! include 'COMMON.TIME1' real(kind=8) :: xv,sigv,lowb,highb ,Ek1 +#ifdef FIVEDIAG + integer ichain,n,innt,inct,ibeg,ierr + double precision work(48*nres) + integer iwork(maxres6) + double precision Ghalf(mmaxres2_chain),Geigen(maxres2_chain), + & Gvec(maxres2_chain,maxres2_chain) + common /przechowalnia/Ghalf,Geigen,Gvec +#ifdef DEBUG + double precision inertia(maxres2_chain,maxres2_chain) +#endif +#endif !#define DEBUG #ifdef FIVEDIAG real(kind=8) ,allocatable, dimension(:) :: DDU1,DDU2,DL2,DL1,xsolv,DML,rs @@ -3897,6 +4284,7 @@ do i=nnt,nct-1 mnum=molnum(i) if (mnum.ge.5) mp(mnum)=msc(itype(i,mnum),mnum) + write(iout,*) "WTF",itype(i,mnum),i,mnum,mp(mnum) ! if (itype(i,mnum).eq.ntyp1_molec(mnum)) cycle M_PEP=M_PEP+mp(mnum) @@ -3921,7 +4309,7 @@ do j=1,3 cm(j)=cm(j)/(M_SC+M_PEP) enddo - +! write(iout,*) "Center of mass:",cm do i=nnt,nct-1 mnum=molnum(i) if (mnum.ge.5) mp(mnum)=msc(itype(i,mnum),mnum) @@ -3935,6 +4323,11 @@ Im(2,2)=Im(2,2)+mp(mnum)*(pr(3)*pr(3)+pr(1)*pr(1)) Im(3,3)=Im(3,3)+mp(mnum)*(pr(1)*pr(1)+pr(2)*pr(2)) enddo + +! write(iout,*) "The angular momentum before msc add" +! do i=1,3 +! write (iout,*) (Im(i,j),j=1,3) +! enddo do i=nnt,nct mnum=molnum(i) @@ -3951,6 +4344,10 @@ Im(2,2)=Im(2,2)+msc(iabs(iti),mnum)*(pr(3)*pr(3)+pr(1)*pr(1)) Im(3,3)=Im(3,3)+msc(iabs(iti),mnum)*(pr(1)*pr(1)+pr(2)*pr(2)) enddo +! write(iout,*) "The angular momentum before Ip add" +! do i=1,3 +! write (iout,*) (Im(i,j),j=1,3) +! enddo do i=nnt,nct-1 mnum=molnum(i) @@ -3967,6 +4364,10 @@ Im(3,3)=Im(3,3)+Ip(mnum)*(1-dc_norm(3,i)*dc_norm(3,i))* & vbld(i+1)*vbld(i+1)*0.25d0 enddo +! write(iout,*) "The angular momentum before Isc add" +! do i=1,3 +! write (iout,*) (Im(i,j),j=1,3) +! enddo do i=nnt,nct @@ -3991,10 +4392,17 @@ endif enddo +! write(iout,*) "The angular momentum before agnom:" +! do i=1,3 +! write (iout,*) (Im(i,j),j=1,3) +! enddo + call angmom(cm,L) ! write(iout,*) "The angular momentum before adjustment:" ! write(iout,*) (L(j),j=1,3) - +! do i=1,3 +! write (iout,*) (Im(i,j),j=1,3) +! enddo Im(2,1)=Im(1,2) Im(3,1)=Im(1,3) Im(3,2)=Im(2,3) @@ -5057,6 +5465,11 @@ ! include 'COMMON.IOUNITS' !el real(kind=8),dimension(6*nres) :: gamvec !(MAXRES6) maxres6=6*maxres !el common /syfek/ gamvec +#ifdef FIVEDIAG + integer iposc,ichain,n,innt,inct + double precision rs(nres+2) +#endif + real(kind=8) :: vv(3),vvtot(3,nres),v_work(6*nres) !,& !el ginvfric(2*nres,2*nres) !maxres2=2*maxres !el common /przechowalnia/ ginvfric @@ -5069,6 +5482,90 @@ checkmode=.false. ! if (large) lprn=.true. ! if (large) checkmode=.true. +#ifdef FIVEDIAG +c Here accelerations due to friction forces are computed right after forces. + d_t_work(:6*nres)=0.0d0 + do j=1,3 + v_work(j,1)=d_t(j,0) + v_work(j,nnt)=d_t(j,0) + enddo + do i=nnt+1,nct + do j=1,3 + v_work(j,i)=v_work(j,i-1)+d_t(j,i-1) + enddo + enddo + do i=nnt,nct + mnum=molnum(i) + if (iabs(itype(i,1)).ne.10 .and. iabs(itype(i,mnum)).ne.ntyp1_molec(mnum).and.mnum.lt.3) then + do j=1,3 + v_work(j,i+nres)=v_work(j,i)+d_t(j,i+nres) + enddo + endif + enddo +#ifdef DEBUG + write (iout,*) "v_work" + do i=1,2*nres + write (iout,'(i5,3f10.5)') i,(v_work(j,i),j=1,3) + enddo +#endif + do j=1,3 + ind=0 + do ichain=1,nchain + n=dimen_chain(ichain) + iposc=iposd_chain(ichain) +c write (iout,*) "friction_force j",j," ichain",ichain, +c & " n",n," iposc",iposc,iposc+n-1 + innt=chain_border(1,ichain) + inct=chain_border(2,ichain) +c diagnostics +c innt=chain_border(1,1) +c inct=chain_border(2,1) + do i=innt,inct + vvec(ind+1)=v_work(j,i) + ind=ind+1 +! if (iabs(itype(i)).ne.10) then + if (iabs(itype(i,1)).ne.10 .and. iabs(itype(i,mnum)).ne.ntyp1_molec(mnum).and.mnum.lt.3) then + vvec(ind+1)=v_work(j,i+nres) + ind=ind+1 + endif + enddo +#ifdef DEBUG + write (iout,*) "vvec ind",ind," n",n + write (iout,'(f10.5)') (vvec(i),i=iposc,ind) +#endif +c write (iout,*) "chain",i," ind",ind," n",n +#ifdef TIMING +#ifdef MPI + time01=MPI_Wtime() +#else + time01=tcpu() +#endif +#endif + call fivediagmult(n,DMfric(iposc),DU1fric(iposc), + & DU2fric(iposc),vvec(iposc),rs) +#ifdef TIMING +#ifdef MPI + time_fricmatmult=time_fricmatmult+MPI_Wtime()-time01 +#else + time_fricmatmult=time_fricmatmult+tcpu()-time01 +#endif +#endif +#ifdef DEBUG + write (iout,*) "rs" + write (iout,'(f10.5)') (rs(i),i=1,n) +#endif + do i=iposc,iposc+n-1 +c write (iout,*) "ichain",ichain," i",i," j",j, +c & "index",3*(i-1)+j,"rs",rs(i-iposc+1) + fric_work(3*(i-1)+j)=-rs(i-iposc+1) + enddo + enddo + enddo +#ifdef DEBUG + write (iout,*) "Vector fric_work dimen3",dimen3 + write (iout,'(3f10.5)') (fric_work(j),j=1,dimen3) +#endif +#else if(.not.allocated(gamvec)) allocate(gamvec(nres6)) !(MAXRES6) if(.not.allocated(ginvfric)) allocate(ginvfric(nres2,nres2)) !maxres2=2*maxres do i=0,nres2 @@ -5204,6 +5701,7 @@ enddo enddo endif +#endif return end subroutine friction_force !----------------------------------------------------------------------------- @@ -5493,6 +5991,9 @@ real(kind=8) :: time00 logical :: lprn = .false. integer :: i,j,ind,mnum +#ifdef FIVEDIAG + integer ichain,innt,inct,iposc +#endif do i=0,2*nres do j=1,3 @@ -5528,6 +6029,72 @@ #else time_fsample=time_fsample+tcpu()-time00 #endif +#ifdef FIVEDIAG + ind=0 + do ichain=1,nchain + innt=chain_border(1,ichain) + inct=chain_border(2,ichain) + iposc=iposd_chain(ichain) +!c for debugging only +!c innt=chain_border(1,1) +!c inct=chain_border(2,1) +!c iposc=iposd_chain(1) +!c write (iout,*)"stochastic_force ichain=",ichain," innt",innt, +!c & " inct",inct," iposc",iposc + do j=1,3 + stochforcvec(ind+j)=0.5d0*force(j,innt) + enddo + if (iabs(itype(innt),molnum(iint)).eq.10) then + do j=1,3 + stochforcvec(ind+j)=stochforcvec(ind+j)+force(j,innt+nres) + enddo + ind=ind+3 + else + ind=ind+3 + do j=1,3 + stochforcvec(ind+j)=force(j,innt+nres) + enddo + ind=ind+3 + endif + do i=innt+1,inct-1 + do j=1,3 + stochforcvec(ind+j)=0.5d0*(force(j,i)+force(j,i-1)) + enddo + if (iabs(itype(i,molnum(i)).eq.10) then + do j=1,3 + stochforcvec(ind+j)=stochforcvec(ind+j)+force(j,i+nres) + enddo + ind=ind+3 + else + ind=ind+3 + do j=1,3 + stochforcvec(ind+j)=force(j,i+nres) + enddo + ind=ind+3 + endif + enddo + do j=1,3 + stochforcvec(ind+j)=0.5d0*force(j,inct-1) + enddo + if (iabs(itype(inct),molnum(inct)).eq.10) then + do j=1,3 + stochforcvec(ind+j)=stochforcvec(ind+j)+force(j,inct+nres) + enddo + ind=ind+3 + else + ind=ind+3 + do j=1,3 + stochforcvec(ind+j)=force(j,inct+nres) + enddo + ind=ind+3 + endif +!c write (iout,*) "chain",ichain," ind",ind + enddo +#ifdef DEBUG + write (iout,*) "stochforcvec" + write (iout,'(3f10.5)') (stochforcvec(j),j=1,ind) +#endif +#else ! Compute the stochastic forces acting on virtual-bond vectors. do j=1,3 ff(j)=0.0d0 @@ -5635,7 +6202,7 @@ enddo endif - +#endif return end subroutine stochastic_force !----------------------------------------------------------------------------- diff --git a/source/unres/MREMD.F90 b/source/unres/MREMD.F90 index e9297eb..f8e88e8 100644 --- a/source/unres/MREMD.F90 +++ b/source/unres/MREMD.F90 @@ -108,7 +108,7 @@ integer :: k,il,il1,i,j,nharp,ii,ierr,itime_master,irr,iex,& i_set_temp,itmp,i_temp,i_mult,i_iset,i_mset,i_dir,i_temp1,& i_mult1,i_iset1,i_mset1,ierror,itime,mnum - integer,dimension(4,nres/3) :: iharp !(4,nres/3)(4,maxres/3) + integer,dimension(4,nres) :: iharp !(4,nres/3)(4,maxres/3) !deb imin_itime_old=0 integer :: nres2 !el WRITE(iout,*) "JUST AFTER CALL" diff --git a/source/unres/Makefile b/source/unres/Makefile index 35dcfa0..f024682 100644 --- a/source/unres/Makefile +++ b/source/unres/Makefile @@ -5,7 +5,7 @@ INSTALL_DIR = /users/software/mpich2-1.4.1p1_intel FC= ${INSTALL_DIR}/bin/mpif90 -OPT = -O3 -ip #-CA -CB +OPT = -O3 -ip #FFLAGS = -fpp -c ${OPT} -I$(INSTALL_DIR)/include #-mcmodel large -check arg_temp_created -heap-arrays -recursive @@ -38,17 +38,13 @@ all: no_option .f90.o: ${FC} ${FFLAGS} ${CPPFLAGS} $*.f90 -DATA_FILE= ./data - -data = names.o io_units.o calc_data.o compare_data.o control_data.o \ +objects = xdrf/*.o names.o io_units.o calc_data.o compare_data.o control_data.o \ CSA_data.o energy_data.o geometry_data.o map_data.o \ - MCM_data.o MD_data.o minim_data.o MPI_data.o REMD_data.o comm_local.o - -objects = xdrf/*.o \ + MCM_data.o MD_data.o minim_data.o MPI_data.o REMD_data.o comm_local.o \ prng_32.o math.o random.o geometry.o md_calc.o io_base.o energy.o check_bond.o muca_md.o\ - control.o io_config.o MPI.o minim.o fdisy.o fdiag.o machpd.o \ + control.o io_config.o MPI.o minim.o \ regularize.o compare.o map.o REMD.o MCM_MD.o io.o \ - MD.o MREMD.o CSA.o unres.o quindibisectok.o quindet2ok.o + MD.o MREMD.o CSA.o unres.o #${EXE_FILE}: ${objects} @@ -62,107 +58,95 @@ NOMPI: CPPFLAGS = -DPROCOR -DLINUX -DPGI -DAMD64 -DUNRES -DISNAN \ #NOMPI: EXE_FILE = ../../bin/unres_MD-M_NO_MPI_F90_EL.exe NOMPI: EXE_FILE = ../../bin/unres_NO_MPI_F90_EL.exe -NOMPI: ${data} ${objects} +NOMPI: ${objects} cc -o compinfo compinfo.c ./compinfo | true ${FC} ${FFLAGS} cinfo.f90 - ${FC} ${data} ${objects} cinfo.o -o ${EXE_FILE} + ${FC} ${objects} cinfo.o -o ${EXE_FILE} # ${FC} ${objects} -Xlinker -M -o ${EXE_FILE} GAB: CPPFLAGS = -DPROCOR -DLINUX -DPGI -DAMD64 -DUNRES -DISNAN -DMP -DMPI \ -DSPLITELE -DLANG0 -DCRYST_BOND -DCRYST_THETA -DCRYST_SC #GAB: EXE_FILE = ../../bin/unres_MD-M_GAB_F90_EL_opt3.exe GAB: EXE_FILE = ../../bin/unres_GAB_F90_EL.exe -GAB: ${data} ${objects} +GAB: ${objects} cc -o compinfo compinfo.c ./compinfo | true ${FC} ${FFLAGS} cinfo.f90 - ${FC} ${OPT} ${data} ${objects} cinfo.o -o ${EXE_FILE} + ${FC} ${OPT} ${objects} cinfo.o -o ${EXE_FILE} 4P: CPPFLAGS = -DLINUX -DPGI -DAMD64 -DUNRES -DISNAN -DMP -DMPI \ -DSPLITELE -DLANG0 -DCRYST_BOND -DCRYST_THETA -DCRYST_SC #4P: EXE_FILE = ../../bin/unres_MD-M_4P_F90_EL_opt3.exe 4P: EXE_FILE = ../../bin/unres_4P_F90_EL.exe -4P: ${data}${objects} +4P: ${objects} cc -o compinfo compinfo.c ./compinfo | true ${FC} ${FFLAGS} cinfo.f90 - ${FC} ${OPT} ${data} ${objects} cinfo.o -o ${EXE_FILE} + ${FC} ${OPT} ${objects} cinfo.o -o ${EXE_FILE} E0LL2Y: CPPFLAGS = -DPROCOR -DLINUX -DPGI -DAMD64 -DUNRES -DISNAN -DMP -DMPI \ - -DSPLITELE -DLANG0 -DFIVEDIAG -#E0LL2Y: EXE_FILE = ../../bin/unres_E0LL2Y_F90_EL.exe -E0LL2Y: EXE_FILE = ../../bin/unres_E0LL2Y_5DiaF90_EL.exe -#E0LL2Y: EXE_FILE = ../../bin/unres_E0LL2Y_5DiaF90_ELcb.exe -#E0LL2Y: EXE_FILE = ../../bin/unres_E0LL2Y_5DiaF90_EL.diag.exe -E0LL2Y: ${data} ${objects} - cc -o compinfo compinfo.c - ./compinfo | true - ${FC} ${FFLAGS} cinfo.f90 - ${FC} ${OPT} ${data} ${objects} cinfo.o -o ${EXE_FILE} - -NEWGRAD: CPPFLAGS = -DPROCOR -DLINUX -DPGI -DAMD64 -DUNRES -DISNAN -DMP -DMPI \ - -DSPLITELE -DLANG0 -DCARGRAD -DFIVEDIAG -NEWGRAD: EXE_FILE = ../../bin/unres_E0LL2Y_F90_EL-NEWG.exe -NEWGRAD: ${data} ${objects} + -DSPLITELE -DLANG0 +#E0LL2Y: EXE_FILE = ../../bin/unres_MD-M_E0LL2Y_F90_EL_opt3.exe +E0LL2Y: EXE_FILE = ../../bin/unres_E0LL2Y_F90_EL.exe +E0LL2Y: ${objects} cc -o compinfo compinfo.c ./compinfo | true ${FC} ${FFLAGS} cinfo.f90 - ${FC} ${OPT} ${data} ${objects} cinfo.o -o ${EXE_FILE} + ${FC} ${OPT} ${objects} cinfo.o -o ${EXE_FILE} xdrf/*.o: cd xdrf && make clean: - rm -f *.o && rm -f *.mod && rm -f compinfo && cd xdrf && make clean -# rm -f *.o && rm -f *.mod && rm ${EXE_FILE} && rm -f compinfo && cd xdrf && make clean + rm -f *.o && rm -f *.mod && rm ${EXE_FILE} && rm -f compinfo && cd xdrf && make clean -names.o: ${DATA_FILE}/names.f90 - ${FC} ${FFLAGS} ${CPPFLAGS} ${DATA_FILE}/names.f90 +names.o: names.f90 + ${FC} ${FFLAGS} ${CPPFLAGS} names.f90 -io_units.o: ${DATA_FILE}/io_units.f90 - ${FC} ${FFLAGS} ${CPPFLAGS} ${DATA_FILE}/io_units.f90 +io_units.o: io_units.f90 + ${FC} ${FFLAGS} ${CPPFLAGS} io_units.f90 -calc_data.o: ${DATA_FILE}/calc_data.f90 - ${FC} ${FFLAGS} ${CPPFLAGS} ${DATA_FILE}/calc_data.f90 +calc_data.o: calc_data.f90 + ${FC} ${FFLAGS} ${CPPFLAGS} calc_data.f90 -compare_data.o: ${DATA_FILE}/compare_data.f90 - ${FC} ${FFLAGS} ${CPPFLAGS} ${DATA_FILE}/compare_data.f90 +compare_data.o: compare_data.f90 + ${FC} ${FFLAGS} ${CPPFLAGS} compare_data.f90 -control_data.o: ${DATA_FILE}/control_data.f90 - ${FC} ${FFLAGS} ${CPPFLAGS} ${DATA_FILE}/control_data.f90 +control_data.o: control_data.f90 + ${FC} ${FFLAGS} ${CPPFLAGS} control_data.f90 -CSA_data.o: ${DATA_FILE}/CSA_data.f90 - ${FC} ${FFLAGS} ${CPPFLAGS} ${DATA_FILE}/CSA_data.f90 +CSA_data.o: CSA_data.f90 + ${FC} ${FFLAGS} ${CPPFLAGS} CSA_data.f90 -energy_data.o: ${DATA_FILE}/energy_data.f90 - ${FC} ${FFLAGS} ${CPPFLAGS} ${DATA_FILE}/energy_data.f90 +energy_data.o: energy_data.f90 + ${FC} ${FFLAGS} ${CPPFLAGS} energy_data.f90 -geometry_data.o: ${DATA_FILE}/geometry_data.f90 - ${FC} ${FFLAGS} ${CPPFLAGS} ${DATA_FILE}/geometry_data.f90 +geometry_data.o: geometry_data.f90 + ${FC} ${FFLAGS} ${CPPFLAGS} geometry_data.f90 -map_data.o: ${DATA_FILE}/map_data.f90 - ${FC} ${FFLAGS} ${CPPFLAGS} ${DATA_FILE}/map_data.f90 +map_data.o: map_data.f90 + ${FC} ${FFLAGS} ${CPPFLAGS} map_data.f90 -MCM_data.o: ${DATA_FILE}/MCM_data.f90 - ${FC} ${FFLAGS} ${CPPFLAGS} ${DATA_FILE}/MCM_data.f90 +MCM_data.o: MCM_data.f90 + ${FC} ${FFLAGS} ${CPPFLAGS} MCM_data.f90 -MD_data.o: ${DATA_FILE}/MD_data.f90 - ${FC} ${FFLAGS} ${CPPFLAGS} ${DATA_FILE}/MD_data.f90 +MD_data.o: MD_data.f90 + ${FC} ${FFLAGS} ${CPPFLAGS} MD_data.f90 -minim_data.o: ${DATA_FILE}/minim_data.f90 - ${FC} ${FFLAGSm} ${CPPFLAGS} ${DATA_FILE}/minim_data.f90 +minim_data.o: minim_data.f90 + ${FC} ${FFLAGSm} ${CPPFLAGS} minim_data.f90 -MPI_data.o: ${DATA_FILE}/MPI_data.f90 - ${FC} ${FFLAGS} ${CPPFLAGS} ${DATA_FILE}/MPI_data.f90 +MPI_data.o: MPI_data.f90 + ${FC} ${FFLAGS} ${CPPFLAGS} MPI_data.f90 -REMD_data.o: ${DATA_FILE}/REMD_data.f90 - ${FC} ${FFLAGS} ${CPPFLAGS} ${DATA_FILE}/REMD_data.f90 +REMD_data.o: REMD_data.f90 + ${FC} ${FFLAGS} ${CPPFLAGS} REMD_data.f90 -comm_local.o: ${DATA_FILE}/comm_local.f90 - ${FC} ${FFLAGS} ${CPPFLAGS} ${DATA_FILE}/comm_local.f90 +comm_local.o: comm_local.f90 + ${FC} ${FFLAGS} ${CPPFLAGS} comm_local.f90 prng_32.o: prng_32.f90 ${FC} ${FFLAGS} ${CPPFLAGS} prng_32.f90 @@ -188,8 +172,8 @@ energy.o: energy.f90 check_bond.o: check_bond.f90 ${FC} ${FFLAGS} ${CPPFLAGS} check_bond.f90 -control.o: control.F90 - ${FC} ${FFLAGS} ${CPPFLAGS} control.F90 +control.o: control.f90 + ${FC} ${FFLAGS} ${CPPFLAGS} control.f90 io_config.o: io_config.f90 ${FC} ${FFLAGS2} ${CPPFLAGS} io_config.f90 @@ -203,8 +187,8 @@ minim.o: minim.f90 regularize.o: regularize.f90 ${FC} ${FFLAGS} ${CPPFLAGS} regularize.f90 -compare.o: compare.F90 - ${FC} ${FFLAGS} ${CPPFLAGS} compare.F90 +compare.o: compare.f90 + ${FC} ${FFLAGS} ${CPPFLAGS} compare.f90 map.o: map.f90 ${FC} ${FFLAGS} ${CPPFLAGS} map.f90 @@ -232,18 +216,3 @@ CSA.o: CSA.f90 unres.o: unres.f90 ${FC} ${FFLAGS} ${CPPFLAGS} unres.f90 - -quindibisectok.o: quindibisectok.F90 - ${FC} ${FFLAGS} ${CPPFLAGS} quindibisectok.F90 - -quindet2ok.o: quindet2ok.F90 - ${FC} ${FFLAGS} ${CPPFLAGS} quindet2ok.F90 - - - - - - - - - diff --git a/source/unres/compare.F90 b/source/unres/compare.F90 index 1199b65..6ad8870 100644 --- a/source/unres/compare.F90 +++ b/source/unres/compare.F90 @@ -37,7 +37,7 @@ ! include 'COMMON.NAMES' real(kind=8) :: facont=1.569D0 ! facont = (2/(1-sqrt(1-1/4)))**(1/6) integer :: ncont - integer,dimension(2,12*nres) :: icont!(2,12*nres) !(2,maxcont) (maxcont=12*maxres) + integer,dimension(2,100*nres) :: icont!(2,100*nres) !(2,maxcont) (maxcont=12*maxres) logical :: lprint !el local variables real(kind=8) :: co,rcomp @@ -101,7 +101,7 @@ ! include 'DIMENSIONS' ! include 'COMMON.IOUNITS' integer :: ncont,ncont_ref - integer,dimension(2,12*nres) :: icont,icont_ref !(2,12*nres) (2,maxcont) (maxcont=12*maxres) + integer,dimension(2,100*nres) :: icont,icont_ref !(2,100*nres) (2,maxcont) (maxcont=12*maxres) !el local variables integer :: i,j,nmatch nmatch=0 @@ -128,7 +128,7 @@ ! include 'DIMENSIONS' ! include 'COMMON.IOUNITS' integer :: ncont,ncont_ref - integer,dimension(2,12*nres) :: icont,icont_ref !(2,12*nres) (2,maxcont) (maxcont=12*maxres) + integer,dimension(2,100*nres) :: icont,icont_ref !(2,100*nres) (2,maxcont) (maxcont=12*maxres) !el local variables integer :: i,j,nmatch nmatch=0 @@ -160,14 +160,14 @@ ! include 'COMMON.FFIELD' ! include 'COMMON.NAMES' integer :: ncont - integer,dimension(2,12*nres) :: icont !(2,maxcont) (maxcont=12*maxres) + integer,dimension(2,100*nres) :: icont !(2,maxcont) (maxcont=12*maxres) integer :: nharp - integer,dimension(4,nres/3) :: iharp !(4,nres/3)(4,maxres/3) + integer,dimension(4,nres) :: iharp !(4,nres/3)(4,maxres/3) logical :: lprint,not_done real(kind=8) :: rcomp=6.0d0 !el local variables integer :: i,j,kkk,k,i1,i2,it1,it2,j1,ii1,jj1 -! allocate(icont(2,12*nres)) +! allocate(icont(2,100*nres)) ncont=0 kkk=0 @@ -268,8 +268,8 @@ real(kind=8) :: ael6_i,ael3_i real(kind=8),dimension(2,2) :: app_,bpp_,rpp_ integer :: ncont - integer,dimension(2,12*nres) :: icont !(2,12*nres)(2,maxcont) (maxcont=12*maxres) - real(kind=8),dimension(12*nres) :: econt !(maxcont) + integer,dimension(2,100*nres) :: icont !(2,100*nres)(2,maxcont) (maxcont=12*maxres) + real(kind=8),dimension(100*nres) :: econt !(maxcont) !el local variables integer :: i,j,k,iteli,itelj,i1,i2,it1,it2,ic1,ic2 real(kind=8) :: elcutoff,elecutoff_14,rri,ees,evdw @@ -290,7 +290,7 @@ data elpp_6 /-0.2379d0,-0.2056d0,-0.2056d0,-0.0610d0/ data elpp_3 / 0.0503d0, 0.0000d0, 0.0000d0, 0.0692d0/ -!el allocate(econt(12*nres)) !(maxcont) +!el allocate(econt(100*nres)) !(maxcont) elcutoff = -0.3d0 elecutoff_14 = -0.5d0 @@ -482,14 +482,14 @@ ! include 'COMMON.CONTROL' integer :: ncont,i,j,i1,j1,nbeta,nstrand,ii1,jj1,ij,nhelix,& iii1,jjj1 - integer,dimension(2,12*nres) :: icont !(2,maxcont) (maxcont=12*maxres) + integer,dimension(2,100*nres) :: icont !(2,maxcont) (maxcont=12*maxres) integer,dimension(nres,0:4) :: isec !(maxres,4) integer,dimension(nres) :: nsec !(maxres) logical :: lprint,not_done !,freeres real(kind=8) :: p1,p2 !el external freeres -!el allocate(icont(2,12*nres),isec(nres,4),nsec(nres)) +!el allocate(icont(2,100*nres),isec(nres,4),nsec(nres)) if(.not.dccart) call chainbuild_cart if(.not.allocated(hfrag)) allocate(hfrag(2,nres/3)) !(2,maxres/3) diff --git a/source/unres/control.F90 b/source/unres/control.F90 index 828a199..6807872 100644 --- a/source/unres/control.F90 +++ b/source/unres/control.F90 @@ -253,6 +253,8 @@ iion=401 iionnucl=402 iiontran=403 ! this is parameter file for transition metals + iwaterwater=404 + iwatersc=405 #if defined(WHAM_RUN) || defined(CLUSTER) ! ! setting the mpi variables for WHAM @@ -397,8 +399,8 @@ ! !c maxfun=5000 !c maxit=2000 - maxfun=500 - maxit=200 + maxfun=1000 + maxit=1000 tolf=1.0D-2 rtolf=5.0D-4 ! @@ -571,6 +573,7 @@ iatsc_s=0 iatsc_e=0 #endif + if(.not.allocated(ielstart_all)) then !el common /przechowalnia/ allocate(iturn3_start_all(0:nfgtasks)) allocate(iturn3_end_all(0:nfgtasks)) @@ -586,6 +589,7 @@ allocate(itask_cont_from_all(0:nfgtasks-1,0:nfgtasks-1)) allocate(itask_cont_to_all(0:nfgtasks-1,0:nfgtasks-1)) !el---------- + endif ! lprint=.false. print *,"NCT",nct_molec(1),nct do i=1,nres !el !maxres @@ -1076,6 +1080,10 @@ ilipbond_start=1+itmp ilipbond_end=nres_molec(4)-1+itmp !angles + call int_bounds(nres_molec(4)-1,ilipbond_start_tub,ilipbond_end_tub) + ilipbond_start_tub=1+itmp + ilipbond_end_tub=nres_molec(4)-1+itmp + ! call int_bounds(nres_molec(4)-2,ilipang_start,ilipang_end) ilipang_start=2+itmp ilipang_end=itmp+nres_molec(4)-1 @@ -1091,8 +1099,10 @@ endif enddo maxljliplist=0 + if (.not.allocated(mlipljlisti)) then allocate (mlipljlisti(nres_molec(4)*nres_molec(4)/2)) allocate (mlipljlistj(nres_molec(4)*nres_molec(4)/2)) + endif do i=1+itmp,nres_molec(4)-1+itmp do j=i+2,nres_molec(4)+itmp if ((itype(i,4).le.ntyp_molec(4)).and.(itype(j,4).le.ntyp_molec(4))& @@ -1110,8 +1120,10 @@ iliplj_end=iliplj_end ! now the electrostatic list maxelecliplist=0 + if (.not.allocated(mlipeleclisti)) then allocate (mlipeleclisti(nres_molec(4)*nres_molec(4)/2)) allocate (mlipeleclistj(nres_molec(4)*nres_molec(4)/2)) + endif do i=1+itmp,nres_molec(4)-1+itmp do j=i+2,nres_molec(4)+itmp if ((itype(i,4).le.4).and.(itype(j,4).le.4)) then @@ -2478,5 +2490,48 @@ end subroutine print_detailed_timing #endif !----------------------------------------------------------------------------- + subroutine homology_partition + implicit none +! include 'DIMENSIONS' +!#ifdef MPI +! include 'mpif.h' +!#endif +! include 'COMMON.SBRIDGE' +! include 'COMMON.IOUNITS' +! include 'COMMON.SETUP' +! include 'COMMON.CONTROL' +! include 'COMMON.INTERACT' +! include 'COMMON.HOMOLOGY' +!d write(iout,*)"homology_partition: lim_odl=",lim_odl, +!d & " lim_dih",lim_dih +#ifdef MPI + if (me.eq.king .or. .not. out1file) write (iout,*) "MPI" + call int_bounds(lim_odl,link_start_homo,link_end_homo) + call int_bounds(lim_dih,idihconstr_start_homo, & + idihconstr_end_homo) + idihconstr_start_homo=idihconstr_start_homo+nnt-1+3 + idihconstr_end_homo=idihconstr_end_homo+nnt-1+3 + if (me.eq.king .or. .not. out1file)& + write (iout,*) 'Processor',fg_rank,' CG group',kolor,& + ' absolute rank',MyRank,& + ' lim_odl',lim_odl,' link_start=',link_start_homo,& + ' link_end',link_end_homo,' lim_dih',lim_dih,& + ' idihconstr_start_homo',idihconstr_start_homo,& + ' idihconstr_end_homo',idihconstr_end_homo +#else + write (iout,*) "Not MPI" + link_start_homo=1 + link_end_homo=lim_odl + idihconstr_start_homo=nnt+3 + idihconstr_end_homo=lim_dih+nnt-1+3 + write (iout,*) & + ' lim_odl',lim_odl,' link_start=',link_start_homo, & + ' link_end',link_end_homo,' lim_dih',lim_dih,& + ' idihconstr_start_homo',idihconstr_start_homo,& + ' idihconstr_end_homo',idihconstr_end_homo +#endif + return + end subroutine homology_partition + !----------------------------------------------------------------------------- end module control diff --git a/source/unres/data/MD_data.F90 b/source/unres/data/MD_data.F90 index 7246b73..ae2b9ee 100644 --- a/source/unres/data/MD_data.F90 +++ b/source/unres/data/MD_data.F90 @@ -46,8 +46,8 @@ real(kind=8) :: v_ini,d_time,d_time0,scal_fric,& t_bath,tau_bath,dvmax,damax integer :: n_timestep,ntime_split,ntime_split0,maxtime_split,& - ntwx,ntwe - logical :: mdpdb,large,print_compon,tbf,rest + ntwx,ntwe,nfodstep + logical :: mdpdb,large,print_compon,tbf,rest,fodson ! common /MDcalc/ real(kind=8) :: totT,totE,potE,EK,amax,edriftmax,kinetic_T,totTafm real(kind=8),dimension(:),allocatable :: potEcomp !(0:n_ene+4) diff --git a/source/unres/data/energy_data.F90 b/source/unres/data/energy_data.F90 index b0bfc71..fb1856c 100644 --- a/source/unres/data/energy_data.F90 +++ b/source/unres/data/energy_data.F90 @@ -361,8 +361,11 @@ short_r_sidechain real(kind=8) :: VSolvSphere,VSolvSphere_div,buff_shield ! AFM - real(kind=8) :: distafminit,forceAFMconst,velAFMconst - integer :: afmend,afmbeg + real(kind=8) :: distafminit,forceAFMconst,velAFMconst,& + velnanoconst,distnanoinit,forcenanoconst,inanomove,vecsim,vectrue + real(kind=8),dimension(1000) :: inanotab + integer :: afmend,afmbeg,nbegafmmat,nendafmmat + integer, dimension(1000) :: afmendcentr,afmbegcentr real(kind=8),dimension(:,:), allocatable :: catprm real(kind=8),dimension(:,:,:), allocatable :: catnuclprm @@ -466,11 +469,52 @@ ! MARTINI FORCE FIELD integer :: ilipbond_start,ilipbond_end,ilipang_start,ilipang_end, & - maxelecliplist,ilip_elec_start,ilipelec_end,maxljliplist,iliplj_start,iliplj_end + maxelecliplist,ilip_elec_start,ilipelec_end,maxljliplist,iliplj_start,iliplj_end,& + ilipbond_start_tub,ilipbond_end_tub integer,dimension(:),allocatable :: mlipljlisti,mlipljlistj,& mlipeleclisti,mlipeleclistj real(kind=8),dimension(:,:,:),allocatable :: lip_angle_force,lip_angle_angle real(kind=8),dimension(:,:),allocatable :: lip_bond,lip_eps,lip_sig integer,dimension(:),allocatable :: ichargelipid real(kind=8) :: kjtokcal,krad,k_coulomb_lip,kbondlip +!homology + integer :: inprint,npermut,& + tubelog,constr_homology,homol_nset + logical :: mremd_dec,out_cart,& + out_int,gmatout,& + with_dihed_constr,read2sigma,start_from_model,read_homol_frag,& + out_template_coord,out_template_restr,loc_qlike,adaptive + real(kind=8) :: aincr,waga_dist,waga_angle,waga_theta,& + waga_d,dist2_cut + real(kind=8),dimension(:),allocatable :: waga_homology + real(kind=8),dimension(:,:),allocatable :: odl,& + sigma_odl,dih,sigma_dih, sigma_odlir, xxtpl,& + yytpl,zztpl,thetatpl,sigma_theta,sigma_d + integer,dimension(:),allocatable :: ires_homo,jres_homo + integer,dimension(:,:),allocatable :: idomain,tabpermchain,iequiv,& + chain_border,chain_border1 + integer :: lim_odl,lim_dih,link_start_homo,& + link_end_homo,idihconstr_start_homo,idihconstr_end_homo + logical,dimension(:,:),allocatable :: l_homo + integer ::nchain,iprzes,& + npermchain,& + nchain_group,& + nmodel_start,nran_start +! real(kind=8),dimension(:,:),allocatable :: c,dc,dc_old,xloc,xrot,& +! dc_norm,dc_norm2,cref,crefjlee +! real(kind=8),dimension(:),allocatable :: d_c_work + real(kind=8),dimension(:,:,:),allocatable :: chomo +! real(kind=8) :: totTafm + character(len=256),dimension(:),allocatable:: pdbfiles_chomo + integer,dimension(:),allocatable :: chain_length,ireschain,& + nequiv,mapchain, nres_chomo + real(kind=8) :: enecut,sscut,sss,sssgrad +! waterwater + real(kind=8),dimension(:),allocatable :: awaterenta,bwaterenta,& + cwaterenta,dwaterenta,awaterentro,bwaterentro,cwaterentro,& + dwaterentro +! buflipbot, bufliptop,bordlipbot,bordliptop,lipbufthick,lipthick +!------------------------------------------------------------------------- + real(kind=8),dimension(3,70000) :: ea +! real(kind=8) :: buftubebot, buftubetop,bordtubebot,bordtubetop,tubebufthick end module energy_data diff --git a/source/unres/data/io_units.F90 b/source/unres/data/io_units.F90 index 484ccd9..c351399 100644 --- a/source/unres/data/io_units.F90 +++ b/source/unres/data/io_units.F90 @@ -17,7 +17,8 @@ ithep_pdb,irotam_pdb,iliptranpar,itube, & ibond_nucl,ithep_nucl,irotam_nucl,itorp_nucl,itordp_nucl, & isidep_nucl,iscpp_nucl,isidep_scbase,isidep_pepbase,isidep_scpho,& - isidep_peppho,iion,iionnucl,iiontran,ilipbond,ilipnonbond + isidep_peppho,iion,iionnucl,iiontran,ilipbond,ilipnonbond,& + iwaterwater,iwatersc #ifdef WHAM_RUN ! el wham iounits integer :: isidep1,ihist,iweight,izsc,idistr @@ -50,7 +51,8 @@ bondname_nucl,thetname_nucl,rotname_nucl,torname_nucl, & tordname_nucl,sidename_nucl,scpname_nucl, & sidename_scbase,pepname_pepbase,pepname_scpho,pepname_peppho, & - ionname,ionnuclname,iontranname,lipbondname,lipnonbondname + ionname,ionnuclname,iontranname,lipbondname,lipnonbondname,& + iwaterwatername,iwaterscname !----------------------------------------------------------------------- ! INP - main input file ! IOUT - list file diff --git a/source/unres/data/names.F90 b/source/unres/data/names.F90 index 140580b..9bde240 100644 --- a/source/unres/data/names.F90 +++ b/source/unres/data/names.F90 @@ -47,7 +47,7 @@ ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ', & ' ',' ',' ',& ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',& - ' ',' ',' ',' ',' ',' ',& + ' ',' ',' ',' ','WAT',' ',& 'NA+','MG2','K+ ','CA2','CL-','ZN2',' ',' ',& ' ',' ',' ',' ',' ',' ',' ',' ',' ',' ',& ' ',' ',' ',' ',' ',' ',' ',' ',' ',' '& @@ -109,7 +109,7 @@ "WTORD_NUCL","WCORR_NUCL","WCORR3_NUC","WNULL ","WNULL ",& "WCATPROT ","WCATCAT ","WNULL ","WNULL ","WNULL ",& "WSCBASE ","WPEPBASE ","WSCPHO ","WPEPPHO ","WCATNUCL ",& - "WNULL ","WNULL ","WNULL ","WNULL ","WNULL ",& + "H_CONS ","WNULL ","WNULL ","WNULL ","WNULL ",& "WCATTRAN ","WCATANG "/) integer :: nprint_ene = 21 diff --git a/source/unres/energy.F90 b/source/unres/energy.F90 index dfdea4e..985ad15 100644 --- a/source/unres/energy.F90 +++ b/source/unres/energy.F90 @@ -201,7 +201,11 @@ ! common /przechowalnia/ real(kind=8),dimension(:,:,:),allocatable :: zapas real(kind=8),dimension(:,:,:,:),allocatable ::zapas2 !(max_dim,maxconts,max_fg_procs) +#ifdef FIVEDIAG + real(kind=8),dimension(:,:),allocatable :: fromto !(3,3,maxdim)(maxdim=(maxres-1)*(maxres-2)/2) +#else real(kind=8),dimension(:,:,:),allocatable :: fromto !(3,3,maxdim)(maxdim=(maxres-1)*(maxres-2)/2) +#endif !----------------------------------------------------------------------------- !----------------------------------------------------------------------------- ! @@ -244,7 +248,7 @@ real(kind=8) :: evdw,evdw1,evdw2,evdw2_14,escloc,ees,eel_loc real(kind=8) :: eello_turn3,eello_turn4,estr,ebe,eliptran,etube, & Eafmforce,ethetacnstr - real(kind=8) :: ecorr,ecorr5,ecorr6,eturn6 + real(kind=8) :: ecorr,ecorr5,ecorr6,eturn6,ehomology_constr ! now energies for nulceic alone parameters real(kind=8) :: evdwpp,eespp,evdwpsb,eelpsb,evdwsb,eelsb,estr_nucl,& ebe_nucl,esbloc,etors_nucl,etors_d_nucl,ecorr_nucl,& @@ -290,7 +294,7 @@ ! allocate(ishield_listbuf(nres)) ! allocate(shield_listbuf(maxcontsshi,nres)) ! endif - +! print *,"wstrain check", wstrain ! print*,"ETOTAL Processor",fg_rank," absolute rank",myrank, ! & " nfgtasks",nfgtasks if (nfgtasks.gt.1) then @@ -687,7 +691,7 @@ call escp_soft_sphere(evdw2,evdw2_14) endif ! write(iout,*) "in etotal before ebond",ipot - +! print *,"after escp" ! ! Calculate the bond-stretching energy ! @@ -699,7 +703,7 @@ ! Calculate the disulfide-bridge and other energy and the contributions ! from other distance constraints. ! print *,'Calling EHPB' - call edis(ehpb) +! call edis(ehpb) !elwrite(iout,*) "in etotal afer edis",ipot ! print *,'EHPB exitted succesfully.' ! @@ -724,6 +728,7 @@ ebe=0.0d0 endif ethetacnstr=0.0d0 +! write(iout,*) with_theta_constr,"with_theta_constr" if (with_theta_constr) call etheta_constr(ethetacnstr) ! write(iout,*) "in etotal afer ebe",ipot @@ -733,7 +738,7 @@ ! Calculate the SC local energy. ! call esc(escloc) -!elwrite(iout,*) "in etotal afer esc",ipot +! print *, "in etotal afer esc",wtor ! print *,"Processor",myrank," computed USC" ! ! Calculate the virtual-bond torsional energy. @@ -746,6 +751,7 @@ ! edihcnstr=0 ! endif if (wtor.gt.0.0d0) then +! print *,"WTOR",wtor,tor_mode if (tor_mode.eq.0) then call etor(etors) else @@ -760,12 +766,22 @@ if (ndih_constr.gt.0) call etor_constr(edihcnstr) !c print *,"Processor",myrank," computed Utor" +! print *, "constr_homol",constr_homology ! print *,"Processor",myrank," computed Utor" - + if (constr_homology.ge.1) then + call e_modeller(ehomology_constr) +! print *,'iset=',iset,'me=',me,ehomology_constr, +! & 'Processor',fg_rank,' CG group',kolor, +! & ' absolute rank',MyRank +! print *,"tu" + else + ehomology_constr=0.0d0 + endif + ! ! 6/23/01 Calculate double-torsional energy ! -!elwrite(iout,*) "in etotal",ipot +! print *, "before etor_d",wtor_d if (wtor_d.gt.0) then call etor_d(etors_d) else @@ -812,8 +828,8 @@ ! ! If performing constraint dynamics, call the constraint energy ! after the equilibration time - if(usampl.and.totT.gt.eq_time) then -!elwrite(iout,*) "afeter multibody hb" + if((usampl).and.(totT.gt.eq_time)) then + write(iout,*) "usampl",usampl call EconstrQ !elwrite(iout,*) "afeter multibody hb" call Econstr_back @@ -863,8 +879,11 @@ estr=0.0d0 Uconst=0.0d0 esccor=0.0d0 - + ehomology_constr=0.0d0 + ethetacnstr=0.0d0 endif !nres_molec(1) +! write(iout,*) "TU JEST PRZED EHPB" +! call edis(ehpb) if (fg_rank.eq.0) then if (AFMlog.gt.0) then call AFMforce(Eafmforce) @@ -874,6 +893,7 @@ Eafmforce=0.0d0 endif endif +! print *,"before tubemode",tubemode if (tubemode.eq.1) then call calctube(etube) else if (tubemode.eq.2) then @@ -883,8 +903,11 @@ else etube=0.0d0 endif +! print *, "TU JEST PRZED EHPB" + call edis(ehpb) + !-------------------------------------------------------- -! write (iout,*) "NRES_MOLEC(2),",nres_molec(2) +! print *, "NRES_MOLEC(2),",nres_molec(2) ! print *,"before",ees,evdw1,ecorr ! write(iout,*) ecorr_nucl,"ecorr_nucl",nres_molec(2) if (nres_molec(2).gt.0) then @@ -916,31 +939,33 @@ ! write(iout,*) ecorr_nucl,"ecorr_nucl",nres_molec(2) ! print *,"before ecatcat",wcatcat if (nres_molec(5).gt.0) then - if (g_ilist_catsctran.gt.0) then + if (g_ilist_catsctran.gt.0) then call ecat_prot_transition(ecat_prottran) - else - ecat_prottran=0.0d0 - endif - if (g_ilist_catscang.gt.0) then + else + ecat_prottran=0.0d0 + endif + if (g_ilist_catscang.gt.0) then call ecat_prot_ang(ecation_protang) - else - ecation_protang=0.0d0 - endif - if (nfgtasks.gt.1) then - if (fg_rank.eq.0) then - if (nres_molec(5).gt.1) call ecatcat(ecationcation) - endif - else + else + ecation_protang=0.0d0 + endif + if (nfgtasks.gt.1) then + if (fg_rank.eq.0) then + if (nres_molec(5).gt.1) call ecatcat(ecationcation) + endif + else if (nres_molec(5).gt.1) call ecatcat(ecationcation) - endif - if (oldion.gt.0) then - if (g_ilist_catpnorm.gt.0) call ecat_prot(ecation_prot) - else - if (g_ilist_catpnorm.gt.0) call ecats_prot_amber(ecation_prot) - endif + endif + if (oldion.gt.0) then + if (g_ilist_catpnorm.gt.0) call ecat_prot(ecation_prot) + else + if (g_ilist_catpnorm.gt.0) call ecats_prot_amber(ecation_prot) + endif else ecationcation=0.0d0 ecation_prot=0.0d0 + ecation_protang=0.0d0 + ecat_prottran=0.0d0 endif if (g_ilist_catscnorm.eq.0) ecation_prot=0.0d0 if ((nres_molec(2).gt.0).and.(nres_molec(1).gt.0)) then @@ -1046,6 +1071,7 @@ energia(49)=epeppho ! energia(50)=ecations_prot_amber energia(50)=ecation_nucl + energia(51)=ehomology_constr ! energia(51)=homology energia(52)=elipbond energia(53)=elipang @@ -1097,7 +1123,7 @@ eliptran,etube, Eafmforce,ethetacnstr real(kind=8) :: evdwpp,eespp,evdwpsb,eelpsb,evdwsb,eelsb,estr_nucl,& ebe_nucl,esbloc,etors_nucl,etors_d_nucl,ecorr_nucl,& - ecorr3_nucl + ecorr3_nucl,ehomology_constr real(kind=8) :: ecation_prot,ecationcation,ecations_prot_amber,& ecation_nucl,ecat_prottran,ecation_protang real(kind=8) :: escbase,epepbase,escpho,epeppho @@ -1185,6 +1211,7 @@ escpho=energia(48) epeppho=energia(49) ecation_nucl=energia(50) + ehomology_constr=energia(51) elipbond=energia(52) elipang=energia(53) eliplj=energia(54) @@ -1211,7 +1238,12 @@ +wtor_d_nucl*etors_d_nucl+wcorr_nucl*ecorr_nucl+wcorr3_nucl*ecorr3_nucl& +wcatprot*ecation_prot+wcatcat*ecationcation+wscbase*escbase& +wpepbase*epepbase+wscpho*escpho+wpeppho*epeppho+wcatnucl*ecation_nucl& - +elipbond+elipang+eliplj+elipelec+wcat_tran*ecat_prottran+ecation_protang + +elipbond+elipang+eliplj+elipelec+wcat_tran*ecat_prottran+ecation_protang& +#ifdef WHAM_RUN + +0.0d0 +#else + +ehomology_constr +#endif #else etot=wsc*evdw+wscp*evdw2+welec*(ees+evdw1) & +wang*ebe+wtor*etors+wscloc*escloc & @@ -1226,7 +1258,12 @@ +wtor_d_nucl*etors_d_nucl+wcorr_nucl*ecorr_nucl+wcorr3_nucl*ecorr3_nucl& +wcatprot*ecation_prot+wcatcat*ecationcation+wscbase*escbase& +wpepbase*epepbase+wscpho*escpho+wpeppho*epeppho+wcatnucl*ecation_nucl& - +elipbond+elipang+eliplj+elipelec+wcat_tran*ecat_prottran+ecation_protang + +elipbond+elipang+eliplj+elipelec+wcat_tran*ecat_prottran+ecation_protang& +#ifdef WHAM_RUN + +0.0d0 +#else + +ehomology_constr +#endif #endif energia(0)=etot ! detecting NaNQ @@ -1358,7 +1395,7 @@ etube,ethetacnstr,Eafmforce real(kind=8) :: evdwpp,eespp,evdwpsb,eelpsb,evdwsb,eelsb,estr_nucl,& ebe_nucl,esbloc,etors_nucl,etors_d_nucl,ecorr_nucl,& - ecorr3_nucl + ecorr3_nucl,ehomology_constr real(kind=8) :: ecation_prot,ecationcation,ecations_prot_amber,& ecation_nucl,ecat_prottran,ecation_protang real(kind=8) :: escbase,epepbase,escpho,epeppho @@ -1421,6 +1458,8 @@ elipelec=energia(55) ecat_prottran=energia(56) ecation_protang=energia(57) + ehomology_constr=energia(51) + ! ecations_prot_amber=energia(50) #ifdef SPLITELE write (iout,10) evdw,wsc,evdw2,wscp,ees,welec,evdw1,wvdwpp,& @@ -1439,7 +1478,7 @@ ecat_prottran,wcat_tran,ecation_protang,wcat_ang,& ecationcation,wcatcat, & escbase,wscbase,epepbase,wpepbase,escpho,wscpho,epeppho,wpeppho,& - ecation_nucl,wcatnucl,& + ecation_nucl,wcatnucl,ehomology_constr,& elipbond,elipang,eliplj,elipelec,etot 10 format (/'Virtual-chain energies:'// & 'EVDW= ',1pE16.6,' WEIGHT=',1pD16.6,' (SC-SC)'/ & @@ -1490,6 +1529,7 @@ 'ESCPHO=',1pE16.6,' WEIGHT=',1pD16.6,'(sc-prot nucl-phosphate)'/& 'EPEPPHO=',1pE16.6,' WEIGHT=',1pD16.6,'(pep-prot nucl-phosphate)'/& 'ECATBASE=',1pE16.6,' WEIGHT=',1pD16.6,'(cation nucl-base)'/& + 'H_CONS=',1pE16.6,' (Homology model constraints energy)'/& 'ELIPBOND=',1pE16.6,'(matrini bond energy)'/& 'ELIPANG=',1pE16.6,'(matrini angle energy)'/& 'ELIPLJ=',1pE16.6,'(matrini Lennard-Jones energy)'/& @@ -1503,14 +1543,14 @@ ecorr5,wcorr5,ecorr6,wcorr6,eel_loc,wel_loc,eello_turn3,wturn3,& eello_turn4,wturn4,eello_turn6,wturn6,esccor,wsccor,edihcnstr,& ethetacnstr,ebr*nss,Uconst,eliptran,wliptran,Eafmforce, & - etube,wtube, & + etube,wtube, ehomology_constr,& estr_nucl,wbond_nucl, ebe_nucl,wang_nucl,& evdwpp,wvdwpp_nucl,eespp,welpp,evdwpsb,wvdwpsb,eelpsb,welpsb,& evdwsb,wvdwsb,eelsb,welsb,esbloc,wsbloc,etors_nucl,wtor_nucl,& etors_d_nucl,wtor_d_nucl,ecorr_nucl,wcorr_nucl,& ecorr3_nucl,wcorr3_nucl,ecation_prot,wcatprot,ecationcation,wcatcat, & escbase,wscbase,epepbase,wpepbase,escpho,wscpho,epeppho,wpeppho,& - ecation_nucl,wcatnucl,etot + ecation_nucl,wcatnucl,ehomology_constr,etot 10 format (/'Virtual-chain energies:'// & 'EVDW= ',1pE16.6,' WEIGHT=',1pD16.6,' (SC-SC)'/ & 'EVDW2= ',1pE16.6,' WEIGHT=',1pD16.6,' (SC-p)'/ & @@ -1557,6 +1597,7 @@ 'ESCPHO=',1pE16.6,' WEIGHT=',1pD16.6,'(sc-prot nucl-phosphate)'/& 'EPEPPHO=',1pE16.6,' WEIGHT=',1pD16.6,'(pep-prot nucl-phosphate)'/& 'ECATBASE=',1pE16.6,' WEIGHT=',1pD16.6,'(cation nucl-base)'/& + 'H_CONS=',1pE16.6,' (Homology model constraints energy)'/& 'ELIPBOND=',1pE16.6,'(matrini bond energy)'/& 'ELIPANG=',1pE16.6,'(matrini angle energy)'/& 'ELIPLJ=',1pE16.6,'(matrini Lennard-Jones energy)'/& @@ -2197,7 +2238,7 @@ endif if (energy_dec) write (iout,'(a6,2i5,0pf7.3,2e10.2,e11.3)')& - 'evdw',i,j,evdwij,xi,xj,rij !,"egb" + 'evdw',i,j,evdwij,1.0D0/rij,1.0D0/rij_shift,dabs(aa/bb)**(1.0D0/6.0D0)!,"egb" !C print *,i,j,c(1,i),c(1,j),c(2,i),c(2,j),c(3,i),c(3,j) ! if (energy_dec) write (iout,*) & ! 'evdw',i,j,evdwij @@ -5508,7 +5549,7 @@ ! include 'COMMON.CONTROL' real(kind=8),dimension(3) :: ggg !el local variables - integer :: i,iint,j,k,iteli,itypj,subchap,icont + integer :: i,iint,j,k,iteli,itypj,subchap,iconta real(kind=8) :: evdw2,evdw2_14,xi,yi,zi,xj,yj,zj,rrij,fac,& e1,e2,evdwij,rij real(kind=8) :: xj_safe,yj_safe,zj_safe,xj_temp,yj_temp,zj_temp,& @@ -5521,16 +5562,17 @@ !d write (iout,*) 'iatscp_s=',iatscp_s,' iatscp_e=',iatscp_e ! do i=iatscp_s,iatscp_e if (nres_molec(1).eq.0) return - do icont=g_listscp_start,g_listscp_end - i=newcontlistscpi(icont) - j=newcontlistscpj(icont) + do iconta=g_listscp_start,g_listscp_end +! print *,"icont",iconta,g_listscp_start,g_listscp_end + i=newcontlistscpi(iconta) + j=newcontlistscpj(iconta) if (itype(i,1).eq.ntyp1 .or. itype(i+1,1).eq.ntyp1) cycle iteli=itel(i) xi=0.5D0*(c(1,i)+c(1,i+1)) yi=0.5D0*(c(2,i)+c(2,i+1)) zi=0.5D0*(c(3,i)+c(3,i+1)) call to_box(xi,yi,zi) - +! print *,itel(i),i,j ! do iint=1,nscp_gr(i) ! do j=iscpstart(i,iint),iscpend(i,iint) @@ -5648,18 +5690,19 @@ ! include 'COMMON.VAR' ! include 'COMMON.INTERACT' ! include 'COMMON.IOUNITS' - real(kind=8),dimension(3) :: ggg + real(kind=8),dimension(3) :: ggg,vec !el local variables - integer :: i,j,ii,jj,iii,jjj,k - real(kind=8) :: fac,eij,rdis,ehpb,dd,waga + integer :: i,j,ii,jj,iii,jjj,k,mnumii,mnumjj + real(kind=8) :: fac,eij,rdis,ehpb,dd,waga,xi,yi,zi,zj,yj,xj ehpb=0.0D0 -!d write(iout,*)'edis: nhpb=',nhpb,' fbr=',fbr -!d write(iout,*)'link_start=',link_start,' link_end=',link_end +! write(iout,*)'edis: nhpb=',nhpb!,' fbr=',fbr +! write(iout,*)'link_start=',link_start,' link_end=',link_end if (link_end.eq.0) return do i=link_start,link_end ! If ihpb(i) and jhpb(i) > NRES, this is a SC-SC distance, otherwise a ! CA-CA distance used in regularization of structure. + ii=ihpb(i) jj=jhpb(i) ! iii and jjj point to the residues for which the distance is assigned. @@ -5670,6 +5713,14 @@ iii=ii jjj=jj endif + do j=1,3 + vec(j)=c(j,jj)-c(j,ii) + enddo + mnumii=molnum(iii) + mnumjj=molnum(jjj) + if (energy_dec) write(iout,*) i,ii,jj,mnumii,mnumjj,itype(jjj,mnumjj),itype(iii,mnumii) + if ((itype(iii,mnumii).gt.ntyp_molec(mnumii)).or.(itype(jjj,mnumjj).gt.ntyp_molec(mnumjj))) cycle + ! write (iout,*) "i",i," ii",ii," iii",iii," jj",jj," jjj",jjj, ! & dhpb(i),dhpb1(i),forcon(i) ! 24/11/03 AL: SS bridges handled separately because of introducing a specific @@ -5727,6 +5778,7 @@ enddo else dd=dist(ii,jj) + if (constr_dist.eq.11) then ehpb=ehpb+fordepth(i)**4.0d0 & *rlornmr1(dd,dhpb(i),dhpb1(i),forcon(i)) @@ -5741,11 +5793,29 @@ !c write (iout,*) "alph nmr", !c & dd,2*forcon(i)*gnmr1(dd,dhpb(i),dhpb1(i)) else + xi=c(1,ii) + yi=c(2,ii) + zi=c(3,ii) + call to_box(xi,yi,zi) + xj=c(1,jj) + yj=c(2,jj) + zj=c(3,jj) + call to_box(xj,yj,zj) + xj=boxshift(xj-xi,boxxsize) + yj=boxshift(yj-yi,boxysize) + zj=boxshift(zj-zi,boxzsize) + vec(1)=xj + vec(2)=yj + vec(3)=zj + dd=sqrt(xj*xj+yj*yj+zj*zj) rdis=dd-dhpb(i) !C Get the force constant corresponding to this distance. waga=forcon(i) !C Calculate the contribution to energy. ehpb=ehpb+waga*rdis*rdis + if (energy_dec) write (iout,'(a6,2i5,5f10.3)') "edis",ii,jj, & + ehpb,dd,dhpb(i),waga,rdis + !c write (iout,*) "alpha reg",dd,waga*rdis*rdis !C !C Evaluate gradient. @@ -5755,7 +5825,7 @@ endif do j=1,3 - ggg(j)=fac*(c(j,jj)-c(j,ii)) + ggg(j)=fac*vec(j) enddo !cd print '(i3,3(1pe14.5))',i,(ggg(j),j=1,3) !C If this is a SC-SC distance, we need to calculate the contributions to the @@ -5912,6 +5982,10 @@ ! if (.not.allocated(gradbx)) allocate(gradbx(3,nres)) !(3,maxres) do i=ibondp_start,ibondp_end +#ifdef FIVEDIAG + if (itype(i-1).eq.ntyp1 .or. itype(i).eq.ntyp1) cycle + diff = vbld(i)-vbldp0 +#else if (itype(i-1,1).eq.ntyp1 .and. itype(i,1).eq.ntyp1) cycle if (itype(i-1,1).eq.ntyp1 .or. itype(i,1).eq.ntyp1) then !C estr1=estr1+gnmr1(vbld(i),-1.0d0,distchainmax) @@ -5925,6 +5999,7 @@ else diff = vbld(i)-vbldp0 endif +#endif if (energy_dec) write (iout,'(a7,i5,4f7.3)') & "estr bb",i,vbld(i),vbldp0,diff,AKP*diff*diff estr=estr+diff*diff @@ -7323,6 +7398,15 @@ etors_d=0.0d0 return end subroutine etor_d +!----------------------------------------------------------------------------- +!c LICZENIE WIEZOW Z ROWNANIA ENERGII MODELLERA + subroutine e_modeller(ehomology_constr) + real(kind=8) :: ehomology_constr + ehomology_constr=0.0d0 + write (iout,*) "!!!!!UWAGA, JESTEM W DZIWNEJ PETLI, TEST!!!!!" + return + end subroutine e_modeller +C !!!!!!!! NIE CZYTANE !!!!!!!!!!! #else !----------------------------------------------------------------------------- subroutine etor(etors) @@ -7419,7 +7503,7 @@ gradvalst2,etori logical lprn integer :: i,j,itori,itori1,nval,k,l - +! lprn=.true. if (lprn) write (iout,*) "etor_kcc tor_mode",tor_mode etors=0.0D0 do i=iphi_start,iphi_end @@ -7669,7 +7753,651 @@ return end subroutine etor_d #endif +!---------------------------------------------------------------------------- +!---------------------------------------------------------------------------- + subroutine e_modeller(ehomology_constr) +! implicit none +! include 'DIMENSIONS' + use MD_data, only: iset + real(kind=8) :: ehomology_constr + integer nnn,i,ii,j,k,ijk,jik,ki,kk,nexl,irec,l + integer katy, odleglosci, test7 + real(kind=8) :: odleg, odleg2, odleg3, kat, kat2, kat3 + real(kind=8) :: Eval,Erot,min_odl + real(kind=8),dimension(constr_homology) :: distance,distancek,godl,dih_diff,gdih, & + gtheta,dscdiff, & + uscdiffk,guscdiff2,guscdiff3,& + theta_diff + + +! +! FP - 30/10/2014 Temporary specifications for homology restraints +! + real(kind=8) :: utheta_i,gutheta_i,sum_gtheta,sum_sgtheta,& + sgtheta + real(kind=8), dimension (nres) :: guscdiff,usc_diff + real(kind=8) :: sum_godl,sgodl,grad_odl3,ggodl,sum_gdih,& + sum_guscdiff,sum_sgdih,sgdih,grad_dih3,usc_diff_i,dxx,dyy,dzz,& + betai,sum_sgodl,dij,max_template +! real(kind=8) :: dist,pinorm +! +! include 'COMMON.SBRIDGE' +! include 'COMMON.CHAIN' +! include 'COMMON.GEO' +! include 'COMMON.DERIV' +! include 'COMMON.LOCAL' +! include 'COMMON.INTERACT' +! include 'COMMON.VAR' +! include 'COMMON.IOUNITS' +! include 'COMMON.MD' +! include 'COMMON.CONTROL' +! include 'COMMON.HOMOLOGY' +! include 'COMMON.QRESTR' +! +! From subroutine Econstr_back +! +! include 'COMMON.NAMES' +! include 'COMMON.TIME1' +! + + + do i=1,max_template + distancek(i)=9999999.9 + enddo + + + odleg=0.0d0 + +! Pseudo-energy and gradient from homology restraints (MODELLER-like +! function) +! AL 5/2/14 - Introduce list of restraints +! write(iout,*) "waga_theta",waga_theta,"waga_d",waga_d +#ifdef DEBUG + write(iout,*) "------- dist restrs start -------" +#endif + do ii = link_start_homo,link_end_homo + i = ires_homo(ii) + j = jres_homo(ii) + dij=dist(i,j) +! write (iout,*) "dij(",i,j,") =",dij + nexl=0 + do k=1,constr_homology +! write(iout,*) ii,k,i,j,l_homo(k,ii),dij,odl(k,ii) + if(.not.l_homo(k,ii)) then + nexl=nexl+1 + cycle + endif + distance(k)=odl(k,ii)-dij +! write (iout,*) "distance(",k,") =",distance(k) +! +! For Gaussian-type Urestr +! + distancek(k)=0.5d0*distance(k)**2*sigma_odl(k,ii) ! waga_dist rmvd from Gaussian argument +! write (iout,*) "sigma_odl(",k,ii,") =",sigma_odl(k,ii) +! write (iout,*) "distancek(",k,") =",distancek(k) +! distancek(k)=0.5d0*waga_dist*distance(k)**2*sigma_odl(k,ii) +! +! For Lorentzian-type Urestr +! + if (waga_dist.lt.0.0d0) then + sigma_odlir(k,ii)=dsqrt(1/sigma_odl(k,ii)) + distancek(k)=distance(k)**2/(sigma_odlir(k,ii)* & + (distance(k)**2+sigma_odlir(k,ii)**2)) + endif + enddo + +! min_odl=minval(distancek) + if (nexl.gt.0) then + min_odl=0.0d0 + else + do kk=1,constr_homology + if(l_homo(kk,ii)) then + min_odl=distancek(kk) + exit + endif + enddo + do kk=1,constr_homology + if (l_homo(kk,ii) .and. distancek(kk).lt.min_odl) & + min_odl=distancek(kk) + enddo + endif + +! write (iout,* )"min_odl",min_odl +#ifdef DEBUG + write (iout,*) "ij dij",i,j,dij + write (iout,*) "distance",(distance(k),k=1,constr_homology) + write (iout,*) "distancek",(distancek(k),k=1,constr_homology) + write (iout,* )"min_odl",min_odl +#endif +#ifdef OLDRESTR + odleg2=0.0d0 +#else + if (waga_dist.ge.0.0d0) then + odleg2=nexl + else + odleg2=0.0d0 + endif +#endif + do k=1,constr_homology +! Nie wiem po co to liczycie jeszcze raz! +! odleg3=-waga_dist(iset)*((distance(i,j,k)**2)/ +! & (2*(sigma_odl(i,j,k))**2)) + if(.not.l_homo(k,ii)) cycle + if (waga_dist.ge.0.0d0) then +! +! For Gaussian-type Urestr +! + godl(k)=dexp(-distancek(k)+min_odl) + odleg2=odleg2+godl(k) +! +! For Lorentzian-type Urestr +! + else + odleg2=odleg2+distancek(k) + endif + +!cc write(iout,779) i,j,k, "odleg2=",odleg2, "odleg3=", odleg3, +!cc & "dEXP(odleg3)=", dEXP(odleg3),"distance(i,j,k)^2=", +!cc & distance(i,j,k)**2, "dist(i+1,j+1)=", dist(i+1,j+1), +!cc & "sigma_odl(i,j,k)=", sigma_odl(i,j,k) + + enddo +! write (iout,*) "godl",(godl(k),k=1,constr_homology) ! exponents +! write (iout,*) "ii i j",ii,i,j," odleg2",odleg2 ! sum of exps +#ifdef DEBUG + write (iout,*) "godl",(godl(k),k=1,constr_homology) ! exponents + write (iout,*) "ii i j",ii,i,j," odleg2",odleg2 ! sum of exps +#endif + if (waga_dist.ge.0.0d0) then +! +! For Gaussian-type Urestr +! + odleg=odleg-dLOG(odleg2/constr_homology)+min_odl +! +! For Lorentzian-type Urestr +! + else + odleg=odleg+odleg2/constr_homology + endif +! +! write (iout,*) "odleg",odleg ! sum of -ln-s +! Gradient +! +! For Gaussian-type Urestr +! + if (waga_dist.ge.0.0d0) sum_godl=odleg2 + sum_sgodl=0.0d0 + do k=1,constr_homology +! godl=dexp(((-(distance(i,j,k)**2)/(2*(sigma_odl(i,j,k))**2)) +! & *waga_dist)+min_odl +! sgodl=-godl(k)*distance(k)*sigma_odl(k,ii)*waga_dist +! + if(.not.l_homo(k,ii)) cycle + if (waga_dist.ge.0.0d0) then +! For Gaussian-type Urestr +! + sgodl=-godl(k)*distance(k)*sigma_odl(k,ii) ! waga_dist rmvd +! +! For Lorentzian-type Urestr +! + else + sgodl=-2*sigma_odlir(k,ii)*(distance(k)/(distance(k)**2+ & + sigma_odlir(k,ii)**2)**2) + endif + sum_sgodl=sum_sgodl+sgodl + +! sgodl2=sgodl2+sgodl +! write(iout,*) i, j, k, distance(i,j,k), "W GRADIENCIE1" +! write(iout,*) "constr_homology=",constr_homology +! write(iout,*) i, j, k, "TEST K" + enddo +! print *, "ok",iset + if (waga_dist.ge.0.0d0) then +! +! For Gaussian-type Urestr +! + grad_odl3=waga_homology(iset)*waga_dist & + *sum_sgodl/(sum_godl*dij) +! print *, "ok" +! +! For Lorentzian-type Urestr +! + else +! Original grad expr modified by analogy w Gaussian-type Urestr grad +! grad_odl3=-waga_homology(iset)*waga_dist*sum_sgodl + grad_odl3=-waga_homology(iset)*waga_dist* & + sum_sgodl/(constr_homology*dij) +! print *, "ok2" + endif +! +! grad_odl3=sum_sgodl/(sum_godl*dij) + + +! write(iout,*) i, j, k, distance(i,j,k), "W GRADIENCIE2" +! write(iout,*) (distance(i,j,k)**2), (2*(sigma_odl(i,j,k))**2), +! & (-(distance(i,j,k)**2)/(2*(sigma_odl(i,j,k))**2)) + +!cc write(iout,*) godl, sgodl, grad_odl3 + +! grad_odl=grad_odl+grad_odl3 + + do jik=1,3 + ggodl=grad_odl3*(c(jik,i)-c(jik,j)) +!cc write(iout,*) c(jik,i+1), c(jik,j+1), (c(jik,i+1)-c(jik,j+1)) +!cc write(iout,746) "GRAD_ODL_1", i, j, jik, ggodl, +!cc & ghpbc(jik,i+1), ghpbc(jik,j+1) + ghpbc(jik,i)=ghpbc(jik,i)+ggodl + ghpbc(jik,j)=ghpbc(jik,j)-ggodl +!cc write(iout,746) "GRAD_ODL_2", i, j, jik, ggodl, +!cc & ghpbc(jik,i+1), ghpbc(jik,j+1) +! if (i.eq.25.and.j.eq.27) then +! write(iout,*) "jik",jik,"i",i,"j",j +! write(iout,*) "sum_sgodl",sum_sgodl,"sgodl",sgodl +! write(iout,*) "grad_odl3",grad_odl3 +! write(iout,*) "c(",jik,i,")",c(jik,i),"c(",jik,j,")",c(jik,j) +! write(iout,*) "ggodl",ggodl +! write(iout,*) "ghpbc(",jik,i,")", +! & ghpbc(jik,i),"ghpbc(",jik,j,")", +! & ghpbc(jik,j) +! endif + enddo +!cc write(iout,778)"TEST: odleg2=", odleg2, "DLOG(odleg2)=", +!cc & dLOG(odleg2),"-odleg=", -odleg + enddo ! ii-loop for dist +#ifdef DEBUG + write(iout,*) "------- dist restrs end -------" +! if (waga_angle.eq.1.0d0 .or. waga_theta.eq.1.0d0 .or. +! & waga_d.eq.1.0d0) call sum_gradient +#endif +! Pseudo-energy and gradient from dihedral-angle restraints from +! homology templates +! write (iout,*) "End of distance loop" +! call flush(iout) + kat=0.0d0 +! write (iout,*) idihconstr_start_homo,idihconstr_end_homo +#ifdef DEBUG + write(iout,*) "------- dih restrs start -------" + do i=idihconstr_start_homo,idihconstr_end_homo + write (iout,*) "gloc_init(",i,icg,")",gloc(i,icg) + enddo +#endif + do i=idihconstr_start_homo,idihconstr_end_homo + kat2=0.0d0 +! betai=beta(i,i+1,i+2,i+3) + betai = phi(i) +! write (iout,*) "betai =",betai + do k=1,constr_homology + dih_diff(k)=pinorm(dih(k,i)-betai) +!d write (iout,'(a8,2i4,2f15.8)') "dih_diff",i,k,dih_diff(k) +!d & ,sigma_dih(k,i) +! if (dih_diff(i,k).gt.3.14159) dih_diff(i,k)= +! & -(6.28318-dih_diff(i,k)) +! if (dih_diff(i,k).lt.-3.14159) dih_diff(i,k)= +! & 6.28318+dih_diff(i,k) +#ifdef OLD_DIHED + kat3=-0.5d0*dih_diff(k)**2*sigma_dih(k,i) ! waga_angle rmvd from Gaussian argument +#else + kat3=(dcos(dih_diff(k))-1)*sigma_dih(k,i) ! waga_angle rmvd from Gaussian argument +#endif +! kat3=-0.5d0*waga_angle*dih_diff(k)**2*sigma_dih(k,i) + gdih(k)=dexp(kat3) + kat2=kat2+gdih(k) +! write(iout,*) "kat2=", kat2, "exp(kat3)=", exp(kat3) +! write(*,*)"" + enddo +! write (iout,*) "gdih",(gdih(k),k=1,constr_homology) ! exps +! write (iout,*) "i",i," betai",betai," kat2",kat2 ! sum of exps +#ifdef DEBUG + write (iout,*) "i",i," betai",betai," kat2",kat2 + write (iout,*) "gdih",(gdih(k),k=1,constr_homology) +#endif + if (kat2.le.1.0d-14) cycle + kat=kat-dLOG(kat2/constr_homology) +! write (iout,*) "kat",kat ! sum of -ln-s + +!cc write(iout,778)"TEST: kat2=", kat2, "DLOG(kat2)=", +!cc & dLOG(kat2), "-kat=", -kat + +! ---------------------------------------------------------------------- +! Gradient +! ---------------------------------------------------------------------- + + sum_gdih=kat2 + sum_sgdih=0.0d0 + do k=1,constr_homology +#ifdef OLD_DIHED + sgdih=-gdih(k)*dih_diff(k)*sigma_dih(k,i) ! waga_angle rmvd +#else + sgdih=-gdih(k)*dsin(dih_diff(k))*sigma_dih(k,i) ! waga_angle rmvd +#endif +! sgdih=-gdih(k)*dih_diff(k)*sigma_dih(k,i)*waga_angle + sum_sgdih=sum_sgdih+sgdih + enddo +! grad_dih3=sum_sgdih/sum_gdih + grad_dih3=waga_homology(iset)*waga_angle*sum_sgdih/sum_gdih +! print *, "ok3" + +! write(iout,*)i,k,gdih,sgdih,beta(i+1,i+2,i+3,i+4),grad_dih3 +!cc write(iout,747) "GRAD_KAT_1", i, nphi, icg, grad_dih3, +!cc & gloc(nphi+i-3,icg) + gloc(i-3,icg)=gloc(i-3,icg)+grad_dih3 +! if (i.eq.25) then +! write(iout,*) "i",i,"icg",icg,"gloc(",i,icg,")",gloc(i,icg) +! endif +!cc write(iout,747) "GRAD_KAT_2", i, nphi, icg, grad_dih3, +!cc & gloc(nphi+i-3,icg) + + enddo ! i-loop for dih +#ifdef DEBUG + write(iout,*) "------- dih restrs end -------" +#endif + +! Pseudo-energy and gradient for theta angle restraints from +! homology templates +! FP 01/15 - inserted from econstr_local_test.F, loop structure +! adapted + +! +! For constr_homology reference structures (FP) +! +! Uconst_back_tot=0.0d0 + Eval=0.0d0 + Erot=0.0d0 +! Econstr_back legacy + do i=1,nres +! do i=ithet_start,ithet_end + dutheta(i)=0.0d0 + enddo +! do i=loc_start,loc_end + do i=-1,nres + do j=1,3 + duscdiff(j,i)=0.0d0 + duscdiffx(j,i)=0.0d0 + enddo + enddo +! +! do iref=1,nref +! write (iout,*) "ithet_start =",ithet_start,"ithet_end =",ithet_end +! write (iout,*) "waga_theta",waga_theta + if (waga_theta.gt.0.0d0) then +#ifdef DEBUG + write (iout,*) "usampl",usampl + write(iout,*) "------- theta restrs start -------" +! do i=ithet_start,ithet_end +! write (iout,*) "gloc_init(",nphi+i,icg,")",gloc(nphi+i,icg) +! enddo +#endif +! write (iout,*) "maxres",maxres,"nres",nres + + do i=ithet_start,ithet_end +! +! do i=1,nfrag_back +! ii = ifrag_back(2,i,iset)-ifrag_back(1,i,iset) +! +! Deviation of theta angles wrt constr_homology ref structures +! + utheta_i=0.0d0 ! argument of Gaussian for single k + gutheta_i=0.0d0 ! Sum of Gaussians over constr_homology ref structures +! do j=ifrag_back(1,i,iset)+2,ifrag_back(2,i,iset) ! original loop +! over residues in a fragment +! write (iout,*) "theta(",i,")=",theta(i) + do k=1,constr_homology +! +! dtheta_i=theta(j)-thetaref(j,iref) +! dtheta_i=thetaref(k,i)-theta(i) ! original form without indexing + theta_diff(k)=thetatpl(k,i)-theta(i) +!d write (iout,'(a8,2i4,2f15.8)') "theta_diff",i,k,theta_diff(k) +!d & ,sigma_theta(k,i) + +! + utheta_i=-0.5d0*theta_diff(k)**2*sigma_theta(k,i) ! waga_theta rmvd from Gaussian argument +! utheta_i=-0.5d0*waga_theta*theta_diff(k)**2*sigma_theta(k,i) ! waga_theta? + gtheta(k)=dexp(utheta_i) ! + min_utheta_i? + gutheta_i=gutheta_i+gtheta(k) ! Sum of Gaussians (pk) +! Gradient for single Gaussian restraint in subr Econstr_back +! dutheta(j-2)=dutheta(j-2)+wfrag_back(1,i,iset)*dtheta_i/(ii-1) +! + enddo +! write (iout,*) "gtheta",(gtheta(k),k=1,constr_homology) ! exps +! write (iout,*) "i",i," gutheta_i",gutheta_i ! sum of exps + +! +! Gradient for multiple Gaussian restraint + sum_gtheta=gutheta_i + sum_sgtheta=0.0d0 + do k=1,constr_homology +! New generalized expr for multiple Gaussian from Econstr_back + sgtheta=-gtheta(k)*theta_diff(k)*sigma_theta(k,i) ! waga_theta rmvd +! +! sgtheta=-gtheta(k)*theta_diff(k)*sigma_theta(k,i)*waga_theta ! right functional form? + sum_sgtheta=sum_sgtheta+sgtheta ! cum variable + enddo +! Final value of gradient using same var as in Econstr_back + gloc(nphi+i-2,icg)=gloc(nphi+i-2,icg) & + +sum_sgtheta/sum_gtheta*waga_theta & + *waga_homology(iset) +! print *, "ok4" + +! dutheta(i-2)=sum_sgtheta/sum_gtheta*waga_theta +! & *waga_homology(iset) +! dutheta(i)=sum_sgtheta/sum_gtheta +! +! Uconst_back=Uconst_back+waga_theta*utheta(i) ! waga_theta added as weight + Eval=Eval-dLOG(gutheta_i/constr_homology) +! write (iout,*) "utheta(",i,")=",utheta(i) ! -ln of sum of exps +! write (iout,*) "Uconst_back",Uconst_back ! sum of -ln-s +! Uconst_back=Uconst_back+utheta(i) + enddo ! (i-loop for theta) +#ifdef DEBUG + write(iout,*) "------- theta restrs end -------" +#endif + endif +! +! Deviation of local SC geometry +! +! Separation of two i-loops (instructed by AL - 11/3/2014) +! +! write (iout,*) "loc_start =",loc_start,"loc_end =",loc_end +! write (iout,*) "waga_d",waga_d + +#ifdef DEBUG + write(iout,*) "------- SC restrs start -------" + write (iout,*) "Initial duscdiff,duscdiffx" + do i=loc_start,loc_end + write (iout,*) i,(duscdiff(jik,i),jik=1,3), & + (duscdiffx(jik,i),jik=1,3) + enddo +#endif + do i=loc_start,loc_end + usc_diff_i=0.0d0 ! argument of Gaussian for single k + guscdiff(i)=0.0d0 ! Sum of Gaussians over constr_homology ref structures +! do j=ifrag_back(1,i,iset)+1,ifrag_back(2,i,iset)-1 ! Econstr_back legacy +! write(iout,*) "xxtab, yytab, zztab" +! write(iout,'(i5,3f8.2)') i,xxtab(i),yytab(i),zztab(i) + do k=1,constr_homology +! + dxx=-xxtpl(k,i)+xxtab(i) ! Diff b/w x component of ith SC vector in model and kth ref str? +! Original sign inverted for calc of gradients (s. Econstr_back) + dyy=-yytpl(k,i)+yytab(i) ! ibid y + dzz=-zztpl(k,i)+zztab(i) ! ibid z +! write(iout,*) "dxx, dyy, dzz" +!d write(iout,'(2i5,4f8.2)') k,i,dxx,dyy,dzz,sigma_d(k,i) +! + usc_diff_i=-0.5d0*(dxx**2+dyy**2+dzz**2)*sigma_d(k,i) ! waga_d rmvd from Gaussian argument +! usc_diff(i)=-0.5d0*waga_d*(dxx**2+dyy**2+dzz**2)*sigma_d(k,i) ! waga_d? +! uscdiffk(k)=usc_diff(i) + guscdiff2(k)=dexp(usc_diff_i) ! without min_scdiff +! write(iout,*) "i",i," k",k," sigma_d",sigma_d(k,i), +! & " guscdiff2",guscdiff2(k) + guscdiff(i)=guscdiff(i)+guscdiff2(k) !Sum of Gaussians (pk) +! write (iout,'(i5,6f10.5)') j,xxtab(j),yytab(j),zztab(j), +! & xxref(j),yyref(j),zzref(j) + enddo +! +! Gradient +! +! Generalized expression for multiple Gaussian acc to that for a single +! Gaussian in Econstr_back as instructed by AL (FP - 03/11/2014) +! +! Original implementation +! sum_guscdiff=guscdiff(i) +! +! sum_sguscdiff=0.0d0 +! do k=1,constr_homology +! sguscdiff=-guscdiff2(k)*dscdiff(k)*sigma_d(k,i)*waga_d !waga_d? +! sguscdiff=-guscdiff3(k)*dscdiff(k)*sigma_d(k,i)*waga_d ! w min_uscdiff +! sum_sguscdiff=sum_sguscdiff+sguscdiff +! enddo +! +! Implementation of new expressions for gradient (Jan. 2015) +! +! grad_uscdiff=sum_sguscdiff/(sum_guscdiff*dtab) !? + do k=1,constr_homology +! +! New calculation of dxx, dyy, and dzz corrected by AL (07/11), was missing and wrong +! before. Now the drivatives should be correct +! + dxx=-xxtpl(k,i)+xxtab(i) ! Diff b/w x component of ith SC vector in model and kth ref str? +! Original sign inverted for calc of gradients (s. Econstr_back) + dyy=-yytpl(k,i)+yytab(i) ! ibid y + dzz=-zztpl(k,i)+zztab(i) ! ibid z + sum_guscdiff=guscdiff2(k)* &!(dsqrt(dxx*dxx+dyy*dyy+dzz*dzz))* -> wrong! + sigma_d(k,i) ! for the grad wrt r' +! sum_sguscdiff=sum_sguscdiff+sum_guscdiff + +! +! New implementation + sum_guscdiff = waga_homology(iset)*waga_d*sum_guscdiff + do jik=1,3 + duscdiff(jik,i-1)=duscdiff(jik,i-1)+ & + sum_guscdiff*(dXX_C1tab(jik,i)*dxx+ & + dYY_C1tab(jik,i)*dyy+dZZ_C1tab(jik,i)*dzz)/guscdiff(i) + duscdiff(jik,i)=duscdiff(jik,i)+ & + sum_guscdiff*(dXX_Ctab(jik,i)*dxx+ & + dYY_Ctab(jik,i)*dyy+dZZ_Ctab(jik,i)*dzz)/guscdiff(i) + duscdiffx(jik,i)=duscdiffx(jik,i)+ & + sum_guscdiff*(dXX_XYZtab(jik,i)*dxx+ & + dYY_XYZtab(jik,i)*dyy+dZZ_XYZtab(jik,i)*dzz)/guscdiff(i) +! print *, "ok5" +! +#ifdef DEBUG +! write(iout,*) "jik",jik,"i",i + write(iout,*) "dxx, dyy, dzz" + write(iout,'(2i5,3f8.2)') k,i,dxx,dyy,dzz + write(iout,*) "guscdiff2(",k,")",guscdiff2(k) + write(iout,*) "sum_sguscdiff",sum_guscdiff,waga_homology(iset),waga_d + write(iout,*) "dXX_Ctab(",jik,i,")",dXX_Ctab(jik,i) + write(iout,*) "dYY_Ctab(",jik,i,")",dYY_Ctab(jik,i) + write(iout,*) "dZZ_Ctab(",jik,i,")",dZZ_Ctab(jik,i) + write(iout,*) "dXX_C1tab(",jik,i,")",dXX_C1tab(jik,i) + write(iout,*) "dYY_C1tab(",jik,i,")",dYY_C1tab(jik,i) + write(iout,*) "dZZ_C1tab(",jik,i,")",dZZ_C1tab(jik,i) + write(iout,*) "dXX_XYZtab(",jik,i,")",dXX_XYZtab(jik,i) + write(iout,*) "dYY_XYZtab(",jik,i,")",dYY_XYZtab(jik,i) + write(iout,*) "dZZ_XYZtab(",jik,i,")",dZZ_XYZtab(jik,i) + write(iout,*) "duscdiff(",jik,i-1,")",duscdiff(jik,i-1) + write(iout,*) "duscdiff(",jik,i,")",duscdiff(jik,i) + write(iout,*) "duscdiffx(",jik,i,")",duscdiffx(jik,i) +! endif +#endif + enddo + enddo +! print *, "ok6" +! +! uscdiff(i)=-dLOG(guscdiff(i)/(ii-1)) ! Weighting by (ii-1) required? +! usc_diff(i)=-dLOG(guscdiff(i)/constr_homology) ! + min_uscdiff ? +! +! write (iout,*) i," uscdiff",uscdiff(i) +! +! Put together deviations from local geometry + +! Uconst_back=Uconst_back+wfrag_back(1,i,iset)*utheta(i)+ +! & wfrag_back(3,i,iset)*uscdiff(i) + Erot=Erot-dLOG(guscdiff(i)/constr_homology) +! write (iout,*) "usc_diff(",i,")=",usc_diff(i) ! -ln of sum of exps +! write (iout,*) "Uconst_back",Uconst_back ! cum sum of -ln-s +! Uconst_back=Uconst_back+usc_diff(i) +! +! Gradient of multiple Gaussian restraint (FP - 04/11/2014 - right?) +! +! New implment: multiplied by sum_sguscdiff +! + + enddo ! (i-loop for dscdiff) + +! endif + +#ifdef DEBUG + write(iout,*) "------- SC restrs end -------" + write (iout,*) "------ After SC loop in e_modeller ------" + do i=loc_start,loc_end + write (iout,*) "i",i," gradc",(gradc(j,i,icg),j=1,3) + write (iout,*) "i",i," gradx",(gradx(j,i,icg),j=1,3) + enddo + if (waga_theta.eq.1.0d0) then + write (iout,*) "in e_modeller after SC restr end: dutheta" + do i=ithet_start,ithet_end + write (iout,*) i,dutheta(i) + enddo + endif + if (waga_d.eq.1.0d0) then + write (iout,*) "e_modeller after SC loop: duscdiff/x" + do i=1,nres + write (iout,*) i,(duscdiff(j,i),j=1,3) + write (iout,*) i,(duscdiffx(j,i),j=1,3) + enddo + endif +#endif + +! Total energy from homology restraints +#ifdef DEBUG + write (iout,*) "odleg",odleg," kat",kat +#endif +! +! Addition of energy of theta angle and SC local geom over constr_homologs ref strs +! +! ehomology_constr=odleg+kat +! +! For Lorentzian-type Urestr +! + + if (waga_dist.ge.0.0d0) then +! +! For Gaussian-type Urestr +! + ehomology_constr=(waga_dist*odleg+waga_angle*kat+ & + waga_theta*Eval+waga_d*Erot)*waga_homology(iset) +! write (iout,*) "ehomology_constr=",ehomology_constr +! print *, "ok7" + else +! +! For Lorentzian-type Urestr +! + ehomology_constr=(-waga_dist*odleg+waga_angle*kat+ & + waga_theta*Eval+waga_d*Erot)*waga_homology(iset) +! write (iout,*) "ehomology_constr=",ehomology_constr + print *, "ok8" + endif +#ifdef DEBUG + write (iout,*) "odleg",waga_dist,odleg," kat",waga_angle,kat, & + "Eval",waga_theta,eval, & + "Erot",waga_d,Erot + write (iout,*) "ehomology_constr",ehomology_constr +#endif + return +! +! FP 01/15 end +! + 748 format(a8,f12.3,a6,f12.3,a7,f12.3) + 747 format(a12,i4,i4,i4,f8.3,f8.3) + 746 format(a12,i4,i4,i4,f8.3,f8.3,f8.3) + 778 format(a7,1X,f10.3,1X,a4,1X,f10.3,1X,a5,1X,f10.3) + 779 format(i3,1X,i3,1X,i2,1X,a7,1X,f7.3,1X,a7,1X,f7.3,1X,a13,1X, & + f7.3,1X,a17,1X,f9.3,1X,a10,1X,f8.3,1X,a10,1X,f8.3) + end subroutine e_modeller + +!---------------------------------------------------------------------------- subroutine ebend_kcc(etheta) logical lprn double precision thybt1(maxang_kcc),etheta @@ -11605,6 +12333,16 @@ enddo enddo +! write(iout,*), "const_homol",constr_homology + if (constr_homology.gt.0) then + do i=1,nct + do j=1,3 + gradc(j,i,icg)=gradc(j,i,icg)+duscdiff(j,i) +! write(iout,*) "duscdiff",duscdiff(j,i) + gradx(j,i,icg)=gradx(j,i,icg)+duscdiffx(j,i) + enddo + enddo + endif !#define DEBUG #ifdef DEBUG write (iout,*) "gloc before adding corr" @@ -12057,7 +12795,11 @@ sint2,xp,yp,xxp,yyp,zzp,dj ! common /przechowalnia/ fromto +#ifdef FIVEDIAG + if(.not. allocated(fromto)) allocate(fromto(3,3)) +#else if(.not. allocated(fromto)) allocate(fromto(3,3,maxdim)) +#endif ! get the position of the jth ijth fragment of the chain coordinate system ! in the fromto array. ! indmat(i,j)=((2*(nres-2)-i)*(i-1))/2+j-1 @@ -12096,6 +12838,7 @@ ! ! generate the matrix products of type r(i)t(i)...r(j)t(j) ! +#ifndef FIVEDIAG do i=2,nres-2 ind=indmat(i,i+1) do k=1,3 @@ -12108,6 +12851,7 @@ fromto(k,l,ind)=temp(k,l) enddo enddo + do j=i+1,nres-2 ind=indmat(i,j+1) do k=1,3 @@ -12127,6 +12871,7 @@ enddo enddo enddo +#endif ! ! Calculate derivatives. ! @@ -12224,6 +12969,19 @@ ind1=ind1+1 ind=indmat(i+1,j+1) !d print *,'i=',i,' j=',j,' ind=',ind,' ind1=',ind1 +#ifdef FIVEDIAG + call build_fromto(i+1,j+1,fromto) +c write(iout,'(7hfromto 9f10.5)')((fromto(k,l),l=1,3),k=1,3) + do k=1,3 + do l=1,3 + tempkl=0.0D0 + do m=1,2 + tempkl=tempkl+prordt(k,m,i)*fromto(m,l) + enddo + temp(k,l)=tempkl + enddo + enddo +#else do k=1,3 do l=1,3 tempkl=0.0D0 @@ -12233,6 +12991,7 @@ temp(k,l)=tempkl enddo enddo +#endif !d print '(9f8.3)',((fromto(k,l,ind),l=1,3),k=1,3) !d print '(9f8.3)',((prod(k,l,i),l=1,3),k=1,3) !d print '(9f8.3)',((temp(k,l),l=1,3),k=1,3) @@ -12252,6 +13011,17 @@ ! !--- Calculate the derivatives in phi ! +#ifdef FIVEDIAG + do k=1,3 + do l=1,3 + tempkl=0.0D0 + do m=1,3 + tempkl=tempkl+prodrt(k,m,i)*fromto(m,l) + enddo + temp(k,l)=tempkl + enddo + enddo +#else do k=1,3 do l=1,3 tempkl=0.0D0 @@ -12261,6 +13031,9 @@ temp(k,l)=tempkl enddo enddo +#endif + + do k=1,3 dcdv(k+3,ind1)=vbld(i+1)*temp(k,1) enddo @@ -12314,17 +13087,69 @@ xx(2)=yyp*r(2,2,i-1)+zzp*r(2,3,i-1) xx(3)=yyp*r(3,2,i-1)+zzp*r(3,3,i-1) do k=1,3 - dj=0.0D0 + dj=0.0D0 + do l=1,3 + dj=dj+prod(k,l,i-1)*xx(l) + enddo + dxds(jjj+k,i)=dj + enddo + jjj=jjj+3 + enddo + enddo + return + end subroutine cartder +#ifdef FIVEDIAG + subroutine build_fromto(i,j,fromto) + implicit none + integer i,j,jj,k,l,m + double precision fromto(3,3),temp(3,3),dp(3,3) + double precision dpkl + save temp +! +! generate the matrix products of type r(i)t(i)...r(j)t(j) on the fly +! +! write (iout,*) "temp on entry" +! write (iout,'(3f10.5)') ((temp(k,l),l=1,3),k=1,3) +! do i=2,nres-2 +! ind=indmat(i,i+1) + if (j.eq.i+1) then + do k=1,3 + do l=1,3 + temp(k,l)=rt(k,l,i) + enddo + enddo + do k=1,3 do l=1,3 - dj=dj+prod(k,l,i-1)*xx(l) + fromto(k,l)=temp(k,l) + enddo + enddo + else +! do j=i+1,nres-2 +! ind=indmat(i,j+1) + do k=1,3 + do l=1,3 + dpkl=0.0d0 + do m=1,3 + dpkl=dpkl+temp(k,m)*rt(m,l,j-1) + enddo + dp(k,l)=dpkl + fromto(k,l)=dpkl enddo - dxds(jjj+k,i)=dj enddo - jjj=jjj+3 - enddo - enddo + do k=1,3 + do l=1,3 + temp(k,l)=dp(k,l) + enddo + enddo + endif +! write (iout,*) "temp upon exit" +! write (iout,'(3f10.5)') ((temp(k,l),l=1,3),k=1,3) +! enddo +! enddo return - end subroutine cartder + end subroutine build_fromto +#endif + !----------------------------------------------------------------------------- ! checkder_p.F !----------------------------------------------------------------------------- @@ -12593,7 +13418,8 @@ subroutine check_ecartint ! Check the gradient of the energy in Cartesian coordinates. use io_base, only: intout -! implicit real(kind=8) (a-h,o-z) + use MD_data, only: iset +! implicit real*8 (a-h,o-z) ! include 'DIMENSIONS' ! include 'COMMON.CONTROL' ! include 'COMMON.CHAIN' @@ -12625,6 +13451,7 @@ icg=1 nf=0 nfl=0 + if (iset.eq.0) iset=1 call intout ! call intcartderiv ! call checkintcartgrad @@ -12826,7 +13653,8 @@ subroutine check_ecartint ! Check the gradient of the energy in Cartesian coordinates. use io_base, only: intout -! implicit real(kind=8) (a-h,o-z) + use MD_data, only: iset +! implicit real*8 (a-h,o-z) ! include 'DIMENSIONS' ! include 'COMMON.CONTROL' ! include 'COMMON.CHAIN' @@ -12858,6 +13686,7 @@ icg=1 nf=0 nfl=0 + if (iset.eq.0) iset=1 call intout ! call intcartderiv ! call checkintcartgrad @@ -12878,6 +13707,7 @@ enddo do j=1,3 grad_s(j,0)=gcart(j,0) + grad_s(j+3,0)=gxcart(j,0) enddo do i=1,nres do j=1,3 @@ -13862,10 +14692,10 @@ if (itypj.eq.ntyp1) cycle ! dscj_inv=dsc_inv(itypj) dscj_inv=vbld_inv(j+nres) -chi1=chi(itypi,itypj) -chi2=chi(itypj,itypi) -chi12=chi1*chi2 -chip1=chip(itypi) +!chi1=chi(itypi,itypj) +!chi2=chi(itypj,itypi) +!chi12=chi1*chi2 +!chip1=chip(itypi) alf1=alp(itypi) alf2=alp(itypj) alf12=0.5D0*(alf1+alf2) @@ -16193,7 +17023,7 @@ chip1=chip(itypi) integer :: i,n_corr,n_corr1,ierror,ierr real(kind=8) :: evdw2,evdw2_14,ehpb,etors,edihcnstr,etors_d,esccor,& evdw,ees,evdw1,eel_loc,eello_turn3,eello_turn4,& - ecorr,ecorr5,ecorr6,eturn6,time00 + ecorr,ecorr5,ecorr6,eturn6,time00, ehomology_constr ! write(iout,'(a,i2)')'Calling etotal_long ipot=',ipot !elwrite(iout,*)"in etotal long" @@ -16205,7 +17035,7 @@ chip1=chip(itypi) #endif endif !elwrite(iout,*)"in etotal long" - + ehomology_constr=0.0d0 #ifdef MPI ! write(iout,*) "ETOTAL_LONG Processor",fg_rank, ! & " absolute rank",myrank," nfgtasks",nfgtasks @@ -16403,6 +17233,7 @@ chip1=chip(itypi) energia(9)=eello_turn4 energia(10)=eturn6 energia(20)=Uconst+Uconst_back + energia(51)=ehomology_constr call sum_energy(energia,.true.) ! write (iout,*) "Exit ETOTAL_LONG" call flush(iout) @@ -16440,7 +17271,8 @@ chip1=chip(itypi) !el local variables integer :: i,nres6 real(kind=8) :: evdw,evdw1,evdw2,evdw2_14,esccor,etors_d,etors - real(kind=8) :: ehpb,escloc,estr,ebe,edihcnstr,ethetacnstr + real(kind=8) :: ehpb,escloc,estr,ebe,edihcnstr,ethetacnstr, & + ehomology_constr nres6=6*nres ! write(iout,'(a,i2)')'Calling etotal_short ipot=',ipot @@ -16591,7 +17423,7 @@ chip1=chip(itypi) ! ! Calculate the disulfide-bridge and other energy and the contributions ! from other distance constraints. - call edis(ehpb) +! call edis(ehpb) ! ! Calculate the virtual-bond-angle energy. ! @@ -16656,6 +17488,16 @@ chip1=chip(itypi) call etor_d(etors_d) endif ! +! Homology restraints +! + if (constr_homology.ge.1) then + call e_modeller(ehomology_constr) +! print *,"tu" + else + ehomology_constr=0.0d0 + endif + +! ! 21/5/07 Calculate local sicdechain correlation energy ! if (wsccor.gt.0.0d0) then @@ -16690,6 +17532,7 @@ chip1=chip(itypi) energia(17)=estr energia(19)=edihcnstr energia(21)=esccor + energia(51)=ehomology_constr ! write (iout,*) "ETOTAL_SHORT before SUM_ENERGY" call flush(iout) call sum_energy(energia,.true.) @@ -17049,6 +17892,60 @@ chip1=chip(itypi) !#undef DEBUG return end subroutine cartgrad + +#ifdef FIVEDIAG + subroutine grad_transform + implicit none +#ifdef MPI + include 'mpif.h' +#endif + integer i,j,kk +#ifdef DEBUG + write (iout,*)"Converting virtual-bond gradient to CA/SC gradient" + write (iout,*) "dC/dX gradient" + do i=0,nres + write (iout,'(i5,3f10.5,5x,3f10.5)') i,(gcart(j,i),j=1,3), + & (gxcart(j,i),j=1,3) + enddo +#endif + do i=nres,1,-1 + do j=1,3 + gcart(j,i)=-gcart(j,i)+gcart(j,i-1)-gxcart(j,i) +! gcart_new(j,i)=-gcart(j,i)+gcart(j,i-1)-gxcart(j,i) + enddo +! write (iout,'(i5,3f10.5,5x,3f10.5,5x,3f10.5)') i,(gcart(j,i),j=1,3), & +! (gcart_new(j,i),j=1,3),(gxcart(j,i),j=1,3) + enddo +! Correction: dummy residues + do i=2,nres + if (itype(i-1).eq.ntyp1 .and. itype(i).ne.ntyp1) then + gcart(:,i)=gcart(:,i)+gcart(:,i-1) + else if (itype(i-1).ne.ntyp1 .and. itype(i).eq.ntyp1) then + gcart(:,i-1)=gcart(:,i-1)+gcart(:,i) + endif + enddo +c if (nnt.gt.1) then +c do j=1,3 +c gcart(j,nnt)=gcart(j,nnt)+gcart(j,1) +c enddo +c endif +c if (nct.lt.nres) then +c do j=1,3 +c! gcart_new(j,nct)=gcart_new(j,nct)+gcart_new(j,nres) +c gcart(j,nct)=gcart(j,nct)+gcart(j,nres) +c enddo +c endif +#ifdef DEBUG + write (iout,*) "CA/SC gradient" + do i=1,nres + write (iout,'(i5,3f10.5,5x,3f10.5)') i,(gcart(j,i),j=1,3), + & (gxcart(j,i),j=1,3) + enddo +#endif + return + end subroutine grad_transform +#endif + !----------------------------------------------------------------------------- subroutine zerograd ! implicit real(kind=8) (a-h,o-z) @@ -17192,6 +18089,8 @@ chip1=chip(itypi) gradcattranx(j,i)=0.0d0 gradcatangx(j,i)=0.0d0 gradcatangc(j,i)=0.0d0 + duscdiff(j,i)=0.0d0 + duscdiffx(j,i)=0.0d0 enddo enddo do i=0,nres @@ -19901,14 +20800,18 @@ chip1=chip(itypi) end subroutine calctube2 !===================================================================================================================================== subroutine calcnano(Etube) - real(kind=8),dimension(3) :: vectube + use MD_data, only:totTafm + real(kind=8),dimension(3) :: vectube,cm real(kind=8) :: Etube,xtemp,xminact,yminact,& ytemp,xmin,ymin,tub_r,rdiff,rdiff6,fac,denominator,faccav,& - sc_aa_tube,sc_bb_tube,zmin,ztemp,zminact - integer:: i,j,iti,r - + sc_aa_tube,sc_bb_tube,zmin,ztemp,zminact,tubezcenter,xi,yi,zi!,& +! vecsim,vectrue + real(kind=8) :: eps,sig,aa_tub_lip,bb_tub_lip + integer:: i,j,iti,r,ilol,ityp +! totTafm=2.0 Etube=0.0d0 + call to_box(tubecenter(1),tubecenter(2),tubecenter(3)) ! print *,itube_start,itube_end,"poczatek" do i=itube_start,itube_end enetube(i)=0.0d0 @@ -19921,43 +20824,17 @@ chip1=chip(itypi) !C lets ommit dummy atoms for now if ((itype(i,1).eq.ntyp1).or.(itype(i+1,1).eq.ntyp1)) cycle !C now calculate distance from center of tube and direction vectors - xmin=boxxsize - ymin=boxysize - zmin=boxzsize - - do j=-1,1 - vectube(1)=dmod((c(1,i)+c(1,i+1))/2.0d0,boxxsize) - vectube(1)=vectube(1)+boxxsize*j - vectube(2)=dmod((c(2,i)+c(2,i+1))/2.0d0,boxysize) - vectube(2)=vectube(2)+boxysize*j - vectube(3)=dmod((c(3,i)+c(3,i+1))/2.0d0,boxzsize) - vectube(3)=vectube(3)+boxzsize*j - - - xminact=dabs(vectube(1)-tubecenter(1)) - yminact=dabs(vectube(2)-tubecenter(2)) - zminact=dabs(vectube(3)-tubecenter(3)) - if (xmin.gt.xminact) then - xmin=xminact - xtemp=vectube(1) - endif - if (ymin.gt.yminact) then - ymin=yminact - ytemp=vectube(2) - endif - if (zmin.gt.zminact) then - zmin=zminact - ztemp=vectube(3) - endif - enddo - vectube(1)=xtemp - vectube(2)=ytemp - vectube(3)=ztemp +! do j=-1,1 + xi=(c(1,i)+c(1,i+1))/2.0d0 + yi=(c(2,i)+c(2,i+1))/2.0d0 + zi=((c(3,i)+c(3,i+1))/2.0d0) + call to_box(xi,yi,zi) +! tubezcenter=totTafm*velNANOconst+tubecenter(3) - vectube(1)=vectube(1)-tubecenter(1) - vectube(2)=vectube(2)-tubecenter(2) - vectube(3)=vectube(3)-tubecenter(3) + vectube(1)=boxshift(xi-tubecenter(1),boxxsize) + vectube(2)=boxshift(yi-tubecenter(2),boxysize) + vectube(3)=boxshift(zi-tubecenter(3),boxzsize) !C print *,"x",(c(1,i)+c(1,i+1))/2.0d0,tubecenter(1) !C print *,"y",(c(2,i)+c(2,i+1))/2.0d0,tubecenter(2) @@ -20018,44 +20895,17 @@ chip1=chip(itypi) !C in UNRES uncomment the line below as GLY has no side-chain... !C .or.(iti.eq.10) ) cycle - xmin=boxxsize - ymin=boxysize - zmin=boxzsize - do j=-1,1 - vectube(1)=dmod((c(1,i+nres)),boxxsize) - vectube(1)=vectube(1)+boxxsize*j - vectube(2)=dmod((c(2,i+nres)),boxysize) - vectube(2)=vectube(2)+boxysize*j - vectube(3)=dmod((c(3,i+nres)),boxzsize) - vectube(3)=vectube(3)+boxzsize*j - + xi=c(1,i+nres) + yi=c(2,i+nres) + zi=c(3,i+nres) + call to_box(xi,yi,zi) + tubezcenter=totTafm*velNANOconst+tubecenter(3) - xminact=dabs(vectube(1)-tubecenter(1)) - yminact=dabs(vectube(2)-tubecenter(2)) - zminact=dabs(vectube(3)-tubecenter(3)) + vectube(1)=boxshift(xi-tubecenter(1),boxxsize) + vectube(2)=boxshift(yi-tubecenter(2),boxysize) + vectube(3)=boxshift(zi-tubecenter(3),boxzsize) - if (xmin.gt.xminact) then - xmin=xminact - xtemp=vectube(1) - endif - if (ymin.gt.yminact) then - ymin=yminact - ytemp=vectube(2) - endif - if (zmin.gt.zminact) then - zmin=zminact - ztemp=vectube(3) - endif - enddo - vectube(1)=xtemp - vectube(2)=ytemp - vectube(3)=ztemp -!C write(iout,*), "tututu", vectube(1),tubecenter(1),vectube(2), -!C & tubecenter(2) - vectube(1)=vectube(1)-tubecenter(1) - vectube(2)=vectube(2)-tubecenter(2) - vectube(3)=vectube(3)-tubecenter(3) !C now calculte the distance tub_r=dsqrt(vectube(1)**2+vectube(2)**2+vectube(3)**2) !C now normalize vector @@ -20108,12 +20958,89 @@ chip1=chip(itypi) if (energy_dec) write(iout,*),i,rdiff,enetube(i+nres),enecavtube(i+nres) enddo - + do i=itube_start,itube_end Etube=Etube+enetube(i)+enetube(i+nres)+enecavtube(i) & +enecavtube(i+nres) enddo + + do i=ilipbond_start_tub,ilipbond_end_tub + ityp=itype(i,4) +! print *,"ilipbond_start",ilipbond_start,i,ityp + if (ityp.gt.ntyp_molec(4)) cycle +!C now calculate distance from center of tube and direction vectors + eps=lip_sig(ityp,18)*4.0d0 + sig=lip_sig(ityp,18) + aa_tub_lip=eps/(sig**12) + bb_tub_lip=eps/(sig**6) +! do j=-1,1 + xi=c(1,i) + yi=c(2,i) + zi=c(3,i) + call to_box(xi,yi,zi) +! tubezcenter=totTafm*velNANOconst+tubecenter(3) + + vectube(1)=boxshift(xi-tubecenter(1),boxxsize) + vectube(2)=boxshift(yi-tubecenter(2),boxysize) + vectube(3)=boxshift(zi-tubecenter(3),boxzsize) + +!C print *,"x",(c(1,i)+c(1,i+1))/2.0d0,tubecenter(1) +!C print *,"y",(c(2,i)+c(2,i+1))/2.0d0,tubecenter(2) +!C as the tube is infinity we do not calculate the Z-vector use of Z +!C as chosen axis +!C vectube(3)=0.0d0 +!C now calculte the distance + tub_r=dsqrt(vectube(1)**2+vectube(2)**2+vectube(3)**2) +!C now normalize vector + vectube(1)=vectube(1)/tub_r + vectube(2)=vectube(2)/tub_r + vectube(3)=vectube(3)/tub_r +!C calculte rdiffrence between r and r0 + rdiff=tub_r-tubeR0 +!C and its 6 power + rdiff6=rdiff**6.0d0 +!C for vectorization reasons we will sumup at the end to avoid depenence of previous + enetube(i)=aa_tub_lip/rdiff6**2.0d0+bb_tub_lip/rdiff6 + Etube=Etube+enetube(i) +!C write(iout,*) "TU13",i,rdiff6,enetube(i) +!C print *,rdiff,rdiff6,pep_aa_tube +!C pep_aa_tube and pep_bb_tube are precomputed values A=4eps*sigma^12 B=4eps*sigma^6 +!C now we calculate gradient + fac=(-12.0d0*aa_tub_lip/rdiff6- & + 6.0d0*bb_tub_lip)/rdiff6/rdiff + do j=1,3 + gg_tube(j,i-1)=gg_tube(j,i-1)+vectube(j)*fac + enddo + if (energy_dec) write(iout,*),i,rdiff,enetube(i+nres) + enddo + + +!----------------------------------------------------------------------- + if (fg_rank.eq.0) then + if (velNANOconst.ne.0) then + do j=1,3 + cm(j)=0.0d0 + enddo + do i=1,inanomove + ilol=inanotab(i) + do j=1,3 + cm(j)=cm(j)+c(j,ilol) + enddo + enddo + do j=1,3 + cm(j)=cm(j)/inanomove + enddo + vecsim=velNANOconst*totTafm+distnanoinit + vectrue=cm(3)-tubecenter(3) + etube=etube+0.5d0*forcenanoconst*( vectrue-vecsim)**2 + fac=forcenanoconst*(vectrue-vecsim)/inanomove + do i=1,inanomove + ilol=inanotab(i) + gg_tube(3,ilol-1)=gg_tube(3,ilol-1)+fac + enddo + endif + endif ! do i=1,20 ! print *,"begin", i,"a" ! do r=1,10000 @@ -20323,17 +21250,40 @@ chip1=chip(itypi) ! SOUBROUTINE FOR AFM subroutine AFMvel(Eafmforce) use MD_data, only:totTafm - real(kind=8),dimension(3) :: diffafm + real(kind=8),dimension(3) :: diffafm,cbeg,cend real(kind=8) :: afmdist,Eafmforce - integer :: i + integer :: i,j !C Only for check grad COMMENT if not used for checkgrad !C totT=3.0d0 !C-------------------------------------------------------- !C print *,"wchodze" afmdist=0.0d0 Eafmforce=0.0d0 + cbeg=0.0d0 + cend=0.0d0 + if (afmbeg.eq.-1) then + do i=1,nbegafmmat + do j=1,3 + cbeg(j)=cbeg(j)+c(j,afmbegcentr(i))/nbegafmmat + enddo + enddo + else + do j=1,3 + cbeg(j)=c(j,afmend) + enddo + endif + if (afmend.eq.-1) then + do i=1,nendafmmat + do j=1,3 + cend(j)=cend(j)+c(j,afmendcentr(i))/nendafmmat + enddo + enddo + else + cend(j)=c(j,afmend) + endif + do i=1,3 - diffafm(i)=c(i,afmend)-c(i,afmbeg) + diffafm(i)=cend(i)-cbeg(i) afmdist=afmdist+diffafm(i)**2 enddo afmdist=dsqrt(afmdist) @@ -20341,14 +21291,36 @@ chip1=chip(itypi) Eafmforce=0.5d0*forceAFMconst & *(distafminit+totTafm*velAFMconst-afmdist)**2 !C Eafmforce=-forceAFMconst*(dist-distafminit) + if (afmend.eq.-1) then + do i=1,nendafmmat + do j=1,3 + gradafm(j,afmendcentr(i)-1)=-forceAFMconst* & + (distafminit+totTafm*velAFMconst-afmdist) & + *diffafm(j)/afmdist/nendafmmat + enddo + enddo + else do i=1,3 gradafm(i,afmend-1)=-forceAFMconst* & (distafminit+totTafm*velAFMconst-afmdist) & *diffafm(i)/afmdist + enddo + endif + if (afmbeg.eq.-1) then + do i=1,nbegafmmat + do j=1,3 + gradafm(i,afmbegcentr(i)-1)=forceAFMconst* & + (distafminit+totTafm*velAFMconst-afmdist) & + *diffafm(i)/afmdist + enddo + enddo + else + do i=1,3 gradafm(i,afmbeg-1)=forceAFMconst* & (distafminit+totTafm*velAFMconst-afmdist) & *diffafm(i)/afmdist enddo + endif ! print *,'AFM',Eafmforce,totTafm*velAFMconst,afmdist return end subroutine AFMvel @@ -20429,7 +21401,7 @@ chip1=chip(itypi) else maxconts=10*nres ! (maxconts=maxres/4) endif - maxcont=12*nres ! Max. number of SC contacts + maxcont=100*nres ! Max. number of SC contacts maxvar=6*nres ! Max. number of variables !el maxdim=(nres-1)*(nres-2)/2 ! Max. number of derivatives of virtual-bond maxdim=nres*(nres-2)/2 ! Max. number of derivatives of virtual-bond @@ -20493,7 +21465,7 @@ chip1=chip(itypi) allocate(gacontm_hb3(3,maxconts,nres)) allocate(gacont_hbr(3,maxconts,nres)) allocate(grij_hb_cont(3,maxconts,nres)) -!(3,maxconts,maxres) + !(3,maxconts,maxres) allocate(facont_hb(maxconts,nres)) allocate(ees0p(maxconts,nres)) @@ -20775,8 +21747,8 @@ chip1=chip(itypi) allocate(dutheta(nres)) allocate(dugamma(nres)) !(maxres) - allocate(duscdiff(3,nres)) - allocate(duscdiffx(3,nres)) + allocate(duscdiff(3,-1:nres)) + allocate(duscdiffx(3,-1:nres)) !(3,maxres) !el i io:read_fragments ! allocate((:,:,:),allocatable :: wfrag_back !(3,maxfrag_back,maxprocs/20) @@ -22515,11 +23487,13 @@ chip1=chip(itypi) !c------------------------------------------------------------------------------ #endif subroutine ecatcat(ecationcation) - integer :: i,j,itmp,xshift,yshift,zshift,subchap,k,itypi,itypj + use MD_data, only: t_bath + integer :: i,j,itmp,xshift,yshift,zshift,subchap,k,itypi,itypj,irdiff real(kind=8) :: xi,yi,zi,xj,yj,zj,ract,rcat0,epscalc,r06,r012,& r7,r4,ecationcation,k0,rcal,aa,bb,sslipi,ssgradlipi,sslipj,ssgradlipj - real(kind=8) xj_temp,yj_temp,zj_temp,xj_safe,yj_safe,zj_safe, & + real(kind=8) :: xj_temp,yj_temp,zj_temp,xj_safe,yj_safe,zj_safe, & dist_init,dist_temp,Evan1cat,Evan2cat,Eeleccat + real(kind=8) :: awat,bwat,cwat,dwat,sss2min2,sss2mingrad2,rdiff,ewater real(kind=8),dimension(3) ::dEvan1Cmcat,dEvan2Cmcat,dEeleccat,& gg,r @@ -22564,6 +23538,8 @@ chip1=chip(itypi) zj=boxshift(zj-zi,boxzsize) rcal =xj**2+yj**2+zj**2 ract=sqrt(rcal) + if ((itypi.gt.1).or.(itypj.gt.1)) then + ! rcat0=3.472 ! epscalc=0.05 ! r06 = rcat0**6 @@ -22591,6 +23567,36 @@ chip1=chip(itypi) r012,rcal**6,ichargecat(itypi)*ichargecat(itypj) ! write(iout,*) "ecatcat",i,j, ecationcation,xj,yj,zj ecationcation=ecationcation+Evan1cat+Evan2cat+Eeleccat + else !this is water part and other non standard molecules + + sss2min2=sscale2(ract,10.0d0,1.0d0)! cutoff for water interaction is 15A + if (sss2min2.eq.0.0d0) cycle + sss2mingrad2=sscagrad2(ract,10.0d0,1.0d0) + irdiff=int((ract-2.06d0)*50.0d0)+1 + + rdiff=ract-((irdiff-1)*0.02d0+2.06d0) + if (irdiff.le.0) then + irdiff=0 + rdiff=ract + endif +! print *,rdiff,ract,irdiff,sss2mingrad2 + awat=awaterenta(irdiff)-awaterentro(irdiff)*t_bath/1000.0d0 + bwat=bwaterenta(irdiff)-bwaterentro(irdiff)*t_bath/1000.0d0 + cwat=cwaterenta(irdiff)-cwaterentro(irdiff)*t_bath/1000.0d0 + dwat=dwaterenta(irdiff)-dwaterentro(irdiff)*t_bath/1000.0d0 + r(1)=xj + r(2)=yj + r(3)=zj + + ewater=awat+bwat*rdiff+cwat*rdiff*rdiff+dwat*rdiff*rdiff*rdiff + ecationcation=ecationcation+ewater*sss2min2 + do k=1,3 + gg(k)=(bwat+2.0d0*cwat*rdiff+dwat*3.0d0*rdiff*rdiff)*r(k)/ract + gradcatcat(k,i)=gradcatcat(k,i)-gg(k)*sss2min2-sss2mingrad2*ewater*r(k)/ract + gradcatcat(k,j)=gradcatcat(k,j)+gg(k)*sss2min2+sss2mingrad2*ewater*r(k)/ract + enddo + if (energy_dec) write(iout,'(2f10.7,f15.7,2i5)') rdiff,ract,ecationcation,i,j + endif ! end water enddo enddo return @@ -22708,6 +23714,7 @@ chip1=chip(itypi) ! chis2 = chis(itypj,itypi) chis12 = chis1 * chis2 sig1 = sigmap1cat(itypi,itypj) + sig2=0.0d0 ! sig2 = sigmap2(itypi,itypj) ! alpha factors from Fcav/Gcav b1cav = alphasurcat(1,itypi,itypj) @@ -22980,6 +23987,8 @@ chip1=chip(itypi) 1.0d0/rij,Rtail,Rhead,evdwij,Fcav,Ecl,Egb,Epol,Fisocav,Elj,& Equad,evdwij+Fcav+eheadtail,evdw ! evdw = evdw + Fcav + eheadtail + if (energy_dec) write(iout,*) "FCAV", & + sig1,sig2,b1cav,b2cav,b3cav,b4cav ! print *,"before sc_grad_cat", i,j, gradpepcat(1,j) ! iF (nstate(itypi,itypj).eq.1) THEN CALL sc_grad_cat @@ -23054,6 +24063,7 @@ chip1=chip(itypi) ! chis2 = chis(itypj,itypi) chis12 = chis1 * chis2 sig1 = sigmap1cat(itypi,itypj) + sig2=0.0 ! sig2 = sigmap2(itypi,itypj) ! alpha factors from Fcav/Gcav b1cav = alphasurcat(1,itypi,itypj) @@ -23304,7 +24314,7 @@ chip1=chip(itypi) ! use comm_momo integer i,j,k,subchap,itmp,inum real(kind=8) :: xi,yi,zi,xj,yj,zj,ract,rcat0,epscalc,r06,r012,& - r7,r4,ecationcation + r7,r4 real(kind=8) xj_temp,yj_temp,zj_temp,xj_safe,yj_safe,zj_safe, & dist_init,dist_temp,ecation_prot,rcal,rocal, & Evan1,Evan2,EC,cm1mag,DASGL,delta,r0p,Epepcat, & @@ -26373,9 +27383,11 @@ chip1=chip(itypi) dGCLdOM1 = 0.0d0 dGCLdOM2 = 0.0d0 dGCLdOM12 = 0.0d0 + ee0 = dexp(-( Rhead_sq ) / (4.0d0 * a12sq)) Fgb = sqrt( ( Rhead_sq ) + a12sq * ee0) debkap=debaykapcat(itypi,itypj) + if (energy_dec) write(iout,*) "egb",Qij,debkap,Fgb,a12sq,ee0 Egb = -(332.0d0 * Qij *& (1.0/eps_in-dexp(-debkap*Fgb)/eps_out)) / Fgb ! print *,"EGB WTF",Qij,eps_inout_fac,Fgb,itypi,itypj,eps_in,eps_out @@ -28130,6 +29142,7 @@ chip1=chip(itypi) xj,yj,zj,xi,yi,zi,sss,sss_grad real(kind=8), dimension(3):: dist integer :: i,j,k,inum,ityp,jtyp + eliplj=0.0d0 do inum=iliplj_start,iliplj_end i=mlipljlisti(inum) j=mlipljlistj(inum) @@ -28173,7 +29186,7 @@ chip1=chip(itypi) gradliplj(k,i)=gradliplj(k,i)+fac*dist(k)/dist_sub*sss-sss_grad*LJ*dist(k)/dist_sub gradliplj(k,j)=gradliplj(k,j)-fac*dist(k)/dist_sub*sss+sss_grad*LJ*dist(k)/dist_sub enddo - if (energy_dec) write(iout,*) "LJ LIP",i,j,ityp,jtyp,LJ,dist_sub + if (energy_dec) write(iout,'(a7,4i5,2f8.3)') "LJ LIP",i,j,ityp,jtyp,LJ,dist_sub enddo return end subroutine lipid_lj @@ -30075,6 +31088,628 @@ chip1=chip(itypi) enddo return end subroutine + subroutine fodstep(nsteps) + use geometry_data, only: c, nres, theta, alph + use geometry, only:alpha,beta,dist + integer, intent(in) :: nsteps + integer idxtomod, j, i + double precision RD0, RD1, fi +! double precision alpha +! double precision beta +! double precision dist +! double precision compute_RD + double precision TT + real :: r21(5) +!c ! Założenia: dla łańcucha zapisanego w tablicy c zawierającego +!c ! nres elementów CA i CB da się wyznaczyć kąty płaskie +!c ! theta (procedura Alpha) i kąty torsyjne (procedura beta), +!c ! zapisywane w tablicach theta i alph. +!c ! Na podstawie danych z tych tablic da się odtworzyć +!c ! strukturę 3D łańcucha procedurą chainbuild. +!c ! +! print *,"fodstep: nres=",nres + RD0 = compute_RD() +! print *, "RD0before step: ",RD0 + do j=1,nsteps +!c ! Wyznaczenie kątów theta na podstawie struktury +!c ! zapisanej w tablicy c + do i=3,nres + TT=alpha(i-2,i-1,i) + theta(i)=TT +!c print *,"TT=",TT + end do +!c ! Wyznaczenie kątów phi na podstawie struktury +!c ! zapisanej w tablicy c + do i=4,nres + phi(i)=beta(i-3,i-2,i-1,i) + end do +!c ! Wyznaczenie odległości między atomami +!c ! vbld(i)=dist(i-1,i) + do i=2,nres + vbld(i)=dist(i-1,i) + end do +!c ! losujemy kilka liczb + call random_number(r21) +!c ! r21(1): indeks pozycji do zmiany +!c ! r21(2): kąt (r21(2)/20.0-1/40.0) +!c ! r21(3): wybór tablicy + RD0 = compute_RD() +!c print *, "RD before step: ",RD0 + fi = (r21(2)/20.0-1.0/40.0) ! o tyle radianów zmienimy losowy kąt + if (r21(3) .le. 0.5) then + idxtomod = 3+r21(1)*(nres - 2) + theta(idxtomod) = theta(idxtomod)+fi +! print *,"Zmiana kąta theta(",& +! idxtomod,") o fi = ",fi + else + idxtomod = 4+r21(1)*(nres - 3) + phi(idxtomod) = phi(idxtomod)+fi +! print *,"Zmiana kąta phi(",& +! idxtomod,") o fi = ",fi + end if +!c ! odtwarzamy łańcuch + call chainbuild +!c ! czy coś się polepszyło? + RD1 = compute_RD() + if (RD1 .gt. RD0) then ! nie, wycofujemy zmianę +! print *, "RD after step: ",RD1," rejected" + if (r21(3) .le. 0.5) then + theta(idxtomod) = theta(idxtomod)-fi + else + phi(idxtomod) = phi(idxtomod)-fi + end if + call chainbuild ! odtworzenie pierwotnej wersji (bez zmienionego kąta) + else +! print *, "RD after step: ",RD1," accepted" + continue + end if + end do + end subroutine +!c----------------------------------------------------------------------------------------- + subroutine orientation_matrix(res) ! obliczenie macierzy oraz przygotowanie ea z tymi przeksztalceniami + use geometry_data, only: c, nres + use energy_data, only: itype + double precision, intent(out) :: res(4,4) + double precision resM(4,4) + double precision M(4,4) + double precision M2(4,4) + integer i, j, maxi, maxj +! double precision sq + double precision maxd, dd + double precision v1(3) + double precision v2(3) + double precision vecnea(3) + double precision mean_ea(3) + double precision fi +!c ! liczymy atomy efektywne i zapisujemy w tablicy ea + do i=1,nres +!c if (itype(i,1) .ne. 10) then + if (itype(i,1) .ne. 10) then + ea(1,i) = c(1,i+nres) + ea(2,i) = c(2,i+nres) + ea(3,i) = c(3,i+nres) + else + ea(1,i) = c(1,i) + ea(2,i) = c(2,i) + ea(3,i) = c(3,i) + end if + end do + call IdentityM(resM) + if (nres .le. 2) then + print *, "nres too small (should be at least 2), stopping" + stop + end if + do i=1,3 + v1(i)=ea(i,1) + v2(i)=ea(i,2) + end do +!c ! szukamy najwiekszej odleglosci miedzy atomami efektywnymi ea + call Dist3d(maxd,v1,v2) +!c ! odleglosc miedzy pierwsza para atomow efektywnych + maxi = 1 + maxj = 2 + do i=1,nres-1 + do j=i+1,nres + v1(1)=ea(1,i) + v1(2)=ea(2,i) + v1(3)=ea(3,i) + v2(1)=ea(1,j) + v2(2)=ea(2,j) + v2(3)=ea(3,j) + call Dist3d(dd,v1,v2) + if (dd .gt. maxd) then + maxd = dd + maxi = i + maxj = j + end if + end do + end do + vecnea(1)=ea(1,maxi)-ea(1,maxj) + vecnea(2)=ea(2,maxi)-ea(2,maxj) + vecnea(3)=ea(3,maxi)-ea(3,maxj) + if (vecnea(1) .lt. 0) then + vecnea(1) = -vecnea(1) + vecnea(2) = -vecnea(2) + vecnea(3) = -vecnea(3) + end if +!c ! obliczenie kata obrotu wokol osi Z + fi = -atan2(vecnea(2),vecnea(1)) + call RotateZ(M,fi) +!c ! obliczenie kata obrotu wokol osi Y + fi = atan2(vecnea(3), sqrt(sq(vecnea(1))+sq(vecnea(2)))) + call RotateY(M2,fi) + M = matmul(M2,M) +!c ! Przeksztalcamy wszystkie atomy efektywne +!c ! uzyskujac najwieksza odleglosc ulożona wzdluz OX +!c ! ea = transform_eatoms(ea,M) + do i=1,nres + v1(1)=ea(1,i) + v1(2)=ea(2,i) + v1(3)=ea(3,i) + call tranform_point(v2,v1,M) + ea(1,i)=v2(1) + ea(2,i)=v2(2) + ea(3,i)=v2(3) + end do + resM = M +!c ! Teraz szukamy najdluzszego rzutu na plaszczyzne YZ +!c ! (czyli w liczeniu odleglosci bierzemy pod uwage tylko wsp. y, z) + maxd = sqrt( sq(ea(2,1)-ea(2,2)) + sq(ea(3,1)-ea(3,2))) ! aktualnie max odl + maxi = 1 ! indeksy atomow + maxj = 2 ! miedzy ktorymi jest max odl (chwilowe) + do i=1,nres-1 + do j=i+1,nres + dd = sqrt( (ea(2,i)-ea(2,j))**2 + (ea(3,i)-ea(3,j))**2) + if (dd .gt. maxd) then + maxd = dd + maxi = i + maxj = j + end if + end do + end do +!c ! Teraz obrocimy wszystko wokol OX tak, zeby znaleziony rzut +!c ! byl rownolegly do OY + vecnea(1) = ea(1,maxi)-ea(1,maxj) + vecnea(2) = ea(2,maxi)-ea(2,maxj) + vecnea(3) = ea(3,maxi)-ea(3,maxj) +!c ! jeśli współrzędna vecnea.y < 0, to robimy odwrotnie + if (vecnea(2) .lt. 0) then + vecnea(1) = -vecnea(1) + vecnea(2) = -vecnea(2) + vecnea(3) = -vecnea(3) + end if +!c ! obliczenie kąta obrotu wokół osi X + fi = -atan2(vecnea(3),vecnea(2)) + call RotateX(M,fi) +!c ! Przeksztalcamy wszystkie atomy efektywne + do i=1,nres + v1(1)=ea(1,i) + v1(2)=ea(2,i) + v1(3)=ea(3,i) + call tranform_point(v2,v1,M) + ea(1,i)=v2(1) + ea(2,i)=v2(2) + ea(3,i)=v2(3) + end do + resM = matmul(M,resM) ! zbieramy wynik (sprawdzic kolejnosc M,resM) +!c ! centrujemy + mean_ea(1) = 0 + mean_ea(2) = 0 + mean_ea(3) = 0 + do i=1,nres + mean_ea(1) = mean_ea(1) + ea(1,i) + mean_ea(2) = mean_ea(2) + ea(2,i) + mean_ea(3) = mean_ea(3) + ea(3,i) + end do + v1(1) = -mean_ea(1)/nres + v1(2) = -mean_ea(2)/nres + v1(3) = -mean_ea(3)/nres + call TranslateV(M,v1) + resM = matmul(M,resM) +!c ! przesuwamy + do i=1,nres + ea(1,i) = ea(1,i) + v1(1) + ea(2,i) = ea(2,i) + v1(2) + ea(3,i) = ea(3,i) + v1(3) + end do + res = resM +!c ! wynikowa macierz przeksztalcenia lancucha +!c ! (ale lancuch w ea juz mamy przeksztalcony) + return + end subroutine + double precision function compute_rd + use geometry_data, only: nres + use energy_data, only: itype + implicit none + double precision or_mat(4,4) +! double precision hydrophobicity + integer neatoms + double precision cutoff + double precision ho(70000) + double precision ht(70000) + double precision hosum, htsum + double precision marg, sigmax, sigmay, sigmaz + integer i, j + double precision v1(3) + double precision v2(3) + double precision rijdivc, coll, tmpkwadrat, tmppotega, dist + double precision OdivT, OdivR, ot_one, or_one, RD_classic + call orientation_matrix(or_mat) +!c ! tam juz liczy sie tablica ea + neatoms = nres + cutoff = 8.99d0 +!c ! granica oddzialywania w A (powyzej ignorujemy oddzialywanie) +!c ! Najpierw liczymy "obserwowana hydrofobowosc" + hosum = 0.0d0 ! na sume pol ho, do celow pozniejszej normalizacji + do j=1,neatoms + ho(j)=0.0d0 + do i=1,neatoms + if (j .eq. i) then ! nie uwzgledniamy oddzialywania atomu z samym soba + cycle + end if + v1(1)=ea(1,i) + v1(2)=ea(2,i) + v1(3)=ea(3,i) + v2(1)=ea(1,j) + v2(2)=ea(2,j) + v2(3)=ea(3,j) + call Dist3d(dist,v1,v2) ! odleglosc miedzy atomami + if (dist .gt. cutoff) then ! za daleko, nie uwzgledniamy + cycle + end if + rijdivc = dist / cutoff + coll = 0.0d0 + tmppotega = rijdivc*rijdivc + tmpkwadrat = tmppotega + coll = coll + 7*tmpkwadrat + tmppotega = tmppotega * tmpkwadrat ! do potęgi 4 + coll = coll - 9*tmppotega + tmppotega = tmppotega * tmpkwadrat ! do potęgi 6 + coll = coll + 5*tmppotega + tmppotega = tmppotega * tmpkwadrat ! do potęgi 8 + coll = coll - tmppotega +!c ! Wersja: Bryliński 2007 +!c ! EAtoms[j].collectedhp += EAtoms[i].hyphob*(1 - 0.5 * coll); +!c ! ea$ho[j] = ea$ho[j] + hydrophobicity(ea$resid[i])*(1-0.5*coll) +!c ! Wersja: Banach Konieczny Roterman 2014 +!c ! EAtoms[j].collectedhp += (EAtoms[i].hyphob+EAtoms[j].hyphob)*(1 - 0.5 * coll); +!c ponizej bylo itype(i,1) w miejscu itype(i) oraz itype(j,1) w miejscu itype(j) + ho(j) = ho(j) + (hydrophobicity(itype(i,1))+& + hydrophobicity(itype(j,1)))*(1.0d0-0.5_8*coll) + end do + hosum = hosum + ho(j) + end do +!c ! Normalizujemy + do i=1,neatoms + ho(i) = ho(i) / hosum + end do +!c ! Koniec liczenia hydrofobowosci obserwowanej (profil ho) +!c ! Teraz liczymy "teoretyczna hydrofobowosc", wedlug kropli i rozkladu Gaussa + htsum = 0.0d0 +!c ! tu zbieramy sume ht, uzyjemy potem do normalizacji +!c ! Ustalimy teraz parametry rozkladu Gaussa, czyli sigmy (srodek jest w (0,0,0)). +!c ! To bedzie (max odl od srodka + margines) / 3, oddzielnie dla kazdej wspolrzednej. + marg = 9.0d0 + htsum = 0.0d0 +!c ! jeszcze raz zerujemy +!c ! szukamy ekstremalnej wartosci wspolrzednej x (max wart bezwzgl) + sigmax = ea(1,1) + do i=2,neatoms + if (abs(ea(1,i))>sigmax) then + sigmax = abs(ea(1,i)) + end if + end do + sigmax = (marg + sigmax) / 3.0d0 +!c ! szukamy ekstremalnej wartosci wspolrzednej y (max wart bezwzgl) + sigmay = ea(2,1) + do i=2,neatoms + if (abs(ea(2,i))>sigmay) then + sigmay = abs(ea(2,i)) + end if + end do + sigmay = (marg + sigmay) / 3.0d0 +!c ! szukamy ekstremalnej wartosci wspolrzednej z (max wart bezwzgl) + sigmaz = ea(3,1) + do i=2,neatoms + if (abs(ea(3,i))>sigmaz) then + sigmaz = abs(ea(3,i)) + end if + end do + sigmaz = (marg + sigmaz) / 3.0d0 +!c !sigmax = (marg + max(abs(max(ea$acoor[,1])), abs(min(ea$acoor[,1]))))/3.0 +!c !sigmay = (marg + max(abs(max(ea$acoor[,2])), abs(min(ea$acoor[,2]))))/3.0 +!c !sigmaz = (marg + max(abs(max(ea$acoor[,3])), abs(min(ea$acoor[,3]))))/3.0 +!c ! print *,"sigmax =",sigmax," sigmay =",sigmay," sigmaz = ",sigmaz + do j=1,neatoms + ht(j)= exp(-(ea(1,j))**2/(2*sigmax**2))& + * exp(-(ea(2,j))**2/(2*sigmay**2)) & + * exp(-(ea(3,j))**2/(2*sigmaz**2)) + htsum = htsum + ht(j) + end do +!c ! Normalizujemy + do i=1, neatoms + ht(i) = ht(i) / htsum + end do +!c ! Teraz liczymy RD + OdivT = 0.0d0 + OdivR = 0.0d0 + do j=1,neatoms + if (ho(j) .ne. 0) then + ot_one = ho(j) * log(ho(j)/ht(j)) / log(2.0d0) + OdivT = OdivT + ot_one + or_one = ho(j) * log(ho(j)/ (1.0d0/neatoms)) / log(2.0_8) + OdivR = OdivR + or_one + endif + end do + RD_classic = OdivT / (OdivT+OdivR) + compute_rd = RD_classic + return + end function + function hydrophobicity(id) ! do przepisania (bylo: identyfikowanie aa po nazwach) + integer id + double precision hydrophobicity + hydrophobicity = 0.0d0 + if (id .eq. 1) then + hydrophobicity = 1.000d0 ! CYS + return + endif + if (id .eq. 2) then + hydrophobicity = 0.828d0 ! MET + return + endif + if (id .eq. 3) then + hydrophobicity = 0.906d0 ! PHE + return + endif + if (id .eq. 4) then + hydrophobicity = 0.883d0 ! ILE + return + endif + if (id .eq. 5) then + hydrophobicity = 0.783d0 ! LEU + return + endif + if (id .eq. 6) then + hydrophobicity = 0.811d0 ! VAL + return + endif + if (id .eq. 7) then + hydrophobicity = 0.856d0 ! TRP + return + endif + if (id .eq. 8) then + hydrophobicity = 0.700d0 ! TYR + return + endif + if (id .eq. 9) then + hydrophobicity = 0.572d0 ! ALA + return + endif + if (id .eq. 10) then + hydrophobicity = 0.550d0 ! GLY + return + endif + if (id .eq. 11) then + hydrophobicity = 0.478d0 ! THR + return + endif + if (id .eq. 12) then + hydrophobicity = 0.422d0 ! SER + return + endif + if (id .eq. 13) then + hydrophobicity = 0.250d0 ! GLN + return + endif + if (id .eq. 14) then + hydrophobicity = 0.278d0 ! ASN + return + endif + if (id .eq. 15) then + hydrophobicity = 0.083d0 ! GLU + return + endif + if (id .eq. 16) then + hydrophobicity = 0.167d0 ! ASP + return + endif + if (id .eq. 17) then + hydrophobicity = 0.628d0 ! HIS + return + endif + if (id .eq. 18) then + hydrophobicity = 0.272d0 ! ARG + return + endif + if (id .eq. 19) then + hydrophobicity = 0.000d0 ! LYS + return + endif + if (id .eq. 20) then + hydrophobicity = 0.300d0 ! PRO + return + endif + return + end function hydrophobicity + subroutine mycrossprod(res,b,c) + implicit none + double precision, intent(out) :: res(3) + double precision, intent(in) :: b(3) + double precision, intent(in) :: c(3) +!c ! Tylko dla wektorów trójwymiarowych, ale nie sprawdzamy tego tutaj + res(1) = b(2)*c(3)-b(3)*c(2) + res(2) = b(3)*c(1)-b(1)*c(3) + res(3) = b(1)*c(2)-b(2)*c(1) + return + end subroutine + subroutine mydotprod(res,b,c) + implicit none + double precision, intent(out) :: res + double precision, intent(in) :: b(3) + double precision, intent(in) :: c(3) +!c ! Tylko dla wektorów trójwymiarowych, ale nie sprawdzamy tego tutaj + res = b(1)*c(1)+b(2)*c(2)+b(3)*c(3) + return + end subroutine +!c ! cosinus k¹ta miêdzy wektorami trójwymiarowymi + subroutine cosfi(res, x, y) + implicit none + double precision, intent(out) :: res + double precision, intent(in) :: x(3) + double precision, intent(in) :: y(3) + double precision LxLy + LxLy=sqrt(x(1)*x(1)+x(2)*x(2)+x(3)*x(3)) *& + sqrt(y(1)*y(1)+y(2)*y(2)+y(3)*y(3)) + if (LxLy==0.0) then + res = 0.0d0 + else + call mydotprod(res,x,y) + res = res / LxLy + end if + return + end subroutine + + + subroutine Dist3d(res,v1,v2) + implicit none + double precision, intent(out) :: res + double precision, intent(in) :: v1(3) + double precision, intent(in) :: v2(3) +! double precision sq + res = sqrt( sq(v1(1)-v2(1)) + sq(v1(2)-v2(2)) + sq(v1(3)-v2(3))) + return + end subroutine +!c ! Przeksztalca wsp. 3d uzywajac macierzy przeksztalcenia M (4x4) + subroutine tranform_point(res,v3d,M) + implicit none + double precision, intent(out) :: res(3) + double precision, intent(in) :: v3d(3) + double precision, intent(in) :: M(4,4) + + res(1) = M(1,1)*v3d(1) + M(1,2)*v3d(2) + M(1,3)*v3d(3) + M(1,4) + res(2) = M(2,1)*v3d(1) + M(2,2)*v3d(2) + M(2,3)*v3d(3) + M(2,4) + res(3) = M(3,1)*v3d(1) + M(3,2)*v3d(2) + M(3,3)*v3d(3) + M(3,4) + return + end subroutine +!c ! TranslateV: macierz translacji o wektor V + subroutine TranslateV(res,V) + implicit none + double precision, intent(out) :: res(4,4) + double precision, intent(in) :: v(3) + res(1,1) = 1.0d0 + res(1,2) = 0 + res(1,3) = 0 + res(1,4) = v(1) + res(2,1) = 0 + res(2,2) = 1.0d0 + res(2,3) = 0 + res(2,4) = v(2) + res(3,1) = 0 + res(3,2) = 0 + res(3,3) = 1.0d0 + res(3,4) = v(3) + res(4,1) = 0 + res(4,2) = 0 + res(4,3) = 0 + res(4,4) = 1.0d0 + return + end subroutine +!c ! RotateX: macierz obrotu wokol osi OX o kat fi + subroutine RotateX(res,fi) + implicit none + double precision, intent(out) :: res(4,4) + double precision, intent(in) :: fi + res(1,1) = 1.0d0 + res(1,2) = 0 + res(1,3) = 0 + res(1,4) = 0 + res(2,1) = 0 + res(2,2) = cos(fi) + res(2,3) = -sin(fi) + res(2,4) = 0 + res(3,1) = 0 + res(3,2) = sin(fi) + res(3,3) = cos(fi) + res(3,4) = 0 + res(4,1) = 0 + res(4,2) = 0 + res(4,3) = 0 + res(4,4) = 1.0d0 + return + end subroutine +!c ! RotateY: macierz obrotu wokol osi OY o kat fi + subroutine RotateY(res,fi) + implicit none + double precision, intent(out) :: res(4,4) + double precision, intent(in) :: fi + res(1,1) = cos(fi) + res(1,2) = 0 + res(1,3) = sin(fi) + res(1,4) = 0 + res(2,1) = 0 + res(2,2) = 1.0d0 + res(2,3) = 0 + res(2,4) = 0 + res(3,1) = -sin(fi) + res(3,2) = 0 + res(3,3) = cos(fi) + res(3,4) = 0 + res(4,1) = 0 + res(4,2) = 0 + res(4,3) = 0 + res(4,4) = 1.0d0 + return + end subroutine +!c ! RotateZ: macierz obrotu wokol osi OZ o kat fi + subroutine RotateZ(res,fi) + implicit none + double precision, intent(out) :: res(4,4) + double precision, intent(in) :: fi + res(1,1) = cos(fi) + res(1,2) = -sin(fi) + res(1,3) = 0 + res(1,4) = 0 + res(2,1) = sin(fi) + res(2,2) = cos(fi) + res(2,3) = 0 + res(2,4) = 0 + res(3,1) = 0 + res(3,2) = 0 + res(3,3) = 1.0d0 + res(3,4) = 0 + res(4,1) = 0 + res(4,2) = 0 + res(4,3) = 0 + res(4,4) = 1.0d0 + return + end subroutine +!c ! IdentityM + subroutine IdentityM(res) + implicit none + double precision, intent(out) :: res(4,4) + res(1,1) = 1.0d0 + res(1,2) = 0 + res(1,3) = 0 + res(1,4) = 0 + res(2,1) = 0 + res(2,2) = 1.0d0 + res(2,3) = 0 + res(2,4) = 0 + res(3,1) = 0 + res(3,2) = 0 + res(3,3) = 1.0d0 + res(3,4) = 0 + res(4,1) = 0 + res(4,2) = 0 + res(4,3) = 0 + res(4,4) = 1.0d0 + return + end subroutine + double precision function sq(x) + double precision x + sq = x*x + return + end function sq !-------------------------------------------------------------------------- end module energy diff --git a/source/unres/geometry.F90 b/source/unres/geometry.F90 index 787f2a0..bc66711 100644 --- a/source/unres/geometry.F90 +++ b/source/unres/geometry.F90 @@ -83,7 +83,7 @@ nres2=2*nres ! Set lprn=.true. for debugging lprn = .false. - print *,"I ENTER CHAINBUILD" +! print *,"I ENTER CHAINBUILD" ! ! Define the origin and orientation of the coordinate system and locate the ! first three CA's and SC(2). @@ -3775,7 +3775,8 @@ ! common /refstruct/ if(.not.allocated(cref)) allocate(cref(3,nres2+2,maxperm)) !(3,maxres2+2,maxperm) !elwrite(iout,*) "jestem w alloc geo 2" - allocate(crefjlee(3,nres2+2)) !(3,maxres2+2) +! allocate(crefjlee(3,nres2+2)) !(3,maxres2+2) + if (.not.allocated(crefjlee)) allocate (crefjlee(3,nres2+2)) if(.not.allocated(chain_rep)) allocate(chain_rep(3,nres2+2,maxsym)) !(3,maxres2+2,maxsym) if(.not.allocated(tabperm)) allocate(tabperm(maxperm,maxsym)) !(maxperm,maxsym) ! common /from_zscore/ in module.compare @@ -3829,8 +3830,8 @@ integer :: chain_end,ireturnval,idum,mnumi1 real*8 :: difference,xi,boxsize,x,xtemp,box2shift real(kind=8),dimension(3) :: boxx - real(kind=8),dimension(3,100) :: xorg - integer,dimension(100) :: posdummy + real(kind=8),dimension(3,10000) :: xorg + integer,dimension(10000) :: posdummy !C change suggested by Ana - end j=1 diff --git a/source/unres/io.F90 b/source/unres/io.F90 index e0bac89..9253638 100644 --- a/source/unres/io.F90 +++ b/source/unres/io.F90 @@ -531,14 +531,14 @@ if (refstr) then call rms_nac_nnc(rms,frac,frac_nn,co,.false.) write (line1,'(i10,f15.2,3f12.3,f7.2,2f6.3,4f12.3,i5,$)')& - itime,totT,EK,potE,totE,& + itime,totT,EK,potE+potEcomp(51),totE+potEcomp(51),& rms,frac,frac_nn,kinetic_T,t_bath,gyrate(),& potEcomp(23),me format1="a133" else !C print *,'A CHUJ',potEcomp(23) write (line1,'(i10,f15.2,7f12.3,i5,$)') & - itime,totT,EK,potE,totE,& + itime,totT,EK,potE+potEcomp(51),totE+potEcomp(51),& kinetic_T,t_bath,gyrate(),& potEcomp(23),me format1="a114" @@ -553,7 +553,7 @@ call rms_nac_nnc(rms,frac,frac_nn,co,.false.) write (line1,'(i10,f15.2,3f12.3,f7.2,2f6.3,f12.3,f10.1,2f8.2, & f9.3,i5,$)') & - itime,totT,EK,potE,totE,& + itime,totT,EK,potE+potEcomp(51),totE+potEcomp(51),& rms,frac,frac_nn,kinetic_T,t_bath,gyrate(),& distance,potEcomp(23),me format1="a133" @@ -561,21 +561,39 @@ else !C print *,'A CHUJ',potEcomp(23) write (line1,'(i10,f15.2,8f12.3,i5,$)')& - itime,totT,EK,potE,totE, & + itime,totT,EK,potE+potEcomp(51),totE+potEcomp(51), & kinetic_T,t_bath,gyrate(),& distance,potEcomp(23),me format1="a114" endif + else if (velnanoconst.ne.0 ) then + if (refstr) then + call rms_nac_nnc(rms,frac,frac_nn,co,.false.) + write (line1,'(i10,f15.2,3f12.3,f7.2,2f6.3,f12.3,f10.1,2f8.2, & + f9.3,i5,$)') & + itime,totT,EK,potE+potEcomp(51),totE+potEcomp(51),& + rms,frac,frac_nn,kinetic_T,t_bath,gyrate(),& + vecsim,vectrue,me + format1="a133" +!C print *,"CHUJOWO" + else +!C print *,'A CHUJ',potEcomp(23) + write (line1,'(i10,f15.2,8f12.3,i5,$)')& + itime,totT,EK,potE+potEcomp(51),totE+potEcomp(51), & + kinetic_T,t_bath,gyrate(),& + vecsim,vectrue,me + format1="a114" + endif else if (refstr) then call rms_nac_nnc(rms,frac,frac_nn,co,.false.) write (line1,'(i10,f15.2,3f12.3,f7.2,4f6.3,3f12.3,i5,$)') & - itime,totT,EK,potE,totE,& + itime,totT,EK,potE+potEcomp(51),totE+potEcomp(51),& rms,frac,frac_nn,co,amax,kinetic_T,t_bath,gyrate(),me format1="a133" else write (line1,'(i10,f15.2,7f12.3,i5,$)') & - itime,totT,EK,potE,totE,& + itime,totT,EK,potE+potEcomp(51),totE+potEcomp(51),& amax,kinetic_T,t_bath,gyrate(),me format1="a114" endif @@ -741,7 +759,7 @@ integer :: iti,nsi,maxsi,itrial,itmp real(kind=8) :: wlong,scalscp,co,ssscale,phihel,phibet,sigmahel,& - sigmabet,sumv + sigmabet,sumv,nres_temp allocate(weights(n_ene)) !----------------------------- allocate(c(3,2*maxres+2)) !(3,maxres2+2) maxres2=2*maxres @@ -979,6 +997,19 @@ 34 continue ! print *,'Begin reading pdb data' call readpdb + if (.not.allocated(crefjlee)) allocate (crefjlee(3,2*nres+2)) + do i=1,2*nres + do j=1,3 + crefjlee(j,i)=c(j,i) + enddo + enddo +#ifdef DEBUG + do i=1,nres + write (iout,'(i5,3f8.3,5x,3f8.3)') i,(crefjlee(j,i),j=1,3), + & (crefjlee(j,i+nres),j=1,3) + enddo +#endif + ! call int_from_cart1(.true.) ! print *,'Finished reading pdb data' @@ -1128,8 +1159,14 @@ vbld(i+nres)=dsc(iabs(itype(i,molnum(i)))) vbld_inv(i+nres)=dsc_inv(iabs(itype(i,molnum(i)))) else + write(iout,*) "typy2",itype(i,mnum),ntyp1_molec(mnum),i + if (itype(i,mnum).eq.ntyp1_molec(mnum)) then + vbld_inv(i+nres)=1.0 + vbld(i+nres)=0.0 + else vbld(i+nres)=vbldsc0_nucl(1,iabs(itype(i,molnum(i)))) vbld_inv(i+nres)=1.0/vbldsc0_nucl(1,iabs(itype(i,molnum(i)))) + endif endif ! write (iout,*) "i",i," itype",itype(i,1), ! & " dsc",dsc(itype(i,1))," vbld",vbld(i),vbld(i+nres) @@ -1425,10 +1462,102 @@ restyp(itype(icont_ref(2,i),1),1),' ',icont_ref(2,i) enddo endif + if (constr_homology.gt.0) then +! write (iout,*) "Calling read_constr_homology" +! call flush(iout) + call read_constr_homology + if (indpdb.gt.0 .or. pdbref) then + do i=1,2*nres + do j=1,3 + c(j,i)=crefjlee(j,i) + cref(j,i,1)=crefjlee(j,i) + enddo + enddo + endif +#define DEBUG +#ifdef DEBUG + write (iout,*) "sc_loc_geom: Array C" + do i=1,nres + write (iout,'(i5,3f8.3,5x,3f8.3)') i,(c(j,i),j=1,3),& + (c(j,i+nres),j=1,3) + enddo + write (iout,*) "Array Cref" + do i=1,nres + write (iout,'(i5,3f8.3,5x,3f8.3)') i,(cref(j,i,1),j=1,3),& + (cref(j,i+nres,1),j=1,3) + enddo +#endif + call int_from_cart1(.false.) + call sc_loc_geom(.false.) + do i=1,nres + thetaref(i)=theta(i) + phiref(i)=phi(i) + enddo + do i=1,nres-1 + do j=1,3 + dc(j,i)=c(j,i+1)-c(j,i) + dc_norm(j,i)=dc(j,i)*vbld_inv(i+1) + enddo + enddo + do i=2,nres-1 + do j=1,3 + dc(j,i+nres)=c(j,i+nres)-c(j,i) + dc_norm(j,i+nres)=dc(j,i+nres)*vbld_inv(i+nres) + enddo + enddo + else + homol_nset=0 + if (start_from_model) then + nmodel_start=0 + do + read(inp,'(a)',end=332,err=332) pdbfile + if (me.eq.king .or. .not. out1file)& + write (iout,'(a,5x,a)') 'Opening PDB file',& + pdbfile(:ilen(pdbfile)) + open(ipdbin,file=pdbfile,status='old',err=336) + goto 335 + 336 write (iout,'(a,5x,a)') 'Error opening PDB file',& + pdbfile(:ilen(pdbfile)) + call flush(iout) + stop + 335 continue + unres_pdb=.false. + nres_temp=nres +! call readpdb + call readpdb_template(nmodel_start+1) + close(ipdbin) + if (nres.ge.nres_temp) then + nmodel_start=nmodel_start+1 + pdbfiles_chomo(nmodel_start)=pdbfile + do i=1,2*nres + do j=1,3 + chomo(j,i,nmodel_start)=c(j,i) + enddo + enddo + else + if (me.eq.king .or. .not. out1file) & + write (iout,'(a,2i7,1x,a)') & + "Different number of residues",nres_temp,nres, & + " model skipped." + endif + nres=nres_temp + enddo + 332 continue + if (nmodel_start.eq.0) then + if (me.eq.king .or. .not. out1file) & + write (iout,'(a)') & + "No valid starting model found START_FROM_MODELS is OFF" + start_from_model=.false. + endif + write (iout,*) "nmodel_start",nmodel_start + endif + endif + endif if (constr_dist.gt.0) call read_dist_constr write (iout,*) "After read_dist_constr nhpb",nhpb if ((AFMlog.gt.0).or.(selfguide.gt.0)) call read_afminp + if (velnanoconst.ne.0) call read_afmnano call hpb_partition if (indpdb.eq.0 .and. modecalc.ne.2 .and. modecalc.ne.4 & @@ -1630,5 +1759,875 @@ return end subroutine molread !----------------------------------------------------------------------------- + subroutine read_constr_homology + use control, only:init_int_table,homology_partition + use MD_data, only:iset +! implicit none +! include 'DIMENSIONS' +!#ifdef MPI +! include 'mpif.h' +!#endif +! include 'COMMON.SETUP' +! include 'COMMON.CONTROL' +! include 'COMMON.HOMOLOGY' +! include 'COMMON.CHAIN' +! include 'COMMON.IOUNITS' +! include 'COMMON.MD' +! include 'COMMON.QRESTR' +! include 'COMMON.GEO' +! include 'COMMON.INTERACT' +! include 'COMMON.NAMES' +! include 'COMMON.VAR' +! + +! double precision odl_temp,sigma_odl_temp,waga_theta,waga_d, +! & dist_cut +! common /przechowalnia/ odl_temp(maxres,maxres,max_template), +! & sigma_odl_temp(maxres,maxres,max_template) + character*2 kic2 + character*24 model_ki_dist, model_ki_angle + character*500 controlcard + integer :: ki,i,ii,j,k,l + integer, dimension (:), allocatable :: ii_in_use + integer :: i_tmp,idomain_tmp,& + irec,ik,iistart,nres_temp +! integer :: iset +! external :: ilen + logical :: liiflag,lfirst + integer :: i01,i10 +! +! FP - Nov. 2014 Temporary specifications for new vars +! + real(kind=8) :: rescore_tmp,x12,y12,z12,rescore2_tmp,& + rescore3_tmp, dist_cut + real(kind=8), dimension (:,:),allocatable :: rescore + real(kind=8), dimension (:,:),allocatable :: rescore2 + real(kind=8), dimension (:,:),allocatable :: rescore3 + real(kind=8) :: distal + character*24 tpl_k_rescore + character*256 pdbfile + +! ----------------------------------------------------------------- +! Reading multiple PDB ref structures and calculation of retraints +! not using pre-computed ones stored in files model_ki_{dist,angle} +! FP (Nov., 2014) +! ----------------------------------------------------------------- +! +! +! Alternative: reading from input + call card_concat(controlcard,.true.) + call reada(controlcard,"HOMOL_DIST",waga_dist,1.0d0) + call reada(controlcard,"HOMOL_ANGLE",waga_angle,1.0d0) + call reada(controlcard,"HOMOL_THETA",waga_theta,1.0d0) ! new + call reada(controlcard,"HOMOL_SCD",waga_d,1.0d0) ! new + call reada(controlcard,'DIST_CUT',dist_cut,5.0d0) ! for diff ways of calc sigma + call reada(controlcard,'DIST2_CUT',dist2_cut,9999.0d0) + call readi(controlcard,"HOMOL_NSET",homol_nset,1) + read2sigma=(index(controlcard,'READ2SIGMA').gt.0) + start_from_model=(index(controlcard,'START_FROM_MODELS').gt.0) + if(.not.read2sigma.and.start_from_model) then + if(me.eq.king .or. .not. out1file .and. fg_rank.eq.0)& + write(iout,*) 'START_FROM_MODELS works only with READ2SIGMA' + start_from_model=.false. + iranconf=(indpdb.le.0) + endif + if(start_from_model .and. (me.eq.king .or. .not. out1file))& + write(iout,*) 'START_FROM_MODELS is ON' +! if(start_from_model .and. rest) then +! if(me.eq.king .or. .not. out1file .and. fg_rank.eq.0) then +! write(iout,*) 'START_FROM_MODELS is OFF' +! write(iout,*) 'remove restart keyword from input' +! endif +! endif + if (start_from_model) nmodel_start=constr_homology + if(.not.allocated(waga_homology)) allocate (waga_homology(homol_nset)) + if (homol_nset.gt.1)then + call card_concat(controlcard,.true.) + read(controlcard,*) (waga_homology(i),i=1,homol_nset) + if(me.eq.king .or. .not. out1file .and. fg_rank.eq.0) then +! write(iout,*) "iset homology_weight " + do i=1,homol_nset + write(iout,*) i,waga_homology(i) + enddo + endif + iset=mod(kolor,homol_nset)+1 + else + iset=1 + waga_homology(1)=1.0 + endif + +!d write (iout,*) "nnt",nnt," nct",nct +!d call flush(iout) + + if (read_homol_frag) then + call read_klapaucjusz + else + + lim_odl=0 + lim_dih=0 +! +! write(iout,*) 'nnt=',nnt,'nct=',nct +! +! do i = nnt,nct +! do k=1,constr_homology +! idomain(k,i)=0 +! enddo +! enddo + idomain=0 + +! ii=0 +! do i = nnt,nct-2 +! do j=i+2,nct +! ii=ii+1 +! ii_in_use(ii)=0 +! enddo +! enddo + ii_in_use=0 + if(.not.allocated(pdbfiles_chomo)) allocate(pdbfiles_chomo(constr_homology)) + if(.not.allocated(chomo)) allocate(chomo(3,2*nres+2,constr_homology)) + + do k=1,constr_homology + + read(inp,'(a)') pdbfile + pdbfiles_chomo(k)=pdbfile + if(me.eq.king .or. .not. out1file) & + write (iout,'(a,5x,a)') 'HOMOL: Opening PDB file',& + pdbfile(:ilen(pdbfile)) + open(ipdbin,file=pdbfile,status='old',err=33) + goto 34 + 33 write (iout,'(a,5x,a)') 'Error opening PDB file',& + pdbfile(:ilen(pdbfile)) + stop + 34 continue +! print *,'Begin reading pdb data' +! +! Files containing res sim or local scores (former containing sigmas) +! + + write(kic2,'(bz,i2.2)') k + + tpl_k_rescore="template"//kic2//".sco" + write(iout,*) "tpl_k_rescore=",tpl_k_rescore + unres_pdb=.false. + nres_temp=nres + write(iout,*) "read2sigma",read2sigma + + if (read2sigma) then + call readpdb_template(k) + else + call readpdb + endif + write(iout,*) "after readpdb" + if(.not.allocated(nres_chomo)) allocate(nres_chomo(constr_homology)) + nres_chomo(k)=nres + nres=nres_temp + if(.not.allocated(rescore)) allocate(rescore(constr_homology,nres)) + if(.not.allocated(rescore2)) allocate(rescore2(constr_homology,nres)) + if(.not.allocated(rescore3)) allocate(rescore3(constr_homology,nres)) + if(.not.allocated(ii_in_use)) allocate(ii_in_use(nres*(nres-1))) + if(.not.allocated(idomain)) allocate(idomain(constr_homology,nres)) + if(.not.allocated(l_homo)) allocate(l_homo(constr_homology,1000*nres)) + if(.not.allocated(ires_homo)) allocate(ires_homo(nres*200)) + if(.not.allocated(jres_homo)) allocate(jres_homo(nres*200)) + if(.not.allocated(odl)) allocate(odl(constr_homology,nres*200)) + if(.not.allocated(sigma_odl)) allocate(sigma_odl(constr_homology,nres*200)) + if(.not.allocated(dih)) allocate(dih(constr_homology,nres)) + if(.not.allocated(sigma_dih)) allocate(sigma_dih(constr_homology,nres)) + if(.not.allocated(thetatpl)) allocate(thetatpl(constr_homology,nres)) + if(.not.allocated(sigma_theta)) allocate(sigma_theta(constr_homology,nres)) +! if(.not.allocated(thetatpl)) allocate(thetatpl(constr_homology,nres)) + if(.not.allocated(sigma_d)) allocate(sigma_d(constr_homology,nres)) + if(.not.allocated(xxtpl)) allocate(xxtpl(constr_homology,nres)) + if(.not.allocated(yytpl)) allocate(yytpl(constr_homology,nres)) + if(.not.allocated(zztpl)) allocate(zztpl(constr_homology,nres)) +! if(.not.allocated(distance)) allocate(distance(constr_homology)) +! if(.not.allocated(distancek)) allocate(distancek(constr_homology)) + + +! +! Distance restraints +! +! ... --> odl(k,ii) +! Copy the coordinates from reference coordinates (?) + do i=1,2*nres_chomo(k) + do j=1,3 + c(j,i)=cref(j,i,1) +! write (iout,*) "c(",j,i,") =",c(j,i) + enddo + enddo +! +! From read_dist_constr (commented out 25/11/2014 <-> res sim) +! +! write(iout,*) "tpl_k_rescore - ",tpl_k_rescore + open (ientin,file=tpl_k_rescore,status='old') + if (nnt.gt.1) rescore(k,1)=0.0d0 + do irec=nnt,nct ! loop for reading res sim + if (read2sigma) then + read (ientin,*,end=1401) i_tmp,rescore2_tmp,rescore_tmp,& + rescore3_tmp,idomain_tmp + i_tmp=i_tmp+nnt-1 + idomain(k,i_tmp)=idomain_tmp + rescore(k,i_tmp)=rescore_tmp + rescore2(k,i_tmp)=rescore2_tmp + rescore3(k,i_tmp)=rescore3_tmp + if (.not. out1file .or. me.eq.king)& + write(iout,'(a7,i5,3f10.5,i5)') "rescore",& + i_tmp,rescore2_tmp,rescore_tmp,& + rescore3_tmp,idomain_tmp + else + idomain(k,irec)=1 + read (ientin,*,end=1401) rescore_tmp + +! rescore(k,irec)=rescore_tmp+1.0d0 ! to avoid 0 values + rescore(k,irec)=0.5d0*(rescore_tmp+0.5d0) ! alt transf to reduce scores +! write(iout,*) "rescore(",k,irec,") =",rescore(k,irec) + endif + enddo + 1401 continue + close (ientin) + if (waga_dist.ne.0.0d0) then + ii=0 + do i = nnt,nct-2 + do j=i+2,nct + + x12=c(1,i)-c(1,j) + y12=c(2,i)-c(2,j) + z12=c(3,i)-c(3,j) + distal=dsqrt(x12*x12+y12*y12+z12*z12) +! write (iout,*) k,i,j,distal,dist2_cut + + if (idomain(k,i).eq.idomain(k,j).and.idomain(k,i).ne.0 & + .and. distal.le.dist2_cut ) then + + ii=ii+1 + ii_in_use(ii)=1 + l_homo(k,ii)=.true. + +! write (iout,*) "k",k +! write (iout,*) "i",i," j",j," constr_homology", +! & constr_homology + ires_homo(ii)=i + jres_homo(ii)=j + odl(k,ii)=distal + if (read2sigma) then + sigma_odl(k,ii)=0 + do ik=i,j + sigma_odl(k,ii)=sigma_odl(k,ii)+rescore2(k,ik) + enddo + sigma_odl(k,ii)=sigma_odl(k,ii)/(j-i+1) + if (odl(k,ii).gt.dist_cut) sigma_odl(k,ii) = & + sigma_odl(k,ii)*dexp(0.5d0*(odl(k,ii)/dist_cut)**2-0.5d0) + else + if (odl(k,ii).le.dist_cut) then + sigma_odl(k,ii)=rescore(k,i)+rescore(k,j) + else +#ifdef OLDSIGMA + sigma_odl(k,ii)=(rescore(k,i)+rescore(k,j))* & + dexp(0.5d0*(odl(k,ii)/dist_cut)**2) +#else + sigma_odl(k,ii)=(rescore(k,i)+rescore(k,j))* & + dexp(0.5d0*(odl(k,ii)/dist_cut)**2-0.5d0) +#endif + endif + endif + sigma_odl(k,ii)=1.0d0/(sigma_odl(k,ii)*sigma_odl(k,ii)) + else +! ii=ii+1 +! l_homo(k,ii)=.false. + endif + enddo + enddo + lim_odl=ii + endif +! write (iout,*) "Distance restraints set" +! call flush(iout) +! +! Theta, dihedral and SC retraints +! + if (waga_angle.gt.0.0d0) then +! open (ientin,file=tpl_k_sigma_dih,status='old') +! do irec=1,maxres-3 ! loop for reading sigma_dih +! read (ientin,*,end=1402) i,j,ki,l,sigma_dih(k,i+nnt-1) ! j,ki,l what for? +! if (i+nnt-1.gt.lim_dih) lim_dih=i+nnt-1 ! right? +! sigma_dih(k,i+nnt-1)=sigma_dih(k,i+nnt-1)* ! not inverse because of use of res. similarity +! & sigma_dih(k,i+nnt-1) +! enddo +!1402 continue +! close (ientin) + do i = nnt+3,nct + if (idomain(k,i).eq.0) then + sigma_dih(k,i)=0.0 + cycle + endif + dih(k,i)=phiref(i) ! right? +! read (ientin,*) sigma_dih(k,i) ! original variant +! write (iout,*) "dih(",k,i,") =",dih(k,i) +! write(iout,*) "rescore(",k,i,") =",rescore(k,i), +! & "rescore(",k,i-1,") =",rescore(k,i-1), +! & "rescore(",k,i-2,") =",rescore(k,i-2), +! & "rescore(",k,i-3,") =",rescore(k,i-3) + + sigma_dih(k,i)=(rescore(k,i)+rescore(k,i-1)+ & + rescore(k,i-2)+rescore(k,i-3))/4.0 +! if (read2sigma) sigma_dih(k,i)=sigma_dih(k,i)/4.0 +! write (iout,*) "Raw sigmas for dihedral angle restraints" +! write (iout,'(i5,10(2f8.2,4x))') i,sigma_dih(k,i) +! sigma_dih(k,i)=hmscore(k)*rescore(k,i)*rescore(k,i-1)* +! rescore(k,i-2)*rescore(k,i-3) ! right expression ? +! Instead of res sim other local measure of b/b str reliability possible + if (sigma_dih(k,i).ne.0) & + sigma_dih(k,i)=1.0d0/(sigma_dih(k,i)*sigma_dih(k,i)) +! sigma_dih(k,i)=sigma_dih(k,i)*sigma_dih(k,i) + enddo + lim_dih=nct-nnt-2 + endif +! write (iout,*) "Dihedral angle restraints set" +! call flush(iout) + + if (waga_theta.gt.0.0d0) then +! open (ientin,file=tpl_k_sigma_theta,status='old') +! do irec=1,maxres-2 ! loop for reading sigma_theta, right bounds? +! read (ientin,*,end=1403) i,j,ki,sigma_theta(k,i+nnt-1) ! j,ki what for? +! sigma_theta(k,i+nnt-1)=sigma_theta(k,i+nnt-1)* ! not inverse because of use of res. similarity +! & sigma_theta(k,i+nnt-1) +! enddo +!1403 continue +! close (ientin) + + do i = nnt+2,nct ! right? without parallel. +! do i = i=1,nres ! alternative for bounds acc to readpdb? +! do i=ithet_start,ithet_end ! with FG parallel. + if (idomain(k,i).eq.0) then + sigma_theta(k,i)=0.0 + cycle + endif + thetatpl(k,i)=thetaref(i) +! write (iout,*) "thetatpl(",k,i,") =",thetatpl(k,i) +! write(iout,*) "rescore(",k,i,") =",rescore(k,i), +! & "rescore(",k,i-1,") =",rescore(k,i-1), +! & "rescore(",k,i-2,") =",rescore(k,i-2) +! read (ientin,*) sigma_theta(k,i) ! 1st variant + sigma_theta(k,i)=(rescore(k,i)+rescore(k,i-1)+ & + rescore(k,i-2))/3.0 +! if (read2sigma) sigma_theta(k,i)=sigma_theta(k,i)/3.0 + if (sigma_theta(k,i).ne.0) & + sigma_theta(k,i)=1.0d0/(sigma_theta(k,i)*sigma_theta(k,i)) + +! sigma_theta(k,i)=hmscore(k)*rescore(k,i)*rescore(k,i-1)* +! rescore(k,i-2) ! right expression ? +! sigma_theta(k,i)=sigma_theta(k,i)*sigma_theta(k,i) + enddo + endif +! write (iout,*) "Angle restraints set" +! call flush(iout) + + if (waga_d.gt.0.0d0) then +! open (ientin,file=tpl_k_sigma_d,status='old') +! do irec=1,maxres-1 ! loop for reading sigma_theta, right bounds? +! read (ientin,*,end=1404) i,j,sigma_d(k,i+nnt-1) ! j,ki what for? +! sigma_d(k,i+nnt-1)=sigma_d(k,i+nnt-1)* ! not inverse because of use of res. similarity +! & sigma_d(k,i+nnt-1) +! enddo +!1404 continue + + do i = nnt,nct ! right? without parallel. +! do i=2,nres-1 ! alternative for bounds acc to readpdb? +! do i=loc_start,loc_end ! with FG parallel. + if (itype(i,1).eq.10) cycle + if (idomain(k,i).eq.0 ) then + sigma_d(k,i)=0.0 + cycle + endif + xxtpl(k,i)=xxref(i) + yytpl(k,i)=yyref(i) + zztpl(k,i)=zzref(i) +! write (iout,*) "xxtpl(",k,i,") =",xxtpl(k,i) +! write (iout,*) "yytpl(",k,i,") =",yytpl(k,i) +! write (iout,*) "zztpl(",k,i,") =",zztpl(k,i) +! write(iout,*) "rescore(",k,i,") =",rescore(k,i) + sigma_d(k,i)=rescore3(k,i) ! right expression ? + if (sigma_d(k,i).ne.0) & + sigma_d(k,i)=1.0d0/(sigma_d(k,i)*sigma_d(k,i)) + +! sigma_d(k,i)=hmscore(k)*rescore(k,i) ! right expression ? +! sigma_d(k,i)=sigma_d(k,i)*sigma_d(k,i) +! read (ientin,*) sigma_d(k,i) ! 1st variant + enddo + endif + enddo +! write (iout,*) "SC restraints set" +! call flush(iout) +! +! remove distance restraints not used in any model from the list +! shift data in all arrays +! +! write (iout,*) "waga_dist",waga_dist," nnt",nnt," nct",nct + if (waga_dist.ne.0.0d0) then + ii=0 + liiflag=.true. + lfirst=.true. + do i=nnt,nct-2 + do j=i+2,nct + ii=ii+1 +! if (idomain(k,i).eq.idomain(k,j).and.idomain(k,i).ne.0 +! & .and. distal.le.dist2_cut ) then +! write (iout,*) "i",i," j",j," ii",ii +! call flush(iout) + if (ii_in_use(ii).eq.0.and.liiflag.or. & + ii_in_use(ii).eq.1.and.liiflag.and.ii.eq.lim_odl) then + liiflag=.false. + i10=ii + if (lfirst) then + lfirst=.false. + iistart=ii + else + if(i10.eq.lim_odl) i10=i10+1 + do ki=0,i10-i01-1 + ires_homo(iistart+ki)=ires_homo(ki+i01) + jres_homo(iistart+ki)=jres_homo(ki+i01) + ii_in_use(iistart+ki)=ii_in_use(ki+i01) + do k=1,constr_homology + odl(k,iistart+ki)=odl(k,ki+i01) + sigma_odl(k,iistart+ki)=sigma_odl(k,ki+i01) + l_homo(k,iistart+ki)=l_homo(k,ki+i01) + enddo + enddo + iistart=iistart+i10-i01 + endif + endif + if (ii_in_use(ii).ne.0.and..not.liiflag) then + i01=ii + liiflag=.true. + endif + enddo + enddo + lim_odl=iistart-1 + endif +! write (iout,*) "Removing distances completed" +! call flush(iout) + endif ! .not. klapaucjusz + + if (constr_homology.gt.0) call homology_partition + write (iout,*) "After homology_partition" + call flush(iout) + if (constr_homology.gt.0) call init_int_table + write (iout,*) "After init_int_table" + call flush(iout) +! endif ! .not. klapaucjusz +! endif +! if (constr_homology.gt.0) call homology_partition +! write (iout,*) "After homology_partition" +! call flush(iout) +! if (constr_homology.gt.0) call init_int_table +! write (iout,*) "After init_int_table" +! call flush(iout) +! write (iout,*) "ithet_start =",ithet_start,"ithet_end =",ithet_end +! write (iout,*) "loc_start =",loc_start,"loc_end =",loc_end +! +! Print restraints +! + if (.not.out_template_restr) return +!d write(iout,*) "waga_theta",waga_theta,"waga_d",waga_d + if(me.eq.king .or. .not. out1file .and. fg_rank.eq.0) then + write (iout,*) "Distance restraints from templates" + do ii=1,lim_odl + write(iout,'(3i7,100(2f8.2,1x,l1,4x))') & + ii,ires_homo(ii),jres_homo(ii),& + (odl(ki,ii),1.0d0/dsqrt(sigma_odl(ki,ii)),l_homo(ki,ii),& + ki=1,constr_homology) + enddo + write (iout,*) "Dihedral angle restraints from templates" + do i=nnt+3,nct + write (iout,'(i7,a4,100(2f8.2,4x))') i,restyp(itype(i,1),1),& + (rad2deg*dih(ki,i),& + rad2deg/dsqrt(sigma_dih(ki,i)),ki=1,constr_homology) + enddo + write (iout,*) "Virtual-bond angle restraints from templates" + do i=nnt+2,nct + write (iout,'(i7,a4,100(2f8.2,4x))') i,restyp(itype(i,1),1),& + (rad2deg*thetatpl(ki,i),& + rad2deg/dsqrt(sigma_theta(ki,i)),ki=1,constr_homology) + enddo + write (iout,*) "SC restraints from templates" + do i=nnt,nct + write(iout,'(i7,100(4f8.2,4x))') i,& + (xxtpl(ki,i),yytpl(ki,i),zztpl(ki,i), & + 1.0d0/dsqrt(sigma_d(ki,i)),ki=1,constr_homology) + enddo + endif + return + end subroutine read_constr_homology +!----------------------------------------------------------------------------- + subroutine read_klapaucjusz + use energy_data + implicit none +! include 'DIMENSIONS' +!#ifdef MPI +! include 'mpif.h' +!#endif +! include 'COMMON.SETUP' +! include 'COMMON.CONTROL' +! include 'COMMON.HOMOLOGY' +! include 'COMMON.CHAIN' +! include 'COMMON.IOUNITS' +! include 'COMMON.MD' +! include 'COMMON.GEO' +! include 'COMMON.INTERACT' +! include 'COMMON.NAMES' + character(len=256) fragfile + integer, dimension(:), allocatable :: ninclust,nresclust,itype_temp,& + ii_in_use + integer, dimension(:,:), allocatable :: iresclust,inclust + integer :: nclust + + character(len=2) :: kic2 + character(len=24) :: model_ki_dist, model_ki_angle + character(len=500) :: controlcard + integer :: ki, i, j, jj,k, l, i_tmp,& + idomain_tmp,& + ik,ll,lll,ii_old,ii,iii,ichain,kk,iistart,iishift,lim_xx,igr,& + i01,i10,nnt_chain,nct_chain + real(kind=8) :: distal + logical :: lprn = .true. + integer :: nres_temp +! integer :: ilen +! external :: ilen + logical :: liiflag,lfirst + + real(kind=8) rescore_tmp,x12,y12,z12,rescore2_tmp,dist_cut + real(kind=8), dimension (:,:), allocatable :: rescore + real(kind=8), dimension (:,:), allocatable :: rescore2 + character(len=24) :: tpl_k_rescore + character(len=256) :: pdbfile + +! +! For new homol impl +! +! include 'COMMON.VAR' +! +! write (iout,*) "READ_KLAPAUCJUSZ" +! print *,"READ_KLAPAUCJUSZ" +! call flush(iout) + call getenv("FRAGFILE",fragfile) + write (iout,*) "Opening", fragfile + call flush(iout) + open(ientin,file=fragfile,status="old",err=10) +! write (iout,*) " opened" +! call flush(iout) + + sigma_theta=0.0 + sigma_d=0.0 + sigma_dih=0.0 + l_homo = .false. + + nres_temp=nres + itype_temp(:)=itype(:,1) + ii=0 + lim_odl=0 + +! write (iout,*) "Entering loop" +! call flush(iout) + + DO IGR = 1,NCHAIN_GROUP + +! write (iout,*) "igr",igr + call flush(iout) + read(ientin,*) constr_homology,nclust + if (start_from_model) then + nmodel_start=constr_homology + else + nmodel_start=0 + endif + + ii_old=lim_odl + + ichain=iequiv(1,igr) + nnt_chain=chain_border(1,ichain)-chain_border1(1,ichain)+1 + nct_chain=chain_border(2,ichain)-chain_border1(1,ichain)+1 +! write (iout,*) "nnt_chain",nnt_chain," nct_chain",nct_chain + +! Read pdb files + if(.not.allocated(pdbfiles_chomo)) allocate(pdbfiles_chomo(constr_homology)) + if(.not.allocated(nres_chomo)) allocate(nres_chomo(constr_homology)) + do k=1,constr_homology + read(ientin,'(a)') pdbfile + write (iout,'(a,5x,a)') 'KLAPAUCJUSZ: Opening PDB file', & + pdbfile(:ilen(pdbfile)) + pdbfiles_chomo(k)=pdbfile + open(ipdbin,file=pdbfile,status='old',err=33) + goto 34 + 33 write (iout,'(a,5x,a)') 'Error opening PDB file',& + pdbfile(:ilen(pdbfile)) + stop + 34 continue + unres_pdb=.false. +! nres_temp=nres + call readpdb_template(k) + nres_chomo(k)=nres +! nres=nres_temp + do i=1,nres + rescore(k,i)=0.2d0 + rescore2(k,i)=1.0d0 + enddo + enddo +! Read clusters + do i=1,nclust + read(ientin,*) ninclust(i),nresclust(i) + read(ientin,*) (inclust(k,i),k=1,ninclust(i)) + read(ientin,*) (iresclust(k,i),k=1,nresclust(i)) + enddo +! +! Loop over clusters +! + do l=1,nclust + do ll = 1,ninclust(l) + + k = inclust(ll,l) +! write (iout,*) "l",l," ll",ll," k",k + do i=1,nres + idomain(k,i)=0 + enddo + do i=1,nresclust(l) + if (nnt.gt.1) then + idomain(k,iresclust(i,l)+1) = 1 + else + idomain(k,iresclust(i,l)) = 1 + endif + enddo +! +! Distance restraints +! +! ... --> odl(k,ii) +! Copy the coordinates from reference coordinates (?) +! nres_temp=nres + nres=nres_chomo(k) + do i=1,2*nres + do j=1,3 + c(j,i)=chomo(j,i,k) +! write (iout,*) "c(",j,i,") =",c(j,i) + enddo + enddo + call int_from_cart(.true.,.false.) + call sc_loc_geom(.false.) + do i=1,nres + thetaref(i)=theta(i) + phiref(i)=phi(i) + enddo +! nres=nres_temp + if (waga_dist.ne.0.0d0) then + ii=ii_old +! do i = nnt,nct-2 + do i = nnt_chain,nct_chain-2 +! do j=i+2,nct + do j=i+2,nct_chain + + x12=c(1,i)-c(1,j) + y12=c(2,i)-c(2,j) + z12=c(3,i)-c(3,j) + distal=dsqrt(x12*x12+y12*y12+z12*z12) +! write (iout,*) k,i,j,distal,dist2_cut + + if (idomain(k,i).eq.idomain(k,j).and.idomain(k,i).ne.0 & + .and. distal.le.dist2_cut ) then + + ii=ii+1 + ii_in_use(ii)=1 + l_homo(k,ii)=.true. + +! write (iout,*) "k",k +! write (iout,*) "i",i," j",j," constr_homology", +! & constr_homology + ires_homo(ii)=i+chain_border1(1,igr)-1 + jres_homo(ii)=j+chain_border1(1,igr)-1 + odl(k,ii)=distal + if (read2sigma) then + sigma_odl(k,ii)=0 + do ik=i,j + sigma_odl(k,ii)=sigma_odl(k,ii)+rescore2(k,ik) + enddo + sigma_odl(k,ii)=sigma_odl(k,ii)/(j-i+1) + if (odl(k,ii).gt.dist_cut) sigma_odl(k,ii) = & + sigma_odl(k,ii)*dexp(0.5d0*(odl(k,ii)/dist_cut)**2-0.5d0) + else + if (odl(k,ii).le.dist_cut) then + sigma_odl(k,ii)=rescore(k,i)+rescore(k,j) + else +#ifdef OLDSIGMA + sigma_odl(k,ii)=(rescore(k,i)+rescore(k,j))* & + dexp(0.5d0*(odl(k,ii)/dist_cut)**2) +#else + sigma_odl(k,ii)=(rescore(k,i)+rescore(k,j))* & + dexp(0.5d0*(odl(k,ii)/dist_cut)**2-0.5d0) +#endif + endif + endif + sigma_odl(k,ii)=1.0d0/(sigma_odl(k,ii)*sigma_odl(k,ii)) + else + ii=ii+1 +! l_homo(k,ii)=.false. + endif + enddo + enddo + lim_odl=ii + endif +! +! Theta, dihedral and SC retraints +! + if (waga_angle.gt.0.0d0) then + do i = nnt_chain+3,nct_chain + iii=i+chain_border1(1,igr)-1 + if (idomain(k,i).eq.0) then +! sigma_dih(k,i)=0.0 + cycle + endif + dih(k,iii)=phiref(i) + sigma_dih(k,iii)= & + (rescore(k,i)+rescore(k,i-1)+ & + rescore(k,i-2)+rescore(k,i-3))/4.0 +! write (iout,*) "k",k," l",l," i",i," rescore",rescore(k,i), +! & " sigma_dihed",sigma_dih(k,i) + if (sigma_dih(k,iii).ne.0) & + sigma_dih(k,iii)=1.0d0/(sigma_dih(k,iii)*sigma_dih(k,iii)) + enddo +! lim_dih=nct-nnt-2 + endif + + if (waga_theta.gt.0.0d0) then + do i = nnt_chain+2,nct_chain + iii=i+chain_border1(1,igr)-1 + if (idomain(k,i).eq.0) then +! sigma_theta(k,i)=0.0 + cycle + endif + thetatpl(k,iii)=thetaref(i) + sigma_theta(k,iii)=(rescore(k,i)+rescore(k,i-1)+ & + rescore(k,i-2))/3.0 + if (sigma_theta(k,iii).ne.0) & + sigma_theta(k,iii)=1.0d0/ & + (sigma_theta(k,iii)*sigma_theta(k,iii)) + enddo + endif + + if (waga_d.gt.0.0d0) then + do i = nnt_chain,nct_chain + iii=i+chain_border1(1,igr)-1 + if (itype(i,1).eq.10) cycle + if (idomain(k,i).eq.0 ) then +! sigma_d(k,i)=0.0 + cycle + endif + xxtpl(k,iii)=xxref(i) + yytpl(k,iii)=yyref(i) + zztpl(k,iii)=zzref(i) + sigma_d(k,iii)=rescore(k,i) + if (sigma_d(k,iii).ne.0) & + sigma_d(k,iii)=1.0d0/(sigma_d(k,iii)*sigma_d(k,iii)) +! if (i-nnt+1.gt.lim_xx) lim_xx=i-nnt+1 + enddo + endif + enddo ! l + enddo ! ll +! +! remove distance restraints not used in any model from the list +! shift data in all arrays +! +! write (iout,*) "ii_old",ii_old + if (waga_dist.ne.0.0d0) then +#ifdef DEBUG + write (iout,*) "Distance restraints from templates" + do iii=1,lim_odl + write(iout,'(4i5,100(2f8.2,1x,l1,4x))') & + iii,ii_in_use(iii),ires_homo(iii),jres_homo(iii), & + (odl(ki,iii),1.0d0/dsqrt(sigma_odl(ki,iii)),l_homo(ki,iii), & + ki=1,constr_homology) + enddo +#endif + ii=ii_old + liiflag=.true. + lfirst=.true. + do i=nnt_chain,nct_chain-2 + do j=i+2,nct_chain + ii=ii+1 +! if (idomain(k,i).eq.idomain(k,j).and.idomain(k,i).ne.0 +! & .and. distal.le.dist2_cut ) then +! write (iout,*) "i",i," j",j," ii",ii," i_in_use",ii_in_use(ii) +! call flush(iout) + if (ii_in_use(ii).eq.0.and.liiflag.or. & + ii_in_use(ii).eq.1.and.liiflag.and.ii.eq.lim_odl) then + liiflag=.false. + i10=ii + if (lfirst) then + lfirst=.false. + iistart=ii + else + if(i10.eq.lim_odl) i10=i10+1 + do ki=0,i10-i01-1 + ires_homo(iistart+ki)=ires_homo(ki+i01) + jres_homo(iistart+ki)=jres_homo(ki+i01) + ii_in_use(iistart+ki)=ii_in_use(ki+i01) + do k=1,constr_homology + odl(k,iistart+ki)=odl(k,ki+i01) + sigma_odl(k,iistart+ki)=sigma_odl(k,ki+i01) + l_homo(k,iistart+ki)=l_homo(k,ki+i01) + enddo + enddo + iistart=iistart+i10-i01 + endif + endif + if (ii_in_use(ii).ne.0.and..not.liiflag) then + i01=ii + liiflag=.true. + endif + enddo + enddo + lim_odl=iistart-1 + endif + + lll=lim_odl-ii_old + + do i=2,nequiv(igr) + + ichain=iequiv(i,igr) + + do j=nnt_chain,nct_chain + jj=j+chain_border1(1,ichain)-chain_border1(1,iequiv(1,igr)) + do k=1,constr_homology + dih(k,jj)=dih(k,j) + sigma_dih(k,jj)=sigma_dih(k,j) + thetatpl(k,jj)=thetatpl(k,j) + sigma_theta(k,jj)=sigma_theta(k,j) + xxtpl(k,jj)=xxtpl(k,j) + yytpl(k,jj)=yytpl(k,j) + zztpl(k,jj)=zztpl(k,j) + sigma_d(k,jj)=sigma_d(k,j) + enddo + enddo + + jj=chain_border1(1,ichain)-chain_border1(1,iequiv(i-1,igr)) +! write (iout,*) "igr",igr," i",i," ichain",ichain," jj",jj + do j=ii_old+1,lim_odl + ires_homo(j+lll)=ires_homo(j)+jj + jres_homo(j+lll)=jres_homo(j)+jj + do k=1,constr_homology + odl(k,j+lll)=odl(k,j) + sigma_odl(k,j+lll)=sigma_odl(k,j) + l_homo(k,j+lll)=l_homo(k,j) + enddo + enddo + + ii_old=ii_old+lll + lim_odl=lim_odl+lll + + enddo + + ENDDO ! IGR + + if (waga_angle.gt.0.0d0) lim_dih=nct-nnt-2 + nres=nres_temp + itype(:,1)=itype_temp(:) + + return + 10 stop "Error in fragment file" + end subroutine read_klapaucjusz !----------------------------------------------------------------------------- end module io diff --git a/source/unres/io_base.F90 b/source/unres/io_base.F90 index 198fb1f..f66a9b5 100644 --- a/source/unres/io_base.F90 +++ b/source/unres/io_base.F90 @@ -435,7 +435,8 @@ use control_data, only:out1file use MPI_data character*320 afmcard - integer i + real, dimension(3) ::cbeg,cend + integer i,j print *, "wchodze" call card_concat(afmcard,.true.) call readi(afmcard,"BEG",afmbeg,0) @@ -443,15 +444,62 @@ call reada(afmcard,"FORCE",forceAFMconst,0.0d0) call reada(afmcard,"VEL",velAFMconst,0.0d0) print *,'FORCE=' ,forceAFMconst + cbeg=0.0d0 + cend=0.0d0 + if (afmbeg.eq.-1) then + read(inp,*) nbegafmmat,(afmbegcentr(i),i=1,nbegafmmat) + do i=1,nbegafmmat + do j=1,3 + cbeg(j)=cbeg(j)+c(j,afmbegcentr(i))/nbegafmmat + enddo + enddo + else + do j=1,3 + cbeg(j)=c(j,afmend) + enddo + endif + if (afmend.eq.-1) then + read(inp,*) nendafmmat,(afmendcentr(i),i=1,nendafmmat) + do i=1,nendafmmat + do j=1,3 + cend(j)=cend(j)+c(j,afmendcentr(i))/nendafmmat + enddo + enddo + else + cend(j)=c(j,afmend) + endif !------ NOW PROPERTIES FOR AFM distafminit=0.0d0 do i=1,3 - distafminit=(c(i,afmend)-c(i,afmbeg))**2+distafminit + distafminit=(cend(i)-cbeg(i))**2+distafminit enddo distafminit=dsqrt(distafminit) print *,'initdist',distafminit return end subroutine read_afminp +!C------------------------------------------------------------ + subroutine read_afmnano + use geometry_data + use energy_data + use control_data, only:out1file + use MPI_data + integer :: i + real*8 :: cm + read(inp,*,err=11) inanomove,(inanotab(i),i=1,inanomove),forcenanoconst + cm=0.0d0 + do i=1,inanomove + cm=cm+c(3,inanotab(i)) + enddo + cm=cm/inanomove + distnanoinit=cm-tubecenter(3) + return +11 write(iout,*)& + "error in afmnano",& + ", number of center, their index and forceconstance" + stop + return + end subroutine read_afmnano + !----------------------------------------------------------------------------- subroutine read_dist_constr use MPI_data @@ -475,9 +523,9 @@ character(len=640) :: controlcard !el local variables - integer :: i,k,j,ddjk,ii,jj,itemp + integer :: i,k,j,ii,jj,itemp,mnumkk,mnumjj,k1,j1 integer :: nfrag_,npair_,ndist_ - real(kind=8) :: dist_cut + real(kind=8) :: dist_cut,ddjk ! write (iout,*) "Calling read_dist_constr" ! write (iout,*) "nres",nres," nstart_sup",nstart_sup," nsup",nsup @@ -502,11 +550,11 @@ call multreadi(controlcard,"IPAIR",ipair_(1,1),2*npair_,0) call multreada(controlcard,"WFRAG",wfrag_(1),nfrag_,0.0d0) call multreada(controlcard,"WPAIR",wpair_(1),npair_,0.0d0) -! write (iout,*) "NFRAG",nfrag_," NPAIR",npair_," NDIST",ndist_ + write (iout,*) "NFRAG",nfrag_," NPAIR",npair_," NDIST",ndist_ ! write (iout,*) "IFRAG" -! do i=1,nfrag_ -! write (iout,*) i,ifrag_(1,i),ifrag_(2,i),wfrag_(i) -! enddo + do i=1,nfrag_ + write (iout,*) i,ifrag_(1,i),ifrag_(2,i),wfrag_(i) + enddo ! write (iout,*) "IPAIR" ! do i=1,npair_ ! write (iout,*) i,ipair_(1,i),ipair_(2,i),wpair_(i) @@ -518,15 +566,25 @@ call flush(iout) do i=1,nfrag_ - if (ifrag_(1,i).lt.nstart_sup) ifrag_(1,i)=nstart_sup - if (ifrag_(2,i).gt.nstart_sup+nsup-1) & - ifrag_(2,i)=nstart_sup+nsup-1 +! if (ifrag_(1,i).lt.nstart_sup) ifrag_(1,i)=nstart_sup +! if (ifrag_(2,i).gt.nstart_sup+nsup-1) & +! ifrag_(2,i)=nstart_sup+nsup-1 ! write (iout,*) i,ifrag_(1,i),ifrag_(2,i),wfrag_(i) call flush(iout) if (wfrag_(i).gt.0.0d0) then do j=ifrag_(1,i),ifrag_(2,i)-1 do k=j+1,ifrag_(2,i) -! write (iout,*) "j",j," k",k + write (iout,*) "j",j," k",k,nres + j1=j + k1=k + if (j.gt.nres) j1=j-nres + if (k.gt.nres) k1=k-nres + mnumkk=molnum(k1) + mnumjj=molnum(j1) + + if ((itype(k1,mnumkk).gt.ntyp_molec(mnumkk)).or.& + (itype(j1,mnumjj).gt.ntyp_molec(mnumjj))) cycle + write (iout,*) "j",j," k",k,itype(k1,mnumkk),itype(j1,mnumjj) ddjk=dist(j,k) if (constr_dist.eq.1) then nhpb=nhpb+1 @@ -1081,8 +1139,10 @@ iatom=0 ichain=1 - ires=0 - do i=nnt,nct + ires=0 + write(iout,*) "TUTUT" + do i=nnt,nct + write(iout,*), "coord",c(1,i),c(2,i),c(3,i) iti=itype(i,molnum(i)) print *,i,molnum(i) if (molnum(i+1).eq.0) then @@ -1115,12 +1175,12 @@ xi=c(1,i) yi=c(2,i) zi=c(3,i) - xi=dmod(xi,boxxsize) - if (xi.lt.0.0d0) xi=xi+boxxsize - yi=dmod(yi,boxysize) - if (yi.lt.0.0d0) yi=yi+boxysize - zi=dmod(zi,boxzsize) - if (zi.lt.0.0d0) zi=zi+boxzsize +! xi=dmod(xi,boxxsize) +! if (xi.lt.0.0d0) xi=xi+boxxsize +! yi=dmod(yi,boxysize) +! if (yi.lt.0.0d0) yi=yi+boxysize +! zi=dmod(zi,boxzsize) +! if (zi.lt.0.0d0) zi=zi+boxzsize write (iunit,60) iatom,restyp(iti,molnum(i)),chainid(ichain),& ires,xi,yi,zi,vtot(i) else @@ -1552,7 +1612,7 @@ write(iout,*) "Explicit LIPID not yet implemented" stop else if (molecule.eq.5) then - do i=1,ntyp1_molec(molecule) + do i=-1,ntyp1_molec(molecule) print *,restyp(i,molecule) print *,i,restyp(i,molecule)(1:2),nam(1:2) if (ucase(nam(1:2)).eq.restyp(i,molecule)(1:2)) then diff --git a/source/unres/io_config.F90 b/source/unres/io_config.F90 index 51bfd65..4fc0905 100644 --- a/source/unres/io_config.F90 +++ b/source/unres/io_config.F90 @@ -745,10 +745,10 @@ dwa16,rjunk,akl,v0ij,rri,epsij,rrij,sigeps,sigt1sq,& sigt2sq,sigii1,sigii2,ratsig1,ratsig2,rsum_max,r_augm,& res1,epsijlip,epspeptube,epssctube,sigmapeptube, & - sigmasctube,krad2 - integer :: ichir1,ichir2,ijunk + sigmasctube,krad2,ract + integer :: ichir1,ichir2,ijunk,irdiff character*3 string - character*80 temp1 + character*80 temp1,mychar ! real(kind=8),dimension(maxterm,-maxtor:maxtor,-maxtor:maxtor,2) :: v1_el,v2_el !(maxterm,-maxtor:maxtor,-maxtor:maxtor,2) !el allocate(v1_el(maxterm,-maxtor:maxtor,-maxtor:maxtor,2)) !el allocate(v2_el(maxterm,-maxtor:maxtor,-maxtor:maxtor,2)) @@ -813,9 +813,9 @@ msc(:,:)=0.0d0 isc(:,:)=0.0d0 - allocate(msc(ntyp+1,5)) !(ntyp+1) - allocate(isc(ntyp+1,5)) !(ntyp+1) - allocate(restok(ntyp+1,5)) !(ntyp+1) + allocate(msc(-ntyp-1:ntyp+1,5)) !(ntyp+1) + allocate(isc(-ntyp-1:ntyp+1,5)) !(ntyp+1) + allocate(restok(-ntyp-1:ntyp+1,5)) !(ntyp+1) read (ibond,*) junk,vbldp0,vbldpDUM,akp,rjunk,mp(1),ip(1),pstok(1) do i=1,ntyp_molec(1) @@ -870,7 +870,9 @@ - if (.not.allocated(ichargecat)) allocate (ichargecat(ntyp_molec(5))) + if (.not.allocated(ichargecat)) & + allocate (ichargecat(-ntyp_molec(5):ntyp_molec(5))) + ichargecat(:)=0 if (oldion.eq.1) then do i=1,ntyp_molec(5) read(iion,*) msc(i,5),restok(i,5),ichargecat(i) @@ -929,6 +931,36 @@ print *,liptranene(i) enddo close(iliptranpar) +! water parmaters entalphy + allocate(awaterenta(0:400)) + allocate(bwaterenta(0:400)) + allocate(cwaterenta(0:400)) + allocate(dwaterenta(0:400)) + allocate(awaterentro(0:400)) + allocate(bwaterentro(0:400)) + allocate(cwaterentro(0:400)) + allocate(dwaterentro(0:400)) + + read(iwaterwater,*) mychar + read(iwaterwater,*) ract,awaterenta(0),bwaterenta(0),& + cwaterenta(0),dwaterenta(0) + do i=1,398 + read(iwaterwater,*) ract,awaterenta(i),bwaterenta(i),& + cwaterenta(i),dwaterenta(i) + irdiff=int((ract-2.06d0)*50.0d0)+1 + if (i.ne.irdiff) print *,"WARTINING",i,ract, irdiff + enddo +! water parmaters entrophy + read(iwaterwater,*) mychar + read(iwaterwater,*) ract,awaterentro(0),bwaterentro(0),& + cwaterentro(0),dwaterentro(0) + do i=1,398 + read(iwaterwater,*) ract,awaterentro(i),bwaterentro(i),& + cwaterentro(i),dwaterentro(i) + irdiff=int((ract-2.06d0)*50.0d0)+1 + if (i.ne.irdiff) print *,"WARTINING",i,ract, irdiff + enddo + #ifdef CRYST_THETA ! @@ -1586,7 +1618,18 @@ allocate(ddnewtor(3,2,-nloctyp:nloctyp)) allocate(e0newtor(3,-nloctyp:nloctyp)) allocate(eenewtor(2,2,2,-nloctyp:nloctyp)) - + bnew1=0.0d0 + bnew2=0.0d0 + ccnew=0.0d0 + ddnew=0.0d0 + e0new=0.0d0 + eenew=0.0d0 + bnew1tor=0.0d0 + bnew2tor=0.0d0 + ccnewtor=0.0d0 + ddnewtor=0.0d0 + e0newtor=0.0d0 + eenewtor=0.0d0 read (ifourier,*,end=115,err=115) (itype2loc(i),i=1,ntyp) read (ifourier,*,end=115,err=115) (iloctyp(i),i=0,nloctyp-1) itype2loc(ntyp1)=nloctyp @@ -3453,8 +3496,10 @@ if (.not.allocated(chi2cat)) allocate(chi2cat(ntyp1,ntyp1)) !(ntyp,ntyp) - if (.not.allocated(ichargecat)) allocate (ichargecat(ntyp_molec(5))) + if (.not.allocated(ichargecat))& + allocate (ichargecat(-ntyp_molec(5):ntyp_molec(5))) write(*,*) "before ions",oldion + ichargecat(:)=0 ! i to SC, j to jon, isideocat - nazwa pliku z ktorego czytam parametry if (oldion.eq.0) then @@ -3465,7 +3510,7 @@ read(iion,*) ijunk endif print *,ntyp_molec(5) - do i=1,ntyp_molec(5) + do i=-ntyp_molec(5),ntyp_molec(5) read(iion,*) msc(i,5),restok(i,5),ichargecat(i) print *,msc(i,5),restok(i,5) enddo @@ -4043,18 +4088,20 @@ endif ! unres_pdb endif !firstion read (card(12:16),*) atom -! print *,"HETATOM", atom + print *,"HETATOM", atom(1:2) read (card(18:20),'(a3)') res + if (atom(3:3).eq.'H') cycle if ((atom(1:2).eq.'NA').or.(atom(1:2).eq.'CL').or.& (atom(1:2).eq.'CA').or.(atom(1:2).eq.'MG') & - .or.(atom(1:2).eq.'K '.or.(atom(1:2).eq.'ZN'))) & - then + .or.(atom(1:2).eq.'K ').or.(atom(1:2).eq.'ZN').or.& + (atom(1:2).eq.'O ')) then ires=ires+1 + print *,"I have water" if (molecule.ne.5) molecprev=molecule molecule=5 nres_molec(molecule)=nres_molec(molecule)+1 print *,"HERE",nres_molec(molecule) - res=res(2:3)//' ' + if (res.ne.'WAT') res=res(2:3)//' ' itype(ires,molecule)=rescode(ires,res,0,molecule) read(card(31:54),'(3f8.3)') (c(j,ires),j=1,3) endif! NA @@ -4349,8 +4396,14 @@ molnum(1)=5 itype(1,5)=itype(2,5) itype(1,1)=0 - do i=2,nres + do j=1,3 + c(j,1)=c(j,2) + enddo + do i=2,nres-1 itype(i,5)=itype(i+1,5) + do j=1,3 + c(j,i)=c(j,i+1) + enddo enddo itype(nres,5)=0 nres=nres-1 @@ -4391,7 +4444,7 @@ enddo endif -! print *,seqalingbegin,nres + print *,seqalingbegin,nres if(.not.allocated(vbld)) then allocate(vbld(2*nres)) do i=1,2*nres @@ -4427,13 +4480,17 @@ allocate(dc_norm(3,0:2*nres+2)) dc_norm(:,:)=0.d0 endif - + write(iout,*) "before int_from_cart" call int_from_cart(.true.,.false.) call sc_loc_geom(.false.) + write(iout,*) "after int_from_cart" + + do i=1,nres thetaref(i)=theta(i) phiref(i)=phi(i) enddo + write(iout,*) "after thetaref" ! do i=1,2*nres ! vbld_inv(i)=0.d0 ! vbld(i)=0.d0 @@ -4463,6 +4520,13 @@ ! enddo ! enddo ! +! do i=1,2*nres +! do j=1,3 +! chomo(j,i,k)=c(j,i) +! enddo +! enddo +! write(iout,*) "after chomo" + if(.not.allocated(cref)) allocate(cref(3,2*nres+2,maxperm)) !(3,maxres2+2,maxperm) if(.not.allocated(chain_rep)) allocate(chain_rep(3,2*nres+2,maxsym)) !(3,maxres2+2,maxsym) if(.not.allocated(tabperm)) allocate(tabperm(maxperm,maxsym)) !(maxperm,maxsym) @@ -4626,7 +4690,8 @@ real(kind=8) :: seed,rmsdbc,rmsdbc1max,rmsdbcm,drms,timem!,& integer i - + usampl=.false. ! the default value of usample should be 0 +! write(iout,*) "KURWA2",usampl nglob_csa=0 eglob_csa=1d99 nmin_csa=0 @@ -4648,6 +4713,10 @@ call reada(controlcard,'RMSDBC1MAX',rmsdbc1max,1.5D0) call reada(controlcard,'RMSDBCM',rmsdbcm,3.0D0) call reada(controlcard,'DRMS',drms,0.1D0) + call readi(controlcard,'CONSTR_HOMOL',constr_homology,0) + read_homol_frag = index(controlcard,"READ_HOMOL_FRAG").gt.0 + out_template_coord = index(controlcard,"OUT_TEMPLATE_COORD").gt.0 + out_template_restr = index(controlcard,"OUT_TEMPLATE_RESTR").gt.0 if(me.eq.king .or. .not. out1file .and. fg_rank.eq.0) then write (iout,'(a,f10.1)')'RMSDBC = ',rmsdbc write (iout,'(a,f10.1)')'RMSDBC1 = ',rmsdbc1 @@ -4680,6 +4749,7 @@ with_theta_constr = index(controlcard,"WITH_THETA_CONSTR").gt.0 protein=index(controlcard,"PROTEIN").gt.0 ions=index(controlcard,"IONS").gt.0 + fodson=index(controlcard,"FODSON").gt.0 call readi(controlcard,'OLDION',oldion,1) nucleic=index(controlcard,"NUCLEIC").gt.0 write (iout,*) "with_theta_constr ",with_theta_constr @@ -4706,6 +4776,7 @@ call reada(controlcard,"YTUBE",tubecenter(2),0.0d0) call reada(controlcard,"ZTUBE",tubecenter(3),0.0d0) call reada(controlcard,"RTUBE",tubeR0,0.0d0) + call reada(controlcard,"VNANO",velnanoconst,0.0d0) call reada(controlcard,"TUBETOP",bordtubetop,boxzsize) call reada(controlcard,"TUBEBOT",bordtubebot,0.0d0) call reada(controlcard,"TUBEBUF",tubebufthick,1.0d0) @@ -4989,6 +5060,7 @@ call readi(controlcard,"NSTEP",n_timestep,1000000) call readi(controlcard,"NTWE",ntwe,100) call readi(controlcard,"NTWX",ntwx,1000) + call readi(controlcard,"NFOD",nfodstep,100) call reada(controlcard,"DT",d_time,1.0d-1) call reada(controlcard,"DVMAX",dvmax,2.0d1) call reada(controlcard,"DAMAX",damax,1.0d1) @@ -5004,6 +5076,7 @@ rest = index(controlcard,"REST").gt.0 tbf = index(controlcard,"TBF").gt.0 usampl = index(controlcard,"USAMPL").gt.0 +! write(iout,*) "KURWA",usampl mdpdb = index(controlcard,"MDPDB").gt.0 call reada(controlcard,"T_BATH",t_bath,300.0d0) call reada(controlcard,"TAU_BATH",tau_bath,1.0d-1) @@ -5619,6 +5692,11 @@ open (iionnucl,file=ionnuclname,status='old') call getenv_loc('IONPAR_TRAN',iontranname) open (iiontran,file=iontranname,status='old') + call getenv_loc('WATWAT',iwaterwatername) + open (iwaterwater,file=iwaterwatername,status='old') + call getenv_loc('WATPROT',iwaterscname) + open (iwatersc,file=iwaterscname,status='old') + #else open(1,file=pref_orig(:ilen(pref_orig))//'.inp',status='old',& readonly) @@ -5686,7 +5764,10 @@ open (iionnucl,file=ionnuclname,status='old',action='read') call getenv_loc('IONPAR_TRAN',iontranname) open (iiontran,file=iontranname,status='old',action='read') - + call getenv_loc('WATWAT',iwaterwatername) + open (iwaterwater,file=iwaterwatername,status='old',action='read') + call getenv_loc('WATPROT',iwaterscname) + open (iwatersc,file=iwaterscname,status='old',action='read') #ifndef CRYST_SC call getenv_loc('ROTPARPDB',rotname_pdb) @@ -6290,5 +6371,339 @@ end subroutine write_stat_thread !----------------------------------------------------------------------------- #endif + subroutine readpdb_template(k) +! Read the PDB file for read_constr_homology with read2sigma +! and convert the peptide geometry into virtual-chain geometry. +! implicit none +! include 'DIMENSIONS' +! include 'COMMON.LOCAL' +! include 'COMMON.VAR' +! include 'COMMON.CHAIN' +! include 'COMMON.INTERACT' +! include 'COMMON.IOUNITS' +! include 'COMMON.GEO' +! include 'COMMON.NAMES' +! include 'COMMON.CONTROL' +! include 'COMMON.FRAG' +! include 'COMMON.SETUP' + use compare_data, only:nhfrag,nbfrag + integer :: i,j,k,ibeg,ishift1,ires,iii,ires_old,ishift,ity, & + ishift_pdb,ires_ca + logical lprn /.false./,fail + real(kind=8), dimension (3):: e1,e2,e3 + real(kind=8) :: dcj,efree_temp + character*3 seq,res + character*5 atom + character*80 card + real(kind=8), dimension (3,20) :: sccor +! integer rescode + integer, dimension (:), allocatable :: iterter + if(.not.allocated(iterter))allocate(iterter(nres)) + do i=1,nres + iterter(i)=0 + enddo + ibeg=1 + ishift1=0 + ishift=0 + write (2,*) "UNRES_PDB",unres_pdb + ires=0 + ires_old=0 + iii=0 + lsecondary=.false. + nhfrag=0 + nbfrag=0 + do + read (ipdbin,'(a80)',end=10) card + if (card(:3).eq.'END') then + goto 10 + else if (card(:3).eq.'TER') then +! End current chain + ires_old=ires+2 + itype(ires_old-1,1)=ntyp1 + iterter(ires_old-1)=1 +#if defined(WHAM_RUN) || defined(CLUSTER) + if (ires_old.lt.nres) then +#endif + itype(ires_old,1)=ntyp1 + iterter(ires_old)=1 +#if defined(WHAM_RUN) || defined(CLUSTER) + endif +#endif + ibeg=2 +! write (iout,*) "Chain ended",ires,ishift,ires_old + if (unres_pdb) then + do j=1,3 + dc(j,ires)=sccor(j,iii) + enddo + else + call sccenter(ires,iii,sccor) + endif + endif +! Fish out the ATOM cards. + if (index(card(1:4),'ATOM').gt.0) then + read (card(12:16),*) atom +! write (iout,*) "! ",atom," !",ires +! if (atom.eq.'CA' .or. atom.eq.'CH3') then + read (card(23:26),*) ires + read (card(18:20),'(a3)') res +! write (iout,*) "ires",ires,ires-ishift+ishift1, +! & " ires_old",ires_old +! write (iout,*) "ishift",ishift," ishift1",ishift1 +! write (iout,*) "IRES",ires-ishift+ishift1,ires_old + if (ires-ishift+ishift1.ne.ires_old) then +! Calculate the CM of the preceding residue. + if (ibeg.eq.0) then + if (unres_pdb) then + do j=1,3 + dc(j,ires_old)=sccor(j,iii) + enddo + else + call sccenter(ires_old,iii,sccor) + endif + iii=0 + endif +! Start new residue. + if (res.eq.'Cl-' .or. res.eq.'Na+') then + ires=ires_old + cycle + else if (ibeg.eq.1) then +! write (iout,*) "BEG ires",ires + ishift=ires-1 + if (res.ne.'GLY' .and. res.ne. 'ACE') then + ishift=ishift-1 + itype(1,1)=ntyp1 + endif + ires=ires-ishift+ishift1 + ires_old=ires +! write (iout,*) "ishift",ishift," ires",ires, +! & " ires_old",ires_old +! write (iout,*) "ires",ires," ibeg",ibeg," ishift",ishift + ibeg=0 + else if (ibeg.eq.2) then +! Start a new chain + ishift=-ires_old+ires-1 + ires=ires_old+1 +! write (iout,*) "New chain started",ires,ishift + ibeg=0 + else + ishift=ishift-(ires-ishift+ishift1-ires_old-1) + ires=ires-ishift+ishift1 + ires_old=ires + endif + if (res.eq.'ACE' .or. res.eq.'NHE') then + itype(ires,1)=10 + else + itype(ires,1)=rescode(ires,res,0,1) + endif + else + ires=ires-ishift+ishift1 + endif +! write (iout,*) "ires_old",ires_old," ires",ires +! if (card(27:27).eq."A" .or. card(27:27).eq."B") then +! ishift1=ishift1+1 +! endif +! write (2,*) "ires",ires," res ",res," ity",ity + if (atom.eq.'CA' .or. atom.eq.'CH3' .or. & + res.eq.'NHE'.and.atom(:2).eq.'HN') then + read(card(31:54),'(3f8.3)') (c(j,ires),j=1,3) +! write (iout,*) "backbone ",atom ,ires,res, (c(j,ires),j=1,3) +#ifdef DEBUG + write (iout,'(2i3,2x,a,3f8.3)') & + ires,itype(ires,1),res,(c(j,ires),j=1,3) +#endif + iii=iii+1 + do j=1,3 + sccor(j,iii)=c(j,ires) + enddo + if (ishift.ne.0) then + ires_ca=ires+ishift-ishift1 + else + ires_ca=ires + endif +! write (*,*) card(23:27),ires,itype(ires) + else if (atom.ne.'O'.and.atom(1:1).ne.'H' .and.& + atom.ne.'N' .and. atom.ne.'C' .and.& + atom(:2).ne.'1H' .and. atom(:2).ne.'2H' .and.& + atom.ne.'OXT' .and. atom(:2).ne.'3H') then +! write (iout,*) "sidechain ",atom + iii=iii+1 + read(card(31:54),'(3f8.3)') (sccor(j,iii),j=1,3) + endif + endif + enddo + 10 if(me.eq.king.or..not.out1file) & + write (iout,'(a,i5)') ' Nres: ',ires +! Calculate dummy residue coordinates inside the "chain" of a multichain +! system + nres=ires + write(2,*) "tutaj",ires,nres + do i=2,nres-1 +! write (iout,*) i,itype(i),itype(i+1) + if (itype(i,1).eq.ntyp1.and.iterter(i).eq.1) then + if (itype(i+1,1).eq.ntyp1.and.iterter(i+1).eq.1 ) then +! 16/01/2014 by Adasko: Adding to dummy atoms in the chain +! first is connected prevous chain (itype(i+1).eq.ntyp1)=true +! second dummy atom is conected to next chain itype(i+1).eq.ntyp1=false + if (unres_pdb) then +! 2/15/2013 by Adam: corrected insertion of the last dummy residue + call refsys(i-3,i-2,i-1,e1,e2,e3,fail) + if (fail) then + e2(1)=0.0d0 + e2(2)=1.0d0 + e2(3)=0.0d0 + endif !fail + do j=1,3 + c(j,i)=c(j,i-1)-1.9d0*e2(j) + enddo + else !unres_pdb + do j=1,3 + dcj=(c(j,i-2)-c(j,i-3))/2.0 + if (dcj.eq.0) dcj=1.23591524223 + c(j,i)=c(j,i-1)+dcj + c(j,nres+i)=c(j,i) + enddo + endif !unres_pdb + else !itype(i+1).eq.ntyp1 + if (unres_pdb) then +! 2/15/2013 by Adam: corrected insertion of the first dummy residue + call refsys(i+1,i+2,i+3,e1,e2,e3,fail) + if (fail) then + e2(1)=0.0d0 + e2(2)=1.0d0 + e2(3)=0.0d0 + endif + do j=1,3 + c(j,i)=c(j,i+1)-1.9d0*e2(j) + enddo + else !unres_pdb + do j=1,3 + dcj=(c(j,i+3)-c(j,i+2))/2.0 + if (dcj.eq.0) dcj=1.23591524223 + c(j,i)=c(j,i+1)-dcj + c(j,nres+i)=c(j,i) + enddo + endif !unres_pdb + endif !itype(i+1).eq.ntyp1 + endif !itype.eq.ntyp1 + enddo +! Calculate the CM of the last side chain. + if (unres_pdb) then + do j=1,3 + dc(j,ires)=sccor(j,iii) + enddo + else + call sccenter(ires,iii,sccor) + endif + nsup=nres + nstart_sup=1 + if (itype(nres,1).ne.10) then + nres=nres+1 + itype(nres,1)=ntyp1 + if (unres_pdb) then +! 2/15/2013 by Adam: corrected insertion of the last dummy residue + call refsys(nres-3,nres-2,nres-1,e1,e2,e3,fail) + if (fail) then + e2(1)=0.0d0 + e2(2)=1.0d0 + e2(3)=0.0d0 + endif + do j=1,3 + c(j,nres)=c(j,nres-1)-1.9d0*e2(j) + enddo + else + do j=1,3 + dcj=(c(j,nres-2)-c(j,nres-3))/2.0 + if (dcj.eq.0) dcj=1.23591524223 + c(j,nres)=c(j,nres-1)+dcj + c(j,2*nres)=c(j,nres) + enddo + endif + endif + do i=2,nres-1 + do j=1,3 + c(j,i+nres)=dc(j,i) + enddo + enddo + do j=1,3 + c(j,nres+1)=c(j,1) + c(j,2*nres)=c(j,nres) + enddo + if (itype(1,1).eq.ntyp1) then + nsup=nsup-1 + nstart_sup=2 + if (unres_pdb) then +! 2/15/2013 by Adam: corrected insertion of the first dummy residue + call refsys(2,3,4,e1,e2,e3,fail) + if (fail) then + e2(1)=0.0d0 + e2(2)=1.0d0 + e2(3)=0.0d0 + endif + do j=1,3 + c(j,1)=c(j,2)-1.9d0*e2(j) + enddo + else + do j=1,3 + dcj=(c(j,4)-c(j,3))/2.0 + c(j,1)=c(j,2)-dcj + c(j,nres+1)=c(j,1) + enddo + endif + endif +! Copy the coordinates to reference coordinates +! do i=1,2*nres +! do j=1,3 +! cref(j,i)=c(j,i) +! enddo +! enddo +! Calculate internal coordinates. + if (out_template_coord) then + write (iout,'(/a)') & + "Cartesian coordinates of the reference structure" + write (iout,'(a,3(3x,a5),5x,3(3x,a5))') & + "Residue ","X(CA)","Y(CA)","Z(CA)","X(SC)","Y(SC)","Z(SC)" + do ires=1,nres + write (iout,'(a3,1x,i4,3f8.3,5x,3f8.3)')& + restyp(itype(ires,1),1),ires,(c(j,ires),j=1,3),& + (c(j,ires+nres),j=1,3) + enddo + endif +! Calculate internal coordinates. + call int_from_cart(.true.,out_template_coord) + call sc_loc_geom(.false.) + do i=1,nres + thetaref(i)=theta(i) + phiref(i)=phi(i) + enddo + do i=1,nres-1 + do j=1,3 + dc(j,i)=c(j,i+1)-c(j,i) + dc_norm(j,i)=dc(j,i)*vbld_inv(i+1) + enddo + enddo + do i=2,nres-1 + do j=1,3 + dc(j,i+nres)=c(j,i+nres)-c(j,i) + dc_norm(j,i+nres)=dc(j,i+nres)*vbld_inv(i+nres) + enddo +! write (iout,*) i,(dc(j,i+nres),j=1,3),(dc_norm(j,i+nres),j=1,3), +! & vbld_inv(i+nres) + enddo + do i=1,nres + do j=1,3 + cref(j,i,1)=c(j,i) + cref(j,i+nres,1)=c(j,i+nres) + enddo + enddo + do i=1,2*nres + do j=1,3 + chomo(j,i,k)=c(j,i) + enddo + enddo + + return + end subroutine readpdb_template +!----------------------------------------------------------------------------- +!#endif !----------------------------------------------------------------------------- end module io_config diff --git a/source/unres/unres.F90 b/source/unres/unres.F90 index 2946b66..771f150 100644 --- a/source/unres/unres.F90 +++ b/source/unres/unres.F90 @@ -228,7 +228,7 @@ ! use MD !include 'COMMON.MD' use energy_data - + use MD_data, only: iset use io_base use geometry, only:chainbuild use energy @@ -249,11 +249,12 @@ real(kind=8) :: varia(6*nres) !(maxvar) (maxvar=6*maxres) real(kind=8) :: time00, evals, etota, etot, time_ene, time1 integer :: nharp,nft_sc,iretcode,nfun - integer,dimension(4,nres/3) :: iharp !(4,nres/3)(4,maxres/3) + integer,dimension(4,nres) :: iharp !(4,nres/3)(4,maxres/3) logical :: fail real(kind=8) :: rms,frac,frac_nn,co integer :: j,k + if (iset.eq.0) iset=1 call alloc_compare_arrays if ((indpdb.eq.0).and.(.not.read_cart)) then call chainbuild @@ -818,7 +819,9 @@ ! do j=1,3 ! dc(j,0)=ran_number(-0.2d0,0.2d0) ! enddo +#ifdef UMB usampl=.true. +#endif totT=1.d0 eq_time=0.0d0 call read_fragments diff --git a/source/wham/enecalc.F90 b/source/wham/enecalc.F90 index cdec63a..6ba59a0 100644 --- a/source/wham/enecalc.F90 +++ b/source/wham/enecalc.F90 @@ -133,10 +133,10 @@ character(len=3) :: liczba !el real(kind=8) :: qwolynes !el external qwolynes - integer :: errmsg_count,maxerrmsg_count=100 + integer :: errmsg_count,maxerrmsg_count=100000 !el real(kind=8) :: rmsnat,gyrate !el external rmsnat,gyrate - real(kind=8) :: tole=1.0d-1 + real(kind=8) :: tole=0.0d0 integer i,itj,ii,iii,j,k,l,licz integer ir,ib,ipar,iparm integer iscor,islice @@ -1233,8 +1233,7 @@ write(iout,*)"end of store_parm" eelsb,estr_nucl,ebe_nucl,esbloc,etors_nucl,etors_d_nucl,& ecorr_nucl,ecorr3_nucl,escbase, epepbase,escpho, epeppho,ecation_nucl,& elipbond,elipang,eliplj,elipelec,ecat_prottran,ecation_protang, & - eliptran - + eliptran,ehomology_constr integer :: i,ii,ik,iproc,iscor,j,k,l,ib,iparm,iprot,nlist real(kind=8) :: qfree,sumprob,eini,efree,rmsdev @@ -1412,6 +1411,9 @@ write(iout,*)"end of store_parm" ecat_prottran=enetb(56,i,iparm) ecation_protang=enetb(57,i,iparm) eliptran=enetb(22,i,iparm) + ehomology_constr=enetb(51,i,iparm) + if (homol_nset.gt.1) & + ehomology_constr=waga_homology(homol_nset)*ehomology_constr ! wscbase=ww(46) ! wpepbase=ww(47) ! wscpho=ww(48) @@ -1453,7 +1455,7 @@ write(iout,*)"end of store_parm" +wvdwpp_nucl*evdwpp+welpp*eespp+wvdwpsb*evdwpsb+welpsb*eelpsb& +wvdwsb*evdwsb+welsb*eelsb+wsbloc*esbloc+wtor_nucl*etors_nucl& +wtor_d_nucl*etors_d_nucl+wcorr_nucl*ecorr_nucl+wcorr3_nucl*ecorr3_nucl& - +wscbase*escbase& + +wscbase*escbase+ehomology_constr& +wpepbase*epepbase+wscpho*escpho+wpeppho*epeppho& +wcatnucl*ecation_nucl& +elipbond+elipang+eliplj+elipelec+wcat_tran*ecat_prottran+ecation_protang+& @@ -1474,7 +1476,7 @@ write(iout,*)"end of store_parm" +wvdwpp_nucl*evdwpp+welpp*eespp+wvdwpsb*evdwpsb+welpsb*eelpsb& +wvdwsb*evdwsb+welsb*eelsb+wsbloc*esbloc+wtor_nucl*etors_nucl& +wtor_d_nucl*etors_d_nucl+wcorr_nucl*ecorr_nucl+wcorr3_nucl*ecorr3_nucl& - +wscbase*escbase& + +wscbase*escbase+ehomology_constr& +wpepbase*epepbase+wscpho*escpho+wpeppho*epeppho& +wcatnucl*ecation_nucl& +elipbond+elipang+eliplj+elipelec+wcat_tran*ecat_prottran+ecation_protang& diff --git a/source/wham/io_database.F90 b/source/wham/io_database.F90 index 41deaff..94a2957 100644 --- a/source/wham/io_database.F90 +++ b/source/wham/io_database.F90 @@ -1185,9 +1185,9 @@ write(iout,*) "end of read database" nss,(ihpb(k),jhpb(k),k=1,nss),& eini,efree,rmsdev,iscor endif - print *,"before cxwrite" +! print *,"before cxwrite" if(cxfile)call cxwrite(ixdrf,csingle,eini,efree,rmsdev,iscor) - print *,"after cxwrite" +! print *,"after cxwrite" #ifdef DEBUG do k=1,2*nres do l=1,3 diff --git a/source/wham/io_wham.F90 b/source/wham/io_wham.F90 index c2049de..d8cb743 100644 --- a/source/wham/io_wham.F90 +++ b/source/wham/io_wham.F90 @@ -166,12 +166,12 @@ ! Read molecular data. ! use energy_data - use geometry_data, only:nres,deg2rad,c,dc,nres_molec - use control_data, only:iscode,dyn_ss + use geometry_data, only:nres,deg2rad,c,dc,nres_molec,crefjlee,cref + use control_data, only:iscode,dyn_ss,pdbref,indpdb use io_base, only:rescode use control, only:setup_var,init_int_table,hpb_partition use geometry, only:alloc_geo_arrays - use energy, only:alloc_ener_arrays + use energy, only:alloc_ener_arrays ! implicit real*8 (a-h,o-z) ! include 'DIMENSIONS' ! include 'DIMENSIONS.ZSCOPT' @@ -324,12 +324,38 @@ endif endif - nnt=1 nct=nres if (itype(1,molnum(1)).eq.ntyp1_molec(molnum(1))) nnt=2 if (itype(nres,molnum(nres)).eq.ntyp1_molec(molnum(nres))) nct=nct-1 write(iout,*) 'NNT=',NNT,' NCT=',NCT + if (constr_homology.gt.0) then +!c write (iout,*) "About to call read_constr_homology" +!c call flush(iout) + call read_constr_homology +!c write (iout,*) "Exit read_constr_homology" +!c call flush(iout) + if (indpdb.gt.0 .or. pdbref) then + do i=1,2*nres + do j=1,3 + c(j,i)=crefjlee(j,i) + cref(j,i,1)=crefjlee(j,i) + enddo + enddo + endif + endif +#ifdef DEBUG + write (iout,*) "Array C" + do i=1,nres + write (iout,'(i5,3f8.3,5x,3f8.3)') i,(c(j,i),j=1,3), + & (c(j,i+nres),j=1,3) + enddo + write (iout,*) "Array Cref" + do i=1,nres + write (iout,'(i5,3f8.3,5x,3f8.3)') i,(cref(j,i,1),j=1,3), + & (cref(j,i+nres,1),j=1,3) + enddo +#endif call setup_var call init_int_table if (ns.gt.0) then @@ -704,8 +730,8 @@ allocate(ww(max_eneW)) enddo enddo endif - if (.not. allocated(msc)) allocate(msc(ntyp1,5)) - if (.not. allocated(restok)) allocate(restok(ntyp1,5)) + if (.not. allocated(msc)) allocate(msc(-ntyp1:ntyp1,5)) + if (.not. allocated(restok)) allocate(restok(-ntyp1:ntyp1,5)) if (oldion.eq.1) then do i=1,ntyp_molec(5) @@ -2752,7 +2778,7 @@ allocate(ww(max_eneW)) if (.not.allocated(chi2cat)) allocate(chi2cat(ntyp1,ntyp1)) !(ntyp,ntyp) - allocate (ichargecat(ntyp_molec(5))) + allocate (ichargecat(-ntyp_molec(5):ntyp_molec(5))) ! i to SC, j to jon, isideocat - nazwa pliku z ktorego czytam parametry if (oldion.eq.0) then if (.not.allocated(icharge)) then ! this mean you are oprating in old sc-sc mode @@ -2762,7 +2788,7 @@ allocate(ww(max_eneW)) read(iion,*) ijunk endif - do i=1,ntyp_molec(5) + do i=-ntyp_molec(5),ntyp_molec(5) read(iion,*) msc(i,5),restok(i,5),ichargecat(i) print *,msc(i,5),restok(i,5) enddo @@ -3113,7 +3139,7 @@ allocate(ww(max_eneW)) scelemode,TUBEmode,tor_mode,energy_dec,r_cut_ang,r_cut_mart,& rlamb_mart - use energy_data, only:distchainmax,tubeR0,tubecenter,dyn_ss + use energy_data, only:distchainmax,tubeR0,tubecenter,dyn_ss,constr_homology use geometry_data, only:boxxsize,boxysize,boxzsize,bordtubetop,& bordtubebot,tubebufthick,buftubebot,buftubetop,buflipbot, bufliptop,bordlipbot,bordliptop, & lipbufthick,lipthick @@ -3224,6 +3250,13 @@ allocate(ww(max_eneW)) write(iout,*) "torsional and valence angle mode",tor_mode call readi(controlcard,'TUBEMOD',tubemode,0) + call readi(controlcard,'CONSTR_HOMOL',constr_homology,0) +!c if (constr_homology) tole=dmax1(tole,1.5d0) + write (iout,*) "with_homology_constr ",with_dihed_constr, & + " CONSTR_HOMOLOGY",constr_homology +! read_homol_frag = index(controlcard,"READ_HOMOL_FRAG").gt.0 +! out_template_coord = index(controlcard,"OUT_TEMPLATE_COORD").gt.0 +! out_template_restr = index(controlcard,"OUT_TEMPLATE_RESTR").gt.0 if (TUBEmode.gt.0) then call reada(controlcard,"XTUBE",tubecenter(1),0.0d0) @@ -4047,6 +4080,514 @@ allocate(ww(max_eneW)) return end subroutine pdboutW #endif + + subroutine read_constr_homology + use energy_data + use control, only:init_int_table,homology_partition + use MD_data, only:iset + use geometry_data !only:nres,deg2rad,c,dc,nres_molec,crefjlee,cref + use MPI_data, only:kolor + use io_config, only:readpdb_template,readpdb +! implicit none +! include 'DIMENSIONS' +!#ifdef MPI +! include 'mpif.h' +!#endif +! include 'COMMON.SETUP' +! include 'COMMON.CONTROL' +! include 'COMMON.HOMOLOGY' +! include 'COMMON.CHAIN' +! include 'COMMON.IOUNITS' +! include 'COMMON.MD' +! include 'COMMON.QRESTR' +! include 'COMMON.GEO' +! include 'COMMON.INTERACT' +! include 'COMMON.NAMES' +! include 'COMMON.VAR' +! + +! double precision odl_temp,sigma_odl_temp,waga_theta,waga_d, +! & dist_cut +! common /przechowalnia/ odl_temp(maxres,maxres,max_template), +! & sigma_odl_temp(maxres,maxres,max_template) + character*2 kic2 + character*24 model_ki_dist, model_ki_angle + character*500 controlcard + integer :: ki,i,ii,j,k,l + integer, dimension (:), allocatable :: ii_in_use + integer :: i_tmp,idomain_tmp,& + irec,ik,iistart,nres_temp +! integer :: iset +! external :: ilen + logical :: liiflag,lfirst + integer :: i01,i10 +! +! FP - Nov. 2014 Temporary specifications for new vars +! + real(kind=8) :: rescore_tmp,x12,y12,z12,rescore2_tmp,& + rescore3_tmp, dist_cut + real(kind=8), dimension (:,:),allocatable :: rescore + real(kind=8), dimension (:,:),allocatable :: rescore2 + real(kind=8), dimension (:,:),allocatable :: rescore3 + real(kind=8) :: distal + character*24 tpl_k_rescore + character*256 pdbfile + +! ----------------------------------------------------------------- +! Reading multiple PDB ref structures and calculation of retraints +! not using pre-computed ones stored in files model_ki_{dist,angle} +! FP (Nov., 2014) +! ----------------------------------------------------------------- +! +! +! Alternative: reading from input + call card_concat(controlcard,.true.) + call reada(controlcard,"HOMOL_DIST",waga_dist,1.0d0) + call reada(controlcard,"HOMOL_ANGLE",waga_angle,1.0d0) + call reada(controlcard,"HOMOL_THETA",waga_theta,1.0d0) ! new + call reada(controlcard,"HOMOL_SCD",waga_d,1.0d0) ! new + call reada(controlcard,'DIST_CUT',dist_cut,5.0d0) ! for diff ways of calc sigma + call reada(controlcard,'DIST2_CUT',dist2_cut,9999.0d0) + call readi(controlcard,"HOMOL_NSET",homol_nset,1) + read2sigma=(index(controlcard,'READ2SIGMA').gt.0) + start_from_model=(index(controlcard,'START_FROM_MODELS').gt.0) +! if(.not.read2sigma.and.start_from_model) then +! if(me1.eq.king .or. .not. out1file .and. fg_rank.eq.0)& +! write(iout,*) 'START_FROM_MODELS works only with READ2SIGMA' +! start_from_model=.false. +! iranconf=(indpdb.le.0) +! endif +! if(start_from_model)&! .and. (me1.eq.king .or. .not. out1file))& +! write(iout,*) 'START_FROM_MODELS is ON' +! if(start_from_model .and. rest) then +! if(me.eq.king .or. .not. out1file .and. fg_rank.eq.0) then +! write(iout,*) 'START_FROM_MODELS is OFF' +! write(iout,*) 'remove restart keyword from input' +! endif +! endif +! if (start_from_model) nmodel_start=constr_homology + if(.not.allocated(waga_homology)) allocate (waga_homology(homol_nset)) + if (homol_nset.gt.1)then + call card_concat(controlcard,.true.) + read(controlcard,*) (waga_homology(i),i=1,homol_nset) +! if(me.eq.king .or. .not. out1file .and. fg_rank.eq.0) then +! write(iout,*) "iset homology_weight " +! do i=1,homol_nset + ! write(iout,*) i,waga_homology(i) + ! enddo + ! endif + iset=mod(kolor,homol_nset)+1 + else + iset=1 + waga_homology(1)=1.0 + endif + +!d write (iout,*) "nnt",nnt," nct",nct +!d call flush(iout) + if (.false.) then + print *,"here klapaciuj" +! if (read_homol_frag) then +! call read_klapaucjusz + else + + lim_odl=0 + lim_dih=0 +! +! write(iout,*) 'nnt=',nnt,'nct=',nct +! +! do i = nnt,nct +! do k=1,constr_homology +! idomain(k,i)=0 +! enddo +! enddo +! idomain=0 + +! ii=0 +! do i = nnt,nct-2 +! do j=i+2,nct +! ii=ii+1 +! ii_in_use(ii)=0 +! enddo +! enddo + ii_in_use=0 + if(.not.allocated(pdbfiles_chomo)) allocate(pdbfiles_chomo(constr_homology)) + if(.not.allocated(chomo)) allocate(chomo(3,2*nres+2,constr_homology)) + + do k=1,constr_homology + + read(inp,'(a)') pdbfile + pdbfiles_chomo(k)=pdbfile +! if(me.eq.king .or. .not. out1file) & + write (iout,'(a,5x,a)') 'HOMOL: Opening PDB file',& + pdbfile(:ilen(pdbfile)) + open(ipdbin,file=pdbfile,status='old',err=33) + goto 34 + 33 write (iout,'(a,5x,a)') 'Error opening PDB file',& + pdbfile(:ilen(pdbfile)) + stop + 34 continue +! print *,'Begin reading pdb data' +! +! Files containing res sim or local scores (former containing sigmas) +! + + write(kic2,'(bz,i2.2)') k + + tpl_k_rescore="template"//kic2//".sco" + write(iout,*) "tpl_k_rescore=",tpl_k_rescore +! unres_pdb=.false. + nres_temp=nres + write(iout,*) "read2sigma",read2sigma + + if (read2sigma) then + call readpdb_template(k) + else + call readpdb + endif + write(iout,*) "after readpdb" + if(.not.allocated(nres_chomo)) allocate(nres_chomo(constr_homology)) + nres_chomo(k)=nres + nres=nres_temp + if(.not.allocated(rescore)) allocate(rescore(constr_homology,nres)) + if(.not.allocated(rescore2)) allocate(rescore2(constr_homology,nres)) + if(.not.allocated(rescore3)) allocate(rescore3(constr_homology,nres)) + if(.not.allocated(ii_in_use)) allocate(ii_in_use(nres*(nres-1))) + if(.not.allocated(idomain)) allocate(idomain(constr_homology,nres)) + if(.not.allocated(l_homo)) allocate(l_homo(constr_homology,1000*nres)) + if(.not.allocated(ires_homo)) allocate(ires_homo(nres*200)) + if(.not.allocated(jres_homo)) allocate(jres_homo(nres*200)) + if(.not.allocated(odl)) allocate(odl(constr_homology,nres*200)) + if(.not.allocated(sigma_odl)) allocate(sigma_odl(constr_homology,nres*200)) + if(.not.allocated(dih)) allocate(dih(constr_homology,nres)) + if(.not.allocated(sigma_dih)) allocate(sigma_dih(constr_homology,nres)) + if(.not.allocated(thetatpl)) allocate(thetatpl(constr_homology,nres)) + if(.not.allocated(sigma_theta)) allocate(sigma_theta(constr_homology,nres)) +! if(.not.allocated(thetatpl)) allocate(thetatpl(constr_homology,nres)) + if(.not.allocated(sigma_d)) allocate(sigma_d(constr_homology,nres)) + if(.not.allocated(xxtpl)) allocate(xxtpl(constr_homology,nres)) + if(.not.allocated(yytpl)) allocate(yytpl(constr_homology,nres)) + if(.not.allocated(zztpl)) allocate(zztpl(constr_homology,nres)) +! if(.not.allocated(distance)) allocate(distance(constr_homology)) +! if(.not.allocated(distancek)) allocate(distancek(constr_homology)) + + +! +! Distance restraints +! +! ... --> odl(k,ii) +! Copy the coordinates from reference coordinates (?) + do i=1,2*nres_chomo(k) + do j=1,3 + c(j,i)=cref(j,i,1) +! write (iout,*) "c(",j,i,") =",c(j,i) + enddo + enddo +! +! From read_dist_constr (commented out 25/11/2014 <-> res sim) +! +! write(iout,*) "tpl_k_rescore - ",tpl_k_rescore + open (ientin,file=tpl_k_rescore,status='old') + if (nnt.gt.1) rescore(k,1)=0.0d0 + do irec=nnt,nct ! loop for reading res sim + if (read2sigma) then + read (ientin,*,end=1401) i_tmp,rescore2_tmp,rescore_tmp,& + rescore3_tmp,idomain_tmp + i_tmp=i_tmp+nnt-1 + write (*,*) "i_tmp", i_tmp,nnt + idomain(k,i_tmp)=idomain_tmp + rescore(k,i_tmp)=rescore_tmp + rescore2(k,i_tmp)=rescore2_tmp + rescore3(k,i_tmp)=rescore3_tmp +! if (.not. out1file .or. me.eq.king)& +! write(iout,'(a7,i5,3f10.5,i5)') "rescore",& +! i_tmp,rescore2_tmp,rescore_tmp,& +! rescore3_tmp,idomain_tmp + else + idomain(k,irec)=1 + read (ientin,*,end=1401) rescore_tmp + +! rescore(k,irec)=rescore_tmp+1.0d0 ! to avoid 0 values + rescore(k,irec)=0.5d0*(rescore_tmp+0.5d0) ! alt transf to reduce scores +! write(iout,*) "rescore(",k,irec,") =",rescore(k,irec) + endif + enddo + 1401 continue + close (ientin) + if (waga_dist.ne.0.0d0) then + ii=0 + do i = nnt,nct-2 + do j=i+2,nct + + x12=c(1,i)-c(1,j) + y12=c(2,i)-c(2,j) + z12=c(3,i)-c(3,j) + distal=dsqrt(x12*x12+y12*y12+z12*z12) +! write (iout,*) k,i,j,distal,dist2_cut + + if (idomain(k,i).eq.idomain(k,j).and.idomain(k,i).ne.0 & + .and. distal.le.dist2_cut ) then + + ii=ii+1 + ii_in_use(ii)=1 + l_homo(k,ii)=.true. + +! write (iout,*) "k",k +! write (iout,*) "i",i," j",j," constr_homology", +! & constr_homology + ires_homo(ii)=i + jres_homo(ii)=j + odl(k,ii)=distal + if (read2sigma) then + sigma_odl(k,ii)=0 + do ik=i,j + sigma_odl(k,ii)=sigma_odl(k,ii)+rescore2(k,ik) + enddo + sigma_odl(k,ii)=sigma_odl(k,ii)/(j-i+1) + if (odl(k,ii).gt.dist_cut) sigma_odl(k,ii) = & + sigma_odl(k,ii)*dexp(0.5d0*(odl(k,ii)/dist_cut)**2-0.5d0) + else + if (odl(k,ii).le.dist_cut) then + sigma_odl(k,ii)=rescore(k,i)+rescore(k,j) + else +#ifdef OLDSIGMA + sigma_odl(k,ii)=(rescore(k,i)+rescore(k,j))* & + dexp(0.5d0*(odl(k,ii)/dist_cut)**2) +#else + sigma_odl(k,ii)=(rescore(k,i)+rescore(k,j))* & + dexp(0.5d0*(odl(k,ii)/dist_cut)**2-0.5d0) +#endif + endif + endif + sigma_odl(k,ii)=1.0d0/(sigma_odl(k,ii)*sigma_odl(k,ii)) + else +! ii=ii+1 +! l_homo(k,ii)=.false. + endif + enddo + enddo + lim_odl=ii + endif +! write (iout,*) "Distance restraints set" +! call flush(iout) +! +! Theta, dihedral and SC retraints +! + if (waga_angle.gt.0.0d0) then +! open (ientin,file=tpl_k_sigma_dih,status='old') +! do irec=1,maxres-3 ! loop for reading sigma_dih +! read (ientin,*,end=1402) i,j,ki,l,sigma_dih(k,i+nnt-1) ! j,ki,l what for? +! if (i+nnt-1.gt.lim_dih) lim_dih=i+nnt-1 ! right? +! sigma_dih(k,i+nnt-1)=sigma_dih(k,i+nnt-1)* ! not inverse because of use of res. similarity +! & sigma_dih(k,i+nnt-1) +! enddo +!1402 continue +! close (ientin) + do i = nnt+3,nct + if (idomain(k,i).eq.0) then + sigma_dih(k,i)=0.0 + cycle + endif + dih(k,i)=phiref(i) ! right? +! read (ientin,*) sigma_dih(k,i) ! original variant +! write (iout,*) "dih(",k,i,") =",dih(k,i) +! write(iout,*) "rescore(",k,i,") =",rescore(k,i), +! & "rescore(",k,i-1,") =",rescore(k,i-1), +! & "rescore(",k,i-2,") =",rescore(k,i-2), +! & "rescore(",k,i-3,") =",rescore(k,i-3) + + sigma_dih(k,i)=(rescore(k,i)+rescore(k,i-1)+ & + rescore(k,i-2)+rescore(k,i-3))/4.0 +! if (read2sigma) sigma_dih(k,i)=sigma_dih(k,i)/4.0 +! write (iout,*) "Raw sigmas for dihedral angle restraints" +! write (iout,'(i5,10(2f8.2,4x))') i,sigma_dih(k,i) +! sigma_dih(k,i)=hmscore(k)*rescore(k,i)*rescore(k,i-1)* +! rescore(k,i-2)*rescore(k,i-3) ! right expression ? +! Instead of res sim other local measure of b/b str reliability possible + if (sigma_dih(k,i).ne.0) & + sigma_dih(k,i)=1.0d0/(sigma_dih(k,i)*sigma_dih(k,i)) +! sigma_dih(k,i)=sigma_dih(k,i)*sigma_dih(k,i) + enddo + lim_dih=nct-nnt-2 + endif +! write (iout,*) "Dihedral angle restraints set" +! call flush(iout) + + if (waga_theta.gt.0.0d0) then +! open (ientin,file=tpl_k_sigma_theta,status='old') +! do irec=1,maxres-2 ! loop for reading sigma_theta, right bounds? +! read (ientin,*,end=1403) i,j,ki,sigma_theta(k,i+nnt-1) ! j,ki what for? +! sigma_theta(k,i+nnt-1)=sigma_theta(k,i+nnt-1)* ! not inverse because of use of res. similarity +! & sigma_theta(k,i+nnt-1) +! enddo +!1403 continue +! close (ientin) + + do i = nnt+2,nct ! right? without parallel. +! do i = i=1,nres ! alternative for bounds acc to readpdb? +! do i=ithet_start,ithet_end ! with FG parallel. + if (idomain(k,i).eq.0) then + sigma_theta(k,i)=0.0 + cycle + endif + thetatpl(k,i)=thetaref(i) +! write (iout,*) "thetatpl(",k,i,") =",thetatpl(k,i) +! write(iout,*) "rescore(",k,i,") =",rescore(k,i), +! & "rescore(",k,i-1,") =",rescore(k,i-1), +! & "rescore(",k,i-2,") =",rescore(k,i-2) +! read (ientin,*) sigma_theta(k,i) ! 1st variant + sigma_theta(k,i)=(rescore(k,i)+rescore(k,i-1)+ & + rescore(k,i-2))/3.0 +! if (read2sigma) sigma_theta(k,i)=sigma_theta(k,i)/3.0 + if (sigma_theta(k,i).ne.0) & + sigma_theta(k,i)=1.0d0/(sigma_theta(k,i)*sigma_theta(k,i)) + +! sigma_theta(k,i)=hmscore(k)*rescore(k,i)*rescore(k,i-1)* +! rescore(k,i-2) ! right expression ? +! sigma_theta(k,i)=sigma_theta(k,i)*sigma_theta(k,i) + enddo + endif +! write (iout,*) "Angle restraints set" +! call flush(iout) + + if (waga_d.gt.0.0d0) then +! open (ientin,file=tpl_k_sigma_d,status='old') +! do irec=1,maxres-1 ! loop for reading sigma_theta, right bounds? +! read (ientin,*,end=1404) i,j,sigma_d(k,i+nnt-1) ! j,ki what for? +! sigma_d(k,i+nnt-1)=sigma_d(k,i+nnt-1)* ! not inverse because of use of res. similarity +! & sigma_d(k,i+nnt-1) +! enddo +!1404 continue + + do i = nnt,nct ! right? without parallel. +! do i=2,nres-1 ! alternative for bounds acc to readpdb? +! do i=loc_start,loc_end ! with FG parallel. + if (itype(i,1).eq.10) cycle + if (idomain(k,i).eq.0 ) then + sigma_d(k,i)=0.0 + cycle + endif + xxtpl(k,i)=xxref(i) + yytpl(k,i)=yyref(i) + zztpl(k,i)=zzref(i) +! write (iout,*) "xxtpl(",k,i,") =",xxtpl(k,i) +! write (iout,*) "yytpl(",k,i,") =",yytpl(k,i) +! write (iout,*) "zztpl(",k,i,") =",zztpl(k,i) +! write(iout,*) "rescore(",k,i,") =",rescore(k,i) + sigma_d(k,i)=rescore3(k,i) ! right expression ? + if (sigma_d(k,i).ne.0) & + sigma_d(k,i)=1.0d0/(sigma_d(k,i)*sigma_d(k,i)) + +! sigma_d(k,i)=hmscore(k)*rescore(k,i) ! right expression ? +! sigma_d(k,i)=sigma_d(k,i)*sigma_d(k,i) +! read (ientin,*) sigma_d(k,i) ! 1st variant + enddo + endif + enddo +! write (iout,*) "SC restraints set" +! call flush(iout) +! +! remove distance restraints not used in any model from the list +! shift data in all arrays +! +! write (iout,*) "waga_dist",waga_dist," nnt",nnt," nct",nct + if (waga_dist.ne.0.0d0) then + ii=0 + liiflag=.true. + lfirst=.true. + do i=nnt,nct-2 + do j=i+2,nct + ii=ii+1 +! if (idomain(k,i).eq.idomain(k,j).and.idomain(k,i).ne.0 +! & .and. distal.le.dist2_cut ) then +! write (iout,*) "i",i," j",j," ii",ii +! call flush(iout) + if (ii_in_use(ii).eq.0.and.liiflag.or. & + ii_in_use(ii).eq.1.and.liiflag.and.ii.eq.lim_odl) then + liiflag=.false. + i10=ii + if (lfirst) then + lfirst=.false. + iistart=ii + else + if(i10.eq.lim_odl) i10=i10+1 + do ki=0,i10-i01-1 + ires_homo(iistart+ki)=ires_homo(ki+i01) + jres_homo(iistart+ki)=jres_homo(ki+i01) + ii_in_use(iistart+ki)=ii_in_use(ki+i01) + do k=1,constr_homology + odl(k,iistart+ki)=odl(k,ki+i01) + sigma_odl(k,iistart+ki)=sigma_odl(k,ki+i01) + l_homo(k,iistart+ki)=l_homo(k,ki+i01) + enddo + enddo + iistart=iistart+i10-i01 + endif + endif + if (ii_in_use(ii).ne.0.and..not.liiflag) then + i01=ii + liiflag=.true. + endif + enddo + enddo + lim_odl=iistart-1 + endif +! write (iout,*) "Removing distances completed" +! call flush(iout) + endif ! .not. klapaucjusz + + if (constr_homology.gt.0) call homology_partition + write (iout,*) "After homology_partition" + call flush(iout) + if (constr_homology.gt.0) call init_int_table + write (iout,*) "After init_int_table" + call flush(iout) +! endif ! .not. klapaucjusz +! endif +! if (constr_homology.gt.0) call homology_partition +! write (iout,*) "After homology_partition" +! call flush(iout) +! if (constr_homology.gt.0) call init_int_table +! write (iout,*) "After init_int_table" +! call flush(iout) +! write (iout,*) "ithet_start =",ithet_start,"ithet_end =",ithet_end +! write (iout,*) "loc_start =",loc_start,"loc_end =",loc_end +! +! Print restraints +! +#ifdef DEBUG + !this debug needs correction + if (.not.out_template_restr) return +!d write(iout,*) "waga_theta",waga_theta,"waga_d",waga_d + if(me1.eq.king .or. .not. out1file .and. fg_rank.eq.0) then + write (iout,*) "Distance restraints from templates" + do ii=1,lim_odl + write(iout,'(3i7,100(2f8.2,1x,l1,4x))') & + ii,ires_homo(ii),jres_homo(ii),& + (odl(ki,ii),1.0d0/dsqrt(sigma_odl(ki,ii)),l_homo(ki,ii),& + ki=1,constr_homology) + enddo + write (iout,*) "Dihedral angle restraints from templates" + do i=nnt+3,nct + write (iout,'(i7,a4,100(2f8.2,4x))') i,restyp(itype(i,1),1),& + (rad2deg*dih(ki,i),& + rad2deg/dsqrt(sigma_dih(ki,i)),ki=1,constr_homology) + enddo + write (iout,*) "Virtual-bond angle restraints from templates" + do i=nnt+2,nct + write (iout,'(i7,a4,100(2f8.2,4x))') i,restyp(itype(i,1),1),& + (rad2deg*thetatpl(ki,i),& + rad2deg/dsqrt(sigma_theta(ki,i)),ki=1,constr_homology) + enddo + write (iout,*) "SC restraints from templates" + do i=nnt,nct + write(iout,'(i7,100(4f8.2,4x))') i,& + (xxtpl(ki,i),yytpl(ki,i),zztpl(ki,i), & + 1.0d0/dsqrt(sigma_d(ki,i)),ki=1,constr_homology) + enddo + endif +#endif + return + end subroutine read_constr_homology !------------------------------------------------------------------------------ end module io_wham !----------------------------------------------------------------------------- diff --git a/source/wham/wham_calc.F90 b/source/wham/wham_calc.F90 index 497ba0c..8a25261 100644 --- a/source/wham/wham_calc.F90 +++ b/source/wham/wham_calc.F90 @@ -79,7 +79,7 @@ sumQsq_p,sumEQ_p,sumEprim_p !(MaxQ1,0:nGridT,Max_Parm) real(kind=8) :: hfin_p(0:MaxHdim,maxT_h),& hfin_ent_p(0:MaxHdim),histE_p(0:maxindE),sumH,& - hrmsrgy_p(0:MaxBinRgy,0:MaxBinRms,maxT_h) + hrmsrgy_p(0:MaxBinRgy,0:MaxBinRms,maxT_h),weimax_(0:ngridT) real(kind=8) :: rgymin_t,rmsmin_t,rgymax_t,rmsmax_t real(kind=8) :: potEmin_t,potEmin_t_all(maxT_h,Max_Parm)!,entmin_p,entmax_p ! integer :: histent_p(0:2000) @@ -98,7 +98,8 @@ hrmsrgy(0:MaxBinRgy,0:MaxBinRms,maxT_h),& potEmin,ent,& hfin_ent(0:MaxHdim),vmax,aux,fi_min(MaxR,maxT_h,nParmSet), & - potEmin_all(maxT_h,Max_Parm),potEmin_min,entfac_min + potEmin_all(maxT_h,Max_Parm),potEmin_min,entfac_min,& + weimax(0:nGridT,Max_Parm) real(kind=8) :: fT(6),fTprim(6),fTbis(6),quot,quotl1,quotl,kfacl,& eprim,ebis,temper,kfac=2.4d0,T0=300.0d0,startGridT=200.0d0,& eplus,eminus,logfac,tanhT,tt @@ -108,8 +109,8 @@ ecationcation,ecation_prot, evdwpp,eespp ,evdwpsb,eelpsb, & evdwsb, eelsb, estr_nucl,ebe_nucl,esbloc,etors_nucl,etors_d_nucl,& ecorr_nucl, ecorr3_nucl,epeppho, escpho, epepbase,escbase,ecation_nucl,& - elipbond,elipang,eliplj,elipelec,ecat_prottran,ecation_protang,eliptran - + elipbond,elipang,eliplj,elipelec,ecat_prottran,ecation_protang,eliptran,& + ehomology_constr integer :: ind_point(maxpoint),upindE,indE @@ -383,10 +384,12 @@ ecat_prottran=enetb(56,i,iparm) ecation_protang=enetb(57,i,iparm) eliptran=enetb(22,i,iparm) + ehomology_constr=enetb(51,i,iparm) #ifdef DEBUG write (iout,'(3i5,6f5.2,15f12.3)') i,ib,iparm,(ft(l),l=1,6),& evdw+evdw_t,evdw2,ees,evdw1,ecorr,eel_loc,estr,ebe,escloc,& - etors,etors_d,eello_turn3,eello_turn4,esccor,ecationcation + etors,etors_d,eello_turn3,eello_turn4,esccor,ecationcation,& + ehomology_constr #endif !#ifdef SPLITELE @@ -396,7 +399,7 @@ ! +wstrain*ehpb+nss*ebr+ft(3)*wcorr*ecorr+ft(4)*wcorr5*ecorr5 & ! +ft(5)*wcorr6*ecorr6+ft(3)*wturn4*eello_turn4 & ! +ft(2)*wturn3*eello_turn3 & -! +ft(5)*wturn6*eturn6+ft(2)*wel_loc*eel_loc & +! +ft(5)*wturn6*eello_turn6+ft(2)*wel_loc*eel_loc & ! +edihcnstr+ft(2)*wtor_d*etors_d+ft(1)*wsccor*esccor & ! +wbond*estr !#else @@ -406,7 +409,7 @@ ! +wstrain*ehpb+nss*ebr+ft(3)*wcorr*ecorr+ft(4)*wcorr5*ecorr5 & ! +ft(5)*wcorr6*ecorr6+ft(3)*wturn4*eello_turn4 & ! +ft(2)*wturn3*eello_turn3 & -! +ft(5)*wturn6*eturn6+ft(2)*wel_loc*eel_loc+edihcnstr & +! +ft(5)*wturn6*eello_turn6+ft(2)*wel_loc*eel_loc+edihcnstr & ! +ft(2)*wtor_d*etors_d+ft(1)*wsccor*esccor & ! +wbond*estr !#endif @@ -470,6 +473,28 @@ call enerprint(energia(0)) endif #endif + write (iout,*) "homol_nset",homol_nset,nR(ib,iparm) + write (iout,*) "waga_homology", waga_homology +#ifdef DEBUG + write (iout,*) "homol_nset",homol_nset,nR(ib,iparm) +#endif + if (homol_nset.gt.1) then + + do kk=1,nR(ib,iparm) + Econstr=waga_homology(kk)*ehomology_constr + v(i,kk,ib,iparm)= & + -beta_h(ib,iparm)*(etot+Econstr) +#ifdef DEBUG + write (iout,'(4i5,4e15.5)') i,kk,ib,iparm, & + etot,Econstr,v(i,kk,ib,iparm) +#endif + enddo ! kk + + else + + etot=etot+ehomology_constr + + do kk=1,nR(ib,iparm) Econstr=0.0d0 do j=1,nQ @@ -484,6 +509,7 @@ etot,potEmin,etot-potEmin,v(i,kk,ib,iparm) #endif enddo ! kk + endif enddo ! ib enddo ! iparm enddo ! i @@ -827,6 +853,7 @@ ecat_prottran=enetb(56,i,iparm) ecation_protang=enetb(57,i,iparm) eliptran=enetb(22,i,iparm) + ehomology_constr=enetb(51,i,iparm) #ifdef SPLITELE etot=wsc*(evdw+ft(6)*evdw_t)+wscp*evdw2+ft(1)*welec*ees & +wvdwpp*evdw1 & @@ -1128,6 +1155,8 @@ ecat_prottran=enetb(56,t,iparm) ecation_protang=enetb(57,t,iparm) eliptran=enetb(22,t,iparm) + ehomology_constr=enetb(51,t,iparm) + do k=0,nGridT betaT=startGridT+k*delta_T temper=betaT @@ -1287,36 +1316,36 @@ +wtor_d_nucl*ftbis(2)*etors_d_nucl*ftbis(1)*wpepbase*epepbase #endif - weight=dexp(-betaT*(etot-potEmin)+entfac(t)) -#ifdef DEBUG - write (iout,*) "iparm",iparm," t",t," betaT",betaT,& - " etot",etot," entfac",entfac(t),& - " weight",weight," ebis",ebis -#endif - etot=etot-temper*eprim -#ifdef MPI - sumW_p(k,iparm)=sumW_p(k,iparm)+weight - sumE_p(k,iparm)=sumE_p(k,iparm)+etot*weight - sumEbis_p(k,iparm)=sumEbis_p(k,iparm)+ebis*weight - sumEsq_p(k,iparm)=sumEsq_p(k,iparm)+etot**2*weight - do j=1,nQ+2 - sumQ_p(j,k,iparm)=sumQ_p(j,k,iparm)+q(j,t)*weight - sumQsq_p(j,k,iparm)=sumQsq_p(j,k,iparm)+q(j,t)**2*weight - sumEQ_p(j,k,iparm)=sumEQ_p(j,k,iparm) & - +etot*q(j,t)*weight - enddo -#else - sumW(k,iparm)=sumW(k,iparm)+weight - sumE(k,iparm)=sumE(k,iparm)+etot*weight - sumEbis(k,iparm)=sumEbis(k,iparm)+ebis*weight - sumEsq(k,iparm)=sumEsq(k,iparm)+etot**2*weight - do j=1,nQ+2 - sumQ(j,k,iparm)=sumQ(j,k,iparm)+q(j,t)*weight - sumQsq(j,k,iparm)=sumQsq(j,k,iparm)+q(j,t)**2*weight - sumEQ(j,k,iparm)=sumEQ(j,k,iparm) & - +etot*q(j,t)*weight - enddo -#endif +! weight=dexp(-betaT*(etot-potEmin)+entfac(t)) +!#ifdef DEBUG +! write (iout,*) "iparm",iparm," t",t," betaT",betaT,& +! " etot",etot," entfac",entfac(t),& +! " weight",weight," ebis",ebis +!#endif +! etot=etot-temper*eprim +!#ifdef MPI +! sumW_p(k,iparm)=sumW_p(k,iparm)+weight +! sumE_p(k,iparm)=sumE_p(k,iparm)+etot*weight +! sumEbis_p(k,iparm)=sumEbis_p(k,iparm)+ebis*weight +! sumEsq_p(k,iparm)=sumEsq_p(k,iparm)+etot**2*weight +! do j=1,nQ+2 +! sumQ_p(j,k,iparm)=sumQ_p(j,k,iparm)+q(j,t)*weight +! sumQsq_p(j,k,iparm)=sumQsq_p(j,k,iparm)+q(j,t)**2*weight +! sumEQ_p(j,k,iparm)=sumEQ_p(j,k,iparm) & +! +etot*q(j,t)*weight +! enddo +!#else +! sumW(k,iparm)=sumW(k,iparm)+weight +! sumE(k,iparm)=sumE(k,iparm)+etot*weight +! sumEbis(k,iparm)=sumEbis(k,iparm)+ebis*weight +! sumEsq(k,iparm)=sumEsq(k,iparm)+etot**2*weight +! do j=1,nQ+2 +! sumQ(j,k,iparm)=sumQ(j,k,iparm)+q(j,t)*weight +! sumQsq(j,k,iparm)=sumQsq(j,k,iparm)+q(j,t)**2*weight +! sumEQ(j,k,iparm)=sumEQ(j,k,iparm) & +! +etot*q(j,t)*weight +! enddo +!#endif enddo indE = aint(potE(t,iparm)-aint(potEmin)) if (indE.ge.0 .and. indE.le.maxinde) then @@ -1351,6 +1380,825 @@ enddo #endif enddo ! t +! +! Thermo and ensemble averages +! + do k=0,nGridT + betaT=startGridT+k*delta_T +! call temp_scalfac(betaT,ft,ftprim,ftbis,*10) + if (rescale_mode.eq.1) then + quot=betaT/T0 + quotl=1.0d0 + kfacl=1.0d0 + do l=1,5 + quotl1=quotl + quotl=quotl*quot + kfacl=kfacl*kfac + denom=kfacl-1.0d0+quotl + fT(l)=kfacl/denom + ftprim(l)=-l*ft(l)*quotl1/(T0*denom) + ftbis(l)=l*kfacl*quotl1* & + (2*l*quotl-(l-1)*denom)/(quot*t0*t0*denom**3) + enddo +#if defined(FUNCTH) + ft(6)=(320.0d0+80.0d0*dtanh((betaT-320.0d0)/80.0d0))/ & + 320.0d0 + ftprim(6)=1.0d0/(320.0d0*dcosh((betaT-320.0d0)/80.0d0)**2) + ftbis(6)=-2.0d0*dtanh((betaT-320.0d0)/80.0d0) & + /(320.0d0*80.0d0*dcosh((betaT-320.0d0)/80.0d0)**3) +#elif defined(FUNCT) + fT(6)=betaT/T0 + ftprim(6)=1.0d0/T0 + ftbis(6)=0.0d0 +#else + fT(6)=1.0d0 + ftprim(6)=0.0d0 + ftbis(6)=0.0d0 +#endif + else if (rescale_mode.eq.2) then + quot=betaT/T0 + quotl=1.0d0 + do l=1,5 + quotl1=quotl + quotl=quotl*quot + eplus=dexp(quotl) + eminus=dexp(-quotl) + logfac=1.0d0/dlog(eplus+eminus) + tanhT=(eplus-eminus)/(eplus+eminus) + fT(l)=1.12692801104297249644d0*logfac + ftprim(l)=-l*quotl1*ft(l)*tanhT*logfac/T0 + ftbis(l)=(l-1)*ftprim(l)/(quot*T0)- & + 2*l*quotl1/T0*logfac* & + (2*l*quotl1*ft(l)/(T0*(eplus+eminus)**2) & + +ftprim(l)*tanhT) + enddo +#if defined(FUNCTH) + ft(6)=(320.0d0+80.0d0*dtanh((betaT-320.0d0)/80.0d0))/ & + 320.0d0 + ftprim(6)=1.0d0/(320.0d0*dcosh((betaT-320.0d0)/80.0d0)**2) + ftbis(6)=-2.0d0*dtanh((betaT-320.0d0)/80.0d0) & + /(320.0d0*80.0d0*dcosh((betaT-320.0d0)/80.0d0)**3) +#elif defined(FUNCT) + fT(6)=betaT/T0 + ftprim(6)=1.0d0/T0 + ftbis(6)=0.0d0 +#else + fT(6)=1.0d0 + ftprim(6)=0.0d0 + ftbis(6)=0.0d0 +#endif + else if (rescale_mode.eq.0) then + do l=1,5 + fT(l)=1.0d0 + ftprim(l)=0.0d0 + enddo + else + write (iout,*) "Error in WHAM_CALC: wrong RESCALE_MODE", & + rescale_mode + call flush(iout) +! return1 + endif + +! write (iout,*) "ftprim",ftprim +! write (iout,*) "ftbis",ftbis + betaT=1.0d0/(1.987D-3*betaT) +! 7/10/18 AL Determine the max Botzmann weights for each temerature +! call sum_ene(1,iparm,ft,etot) + evdw=enetb(1,1,iparm) + evdw_t=enetb(20,1,iparm) +#ifdef SCP14 + evdw2_14=enetb(18,1,iparm) + evdw2=enetb(2,1,iparm)+evdw2_14 +#else + evdw2=enetb(2,1,iparm) + evdw2_14=0.0d0 +#endif +#ifdef SPLITELE + ees=enetb(3,1,iparm) + evdw1=enetb(16,1,iparm) +#else + ees=enetb(3,1,iparm) + evdw1=0.0d0 +#endif + ecorr=enetb(4,1,iparm) + ecorr5=enetb(5,1,iparm) + ecorr6=enetb(6,1,iparm) + eel_loc=enetb(7,1,iparm) + eello_turn3=enetb(8,1,iparm) + eello_turn4=enetb(9,1,iparm) + eello_turn6=enetb(10,1,iparm) + ebe=enetb(11,1,iparm) + escloc=enetb(12,1,iparm) + etors=enetb(13,1,iparm) + etors_d=enetb(14,1,iparm) + ehpb=enetb(15,1,iparm) + estr=enetb(17,1,iparm) + esccor=enetb(21,1,iparm) + edihcnstr=enetb(19,1,iparm) +! eliptran=enetb(22,1,iparm) +! esaxs=enetb(26,1,iparm) + ecationcation=enetb(41,1,iparm) + ecation_prot=enetb(42,1,iparm) + evdwpp = enetb(26,1,iparm) + eespp = enetb(27,1,iparm) + evdwpsb = enetb(28,1,iparm) + eelpsb = enetb(29,1,iparm) + evdwsb = enetb(30,1,iparm) + eelsb = enetb(31,1,iparm) + estr_nucl = enetb(32,1,iparm) + ebe_nucl = enetb(33,1,iparm) + esbloc = enetb(34,1,iparm) + etors_nucl = enetb(35,1,iparm) + etors_d_nucl = enetb(36,1,iparm) + ecorr_nucl = enetb(37,1,iparm) + ecorr3_nucl = enetb(38,1,iparm) + epeppho= enetb(49,1,iparm) + escpho= enetb(48,1,iparm) + epepbase= enetb(47,1,iparm) + escbase= enetb(46,1,iparm) + ecation_nucl= enetb(50,1,iparm) + ehomology_constr=enetb(51,1,iparm) + +#ifdef SPLITELE + if (shield_mode.gt.0) then + etot=ft(1)*wsc*(evdw+ft(6)*evdw_t)+ft(1)*wscp*evdw2 & + +ft(1)*welec*ees & + +ft(1)*wvdwpp*evdw1 & + +wang*ebe+ft(1)*wtor*etors+wscloc*escloc & +! & +wstrain*ehpb+nss*ebr+ft(3)*wcorr*ecorr+ft(4)*wcorr5*ecorr5 + +wstrain*ehpb+ft(3)*wcorr*ecorr+ft(4)*wcorr5*ecorr5 & + +ft(5)*wcorr6*ecorr6+ft(3)*wturn4*eello_turn4 & + +ft(2)*wturn3*eello_turn3 & + +ft(5)*wturn6*eello_turn6+ft(2)*wel_loc*eel_loc & + +edihcnstr+ft(2)*wtor_d*etors_d+ft(1)*wsccor*esccor & + +wbond*estr+wcatprot*ecation_prot+wcatcat*ecationcation & + +wbond_nucl*estr_nucl+wang_nucl*ebe_nucl& + +wvdwpp_nucl*evdwpp+welpp*eespp+wvdwpsb*evdwpsb+welpsb*eelpsb& + +wvdwsb*evdwsb+welsb*eelsb+wsbloc*esbloc+wtor_nucl*etors_nucl& + *ft(1)+wtor_d_nucl*ft(2)*etors_d_nucl+wcorr_nucl*ecorr_nucl & + +wcorr3_nucl*ecorr3_nucl& + +wscbase*escbase& + +ft(1)*wpepbase*epepbase+wscpho*escpho+wpeppho*epeppho & + + wcatnucl*ecation_nucl + + + else + etot=wsc*(evdw+ft(6)*evdw_t)+wscp*evdw2+ft(1)*welec*ees & + +wvdwpp*evdw1 & + +wang*ebe+ft(1)*wtor*etors+wscloc*escloc & +! & +wstrain*ehpb+nss*ebr+ft(3)*wcorr*ecorr+ft(4)*wcorr5*ecorr5 + +wstrain*ehpb+ft(3)*wcorr*ecorr+ft(4)*wcorr5*ecorr5 & + +ft(5)*wcorr6*ecorr6+ft(3)*wturn4*eello_turn4 & + +ft(2)*wturn3*eello_turn3 & + +ft(5)*wturn6*eello_turn6+ft(2)*wel_loc*eel_loc & + +edihcnstr+ft(2)*wtor_d*etors_d+ft(1)*wsccor*esccor & + +wbond*estr+wcatprot*ecation_prot+wcatcat*ecationcation & + +wbond_nucl*estr_nucl+wang_nucl*ebe_nucl& + +wvdwpp_nucl*evdwpp+welpp*eespp+wvdwpsb*evdwpsb+welpsb*eelpsb& + +wvdwsb*evdwsb+welsb*eelsb+wsbloc*esbloc+wtor_nucl*etors_nucl& + *ft(1)+wtor_d_nucl*ft(2)*etors_d_nucl+wcorr_nucl*ecorr_nucl & + +wcorr3_nucl*ecorr3_nucl& + +wscbase*escbase& + +ft(1)*wpepbase*epepbase+wscpho*escpho+wpeppho*epeppho & + + wcatnucl*ecation_nucl + + endif +#else + if (shield_mode.gt.0) then + etot=ft(1)*wsc*(evdw+ft(6)*evdw_t)+ft(1)*wscp*evdw2 & + +ft(1)*welec*(ees+evdw1) & + +wang*ebe+ft(1)*wtor*etors+wscloc*escloc & +! & +wstrain*ehpb+nss*ebr+ft(3)*wcorr*ecorr+ft(4)*wcorr5*ecorr5 + +wstrain*ehpb+ft(3)*wcorr*ecorr+ft(4)*wcorr5*ecorr5 & + +ft(5)*wcorr6*ecorr6+ft(3)*wturn4*eello_turn4 & + +ft(2)*wturn3*eello_turn3 & + +ft(5)*wturn6*eello_turn6+ft(2)*wel_loc*eel_loc+edihcnstr & + +ft(2)*wtor_d*etors_d+ft(1)*wsccor*esccor & + +wbond*estr+wcatprot*ecation_prot+wcatcat*ecationcation & + +wbond_nucl*estr_nucl+wang_nucl*ebe_nucl& + +wvdwpp_nucl*evdwpp+welpp*eespp+wvdwpsb*evdwpsb+welpsb*eelpsb& + +wvdwsb*evdwsb+welsb*eelsb+wsbloc*esbloc+wtor_nucl*etors_nucl& + *ft(1)+wtor_d_nucl*ft(2)*etors_d_nucl+wcorr_nucl*ecorr_nucl & + +wcorr3_nucl*ecorr3_nucl& + +wscbase*escbase& + +ft(1)*wpepbase*epepbase+wscpho*escpho+wpeppho*epeppho & + + wcatnucl*ecation_nucl + + else + etot=wsc*(evdw+ft(6)*evdw_t)+wscp*evdw2 & + +ft(1)*welec*(ees+evdw1) & + +wang*ebe+ft(1)*wtor*etors+wscloc*escloc & +! & +wstrain*ehpb+nss*ebr+ft(3)*wcorr*ecorr+ft(4)*wcorr5*ecorr5 + +wstrain*ehpb+ft(3)*wcorr*ecorr+ft(4)*wcorr5*ecorr5 & + +ft(5)*wcorr6*ecorr6+ft(3)*wturn4*eello_turn4 & + +ft(2)*wturn3*eello_turn3 & + +ft(5)*wturn6*eello_turn6+ft(2)*wel_loc*eel_loc+edihcnstr & + +ft(2)*wtor_d*etors_d+ft(1)*wsccor*esccor & + +wbond*estr+wcatprot*ecation_prot+wcatcat*ecationcation & + +wbond_nucl*estr_nucl+wang_nucl*ebe_nucl& + +wvdwpp_nucl*evdwpp+welpp*eespp+wvdwpsb*evdwpsb+welpsb*eelpsb& + +wvdwsb*evdwsb+welsb*eelsb+wsbloc*esbloc+wtor_nucl*etors_nucl& + *ft(1)+wtor_d_nucl*ft(2)*etors_d_nucl+wcorr_nucl*ecorr_nucl & + +wcorr3_nucl*ecorr3_nucl& + +wscbase*escbase& + +ft(1)*wpepbase*epepbase+wscpho*escpho+wpeppho*epeppho & + + wcatnucl*ecation_nucl + + endif +#endif + + weimax(k,iparm)=-betaT*(etot-potEmin)+entfac(1) +! write (iout,*) "k",k," t",1," weight",weimax(k,iparm) +#ifdef MPI + do t=2,scount(me1) +#else + do t=2,ntot(islice) +#endif +! call sum_ene(t,iparm,ft,etot) + evdw=enetb(1,t,iparm) + evdw_t=enetb(20,t,iparm) +#ifdef SCP14 + evdw2_14=enetb(18,t,iparm) + evdw2=enetb(2,t,iparm)+evdw2_14 +#else + evdw2=enetb(2,t,iparm) + evdw2_14=0.0d0 +#endif +#ifdef SPLITELE + ees=enetb(3,t,iparm) + evdw1=enetb(16,t,iparm) +#else + ees=enetb(3,t,iparm) + evdw1=0.0d0 +#endif + ecorr=enetb(4,t,iparm) + ecorr5=enetb(5,t,iparm) + ecorr6=enetb(6,t,iparm) + eel_loc=enetb(7,t,iparm) + eello_turn3=enetb(8,t,iparm) + eello_turn4=enetb(9,t,iparm) + eello_turn6=enetb(10,t,iparm) + ebe=enetb(11,t,iparm) + escloc=enetb(12,t,iparm) + etors=enetb(13,t,iparm) + etors_d=enetb(14,t,iparm) + ehpb=enetb(15,t,iparm) + estr=enetb(17,t,iparm) + esccor=enetb(21,t,iparm) + edihcnstr=enetb(19,t,iparm) +! eliptran=enetb(22,t,iparm) +! esaxs=enetb(26,t,iparm) + ecationcation=enetb(41,t,iparm) + ecation_prot=enetb(42,t,iparm) + evdwpp = enetb(26,t,iparm) + eespp = enetb(27,t,iparm) + evdwpsb = enetb(28,t,iparm) + eelpsb = enetb(29,t,iparm) + evdwsb = enetb(30,t,iparm) + eelsb = enetb(31,t,iparm) + estr_nucl = enetb(32,t,iparm) + ebe_nucl = enetb(33,t,iparm) + esbloc = enetb(34,t,iparm) + etors_nucl = enetb(35,t,iparm) + etors_d_nucl = enetb(36,t,iparm) + ecorr_nucl = enetb(37,t,iparm) + ecorr3_nucl = enetb(38,t,iparm) + epeppho= enetb(49,t,iparm) + escpho= enetb(48,t,iparm) + epepbase= enetb(47,t,iparm) + escbase= enetb(46,t,iparm) + ecation_nucl=enetb(50,t,iparm) + ehomology_constr=enetb(51,t,iparm) + +#ifdef SPLITELE + if (shield_mode.gt.0) then + etot=ft(1)*wsc*(evdw+ft(6)*evdw_t)+ft(1)*wscp*evdw2 & + +ft(1)*welec*ees & + +ft(1)*wvdwpp*evdw1 & + +wang*ebe+ft(1)*wtor*etors+wscloc*escloc & +! & +wstrain*ehpb+nss*ebr+ft(3)*wcorr*ecorr+ft(4)*wcorr5*ecorr5 + +wstrain*ehpb+ft(3)*wcorr*ecorr+ft(4)*wcorr5*ecorr5 & + +ft(5)*wcorr6*ecorr6+ft(3)*wturn4*eello_turn4 & + +ft(2)*wturn3*eello_turn3 & + +ft(5)*wturn6*eello_turn6+ft(2)*wel_loc*eel_loc & + +edihcnstr+ft(2)*wtor_d*etors_d+ft(1)*wsccor*esccor & + +wbond*estr+wcatprot*ecation_prot+wcatcat*ecationcation & + +wbond_nucl*estr_nucl+wang_nucl*ebe_nucl& + +wvdwpp_nucl*evdwpp+welpp*eespp+wvdwpsb*evdwpsb+welpsb*eelpsb& + +wvdwsb*evdwsb+welsb*eelsb+wsbloc*esbloc+wtor_nucl*etors_nucl& + *ft(1)+wtor_d_nucl*ft(2)*etors_d_nucl+wcorr_nucl*ecorr_nucl & + +wcorr3_nucl*ecorr3_nucl& + +wscbase*escbase& + +ft(1)*wpepbase*epepbase+wscpho*escpho+wpeppho*epeppho & + + wcatnucl*ecation_nucl + + else + etot=wsc*(evdw+ft(6)*evdw_t)+wscp*evdw2+ft(1)*welec*ees & + +wvdwpp*evdw1 & + +wang*ebe+ft(1)*wtor*etors+wscloc*escloc & +! & +wstrain*ehpb+nss*ebr+ft(3)*wcorr*ecorr+ft(4)*wcorr5*ecorr5 + +wstrain*ehpb+ft(3)*wcorr*ecorr+ft(4)*wcorr5*ecorr5 & + +ft(5)*wcorr6*ecorr6+ft(3)*wturn4*eello_turn4 & + +ft(2)*wturn3*eello_turn3 & + +ft(5)*wturn6*eello_turn6+ft(2)*wel_loc*eel_loc & + +edihcnstr+ft(2)*wtor_d*etors_d+ft(1)*wsccor*esccor & + +wbond*estr+wcatprot*ecation_prot+wcatcat*ecationcation & + +wbond_nucl*estr_nucl+wang_nucl*ebe_nucl& + +wvdwpp_nucl*evdwpp+welpp*eespp+wvdwpsb*evdwpsb+welpsb*eelpsb& + +wvdwsb*evdwsb+welsb*eelsb+wsbloc*esbloc+wtor_nucl*etors_nucl& + *ft(1)+wtor_d_nucl*ft(2)*etors_d_nucl+wcorr_nucl*ecorr_nucl & + +wcorr3_nucl*ecorr3_nucl& + +wscbase*escbase& + +ft(1)*wpepbase*epepbase+wscpho*escpho+wpeppho*epeppho & + + wcatnucl*ecation_nucl + endif +#else + if (shield_mode.gt.0) then + etot=ft(1)*wsc*(evdw+ft(6)*evdw_t)+ft(1)*wscp*evdw2 & + +ft(1)*welec*(ees+evdw1) & + +wang*ebe+ft(1)*wtor*etors+wscloc*escloc & +! & +wstrain*ehpb+nss*ebr+ft(3)*wcorr*ecorr+ft(4)*wcorr5*ecorr5 + +wstrain*ehpb+ft(3)*wcorr*ecorr+ft(4)*wcorr5*ecorr5 & + +ft(5)*wcorr6*ecorr6+ft(3)*wturn4*eello_turn4 & + +ft(2)*wturn3*eello_turn3 & + +ft(5)*wturn6*eello_turn6+ft(2)*wel_loc*eel_loc+edihcnstr & + +ft(2)*wtor_d*etors_d+ft(1)*wsccor*esccor & + +wbond*estr+wcatprot*ecation_prot+wcatcat*ecationcation & + +wbond_nucl*estr_nucl+wang_nucl*ebe_nucl& + +wvdwpp_nucl*evdwpp+welpp*eespp+wvdwpsb*evdwpsb+welpsb*eelpsb& + +wvdwsb*evdwsb+welsb*eelsb+wsbloc*esbloc+wtor_nucl*etors_nucl& + *ft(1)+wtor_d_nucl*ft(2)*etors_d_nucl+wcorr_nucl*ecorr_nucl & + +wcorr3_nucl*ecorr3_nucl& + +wscbase*escbase& + +ft(1)*wpepbase*epepbase+wscpho*escpho+wpeppho*epeppho & + + wcatnucl*ecation_nucl + else + etot=wsc*(evdw+ft(6)*evdw_t)+wscp*evdw2 & + +ft(1)*welec*(ees+evdw1) & + +wang*ebe+ft(1)*wtor*etors+wscloc*escloc & +! & +wstrain*ehpb+nss*ebr+ft(3)*wcorr*ecorr+ft(4)*wcorr5*ecorr5 + +wstrain*ehpb+ft(3)*wcorr*ecorr+ft(4)*wcorr5*ecorr5 & + +ft(5)*wcorr6*ecorr6+ft(3)*wturn4*eello_turn4 & + +ft(2)*wturn3*eello_turn3 & + +ft(5)*wturn6*eello_turn6+ft(2)*wel_loc*eel_loc+edihcnstr & + +ft(2)*wtor_d*etors_d+ft(1)*wsccor*esccor & + +wbond*estr+wcatprot*ecation_prot+wcatcat*ecationcation & + +wbond_nucl*estr_nucl+wang_nucl*ebe_nucl& + +wvdwpp_nucl*evdwpp+welpp*eespp+wvdwpsb*evdwpsb+welpsb*eelpsb& + +wvdwsb*evdwsb+welsb*eelsb+wsbloc*esbloc+wtor_nucl*etors_nucl& + *ft(1)+wtor_d_nucl*ft(2)*etors_d_nucl+wcorr_nucl*ecorr_nucl & + +wcorr3_nucl*ecorr3_nucl& + +wscbase*escbase& + +ft(1)*wpepbase*epepbase+wscpho*escpho+wpeppho*epeppho & + + wcatnucl*ecation_nucl + endif +#endif + + weight=-betaT*(etot-potEmin)+entfac(t) +! write (iout,*) "k",k," t",t," weight",weight + if (weight.gt.weimax(k,iparm)) weimax(k,iparm)=weight + enddo +#ifdef MPI + enddo +#ifdef DEBUG + write (iout,*) "weimax before REDUCE" + write (iout,*) (weimax(k,iparm),k=0,ngridt) +#endif + do k=0,nGridT + weimax_(k)=weimax(k,iparm) + enddo + call MPI_Allreduce(weimax_(0),weimax(0,iparm),nGridT+1, & + MPI_DOUBLE_PRECISION,MPI_MAX,WHAM_COMM,IERROR) +#ifdef DEBUG + write (iout,*) "weimax" + write (iout,*) (weimax(k,iparm),k=0,ngridt) +#endif + do k=0,nGridT + weimax_(k)=weimax(k,iparm) + enddo + call MPI_Allreduce(weimax_(0),weimax(0,iparm),nGridT+1, & + MPI_DOUBLE_PRECISION,MPI_MAX,WHAM_COMM,IERROR) +#ifdef DEBUG + write (iout,*) "weimax" + write (iout,*) (weimax(k,iparm),k=0,ngridt) +#endif + do k=0,nGridT + temper=startGridT+k*delta_T + betaT=1.0d0/(1.987D-3*temper) +! call temp_scalfac(temper,ft,ftprim,ftbis,*10) + if (rescale_mode.eq.1) then + quot=temper/T0 + quotl=1.0d0 + kfacl=1.0d0 + do l=1,5 + quotl1=quotl + quotl=quotl*quot + kfacl=kfacl*kfac + denom=kfacl-1.0d0+quotl + fT(l)=kfacl/denom + ftprim(l)=-l*ft(l)*quotl1/(T0*denom) + ftbis(l)=l*kfacl*quotl1*& + (2*l*quotl-(l-1)*denom)/(quot*t0*t0*denom**3) + enddo +#if defined(FUNCTH) + ft(6)=(320.0d0+80.0d0*dtanh((temper-320.0d0)/80.0d0))/ & + 320.0d0 + ftprim(6)=1.0d0/(320.0d0*dcosh((temper-320.0d0)/80.0d0)**2) + ftbis(6)=-2.0d0*dtanh((temper-320.0d0)/80.0d0) & + /(320.0d0*80.0d0*dcosh((temper-320.0d0)/80.0d0)**3) +#elif defined(FUNCT) + fT(6)=temper/T0 + ftprim(6)=1.0d0/T0 + ftbis(6)=0.0d0 +#else + fT(6)=1.0d0 + ftprim(6)=0.0d0 + ftbis(6)=0.0d0 +#endif + else if (rescale_mode.eq.2) then + quot=temper/T0 + quotl=1.0d0 + do l=1,5 + quotl1=quotl + quotl=quotl*quot + eplus=dexp(quotl) + eminus=dexp(-quotl) + logfac=1.0d0/dlog(eplus+eminus) + tanhT=(eplus-eminus)/(eplus+eminus) + fT(l)=1.12692801104297249644d0*logfac + ftprim(l)=-l*quotl1*ft(l)*tanhT*logfac/T0 + ftbis(l)=(l-1)*ftprim(l)/(quot*T0)- & + 2*l*quotl1/T0*logfac* & + (2*l*quotl1*ft(l)/(T0*(eplus+eminus)**2) & + +ftprim(l)*tanhT) + enddo +#if defined(FUNCTH) + ft(6)=(320.0d0+80.0d0*dtanh((temper-320.0d0)/80.0d0))/ & + 320.0d0 + ftprim(6)=1.0d0/(320.0d0*dcosh((temper-320.0d0)/80.0d0)**2) + ftbis(6)=-2.0d0*dtanh((temper-320.0d0)/80.0d0) & + /(320.0d0*80.0d0*dcosh((temper-320.0d0)/80.0d0)**3) +#elif defined(FUNCT) + fT(6)=temper/T0 + ftprim(6)=1.0d0/T0 + ftbis(6)=0.0d0 +#else + fT(6)=1.0d0 + ftprim(6)=0.0d0 + ftbis(6)=0.0d0 +#endif + else if (rescale_mode.eq.0) then + do l=1,5 + fT(l)=1.0d0 + ftprim(l)=0.0d0 + enddo + else + write (iout,*) "Error in WHAM_CALC: wrong RESCALE_MODE", & + rescale_mode + call flush(iout) +! return1 + endif + + + + do t=1,scount(me1) +#else + do t=1,ntot(islice) +#endif + ind = ind_point(t) +#ifdef MPI + hfin_ent_p(ind)=hfin_ent_p(ind)+dexp(entfac(t)) +#else + hfin_ent(ind)=hfin_ent(ind)+dexp(entfac(t)) +#endif +! write (iout,'(2i5,20f8.2)') t,t,(enetb(k,t,iparm),k=1,18) +! call restore_parm(iparm) +! call sum_ene_deriv(t,iparm,ft,ftprim,ftbis,etot,eprim,ebis) + evdw=enetb(1,t,iparm) + evdw_t=enetb(20,t,iparm) +#ifdef SCP14 + evdw2_14=enetb(18,t,iparm) + evdw2=enetb(2,t,iparm)+evdw2_14 +#else + evdw2=enetb(2,t,iparm) + evdw2_14=0.0d0 +#endif +#ifdef SPLITELE + ees=enetb(3,t,iparm) + evdw1=enetb(16,t,iparm) +#else + ees=enetb(3,t,iparm) + evdw1=0.0d0 +#endif + ecorr=enetb(4,t,iparm) + ecorr5=enetb(5,t,iparm) + ecorr6=enetb(6,t,iparm) + eel_loc=enetb(7,t,iparm) + eello_turn3=enetb(8,t,iparm) + eello_turn4=enetb(9,t,iparm) + eello_turn6=enetb(10,t,iparm) + ebe=enetb(11,t,iparm) + escloc=enetb(12,t,iparm) + etors=enetb(13,t,iparm) + etors_d=enetb(14,t,iparm) + ehpb=enetb(15,t,iparm) + estr=enetb(17,t,iparm) + esccor=enetb(21,t,iparm) + edihcnstr=enetb(19,t,iparm) +! eliptran=enetb(22,t,iparm) +! esaxs=enetb(26,t,iparm) +! ehomology_constr=enetb(27,t,iparm) +! edfadis=enetb(28,t,iparm) +! edfator=enetb(29,t,iparm) +! edfanei=enetb(30,t,iparm) +! edfabet=enetb(31,t,iparm) + ecationcation=enetb(41,i,iparm) + ecation_prot=enetb(42,i,iparm) + evdwpp = enetb(26,i,iparm) + eespp = enetb(27,i,iparm) + evdwpsb = enetb(28,i,iparm) + eelpsb = enetb(29,i,iparm) + evdwsb = enetb(30,i,iparm) + eelsb = enetb(31,i,iparm) + estr_nucl = enetb(32,i,iparm) + ebe_nucl = enetb(33,i,iparm) + esbloc = enetb(34,i,iparm) + etors_nucl = enetb(35,i,iparm) + etors_d_nucl = enetb(36,i,iparm) + ecorr_nucl = enetb(37,i,iparm) + ecorr3_nucl = enetb(38,i,iparm) + epeppho= enetb(49,i,iparm) + escpho= enetb(48,i,iparm) + epepbase= enetb(47,i,iparm) + escbase= enetb(46,i,iparm) + ecation_nucl= enetb(50,i,iparm) + ehomology_constr=enetb(51,i,iparm) + +#ifdef SPLITELE + if (shield_mode.gt.0) then + etot=ft(1)*wsc*(evdw+ft(6)*evdw_t)+ft(1)*wscp*evdw2 & + +ft(1)*welec*ees & + +ft(1)*wvdwpp*evdw1 & + +wang*ebe+ft(1)*wtor*etors+wscloc*escloc & +! & +wstrain*ehpb+nss*ebr+ft(3)*wcorr*ecorr+ft(4)*wcorr5*ecorr5 + +wstrain*ehpb+ft(3)*wcorr*ecorr+ft(4)*wcorr5*ecorr5 & + +ft(5)*wcorr6*ecorr6+ft(3)*wturn4*eello_turn4 & + +ft(2)*wturn3*eello_turn3 & + +ft(5)*wturn6*eello_turn6+ft(2)*wel_loc*eel_loc & + +edihcnstr+ft(2)*wtor_d*etors_d+ft(1)*wsccor*esccor & + +wbond*estr+wcatprot*ecation_prot+wcatcat*ecationcation & + +wbond_nucl*estr_nucl+wang_nucl*ebe_nucl& + +wvdwpp_nucl*evdwpp+welpp*eespp+wvdwpsb*evdwpsb+welpsb*eelpsb& + +wvdwsb*evdwsb+welsb*eelsb+wsbloc*esbloc+wtor_nucl*etors_nucl& + *ft(1)+wtor_d_nucl*ft(2)*etors_d_nucl+wcorr_nucl*ecorr_nucl & + +wcorr3_nucl*ecorr3_nucl& + +wscbase*escbase& + +ft(1)*wpepbase*epepbase+wscpho*escpho+wpeppho*epeppho & + + wcatnucl*ecation_nucl + +! eprim=ftprim(1)*(ft(6)*evdw_t+evdw) +!! & +ftprim(6)*evdw_t +! & +ftprim(1)*wscp*evdw2 +! & +ftprim(1)*welec*ees +! & +ftprim(1)*wvdwpp*evdw1 +! & +ftprim(1)*wtor*etors+ +! & ftprim(3)*wcorr*ecorr+ftprim(4)*wcorr5*ecorr5+ +! & ftprim(5)*wcorr6*ecorr6+ftprim(3)*wturn4*eello_turn4+ +! & ftprim(2)*wturn3*eello_turn3+ftprim(5)*wturn6*eello_turn6+ +! & ftprim(2)*wel_loc*eel_loc+ftprim(2)*wtor_d*etors_d+ +! & ftprim(1)*wsccor*esccor + +! ebis=ftbis(1)*wsc*(evdw+ft(6)*evdw_t) +! & +ftbis(1)*wscp*evdw2+ +! & ftbis(1)*welec*ees +! & +ftbis(1)*wvdwpp*evdw +! & +ftbis(1)*wtor*etors+ +! & ftbis(3)*wcorr*ecorr+ftbis(4)*wcorr5*ecorr5+ +! & ftbis(5)*wcorr6*ecorr6+ftbis(3)*wturn4*eello_turn4+ +! & ftbis(2)*wturn3*eello_turn3+ftbis(5)*wturn6*eello_turn6+ +! & ftbis(2)*wel_loc*eel_loc+ftbis(2)*wtor_d*etors_d+ +! & ftbis(1)*wsccor*esccor + + eprim=ftprim(6)*evdw_t+ftprim(1)*welec*(ees+evdw1) & + +ftprim(1)*wtor*etors+ & + ftprim(3)*wcorr*ecorr+ftprim(4)*wcorr5*ecorr5+ & + ftprim(5)*wcorr6*ecorr6+ftprim(3)*wturn4*eello_turn4+ & + ftprim(2)*wturn3*eello_turn3+ftprim(5)*wturn6*eello_turn6+ & + ftprim(2)*wel_loc*eel_loc+ftprim(2)*wtor_d*etors_d+ & + ftprim(1)*wsccor*esccor+ftprim(1)*wtor_nucl*etors_nucl& + +wtor_d_nucl*ftprim(2)*etors_d_nucl+ftprim(1)*wpepbase*epepbase + ebis=ftbis(1)*welec*(ees+evdw1)+ftbis(1)*wtor*etors+ & + ftbis(3)*wcorr*ecorr+ftbis(4)*wcorr5*ecorr5+ & + ftbis(5)*wcorr6*ecorr6+ftbis(3)*wturn4*eello_turn4+ & + ftbis(2)*wturn3*eello_turn3+ftbis(5)*wturn6*eello_turn6+ & + ftbis(2)*wel_loc*eel_loc+ftbis(2)*wtor_d*etors_d+ & + ftbis(1)*wsccor*esccor+ftbis(1)*wtor_nucl*etors_nucl& + +wtor_d_nucl*ftbis(2)*etors_d_nucl*ftbis(1)*wpepbase*epepbase + + + + else + etot=wsc*(evdw+ft(6)*evdw_t)+wscp*evdw2+ft(1)*welec*ees & + +wvdwpp*evdw1 & + +wang*ebe+ft(1)*wtor*etors+wscloc*escloc & +!c & +wstrain*ehpb+nss*ebr+ft(3)*wcorr*ecorr+ft(4)*wcorr5*ecorr5 + +wstrain*ehpb+ft(3)*wcorr*ecorr+ft(4)*wcorr5*ecorr5 & + +ft(5)*wcorr6*ecorr6+ft(3)*wturn4*eello_turn4 & + +ft(2)*wturn3*eello_turn3 & + +ft(5)*wturn6*eello_turn6+ft(2)*wel_loc*eel_loc & + +edihcnstr+ft(2)*wtor_d*etors_d+ft(1)*wsccor*esccor & + +wbond*estr+wcatprot*ecation_prot+wcatcat*ecationcation& + +wbond_nucl*estr_nucl+wang_nucl*ebe_nucl& + +wvdwpp_nucl*evdwpp+welpp*eespp+wvdwpsb*evdwpsb+welpsb*eelpsb& + +wvdwsb*evdwsb+welsb*eelsb+wsbloc*esbloc+wtor_nucl*etors_nucl& + *ft(1)+wtor_d_nucl*ft(2)*etors_d_nucl+wcorr_nucl*ecorr_nucl & + +wcorr3_nucl*ecorr3_nucl& + +wscbase*escbase& + +ft(1)*wpepbase*epepbase+wscpho*escpho+wpeppho*epeppho& + + wcatnucl*ecation_nucl + + + eprim=ftprim(6)*evdw_t+ftprim(1)*welec*(ees+evdw1) & + +ftprim(1)*wtor*etors+ & + ftprim(3)*wcorr*ecorr+ftprim(4)*wcorr5*ecorr5+ & + ftprim(5)*wcorr6*ecorr6+ftprim(3)*wturn4*eello_turn4+ & + ftprim(2)*wturn3*eello_turn3+ftprim(5)*wturn6*eello_turn6+ & + ftprim(2)*wel_loc*eel_loc+ftprim(2)*wtor_d*etors_d+ & + ftprim(1)*wsccor*esccor+ftprim(1)*wtor_nucl*etors_nucl& + +wtor_d_nucl*ftprim(2)*etors_d_nucl+ftprim(1)*wpepbase*epepbase + ebis=ftbis(1)*welec*(ees+evdw1)+ftbis(1)*wtor*etors+ & + ftbis(3)*wcorr*ecorr+ftbis(4)*wcorr5*ecorr5+ & + ftbis(5)*wcorr6*ecorr6+ftbis(3)*wturn4*eello_turn4+ & + ftbis(2)*wturn3*eello_turn3+ftbis(5)*wturn6*eello_turn6+ & + ftbis(2)*wel_loc*eel_loc+ftbis(2)*wtor_d*etors_d+ & + ftbis(1)*wsccor*esccor+ftbis(1)*wtor_nucl*etors_nucl& + +wtor_d_nucl*ftbis(2)*etors_d_nucl*ftbis(1)*wpepbase*epepbase + + + +! eprim=ftprim(6)*evdw_t+ftprim(1)*welec*ees +! & +ftprim(1)*wtor*etors+ +! & ftprim(3)*wcorr*ecorr+ftprim(4)*wcorr5*ecorr5+ +! & ftprim(5)*wcorr6*ecorr6+ftprim(3)*wturn4*eello_turn4+ +! & ftprim(2)*wturn3*eello_turn3+ftprim(5)*wturn6*eello_turn6+ +! & ftprim(2)*wel_loc*eel_loc+ftprim(2)*wtor_d*etors_d+ +! & ftprim(1)*wsccor*esccor +! ebis=ftbis(1)*welec*ees+ftbis(1)*wtor*etors+ +! & ftbis(3)*wcorr*ecorr+ftbis(4)*wcorr5*ecorr5+ +! & ftbis(5)*wcorr6*ecorr6+ftbis(3)*wturn4*eello_turn4+ +! & ftbis(2)*wturn3*eello_turn3+ftbis(5)*wturn6*eello_turn6+ +! & ftbis(2)*wel_loc*eel_loc+ftbis(2)*wtor_d*etors_d+ +! & ftbis(1)*wsccor*esccor + endif +#else + if (shield_mode.gt.0) then + etot=ft(1)*wsc*(evdw+ft(6)*evdw_t)+ft(1)*wscp*evdw2 & + +ft(1)*welec*(ees+evdw1) & + +wang*ebe+ft(1)*wtor*etors+wscloc*escloc & +!c & +wstrain*ehpb+nss*ebr+ft(3)*wcorr*ecorr+ft(4)*wcorr5*ecorr5 + +wstrain*ehpb+ft(3)*wcorr*ecorr+ft(4)*wcorr5*ecorr5 & + +ft(5)*wcorr6*ecorr6+ft(3)*wturn4*eello_turn4 & + +ft(2)*wturn3*eello_turn3 & + +ft(5)*wturn6*eello_turn6+ft(2)*wel_loc*eel_loc+edihcnstr & + +ft(2)*wtor_d*etors_d+ft(1)*wsccor*esccor & + +wbond*estr+wcatprot*ecation_prot+wcatcat*ecationcation& + +wbond_nucl*estr_nucl+wang_nucl*ebe_nucl& + +wvdwpp_nucl*evdwpp+welpp*eespp+wvdwpsb*evdwpsb+welpsb*eelpsb& + +wvdwsb*evdwsb+welsb*eelsb+wsbloc*esbloc+wtor_nucl*etors_nucl& + *ft(1)+wtor_d_nucl*ft(2)*etors_d_nucl+wcorr_nucl*ecorr_nucl & + +wcorr3_nucl*ecorr3_nucl& + +wscbase*escbase& + +ft(1)*wpepbase*epepbase+wscpho*escpho+wpeppho*epeppho& + + wcatnucl*ecation_nucl + + + eprim=ftprim(6)*evdw_t+ftprim(1)*welec*(ees+evdw1) & + +ftprim(1)*wtor*etors+ & + ftprim(3)*wcorr*ecorr+ftprim(4)*wcorr5*ecorr5+ & + ftprim(5)*wcorr6*ecorr6+ftprim(3)*wturn4*eello_turn4+ & + ftprim(2)*wturn3*eello_turn3+ftprim(5)*wturn6*eello_turn6+ & + ftprim(2)*wel_loc*eel_loc+ftprim(2)*wtor_d*etors_d+ & + ftprim(1)*wsccor*esccor+ftprim(1)*wtor_nucl*etors_nucl& + +wtor_d_nucl*ftprim(2)*etors_d_nucl+ftprim(1)*wpepbase*epepbase + ebis=ftbis(1)*welec*(ees+evdw1)+ftbis(1)*wtor*etors+ & + ftbis(3)*wcorr*ecorr+ftbis(4)*wcorr5*ecorr5+ & + ftbis(5)*wcorr6*ecorr6+ftbis(3)*wturn4*eello_turn4+ & + ftbis(2)*wturn3*eello_turn3+ftbis(5)*wturn6*eello_turn6+ & + ftbis(2)*wel_loc*eel_loc+ftbis(2)*wtor_d*etors_d+ & + ftbis(1)*wsccor*esccor+ftbis(1)*wtor_nucl*etors_nucl& + +wtor_d_nucl*ftbis(2)*etors_d_nucl*ftbis(1)*wpepbase*epepbase + + + + +! eprim=ftprim(1)*(evdw+ft(6)*evdw_t) +! & +ftprim(1)*welec*(ees+evdw1) +! & +ftprim(1)*wtor*etors+ +! & ftprim(1)*wscp*evdw2+ +! & ftprim(3)*wcorr*ecorr+ftprim(4)*wcorr5*ecorr5+ +! & ftprim(5)*wcorr6*ecorr6+ftprim(3)*wturn4*eello_turn4+ +! & ftprim(2)*wturn3*eello_turn3+ftprim(5)*wturn6*eello_turn6+ +! & ftprim(2)*wel_loc*eel_loc+ftprim(2)*wtor_d*etors_d+ +! & ftprim(1)*wsccor*esccor +! ebis= ftbis(1)*(evdw+ft(6)*evdw_t) +! & +ftbis(1)*wscp*evdw2 +! & +ftbis(1)*welec*(ees+evdw1)+ftbis(1)*wtor*etors+ +! & ftbis(3)*wcorr*ecorr+ftbis(4)*wcorr5*ecorr5+ +! & ftbis(5)*wcorr6*ecorr6+ftbis(3)*wturn4*eello_turn4+ +! & ftbis(2)*wturn3*eello_turn3+ftbis(5)*wturn6*eello_turn6+ +! & ftbis(2)*wel_loc*eel_loc+ftbis(2)*wtor_d*etors_d+ +! & ftprim(1)*wsccor*esccor + else + etot=wsc*(evdw+ft(6)*evdw_t)+wscp*evdw2 & + +ft(1)*welec*(ees+evdw1) & + +wang*ebe+ft(1)*wtor*etors+wscloc*escloc & +!c & +wstrain*ehpb+nss*ebr+ft(3)*wcorr*ecorr+ft(4)*wcorr5*ecorr5 + +wstrain*ehpb+ft(3)*wcorr*ecorr+ft(4)*wcorr5*ecorr5 & + +ft(5)*wcorr6*ecorr6+ft(3)*wturn4*eello_turn4 & + +ft(2)*wturn3*eello_turn3 & + +ft(5)*wturn6*eello_turn6+ft(2)*wel_loc*eel_loc+edihcnstr & + +ft(2)*wtor_d*etors_d+ft(1)*wsccor*esccor & + +wbond*estr+wcatprot*ecation_prot+wcatcat*ecationcation& + +wbond_nucl*estr_nucl+wang_nucl*ebe_nucl& + +wvdwpp_nucl*evdwpp+welpp*eespp+wvdwpsb*evdwpsb+welpsb*eelpsb& + +wvdwsb*evdwsb+welsb*eelsb+wsbloc*esbloc+wtor_nucl*etors_nucl& + *ft(1)+wtor_d_nucl*ft(2)*etors_d_nucl+wcorr_nucl*ecorr_nucl & + +wcorr3_nucl*ecorr3_nucl& + +wscbase*escbase& + +ft(1)*wpepbase*epepbase+wscpho*escpho+wpeppho*epeppho& + + wcatnucl*ecation_nucl + + + eprim=ftprim(6)*evdw_t+ftprim(1)*welec*(ees+evdw1) & + +ftprim(1)*wtor*etors+ & + ftprim(3)*wcorr*ecorr+ftprim(4)*wcorr5*ecorr5+ & + ftprim(5)*wcorr6*ecorr6+ftprim(3)*wturn4*eello_turn4+ & + ftprim(2)*wturn3*eello_turn3+ftprim(5)*wturn6*eello_turn6+ & + ftprim(2)*wel_loc*eel_loc+ftprim(2)*wtor_d*etors_d+ & + ftprim(1)*wsccor*esccor+ftprim(1)*wtor_nucl*etors_nucl& + +wtor_d_nucl*ftprim(2)*etors_d_nucl+ftprim(1)*wpepbase*epepbase + ebis=ftbis(1)*welec*(ees+evdw1)+ftbis(1)*wtor*etors+ & + ftbis(3)*wcorr*ecorr+ftbis(4)*wcorr5*ecorr5+ & + ftbis(5)*wcorr6*ecorr6+ftbis(3)*wturn4*eello_turn4+ & + ftbis(2)*wturn3*eello_turn3+ftbis(5)*wturn6*eello_turn6+ & + ftbis(2)*wel_loc*eel_loc+ftbis(2)*wtor_d*etors_d+ & + ftbis(1)*wsccor*esccor+ftbis(1)*wtor_nucl*etors_nucl& + +wtor_d_nucl*ftbis(2)*etors_d_nucl*ftbis(1)*wpepbase*epepbase + + + + + +! eprim=ftprim(6)*evdw_t+ftprim(1)*welec*(ees+evdw1) +! & +ftprim(1)*wtor*etors+ +! & ftprim(3)*wcorr*ecorr+ftprim(4)*wcorr5*ecorr5+ +! & ftprim(5)*wcorr6*ecorr6+ftprim(3)*wturn4*eello_turn4+ +! & ftprim(2)*wturn3*eello_turn3+ftprim(5)*wturn6*eello_turn6+ +! & ftprim(2)*wel_loc*eel_loc+ftprim(2)*wtor_d*etors_d+ +! & ftprim(1)*wsccor*esccor +! ebis=ftbis(1)*welec*(ees+evdw1)+ftbis(1)*wtor*etors+ +! & ftbis(3)*wcorr*ecorr+ftbis(4)*wcorr5*ecorr5+ +! & ftbis(5)*wcorr6*ecorr6+ftbis(3)*wturn4*eello_turn4+ +! & ftbis(2)*wturn3*eello_turn3+ftbis(5)*wturn6*eello_turn6+ +! & ftbis(2)*wel_loc*eel_loc+ftbis(2)*wtor_d*etors_d+ +! & ftprim(1)*wsccor*esccor + endif +#endif + + weight=dexp(-betaT*(etot-potEmin)+entfac(t)-weimax(k,iparm)) +#ifdef DEBUG + write (iout,*) "iparm",iparm," t",t," betaT",betaT, & + " etot",etot," entfac",entfac(t)," boltz", & + -betaT*(etot-potEmin)+entfac(t)," weimax",weimax(k,iparm), & + " weight",weight," ebis",ebis +#endif + etot=etot-temper*eprim +#ifdef MPI + sumW_p(k,iparm)=sumW_p(k,iparm)+weight + sumE_p(k,iparm)=sumE_p(k,iparm)+etot*weight + sumEbis_p(k,iparm)=sumEbis_p(k,iparm)+ebis*weight + sumEsq_p(k,iparm)=sumEsq_p(k,iparm)+etot**2*weight + do j=1,nQ+2 + sumQ_p(j,k,iparm)=sumQ_p(j,k,iparm)+q(j,t)*weight + sumQsq_p(j,k,iparm)=sumQsq_p(j,k,iparm)+q(j,t)**2*weight + sumEQ_p(j,k,iparm)=sumEQ_p(j,k,iparm) & + +etot*q(j,t)*weight + enddo +#else + sumW(k,iparm)=sumW(k,iparm)+weight + sumE(k,iparm)=sumE(k,iparm)+etot*weight + sumEbis(k,iparm)=sumEbis(k,iparm)+ebis*weight + sumEsq(k,iparm)=sumEsq(k,iparm)+etot**2*weight + do j=1,nQ+2 + sumQ(j,k,iparm)=sumQ(j,k,iparm)+q(j,t)*weight + sumQsq(j,k,iparm)=sumQsq(j,k,iparm)+q(j,t)**2*weight + sumEQ(j,k,iparm)=sumEQ(j,k,iparm) & + +etot*q(j,t)*weight + enddo +#endif + enddo ! t + enddo ! k + do ib=1,nT_h(iparm) if (histout) call MPI_Reduce(hfin_p(0,ib),hfin(0,ib),nbin,& MPI_DOUBLE_PRECISION,MPI_SUM,Master,WHAM_COMM,IERROR) diff --git a/source/wham/wham_data.F90 b/source/wham/wham_data.F90 index f308eef..dc0a0cc 100644 --- a/source/wham/wham_data.F90 +++ b/source/wham/wham_data.F90 @@ -109,7 +109,7 @@ logical :: punch_dist,print_rms,caonly,verbose,merge_helices,& bxfile,cxfile,histfile,entfile,zscfile,rmsrgymap,& with_dihed_constr,check_conf,histout - integer :: icomparfunc,pdbint,ensembles,constr_dist,oldion + integer :: icomparfunc,pdbint,ensembles,constr_dist,oldion,shield_mode !--------------------------------------------------------------------------- ! COMMON.OBCINKA ! common /obcinka/