fork download
copy 
  1. program z1
  2. real(8),allocatable,dimension(:)::t,x,y,y0,pr,p
  3. real(8),allocatable,dimension(:)::x1,x2,y1,y2,x3,y3
  4. real(8)::k1,k2,k3,k4,s1,s2,s3,s4,v0
  5. integer::n
  6. real(8)::r1,r2,r3,h,k,g,dy,ds,hh,m,f,ff
  7. real(8)::c1,c2,c3,kk,cc1,rs1,rs2,w
  8.  
  9. n=1000
  10. h=0.1
  11. rs1=0.01
  12. rs2=0.03
  13. v0=2
  14. m=10
  15. f=0.01
  16. w=0.02
  17.  
  18.  
  19. allocate(y(n+2),y0(n+2),x(n+2),t(n+2),pr(n+2),p(n+2),y1(n+2),y2(n+2),x1(n+2),x2(n+2),y3(n+2),x3(n+2))
  20. y1(1)=0
  21. x1(1)=v0
  22. y(1)=0
  23. x(1)=v0
  24. y2(1)=0
  25. x2(1)=v0
  26.  
  27. do i=1,n
  28. t(i)=(i-1)*h
  29. y0(i)=V0*(m/k)**(1/2)*sin(((k/m)**(1/2)*t(i)))
  30. end do
  31.  
  32. k=rs1*1000
  33. kk=rs2*100
  34.  
  35.  
  36. c1=1/m
  37. c2=-c1
  38. !!first
  39. do i=1,n
  40. k1=h*x(i) 
  41. s1=c2*h*(y(i)+x(i)) 
  42.  
  43. k2=h*(x(i)+s1/2)
  44. s2=c2*h*(k*(y(i)+k1/2)+kk*(x(i)+s1/2)) 
  45.  
  46. k3=h*(x(i)+s2/2) 
  47. s3=c2*h*((y(i)+k2/2) + kk*(x(i)+s2/2)) 
  48.  
  49. k4=h*(x(i)+s3) 
  50. s4=c2*h*(k*(y(i)+k3) +kk*(x(i)+s3))
  51.  
  52. dy=(k1+2*k2+2*k3+k4)/6 
  53. ds=(s1+2*s2+2*s3+s4)/6 
  54.  
  55. y(i+1)=dy+y(i)
  56. x(i+1)=ds+x(i)
  57. end do
  58.  
  59. !!-kx
  60. do i=1,n
  61. k1=h*x1(i) 
  62. s1=c2*h*(y1(i)+x1(i)) 
  63.  
  64. k2=h*(x1(i)+s1/2)
  65. s2=c2*h*k*((y1(i)+k1/2)+kk*(x1(i)+s1/2)) 
  66.  
  67. k3=h*(x1(i)+s2/2) 
  68. s3=c2*h*k*((y1(i)+k2/2) + kk*(x1(i)+s2/2)) 
  69.  
  70. k4=h*(x1(i)+s3) 
  71. s4=c2*h*k*((y1(i)+k3) +kk*(x1(i)+s3))
  72.  
  73. dy=(k1+2*k2+2*k3+k4)/6 
  74. ds=(s1+2*s2+2*s3+s4)/6 
  75.  
  76. y1(i+1)=dy+y1(i)
  77. x1(i+1)=ds+x1(i)
  78. end do
  79.  
  80. !!-kx+f
  81.  
  82. do i=1,n
  83. k1=h*x2(i) 
  84. s1=c2*h*(y2(i)+x2(i)+f) 
  85.  
  86. k2=h*(x2(i)+s1/2)
  87. s2=c2*h*(k*(y2(i)+k1/2)+kk*(x2(i)+s1/2+f)) 
  88.  
  89. k3=h*(x2(i)+s2/2) 
  90. s3=c2*h*((y2(i)+k2/2) + kk*(x2(i)+s2/2+f)) 
  91.  
  92. k4=h*(x2(i)+s3) 
  93. s4=c2*h*(k*(y2(i)+k3) +kk*(x2(i)+s3+f))
  94.  
  95. dy=(k1+2*k2+2*k3+k4)/6 
  96. ds=(s1+2*s2+2*s3+s4)/6 
  97.  
  98. y2(i+1)=dy+y2(i)
  99. x2(i+1)=ds+x2(i)
  100. end do
  101.  
  102.  
  103. !!-kx+fsinwt
  104.  
  105. do i=1,n
  106. ff=sin(w*(i-1)*h)
  107. k1=h*x3(i) 
  108. s1=c2*h*(y3(i)+x3(i)+ff) 
  109.  
  110. k2=h*(x3(i)+s1/2)
  111. s2=c2*h*(k*(y3(i)+k1/2)+kk*(x3(i)+s1/2+ff)) 
  112.  
  113. k3=h*(x3(i)+s2/2) 
  114. s3=c2*h*((y3(i)+k2/2) + kk*(x3(i)+s2/2+ff)) 
  115.  
  116. k4=h*(x3(i)+s3) 
  117. s4=c2*h*(k*(y3(i)+k3) +kk*(x3(i)+s3+ff))
  118.  
  119. dy=(k1+2*k2+2*k3+k4)/6 
  120. ds=(s1+2*s2+2*s3+s4)/6 
  121.  
  122. y3(i+1)=dy+y3(i)
  123. x3(i+1)=ds+x3(i)
  124. end do
  125.  
  126.  
  127.  
  128. do i=1,n
  129. print*,y0(i)
  130.  
  131. end do
  132.  
  133.  
  134.  
  135.  
  136.  
  137. end
