From 1783bc18bf8273bc7f79357b8093187d043882ba Mon Sep 17 00:00:00 2001 From: William Ball Date: Sun, 2 Aug 2020 17:43:08 -0700 Subject: [PATCH] fixed formatting error --- fortran/fourthfree | Bin 18064 -> 18064 bytes fortran/fourthfree.f90 | 12 ++++++++---- 2 files changed, 8 insertions(+), 4 deletions(-) diff --git a/fortran/fourthfree b/fortran/fourthfree index 51798dd01265591199b1533eda889c6e444f96d4..ef51ab0789c101cd527f21e439d7363b8f254e0e 100755 GIT binary patch delta 1898 zcmah~eM}o=7=P~utmR`Jqoo~MDDB|@N5>Vqfrdc&%3V^B&*>I2Nwy(Kr~3nNA!sFZ z&P#KK?VWK(jGNA6(?!WjbOR&coMg$8Az7U0;&j7svdv9_)iK!lym#e8V`BffhkKsq z_j`WNM@zRzb&FK5hKg*BLCU8!2Ct*++R;_&>nP@_!Ppk7`nF{8dU`cqy=EU&fXh;!)ct>0!6@_1pOScB48}qUZKB<|c z_`~Z63*iNR!V--y#5F#-O#@y(FagN|Xlc;Bn6er&InmswzGi61Ye)@y8<^gM0RR*B z=+mh#{FXk|tg)|xQA=v+o?HxDc-iZ!wkZrX_$aT);7wXU}V<0?8 znh+LCU@|q(%RxB^CTel2F)KF6!32jWgrt%CYEh4|I^mr#rDenZNXQ)-lHtRS!3@kk zJZ{Vkd%z19D2#Wcd{RK@QN{`#aDKBBBB8bFu_nRc%?Dh+!YVprNC$9z zet;2sPSKZfRh^Jq_(CBH!3|0$$C+-jGVmP%3wTgn1X(yp77n6Re76L zenRLa8xJwYE9f2-eFAd&6+Y4VYPgD@3E?*`<5$3q|0k$6B#2uQR6Xle75%6(|EopQ zN{1e@l~|`53oORQ2zU>~8thN#l6)WrAzc!h)+Nrl zo_33QA6pP|ZRLgUT(!I~>#A`H^R=9q(F5*kciIBibxR{%`!kUL=r8mkOA_V47E5Yo zD%-?nrlFSId-gh%C*o^Ls$4bvQ{||D zSr%6&+i53@JCk$q_2k4TSBu5d^ulfn>&(Fe$>u}Wf*7<`J$#}T;XG?r+Ns;J?17h! zcVu}2Y#rDdV(-fGVXz%@vOEv=7Jl2hfkJrLYNT@TxOGFs5M;(h;t1Pgbh8%QZC0uP zSK5s9zWexjTWQ!)_!-0p*|@-{?OQEAk+F|%GzYA9dl*<;<*-vNxYJ>zdf{onpE%}d z;QA=*A$1X-%-#gS@$4&fy&0c&wh>_Z=AS6)Za|x}m7;P2^|=*V`g{~VU1*PNG=n<$ f0P9p?DFE4`P1@yuk4;5ew7pg}r8jW0Xp;UL8oR$~ delta 1609 zcmZvcYfKzf6vyWdY-M;Yk6o7cF1v$JER>}@)s^KvYleXG&{SeD5K~i9{XiRolt-Y3 z$!03;DQYdXd@%uIjCT3Z0!gu2k;F&EriN&0jn$5{wF+%P1jch`7FrYM!=Ab4p7T5Z zd(NF5l*yn>J_;hiL!pfJ4241z$>OF1^yM^o$hpW?yT0185XVlMDqLkhwY+mMccnaG z_@t?;rE~7{K%c^Hga^GD%rJr+X7&9M8AHgKAxzI@8bBqW(Uxn;qmks5BRFs^a=blL)Vy_XdbXU&9@< zogFnmY)nothrynfX;IpM`j`%~2;amw^4pV8SSag}a=#RMSBp!HOxGL=Uk=hv?=SHN z?HcM8kbs+uL6C0Q6^UIM=cft7C^LWSMcXWO@v}HQJhFK|9mCADijQ*+9ZBslZ^;f^ z@<^8zqI4a5|K2tfDxzPXjn^=WwYEk#j9_h) z<$Sa9+dXZ(r?ej2AMZ(w@kmz$iN>7An36LXfqI>DXE`cN&a1&9LYdUY3wW4)v|@r* zv5hZWGDaA>G~#Vf-vy$S(jwBZ)>D)(c#{fo*Wd7H2#L?>F2&plKbb=qy?Tdfn%vI2 zCunWz*?}Hv$8{@8;~LXXGErezhTe4LFAUiPo;T>}EjMk~*MX1&s*gX+@>h|=lyN!p2 z@Nx*=e*W1&hG`WZ2~15#LHqZCm>A#fMIUzlEb=gWH)ad6`Gn@oyQDdBcL`sV!*}SO z%c4j2VB`c7)j?-ir8B-lqr{?LsnapLb&R};p**DuF-B_-Dqxn3$vaj{o)Kl2H-%wJ z8u6l+G3xO zF?9{qXy_Y!Tx^9wTNRs=5A(JIY<2-Wm6FBg7C>)G5y^(hlr)$~Nj_?KL#;h~`_wH} zZ9^@O-&WOYXxq@%Q~Rf?9z**9eyD3`6JgArMk3%_yM+kwyFG2&MT{)sAja`9dpro9 zaM(#Lyx_2~qbtzis0_S_O@|}SXx~-G7aZ6E;$SrMRdyiJXV1zCL<>*nWRX_r&9RUX z{58XeIjb!4-ru!BreG|0CvMK?e$VzK!s)yNG%+Lp3Lz0buCS4iJYREBEyw;E45v%8 lf(H^&AwEc5D6PaqXW35f{=ffAWd+=bT@M-Yjg?(z{{@ElUc>+Z diff --git a/fortran/fourthfree.f90 b/fortran/fourthfree.f90 index 600ec78..08bfaec 100644 --- a/fortran/fourthfree.f90 +++ b/fortran/fourthfree.f90 @@ -1,6 +1,7 @@ program test implicit none - 1 format(1i10) + 1 format(1i20) + 2 format(1f23.20) integer (kind = 8), parameter :: base = 2, chunk = 1000000 double precision :: S @@ -16,9 +17,12 @@ implicit none len = next() call rename("array.txt", "prev.txt") S = S + (real(len) / 2.0 ** i) - print *, "ITERATION", i - print *, "NUMBER ", len - print *, "SUM ", S + print *, "ITERATION" + write (*,1) i + print *, "NUMBER" + write (*,1) len + print *, "SUM" + write (*,2) S print *, "" call flush() end do