From 5960e7ca43d70d6095ce7d4f67e72d534ba23538 Mon Sep 17 00:00:00 2001 From: Elex Date: Sun, 26 Feb 2023 01:11:05 +0900 Subject: [PATCH] 2023-02-26 01:10 --- .gitignore | 0 README.md | 1 + hello/hello | Bin 0 -> 16888 bytes hello/hello.f90 | 18 ++++++++++++++++++ hello/stdio | Bin 0 -> 17000 bytes hello/stdio.f90 | 6 ++++++ 6 files changed, 25 insertions(+) create mode 100644 .gitignore create mode 100644 README.md create mode 100755 hello/hello create mode 100644 hello/hello.f90 create mode 100755 hello/stdio create mode 100644 hello/stdio.f90 diff --git a/.gitignore b/.gitignore new file mode 100644 index 0000000..e69de29 diff --git a/README.md b/README.md new file mode 100644 index 0000000..010d9a7 --- /dev/null +++ b/README.md @@ -0,0 +1 @@ +# Fortran Example diff --git a/hello/hello b/hello/hello new file mode 100755 index 0000000000000000000000000000000000000000..295daba519f5d6c4fb56a3a605d153b4d6be0807 GIT binary patch literal 16888 zcmeHOeQaCR6~B&~HU;XqG=+?>x_nG6Q`|IdLrRxnr%C#P(vO9tXi#`^Vka?6?96_K zwAyG;+Je=ES<{622S^#4HjpM!B!m$BL0MV5YSLD;t%6NxVSVSkqi?|%$ z*Nf}KLhuVDX30Yqfz)clRmHSM;a*U(dq&Bf^g5--lt)OE>?*ZYi!2FKq2@t$)g)59 zlb)pkp)qB7K3+hIg>cZrq=3fMZb!M9Xpmwt(OOJ%YTkzwWjkWYE~o5r%8sdEeMLE+ zloR^Au5c%9hm0Ci(xtZJJtIo}T>;`sDeE(3yKlmd#`&){PJ54vS1B(OYWz%9dc~TN zcz^TyH6zi6k$56A-Z0+M+|ax}m`(N~$b_~I=eJUaZ{ zd*6Pf?%W<4H;sY(kq$M|x2N-R@Fch9^$2-UX4KI z^jB8Ur_-REpDEzw{A4QNhb!Q3Rltu`z&`_iBR(Y!$7yIVnKDw51Rb3XLf3~zlLUcx?ga-1HFrSw!RGNM0}iW{)Y zOVfr0=}|bf;d!fp;YcbnfWW1uF+)#|8S!KyZ8Kztb_j}*)KFSrssl8~X3TM5JfaWA z6Oobl9>mp2q^3L?i6_LC?yk1YdQ-3o3E9%Qy{ES)yiIRG^631tZar1#TYtoR@OK)N z&e;GynQP*UN%Lx)H`GW@UB0e{KmQ@_d{yEmCFlDM-ybHHN;C18x}Pu}Qg}_sk~7Zy zn|D|^T@!q*5He%Kt?^rWvo@UX6(pIr;qpFgsf%+qoUb(!J)>~CovSHHi^DeDe*byN zhO3_dseix&48PM|D6ncQhUP}+T`gP z?O^qZH9~0nj~G?vNp14=nxk@(=7tnt^A-c&wJSpC5kE|_xfv7fmIsKZN3^+;fcvr&8#nzIJCn?#_PLo_#-T z*8N4BJnGRlzMc7iuGf3-3-1cw7rsBN9~~SF)~?t`5e3DgE19Ug&huBc6uVz;2HXs| z8E`Y;X28vWn*lciZU)>8{2yh&Q}k8`EAiOKNHRFMu~BS|j0ai+rnz@7dh43d2W?&t zO6j4cx@n%-+m7X&Nh>fk`X>Ott64$)YrUI7ptKTt{fucEpzG&N^GVQl&|RPnADQM0 zpr<}I%|C$FePWuQg6;$TI-J#^PtCKZM|j5lo@=jIRFhLU?G2cLUo70=aFKi!b~C!` z@zH>f5$^MM`s(kjz5Jn?3310Yn{Hiq^Nj?PUy7fDp8dTL`84qP4#xK^O(yK~AE?^A zWTE$`9)!k@2O)lh&lecCe3i!Xagti^*Ixjw$9!U-qSNR9K~Z&ci$eKlb-!8{C8%6_vP_EJYGLJDeVQMhBr%AQyc&As!F!mWfuL4;(7ny zwTkC8&NYhXeSox{p~mvF7tN&P>5VNKuRV6qyE!!8bJwWkyhkpm2F!c->MeD#Tu~;< zOytx)JG}0cjbHfEx{Mm{;k(*m#UT}#@i*1Lc-%*n9`EJj_%|q=^}aN%`C+&c!mBws z-$TkD7PXS+abX!K`G=MKbH(#Kl>7e}$?x-acx+b3yHnAfiViCJprQv9b(mk0<^7&p zHgCQ?u&S>=lQ1%Yjlp%n#)h@GWhA@y;ikr5U+h~{Jws>)QcVC(`EISguxF(ozX%1;LF4;%r999+0}qbxFKB{}Rxa)_sZ)BMyan7-<~W{_`pZi40A;k& z`7Q(Q!LNYxJZZ;uUPaXvj^p(k=m$jUd2$`_a&-=!68DK2_4~)aSHDyEwDP}3j$4SG zzyqppCp$>Ls`UDbNk4W?tG};;pK0JrX;J}8PyK9)=PKx*0PZg{-&4TL&9@qPyRmdQ zVkPjURaci>M-2++`#YQ74*W`-w__@AF(tTD;;dDm3E+O)b-|K774*M^0_oR>Skt0U zR?vS%`Y#>-FDvN3BXOT-QsY-;4MGg0jI@!#4wwN^s4~%wQGI~wOif$3|jCEE;TSY;G*CMD-nURDPr)yY*PYNbMGbsmN$dk7hCmJik%Fr2|LWncZK#7$r6%}=UDwh=RWhAD;jJBd$F_DVlF?D4q<3fv)Y^N5zNLG6 zTew@_-r0FqN3Y%+ZtLzK#iB^jVnEj12)+GV+rnGBHrq;A^5rmvBAQUhR+pj*SO(G= zIcaz;uHkXkx4_s|;PTH)e72)5CK^xZnRE=prD~w^6+e13VnnPOnsOs|6!JKRZ!gDj z3{FSMQ9jMlbW$IVB%)M&WKD|ZOgXj1?mWqu;$UybRMhp>@`3j;N97=*UV&nLxs|89) zIjLZ5SY02(Q8;1FGPN!g%Yyre5E+dRU`&*gAkr*?xJXBF;T7Ld{!Nb7MYzS{H^^$0 z>Q9we>T;jxP597SgzfoxmMOi5vN!%6V5}J(yFEYmG7YezqE7pE;GbbF!twd}m?_8S z-$P#iu-k3u&{~b{`8k?tfRcko%P#7&J+G^F0;5NAw&&+@yx@e={1spu{?RMZ*&dEhjE zKK{D`mLk)3i_L#KN0j*i}Qy xVNNBEuHzs+JRZJ(EC$A7x7(kj9|p9)Ih=D`OKL4=%h|uU(bBlcii$ez{{fI({SN>D literal 0 HcmV?d00001 diff --git a/hello/hello.f90 b/hello/hello.f90 new file mode 100644 index 0000000..d82b3e8 --- /dev/null +++ b/hello/hello.f90 @@ -0,0 +1,18 @@ +program variables + use, intrinsic :: iso_fortran_env, only: sp=>real32, dp=>real64 + ! use, intrinsic :: iso_c_binding, only: sp=>c_float, dp=>c_double + implicit none + + real :: val0 + real(sp) :: val1 ! 단정도 + real(dp) :: val2 ! 배정도 + + val0 = 0. + val1 = 0._sp + val2 = 0._dp + + print *, 'Max = ', huge(val0) + print *, 'Max32 = ', huge(val1) + print *, 'Max64 = ', huge(val2) + +end program variables \ No newline at end of file diff --git a/hello/stdio b/hello/stdio new file mode 100755 index 0000000000000000000000000000000000000000..b496115de8581096518ca4d68d86d500ca391d64 GIT binary patch literal 17000 zcmeHOYiu0V6~61mi34Q4AqfeO;w1%|q|J+v z7MxVHrcR=6Q-f7iC_ku_wkiTus;ElUG)2NRC~5uxktm{SX#)b)raa86G9_gDojdo; z&dlzX3bj8f&9!FEJ>PlUd(X_Bo$I;hTkTyPRX(5K;uoJ6#LWavB%%asx2Xz9L^O#@ zaQ>9IS}X#8k;F`S#3YcKWw^>oYZUGWCA)`}+)b}mdQ7>8M9HpFIlkDGFcoSXWLHfh z#k=Vt>JSQ3mRs$Gq*w?SJw^&BOzn0Qo3VN+7Gup$ddxL$wj-GACY0TTvSTWg9aD}c z#e|Nhl-y0*Afv*RbgA6-su8DpSBSV$%KA*%?u)Rae*UM0!``FXs}z@M)qkccykf&h zvcGZjhLL#vNHUchuODw}tZ&>L&Zfhg28Rh)HSwa6A=&ymSq~N*^4W=_jCYGYB zxkc#u&}cfPXN_3K&~>4A_IB&>L?$tm%o>SIZ+GiRI+f^+^^YV>S$PTjgdaVVh{c8O zM)WxRIN`f9Nh9ILsb|^2L`EMNj%8v4=z}ixY^J3uHeohl=;<*dnNDTxs8QmD6l0m8 ztUyQxC>D)~#lUz>A55lVBgq5ktWF{on$cJ?C3bXmwzTS-!kZAd9UZ%RdV8Wf^(F+F z?rXogyQ@I?Pd(;vpZmlLToalTAso3YlS{~AJ1{CFrz+3e;Sau#Cu^1Xf|B#|jGsTp zmPs=)uAWzne@)>v5mU}M^Dk^Sahh{H7YR9M!@19d&)RVLJSPxk-iF(sOA9uf=Q8OZ zRXF`zs38$7j@fX2))D@&4Oc%g1dB&)IFF6+<2D?DwaSbQzt}>B_`MCk#D+g>!!Nbr zUe$|$7XdEc5JiW@z%}D-M;^`G`?or9N5KpgGbH^lq z3-Rzpb}xs`>%6 zuT3qjlcf0>^scb-ov;w^O>0xlSHPh*Rec$etqaCV4E-;V(a@I^&ehgUkmHkzLVu2g zQ(ImpvhISGpVyvzbG!EBf?xBU(#~EmR=~kem4lkXxxw1HwxT`tZ=#vRBKO%oZL;~> zRMqmY8kcHEnh%4SU58=K#&J4TeGhowUbJnsPxfX_9%ea$I-Fl;KZ4egW=k`gH#oR z(-hz6p026pf%QT}cX#HWkM?!u-;ef2^XL1tsrp{Pw|A}kh~~)bGv_gaCqMEVbsPVr z?vJkgJ6-uV+wy;l7FPUKn>^{$w!WBqjpol+_eSrC?v3t?>L&+_EmC_lvxv%hXU#O( zA@Afxz>9zv0WShx1iT1%5%415MZk-I7lHp-1bmLKE<$9DcrqOx+}a?t#K=hc#tlMvHUc39jcpgd0)X48_=V5*herTEP6)yr_1iT1%5%415 zMZk-I7XdEByzfed^UTw1DwZ{Z~P(Jytj_qzeeG#_hG>tAG#|cd(8Z(Txe_frf@_3#+!4J-T2K-4dI5(>rD7#J<@JcpS8c=u1@<>d4IYS_lsG+ z5H^7yJG^VkTmV0I^z(gbQ%Adt1mC|-e6ir`>cndV-w#fFiQxOriC=8ppH3XJp-lY! zn8l&8_)_s`Sv+9nUpW2O3ZC~)98N-Z#H{R>wd9X1k2+5bSv7>W9K6AcAe9n&Ro7zIx49&`EMFZD~~c@%iL{{L9{c|`e<|BC|l zi1ZT_4Ixxe`1xHa4z$I=hwJ+w4bWA}wR=kHl-?(Q1nw(y9p94r%S++_Wt7tKE(h+z zuY&tNIf!{)g)AcXe0c-|>9<5s6Ie>CP>*pK8QXv zlJ1X<=y4;R$?CD(xEM%}j*TRYL_FNo(AZF3iSjm*$mqz#_Unn1k=ZW>GqF+Rm*hrA z_rt`->CmL)kD_Yv|M1<>&Yj4EQ7I(I^th?%=B+UA=!tf>>+L(+C`m>~PLtlQDNt+c z5&Dj%F1*%bnV!nDm~t+TuRCm^xgPlrrZra=-Fs}$>jBPl=fLp& z$#xt^S~t-UEqnF)ow zj)|IWah>SQQ{w_FD(bfX7bX4HLjV8( literal 0 HcmV?d00001 diff --git a/hello/stdio.f90 b/hello/stdio.f90 new file mode 100644 index 0000000..c6f5dd4 --- /dev/null +++ b/hello/stdio.f90 @@ -0,0 +1,6 @@ +program stdio + implicit none + character(len=16) :: name + read (*,*) name + print *, 'Hello, ', name +end program stdio \ No newline at end of file