Success #stdin #stdout 0.01s 5280KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
   0.0000000000000000E+000
  0.19966683625899981     
  0.39733866743177443     
  0.59104042186405292     
  0.77883669559720359     
  0.95885109028540516     
   1.1292849615482214     
   1.2884353904312333     
   1.4347121984098279     
   1.5666538359278452     
   1.6829419857180563     
   1.7824147349929100     
   1.8640781848933756     
   1.9271163811980978     
   1.9708994670685018     
   1.9949899763703076     
   1.9991472046906680     
   1.9833296143771659     
   1.9476952495683195     
   1.8926001570687465     
   1.8185948288470781     
   1.7264187017020154     
   1.6169927690540395     
   1.4914103786833222     
   1.3509263083597924     
   1.1969442285180614     
   1.0310026772460130     
  0.85475968772034572     
  0.66997622168665016     
  0.47849857451122024     
  0.28223992760750755     
   8.3161232559282705E-002
 -0.11674838205996847     
 -0.31549148540282490     
 -0.51108230201728877     
 -0.70156655305928306     
 -0.88504098280144383     
  -1.0596723753357820     
  -1.2237158714616003     
  -1.3755324027423728     
  -1.5136050685362454     
  -1.6365542923662810     
  -1.7431516061929990     
  -1.8323319248613146     
  -1.9032041880796542     
  -1.9550602636001093     
  -1.9873820226419907     
  -1.9998465168634882     
  -1.9923292051548462     
  -1.9649051980120011     
  -1.9178485070573121     
  -1.8516293072059251     
  -1.7669092388332999     
  -1.6645347968830908     
  -1.5455288729692325     
  -1.4110805349807511     
  -1.2625331463081180     
  -1.1013709433999084     
 -0.92920420576238982     
 -0.74775316657850377     
 -0.55883082470602297     
 -0.36432482979172331     
 -0.16617862149952559     
   3.3627988696788999E-002
  0.23309859913597522     
  0.43024016535539422     
  0.62308291393306448     
  0.80970002381315942     
  0.98822687846564872     
   1.1568796965188604     
   1.3139733547138372     
   1.4579382250994153     
   1.5873358582363273     
   1.7008733557089408     
   1.7974162883392359     
   1.8760000310284972     
   1.9358394009727244     
   1.9763365029498967     
   1.9970867032915718     
   1.9978826728488659     
   1.9787164585568382     
   1.9397795628988892     
   1.8814610304771913     
   1.8043435608075096     
   1.7091976861780818     
   1.5969740727454689     
   1.4687940217922848     
   1.3259382660550989     
   1.1698341730659061     
   1.0020414833671472     
  0.82423672609932552     
  0.63819646767552474     
  0.44577956091653398     
  0.24890857200736544     
   4.9550570850877079E-002
 -0.15030252324505483     
 -0.34865384416741174     
 -0.54352153102475209     
 -0.73295853024671209     
 -0.91507204990024993     
  -1.0880424718415298     
  -1.2501415327394705     
  -1.3997495923121770     
  -1.5353718162377354     
  -1.6556531120450775     
  -1.7593916687504194     
  -1.8455509649557043     
  -1.9132701254280906     
  -1.9618725226809686     
  -1.9908725376123435     
  -1.9999804116505231     
  -1.9891051419260710     
  -1.9583553905424236     
  -1.9080383988600382     
  -1.8386569176421903     
  -1.7509041837353827     
  -1.6456569934757239     
  -1.5239669420295066     
  -1.3870499162016046     
  -1.2362739456960752     
  -1.0731455342151601     
 -0.89929460697182806     
 -0.71645822501534384     
 -0.52646322909094279     
 -0.33120798645043431     
 -0.13264342299357415     
   6.7246469739216622E-002
  0.26646445795509305     
  0.46302002130924091     
  0.65494924152677603     
  0.84033442522554602     
   1.0173232648750699     
   1.1841473464416425     
   1.3391398187973262     
   1.4807520483459280     
   1.6075690924584443     
   1.7183238371125127     
   1.8119096574772484     
   1.8873914749430820     
   1.9440151001184083     
   1.9812147684409107     
   1.9986187931102182     
   1.9960532788596625     
   1.9735438594603523     
   1.9313154415969980     
   1.8697899576745949     
   1.7895821500091802     
   1.6914934285256347     
   1.5765038633343855     
   1.4457623921945391     
   1.3005753407072398     
   1.1423933699416871     
  0.97279698190882624     
  0.79348072770722833     
  0.60623627612815445     
  0.41293451189270630     
  0.21550684238956888     
   1.5925899690246773E-002
 -0.18381416933911615     
 -0.38171762789463903     
 -0.57580708997773933     
 -0.76414327778298219     
 -0.94484439832144906     
  -1.1161049456748051     
  -1.2762137410141514     
  -1.4235710301337516     
  -1.5567044676667239     
  -1.6742838282736912     
  -1.7751342978150546     
  -1.8582482117058847     
  -1.9227951231676628     
  -1.9681301007782301     
  -1.9938001724135650     
  -1.9995488511956474     
  -1.9853186982246365     
  -1.9512518964893895     
  -1.8976888302219934     
  -1.8251646838909326     
  -1.7344040948146295     
  -1.6263139128246764     
  -1.5019741393218127     
  -1.3626271362586089     
  -1.2096652128691370     
  -1.0446167141749254     
 -0.86913075026625286     
 -0.68496071893875921     
 -0.49394678632174616     
 -0.29799750054594321     
  -9.9070722160900029E-002
  0.10084593816102429     
  0.29975497917407440     
  0.49566896743185440     
  0.68663039506595724     
  0.87073123855810242     
   1.0461320230809892     
   1.2110802019232696     
   1.3639276673574934     
   1.5031472179882206     
   1.6273478180439920     
   1.7352884961473576     
   1.8258907446910375     
   1.8982492959297483     
   1.9516411671165412     
   1.9855328843076385     
   1.9995858126578949     
   1.9936595399483343     
   1.9678132795386685     
   1.9223052787269630     
   1.8575902384279233     
   1.7743147699515234     
   1.6733109342763464     
   1.5555879283710805     
   1.4223220016317053     
   1.2748447031859922     
   1.1146295774943755     
  0.94327744118035506     
  0.76250038819947652     
  0.57410468316196228     
  0.37997271373325936     
  0.18204418243816162     
  -1.7703274206215112E-002
 -0.21727384558138055     
 -0.41467348844803653     
 -0.60792985076757433     
 -0.79511197879225814     
 -0.97434961051735891     
  -1.1438518627214351     
  -1.3019251248800277     
  -1.4469899811626898     
  -1.5775969914343511     
  -1.6924411735824552     
  -1.7903750424672489     
  -1.8704200752143298     
  -1.9317764882920441     
  -1.9738312286843975     
  -1.9961640993143261     
  -1.9985519575141166     
  -1.9809709445932471     
  -1.9435967242265437     
  -1.8868027272807555     
  -1.8111564206166633     
  -1.7174136371476170     
  -1.6065110238066858     
  -1.4795566828798390     
  -1.3378191002138642     
  -1.1827144709247148     
  -1.0157925492436224     
 -0.83872116388463613     
 -0.65326955365092909     
 -0.46129068978498089     
 -0.26470276169188395     
  -6.5470011024305205E-002
  0.13441689437139911     
  0.33296075055086966     
  0.52817777287396217     
  0.71811741732571011     
  0.90088186970793849     
   1.0746450079719623     
   1.2376706482270055     
   1.3883298921162466     
   1.5251174022312444     
   1.6466664429461708     
   1.7517625363888094     
   1.8393555971023619     
   1.9085704241525336     
   1.9587154458462261     
   1.9892896296874965     
   1.9999874885287880     
   1.9907021328976173     
   1.9615263390008832     
   1.9127516217356473     
   1.8448653219685576     
   1.7585457371868578     
   1.6546553441739078     
   1.5342321814260049     
   1.3984794774145506     
   1.2487536283245388     
   1.0865506453918397     
  0.91349120725299826     
  0.73130446665954341     
  0.54181077335476080     
  0.34690348574024410     
  0.14853005306404429     
  -5.1327442849055223E-002
 -0.25067209190453255     
 -0.44751210820429504     
 -0.63988073131356893     
 -0.82585587748162392     
  -1.0035793444678263     
  -1.1712753780847400     
  -1.3272684149475094     
  -1.4699998241498320     
  -1.5980434805892227     
  -1.7101200143380484     
  -1.8051095936853214     
  -1.8820631141253221     
  -1.9402116814963701     
  -1.9789742945173541     
  -1.9979636499606517     
  -1.9969900124580702     
  -1.9760631102739830     
  -1.9353920381037257     
  -1.8753831678684556     
  -1.7966360883811221     
  -1.6999376144530685     
  -1.5862539253002885     
  -1.4567209107997896     
  -1.3126328220530779     
  -1.1554293396565913     
 -0.98668118888864520     
 -0.80807444554119767     
 -0.62139368920737681     
 -0.42850417235155880     
 -0.23133318332275993     
  -3.1850789525955853E-002
  0.16794984684079681     
  0.36607238380478485     
  0.56053724640832092     
  0.74940140596794913     
  0.93077779417534845     
   1.1028541580606488     
   1.2639111674255945     
   1.4123395938230612     
   1.5466563894362384     
   1.6655195052026264     
   1.7677413001250446     
   1.8523004077882470     
   1.9183519415148296     
   1.9652359361938780     
   1.9924839424343985     
   1.9998237071569218     
   1.9871818938563603     
   1.9546848153561471     
   1.9026571717322185     
   1.8316188060170924     
   1.7422795100999682     
   1.6355319327205859     
   1.5124426604178227     
   1.3742415605492466     
   1.2223094928626528     
   1.0581645124015053     
  0.88344670160029282     
  0.69990178312249451     
  0.50936367717626663     
  0.31373617758939015     
  0.11497392973008763     
  -8.4937099663957530E-002
 -0.28399946560936162     
 -0.48022420268764154     
 -0.67165069813080325     
 -0.85636628161661077     
  -1.0325253360387698     
  -1.1983677383035238     
  -1.3522364458983105     
  -1.4925940535132949     
  -1.6180381542874847     
  -1.7273153521949276     
  -1.8193337855638589     
  -1.8931740365979284     
  -1.9480983178951756     
  -1.9835578441760908     
  -1.9991983155648860     
  -1.9948634576368431     
  -1.9705965828607557     
  -1.9266401578350438     
  -1.8634333806415806     
  -1.7816077925235059     
  -1.6819809677336977     
  -1.5655483446028473     
  -1.4334732794484120     
  -1.2870754227024990     
  -1.1278175334005727     
 -0.95729086377626271     
 -0.77719925999456874     
 -0.58934213788369016     
 -0.39559650376634276     
 -0.19789820003247982     
   1.7774371585400957E-003
  0.20143531478448565     
  0.39908051727083449     
  0.59273823902835610     
  0.78047351605836268     
  0.96041055947394627     
   1.1307514977630406     
   1.2897943405268082     
   1.4359499842056080     
   1.5677580898769490     
   1.6839016744797133     
   1.7832202696739592     
   1.8647215168573184     
   1.9275910824844167     
   1.9712007946187178     
   1.9951149194190552     
   1.9990945148482675     
   1.9830998181031212     
   1.9472906429111088     
   1.8920247827244636     
   1.8178544357661492     
   1.7255206876475837     
   1.6159461066859602     
   1.4902255259063077     
   1.3496151038314834     
   1.1955197733610681     
   1.0294792041458256     
  0.85315241871704117     
  0.66830121608129534     
  0.47677256840663895     
  0.28048016668666848     
   8.1385299772130923E-002
 -0.11852274217954074     
 -0.31724654403450042     
 -0.51280052319484293     
 -0.70323076888416691     
 -0.88663456497875670     
  -1.0611794013187021     
  -1.2251212835442145     
  -1.3768221585113010     
  -1.5147662811777975     
  -1.6375753594272429     
  -1.7440223255085134     
  -1.8330435964915435     
  -1.9037497012367040     
  -1.9554341676966751     
  -1.9875805817518248     
  -1.9998677470495407     
  -1.9921728942921098     
  -1.9645729079069931     
  -1.9173435578430200     
  -1.8509567441681345     
  -1.7660757819997646     
  -1.6635487738792354     
  -1.5444001358112689     
  -1.4098203616375866     
  -1.2611541280156144     
  -1.0998868588534121     
 -0.92762988344455788     
 -0.74610433659800246     
 -0.55712396162747724     
 -0.36257698802730803     
 -0.16440726490691113     
   3.5405161307534891E-002
  0.23486383084305235     
  0.43197581854656830     
  0.62477164653486361     
  0.81132496256714470     
  0.98977178752044026     
   1.1583291396534019     
   1.3153128495710196     
   1.4591543878890050     
   1.5884165374613790     
   1.7018077535795413     
   1.7981950686604549     
   1.8766154124845640     
   1.9362852348753647     
   1.9766083346739962     
   1.9971818167843178     
   1.9978001177676508     
   1.9784570597647693     
   1.9393459122230279     
   1.8808574608118740     
   1.8035761028214983     
   1.7082740080581131     
   1.5959034035782651     
   1.4675870593505667     
   1.3246070699089747     
   1.1683920440876290     
   1.0005028308331925     
  0.82261692371765982     
  0.63651169997659185     
  0.44404666154277272     
  0.24714485551701368     
   4.7773659716623999E-002
 -0.15207487471399581     
 -0.35040392722049718     
 -0.54523185941009533     
 -0.73461201492793748     
 -0.91665216980449993     
  -1.0895334389325690     
  -1.2515284497665302     
  -1.4010186016583639     
  -1.5365102383807636     
  -1.6566495722468673     
  -1.7602362107097242     
  -1.8462351502881835     
  -1.9137871179798607     
  -1.9622171568331932     
  -1.9910413698943918     
  -1.9999717551459915     
  -1.9889190831278938     
  -1.9579937884886642     
  -1.9075048665589962     
  -1.8379567859724140     
  -1.7500444481812920     
  -1.6446462442310401     
  -1.5228152781668742     
  -1.3857688447659922     
  -1.2348762667301827     
  -1.0716452128656193     
 -0.89770663395406969     
 -0.71479846683131965     
 -0.52474826949627817     
 -0.32945496075501929     
 -0.13086984685120556     
   6.9022875341462855E-002
  0.26822594375911235     
  0.46474898713062529     
  0.65662841211004397     
  0.84194702285278966     
   1.0188531770033722     
   1.1855792866942840     
   1.3404594797002127     
   1.4819462442831473     
   1.6086258914185851     
   1.7192326799093822     
   1.8126614632537732     
   1.8879787319042334     
   1.9444319405865771     
   1.9814570274838041     
   1.9986840501554877     
   1.9959408818804636     
   1.9732549314901808     
   1.9308528695087110     
   1.8691583633357303     
   1.7887878441017826     
   1.6905443474920043     
   1.5754094900787683     
   1.4445336613330795     
   1.2992245293129063     
   1.1409339748758149     
  0.97124358496493579     
  0.79184884991456062     
  0.60454222267067215     
  0.41119520919308095     
  0.21373966898595567     
   1.4148512595670498E-002
 -0.18558401105980374     
 -0.38346224056747014     
 -0.57750904200906017     
 -0.76578556383018004     
 -0.94641060920471931     
  -1.1175794323322565     
  -1.2775817708620647     
  -1.4248189342696898     
  -1.5578197774446916     
  -1.6752553998867274     
  -1.7759524236404722     
  -1.8589047173006288     
  -1.9232834489446471     
  -1.9684453675475651     
  -1.9939392301338110     
  -1.9995103104479883     
  -1.9851029440954948     
  -1.9508610847227690     
  -1.8971268656799971     
  -1.8244371815376705     
  -1.7335183236133518     
  -1.6252787231086927     
  -1.5007998743648847     
  -1.3613255289283754     
  -1.2082492683961747     
  -1.0431005802087803     
 -0.86752957551679866     
 -0.68329050181529094     
 -0.49222421508215791     
 -0.29623978655316707     
  -9.7295427912651888E-002
  0.10262107451092203     
  0.30151222104946751     
  0.49739075705226798     
  0.68829952887813983     
  0.87233103912824839     
   1.0476465057301496     
   1.2124942344409846     
   1.3652271211978424     
   1.5043191094375863     
   1.6283804379500397     
   1.7361715269130176     
   1.8266153633645277     
   1.8988082623605949     
   1.9520288962967702     
   1.9857455021753321     
   1.9996211948055380     
   1.9935173328491929     
   1.9674949040791121     
   1.9218139160094374     
   1.8569307979864251     
   1.7734938406971583     
   1.6723367186631051     
   1.5544701604396278     
   1.4210718497500596     
   1.2734746584588814     
   1.1131533289562443     
  0.94170973901905253     
  0.76085689637725162     
  0.57240182290632535     
  0.37822749946150064     
  0.18027405175491268     
  -1.9480634739768035E-002
 -0.21904067716577466     
 -0.41641213748559175     
 -0.60962294525131111     
 -0.79674260188125379     
 -0.97590146956423540     
  -1.1453094520631109     
  -1.3032738807651816     
  -1.4482164272679561     
  -1.5786888735152897     
  -1.6933875819139173     
  -1.7911665208497454     
  -1.8710487154572557     
  -1.9322360092297055     
  -1.9741170389353462     
  -1.9962733431569260     
  -1.9984835434199708     
  -1.9807255561333903     
  -1.9431768132414251     
  -1.8862124893822592     
  -1.8104017532669399     
  -1.7165020807335896     
  -1.6054516862989943     
  -1.4783601488290048     
  -1.3364973249929577     
  -1.1812806612752160     
  -1.0142610313180207     
 -0.83710724010424786     
 -0.65158934980915539     
 -0.45956099392370736     
 -0.26294085636090953     
  -6.3693500599812797E-002
  0.13619025958395573     
  0.33471325167195554     
  0.52989189949115389     
  0.71977604245195370     
  0.90246842090874757     
   1.0761436329517104     
   1.2390663732198286     
   1.3896087714989667     
   1.5262666578634299     
   1.6476745918450966     
   1.7526195054636271     
   1.8400528238010974     
   1.9091009420162781     
   1.9590739541156930     
   1.9894725462664578     
   1.9999929857751964     
   1.9905301558848023     
   1.9611786060663599     
   1.9122316073120558     
   1.8441782218682792     
   1.7576984166871736     
   1.6536562694214161     
   1.5330913348456796     
   1.3972082579686478     
   1.2473647376179313     
   1.0850579607617743     
  0.91190964311132738     
  0.72964982547284529     
  0.54009958775131361     
  0.34515285332146384     
  0.14675746557089817     
  -5.3104274307747855E-002
 -0.25243541381565016     
 -0.44924430203765381     
 -0.64156448956045775     
 -0.82747437658571543     
  -1.0051164129205954     
  -1.1727156580058367     
  -1.3285975155356269     
  -1.4712044654708405     
  -1.5991116262648857     
  -1.7110409918095391     
  -1.8058742008499051     
  -1.8826637112807285     
  -1.9406422676741746     
  -1.9792305674426729     
  -1.9980430490390513     
  -1.9968917443601812     
  -1.9757881568621860     
  -1.9349431466217057     
  -1.8747648234916503     
  -1.7958544694023313     
  -1.6990005305509921     
  -1.5851707395077961     
  -1.4555024459515880     
  -1.3112912526475222     
  -1.1539780702121172     
 -0.98513472001024760     
 -0.80644822903517499     
 -0.61970397369198538     
 -0.42676784090618558     
 -0.22956758479776873     
  -3.0073565198704438E-002
  0.16972093953177403     
  0.36781964868623812     
  0.56224322538660387     
  0.75104905346452477     
  0.93235064744058072     
   1.1043365016641598     
   1.2652881902796542     
   1.4135975371700855     
   1.5477826843217508     
   1.6665028980600989     
   1.7685719652178191     
   1.8529700453850513     
   1.9188538608179493     
   1.9655651221913999     
   1.9926371060085515     
   1.9997993179478568     
   1.9869801955529998     
   1.9543078232613251     
   1.9021086526264419     
   1.8309042405221128     
   1.7414060379182204     
   1.6345082812976381     
   1.5112790577406237     
   1.3729496329514568     
   1.2209021488581595     
   1.0566558137068138     
  0.88185172263450007     
  0.69823646038867138     
  0.50764465002918235     
  0.31198062198057497     
  0.11319938659139768     
  -8.6712899683538458E-002
 -0.28575877930251098     
 -0.48194945157296576     
 -0.67332464409121828     
 -0.85797219913691503     
  -1.0340471793214685     
  -1.1997903015931379     
  -1.3535455154122635     
  -1.4937765494613351     
  -1.6190822615606284     
  -1.7282106384181273     
  -1.8200713053328481     
  -1.8937464208587473     
  -1.9484998475733251     
  -1.9837845073196354     
  -1.9992478474305528     
  -1.9947353633185889     
  -1.9702921422347039     
  -1.9261624127713861     
  -1.8627871046112134     
  -1.7807994429030867     
  -1.6810186212856690     
  -1.5644416167750952     
  -1.4322332282998849     
  -1.2857144384147354     
  -1.1263492144790994     
 -0.95572988117881819     
 -0.77556121054373894     
 -0.58764338842860786     
 -0.39385402765053668     
 -0.19612940750183147     
   3.5548729132232303E-003
  0.20320363421215609     
  0.40082205190777354     
  0.59443558803562813     
  0.78210972008525104     
  0.96196927011018452     
   1.1322171408867290     
   1.2911522719158959     
   1.4371866358581238     
   1.5688611055779955     
   1.6848600332606862     
   1.7840243959304252     
   1.8653633760252923     
   1.9280642613190715     
   1.9715005652734092     
   1.9952382866844032     
   1.9990402460792998     
   1.9828684555354545     
   1.9468844982431099     
   1.8914479140195226     
   1.8171126069058499     
   1.7246213107409027     
   1.6148981680099224     
   1.4890394961180735     
   1.3483028333490001     
   1.1940943739576082     
   1.0279549179414784     
  0.85154447587615190     
  0.66662568263769328     
  0.47504618573713331     
  0.27872018423674044     
   7.9609302705170942E-002
 -0.12029700868737776     
 -0.31900135209823482     
 -0.51451833935184221     
 -0.70489442928271384     
 -0.88822744687358679     
  -1.0626855891599851     
  -1.2265257280004720     
  -1.3781108268373554     
  -1.5159262974253289     
  -1.6385951330970110     
  -1.7448916673587991     
  -1.8337538203456860     
  -1.9042937107725102     
  -1.9558065273505272     
  -1.9877775710290362     
  -1.9998873976983114     
  -1.9920150099696465     
  -1.9642390661413034     
  -1.9168370942707726     
  -1.8502827192060793     
  -1.7652409302827203     
  -1.6625614369698416     
  -1.5432701788538479     
  -1.4085590747888790     
  -1.2597741136372618     
  -1.0984019055933212     
 -0.92605482846528520     
 -0.74445491732872560     
 -0.55541665852080002     
 -0.36082885989202096     
 -0.16263577846200780     
   3.7182305954545511E-002
  0.23662887704977451     
  0.43371113055422600     
  0.62645988567897781     
  0.81294926051974292     
  0.99131591483281833     
   1.1597776679154157     
   1.3166513055666640     
   1.4603693982080079     
   1.5894959621219007     
   1.7027408073268628     
   1.7989724287296820     
   1.8772293117506147     
   1.9367295394595183     
   1.9768786052315830     
   1.9972753528611855     
   1.9977159847822106     
   1.9781960983460258     
   1.9389107298112929     
   1.8802524056060828     
   1.8028072203334422     
   1.7073489807076829     
   1.5948314739332481     
   1.4663789377779621     
   1.3232748275605435     
   1.1669489922889322     
  0.99896338808122265     
  0.82099647161598044     
  0.63482642954743485     
  0.44231341145169134     
  0.24538094382649733     
   4.5996710849737478E-002
 -0.15384710607102708     
 -0.35215373351724827     
 -0.54694175715993754     
 -0.73626491939726268     
 -0.91823156571773645     
  -1.0910235454873609     
  -1.2529143783103023     
  -1.4022865044508213     
  -1.5376474469559398     
  -1.6576447239922523     
  -1.7610793623977352     
  -1.8469178774256121     
  -1.9143025989826259     
  -1.9625602411853575     
  -1.9912086296104152     
  -1.9999615190220299     
  -1.9887314534399176     
  -1.9576306399705494     
  -1.9069698276708027     
  -1.8372552026460116     
  -1.7491833304055742     
  -1.6436341960104306     
  -1.5216624115529556     
  -1.3844866788212267     
  -1.2334776124332441     
  -1.0701440451083251     
 -0.89611795190887744     
 -0.71313814408454912     
 -0.52303289544447940     
 -0.32770167484920087     
 -0.12909616734510082     
   7.0799226428001696E-002
  0.26998721771268369     
  0.46647758588356075     
  0.65830706407448869     
  0.84355895549270410     
   1.0203822844201726     
   1.1870102905516626     
   1.3417780818802281     
   1.4831392697482961     
   1.6096814198524263     
   1.7201401648204022     
   1.8134118373524457     
   1.8885644977003819     
   1.9448472453018208     
   1.9816977215305860     
   1.9987477285983837     
   1.9958269084655025     
   1.9729644450020845     
   1.9303887723925326     
   1.8685252926965827     
   1.7879921253724154     
   1.6895939312311683     
   1.5743138725318586     
   1.4433037895487877     
   1.2978726917639256     
   1.1394736786764790     
  0.96968942091259303     
  0.79021634670314600     
  0.60284769173312613     
  0.40945558172289814     
  0.21197232676629135     
   1.2371114326303707E-002
 -0.18735370620236641     
 -0.38520655037382107     
 -0.57921053791168764     
 -0.76742724504395832     
 -0.94797607259313965     
  -1.1190530363021496     
  -1.2789487916492333     
  -1.4260657130538990     
  -1.5589338568240887     
  -1.6762256483480880     
  -1.7767691467816029     
  -1.8595597546936333     
  -1.9237702556722265     
  -1.9687590795976690     
  -1.9940767129992412     
  -1.9994701904453582     
  -1.9848856220906208     
  -1.9504687321253511     
  -1.8965634027476110     
  -1.8237082382058483     
  -1.7326311832431252     
  -1.6242422497136553     
  -1.4996244240448957     
  -1.3600228463948296     
  -1.2068323696227252     
  -1.0415836223800286     
 -0.86592771557438131     
 -0.68161974501472455     
 -0.49050125507361225     
 -0.29448183858402527     
  -9.5520056818444318E-002
  0.10439612980855351     
  0.30326922478421608     
  0.49911215382308155     
  0.68996811905699040     
  0.87393015071313496     
   1.0491601609262362     
   1.2139073093054493     
   1.3665254967533198     
   1.5054898127443257     
   1.6294117717272347     
   1.7370531864141732     
   1.8273385393390842     
   1.8993657290730492     
   1.9524150837238399     
   1.9859565516597875     
   1.9996549976106313     
   1.9933735512284592     
   1.9671749746510208     
   1.9213210354031744     
   1.8562698909022302     
   1.7726715107003468     
   1.6713611822034233     
   1.5533511647552019     
   1.4198205754762103     
   1.2721036079149093     
   1.1116762012263834     
  0.94014129307574557     
  0.75921280361437160     
  0.57069851055578324     
  0.37648198645776965     
  0.17850377868745548     
  -2.1257979887109094E-002
 -0.22080733574727077     
 -0.41815045763215064     
 -0.61131555824212336     
 -0.79837259568631525     
 -0.97745255782376506     
  -1.1467661368154796     
  -1.3046216072974266     
  -1.4494417295416648     
  -1.5797795087148103     
  -1.6943326527725273     
  -1.7919565845315437     
  -1.8716758779068587     
  -1.9326940040470428     
  -1.9744012899874597     
  -1.9963810103011788     
  -1.9984135508818159     
  -1.9804786032551533     
  -1.9427553674947069     
  -1.8856207617137752     
  -1.8096456560241303     
  -1.7155891685903970     
  -1.6043910807720565     
  -1.4771624471384730     
  -1.3351744941785724     
  -1.1798459186255985
https://ideone.com/srrtrB
language:
Fortran (gfortran 8.3)
created:
47 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!