From f7688fa090b3c1ac234c84a379e02c453d9a5621 Mon Sep 17 00:00:00 2001 From: Truong Dang Date: Sat, 10 Sep 2022 23:32:05 +0700 Subject: [PATCH] first commit --- .vs/IntelFortranOneApiPlayground/v16/.suo | Bin 0 -> 15360 bytes .vs/ProjectSettings.json | 3 + .vs/VSWorkspaceState.json | 7 +++ .vs/slnx.sqlite | Bin 0 -> 90112 bytes .../.vs/SinglyLinkedList/v16/.suo | Bin 0 -> 34304 bytes SinglyLinkedList/ReadMe.txt | 25 ++++++++ SinglyLinkedList/SinglyLinkedList.f90 | 8 +++ SinglyLinkedList/SinglyLinkedList.sln | 31 ++++++++++ SinglyLinkedList/SinglyLinkedList.u2d | Bin 0 -> 702 bytes SinglyLinkedList/SinglyLinkedList.vfproj | 54 ++++++++++++++++++ SinglyLinkedList/mdl_node.f90 | 28 +++++++++ 11 files changed, 156 insertions(+) create mode 100644 .vs/IntelFortranOneApiPlayground/v16/.suo create mode 100644 .vs/ProjectSettings.json create mode 100644 .vs/VSWorkspaceState.json create mode 100644 .vs/slnx.sqlite create mode 100644 SinglyLinkedList/.vs/SinglyLinkedList/v16/.suo create mode 100644 SinglyLinkedList/ReadMe.txt create mode 100644 SinglyLinkedList/SinglyLinkedList.f90 create mode 100644 SinglyLinkedList/SinglyLinkedList.sln create mode 100644 SinglyLinkedList/SinglyLinkedList.u2d create mode 100644 SinglyLinkedList/SinglyLinkedList.vfproj create mode 100644 SinglyLinkedList/mdl_node.f90 diff --git a/.vs/IntelFortranOneApiPlayground/v16/.suo b/.vs/IntelFortranOneApiPlayground/v16/.suo new file mode 100644 index 0000000000000000000000000000000000000000..f1a6c98f2bdc41537dc347ffe00da67f2bf0838d GIT binary patch literal 15360 zcmeI3TXPge6vsOtDqc{$paN>dh^TDLCL2glASB_YgoFfw5Ak8M7g)&6-Aw=~Eg$t` z=&MhD1*?3qETJsR@=>1r5SGN>zh^p`on$tXO#pYvNu8aZo}NB^y3aX%&gseRTigHo z_J^H!ObCvc&F1d>R`Y0}z9~>P&l>Y0_o}-)KR>TWDpTBmI+}rDGtFPwG@IjQifhr_ z&{D>R9cIhInr~U*t+wArKTZDhXVa6k`|1U+@emZJ%@uPR>Um1X&Gi*}seHV{Y+9hN zX|H^`{M|XK5nl_AzUa=F2}V#fIdFuzNP{`QUDTz;Y-$QFcT~Gz{c&z4{fa>|3zZ2| zfPdko0Ofvaioq9`DU1Fi)Ncag@;^XZr`J0u{~Kh0@-DxxVD(GXJq11uZUdhIHHX{5 z=fLMdE$MDh_CT`mvR{6JtNMDyzYq4iQGT#9a6k3G`TIrv?|FdwKZG1^=s%MHIO%(w zvh09#SGM6XP^SycKB4v$$&2j2 zY`$bddy4jkSHai7*TH7+4R8i`ED7o-hf^z<&G>?f-5LmT9u2>J&9vJHenC$NL+ATG6L1pG%%-$&A_+^x8%J z?t#AKQZlMBM70anpX5gVlAsUn)6f#N0+g>U8HLv_>KFfOf%mxdB{QzSe&#!4E?VC& zOZl1^;Th!m{P)tMzx^+v-^&B}$Jqd)=(^S?;{1~Na+C?>py5x=#}f2ICa%KrfTO4k$z2emRv z2C;vu)_?g{=Y4*{{4X#6!I4x>M2h*>KC8JGR6bq)PPW3We=odFqivJuT#;+sxYzZ( z8~RP$IA71zSG%6!;Xc2?dFYm)dj`2Hp>rcx9?gCk$x~z;HSex}#lM@m(VWKR|6|%Z z{-y8Iw<4A{jjT!jWMNC#VJ|b0Vi07O^^DK!9K6fw6!EaaenBfMq?IZgNobnc(jH+ZWO+SvduB&-(z1psYe%Sta@~3t7GGWKq31{%nk|A@YPeqDpl zqRNUXm9r9zAaAlfk|t3RW%)bWcjN`0LpLOm^36&MR>FH%zxY3^&c6lqFQ{(=R<6^& zC)A2oC?huo-+NE)5e$W_q}d4Qm~LY(fzY7snmZAV#%| zWr9uDQWxweZdvR2BiKi@J?8Hxis_^?&4FFDnVtVST6=)VehiH-py}FYOJE+UZnkk) z39Z*|+-&`kS>#=@&=`?^8xemuCB>~P9)Q+Jo@@OXLQT>njwMnuAt-RmO zZ-?!rgX@^p@C>a*BgeflKQ{mu88gRRikn{>fSXCyQfpLfnDr?UT}VFbQ)i^HlCBch zOx>P zrIb7KtXnk(E!pXzKYfxRNh>1nmDUR+o!Ki zCg30sM~i!`yKf|(JWd;9os=o4j3W@g7|;}mTw^p}(!}LamOO}Aq4-l79WQRXfZbNM zMb^7a9wZBn*<7GI3mCK68J*3j&1tw+_EdROFKg@N1_!Cn8Rd=&#DY3uyFpKi^AxXT zdDDUDuLX3D^$!V+mSmuOC)zsl=|rk?ygiZb${$R0=G!yLWU?!jPo->{z^1E3 zve3ia_a;WpA8O<8W-^n?=W=P@J(%oDq|)i`L|12bHqo8RC=PB)J0R8>+!t<=6H7-SE`k zpKlwePRun9Tqo0|a;`YnU+eqIg+`&yNc2oItn&rQ_e$UYJ&fOfXpZU?!qPv2?#KD= z6;ZITasF4|=YQ4CA1-pnpi`JZ_5xjX4ibj;8qPnIn^wM9P>p^cyO4JhHEB-z-ouPJ zYjeu(9Oel0^?jMXHf*{=FLd_u~9_0DtlVJ8t;AIe2DJjh$M){}`e}H~-c8 zj{D5by{>WJSe{vL2arkNhmlE$TcmwkS}?@u|-=kqPopKJ8TdR?I( z7OV^U?st5i^>Nv^k>(beaP;>~=6liKuYS9FdF4Umo8?zazX=CJyTP9Zeix_(KAu$t z?!PqzmYAi-Ke!Z*J?8z#yWPG@zNjA^$b;S{>2&*Dtvl$qjgS5Pt!|H$)pmKBP_$GN ziw%)0S2x8^xV;nA(OQde^tD}`ly7nCd+ugi@#Cv&;aG{9d2hOzRq23CH}29L<7~}2 zCNaSlSK6*rSYNB#rD9!-|LCLDaE#~uKjAe=?h$X-z1M4|F^%Hgia4d`Yms$>%LK%- z+M;|L;ytm(?bON-i?t`*1Mvx0Y&N#bRa)&svD%uN`>_3;f_Mch`QW+Y(Jr!#F#uK{ z6>FvY#oD@%$;8J7d$?LETZg^g(e9zt>vpI9Qa>7LfbxV&pua@_E#T{|pV%okHao!?l%$y+N%mJNd^MvQPB2I62zQeqkzgS`I?3Cs2 zE^92ovGZCtCgOj3kT;H=(JX0YDys=A@*3R(GSZ}jXDyB;k4E_+&7?G6F;C=|!?D|O z|BI;ZiB_|$zBc=1-7pM`n8VtvmUo-uCyymFR&uzPRc3aKK4YvqhRL2pGA?~Yh9eqi z6Pf>oZz&v$$Neuq)cw$^%&6Xdwe0pmccH@rtpevDoxt-9&lnqQbjMD!iMd(UYIoe# zlPI$xyAuw_MBW-QuOqj2q#@~RZI-sZWlK}X&nxAu!7-FxF*aeC_H@2QA7{D=UIpgM z$9F^F*rzn}9od=B5rt;clbVkF=MWE@{V}INUbQ*3&FR}~I&pQ;IW3xKmQk5*aA=Of zw&on;rh$*YyuV;1>5`qK9kjf5F1iE6TkHrCZ_(*O#jx4-@)OKNW{!cK>-0Rv=2Pr- ziYdXHW%%-lv1xI4%ahZ83!>L)+Gf55Ty^Z3cO5Qg-Z?i< zdnEM^={S14vq{%#??l$<@6hTiU-X}&e;@tXT4C)Py}%0uKmY_l00ck)1V8`;KmY{J zmca2+Xwg?XZqd!79}-0?4f>t#{^3yHm9Ep3W>+D9&Q`P^m;!eXyFJwqb6PJn(MaF z19G(2`s&k#Mc;=%zR6a?W%~@PZtQiB66T9%@19@dGC@wK3u-6JXXT{ICzEP{FQkdW z#MMG7lP^fLEJcWt$O;OdOlMPkI+suIQc6*IlFcMZqL9gD3B4_+1SOl#@j^bS@M$Hh z@{%AW`IMT^rR9z!sA-kY$thXQs3|_5$_jj1$f-PSBF*R0LPsEikjW|npHE~`xePTz z%_h@)I@!rkp+bt!u7x;qQ$rt2;!jpnZn@i+Uw7C?sH75(Xd?%Asa=eli z^4XlC@Y$S{=hFox%S#0{!3#3!q_PDyFL$Vr+)3v%=^USsNtPO}QVVETcqJ*Qom568 zq)_11f{+xHjLH{s8Hv_JC8b;@#S5KGJ}Y#nzLU!+`J9~KRW(Cl zcCrb+kfmd%s2w$t&C{L>0u@q8Hc13(u1fec5hPwprf5F|At@(w1xlV=3oiI>M|D4= z9?cG$N`u3`mb?*I@bRhAkVqO)w};JVD*KQq+)gHL3kgBsgw!1&c_)#$=3nsLh}G!{ z%z}7kA53{8vWO|ucNRS1V8`;KmY_l00ck)1V8`; zKmY{(ZxDDdSn|K-i!C8m{+jQbEM58zxXkL1t0(dAOHd& z00JNY0w4eaAOHd&aMlEH{(shlQ9lTP00@8p2!H?xfB*=900@8p2wXe?oc~|^7{CG$ z009sH0T2KI5C8!X009sH0T4KA0yzIaYr?1>1V8`;KmY_l00ck)1V8`;KmY_To&eVW z7e5BD00ck)1V8`;KmY_l00ck)1V8`;&YA$e|9{qmQ9lTP00@8p2!H?xfB*=900@8p z2wXe?w*HTVgT83?(m!1qt$w?DdF4Umo8?zazX=CJyTP9Zeix_(KE8N6VZqx&VBv3L zk9q&`Znv+JFX~4J@}Rd#I^BL(>kj&D<70n+tJ@=GwOyVj6fM=nVngK0)lKmeZtp~O zwALaVeQj4KA@RNNF@MVn$pw2Lfb41m=~#aiipv9>N`GV!s& z9U>^%9$x)nlu)s3>GK>dM_7>*5%zSIpys6LNN! zod8*&)Q?6QIT$1K-eM>@Tl+LDD+5Jh@mU*uKDz^!P-)ORJm^o#twrL;w^zckHjS&c z9#^`hiq!9uVM$V+lJ=zOMwEF4SKU$OEuLAABj&t1)b}P^Z^d6WBYMPr-O?k@tL433 zaYvlDn6__4oVUmsGbe~Rb3murJmER6h|}Ah?=WxXFIHGPJ7xL1%Nk2??7Y^EiTIx$ zMCO0tTMEbGasSH? zbw9K!GpcuAExUctUFh&YtH3!(C-6MOGsXrR-LcbbVs4hT+8uZGB+6{a?u5fJk++7- z>&WdLX-N87o26}U+0xYU^GZ2ua15naj7=D(J)LjS$C++|SAqHR@!e23_9@MLM|S3O zM4{RAq^2YPImE+ef6OV6S8YyhbNcq0PF!7dPKzd*WmKjc9GYXWtvScIY2f28?=Kih zx@0G52Q9Cii|zpN7CS=3TXecmF>JQI`~)+RnPXt*Iz5lE`4oGdVoLC48NNJXY+Bsi z^5itIB8{|dc|?ZK37r<%nb({xa+~5-u~}(w%HdFtSj|e)G{^_Ra4dPvCUv4| z-TuBF)8>5JxU=B)r%5^8jr8fhp)f0G<2!*+?B-4X6Ww!0pV2uQX^+TfhonzuZSKpU z%Wph|>wW6{x2R_P_?|x;yMEpOg6MUcwwZ4MR~>uiU5Cq=ch1ez9!b4JI*uOiG#--r z`rr4BFIrvwX5~LuwwIFOFGK&ZPznAuy?O4huP?tFzRL4UuO2_|lF!*(eMi!s>QBHf z8F{Zw&X3CCW6oQ~Nu#yM<8tFZjhj-lRxdviCuNFtbE?MTt4@~~r3N>d54d8TyDN=c zbMUfyi<=d|Oul6Jy&+;e!I=t66Ru+IDYsSIemK#p9l3NqvR$<=4J++yX8F#>6!Y97 zTlI}U+}w#Obo0OblDqL|H#qvXvoY=_?T541+EZKC=$~gOne>h=Q?6F&D)eKz?wlaO zB)95xS#L|z&P*AlkDT_fq+?;HDQ7KWjc$G8Pi}ea9*rGiE%G{JPhuoBb(U?DV?-VF zK3yhHcNVT(*C(>a>sP|Dy}1AQiDy=^DQVKoRglexiCuH2Qg`9ZI;K9RS#>PY+I3i% zTk)^H_?|w2{qarDGny&c3he5tJ4d<;9jVe?aJr0X*D*HLe#Dv&EZezG@tA$XmA5rn zcJ|I%=D42vmY~s%*X^XdZY5Pcf}AA2to~6ZghZLmKWAZQ4_4#!gLX(AUTp zC(&RF2jLyM>yUEoI_T5G8tD+43>4BHe`5Y%Z9Lk(F)n_0R(wHA;fAE&2m*@X(CbGM8nk~RFZqq?++b(t?;M9$L&?sp0Sghaacf>3G8_n02o4 z|L^bvfB%2(n;d8m1V8`;KmY_l00ck)1V8`;KmY{JodDMV=Z+i=f&d7B00@8p2!H?x zfB*=900@AzEHcIQ5KmN7;n^=Py!sbw8= z?9Lk7m?ID%Ax;7q9FqeQha)Bl0SAa-FpY-ub=n``-6@p8wGsU;NyYZ~YHp33rKu;^j+MiPxIq9j0q> zjSx5C_W|JLOP4P37VqP-6I!SSri6;Wf;c1wLVVI`Q6IDoDmv zhhsu0Vq9cV6G`MIBl3E>YNwmU0SD<{g#EzHGe>dX33LJ7fD3Q~>`Fa=7w850fPTOS_<>`~HhDMs0LSkQ`gq{=uj|(w|4hsA&ojqA&kS$YuV1I1 z$sgVXkUuoS4_>1`uf28qaj(Yz8|%>Bo|E>8c@SlPNN=ZyaehDW0pNqchk)M(J`8*W z_#NP*z{h}(1HTLW9`Fg^_kl-%KLGv^_#@zxz^8yu1CIiq0X_>n2K+JbIPf{(Pk=uK z{tWnY;Pb#2fWH9#5_ke&KQiMhi2G~cN#Lu%-vGS-cQ}6y_Jfp{b7w7K*&+5PVY`ceXQG}F{g0z#7NSGv#Fk*73i(0{ue-0uM>#9~-_U*wGk0K4V?BGQtNGR%R(jI4u{Si*T7IiUQviu}atN`FEeM)@gs z8M2dnX`RDg;XZjS!-GI){A;}9avcAoVoJ=4L+EuXxBz>+ruQ5YgSbke2i6_|w>F`F zd;@*%c76Q63mRV>lnQdx-GiKr$PuY&q}mimbP*dx^Hf1UZicHd|Hwfg)&g#H$neLaIdmqOngM9)jfm|V?~&(dr12W>xw?k6Mb z94J>CNrK=tw7ezI*V*IQ_sQ*}IEN+2j~YoUo;m&v-eY(CFXK&=7a6ScUI?@`J1A?R zz9q1$3I3~qF6)fJu>UEj1@<sZ7_66`_hW$3|H}LS47flMqoA<0 z9*~oo;dZ&tpyLAlYw+W(fZhIY=09PSI40)xSyvTns0$T2phRk{08F7K(uk!+ehGEN z@oNOgpN{MB<0il^{V>u#MTUuBl|SYs&x=6|ttWYF&mU@n|Ag?U!GEmuOY+AC%1n(k zr4g!fB>#OI?opq%TmJI;FPA?@^}6Odl(|)^$)HC;|Ai;+K9$EP|>;E9q8~wi){dqYGGd204r-}Nft%&1=p%(p+&I?u4dqkIyvSO^P9qvN; z*_Unv?6yCrUZeg)7~iyjhP9m;#0Z_4L` zYNH;+^nm$itL^uKe!cZ*^1rtrFUA^(k*`|kM#@kAvS7>`SOV;vE1|8J2J&oiZ%*6fp$EW-GMi9P3V@{ zypo&9smsZfa?4^~E#_j%Vou4b`NiQ(K}ij&xk4_Q8P6zzY;qzM-ALrrVkW*goy;Us z8zafgIVC=l%onyrbS?W`n-^SqaPn+9822u2_8s+jHwUAsyz+tF%u+g@x;LZ7l}57S zI_lDLQl&C!w_^Q~ADiF*7U|_s1&C5}o$8`a{DGn?mu4F}8L=U4~ zjneI+l&?ANciR5c{p5S^hBAsHhcX z(SwWt{xA8@t%$J8fB38+e{i*nD}U5@DCJV}rM^YGC+CAnaAD3)luc+I(N^gU>h$r^ z=-=J|ee?V~4N5Ux>fo9ir4Y)#)_I|8%Q8bQO*>UVW&-k8!}7=1@uVUDH$tCsT0vUq zDW|i>gn<0pFnx3RIpb5)pywaoIu0oCiprucCZue*A?GH;Hn)hHp@lkudmFMnGO*rJ zax>bdeu^%5`uX9#wfe2m$3J=3(A_t@6#T(M-O2S^zV`Yb{@2XI&;9I?U;g5`Ghce1 z70f%aKS zH>UD0J(hjnv>5A)qf5nmxVA=VKaYNF)qgwsf2H*=GnZs5l|rlQ{~h_i zeBHYV`CqiM{NK_4Yug`e=>MXX_5Zz?|LREy#(dbB|6l$2KR7DiTm z*#xeF{27=G1r~T-_I3MLco8@~Ha+DU4&?IQSl=WgrZSVWZln&apIuw^Elkcb@?>ma z1t}~&8dMYvzI1?x=48+vPS@pD4; zy*iZ+%nT^!r-SbK5m#W^9nNm7tp*0uVY$(hldI+pH<7qj!h zq&Gj3Q;(?Uho_36k>TL_si||T5j8M7qNJC+<3l}x80#@GJv%o(b*eYCFg$!`N#@Y5 z-Ygu35l6p8KGX$-Kj8=;bK&no(BJFr33>aSUccYx^agx=&S1#zcJ_yT9#1$F7#s)( zE^bE=RSvX$as8RWu%$IJ=rDxoI#3>9Ld`E067fX2 z0X0bj>au1)RWnL7o6M$YOJE)(b%*GxKliSpv{|VQo`vn8!3TzD7cu)Hjn zu#Qopd_O9S^+i1Gh)EkJSN>^zv1`NByb~4Z+T1xw#90zXz;OKD4*|+)mcNH~fZ~m=3 ze{&u8I@IO?@yzZBy|H79#Rlfztp!Z0Y`j>uT4Ym5{{Aaoh6ho14*^^gco^sR16(xy zAi%{lEC{#!{y+2jLFc->2F5XWw)p-(DMMb5e#(;JR5x_?|CRjzcEkUl{)F_Yv|In? z^~a9?zxMr;SIhsOZBY$eqvky-sN7>p?VEl^-0x=Sy_CP{d&W7KW03nQxEG2(;ndh^ zlcH}neT3=jz_k+YmooM&+=%PLz)b*s$mmN(Iha13w*g$&r+*iHe2)T7fHtmffNBT# z=6Qe~fYMAa&HXdZa9t~BoX7cmsSMc@wbEPf?KJ<^ z_ci*vl!G7{&8iEO$_L;dwufJ@PHuJ_7my z#E_aa6g(}&_uHTpG1!3U#UR8F+n_XQv?bdp*Ea2wM}MW4OKXl9WABZzH>EYljI|Wn zig~MY0BdRJ|CW|L?D-bt0M^pPz|qO4>Ep!~`av6%DT#TAJG5AyAGbky3_m&*>k|BK zM7xY6`U9rgrj=GPia45bC{q$EPi&>1v_bDi(WOuVZNH~6 z#~Qz_`#)Pl%C1}{EtWm7_1kH?9)V)n2o96xY9sl!B(K>P(^v%c&qsj$w~N|dId-Z) z^E+(+hXsL~`=d+B@{+5^>2>wRaZqATzuUd!bo--jkFT%a=Zbm`h!5|MgWk5CHO)8+ z?#Ep|Xb$-~b~aw}#D1!+gCgjhp3$~NxntgCMTth8-hMZ>MMa~2r?1x^cly0C#nT&i z`#ek0i{bs0`>V|z#8Kl{XO~oG|6gbSpR2R~uZ?!L*4zJQPg1Cyiu?a6-?0~K_(3vt zGqMQm^mJcqI(!{ZG7pk^Xa67kDf!i%&i+4b7h_B9|C7DA(F6UDJNy4C?@jFN|1o8XNiGN4Y7W9d>6nZbE2> zQkNMUW<$po`Gwy~pQmW-`@Uv_#@@WOV+!e*Lc*{7j_SSRs1-k!bkDAh$Vwk*+S|8x zM(E`_LMxke8vp1Sw;gW(G?a|AcR2l{9hqOS@6q}nZ1aL&*X1`d-0(Hzu~y(-lrQeX z)wgPv1I<(SoBJ@w^}l?jeRbNf(`jFPqMt0WHzEjIzWo0w>@7pxPH#)Lw{my=A1wSo D%#EuW literal 0 HcmV?d00001 diff --git a/SinglyLinkedList/ReadMe.txt b/SinglyLinkedList/ReadMe.txt new file mode 100644 index 0000000..a764ce8 --- /dev/null +++ b/SinglyLinkedList/ReadMe.txt @@ -0,0 +1,25 @@ +======================================================================== + Fortran Console Application : "SinglyLinkedList" Project Overview +======================================================================== + +Intel(R) Fortran Console Application Wizard has created this +"SinglyLinkedList" project for you as a starting point. + +This file contains a summary of what you will find in each of the files +that make up your project. + +SinglyLinkedList.vfproj + This is the main project file for Fortran projects generated using an + Application Wizard. It contains information about the version of + Intel(R) Fortran that generated the file, and information about the + platforms, configurations, and project features selected with the + Application Wizard. + +SinglyLinkedList.f90 + This is the main source file for the Fortran Console application. + It contains the program entry point. + +///////////////////////////////////////////////////////////////////////////// +Other notes: + +///////////////////////////////////////////////////////////////////////////// diff --git a/SinglyLinkedList/SinglyLinkedList.f90 b/SinglyLinkedList/SinglyLinkedList.f90 new file mode 100644 index 0000000..838f5e8 --- /dev/null +++ b/SinglyLinkedList/SinglyLinkedList.f90 @@ -0,0 +1,8 @@ +PROGRAM main + USE mdl_node + IMPLICIT NONE + + TYPE(node) :: head + CALL head%new(1) + CALL head%describe() +END PROGRAM main \ No newline at end of file diff --git a/SinglyLinkedList/SinglyLinkedList.sln b/SinglyLinkedList/SinglyLinkedList.sln new file mode 100644 index 0000000..e88aac3 --- /dev/null +++ b/SinglyLinkedList/SinglyLinkedList.sln @@ -0,0 +1,31 @@ + +Microsoft Visual Studio Solution File, Format Version 12.00 +# Visual Studio Version 16 +VisualStudioVersion = 16.0.32630.194 +MinimumVisualStudioVersion = 10.0.40219.1 +Project("{6989167D-11E4-40FE-8C1A-2192A86A7E90}") = "SinglyLinkedList", "SinglyLinkedList.vfproj", "{B9543C47-4998-4A86-BC91-7D822DCAFEDA}" +EndProject +Global + GlobalSection(SolutionConfigurationPlatforms) = preSolution + Debug|x64 = Debug|x64 + Debug|x86 = Debug|x86 + Release|x64 = Release|x64 + Release|x86 = Release|x86 + EndGlobalSection + GlobalSection(ProjectConfigurationPlatforms) = postSolution + {B9543C47-4998-4A86-BC91-7D822DCAFEDA}.Debug|x64.ActiveCfg = Debug|x64 + {B9543C47-4998-4A86-BC91-7D822DCAFEDA}.Debug|x64.Build.0 = Debug|x64 + {B9543C47-4998-4A86-BC91-7D822DCAFEDA}.Debug|x86.ActiveCfg = Debug|Win32 + {B9543C47-4998-4A86-BC91-7D822DCAFEDA}.Debug|x86.Build.0 = Debug|Win32 + {B9543C47-4998-4A86-BC91-7D822DCAFEDA}.Release|x64.ActiveCfg = Release|x64 + {B9543C47-4998-4A86-BC91-7D822DCAFEDA}.Release|x64.Build.0 = Release|x64 + {B9543C47-4998-4A86-BC91-7D822DCAFEDA}.Release|x86.ActiveCfg = Release|Win32 + {B9543C47-4998-4A86-BC91-7D822DCAFEDA}.Release|x86.Build.0 = Release|Win32 + EndGlobalSection + GlobalSection(SolutionProperties) = preSolution + HideSolutionNode = FALSE + EndGlobalSection + GlobalSection(ExtensibilityGlobals) = postSolution + SolutionGuid = {6DAEAEA7-283C-4058-887D-CD85B28F6D49} + EndGlobalSection +EndGlobal diff --git a/SinglyLinkedList/SinglyLinkedList.u2d b/SinglyLinkedList/SinglyLinkedList.u2d new file mode 100644 index 0000000000000000000000000000000000000000..f0bb595c1f8720ee0f2ed06ecf2470e82e5b0297 GIT binary patch literal 702 zcmbV}%L>9k3`I}3zLtK7ia(&ZvKx`Qt|%gEE3JZyetd6Bp$Ij>GGv%ca!=+m00YIE zGe_QBDEP2sp*w=Ws7_Uj*l49>yc97BD`gL!T)B&wu~(kzESSL>H>|C63AaC#!$uiO zdD5JAo(fD9JJG7Q#N^rw4)u&Vv#OzX=ymmR>M?!C9>I1#>Tv%3uU1DN#}?0bYpH)b FEdfO0WCs8M literal 0 HcmV?d00001 diff --git a/SinglyLinkedList/SinglyLinkedList.vfproj b/SinglyLinkedList/SinglyLinkedList.vfproj new file mode 100644 index 0000000..154f4f8 --- /dev/null +++ b/SinglyLinkedList/SinglyLinkedList.vfproj @@ -0,0 +1,54 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/SinglyLinkedList/mdl_node.f90 b/SinglyLinkedList/mdl_node.f90 new file mode 100644 index 0000000..d2d5973 --- /dev/null +++ b/SinglyLinkedList/mdl_node.f90 @@ -0,0 +1,28 @@ +MODULE mdl_node + IMPLICIT NONE + TYPE :: node + INTEGER :: value + TYPE(node), POINTER :: next + CONTAINS + PROCEDURE new => allocate_node + PROCEDURE describe => display_node_value + END TYPE + + CONTAINS + SUBROUTINE allocate_node(elem, num) + IMPLICIT NONE + CLASS(node) :: elem + INTEGER :: num + + elem%value = num + NULLIFY(elem%next) + + END SUBROUTINE + + SUBROUTINE display_node_value(elem) + IMPLICIT NONE + CLASS(node) :: elem + + WRITE(*, *) "Node's value: ", elem%value + END SUBROUTINE +END MODULE \ No newline at end of file