bert-bl2.f

Go to the documentation of this file.

!************************************************************************
!*                                                                      *
      block data bertbl2
!*                                                                      *
!*       Bertini model data                                             *
!*       last modified by K.Niita on 10/02/2000                         *
!*                                                                      *
!*                                                                      *
!************************************************************************

!*-----------------------------------------------------------------------

      implicit real*8 (a-h,o-z)

!*-----------------------------------------------------------------------

#include "bert.inc"

!*-----------------------------------------------------------------------

      data sf    / 1.0d0 /
      data nrt   / 0 /
      data ln    / 2 /
      data part  / 6*0.d+0 /
      data pnms  / 0.708d+13 /
      data dncms / 4.758d+13 /
      data sqnm  / 22.638564d+26 /
      data rcpmv / 0.50613d+11 /
      data poms  / 0.684d+13 /

!*-----------------------------------------------------------------------

      data ( crsc(i),i=   1, 200 )/
     &  1.0000000d+00,  3.5080971d-14,  1.9153732d-13,  3.6500235d-13,
     &  4.6180992d+07,  1.9470448d+07,  2.4221260d+06,  2.5578003d+01,
     &  1.4381639d+01,  3.5838966d+00,  2.0000000d+00,  4.8413842d-14,
     &  2.1601481d-13,  3.9005870d-13,  3.3188528d+07,  1.4704631d+07,
     &  1.7946570d+06,  2.0521835d+01,  1.1926887d+01,  2.9345751d+00,
     &  3.0000000d+00,  5.9861350d-14,  2.3395223d-13,  4.0828029d-13,
     &  2.6588016d+07,  1.2108282d+07,  1.4583850d+06,  1.7701706d+01,
     &  1.0478023d+01,  2.5554800d+00,  4.0000000d+00,  7.0143435d-14,
     &  2.4855996d-13,  4.2305878d-13,  2.2335648d+07,  1.0403014d+07,
     &  1.2401830d+06,  1.5760016d+01,  9.4695749d+00,  2.2937622d+00,
     &  5.0000000d+00,  7.9563255d-14,  2.6107025d-13,  4.3568274d-13,
     &  1.9313696d+07,  9.1734240d+06,  1.0845320d+06,  1.4304343d+01,
     &  8.7078714d+00,  2.0975828d+00,  6.0000000d+00,  8.8295148d-14,
     &  2.7211040d-13,  4.4680356d-13,  1.7145008d+07,  8.2309990d+06,
     &  9.6680787d+05,  1.3212429d+01,  8.1007652d+00,  1.9429035d+00,
     &  7.0000000d+00,  9.6455721d-14,  2.8205070d-13,  4.5680370d-13,
     &  1.5395557d+07,  7.4839650d+06,  8.7411562d+05,  1.2297626d+01,
     &  7.6028929d+00,  1.8166456d+00,  8.0000000d+00,  1.0412987d-13,
     &  2.9113062d-13,  4.6592943d-13,  1.4009360d+07,  6.8722850d+06,
     &  7.9894325d+05,  1.1547905d+01,  7.1827679d+00,  1.7109404d+00,
     &  9.0000000d+00,  1.1138264d-13,  2.9951535d-13,  4.7435021d-13,
     &  1.2871584d+07,  6.3607760d+06,  7.3657981d+05,  1.0913876d+01,
     &  6.8217812d+00,  1.6207056d+00,  1.0000000d+01,  1.1826564d-13,
     &  3.0732432d-13,  4.8218813d-13,  1.1908163d+07,  5.9262210d+06,
     &  6.8389419d+05,  1.0362253d+01,  6.5074310d+00,  1.5424709d+00,
     &  1.1000000d+01,  1.2482084d-13,  3.1464718d-13,  4.8953457d-13,
     &  1.1083132d+07,  5.5516910d+06,  6.3872662d+05,  9.8779316d+00,
     &  6.2302847d+00,  1.4737854d+00,  1.2000000d+01,  1.3108297d-13,
     &  3.2155295d-13,  4.9645986d-13,  1.0369740d+07,  5.2249920d+06,
     &  5.9952262d+05,  9.4493713d+00,  5.9834003d+00,  1.4128456d+00,
     &  1.3000000d+01,  1.3708126d-13,  3.2809627d-13,  5.0301956d-13,
     &  9.7489840d+06,  4.9368920d+06,  5.6516556d+05,  9.0683985d+00,
     &  5.7613831d+00,  1.3583393d+00,  1.4000000d+01,  1.4284065d-13,
     &  3.3432117d-13,  5.0925822d-13,  9.2062900d+06,  4.6804860d+06,
     &  5.3476337d+05,  8.7286568d+00,  5.5601311d+00,  1.3091784d+00,
     &  1.5000000d+01,  1.4838239d-13,  3.4026352d-13,  5.1521238d-13,
     &  8.7226670d+06,  4.4510230d+06,  5.0764844d+05,  8.4202280d+00,
     &  5.3768864d+00,  1.2645416d+00,  1.6000000d+01,  1.5372507d-13,
     &  3.4595335d-13,  5.2091236d-13,  8.2890170d+06,  4.2443180d+06,
     &  4.8330056d+05,  8.1387882d+00,  5.2091036d+00,  1.2237778d+00,
     &  1.7000000d+01,  1.5888473d-13,  3.5141567d-13,  5.2638352d-13,
     &  7.8979630d+06,  4.0570350d+06,  4.6130519d+05,  7.8807535d+00,
     &  5.0547171d+00,  1.1863604d+00,  1.8000000d+01,  1.6387564d-13,
     &  3.5667199d-13,  5.3164748d-13,  7.5434710d+06,  3.8864730d+06,
     &  4.4132856d+05,  7.6431398d+00,  4.9120350d+00,  1.1518583d+00,
     &  1.9000000d+01,  1.6871037d-13,  3.6174059d-13,  5.3672279d-13,
     &  7.2205940d+06,  3.7304200d+06,  4.2309794d+05,  7.4234591d+00,
     &  4.7796516d+00,  1.1199150d+00,  2.0000000d+01,  1.7339998d-13,
     &  3.6663722d-13,  5.4162539d-13,  6.9252330d+06,  3.5870480d+06,
     &  4.0638819d+05,  7.2196131d+00,  4.6563883d+00,  1.0902309d+00/
      data ( crsc(i),i= 201, 400 )/
     &  2.1000000d+01,  1.7795449d-13,  3.7137584d-13,  5.4636926d-13,
     &  6.6539610d+06,  3.4548300d+06,  3.9101169d+05,  7.0298252d+00,
     &  4.5412512d+00,  1.0625534d+00,  2.2000000d+01,  1.8238281d-13,
     &  3.7596846d-13,  5.5096655d-13,  6.4038940d+06,  3.3324780d+06,
     &  3.7681194d+05,  6.8525743d+00,  4.4333897d+00,  1.0366707d+00,
     &  2.3000000d+01,  1.8669300d-13,  3.8042583d-13,  5.5542810d-13,
     &  6.1726140d+06,  3.2188980d+06,  3.6365550d+05,  6.6865759d+00,
     &  4.3320742d+00,  1.0123978d+00,  2.4000000d+01,  1.9089233d-13,
     &  3.8475744d-13,  5.5976344d-13,  5.9580630d+06,  3.1131530d+06,
     &  3.5142894d+05,  6.5307198d+00,  4.2366705d+00,  9.8957646d-01,
     &  2.5000000d+01,  1.9498736d-13,  3.8897179d-13,  5.6398115d-13,
     &  5.7584550d+06,  3.0144410d+06,  3.4003462d+05,  6.3840303d+00,
     &  4.1466331d+00,  9.6806931d-01,  2.6000000d+01,  1.9898417d-13,
     &  3.9307641d-13,  5.6808887d-13,  5.5722370d+06,  2.9220680d+06,
     &  3.2938894d+05,  6.2456465d+00,  4.0614824d+00,  9.4775707d-01,
     &  2.7000000d+01,  2.0288816d-13,  3.9707826d-13,  5.7209348d-13,
     &  5.3980740d+06,  2.8354300d+06,  3.1941900d+05,  6.1148186d+00,
     &  3.9807997d+00,  9.2853475d-01,  2.8000000d+01,  2.0670439d-13,
     &  4.0098345d-13,  5.7600116d-13,  5.2348500d+06,  2.7539920d+06,
     &  3.1006050d+05,  5.9909248d+00,  3.9042063d+00,  9.1030866d-01,
     &  2.9000000d+01,  2.1043746d-13,  4.0479761d-13,  5.7981755d-13,
     &  5.0815350d+06,  2.6772910d+06,  3.0125806d+05,  5.8733740d+00,
     &  3.8313761d+00,  8.9299726d-01,  3.0000000d+01,  2.1409166d-13,
     &  4.0852581d-13,  5.8354786d-13,  4.9372190d+06,  2.6049200d+06,
     &  2.9296275d+05,  5.7616386d+00,  3.7620153d+00,  8.7652832d-01,
     &  3.1000000d+01,  2.1767082d-13,  4.1217279d-13,  5.8719669d-13,
     &  4.8011380d+06,  2.5365110d+06,  2.8513069d+05,  5.6552753d+00,
     &  3.6958609d+00,  8.6083579d-01,  3.2000000d+01,  2.2117860d-13,
     &  4.1574274d-13,  5.9076837d-13,  4.6726010d+06,  2.4717410d+06,
     &  2.7772344d+05,  5.5538836d+00,  3.6326733d+00,  8.4586173d-01,
     &  3.3000000d+01,  2.2461834d-13,  4.1923962d-13,  5.9426688d-13,
     &  4.5509650d+06,  2.4103240d+06,  2.7070700d+05,  5.4570761d+00,
     &  3.5722456d+00,  8.3155441d-01,  3.4000000d+01,  2.2799313d-13,
     &  4.2266706d-13,  5.9769578d-13,  4.4356980d+06,  2.3519980d+06,
     &  2.6405025d+05,  5.3645382d+00,  3.5143824d+00,  8.1786591d-01,
     &  3.5000000d+01,  2.3130597d-13,  4.2602841d-13,  6.0105848d-13,
     &  4.3263080d+06,  2.2965320d+06,  2.5772581d+05,  5.2759743d+00,
     &  3.4589100d+00,  8.0475372d-01,  3.6000000d+01,  2.3455944d-13,
     &  4.2932671d-13,  6.0435803d-13,  4.2223270d+06,  2.2437180d+06,
     &  2.5170919d+05,  5.1910944d+00,  3.4056759d+00,  7.9217976d-01,
     &  3.7000000d+01,  2.3775610d-13,  4.3256490d-13,  6.0759736d-13,
     &  4.1233840d+06,  2.1933640d+06,  2.4597769d+05,  5.1096783d+00,
     &  3.3545294d+00,  7.8010815d-01,  3.8000000d+01,  2.4089828d-13,
     &  4.3574557d-13,  6.1077911d-13,  4.0290980d+06,  2.1453020d+06,
     &  2.4051137d+05,  5.0314856d+00,  3.3053436d+00,  7.6850742d-01,
     &  3.9000000d+01,  2.4398821d-13,  4.3887122d-13,  6.1390574d-13,
     &  3.9391500d+06,  2.0993740d+06,  2.3529175d+05,  4.9563198d+00,
     &  3.2579994d+00,  7.5734800d-01,  4.0000000d+01,  2.4702798d-13,
     &  4.4194417d-13,  6.1697961d-13,  3.8532450d+06,  2.0554390d+06,
     &  2.3030219d+05,  4.8839979d+00,  3.2123833d+00,  7.4660301d-01/
      data ( crsc(i),i= 401, 600 )/
     &  4.1000000d+01,  2.5001951d-13,  4.4496660d-13,  6.2000286d-13,
     &  3.7711020d+06,  2.0133690d+06,  2.2552781d+05,  4.8143377d+00,
     &  3.1683989d+00,  7.3624855d-01,  4.2000000d+01,  2.5296464d-13,
     &  4.4794046d-13,  6.2297758d-13,  3.6924920d+06,  1.9730420d+06,
     &  2.2095437d+05,  4.7471991d+00,  3.1259499d+00,  7.2626114d-01,
     &  4.3000000d+01,  2.5586504d-13,  4.5086775d-13,  6.2590558d-13,
     &  3.6171700d+06,  1.9343550d+06,  2.1656962d+05,  4.6824188d+00,
     &  3.0849524d+00,  7.1662074d-01,  4.4000000d+01,  2.5872241d-13,
     &  4.5375016d-13,  6.2878869d-13,  3.5449500d+06,  1.8972040d+06,
     &  2.1236156d+05,  4.6198845d+00,  3.0453253d+00,  7.0730752d-01,
     &  4.5000000d+01,  2.6153819d-13,  4.5658941d-13,  6.3162859d-13,
     &  3.4756240d+06,  1.8615010d+06,  2.0831975d+05,  4.5594540d+00,
     &  3.0069990d+00,  6.9830418d-01,  4.6000000d+01,  2.6431391d-13,
     &  4.5938709d-13,  6.3442686d-13,  3.4090340d+06,  1.8271590d+06,
     &  2.0443419d+05,  4.5010300d+00,  2.9699011d+00,  6.8959385d-01,
     &  4.7000000d+01,  2.6705092d-13,  4.6214465d-13,  6.3718502d-13,
     &  3.3450050d+06,  1.7941030d+06,  2.0069612d+05,  4.4444933d+00,
     &  2.9339724d+00,  6.8116188d-01,  4.8000000d+01,  2.6975048d-13,
     &  4.6486350d-13,  6.3990442d-13,  3.2834050d+06,  1.7622580d+06,
     &  1.9709681d+05,  4.3897591d+00,  2.8991499d+00,  6.7299330d-01,
     &  4.9000000d+01,  2.7241387d-13,  4.6754500d-13,  6.4258641d-13,
     &  3.2240820d+06,  1.7315600d+06,  1.9362894d+05,  4.3367233d+00,
     &  2.8653831d+00,  6.6507584d-01,  5.0000000d+01,  2.7504220d-13,
     &  4.7019040d-13,  6.4523224d-13,  3.1669230d+06,  1.7019460d+06,
     &  1.9028494d+05,  4.2853146d+00,  2.8326187d+00,  6.5739644d-01,
     &  5.1000000d+01,  2.7763664d-13,  4.7280083d-13,  6.4784316d-13,
     &  3.1117980d+06,  1.6733590d+06,  1.8705844d+05,  4.2354412d+00,
     &  2.8008108d+00,  6.4994395d-01,  5.2000000d+01,  2.8019823d-13,
     &  4.7537750d-13,  6.5042020d-13,  3.0586120d+06,  1.6457450d+06,
     &  1.8394306d+05,  4.1870422d+00,  2.7699127d+00,  6.4270741d-01,
     &  5.3000000d+01,  2.8272794d-13,  4.7792141d-13,  6.5296455d-13,
     &  3.0072500d+06,  1.6190560d+06,  1.8093337d+05,  4.1400356d+00,
     &  2.7398844d+00,  6.3567752d-01,  5.4000000d+01,  2.8522676d-13,
     &  4.8043362d-13,  6.5547708d-13,  2.9576320d+06,  1.5932430d+06,
     &  1.7802356d+05,  4.0943699d+00,  2.7106857d+00,  6.2884361d-01,
     &  5.5000000d+01,  2.8769554d-13,  4.8291509d-13,  6.5795893d-13,
     &  2.9096560d+06,  1.5682660d+06,  1.7520912d+05,  4.0499735d+00,
     &  2.6822805d+00,  6.2219834d-01,  5.6000000d+01,  2.9013527d-13,
     &  4.8536674d-13,  6.6041091d-13,  2.8632520d+06,  1.5440820d+06,
     &  1.7248500d+05,  4.0067978d+00,  2.6546335d+00,  6.1573219d-01,
     &  5.7000000d+01,  2.9254669d-13,  4.8778944d-13,  6.6283394d-13,
     &  2.8183360d+06,  1.5206550d+06,  1.6984712d+05,  3.9647837d+00,
     &  2.6277142d+00,  6.0943836d-01,  5.8000000d+01,  2.9493064d-13,
     &  4.9018407d-13,  6.6522883d-13,  2.7748400d+06,  1.4979480d+06,
     &  1.6729119d+05,  3.9238853d+00,  2.6014910d+00,  6.0330892d-01,
     &  5.9000000d+01,  2.9728780d-13,  4.9255137d-13,  6.6759640d-13,
     &  2.7326960d+06,  1.4759290d+06,  1.6481350d+05,  3.8840542d+00,
     &  2.5759335d+00,  5.9733713d-01,  6.0000000d+01,  2.9961900d-13,
     &  4.9489210d-13,  6.6993747d-13,  2.6918400d+06,  1.4545660d+06,
     &  1.6241037d+05,  3.8452435d+00,  2.5510178d+00,  5.9151661d-01/

      data ( crsc(i),i= 601,800 )/
     &  6.1000000d+01,  3.0192488d-13,  4.9720709d-13,  6.7225267d-13,
     &  2.6522180d+06,  1.4338300d+06,  1.6007850d+05,  3.8074169d+00,
     &  2.5267143d+00,  5.8584094d-01,  6.2000000d+01,  3.0420610d-13,
     &  4.9949693d-13,  6.7454272d-13,  2.6137660d+06,  1.4136940d+06,
     &  1.5781481d+05,  3.7705278d+00,  2.5030022d+00,  5.8030492d-01,
     &  6.3000000d+01,  3.0646335d-13,  5.0176231d-13,  6.7680838d-13,
     &  2.5764410d+06,  1.3941300d+06,  1.5561606d+05,  3.7345467d+00,
     &  2.4798565d+00,  5.7490230d-01,  6.4000000d+01,  3.0869719d-13,
     &  5.0400396d-13,  6.7905019d-13,  2.5401870d+06,  1.3751160d+06,
     &  1.5347975d+05,  3.6994295d+00,  2.4572573d+00,  5.6962866d-01,
     &  6.5000000d+01,  3.1090825d-13,  5.0622234d-13,  6.8126879d-13,
     &  2.5049610d+06,  1.3566280d+06,  1.5140306d+05,  3.6651487d+00,
     &  2.4351826d+00,  5.6447858d-01,  6.6000000d+01,  3.1309710d-13,
     &  5.0841818d-13,  6.8346484d-13,  2.4707200d+06,  1.3386430d+06,
     &  1.4938350d+05,  3.6316729d+00,  2.4136124d+00,  5.5944759d-01,
     &  6.7000000d+01,  3.1526420d-13,  5.1059195d-13,  6.8563877d-13,
     &  2.4374200d+06,  1.3211430d+06,  1.4741869d+05,  3.5989685d+00,
     &  2.3925304d+00,  5.5453134d-01,  6.8000000d+01,  3.1741016d-13,
     &  5.1274425d-13,  6.8779124d-13,  2.4050270d+06,  1.3041050d+06,
     &  1.4550631d+05,  3.5670099d+00,  2.3719168d+00,  5.4972517d-01,
     &  6.9000000d+01,  3.1953541d-13,  5.1487558d-13,  6.8992278d-13,
     &  2.3734990d+06,  1.2875140d+06,  1.4364456d+05,  3.5357685d+00,
     &  2.3517561d+00,  5.4502594d-01,  7.0000000d+01,  3.2164055d-13,
     &  5.1698646d-13,  6.9203378d-13,  2.3428040d+06,  1.2713500d+06,
     &  1.4183119d+05,  3.5052176d+00,  2.3320322d+00,  5.4042923d-01,
     &  7.1000000d+01,  3.2372596d-13,  5.1907740d-13,  6.9412482d-13,
     &  2.3129100d+06,  1.2555980d+06,  1.4006431d+05,  3.4753361d+00,
     &  2.3127289d+00,  5.3593165d-01,  7.2000000d+01,  3.2579213d-13,
     &  5.2114877d-13,  6.9619636d-13,  2.2837820d+06,  1.2402420d+06,
     &  1.3834231d+05,  3.4460974d+00,  2.2938337d+00,  5.3152990d-01,
     &  7.3000000d+01,  3.2783948d-13,  5.2320111d-13,  6.9824886d-13,
     &  2.2553950d+06,  1.2252650d+06,  1.3666331d+05,  3.4174814d+00,
     &  2.2753305d+00,  5.2722055d-01,  7.4000000d+01,  3.2986840d-13,
     &  5.2523475d-13,  7.0028266d-13,  2.2277190d+06,  1.2106560d+06,
     &  1.3502575d+05,  3.3894653d+00,  2.2572079d+00,  5.2300042d-01,
     &  7.5000000d+01,  3.3187933d-13,  5.2725028d-13,  7.0229825d-13,
     &  2.2007250d+06,  1.1964000d+06,  1.3342806d+05,  3.3620300d+00,
     &  2.2394533d+00,  5.1886672d-01,  7.6000000d+01,  3.3387263d-13,
     &  5.2924792d-13,  7.0429605d-13,  2.1743920d+06,  1.1824840d+06,
     &  1.3186875d+05,  3.3351574d+00,  2.2220545d+00,  5.1481640d-01,
     &  7.7000000d+01,  3.3584870d-13,  5.3122816d-13,  7.0627640d-13,
     &  2.1486930d+06,  1.1688970d+06,  1.3034656d+05,  3.3088255d+00,
     &  2.2049999d+00,  5.1084691d-01,  7.8000000d+01,  3.3780791d-13,
     &  5.3319133d-13,  7.0823967d-13,  2.1236050d+06,  1.1556260d+06,
     &  1.2886012d+05,  3.2830200d+00,  2.1882792d+00,  5.0695580d-01,
     &  7.9000000d+01,  3.3975058d-13,  5.3513785d-13,  7.1018630d-13,
     &  2.0991100d+06,  1.1426600d+06,  1.2740806d+05,  3.2577248d+00,
     &  2.1718798d+00,  5.0314015d-01,  8.0000000d+01,  3.4167715d-13,
     &  5.3706800d-13,  7.1211656d-13,  2.0751810d+06,  1.1299900d+06,
     &  1.2598931d+05,  3.2329206d+00,  2.1557941d+00,  4.9939805d-01/
      data ( crsc(i),i= 801,1000 )/
     &  8.1000000d+01,  3.4358779d-13,  5.3898216d-13,  7.1403083d-13,
     &  2.0518020d+06,  1.1176040d+06,  1.2460269d+05,  3.2085934d+00,
     &  2.1400127d+00,  4.9572706d-01,  8.2000000d+01,  3.4548297d-13,
     &  5.4088065d-13,  7.1592938d-13,  2.0289560d+06,  1.1054930d+06,
     &  1.2324706d+05,  3.1847315d+00,  2.1245241d+00,  4.9212497d-01,
     &  8.3000000d+01,  3.4736287d-13,  5.4276375d-13,  7.1781258d-13,
     &  2.0066200d+06,  1.0936490d+06,  1.2192150d+05,  3.1613150d+00,
     &  2.1093225d+00,  4.8859006d-01,  8.4000000d+01,  3.4922792d-13,
     &  5.4463183d-13,  7.1968077d-13,  1.9847800d+06,  1.0820610d+06,
     &  1.2062487d+05,  3.1383352d+00,  2.0943966d+00,  4.8511976d-01,
     &  8.5000000d+01,  3.5107827d-13,  5.4648517d-13,  7.2153416d-13,
     &  1.9634200d+06,  1.0707220d+06,  1.1935625d+05,  3.1157780d+00,
     &  2.0797396d+00,  4.8171240d-01,  8.6000000d+01,  3.5291431d-13,
     &  5.4832403d-13,  7.2337308d-13,  1.9425210d+06,  1.0596250d+06,
     &  1.1811481d+05,  3.0936289d+00,  2.0653439d+00,  4.7836632d-01,
     &  8.7000000d+01,  3.5473631d-13,  5.5014869d-13,  7.2519784d-13,
     &  1.9220710d+06,  1.0487600d+06,  1.1689969d+05,  3.0718784d+00,
     &  2.0512028d+00,  4.7507977d-01,  8.8000000d+01,  3.5654444d-13,
     &  5.5195947d-13,  7.2700868d-13,  1.9020560d+06,  1.0381213d+06,
     &  1.1570975d+05,  3.0505161d+00,  2.0373068d+00,  4.7185051d-01,
     &  8.9000000d+01,  3.5833906d-13,  5.5375653d-13,  7.2880585d-13,
     &  1.8824590d+06,  1.0277014d+06,  1.1454462d+05,  3.0295267d+00,
     &  2.0236511d+00,  4.6867764d-01,  9.0000000d+01,  3.6012035d-13,
     &  5.5554026d-13,  7.3058958d-13,  1.8632700d+06,  1.0174932d+06,
     &  1.1340325d+05,  3.0089035d+00,  2.0102282d+00,  4.6555901d-01,
     &  9.1000000d+01,  3.6188858d-13,  5.5731082d-13,  7.3236019d-13,
     &  1.8444750d+06,  1.0074905d+06,  1.1228506d+05,  2.9886351d+00,
     &  1.9970322d+00,  4.6249360d-01,  9.2000000d+01,  3.6364401d-13,
     &  5.5906842d-13,  7.3411790d-13,  1.8260610d+06,  9.9768744d+05,
     &  1.1118931d+05,  2.9687109d+00,  1.9840565d+00,  4.5947975d-01,
     &  9.3000000d+01,  3.6538687d-13,  5.6081339d-13,  7.3586292d-13,
     &  1.8080180d+06,  9.8807744d+05,  1.1011525d+05,  2.9491224d+00,
     &  1.9712954d+00,  4.5651603d-01,  9.4000000d+01,  3.6711731d-13,
     &  5.6254589d-13,  7.3759548d-13,  1.7903350d+06,  9.7865494d+05,
     &  1.0906225d+05,  2.9298620d+00,  1.9587431d+00,  4.5360094d-01,
     &  9.5000000d+01,  3.6883560d-13,  5.6426614d-13,  7.3931578d-13,
     &  1.7729980d+06,  9.6941475d+05,  1.0802975d+05,  2.9109173d+00,
     &  1.9463940d+00,  4.5073372d-01,  9.6000000d+01,  3.7054198d-13,
     &  5.6597440d-13,  7.4102410d-13,  1.7560010d+06,  9.6035131d+05,
     &  1.0701712d+05,  2.8922834d+00,  1.9342432d+00,  4.4791251d-01,
     &  9.7000000d+01,  3.7223658d-13,  5.6767080d-13,  7.4272056d-13,
     &  1.7393320d+06,  9.5145925d+05,  1.0602375d+05,  2.8739510d+00,
     &  1.9222851d+00,  4.4513649d-01,  9.8000000d+01,  3.7391965d-13,
     &  5.6935565d-13,  7.4440541d-13,  1.7229810d+06,  9.4273444d+05,
     &  1.0504919d+05,  2.8559113d+00,  1.9105158d+00,  4.4240445d-01,
     &  9.9000000d+01,  3.7559132d-13,  5.7102901d-13,  7.4607887d-13,
     &  1.7069400d+06,  9.3417187d+05,  1.0409281d+05,  2.8381586d+00,
     &  1.8989296d+00,  4.3971533d-01,  1.0000000d+02,  3.7725189d-13,
     &  5.7269120d-13,  7.4774112d-13,  1.6912010d+06,  9.2576637d+05,
     &  1.0315406d+05,  2.8206844d+00,  1.8875217d+00,  4.3706757d-01/
      data ( crsc(i),i= 1001,1200 )/
     &  1.0100000d+02,  3.7890145d-13,  5.7434239d-13,  7.4939230d-13,
     &  1.6757530d+06,  9.1751437d+05,  1.0223262d+05,  2.8034811d+00,
     &  1.8762884d+00,  4.3446088d-01,  1.0200000d+02,  3.8054022d-13,
     &  5.7598262d-13,  7.5103259d-13,  1.6605890d+06,  9.0941169d+05,
     &  1.0132787d+05,  2.7865438d+00,  1.8652258d+00,  4.3189377d-01,
     &  1.0300000d+02,  3.8216836d-13,  5.7761223d-13,  7.5266226d-13,
     &  1.6457030d+06,  9.0145362d+05,  1.0043931d+05,  2.7698650d+00,
     &  1.8543282d+00,  4.2936528d-01,  1.0400000d+02,  3.8378605d-13,
     &  5.7923132d-13,  7.5428140d-13,  1.6310840d+06,  8.9363675d+05,
     &  9.9566687d+04,  2.7534380d+00,  1.8435926d+00,  4.2687470d-01,
     &  1.0500000d+02,  3.8539349d-13,  5.8084012d-13,  7.5589020d-13,
     &  1.6167270d+06,  8.8595737d+05,  9.8709437d+04,  2.7372570d+00,
     &  1.8330164d+00,  4.2442089d-01,  1.0600000d+02,  3.8699073d-13,
     &  5.8243867d-13,  7.5748880d-13,  1.6026250d+06,  8.7841169d+05,
     &  9.7867187d+04,  2.7213163d+00,  1.8225927d+00,  4.2200321d-01,
     &  1.0700000d+02,  3.8857800d-13,  5.8402724d-13,  7.5907737d-13,
     &  1.5887720d+06,  8.7099587d+05,  9.7039500d+04,  2.7056112d+00,
     &  1.8123207d+00,  4.1962063d-01,  1.0800000d+02,  3.9015552d-13,
     &  5.8560595d-13,  7.6065613d-13,  1.5751580d+06,  8.6370712d+05,
     &  9.6226125d+04,  2.6901331d+00,  1.8021955d+00,  4.1727245d-01,
     &  1.0900000d+02,  3.9172333d-13,  5.8717495d-13,  7.6222514d-13,
     &  1.5617800d+06,  8.5654212d+05,  9.5426562d+04,  2.6748791d+00,
     &  1.7922153d+00,  4.1495788d-01,  1.1000000d+02,  3.9328160d-13,
     &  5.8873436d-13,  7.6378460d-13,  1.5486310d+06,  8.4949719d+05,
     &  9.4640437d+04,  2.6598444d+00,  1.7823744d+00,  4.1267568d-01,
     &  1.1100000d+02,  3.9483054d-13,  5.9028439d-13,  7.6533463d-13,
     &  1.5357050d+06,  8.4256981d+05,  9.3867562d+04,  2.6450233d+00,
     &  1.7726717d+00,  4.1042584d-01,  1.1200000d+02,  3.9637017d-13,
     &  5.9182509d-13,  7.6687539d-13,  1.5229950d+06,  8.3575694d+05,
     &  9.3107437d+04,  2.6304102d+00,  1.7631035d+00,  4.0820724d-01,
     &  1.1300000d+02,  3.9790073d-13,  5.9335669d-13,  7.6840704d-13,
     &  1.5104980d+06,  8.2905562d+05,  9.2359875d+04,  2.6160002d+00,
     &  1.7536659d+00,  4.0601927d-01,  1.1400000d+02,  3.9942236d-13,
     &  5.9487929d-13,  7.6992964d-13,  1.4982080d+06,  8.2246300d+05,
     &  9.1624500d+04,  2.6017914d+00,  1.7443562d+00,  4.0386122d-01,
     &  1.1500000d+02,  4.0093509d-13,  5.9639300d-13,  7.7144340d-13,
     &  1.4861190d+06,  8.1597675d+05,  9.0901000d+04,  2.5877762d+00,
     &  1.7351732d+00,  4.0173233d-01,  1.1600000d+02,  4.0243915d-13,
     &  5.9789798d-13,  7.7294838d-13,  1.4742260d+06,  8.0959412d+05,
     &  9.0189125d+04,  2.5739517d+00,  1.7261133d+00,  3.9963222d-01,
     &  1.1700000d+02,  4.0393459d-13,  5.9939429d-13,  7.7444474d-13,
     &  1.4625250d+06,  8.0331250d+05,  8.9488562d+04,  2.5603142d+00,
     &  1.7171726d+00,  3.9756012d-01,  1.1800000d+02,  4.0542157d-13,
     &  6.0088214d-13,  7.7593260d-13,  1.4510110d+06,  7.9712950d+05,
     &  8.8799062d+04,  2.5468588d+00,  1.7083502d+00,  3.9551526d-01,
     &  1.1900000d+02,  4.0690021d-13,  6.0236159d-13,  7.7741210d-13,
     &  1.4396790d+06,  7.9104325d+05,  8.8120375d+04,  2.5335817d+00,
     &  1.6996431d+00,  3.9349741d-01,  1.2000000d+02,  4.0837060d-13,
     &  6.0383285d-13,  7.7888331d-13,  1.4285260d+06,  7.8505094d+05,
     &  8.7452187d+04,  2.5204792d+00,  1.6910496d+00,  3.9150578d-01/

      data ( crsc(i),i=1201,1400 )/
     &  1.2100000d+02,  4.0983287d-13,  6.0529587d-13,  7.8034644d-13,
     &  1.4175470d+06,  7.7915044d+05,  8.6794312d+04,  2.5075483d+00,
     &  1.6825647d+00,  3.8953984d-01,  1.2200000d+02,  4.1128711d-13,
     &  6.0675087d-13,  7.8180144d-13,  1.4067380d+06,  7.7333994d+05,
     &  8.6146437d+04,  2.4947853d+00,  1.6741896d+00,  3.8759899d-01,
     &  1.2300000d+02,  4.1273349d-13,  6.0819801d-13,  7.8324857d-13,
     &  1.3960940d+06,  7.6761712d+05,  8.5508500d+04,  2.4821854d+00,
     &  1.6659203d+00,  3.8568306d-01,  1.2400000d+02,  4.1417201d-13,
     &  6.0963729d-13,  7.8468785d-13,  1.3856140d+06,  7.6198006d+05,
     &  8.4880062d+04,  2.4697466d+00,  1.6577539d+00,  3.8379109d-01,
     &  1.2500000d+02,  4.1560288d-13,  6.1106887d-13,  7.8611943d-13,
     &  1.3752910d+06,  7.5642675d+05,  8.4261062d+04,  2.4574661d+00,
     &  1.6496897d+00,  3.8192290d-01,  1.2600000d+02,  4.1702617d-13,
     &  6.1249280d-13,  7.8754342d-13,  1.3651230d+06,  7.5095550d+05,
     &  8.3651187d+04,  2.4453382d+00,  1.6417255d+00,  3.8007784d-01,
     &  1.2700000d+02,  4.1844197d-13,  6.1390921d-13,  7.8895988d-13,
     &  1.3551070d+06,  7.4556450d+05,  8.3050312d+04,  2.4333620d+00,
     &  1.6338587d+00,  3.7825555d-01,  1.2800000d+02,  4.1985035d-13,
     &  6.1531823d-13,  7.9036891d-13,  1.3452390d+06,  7.4025175d+05,
     &  8.2458187d+04,  2.4215336d+00,  1.6260881d+00,  3.7645543d-01,
     &  1.2900000d+02,  4.2125147d-13,  6.1671995d-13,  7.9177062d-13,
     &  1.3355150d+06,  7.3501556d+05,  8.1874625d+04,  2.4098511d+00,
     &  1.6184111d+00,  3.7467724d-01,  1.3000000d+02,  4.2264532d-13,
     &  6.1811445d-13,  7.9316512d-13,  1.3259330d+06,  7.2985456d+05,
     &  8.1299500d+04,  2.3983107d+00,  1.6108255d+00,  3.7292051d-01,
     &  1.3100000d+02,  4.2403212d-13,  6.1950179d-13,  7.9455252d-13,
     &  1.3164890d+06,  7.2476694d+05,  8.0732562d+04,  2.3869095d+00,
     &  1.6033316d+00,  3.7118477d-01,  1.3200000d+02,  4.2541188d-13,
     &  6.2088209d-13,  7.9593287d-13,  1.3071810d+06,  7.1975100d+05,
     &  8.0173625d+04,  2.3756447d+00,  1.5959253d+00,  3.6946970d-01,
     &  1.3300000d+02,  4.2678469d-13,  6.2225545d-13,  7.9730618d-13,
     &  1.2980060d+06,  7.1480537d+05,  7.9622625d+04,  2.3645153d+00,
     &  1.5886059d+00,  3.6777478d-01,  1.3400000d+02,  4.2815068d-13,
     &  6.2362198d-13,  7.9867271d-13,  1.2889600d+06,  7.0992862d+05,
     &  7.9079125d+04,  2.3535166d+00,  1.5813723d+00,  3.6609942d-01,
     &  1.3500000d+02,  4.2950989d-13,  6.2498167d-13,  8.0003246d-13,
     &  1.2800410d+06,  7.0511925d+05,  7.8543375d+04,  2.3426466d+00,
     &  1.5742226d+00,  3.6444390d-01,  1.3600000d+02,  4.3086238d-13,
     &  6.2633470d-13,  8.0138549d-13,  1.2712460d+06,  7.0037575d+05,
     &  7.8014875d+04,  2.3319044d+00,  1.5671539d+00,  3.6280727d-01,
     &  1.3700000d+02,  4.3220831d-13,  6.2768112d-13,  8.0273190d-13,
     &  1.2625730d+06,  6.9569687d+05,  7.7493625d+04,  2.3212862d+00,
     &  1.5601673d+00,  3.6118948d-01,  1.3800000d+02,  4.3354773d-13,
     &  6.2902098d-13,  8.0407176d-13,  1.2540190d+06,  6.9108144d+05,
     &  7.6979437d+04,  2.3107901d+00,  1.5532589d+00,  3.5958999d-01,
     &  1.3900000d+02,  4.3488070d-13,  6.3035438d-13,  8.0540522d-13,
     &  1.2455820d+06,  6.8652787d+05,  7.6472187d+04,  2.3004131d+00,
     &  1.5464287d+00,  3.5800862d-01,  1.4000000d+02,  4.3620728d-13,
     &  6.3168139d-13,  8.0673223d-13,  1.2372590d+06,  6.8203506d+05,
     &  7.5971812d+04,  2.2901545d+00,  1.5396738d+00,  3.5644507d-01/
      data ( crsc(i),i=1401,1600 )/
     &  1.4100000d+02,  4.3752756d-13,  6.3300217d-13,  8.0805301d-13,
     &  1.2290480d+06,  6.7760169d+05,  7.5477937d+04,  2.2800112d+00,
     &  1.5329952d+00,  3.5489863d-01,  1.4200000d+02,  4.3884167d-13,
     &  6.3431666d-13,  8.0936755d-13,  1.2209470d+06,  6.7322675d+05,
     &  7.4990625d+04,  2.2699814d+00,  1.5263891d+00,  3.5336953d-01,
     &  1.4300000d+02,  4.4014960d-13,  6.3562502d-13,  8.1067585d-13,
     &  1.2129530d+06,  6.6890906d+05,  7.4509750d+04,  2.2600622d+00,
     &  1.5198565d+00,  3.5185719d-01,  1.4400000d+02,  4.4145151d-13,
     &  6.3692731d-13,  8.1197814d-13,  1.2050650d+06,  6.6464731d+05,
     &  7.4035125d+04,  2.2502527d+00,  1.5133934d+00,  3.5036141d-01,
     &  1.4500000d+02,  4.4274735d-13,  6.3822352d-13,  8.1327442d-13,
     &  1.1972800d+06,  6.6044056d+05,  7.3566562d+04,  2.2405519d+00,
     &  1.5070009d+00,  3.4888148d-01,  1.4600000d+02,  4.4403728d-13,
     &  6.3951383d-13,  8.1456472d-13,  1.1895960d+06,  6.5628769d+05,
     &  7.3104125d+04,  2.2309551d+00,  1.5006771d+00,  3.4741795d-01,
     &  1.4700000d+02,  4.4532135d-13,  6.4079823d-13,  8.1584918d-13,
     &  1.1820120d+06,  6.5218781d+05,  7.2647562d+04,  2.2214622d+00,
     &  1.4944201d+00,  3.4596986d-01,  1.4800000d+02,  4.4659963d-13,
     &  6.4207689d-13,  8.1712778d-13,  1.1745250d+06,  6.4813969d+05,
     &  7.2196750d+04,  2.2120714d+00,  1.4882298d+00,  3.4453732d-01,
     &  1.4900000d+02,  4.4787215d-13,  6.4334974d-13,  8.1840069d-13,
     &  1.1671330d+06,  6.4414231d+05,  7.1751625d+04,  2.2027817d+00,
     &  1.4821043d+00,  3.4311956d-01,  1.5000000d+02,  4.4913904d-13,
     &  6.4461696d-13,  8.1966790d-13,  1.1598350d+06,  6.4019487d+05,
     &  7.1312062d+04,  2.1935892d+00,  1.4760437d+00,  3.4171689d-01,
     &  1.5100000d+02,  4.5040030d-13,  6.4587853d-13,  8.2092948d-13,
     &  1.1526290d+06,  6.3629656d+05,  7.0878000d+04,  2.1844940d+00,
     &  1.4700451d+00,  3.4032887d-01,  1.5200000d+02,  4.5165597d-13,
     &  6.4713453d-13,  8.2218547d-13,  1.1455130d+06,  6.3244625d+05,
     &  7.0449375d+04,  2.1754932d+00,  1.4641094d+00,  3.3895522d-01,
     &  1.5300000d+02,  4.5290621d-13,  6.4838505d-13,  8.2343599d-13,
     &  1.1384860d+06,  6.2864300d+05,  7.0025812d+04,  2.1665869d+00,
     &  1.4582338d+00,  3.3759540d-01,  1.5400000d+02,  4.5415099d-13,
     &  6.4963014d-13,  8.2468109d-13,  1.1315450d+06,  6.2488600d+05,
     &  6.9607562d+04,  2.1577721d+00,  1.4524174d+00,  3.3624983d-01,
     &  1.5500000d+02,  4.5539039d-13,  6.5086987d-13,  8.2592082d-13,
     &  1.1246900d+06,  6.2117450d+05,  6.9194375d+04,  2.1490488d+00,
     &  1.4466610d+00,  3.3491772d-01,  1.5600000d+02,  4.5662448d-13,
     &  6.5210424d-13,  8.2715518d-13,  1.1179180d+06,  6.1750775d+05,
     &  6.8786125d+04,  2.1404133d+00,  1.4409628d+00,  3.3359921d-01,
     &  1.5700000d+02,  4.5785337d-13,  6.5333334d-13,  8.2838434d-13,
     &  1.1112280d+06,  6.1388462d+05,  6.8382812d+04,  2.1318655d+00,
     &  1.4353209d+00,  3.3229393d-01,  1.5800000d+02,  4.5907700d-13,
     &  6.5455725d-13,  8.2960825d-13,  1.1046190d+06,  6.1030462d+05,
     &  6.7984250d+04,  2.1234045d+00,  1.4297342d+00,  3.3100152d-01,
     &  1.5900000d+02,  4.6029554d-13,  6.5577605d-13,  8.3082705d-13,
     &  1.0980890d+06,  6.0676675d+05,  6.7590437d+04,  2.1150274d+00,
     &  1.4242039d+00,  3.2972205d-01,  1.6000000d+02,  4.6150892d-13,
     &  6.5698971d-13,  8.3204071d-13,  1.0916360d+06,  6.0327056d+05,
     &  6.7201250d+04,  2.1067343d+00,  1.4187279d+00,  3.2845509d-01/
      data ( crsc(i),i=1601,1800 )/
     &  1.6100000d+02,  4.6271732d-13,  6.5819832d-13,  8.3324932d-13,
     &  1.0852610d+06,  5.9981512d+05,  6.6816562d+04,  2.0985231d+00,
     &  1.4133053d+00,  3.2720041d-01,  1.6200000d+02,  4.6392068d-13,
     &  6.5940195d-13,  8.3445300d-13,  1.0789600d+06,  5.9639956d+05,
     &  6.6436437d+04,  2.0903921d+00,  1.4079351d+00,  3.2595819d-01,
     &  1.6300000d+02,  4.6511915d-13,  6.6060064d-13,  8.3565164d-13,
     &  1.0727320d+06,  5.9302344d+05,  6.6060687d+04,  2.0823412d+00,
     &  1.4026165d+00,  3.2472795d-01,  1.6400000d+02,  4.6631270d-13,
     &  6.6179440d-13,  8.3684546d-13,  1.0665770d+06,  5.8968606d+05,
     &  6.5689125d+04,  2.0743685d+00,  1.3973494d+00,  3.2350934d-01,
     &  1.6500000d+02,  4.6750142d-13,  6.6298339d-13,  8.3803439d-13,
     &  1.0604930d+06,  5.8638669d+05,  6.5321926d+04,  2.0664721d+00,
     &  1.3921318d+00,  3.2230252d-01,  1.6600000d+02,  4.6868537d-13,
     &  6.6416751d-13,  8.3921856d-13,  1.0544790d+06,  5.8312462d+05,
     &  6.4958879d+04,  2.0586529d+00,  1.3869638d+00,  3.2110721d-01,
     &  1.6700000d+02,  4.6986460d-13,  6.6534696d-13,  8.4039801d-13,
     &  1.0485339d+06,  5.7989912d+05,  6.4599887d+04,  2.0509071d+00,
     &  1.3818455d+00,  3.1992304d-01,  1.6800000d+02,  4.7103906d-13,
     &  6.6652163d-13,  8.4157274d-13,  1.0426560d+06,  5.7670994d+05,
     &  6.4244965d+04,  2.0432348d+00,  1.3767738d+00,  3.1875020d-01,
     &  1.6900000d+02,  4.7220897d-13,  6.6769170d-13,  8.4274281d-13,
     &  1.0368444d+06,  5.7355619d+05,  6.3893937d+04,  2.0356359d+00,
     &  1.3717499d+00,  3.1758803d-01,  1.7000000d+02,  4.7337422d-13,
     &  6.6885717d-13,  8.4390828d-13,  1.0310979d+06,  5.7043737d+05,
     &  6.3546883d+04,  2.0281076d+00,  1.3667727d+00,  3.1643701d-01,
     &  1.7100000d+02,  4.7453491d-13,  6.7001808d-13,  8.4506913d-13,
     &  1.0254157d+06,  5.6735275d+05,  6.3203625d+04,  2.0206490d+00,
     &  1.3618412d+00,  3.1529641d-01,  1.7200000d+02,  4.7569110d-13,
     &  6.7117443d-13,  8.4622554d-13,  1.0197965d+06,  5.6430187d+05,
     &  6.2864129d+04,  2.0132608d+00,  1.3569546d+00,  3.1416631d-01,
     &  1.7300000d+02,  4.7684279d-13,  6.7232634d-13,  8.4737745d-13,
     &  1.0142393d+06,  5.6128431d+05,  6.2528309d+04,  2.0059404d+00,
     &  1.3521128d+00,  3.1304651d-01,  1.7400000d+02,  4.7799010d-13,
     &  6.7347381d-13,  8.4852492d-13,  1.0087430d+06,  5.5829937d+05,
     &  6.2196137d+04,  1.9986868d+00,  1.3473148d+00,  3.1193686d-01,
     &  1.7500000d+02,  4.7913301d-13,  6.7461688d-13,  8.4966799d-13,
     &  1.0033065d+06,  5.5534656d+05,  6.1867590d+04,  1.9914989d+00,
     &  1.3425598d+00,  3.1083733d-01,  1.7600000d+02,  4.8027158d-13,
     &  6.7575568d-13,  8.5080673d-13,  9.9792925d+05,  5.5242525d+05,
     &  6.1542477d+04,  1.9843769d+00,  1.3378477d+00,  3.0974740d-01,
     &  1.7700000d+02,  4.8140588d-13,  6.7689008d-13,  8.5194118d-13,
     &  9.9261000d+05,  5.4953506d+05,  6.1220895d+04,  1.9773188d+00,
     &  1.3331776d+00,  3.0866742d-01,  1.7800000d+02,  4.8253589d-13,
     &  6.7802025d-13,  8.5307136d-13,  9.8734769d+05,  5.4667556d+05,
     &  6.0902699d+04,  1.9703245d+00,  1.3285484d+00,  3.0759698d-01,
     &  1.7900000d+02,  4.8366167d-13,  6.7914619d-13,  8.5419730d-13,
     &  9.8214150d+05,  5.4384606d+05,  6.0587887d+04,  1.9633923d+00,
     &  1.3239603d+00,  3.0653608d-01,  1.8000000d+02,  4.8478327d-13,
     &  6.8026796d-13,  8.5531907d-13,  9.7699069d+05,  5.4104625d+05,
     &  6.0276309d+04,  1.9565220d+00,  1.3194122d+00,  3.0548429d-01/

      data ( crsc(i),i=1801,2000 )/
     &  1.8100000d+02,  4.8590076d-13,  6.8138561d-13,  8.5643672d-13,
     &  9.7189425d+05,  5.3827550d+05,  5.9968035d+04,  1.9497118d+00,
     &  1.3149042d+00,  3.0444181d-01,  1.8200000d+02,  4.8701413d-13,
     &  6.8249909d-13,  8.5755025d-13,  9.6685125d+05,  5.3553350d+05,
     &  5.9662969d+04,  1.9429607d+00,  1.3104353d+00,  3.0340844d-01,
     &  1.8300000d+02,  4.8812343d-13,  6.8360855d-13,  8.5865966d-13,
     &  9.6186087d+05,  5.3281975d+05,  5.9361051d+04,  1.9362698d+00,
     &  1.3060045d+00,  3.0238396d-01,  1.8400000d+02,  4.8922867d-13,
     &  6.8471390d-13,  8.5976506d-13,  9.5692231d+05,  5.3013394d+05,
     &  5.9062211d+04,  1.9296370d+00,  1.3016119d+00,  3.0136824d-01,
     &  1.8500000d+02,  4.9032994d-13,  6.8581534d-13,  8.6086645d-13,
     &  9.5203494d+05,  5.2747537d+05,  5.8766379d+04,  1.9230604d+00,
     &  1.2972565d+00,  3.0036110d-01,  1.8600000d+02,  4.9142727d-13,
     &  6.8691277d-13,  8.6196393d-13,  9.4719775d+05,  5.2484375d+05,
     &  5.8473672d+04,  1.9165411d+00,  1.2929382d+00,  2.9936290d-01,
     &  1.8700000d+02,  4.9252063d-13,  6.8800629d-13,  8.6305746d-13,
     &  9.4241006d+05,  5.2223875d+05,  5.8183836d+04,  1.9100771d+00,
     &  1.2886562d+00,  2.9837281d-01,  1.8800000d+02,  4.9361014d-13,
     &  6.8909592d-13,  8.6414708d-13,  9.3767100d+05,  5.1966000d+05,
     &  5.7896953d+04,  1.9036684d+00,  1.2844105d+00,  2.9739124d-01,
     &  1.8900000d+02,  4.9469576d-13,  6.9018169d-13,  8.6523285d-13,
     &  9.3297994d+05,  5.1710687d+05,  5.7612906d+04,  1.8973141d+00,
     &  1.2802000d+00,  2.9641777d-01,  1.9000000d+02,  4.9577763d-13,
     &  6.9126362d-13,  8.6631483d-13,  9.2833594d+05,  5.1457912d+05,
     &  5.7331703d+04,  1.8910131d+00,  1.2760248d+00,  2.9545248d-01,
     &  1.9100000d+02,  4.9685565d-13,  6.9234180d-13,  8.6739296d-13,
     &  9.2373881d+05,  5.1207637d+05,  5.7053285d+04,  1.8847647d+00,
     &  1.2718840d+00,  2.9449517d-01,  1.9200000d+02,  4.9792999d-13,
     &  6.9341619d-13,  8.6846735d-13,  9.1918737d+05,  5.0959819d+05,
     &  5.6777586d+04,  1.8785686d+00,  1.2677774d+00,  2.9354566d-01,
     &  1.9300000d+02,  4.9900053d-13,  6.9448684d-13,  8.6953806d-13,
     &  9.1468106d+05,  5.0714437d+05,  5.6504609d+04,  1.8724241d+00,
     &  1.2637043d+00,  2.9260403d-01,  1.9400000d+02,  5.0006738d-13,
     &  6.9555386d-13,  8.7060502d-13,  9.1021900d+05,  5.0471444d+05,
     &  5.6234289d+04,  1.8663292d+00,  1.2596645d+00,  2.9167008d-01,
     &  1.9500000d+02,  5.0113060d-13,  6.9661719d-13,  8.7166835d-13,
     &  9.0580100d+05,  5.0230800d+05,  5.5966605d+04,  1.8602858d+00,
     &  1.2556572d+00,  2.9074371d-01,  1.9600000d+02,  5.0219019d-13,
     &  6.9767689d-13,  8.7272805d-13,  9.0142606d+05,  4.9992475d+05,
     &  5.5701508d+04,  1.8542910d+00,  1.2516823d+00,  2.8982490d-01,
     &  1.9700000d+02,  5.0324621d-13,  6.9873296d-13,  8.7378417d-13,
     &  8.9709375d+05,  4.9756437d+05,  5.5438934d+04,  1.8483448d+00,
     &  1.2477398d+00,  2.8891337d-01,  1.9800000d+02,  5.0429864d-13,
     &  6.9978550d-13,  8.7483672d-13,  8.9280319d+05,  4.9522662d+05,
     &  5.5178922d+04,  1.8424463d+00,  1.2438278d+00,  2.8800929d-01,
     &  1.9900000d+02,  5.0534755d-13,  7.0083452d-13,  8.7588568d-13,
     &  8.8855394d+05,  4.9291100d+05,  5.4921301d+04,  1.8365955d+00,
     &  1.2399473d+00,  2.8711218d-01,  2.0000000d+02,  5.0639294d-13,
     &  7.0188001d-13,  8.7693118d-13,  8.8434544d+05,  4.9061731d+05,
     &  5.4666199d+04,  1.8307915d+00,  1.2360983d+00,  2.8622246d-01/
      data ( crsc(i),i=2001,2200 )/
     &  2.0100000d+02,  5.0743481d-13,  7.0292199d-13,  8.7797320d-13,
     &  8.8017712d+05,  4.8834519d+05,  5.4413473d+04,  1.8250341d+00,
     &  1.2322788d+00,  2.8533953d-01,  2.0200000d+02,  5.0847331d-13,
     &  7.0396054d-13,  8.7901176d-13,  8.7604837d+05,  4.8609431d+05,
     &  5.4163074d+04,  1.8193226d+00,  1.2284899d+00,  2.8446352d-01,
     &  2.0300000d+02,  5.0950834d-13,  7.0499569d-13,  8.8004690d-13,
     &  8.7195837d+05,  4.8386450d+05,  5.3915070d+04,  1.8136559d+00,
     &  1.2247295d+00,  2.8359455d-01,  2.0400000d+02,  5.1053996d-13,
     &  7.0602741d-13,  8.8107863d-13,  8.6790694d+05,  4.8165537d+05,
     &  5.3669352d+04,  1.8080339d+00,  1.2209988d+00,  2.8273219d-01,
     &  2.0500000d+02,  5.1156827d-13,  7.0705583d-13,  8.8210700d-13,
     &  8.6389325d+05,  4.7946650d+05,  5.3425895d+04,  1.8024549d+00,
     &  1.2172966d+00,  2.8187656d-01,  2.0600000d+02,  5.1259322d-13,
     &  7.0808084d-13,  8.8313205d-13,  8.5991706d+05,  4.7729787d+05,
     &  5.3184676d+04,  1.7969198d+00,  1.2136240d+00,  2.8102744d-01,
     &  2.0700000d+02,  5.1361487d-13,  7.0910254d-13,  8.8415381d-13,
     &  8.5597781d+05,  4.7514900d+05,  5.2945656d+04,  1.7914276d+00,
     &  1.2099781d+00,  2.8018481d-01,  2.0800000d+02,  5.1463326d-13,
     &  7.1012098d-13,  8.8517220d-13,  8.5207469d+05,  4.7301975d+05,
     &  5.2708871d+04,  1.7859783d+00,  1.2063608d+00,  2.7934885d-01,
     &  2.0900000d+02,  5.1564834d-13,  7.1113617d-13,  8.8618739d-13,
     &  8.4820750d+05,  4.7090981d+05,  5.2474137d+04,  1.7805700d+00,
     &  1.2027712d+00,  2.7851886d-01,  2.1000000d+02,  5.1666023d-13,
     &  7.1214811d-13,  8.8719933d-13,  8.4437544d+05,  4.6881881d+05,
     &  5.2241609d+04,  1.7752037d+00,  1.1992073d+00,  2.7769542d-01,
     &  2.1100000d+02,  5.1766886d-13,  7.1315686d-13,  8.8820807d-13,
     &  8.4057837d+05,  4.6674669d+05,  5.2011145d+04,  1.7698774d+00,
     &  1.1956711d+00,  2.7687812d-01,  2.1200000d+02,  5.1867435d-13,
     &  7.1416240d-13,  8.8921367d-13,  8.3681562d+05,  4.6469300d+05,
     &  5.1782766d+04,  1.7645912d+00,  1.1921616d+00,  2.7606702d-01,
     &  2.1300000d+02,  5.1967670d-13,  7.1516485d-13,  8.9021602d-13,
     &  8.3308681d+05,  4.6265756d+05,  5.1556383d+04,  1.7593460d+00,
     &  1.1886778d+00,  2.7526182d-01,  2.1400000d+02,  5.2067590d-13,
     &  7.1616411d-13,  8.9121532d-13,  8.2939137d+05,  4.6064025d+05,
     &  5.1332023d+04,  1.7541389d+00,  1.1852198d+00,  2.7446270d-01,
     &  2.1500000d+02,  5.2167195d-13,  7.1716027d-13,  8.9221149d-13,
     &  8.2572900d+05,  4.5864062d+05,  5.1109602d+04,  1.7489719d+00,
     &  1.1817875d+00,  2.7366930d-01,  2.1600000d+02,  5.2266497d-13,
     &  7.1815335d-13,  8.9320456d-13,  8.2209906d+05,  4.5665862d+05,
     &  5.0889172d+04,  1.7438421d+00,  1.1783800d+00,  2.7288181d-01,
     &  2.1700000d+02,  5.2365490d-13,  7.1914333d-13,  8.9419455d-13,
     &  8.1850125d+05,  4.5469394d+05,  5.0670676d+04,  1.7387505d+00,
     &  1.1749983d+00,  2.7210021d-01,  2.1800000d+02,  5.2464185d-13,
     &  7.2013034d-13,  8.9518155d-13,  8.1493525d+05,  4.5274625d+05,
     &  5.0454070d+04,  1.7336969d+00,  1.1716404d+00,  2.7132422d-01,
     &  2.1900000d+02,  5.2562577d-13,  7.2111430d-13,  8.9616552d-13,
     &  8.1140044d+05,  4.5081550d+05,  5.0239324d+04,  1.7286797d+00,
     &  1.1683064d+00,  2.7055377d-01,  2.2000000d+02,  5.2660670d-13,
     &  7.2209529d-13,  8.9714651d-13,  8.0789637d+05,  4.4890137d+05,
     &  5.0026473d+04,  1.7236996d+00,  1.1649971d+00,  2.6978904d-01/
      data ( crsc(i),i=2201,2400 )/
     &  2.2100000d+02,  5.2758459d-13,  7.2307329d-13,  8.9812451d-13,
     &  8.0442281d+05,  4.4700369d+05,  4.9815426d+04,  1.7187548d+00,
     &  1.1617117d+00,  2.6902974d-01,  2.2200000d+02,  5.2855962d-13,
     &  7.2404832d-13,  8.9909959d-13,  8.0097931d+05,  4.4512225d+05,
     &  4.9606180d+04,  1.7138462d+00,  1.1584501d+00,  2.6827586d-01,
     &  2.2300000d+02,  5.2953171d-13,  7.2502047d-13,  9.0007168d-13,
     &  7.9756556d+05,  4.4325675d+05,  4.9398687d+04,  1.7089729d+00,
     &  1.1552105d+00,  2.6752722d-01,  2.2400000d+02,  5.3050088d-13,
     &  7.2598974d-13,  9.0104096d-13,  7.9418100d+05,  4.4140706d+05,
     &  4.9193023d+04,  1.7041349d+00,  1.1519947d+00,  2.6678413d-01,
     &  2.2500000d+02,  5.3146718d-13,  7.2695609d-13,  9.0200731d-13,
     &  7.9082525d+05,  4.3957306d+05,  4.8989074d+04,  1.6993313d+00,
     &  1.1488018d+00,  2.6604629d-01,  2.2600000d+02,  5.3243065d-13,
     &  7.2791957d-13,  9.0297079d-13,  7.8749819d+05,  4.3775444d+05,
     &  4.8786828d+04,  1.6945620d+00,  1.1456308d+00,  2.6531357d-01,
     &  2.2700000d+02,  5.3339126d-13,  7.2888023d-13,  9.0393144d-13,
     &  7.8419912d+05,  4.3595100d+05,  4.8586270d+04,  1.6898260d+00,
     &  1.1424828d+00,  2.6458591d-01,  2.2800000d+02,  5.3434904d-13,
     &  7.2983806d-13,  9.0488934d-13,  7.8092800d+05,  4.3416256d+05,
     &  4.8387383d+04,  1.6851234d+00,  1.1393557d+00,  2.6386338d-01,
     &  2.2900000d+02,  5.3530401d-13,  7.3079314d-13,  9.0584436d-13,
     &  7.7768431d+05,  4.3238894d+05,  4.8190160d+04,  1.6804543d+00,
     &  1.1362505d+00,  2.6314592d-01,  2.3000000d+02,  5.3625626d-13,
     &  7.3174539d-13,  9.0679666d-13,  7.7446775d+05,  4.3063000d+05,
     &  4.7994539d+04,  1.6758165d+00,  1.1331673d+00,  2.6243329d-01,
     &  2.3100000d+02,  5.3720570d-13,  7.3269494d-13,  9.0774615d-13,
     &  7.7127787d+05,  4.2888550d+05,  4.7800566d+04,  1.6712122d+00,
     &  1.1301041d+00,  2.6172572d-01,  2.3200000d+02,  5.3815242d-13,
     &  7.3364166d-13,  9.0869293d-13,  7.6811450d+05,  4.2715531d+05,
     &  4.7608141d+04,  1.6666393d+00,  1.1270628d+00,  2.6102287d-01,
     &  2.3300000d+02,  5.3909644d-13,  7.3458573d-13,  9.0963695d-13,
     &  7.6497706d+05,  4.2543925d+05,  4.7417355d+04,  1.6620979d+00,
     &  1.1240425d+00,  2.6032501d-01,  2.3400000d+02,  5.4003780d-13,
     &  7.3552709d-13,  9.1057804d-13,  7.6186562d+05,  4.2373706d+05,
     &  4.7228047d+04,  1.6575880d+00,  1.1210423d+00,  2.5963169d-01,
     &  2.3500000d+02,  5.4097639d-13,  7.3646579d-13,  9.1151739d-13,
     &  7.5877962d+05,  4.2204869d+05,  4.7040320d+04,  1.6531086d+00,
     &  1.1180620d+00,  2.5894326d-01,  2.3600000d+02,  5.4191238d-13,
     &  7.3740184d-13,  9.1245327d-13,  7.5571875d+05,  4.2037387d+05,
     &  4.6854039d+04,  1.6486607d+00,  1.1151028d+00,  2.5825918d-01,
     &  2.3700000d+02,  5.4284572d-13,  7.3833523d-13,  9.1338655d-13,
     &  7.5268262d+05,  4.1871250d+05,  4.6669297d+04,  1.6442413d+00,
     &  1.1121626d+00,  2.5757986d-01,  2.3800000d+02,  5.4377645d-13,
     &  7.3926596d-13,  9.1431723d-13,  7.4967112d+05,  4.1706444d+05,
     &  4.6486027d+04,  1.6398525d+00,  1.1092424d+00,  2.5690508d-01,
     &  2.3900000d+02,  5.4470458d-13,  7.4019415d-13,  9.1524531d-13,
     &  7.4668387d+05,  4.1542950d+05,  4.6304219d+04,  1.6354933d+00,
     &  1.1063414d+00,  2.5623482d-01,  2.4000000d+02,  5.4560002d-13,
     &  7.4129998d-13,  9.1660013d-13,  7.4370000d+05,  4.1370000d+05,
     &  4.6110000d+04,  1.6309996d+00,  1.1029997d+00,  2.5529999d-01/

      data ( crsc(i),i=2401,2500 )/
     &  2.4100000d+02,  5.4629998d-13,  7.4240001d-13,  9.1790030d-13,
     &  7.4070000d+05,  4.1210000d+05,  4.5920000d+04,  1.6260004d+00,
     &  1.1000004d+00,  2.5449997d-01,  2.4200000d+02,  5.4710002d-13,
     &  7.4340002d-13,  9.1919961d-13,  7.3780000d+05,  4.1040000d+05,
     &  4.5740000d+04,  1.6210003d+00,  1.0959997d+00,  2.5370002d-01,
     &  2.4300000d+02,  5.4779998d-13,  7.4420000d-13,  9.2040004d-13,
     &  7.3480000d+05,  4.0880000d+05,  4.5560000d+04,  1.6169996d+00,
     &  1.0939999d+00,  2.5309998d-01,  2.4400000d+02,  5.4860001d-13,
     &  7.4550002d-13,  9.2170022d-13,  7.3190000d+05,  4.0720000d+05,
     &  4.5380000d+04,  1.6129999d+00,  1.0909996d+00,  2.5250000d-01,
     &  2.4500000d+02,  5.4930003d-13,  7.4640001d-13,  9.2289978d-13,
     &  7.2890000d+05,  4.0550000d+05,  4.5190000d+04,  1.6079998d+00,
     &  1.0869999d+00,  2.5169998d-01,  2.4600000d+02,  5.5010000d-13,
     &  7.4749999d-13,  9.2419995d-13,  7.2600000d+05,  4.0390000d+05,
     &  4.5010000d+04,  1.6040001d+00,  1.0850000d+00,  2.5110000d-01,
     &  2.4700000d+02,  5.5089998d-13,  7.4850000d-13,  9.2550013d-13,
     &  7.2300000d+05,  4.0220000d+05,  4.4830000d+04,  1.6000004d+00,
     &  1.0819998d+00,  2.5040001d-01,  2.4800000d+02,  5.5160000d-13,
     &  7.4950002d-13,  9.2669969d-13,  7.2020000d+05,  4.0060000d+05,
     &  4.4650000d+04,  1.5950003d+00,  1.0790005d+00,  2.4970001d-01,
     &  2.4900000d+02,  5.5230001d-13,  7.5059999d-13,  9.2799986d-13,
     &  7.1730000d+05,  3.9900000d+05,  4.4470000d+04,  1.5909996d+00,
     &  1.0760002d+00,  2.4900001d-01,  2.5000000d+02,  5.5309999d-13,
     &  7.5149999d-13,  9.2920029d-13,  7.1440000d+05,  3.9740000d+05,
     &  4.4290000d+04,  1.5869999d+00,  1.0730000d+00,  2.4839997d-01/

!*-----------------------------------------------------------------------

      end block data