Octavian Petrus PROGRAMAREA iN LIMBAJUL FORTRAN FORTRAN 90, 95, 2003 Kaien Tehiiopress last 2008EDITURA TEHNOPRESS Se. Zimbra ne? 700087 ag “Teot 0252 260092 Erma [email protected] EDITURA ACREDITATA CNCSIS (©Octavian Constantin Petr, 2006 Desire CI «mine Natio Roma a al FORTRAN, FORTRAN 9, 95,3083 Octavian Pe gt" Tehnopes 08 Bitow BNL 973-702-3307 ISUNCI3 978973702 3908 esia0 sy 10 973-702-3027 ISBN 13 978-972-702-1208, CCAP. STRUCTURA COMPUTERELOR en CUPRINS ML Ceesteun compar? 13 Compiee cu shtcst Von Newnan 15 Send carci [CAP.2 COMPUTERE PERSONALE svn 21 loose - 22 Str anna Pa 23 Miceprocesorl Fama nsopacesae INTEL 24 Shame desta 25 Pentece, 2 Fister: Duoteare Wildcard Foes Sho (CAP.3.ELEMENTE DE PROGRAMARE yn 32 Limb ced masini de asm ~ 2 5.3 Lame de rogamare, lapel derot nlpoa ey 35 Comet tiat. (CAP. 4 TIPURI DE DATE INTRINSECT.. 41 Date scalar. ipl dlr 42 Date inves 5 Date lope 38 were 5 Neen dooce a (CAP.S ATOMI LEXICALL, EXPRESU nnn 5.1 Stal de carter Foran 46 53 Avonlea as 54 Conan - a 55 Coney 7 57 Consent Ie compiexe 3 58 Contant ele loge, 2 59 Constante tere caster s$10 Constante mum. estationes PARAMETER a 5.11 Vanabie etre: Detarate at lo dick ab Algoma i Eo oni mio pas de rele: 1. Cae =Ptsy). Treva a pase mmr 2a, +2. 2 Cate 0, =P). Tec a pl eu mumial 20, +3. 3. Pane z=. Tro taps 64, Calla diene + gatnbui at x Tree tpal 5. Cateli dire y+ ata al Tel pal 6 Inet proces de peace \ Ln ler uu aun et orcas; ac proce aac grim ui Foti ete fare del de nlege. Un algo webu reva 5 calea cea al buna de ovata ested cera fra ebue s te ceoa gs fc templa Esident lgotnl ll Fockd reat eae el prope eset le ss Sporto El ae eraser de mash cc se ose apices de mere te Dine. Algol ete afcace Inet pens once prec. Je mere ines Drone conduce lh obra cll mal mae dvzor son Algotnal ee deta prin ate ical ce i ndepline neler uno ce pera ebule fotat In ceae ps jis eletcse cet sect pera nplos pe de ues cep ‘teal alors pa). in el ce umesnt nun suc eat inorante le unl dsitne de informatics terete hur eoraalgrtonibe. Deters aur» alsoreor ‘ns mba) natural (ints rn inns engl st) mh ese posi Chiat oiunea de algo nu re sens nan io} patra. De ase, deft dat de nt ‘poet edu conser 0 degeabao esr ua ou die ‘guess. Descoes slgetnie este posi daar im ature lintel, {ibaje forma Oris inns acl pse a llabet aed oman ‘nth de seme ch sae se formes aint in cares comp ene jl Dropoatle Regie de frmure a cuvieler 9 4 propoilr slstuese sine bajo cpl ce deco ses, series prepetilr lttier: semanten {ibaa In linbsele lomale sem crt propenpee dtinet nth st ‘ma rin forma ek Limba formals fn eae otf desi slg se mune Iimbajealgrtnice.Buzete tea gonna fst pose in 19S ere AA Miso. Tsien limbs) algorimic ene mb ropoatil se names Instruct Sina limbs algo desre dl Ge Seere al sri larsemantca desert tl de excep asst, (Conarstsr! igritmiar empterce ptf considerate area fie le slgorilr ee sa la ica progransa,propanele de comput sua considerate 8 Sumie clase de slgori, site de coment al semper ree un Ti tao spc, Hebajl comand. 32 Limbaje cod mayind,limbajede asamblare Limba aleoimi ies de tue un computer mums Hmbal coda limba objet sib) intera Te vote de un hint nr in ste propose Huse ris auc mba 0 fn fui de al poser este ‘some posed un muna nie inswetas sine, coment pe care le poste ‘Steet Oe dedi of cena de un compute la le rel wele 2% ma rer dani mete ei aces nseamod 8 suna a doi ine nae nes ates "Src ndepinegt nic legen acc add rade aa[rey]o2=10 [p04 ‘te labios dah 8 ymax gym. De pid, pet an rosso ‘max=1000 objiem 00 (500-400) = 60 + 100 =700 Inti ce eat expres (6008 500) 2-400) Dred in decursl une opera ante proceso sb bj un mami sna mae deci mar Sau mi is det min (enol se nace dpi) eel {ul este nedeerminat Duet se proce v dept proceso de chee sae ty ‘Serna celal se pes, ee cetnares lr reze pri aerial ne sens. Pea evita fenorent de dpi, itera [nm] pein come ter tse age sfict dee, atl ict uk me det neces Pino sla mae de ble 43 Date logice Dut de tip ole, dtl gi sau cum se msi umes, dl de ip Rodan defines dupont mir loge em pt avn et out alo ae) fase (as) Numele “Hoole” provi de a ume ki Gearge Boole (18151863) ‘ies ps tele ager! lope. Cu dtl ice sep fet perfil gis Yue, 08 %sonjneicg AND © negates, NOT Valo expesilor pg. pig sip sun definite nbs 4.1 nde p 9 4st operate log, Tabet 41 7 pe Pale | oe Tae aise false | fase | te ‘tue —[ fase [vue | ~tlse | Yale Tae | tue | tue | tales | — te ‘wus | “tue | os [tue — [ai Din defini ope oie date nae 4. ptm demons; Leite de comuttvtate Peseeeel 46 paerene an Legle de ascii (ever pvlaved “sy (ongarepatann 4) (pagvr-@vnateens a0) (reaarswranvienns ay Leg De Morgan seva=apane a atrnaeapvne ay Prin defniieoprtral v ae pirate mi mie dst operon, 2 ee Priore este mat mich decit a opel. Acasa team cd expec Mpwgn? Wea lelass ca (~via) “Tot operator de ela dau ett ei logic. De eerp xsi relic = are valeares Yue neh este egal cu 99 fal in cz coma Ca ‘ols operate de welaie seat =, *, <, <, >) 2. Pen set pero sunt ‘alae tare ea weyenues) ay) asyotcyvte=y) ws eyotecyvoteey) 168) ‘pea deren = gh < ese echivalene cu. Pin umare, cu. ajo esse operator de reli sep ein dor pia44 Date reale {har alize matematie Saft muines R a namersor als, Conputerele tu pot lca cu pete fee el ot fac nama cu spots ie ale aero sia mal mute metde de sprsimaie + mmerly real Cy repent fe “Meta cea mai flst este apoviapa nines rele prin tema numero feale aunt tema mumerlor ce veges tenth otng playset programe datele rele at clement lesser al mmerloe cu vals No ton sistemalnamerlr cu vig tt unui eo apnea eu on ir & ese poate sec tral a dos numer regi M9) care dine Ccotnind ws ami nt de ie, ats Numinul # se sumsste buza (as) represent siemulsinunerelor es vingul tan, numa se names mantis ar Fe mune exponent Denumiea de “sgl Nota" prvine de ati ct acl mies pa ee roid posi volt y sjatind.coespunaiorSxpenenl. De erempli dock B10, aver 10,5610) “0610 = 01056 1 = 1056010 Tn Fortan se fleet urmitrl model de rpeezentare a datlr de ip ret «an Alcs veprevin seml (+ stu —), 8 ste ade (zn, ts nace sect 1. Nametl nes sone dere remneaive aie mantis, ssc ‘nepali wea <8 ’ G1) Cia poste nro doar ncaa in creo fle sm anaes az £=0 si 20, Numan eg 1 mst mar dct 1, ee mumral de cite ale ‘mantset. Exponent un nes, indepliae nese EMI E 2 EMax am Jn 4.17 mantis este 63. Se, Msn ek mantis feb ser, se ral mere partea fracioarS «sum nirgult Now Dack #=0 ‘exponen Eto cele bares dy, kL. sat eae co eo, Exemplal fo haw B= mil eo 20 se sere: bed! (2 40427 412) <2 40.51 04125) -324 (0.629) Jn sistema numero cu vga tnt cel ma mae amt ete ge (1-28 20 tele ric ue yr oe: y= 91 aan ety pistes in memoria compote» dats el (aie lt Ant) xi ma mae plement castro de sure hee 3 cae ince plement a alee panes BF ENGR EMV se eg in eens on dae arate poe ncn co ae enact (41) fe inva aa B21 924, EMG "131, EM -136 face crc 0h a3) Din aniomele AIA se pot dooce armioacle treme, e reezinh ops inert sl ars diel rele hk y20, anne x92 5 dhe 2, atinc 19920 thet (120.0005 yD, tinct vy ex het 025 y, ani xO yt sox-0 ¥90-08s-1 00-0 F811: zone 4a) ‘Ober el Iie de aoc dsb lps in examele Al- 49 thro scot os exe nae il st eee 4 axempta £59900 y= 400 2-099 9932-1908 ¢-09)=9910 38) £8(992)=890080,001-8901 Exempial2 X=1100 y=-S000 ==. (269) @(<02)=-55005501-,000 39 £8) 2)-111080,001=1,00 Un “pool esi peril de asa sere, Ee st cata oe or fue porate speci sehr «dt slat inte cle anes {0 pane din ie semmicatie se atlerS rcp intr se poste i ‘eps ciel srmiatve Fenomenal emameyseotracte De semens, impirizes press un "perc poi. fn hea anor im: pits mic elt se poate psn Jonenil epsilo.De aces ebui ‘itm impart la eo Sou laut eu aprepiat sera De ekemph dach int ‘rogram erst 0 rele de fra alts) Sep eve Hine cae fe noch eu ‘ain os) pals reli ce oie gis asia preci anintce cy vig tnt ete dat dermal © ce se kein in ora ce=minfs seat #1) 436) sich ese cela mie mum post asin serezeta | Iu 56 Aosta de elie Valores recent fom: aan In ich, amin cede sp elope fig nen de ea sumer, Rese calcullor eu date nek depind de tpl probleme 3 de gol les earl et mt tn etal obmute vor fae ceo tiga. Evaures acter, ce nt somsci ila oti el coo ‘ulime Tit de epeczntan esto blame cee obit anal sumerice 4S Necesitigi de stocare Compton eae ne: INTEGER, INTEGER ([ KIND =] 1}, INTEGER (KIN 4 INTEGER (( KIND = 13) ‘eal REAL, REAL ( [KIND =] 1) siREAL ([KIND =]2) FTN 90 (Nap, 1997) accept mito inti ate 2) + complex: COMPLEX, COMPLEX [KIN ‘COMPLEX ({KIND = ] 2), + ogi: LOGICAL, LOGICAL ({ KIND =| 1), LOGICAL (KIND =]2), LOGIGAL ((kND = 13) ‘= carster ( CHARACTER *o) », Ccuvimele sist cu caractee ABIAL peut nucle de speietie de tin. 0 spectatie de tip conine in cova shee (INTEGER, REAL, COMPLEX UGGICAL CHARACTER) sun selector al parametrle Kink Spector de "psc loses In Istucion de declarare apa ecu dle ep crater 8 ‘cin nui caraerelecare cece soca oun bye (Compilatoral Visual Fortran acepa cles pur de date: fs valle peramsint Lind die ine INTEGER, NTEGER ( [KIND =] 1), INTEGER( KIND =] 2) INTEGER (KIND =] 4) ‘ra REAL REAL (KIND =]4) si REAL ({KIND =] 8) 1 Somplec COMPLEX, COMPLEX ([KIND =]4), ‘COMPLEX (TKIND =18) "opi LOGIGAL, LOGICAL (KIN LOGIaL ({ KIND =] 4) * caret ( CHARACTER “n) 1), LOGICAL ({ KIND #}2), Compton FTN 90 inpune erin de toca rt bla 42 Tabet 42 INTEGER, [OINTEGER ENDET INTEGER KIND = INTEGER [KIND = 3 REAL REAL OND=TY. REAL (GND=2) LOGICAL [-“tosiear mane LOGICAL (KIND=2_ LOGIGAL [KIND = 3) [——cowptex eno = #7} COMPLEX IND CHARACTER" "CCompilorl Visual Ferran (Compag) pane coil de acre att In rebetea 7 ony INTEGER 2 INTEGER (KIND — INTEGER (KIND =. z INTEGER (KIND + REAL. a REAL (ENO) + REAL KIND: © LOGICAL a LOGIGAL ENDET i LOGICAL IRND= 2) z LOGICAL (KIND = ¢ <— ‘COMPLEX (KIND = 4 a ‘COMPLEX (KIND =8) [1 ‘CHARACTER = (sr in cra compat Vial Foran valores paral Kind ‘eines numa dete wit de sca CAPS ATOMI LEXICALI. EXPRESIL S11 Setul de caractere Fortran Lindl Fran et un eb ri Acs! inj pose us aliabet. Aft Foewan st era in earacere alfumumertee 9 carastr pei Deft caracer ete fears aftmumarie| carter special} crater aliommmeric ete Tienda) iherd ete FA BIGIOLE|FIGIM|I|J)K|LIM| = BNJolPiaiRISiTiU|viwixiviZ| # Malbicidieitiginijieitim) Mnloipiairisitiulyiwixiyiz oe me Foltz) aiaisicirigigs corscorspeial Se elitr tL . mpi tiseiaicisl2i7isy ASL seal de erste Foran et fot din se 26 ee mas is le alfa englezse ote 10 ce are 0.8 sem sublines un de Caractere spoil noice conten somal Fora rete Here mi 5.2 Atomi exieali Propose intl de programa, bic ists, st formate din con suc de limba al sie expres ci delaras seca ee), ete "llr, Sut formate di stm esc Atom lene ea hes) sat aan formate dn caraceee afte pal comps stom lel pt pn 9 ‘snumithsemfeti In fn de covet in a apr, Aste aa! eel Sunt ele ma ic unt ale ues srcan Foran ae 0 aun some. "Atma Fxcall po separ, deli, cvite chi, ame, echele, ‘Separator sun roa 2% Sepa ptf i blanca (spoilers). sonst su 0 eth pose ssp de ut ewan chee adacent pinot sa ma mute ance Ui de‘anc ese chien cu sing lane. Asean peite iim bance ‘Sum dari penn inbuni spotless Fort ‘elimi In Forman sunt prc de bol ar nc pi ale al inset Delimiter st od nae} ‘Cenintle chee prin replied sia le issn se sry cee ‘mai Une cavities inosine, De xeng a instcnes 00 15 1 te un cudnt cee ce efi insrcnes DO. Coil cei ot dln le ute instruct, recur ONCY ino istactone USE sau WILE ites festutane DO. Alcuin cee sei opium. dei IN, QUY ys INOUT itracane INTENT. Tamee se floscse pon a Mena dre oleic sle nl og: “avail, Constinte mute. pu dae, run wanes componente de rate, ‘Saumenis dummy, scl deft Tachetee se folsse po enn 0 instractiae.O etchetl cons dn 1. cite exile da cate ua eben Be neat ronal. Das the Foran ae eich eet nme uc teats de en 9 het poten Jncomstit DO nsrcubca CALL ste de salt sro de tate ‘hie. In acess uit de program deal sca po aves ene chet (exis si ecepi)Zoroure din Ih ening zeroes) le wet cht ou sun Seicuie: De exemps 020 20 rere acces he 53 Nume Un exemple de stom lexical ene mumele, su, cum Se ml ame sar Detiaite (har laren) unde este tet iar char alarm et erste lanes, Numi ein de camer et 31 empha TON, SUMA, X3XA, ARIA, 55, An_unverstar xemplal 2 Ne norte sn amc cote un bla 2oed pana carer esto ier ‘eta cuie + cre ete cater afnmeic ‘StL Por a siguimetiphiiares text Foran: i Foti name eu sennieie macmenic. De pil, pea o supa ‘ost nuel aria gnu. aus, Pentu cordon flesh 2078 sim 13) Alege me au econundh, Pes sess Evat sociale de ere sennivoar (09 0; 1 91,5 $6 1G). No ete bine ca mumele ma ng sb ‘fre dor pin tia Ur, eps enord "Gy Foosnd ser subline se obese confi: C00". coor 54 Constante (const et tc ii piste scenyivloe in dct execu un ogi Exist constant iterate contante sume Conse irae emote ‘De nui ce inde saloues constr Ian de ure ins coat ‘ng in contre ine ee compote oie caster Cansaele nuit Se esc un name ne mired a srucpanes PARAMETER sa varie ‘iniul PARAMETER 5 Constante literaleintregt Deft const ins estes] ge Lhd | ometicint te gic ei} wor oe vl) : ae nd (te [9c] nme. constant scolar inrega ‘Ac coi in_s incamad conten tral nteagh x sem, s_cif Insane cif, Inscampa se, Inseata if, a in te pret Lind "Senmul ste obligated acd xe nega 9 opi ch este pout etna hind ce ae ovata posited pectich moll de seyrzentre (02) 2 Stele neg Dock pramel Kind ise (in? dei) 9 constant tical Ineo este caus aires cus i sen, onsale ue itr ca ‘nd nara TO. O cont fr se se pretpane ete nena xemplal 1 Coase atest 0+ s320 +25 000Compilatral Fort FTN9D (Neg, 1997) accel pity kind wala 3, 2.1 ces ce conan necenilor de sore specif tall 42. Compo ‘Vs Fonram (Compa, 199) spl pty hind vale 43 cage coe eestor de stare specifica in nell 43. 208 202 20.1 1000.81 60245. Volos 20 se shes pe 4 yes penis 20.3, pe ? bles pena 20_2 pe | pen 20 compe FTN. SPE 3 par pens eae mune eee fie omen 10" owe I0", unde R este un tad Inve. ese necro ai alae & fame Rnd Aces vale se pte na inunapel a func asec SELECTED INT KIND 9610). Aceauh nce raumets value crepe ‘ave prance Exempla Penns a wepreenta ine oe se ei eu 6 cif, aie ca in acc '99989 pint a 99809 pod sl Cu uel nnn re ‘enim sonst itesgt kn INTEGER, PARAMETER kn = SELECTEO_INT_KINO(G) lar constant inten nami floim e prams pent a ste dif constine 1555555. $2000_kod tho Limba Foran pert ea uno onan ine pov i ae ze ified za 10. Exts constant inare (srs 2), consane ote (zs 8) fonstante hesareimale fara 16) Aces consists pots apr mami insraconea DATA (813) Dette conan bined ete | Be Le] | BAF LaLa) unde if te 0 ei iar: eee (0/1) Petnte (O° Le}. | "a Le) undef exe if xt ee (0)1)2)9)4)5)8)7) Definite {2a}! | Beep te) } ue if ent ofa heszcials of ete (011/2/3/4151617/ 8/9/A)81¢ [O/E\F) Aci const ena inser constants heazeimalLicele AF pot cle rmezna 2 Orepesen "3 Crean Frees me TH semplul 4 Constant ire, ose exasinale: Bror eto o2ree oraTaT ZAIB ZANE 56 Constante lterae reale ‘Constante ele In Fotan reper dtl (44, Define: (econ tre on omit reald 6 semi? TE expo} ind) | sie Eexpol hind) semnif ete ares Lae Dro} on fate iris seme na fate [si me constant salad nea} Alc const read nam constant tral cu sem, oni inseaas artes semniicava (| cglezh, snes), eae Mera exponent, po Sseamat exponent cif lnsearnt ire, kind et punta tnd Sel — webu pad aca ne sonst negate; sel = ee opin has une Deft cojne du fom de scree constr tale ele Prins fr 5 mumete forma potion sia i form in virgl ak pen valores °ec eife ese determina de pita resi fh de pel 2ecina. Ta fom oan fra pram ind o const ea rea ste const reald_posis este {[s)int.[frac]|[s] frac.) \ unde int etn yi de ite reecns pare neg, arf este un i deci ‘prez pes Fiona Costa pote sn dee stags a resp Pc 2tmal paren acon pares nen spt pt san Exempla 1 12, +12, +120 0564 53 +0504 +54 90 0028 Zeros sf leading zeroes) zeorein sting pee ce ene se ‘gor i mmiitouea cielo secutive. De excl, estan C001 73456 tbat ee nee no ete yk wl dn or et ia see ’A dua ford pete coma ierale rae x forma exponent s30 forma in vrguld mobi. in fara expos rs parame tnd 9 sont ie cont ed_exp ete mamisa E expo manta ete | [01 ice. Lore Us] 50 ce scar manta ete paren sermicatv. Lita exponent E ise tumult cu 10 a putea Capen expo repeat pure i Ie eae thule Inia const precede, fet sa elt De exemply 1.0E8 fepeznt Salosres 10 Sern tebe apart inte lis exponent ian exponent ne tiv, smal + este opto in era exponent sun exponen poi: Dael coor zi pape passa onl a an poets ‘rele oni un punt sn “Temas "egls ob provine dea poibiate r vigl aan ‘pentose eoespunrtoate exponent sir ce | 597 eff) xemplul2 Nuria 1100s pote re atl Stal 0" 154410? <0,154x10 = 018.10 154310 ica un produs de oi etn primal Ft ese mats, des factor ete 10 fiat a puters. Infor exponen acest mand pat see cx 0 const ‘eral et TSHEOd 15465 OSES OISKES 1HL.E2 we4E2 * Puram kind, ate ovale pov, specie modell de rerezentare (tester ele, Compitouce FTNO Og, 1097) 9 Vial Fo (Compa, {999 floes dus dee pts reprenetres dtl tse ae abla pecae rollin dbl preine ce corespnd never de tcate din abel 2 #43 Esemplat 124 122 Prim constant, 12._t,n sil preci, se stoke pe ys, iat sous sonst 122, in dala preci, se stocbezh pe 8 ytes (compile FINED, ‘ate Pane sepeerets cu © anunits precise mantis tate dtl ele po un lonsis crctermt de anuite vale te xponetlor ere neces © anu ‘shoareaparmerti kind sib rv de cel poi? ste semaine pe un domenis ov exponen cueon inte 499. Cu insets REAL, PARAMETER : kod = SELECTED_REAL KIND (799) efi consania muri Kd pe cae © fla ea paramere kind peu sve 28 kod 456789%_knd Pe ala resizing ames pot ael ane nigel PRECISION RANGE a), Exempla § Valores st PRECISION (28 kd) hcl pin 7 ir vlan RANGE([email protected]) 5.7 Constante literale complexe cordate itera. Defi: coe compl este (va inag )real ete {ome Hts | comer) Sag ete {cont I (cont ras} \ nde comet comple scam constanth tera sempled,S const iit Inreamna consn Tiers ieagh cr seme, com tools scan Sons Ia alt cu Som rea eet parte real eonaantlComplese fa ‘epeaats prea imaginard constant comple ‘O comtnt ier comple te ctu yin alae aloe por real rmginart rn praca kind. Valores parame Kind peta 0 coe Sta somplens exe deternints Se prac hind apa ees are. Das | rea! meg sn const fps, parame an a Sons complexe ae vl feue corspunde pl rea efile Dac rel myst ena ele oa {spurt Kind parm kd sh conn complexe ome pram inal tea 5g Dad. reo! nay nt conte ele cu par Kind Sif, armel Kind al constant Complee ciel ca prametal ind cl ma Compile FFN80 (NAG 1997) $4 Visual Fontan (Compo, 199) au rovdute pn cesutle Maral complexe dout mel de etre, sg [Pein in apace ca necentie de sear arts ntabelsie #2 9 4. empl | Namal compl 2°34 se poste sre 68 o const ler complet afl (compton FS 2a) @s) @49.) @23) 223.2) In pint 3 cau kind =I soc const compen s ein snp esc ‘eyes, 4 es pen utente yts pet pris sragirh,naile 3 ‘he Lind2 9 scares ac na precepts 8 yes pet a Fela 9 Shes pon aes ran, 58 Constante literate logice (© constant loge specie una di aon lope, devia st fal Desi: com foie este TRUE. [ind] | FALSE. ( kind] ) unde cons Joga ised constant Heals gi, TRUE. inseam valoase “devia at FALSE. ican vlere “sl Paramcl id ete pina. Coniiaral TNO (NAG 197) sceps pent prt Lnd lo 1.2 5 3 (Tabel 4.2), Compara Visual Foran (Compas 1999) sce pny prant ‘nd vaonie 129 Tate 43). Exemplal TRUE TRUE_3 TRUE1 TRUE_2 In pimee dua czuiconsnta lope este seat pe 4 bytes, ez swap ye ua pala pe? bytes (FTN) 5.9 Constante literate earacter © constanthcaracter reper un i de cancer pt le set de canes procera const. carter exe nd) "ohar far "| (dd car eka.) ade con eaact ete conta eral carter, chor ete ual din crates “pu, ete parame Kind. Apostate hie da toga 5 de tear oon su dlimiatrt inst con in aloe sonst Exempla | Consniele olor casa, ade srl crate cuisine limita Eset Inconstantle carter eis dient inte ecm ih. Exempla 3 Consus “Ac™ std contin "ae" © problema oconsitue rpezemaren delimiter no constant cancer Delia dun fe pti nan 9 ast de ato esl xemplut Dele sci in gral de crt: "aspus'salt* "a spus “eat” Un detintator dbl srs nil de carat seiner aun Singur emia, "a spus" sar = are alr pus aNumirl de cree dine clini se meg I Langman eon ‘Sa complain Foran (Cong 198) lunginee mag wt cone ‘ante earacter este 2000. ™ Fe dle crc amps FTN9D (197 ae un sing pre hind ct corp ees a aac ASC pa eye Ex cong tetas care tcp po dt are parse Kind Ce Jens epecea oui ater et yt repetn te Cn epsenten see ae pe? Syten ene poh i li gala chin, pes, an aru pete Contr Vil Foran Conn 19) pe un dean MBS ac ‘Char Setcre ort nts ino ce pe magi 5.10 Constante numite. nstructiunea PARAMETER In Fortran pte aves gi comtante amt, costane pe ae fe wom cu mn sine. Denes a peice ch xe vob deo Cmts tui oe cine PARAMETER: Desi: noe parameter este PARAMETER (name = ex mame = ep} unde name ete un nue const nui a expr ete eqs ce poste comine oor une dnt instotube PARAMETER antrows. sempal 1 tmnt PARAMETER (pi= 3.18159) ein const i plu valor 3.14189. PARAMETER (= 10,)=20) PARAMETER (ip2 012) eins consume nuit pc valor 10, 2,12 ‘Stl: Ese o practi Har in propramare sos de citi ste post ae eso conse unite dears ca nsrcisnes PARAMETER. Act fat [ogranal mai intl x pls ack intron groom o conus shu md | eat Cel ma oro pute fice medicid srunce PARAMETER. Constance ite po 6 definite cs instr de declare pl ce fost arte PARAMETER (511 semplul3 Instone di exemple chive cu trucanen REAL PARAMETER « pie 314359 S.11_ Variable scalare, Declararea tipul (vail slr este un obit ela notat un mame. Pent pocesor sarnila saa este ocelull de memere see rest snbolet ee manele ve "ble eeu ae se stachearsslore varie Tn daca exec! prog ‘ul arabia pte cia alae Majortte ‘varabikor ny au nt vale ane edad fcepe execu ropanul se ce cae varie sunt nedfinte Exoupe ofa vara cae Smt nial cu stuioen DATA sau cu isan desire ipl se ‘seca sete varie sunt definite O var pout pt 9 lor sa Pe ‘chink valores a execu el Inside sinbuire su 8 ute ic Se ‘ire, Astelo vail ote cadre alr loot ite inp Sumi cums po deve dei ona species iol st utes abute ce desciv modal de iia i ogra Srhllese fons stain e slates ipl Desi na del tipo spep Carib) i pectiy, le (INTEGER [st And | REAL [lc hind)| a "DOUBLE PRECISION | COMPLEX [sf tin!}) CHARACTER [se char] | LOGICAL [let hind} } a ste PARAMETER: i fete bit Lobe J eet ete mame [seme . Comme ng]skekind oe RIND =] ep) sk char ete hs ang ([UEN = apap ND = slot ete (LEN “ah lang char te | (val prio it) ‘Aci ntrde!p sent intron de dsarare_ pa. Speci det ape tp compe nal in caval chee INTEGER, REAL DOUBLE PRECISION. COMPLEX, CHARACTER: LOGICAL (cae iia unl ‘Sn pune nina) opin Kind sleoral pentru parametrl kind su Selectra de careter sk chan kt kind expr iin santo expres de Tp ney cu cares iiializenc part Xnd (9518) Selector Ge crater Suehor se flue numa oelare taabicor de up caster El conte Setectral de engine serge epesn lore a parame ape pavumera ungime LEN: LEN repo laine neater avaiable Hp ‘etc Panta KINO pra lngie LEN ae mums parame dei. Sictehor taper rere valoare paramere Seip LEN, ie xpi nt iat capes de ire reg (6518) In ae ans, selector de naive, Ting char vores laren paratralsdeip LEN, se Tunis St de ‘has Gn mar de crac) cot tinea nats eras ea. ‘sta de delrare nent. mane et mune de vari ar expr int eo ‘rei de nlzre cus cre vaiar se pte nica vara. expree de iniineare tue sev in tinpolcompiinsie expia de lle eve opcond esto constant ies su nih ae opemor ene un operate Uninet Dac ete presen sibel PARAMETER stun isrucien define © Cennanth nomi acon cz iniines mane ~ expe i se abgnone Est ‘Saket pecae le vom node sa tra Defnin genes confine wma falaane pent wee Ascaraes tpt INTEGER svar var] INTEGER vari, var] INTEGER var= exp var= expr] INTEGER, PARAMETER = a INTEGER (KIND = 6) var[var] INTEGER (4) ar. var] Pa Ac var este vrai, expr et exprese de liar de tip ne. Kee salen paranctsiKnd.Seprson flows In med bland ex Unstsatsuoizre,al separator se opin exempta 1 Declan vrilelar de pines INTEGER It INTEGER 1 3. ITEGER 11 16 INTEGER" Xtet, X252, x99, x4=4 ITEGER (KIND) inden INTEGER ( SELECTED INT_KINO(S) M1, M2 INTEGER, PARAMETER masa =2 in pimee 4 inion aver parame Kind dei. fn insmtinile 3, 4 ‘orale TY, 1, 12, su delat Je ip tes inal valoe 10, 2.3 5, spain: 4 Ul tose defies cosa sud Masa cea ‘tows 2 petra decarar tp va i REAL = var var] REAL varl vor] REAL var= expe var= expe) REAL, PARAMETER = var= ep [va REAL KIND =) var va] REAL (9): varL var] Alc var eto vari, exp eto expres de iniiliae de ip rel Keke salou parame kind Sepa = foe a mod ogy dc ea ‘bu oii, spurte xe ional. Declares vrinilelor de tp et REAL abcd REAL “'gome REAL bela =30 FEAL (KIND-2) REAL (2) X,¥,Z FREAC (KIND=t) ut, u2 REAL (SELECTED REAL KIND(®70)) 1.121, 14 REAL PARAMETER p23 4350, DOUBLE PRECISION aa, bate vie2.00, 23,2Defnijingenrls canine urmstce abloane pentru declarer tpt rosaeree trie Hen )] = art ae compos (CHARACTER [([LEN=]lon}] [ (KIND =k)] = var var] COMPLEX var var) \ (CHARACTER [ [KIND =)Kc] )1[([LEN = len): var var] CHARACTER “lon [ ] var var] ‘COMPLEX CHARACTER vari var] COMPLEX. er) (CHARACTER var opel var= expr) COMPLEX (KIND =) var var] ‘COMPLEX (0): var var] Alc var ete 0 vribil,oxpr eo expres de nize dei caer, k ‘ic var exe o varia expr esto exprese J initio de tp comple, ke | ltd parsetu kid exe ngmea dal cracer srt nme ii rae incomes S| Sacer bus lunges lon ee spi hngine tao, gts mewn K. Scere: fbn nod ots {lowes tn med cigs deh etch wn abst '9 ian el ‘ist um arb sao inializare, altel separator este option sepsratorul :: este optional. Primele trei sabloane sunt forme ew cavinte ehele, al sonpal 3 Deus sen dep omen ‘Rtas ot un glon At cv hoe Cen me vale po ea {compat Visual Forman (Capag 199) et 3TF7A3609 Ot COMPLEX AX, Bx SOMPLER SAX BX oo 25 vemplal § Devas varied dei uate COMPLEX (2) 2» 3.2, 5-2) | (20) 2 LIM ‘COMPLEX, PARAMETER 7-2 = (1.0) SHARACTER (00) CHARACTER ( LEN = 80 J LINE CHARACTER "A,B,C CHARACTER‘20 LINE CHARACTER Kin, Kamp, K3Ha) LOGICAL = var var} CHARACTER 1172 = xy r22y" ‘COMPLEX SELECTED. REAL_KIND (640)) = epson } Resin Tee | CHARACTER") sting { | | Defnia genrldconine urmitarc yabloane pentru decararen tpi LOGICAL var expr var= expr] LOGICAL PARAMETER: var exp [va LOGICAL (RIND = 4) var{ vor] LOGICAL (k):svarG var} Fortran 95: tina insrspise soit pets variabiasingo gine nccuoset. Vining ponte fn red ine a de arent Gn oma CHARACTER") exe o carters dpi yu Frtan 95 in toca 056 recomandolsses insmtinis CHARACTER epoch un All var ste 0 vara, expr ete o xpresie de nica de plop, Kexte |_| selector de ungime. De exemplar ‘alors parser Kind. Separator se flnepe Ind bison ac eat ‘aa sa mila ae separator este ope INTEGER, PARAMETER LENGTH CHARACTER" (4+LENGTH) LAST, FIRST semplal 4 Declares varslor dtp loge LOGICAL test LOGIGAL 31.92.03 LOGICAL (hind swten LOGICAL 'nt=-TRUE.” h2 = FALSE. LOGICAL (1) © p=TRUE_1 Detnia generals comine urmitarsie yabloane pentru dec 5.12 Dectararea implicts Ineo unitate de progam Spal varia e pout desi rin ins de sklarafe pul eis nent dete stu dean) i omen, nel eeepe cu un din Merle | JK, Ls M,N, ite im, Fepreanavarabe de tip te, arse oe Taep cu oer al Wet rec ‘vale de i ea ares pal ss | »Pen a shinbe asociaia ine pial crc al nama x flonte ‘aseachanee MPLICIT etnies \ (sr impit ete IMPLICIT {sees He), Sie te ters (er) | NONE } unde ine imptcir‘asearn insrtiunen MIPLICT. spec pee specie de fip(§511) ait ese pected Mer. Spesiiia de hrs poate Bo sess Ite su'un doves de ee fine lubed. Domenie ere ae forma ‘ay inseam de a sea, tira oy label se Ina de a Tastacpurca-IMPLICT atu pal specifies! ttror manele ee Insp ob ora specie a cu una din Trl dn domenil de Ire spec. ach = {lo IMPLICIT NONE, stunt fae ute variable Webco pl ned ‘pcm nsvuciun de detarat a ip: ore a arm eva eases ‘eoae de compe Exempla estate IMPLICIT REAL (KIND = 2) (0) IMPLICIT REAL(A , S, 7, U 2) IMPLICIT INTEGER 1, KO IMPLICIT CHARACTER®S (Wy IMPLIGH LOGICAL () specif ct ate nel ce nce Depexnt variable ele bl resize, teate male ce neg euna dt rte A, B.C, 8, T, UV, WHY, Zeca ‘arial el, ote nue ce ince cu ua di ttl, J, KO vere vai Ings namele ce ncep eu ers rere varie ogc, ‘Stil: ‘Toote varshtele folosite imran program webuie si figureze in Instn de declare @ pal Penta anla once commie impli fe Uae de program che conn nrcinen IMPLICIT NONE In acest se pot detect variable acto nue a fost ei rep compile arc ind ned sas itfalizarea variabilelor. Instructiunea DATA. Inala varailor tuned sept nee programa sept fice scoisocpines DATA, Definite sir data ete ORTA list (tse /{ [oy Hae se io ete ost de varie ar tet 0 ith de expe de iia (G58) sou onstante repeeate 0 consi rept se Sse nto unde nae factora de epetiecae ct 0 conan nash fr ser i © ee cost "tence pl conte crespse tip arise in st Tesrucjnes DATA stele valor nine vari Sin th 9 aribile vin deft iit de ncpees ecco Exempla esvacinen DATA 1.4K 126,34 2/ (10,20) / suite valour inl 5 varie J (actor de epetie ee 2), valome 2 ‘anhbel K's valour compat (10,20) sable capone 2 Even pal Complex al variable Z webu delat separa Exemplat2 ATA test / TRUE, / DATA nt/Vasie"/,n2_/ “lot? DATA 12.93, 34 [4847 5.14 Expresit sealare In Fontan o expres indict a sre de alle su de mania le dala, © eres Tot i pera ede paca operat Cpa de Espesil cele ma simple sn de fr ep0ep Sep) unde O ete epee 9 0p este operand In pina expe opel ete bia, ‘resale dopant dou eee operat ot wma, fers {lc an sau pennEon nope oem Cp na pate | eee a pe i 9p Oop [Oop) \ eats Tabelul 5.1 fea cci near ee eeccnemeas ee cea a Tone sae aa 5 _ mile de rete» exes, ete ad cum se bie reel | Nemec Sta eae sla exe i Kate “I 1 roulie decualur once expe cae 7 Grats a ae RT jn scopal oben unt cod maint op, cmpistona Foran post flosi | = ine tg erect In local expt tev exe Teta Isl snes femae cu eps | ‘es 6 op ere cine om =a. tpn de tal Replied ieee fi cheapie pai eee se See em se a tg ep as opr as alpen cee ca op i ad Tae de ieee pte. Pow a nica eases naif te! ope enim [OT GET AE, | ay ee oP Me stboxpean spunea pains Deacege,cxtesie SET [scm al yo £00 (09009) j See se nluart mn xia date pes, dcr reat ca | - ee tee NOE, AND, OR Sper pete prim pear . or, A ee eS into expense to opr sit bid salar eal ea =, ii cei eo dat eas Asflo eg ah a al ede Sena res ep Come ewe eet Tete 52 Primi, arse spon recta ab © es || i defines epee ch ie pater et, = 2 ar Exempla inive Tame cama | aap Name co! seg en eee! seme | sane cg dee woes Swab funclix'y,2)——_etern de netic oa a8 te sop dp Gree gpm ni ae pres 1 [Corser 7 alg pe 1 Petia —eocpecorte xempll? Exes me comps ac anieen Aseic-o"2 [ase senate | [oe aT lea | [ase Saher PENTA Tose | 2 wun | aT] | Fortran exit operator! inns, cascode compton 3b operatari etn de uilentor. Als prcetin oar pert nies.Alun ind into expres exist a mal de un oper, enins opera ‘ste datrmina de pratere 6 de pecedent (gradu de poise in evans). re ‘dona determin operant ace se aphic opertny operat cy presenta cea tani mare se aplic ainitopernir asennad 82 aha precedents ‘peated ce a mae co at tic is ‘Srna de eval inn ent depose el vemplal 2 nexresia eb. se efetoeust a int ica operator Be: poi renal ete flout ce ‘pean pot feta sedeen sin 2 Cee eval ca A"(B"C) De lis, even: 10-4-2= 6-224, 512 ‘alot uni exresi este curate Se un ip 3 un prumet kidTpal sez ueioperait ino et sat inal 63 tail’ sible ZC iL deserment tune ae. el, ompes, crac ge ‘Lnbajl Fara guntazh et valtaren exer cous la Yala coxet, urna ganic ate pre uel egret vor eae, De xempia docs "ores se imate cu eu prmtva a2 + 2), stan (a™"2 * 82) ea pun ‘Sine eval de eave proces Sir, atte valoare hl 0 expe gid Sn opel al opestrlet “AND. ar pte cn exis fe ean Tn Foran eth # fur de exp saa acd ina exprsie di operator rei aces precedent alc de a sHingaladeap excep o come nicare ape ce se alice ae Sener a Exempla Oper bins ate a2 etd ly te] | Heese GT, GE,LT,.LE, ® ‘8 iad i — NOT. ‘ ‘seere (operator nar) sai) ers —xemplul2 In puanteze 9 ~ sunt operator sar a+@) ere) yt) Crdinn eect operate into expres arate de pescden (Tel 52) Exempla Ondine fst opera A+ p-ceo rt rors xy ziu tt Ase oem ¥ 4 EF WA 53.0) 186) 1D a ae 1o2a4 (OAL BY TCC, OD FEDS (FFG) A A r ft aa 1 a 2 4 os Orie cxpresie names carterizerd pi pal $f parametrt King al _uata Repl de meet esaese pal parame ind lee et opera neice se ot formula splat daca ordondim dtl ae ‘ellen Foran dh ereeren general nmol uo Mules dasorIntegi Ie cvjintd In mules dale rele R GR), ‘mujinen dtr rele R este incl miles detlor complexe Z (RZ) Diese dt inept ordonate dup cretres range, De pls, 6-10 ‘scan cs, mitment eg! tees cet eects inB. mulpines dlr es epesantaeco9 ce scmale. Diese date le (Gompeas) sit donate dap reteren preci, De pl, RECRIS, ceca ce Inscamnt i Re, mines dato lor fete cu pesiaia de 6 ele cna, ee ‘test a males dlr ree cu ie osnae “ Put frmals cum regaled determina ae tip i paremetral Kind pert oumerce pl zulu une pea ume nies ee ipl perindou e- ecalisten cea sale (Tabe 5), Parumetn Kinds teu une ope merce iter deci petra oper uate pata kind l seu coc cu pt nel kinda operandi pent oper bias, dict pera sunt de iu fete, parma ‘ind al rena eoncid cu pret! Lindl pean ce ae seit i 09 relat Tabet $3), ‘peau opera bine, acs operant as dep nc pruning ‘eri peraetl Wd resus ene parareta Kind pena eu ge faints cen mat mae (el eae n range aa), Dah rea pense ac ‘Scag armel ind al reclta et dependent de procs 20 pe pea bate, ack operana st sab de tip R sa Zin sara Kind rh punt id a relat este pret Kind opr Sell eu geraisen cen mate, cre orespnde © prose fecal rte, Dat operuzi au acl ip asa parame ind, arc le tue dependent de rosso [Expres nurc = coi opera e puree parame kin ish se ut expresi mate Expres mine sunt taut ete nero) aperanal cu gnclincn mai mich ve comvetev © Tepeenae CU Spl prameral ind al operand cu neat clack ope eau ae tl i prametl tnd sbite de repile de interpre nunc mt au. Escopie @ cite rire no pte neg # un pean ‘asleep Sti Traie evite epresile arimeice mise (xcept die vale su SSH pi ee Ade ape mie nt 0s de se de cit real oi expel eumerce de tp neg este in ‘actioned reratatal uel impli sau riled a patere ete ne Exempla «‘Stil: Este pratict bunt in programarea in Foran ca toate dale fzice, | stimice, biologie, tehnice, cu eae wef oper sittin, fir deste de ip ‘el. fn acest fel se evthpoubillerezuliateeronae, tania, Furze de aritmetica | ‘ein. up cea fect nerpetaes ane exes cristal ese vaaee scesca Su Ia evaures ane expres alertive eivsete din unc de Ved ‘ute Literate cmpistrt Fortune len expe aeave eins Tene permite generar uc etecub ai ecient Ah chives near chivlnta mae a expres yin ehcp din castor ‘ie rrnjie do expres memati cchialnt m su a eco echiaene Tn abel 55 dim eleva exempte de expresit numeric in fre lemntve chiles. Ai A,B © reprint opera rash compe ba Se pe Sane et tt opera unt dfn 9a tl & pant ate oper e ine Tabet 33 spree | Form alernatha permi rer BoA AB. BTA, SA 32k APa+C AxE=O) AaB re ‘Ac(8-C) areic Av(gic ATBIC AiB*Cy i20. ‘O5"A 5.16 Expresitcaracter Expres sealare crater comin operat ce pot constant crac, varie ‘eater, refer de foi acter Est un sings opeatrcarcet, per ara fmentnare if & areca elect combinrea tol ean aac on sic Feat cc Operane rete tb cla pac ind: Prantl lange eau content ss sun unger oper Exemplal 1 Opera de concteare ‘8 CDE roduc const carte 'ABCOE™OpetastAB, CDE angie 2, espe rian hagies " Parcel na feteaz evar uel exes arate Exemplal2 Urmitonrete expres ca ABC" 1-08") ABC" CE -F* "R86" DEH act un operand crater dato expe arc confine Blanc lnse uot incl alan expec exace Exempla 3 Epes caeter "ARCO" "DER IF “ABCeDEDF Acie. Dam ota caster lan S.17 Expresi de relaie [Expres de ral, nurse 5 expres rationale, compar vr out cxqrsi mumesce sau carer Operant de reais ut #0 al to ‘peratoeelaonall sat dine 6 Operaor Ts 2 ean Opera Neva Ghsw> Gea 3 ‘on re det} as re dest ‘Renal eaha we expres devel ete de ip loge, rem ese an in consume logce TRUE. sou FALSE.Exempla Exped elatie 17.0 ‘ aes pean ebuie le amindo dep mumerc sau ambit de ip carat abel 3.1)- La oerana ume parame kind pot ier La opera aa {er parame ind web last Prime langne oer aac po Tie Atant cin operant sun am mer su a ame nd ier ae operand ete convert ao epezetre eae til pret kid Si stmei opera por pene st compara conor yc et ect operat ‘Alun ind opera sant ambi de ip coats, cel mai sear, cu angie st sna mete va’ Tn repay carcee ane pins operant cap hangin ‘lh. pol opetta sut compar arate cu career inept si ‘su catctr Heirs oprand. Psul opera exe == a> eal den, dd fsrslercle in prams pose care pie de aac if sunt "+ = y a> ‘ect ul de eoionare al proceso (1). Opera step ic ambi St de ngs aso sa tote Carcerelecrepantare nt als ican Ma sated paver Fxemplal2 Exyesia de elaie “AB Wzzz- LT. “CCCoe" fia °ABZZ2" exe mick dest "COCCC™ Rela neplnee, relat ‘ste TRUE, [Exempla 3 Express “ABC™ EQ. "ABCO* ace vores TRUE. cia dict lunge celor dou cantare eaacr nu suet eal. Expense relate °AS™ LT "CP ae valores TRUE, chr dcdAB" teat ng det "C Duct unl din opeanc este de ip comple, sa amb epee sin de tip comple, et pers tua pea de compra pots ez (2 = EQ.) Senegal ( /= sou NE.) Ente comple sit cgle ach ple lt ‘magn cnespuntar ut cae 518 Expres logice Printvle existe n exes lie salient const logic, aisle lie eee de fanc lopce. expe de eli. Operon Ilogist at In eis Tab $7 ‘Operator Opera NOT. Sega ‘AND. Conic OF, Digan ce Ev. shale NEQY, Necchvalent Reztul crass ane expres lice ee de tp lope conus age "TRUE, sau costa lpia FALSE. Opetatari AND, .OR., “EQN. NEQN. nt ‘ger hina es inte operon dep tge-Opertoral NOT, este oper ‘har prevole operand Operon" NOT. AND. OR seme i ga tnematicl (S42) Sermifesa operas EQV. 1 NEGV. se arta ie all Ss Fabel $8 a] > [Arve | a NEGVe us| woe [ tu Tae Tsetse | tue —| fa ‘tus | fase | — aise ts ‘ase is ise or Precednja operon oe sia In tabla $2. Cl dus opera eon secu peer aoa ce i i gw tin a Do ‘penton NOT. nu pt sare Operon NOT. pest apa gl ua ‘peta gi Exempla 1 Expres ope sane Preupunem ch vrbille 2, , 6 &snt variable lope NOT. a 2.0R'b AND. NOT. ¢ (CNOT's) AND. TRUE. ).NEQV. (9.0R.€) Part kind reat uni exresi lie ete parame kind lope ‘anu ineaal operator NOT. Dick opera ouaeean pare kid aameal Kind al zal ee pare ind opera, Dac penal au rsne kind fr, parame! Kind recuse dependent de aceon nel acer cpitl eu rene exist forme sera sl expres. © ‘expres constan este oat dar din vale ce pot rms dere cos. pl constant tral, constant smu eee eh ites (Ca, 5) Expreata de iniiaizare oo form restrins egusior comatose Pare este Timiats dat apt neg nu sum permis Fans mines ce ose ‘Su reumeua alr dep Ret sau CAP.6 PROCEDURE INTRINSECI 641 Introducere Insun limbs cu o orienta cite apicai imioe ee ncear ca file satemtice mal des folste cate fia ie nla ty) To Foca Sst deadert se feaizeara cu autora procedarilr lntrinsel in Fran prose ile nme sunt eos In md efemt st estate pon nes di Sruunentelor de dfingi Coda abet ich code Mele rosea inne, snt nodose in bibiteesssemola Fortran. Fr profane de sofvar et it eu compat bbc seman Foran proce inviosc st pedtte. Din pct de ver a prorematn sent sem ed ‘este pce sn Inkdeaua “cola” compte Tecmoaste deca Proved iiset 3 lad tn ood aomat In pogin in fsa de eta» pinion Tn Foran exist pr clase de proces insect: ei lems, de ‘nfrmae, fetid rfornae uti (© fete element emesal inction) et specie pete segment sala vs se poate agla pnt argument abo, [scl dir aera ee ntl en elmene achat pi apr ng ec lee tall argent nae ‘ funetie de nformare (sur nto) ete fins err depin ede sat so nats argument de lar ast, 1 functie de transformare neste nic face de nora, fcc ‘lemest Maria fuer de easfomare a a argumis (argument {tao (ma mle bios) i argumer deep te abou Stunt orean 90 prevede 113 pote intnset 108 faci inne ‘Uaizares unio inves exe fan spl: a ois nite de rogram in local in cre sve nevoie de vaktea net fc nina srcm rete de fete, act mumele fuels arnzce Ista argument ace ed {hts rpumertsor pon cite dorin oevleim finer Argue sel, Tue cote pose fr in ists onconde tip parame de Up 9 ngine u argunerce in Ist argument de define Gur 9 pose ‘nel din facile ininssisunt fant generic. Futile serie asep mgmt de a tip, ar pl zulu conese pul argue De ‘empl, losing functia gear SORT, ce ales ricns pt pate soe Urmston de ante SORTS) SOR(3.00) SORTI(3.29)Modul de sree «asst refing de ite ne sugereat tar orb deo Singur Tint ietrsecd SQRT. Invests exis} anette, ua seeped ‘Sgimen el alta srgament cub recess ela ngumel comple. Ineo ee fins de face gener dat ipl anger deen crane din ees Fanci este apes Pin mare” cant “pen desernesh Je fp an st de rove fee cau aca ate ace seneic Tn cele ce usec cet capt prevent bai proce nrc gsorce cu toate eile nese ent ollie coret. Procedure iin {Se eer a a pocestes bls yorm pena §10 T1410 18 6.2 Funct matematice (element) In Foran exit 1 Fanci inns cement ce evel fins matematice emestre.Tipal pact Kind leat sunt cee ale pial argue Farce eave, obese singurul raument. Tost ace anc sit gna AcOstx) ‘eure alae fui wigneometice mers arco) penta X rel |X] Rez seeping in ada pe dameiel 05 ACOSLX) S = ASIN) rete valores face gorometice inverse asin X) penta X rel X=, Reavis eprint in an pedomenisl~r/2< ACOSOX)= © ATANDX) Fete aloes Fanci wizonomerice inverse arvg(X) pu X te: Ren tals exprima in rain pe domenil ~«/20, rental ese por Docs ¥ =O, rer ete 0 petty X>O gi = peta X0. Dich X ese complex, Xn caval compen, ‘pre inuginr 9 reat, etn dome! "ro". Pare agin & ‘etal est dat ind patna argue ete mae dc eos pares apart ponent ese 0 Lost0e) ‘eure Ylbre func lain a ara 10, logs), per Xe py, X>0 iN) eftuneazi valores faci gowomeuice ss) pennuX ea su compen. ask ‘te real Xs xvi rade Dud X ee empl, tensa se xin ‘aia ‘sino, ‘eumen2 aurea anti! sia iperobie ss) pets X ea ‘S0RT(X) ‘etumesa valores func dia putas JE pen X els compen. Dah X ‘steel, X20. fn col eompley, pres rel eras este renga lad area real «reall este ea co ver, pet liar tera ste ena. TaN) ‘stun valores fini gonometice (=) pnts X real exe ria‘omc lacs ei tmgea peel) pen X 663 Funetié mumerice (element) In Foran exist 14 foi init clement cept eeu dite manip sumerie spe. Preceded up humerce ce ot fect i opera de asi ‘Sere vale snl Argue A pot fet, RZ Dak Ace de Uptou kreauta vaowe A-Did A 9 complet stn = ‘eral ae valouea JF7=9" Dak A coe dtp scl ee dtp L.Dach A ‘ete detip sau, eat este dip R. Reza ate parame in a a A ABS(2-2_—_ABSLS5)=55 ‘ABS(5 HIGH)=5_HIGH ABSI(4.0;30))950 {Eup ingot sewn some 2c 2 aval (17) 9 ‘ntl owe 7 Renu et eel ae pc nd eha 2 amacysosoy-50 ‘AMAGIS-Hgh2 0-20 HIGH AINT( AE KIND 1) ‘ruchines spat real A an mde ne ac JA <1, AINT(A) ae valores 0; dat |A|21, AINT(A) ato vlog cu Intel ca mine exe cel mai ue ines ete ou depete mines Ii A ial cia sea. ete somal ht A KIND cind cesta este pezet 5 praetl kind default atin end agumetel KIND Tse ‘AINT(.86)=0 AINT.0 25). AINT(S 14180)=90 AINT(S.12348678012 275.2 AINTIG42)+6.4 2 AANINT(ALKIND]) swat Adan Avo [ANINT(A) "we soar AINT(A+0'8)dahA‘0,ANINTYA)_ ae values | | AINTIA:0). Rectal ete de tip rel. Pamet hnd al recut este salon arguments KIND ind aces exe preset parame! kind deft a inl estat nd agua KIND Use ‘exemple [email protected])=8.0 ANINTIB.647)29.0 ANINT(6.289)=-80 —ANINTLB.846)=-00 ‘ANINTQ-466,2)-2.2 ANINTI2 7681254 2)05,2 ‘CEILING(A) fete regu cel mimic car este mi mare ea cu srgumenl real A Re ‘nal ee de tips dete Canal engezex "cing near toa Pas ‘ae Kindo ez once on prune Kind eta pet ue ep ine CELING® 6-9 CEILING 6) (CEILING(20. 23 )=7 Fortran 95 acy preen opporals argument kind CEILINGIA.{KIND)) Argent KIND eto exes constant ines. Das aan kind ee pre ‘nt, parame kid este cel pci de KIND, afl aac inden el pt ‘uli dl (CMPLXOLY1 LKIND}) oneree Xi (XY Jia pl complex. Argument X ete dep I Esa 2 Arzu Imenfol Y ese de tip 1a Dac exe de ip comple, gunn Y- tu ponte fis prezem.Dach Yet absat i X au ese compe, eee cen Ya pee co salbres . Dict Y est tsnt yt X est compen cts en cum ¥ cet eu ‘alot AIMAGOO) Reza este dep compl. Parmer kind suka oe ‘alors argument KIND stn cing cen et pevet pune kind dtl dor ele stun ced asus KIND pace temple cMeLxt.9) = (50.00) MPLA) = (50,00), GMPLXIS. 7.1) 2 83.7.9) 6 CMPLXI(.7}.2)= (8.27.2) FLOOR(A,KIND)) ‘etme el ms mar inte cate ee mt mi sa ya eu argument. Argel Ae ea. Reza ee de ip fos ae porametl kin! defile a ar Ing Covina englezsc "ee isearn "due, "pads" Das paredind exe prezen,valoue pra Kinde KIND, sl etc tip aes ‘tie Temple \ FLOOR(AS)=4 —FLOOR(-48)=5 FLOOR(10, 2139 Fortran 95 accepts porns pont a pment kind FLOOR(AKIND)) Argue KIND exe exes de inilizate nese. Dac arpumentl KIND exe ‘event parse! Kind este cel Spica de KIND, aie prams Lind ete INA LKIN sone Ta tpl ine A poate fide up 1 R sau Z Cara dacs A oe et INT(A)=A. Caza i) act A exe dep R, exist doud siti dos [AI INTC) ac [21 INT) cst integer mine et em ne neg ‘are nu depete marine la il cra sem ee aoa cy sen a A Caza hiv dca Aste de up compe, INT(A) este valores bint realest oa de Wa’cana ti) pi tale att A. eral ene deep intey Perel Lind ‘evalu re lore arguments KIND cd asta xe pez art Taking dei ol datelor inves une cin agumentl KIND sey xemple INT(2)=12 INTEGRA INTIOZO INTAR = INTISAS TIES NTIOS 22. 2A)4 4 INT, LIND] ) Feturou neg ee mai aropat de A. Argument A ete de tip R Duck A>, NINTIA)INTIA¥O 5): act Ae 0, NINTUAJINT(A 0.5). Rent ete dep Paranal kind al rez are alates sgunenti KIND tunel cin ace ‘exe perect i gorametni Kind dtu date de tp ite, a nd ‘reumect KIND pete semple NiNT2.75)=3, REAL(A LIND] ) Conver ipl al Argumenl A exe de tip, Rs Z. Tipu etl ee Tea Cara) este dep Ysa R Volar rena eto sponte dependent A procera tA Dad argument KIND. ee precy, pare tnd a eal ‘ut are sslares I KIND. Dac argumeatl KIND let, patent Kd a ‘eel te valsea pram Kind deal pete de dep rea Carl) NNT.2 753 7” dtp comple. Valea eats exe 0 srsimaie dependent de rosesr 2 Fr reale a I A Docs sraumee KIND est psa, perl hind re Slate valores argument KIND. Dac rumen KIND letra [dal erat ne valowes parmetas Kind deta angus xemple REAL(3)=-30 REAL((30.20) REAL(S,2)=8.2 30 act in refine Sanction 6 mi sus ete eee si parame pina AND, et poate nara expres de inal wart Iengh tie tlre ett Be secepnt de procesr. Menon cd al exis oar de sere 3 ‘feo defi ce ni in mod expo angi KIND, forma ee esd 0 POS < BIT_SIZE() Rectal, dep ines cu acl param in | se valores tovspunus secret deb pen excep al POS eae ot seat la Exempla) 1BSET(2, IBSET(OJ) ete (248.16) 14. Dock J ae valeurs (12.34), values a empl? iusreazivlzare fueilorIBSET,IBCLR 91 BTEST 14 J=lBseTI5) a PRINT, Gtul? a1 bi Kost’, BTESTIK2) TEOR() fesuesz opera logit "sau exci pei ii I I Argument J Sent dep ine sre pamela Reza de ip ate susan met Kind ca ae valotea ce se ube combo fy ht cw conform ato bel de deve 16, K= 2, bi veOR(1 3:2 vor) \ Steno loge“ inl, operis ng OR (43) pe i i iuit gtd, Arumeatcle | json de piney ate prea Kd fen Rest ip nee pce prt nd ea Lae lorem cw bine Somtinind 1p bcos conf trl sn RO z oR. 33 IsHETUSHIFT) fects o deplore lopet. Argunentle 1 9i SHIFT sant de tp toto, ISHIFT| 0, SHIFT| SIZE Dect SIZE ete pss, SIZE © BIT_SIZE() Duct SIZE este aber cte ca cum SIZE = BIT_SIZE(), Rema dep neg 9 ce asa parr kind ca ae valores ce se ene in ‘kelasnd cca SIZE bi et ma din dept cu SHIFT psi, Dak SHIFT>O, ‘eplasaen ete spe sing Dacd SHIFT, deplores est spe dept, Dad ISHETES-1)1 [SHIFT=O, nase prodace melo dplare, Prin Stas opera ase pe IsHETCR.Z 35 nor ‘fetus opr gi. NOT, opti sa complement logi($.2, poi ii a [CArgumenl este de ipiteg, Rez, de ip iy $c cea pet id ca a valance se oie din fetnd opeiia NOT asupa. fini bit Saison tbe east I o——1 Exempla 1 este un neg cu parma KIND=1, 12281 in bina se sen (00110000 tune NOT in in se sare 11008911 f NOTE In fig, pez srt (clement) MVBITS, ‘CALL MVBITS(FROM,FROMPOS,LEN.TO,TOPOS) opi een di din FROM ce nce os por TOPOS ae lange LEN [nT nepind cv pciia TOPOS. Cli in TO ma se mii. Argametle feel FROM, FROMPOS. LEN, TO TOPOS pesos wal INTENT(N) Argument inueg TO, ee a aceng parame Kind i FROM, pose tl INTENT(OUT se ndntines ing Leh, FROMBOS+LEN< BIT_SIZE(FROM, FROMPOS 0, ‘yorasso TOPOSHEN<81T_SZE(TO), Este pormisca FROM i TO hsp sca vai Exempla Dact TO are vilowea 6, typi etecain ieracnih CALL vaverts(722.70,0) values TO ese 6.410 Funeti KIND Exist 3 foi indo fee element, fants KIND i dou anti do ‘rasormre, facile SELECTED INT_KIND yt SELECTED, REAL. KIND. ano, ‘ume valouc prams kind pen argumonl X. Argun X eee p Ininsc Gate. el lope compen sau carte Rez ese de ip inte deft SELECTED_INT_KINDJR) ‘urea viloarch paranetl Kind peu dele de tip lnteg cu crest po ‘eprezei nei ‘in domenil (ange) 10" ’ F Fig 75 Nod patty Fes xempll Progra pet cll olan alter un pct Inch Toma ui linea ccar rey (ig 6) lu 9 ana date de relate Pim Soe adach Cnsiirim cx ded inter W sx iaca date de ire 9S. Sohems lope este rat in Fig 77 Resi) (Rall ria ian 2 pest) Fig Schema oie ice cu sibel een i cre ee srs mame pe ce tae dt programa, canara Fora sce enol este drrangh ev cc ‘pete port nine ifme ee 3%, One schon acpe cu snBell inal ce fuss if incl ing ssa pgm nn imbol de adnotare src {bots de deve ell vanbeloe, hp velum, a Ap sete Saha pj se cise varoiele ri han sil snares). cu doud suri deste Grin sinbol proces) se eaaeas Volum wa pe \Shurenlsle (rir sito raresepe). Sch lope cermin cour bal ‘Seal in ream srs col nd se masheazs srt propa. Simo Tie aunt pn i dlc ge ce rao de pela 1.7 Pseudocod In ocu schematorlogce nse Se lose pstudoeadul, Psedocotl es n ib seman Imtjuh maturat cre ne pees ese eal nea Oe rs fet ot elie conte ale ut nt de programa Text progrstalat Srognmare, cr ste msi snpia Peudocodl se deoeberte de Tima Se rogamare pin dout craters: i) mote repllSmactice formal) pate ‘pam cpri eave ust foarte pres deft. Psewocodal se alien ch ‘ogra cin preodond poste moses maior det fx sie tn Fen) prognmars in lin ue programa ese dja edt in ijl de propre Ye fare ete relat simp ptm reunis Inpueudnd. Ink pent propane mpl, texan pesos ee considers prscneielpoge ‘aul ele sutaice pcre adops pots peadocod sua sper fn de prelscrare pe ear lem perentat pnk scum, fead, wr dea, Jam sei deja pcidocod. Prop n pscooced se ste insti Jp ne tn nae arin ot pe iectnml ch itrcnen ce wrench so va excia oph co ea frm trea inset precedente. in ata de Unbinstrectiolextul psec poste apie 9 Un-eomentari in Pseblocod lle comes inep eS ‘clamiet"" Comentrie ut trstin xc programas comenttle Shot noaeComentril eta ext sone de programa pea fie progr ‘derail sehema loge in Fi.77 rogram cin feat 5 ‘eal velum, an ‘ead1 eel volar ta Nel Bate aha 2 pi ort. phoe hs \ 1 stores rezaatlor wok ‘wie 'ora aa 78 Teorema de structurd. Construct de control. Principiul Kiss Insets, isirctnes de cit, de sere eae weet Jn mo scvenia una dp sa rics na ut ss ln program Propemte Pein i srt de salt ce desc 0 ore dessus deca a "eal: fine de Indep st neindpinres ane condi fae ec nae ‘Sins’ iin santa ce ercsch. Pn urn nee exdaen de execafe a ister nu cei caries. fa ed So Tecate progratr tine 54 piece poganele floxn prcedet “ese rear, cra rep ei ine gra simi multe complica {ein o suche laa, tence ce can eal programeet hat lg pa Sia ea aghast pogo tposk e Sc demons Tere de sacar port ea: i teehee ca program Sat doar ce ireton simple (te, srere i atbuie) tel prt de compas ecven lei terat) "Rest faa damon programs fst demons de CHa 9G Sacopa (1965) 9. Mis (1972) Un program ait dow x sce ep inscnssinple ele el ipa de isartun compas nme program structrat. den domonsael ei uarre’ 0 pours tu gran se fae. Fee (Se ese), dar cnet’ simple opus, sel in an esr tt 3 popes ecru sce res pars nat Be pure fe devine epost rp eats oink propa sta eh icone inal Demons et vaabs dnt py prone ce pod wn. fee ater wo sing rae a 0 ota con gente bolas (isrotiot icesbe, la cate se pote sunze nico decursl exec, novongn tele nite Tesora campus un exemple Je seutut de contro, s cm ema sumess comrade conta ‘Seen ee sort forma indus sev ma mute pi cee execu fee sng da. Pon parte Inegem fe 0 instcne spe 9 ns {tne compas, Schema ogc ane! seve ene aan Fig Seven ca pi din Fig 7.8 se xc ae sence A, sone, exes Cg seen (Bt. Docs ABC sun isc spl n poudocod seven in Fig 7830 Seale: & é c pe | r ® A 2 Fig 78 Sects Fig 19 Seosia Sea oo ac cml ut ia A 9 he eet sna ua nine de eat uu est lope Le? 9) a pseudcod Sli se sel 4 ten oe é nat Modal de cxecupe a seleii ete urmitra cu dele di memode se ‘alent expres logis Ls das eal exe We se eco paren Asia it fact elt es flees exe prea 8 cesta toe ‘Meas et ostctrh de coma ch pre ce execu Je a 8 de ssa mute ov In fnciede etl un test og. Est do ome de era,‘trai cu testa in cape erat, tere nai do while (i710) trai ey {estan cada era, ire amare unt Fp 7105, \ ESE, $ L q a Fig 108 Fig 110 In preodocad teria. o while (Fig? 10) iat co whe) * Modul de scceoe urmitrl: eu tle da emesis alee expe 1 aac ernest tu se excels A secular dae est tse eno ‘A iam depart, pci rer Sevine fale; sc ria a say Bak laps vale a capri lope fell este fle eran a sf pen A rue execu coat Ia potas era se mas ume bac Pen ee S21 Se temine inten nun de pg (ap evi, peta cl un prog se ite exuna un aun nit de pg) ete noose pats At made alas oe ‘arable ce apr in stl sel fe pos ca do an um fit de a USeapete valores false. Das acent ont nse inp vers de fae oe Duc nia (Bo fs sri) Tn pone fap epeat und (ig 7108) se meat unt) Modi de execute et urmitrt se execu A, se east expe og L, aca eral ete tus se execs A, se vaca Li she mai dope pan 6 ‘eran devine te; atu! Heap ia Sit Parente A een in et at Sipetmo da Evident buckle repeat until ot fini, ic exes dup un mum fn eps expe ih (ms pat pi nae Wu, Propramarenstracturath comand co del bun Inceputoce program st alent rama cu cle sate tr etal coe tet aor snl Site, d rie 5d mibue cle ie stain compas, selene, see nt conte Instron simples ompase presiatosingurd Inrare so singura jie Pe plan tl Bene propraes src ascot alts structath de conta aise dei Sele, sevens era. Des srr rotate Se [Pues saci sun afin penta soasrutea ica progam, assis a Fea chet abordres cea mal spl cs al tal a alien a fos cet rn ctea exemple. Prim ca orespe shes logis di Fig? II Schoma da ig? Ions in eve o esc din a ult an pone fries clcleazt valent exes dick & =e cerca doch © = 2eecascul F,, dock @= 63 eect Fda @= en se exsoul Fgh Me orca valare earl implisdefl) se exec FA Fs ys FF Fe ‘i inst simple sau conpase emel ' r fey A en | oF Kempt 5 r ml meel eed A re Acast simi ete det de des inthe practic; se solifes pins sircst c38e penta cae 5 tls schema lope din Fig. 712 In rendood Stracsa Cave Se dsc pes ists soloct case (0) caso et) ase (02) F ase (63) ase (nmi case cetaut ne sect Un alcar ds net in programar tcl din Fp 71, Schema din Fig. 714 ose freee cu inst inpe compas an Fi 115 Reed oe ein corespue moduli natal gc cel ce earespune Fig 714. Pes Alsen roudocod acer nesta din ig. 714 eeu flo iar: tien goto (au go 10) seta ce re ae g0t0 k vad exe tcc ne trac. leet et un cv format mans din ites ‘ce se asecict yet nsten eva Tefen deo al state Ta psd ov dup eet panera dus puncte”) 8 st ty 2 St B fy J i + Tp S2 |F 8 re Fens en ce umn pel sha i 74 weer Fajen g soto vat 1{Una wie ae pe ae prezetin exe sl un hace do while in care es nevoie te ash di bl nit etre terior prin odor eg 10: W(@1) men Splimenare.O ste de siti ne art in Fig. 716, Prevod exe et ‘St Fig T1Tagib “ (22) then Tn Fie7.17 8 am flot form nest 8 itu do who, «cre 2 forms ener ote 010 10 o labo} white (et) Cor unde label ete un insti ena Pe altuives ance propane eft, inl, wor de depanst ita, ise ‘ecomandin uznressematch 2 princpuat Kis. “Kec hse nd up ‘to 20 ‘Stein adacre nse “Pi lel Spl sti Avex ipa sod ena ‘atone Ieee programelr exe in sh opt cli cle a simple 20 ‘trae din pune de vere oie: pe it poh fon ua sacle ee ‘mands de rogramaren stu, programa 58 9 scent de isch Fig?. 17 og in tod tal esl Spot rene a inlegs login spl clan rogramaortl Cu eeu, pip Kise ceva sh “Da beac sk Ne No lace pe deta) » fesire + Ro rer ty \r st fesre J forts | exp fn (sectioned bie pointer) vor=expr lnstane date) Mal sus am flo presale din bea Precariare | Sennificie | Procrtare | Semniienie er sa) m7 a ingame) eel gs) ar ‘are ne insane eed Senetare [10 ingot oat on entucie——[ mar re mei) im Sinestnat) [ob bec) ex niet ca Scala) e wich) eh elton ar set = cpeseaie) express rm chet i na) val valour al ner ‘aeencat [er ‘scabs Prin castrate de contol ine un ani gop de ins cu cre ‘slicer instunile compose ale progam stata (673), de insur ‘reuiblede pl iran de sciane nse contol dine in 19‘eth execute nai acne, Exist para consi de cont ze de ah bon ‘Shai GASE conti 60-contsui coments WERE seamen ‘rm eomiroe suction se fe 0 co oa snide ENDWINERE Foon comntih CASE es Scaife ysis ea wea insacani csct ratn epee tata de SELECT CASE ( vuriabild_case ) -descriere a unitiilor de peogram sé» subprogramelor. " Tcommsexen) on rm mumcqnr tcp (EASE Buea leone) ALLOCATABLE {1 deo late eno Setzer COMMON 1/1 [nme de Ha oman | i do. cman Fol constuce! DO sane DATA lind dob / deal! Bote {conceit J DIMENSION demons talon spopBo EQUIVALENCE sist dese de echo OL.) war Aue =t nt a_f er] EXTERNAL id de ume external sfosndon MPLICHT peice INTENT ( spc. de intone) (Hit domme dered OL er}{.] WHILE (ep. fopcd seal ) ny Leona etecat} INTRINSIC. sade mame de prod arise! sir 50 oe NAMELIST J mime deri mamel lst deb grup nami END DO {ume de comtr_DO} (OPTIONAL (ld deb poate CONTINUE ee PARAMETER ( Jud de dfn conta mmite) 1F ( expogicd seo! THEN POINTER [1 ie ume. de poter [cone exc} [ELSE TF (exp li sal) THEN PUBLIC [[ J de mime dent mod conser } T LELSE (contr execr SAVE (tt de sate} ENO IF Forma consinctici WHERE este: "TARGET [liad dem pitt} USE mune. de mol (td rename WHERE (expr li tablw) demo (td rename |USE mands mad, ONLY: [dees] pee dei caine dese}. 1 Ht de dcr Instinct 9 pull a ot dja prenineamsnatt fn $5.1 Deasenes sm sett istctiale DATA (6S 1) IMPLICIT (6512 ‘rn comstractie de specific inclessn vine de peetea, © ei dip deriva oe inert Forms pene defied tp deriv est: TYPE [spe eae J} mime dep (PRIVATE | { SEQUENCE | (ape den ||. POINTER ode spe. compont | END TYE vnme set INTERFACE (pesca a7 procednd (eons fire procedind 1 PROCEDURE MODULE li dt mime de procera} END INTERFACE, Forme yet capa de procera RECURSIVE | peep] FUNCTION me. de fncie 1 (ol de ac }) | RESUCT (ome ela) [RECURSIVE |SUBROUTINE moe lesb ECCT ond ear a 19] Forme petra sy de procedur sunt ENO [FUNCTION | mine de ft 1} END [SUBROUTINE {image subi }) 83 Forma coduluisursi ser surat Fortran ce oni text a props Fosan, text mui fod sersh Fortran sa teat sun ese de oie ou a er de tate Fee ‘ur ete via ni ice mtn (ins) carile crs) a tree sleet su, Text sus const in cn comemta lint INCLUDE, m Exist dou forme de sre a cod sunt, forma fxd accept de sondarle Farzan 77s) Forean 90 forma Hbert ucsepa den de sal ‘esciem mat ia forma ik [n forma finesse ir sus, Ine cod Frcan au lunge de 80 eaeane, In clounele 1s esi vile issuer. Pony ste stn oes clenee 72: Das! pets ‘temfne oc crcter Fran cu exp aster bles 0. ste ee ie ‘eo contnuare list pecsdene Pe lve se pete 9 sgtedtnmurn, © Stctue se poste contin pe al male in O nse pate ea al al {20 in. Cofance 7580 st gnrt de ie compa Lingle ma cue 72 ‘acre completa eu tne Ineo instuchane ancien sunt seriicatve cu escent reve ornt Instr 0 K=1,KEND DOK=1KEND, sot cles Manas tse). Corel © su * in clone 1 indie inteapalnieete uncomentaria Sel excamii dac ufice pre dno constant cake, arched cept ‘ul coments Cnet sty ie Exempla aceasta es ne comenaia REAL ala, beta, gama, deta. pslon inceeuncomentre Comensile sun gio de cle compar. Ee se flsese de ete progrnar pera face programa ma inlgh, De pi comenarie se sete et rt scopul Sete sein in og. Inet proces nan ier San poste npr nas un text sus an lier, Poms cesta Se sr in ee stn INCLUDE cons char ‘ade cto constant litera cucter eae represn de bie! mumele ei ‘oot atl e eben. Lins INCLUDE se seen cloncie 72 “nia INCLUDE nu xe inststiune Fran INCLUDE et o deci “ampilator. Lina INCLUDE se poate scorns in wat sus, alo une dan ‘sinloeo un ext Foran care ee enn! nan steExempla © unitate de program ce conve o like INCLUDE: PROGRAM ANALIZA IMPLICIT NONE \ REALALB,C Error Objects cannot be created from eating field codes. INCLUDE "ECUATIEFOR Erorl Objects cannot be cestd om edting eld codes In forma ther insole Sra pe ince pot comin de sO In 132 cate, Acne inna ch pare nts fens fie de sce eshte | incr nani colons Acie p'e nis reo ngs seu © isc scott enn semaines) dal snc tice ee st be coat 8 Pu ei Sel ta 9 a oem shies sel dc comin & sal ns merece! isn Apart srm exc i is sac cece chen pe tra concn Pr tem pts tana ea np ‘fie separate pein punct si vingul, " ince onset td cial ewer di contn ert, a cals srmiene uo i de acu nein uur nga, Bls ‘sept ln pes bai sch xemplal 4 Urmmorele 2 iain’ sun ese: Fortran 95 considers dps fomm i text sus 8.4 Ordinea de sriere a instructunilor Insti desi, specics casio clement ale programa cit cj de rela Limb Fora ceca untae de poy ince ‘With o zum ocne Ace orine odes ia atoll BS Cine vere ‘ya ctgorifle de strain cep vtech; eal cvite le pt {pur in le edie ute dale Line eiznae nd aegis de ‘mea xa po mtr Io le bul pin pop nodes ‘jonas in Tab "in gnc isrucunile de peciScae 9 de dele thule sb eset constr oneal deine FORMAT, DATA si ENTRY pot sper Poets execu Instctle USE, dc ele ened webu a apert IDlncepat Subprogram inert Sau sobpopmele od sh le cas, eure sh ‘ses dip cises CONTAINS, Tnsiosjon! PROGRAM, FUNGTION, SUBROUTINE MODULE LOCK OATA Insracjuni USE IMPLICIT NONE Trea ica a Tassjant INPLCT Insruconea | estas etn up dea Bana FORMAT | PARAMETER si DATA | inet meacon de dsance "in, de specie, de eine a Tucker ow ‘Consrfiescuie ‘St Este wi sve extal Forsan pon ao fe const pnts abo] Insrcfanes CONTAINS ‘ore, lier Pe ast pact esr clone 1S 1 Innes sein cola 7-72 Insti conti stn & in claas 7 sin cloa 6 pe | opie sunt semi. + Camentre nce eu seal exclansi (in oan Tibprogase inne sa nbpromrne medal 85 Programul principal Exec unui program exsctbi nepe nttauns cu prim inte xecubils din programa pica De ace nce program exes tee ‘Sti in mo blip ut sng pean pip Programa pial re fom[PROGRAM ue. de progam] (em despoe] { eomecer \ { ‘CONTAINS procs erna} END [PROGRAM {me ae program }] lnsucinea PROGRAM est opional, mime de program este manele pre rma sen de ete propane Sti Reson iar Insrcinea END ese oblige Fa aconeazt cau seme! pete com Inorg uniah de program: Exec insets END cava pares excaistproprmull,Dactieucunea END include mame de program, ‘sO tchue shale eigen Ta strationn PROGRAM. ‘86 Instructiunea de atribuire scalars { progranures screens de abe exe o ists spt 475) faim Foran aces suru crespundeo stun de sane (82) aseuctinea de seule sear ct rom under eto vrs i expr exe o xpi, ack expresa spr numeri ribs wrt de tp neg el sat complet am deaice cw insracfione de alibice sealord momerih. Dos fxpresia expr et capes lope vaahila Yr ese tip loi; vem dese ‘lmsrutine de aribuire salar glk. Dac exresi xp ete dep cate, “avn nar cte de up sarc aer dese cay insrutine de tebe in cal nario de tribe namerse sale, ach expr ae asa tip 9 sala paramct ind cv regres, inte de 8 abet conser Tp aie —| ae a TNFa IND Gar REALpr KIND sar) EWPLXCer KIND Ga Exempla 1 fara! de aru mere scalars REAL A, 6, DELTA ‘SouetEx: RaBIGAS Selita sana" 80 RADIOAL = SaRT (OELTA) {anti nanesetapo pede de prec re ata nd pul or ee into pal cpu ee ne eee se ‘cazul in care expr are © valoare intrest) " ere a vor epee, keira un param kind 6 conn ni on ctr "ee ese de ip campos w sur ete de ip compe; se pee paren inal Exempla 2 Vole ata | opt aie alla = (2.23486, 5.97245) afta ese dip real deat seo 2s 1 Foste cep iireg taut sunt 223456, spt 10 silicide wt lage aa a vio pote xemplats ‘wich = TRUE. | switch este de tp logic Eserplal REAL ab c.xy LOGICAL’ test less OR eb OR.s¢ AND. y<2 in azaleas de atbuire sala case, renal ne exes ‘orate st pat abu une vara cance, xemplal Asie slate CHARACTER (LEN = 8.) cuvant_t (CHARACTER (LEN = 12} cuvant2 (CHARACTER (LEN = 20) ezutat pute rite cavant_1 = "stint" fvent2 = “materiel” rezutat= ewant 117 ewan 2 eau va come sig Stina matoraeor.in cxempl 5 langle exgresilor carter exp coin eu angie vai’ ior ear vr Dac animes expres ml i et evar cat else iy parte en main tng hi or resale compltear olan xempll 6 Duck ern ‘CHARACTER (LEN © 10) txt tet eve" to ya ayea alan XYZBBDDDDD ‘aed hinge i arte a mick det nines reat eval expr pen dep rena et nc, Exemplal? Dass nom CHARACTER (LEN=4) tata ‘aicura = "alee" j Initia se sched valor tal, > 8.7 Tnregistririformatate Cum am vzu In $727.4 nseiaes de ce cet valor din fear lnsractunea deste See valor inran Fixer isl ete formal dirs fuewstie de tags Valle dino Ines se pot represen na ou ormatate ss neformatat, ach Imeistre et Sr) cu crete pe cre ome poste ci le vine, exten teat can anumt neler poi om, 6 ace cigars ee formats De exer, repre ure st ome 100, 200 300 3220 8-80 ¢=400 Inveistrdritenelormatate cons sin vo a3 cum stele soca in meme competesa fo ise) "exci ue insti! deci, atc cnd 9 vlote ete ci dito Teste fomataa, ex Uebie converts de ln fom ened, © imine & ‘acter, i frm de reresenre tr, bt Lt exo ane nse ‘ster: snc cind valor de meme te srs int rept ea ‘bul comets de Tafa nen, bina a fom ex leas econ ‘Supa modula care web fst secon a Comat nro specter ‘format care se pote inlode int» instuttne de ire sa src. Spies de Ferma ste oft Je descriptor de editare cul pein severe di Li deinartgre Ese posi ss agate covers fk unin in mod explicit infooatia | comima ino specie de fomat Agra se ponte face In Foran pin etre 8 condsh de th (lis-deccting esting) nami gi ormatare implica Grating) ss formatareconduss de lt (tose omating ‘88 Citirea si srierea cu formatarea condusé de Hist Instrutones de hire (ap) x fomnatre cons de Ist (itd ‘oman oe sts READ" [wun] or) de ar ete 0 vari. Astrea () scm def formating (Formal ese tele use specif), adc formal eae list algcen eclipses fpr de inare Modal de excep ste woah incase ce eae 8 (jer de intro ine p etal emia, proceso ete vl peer Te suchen in mers celle enameled Ut einai edne sng Is ea. ste nesses dele existent In Sept fe 8a tp ‘ibe dni de nae Tistrustnnen de serlere (cup) ox frmatare com de tare inna PRINTS [en [eH J.) ude en, enti, pot fo varibl no exes, Cunt PRINT inseam ire” Asierseul i nstcanen PRINT insane frat imc (ful fermating: otal dlr de eye ests stp sen compel Modal de excel in Bye de niece tial, sre eis, ad ese ou in ne ce oie noes de a sings Inatepa lot eatior dn sea eer, ambele case np utp xn uae regal este 2 Oaresstare const Je ist cont a alr 3 sparatort de Valor {Valo emis it inept itr an ‘0 ovale ue se seria (hte sen ma ete sis sidoveban) © contend tral esas fi anc ingabte © conti ira carter ssn ing carck Tapol) podem de aes sas pilin Re consna est repeat Je afar nul pet der 1+ Sept de vl nto nest it ut 6 vrgul, pina pec sa ura de lac unl pal) | Unslis opona precet sa at de snc an dip atl > tan ire dul cate non Bn+ Dac sta mu ar ic om lemons sre o Inet din rd Disunee acum de cuoninle neces pen 3 Isepe 3 sre programe ine rocem ure dno sigur ui e popm,prgrnal papa espe ‘Dac ta ar nis eet nil de ie se ei oes ESvam spl date ca comput vi cre dear * secon nusapt empl empl Fe intrciaea de ire READ *.a.b.¢ PROGRAW HELLO IMpuicit NONE ot care reir ce umes es 1205 150 20.020 (CHARACTER"® NUE PRINT" ‘Cumte cheama READ", NUME, PRINT = NUME,* te sat END PROGRAM isto inegisroea, format din 3 conste tterale numeri, sent pin Manet, ‘enc de cue programatr dela situs i aparepe eal ron ft ‘recat acest susan vara @ capt values 1298, vane B cap Salou “180 wari ¢ apt aloes 20.0-20, Renal exec aes insti arf acl dock lnepsare da Serle nae arf vt Un de Programa cape ca inrinea PROGRAM si se insheou nstations END, Desi snr act compli, sb lpi enc unt date a persal inn 1205 150 20020 tes “10 20820 Esemplal Progr de cla a medi mumere 1285, 180, 20020, 1205, 180, 20620 PROGRAMS 12e8/-f50%00-20 = IMPLICIT NONE REAL x 2295.14.35 Exemplal 2 Fe asrastine de crea dou vari caster de angime READ "92.93.5435 (CHARACTER (LEN=4) 3.8 Read "sa.0 Pant Des pb a re ta Beta, See intr pt eu ma di Prt enor el ome PRINT ® Pant se PRINT "ada tt, (xto2exdexter5)/50 “ate om ERD PROGRAN la prince dot ca varie din fe de tae st Contant See Exempla 6 Pram ce eet vluoal win all nu nd cence hal on ie sia elie: erst eval sas inoe Y cnadeg Some ngchse ng " es aa —SROGRANT OUND sep teu None PRINTS. N =3N REAL ho EAL ora vlum cco tht Nae psn ss net eel Reno sn Ne 100 Cis apifeeeen a iwaa 20 pr Pae2O wD RINT» valu PRINT END PROGRAM CILIND sje de are ae line ce cone valor I. Fe dei ae ous inh, prin conine vou cle lis qi So itl Exemplal7 Resciem progranl in exerpil 6 sl nl se de rie inte inure De dn aes agin cena ~ PROGRAW GILNORU Programator Vasile lnescu Data: 20 Aerie 2000, raze cerodul de baza 1 Inaimes Inout (output vekim -volamul line naar atersia IMPLICIT NONE. REAL ph a volun 1 teste valoorea raz PRINT" ttroduct raza’ READ Caste valoareainatns PRINT Introd inatimes’ READ ®t 1 cCaoulsaza vacates tpt psd" ATAN(T) CCaeslaza vu volum= plore r"h 1 Cauleaza ara ttata LU Sirnae20° preston) i ‘Scop las paretevolumul sa tll nui lire [END PROGRAM cngns Stil: orice program webuie st inosapscu 6 vere de coment cae psciice numele propaatrus, data ernie, ser deie eta ce fee poem, esnetea tla de irre de pt, lta varie 9 eter fonte Io program Comentle tebe fe ur ama a une po eh ems fe oul ow " ealeweaza volumul voum= pierersh stun coment accept, ar comentaile | se nmuteste plcu ia patrat slow Vom = pite* 2" nasacort, nor etl x dtl entrar east ea fot ite pen a Fe erica. Aces chistes in excl 89 Compilarea,editarealegSturilor st execu Aes ten st prota Compaq Val Fortean, Pr: ‘inal Forno ete um med nega de pogamar ae son) un Developer Studie (tudiow de decolte) cence un eo de ere i) Project ald Fetes (Gait pentru constuiea pce) pe ee enfont semplatoral Fortran, inher Incremental Teresten, browser pear cod ‘Ss iu debugger (punts) ec ‘ena conse propa unl spat Developer Sto opie un ‘rj pieces ete us cit da Selec spe ‘rae pen Projet Building conse, eleae yas pica ‘Un poet se ori in-un worspace (aide i), sun fede ‘one tate ieee pecs sle peste Exh al mul pr de rte Ne ‘om ocup od ipl Fortran Comal Apletn reDoser pai nce i comevile penr labites yi ensui mu pro mod sia se pot cen piel eect programel Ft ders Fone simp, programe! Hel exempl $88) emlies 6.7 58 1) Che dbl pe toanaDesloer Stadio dep desktop Fie NewProjectFortan Consle Applicaton 8.10 Output formatat Projetmame Hello pene Progra Fie Mio itl Sti My Prot Formate pics (deal formating) exe foe com 6st asd ‘ete orks sno este Hil. Dep, dat la sre dor fom us abel cde ei, Jnotdeauna reas 38 aliniem date pe coloane. sn empty poet in Foran progr! pot oda sal sb personal in fora ouput win ssn! de sen cesses inforatia Sino meine de orn. {Ecc mai mule pon de sen src de nares spent Je foot Ait pevenam dar isuciunes PRINT cfr. Snes! es FileSave Workspace. Spatial de ues se saves in folder! MiosoR Vial fm et SuiioMy Powe, Sa reat folie! helo ce conte fete hel Sw 9 PRINT fot (et emit}. polos, use ft ste 9 consti eras 2 cre valour et spcifcaia de forma eee Stent derma eo th de erp de tare ps oa Filename Helo * ee Gio En ae ns Fel Fes ue Pe), On ete de te xo mare varie de dsp de eae 2 tsar 9 deride tre ‘lc dab pe FOR (Fran Foe Format Sure Fle, Clitoral de teste s65—yeagalli de exempl, spar) ea ce face ca Inia Faan oh ose Fao etl. Apes cu FeSave Fen Pelle ors alec nf {aera mt Dama crise pmo ete dest ne a J Pees omer ‘vom pez dour civ dscrplo ma de foes msn a poset 2) Compare — RulkiCompile Helfer, Dak in feasts & joc gegindhy om mera mS comin rene soit un ut epat,Dak eh a ‘vec rocbnla cal sue pn mt eit erode cola I eke Fo sa creat gral hellpg”ssbakcral Oa0ug ae coming gee Exempla Flespecificap de oma F60.PDe siete obj (seal bt cu eat corp). (AI3,A,F62, 2K A 158) 4) tener inne Ce acest specifi putem sro neue PRINT, i Bud Hellnexe, Dass in erene 4s jos, Win 32 Debug sunt ert mergeti mst dept. In foldeuthelIDobup PRINT "(A 13, 2%, A, F62, 2%, A, E15SP,°n= ore fel execu hal.exe Deck n= 100, = 123 gle 1510 eva padoe ouput 5) Bxecuiarogramuli ~ Bulle. Ini frets DOS de pest n=100 b=-123 €= 0150000610 spe ext Modul de exccte est umitorl In jie de oe, cal teria, cum eneama? rez estate, ase sere nol ince eminem ries dea sting i capa value coor don ln de ei Consersse fae pet te clement alist confor desnuda crespuntr din peti de ‘vase {exmat Exempla sat diet a de flo Jeep A pen date ae aloemerce per date tate Fy Ep dite els X peta spas ‘escriptral Arse pipet cpu dle caer, ange eal ‘Vaso to salt! 4 comstaneleaacter depart mu lnginen Selah a Sra tein ie ‘ofoane St si pen ease 1 1sForma generals desspai Rest Fea gener ete Aw ‘ 1 unde west Ingimea cpu masta in carat. Dae wet i fl nde. sean umd de aster la. Tange existent var de lpi, Langit real conan canir de aha coae tate sale de ulzare a eestor dest pe cre le ‘st imgimes declare a vrisble determina cic cooune sum flsie pects ee oa ez in Cap 15, loa pHa slo! present nes papa it ise exempta I pms conan crater in ita de tei ate un leis poston ine ota [ohn aceat nea primal arate a news Je ce este un Base, La instvtonea PRINT cu fot penal eaacter a nese mere Sit Exempla aswucinea feos penta contols pare pe eric, Dac it de ei a foe PRINT "(a)" 10, 20,30 woe ouput 10 20 20 selenide ntrucanes PRINT a pods outa: 100 b= 123 ¢=0.150000610 Pein urs, primal carater ae "nat De ans, pec ices bd locum tena dos nu ae rograsrl tebe pew un anc det rican al ies ‘eseriptra 1S ezeri cloae pet tiie vara! gn. Fo sevenltasceia eerpor oe w nde exe Ingimea cpu, Dak ake ete nan se po tp names (lial vet ei, oeokan ind reset pon se, ‘Deserptoral 62 Insomnia de @sloune st rece pnt» ‘pt valore varie ele bf oma pectoral, valores Find rou I oud inal, Put cal orp 6 clan ar ac snl exe np, sel a ‘cup o colar, pin unas In Tomatl F6.2, nuniulcl tal ate pate 5999-9 99, cl male Por ener ace eit ee Fad nde w este ungimes in earctere a cmpuli ar et muir de 2sinale care £156 incann cu tlde 15 coloane sn revere pest ‘id alaren vars ele cn frac vig ett ats vn 6 cle Forma general a acest eerie ete ewe unde w este lunges cimpule dat i cloae si deste muni de zane « Descrptoral 2X stun eta deere pala doa pai (sh 136 aoCAP.9 CONTROLUL EXECUTIEL 9.1 Instruciuni si construct de control | Fie program Frvan prezintoordine normal de exscal isri Ine unite de program eect nee cu ri istuciae exec in en, Untate de progr cmt eu usta src xocua,sa dap aa, {54 cam sunt ele sre, Acetone de except sera deine de ‘contra sau construct de control ce fa cx insure ste execute nit ‘rin ect cee er spar sensei uminen de progam, lsucjunle decom inset de ene ce tech ote de sce seas arta CConsrayie decom al ints Ferran st comsructla Fconstrtin 100 si consructia CASE Ele sant coresonden in Fon a isnt enypse recomandss de popranates sich slo. ese 9 cel (878) {Consnejie de comtl pot Selecta bleu de insta sa de cons Pie "execu, pei except au pens 3 traf cml lah ast ‘inprogtam racine de sal nr ce ates ois normal de exc ‘acu nsctunile CYCLE EXIT (srs specie lose conta DO) Itaracinie Ie logic. artete, fate foeme ale nena GO-TO % "Maruti STOP 9: PAUSE ee povoact incre xe 9.2 Blocuri de instructiuni executabile (0 conse de contol cos in ura a ms multe bac de itp easinelt Foran #0 Top 8 since cuprine nlc su eal acese ‘Nec a exccatein neti eo cic d contol se selecteacd. a aut de Insrotion seonstucy Un ble st secede eo a mn mle inside ane i som suet de contol AM spun blo esto secede contract exe, Ub ‘bce nso cons ene tac un ney, Tool ce ney se seca sta te xcett Expres din lope contol ene deer hc local va aus va exe Facem observa chu ene Bigs en ioe insane sau construc ae pre da tae ie execu neat De ple Tneeputl lout poate exist maracne de lc fe ca elae naa a ‘No nui exccte noes cz Se consider ha ave lo exacecmplet = ' construc de contol const din na ms te loa de intra cde fepsrame de inex de cont, De cbc onsosin comin © inste nla nen Yi De fo stun nals pd uno, Ese ons ce a2 mi it desi un bls. Consus incl i condi ce determing {ink loc! se excl sauna Uncle dn ener Sonim ns selec leon care le anae ex les pent ese Pen bocun cont Macao exis umtoarle regl etl + _Cind se exc un bloc exccuainepe ca prima itrcune prima Tonstcfie «bloc, lta boca se oxen dine ura opal eta tip eit i bl na exit 0 contact cota sa ons onal ae st Ife orien cv rN One Bl, concept cao sing ett, abies fie compet conn, a ‘ett Inner uri comsuri Un Boe pat gt i dt poate confi fevolasruciune iu constuchie 2 Tn imeroral na beet pens un alt sa conection a ‘inmreone stu conse in acl lo Tei di be se pte eerste i erin blo {steer sll dit fr lou ae imaracune a0 consi comin nan oe 2 Tnneirl uu le sunt permis apt wnor proses 9.3 Construetia IF (0 consrcie F slots pnts enue ml un le de insti ons Ofori sia cntracet IF sm dan $8.2 Sita generals intrcjonee [me] (expe) THEN [ELSEIF (expr?) THEN (ne) ‘oe (ELSE [mime ‘oe END IF ame} Ail expe, ey? sum expesi loge see, loc este un Boe de in- sion 5 const ia ame ete ame de conic ‘Coastasia IF cotne nmol clips 0 ineivciune 1F THEN 3 @ insmetone END IF. Opfonil poste conine insucjun) ELSE IF su 9 inatioe ELSE, ‘inal srctinca IF THEN se pst dentist cum ve mak pune se pete num comune, un mame de eomsteute IF Ins ca isrsunea ENO TE ele te tu muna spesice scat mame, Dac insta IE THEN ‘Steam uct mit stracunes END IF Dac iar IF THEN 9 END IF snt nme este posh sh nue cu soe ume suc ELSE instante ELSE TEELSE enor “boca ems I, Saul dn i Is END Fee perm dr este conse | Saterentat ‘terse dept pe cas no esomandin. Eeua conse! Fae face af expres loge sat eat none pink ce shee una advise exe pine! gece ures Gap Pina xpresieadvaaagfexccua consti IF se mink. Exresie lopce levi ‘Ste une uma aucun et Se pate ntsc nich dn exes ope Sle comsructtob fe sdevra n cet ea exe cle nee pt Jnsrcumen ELSE Jack exist unl Inca conta nae exe seul din Me Sinleconanti, Cra a ai simp contac IF exe sels cso lg ata a PRINT, numar_minin,* ste cl ma mic mumar® END PROGRAM minen ‘StI: Indowarca Dloowlor Gers ler ca civ lane ccters programa ma Rnd netrea curr pet et oases naj Foran, “rebut fn conic udoarcle egl yl etre 4 Sceneztt et ml unl dn Bowl cosa ete po a nica ble 2 Dane inmutones ELSE ust emi isan ELSE 1° Siti ml no nace ELSE I son nite ELSE. {Interac omer et ers st le END I re use [ ‘program ASOCIATIV OY : = so nth | = eae ee ercees —— mee | INTEGER m,n, numa minim Iria Ea 10) THEN PRINT ab erento U= (yz = 1.07 Coect, PRINT A crezutea ENDIF Iv £0, 10) THEN PRINT, A cute =xH(yt3) = 1.07 Covet v= Else PRINT, At censtoa ENO 1 teste dou numere ferye2= 1.07 core, PRINT *, trode 2 numereinteg separate prin blanc READ*nm | 1 Stochesza os mal mie dite sim in numa. mini 1 (mT) THEN tyez)= 1.07 neato, vv {WPL NONE | 0 utceconin al see ans din pee 0 (cu Visual Ferran (Comp 199) ouput avail: \ x 90000006490 5 y= eccooo0E +30 2 ‘00000 ‘i cezut ca u= eryez = 1.0? Corwet v=, 1.00000 ‘At ret ca v= Xeyte) = 1.0? Igorek. v= 0.09000006+00 zu ne contact Fee conn oistracine ELSE oe nent eee see (Fig r ny ] r | A . c Figs (Codie a Foran et at nj, | (01) THEN ELSE 1 (62) THEN e ese c Este post io ld caine in Fran In cae unl din blocs fe @ consti 1 (e1) THEN else TF (62) THEN else c ENDIF enor Exemplat 3. Sublease at unter PROGRAM semn_numar IMPLICIT NONE INTEGER numar, sero PRINT = itogucet un numar rag READ * numa IF (rumar LT 0) THEN, ‘ema ELSEIF (rumar £0. 0, THEN ELSE ENOIE PRINT", "Sorina ete semn END. Exemplal 4 Programa in exemple 3 ponte 6 resris atl Init © con- sac incta nu din ce eo lt consrc F-Aceta ee un ‘temple eonstuei inriete su Ineubae (ase comarca Sc ‘in errs smi intiatenprogramul, se resorands nui const ‘As esl doa eons IF a fe mame oc PROGRAM ser Input NONE INTEGER numar,semn | PRINT =, itoaucet Un numae tog READ "numer | ot tower tyme Lg Oe eee Cumar £0. 0) THENasta ENDIF c2 : enor et PRINT + Serle sem ae Carl ant consi IF cu uk ins ELSE IF coespunde sehen oie nF ty mias2 in¥ig92 A,B,C, D sunt blocur de isracin su consti Clie 1 (1) THEN ELSE IF (2) THEN e ELSEIF (3) THEN c ese D ENDIF sc anu msi ext coms ELSE TF say ELSE wsfncn cert lat ach ‘oroa login expr ste avis const a eco we lagure asa de SS ie epee intr r a * % , F & » ” {In imtju sebemsor ogc cera din Fig 93 este un sibel conctor Simtel cnetor se flole suas end ls line! continue exe Lit de fimensinen hist so dit comlerete de cscich' scheme! lope, Peay 8 \eatcaconzctor de inate 9 este se fesse solu e ence, ere Sauce. Aste constr pein un mils convendl pen Tega dus pute Bb sche! logic rk afl line de fan Oh nce a constr exe de. 0 Feiterepresentre pers mlte pit we scheme lope mat compat In Fig 3 repre cc suc eae ct in de ae Psi oan eles da Fp in Foran ext nrc IF lage Sina inarcini ope ee IF (expr) sr Ale expr eo expresi oie scalar arin eto istretisne de cine lnseuchunea desis mu poste 9 mace IF san insta END 2 rogram ssn inte. Moda de eee aa in Fg) eto uo. Se eslcasexresia lope sealarh expr Des vsloaren expres ete TRUE. se exh isrctizes ins ap ar ono tee stuconen urna din program. Dac ala ‘ipeset ve FALSE. coal wos a tsucunes e umes i progr Exempla Insucpne F lope IF( val.cT.0.) val=00 ‘ecient cu uote comstie IF\F (al.GT. 0) THEN ‘al 6.0 \ Cara in Fig 936 corespunde stunt ince insrstioes eu 9 ‘acclitexetnstructunen GO TO greulced in 78) Insmunes GO TO ee lstacne de sale econo ce fetes onies de ace. ‘Sina insttian GO TO este waar 60 TO « nde of ese 0 thet. Eichetn (678, $8.3) ce un rd | pnt I Scie ‘curs din fa se igor: ana nsuma e010, 0010 10 repre sce ech hen en fe ss nt i cae se ic Exccutialstrtlant GO TO se ie ast: ci e exc insrcnes GO To, umitaen ttc tse v4 chs ue ans pth nsec ie Seg ten io Cnt a ot 6 TG Sot atten schema logic in i714 ct fm pogamel ses psn Sheinhg rag = 9.8 Constructia CASE CConstin CASE covine mal mule Blea ite cae et mk ul ese select pent eecuie pe be aml tet ce‘conel In ealars uel expres ‘Sompuren selon ccten ca at sede Salo pede Schema, eh ‘ennui CASE ese na In Fig. 712.0 form stmt consti CASE, smd in gk ‘Sita general consis CASE este: [ nme 5] SELECT CASE (cr) (CASE selcer [ume] ‘Moe (CASE DEFAULT [nme] ‘Mee J END SELECT { nme] ‘ici eps o expres salar de tip ogi, cacti selec ee se-numial lector cae ye e mata ee de den 8 Definite mein de olord ste (al | val | vos | alfa? } oe vl ra! val 2 sn expe de inate sete (5.18) ca al ip 1B pr Penis doen vel sees ice dc expr = a a Sele se ce ic xp = a Br felese ace eck cpr 2 vel LJ: va? elect ae face ach val 1 2 pr al 2 ‘Trebie fen considera uso egl esti + Tnexml pu tg negparaetKnd li! poste on Jjranatl Kinda ll expr. Mtn cca peace ee permis ca unginile val i expr 9 ee cw “oa ea parame pd se aca Fh Un doen de val se spect depot ipl ines sa carter 4 Noes permis saprapunecadomenilor de vale ‘CASE (20) EASE (5, 10°15, 20, +40) ASE K+2) ASE (TRUE) CASE (“epallon, a "gama") ‘Consieit SELECT CASE conjae in med clisworn o instuctune SELECT CASE so strains END SELECT. Opionl cx pote comine [ssc CASE 9 singurinstracjune CASE DEFAULT. ‘Cas in cea stent TF (993) estinen SELECT CASE se poste ‘emi, hau cm ema spn, ne pote uml, cane, un nme de constcte SELECT CASE. acs ca sttcunea END SELECT webu se yen mum specs atlas! une. Daca istucjunes SELECT CASE ns est amity no ‘ste mum irsttones END SELECT. Dash neice SELECT CASE 31 END SELECT sum namie, te pos 3 numim cu sey me insane ‘CASE: su insole CASE DEFAULT. Esecutiaconstrcties CASE ssl in Fig. 7.125 fice sl, Se eset ‘prea spin rcjunea SELECT CASE. Apo st examinsst dase de “alo din Sletrle stuiale CASE pink ces pose undomeni ce cade (aloaea expel expr Se exeeld local de isucjun ce umeard acest issn! CASE, execu consti CASE se tril coro wee Ise instucune dupa END SELECT. Dats nes un domenis_in strane CASE na Se pte I alouea express yi) exist 0 etuchune CASE DEFAULT, uct se execu Docu Ce umeard. instuchune CASE DEFAULT, sips coe ‘eri instruct se termi ) mest il Insrosiine CASE DEFAULT. ‘Seca comri se tori.cain eile deco trio CASE st sins in moment excel deoarece sete expres sult expend de ina cre Fafveard a werent camp. 6518) ‘ aemplal 2 Schr logic in Fig 7.12 cu paca dat in Fig 7.13 pte sod In Fevas pein comix CASE! SELECT CASE (e) ASE (et) ‘ase 2) ‘CASE (63) (CASE (enn) case DEFAULT Ail FFF. FoF, st ls destruc su consti Exempla 3 P ss tang echlsa) ram pot cleric ane fg (ptt, cere, depangh PROGRAM ARIE IMPLICIT NONE (CHARACTERST figura REAL fa tata raza REAL linge, ita PRINT, gua” Alege P - pentu paat PRINT” C= pentru ore RINT, T- pon ugh PRINT" D- pentru dreptungh READ gure SELECT CASE (Rea) ASE (o) PRINT *, Raza coreua 7 READ" raza RINT Aig =" are earl ———— fee er ee ey Aunt fetus Be ee eerste eee neces eee ene Peter, | L eno seLzcy STOP END empl ¢ ‘PROGRAM acb | aurea unel expres simple de forma a operator IMPLICIT NONE CHARACTER operator REALa.D. PRINT "Sri exorsia READ a, operate. © SELECT GASE (operator) CASE (+) PRINT! a+b case (| ASE") PRINTS a*b case) TF fb £00) THEN ‘PRINT =, Imrie a zero ‘as soTo20 PRINT a/b CASEDEFALLT eor \ PRINT A part? CaS DEFAULT coro io PRINT. Operator necuoscit | eno selecr st eww setech more END PROGRAM aob _| ese" G0 1040 Innis einer petri ein mod blaring enor conta carer "1 aur sal ee egret Je vale GE) «Ste Sper de rr clah opt po bacco ring st ocala {SIO PROGRAM oe de cart - Exemplal § Contasa CASE cu ser foie Stic oa si at nit spy oni CASE oe 4c unis st. Connie nga oni comet sete eesecrmue) T°? || Series 60 70 20, 1 cont nsotunen GO TO 40'S censure CASE % 4] Sitocuimten tases commeta (600.6070 10) ‘ASE (FALSE) ace 9.6 Constructia DO eno Seleer xemplal 6 Joc de cinicse wage o can, ch al, Cie 2.3, 4,7 12,18 part se ma raph ere etl cor pe. ro bitanm aha el eereatal aimee 10 78) In Fara exsist fre eel eres constr OO: cone D0 spl [Fags Smee (MPLICIT NONE "+ constructie DO cu control al iterate Seater eve ce EROS Rags 00. 99 te 0 Pome eae ‘Pretics programiri modeme favorieazt consti DO ew bloc Constcta DO SOD nee SEU Sere amen essa eo i, Watt om cy 4 coe 2 PRINT * "Co cate atl tas 7 ‘Sintaxa constructiei DO este: | GST on one 20.11 on tm 80 fom eS: Sines is Se ot 30012 Cont £4089 (me GOTO 20 Blocul bloc confine zero sau mai multe instructiuni si construsii a ehror ase ent Se os ac a ea we cerca ca SUE Be Sotametcatad he tert a aS Sesabone eerie ee gee cena tcsees PENT SCSROLGT IEE BS Bae ie BS enstoct, construct F, consuls CASE sau chiral consti DO; este neces (ASE (2:4, 7,12: 19) ot once conse interior se ingle completa constacaetevoar.Dacd PRINT Mal waget'o carte F_omeial bus! DO conte o ad costrutie DO se sie ch hulele DO sat Umbrieate sa incase). Modul de execu sonsrcci DO ete art in sch lih din Fig. 04 ocal(mena se exes ino ep Fig94Fxsciin ble DO sd insite ce os pn doe conti OO scare pots alerece nian anaat mod spec cues svelte $i censtucllor sacl Un ete isrstmes EXIT tl ineucicea CYCLE Tstrctanen EXIT ar sata EX [me Doct in iosructanes EXIT exe sefert mune (an nme de sonst D0), insuucianes EXIT webuie 8 fe ont in Jomenil nei uc OO, ae instuaen EXIT wet ae gisenc in domenil el pins uni bale DO. Ecuta istration EXIT isc frminae exces domes ba 100: isrctal deine oe unearth EXIT in domenl tle BO tse ea cuts comoll weve la pina nstuctone excel ce ut tec END DO fx sca nme, Dash EXIT nu sts num tact sochnen EXIT ‘emi excuta cl D0 ese ner Tastrvetiones CYCLE arent CYCLE {mime} Doct in insrutunen CYCLE et retesit nme (ua mums de consractie D0), insrsinea CYCLE webu fe conan domenal acl bac DO, ail larcunes CYCLE” bul a c pene in dmenl cl po sue bce DO. Tnstuctinea CYCLE, se deesstie de instuctuns EXIT, ce temins compet ‘ssc ne const DO, verpe ese domenica epee fou ce de exc al onstrate DO. Cia cvs, exces age se {tcee 0 oul exces dren np su a insise sa. fn carlo ‘suc DO cv conor al Keri dap nore se he rej neces ‘er er il variabla DO. ‘erp de wear a itracilor EXIT si CYCLE sun date in § 97 9.7 Bucle DO simple In caza constrict DO simple ise contac. De ase, belle (20 sine se ma numese haces (sl DO frre, ait tke BO "Pe see, bucle 00 "ota Sina construe DO simple, ste nme} 00 END BO mime] CConsmets DO silt, 18 conta ble, permite sh se repeteexcotia ‘ocull (omen bale pink ce eoaracia DO se erin Ina enc © fester domes Exempt Domenil bck se execu in mod rept (cee valorea varie aa, se serif dc ete nese e pears In momen nce ceo ale re nega, inrucunen EXIT comand teninresexccue sonic OO ‘ono tee a pri instetion cxeeabs duns END DO, 0 READ, data TF (@aia.UE 0.) THEN exit ese ‘CALL prelurare (ata) ENDIF empl 2 Tipe patie 2 pin aso,PROGRAM puter hil? Esempll 4 Prespunen cb aem a ier de dt sila eu el din exer IMPLICIT NONE 5 Progamol ala mumiral de mee porive pare in it, Ulan INTEGER putere_2, eaxins \ ‘Sar numarl ees senses sf ee. Programa ster were PARAMETER (MAXIM = 5000) Sores CYCLE 9 EXIT puters 2-1 " puteree Oa lu? bo" PROGRAM numere_inpare IMPLICIT NONE INTEGER num, numaru_oe_numere_impare umara_de rurere impate =O PRINT, putere_2 puters 382" pure 2 Ir (pure 2.GE. MAXIM) EXIT NOD L END PROGRAM putesie_Wui2 _ _ PO EAD *, numa _ FF inmar CF 9) THEN bse csi tla D0 inplementess ere de sil repeat un “Sar (Fg7 hy Cacle 00 sumlese pot oycmens ea e wie (e700 ELSE (MOD (numa, 2) €0.0) THEN ‘ir acene tenive eect de tip oes da igs ere ast Exempla} Preuputen ci a ier one names inte ct unl 0 Tuma de_ numer. pare tne. To ies poi cs cxspe uma co ee mga Pope ef |g numa ie nae pee 1 timear ches yen caaleh bn neploe, ea =e _ exoto 1 — -—— PRINT, ‘Numan de numer par ete ‘ ‘cen popramgasente med und er eo poot * snarl e_nuner pare {are vo gases cate nul in fecare inegstrars END PROGRAM nimere_inpare Primal aumar nega est att ca somal pena || stats arent) Exemplal § Programa jo_66_cat (xenplul 6 din §05) ee rests ot ens} D0. At ite ataren nerinn CYCLE 9: EX Worker IMeLICIT NONE: 10 imbriate alele BO a fox mumte Bt 82 consi IF fost nai INTEGER numar. numar_d_termeni ‘consis SELECT CASE unt muni REAL suma art l PROGRAW joe IMPLICIT NONE | (CHARACTER LE INTEGER care vr Bo PRINT, uct 2 (vy READ “iter ) era | | TF (momar 0) EXT um * FLOAT( numa) ay) THEN PRINT Co cae at ae READ cane 2 TF (eave LT 1 OR cars £0.11 oR a ST. 13) THER 8 Suma / FLOAT amar. frmeni) “eno PROGRAM meaPRINT, Eroare. Carle sunt 1081213, s ‘Conca cycue na \ ese st ‘SELECT CASE (cate) * ASE (1) st | PRINT AV citigat | evcte bs | CASE (2:4,7,12:13) 91 } PRINT + ia baget 9 cane I Grete ba | (ASE DEFAULT. st PRINT" perdu cycle by END SELECT s1 END DOB? ese EXIT ot ENDIF END BOB END PROGRAM joc ¢2_ cant 9.8 Bucle DO WHILE Forms DO WHILE a consi DO permite execu rope # ua ble aa ‘inp cit valor une egret lgice rime ade tit. Simuna conc “OO WHILE ese usr {rmme:1 80 WHILE op END DO {mame unde cree 0 expe logit sla nace ca controll Dl are rma Waite Cop recifia construct 00 WHILE se ic seh se ealencd expres aget top sac lca exsi ete TRUE” ne excel bloc, Dapextupa uet iri cnt ee einai DO WHILE, exes ‘3p ee din ou evaluat 9 cle rpth: Dak sees expres lege ex {FALSE. boc ase ma xe conolel wee I pr suche eer dips ENO BO. Consnsta 00 WHILE implemen In Foran iri cuttin cpl ite ae tere do while (P79) xemplul 1 Toblaca uel uae. Fane ime [int alc asa p95 PROGRAM taba IMBUCIT NONE, REAL a,x sin nay | PRINT Invoducel x Pl x fra pasul do tabelrs! READ nn fina, BO WHILE (x. LE, xa) Exempla 2 Tbelres fcr tigonomie sin os n pune dn gad ingrained de so valor nals a nga ‘PROGRAM tabelsnus_s1cosius | uncle snus st eosin sunt abel inn puncte ain | graain rad (pal de tabatar ete 1 grea} nosing | Gelaovaloare itaa cata m grode IMPLICIT NONE INTEGER a REAL pas_ora,pas_ra, snore, xin rad REAL PL grad ad. PARAMETER (oae-oraa PRINT,” Numarul READ‘ PRINT =," Valoares READ "xin gras * Celeutd mamaria PL PI=4.*ATAN(10)oe 4+ se exc 0 boc cu teste in cap ert, Du exci Basi i} as rad = pa5_prod* P1180. ont ese mljorect cao nat ae increments ca Ma 8 pose ep * niatzare \ erat cet, a | on | a END PROGRAM tbe sins si cose 9. Constructia DO cu contor at iteratieh In acest cazo vari feng Se, nami contra rai, conten de te ose excel boca bale ‘Sinan constructie DO cu contract ee urns mume:] 00 10, 2 [631 END DO mime} 2 Exempla in isrocnea 0 i bucia=2, 15, 3 rant = ucla Nobo PRINT * bua, dome bust DO, adc insrsinea PRINT, _bucl, e¥8 ovata de $n | bua varia tle DO, van seen valrie3 8,8, 1,18 Bupa esa sin ach varia ch ae valaee 1 Dac contol bce af (Pia = 3 16,2 vara cla valu sues valor, 6.8, 12.18, Treat bis BO DOL duc = 18,9, 9 rant» | bucle Eres) Varnis | bucta va succes valor dessa 45, 12.9, 69. Du ies ‘inborn boela re soe 0 Ali 12 3 se umes ‘arlail| OO, si variabila hace ete vrs nue sau a ar 2 2 28 sant expres pumerice neg sa eal Dac e3 ete se pst omit sre ‘Eecutacomtrctie DO o1 conor a i se tn schema ogc din Exec const in rita: se clculeaet mt valuarea tall a | m2 valores final a | gi sd Ineremetal lai egal valores atl era cu fora e=MAX (INT (r2-m143)m3 ).0) Obert avem f= dant >m2 gi m0, ny dh nt smd. ‘arabia seize 19Schema logic din Fig. 9S ee des niin prosrance de acs pets ‘4 inods an simbol Spec sibel preparare x eae sche pale ‘ia splacala FI 38 \ ar var-etere3 sou eine cnt! DO, vari 0 psec i vale, ape cre stro sin cand fo ta contr tee ‘alowe deca excel doen bacteria DO nu tebe sic Web rams atin Observe schibars decal excel sab li nepotism fe iscsi a nae fn ee ‘Sti Ne lost nsiod varie D0 rele, Dack se flosee variate BO real mu se pout garage OO v0 f execu cup vals BO rel ‘zl eu vaeures lsd opr xemplul2 Resriem losin un cho ovr tor, programl tbl in exer 1 § 98. Programa tblestfncin~ 1+ cups de ble i i i [PROGRAM aber IMPLICIT NONE. INTEGER in REAL: Rexx y PRINT trode xot, 9 FREAD nin x= xii END PROGRAM tabe! De exempl, dacs xin 2 ins 5, we malin abla pets ngunerse 10, "2,14, 16, 18 Dick vant= 10,h==29in= 6, se celanach © ible in erdinedescessiat, as pont argument 10,86, 4,2 vem 3 nega eh Jeena repreinih geometric ava magi de tine x~ a, x~ y= 0 si cuba y= fx). Ineoai de eslare apocmata + acvel itp ie fiz de_ meta Uwapeor se input terval (a0 i subateale cae de gine (62) pe care subir cre eapeineal pin nl el, valores proxi 5 aintegnlise define ce find su aor elo apes: s [Sesarionerans 10-9 AO Programs inegla eset epronimi prin metas tapezsor integra Lenina PROGRAM iniegraia: Caleuleaza aproximat prin metoda wapezeot sia miata de deptle xe, 2b, yo0 8 =o) IMPUCIT NONE INTEGER sn REAL "9,0. sume PRINT, Enter READ PRINT "Ener a, READ ‘a,b ne{b-8)/FLOATIA) 1 Cael sum 05 * a) + Kav) +. oe) 0.58) 161 et15 (EXPIa) EXP) ms Suma = suma + EXP (a sFLOATI)*h eno. ya PRINTS "hin oot h* sua END PROGRAM intra 9.10 Instructlunile CONTINUE si STOP Tosracunes CONTINUE are sinana [1 CONTINUE De oie instruc ae othe ts feos a istracne emi 2 domenil DO. Acca rs evident praia limba Foran 77 cae she ‘una DO fi oe Instone CONTINUE ce post pte 9 nei a aes ogramuli; eo pote fy de pa, isvuclune fd 3 ane isracn sa Insrucanea CONTINUE poste sera fraiche Executa tstrctiunt CONTINUE face ca omits insite ceva excuse cen cre urea. AS, de fp instetanes CONTINUE mee si eae et kup sete se, lr Thatructnnes STOP ae sna ‘STOP [con STOP cif (e¥ Lei Le be) 11.11 unde cf eo if con ee 0 constant caictet, Grupa de ie sa conte ‘trl emus codl opal, Col soul ete staal Tnnrucnes STOP tein exci programolt Cl stp ete acest dupa cermiares execute programe Acesrn scat proctor Spee es ‘al pets neni ll in ae pogo Ace nai eS tna les inc nae program stm mls STOP. STOP STOP ‘Eroare 208 STOP 50 ‘Uitzare ran program ainsi STOP este att i exempll 6 din§95, CAP. 10 TABLOURT 10.1 Tablouri Elemente de tablou. Stocarea in memorle ‘desea io praccs progam, ini problems pelt uni patter replat de dl de cl ip. © malin ori de date cr se tine te dimers pri eresenta cola, in pant Tntimbjl Forman o mine sent de dat sear u 1-7 dimes tote esc tip 9 aes parame dep (ind i lange) se pote oganza co 0 ote nami tabow (any) Tasoul se sdentiek pram ame. Orcce in ‘Semen senate sl aoa se mete element de tbl Define element de tabi este name td dei) ede nd ene inde inde} ic mame ee nul blo ar ae eo expres wl nen. Pin ume petra a ef th progr heen de aba se seae_ manele holt ‘Sar deo Hs de ide Gutsy) inci Se arantze. Petry Rr diner ‘one extn ine» ela alae ini poo Inxs seen, Nur de Slemente iro dimensune te names Intindeea (ete) aces dimes ‘Rangl tablet (oy rank) semua de danensn sl bla, Forme wn {ablow (aay shpe) ete determinate raga na de Ingres. Pen ‘pein forma nul low de ang floum ai eds) nde Eevr! (Objects cannot be created rom eng fel cles ets ntinderea a nein # ‘emir fal de sement le abou ga Pod nce, ve ume indies abl ays) Exempla | Vecoml veoh v ce ste componente ¥=(2,-25) se poste egmiza can blo el 1D (asdimemsinal) cu foma (3), tabav e ae ne ‘tera Cele element de abou soe cu ez), vtaza2) ea(3) ou Valorie 35, Exemplal 2 Morice drptngisat 63 in 9 colane prs 4 17358 496 Spout organiza cau loreal 2D (bisimersio) fom (43)_ 3 mime ‘$e3012, Elen abou sunt (1,92) 8"), alt), (12), 822), (82), (4.2) a(13). (23), (3.3, a6.) (14). 12). 1A), 44). Spe 18eosbite de ntatia matic, st primal indice nani colar ide indie ‘ami ine \ Exempla 3 Listscumumele denier det ei ‘Ada Barbu Constantin Dscene Se pote organza ca un thou 1D tp cater, de maine 4 forms (8), alo sett gpa Elenene Nols rpm) ra) re) ts) hs Exempla 4 Un com omogen de forma uni puppet drerunhic ete | serait in element Hitec ttl! le 3D (Pg 101 rrisptts| Aso Fig. 102 Malm pode pie, namertte de 1 a, ine ce lsu at ater oona cu hii clase plan (Fig. 102) pt orgie abou tiinensonal muni od, Elenco boul se notes nod), nod21.1) e317 nol 4.3, As primal nce nana eoloael, a oes net hile nl tvs mand plank De expla, nod. te, naa(a a8, Tol nod se forma (342) en computer table reprezo un grup de ule situate In meee una ‘ups ta, gop sun |e asociet uel aol Notte elemento de blot Jet rolladrecor er incre ne shea vane elena In menor ‘REmenseunsttsbiow indimensons, we socearh unl pa ally asl ch ‘men de ublon n+ 1 umenoh eimennih »» jamd. Dsorsce menonn ‘detablo {ary sleet odes, cum Sema mune, ordineacloanel mare ‘Goma orden cvs ce scare un blouse stechez a nemere af ‘Sn nna mal pe cera in crap een Exempla § in Fig ratam soeaea in memore« boul teen es 3 clement exempt) + table vteza Figt03 emplat 6 [aig 04 atin tocar in emai abou, tbo 2 12 element oxen 3 1 Tye a ID AID AED a3 AAS ALY AID AH GAD Figios Deasips fae sale a sis aloe ordinal indi, De pil, ptr emeatl de ubou (8,2), ake dnl ese ra10.2 Atribute, Dect a inw-un program Fon etiite flote (varias, table pointe, poe. uy pose tee tribute Ate deter lin teen ve fe St i progam. Arm var den ($81) el nice tartans posed ump. Tile arma dou in atputle pe cae ental pte ave. Pent specie Se ‘rule iferele enh 5e fone stun de dlr, su um ae me Ines delaraf care contin name cave, Cine cho flan dels i pene tet sre su dt nb 1 REAL, PARAMETER A smoke ino singe nine te arb ni A, Av deace 9 eae creat ae ct ‘repay oc ce at Gack in lst ists dems sas scten deli REAL A PARAMETER A=2.) Inartioncs PARAMETER sf peta $510 ‘© ent di ponte aes wa sna mte ob. Dah o elle ae on Totelul (OE anumit sribut, tunct ea poate poseda numai anumite ite atribute, mumite ati “Span con bt eat Linehan ee das tat 18 cs Specie ec TNIEGER Tabla 102 mat = SouELE PRECsion fr c CScieat AILGERTABCE | ORENSTON 1 PRVATE PUBIC ERE couse TARGET Vgeinttintcetrasnamn (132) _| | Wee dt OWENSION | ALLOGATAGLE WENT OPTIONAL PARAMETER, GIMENSION sc win POWTER PRIVATE, PUBLIC SAVE TARGET ALOCATABLE | rept weer [ecrerwa Gerona peware PuBLic Powrer “a oie INTENT. SIMENSION. OMHONAL TARGET — I —— | [INTRINSIC ——TPRIVATE. PUBLIC eae OPTIONAL | BMENSION EXTERNAL WTENT, POWTER | sO aRGeT t PARANETER | DMENSION, PRIVATE: PUBLIC ———— Private PONTER | DIMENSION’ OPTIONAL PRIVATE PUBLIC. werent sss pote ois __| Bete State omt ma 183) SeTONAL PRWRTE | NLOCATRBLE OMENSIOM EXTERNAL SAVE | INTRINSIC, PARAMETER, POINTER, SAVE, honnee roprietiti procedurs leon TARGET SENSIOW INIINSE PUBLIC AGGATABLE, OWENSION EXTERNA INTRINSIC. PARAMETER PONTER SAVE, Au tf pine, fc ne de dca apa gece Af | Tincer iin ae Uc sl Smt sa ule DMENSION. | | SAVE———ALLGATABLE, DIMENSION PONTER, PROVATE AtLBgAtASte:Ponvien TARGET. ATA PARAMETER PUBLIC PRIUS Pubuic Teer TE INTENT, OBTIONAL, SAVE, EXTERNAL HFTRINSIC) Aces incarmsca_| | TARGET] ALOUATASSE CIMENSION INTENT. OPTIONAL in lp "Roa iene abet se chee ed Paws PUBL SAVE fvientatecatre etite entered) i orientate etre arbut (tile ‘Exemplal 1 in insincere ip10.3 Declararea dimensiunilor in tint Fotan erie tow posed stribetal dimensand Declares resin nul blu ete oblignore ise fice suelo ssn etine 0 speifeaie de tblow. Sperfexpa de blo deemiat ran ets ining in cae dmesiane ps delat spt aie especie Exist mt mule meade pons declra un tabou. Ai vom considera doe eclararen tablorlor cu imensia s, sar tablour eu forma top (explitestapeamy). Un lon cfm explicit ae hile sete Definite see. de tate fates. de soe. tn Sori epicis Spee forms explicate Lot To Aci spe le tablow est specifica Se tbou i forma explicit de spec n fra explicit inc peice or exp, os et i Eis ct efor se apres pein ee ‘Seine cont de rious repli + html de scr de spieaeepesin mel dines boas 2 acd init de jos te ois valour a deft exe 1 Limi dejo pote pot negara zm Domenico into dmestane a blll exe stl valor curios ne Tita eos limit de us ew contin cx fos ~ su Dac ts jo, dome ee ‘Hinde sen denature exe mines wig ex Diners ur abba po Tspeicat fa ous fer) uo snae de clare a Hp i) cl © sstctane DIMENSION, (bloanse pe car le or ‘Sim tint ld Tlic de estar pls ype, DIMENSION (spe deta) mame. de tabu wee de aton ype ume de tabow (speed taiow ) 2 mame de tao atoe)) Ac type ee un speieator de ip. Speier dei 8 fo precra n 55.1, Primal alo sim ain end ont 8 Gevara cot ue eeu a ‘cli ip aceatdinersn A deen sion folasn stan cad dvi ‘clr ttn fee demons fete ss ote seca rcines OINENSION a arma DIMENSION [] mune tan (peel) Comme de abou pedo} Exempla Tabou ig 1D nuit indie ar 25 semen, Pe dsr neste pte ooo decree een: INTEGER, OMENSION (28) = INDICE sou pte fl dlrs creat ct bt INTEGER INDICE IMENSION INDICE (10) De serene ee psi delaras: INTEGER INDICE(25) Exemplut2 Tebourle 2D, eu ooms 3. fa, beta, game, deta, epson au fear 2 eemente Dears dimen pte eo sree REAL, DIMENSION (3.4) af, bet, gam, dla, epson REAL a3), beta(34), gama(34), dota}, epson 4) snc gop de insti REAL ala, beta, gama, dota epson DIMENSION aa.) bet 4), gama( 4), dea.4), epson.) REAL a,b.6.4 DIMENSION 3). 4-14), 22.4, 42.32), cl hablo eal cu nee ee unidmensina! are ti lament ce 6 0- ‘hex in merore in dine 1), 32), a9) cab fe ut bese dine Sonal sae gus clmente ces wtchect in cdnen D1 (0), BB), BC), (det eblou! realnumit ete biensiona share 24-8 clement sca ‘a rtne 1.1 (2.1), 8.2), (2.2), e1.3), 62.3), e.8 e(24 sed eon eal pumit dare 2322-12" elem moc tn cubes ai ¥4), o2 4 412.1) 22.1, 9(13.1).623.1) 6(5,4,2)6(21.2) 1-22, (222) 60,32). ‘a3. 2, Exempla esruconie INTEGER, DIMENSION) nt FEAL af (23), BS) LOGICAL, BIMENSION() game CGHARAGTER"20 nue (10) lr abl in dcp INTEGER ae pau clement cal! lla dep REAL ‘ste tiimensionl ae 36 eames ar tablou iden ete depREAL pare 6 clememsc blu! uidinensonal gama ar 3 leet iste de ip LOGICAL ia abou name c 1 cement exe de ip CHARACTER20 \ 104 Intializareatablouritor “able spo infiaiza 3 modu whoa ca inte, element clement au 0 facil DO imps Inialats a6 face eu inerachnen DAYAL Tiare “arnileloe slate cu autora sti DATA a font recent §5:1 linc: Timea DATA se postin pent niles aber. Sntata nunc OATA este DATA feof fy 1 {Lite Ifa.» 11 unde fas este iad bic cares iia ir tia et tis de vaca ‘ae se iniina cil Definite obect ete {arial | sts DO_ npc) “ariaia este (me var ta! [lon 26 nme tab) faloare ate ‘Ufc rip cont Set D0. ee fa 62,08) Ack mame sar seal isean mame de vari scalnt, elem Job lnseaint element detahow une fob seth mame de talon, Yo ep ese tor de reps com ete cosa. Tn Pac DO imp ite pate cone lemenfe de agua tule DO apie ust ureinrle eg revit + Ente of, 62,03 a1 acces! sei c cle din contol eral pe- te constrain BO cu conor a terper (999) | ese vaaba DO, @ vara ineaph, ar Of (alewes iii), e2 (alaen all) 9.2 acme sit 2 eal uel cle DO imple, bls inilen exec ise emios in cal eons ono al sie (999) 2 Un ao ce apart deol i nici ste aac cum lemenle ‘Sear fot in orden elementlor deal ($10.1), 11 nize vu tbou sleet clement REAL (3) DATA att, a2),a(3)/10, 20, 90.1 Ac list de obit cre nize coon mete de abou a1), 42), (9). Serie iniaizatea a) = 10. 92) "20, a3) = 30, al Ilia un alos 1D cites INTEGER itt) DATAIa 12, 4,6, 8 / Alisa de oie aes noes fn inscnes DATA contin: Ja um sume abou, Table niaizearac um lent sale ar fst nodes Slememelrde alu, ce ce nse rcunen OATA et sila cu DATA (1,2) (2). 12, 4, 6, 8 / a2) = 4, (3) =6, iat) = 8 Seven nize) Exempla} ilies un blow 20 ce integ INTEGER x (3,2) DATA 110, 20,20, 40, 80, 60./ “Tobloul x se niizect ce cam lmetl sl i nok men sco de bl aed ne elena lates (19) = 10. (2,4) = 20. (1) 50, n(1.2)= 40, (22) 90. 900.2) = 60. Exempla Iniizhite din exemple 1.3 sept wealzs cu o hula 00 DATA (90) 813) 110, 20,.90./ DATA io eta) 2 66.8 DATA {CL} #13 h i612) /10, 20,20, 40, 50, 60.7 Unio nsetie conine ble DO nlite bis, empl eile ui tba 30 REALD(S.5.5) DATA D/125"1.0/ Lis de vlc ft de repetie 125, Tote clement abou 30, ‘orien elemento de abou se iain cv valoutea 1.0 10.5 Citiren gi serie tablourtor Inside eve see eu fomatr cons densities PRINT cu format sats ena READ" [ob fat {0b pa J. PRINTS [of ouput (orp j=] PRINT jt (08 apt. I) munde of inp et obit de nae, ob oupatete bist de ei 9 ft ee pe bo beta Tene URS sac ae tte oe ea spe lsu print sng insane eben Definite PRINT, (af) i= 1.) ob ous ste (var uct DO. snp) Exempla 2 Dac oss specifica de frat puter sre pe eae rnd 2, ‘hour Ste (apr [Bulli 3.4 valerate un blu, = {ste {me sor scat [ter ta mae tab) bicta_DO impicia “este (ita, cor DO inp) ‘PROGRAM O0_inpick hte (ete (ob np | 00 ou} | BIBL NONE Cone DO implicate C1 presenta | PARAMETER (n= 12) Aici er inseam. expres, vor inseam vribll, ume sr sal INTEGER ata) Insane de vaviabidSealar clon sab Inca lement a table BATA 70°90, 30,40, 60 60, A ume ied ose aut de tabu, fis Iseain Vat de sete, 0 ge a eaneNoorinaCinieoon Insarns obit al te i pico ese se pote redice 9 varia facta DO inp Tis pate conn lementedeaou su bul DO. plc Ere 02 ose eigen cn ep ‘sonst DO eu contol erat (991 en vail DO, vari ineagh (27 alas inl), 2 (alone ala) sre acrementl) sit expe sie Exist urna regal rere ‘+ Vaiabis DO nue tun bie eine, + oboe DO impiety cooae de ae vrais DO, Inara une bce DO imp, case inialen se eco se erin on carat consti ex comor a ere $99). PRINT "Fomat a5" PRINT 215, (a), PRINT PRINT, Format 35 PRINT "I5) a 1.9) PRINT™ PRINT, Format es PRINT (45)(athet 9) END PROGRAM 00m " Programa produce unit ot 3 "'Un taboa ee pare Bek indicIn Ista cy obecte de intariie ale oe lnsejinor READ sau PRINT ose rt 9c lemon sa ost ee tne clement de tbl (31.1. pried Fie cre ent ce Weal sri webu te df, 2 3 8 Exempla in Frrenconsrsin 0 004 100 READ a) mc) Eno 00 Foemat a5, pow nlc pint-o sigur atte ecient ce re obit de inate 0 Sao ls'0 pcs READ *,(x(0,1= 1.) In sina sevens 2 5 BD ™m 0 100 110120Format as 0” 2 9940 so 6 67 \ 9 100 m0 120, emplalS Seeventa de hcl DO intricate Doietn Dojetn READ’ al) eNoD0 ENo00 poste inleu cu o Singur instsiune READ ce confine sie DO impie | READ‘ ((a (8.0), et.) Programal matrix ete mes ap olan io srs pe lin, act tuboul@ ar aa ma mite ement, de exemp 10, acest proved de sie ese teint. Renu cies sleet co semat tablet put lon 6 ‘Sree canine eae Acme mma element ale blots Oservm cin orp bss OO fiszczk afi ude hte te 0 aril ens, et soe net eu lent blo ap fs seve 201.9 PRINT 9) N00 Cie sete element element un blo ee alin program ay. ‘PROGRAM matrix PROGRAM aay IpucrT NONE IMPLICIT NONE, INTEGER) n REAL. DMENSION(S) 3 PARAMETER In =3) INTEGER in INTEGER a(n) PARAMETER (n= 5) READ (23) ((a (etn). Jet.n) borin PRINT"(33P.((6 (ij etn at) READ®, a) END PROGRAM matix eNDD0 Boma PRINT 30), END oO. END PROGRAM aay fn $10.1 om art c& pent» refer an cement de wlow ve sie mule ‘abou nat deo st de nd inch nr parte Md pot conta ‘cals intreg ind pat variable selae intend po expres slr Intel. Conseijleutistr sas em mt a pofde Soi ar lat ‘ede, Inexemplelceumesza prevent eters it ale str fc. Exemplal Pent iti lane! clement alot el ac lems pen ‘ols isto READ", a) READ" a2) READ a) READY ale) Exempla 2 Calcul sume, Prespune b em de eet andes, su mumere ele, Numeee le cose elemental aol nie son xu 10 element. Un progam de acl sue wept rin Fort al PROGRAM sume IMPLICIT NONE INTEGER! INTEGER, PARAMETER :n=10 nsREALS REAL (0) Borin READ* x) END DO +0) No 00. PRINT ‘uma = = END PROGRAM su Dupes cleentlr tbl x am sis o seven format it ne strucne de tbe so ucla DO. nasa secs uma ¢ nia 8 Inviecre ps al bul D0 In terena genase aug leet x) Tinea scott event atm fle scents DOWMILE (I.LE.n) a) ND 00 Uiimele $ instruc slesise farms cea mai simp «uni cea ew ‘arial contr: Vara illest bill posin oparte de inileare ‘fo tera raja cone un Ut I LER, osenent de proesae 20,0 nstrctone de vans 1 ft io comandl de comtinuare DO WHILE 9 fermi mai eltera sun ich cv 0 aril cons, omnia DO cu one, irate fot pena §99. ‘Secvenfe de acest Up se pot fs cael or sume mi generale de Sn) ade Fete fans ath. Exemplal 3. Prelaraea toe expres obfnte i miso dre Datele nate de ort sche, Pespunem cna periment, con ‘denice, sam efectun »Imgsuon yas eit reels ra Moti arnetich inde a valet adi ar heres anand caracteien ‘mpricen dlr i joa edie. Progamal masuratort doce eliza sath eben PROGRAM masiator_drecte IneLIcIT NONE INTEGER sn PARAMETER (n= 50) REAL sigma, eumo,220ba,xmeca REAL an) Doin READ’) END DO. Suma = 0. Boinin numa = suma +x) Noo. ‘emedit = suma /FLOAT(n) 4 Chea uel mati pein, tment cu sement INTEGER i j.n PARAMETER (o=5) REAL a(a.n) Dis thn 0!READ *at.i) ENO'00 ENDDO \ Exempla § Cia uni mati pe conene, lent elanesh INTEGER i j.n PARAMETER (a= 5) incopy Save deste cu bse nse unl alle ee brieate), cs Exempla 6 fame dot mai Se dt maps sib dedimenin , Mwices por eae semen ‘Programa uno cetcle dou mts fl pros wseirera PROGRAM predus_nairel Ihpuicit NONE INTEGER kon PARAMETER (n= 2) REAL a(am, bn). tom) | Chea pe ina mati a (element cu element) Doietn D0 j1.9 READ’, 2) END DO | Otte pe tint a matic seen cu lamer) borin DOje1n READY, by) 00 [1 Caiealulmatici peuse=a"B do i0 DORI ot bo! An ef) =e) +a) bi eND0o END DO. ENO 00° | Tiparrea matic jet Doles PRINT fi eG) END DO _END PROGRAM produs_ matt ‘Obsrvm cin instctianea PRINT figuezaclementl de bon fi 1) fh] 2) pen sve init st exe ante ne a2) Exempla 7 Aloe valor mini yimasine a ementelo anu alos PROGRAW minmax putt NONE INTEGER n PARAMETER (n= 10) FEAL arin, xn REAL. DIMENSION() x Boistin READY (i) eNoD0. min = (1) smax= 0) bomen TF (a) LT-xmin xin =) I (a) GF max pmax =) ND DO PRINT nmax = xa END PROGRAM minmax10.7 Expresltablou, Instructunea de atribuire tablow In §5.45.18 am suit expesie Sale a caret pera ra esi scala Lj Fran accep expe blow (ary expression), cee ‘Sti oper blur Un abou sept apie o pei nar. Result un bl x een rn (ang extn see) esr cement alo feat ee valance Cres Punosiare opel unre spine cemerul eapectn ‘Exemplul A este uh bow ea ID desta cv instines EAL ACO) Expres blow “A ‘epevn un abou ele element A, 1.10, Fs lament al lou A 1 ple peau" in med stm ¢ pote epics o opera hina une preci de blu opal cea acct oom (ang extn entice). Rect un abou de sea ‘mi neue, cae cle ae aloaencoespanclaare opens iar a patechilor de tlememte coreuncitoare ae bluror opera Dou aout ce a ‘cea fom ee onforme (eolommble ys). Exemplat2 “oblurile b 5c st blur ele 2 de wes (2) deste cu REAL BS 5) (3.5) xpi blow ‘ste un abou rea 2D alec clement au valor: (4) + fh 1 1.8. ‘Un din pean bina pete un sean cet ca ell eine ‘um scala af tsfrmat rn bo de ces frac apel toh tloo incre tne elementle a valor scalar operand AIG spy ce ‘Ste confom ou re ton Esemplal 3 Tablol 3D ral gama ete delat INTEGER, DIMENSION (3, 4,5) gama, Bapresiade ublow gama" ean blu 3D cu acl dimensan ca gama. blu ca lament a aloile ‘how ama imac 8 aed B-gama kf. oaks “able po floste aargumene pei fine iis! element (Cap 6, Fujin actions asp fecal element, cla este how Ge Sea ‘nt cu abo enue, Exemplal 4 Fietblowle B,C delat ast FEAL B(20), (20), 20) Expres de abou 2-c*cos(o) ‘un blou eal ex clementle £84) - C1)" COS{ DIN) ; 1.20 Esemplal 5 MyiN stot blur oie declante LOGICAL M5}, N50) vores blow MANO.N ‘tw tabou loge cel lemon st eal peri compar leet ‘Shor M a "ora ener inside abies nde var exteo visi expr oped Tn 6 am studat un ca pra al sce inert inmasines de sting salir incre ar ete 0 vrata exrsteo exe saa ‘Stim asin astrutnen de atrbuire blow (ary siinemen) facet az sor ete un bln vata abou #ezpr_pte fo capes sealers st ‘xe abou, Dash xr seo expose blu ex eb Sh aba aces for ‘aria blo ar (asaya ween exes ‘Execufa struct de ature alow se fceexesund shuren pers ‘cre elem alot nar Sandra Foran peific ednea deat, ‘ences tun compo Foran dt poate rat excep a te omputere veo Suprlle Exempla 6 REAL AG), B15) aoe‘In istrcunea de auibuehleu A = 8, Bt) se sie Tui A), 82) a str a QZ), BIS) se atu NS). Orting tuner ma et psi “buile po sie de un procesr inane dine su saan, acd nui bu ise abu um Seda atresia al laa fn alos de sca fema ca var ‘alou Incite ate slentle ag cle cst INTEGER 3.2) "lementslor blu tabou 2D rh feat vlors 8.0 Esemplat osreb how PROGRAW ature IMPLICIT NONE REALS xy REAL = nO", 5) nab, 6) PARAMETER (x0, y= 00) REAL. DMENSION (4):'4, 8, INTEGER, DIMENSION (4,5) ‘CALL RANDOM NUMBER (001) PRINT "not" nt B= Gx) 04 PRNT Boe tee a Paints -c:5. PRINTS 121 PRINTS Ast ENO PROGRAM atrbure # datoe se tunchiaze la vaso nrg in program ati tbieuie M01, nab, A, 8, C 9 | sant sonfome CCALL_RANDOM_NUMBER(001) renrar sleet abou MOT ce mane leit anfome pe interval [0,1 Insoutinen 8 = x)" nO ese ois Fine de stnbuie abou clementele aoa 8 sun tee lesa uniform pe {100} Insuaciunie C= B.1=.C, A= 1 sun de sumenen insti de ae ‘abou 108 Constructori de tablou Adee ete convenbils denim un elo specific vie cu un cone sarator de tablow. Contraco de alo et un sci flan pet pe lsum sire art slr eet nares un tabu dean ie consracor debi ee aloo ene nla DO_impid ee (1 tse stort 1) {expres | uel DO implica) (ie sehee 31) ile 6, 62 €8 _aseassemnifcie ea ele din controll eric pent constuia DO ou contr af serie 985): eae varia DO, 0 saa Greer et (valuea snl), 42 (laren fal) 912 (increment su ‘renter. Toat alone din it de wl tbe se de sl i ‘ores paarct do ip. n stl ul bul BO imple, bcs nae ‘cucu se ein inca consti ca cove ($99). Tablu! deat de un contractor de ahoy are mul ot de kmete cst fra in nite spss ot de oor exes lr ements ‘Speier deabon note slemetlo de abl Testa de val put ie i ic a cement a som site un blo de marine er ($109), empl | Consist de aos er) (11,2,3,4.5,6.7.81) Esemplul2Tablou al gale cu element a vale g(125, (2), 9G)HS. gl)H85. se poste defi ca sm contractor deal REAL gtd) 9=(/25,95,45,55./) In insrctiaon de atibute whoa 9 = (125, 36,45, 55,1) embed reap sede tbe ete un comms deal fot ll wu lo Exempla Tabou rea Bete consnit in lemetele blowin ele x site constant elm onines dia dsr REAL x(9). 9). (9)b=(/28.x,82,105,y/) Exemplal4 Constr delou cto bust OO ipl inka eemenle late ant erp REAL 210) 2 TBORTL REAL), 4.40) 1) Constructor. de tabu sep folsdar In isco de abi # voor ‘abou de ag Pers defini blot dang 2 su de ore suprire Se poe ols faci cet RESHAPE ($1012). 10.9 Scetiuni de tablou. Triplet de indici, Indice vector Ades in cle ste nevoie doar 6 poriane ura bow orn nih secede tabio. Tabla! pane ach ay) ete ines tho Sin ae at Prana ce forme sone de thu Sclunes de blo steam blu Setanea de tablow se specif print sume de arab alow 0 Tt de inl de etone tinh in pre nite Indice de secjome este {indc| pet de inc | ace vote) Ine te eprent sal ecg riper de inthe (ind 1 Und? VE pa J Indice sectr fe eile sal treed ang 4 Cel pin un indice de seine rebuilt de inl sen nde ‘eto Alc imc este niet de wou (101) ‘Triplet de indepen am ide sl ines cae ae limita de os ol ndele tI ita de sepals cu ind 29 creme ga cu par (Gri) expres el inves xis urate regal restr act se omit iia de os 1S flseyt int door declarant 5, Dio Sit eo 2 ee a es eran 1° Dacd se amie svete li pa scone ep cu Duct se omit ai int ips pe doar ae Floste Inte done Sct al imens + cement pa teu bel cu ze, + Daca par> opel pete rl eesctor de valor neh fad J nd + as, md. 1°° 3p. pa alin alae care ete a at et a does Indic ind Cin ind 1> ind? eed kw lemon). Dac en $i (indict et i, seinen dead ee un tablo cu marie sro rosie im 2 Daca ps <0, peal specif sa desresctor de var neg Ind 1 1 jpas pind 2" | pa pl nn alae cate xem mic et el {1 bes ine ind"? Cind nd? > ind ssp de ou ete tn tbl eu 2 "Dac into feria de setae de aboa apr ui, rangle de Soa este mat mic cue unitate I de rang lol pire Valores idl {ie sn tench nei declrte le densa rrp Exempla Conse cs biol A este un abou ID rang 1) dett REAL A(0:10) Secunes de tablow A: 6:2 ) canine element AO}, (2). A), NB). Ait ftom alin etic em 8) ae ene MB), AC) ‘NB), AG), ATO). Act «fost omis primal ince pl in acest caz pal ete Conse gal ea Soci de ion A( 4 2} coaine slamencle Ald, A) 'NB) AGO) Aisa atom aden ince Sova de alow AT) sone ‘lemenle AT}, (8). AV. A(T) Aca fst oma al din indice ps pas ‘re sonidrt eal x. Sesto de alow A 2 8°) oie eementle A) 1X), AP). Semen de low A 83 ) ee un blow de mane zo, Ae past {steams ese comsderat gal cu. Sse de abou A( 94-2 )este wn abou fStlemenle AQ) AUT), AQ) Sexunes de slow A( 49 =t Jet am bow de Tn insrciuos de tbuie lou ($10.7) oa ‘yo poe fun ilou caine nal Retin eb expr. poeo expei saa [6 cxpede tow co re acm fred cn wale on er Goce ong Seles exten. Deosrece ‘ablal sar nu ae nh clemeat. acest a, Insruciunea de tuba blow ene ecvalenll evo lasrucione de wething. Cu fe mira oxen). Pesibiate de» wea taboui cu marine nla ne peemite cin slonren no probleme de pepane st adopt salu ee, natal cles emplal2 Consider sistem de sui inare anh 2. sa.n20,8,=b, as4 tab, \ Dad defini abou! X cu elements 85-8, blo B oh lene toon abil A ce contin marie jo trghi 400.0 lag a a) Sela sintemuls de ecu obi cu seen 241A) Bllet a) = Bist sn) -AGH in) XW) bo) exo Cindi capt alors sie BU) 9. AC 44) devin bw ‘aimee Zero insrciues B{ Foto) = Ben] - Ae Zt)" Xi) se rede [SMa se exe ic Dacha eta aes "eau de dense ml” te feeb evidet st cen mn mest "Tape de inde seiie alo i ordinecressoare sau doses cu uo es spit pen fom un ster replat Indie vetor pei valor a Udine aber Un dice vector este un blo de ng Ie vl ne fost ue Ince de seine pene seca lee tan boa pre, Exempla INTEGER K(9) REAL x(20) = (110,58) sm) #20. se un abou de ang 1 eu voile neg 1,5, aise dea 0920. Kes un ince vector Sexunen de blu xk) confine lemon 10), (5) 8), xemplal 4 Un indice este poate sects sectiune fomai in. mod seguat Dach J 2,5, 14,7) anes Yt) ete um abou dere coal Ainclementle V2.1) YEA) M(t) gM Exempla § Vila senior de blow PROGRAM sect Ipuicit NONE INTEGER, PARAMETER mic. aay = 5, mare_aray = 10 REAL DIMENSION (me_aray) fa REAL, DIMENSION (mare ray) "Dota bela = 00 ata ('20,20,30, 40,50) bela 6:10) = 207 aar"S)'Sectune de tsbiou PRINT", beta (8) END PROGRAM aectune —__ 1 0 Instruetiunea WHERE. Constructia WHERE ‘Adee rebuie sb ib una bo na nuit slerete seul te ou. Aces er este pest ahora ne Iatrucivn deat tel immcate(mushed aay atsinenen), stun desire blow massa ese 9 Statue de bie abou oe pate par fe nto nseine WHERE. he Intro consrcie WHERE. Inyo lntrctne de aie mse tues fe pet atunite element le table pe bas aloe une expres blo [ope cre serves ep nase err sapere mentor de ash Intractones WHERE ae sits WERE (expr tbl lie }yar = ex tao Ue ep tao logic exe 0 expres alo apc ere ete sono evr 0 ‘ibil hioa (re cea frm lcs ea ang acelin). nouns tar = ey fabou ese abe ble matt Seale enprtabow lope ‘ez un tablou logic eare‘exe at cht tas (abled aed) De acece, {pr toben lope se nai names expres masch. Feil leet al ull nr ‘eae valore corespustere express din depla dock lament cores Punto dn mac exe ive. Dach lec din Ileal tush flee leneatl de alos corspnstor ae aie ni owlowre bute at too in expr tablow pot opar doar opera ite su func tment Fonsi ‘sn value numa pentane lee in eps seh, Exempla A 8 sunt aioar conor fa (10,10) REAL, DIMENSION (10,10)::8, 8 Wen A.) Insturnea WHERE scat la 0. clement ui B pein cre eementle corespunzntore ale Tat Ast aepnive. Celt lemons ale hi Bramin echt, 1ambupetoblow maces) ( ELSEWHERE I aire tbl masa.) END WHERE Sccvenfs de srs) maseate fase WHERE ELSEWHERE sau inne ELSEWHERE si END” WHERE cind ELSEWHERE lips se mmo ble WHERE, ior sevens de_struin matcte ce umescl dap” ELSEWHERE kaise un be ELSEWHERE. Exit armor regal restr + _Eipe ohn ogi te cal § eat un blo loge cae ete wat ca 0 ‘nas Tabu! mae vebul ie conorm ca arbi din srl ing in ae Instr deauibuie blow mast se consracs, 2 Ticare aur masa din nel WHERE atic 0 valor tui leet ‘Maio ce coespude cement din all mas care ae valate Poe. ‘Fist ature din Bocal ELSEWERE ste ovale fet cht al ‘anlouu ce erexpunde elenntli da table masch cae ote flse 4 Bloc ELSEWHERE ste optima dat el xe preset, mis fe nig Suute pnt elements ce Gorespund elemento bol ac car at valet fae + Tone instil de aire se etc vena cam aga in cos tren bleu! WHERE sin local ELSEWHERE ) Once aperatieintinset clement 5a ance element din expres eel our penn tment slots Exemplal2 FEAL, DIMENSION 20.20), © i WHERE (@.6T-0.)8 “L0G e) Masa spit argument al fnctei LOG pi LOG s exe dsr pense ‘aloe poate ale hi a Rev! evali opt se athe ssl lemons eu b pet cre masea are valoren TRUE, ‘Consractln WHERE ae sits: WHERE (xpr tal fic) 4 | xemplal 2X si¥ suntelouconerme es frma (10) REAL, DIMENSION (100) : X.Y WHERE (¥> 0.) ELSEWHERE Xo. Exempla —————— — Fan, 95 pemiemascc ns mal» Ran WHERE + coaroel WHERE, ars oni src! ELSCWMERE ye ceo one Tape ‘mict inp rl i tte dae lO consrce WHERE Pas Sootnewrice muni desnstctns ELSEWHERE muscu, lak od pur © Coosa WHERE secat element blo X ta vali element te oul ¥, dict elmentele a ¥ sunt pkive la vloea Ose deme bluse mail st sac REAL H(10.15, SORT_H(10.15) WHERE (H>0.) SORT SORTIH) ENOWRERE Rds patate sun eva dor pets lem H cre sunt psi. Exempla Programa unde iste wire ns WHERE, PROGRAM unde InMpuciT NONE REAL, DIMENSION(S, 7)::A.8.€, 0 INTEGERS LJ Dols s 904 1,7 BG. dety Cf 3}= MODULO +41) END 00 Nooo WHERE ¢>0.0) A=BIC D=sarn(c) ELSEWHERE perry G=00 Davo END WHERE PRINT "AA, PRINT “B:".8 PRINT! “0:6 PRINT? “0:*)D END PROGRAM unde.Tesrarjore ELSEWHERE wu bus fe masa acento aoa ls, constctile WHERE pt finbrict ua In ctl cu comin su expe, Insc st fle tate de accord Ace pus, Sn Feta 93 Toma general ‘Const WHERE exe: WHERE (exe mac!) [ext sobow mascots} [ELSEWHERE (csp mated?) {arbre tbl mance} --] [ ELSEWnERe [rites tablow mason] EA WHERE Alc ori abou mascot pst fo imine debit, soca WHERE sor 0 constucie WHERE” Execs aces consi WHERE se ie ‘stl, Prina dat se ealueas expr mised dn onstcia WHERE. Once Instrcune de atbuize ce ueesss dps WHERE se eset cy gst 6 ‘Gsuuchure WHERE ‘of exprimcd 1. One intinjme ee wesc ELSEWHERE se ecu cagi'com ar fo innate WHERE eu NOT ‘pr mused I. Duck ELSEWHERE specifi egy mane 3 case secu ca NOT pr-mued_1 AND. ep mused 2. 10.11 Instructlunea FORALL. Constructia FORALL Fortran 95 accept insiusiunes FORALL consis FORALL, Instrutianen FORALL asin FORALL (indice = ripe [ice = pe exer mas) instr orib triple eins te joo [pas | pes Sele ine Exoresn pa xe oppo dot ete om, values de {Ste 1-Ca inca indore sein ($109) Hct wipe ede spec ‘ide val, Expres oss pas pot come rer a rere sin aise Inde Ease expres int-an iplt ou eh fete reall evahan te ae expres dina up Valet varabier Indic devin sede la ‘erminea execu stant FORALL. Eipr mas ete 0 expres lon dep loge Dus expr mas st omis se pesepune ch are valores TRUE. la expe imised poe f cert indl in species len tsrachunen de abate rab vai pe cate ce secune de abl ete fe ele toni neil Expres res tiem pe Wo exe cai. Orie pacer fe ‘9 exormash bu fe pur ($1116) Focfile pu psf floste n expen seh sab pot fh apcate direct Into lsbuchne FORALL. Intro insane FORALL submit parm po i apeate dct ns pf plate inal proce Insrcjunea FORALL se eect uf. en Scare triplets even eile ps 9 8 apie etd vals pent eat ne Apel eee. 2 nsrucunlc de stir ert tse conbmlede dc pet coe ‘Spr_mated ae valorea TRUE. lttnes FORALL exc a cu ole ‘ores din isachunes de rare rf fost raat seca neil sg sb {fo moses, Vale otis ale ssr expe sot ao tite slemecihor se blo corespuntare. Nil else de eho! poate abt 6 valete tl ml dct singua da Valores Servi indice desi pedis temimaren exec stuchand FORALL. Aue tsounea FORALL a ple considera ca stucne de sirbire Wb cx cr gute co Exempla fn abla! A clemersle done sunt state 10 REAL, DIMENSION (50.50): Forai ein Alnet9 Fccar ature indivi, 1)1.0, (22)4.0 .. A6.SO}*1.0 pote fect de procs noice dine hiss (pe pote parle), Exemplal2 REAL, DIMENSION (an), FORALL (10s) Al) NEDO) bp = 1.0/8) Insrucines FORALL cleat invrsl fis element nepal al wou (tn sabe kemerilr crept se. stuchanes FORALL ‘ste echiaen cu nacunen WHERE (A= 00)8= 10/4 Exempla Dass sexes consin DO ou do rang 1 roceorl is cee fectuze Hct etic scsi in eine uma dup ata Si alr a Acasa este un smpecement evs pent epinnta eke Fe ‘un proceso rae In Forean 9 bac de a suse pate esr el FORALL (i= a. )= x)Seen Wile Wana sapenor al AGG Ay wanspase ans | ini Th sce caz abe indie se pot eecton oe doe 9 chiar sma Aine FORALL ui pars x pe cap e Consrutia FORALL are its [me] FORALL (iace = mp Lice = niple [expr mas} Exemplal 6 Constuja FORALL pote insude instruct sau construc WHERE: Fecareinstocunc a consi! WHERE one euesins eer ser corp forall FORALL (I= 1.N) ins confor!) WHERE (AU, :)==0) A END FORALL mich BOL) =1/ Al.) END FORALL Alc nme ee nate ales de programstor consti FORALL. Dac con src FORALL ate un mame, stant mame bu aa in trace ae Jpaoae END FORALL Ene nlc npr expe mada see see Fave cai istreiaea FORALL nr corp forall eesti bn Spa de Instruction! FORALL. Cort FORALL poste conic: nsuchun de nee Inst de atiuie poner, istrcjiunt WHERE, comtract, WHERE, aie ‘strc se onstucth FORALL Enecuin costed FORALL se execute scum ar exis insta FORALL multe cu sect expresc msc ic ase spesicat tiplet. ese ‘in seu in coral FORALL se exec in Sompet ned neg "execu uma strc din carpal FORALL Alc cue element mall at ete inlot ales indice ni dp! indies acest opr cementar nor hs lise abu save | Henao bespnetor al ft Amulet cle nil orp 10.12 Funetl de transformare care rede tablouri sins 7 ui nies eerste aps elemento de bau [a fence mai snp eet fant acs nt agmatine 8 real lar Pei tte acne neh cb exci i COUNT, re ‘Sparta dep lagen Exempla 4 Coosa FORALL | FORALL (18211, J224N-1) TA =All-H) FAQ) © AS) +A) ALLIMASK) 4.3) = Al) ‘eeumesei values TRUE. dot tote clmetl blll lp MASK a louse END FORALL "TRUE. sau doc MASK are mime oo afl ssomene sien FALSE. fs chivaln cv umstoale src deat abo ANY(MASK) N4,2N4)*AGNA, 1N2)* ANT IN) stmt brs TRUE, dt te ices ogi MASH we Shana ant eAeN Ne ioe TRUE pouch FALSE” dt nuh nit onset a MASK ch wan, 2unyeanitreans closer TRUE so oc MASK seins ‘cu acest inset’ Secare men nt a boul A devine ep se lor 4 element vei le sale apo relat se opi i alo fa Evie | ‘esc ce lot construc FORALL sera tel ‘COUNTIMASK) ‘eure alae reaps deft are rpescn auld let i bau Jogi MASK caren vloren TRUE. Exemplul 5 Consetite FORALL ptf inti FORALL (= 1N-1) MAXVALIARRAY) ‘eurmeai afore maint a clement Iai ARRAY, alos integ sau real. Duct FORALL [ARRAY ae msn vero, retrearhvalsres nepal Cea Mi hase de ‘All rosso. ENO FORALL 0 FORALL 199MINVAL(ARRAY) ‘etrmear valor sins clement ak ARRAY, alo ite st ra. 'ARRAY are mies er, rtures alr psa cee re soya He proces PRODUCTIARRAY) Fete produ elementlr Ii ARRAY, tbo no el sav comple. Da [ARRAY sre rine a retro vale ‘SUM (ARRAY) ‘etumeazl suna clmentelor fi ARRAY, wou ie, sel sau comples, Dt [ARRAY sre mare 0 eure valour Toate acest fi av un al doin agument oppor DIM care ee un er Ire. Dac DIM este pez, opera se ap latte sciunle erang 1c sr jin pe dimensonea OIM pot a rode caret bl Cu sang at mice ‘unfatecu bundle ae dines. Argel staal Conese hi DM Iepot un argument dey opr. Exempla 1 Dac se un alo ele orn (45,6) SUMNA.OIME2) ete tebloue orma (4,6) lamer ) valoaret SUM A), 3 septal? fs 8 E 3) suns Par blue defor (3.2) B FP BNE ese unde Tete TRUE. ar F exe FALSE. Pent (FF). pci acest remit. Pent OMS, ALLIMASK, Dies) este un blow cu forma 2) irl clement | ere ALLMASK(). Ai MASK(,) erent 2 stn! de alo, Can ot sence tbat UTP) per cre fein ALL di ez F- Cin 2, shea de alow ete od (GT.EsT) peta cave ncn ALL dt eal F Dact DIMS2, aver ALL(MASK. Dvit-2)l TF). Enc ace rea Pesta Die2,ALL(MASK DIN2) ete tm alow cu forma (al cia element | ee ALL(MASK(L:), Ais MASK (] Fepreamta 3 seni de bios. ind T=, sxiunes ee tao (7) pent cre fini ALL deta T- Cand i=, scm xt blo! (FF pet cae fa ALL reall F. Clad #3 secnea eve oll (FT) pon ear ano ALL ‘aircon ~-MINVAL(D OM=2) MASK = DLTO)= (8 Inca fietiloe ANY gi COUNT avers ANV(BNE-, OMe) = (7.7) Fugeile MAXVAL . MINVAL » PRODUCT. si SUM pot sven un ies gest opts, boul igle MASK. ast MASK’ ete even theo ait {Sst foma cu ARRAY. Opa se sles clementlrcrespunstsr slnetlr ea valere TRUE. MASK. MASK jst trol deal mash MAXVAL(D. MASK = D.GT MINVAL(D. MASK™= 0.670) =3 MINVAL(D, Dib, MASK'= DLTO)= (2, -§) 2, 2147493647 ) PRODUCT(D ) = S760 PRODUGT(D, MASK = 0.GT.0) = 576 PRopucro, (2,48) PRODUGTIO, DINe2,D.GT.O} (4.8, 22) SUM (OMASK=D.61.0)=24 SUMO.DIMes MASK =D GTO SUM(O.DIME2 MASK =D.GTO) 4) xs dou fing de wansfrmare ce efecuesednmalir « vestor matic: Flee fn ate dt argent care sunt ambele dep nate Cn, ‘eal, compen) stu ante dep lope. Reza sr tpl part de pst gunentle ‘DOT PRODUCT (VECTOR_A, VECTOR_8) tue ca sgumeat boar de ang useaq mine, Duck VECTOR_A ese dep Intex sa eal returenca SUM (VECTOR A'VECTOR-B ) Dal VECTOR A et ep ineg so el etmens SUM (CONJGIVECTOR.A 'VECTOR_B) Dock YECTOR"A ese de tip ogi, reumeazs ANY ( VECTOR_A AND. VECTOR 8). Fanci inseci SUM. sl ANY au ot prevent In S101, uni nia (CONG 3 Yat recent 63.xemplal OT_PROBUCTY (3.45), (1.2.89) =28 Dor pRoDUCT(y(1020),2030)7, 120108 080)9) mee ‘ DOT PRODUCT, / TRUE. FALSE.) TRUE. FALSE.) RUE. MATMUL(MATRIX_AMATRIX 8) ‘esueziinmuliea maior carl apunenilraunsce exis 3 ar 1) Taboo 2D MATRIX A are form (nm) tbo! 2D MATROX B ae fora (erty, Resto re for (nl) 9 cement) re valor SUM (MATADOR ("MATRIX Be 1) Tabloul 1D MATRDCA are form (lol 2 MATRIX ae fen (ona), Reza are forma (2) let sha) ae valores SUMATRA | MATROX BC: i) Tales! 20 MATRDCA are fora (ron) 9 blo 1D MATROX B we fxma (m). Reztal are feona (0) 3h clement sks) ae aloes SUMIMATRDC Af, 2) MATRIX B) Inexal or argument de up loos, fomele elt st asa azul de tip name iar valerie su detente pia nara “SURE "espe" in expel de ma seu "ANY" respect “AND™ st vector F= (2.051 @ 213). Aven vusraasxn( 487) (3349) MATIULEXE) MATMULIGY) 10.14 Funetide informare tablow Fish $ fant itis penn ntrmaeGniy faction) despre itt, fe ‘ma misimeasttutl de afore a ui tblow de evce tp. Denaro rene epnde numa de propel blo, a exe nove x vals bullae 196 ALLOCATEDIARRAY) ‘Stureactvaloren TRUE. atin sind tboul local ARRAY cst lost, ae ‘ume valores FALSE. Dack stan 6 ocr 2 I ARRAY ete weetin, ‘ell se ede Pent fansite uma dc abl exe lca aces tbe fe cat tn cals poner, euch se asc ou‘o Yat sete de wl suo ‘etree ilo ee consitera ch arent dos pale cu hd ms eae ‘nines LBUNO(ARRAY [.111) stun ind DIM et absent eens un alow deft nee de an ear conie lim de jos. Arne cid DIN. un slr nese pez cult seu cl Ines defi ce repent lima de jos tn dierstunee OIM. Arpumeetl ta Cerespuror a DIM apt om rg ary omonal, SSHAPE(SOURCE) feunea un tbl laee deft ce comin fra Ini SOURCE sau scala SOURCE. Daca SOURCE et sal rest ae rica soo. SIZE(ARRAY [011 ‘men un blu eg dete cae resis rime ablouai ARRAY. sau, Idee nung! dnersuns DWM dct sll iateg DIM ote pez ‘UBOUNDIARRAY [01 ) «st fete similar Is LSOUND, retuned ns inte superior 10.15 Func de manipulare side construire a tablourilor Exe 8 fui inne ce permis consis 8 manipula hou de [MERGE (TSOURCE, FSOURCE, MASK) lege 0 salou alma dunt valowes tei mig, Covi englease "ners? Inseam "sun, smb. Fania MERGE ene fun element TSOURCE te de ore tip, FSOURCE tet ub cca tp acca pre de ip (4 SOURCE. MASK tebue st fle de tip lapse Dac TSOURCE exe wear ti FFSOURCE ji MASK sunt scl Daca TSOURCE ee aon tcl FSOURCE 9 MASK. evi fie blur care sab asta forms cu TSOURCE. In cet SOURCE™ yi FSOURCE sont Inbuate iron singh tbo sub ctl Ta MASK.xe | Yalow hi MERGE( 00, 10,10) oe 0 ene $10 pent (ie? 524) fet fe Tsource source =| ask | p) Foounces(> § j).masca(E ff) 50 2) vem MERGE(SOURCE.FSOURCEMASK)=(5 9 2 Exemplal 2 Progmoliminar asses uizarea constrii WHERE y s funcitr nase! ALL, MERE: WATUC, PROGRAM inbinawe IMPLctT NONE REAL, DINENSION (5,2), PARAMETER : A= 5.0 REAL. DINENSION (2.5) PARAMETER 8 =30 REAL DINENSION (5 3)""C.0 WHERE (C= 0.0) | construe where C= maim A.8}+20/C END WHERE DSMERGE( MATH (A 8)+ 20,0, 0/00) PRINT ALL 6. PRINT. "CSc PRINT: "D-“/B END PROGRAM imoinare PACK (ARRAY, MASK [VECTOR] ) {sto ince de wranaermae ae, su contol ne sg, impacted un abou Snv-an ables de rang | ARRAY ctu blow de oe sp, MASK et ie ut teen Jogi onfom ca ARRAY. fe un salar VECTOR (oical) thu at acl {pg prumeta de pou ARRAY Sumi elements ses VEGTOR webte sd fe ef putin eal ct, uml de element sect, adc numa de demented [MASK ce au vlorea“ TRUE Daci MASK st un alr, VECTOR tebe a ‘el puja nari ds elament ale as ARRAY. Dass VECTOR exe absent, rela ste um blow de rang ce cease clemetele Ii ARRAY. corspneoue tlemenicor ca vlewea TRUE. din lol MASK in orins clement de abl, ‘Dass MASK exe un salar ou vnloarea TRUE Sut selec tote cette ARRAY. Duct VECTOR est present tral se marines calcu duck ‘lemenele pen care Pw ut lemense crept seh VECTOR 98 emplat2 1 5 sum alo neg PACKIMMASK=M GT 0)412.5.4) PAGKIMMASK=M.LT O}(2-) PACKIMMASK=MNE Q(1.22-4.5.4) PACKIMMASK= TRUE (147525) PACKIMM.GT OVECTOR-(7854.3.2.)=(125432.1) LUNPACKIVECTOR MASK FIELD) Despachstena un tag de ran nn alow, si contol ws mst, MASK ete {hithos pi VECTOR ‘ete un ublo de ang Ide enc tp. VECTOR tele SHAE dcasine cel pu? uode ote nual e lament ale fi MASK ce Slew TRUE. FIELD tebe oss acl ip paumers de ipsa VECTOR wi {eh 3 eo scaly, on abl de aces fom cu MASK. Reza exe ut tihlos cu acl ips parame de ip ca VECTOR a fama es MASK. Elemental ‘lol cecoaspunde element ca valores TRUE. at MASK, in orins ‘lementar de blo, ose sementl al ki VECTOR: tas ese element st ale cu clement corespuvitoue ae i FIELD dak FIELD ete un bou Stile cu FELD, ch FIELD exe un sale [Exemplal 517 sunt abou ies ee un blu gi erenenenocneo =a | 4[RESHAPE SOURCE SHAPE [PAD] LORDER)) Perit modifsres foe’ unl iba co psi prmutare indir, SOURCE ‘Seu tblou de once tip. acs tata! PAD ‘pete at PAD ap ine cm Intrmea i SOURCE ‘wcuie x fe mst mare sau opal c PRODUCT (SHAPE) SHAPE este ua tabosineg de ran Tu mrs consis poe mat ick Asit& SHAPE nu poste neu clement agave Taboal PAD (optional burt Sb pol 5 paraet dep at hs SOURCE. Taboal Integ ORDER options tebe bt Torna lt SHAPE, ar valor sees fe 0 perma th (12.0) unde ete meinen si SHAPE. Doct ORDER lnc et $c ORDER ar freon cu lars (12,0). ‘Recut se un abou ca form at SHAPE iu tl prame dept Iki SOURCE. lemeniee fcutaui, hte in ordnes permet ido ‘ORDER(T). ORDER(2)..ORDERn, sunt sleenle I SOURCE in ondice, ‘lemeatelor de tuba, uma, dick ete pce, de let se lt PAD in orice ‘ementlr de abou rma dict ee nsceae de cop ama ale hi PAD ‘rea clementslr Sabo Exempla 4 Taboal RESHAPE (SOURCE=1 2.45678), SHAPE = (aan) wm (h 22 Dac A ete abot el (1.5.25 3.5, blot B di atbuies ¥ = (SOURCE=(110(20,309.A) SHAPEX(32)) exe un alouce (10 18) skmenie | 20.25 (30 35 Exempla 6 RESHAPEW1 2.45.6) (2.4),(0.0) are valoses (i359) 2460) lar RESHAPE((1.23.45.6,(2.4, (2,1 ae vlorsa + ‘SPREAD(SOURCE,DIM,COPIES) Sipe wn abl rin iupre ue densa Rasp (npric) at mate epi al la SOURCE tn naga uneidnensi speci cum fo 9 cre (Seco ale ne nso pags rerun abou ear rangle te mal ‘au. Vere enlezre wo send isan "a spin" tna SOURCE fst fe oe tip, poste clr sau aba Rangel ls SOURCE bu et [te decit 7 Afgmental DIM eeu salar tes penta ere T= DIM nl, ude {serail ul SOURCE. NCOPIES ete un salar res, Renta exe boa ce le sul parame de tip tas SOURCE ic rng nl, une west tn SouRce. Can) Da SOURCE este un ssa, eu exe un tablow de ang 1c forma MAXINCOPIES 0, Cn i) Daed SOURCE este un blow cu fm (dd) Kora eat 8 (yoda MAX NCOPIES Odd) Dah SOURCE ts la, Scare clement al rez are vsiares elt cu a Ii SOURCE. Doct SOURCE est tio, clement result onc (r/o) ae vate SOURCE, ) [Exemplat 6 SOURCE cst wn scalar carter, SOURCE®Z. SPREADIZ. 1.8) etal caster (2,272), Bach B etal eg BV. 6) 67 8) 78 le 7 8) nuns SPREADIB.OIM=1,NCOPIES=3) ete tbo! ‘TRANSPOSE(WATRIX) tote waspns nut bow derang MATRIX exe un abl de rang 2 oie ip Rema ene an tblow de acl tp ati porate peu MATRIC te ‘Su th Su et PMA et SSCL, et sem? Ds A ( 5) nm tRanose We a456 (ps9) \ CSHIFT(ARRAY SHIFT [OIM) ffecuest 9 deste iolars pe o expresie blow de rang I, st fectanas ‘Elan cole pe te secu de rang | nga ve det Sate at ‘expres blow de tang? st mat mare. Elemente dels cpl se Sc Sit mutt fn cela capa a eu Diet set pot plate cu cnt ite sin cree ieee Tasioul ARRAY pte e re tp, SHIFT exe de tp Tneg $f ebue ste un sear dch ARRAY are rangle tee si seal sou un lou de tang 91 ofa dyer sdgunadey et) le reo! Objet cannot be created from eng ld code. cic fre ui ARRAY ‘Arganental IM opin rete en saat seg cavalcade TSDIMY =, Dock DIM Upset acum af peer vores 1. Rea ete un tbo cu forms Ini ARRAY 9 cave ateleg pi prumed pot ‘ARRAY. azul) Dack ARRAY ae rang 1 lemeatl lez este ARRAY(Y + MODULOWSHIFT-1SIZEARRAY)) Caml i) Deck ARRAY are ringl til mare deci 1, scmea (bs Suyavont) teria oe valoae ea ce CSHIFTARRAY (5 Sronont) 48h) ande sh este SHIT su SHIFT 6, Sra) Exempla Canal) Duct A=(/,2;3456) deplsrea cul Is tngn cu 2 poi este CCSHIET(A SHIFT=2)-(.4.5.61.2), ar depres circa l espa ch 2 ps fe CSHIETIASHIFT=2-8642'34) ‘Cau i Line wat abl derang 2? pt delat ce cea cnt sac, (iar Pet aot /2° $4], ann alos CSM, SET 1002) Ges ole i rales CSHIFT(,SHIFT=U/1 100,002) am -EOSHIFT/ARRAY. SHIFT , BOUNDARY] LOIM) oe faci enc ou OSHIFT, cx excep ha fasten o paar ens Solu create pin deplasare sunt sere vali de grant (Gouna soe) ‘gpmentl epg! BOUNDARY ‘ruse deat ip i parame tp GTARRAY. Duct ARRAY ae ngul | BOUNDARY tebe st ean saa fl ‘ede ie wn alow eu rangul nt ge forma (dst on) Petpet mao bell de moss ponte ome BOUNDARY fo estca cuss BOUNDARY sr preset cu valores sel eon Tips oi ARRAY | Valera BOUNDARY a = @o0D, eae FALSE. ec Ten bast Reza se pul parc tip aii ARRAY, Elem (5.9) al ea ARRAYS ,S,.-S 89. Sou 8s) Me See SHIFT sa SHIFTS 5 8ouySoun—8y) Sad se ndeplinest ingalaten LBOUND(ARRAY Dit) <4 hs UBOUNDIARRAY DIM) ID BOUNDARY stu BOUNDARY(6 $a) ae inepaltten use deplete xemplal Das Ai, 2.3.4.560, EOSHIFT(A SHI ‘ar EOSHIFT(A SHIFT=.2,50UNDARY=55)=/55 55,423. Lie nat abou de ang 2 pot dept cu acencanitt, lente {4 8c) rns por acl sn die, Das ee aol canter | DEF 704560007, ‘lore EOSHIFT(X SHIFT =-1,SOUNDARY="*"DIM=2) ete Far voas hi EOSHIETIX SHIFT ==, BOUNDARY =fae er: oni) ceyrernom. eto 10.18 Functide locate «tablourilor Exit dout fui de wantemate cae gsi ocile valor maxims ‘niin un alo ne saa MAXLOGIARRAY MASK) ‘kein Iocan primus elements! ublolsi ARRAY ce ae valores maxint rine elemeatle doit de MASK. Tubal ARRAY ese ues sau ral ‘raul MASK (opoal cul ede plese conform cu ARRAY Renal stun then te deft c rang I ines alc rang ‘ARRAY. Valorea faust et de ind psty lament ee valores ig (reinreclmentle li ARRAY corespncitare lematclor ey values TRUE ¢ "blot MASK. dacs cen et reze daca tne ie de ot deat le ARRAY ar. Dea exists mu mate lee cig valorem Sen ‘onset prin element mani odien clement de ao. Exempla 1257) scar nema Voloues lu: MAXLOCUS 5.55.2) oe (2) Dace 4 ete aon MINLOCIARRAY E:MASKI) ‘ete o fini eu acl tgumeni cg inca MAXLOG; c detent oc ‘mimuli clement al tour ARRAY ce ae valouce mining primus clemenite ence de MASK. Exemplal 2 MINLOC (7.545:20 ete (5) Bch 4 et blu dn exempl 1, MINCOCTAMASK=A. LE ae aloes (i) Fortran 95 vce presen is finsile MAXLOG vi MINLOG « wpa onal IM Llc inte MAXVAL yi MINVAL, MAXLOCIARRAY [.MASK]) «21 MAXLOCI[.MASK], ARRAY) MINLOG (ARRAY [MASK]) sau MINLOC [MASK]: ARRAY) ‘IM aie tease. Dask DIM ee pazet oper sea eon pane derang 1c esi pe meninca DIM pests psec ela on sou curungl ma miceu ute cu nia est rma 20 xemplats PROGRAM ecole IMPLICIT NONE INTEGER, PARAMETER « N=6 REAL. OIMENSION (WN) "2 INTEGER, DIMENSION(2) : Mx, iin INTEGER =, DATA (aU, JP4.N}iet, Np 8/000, 3455, 2099, 2307. sa7, 478, & “S454, 1245, 4476, 4590, 5200, 6582, & Te's0, 0843, 1738, 4756, 2667, 23.56, & 4000, 5167, 6325, 7648, 2629, 38.00, & 47.00, 5350, 4545, 51.00, 62.00, s8s0, & 48.34, 1950, 63.00, 7587, 9.67, 1267! Bilax= WAXLOC (2) i Abe tabiou ‘ain = MINcOe PRINT 4" Locitia valores kt Max * Max, Z(2Man(), 2Max2)) PRIN 4 Loctl valoarea ul Mi", 2Min Z(2NEn(, Zin) END PROGRAM locate renal alae programuli cootuce Locatia i vaioaraa a Max: 3 2 99.43 Looata sivaloorea ki Mins 6 § “a?cap. 1 PROCEDURL 111 Notiuni generate in pacica programas inthe fue do stung cae un grup den stun ce arin rte pn se una progr sate entice i a sen ‘ores frm Sele descent cl we Pte sina complet ps ‘sity aderat se varallorsexpeslr, empl Cale corenseor ennui mis al un ster de puncte rmaterae. Se dt-un sistem dem puncte matorle case mi coords 2st Copdontle cena de mas st dt dermal Sex Sms ts Es Pscudce una rogram de cel coordi entre mash, poten ce eee cle cu conor fe (69) ete marl Sm propram cerry de_masa Steger ih en parameter (n= 10) Fea 20) 40); 3) 52, 27, yom, 22m en 2a, x0), 20 end do Cet xem eed masa «0 Biete Sa 2) masa «mua * m6) enddo xeme-suimasa leu yom syeo fe lstn sy $y + mi) yO) ‘masa « masa tm) end do yore syimasa re Cael som sre mate 0 kein se82 4 fk) 2) ‘masae-masa + mk) endo om c= zin ho orca rezutatelar Obst el insuctisle ce aluere scvenfle AB, BC, CD seat four asmnoare th sestl specioa De pi dct in seeverin BC cen shale y = sx, j= 1 yer = xm, yx. biter seeventa AB. ath in seven {© fam ssi a= k= em Kom, 20x ohne sevens AB, Per ea progarstorl 58 eu para inl eu epic aor pcre, it fond, se rept, a ajoriats Hnbajelor de ogame spread looted rz a poeturlr © procedura este un desta czrs es ale ‘dite poganator in nme numele proeedar Nile pacer se pose ls Jn locate din program nears spare gpl spect eri a for re rescue apell prover ‘Dstngem do eli de prsedu Sabratin i funeik Un program poate f format din mt male ual de progeem units de program pws prograal principal so procedurs vo fant sao subratink Pensa exit ccc subi se flee neces subroutine s (a1 [22] ” nde 8 ete numele sabre ls de progr ar 1, a2, sum argument ‘dummy ale subrtine. Arguentle duane mal nabieargemene de defiae Sa argument tne (Osubrtiog tS asumente ar stratsubroutine § (21, 9223, 94, 98) con en \ acd ete fora dino isco subrtin, ce conic capa subrutin ‘smatl dev gop de isin ce sense coral sbratine ties end Doct a 38am grup de arguments, pressp cunt lve hares argumente de intrare. iar argument 82,26, 9, cree nate. se ame argument de tie Instat dn cop subatine arate se at srumeile de se pe ‘en angumeniie de atare. Ale spus, © subrutin este un fel de funce eneralizata ce defineste cum se pot ala argementsle de kine dich se cus Srgumenee de ntrare Tn compul srt’ webu texte x atin insrine retrn ce sic revenieaconolulituntates de ropa cea fei apll. Pea a ten 9 Shea Se se apelal sbratne in pone dn gst incre ete neve de Jrocenal de pelorare specifica! Je Sunk. Apel saint! se face ou emeine cals {(B11,62]—)] unde $ exe nme substi, fr bt, 2 sin argumentele acts (ea a ‘mews ale straint Argument acl se mut numese arguments de ac, ‘Arguments acuale webu st coc ea mums, arine tip ov arpomete ‘mm Insane el se execu ss apelne sopretunul argument ‘dmmy souls es rgmenee acts pon toc stbpoga ach {cull indruunleain subprogm lnoepnd cu poms ssactune exes seca contina ibs ce se gunge la © meucine rer ce asia evened fe tinier Ge progam cea cut aplal mreun cone sla conse ae aumento sole Exempla 2 Cu sjtrl wei abraine pat rorgnin progr cant din cxempll ata pean cn. Fogo, jk parameter (0 10): feal rom, yom, zom, masa eal xn, Yo), 20. Sine 80.20, ¥0.20 a em mcm) allem (ym, ym) allem (21m, zom) tee go ‘utrowtne on (ve) integer perametar (0 = 10) ttn): meds Pane rasa «masa +n) ema: tem sumasa return ond Cum etc acest progra frmat is dos nid progran? Progam Inept cece! net Case din opal eer oe ae ee conde Masa, ads c nace Se sie» tuier Me 2k late fees acm mom inn cy agente ay pla alle spuneror acti clei“ ea, le ‘lemenior bly clemencebloukh ls, apt alse {eli min progr! prc om devine some ae pone ‘bruins ncpnd cu mesae-0 pit To istachuen Tetum ewe onto ogra piel vlc sr xh sre asa eg ‘sein ite a scheme loge cape sbi! se eprint pin sinbll male Sutin rt se eyez tin sible! ema Tsecons cal re ‘napintas pedo ig) Fig Sinbotl proces reefs, Schema logit progr din exemple ara in Fig 1.2nap de poet ete nt. Fanci ete roca cae cau ng arn ee '8 ae ee aa strat limcten x sente capa ant uh ope aac ee Tees oped unctieis:instruetiunes end. ™ E ‘ons ecinyen mom raving I — enema 1 Fig1124 ib Sema loge progam in xemplu 2 soni Tnsuconeafunetion a sinaxa {9p 1 fnetion name af, 42). ) sande typ exe nul din caine integer, ra, logical su character, num te ‘ele incl ale de che pranstr, if, a2 samt argued dummy al ci. Conpl faci cooiesteuctncare rat cum se ain alae ac Ainsguentle dn. “Apel fel se face asl fn lou din progr in ere ete nevoie de ‘alors Tune de bis o exes se se manele fait wnat pare Ae segumentle ale err cae se dre valarenfupe Ia moment are {deer excel eines wn pel dente, contol tae a lpograa! face argumenledanary we ilosier Cele aaale ape exces sutprogamal fine cu pi si istuchune excuabis, Cin Tae itsroce return proceso nse contol a unica de progam et ‘etl imprest cu alors clei ont, Exempla 3 Programa dn exeapll 2 se poate rorinzs atom progr principal am progr fen art cat propram cont de_masa Steger parameter (n= 10) Fea x10, YO, 250, mn). masa 08 mx), 0.20 endo some contru(n. xn): yom © cant (m ym) 2om © cant (2,9) wits nem = xem: vw em = yem ‘wt em © Fem nd real urcton canta (, 13m) Integer paramos (n= 10) fet masa) we:oo ietn eu + mG): ‘masa «masa *m) \ ent ou mae ond Schema oie sexi progam etait in Fig. 13. T nooo | paar enn Fists Organizes procedurloe intrunprogrim. permite micjnes tex programa ees aap dps sce mioraen Grate be mp ci joes Postar apart a ernor de suse. Din punt de vedere propa Sroctunte procearie rez un loc eel descarga depicare ssa In module conetate loge. Despicaen ul rogram est eset eile programa, pee veer Pet document a lee Si et og compl Der to 8 posed oanumih secrets de instance ducts exe apelin oan © Sit a, 112 Proceduri Fortran Limbjl Forum accept amele fore derive de procedu, subg 5 ‘ani Oprocedura Fortran e deine coo secvent eta creyentos ‘un anit proces ompuaioel, Sevens de insu ae uh mame, mle procedur. nmele sabrina momee nei. ocsdrs Foran pt cri mba Fora, su tn anunit con links de prograre, de pid naj de ssl in eal Cs inl Ces tn desta exe progrumul procedura pou se aes Ne ee 9 ‘btn fe ca o fnce. Apo. uni refering de fence su, refer de subruti se pice Into inion Forean = program refer cone fumel rocedirit tune inde aplat roc se suspend theca pot al =o feu apell se excel procedure hd nent ened oe ‘Pinercuta progam ce» tape In Foran proctule pot fi procedart intrnsc, proceder extern, precede’ modu, procedari dummy ‘su fans insrctinl. Prvedie ios ‘es ut cance de procesrl Fara nt pie fn mod stoma erie ‘ain de program Proved iain ist precette Cape 1D $1045. Une procduri Forran se detigese ci avo unc ent) mune ‘ubproprame, Un sutpropam ca este out de sn sore (81) mune rogram extern si defnee 9 procedra extern, Un spree pou Jnglott isto unitate de progam muita mada, scare ca mune saprepram ‘modu define o procedura mada Ux sbpropra se poste einer, fe on program principal fe us moa fe ai scram exter ee a rogram inten deiner proceed intern. Susposramce ere ‘otf mbna pot comin ale subprograme In tod moral ahem alr se seen de maxima 20 nrc In cole ce urea vom fos otro resca:in fancie de content {ermenl mbradnd va inemoa fe proeedura stig (us anut proces comp ‘spoon ie sabprogramelsubruting sure eineteprcedarnsubralia. Anse, ‘ermenal uneven fe procedara func fe sabprogatal fence foes procedura func. Tere rating va nen fe anise 9 Sa Ines cu cteva ober despre procedure exteme. Proce extems ‘fn sbtine su Tne care Sut pe oe ae ait program, Prk Jotermedil nc lite de argumene + ir module stu amor bleu cmon, rover ener otavea coma cu ae nit de progr anu infra ay{desi ps) Prosedurileexeme se pot elibor,compila i flos a od Inepenaie de ste oss us de poram De fp ite nae neve ‘isc in Fann se pot fee, eek, iu amb 14.3 Subrutine, Instructiunile RETURN $i CALL, Je Foran un subprogram atin define 0 procera (RECURSIVE) SUBROUTINE yume de_sub wT te dene dn 1) [ parca de peice Ure ee ; NO(SUBROUTING | Time deb) ‘ct msde, ete mel sbi, deren ta de argumeate dum (deine) soe cement lie Ete in me de tpn xis umtouleregal esti Fg, DICE iru END temtine an ume de subnin aes edule oe ‘unde sub in stactisnes SUBROUTINE ‘+ Subrtin otent murebuiet comin arte wun subprogaritm. +, Liat heie SUBROUTINE tbc st fe event fn efanea END a ni srt re su mol 2, Datta se recuse, ass spelen pea ei dicts indie ‘vimehee RECURSIVE exe cbligtrt + _Aibutlesrgumentordammy pot fspcificte famed xpi in compl sub ‘ain ou pot delat npc Flerare agrees oval eat subrtnt de acess nmele sa buss int de mmc sre ae vant ioe «Atle INTENT s OPTIONAL pot spefiate pets argue dom le subrte. excei, tal INTENT on pote spin ent pols Sammy su pen rosa dary +7 Attbutle PUBLIC # PRIVATE apo specicate in suing. [Exemplal 1 Insretian’ SUBROUTINE: SUBROUTINE INT ‘SUBROUTINE Al) ‘SUBROUTINE LOC OMENS ) SUBROUTINE BETA nx y, gama, ut23 ) RECURSIVE SUBROUTINE stk) Paros de esc «sbi poste canine ineretivni RETURN. Sita insti RETURN se RETURN Insrimen RETURN termina execu unl proved (bi sa fe) sirsuneza tool aun de program pla Into sors ant Bes END ti pe nl ch ree RETUR ‘cds eect lina insane execu» poet amateur on ‘it se etl sugnea END yen revine austen de pram sets Inport in care a ict pe, ‘Apel el tities ose fice xo istractone CALL stu x insti ean defn deied assignees) cre paste in puncte in pote ‘ree nevoi de proce competitions eit de sara, Foran CALL ee CALL mum. des (a dere atte} Lon argument actual ss argument defer, eo expec svn mune de prose. Cuno vara xe un eae parla pees ofan Stl ose Aum tume de arabia Exist umiearel egy restr ‘+, Us argument cual wei fe mile uni proce interes us imine + Unarpumeat ata aca c 0 proces dummy thule fe uc spi pec Tne ita deaguneate sta ist de srgmente dummy exis o nurs oreo feat argument stl tebe se *pounvcse" x petal do Regulile generale de ptrsre w argumentelor(rgamen ching) st ‘+ tumirlssgumeneor actale tebe fe al cw amin menor Gummy. sac Pon te wom pn owe te nde‘ argument dunny dup penile crepanater di ste, poe ctr ‘dere de sting s rep pil arguments espe cu pil agen Simm, al die argument act respec des sre dus. + ise argues ctl o> eer dt tebe sab bel tere TRAC (i, reg, Kind) cu argument day curspansior Aces scan cag sentle crespuritor, actual duran, ebuie sh uh aly pace ‘ran Kind pert seas ip acl rang. Ulin sonic seamed 3) ack al di armen ete lr, atl ambele argument ctl deny tebe sd Besar) chun din argument xe alo, snl aml pune cl 9 hy eb ie abo ass mtr dimers+ Anumite sta specie de poie a argamenteor,apumente blo (cat ‘scion de abla, bur eu dimes asumate) argue pointer rgmeee ‘piel. gunn ertifeate pr caste, wtf pesca sce inst CALL face ne + Argument de ere sant expres eal 4 Argumencte de ner se saint ov argent Karmal coespacor, 4S SSecceut copulaubsine : Control revine lunes de program ce a feu ape (se care comine Hnsaucpnea CALL. Tacem presi efeitoare a soir arumetelor formal cycle de sr La cxecatin ne proces (ultima func ne ng deh ang ‘mentee fomule se stb o ace Buna I ace care exe vas {iar pe drat exces pocedut In Fig tt epost in duel 3 + ‘ay cial ata? {| aaa 2 SUBROUTINE mene (re doy. area. 2) Fig Aroieren dine agumentele dey 5 arumentleacule In Fig. 114 argumentete de urs am edt pin bone atuale deel ce tie pln ce repre tou iene vale eel dlr ote Arsumetledhmmy Team ret pin ote dammy-deseate lie punt {pears a suger boxe sole, Tt dt) Pe tmp exes proce boxe ‘fommy dein atte bolo atin ane cl provers ae aces a te Gin ‘ott cele rodoce east edt he poet cet te sent i a ne nein pare Al ey ve argunentl tile vrai oa me dead) se te {pet prin tern al sence, set a rece preg ses Aim memore a varabie. Argument damm pe cre same cal ese 9 ‘onstnt irls sa nant) sn exo compra Sse val se ce teste apa prin valnre (called by value) fn acest car proedin Pee “aloe pune army respect Ua eminres ecu proce Ponle ‘hmy = desi de onl stein gone, Br date fl can cee ne ‘Boxee ste rami cu conn exsen in acl moment jn aes fe se rash se ire pecdarttleunt de propa Cos et spel. Exempla 2” Progamul sovare siege moe rel ie tie qi eeetore. In sevens ce teins sorte, ape sabia ee 'SCHIME ex razed iescinbulvalolor oud vara Alls ce ia ein | REALS x1 32,93 READ! x1 32,33 | PRINTS," data x: PRINTS 22 PRINT” cae) ~ PROGRAW sara IMPLICIT NONE. | Soraroa numetlor 1 UF (e672) THEN ‘CALL Seri 3, x2) ENDIF TF er. x3) THEN ‘CALL ech (rt, 9) ENO IF (2.61.19) THEN ‘CALL senimo2,x3) ENDIF |) Tiearce numere PRINT," Numel in ering crescatoare sunt* PRINT? xt 92098 END PROGRAM sotare SUBROUTINE schimo(A, 6) IMPLICTT NONE. REAL A.B, TEMP TEMP =k Ae END SUBROUTINE sehim11.4 Funetit Func sue asemfestore sbi nate uve eos ons in seach ofineie exe apoio pina ita exese lore (9515) tea ‘presi low (10.7). Fun creer ovale, lars fei, rer Fanci care ete fol in exe Rell foi pte fut seal sti ‘abou Forma uc faci xem, ne sy let Lorefe] FUNCTION ume de fncte —m BC Lise eared })) [RESULT (me recta) [pares dempeccane| [pe rane } pare de siiprograne mere END [FUNCTION ‘mone sen] pra ne pe. pe RECURSIVE || RECURSIVE ] ee pe } Alsspee_ope ese pei dep. Special tip au ost presente $8.1 empl astucuss FUNCTION: FUNCTION 90) REAL FUNCTION atf(xy) COMPLEX FUNCTION ust, 22) RECURSWE FUNCTION gama) RESULT c) Exist ustarl egy etl ‘+ Tipal tunis se pete speci fin instrasnes FUNCTION, fe into Sane de ectrare ipl Does pul mete peiet nad expe, ssp ‘epee pon up. 811. 1 Dach recto) nce ete wn blo, pet mule rec fa Trbui ewe deraicu ata erepuotonre 40 Atle argunentelor dumay pot fi specie In od exp i par ‘ead specific sau po decote lich. Flere spent Samy et 6 ‘ari focal inte de ceca nee apumetlor ret seit de a te ale vara ots nce "Dac istuciaes END canine mane de fe, west ume taba 3 ‘ct a fst nstacpses FUNCTION. + tinct ms ctu cnjin pata uous nem, Forma nsrctantiEND pent of ttn punta ante modal END FUNCTION (mune. de fnce) Decl mu exist elsiza RESULT, mam de frie ete fost ca vai Fel te eerie de use un cine ivr face Dect ext churn RESULT. mame reat fle a ails 3 ame le fone maps lost en rarest In aes ca ate ernie [nue fice sunt eter de uni ade pla recursive Dae exit clues RESULT, nme de font tule spr in parca de pt ae 2° Duct reutl func oe un pins, vale sa webu sf complet eit inane de eiren exces fret Doct feral fant et a hoa ‘ote clametle safe ebulest He deft inside terme exces nt + Dactezitl fancies un bl, feroa ou bush ie determi Fine de cnet fic nto fancte nu este prmi pesto stile PRIVATE yi PUBLIC. au ogunenile dummy ale Tce se ot specs argumsnce INTENT i OPTIONAL cu exci haul INTENT no weal specif pet 9 Fo ‘urd dy su pens pot ay st In octane pacer flo casa RESULT. Ala nel fei se pot ein oc unitate de program prin refering defunct, cate deubee, eto pnd ato epee Foca une eerie de unt ee ‘nome de foc (te dear actuate }) sade argument actual ete { exprete| nme de grocer) rests pote rede oo Yara, dei argument acl pote f 0 ‘arnt. Se pasena see repal Seporvite ae mpunevile day 9 ee Detaic penr sabiine (113. "Theta proce fnew a 4+ se evautntagumentle actual ean expres Sexes pts do esete weg vine uate de pop ce a feat apetl (es cre coe ‘erin de ni) ar rez Tape (elses fn) ee fia epee enfin ree de func. Aceren owe agumntle ache pane ‘ny sfc a lc mca abatin Exempla 2 Fic poi imei oo adr asde arteSuma dit de fom s-Zerin ‘ repens hor ems succes a progress cae termen nia ex ‘ihm temeeal Bl ee a's ni oe eter Pon eahaees eS ‘cre procedua ance extend numa ropresie eae ete ape de programa Princ nat progres, PROGRAM progres PLICIT NONE, INTEGER™ ma REAL ar REAL progeesio READ asrimn PRINTS “nput data a” a PRINTS re PRINT?” m PRINT “nn PRINT "Suina este” progresio( ar.) END PROGRAM soars [REAL FUNCTION progres a, m,n) RESULT (uma) IMeLiciT NONE. INTEGER m,n REAL 3,° Dolema uma = uma + 1° FLOAT() ENO00. END FUNCTION progresie in programa principal apett ati exteeprograsia spare in expres in su deepest de sree PRINT PRINT, "Suma esto” progresio afm) Aci apll parame se fice prin efi Duc an dais aul dar suma prose peat M100, =900, 580, 120.2 pu sre un alt og ipa cre ap tamil ae pin aor PROGAAW progres tupuctt NENE REAL: progresio PRINT’ "Suma este” progresi( 80.0.2, 100, 300 ) END PROGRAM progres ‘ici ape apr in express ci ist de ire ns PRINT, se permis sb scien proce, func sad sibiingy ce pol lndetnesch rite aut specie) sd schinbe vale segunensar ni, mice val i mode) ss seep dt les se 8) efecuenae opi de ire. Despepoceae cate tneplies: Sejnle speciale meonate se se ch psi ete eolatrale tide eit) Ens uel eee esaterle interne Fran een de fame tee Seine valores unl vara = sparen a snares este ‘alors nt le refer de aie prover fini au suri a se itp ie spl enc Avet ii porn tpn progr dr pent samp» wa ‘Sti Evin nites prostuie fn sa srt ce pot ven eecte colar 115 Argumente tablour. Tablouri ew forma asumati Ate cfd un argument dummy ol une proc ete un ala, fom st ‘rte oii c forma tasoul acl earespunsater ht elena ‘ead ssmpla REAL, DIMENSION (10.20): CALL deta SUBROUTINE delta) REAL, DIMENSION (1020) :y fn programal_peicipl in saris dia louie x iy au fs detest svenacl tad 10m prin dines #2 ra dom emcee ‘al saat st dein ca rpument anand din cle dou dneastREAL, DIMENSION (1020): INTEGER ma 0 0 GALL dota (x, m,n) ‘SUBROUTINE deat. 1) INTEGER mn REAL OMENSION (mn): ack argument dimmy exe deft «bles su forma asm forme tll danny etn nr ort nd ce abou acta capnete In acest cz’ sciflnin de blow ete © Lt de apc de tiau a fom ‘Specfaia de abou cu frm asumat oes nite de oo it arate regal esti 4+ Rang biol ee egal eu nama de serine": "din specifi de tbo Lima de os este cen specifies de inde jos cn uss xe pez {rots ca eld Ete fs peg {Un tbls faems at pote en ail POINTER sau ALLOCA. TAB Exemplat2 REAL FUNCTION gama) REAL, DINENSION () REAL DIMENSION y(:,:) Ait st da tabour cu om aura, x blu 1D sy tbh 2; ita de os in eae dimesine clr dou bout exe empl 3 Dac defn y cau whl form sums exempll 1 devine REAL, DIMENSION (10,20): x CALL catate) SUBROUTINE detaly) REAL, DIMENSION (1) y Exempla SUBROUTINE beta(A, 8,¢) REAL N09, 8 8) REALC. DIMENSION (2) est ibouricufoma esumat: A, tabu 1D, ta cami de ose 2, tbl 2D, fa caren pein dimensne Vitae jos ee T's doa den sn ete 55, abou 3D. near intone dames jon et rose nem cl subprotanal ete apelt etna GALL bela (F, GI610, 38,0) Pe darts execu subtne bot epunetul dummy B este un table i Unite (1:5, 610) Lita de ors dimeshn dua estes pet ea Bsa font sect, ar lnia de ss es 10 pet charmer dpm ia fora i oumetl etal 1146 Argumente cuvinte-cheie orespondeo finde iste asumentle timy si ngvente ace ‘st portal ns dae foes argumenteewlntecee ct pos st sccm 6 Iisa aumento scl cre sm dpin de ones pions ‘Artumetel evi chi se fone a Namele argent dummy ete rferit ind un cavin-cheie, ist amaonte regal reve + Auetlecvine-chee Se pot fl pet tote argue ace le oc seb mori onie 1 Ducd in sta agunotlr sete exist argument ft cuvintce ag ‘ete cu covine chet, argues seit psfonal eu e niied ate ‘eile cuvintechei. In puna le ste cojine mguneate cite cee, ‘ies de serie» punt encod empl Pr nse ns srtn se SUBROUTINE gama( NX, A,B, ERR ) ‘Apt (CALL gama (eal, A=2, ERR=0.001, N=5)Foose otis de argument acta cu arguments cuit i asx ones de scree coolers. Programa pote spice intel im td ex oe eget ocil Webi te soca en armen dy napetal \ (CALL gama( MY, ERR=0.001, A= 0, Bea") lista de argmene acl conn © pins pate poritnall cu argues M, Yn fare Ince mecanisml te soceepostonal sh purty 2 dou, x ures vince, eae edie de sree isu iota 11.7 Atributul OPTIONAL. Instructiunes OPTIONAL Deseor se itinee programe In ie 0 proce cu mae agree ee pela tn mod rept bunk pare in agent se oes Su sp sah Tipe sun Suse eae ea uh ape sl cw do 100% Daramet aca stele ext up copie dea un ape al up de agumet acl est entice. Pet» cna nce el Srzumence caren tec de so opel es 3 aca eh a ae QPTONAL “(Ctimel "Cagle “optim. intra “opoat) Avia COPTONAL perme cio fea de pened mem cre mesercr ‘ete ce pom aes ait. Dac in apel net st un argument pecs poate fn pent seo sloareaefaitDe reg, Proce se Se eters sc ce eter proven runny OPTIONAL carta eure ‘Sn etenia dnt sumer peal ee pce su Tsuen posal onl Sgumen opal Se pete fee fons mac PRESENT Goa) av & ‘pect cr mente epeale nna gare nny ale wel poeta Declares izanels OPTIONAL te ps nse suo sttne Se Ace ‘pu cu tatacune OPTIONAL ‘Un jbl en ton de ile Spicy abut OPTIONAL ‘ype, OPTIONAL {dd ate Ale aie ce sat permite 6 puns cu OPTIONAL sunt DIMENSION, [EXTERNAL INTENT, POINTER, TARGET. Exempla 1 Toblouse 2D ree iy sit argent pn REAL, OPTIONAL, DIMENSION (10,10)::x.y Inseuetanes OPTIONAL acsn mm = q xis urauarcle rege restr ‘Atul OPTIONAL se ponte speiica doar ovr rpms dny + litstunes OPTIONAL pote si par eur fun nlgrogaoy ew comp inetd Exemple deze retool it die in 68 exc dog ” ‘ Atributul si instruetiunes INTENT {Covi engezse “nen eset “inte, Aiba INTENT spies ima Se slate unui argument nny, Ex 7 Tome. ale toca INTENTIIN), INTENTIOUT) sINTENTINOUD, tiene co Cte seen i Docs un argument dum te specifica INTENT(IN),c bu 8 ‘edt de repress, de aces ol mth sd apr in ee ng a te insu de bie sauna pote eran pa) cw oguet st al ‘oseGun cae edeneve. Dach ut argent deny eee cu INTENT {(OUM), antenatal corepunstr webu he val I acest cos I ‘nares in postu argue devine nent cc ast est oe nu ene forme. Duct un atgunent Sunny exe specifies cu INTENT (OU, argue neta corespncte ee i 9 vrai ee apn rumen a fe efit Se ce preesdrs, Intense poste dear, fe coo sition de detrei fe co ‘astactne INTENT ‘Un bon pent instrctanen de dclarare tpt ew jt INTENT ‘pe INTENT (sped inton) {its deat} vee ode are damn spee.de_benie este (IN| OUT | INOUT) Ate tite permis cu INTENT sunt DIMENSION, OPTIONAL, TARGET, Insracines INTENT tan INTENT sped intnle) (2) dear. dammy xi umatoucle eal retri ‘Atribul INTENT sept pci doo et agunentle mm + __iststiues INTENT poate spars dot parts de ops ub Progam sa na orp imei 1 Abul INTENT no ponte 58 pit penta u agumc uty cre fsteo pce dna ‘lute cin nena aguneotlr ese spit, rogramatry poe sb ‘esc sitet a gor unsbprogran in ecu cpp dee nsor amit cr Ma, cop in infin ‘Stil: dca nea de wie a Baca suet dummy ne tos acaba i) Coosa subpegamele func atl Init fst aguante day toa ‘Stl INTENT Exempla 1Usizare tbl INTENT 5 saul OPTIONAL in ste progam! progrese di exemple? $1 REAL FUNCTION progresie (a, m_opional,n) RESULT (uma) IMPLICIT NONE INTEGER’ im INTEGER, INTENTIN) 9 INTEGER. INTENT(IN), OPTIONAL: m_optional REAL INTENTIN) TF (PRESENT( optional) THEN ese - m=m_optonal ENDIF Bommn ‘uma = uma + +r* FLOAT) END DO END FUNCTION progres 11.9 Atributele instructunile EXTERNAL si INTRINSIC ‘Am sudt pin cum apse ue posed tn cae arpumele acti tea fi varie expres fa intl Forte post ca uel ste fecha rcs. Asean facate pene ca prove eal pa nee rece Doc o procelretem suo poceds dan re fe argent ata ‘nga siproran nle seks peda cb fe da dae abt EXTERNAL Covi engineer camden” acto prover nish bef Reargunet Ste, num procedu tebe i deviate ar abut INTRINSIC. Crd englrese "wn ‘ama inns Poet damny vor ude TL Insraciunes EXTERNAL a sats EXTERNAL liste nme 26 st umtoarl eg preset + Pcate me din fd mame wack un argumet dummy este pcitest ou sribtl EXTERNAL, spun oa Bac mtr (11-11) spies nrtual EXTERNAL pea tote poe Sue din Boel era uy except reed od Ttrctanes INTRINSIC af sens INTRINSIC fi Exists utotle egal restr 1 Fscate nme dn te me web emamel ne proce nis 4 Ineo aie oping un ume nape delat INTRUNSIG dec sing tebe fe mume de proce exes su Documenta fren unui compli rods de fi pose speifcn ele proce interne mpl fo cele Sundd. Aces procedrt au sat de Prove itiael s programle cael floes var pte st fe pole pe compute ‘Domenal de alailiate (pe) al unl cnt daar program ete sce pane sora nar state se Caton ete pn pate fol Upele pt ae nl pop cae conse domenial de vale eta s¢ ‘umes unt de vali (copie ans). Song nite vor fact tb ‘e115 ‘Cam mma inci ou sabi et avenu pms rue dean fot apr sucp de decorate 2 tpl ce comin ssl EXTERNAL # Intense, ‘Un jblon peta instruc de dele spa a atte EXTERNAL ‘ype EXTERNAL [, ce crib] de. mame fci Ae sb pernse ctrl EXTERNAL sunt OPTIONAL, PRIVATE yi Pusuic. ‘Un sblon penta insets de esate tpl cu site INTRINSIC ‘ype INTRINSIC td de arib Ae srt erie eu stbutl INTRINSIC sunt PRIVATE si PUBLI. ide med fine Snrises vempla #laegla etinia [rearepress geome aria mii ine =, seubs y=F00.0 ‘ends de evske aproximativa 2 ace ilegmle ee fanizah de meteda lrapectlor. Se inpane inert [2]. in" subiserle eae Je lngine (ba), pe care suiteral cba 5 aposmcas prin Ii des, ia valores sproximtna S, ainegnei se defines ce find suns rsa eslor tage: Sah A) fas 2h) + a+ nth) AD tevieterie evil] ecinsh evauo aprosinatv pin moda peso igre = for ax 4 cian ans cmc 2c inn elegant = : “eine Ipsec oe ge Aid woo fine FUNCT salut a ac nen = ROT Rere suc HONE InreGeR's EAC exicrowa.:FuNeT FEAL oper Fea aval PARAMETER ( 20, bet.) WRITE(, (Ay, ADVANGE = "NOY "a=" READ 9 ‘al= rapes (FUNCT, 8,0.) PRINT Valoarea naga! eso: val END PROGRAM nog REAL FUNCTION FUNCT(x) IMeLiCIT NONE. FREAL.INTENT(IN) FUNGT= ent END FUNCTION FUNCT REAL FUNCTION tapes (F, 2,5, n) IMPLICIT NONE. INTEGER INTENTAI) 0 INTEGER! REAL, INTENT(IN): 2.5 REAL! sume RLF ] ne @-)/FLOATIN) ora =08"( Fa) Fe) oorint sue = suna + Flas FLOATIO*h END 00 “ om tapes sh sara ERO FUNCTION vapez Func rapez ete ae ens val= tapes (FUNCT, a, 8,9) Argunentl de urs a,b st te de arbi, jac FUNCT ese munele ei fini exteme. Pett a comania compiled unc FUNEY ese tome de proved exe (o Frc) am sro astuctane eae dela ct FUNCT {earful EXTERNAL. In programa piglet RTEC. Ay, ADVANCE = NO} ‘n= get cam conse itd pe crab sr} tia "Now ratcing 10" pe can apare tox ap apre prompt ce, lees Tut mintodus de Is tsar be cee in ontinae pe so le 8 pe so, Etats (exe oral pen series consutt crce"n* ‘Cu programa INTEGRAL ae pass unsarl val aleineg =] val 0 Tesi “0 600 Too ~~“ ss 090 Ober cpt a evan integrase 0 presce de 0.01 ese neces 1950. Dac dom eal laren nelle ntl stem in od respnztor Tanja FUNCT 3138 pecs in PARAMETER wale lite de te ene Pea valores apoxiatin print perl inegre [Peostde Valores 1, pum fl programal pins cosinus ce alec funtia rapes: a»seprezintgeometic sa minnie inile x=, seus y=f¢2),0 ‘peo de evalae apovimativt + ace ilegmle ee fuvzat do metoda Uapeadlor. Se inpare inert [2], nn subintervale eae de lngine REALE hs (@a)/FLOATIO) Suma=05"( "Fib)) (bon, pe Bec sabia ut 8 aos pi in reper aon OO aa = ua + Fae LOATH)“ sroximan, a inert se deine c ed sua aor ele apne: ENO DO. eeemeoied paper eh sume 82. tas) otes2b kann £2] _ S20 [BP stash) ser 2h Aton) Me |___END FUNCTION tape _ vim eval aprosimatv pin mena tapes ge = for-pes Fanta apez exe api in nstctinen val= wapez FUNCT, a.) Argument de sr 8, suet sme devrait FUNCT ete mumele ne inti exter, Pei» comuniea compton manele FUNCT et on ue de procures fini) am sar strane cre dea ca PUNE ‘Me sit EXTERNAL. Tn program pnp instctue WRITE(. YAY. ADVANCE =-NO} “n= READ care ae aloe. eases 25. Incest eae fnsinde iterate 22-1 Cali itegrale epost rein cu pogran nla. ici woropranul ‘ence FUNCT evuczl sete fii inepand ‘PROGRAM egal IMPLICIT NONE. INTEGER REAL EXTERNAL » FUNCT used i connie un dl pe sean co str i “Now aivacng UO pe cm apart np ate pope dp aloes Ua nadie det sat oe ste conta pe se Te ee Ens A) ea rma pen tea costae sae he wy Cu progamal INTEGRAL se pss woul alo ale neg WRITEC, (Ay, ADVANCE = NO} "a: * ol vel val rapez (FUNCT, a,b, ) To, DsesonT | PRINTS Valoaee ntagai! este 50 | 0 END PROGRAM ing! 00 sees] 090 ——~|- “a ese REAL FUNCTION FUNCT(n) Iheuictt NONE. crm pots evan interact precise de 0401 exe secs a REAL, INTENT(N) =x 18> 80, Dol dorm evalua alors ane inept, cles esion Ie aad FUNCT = "wt orespunrtr fais FUNCT st preci in PARAMETER wile se dee, END FUNCTION FUNCT bare Per vue proximate eto tapezlor a integra REAL FUNCTION taper (F, 0.8.) IMLICrT NONE PPewnar INTEGER, INTENTIIN 0 INTEGER‘! 6,21 valores 1, putes flo programul praia coinus ce aplezh inti FEAL, INTENTIIN): 0 ‘rape _ REAL! sums ma~~ PROGRAM cosas IMPLICIT NONE REAL rapes REALS b val INTEGER 9 INTRINSIC Cos, a 2. ATAN() WRITE(, (AY, ADVANCE = NO )>9:* READ. 3 ‘al= rapes (COS, 2,0.) PRINT Valoarea opal ete, val END PROGRAM coanus Alc lapel fanctit rapes figuesei COS, suele fans intise COS ‘ore spare sin insoinen INTRINSIC. Ce progamul COSINUS se ene Smart ar ale gpa asia orresi0 —o.eosi79 09995794 [ior 11.10 Proceduri dummy © proceduet dummy et un arse duty cae ele mame de rose yi ‘ate, pul poser, ese felon ea nume de roedr Toconpa rsd ne ‘nce poate apart nnn lc tert nto instae, EXTERNAL su INTRINSIC, sn. ca nme de presen inrun eel de fant de ah ‘tin. Argues cal sca wedi fe manele me proce exe, ner my stu rd, Aso eu argument mls face inte, ks de ‘sumone, Argenta actuals! pocedua GumaWy corespunstoare bi HH pavens Procedure dummy pot aea stab! OPTIONAL, ins pt ven ait INTENT. Ee pot apa in sutprograme Tuc su subeut Arpomentl tat orespunatr pate Ses ln uh Cie ce Exempla Sed pols fa)=a2? shee L si seumentl [o,f]. Sabin TEST cxewew extemal #6120). Dick este se eset pe [af], se cacleard valle Fa) gi (p). i eae con, f(a) =1E30 i (8) ~-1E30. Programa prot teste dts api aed suutna TES 5 sre reat PROGRAN parabols IMPLICIT NONE. REAL «2.0.0 alfa, bot, extrom, (aft beta REAL, EXTERNAL FUN! WRITEC, (AT, ADVANCE ='NO’) "aes" READY 3ne WRITEC (Ay, ADVANCE. FREAD", ata ota CALL TESTiata, bet PRINT “extrem =o PRINT Mala) =" {aa PRINT beta) = bata END PROGRAM parabola "NO" aa, beta REAL FUNCTION FUNG, b, ex) INPLICIT NONE REAL, INTENTIIN): 9b, x FUNZa"x2 beat END FUNCTION FUN SUBROUTINE TEST(xt, x2, extrem, x1, 2.0.6, 6 FUN) IMPLICIT NONE EAL EXTERNAL : FUN REAL VAL. REAL INTENT(IN) sabe REAL INTENTIN) = x32 REAL, INTENT(OUT):eatvom, 4, x2 exter = -5/2"2) TP entem.GE #1 AND. extrem LE. x2) THEN xt = VAL (hex, FUN) 125 VAL (abiend! FUN} ELSE ia 2 ENDIE END SUBROUTINE TEST 1620 AERO[Pao SRa cess IMPLICIT NONE" REAL taper REAL‘ Bval INTEGER =» INTRINSIC Cos, o ba2*ATAN) WRITE(, (AY. ADVANCE = NO" )-9:* READ" 9 al= rapes (COS, 2,0.) PRINTS valosrea nepal este: val END PROGRAM cosinus Alin seal fnciei pex igueass COS, numele Fanci insist COS ‘ae spare sin instvar INTRINSIC. Cu programa COSINUS st ene ‘mrt alr ale gga — ToT 1: spr 0 Toni, 109 [so 11.10 Procedurt dummy © proceduet dummy etn arm uy cae ele mune de proce is ste folost ca nue de pacer In coral proeda tle pote st opr Inu-un boc iter, Intro tstacfure, EXTERNAL INTRINSIC ses aume de proce, iun spel de ane sd ak ‘sing. Auten acta ebue fe umeleunel paced ence, nee ] ung cu ps Fy tnutin cele na scan dpe spor 4 peut "iy muta diel el mat marede pe uportal pe supra C i) muti ese n= dar de pe spol Bye sparta asa i Ise Upnies cent de mute. Pai 9 epee iim Simple (ste vera de mren 8 n-ne pa pe reso pen rcelr eirsve ask nase neat om pal i) Proce recurs HANOI implemestes sce aor, Ea ese apelasde rogamal Turan Har, PROGRAM Turan Hanoi Inpuicit NONE. INTEGER sn WRITEC. (Ay. ADVANCE = NOY} "ns READ‘ CALL HANON (n 4,3) END PROGRAM Turur dn. Hana RECURSIVE SUBROUTINE HANOI 9,4.) IMPLICIT NONE. INTEGER n, A,B,C INTEGER, PARAMETER « be. Baabe-A-c IF (>t )CALLMANOI (n-1.4,8) PRINT Mutat isu,” do pe tia, “pe ist, © IF (Not JCAL HANOI (ns. B ENO SUBROUTINE HANO! Exempla? Cale fc cao sbring ecu “PROGRAM eet IMPLICIT NONE. ITEGER INTEGER « rezutat WRITE(” (A) ADVANCE #'NO} "n= READ" 3 (CALL factor rezutat) | PRINT on! =" ranuat CONTAINS, RECURSIVE SUBROUTINE factonal(n rezutat) IMPLICIT NONE" 2 INTEGER, INTENT) 6 INTEGER. INTENT(OUT) “rezutat IF (0.4.0) THEN | resulat = RETURN | else ‘GALL facta (vt razutat) fezultat =n resus | Ac ape doce de exempl 4 procedure focus fst organi es wn ‘sprog nein pets ene de avant une mrt expe 11.19 Tehnici de testare a programelor © a eam program fot sett, in mod natural se pune problems core Statin sl: Webi te asigram cel aden fis pe cle 0 der 9 sha Cea sini feich de ales» corecttudad propane ste semen {estar mod de verte pene coe, isa testes pin able rene eave sseive fn memo le mi prosan Exemplut 1 Scrsm in pewdoeod program dia exemplil 2 in $98. Progra ela tbeate fun y= +2 de valores aloes fina fou psu pes. Datel de inure sant ses dp insrcunen 6nd. Acct ‘ropan il exccvim minal istctioe ips insrine, In ceoass “Memo” ‘cn alone ieee ale varia tal teaser, clone “Outpt or ‘ena indepen writ. ach vat X wut lores 1 dg lnstuctinca x x + as alors devine 2 serge and 1) pie amen 2 ya Dac cut coespunde cu costs dest nines pram, ‘ener poral ot ericead a ps ‘Sun gem res\ Go wha xox 28 peas an a1 vite xox? pas aa onde 54 Tenca verificsek co tele tnsoare ese (eared mai ales penta rogrmters incnitor Tein est init fates In afrs de teh est co pogmetsore ma exist am de tex, semua estare experimental programe, lsc enero janelor contain urate: Digune de program exe ct fs es Inu it depograrars, de exer Foran Alepem ble tse se Bas "de propia i uncer cate span pe aie date dene Co Stele de ae respective se lech progumel pe congue. Tee ween Tefal elo de cor Example de tesare expects an dat expla Sin §119 94 imexemplal in $11 “ehmicy test experiment na in cle mi adie tei de ese 2 progameor hice ince. Popemele Perrin itatrs de sedi ‘req cate in docamentaia ior elected probleme test seu in {sed date era ele cones, Set de est drivers, programe de arenas ony veslvaren prblemele Probleme test eben fe estate pi lel tne runuste poste ia shea lope. Un program pct lsat de specie Se consi corect implementa pet computer, sau cum Sema pune val, shea dictate attr a lar blero, “Trchue st remain ‘ck tees expeimeras Uni program ou ee chivalnt ev dmonseala cect progam Inca ane tesa xperinentle orn aves inoieaua tdci asia orci, ete pos tere fra proleelr test mt exit cl putin 0 prob cy pea tet de date test mal exotic, programal ove fap a dea rete ‘ont Oe ini nun coecthudn oral ve Gpte crt i eel tet test exhaustive pen tate probleme nose eclvble tm pip ce Programa respect. Dar sil deere extn steps inp de ‘sere pict, np de scl af exten deme char penta probe sole Mat mt in pace lun peopel complexe ese neces ven un gad de ‘ecitaline fare eat Si fresupanem eaten in ora compen cn ‘progam (1 mare, decxenpls pee 100) Fe eben de corettone © nl uit de rogram: dato sas de probleme st 100 py st elas cost 6 100 - 10 p probleme relate ines. Ate pubtan Pe crete faegu program a _ acs p= 099 si mumint componeatler ee 100, P= 0.37, in cael a 200 ssi roarum P 70.18; Dacap=0.99 penn =300 ide progam ae $074. pera n= 100 P04, tr pene n= 1000, P= 0000S Rena Car (comprimd Nancie. dub) inlociee_tte ‘ance dase dn string cu using Han; eco coi lnc ‘spt da deat sting. Subatna comprima_ Bb ee flo de posal ‘word exenpil Exempla 8 Lioares ttuorcuvitlrdnan ext Program words pve tm sbsing uncut dc tra ack ex forma an rr sac Sinica su (ck exis) cel ce umnens dt Une eu) ete © He. {Computer consis un ditions pets ede died evnle figural cla, Insime de sees cuvintele se aelut subnce pute lane compra. PROGRAM words IMPLICIT NONE (CHARACTER (LEN = 100) INTEGER © ond of word READ "(A txt PRINTS “Input loa, eat Face blancursernsie de punctuate, conprima bancurla mutes asiura ca primal caractr este 9 tera ‘CALL punet lane (ext) CGAL Gompima 8b tex) text = ADJUST. en) | Tparecte toate cuvintle Fears cuvan ese mat exact oun bane PO. !pana ee sunt tparte toate cuvinele ve (LEN TRIM (es) == 0) EXT “end of word = INDEX (text **) 1 PRINTS teat end of wor) 1 Nulain considerate avant dea tipart text ton ond of word?) END D0. END PROGRAM words SUBROUTINE punct blanc (text) IMPLICIT NONE" CHARACTER (LEN « 9), INTENTNOUT) tox CHARACTER (LEN =) PARAMETER Mara-sau_tiane=& | SARCOEFGHLRLMNOPORSTUViDKYZabtethimonarstuuny2 INTEGER a tenis" eNDbO | END SUBROUTINE punct bine SUBROUTINE compima, B(x) | | coal blancurle cube cu except color dn eapatl din crea | IMPLICIT NONE (CHARACTER (LEN ="), INTENT(NOUT) text INTEGER "1 ) | = INDEX (TRIM (oa) *) | | IF (ise 0}ex toni) =tenies) | | eno’be END SUBROUTINE compa. bb Exec pogamuli cael dentate “onesct tpi fost bone)" eondace nu eu Inet et lnescu 8 pata fot olay Test foot Facem obervtis cl dup apa subratinclor punet_blane 5 comgrima_bb ‘ete pon ca pimul cara af singular ae Wane Apel nchel meieg ‘AJUSTL delice stings spe ting penta elimina neue din fa mlz a fra stagu ca ete un an pon fare poe Spa, Exempla 9 Cals ingame cine dint-an tex. Pen cst ft ness trim lt muri tl de ier ena nl al Se cv rogramul mad relict sesh PROGRAM Lec + a] | Caleueaza kngimea medie a cuvintsrintrun ox | | iweutetr None | 28(CHARACTER ( LEN = 200 = tet INTEGER incepu_ evant. start_ewant INTEGER conor cuvan, conto itera \ CHARACTER (LEN ="), PARAMETER : llabet {8 "ABCOEFGHLKLMNOPORSTUVIIXYZabedetghalmnoparshory ‘onto. 10" pana os nu ma sunt cunts incaput-cavnt = SCAN abe!) D kccovant= VERIFY (lox alebet) 1 IF (tara cuvant ==.) sfrs_cuvant= LEN (txt) onto ra» cantor Mra» sfret-cuvant onlor avant = cantor cuvant = 3 ‘ont ton stort cent 2") eNO DO. PRINT, “Lungimsa media a cvinilr est: ‘ {8 REAL(contor-ra)/ REAL foanoe avant) END [Eccuia progamul cu tex de stare “29a DODD cooee” conduct Ia Inputtent: ana ebb corer Ungene modie a ewiior este: 4000000 Dupe cit exal prograral cep ate priv npr eam in ung ext Blanca, vill ie caactre care ac ere st ire entre Inept nl euvln Apo Mle sunt namie pn es neg Sh carer ce mu este ltr, de exemple lane mau un sean de uns ae Senaleact Sil nus cust Act pa sin repeat pet fare cv in ‘ex. De fcc dit ind Indesie un euvant compute mdrete ante era Tungiea eval eortor_cuvant es act ee rece un tet mai un. ar putea muestra mice 2s sche, Mai mull cust sere Fora cre itesrs nami mai de ‘Gracie ale uml suing Dit scete ote, modcin ropaimal Lied sue Inc cites tel nie pase, Programa Led? tcororezh 9 ane de PROGRAM Lmed_2 Catealoaza lunges media a cantar trun txt ‘extul poate avea mal multe ns se termina cu ond of fe IMPLICIT NONE. (GHARAGTER (LEN = 200) text (CHARACTER (LEN =") PARANIETER : abet = ® | “ABCDEFGHUKLWNOPORS TUVWXYZabedetghilomeparstawny2" INTEGER conor cava, contor itera INTEGER incepulcwvani, sare covant INTEGER Ios. ‘onto cuvant "0 OPEN UNIT = 5, FILE =" meg 2a) Bo ‘pana co ny mai unit text READ (UNIT =1, FUT = "(J JOSTAT=108 )toxt, Tes 28 int oedali aaa N | me ase mn lement 134-00 ete senor de acces ‘Nt nme ie ee nance vet ble coin a mod eae ce scant PUBLIG) Pare decree somtee Issue USE wettest eno ncpunlui dxpopies met dh PROGRAM, SUBROUTINE, FUNCTION ser MODULE (85) One ie Fron pe flere nm emote ow cs ce saps seas then USE pe cae umole pate ono) Mosc haste he ee nc ret (tll A nts det lc 3 comin osc USE nt indrct (nol A sod medal 8 te model Bele 6 moti A ate modal A cond stucanes USES ie pou Sk Sonn stance USE A) om itu USE cco ft rname se aloe atic cnd erin + evi conlele de nme. Forma icp USE ce fst cs ONCE eres reatingem vib oust inranMece soe oo, veces tte ctie mos pe el Nea pee ee - ‘program Santer ubice i, fete, (ein ti Ascent exile plies pete dint-un mod ese al nF. 12, Accsarea inet + enti poate pia procedure modal ee sat ig 122-Everpl de ulzre a tacpoy USE ut dats in 9.1218 129 Aplicat. Module pentru date globale Modul pot constitu 6 mods atnatv la House COMMON pent ne incom date ent ete unt de program lefts fs sees ste ca argument Di reall ete smi ale Gus toe anes sele ‘fet pe ei ier. lsracunes COMMON (12) se besae peste 21stocate ($1.15 deine blocalsi COMMON specif 0 reiune de seule din ‘memo douse defile COMMON se refer I cea regi din mere, ‘ite proce pot azn acl date. Sel lau pop rors ‘eis ie dtinile COMMON din fertel roetur se pouvene rpraton pte foo instruc INCLUDE ($83) pen se aig peste a progam (Gone proved) ete acces dee» Hocas COMMON: Ns ent un Inecanin dee sigur. de caempl, co pune din memors dined {COMMON ste fst pei dae dip ines inte pacer x ee pel mech nia ea snap pubice private progran ere ctfolwese ‘moti ; procediet emit mod puilice 129 Aplicatil. Module pentru date glabale Module pt corti 0 mentalist a bocule COMMON pnt 8 Pune coman de pent eit wit de ogra ante pale) fps se {te ca arguments, Des teva ete sian cele do eed relied nag fer pec este nsraanen COMMON (31113) se haeneh pe aoceen pit Seat ($1115) defini Blois COMMON specifch orgie de elle it temore 5 evrece definite COMMON se refer I acest rege din memoti, Sierte poet pt sccsa sce dt. Seas I atalines opera co ‘enifie ded defile COMMON din dite proce se overs. Programa Poste los! insneunes INCLUDE (8.3) pease alan ese tn pros {Ga tote red) ete acces dene» locus COMMON. Ne sist nit sn means de» ne sigur de exemplacd © pene in memoria din bloat | COMMON st flit pon dt de inte. tr poeta ica dated ip fal procs ° ° Model, sre deoubire de instrctisns COMMON, permit pets comin a. note OSE (119, Gre ac tr te rogram ce fly un modal exe het aces penn cil ts ol Pee oe erl TRA) apn chapel oll ae reer so singul tae eee Str cont in od, ace cin omplat psn coils 8 ‘ec Exempla MODULE date REAL (20), 110.10) x,y INTEGER * conor =0 INTEGER, PARAMETER ordin COMPLEX" fr orn) END MODULE date J unitate de program care re eve de dtl globe in exempt (carbs rele fy, costs Inept tamu Orin, vara ag ere, {abou rele a9 #! ol compen) eben Re apcat modal date es 6 ‘sstactone USE: USE date Stans isrctnit USE pose o enum itt, ne permite st specific null ent care vr flo: USE date, ONLY : a,b. Unit de program ce conn ce insane re aces dar a lore 8,0, c.n mods date Tn tira varibieo lool pots para const de mune i seksi ‘ane sb fe floste pens vara aie dict pa de poram, Case ote conics 1) ent public din-an program x ai ala name cu uel ent loa in unitate de program cre ose 1 dou mods ce sunt lot po ave ena plies ca seca nme Coat ep ezola foo lion ONLY pea fiend remuie& santa USE serplal2 USE dat VECTOR =a, MATRICE => 5 Ale blouse as b aw fst rum; ele vor fh relrte ea VECTOR [MATRICE in untatea de progam ce fost ol ae aFxemphal MODULE verde INTEGER A, 8, ¢ \ END MODULE verde MODULE rosu USE verde, ONLY: AK => A, REALA. | END MODULE rosu PROGRAM albast USE verde USE rest Bx = END 1 programe bast varia inept A exe acto AK au A. varia inca Bene seca ov 8, val els Bete accra BX Vail © mu pte faces penn cd exis cont de une: mei car dnd ete von de ‘abs ngeags Cd nual roe sana eld ll oa ae oe ce ren eat mers rea ze ma i tn MODULE proizia Defines kindle corespunde une preci a mental 4e 10 cite si un exponent oa putin eps ou 30, INTEGER, PARAMETER :@= SELECTED_REAL_KIND(10.20) ENO MODULE prize MODULE achinbe > USE proczie } CONTAINS { SUBROUTINE ecimb (x.y) | FREAL (IND = q),INTENTONOUT) x y | REAL (KIND = q) temp | END SUBROUTINE schimb | [ENO MODULE sehimba | rena oot | Reena | Geena, | | REE so tog oea0 e | Beane FES on | Sean | (EB edSeaeotoi | ‘nfs de foron REAL (inn) emp ete un sl ing 12.10 Aplcati, incapsularea datelor sia proceduritor Incrun modul exe post st lacspslim (impachetin) date (nc spr Serve deft de az i posta Dace caste pos ne ea le nist de rogram prin ere USE Exempla Isp prceduir MODULE exp ] | PRIVATE schimb | face schimb dosrin intron aces moat | ONTANS. | | SUBROUTINE oxtno(cy) | puase pn defut | INTEGER INTENTINOUM) = I (ABS(X) < ABS) ) CALL sehnbicy) END SUBROUTINE one SUBROUTINE sono cy) INTEGER, INTENT(NOUT) x y | INTEGER ienp asy “lomp. | schimba xouy ENO SUBROUTINE echimo. END MODULE enamels PROGRAM main USE exemple | Decora sintiatzeaza x sy INTEGER x= 10,y=20 PRINT: 7 | GALL one oy) PRINT xy | END PROGRAM main ‘Exemplal 2 Fortin lnmultesta_Matios_cu_Vector pinata nian md poate flo In fice uate de rogram nar bul fa oie Iti c un vector N= 3 eat ocontants bul. MODULE Op. 1t-v INTEGER, PARANETER::N'= 3.1 © constant globala CONTAINS. | Umeaza defini proces masts FUNCTION inmultste-Mation Vector (4b) eau (c) Inpuicrt NONE REAL, DIMENSION (:,:),INTENT(N):: A REAL. DIMENSION (_), INTENT(IN):"b REAL DIMENSION Size (D))"e | INTEGER | N » BB Fcrow mae Hace a You cea ite Bex aeeSou nn —____] 26 | | L 1 Umple A sib eu valet arrara CALL random number) (CALL randem number) Cleueaza produsul mates"vector A'S = Inmutoste Matice_ov_Vector (A.B) PAINT. ‘Prods Wats Vector ele" END PROGRAM Mat Vee Exempla Se poste fs un lps a ncaa date dei ea rove defied evil MODULE earaz ‘TYPE punch REAL ony END TYPE punct CONTAINS. ‘SUBROUTINE seni, 52) TYPE (pune) INTENT{NOUT pt TYPE (pun), INTENTUINOUT) © p2 ENO SUBROUTINE sehimb END MODULE cates PROGRAM gre USE canez “TYPE (pun) punet_A, pune & Bunet_B = punet (50, 100) PRINTS, pune A=", punet A PRINT puneB =", pune ‘CALL schimoipanct A punel-9) PRINT “Apel subntina sen pune A B=" pune B END PROGRAM graModul catez conineo defaiepem tpl de date drat pune! ing schimb care merch alone apumeneler se de tip pune. Oe aie Drram (texte vers de program praca care come © iach USE Carer pte declare rae dep puna ol splresabncon Sh 12.41 Atributele sins ictlunile PUBLIC $i PRIVATE uu apel USE corepunetr prin dei steele dnt-an mod sae aces une! unit de program. teed ste de drt 8 ener ace nuit ents conten ral Aces se pose fae fiir oma de ‘nsracn (au aibte) PUBLIC sau PRIVATE bal PUBLIC dca lene dt-un md sit dsp awa ‘nol ea socee USE. Ati PRIVATE ite ase nor ners ‘a prin azoiere USE Forme se delarailor de tip ce contin arintels PUBLIC 9 PRIVATE ss fp,PUBLIC [lia de are 1 sd de ent fc PRIVATE iste J ede oh unde ip poate fi INTEGER, REAL, COMPLEX, CHARACTER, LOGICAL. lni-o Insvucue de declare apo slae stbute pein cv attuce PUBLIC 9 PRIVATE nit nian, ALLOCATABLE, DIMENSION, EXTERNAL, INTRIN SIC, PARAMETER, POINTER. TARGET, SAVE. Spcifesile PUBLIC. PRI ‘VATE pot sb spur i irc do tp drat (6123) pet seston secre ne defini de ti TYPE, PUBLIC. mime. tp TYPE, PRIVATE ! me. Exempla REAL, PUBLIC: TYPE, PRIVATE * a LOGICAL: ten REAL, DIMENSION (60): ENDTYPE ata (alt mead de a cntolsacstitsten varia, uni, defile de tips contuntlor mame ste ares scar PUBLIC 1 PRIVATE. In us insrcinle PUBLIC 51 PRIVATE pet cotrol scceittes nore fre posed uh pce na pot sh apart insu de declare pl (Gtheuie enriecr pectestor peer rope mae). Instone PUBLIC 5 PRIVATE 2 ora PUBLICA f=) tid acces J PRIVATE [ 21 Hd Mose | - ade cement seen dacs ph Spice gonerick O specitate generic poste ne una din Free OPERATOR (apron det ) ASSIGNEMENT (=) Exempla? PRIVATE alla beta | alas beta sunt name generics PUBLIC = deta, OPERATOR (epson), OPERATOR), ASSIGNEMENT (=) ‘ist urate regal resect 4+ PUBLIC 3 PRIVATE pts spr uma itn ml (5 mame. ase pote fo varbi © proce fp ders, 0 const ‘Is unt scoping» un ml ete permis doo sng insie PRIVATE sau PUBLIC tu ar om * Ino defied up deriv pate apt 0 istane PRIVATE (ne sio intone PUBLIC) cnenespune dese omponcile rt de nel ined ast acces fae ol +O procedure ate ut eninoe generic eae ese ple cate ces rin Meneseral abe gnu char dk nucle sho pic ee pt + "0 proce modal eae an argument privat st on eat Se asic peat tabu fe pet tpt cn eet nei cre spb, Exempla MODULE gama. IMPLICIT RONE PRIVATE schirbarea acces detour (daca nu 86 1 Speer altel tate entitle sunt private REAL, PUBLIC: a1 ate pic, REAL':b.e | bsicsunpriate PUBLIC" nt_a TYPE PUBLIC PRIVATE REAL ax ay. 22 END TYPE Inia “TYPE (sta) (10), 20) CONTAINS, lista tip pubic cu elomente privateSUBROUTINE int Kt pate SUBROUTINE int_b() private \ END MODULE gama empl + lcapsubresdatlr = procedrioe ‘MODULE wei D IMPLICTT NONE ‘TYPE coora 30 REAL 9,2 END TYPE ono 20 CONTAINS ‘TYPE (coord_SD) FUNCTION coord_int_3D (xy. 2) FEAL. INTENT(IN), OPTIONAL =x y-2 coord ing 3D = eaerd 8010.00, 00) TF ( PRESENT() coord nt 5D 5 «= x IF (PRESENT) } coord int 30 y= IF (PRESENT()} coord. 30 = 2 END FUNCTION coord 33 END MODULE te. USE eo IMPLICIT NONE: ‘TYPE (coord 30 ):punet, punet = goord_nt30( 10,20, 30) PRINT: "puns punt END PROGRAM Test30 | oan so | 12.12 Proceduel generice Un set de procedure nto’ similar nae specifiedifeie pot gra ue ate ie tial! nme generic. ltr ose spla procera co ‘mse generic. Compson vs exanion muni tip empl 9 neal Ietielr sue neopoal va Sse cae me poo pei vs apel ‘Se rede ch flosind tn pune get activates de peogramare devine oar pu ebule jin mite ume spe ue! poced etm unc pe ‘reo Indplnepe.Namce gece se duce pin Bl ier, stat Intra gener, care ae 0 INTERFACE { pecicate_gonris | ory suet [MGBULE PROCEDURE uct de_mme procdi) END INTERFACE unde specifica geercd ($1.1) pate + OPERATOR {operator sft) 2 ASSIGNEMENT (| Ae ttn doar arn cate specifica gon coming wn name generic. (Cleat dou cma rata 128 12 To ns coral mera be fe specict tate proved oi dat nue yee. Procedure specict po att pros exeme at pce Sa Incline ced extern procedure ena pin nee Spent ‘lovin iris Aces nsenm stin cinstlin un nue ene Yoo Procedrt exer este oblgtra si efi po nerf exc, el ae [Fecal spine uel pce sracsans MODULE PROCEDURE. Inaces ca fet tauren a thai defini Mules de procedur cont in i genera mune seal de supeincreare (oto se). Procedure din itera geneck tus oe Sacto subi. fn cal fan bp ele determin de ial inpumcstlr sa Se ipl rau. xempll INTERFACE cae "SUBROUTINE cleans) INTEGER, DIMENSION (: )INTENTINOUT) 8 ENO SUBROUTINE sear_ni SUBROUTINE waa eal) REAL, DIMENSION (*), INTENT(NOUT): 2 END SUBROUTINE cea rea ENDINTERFACE Procedure clear int clot real pot fapeltesb nunele genetic car. Ded sgumentul acl va f de Ope ae va spel lage ac ergs ctl va ip a va ae lar real. Sel de supricare ese format din (learn claar rea til: Solus cen mi convenabild 6 a apela procedrils cu name generice | eine este plain tras gure nt-an taal938floan © sare luse_— Jxemplal2 MopuLe INTERFACE dae interata generica \ MODULE PROCEDURE ch MODULE PROCEDURE cle END INTERFACE. Iclear CONTAINS SUBROUTINE clear ina) INTEGER, DIMENSION: INTENT(NOUT) 2 ENO SUBROUTINE cor_int SUBROUTINE clear rea) REAL, DIMENSION) INTENT(NOUT) 2 END SUBROUTINE clear ‘63 END MODULE magecin PROGRAM main IvPLicit NONE USE magazin REAL pratt (200), INTEGER contr (50) CALLCLEAR (peut) 1 ape gonec GALLGLEAR (const) apel gonese END PROGRAM main Exempla fasted de cutee coments defini otras ones MODULE re0 IMPLICIT NONE: TYPE coord. 20 PRIVATE REAL ey. 2 END'TYPE coord 20 INTERFACE tr MODULE PROCEDURE pnt_coord_30 END INTERFACE CONTAINS, SUBROUTINE print coord 30 (coors) TYPE (coord 30), INTENTUNOUT): coord spc RN fae comment PRIVATE a nese dept 10. PRINTS, coord % x, coord ey, coord ez 1 END SUBROUTINE pit coord 20 | ‘TYPE (coord 30) FUNCTION coordi 30 (xy.2) | REAL INTENTIIN), OPTIONAL’ 3,2 pond nt 80 = cased 30(00,0.0.00) | IF PRESENT (x) coornt. 30 % x=» | TE (PRESENT (coordi 30 ey = i Ie (PRESENT (2) coordi 30 %2 = | ENO FUNCTION coord. 30. END MODULE tre. PROGRAM main_ 30 USE weld | TYPE (esor_30) punt availa punet cu valour coordnt_30 (1.0, 20, 3.0) de ip coord 20 {2 gomponete priate pote se pl mama flo inva ene pa oe ‘eles procedus pan coord 30 12,13 Definrea si supraincdrearea operatoritor Cast deste fete operator supa or dt in pci ate dtp dvi, sitar pot sb defieasch operat ets sb enn Peon aoe ae {aul operator exten aetna). Petra defi operator pou sae a sprites n operate exist ‘oloseeun blo inert operator eer INTERFACE OPERATOR (oprtor cent} Teor merino) [MODULE PROCEDURE fais de me procedin!) END INTERFACE Ait operator. fit pte fi ir} [erate ine srt ain bel 5.1 (9514). Opetai eit de om "TRUE, sa FALSE. sun erm pet ar conf eu conan ogee In ere corp dna webue 3b fe fui cd argent see 2 tngunente. Taps care nue di Unt e Figura te asus MODOLE=H PROCEDURE iebule steal uneifnci cu 1 sau 2 apunete Tate ace tgunenteebuie fe neoponle 8 ab ttl INTENTN, Tiers oper defines ose de pacer gence I enone deft Stil: Soltis cex mai consenbilt dea uta epertori defini saw ening de] | ie ilar et asim iter nan mods Tolsin o instarune USE. Esme nmol sen ints amc ep ant trocdior et) sp aes oper ip (= EO. cach. pita nota opal pe ao ure THK ai aaa Sarum fond operat gee. Madi hrm Ges Huse ‘Sti oper ee“ pen oper evans de i lve [MODULE armaicaintraiior TYPE iter | REAL 1 ita stanga a ioral REAL | ma deapla a teal END TYPE toter INTERFACE OPERATOR (+) MODULE PROCEDURE tduna intra | ENDINTERFACE CONTAINS FUNCTION aduna interval (pimul, aldol ) TYPE (rier aauna orale TYPE (ter), INTENT(IN): primal al dota ‘dung_nervale= intr (ru ba al doa % a, « primal seb» al dea % 6) [END FUNCTION atta erate END MODULE artmatea intoraelor * PROGRAM iterat USE anteater TYPE (inter) TPE inter) TPE inter }2 PRINT Cx%6a.t, ck oy PRINTS Cy Sa". y%BOT PRINT, Suma iterator MM pwat seb ey (ERO PROGRAM anal Exempla 2 Mola i propramal de ms jos hts defini tien ‘peal 28uche, operate care pte fe bina a uae f MODULE op asics — | INTERFACE OPERATOR {rosuhe.) | | MODULE PROCEDURE taste, rasucie | | ENDINTERFACE onramns | FUNCTION asvor IWTEGER osucre | INTEGER, INTENTON) 1 ENO FUNCTION 1 rasucre FUNCTION Icrasute (1) INTEGER irene INTEGER TENN), iwasuere= =) END FUNCTION i rasucire | ENO MODULE op Yasue PROGRAM rasuct i USE op rasucie | PRINT 2" resus 6 | rasuate. 8, | ‘suite. (2 rasuere 5) rasuere 2 rasucra § | END PROGRAM suc 8 a & sect aest progam padi tru 50, 64-100 20 Exomplal ne ant cum precoder inflrcach reelinle rabucke. ( 2 rasuote. © ), suc. 2 rasuere 6, Pusetesele midied endings de xsowe, "ps paneer opera Se ence a tng sepa Exempla Ftc oso 0 face ote casera xo ope def st. se lfc OP cere fancponnes cope pa INTERFACE OPERATOR (patat FUNCTION OP (x) ‘OPexssEND FUNCTION oP END INTERFACE une OP cu ineraa operators eae ape en fam opr PRINT, A+ patra 8 fe flsind mumele cic PRINTS, A+0P(B) 12.14 Atribuiei definite de utitzator Este psi "space sib desire“, dep exten ‘pein de atures apa datlr dep deat. Penta ee nove de boc interfats de atibire sees ome INTERFACE ASSIGNEMENT (=) Teor meres [MODULE PROCEDURE taut de mime procadt | END INTERFACE care coming uebuie eaeta penn subi exten 2 re mene Feare mune de procedus model ins inaction MODULE PRO. (GEDURE wetae si He nxn 4 unc sting snl sets ce 2argumene ice sri speci convert var unl date ce ae un ptt TR sd ‘Cu uk pater TRK. Prin argumee be ab abl INTENT(OUT) Su INTENTINOUT: aces rpresn oti alc conerte Al olen wget treba at hats INTENTYN) yf repecits kena alr tebe fe Inert de bie specific in acl apelin’ sige pute st sevem’lsruciane de ahi atures defi de wlater, de rma orlhta= exes. unde varia tebe fe peal gent stalin pl sabi iar exes totus fe al doles argument din spell subtillaaet el snboll Ge tate =" devine saint. expended de exempl, shires ine dt de tip dr fe psy soll de abibute devise sm mame genes pet ut se de mbaine “Arbica Stn eh i ses rez nse speci se ce tseamo Insp egalr por term] TRK. dt cul stator ‘rue. Vira acesor regu ext deer de complaor ¢ slate roa Menon abrtnel in inet deste ott eaple nmndobget to syne CALL 06 ‘Stil: Sotuia eu msi convenabila de a utiliza stiri definite de wai | | est pani mrt dari tran mols oom oars USE, Exempla 1. Mu crtezian ese folstioentiate de pogrn pent stile trate rele varial de ip dena (Seip pst. varie coo ‘sp fatten elem mat componente = ariel dee 8 MODULE cartexan TYPE punct. REAL Ky END TYPE punct INTERFACE ASSIGNMENT ( MODULE PROCEDURE punct_max END INTERFACE CONTAINS. SUBROUTINE punct mas (9, pet) REAL. INTENT(OUT) 3 ‘TYPE (pune, INTENT(IN ): pet S=MAK (pet So petSey) ENO SUBROUTINE punct-max END MODULE caterian PROGRAM spot USE coneslan TPE (panel): REAL cxore ford PRINT cor = coord ERD PROGRAM wt et eon rogram tt pat cond eal cord = 7.500000 Exempla 2 Atsbuirsdilc biel wor dtd tip ital vice versa poste defi chin lee comin ule interval in roa i MODULE arieta_mievallor ‘TYPE eral REAL sanga,deapta | ENDTVPE intovar INTERFACE OPERATOR () MODULE PROCEDURE ada InterEND INTERFACE INTERFACE ASSIGNMENT( MODULE PROCEDURE real sin_Intval, eal dn ral ENO INTERFACE CONTAINS, FUNCTION aduna_intrale a,b) "TYPE (interval) = aduna_rsiale ‘TYPE terval), INTENTn) a,b una tealeslanga = asianga + bXstanga ‘dn terval.) REAL INTENT(ou) {TVPE\itorva, INTENTYn) = a (sietanga + bSedraagtn)2 END SUBROUTINE veal. ntl SUBROUTINE intewal_dn-foala.) ‘TYPE{ilenva) INTENT(outy: 2 REAL, INTENTIn) = © seetanga =b streapia = b END/SUBROUTING interval in rest END WODULE animate PROGRAM tt tt USE sntmetea-teraleor IMPLICIT NONE TYPE (etorallx.y REAL ar Ksiniena(5,5.) yeos PRINTS este de tip ntenva: atrbuire ov un conatuctr’ PRINTS oo PPRINT?"0.5 dep real se tuto y de PRINT?"y sy PRINT" ar ea atbuitintarvalu x (eprezina media PRINT?" ar' ar __END PROGRAM ot at [empla S[n modell vectors deine tipl div vector opera ce fi efecante cu eesti. Programe! fest voce ssreaes fini de tra 3 as MODULE vector Scop Defineste un tp deriva de date num vec si operatila ‘are pot eecuate cu aces ti, Modul detinest 8 operat ce pot afectuate cu vector Operator ocr din tabioy ral 2 Convers vectra tabi real : ‘Adunarea vetorior SScaderes vectorlor Inmuliea unl vector cuun scalar (eau) Imparira unu vocte aun sale (2 saz) Proaus sealer Produs vetora 4 Modul contne 12 procedun penta a iplementa sceste para {ablu_in_vactor, vector ia tblo, adurare veces stadere vector, veclor_or-real eal-on wedlor ‘vector ten, ited or_vecon vate dive. rea vectors, neg, proaus scalar pods, veGora IMPLICIT NONE: | Decarareaoperatotlrintertata INTERFACE ASSIGNMENT (=) MODULE PROCEDURE tation. vector MODULE PROCEDURE vector MLlabiou END INTERFACE LoINTERFACE OPERATOR) — 4 MODULE PROCEDURE adunare weston ENDINTEREACE \ | | INTERFACE OPERATOR () MODULE PROCEDURE scadare_ vector END INTERFACE INTERFACE OPERATOR (*) MODULE PROCEDURE vector or reat | MODULE PROCEDURE teal or vector | MODULE PROCEDURE vector on tes | MODULE PROCEDURE inreg-ont_vactor MODULE PROCEDURE produs vectorial | END INTERFACE INTERFACE OPERATOR () MODULE PROCEDURE vector aide tes! | MODULE PROCEDURE vector-evide_ies END INTERFACE INTERFACE OPERATOR (PUNCT.) MODULE PROCEDURE produ scar |, ENOINTEREACE | definite functor cao reazeaza implemertarea | CONTAINS | SUBROUTINE tabu in vector (enuta_vector, table) TYPE (vector INTENTIOUTT)"rozltat vector REAL, DIMENSION(S),INTENTIIN) tables | reaultavoctrx™ about) | Fezultavectosy = abou12) | Feauta-vectos2 = abou) ENO SUBROUTINE tatlou investor SUBROUTINE vector in tblowrzulat tblou, ve) REAL, DIMENSION) INTENT(QUT) recta falou TYPE (vector, INTENTIIN} vont rezutat 101) = vee be Fez tabiout2) Tez abou) = vee Tz END SUBROUTINE veto ntabiou FUNCTION adunare_vectonivec_1, vec_2) TYPE (ecto » dune. vector ‘TYPE (vecor,INTENT(N) = vee_1, voe_2 _adunare-vectortoe = veo 4x veo 25 ‘Sdunare_voconicy = es 16y + voe_23y weciorz = veo + veE_2me END FUNCTION adunaraveeon FUNCTION scadere_vocten(vee_, vee_2) TYRE (vero) stasere vector ‘TYPE (vector INTENT(N) = vee_1,voe_2 cadre voctanx = vee ok vee Dk Stadere_vectry = voc_Tiey vec 2y Scare veclota = vae_1¥0vee_2E END FUNGTION seadere-vovon FUNCTION vector or reallvec_.ral_2) TYPE (vec) edt oro TYPE (ctor) INTENTIIN) vee 1 REAL, INTENTIIN): roa)? vector fealsx= vee 3x" real 2 eclr or realy = vee taey* eal oct or tea = voc_T¥2 teal? ENDO FUNCTION vector or rea FUNCTION ral_on_vector‘eal 1, vee_2) “TYPE (woo) reo valor REAL, INTENT(N) “veal TYPE (vector INTENTIIN) vee 2 eal ot vectra ral tee Ze real on_vactortey = real 1 vee. 2%y Foal on-vecloree = reat "ye one END FUNGTION real of veeor FUNCTION vector of inreg(ee_1, int 2) TYPE (vector) vedtor og ‘TYPE (ctr), INTENTIIN]: vee 4 INTEGER, INTENTIIN}“in-2 vector of intep'Gx= vac Tox * REALpres sori a Vcore = vee_Tity REAL 2) ‘vector orL_nregtke = vee_1%2 "REALM 2) END FUNCTION vector intag FUNCTION intep_ov_ vector, vee_2) "TYPE (vector neg. on vecer INTEGER, INTENT(N) nt? “TYPE (vector, INTENTIN) vee. 2 ‘hives on-vecorox = REAL (of) 6.2% Siveg_onvecoray = REAL(init) vee 26y ‘ves or vectorz = REAL(n1) “vee 2 END FUNCTION integ_o vector FUNCTION vector ivi, realvec 1, real 2) TYPE (vector) vector dice rea ‘TYPE (vector INTENT(N) REAL INTENT(IN): Teal 2 ecto avde feaex = voe_1%6/ real 2 ‘eclr_svide_feaey= voc 1%y real 2 oclr_ aide rea = voc_182 real? [END FUNCTION vector aide real FUNCTION vector. svidenragivoe_1, in 2) “TYPE (vector) vector aide neg ‘TYPE (vector INTENT(N) vor INTEGER, INTENTAN) 2 voctr-dvide inregiox= vod be REAL 2) ‘ecto dide-Integiey = voe_toby/ REAL(M2) \eclordvde-nivogi = woo 1kz/ REAL(mt_2) [END FUNCTION vector dice tog FUNCTION produs.salarves_1, woe_2) REAL: progus scalar TYPE (vector INTENTIN) vac 1, voe_2 produ seal» vee. u've 2x + vee 1%y'vee_2y as See aren. 22 'END FUNCTION produs_sealar TYPE (vector aa ieee a ‘Bs vectra ve Prods veconla = vac _tgr vee?) -woo_Iyvee_ ek END FUNCTION podus vedona 7 W000 | END MODULE vec | PROGRAM test_vector |! Scop | "TeSieaza dtl, operate si atti ascite 1 cute date vecor | es Secs | sta de variate: 1 censor {ablou_out "abou output ‘TYPE Woetor) " : oe, vee 2 Teton tes Test abuir: se arule un tablou vec se atbula |pne tithes (OPEN (UNIT, FILE = "Vector da) | weeteona an tabiuout= vest N=TATA 362), 9¢02)* ‘WRITE (11%)' Test abba “yeert tee t ‘ " tablou_out =" tablow_out ® fh | essa sci |) weet =¢ 10,20, 20.1) Bay t3 3 | BEUAIASF2 /haraa/A.se62/A 2602p ‘heivee_ ox - vee foes Phe WRITE (1,2) "test adunae al acaders ‘ FUNCTION proses. vecorivec_1, vc_2) yee ee 4 | podus vector P) ees eee ® | TYPE (veto), INTENTIN}voe_1, voe.2 &vect + vee 200.1 + 06.2, ‘ oc Wyrvse_Daz-ver Wr'ver 2Hy at | yaet wee me twee fae asi "Testinmutre cu un salar 1.2.3.0 aA srash | wa ww) Teiut cu ser "Tectimpartie la un sear 10, 20, 30.1) VAIASFO3/A3F02/4, 9F02) WRITE (1.6) "Testimparire la un scalar: vent & tet 5.2 & vets | Test produsscatar 1 woe 1=(/1.,2,3.9 eyii2.3) = "VA/A3B2/ 49°82 1A, 360.27 | WRENS) "Tn a lr vee eh "Test produs vectorial vee $8 tt 4.) wee steht VAIASFE2)A302/ A, 9F02" WRITE (16) " Test produ vetona WAJASFA2/83°02/0,2F02/0, 2°02) ‘yee! PUNCT. vee_2 'yee.1 PUNCT. voc_2 f 8 a Fortran 95 permite c orice specicaje generic dino isrogiune INTER. FACE seep in irs END INTERFACE. Exempla Species generis exe wn ue generic INTERFACE cle END INTERFACE clear Exempla Specie genet pent peat dein de itr INTERFACE OPERATOR () END INTERFACE OPERATOR () Exempla Spice gene pet sie fn de usr INTERFACE OPERATOR (+) __END INTERFACE OPERATOR ()CAP. 13 TABLOURI ALOCABILE. OBIECTE AUTOMATE, POINTERI 13.4 Generaliag \ Pind acum toate varias ye cre leu flit a fos variable sate, Pe toatl darata execute progrmuly vari tach cup 2nd ft despa ‘nmin. Mifnen zoe fae se specified stun ind variable dels De in cal creo vars ewe un abl, ee rae ca ec de lou sb Specice mares main ce ar puta sist fo once eecte 9 prosamul ‘Acasa fie ea an cal parted, in od fee, proramul sss a ‘mult mete dt ete neces acl mimes etisalat et aie Ae mute programa nase pute exeeta ol pln pink ind progam! mt te ‘esd coo mine nai mar a blu imbajl Foran 90 accep catego de bist dte crore diame ‘shun socal, coe etomate poston “Table abeabile mt" bloule. ce ent dstste ca atm ALLOCATABLE. inane ct un tab sls fe fos intvunealcl uc, ste neces se slce inane in Unpul exec programa) spheres Panctor In memo. Aces soe se renee conse ALLOCATE. I "impul exceuteiprogamut un takouaoca pte desc! realoet 0a Inte: Mines (ss) Toma table chp) sep sch Talo ist ‘angulramine cel tat pin deta abou Uelicres tbl alae erie unl progam 3 flsenc enact spi de meric de eae at avo mat ape care ete nevoe de. ‘Obiectele automate sunt bite cares rer snare nun bog care da oun! ci se emia execu subpogruu Obie eae otf ‘lout isu sting de carat. Obsessed se nsubpsane ct lascd tbl ferporae (fein strep» rein) sa sag ‘acter ea ange ies cae opel ahprogral, ‘Variable pointer. sa spl, potter sunt arse dcr trib POINTER. Pine fers programa faci te (pores) un oer Poste ‘en disc sate de ae variable ute ite st a de memore loeseineme Tinele su varie ce au srbutl TARGET. Asoclres ust poner co ind se le shh daria In ecu execute programa ack eet pit ‘Ste un bln, marmeas lnnene sles ot schimb dna, ns tng ae ‘el fat pin declai woua:Pomer pean 0 are fanchonaltate, de pi se ot foot cao aleativa mest pot abou lest a ep ot (Geaen de structure date dine, cen sit dei tle late ike Tiss) st arboa (ues. 132 Tabloue alocabile ‘Tubjouilealocabilesuat lout co atbuul ALLOCATABLE, fn intel Foetan 99 tablounle sunt sigue bie oe pot tvex sur! ALLOGATABLE, ‘abou soeble sedecla nf ca alone state cu dentist pot le se {olsee specail abou Jorma amdnat (dtd shape) cave sent a sol "(Sul ponte). Spectican de tlon-en forma embnatdd tele surg reap le nrin fare ensue, coca seam oa ‘nc ii fra boul Rangul bli ee deer deta de some ‘imide spefca cforms mina ‘nan pens dehratie de tip ew atributel ALLOCATABLE exe ‘ip, ALLOCATABLE [inert Alle abate permise st DIMENSION ( spe formaminatd ) PRIVATE Puauic SAVE TARGET ‘Ack Up poate: INTEGER, REAL, DOUBLE PRECISION, COMPLEX, (CHARACTER, LOGICAL. TYPE (ume 1p) Reuiatin ch opto poses apr Sun selector de ng (in alta carcer) au un selector Kin i ae "purr tg el complex log). Speciesia TYPE (ume po oct ‘oul url dete defied uate ‘Auibutl ALLOCATABLE se poate declan si cu insniynen ALLO- CCATABLE car ar forms ALLOCATABLE [= ]rume_tablou (stp. formd_amntd)} ume aot spe. ond mnt} ude oma sith unter eg restr ‘+ Taboul aa webu ie un apunet dy sa rez uel fie {ac blu ed na pre abu DIMENSION, gone sl ebuie Exempla | Desi ou aul ALLOCATABLE 1 tblou de ang 1 1 table de 1 ableu de INTEGER, ALLOCATABLE, DIMENSION(:) 2 REAL, ALLOCATABLE™: BC: REAL” ALLOCATABLE, OMENSION (:,:,:)eemplal 2 Uitizrea nsx ALLOCATABLE: REAL D (2) LOGICAL masca \ DIMENSION masca (:) : ‘ALLOCATABLE b, masca ‘Sept los traci cebivalens REAL LOGICAL masea ALLOCATABLE™: matea(:) B(2.:) Alocrea i desleses psf in memaric peat louie cx atrbut [ALLOGATABLE selene cr nse ALLOCATE 3! DEALLOGATE. Tnsrctisca ALLOCATE. are fmm ALLOCATE (de aleare {STAT = wri stat }) et foat (list despeicat de. forma epics) ocare ae for otic locar oBte {me de sarod | component de srt) pciicaia de forms explicit ste (mia de fos: Vint dees Insrucnes DEALLOCATE an form: DEALLOCATE (sts dence [, STAT = vari sae) Exist mttaer re Fier ober loca’ tcuie st fe un ahou sloshil sa un_ point Tina de jos ine sur Sin spose de frm tree fe expres one teas arabian (ea cae uroea dank STAT = ) esto vail saad Inrga care se steal tro dash slocrea eft cu acces tf ovale eve dependent de poco, dct exit couse sloare Dac xia STAT ‘sapate rare de locr,programal i icetezd execu, Erol de slocare spr atin ind se ncaa aoc un alo dj ce Sau staedaloe unio noc 2 Pesta deen dc unable aoa est Jems ALLOGATED ($1013, oct pate flo ain a + Nicolini ce paren tse frmi expt uohie 8 ew xprsiecare comin o refering & ifr abou 1015) Spe cal bectsloat i een striae ALLOCATE De exci trace REAL, ALLOCATABLE = Al: ),8( ALLOGATE (A/10). 5 SIZE(A) st pei wilzaen fancies SIZE. ininsraciunte REAL, DIMENSION (2): 2.0 REAL, ALLOCATABLE™ work (:) ALLOGATE (wok (SIZE(0)) ). ‘te pois tinea fui SIZE, ‘Ua alo lcs un sara dealacare, cen ce se se pote aa 4 _alcet caren, atts inp ct ae saci un spin in memorie in ast de {abou pate ees dint sa esos. s_mewoct its timp eit mae re asc pl srespucaior In mene Tabla! ta a fos iced aloct vay uhinw operatic efesttd supa srs fa Aalcae, Un atl de blu cada bul a tn, Stl unl bla se poste test cx fants opes ALLOCATED (f 10.13). Refers de fie ALLLOGATED ( tabu) retumea valoren TRUE. set ad bial soci tablou ste aloest 91 FALSE” duct tabou tte neal, Reza ese edt da st! Sacre al about nese semplul3 ize fancies ALLOCATED: IF (ALLOCATED (x) DEALLOCATE (x) IF (NOT. ALLOCATED (x) } ALLOCATE (x) 1 dalocren uni blo aloes sal et nels” ist ye deve “alc cnet” doar dps 0 isteutione ALLOCATE care exc eu sce To ecu eXcevieh propamalt doch spt de menore exe sera, pomes ‘locas, saul biol dvive “edocs In esa) progeny esc ps ‘spt sit ciel de oare deslcare + uu tion de dvi cu aro Inner cir de cae dai Esemptal REAL, ALLOCATABLE :6(:,:) ALLOCATE (20, 3), STAT =far) IFlier GT-O) CALL vezolvabeoo DEALLOCATE (B) ALLOCATE (5,5), STAT =jorr) ‘Ac Beste deslaat abou local de rang 2 cu frm amit. Cu prime laste ALLOCATE se delaras a memore pent set blo. Ls exe "tuchunk b= 00 sinc nd wate ements aboul 8 wnat Ot Stables lintel itinre,fomo rie hl. Dupt ensue ste DEALLOGATE ssl b devine elect Apo beste relat cu aS ite Ini orate raga! sb rin inh tesa Exempla Alora dinamic «wel ma, aout ascesat prin soir ost ‘De aceen of alt alow alsa eb ie deloe nine de psi sbprogamul perc bul cap ttl edt ou pot refers Jenn sat su dene Spl de memorc alot cu ALLOCATE rains Inu pt opr deta ma exe aso ta ian tare de vanabll Lt hou ela ‘pogrimali emer toi se micereart cu spi ete 2 cpa ste Deen. Acts conduc a abana Seurgere a memories ek) att fens i rma Spal de mem alc! cre devine nedefnt rio eta pogram deja et fu mas poste soca cu wean mune de vara La ‘Sttou ap! sobpogrami o are in mere "ssc memories opal se miei cu sail de metre care nie +o reser alle fb eipat stu nef. Seuere de memore som cml eyes unc proce ce comjne'© sarge de mee va cle spa de Imemore last d nfo Ssurere de moron pu Kae peu de deta PROGRAM aioca rT I: Pe eu PROSRAA SIE eo oe api nee ie is | ean oe gana deo raat WRITE (" (Ay, ADVANCE = NO*)'n=* READ'n = | Aocatea énamica 8 unel matt ‘ALLOCATE (a(n) "Tabula se uplecu numero aletoar cu data unfoma pe (01) ‘CALL random number) | | Aine maseats | WHERE (al 00) | a t0/8 ELSEWHERE, ert | END WHERE. | rai PRINT: 2 END PROGRAM aloca Sci do a bea sau de « dela spatial in meme perry tubloule locale reine pogratorl. Spat de meme neat 6h 0 rch ALLOCATE se pane recupeaprnto instutiune DEALLOCATE sau prin fem ‘rea execu! prowl Dac au subprogra e exec instncie END Siu RETURN wn tou sac devine ned stat sh de late devine nedeiait Except o ont care ct 1 abla! ete specifica intron ol are este ast pin USE de ite un ‘kbpregram stv nc) xemplat Evie saree de mem ‘SUBROUTINE sehimba REAL, OMENSION(: J: 2, REAL, ALLOCATABLE : tu (:) AALLOGATE (uc ( SIZEt0))) ther ano | Nezesar pon a eta scugorea de memoria DEALLOCATE tucn) END SUBROUTINE aoninba |... Fortran 95 permite dcaloaesasomat = blur lai. ln Foran 9, wan subpogam an abou cre are atu SAVE cp stl nett Sup execu te! instil RETURN sas END. In Fora 9 un tenes abo | ste dae od automat des procedus re emia txesi anc noc | RETURN sau END” Aces faite clinintseugese de memore $i previne ‘pera sat aber dei De ale in Foran 9 il ex al de sea eden Ns Jw alle loc lca curt elas 133 Obiecte automate Obie stomat sunt our de Hip crater ete se flute x spt de Tucan proce att ed ete nevoi dealer lace cinta ares Se 1tun ape nal, sau cid envied vb lose dep caer Iginla nl Otte soma st rp dane (Obieee stmt te dara In ocd ex exes spect neon, ‘spre. sec secon pate Teese fe tn it Sintsane tht hi fel nes unt es lo dtp eur Se oc ea ‘tomate atl nts at ney diets (agen cs mpuetcdamey ae Proceur, Obtle amie aap svete itm pot eile, Obs orate se cea ih Inte i posed dp cand procedure Ty teh ‘hesuia, Doct rea ime pod funeexe de tip caster Cl tngane ‘ar, nets web He ul Aa be atone psf dea Sarin pect merged re xempla PROGRAM eulomat REAL, ALLOGATABLE, DIMENSION() (CHARACTER'S nim. CHARACTER‘ ume INTEGER 9 INTERFACE “SUBROUTINE schimba tabu (9,8 numa. REAL OIMENSION() INTENT (OUT) “2B (CHARACTER LENS) INTENT(N} : END SUBROUTINE END INTERFACE rma = amper fhume-b = vor WRITE (AP, ADVANCE ='NO") "9 =" READ" [ALLOCATE (af) 8(0)) CALL random number) PRINT 3 PRINT: 3 (CALL dom. numer) PRINT. PRINT: b CALL sehimba.tabour( a, nume_s, rome.) PRINT PRINT: a PRINT = PRINT ENO PROGRAM automat rune) ume_p a oT ~ SUBROUTINE schimba lieu (3b, nume_a REAL. OIMENSION(), INTENT (OUT) 3 ua_B) (CHARACTER (LEN) INTENTIIN): nume_a nue. REAL eSIZE(a) + LEN oume_b) +25 ) moss) ‘mese| = nume_ i s\"bume_ bi -2uinerschenbat PRINT esol ENO SUBROUTINE sch tabiout Schimba_tabiour are eves de oer xpi. 134 Pointers Generalitat Asc nurun program poate fil st dspunen de um nue cate pl xe pn ee ten At tn Exempla | Ne propunen st acuta podul BCe a marie pattie B, (© de dimen » 7 oh, un vestorn dimensional, Seem ed pent acu ‘Sooper vector ensonal Oba pein lamulies matic Ac weit Jeb Prods! BC se poste cleln ase + Facemen x sbsofeteela2 9A sisezeiela gcalelin y =Cx + Facemen xshsefefoeiay §1 A sisevefre ta scales =By =BCz {in inbsatForran 90 9 vari cat in mod diame post Re x se rele alte oct ble-ate) se neste varabla olater su sing, pote Sai de memories de pottr (a spa sre cae fel a wat Proms) se nates variabiit (arg). Vara its pot tara sea Su"vataie blow. Pome nu cova de, De wee poi Se mal ness ‘arahvetein pet ch pointe a refer ln dich pre, al spe) ite “rable sales aril tao cre contin dt Prin rae per spon 8 te este am ume de vari cae od dinar poate devel un als Cals” ‘Stew cin ata ce scars "lm "pre" pent oes Ut ‘ht int poste sve emul au ma mle names ose noice enum aDespre point Se pote gin yf lt mod: un poner ee descrip ce emae ifort despe fil parame det rangle fea tn Peal Aslan purl bss scl dep leu lit den Pte n alo cual den de tat Elemente fi polser in tal Forean "90 sit dout site POINTER si TARGET. pur nsrstini NULLIFY, ALLOCATE, DEALLOGATE. lasucunes de ature pine, nsrcjincs Go atibue bias Tani ‘nrinacs ASSOCIATED, in punt de veer sitactc un pointer ote un uo oie variables sn ‘abou cia cu 0 dearie so cv oie POINTER ts abut POINTER Njontenatnbutlor cares split und sie (variably daugh crate supientae e care obectal lel pleat fs, Aba POINTER inn sens elimi 9 exacts pe care 0 re un bc bia Ut ‘het obit are erat un sin apts de hore. Dd a ss ae aba POINTER inal 1s rezarvt nin spin meri. Se sane pou re snl de ase medi, sau sip, patra ste Redfin Pun Foner se poste crea spa In mooie eo stun ALLOCATE. [a uma etc nrc ALLOCATE petra expt al de ‘soci aseit caren. Simp se spec Ponca ee aveiat caren Ais inseam eh poi deine spc a spa din memorie ret cae devine fats PetmerulAlscues ou poster crear in mat matin abet ce ae att [TARGET (nnn program fs se pst refer su suse pnts din memoresoct una pointer Se pat sacs cao inurfune DEALLOCATE, Pointer ptf ders de erie tc insrse NULLIEY. Dap ene ‘nl inset NULLIFY se ce cl pontra este ana suc poster devi ‘oiner oul pointeal capa stata de score nl (nl, sea ce asain Primera este deasoit de rice ft Tn devurl exec progamali consti de lose oir un abet ‘posed mural TARGET pate deve int wel pointer Obie cu aha ‘TARGET sept nvoduce eo isrctne de Scart sa 9 scant TARGET. Pte adoro! fsa cu ace ou ater! insta ‘Ast n dccusul exccte! uni popram an pointer posed un stata socket (ssid sats), sce ce insane se poate slau din 2 al, poitol ee dass eos a, {eden condi in ear se lbs pier cept un pogram, {tei caret, pote epfezinun t ne (este uals) pet un bist fins lot diagram un pointer se poate roeezenta pit sient car ara sre tina, peta dreptangh de cre plese o sgt cae arth spre fin Un ir alse repent cao “Tezatn nl” scheme lc Tn Fig. 13.1 sat "ate inbolu eepein saul dr sor wn pore. a = Un point se considers dein dich are sual de soir ls aoc 13 Atributul POINTER i instructiunea POINTER Atributl POINTER poate dat woe obicte (lat su talon i ex © ‘eran de slr a pli fe uo sstione POINTER ‘Untabon pene delaratie de ip cuaributal POINTER ste ‘ip, POINTER {ud date] itd de obiecte Alc ip pote & INTEGER, REAL, DOUBLE PRECISION, COMPLEX, (CHARACTER: LOGICAL TYPE (nme) ‘Ale ibtepemiseimpreane srbtl POINTER. DIMENSION (ita pc frm mina) OPTIONAL PRIVATE usc SAVE ig 15.1 Sta esac pone -eibtl POINTER se poste desl 5 u 6 instucune POINTER crea POINTER [=] ame. de ober see formd amin )} TEL cme de obec [ (lth sp form cna} nsExit umole egl este Tints aa pointer poate ft sea sa un bow Un oer care este un alo tebe fe deca 6 un Yablow cu forme ‘nina Ginter infest dmenaun fu sunt sos) 2 Un oltre refers defi pi x se Soca C0 Ye Coe poate efeieu deint Exemplal 1 Dele a aor bist cu atbutl POINTER INTEGER, POINTER jk REAL, POINTER 3 (0). 942),2(.%:) ‘TYPE|nd), POINTER uc INTEGER = REAL SKC MY czb.) TYPE nod) eutont POINTER coven x ¥2 136 At stl TARGET lInstructiunea TARGET. In decusl erect programa am bist eae arb TARGET poses ein fina unl pointer Tia oer ei 8 pl angle de tip a poner, Atibuul TARGET aj compistora st genres lca eet Doct un obet uae strut TARGET sos a fou lost sc opto fu poate access cu vo pointer TARGET pote ft unor obec (san sv tour eco structions de delaras i eu strane TARGET. Un ebony delarale dep ew atibutal TARGET ext tp, TARGET (, st decribed de oie Al tip poate f INTEGER, REAL, DOUBLE PRECISION, COMPLEX, (CHARACTER,LOGICAN TYPE( ne.) ‘Ale sre ce ut jen pr cv bt TARGET sn ilar dtr ALLOGATABLE DIMENSION INTENT OPTIONAL PRIVATE Puauic SAVE Aituul TARGET se pote dela ic lnsrucine TARGET cae sre forms TARGET [2] me de bic [ (pee tahiw)]_ a Ls rme de bie [( pst) Exempla 1 Obiet ist penn pote INTEGER, TARGET « i= 10 INTEGER TARGET ° jk REAL, TARGET, DIMENSION (50) REAL, TARGET, DIMENSION (10,10) REAL, TARGET, ALLOCATABLE, DIMENSION (:,5:) 2 ‘TYPE(cos), TARGET * prmul nod Aco inset at chia INTEGER i210 jk REAL": x (30) y(10, 10) REAL, ALLOCATABLE 2,55) TYPE (nod) Prim_nos TARGET” jk pruned, 2 inexemphl | $135: 13.7 Manipularea pointerlor Manpulea piste e raze c nstrctunes de aeibie pointer cu intractunen de aribulreebgault atibazes normal, nine). ns {ines de tue poe seal de stsbare ese =>" in nrcnen de tb aee ‘jn emul de stab ete =" Prezenin main Instractiunea de tribuize pointer. Reaminim <8 on nt seo varia cei spec us alt bce. Temensl aso pot a Simpl, “soi” vom flo err concep" nde er ena "Ye [estos cine cum pine Tnstactiunea de abibue place siocieh an pointer tis nde ble poner este {mame de arab component de srt} Tita ete (vera ereExit utr regal ressep Dut ict pone este an ure devil, vib tei hab ait POINTER. Daca tec joiner ee copencnts de sactarh, compen eau ‘ih od POINTER jaa +" Daca ma eo verb, tance: ca sb ai tbo TARGET, sou iy webu se components une etn stare de blow su suing ine ‘acile crater eae me abl TARGET, sau i) eee th abu Ponrer + Topol parameti de ip kind angie pet tpl carat i rangle Iebuie st fie scl cues a oben por 2° aed vail dn dea Sema are atbual TARGET, air poner ‘in sung scrnall => devine uot uc jin. 2 Doct vai di rept sepals => ar tbl POINTER gi ste soca uo tin de pl fata dps enc inset Be aus omer oe ‘al pointer ngs tems => ara spe ase date econ fits 4 = "act ‘vasa din despa sermulot = a atibtal POINTER. ote eeascint, oc poier dims set ~> devine deena Dac vara in dept somal => ae arbtd POINTER sare staal Aeasocere neefnt, sat de aboee a eset por in stings sult = ‘evne nein + Inststinen de ature pot emia ace soci reel pine 2 Doct un oer pointer ete un aloe frm amin stn Tue poise able inden pen fare dncsune bos ncaa ‘ret ese deasoit sau pote ste edit afi) cd fit poner ‘St un bio ing, tle ale sn cole din doclri tbosa st ce Spectae ‘unt end abou fst sloet i dict pita pointers este 0 Setane de alo, Uinta dejo ete I lita de sus ete hnindees in acu dinensane, Cacepie © anstinie cal una pater desist stu nef nd inindele sunt Soe se Unik: De exempt exeeaainsrucnor REAL, TARGET (8:16) REAL POINTER pnt, pn2() pit => tn nt => tt) nine ui pitt st oleae ln dik #9 16a cel le pt st 198 petrch i) copie ost de i set ce Tina nu reba seo vars lon cx forms amin, Da tat este 0 Secjine de abou am tblow cu for sumtin sper pein ln Ainertine tetas Be specious Daca tints ete 0 expres. ea ucbule st famieze un nett pointer. Aces fondie imps ct exests 3 fo veleint de ance dei deat sa 0 pera Jefna de lar ee rumen an poner Ream ch eh ere inset sau feiss atte rere eau Fonrer Doc ita uni pier ma poste eis deft, oi ms bul st feet an nt 2 ack osc a 0 congonent cu atta POINTER 9 strat | se {ine ovakare fondo sbi de ip deer nts bes pone ee ist pet fee componct cu stl POINTER, Be semen sues pT cara ca 2 sb aate cca py snl vase ae a se 8 Fg 13.3), Valoaea 84 tee nme rp 31 p2. Dich schimbin insrucunenF= 7-4 se schimbl aes le i Btw ppt ch BY 2 St alas peu Pela urna iasines PRINT, p2 2a tint p2 = Exempla 3 Devsbiea dine ners de tbuire pier insti seule dpa ~~ PROGRAM pir INTEGER, TARGET INTEGER POINTER "pt. pn_2 tie bist atibuiro bisa PRINT Jk po_1,pn_2 1 tipteste 1630200 1 ting feoata mn amare PRINT) k prt, pn_2 1 tipargsi 1020 1010 TEND PROGRAM pit_9 semplal 4 Cale produsulal BCz, de B,C son mai patie de lmensisn >= far 2 stu veto dmesinal ui cu pe pet cnn putt g138) PROGRAM pa @ IMPLICIT NONE REAL, TARGET, DIMENSION (32): C = RESHAPE ((/10, 20,30. & 45, 50.60, 70,80,90/, (53) ) REAL, TARGET, DIMENSION (33) B=RESHAPE((/10,00,30, & 96,50, 60.00.85, 901, (3) REAL, TARGET, DINENSION(3) "2/10, 1.0, 1.0 REAL, TARGET, BIMENSIONG): 9.7| REAL POINTER, DIMENSION G3) @_pir cot REAL. POINTER, DIMENSION () INTEGER 1 plese PRINTS oir pt PRINT cpt: bovis ‘WRITE(, (OFSA2NY (apt END DO. DOr SIZE pt) 0) = SUM pre7%_ pu) ) ND 00 mops y peed RINT ptr x pte PRINT" acpi 3 WRITE. YOFS.4.2X0)(a pty). °1.3) ND 00 Or SIZE pr) SUMCS pup) “ END Bo PRINT. vin END PROGRAM prt 4 138 Insteuetiunea NULLIFY In n-an program toi piter au un sat de aso nedfin. ent 2 Iniaiza'un osirx skna mate cite nih hi ete teen a cnr 0 ‘tracune NULLIFY (cul eles “oli Vnscamna "nase Dap ‘execu src NULLIFY pineal ovine defn ae stl desler a Insrrunea NULLIFY se poate flo! pent zs n mo exc on pier se yma sa: daa execoa ston NUCLIFY’ pour capt sail de ose Forma astacnit NULLIFY et NULLIFY (de obecte pointer) bc pier te (name devrait | component de sracans) car bic pont i nh web i sit POINTER, Exempla titra uo pointer REAL, POINTER pnt NULLIFY (pat up exc astucinit NULLIFY pointe ot devine defini: le mu rt sori REAL, POINTER pot, pnt_2 REAL, TARGET r= 1010 pret => tar pnt = lar RUCLIFY pms) Tins pointsilor ptt 51 prt_2 este tr, Dp amuses ai prt nu se ule $2 Exempla REAL, PONTER pot, pnt 2 NULLIEV (poet) paces nae Dupd execu instctians NULLIFY (pnts) pineal pr devine al ie ant intone pri_2 => Bt devine al postal pt 2 139 Functiaintrinsecy ASSOCIATED Pen deters dat um pointer inst su ete ais at ne) pets hie pen lou fncjantseet Ge infomare ingyen) ‘ASSOCIATED. Seta sev! ini ose ASSOCIATED ( POINTER [, TARGET] ) Argumetl ot ave xc ti. Aci POINTER tebe un pointer poate sven oie tip Stil de sore a Lot POINTER thai te sei A hea angument, TARGET, este opinal x bul st fe potter sao il Stat st deaociee au tee te node Ren anette i) Cind aguenul TARGET pest, rer) ete TRUE, dict POINTER exe soci cuca cu of 9 FALSE, dct mee sai i) Clint segmental TARGET exe presen 9 ete iy resale ‘TRUE, dash POINTER ete acct curt cd TARGET 1 FALSE. dtd me a2 Clad pa TARGET ee pee yon potter, a ew TRUE cs POWER TARGET sts Sc 9 FALSE tuancae i ‘SE Eno nee rd i upon De sac, ine qd cred pr cams a eth ee a | ‘lactone MOLLY” cr ee alt ce a | iva dz tne ur poner aceon Exemplal REAL, POINTER © pt, p12 1 pointe nedefnt REAL TARGET" 13 LOGICAL =t61 tt 2.153.184, 1 5, 6 pet=stt | ptf scot cured tire tt P2=>12 | plz asoaat crete: 2 EL1= ASSOCIATED (ptt) TRUE IC2= ASSOCIATED (pi2} | “TRUE NULLIFY (pt) 1 ott 'SLS=ASSOCIATED( ptt)! FALSE. I5C4 = ASSOCIATED (it. pt2) | FALSE {ES = ASSOCIATED (92, TARGET =12) | FALSE, {81.6 « ASSOCIATED (pt pi2,TARGET ~11 1 FALSE NULLIFY (ptt 2) 13.10 Alocarea si dealocarea pointeritor in 9132 am arate slocuca i deslcses spain memorie pene ‘ebloure usar ALLOCATABLE se een suisse ALLOGATE 9 DEALLOCATE.Insrutunen ALLOGATE se pte flu 9 ont cee sai ‘memars dinamich penny varabiee ce au aout POINTER, Aten eind se at un ect eu avbual POINTER se crest spy In meni, fie petu 8 “ral erat, he pets an bl ponte pl pr Ge i, engl inner poimeri pote devine sso eu al Spats de memart cinmish ire devine in pitas Pen det tau aces fit se ose oe © "efi spite Tints pote un abou sn un sea, Cy lsc de te Prime u accent se pot asova pte ional Tin poner poste 8 Un alow cu aval ALLOCATABLE dct bl! atc srl TARGET, Alcs ‘a potter ree um obec ce ten mod impli sib TARGET Nu on 8 {tore slo oir cat ne soa ue kos in acest ca eed vo So poimer se pede che snc a ‘etn mi este nevole de ita unl pistes in memo act de ith S poste elites (espe) cuoinstutiane DEALLOCATE (9102), lr acs exe ctl dn fade aca isbuctuni DEALLOGATE et point sei Tntep in cre» fst loca ex un poe print tsicione ALLOCATE. Se te delocs dor un pote ce are utd de accent, Dap execs oo ‘Sere isnaiuni DEALLOGATE piste devine desu ote bce lst fu eule st exste dependents accra permite pct st dele obec te! unl dp cls ‘ein aire oir se poate acim pointer co pane mi obit, de xemplo scpune de bl, lemest de ub sa on ster Un pine seca htc porn aun bet peste dealt. Dac ma e ole ‘te sci uum pier dalecaren wi in oi oareaz esate sciere ‘elo devin node Exempla 1 Aloswch idesctes ni pnt aus ite Sala He REAL, POINTER ptr ALLOCATE (ont) Insctunea ALLOCATE (pit) creck spy in menor pent da scala de ip eal pir deving ata a aces pti de memo Fi 18), Tnsrcanen oir = 1.2 face ct In ace puis de meme af sche roars 12 (Fig 23). ptr pte Fig 134 Fie 3s AS poimerl pr devine asc i enum Insc DEALLOCATE ( ptr) lee spoil aloeat upp cap sat sini aicd nef ape pointer pr fst daca, cls ma poste 8 fls ea refine exempt, in emtroldept a une nso de ae: Das al pou cons Sige rest Dn (pen isan de ure poate ap cht rn DEATLOCATE enum ara apc malo valoug SPE Stetson xsper tors elementle uh Exemplat2 REAL, POINTER pat, pate INTEGER 9 ='50 \ ALLOCATE (pnt. _patr) DEALLOCATE (pty, a_pri) Ac tr indict un spat de memos dinamo poate soc @ sng it seal de pel ar pit ined un sais de meme cna suet de mae find na a este neve de sew spain de memos ot poate fescue 9 Insructe DEALLOCATE. [nest cuz pair se comp ia tn weno ‘Shounlor asble L_ Exempla ~ PROGRAM al deal InPLicit NONE INTEGER") INTEGER INTEGER - Sata REAL, TARGET 9(55) REAL, POINTER uth dea) “abloul se ump cu rumereaeatoare {CALL RANDOM NUMBER (a) PRINT 3 bolnis PRINT BF 108}, (ap. ie1.5) END OO BS Pinon wines otoanaj a hia us at.) PRINT", "Poirtruly indica coloana |= 3 li PRINT, suma_u=", SUM) Cites: .WRITE(" (AJ, ADVANCE » NO’) (enter 1)=* READ T Polio vindica © sectune 2x3. lula we aia, ie2) PRINTS bois is PRINT (OF05. (vl) i813) ND OD PRINT ‘suma_v =" SUMO) ‘Necare ginamica a tabloulu pointer w de imensinim xn ALLOCATE (wien), STAT = statu) PRINT, w: bots im PRINT (2F10.5); (ais). je1.) eND00 IF [sat £0.0) PRINT, ‘sume. + SUM (w) Pinel use schimbas!indos © patel, ni 1 swt.) PRINT Uy PRINT, Suri uw =" SUM (a) DEALLOGATE |, STAT = statut) ——— PRINTS, Stat lw dupa soca: END PROGRAM al deal se insine de istuspunea DEALLOCATE (, STAT = sat) fei insruunea DEALLOCATE (a, STAT = stat) ecu sat Gop or file cau de incecaea de dela Iu eae ene 0 pane bie ‘Clad ino process exec insane RETURN stu EN, stl de soci unt pot proctor pon srt sas acest) devine hein 6 ‘xcept az Inca 2M iter ar rit SAVE. pointer xe speictintun moda ext sso de un ubpogrn st. 1 poiterl ete acest pn sssere hos. —poimerl repecin aloareunel Tan ear ete delat car abt POINTER. Det ssl de aacee al point devine nedeini, of ma poste ‘efi, dfn sau alae Pomerl pote loca alt a abi un te a13.11 Inlalizarea polnterlor. Funetia NULL In Forwan 90 stl de asicee niall unui pointer ste intdauna deft Stl pede a ese drt de exempt, un porter neefint hue ‘ett lt fini ASSOCIATED. ~ Fan 5 pica cis se ex a a onset Arm Seo sens ears ips hse REAL PONTER, MENSION() VECTORS (0) fesse OATA EA. POINTER DIMENSION) VECTOR-AWL(0 Satan wie | taaet sme HL eect ie pt Fos ‘Sasi ements nde uwrwo.93) at NULL et wit deri MOLD je iter ere sin nee adr ec an se ec 12 tsp ns ssa hr MOD er ee Se SPUR Seen eae Fores sl NLL (is mas te apap nea oer, cxioniutettaan ea mh es pl es dei cinste | renares reat ue Bees ae Fre ta PONTER: nxt enon |e icons est nea (09, 0, NULL) cae rt ‘Salads we ec pome Exempla 2 Pots ine vc ntnea VECTOR = NULL ete [cine UULLPY oc 13.12 Argumente pointer. Fune(i pointer Regul oneal de pris args opi, dummy actual in rocedr i apelurie poceslor se fost preset BU. Argue pos ‘nor po pee inca agence poner xs umole egal yl res 2a semen! danny ae aed PONTER, se armen cual corepanar tebe sl shi aba POWTER 2, Dash srginena any ee lo agus ie 3k oe pec ie ern a _ Lac subgrade tc pit genet actual) este pasat argument dus. ve TT en da sperm Ose isutins RETURN sn NO) eget apt nate sca al pune ney Nee nim cb lores din nwopam anginal ned Sone dee ea ‘ea, ac sapere oil so vars cals sn, Ame dary ven bt NTENT. 5 inset od! a et prostate pla inden ann ee ptr incarl ue pee nse eee Se ‘Sipincr peapune anges Gy au sie poner mah ae Stic Is eapct Pan rm produc eeeat ssa precede ‘emmy cu agument pointer es poste inerte ee ae pnb un rpmer pl crn acy doy non point. inact ca gmc Sines enue Pxemplat REAL, POINTER: x.) ALLOCATE (x(10,10)) CALL ata) SusROUTINE a REAL :e(.'0) Apc uy apie des nt en oie Inna 0 pie eel pero ee oa seal PONTE. fet nit ae ind a a ra Di fin tl PORTER ae seas dec xe devscte abn ahaa ne 2 Deal ate eeu ir, ahs esc ech 8 i demi ies ss Sapp ac se esa Loa mb ca Fl See a dezasociat de fits. ™ aFumie oir sunt tie in sii in cre valoarea recat deine de colle eect in copa fui. Exemplal 2. Utlizarea functilor pointer y | INPLICIT NONE | INTEGER =), REAL, TARGET, DIMENSION (3.3):2 REAL. POINTER © ptr) | INTERFACE REAL! POINTER, DIMENSION ():t_elem_ max. | END FUNCTION lini, olem_max END INTERFACE ‘CALL random number (a) PRINT bots PRINT (3105) (ai), eNDoO ir=> mite.) | Prin PRINTS," Lina cela maxim ese ptr END PROGRAM. funet om max a) REAL, TARGET a") REAL, POINTER, DINIENSION () INTEGER, DIVENSION (2) ooate locate = WAXLOC ( ' 9 ina ov elemental maxim fa a eat), :) ENO FUNCTION Irie_olem_max In subprogrmal face tnie_elem max sm fobs funtiaintioees MAxLOC'(g'1015) care determina leas pms clement al ubau ace ae 133 Tabele In mate spi importt, de exemp, ncaal bazar de dt, rogranele ‘pec hs enor nai si ete a0 ~ PROGRAW p func | Tate cel mal sip ete etl cu do clone, in ce, pima colon opine nul eure, ere hie ile abs du coos cone une ‘vor: numeric. Tall et on asl dea. Ait cleat un conae ‘alo ite Seat | —Vaeare |n cant mai comple un bel conn mal mle cok; Sse line « un al de el conn date artes une pla, ‘Alico asl de stu tok pena Base de de. © fd 9 ftorit soa ele cu perso enstnt ia ole Sou Upurea le oe 3 Tobe 3) S| NemeieTitate | Presamele | Dats angaiial [ Satara 1 | Pepeeu [1 [ase Tan 196 | 00.007 2 | toveseu [S| vas 20a 1956 | 90,000 3 | Georges [P| cammea [20 Feb 997 | — ao 00 4 | Gage [8 | Elem 12 star 1997 | S100 S| Rags [0 | teorphe | 15 tn 1997 | e200 [ate [aka un 1997] 670.0 Nr st FRemete [tna Daa angsjinh | Salvia T [psc | _R 25 Mar 196 [90007 2 [iene |e 20Sep 1996 | 8s0.000 3 [coseses | 10 Feb 1997] S000 = [ste >I 20 Avg 1997 | 450000Intel 29 Sua tie conti sm dese np im mde cuca nine a th ran oa pi ce ‘etre ri ich 6 ep cen ei cfc ones Se prac some ver Bel w al at arm cont napintas ibm cat meson ub ex mera ll Stee $c ‘Sin ul sod oer norma itor s0 an Sesh pop ate in conponeate cnc te dip Srna agg ie et sonpocne a a ae 1d (ope ile)" wae op deta peruano Doran sta dnt Ct © Vc ipl dt Slt we ope metas pore an ar sai ‘TYPE obiect (CHARACTER (LEN=12) nume CHARACTER (LEN=3) it CCHARAGTER (LEN=12) prename INTEGER sua CHARACTER (LENS) tuna INTEGER anu! INTEGER salar ENDTYPE cbect "TYPE angaat INTEGER nos TYPE (oben) persoana END TYPE sngajat Operate ce sides dorsum abst sun ‘neces ened co numa pens cain is # modifies vale bcs stat 3 dorm aces andl 4 peta examina componente obiet (cure inal a rena, dats ang salar) Se odie slr ‘dn s56.000 30000 Seine beats Tobe ¢ net | Nomele [tain | Prenumele | Date anger | Solaie eT ZeMae 1996 | S000 2 | Meare [—C[ ovis [20 Sep 1996 | 850.000 3_| costscu [| Angeis | “10 Feb 1997 | sono = [wen [> sein | “20 aug 1997500000 wa 1 imeraen unui nod. nin dul k Inaba 3 ste modus ein Sit (atu ois din peas Se one ea slit ie et Tabet 5 ‘et [Nemete [initiate [Prenumeie [Dats angajat [ Saarie T| aco] _& | Ton 25 Mar 1996 | s00000 2 [stants | ~¢ | “Fares [30 Sep 1996 | — as 000 3 coxessu || Angels [10 Feb 1997 | —s00 000 | amonessa [Free | ran 197 —[ 0.000 [eats TA 30g 1997 | 50.0 i gegen dl Init 3 serge aol 2 (Marte Flin gi dat ma), Se bine alas esa pre Tabet 6 w ‘Obi Set | Namete[ titate | Prenomele | Dats angajit | Saar T [Bacon | _® [em BE Mer 1996 | 80.000 2 [Contseu | [Angeia 10 Feb 1997] so 00 5 eet [Asin [206g 1997 | 50.0 1 combnarea (concen dou sui mute tele {Combinin ilt 2 tbe penn ine abel 7. atl fie, despicable bee Despicim lal 7 in dou ible, abel 8g bea 9, ang 10196, rape ce ana i 997 \Wcoiee ne abel ‘aa sum endl ui be ce comin sariii) sorareanodurdo unc abel in orien cescitiae (esrsctoure) ‘valorilor uneia din componentele obiectelor, Leela 9 abel 7 poate soa in einen ashe «numa alii, Se x coe wat ot fn cron sbi mum sli. Se oh, sot ["Nomete [tanta | Presume [ Dat angiaet [Sari Tabelul 7 2 | Grigore B Elena 12 Mar 1997, "$10.00 ‘ Cries 3 | Radu o Gheorghe | 15 Tun 1997, 620.000, fe Numete | tnitiats | Prenumele | Data angajarii | Salariu 4 | Alba oh ‘Ana 13 fun 1997 $70.00 pe ee eee er [Ss eee To 5 sineesns_[C | Floea | 2085p 1956 [850000 +_{ Ae car stot _{_ e000 9 [Cosescs [I [Angela _|_10 Feb 1977 | soo0m0 2_[aste Bf asin} aoa tr | sone eee a foe) of ee [eee Total 7 [towescs [Svat 20 un 1996 | — 900.000 I = isn) pao ee 2 5 vet 20 1996 Sen ix) cdutarea in tabet a nodului cu o anumita valoare a unei componesie. 3 AT Sistine neces noes ssc13.14 Liste, Alocarea seeventiald © ttl ete 0 coleie de-20 node st) x2) Aer propre sacle see la psi relive tire sss nod dach n>) este Primo no, pentru << nodal al Kea este peel de nal x =I) 9 wat des); (0) exe lil oe Flecare nod ast! pote print con abet dei ext dino mine ‘mts unl spat. De pl abel 2(§131) poate pt x in In ae nul cone ifort dina ta, oda conten di in tabelpodel 3 come lfoma i ini abel, snd iste In cae Ines serie accel a le le notes Ia imal sail nod sui even neta decum specie. Stachel (tiv este os Ta are israeli tric ccs fa lal aca iste Conda (que este st lca tate inser se fae a onl in capt ate stot egg de obi ceases) sn ct a seal cp. in ibojt Fra 90 ste pot imple ama ror. Alegeee liplsetri: opnde de pert ce vor Telctante pe ithe eco eatin 3 cater epeai mpl. Since nis edie Pogue tere, scsi ser ecw acta ott de ne care orice de pel alee! fe nue nla a pense et ‘Sonia. pgm va tpn olde snd (ly pany eae ‘cts Gaegaresde prone wis fe aye Yet Lisa x ier Fe sic bza date dt ie prc escent pei und TiGDULE we — 4] IMPLICT NONE | Formatl negro in baza de date | ‘TYPE angajat | INTEGER (CHARACTER (LEN=12) CHARACTER (LEN=3). (CHARACTER (LEN=12) INtecer CHARACTER (LEN=3), INTECeR, INTEGER, [ENO TYPE angaia END MODULE tp PROGRAM coare_ecuaizare USE tp led ip donest tpl angaet | IMPUIGT NoNE i sta vail | INTEGER ios loss const de eoare "os <0 consti endo fle sau endo second Hos > 0 conte de eroare INTEGER records I numarulda imegisvon dn baza-date LOGICAL existe 1 SUTRUE.ftorl sae, date arb 12 FALSE for Baca date nu exta (CHARACTER raspuns. =" sauy (ee ntodoce 6 noun eroaitare 1 Nau ave met nado eget LOGICAL now seers! MRUE. don rouse na oe {TYE (angola peranana cic dtp oat GlianacteR Wena) 8 Ew CHARACTER (LEN 10) i Formal dteor de inane 12" name 13 int 15.20 6 luna 3 tere) | ae) 18 salar | | fr ="0S, 2X, A12,2X, A, 2X, 12. 2X. 2.2K AB. 2X, | axe | ‘OPEN (UNIT = 1, FILE = "baza date dat) | PRINT. "hesitant _ PRINT?00 READ (tng, JOSTAT = os) prsoa 'F fos.£0"0) THEN. PPRINT ft persoan records = records + else ex ENO END DO. PRINT" PRINT (A.13, ay. “Fesorul taza dale ae "| racods, "inregistrar* PRINT: WRITE (* "UNA, ADVANCE READ" raspune IF (raspurs £0. "Y" OR. raspune £0, "y") THEN ow records = TRUE cise’ ENO IF FALSE SELECT CASE (now records) (CASE ( TRUE) ‘etre © nous inegitare a rmcana% menar=| records +4 Beane WRITEC "(13/7 ADVANCE =O") “ogstares No", prereset Pane WTEC, (Ay ADVANCE ="NO")* Nuno :* READ 2 peworatinume WaITE(: Tay ADVANCE ="NO")* EAD 2 proonaStia WRITE ay ADVANCE = NO") * READ 4 prsoontiprenume Wwarrer: a ABvANCE "NO" READ 6 pessenatne WRITE: ay ADVANCE =-NO")* READ fo pwroanatlon WRITEC. TA ADVANCE = NO" * Inala * Prenume ua st luna :* soul "NOY “egitim? (YIN): Loe WRITEC. (ay, ADVANCE READ 8, persoanaSesla *NO")* Salama g = STOP Eno seLecr > PROGRAN oct ingur cerns et de 2 aden sa serge mime tun capt al lise {ig sw Sct st iow sun meu ct Se pact ods ce ms_sinpl mt dea pst ist in memoria copter ste alcaren seven, ceca ce ine prs mre Tie ele de ‘mere socese. nod dip no In Foran 50 put tesa lose cei ac ata ssn ablou 1D de date de ip drt iets semen bot Sesochezt dtl dit-an nod ‘Aalsin loere ceva petra exemple toca a meri basco dat de ip dena angajat ete voc de 46 Bytes pnts od, 12 ent Pum, 3 pent ina, 12 per perme, & pent ua Spenloa, & eo an 4p slr, Elemente felts cena neo on yaaa bude 00: {afar vlo ine aay in abou arayin)~ LOGICAL FUNCTION LT-nume fab) POINTER cares arate spre date de ore ip inst spe tpl dfn mad cue ie orem scp ee es HEEr nove \ re ‘MpeangSehNTENTN) cap fstatenen'icata = 22" | iviazarea pots data pent nog 2 io INULLIFYlisiatinextinext intatzare neat ala spre nt bo. PRINT, 103, 11071 cuenta IF NOT. ASSOGIATED (euron inex) ) EXIT ‘tent => cuentnext a ENO b0. END PROGRAM lata 2 | Toarirea ts ' curent = ta_| abu caren ita potter ata DO WHILE (ASSOCIATED (ewer) ). PRINT," corona" cuenta rennet | tetas Disutin aces exempl ma in thy, lsncile captival=0 NULLIFY (captinex) arent cop sunt repent pin diagram din Fi 130 END PROGRAM lisa + [emplal 2 Pes s putes vers otis nln ese ile foloeme ot piste tears cent om Tn pl tebe st denim pina ed at set moa eap PROGRAM tet 2 IMPLICIT NONE TYPE nod INTEGER val {TYPE (nod), POINTER = next | ENDTYPE nog TYPE (nos), TARGET «cap ‘TYPE (rod), POINTER = cen, tmp | INTEGER ik | captor ‘caput istebvaloare daft Fig. 139 Fig 1310 INULLIFY (cap%tnex) | poner nol pent cpu ste Curent => ep eure ene caplet | poretin READ" 129 teste voor a [ALLOCATE (temp) | ee erase un nou od temptova ‘se atruiek component val a out nad Prima insttiuneinaicez a0 valores componces al vrai ap. iar ounce apes component poe, Appin ear ee ‘ett asl erat ice puctl de rear culate. Lia ila od Pcl de sera este eapal ate ‘rap densi INULLIFVtamptenent) | se dezaeociaze next furentenent => emp. lee aduga un nod nou Ia start stl furent=> temp cunt aata spre nou apatite ENDO ALLOCATE tmp) fomptoval = NULLIFY (emprenex«rez un nou mod (Fig 13.10). Aces od ae component al seta akin vlawe Stal ke coe fost inodach Poiterl capi stl Sree iene RULUFY) \ 0 ci 4 op Undone nati curaitenat => temp Stent => tome inv un now nods inser in stn punta d neni euro. 13.1), Pte ease nat de Cron ee apo Spent rs mips eda Cin se termite stuctrsdinp T310 is pone ‘rovenat neni cu cael turd ete poster Fig. 12 Programa Eta_S ae ca fier de rare ie creat de programe! efere_actuzare dn exmpl {15°14 (0 hao de ds). Prgraal Eee zt de date de pe dco ncn nto Hi nn, Lists gen pe disposi etpet ania WHERE non | SARA TER ee) ume | Shamacren (Lena) ia SrARAGTER LENT) emma | regen se | Giger) una | ee INTEGER Sw | END TYPE angajat_ | Bree TYPE (oa ate Tire (ah POE | _ sores | ‘sensor | (Type te) power: can 1 portr spe cpu tt GHaRACTEREN=I Rename” Tare lea Sate | INTEGER « nval= 0 | numarul de inregistrari citte | rete, Ronen pe ance | Teoh POWTER Con peor en cond te INTEGER » stat | | TYPE\naa tome vara temporra (CHARACTER (LEN=120) fmt ‘formatul datelor in fisierul de intrare | | frtis Be M2 DADE Ate Je aoe | oe aeiay da nue esa aro WRITEC. (AP. ADVANCE='NO™ "Numete len READ lena, | |, OPEN (UNTT=1 Festienams, STATUS = "OLD", ACTION = "READ + TOSTATsitat) | | eSchires sr de are. fact cu succes? 1F (stat == 0) THEN. | | deschidetea ters fcc sues. cles date dno | 15136 stochesza int stamina a) | READ(. nt, JOSTAT-isattemptidte tse clase orgie | IF (tat = 0 EXT "esr cara! dato | | ‘val= male rumerreainvegtarir cite |__IF(NOT. ASsOcIATED(cap) ) THEN 9‘pada > cap! coada ara un nad nou NULLIFY (cosdatp) | nularea poner nod nou coadatate = lomplidae | socarea nol regia else oad => coadassp !'coada arta un nos nou NULLIFY (cosa) | anulaea poor moduli nou ‘ALLOGATE (cap, STAT=tal)Talooare spat nodnou ——] LLQCATE oni, TAT ace sateen | ‘hadatedate = template tocheaza nous ingitare ENDIF ENDO. " serem baza de date stocata i sta lant => cap oy IELNOT. ASSOCIATED(at) EXIT pointer valid? \WRITEC: ra priate Da, sere nweptrare pu=>pitip Tobie poner urmator eNDOo ELSE "nu eral doschierea fier WRITECNOKAIEY ) + deschidere feiord nu areas. Statut=* iat ENDIF END PROGRAM lta 3 = CAP. 14 TRANSFERUL DATELOR 1441 Introducere In compart ca ate tintae de programare de nivel int limbs Forean psc et boat de msucin de ree sunk insti npr ‘Su, pescura, nse 0. Cajal itrcuner UO un open Fars me sh ecient See, Sheer infor despre an ic tp defied de aces), si aces nite, osnd fe aces sere ferme fiat Se watfern aoe di NO aulare: OPEN, CLOSE, !NQUIRE, BACKSPACE, ENDFILE 5! REWIND. Ulimc 3 snt inaction! de peetonare + Aierlr Tnsratanle de transfer «dtl sint READ, WRITE PAINT Ni ‘st inrachunea FORMAT pein decir de format a programe mi et suc ot eater ca cm ev reir ¢ comin arial de ine 1 cum sh tanstem reel ell ua "ial sau ue ipinane Penr cesta ut suet canon ese ny ‘eset in $8.79 988. La powranele comple vem des fans ea ess a ht ne diese rep de Sou pe bandh magni yale eu opal WO ebsie roe eu Fare meri, pent cil pul de execs Sepa ‘ete mult In $142 ‘icem o diseuie amanunyi idler fname neceste uni Ince clare» md in ear se wlcuract operatic de mare tae Festa. Tn $14.2-14.13 precentam instil de mares: Ines. 15 reeno insta FORMAT si dest de ear. 14.2 Fisiere. Conectare la unit. Poztie, Metode de acces. Jn $72 a pezentat deja concep de fie. Un er exe o ole de date inesnat eu prt exten de flomatie. Fsns fir se solos unlit de inte. nan ir dle sunt grup nhnggnin Cig 7), O frehtare (coc) ct fm ntoan side de Ieee post ft econ pars ‘ssc de cimpurl Herein Soin aoc we date Pig a ‘Cum am vzut in $87 valle tego sue ot femal seformtat, Doct inepstca ee ser Gu sunt e ot # ate Pe os so {tem py tape vould de clue rw see vem ewe 0 ‘aregtrareformatatl. De exempuo eit cine 4 enactere 7,5, 51 {O° ea reveal mumerele 79 10 septate rintean punt. Schematic est Inept oar nig7 i 6 Fi 161 nvegistre formate aor cancer Date neformatate consi de oie dn valor reprezette a8 tn ele sto in mem compu De exemp dsc sce de ip neg oceae Teper bin, schematic, © feprate nee ud ano? Taratcaia Pg 142 ‘ooooottt woor010 Fig 1462 loci meee 2 alo ines ‘aloe weiner ut ot faite, ote nfo Otinrgirae formats coi mse orn © nea form ‘pot fre de pata ce sched tts Conpu supa Ce etn program Foren e contro vl cst er (em faa) nS de ‘sroctere cept vile Cin dtl formate sant eee compe st lee o conven, caraceee Se carmen in spose lor ise, Langimen wnt Tereghtrulformatte ete pi Sette mama de cc Cah ene Tings iegirt pose 8 2. 'Ofaregtare meformatatl cone our de efor. De obi ie store netomat sit eet en excite progam Foran, Pe un ape fem de informe dete ntomnatte soup ns de soe rao Sl Shel formate Serie cient erat exe trap es alr matte ae neces comersia de la ereseracs cu carat la epee inna inet 9 ver. ls stele nesomante mp ite de caer Dace eeematate ne ane converse penta face Uses de dts die compte Pent cn geal epezetle ite depind de pel min. Langime ae Sate nefrmatate deine de sual Sale de plat ae me Una dein etl proces angie pose ee 1. reise formats sie se ce Soo rscine de intaeeie format O inelsvatenelormata se cele 30 sre ou nui de ne rele nfo “Est fegirae spall unis tareghtrares, End Of Fle, pesca EOF: cam ani lunge pnt ms conie cota Ite ier oust ‘fuming En on i at inesstarea EOF se see pnt ae sl ier easaen EOF se mt ris Wma exp de ie popamstr castor isn ENDPILE feta EO® se pte ec ind aeestares EOF se sre nod impli cnd fructus de easter ines dat pate Se wee © intrsune de pie 9) acento nsrchne BACKSPACE. i] sche se clinarcene REWIND, sui execu portent i coi de in mbt Foran oe fice dsinee iuefieseIeliae pen dps tem. deh, nde magnet 9 firele oct meane ance ogra As deoebin dou put deere fee extern ee ltrs ‘Se ToFig 143 iawam vlawen ce doa epee oe Fire extern su soca pe dnote peice: united bands ag tt ut de cr einai Pos cre fie ene ex a A ide de acces permis un etd oe perms ta selena at atl perie un et de lng porn, Sues acest eaten ee seminal doce crite ire len emacs sso oe coo Fltele interne sunt soap meee ca le ua varie cart solace ptf cee fin matte ob, dep pin bea wos le crc st, po ete ntsc ee ei aos er em act vn xe salar linens ong eee hed sri ete un abou fnew so esr pons Rese eee tal Fe fitl nteme et perms nt act ee _Monorie Figeresern lara det string de caractere Fig 14.3 igi itere ext Fricrle Fran ao mune. Numel ua fie extern, sa cut em mae, opecteatia de er (§ 2.) exe ung de caret pe eaves de mene "Seon cme defi Deh mas specicd wale de cee seal de spy supe f else gc in decoa erent Nemele nul ier interme ‘uncle une vail cece sou a hou crac cv valo ems Se storie Bes, Tamrac 00 mus refer nme sires a ere; sae fie cate se scresa din cae sce ete pit cu oantate LO.Desiie ‘ate YO ete atte de for eten | mT ante defor tom ern eit arg esate de ior extrn Valores eres scalars se numeyte mama de unitate, Nuss! de unin ebuse se un marley pois Al tree fen exo at Metis printrn mudd ait en computer cu un stem de opr dat pot 6 flosite numa smite haere de unin Despre umes de une care pot flo sence ext. Ni fate ieee nut computer exist, De pd, an fier rar pte sf me nse penta else sey pe ul din ale cen sn aces sta de cle Fen un ant progr Sar pte eau fier xe penta ck prog ‘ote striatal sees Is no le De exer, programelr Ft hse Derm aceestl In un sistem spc te feral sel Je operate ae ‘Simpler aceasta sae per’ eps de evel mien pater tlistort Prin uae in Foran espame chun fier ent dat exe "era care an program poate avea aes Pe sn prvenoe amie ste vite sot fost inetdenom pet ipl dlr (de exp ats 9 ele sun fost netdeama pene ee (de etc. uni 6) Tstvetone WO treuie ste refere la eile care ext, excepe suet instance Tachi un Ter sa er informa dese un Sper ig) nstianes INQUIRE se te lest pens a eer dt una eas a a, Exist rma real ett 2 Simbel asesse "*" mpecfich un mumir de anit Strmigt t proces, su-mumis unitate standard (de tates cca onto). Fete uma de untste e care procs flees fue cides READ 5! WRITE se srs fd un aude uniate. Unies seiintov wn er 2's poste folos dor pena ace seven format. + Opeatle depustonre ae cui, costae ale fsa ide infrmare inguy ebsies slizze uni etre Ian progam Foran un nmi de ute nt sng unite LO, Acca Inseam 8 un umd de unite ee global pet fatepal program De excl Ineo precedrd un fier poate conta I unaea 12 fet ca ata 12 a proedu Un fife cae eth pnts program in excite pote «fe vid ou ae lng poate nu cone program Pen tansfera dite Ta de) un fier, Feral eble si conectatf © unitate. Ua git eae eset eonectat, dak ee ssc hun mune vice ‘is Oda ce contest jonas starter 10 floes nu ait tm une fer, Un fern ee nena sone a une ‘sue est namete vane caste 364 ¥ Exit do mtode de subi coneeareanteo unite yun ie exter 4 excouia ue saci OPEN (echieren ui {+ precanetre pin steal de opee Unete ny pot Hpreconeatate I gee de le stem deoperare pets vice propam Foran. De exer, Ia sorts stent de operate ae 918 ‘nt preconet era npr def, respec aie! op def, ‘Deconctarea (chide nti) face cu inenetunes CLOSE ‘La anit moment dt Sar un sg per pate icone wie sivice verse Dac ouniate ee deconecat dpa prama stizare a fier ca ose 5 rconoctt mat tris un alt first acne Un fig cme ee oneal Is © nite mo poate flstin ico inajioe VO cece insiocunoe OPEN, CLOSE sas INQUIRE, © dat ce un fier a os dene Singur mes de face eee ams het wisn ue try OPEN sa inauiRe” ie er cet de ean pe 0 pai, Te dc xc Exist chiro istucne seis, BACKSPACE, ce deter shins poate, “Antunes prods de insti de share se deste I ene de ose Tiger; acca disc a deta ines Se ose + puncrniat > punet erin) Fig 64. Pace inil ‘erin ale ut ier Fig. 145 Fr point ite na ee punt dita pens erp Panctal terminal ee ‘nc edit dopt ulin teste: Duos fea ee id (ou ae eg) ‘tein eis excel Gna Acs pute stat astte nF Pov ue pate st devia netomat dae ape 0 Gi de eae, ‘acd postin fgerfl 4 devert ederim prog se pote Bae resipneresc irl se fino smi pore a ie pat pstona ite iretIn Fig 125 fic ee portin ine gine 2 93. acs ca ines area 2 ee legis groveden iri Se neice wane Dac fel ste poiton npn inal ms ex ogre receded dct yc est poston opt enlist etsrare mare Tao nregivar carents yr ese ‘Gertie aril irene ou in 186, WO care avansezd (aang VO) ce ret sre lnsgstrne Termine une eperht TO poafonera geal la sry ane Ire. VO sare ma svamsewa (ncnadancing LO) ee oeit spe cater. Dip ste sau sre ‘ori tpl poste fie cartes ne cps UO care menseard 5 Pte alot dare ieee out seven. retinal ime vari poet terminal Fig 14.6 Posen interior ne init Exit ous metoe de ace ls ies unui Ge: aces seven ces direct Dup meolele de acer Fictele se Input in figere secon fer dete, Timegisrarea 24 Iivegisrorsa $7 Fig. 147 Frersers in aces diet loan fe een arena extn ons care a fost sei. Peau ecesn 9 aura inept tha accent ote ings pnt Ie Incepind cu pina In tne exit In Ger Net post axel ao anu Invepstae din tro fier ir paage seeps existent pa ‘Ate end fier ese ateateocveal epee st sere fete ‘crema. De exempla, dct legis as fox scr n ondne sbi fla ces diet i por Sunt cite floc sees sven, epee somite incepincutepiracs muir Ts dient de momenta de pl cae ow os furan fier cw acces ret inegisrinle sant slate dep mundial ‘wepisranFolosnd cots ‘nica igi po 8 crise ite In ore tie, cate nett poate fs tw acess tte ip precedent, ‘De etch, ese pos st xrem ‘regina Sal apn sb seem Inmepsraren 24 Accsa pode a fier ou srt in Fig. 147 nrc eu aces det exist umtoarle real ett Doct un fjer tebe st fe ocean med det tate ines ‘Doct ols ncesul est este posi ergo oes {Este itera 10 comands delist stu LO care mu vane + Once gerne tebe sss seen vice fier press 0 sola de aces pei, He aces seve fe ses, iret Este posi ea un fiir te cet ct amele mete Metoda de uses fst poptte atures de sce sine st suc nd eal et nec lo una De exemple cet nase ect ste ne 9 ape fstedeschi tin acer evel, 143 Instructlunea OPEN Pen a ccs wansfrl disor itan fle (tee) sw dintean ier (citi ina webie ot fe cone la © a ta ie posed de Cte ‘octtr,Isucfunes OPEN subi concrete une son fess (Geschie fer) 91 detemnns propetsile cnet. Cand eagle “opt Inscarmat “sci” Ma prec, nsrcjunes OPEN sfloset oaeconeta it fier extern Iso unite,» wea un er cre exe preconesia a re ui 9 ect no unin, «sta ule propria comet Atel npn he ‘fecuarea conctiitpropria se, stance OPEN se flores pob ‘kcinaes proprio const Tnstracunea OPEN pete apron ing pogo dat execu onecten fiir aut, scene val ropa pneu tie spor pnt ce se erect 0 fstucane CLOSE sre feta cones, ‘aed in ie se dejo cect, emu pote const ass in ‘Stans ints OPEN ot (OPEN (Ista de sec dt comet) unde ade spc dt concrete Uh de apeifentor de conetare sau ‘pecitatort open lc specced nectar ae fa, thee = {exp | vr er) Pounde expr o expres scar Ingeags scarce, arte aril Ines, fee 0 eticeth, Tete dice de ip res sa sictr ce apa ian atl de ‘Species au kind deft Ta anaes comet un speci dl one ‘har cel ul o singur dath Nome secifeuon ete derma! de end thete De exempl speciestrl STAT =n ivr as serie STAT ‘Specifeatri de conectare st UNIT = unitate defer exter "nde untae dir evr esto exes tip ieg nega’ cre repens ‘amar ui Specifestora! UNIT nema umes apecifctor de wnat, Deck ‘viol hee UNIT ete omis, aes spout tebe sk fe prime din Til Ck ‘ind dete ifs ig uae eee de Pog ae LOSTAT = sar une eto aril tip esi ees erie sata peri inp, ‘Daca fa execfainstucjunis OPEN spare cone de cow, vara var ee set Io volo pots scat 6 pn wl oni de ee). ERR er nde crete chen instruc execuahile din accel unitte scoping ce comine Insuciunea OPEN care se face um st in ctl ail wei soci decree {apa uni condi de eure pla rau mane neem. Dac ee reat! spectator IOSTAT s1ajre 0 conic de ere, al JOSTAT deve ‘ina ep o valor parva dopendert de poss FILE~ mune fer unde mum ier este manele Sera acre unas vt comet, Numer tebe wn sume de fier pemis de proceso. Bach at seine spect STATUS cu aloe OLD, NEW sau REPLACE, spectral FILE thus apart In list. Dock Ista coniee mperfssiort STATUS cu valurca, SCRATCH, ‘pected FILE ma eu pin a STATUS = opr tne eto eri carer ce poste fee vate OLD, NEW, REPLACE, [SCRATCH na UNRNOWN. Vaasa OLD cv ca geal st xe de Valores NEW cor cx fe sh next Vleuee UNKNOWN nh cl a Sut re ete deen posse Valsiea REPLACE se i fie ist ier ote ret ae sata OLD, i) dat fpr ext fe ene {et eee a mw fier co el mie stu aol OLD Valo SERATGH iit cv ict ofc rd mune va cont fata ‘pect nt fir st learn ec ogame sa pa oe ‘effexcutatho astute CLOSE pet senna Exot uri regal srt Dac ste pciat NEW abu REPLACE, su cd OLD exe scion simian conectsteespeceatrl STATUS tte epee Dac ete seifest SERATCM, snc webu fe rae Spec fest FILE Dat ct specif NEW, rl na rebel, Dac fie wexit clestece Dap execute OPEN stl ru devine OL. 2 Vas deft exe UNKNOWN. {ile cv special SCRATCH mu tbe fe um Few SCRATCH sit ere trp ‘+ Dock Selon specfcaosi STATUS cite REPLACE, salosen specifetorll nase chin is OLD; doar tat iui s cei «OLD lod acs ier af oot In stu 10 ce se vor exec ‘Dock se spcieat REPLACE 4 Briel no etn dejo fg ete creat dace eth cet ets exe ean nou ger cu ela ne. Simbel cet wal se schnk dene OLD. + Dac et apc SCRATCH, fel ee cel evn comet ar fw pote pista dap terminren ens pogram sta pl exe ut ‘arts CLOSE, pee Dock te specicat UNKNOWN, stu Sie et dependent de = Doct UNKNOWN ese omis cesta ene valonen dei aes ACCESS = exer inde expr eat 0 expresie caret ee species metods de aes ptr srl Atle erp pte fie vane DIRECT sa SEQUENTIAL. Pet fier ere ‘js ess vlaentebui se pers. Dock Spel mexn eva Bee st fist cu ied de aces adevat Duck species exe om, slots Slat ‘se SEQUENTIAL FORM expe Unde ey’ eo expsie caracter ce poste fica valle FORMATTED sau UNFORMATTED. ‘Vals FORMATTED indict ch tote fegiiele st formate, valores UNFORMATTED inc ct registries fora sist uate regal yeti 4) Doct fier este onectt penn aces dt 9 seis! FORM ‘shit values dat exe UNFORMATTED, 1 Dace este cone ease een peictora FORM ‘ete abnnt valent xe FORMATTED. + Doct jeu ete ou, forme pemiserebi cud os nd Duct feral exit, forma spin de specfcatoral FORM wee st ‘ew dn exe pemise peta feSd cpr ene 0 expres de tp iatieg ca vloare pci cre inci lngimes ecient dcs meta de acs ete dct) angen mn ¢ Ieper dc nde de aces et sovenala. Sk mr opt on cnc nes ies ssi RECL bit fe corm GS el ete cnet pate UO fama, gins es a aan ie ee conc pnts 1 ners, ngine ete massa ees ted as, gina pci x pia whi Se 0 ae Peed or shear ie pen x ungines pcos cs oluneine ean tie opr eo ease cancer ce pose fanaa valle NULL ste ZERO. Speiieatrl BLANK pats apr dot pont Brecon pens 10 fort ‘icc cut one NULL, Di rau ce NULL oom par te ae incipurle numa orate eu acpi un ep orator in anc ae sc mere ee find null Hank co, Duc noose 28R0, Ye Sic pal anon tt st aie ssa eso ik sot SMe pee xi arr ce pe ini valle ASI, REWIND sa IRBPEND, lowes SIS inch pot fier tne sch pen {comet resp pon en pe ee mee cones. aewen FREWINO ie ter © phones pc ial, Vahares APPENO tage oie we psionast a pc ll! else te nega OF, dna etn a” Vale et ene ASS mee ie etna PEN io ot ie sew te oa Ss snp Ra fos pe esi {je se no (NEW) a eae point pn ai aioe ‘postal POSTON tate pect 9 exec pne fin vk READ, WRITE sx EADIE TE. Vaouea READ init'ch mere mmc WHITE f ENDFILE Valores WRITE mc ci wnt inrae cle READ, Vato FREADWRITE ns ch pms oe ncn abt umitorele el etre ‘+ Valeare deft ext depend proesoe Trenceas jloacs READWRITE exe permit de specfestor! ACTION, sure! READ s/ WRITE tetuest fe emi de efor ACTION 5 selena fer existent netiaea special tebe 8 fe © aime perish pews scl fi peal 8 Ter nou valent er tie Se una dis xine ELM = er sd cp eso exrsie car e pot uz valnie APOSTROPHE, QUOTE sa NONE. Valoures APOSTROPHE init ci postulate se loess oy ook isto a series consaneor aracter serie deo nsucue dee dacs Somat cond de st sun formate nc, Valouren QUOTE tees se tll se floes cu detinintrasiers conser caer ste deo hon ane de wansfr de dt de sre deter de date eu tors soo Is sau fomstare amet, Vitoea NONE nw lose elites) Ie aac onstnelo aver sce deo stacune de tne ade deo tae oe ‘ante de dtc fernatare cond at a formate natn ‘st uratorle egy restr 2 Valores delet HONE: s.,gBael vlre este APOSTROPHE. aie asic «unit apstot in ‘sein une constants carter va bl dad valour este GUGRE eae ‘ori smu giles In imeron uel constete arc veh Sablon wey bse ene permis dr pee un fee, conest pes VO, oma este ipo ical put foment PAD = expe ne exp eo exes carats ce pote furia velit YES sau NO. Valares YES nsumnd avaes Ta umd cu Bans cnd inn cenit oot ae hte dc conte iegisares Valores NO ised ct Inepntoes ape ne “le inated isa de nae spc d aa ist uml egl yest ‘Valor deta ese YES. og Szsiaasl ese penis doa pentru un fier conetst pent LO format gtora ncaa foes fq ed aloes exe YES si pare o conde EOF, uansfrl diel se omport ca scum inepistre tf pvt eu stent Hancat nents nce ‘ise input descr! de edatevrspunatr aidan Exec we\ istrini OPEN peste shina popictieuaor const dein abit. Propitiece se pot schinbs uncle nds de pecenane Bea DELI. PAD, ERR 3 ]OSTAT. Dac sunt specificities pent DELINL PAD BLANK sss vor ute In nscale tamer care wneud Ax tr vr foie props vehi. Paani in piers ERR i OSTAT ‘dnt coneeure antiarseflonse dsr pd eva finn 0 nO cane ‘OPEN dp aceasta mala um eft Dac nia isi OPEN mont ‘ns spar speiestr ERR si JOSTAT. dn ans UO ukeroue brea 8 ‘Spine ERR sa IOSTAT, Exemplal 1 Deschieren uni fer no * citrea numell Siena (CHARACTER "20 num fs PRINT "(A Invoaucet numele filers READ “(AP | manta [21 en ume pal de ere ae sez form In azul dscns E eu excep erie emplal 1 Fe istracpines WeITE(, YSSENT23} x Curator ineme di sting se obtne cnpul deere din reap, wat | Cimp de ire Sree 6. ‘3.000600 Boob “£00000 ‘100128 12306403 Lt 12HE-03 15.12 Descriptorul de editare ES. Descriptor edie inti sini it dessin ae sins | sw (Ee) Lata: Forma clint este acerca pn descrip Fc Lateire (ipl ete un mart sis cnform nti pine: vals shut amie ste condtia 103] maa |>1. Pin amare cmp de ij sea fo cin cal desert Eo except esti asia mantis Exempla Feinsnetionss WRITE (88.5123) )x Ce vali inte din stingas bine cipal de ie din dept Gimp dcire | Somies0 ie 1aMEs 18.13 Deseriptorul de editare G Desc eae generat G ate sit L wal E0) asPetru UO de deine, decigtorel God [Ee] ete schist co scr y.Pents 10 de te loge, descriptor Gs Ee) ete eke ey “ssrptoral Uw. Poe LO de dt tt, desetptrl Gwe] We echive c ‘everporl Aw entra date rele, lon in a epaveot w = an Bacula w stan, w carat, ele mai din singh sit tee in cmp de jepire. Daca dle nese pos impure de ee nus srs atric incl ahr unio 1 Fie insrocile (CHARACTER"10 cara READY IANS) ere Doc negsvaes dena se [ABCDEFGHUKLIN, fon=15, w=10, pal de intare eps I ur tans I 1S carter [ASCDEFGHUKLIIND selene cele min rapa 10 catactere,atfel varibl a cp vlores: FGHURLIING | 18,17 Editarea factorulul de seat Descionl deere KP iis salen. Sinn cio ese KP unde k fst const lial nega cu sem. La Inept ee nso LO fot ‘eto de seal et 0. Cd apare un descriptor KP tote inp mime ee umes fproceae cu dsc de dite FE, EN, ES, Datu ps efeate ‘Ge ert hele de sel pn ce apare n a ftor de Dact inal de itare no confine un exponent alr it emus ce 107 Facto desea re ni une ck cpl dena cote en exponent Later 2 Descrpn EN 9 mst afc de ator de el + La deseripers $i D mans se Ime cu 0" i exponent se + “Descriport G pen dat ele a este afetst de facto esl dk Funcioneaca ca undescrptor All vf feta lf ct excl Exempla | up exces insracis READ(’, (PF10.3)') af uclnpal de inure 123. ari af capt valores 1.23805 ug exces READ(*, (3PF10;3 ) ala lp deine 123, ait af capt valores 1.29601 [Exemplat 2 Dao are abares 0123, insrcinee PRINT “(1PE15 6), ata race pt 1.2300006:01, 15.18 Speciicatia de format In $15.1 am prez foma snp spect de fom In orm gener specie doom te sine ( (ita emir de formar) de Scar ena de format poste ‘hscrpor de ear a dalor ‘dere dete a_conroast lerporde-etare-o-srnguror Trt formar) Ale rex constant era, nea ports nami factor de rept Fu umatarl eel esti 1 Vig date decor de eit epost omit In ude cra 2) tte ttt de sala deseo deere bamercs , E,EN. ES, OG.) Ina une’ nol teas ite cu un tt nd mu a ene pee ator de tepeie,«) dant an slash ents oa Inet, dite apd ‘aciponad de dae dou pte cul pels 2) nina pine parntz sting 6) ound a specifi de format eu excep neon nu sang de carers Bla 0 essa frmat st Foon near pens sini bine piel Gra a+ buisness + _ Desc deere pot inde in pratze sot gust de wo factor de eet ce nce desrpra se repetsoTst de Sess deere Thi inte panes ponte preset deur fat do ree, ence ind ek Ineaga steep Exempla 1 Specifca deforma: (13,F103, en102) (2 (46102) 5)/ (1x SP, 15, £5152) (Rs, 2, 15K AIO) 15.19 Modul de exceutie al instructiunilor VO formatate Aun cle ectuena wastrel femal dln, ten bis in 4st 10 se potest eu umn desert de etce ldatcr peta dete fara de coterie ne epee trl singul de cate in estas forma fsnen acest proce de porte se ctsies ta DO expands, {ate et omsidert fare slomet delay ecre seen de sic cte ton isle DO implies conse cla fox dezokat mod amloy se tees lst expandat a deserprorlor deere n ste dosnt de epee se cxpnen Ines Seca de ft se capanear at te Rect inde oe de pater eset ‘Exemplal | Petr insti PRINT "5,213, TR, It, 16) sta DO expand este (1), K(), KO), KU, ‘ar ists expaniat a deseriptrior deed te 151,14 19,14, 15 Cele dus iste expats se rnzech to tip: in ecu exec eet ismuctisn) TO formate consul fat sceneach (npecesel) cen pes efomat pe mis ce farmaeres ae fen obit in ita 10 te sits sts cu conversa spect de deter de eae al dt Desipor Aeccitare ai conolfl alec paces dete fn pune In ae epee a esritoror de etre. Descripr de ere at coalt tu teas en foresponens eu bile in st 10. Specfeatin de format vida () se folseste cu isrcun 10 fk it de jobieete HO, La nar, fier pat esate o aes La ie pe eestor hak, aut 0 Modul de asa a contol format deine de nivel de ime sk rane in pic de fort ‘Contra ormatua sos dup wns reg 1)" Doct indiete ap deverpor de ear ou mal exh wn obit, ST Dac inlet rats cu adn dei spsifeael de forts ‘nts 10 smi est un be controll a teri "Dac neste prstes Gal specs de frm in ta UO mai ‘ext cbiet, contol Formats comin cunars Ta tins pane ng pe ‘aden Dac nu exist paaeze era rescence de sparta ung & Fermaul Se consierd can Sscrpor dete ssh ape dap peace po ae in espa tae parts in ste 1) Deck ae lo orvene prota din sga gl exit un factor de rept, cnt frau ine cot de Exempla Fe insects de tie a format fit ="(206,9). 4, 20218)" FREAD ff 12 12K Mt 2, 9,9, ‘Dupes in pi nis fost ite valli, 2K 12m el ol re on pr al en de forma tie eposiioncas a cpl ea maa ope sah ts cele 1, mI ener spel etre entolt forma ene spss de fomat tepid co ls panes ‘ang precede eae un ca fe eae dc fot.CAP. 16 FORTRAN 2003 16.1 Introducere \ Linbsjol Fontan ete un ib) de compte pny programa in domenile smite, nb eae Tost conepu atl inet tb excep Simrevrktte de oes. rio da bal Pra! standacat n 196, Sandra tt revit de tel om (1978 Fortean 7, 1991 —Fertan 90,1997 Fontan 85) Revit din 1991 a fest maior iar revi din 1978 911997 fs rela minore. pata ei, o evi mao, + ut In 204 (Fan 2003), in acest caitl presenti rene estes me eve ie facile ‘adougte 9 iene, rnd ar sll de snteca The em fers of Fontan 2003" se de J. Rei, ul da str eal sand (er htogai). Mul noo erent init naa de Foran 2003 figured inci in ‘male dconre explicate le limb egleze nn un depen glen ‘Sac a wobul sd are pen invents ure eonalag espero i ‘omdnt Tote dele despre nul standard Ferran 2003 rept git i documenta ‘uit in 200 de 80 9 TEC. Rents saves noes flat exemple {nin send stn se refer Is i) Foca pena ture drive: spur derivate parame, cil ‘ma bu acest ens de tacts muni nal alicr), il) Suport pers progamares nett spe bee exes till 9 !toxni, polinerfan, lear de pda, pace de ip bos. i) Fact pent monipalres dato components soe, parame de tin amin (detfered' ype) sisal VOLATILE, pecs dep exp In Eensietnt de blew insmtni de ale, eli poiter capes de ina exis exes pon procedure nme, in) Fal puto wanafer sino, sss, open de rans, ‘pecifiate de utlzaer, contol spcifeat deste a rte tn unpal Onerilor de erat, constant suite pera unt presmectt,lsinee FLUSH relriarescuttlr chew aces la mete Je are, veces poster, 1) Sapam pens excep standard IEEE 1989 pe ving ots, i) Ineoprbite xtinbae de programas C i) Super pens tarares intron ase la carat pets 80 "0646 alegre vrgule su pans cla nop output nomen ora. '&) “egrre cu Stem de opera ga see I epumetle ide comnd a arb med ime de orale procera Mai ext multe etn mine [ims reve este compat cu vehi andar Fora 95, ee nsx ‘tun progam crete canfor cu standard Fort 203 va Senn cecil 2 standrd Foran 95. Exel inde rispund docile tints atl a limba ortan crespnds neni de propraare ace fi pene ai ‘esti popael Nisei 162 Tipuri derivate parametrizate ‘In inj Fortran exis un mite abuact pin sae dep categorise {ha ame bra pe overt ics at. Aces mest ee vine fe ti Tipurile niiseel Sunt dette ae tints Tipunle lines sunt ne, ea, NULL() clr bp stun pone reed aren sti 9c a aceite en Soret pro. ‘act ms vem »procelurconvnsbil care actoneze ca un bons poste, declarer abt ABSTRACT INTERFACE REAL FUNCTION fa.) REAL INTENTIIN)=" abe END FUNCTION ENO INTERFACE ‘ir a exso proce acul Spr dvb pei te pine prose ‘Sut Retina, PROCEDURE (), POINTER: -p Decl p ca un pine niin oo iri pis, Ace pine se pte asi cue subtis sn ae. Toston PROCEDURE (TYPE{matrcs{KIND(2.000),m=10,n=20)), POINTER =: 9 est similar da specif e4poiterl poate seit oer cu @ fine ales Feast de ipl st paramere tip ‘tree pat ase a rez oe proce ‘Arbus por au cea rnb pea pine date => proc Ine rebut concorde laf ca angele alec argument duran Membr ep pote 0 poco ross st eet Fant al i rere un poner proved ini provedira up un got areal ibs Foran 95, Ei pemit stole fe anvenate (secu sine) ods co oie epreiaic— ‘mums binding) De em, asTYPE matic (ind. m,n) INTEGER KIND kind INTEGER. LEN mn \ REAL (kind): elem (m.n) PROCEDURE (1), POINTER :: solve END TYPE ‘TYPE (matrice ( KIND(0.000), mm =10,9=20 })):: 8 CALL at save (..) act meodaetnttsoun ei, cle main do anrem cu abc ste primes cu sl tp 164 Finaizare De un ip drt ot ept subrtin finale, Scop subir al ese etn pe ec ie a ue apc ecw a ‘fect e pl, pote Herts de dealscre lor compoentor uote tune end un bie de ace tp incl existe O sub alle ape de roceor in sod autor nip lic, Flalaren este reel Se pel nes ‘ne definite de wilt, ube isin de drgeren uot Fic abi al to pce dl ho ng we aman ($110). Tot arama de ip npn a argu dua tba he ‘sur Argumestul dummy a va aver atsbtl INTENT(OUT). Un oume de Srna filma ul in cele pit ma ate sbi ld pe Sel pO subrtin final av ven tn argue! duty cu seca pret de ip "nd fang ai rgumentl du aoe ae subratne le dese ip Se aplich rege waste al asocirt agumentlor, satel ch biel te ramet de ip Kini agtment dummy re ace ang i lr de al {ire temo subi elena Peni 0 deco cist fiis2 sunt subrtne file putem flo insane TET 1 Decorate tin ‘CONTAINS FINAL! fl, feis2 END TYPE T Se spoe oun ip dit ste liza dace orice fl de subtle sau dic ate ocomponeat car ext de ip filo dr cate se tote ‘seca © da nonpoiner ee Halt act tpl ete fake Cad un ‘cme bie bu inctene sexes apleat sbrtnn de alized {xs uns cae are angulparmet de tip core: Dsck ue rig att se ‘pele o brn clement cu parame de Wp kd ere, Mal depart, fst Semon nla ete ats dk ete Ubi, Heer’ compensa feat a fcta clement ee fina separa. Pesta un ip bret dct st lucent topdowa iscamal a mtn Roll but se prea esc ‘pencil cute msn nla 165 Proceduri legate de tip printron nume © procdurd poste feet de un tp ase pin sina de seletie «| compote dina ois ser lap acum a compost spe rovers ev on Deexeal insti defines pa iva T TYPE T " Declaratipentu componente conraINs PROCEDURE =: proc=> proc_maa PROCEDURE proce END TYPE T Ais poe_mea est laut eu name pe spree este produ lpn tebule 52 fe © proeslarh mada ss pred or evo irs xp iz un exempl de spel pestle tun cid sto vail ele CALL attproctay) Cun sng ume gear se pot accest tat mule proce legt. Penta cet insracynea PROCEDURE we nce pinta instutine GENERIC ca GENERIC: gon=> proc roe procs unde proct. prod, proc sus mant leptir specific fn aces ca ape a ‘wae proce acess prin sigur hae gence J ead 166 Atributul PASS 0 proce car este ccs prin-o compannt sa ae cept pits une rhe fle aces pin abet eal pin ae ene nvoes ain defat (est mod impli) se peste eh ea ente pat prim mpunent De pi aslCALL atproctey) a ec primo argument al proce clade al doen yg de ls oes ete ceil argument i an sar ipl dat Se opine eh procers ‘sc atibtl PASS. Dack ne doin oasel Se compe, su Webe pect ‘nod exit stu NOPASS PROCEDURE , NOPASS. poner: p -Atrnelobisnit PASS wei conf ama exit PROCEDURE, PASS <:proe su poate att al azure PROCEDURE. PASS(ar) :: procs Atgamental daria eet pst eben pie, tee fe lea rot parame dip ngune tba = fe st 16.7 Proceduri legate de un tip ea operatori © procs poste egal de un pt opera sa cao ature defi. fn acest cz proeda est secs nee Se fap ck cial de cet tip ee ‘cestil au na. Sita se rela cist GENERIC care ges Pres confines dips istics CONTAINS) aunt desler di ‘TYPE matice (kind. m9) INTEGER, KIND "kind INTEGER LEN mn REAL (kind): element (mn) CONTAINS. (GENERIC :: OPERATOR(+) => plust,plus2, puss GENERIC. OPERATOR(-) => assign, asin? 1 plist s assign? sunt doar penta mate! 1 Sol sunt mat ou le fpur END TYPE ‘TYPE mato kind (0.000), =40,n=20) ye | Invoca pst, apo assign nul sau ambel argument ee ib tpl de care ee et provera “Tutu reed aceene no nate oping pint singh pea se api elite obit pein apelriepoce 168 Extensiatipalal Un tip desta care my poseds stitutl SEQUENCE sau BIND(C) exe ‘seni Atul BIND(C) xz ca ils fe neroperl clit ‘De cxctp se pote extn il mate desi $16 ‘TYPE, EXTENDS ( mato): matree factorzata LOGICAL" faconsata~ FALSE REAL (matocukind ) factonimatickm, matin) END TYRE Un tip deriva cae posed atrbeal SEQUENCE stu BINDIC) ma et Un tip exis este extensible pl pen cre fet exes fos tren ip patime (peat Spe. Tot parame de ip. connec procedure lest de ipl pre sant mente del etn 9 Sint Coos pa Decrenpl, sre TYPE ( maticetacoriata kina(0.000), 10,10) :: clr o matice rela fictorzatt de dinensan 1010. Valorie parame i de tip sunt date de Pking, im, gi Pn. Components moreno posts Tt thelement Tn stil eins posed parame, componcae 9 rca legate cre san dette In propa define Msi sue sven componentle ane ‘ilactonzata yi Peter Til exins ae de asemene o component, nani componente patina EXPL "209" PRINT 942-2 END ASSOCIATE, Exempla 2 Asoceen uo arial dtp dvvat [ASSOCIATE (XC=> AXSKBIL/C ) XCKOV=XCMDV*PRODUCTIXCHEV(tn)) END ASSOCIATE. lal 3 Asoc c sefone de lou ASSOCIATE ( ARRAY=> AXMB(:)%C ) ARRAY N)SEV=ARRAY(NGT)REV ENDASSOIATE 2) ()) ice nue ete cuosct coun mume aca. Asoc we fen az nui aen any eae ma ae sributl POINTER su ACLOCATABLE dr cre ‘se aout TARGET doch sar ne. Atunc nd ne excuse [ASSOCIATE se evalu to exgrsile din bloc contra ia ane te fume ml rit Un it scam le wt i tai ce a htc onic I schinbares valor sl an inp cite asia cue vara Consruia ASSOCIATE powe Iii cu ae cms rod 16.12 Entiat potimorte ter dsr do ema plinerf eS nana i ct cen she TYPE fin sein che CASS Et Ware dn see Sev i cet in ipa exci Las momen a timp prr pd oe tue cum na te ot bn oe Sec tw gen dumny. Ensen caps pl dame po secs setae ses Su srocce de rgonent Aces tate permite si col pn ee 4 i ip at sonia es pet un pes, O en Se ‘ompatii dpa tp ine compte cu eo de acy dco osc pater caret eens pul sh eta ‘Un abies pone declare pessoal CLASS?) stn est polimert in mod mii acest ca Se cos hate cla pc eS one ch {Sloe compat cotta Scan met Sy ci alu tpt compat dp ip carga shall Ase Ta pare, de espa ze pce oan 98 c mgumt un pea sg pd Secret un pment dunn creel sosb a pointe bse ip deca ape scl arc one polar cela aero ek poten Ss car coun spent umn uit PASS fe potmat c pl eae ener tients de i ive exis peta a pert membre (Garam tng pliner ™ ™ 16.13 Constructia SELECT TYPE, Conanaia SELECT TYPE seca posts esc el mh nl re Soci sl cnet tial inal scales pet ‘poartd numele de selector. ™ “ aempll | Slr se aria (CLASS{ matcn(0.0), 10,10) ::fSELECT IVPE (f=>1) TYPE IS (mat) ‘los de msc \ TYPES (atic factorzata) "be do marin END SELECT ct tpl dna af I ee mation se exec primo ald oe se exch dtp iach exe main Tactoreat, Avice eet ‘feu numee soit este eat Ta ln cal constuci ASSOCIATE. In olen bloc putem sd folosim pet access extensle nel factor, actor TExemplal2 Oconststie SELECT TYPE mai labora TPE: punct REAL KY END TYPE punet ‘TYPE, EXTENDS (punt) =: punct 30 REAL Z END TYPE punct 30 ‘TYPE, EXTENDS (punt) :: punct_colorat INTEGER: oar END TYPE punct colnet TYPE ( pune, TARGET: TPE ( punet 90), TARGETS. TYPE { punctcolra) POINTER :: GLASS (pune SAU. Peau Come SELECT TYPE (Ae>P_ORC) CLASS Is (POINT) i ast impesta CLASS (punet)::A~ PRINT 35x AGH 1 sexo acnt Blo TYPE IS (punct $0) 1%S asta impiesta “TYPE (punet 0) A= PRINT", AWK ANY, ANE END SELECT Mai sus in ecarblo mmc are spl delat au clas dat de sasrucinea ‘TYPE IS su insuctines GLASS TS. luc ete ales dacs 1) act se pout un bse TYPE 1S, ol exe wet, fi) ah aca a sngurbloe CLASS 5 potvete bleu se slater, fi) afl dacs potivesc ma multe Hocus CLASS, anal wee st fe a Un tip dcvt sevens weve specifi in aet fe, Pots xine san ‘oe CLASS DEFAULT. Elen sled i ua le na es stat tte rumel sca ae acai i dsc sectoral, 16.14 Legituri amanate 5 tipuriabstracte Es tua aes pt rok eat en fp Se sat ar pent extensile till eae mint ma pane, Tip. sees se pl ‘id roe st dtp ener nal Seda i sup Bie Gent one. Un asemenes conportamen e pte sigue pin ese ula in abr etree ann Pe cers pe TYPE, ABSTRACT ::fie_handia CONTAINS. ‘PROCEDURE (OPEN FILE}, DEFFERED, PASS :: OPEN END TYPE ABSTRACT INTERFACE ‘SUBROUTINE OPEN FILE (HANDLE) ‘CLASS (FILE_ HANDLE) INTENT (NOUT). END SUBROUTINE OPEN, PLE END INTERFACE In acstexcmpl ita ete ca exes puss wih componente cae in date despre fier! OPEN sa ha cola rine pore ere ones ‘SSE dt penn ol dese Ente plinorte pt @ decate cu np sbi Ins ete peri 8 ‘lari, acim sans un shit mime det anonenee ip Be ‘serene ole polino ee pie doa en ipl abe HANDLE 16.18 Constructori de structuri sts de valor a unui constr de srt pt flo sina une liste de sxumen ace hie hw est ae de compere Sep om ompeentle cies i sa dt vale dft i defini pul Acca tpi Putt flo consractr de rac pes tare au componente pt ts ap {Stcompoencle pvate a ao deb Desir ni une compet nae pss 4 o slow explicit mat mult deo st lar Yaanle expt au poate sop selon desi Dae tpl ae parame dei, act vale det wee sposemarce{KIND(O.0jm=10.n-20) (lmert=0.0) Un ne eerie pst aac dip tv eda at ack refer no ache, Aceass se st soca sos bap. 16.16 Instructlunea ALLOCATE Aribual ALLOCATABLE na msi ce resins dour balou, Se pose ‘pesin 0 vari srsh pent ® fan val parametrr 8 ip ana 9 ‘Elo soils bes ins Deexemila stucbale TYPE (matic(KINO(0.000), m=10, n=20))::2 ‘TYPE (matice(KINO(0.000), m= n=), ALLOCATABLE ALLOCATE (0 SOURCE=2) [ALLOCATE (@.S0URCE-a} loca obiectlar sare B 5 € tii de dines 1020 cu valuta a, Dad SOURCE se prevent, imractuncs ALLOCATE aloct doar obits Expret ‘SOURCE tele son pal obits cen fot lost set iain Tan Sear sau un ublu de sel ang casio ce ot ale (Cetera parame ep aminat pote special print ecaraie espa tact ALLOCATE: [ALLOCATE (matce{KIND(0.00), m=10,n=20) :b,e) Dect acest caster ent fos Ino instiine ALLOCATE ma mai ‘ste alas tare ito vari sus, ‘cs ipl posed orice p depart ana rebuie fost o eo seu eal, Dac este flesst din mete, Rear ec lca di itl ui lh ace psumet dep emda evra sus sau deli de ip Tnstrcjunea ALLOCATE. pote specfin 9 tpl diame al nu obit posimor De xen CLASS (matree(KIND(O 0), 10,10. abed ALLOCATE (matice tatorizsa (kind. 30,10)::b,6) [ALLOCATE ( SOURCE=a) 1 pul dmamic dn © instsjiune ALLOCATE stu DEALLOCATE poste shea oponl un ps: Sisor ERFRMSG= ce deified vriahll salar crc dfs Dac i pul ‘cui instigate oereure, posse able aril une xpi. Dect oaserene onde na apare, vale ares se seb 16.17 Atibuirea unui tablow alocabit Aut we varie soil ete ih Isl x i conponesta ne ‘sl slab ade als de eae lca a ons core dod oe esl sulci forma crea code local oi flo Decnemp nal tnttanr SIZE(COMPRESS(8) TF (ALLOCATED (9) ) THEN IP(SIZEIA) 5) DEALLOCATE (a) END IF ( NOT. ALLOCATED(A)) ALLOCATE (AS)) A= COMPRESS) ‘A= COMPRESSIB) sam puts ote sea fect. 16.18 Transferul une alocdrh Pent mua alocuea de fun obit 1a ll» fp intods sabrina MOVE ALLOC{FROMTO) Ame spuneterebie fe lacie ean oc tbe i aceleji, TO tele be compat ca tp cu FROM 9 3 Ne Dolio dact FROM ese plinat.Fecaepruty dep nena ete cei vabare casi purametl cospunar in FROM, Dip ape, auc FROM devine neta Acasa api relocaren uci! eee sane Progra sora moduli eae sche date su pe nan Sle mo, REAL, ALLOCATABLE::: GRID(), TEMPGRIDG) ALLOCATE (GRIDNN)) | alocaroa ints aki GRIO ALLOCATE (TEMPGRID(2°N:2°N) 1 aloe ogra mai mare TEMPGRID( -2)-GRID | asi valor nove loca CALL MOVE_ALLOC (TO=GRID FRONTEMPSAID) Acca, rn ure, ne finizen fia de ela ce eit problema cae ‘cpl tae ince nei snume dvi cun 3 inprsiom veh se inebetl nx16.19 Control sporit al accesulul dintr-un modut Ese post! un coool mm mai deta ol sccesuas birun mod ‘Componestle ise le uu! i deat pa fda PUBLIC sau PRIVAT: TYPE(EXTENDSiparson):=-paron | component paints are 1% peosan aocesbiliate cas tpl parte CHARACTER) ,ALLOCATABLE, PUBLIC: name INTEGER, PRIVATE: ape END TYPE Unie ise pete sk fe PUBLIC chiar ac tli ete PRIVATE. Accslates omponencor un tp ese indepenent de secon pl ‘Ase ese posbil sven un tip PUBLIC c1compancnd PRIVATE ta ip PRIVATE co components PUBLIC ‘egatune un ipp f destarate PUBLIC su PRIVATE: PROCEDURE. PUBLIC, PASS, POINTER: GENERIC, PUBLIC gone> proct,proc2 GENERIC, PRIVATE “operato=) “plus ps2, puss © subrusiad finlt ae poate 6 dette PUBLIC sau PRIVATE, Fa este ‘wotdenun spon poi fiaiaren ce! vane dep ‘Unelvale san otra tn mod ae pte ali srt [PROTECTED cate speci cs valores nt sau stata pone pote fala ‘earns modu Ace aa poste dlr so eo REAL, PROTECTED a ‘sa sara net nsrstns PROTECTED. PROTECTED ::a.b act un obisct we abut PROTECTED, sts ote sobobistle salem ‘Dat un poner ae stibuul PROTECTED, sani ee pti stocees poi, st mu valet iat ‘Rees ce ete fare wild pei labor sofware robust lta fel cate o ciate partes caput INTENTIN) pet ub argument danny Nrloarea ese lcd dapat isd schinfanea me ext pert Atul [PROTECTED se poste spies darn dull dsl ong, Dac un od foloege_o_vrbla netted ‘ct modal mut Se poae phen tbat PROTECTED: 16.20 Renumirea operatorilorintr-o instructiune USE In ortan 2003 este permis & reurin operator care nu sit operon USE my module, OPERATOR( My_ Ad) => OPERATOR( ADD.) Peo no cu My. Ad epentral ADD. acs in mod 1621 Atribuires POINTER A fost extn aribtea pointer penta tablet ast inet permis species elo deo (0.0}=3 Limite eos pot rice eres saa nop spo remapare leenilr ul alo de rng (i. 1:m peat: 2 Mapas fae in one clemenilor de abou ira int bul ie sufcent de mare Limite pot hoe exes arene mite la tblown de angel are loo douueee my ete olisoia ‘ubloure pout 5 cape 0 298 dese aig a=90(1:102) ‘ns atari rth ase ng ncaa ng Param Sip luge st anak poor ptf una (dec a Aribite poter ds sceor slo paranetl conspuntr atin. ToH eel parame de tip ai poimerfi bul sist sey talon sa prance HP 16.22 Atvibutul INTENT pentru pointer In Foran 95, pent argunente punter dummy_ni te pemist spices stl INTENT. Rd! ea arp ce serfs la stl de soir a Primal. vaenrea tel sau ano: fn Fon 2008 ese pemis aol INTENT: ei several sant de soe af poner ma re ii e-fceo valerie o1623 Atributul VOLATILE Pen a indica values una absense pte emits pin miloace nespeiiate in program, de excl de ce un al program et exec apt ‘ea itodas atautl VOLATILE cra un postr, strut eet stl ttt de aster ua i faa! sat bit scabs Yer att fied 1 ind wo bet are atta VOLATILE el poste var ine aie sping. actin bie ae ail VOLATILE tse saobecee ale a de series cesta els consti aera cco eben

You might also like

• 3 Python

  

  100% (1)

  3 Python

  464 pages
• Licenta Grile Info UCV

  

  No ratings yet

  Licenta Grile Info UCV

  6 pages
• C++ Programming-TRADUS

  

  100% (1)

  C++ Programming-TRADUS

  1,429 pages
• Bazele Programarii in Java PDF

  

  100% (4)

  Bazele Programarii in Java PDF

  370 pages
• 5 Programarea Robotilor in Python

  

  No ratings yet

  5 Programarea Robotilor in Python

  573 pages
• Introducere in C++

  

  100% (6)

  Introducere in C++

  170 pages
• Calcul Tabelar - Microsoft Excel 2013 (Color)

  

  No ratings yet

  Calcul Tabelar - Microsoft Excel 2013 (Color)

  40 pages
• GATE - Mathematics (Maths For GATE Exam) Stark

  

  100% (17)

  GATE - Mathematics (Maths For GATE Exam) Stark

  441 pages
• Super Cool Book

  

  100% (4)

  Super Cool Book

  50 pages
• Programarea de Sistem in UNIX PDF

  

  No ratings yet

  Programarea de Sistem in UNIX PDF

  136 pages
• ASC Cap1 2018 2019 PDF

  

  No ratings yet

  ASC Cap1 2018 2019 PDF

  194 pages
• Curs

  

  No ratings yet

  Curs

  343 pages
• Stat Matlab PDF

  

  No ratings yet

  Stat Matlab PDF

  402 pages
• Fb2b 8ian At1pe2-Revian2009

  

  No ratings yet

  Fb2b 8ian At1pe2-Revian2009

  110 pages
• So Cap1 2023-2024

  

  No ratings yet

  So Cap1 2023-2024

  85 pages
• Calcul Stiintific Java

  

  No ratings yet

  Calcul Stiintific Java

  210 pages
• Introducere in Sisteme de Operare by Rughini R Deaconescu R Milescu G Bardac M

  

  No ratings yet

  Introducere in Sisteme de Operare by Rughini R Deaconescu R Milescu G Bardac M

  551 pages
• Elemente Avansate de Programare in Lisp Si Prolog

  

  No ratings yet

  Elemente Avansate de Programare in Lisp Si Prolog

  136 pages
• Programarea in C++ (David Conger)

  

  No ratings yet

  Programarea in C++ (David Conger)

  178 pages
• Eugen Zaharescu - Bazele Informaticii Aplicate in Economie Pascal Excel

  

  No ratings yet

  Eugen Zaharescu - Bazele Informaticii Aplicate in Economie Pascal Excel

  135 pages
• Statistic A Matlab

  

  No ratings yet

  Statistic A Matlab

  402 pages
• Programare Procedurala - Curs

  

  No ratings yet

  Programare Procedurala - Curs

  92 pages
• Programare Procedurala

  

  No ratings yet

  Programare Procedurala

  67 pages
• Asm Labs

  

  No ratings yet

  Asm Labs

  87 pages
• PM Curs 6-Merged PDF

  

  No ratings yet

  PM Curs 6-Merged PDF

  49 pages
• Fly High 2 Flashcards (Vocabulary and Alphabet)

  

  100% (4)

  Fly High 2 Flashcards (Vocabulary and Alphabet)

  241 pages
• Colocviu AC

  

  No ratings yet

  Colocviu AC

  20 pages
• Curs C Romana

  

  No ratings yet

  Curs C Romana

  259 pages
• Book Basics of Programming in C++ Tudor 2010

  

  No ratings yet

  Book Basics of Programming in C++ Tudor 2010

  80 pages
• Prog Lab 9

  

  No ratings yet

  Prog Lab 9

  23 pages
• A-Pgthon: Limbaje de Programare I

  

  No ratings yet

  A-Pgthon: Limbaje de Programare I

  11 pages
• Referat: Fisiere, Baze de Date"

  

  No ratings yet

  Referat: Fisiere, Baze de Date"

  10 pages
• Laborator2 3 SDA

  

  No ratings yet

  Laborator2 3 SDA

  18 pages
• PC Lab4

  

  No ratings yet

  PC Lab4

  10 pages
• 1

  

  No ratings yet

  1

  3 pages
• New Microsoft Word Document

  

  No ratings yet

  New Microsoft Word Document

  4 pages
• Lab 6 Exemplul 1:citeste de La TST Si Le Transmite Prin Coada de Mesaje

  

  No ratings yet

  Lab 6 Exemplul 1:citeste de La TST Si Le Transmite Prin Coada de Mesaje

  6 pages
• Lab 2

  

  No ratings yet

  Lab 2

  11 pages
• Setul de Instructiuni 8086: Exemple

  

  No ratings yet

  Setul de Instructiuni 8086: Exemple

  10 pages
• Teza 7

  

  No ratings yet

  Teza 7

  3 pages
• PLPF Probl Prolog

  

  No ratings yet

  PLPF Probl Prolog

  5 pages
• SodaPDF-converted-Papercraft Wanted Luffy Line

  

  No ratings yet

  SodaPDF-converted-Papercraft Wanted Luffy Line

  8 pages
• Oferta Pret JCB 4 CX

  

  No ratings yet

  Oferta Pret JCB 4 CX

  9 pages
• Cup Rins

  

  No ratings yet

  Cup Rins

  5 pages
• Programare Procedurala

  

  No ratings yet

  Programare Procedurala

  3 pages
• Intrebari: Electronica Digitala

  

  No ratings yet

  Intrebari: Electronica Digitala

  16 pages