For Beginners & Professional Hackers

home *** CD-ROM | disk | FTP | other *** search

/ For Beginners & Professional Hackers / cd.iso / docum / fortr.doc / fortran3.doc < prev next >

Wrap

Text File | 1990-07-23 | 123.2 KB | 2,992 lines

ÄÅàÉÇÆÄÉ¢. Oü ¥ÆÄë âïÇéà. B φΓo⌐ ú½aóe o»¿ca¡δ óce Γ¿»δ o»epaΓopoó, coñepªaΘ¿xc∩ ó MC- ö«αΓαá¡Ñ, ó oíΘe»p¿¡∩Γδx Γep¼¿¡ax. To ªe ca¼oe »oºóo½∩eΓ cñe½aΓ∞ ¿ c»paóoτ¡¿¬ o»epaΓopoó: ñ½∩ ¬aªñoúo o»epaΓopa o»¿ca¡δ eúo ¡aº¡aτe- ¡¿e, c¿¡Γa¬c¿c ¿ ocoíe¡¡ocΓ¿ e¼π »p¿cπΘ¿e, a Γa¬ ªe ¬o¼e¡Γap¿¿ ¿ »p¿¼epδ ¿c»o½∞ºoóa¡¿∩. COäEPåAHêE. 1.èÇÆàâÄÉêê ÄÅàÉÇÆÄÉÄé. . 3-1 1.1.Ä»ÑαáΓ«αδ PROGRAM, SUBROUTINE, FUNCTION ¿ BLOCK DATA. . . . . 3-1 2.ÄÅàÉÇÆÄÉ¢ ÄÅêæÇìêƒ. . . 3-1 2.1.O»epaΓop DATA. . . . . 3-2 2.2.O»epaΓop FORMAT. . . . 3-2 2.3.O»epaΓop »p¿cóa¿óa¡¿∩. 3-2 2.4.O»epaΓopδ π»paó½e¡¿∩. 3-2 2.5.O»epaΓopδ óóoña/óδóoña. 3-3 3.CÅÉÇéÄùìêè ÄÅàÉÇÆÄÉÄé. . 3-4 ASSIGN . . . . . . . . . . 3-4 Åp¿cóoe¡¿e . . . . . . . . 3-5 BACKSPACE . . . . . . . . 3-8 BLOCK DATA . . . . . . . . 3-8 CALL . . . . . . . . . . . 3-9 CLOSE . . . . . . . . . . 3-11 COMMON . . . . . . . . . . 3-12 CONTINUE . . . . . . . . . 3-13 DATA . . . . . . . . . . . 3-13 DIMENSION . . . . . . . . 3-14 DO . . . . . . . . . . . . 3-16 ELSE . . . . . . . . . . . 3-18 ELSEIF . . . . . . . . . . 3-18 END . . . . . . . . . . . . . . . . . . . . . . . . . . . . 3-19 ENDFILE . . . . . . . . . . . . . . . . . . . . . . . . . . 3-19 ENDIF . . . . . . . . . . . . . . . . . . . . . . . . . . . 3-20 EQUIVALENCE . . . . . . . . . . . . . . . . . . . . . . . . 3-20 EXTERNAL . . . . . . . . . . . . . . . . . . . . . . . . . . 3-22 FORMAT . . . . . . . . . . . . . . . . . . . . . . . . . . . 3-23 FUNCTION . . . . . . . . . . . . . . . . . . . . . . . . . . 3-24 GOTO (»α¿ßóá¿óáÑ¼δ⌐) . . . . . . . . . . . . . . . . . . . . 3-25 GOTO (óδτ¿ß½∩Ñ¼δ⌐) . . . . . . . . . . . . . . . . . . . . . 3-26 GOTO (íÑºπß½«ó¡δ⌐) . . . . . . . . . . . . . . . . . . . . . 3-27 IF (ap¿Σ¼eΓ¿τec¬¿⌐) . . . . . . . . . . . . . . . . . . . . 3-27 IF (½«ú¿τÑß¬¿⌐) . . . . . . . . . . . . . . . . . . . . . . 3-28 IF THEN ELSE (í½«¬) . . . . . . . . . . . . . . . . . . . . 3-28 IMPLICIT . . . . . . . . . . . . . . . . . . . . . . . . . . 3-30 INQVIRE . . . . . . . . . . . . . . . . . . . . . . . . . . 3-31 INTERFACE . . . . . . . . . . . . . . . . . . . . . . . . . 3-34 INTRINSIC . . . . . . . . . . . . . . . . . . . . . . . . . 3-34 LOCKING . . . . . . . . . . . . . . . . . . . . . . . . . . 3-35 OPEN . . . . . . . . . . . . . . . . . . . . . . . . . . . . 3-36 PARAMETER . . . . . . . . . . . . . . . . . . . . . . . . . 3-39 PAUSE . . . . . . . . . . . . . . . . . . . . . . . . . . . 3-40 PROGRAM . . . . . . . . . . . . . . . . . . . . . . . . . . 3-41 READ . . . . . . . . . . . . . . . . . . . . . . . . . . . . 3-41 RETURN . . . . . . . . . . 3-43 REWIND . . . . . . . . . . 3-43 SAVE . . . . . . . . . . . 3-44 öπ¡¬µ¿∩-«»ÑαáΓ«α . . . . . 3-44 STOP . . . . . . . . . . . 3-45 SUBROUTINE . . . . . . . . 3-46 Æ¿» . . . . . . . . . . . 3-46 WRITE . . . . . . . . . . 3-47 1.èÇÆàâÄÉêê ÄÅàÉÇÆÄÉÄé. Ä»ÑαáΓ«αδ «íÑß»Ñτ¿óáεΓ α∩ñ Σπ¡¬µ¿⌐, Γá¬¿σ ¬á¬ óδτ¿ß½Ñ¡¿∩, ºá»«¼¿¡á¡¿Ñ αÑºπ½∞ΓáΓ«ó óδτ¿ß½Ñ¡¿⌐, Σ«α¼¿α«óá¡¿Ñ π»αáó½Ñ¡¿∩, τΓÑ¡¿Ñ ¿ ºá»¿ß∞ Σá⌐½«ó ¿ «íÑß»ÑτÑ¡¿Ñ ¿¡Σ«α¼áµ¿¿ ñ½∩ ¬«¼»¿½∩Γ«αá. Ä»ÑαáΓ«αδ ö«αΓαá¡á ñÑ½∩Γß∩ ¡á ñóá «ß¡«ó¡δσ ¬½áßßá : óδ»«½¡∩- Ñ¼δÑ ¿ ¡Ñóδ»«½¡∩Ñ¼δÑ. éδ»«½¡∩Ñ¼δÑ «»ÑαáΓ«αδ, íπñπτ¿ π»«ΓαÑí½Ñ¡¡δ¼¿, óδºδóáεΓ ñÑ⌐ßΓó¿Ñ. ìÑóδ»«½¡∩Ñ¼δÑ «»ÑαáΓ«αδ ßá¼¿ »« ßÑíÑ ñÑ⌐ßΓó¿⌐ ¡Ñ óδºδóáεΓ. é¼ÑßΓ« φΓ«ú« «¡¿ «»αÑñÑ½∩εΓ, «»¿ßδóáεΓ ¿½¿ ¬½áßß¿Σ¿µ¿απεΓ φ½Ñ¼Ñ¡Γδ »α«úαá¼¼, Γá¬¿Ñ ¬á¬ óσ«ñ¡δÑ Γ«τ¬¿, ñá¡¡δÑ ¿½¿ »α«úαá¼¼¡δÑ Ññ¿¡¿µδ. è ¡Ñóδ»«½¡∩Ñ¼δ¼ «»ÑαáΓ«αá¼ «Γ¡«ß∩Γß∩ ß½ÑñπεΘ¿Ñ : 1. Ä»ÑαáΓ«αδ PROGRAM, SUBROUTINE, FUNCTION ¿ BLOCK DATA 2. Ä»ÑαáΓ«αδ «»¿ßá¡¿⌐ 3. Ä»ÑαáΓ«α DATA 4. Ä»ÑαáΓ«α FORMAT éδ»«½¡∩Ñ¼δÑ «»ÑαáΓ«αδ »αÑñßΓáó½∩εΓ ß«í«⌐ ßπΘÑßΓóÑ¡¡« í«½∞Φπε úαπ»»π ¿ ¼«úπΓ íδΓ∞ αáºñÑ½Ñ¡δ ¡á ß½ÑñπεΘ¿Ñ ¬áΓÑú«α¿¿ : 1. Ä»ÑαáΓ«αδ »α¿ßó«Ñ¡¿∩ 2. Ä»ÑαáΓ«αδ π»αáó½Ñ¡¿∩ 3. Ä»ÑαáΓ«αδ óó«ñá/óδó«ñá. 1.1.Ä»ÑαáΓ«αδ PROGRAM, SUBROUTINE, FUNCTION ¿ BLOCK DATA. ¥Γ¿ «»ÑαáΓ«αδ «»αÑñÑ½∩εΓ ¡áτá½« »α«úαá¼¼¡«⌐ Ññ¿¡¿µδ, óßÑ «¡¿ ¡Ñóδ»«½¡∩Ñ¼δÑ. ä«»«½¡¿ΓÑ½∞¡πε ¿¡Σ«α¼áµ¿ε ß¼«Γα¿ΓÑ ¡¿ªÑ ó φΓ«⌐ ú½áóÑ. ü«½ÑÑ »«ñα«í¡πε ¿¡Σ«α¼áµ¿ε « »α«úαá¼¼¡δσ Ññ¿¡¿µáσ ß¼«Γα¿ΓÑ ó ú½áóÑ 5 "Åα«úαá¼¼δ, »α«µÑñπαδ ¿ Σπ¡¬µ¿¿". 2.ÄÅàÉÇÆÄÉ¢ ÄÅêæÇìêƒ. é îæ-ö«αΓαá¡Ñ «»ÑαáΓ«αδ «»¿ßá¡¿∩ ¡Ñóδ»«½¡∩Ñ¼δÑ. Ä¡¿ «»¿ßδóáεΓ áΓα¿íπΓδ «»αÑñÑ½Ñ¡¡δσ »«½∞º«óáΓÑ½Ñ¼ ¿¼Ñ¡ »ÑαÑ¼Ñ¡¡δσ, ¼áßß¿ó«ó ¿ Σπ¡¬µ¿⌐. é ß½ÑñπεΘÑ⌐ Γáí½¿µÑ »α¿óÑñÑ¡δ ñÑó∩Γ∞ «»ÑαáΓ«α«ó «»¿ßá¡¿⌐. ───────────────╥──────────────────────────────────────────────── Ä»ÑαáΓ«α ║ ìáº¡áτÑ¡¿Ñ ───────────────╫──────────────────────────────────────────────── COMMON ║ ÄíÑß»Ñτ¿óáÑΓ ß«ó¼ÑßΓ¡«Ñ ¿ß»«½∞º«óá¡¿Ñ »á¼∩Γ¿ ║ ñóπ¼∩ ¿½¿ ¡Ñß¬«½∞¬¿¼¿ »α«úαá¼¼¡δ¼¿ Ññ¿¡¿µá¼¿ ───────────────╫──────────────────────────────────────────────── DIMENSION ║ Ä»¿ßδóáÑΓ ¿¼∩, «»αÑñÑ½Ñ¡¡«Ñ »«½∞º«óáΓÑ½Ñ¼, ¬á¬ ║ ¼áßß¿ó ¿ «»αÑñÑ½∩ÑΓ τ¿ß½« Ñú« φ½Ñ¼Ñ¡Γ«ó ───────────────╫──────────────────────────────────────────────── EQUIVALENCE ║ Ä»αÑñÑ½∩ÑΓ, τΓ« ñóÑ ¿½¿ í«½ÑÑ »ÑαÑ¼Ñ¡¡δσ ¿½¿ ║ ¼áßß¿óá ¿ß»«½∞ºπεΓ «ñ¡π ¿ Γπ ªÑ »á¼∩Γ∞ ───────────────╫──────────────────────────────────────────────── EXTERNAL ║ Ä»αÑñÑ½∩ÑΓ ºáñá¡¡«Ñ »«½∞º«óáΓÑ½Ñ¼ ¿¼∩ ¬á¬ ║ ó¡ÑΦ¡εε »α«µÑñπαπ ¿½¿ Σπ¡¬µ¿ε ───────────────╫──────────────────────────────────────────────── IMPLICIT ║ Ä»αÑñÑ½∩ÑΓ Γ¿» »« π¼«½τá¡¿ε ñ½∩ ¿¼Ñ¡, ║ «»αÑñÑ½Ñ¡¡δσ »«½∞º«óáΓÑ½Ñ¼ ───────────────╫──────────────────────────────────────────────── INTERFACE ║ Ä»¿ßδóáÑΓ »«ñ»α«úαá¼¼π ───────────────╫──────────────────────────────────────────────── INTRINSIC ║ ÄíΩ∩ó½∩ÑΓ ¿¼∩ óßΓα«Ñ¡¡«⌐ Σπ¡¬µ¿Ñ⌐ ───────────────╨──────────────────────────────────────────────── ───────────────╥──────────────────────────────────────────────── Ä»ÑαáΓ«α ║ ìáº¡áτÑ¡¿Ñ ───────────────╫──────────────────────────────────────────────── SAVE ║ çáßΓáó½∩ÑΓ »ÑαÑ¼Ñ¡¡δÑ ß«σαá¡∩Γ∞ ¿σ º¡áτÑ¡¿∩ ║ »α¿ óδσ«ñÑ ¿º »α«µÑñπαδ, ó ¬«Γ«α«⌐ «¡¿ ║ «»αÑñÑ½Ñ¡δ ───────────────╫──────────────────────────────────────────────── Ä»¿ßá¡¿Ñ Γ¿»á ║ Ä»αÑñÑ½∩ÑΓ Γ¿»δ ¿¼Ñ¡, ºáñá¡¡δσ »«½∞º«óáΓÑ½Ñ¼ ───────────────╨──────────────────────────────────────────────── O»epaΓopδ o»¿ca¡¿∩ ñ«½ª¡δ »peñΦecΓóoóaΓ∞ óce¼ óδ»o½¡∩e¼δ¼ o»epaΓopa¼, »op∩ño¬ ó »peñe½ax ¿x coícΓóe¡¡o⌐ úpπ»»δ ¡e ¿¼eeΓ º¡aτe¡¿∩. êc¬½ετe¡¿e¼ ¿º φΓoúo »paó¿½a ∩ó½∩eΓc∩ o»epaΓop PARAMETER, ¬oΓopδ⌐ ño½ªe¡ »peñΦecΓóoóaΓ∞ óce¼ o»epaΓopa¼ o»¿ca¡¿∩, coñepªaΘ¿¼ c¿¼óo½∞¡δe ¬o¡cΓa¡Γδ »o º¡aτe¡¿ε, a Γa¬ ªe o»epaΓop IMPLICIT, ¬oΓopδ⌐ »peñΦecΓóπeΓ óce¼ o»epaΓopa¼ o»¿ca¡¿∩ ¿c¬½ετa∩ PARAMETER. 2.1.O»epaΓop DATA. O»epaΓop DATA ºañaeΓ ¡aτa½∞¡oe º¡aτe¡¿e »epe¼e¡¡δ¼. O»epaΓop DATA ∩ó½∩eΓc∩ ¡eoí∩ºaΓe½∞¡δ¼, ¡eóδ»o½¡∩e¼δ¼ o»epaΓopo¼. O¡ ño½ªe¡ cΓo∩Γ∞ »oc½e o»epaΓopoó o»¿ca¡¿∩, ¡o ¼oªeΓ íδΓ∞ »epe¼eΦa¡ c o»epa- Γopa¼¿-Σπ¡¬µ¿∩¼¿ ¿ óδ»o½¡∩e¼δ¼¿ o»epaΓopa¼¿. 2.2.O»epaΓop FORMAT. O»¿ca¡¿e Σop¼aΓa oíec»eτ¿óaeΓ ¬o¡¬peΓ¡δ⌐ ó¿ñ (Γ¿») ¿¡Σop¼aµ¿¿ ñ½∩ ña¡¡δx, oípaíaΓδóae¼δx »poúpa¼¼o⌐. O»¿ca¡¿e Σop¼aΓa ¼oªeΓ íδΓ∞ ºaña¡o o»epaΓopo¼ FORMAT, a Γa¬ ªe ¬o¡¬peΓ¡δ¼ ó¿ño¼ ¬o¡cΓa¡Γ (c¼o- Γp¿Γe ú½aóπ 4 úñe ecΓ∞ ño»o½¡¿Γe½∞¡a∩ ¿¡Σop¼aµ¿∩ »o ºaña¡¿ε Σop¼aΓa ña¡¡δx) 2.3.O»epaΓop »p¿cóa¿óa¡¿∩. O»epaΓopδ »p¿cóa¿óa¡¿∩ ∩ó½∩εΓc∩ óδ»o½¡∩e¼δ¼¿ o»epaΓopa¼¿ ¬o- Γopδe »epeñaεΓ º¡aτe¡¿∩ »epe¼e¡¡δ¼ ¿½¿ φ½e¼e¡Γa¼ ¼acc¿óa. CπΘecΓ- óπeΓ ñóa oc¡oó¡δx Γ¿»a o»epaΓopoó »p¿cóa¿óa¡¿∩: óδ»o½¡∩e¼δe ¿ ¡¿Γ¬¿ (label). 2.4.O»epaΓopδ π»paó½e¡¿∩. O»epaΓopδ π»paó½e¡¿∩ πcΓa¡aó½¿óaεΓ »op∩ño¬ óδ»o½¡e¡¿∩ o»epa- Γopoó ö«αΓαá¡a. ô»paó½∩εΘ¿e o»epaΓopδ Mæ-ö«αΓαá¡a »o¬aºa¡δ ó ¡¿ªe- c½eñπεΘe⌐ Γaí½¿µe, ó ¬oΓopo⌐ ¬paΓ¬o o»¿ca¡o Σπ¡¬µ¿o¡a½∞¡oe ¡aº¡a- τe¡¿e ¬aªñoúo. ┌────────────┬───────────────────────────────────────────┐ │ OÅEPATOP¢ │ HAçHAùEHêE │ ├────────────┼───────────────────────────────────────────┤ │ CALL │ BδºδóaeΓ ¿ óδ»o½¡∩eΓ »oñ»poúpa¼¼δ │ │ │ (subroutine) │ │ │ ¿º ñpπú¿x »poúpa¼¼¡δx eñ¿¡¿µ. │ ├────────────┼───────────────────────────────────────────┤ │ │ êc»o½∞ºπeΓc∩ »pe¿¼πΘecΓóe¡¡o ñ½∩ »poño½. │ │ CONTINUE │»πΓ¿ c Γoúo ¼ecΓa,úñe cΓo∩Γ ¡a¼eτe¡¡δe o»Ñ-│ │ │αáΓopδ,ó τacΓ¡ocΓ¿ ¿c»o½∞ºπeΓc∩ ó ¬aτecΓóe │ │ │ ¬o¡eτ¡oúo o»epaΓopa ó o»epaΓope µ¿¬½a DO.│ ────────────┴──────────────────────────────────── ┌────────────┬───────────────────────────────────────────┐ │ OÅEPATOP¢ │ HAçHAùEHêE │ ├────────────┼───────────────────────────────────────────┤ │ DO │ Opúa¡¿ºoóδóaeΓ »oóΓop¡oe óδ»o½¡e¡¿e o»epa│ │ │ Γ«α«ó ß½ÑñπεΘ¿σ ºá DO ¿ ó»½«Γ∞ ñ« ¬«¡Ñτ- │ │ │ ¡«ú« «»ÑαáΓ«αá. │ ├────────────┼───────────────────────────────────────────┤ │ ELSE │ ÄΓ¡«ß¿Γß∩ ¬ í½«¬π ELSE. │ ├────────────┼───────────────────────────────────────────┤ │ ELSEIF │ OΓ¡«ß¿Γß∩ ¬ í½«¬π ELSEIF. │ ├────────────┼───────────────────────────────────────────┤ │ END │ çaóepΦaeΓ óδ»o½¡e¡¿e »poúpa¼¼o⌐ eñ¿¡¿µδ. │ ├────────────┼───────────────────────────────────────────┤ │ ENDIF │ ô¬aºδóaeΓ ¬o¡eµ ¡aíopa cep¿¿ o»epaΓopoó, │ │ │ c½eñπεΘ¿x ºa í½«¬«¼ «»ÑαáΓ«αá IF. │ ├────────────┼───────────────────────────────────────────┤ │ │ ÅepeñaeΓ π»paó½e¡¿e ó ¬a¬oe-½¿ío ¼ecΓo │ │ GO TO │ »α«úαá¼¼δ,ó¬½ετáÑΓ ß½ÑñπεΘ¿Ñ αáº¡«ó¿ñ¡«ß-│ │ │Γ¿:»α¿ßóá¿óáÑ¼δ⌐,óδτ¿ß½∩Ñ¼δ⌐ ¿ íÑºπß½«ó¡δ⌐.│ ├────────────┼───────────────────────────────────────────┤ │ IF │ Opúa¡¿ºoóδóaeΓ óδ»o½¡e¡¿e »o πc½oó¿ε ñpπ-│ │ │ ú¿σ o»epaΓopoó,ºaó¿c∩Θ¿x oΓ º¡aτe¡¿⌐ o»- │ │ │ αÑñÑ½Ñ¡¡«ú« óδpaªe¡¿∩.Paº½¿τaεΓ c½eñπεΘ¿e│ │ │ ó¿ñδ o»epaΓopa IF - ap¿Σ¼eΓ¿τec¬¿⌐, │ │ │ ½«ú¿τÑß¬¿⌐ ¿½¿ í½«¬. │ ├────────────┼───────────────────────────────────────────┤ │ PAUSE │ OcΓa¡aó½¿óaeΓ óδ»o½¡e¡¿e »poúpa¼¼δ,ño Γex │ │ │ ¡e íπñeΓ ¡aªaΓa ¬½aó¿Φa RETURN. │ ├────────────┼───────────────────────────────────────────┤ │ │ BoºópaΘaeΓ π»paó½e¡¿e ó »poúpa¼¼¡πε eñ¿¡¿-│ │ RETURN │ µá ¿º ¬«Γ«α«⌐ íδ½á óδºóá¡á ñá¡¡á∩ »α«úαá¼-│ │ │ ¼á ¿½¿ Σπ¡¬µ¿∩. │ ├────────────┼───────────────────────────────────────────┤ │ STOP │ O¬o¡τa¡¿e »poúpa¼¼δ. │ └────────────┴───────────────────────────────────────────┘ 2.5.O»epaΓopδ óóoña/óδóoña. O»epaΓopδ óóoña/óδóoña »peoípaºoóδóaεΓ ña¡¡δe, »peñcΓaó½∩εΓ ño»o½¡¿Γe½∞¡δe óoº¼oª¡ocΓ¿ »o óδ»o½¡e¡¿ε o»epaµ¿⌐ óóoña/óδóoña ¿ paº¼eΘe¡¿ε Σa⌐½oó. B c½eñπεΘe⌐ Γaí½¿µe »epeτ¿c½e¡δ o»epaΓopδ óóo- ñá/óδóoñá Mæ-ö«αΓαá¡a. ┌────────────┬───────────────────────────────────────────┐ │ OÅEPATOP¢ │ HAçHAùEHêE │ ├────────────┼───────────────────────────────────────────┤ │ BACKCPACE │ æΓáó¿Γ π¬áºáΓÑ½∞ ó Σá⌐½Ñ, ßó∩ºá¡¡«¼ ß ºá- │ │ │ ñá¡¡δ¼ πßΓα«⌐ßΓó«¼, ¡á ¡áτá½« »αÑñδñπΘÑ⌐ │ │ │ ºá»¿ß¿. │ ├────────────┼───────────────────────────────────────────┤ │ CLOSE │ ÄΓß«Ññ¿¡∩ÑΓ π¬áºá¡¡«Ñ πßΓα«⌐ßΓó« ¿ ºáΘ¿- │ │ │ ΘáÑΓ Ñú« «Γ ñ«ßΓπ»á ¬ ¡Ñ¼π óó«ñá/óδó«ñá. │ ├────────────┼───────────────────────────────────────────┤ │ ENDFILE │ CΓáó¿Γ ºá»¿ß∞ ¬«¡µá Σá⌐½á ó Σá⌐½, ßó∩ºá¡- │ │ │ ¡δ⌐ ß ºáñá¡¡δ¼ πßΓα«⌐ßΓó«¼. │ ├────────────┼───────────────────────────────────────────┤ │ INQUIRE │ BoºópaΘaeΓ º¡aτe¡¿∩, «»¿ßδóáεΘ¿Ñ ßó«⌐ßΓóá │ │ │¿¼e¡«óá¡¡oúo Σa⌐½a ¿½¿ ºáñá¡¡«ú« πßΓα«⌐ßΓóá│ └────────────┴─────────────────────────────────────────── ┌────────────┬───────────────────────────────────────────┐ │ OÅEPATOP¢ │ HAçHAùEHêE │ ├────────────┼───────────────────────────────────────────┤ │ LOCKING │ çá¬αδóáÑΓ »α∩¼«⌐ ñ«ßΓπ» ¬ Σá⌐½á¼ ¿ │ │ │ ºa»¿c∩¼. │ ├────────────┼───────────────────────────────────────────┤ │ OPEN │ Coeñ¿¡∩eΓ ¡«¼ep πßΓα«⌐ßΓóá ß ó¡ÑΦ¡¿¼ πßΓ- │ │ │po⌐cΓóo¼ ¿½¿ c Σa⌐½o¼ ¡a ó¡eΦ¡e¼ πcΓpo⌐ßΓóÑ│ ├────────────┼───────────────────────────────────────────┤ │ READ │ Åepeñaτa ña¡¡δx ¿º Σa⌐½a ó cooΓóeΓcΓóπεΘ¿e│ │ │ φ½Ñ¼Ñ¡Γδ ß»¿ß¬á óó«ñá/óδó«ñá. │ ├────────────┼───────────────────────────────────────────┤ │ REWIND │ Åepe¼eΘaeΓ π¬áºáΓÑ½∞ ¡á »Ñαóπε ºá»¿ß∞ ó │ │ │ Σá⌐½Ñ, ßó∩ºá¡¡«¼ ß ºáñá¡¡δ¼ πßΓα«⌐ßΓó«¼. │ ├────────────┼───────────────────────────────────────────┤ │ WRITE │ ÅepeñaeΓ ña¡¡δe ¿º φ½Ñ¼Ñ¡Γ«ó ß»¿ß¬á │ │ │ óó«ñá/óδó«ña ó Σa⌐½. │ └────────────┴───────────────────────────────────────────┘ Åp¿¼eτa¡¿e: Oíαáí«Γ¬á «Φ¿í«¬. Ec½¿ oΦ¿í¬a »o∩ó¿½ac∞ óo ópe¼∩ óδ- »o½¡e¡¿∩ o»epaΓopoó READ, WRITE, LOCKING ¿½¿ INQUIRE ña½ee ñe⌐cΓó¿∩ »peñ»p¿¡¿¼aεΓc∩ ó ºaó¿c¿¼ocΓ¿ oΓ ßπΘÑßΓó«óá¡¿∩ ¿ ß«ñÑαªá¡¿∩ ¬½ετÑóδσ »áαá¼ÑΓα«ó ERR= ¿ IOSTAT=. (æ¼oΓp¿ΓÑ o»¿ca¡¿e φΓ¿x »á- αá¼ÑΓα«ó ó φΓo⌐ ú½aóe Γa¼, úñe o»¿ca¡δ o»epaΓopδ). a. Ec½¿ ¡¿ oñ¡oú« ¿º ¡¿σ ¡ÑΓ, »poúpa¼¼a ºa¬a¡τ¿óaeΓc∩ ß cooΓóeΓ- cΓóπεΘ¿¼ ß««íΘÑ¡¿Ñ¼ «í «Φ¿í¬Ñ ¿ß»«½¡Ñ¡¿∩. ó. Ec½¿ ºáñá¡« Γo½∞¬o ERR=¼eΓ¬a2, π»paó½e¡¿e »epeñaeΓc∩ ¡á φΓπ ¼ÑΓ¬π. c. Ec½¿ ºáñá¡« Γo½∞¬o IOSTAT=c«ßΓ«∩¡¿Ñ, Γo Ñ¼π »α¿ßóá¿óáÑΓß∩ ß««Γ- óÑΓßΓóπεΘá∩ óÑ½¿τ¿¡á ß«ßΓ«∩¡¿∩ ¿ π»αáó½Ñ¡¿Ñ »ÑαÑñáÑΓß∩ ñá½∞Φe Γa¬¿¼ oípaºo¼, ¬a¬ ec½¿ íδ o»epaΓop ºa¬o¡τ¿½c∩ ¡op¼a½∞¡o. d. Ec½¿ ºáñá¡δ oía »áαá¼ÑΓαá, Γo ß«ßΓ«∩¡¿ε »α¿ßóá¿óáÑΓß∩ ß««ΓóÑΓ- ßΓóπεΘÑe º¡aτe¡¿Ñ, a π»paó½e¡¿e »epeñaeΓc∩ »o ¼eΓ¬e 2. Bo ópe¼∩ »o∩ó½e¡¿∩ oΦ¿í¬¿ ó o»epaΓope READ, óce φ½Ñ¼Ñ¡Γδ ß»¿- ß¬á óó«ñá/óδó«ñá cΓa¡oó∩Γc∩ ¡eo»peñe½e¡¡δ¼¿. B ñ«»«½¡Ñ¡¿Ñ ¬ «»ÑαáΓ«αá¼ óó«ñá/óδó«ñá ßπΘÑßΓóπÑΓ óßΓα«Ñ¡¡á∩ Σπ¡¬µ¿∩ EOF(«»αÑñÑ½¿ΓÑ½∞-πßΓα«⌐ßΓóá). öπ¡¬µ¿∩ EOF óoºópaΘaeΓ ½oú¿- τec¬πε óÑ½¿τ¿¡π, »«¬áºδóáεΘπε, «ßΓáεΓß∩ ½¿ ¡Ñ¬«Γ«αδÑ ñá¡¡δÑ ó¡Ñ ΓÑ¬πΘÑ⌐ »«º¿µ¿¿¿ ó Σa⌐½e, ß«eñ¿¡e¡¡o¼ c ña¡¡δ¼ «»αÑñÑ½¿ΓÑ½Ñ¼ πßΓ- α«⌐ßΓóá. C¼oΓp¿ΓÑ ú½aóπ 5 "Åpoúpa¼¼δ, »oñ»poúpa¼¼δ ¿ Σπ¡¬µ¿¿" ñ½∩ »o½πτe¡¿∩ ¿¡Σop¼aµ¿¿ oí φΓo⌐ Σπ¡¬µ¿¿. 3.CÅÉÇéÄùìêè ÄÅàÉÇÆÄÉÄé. ¥ΓoΓ paºñe½ ña¡¡o⌐ ú½aóδ »peñcΓaó½∩eΓ coío⌐ a½Σaó¿Γ¡δ⌐ »epe- τe¡∞ ócex o»epaΓopoó Mæ-ö«αΓαá¡a, ñaeΓ ¿x c¿¡Γa¬c¿c ¿ Σπ¡¬µ¿o¡a½∞- ¡δe óoº¼oª¡ocΓ¿. Kaªñδ⌐ o»epaΓop c¡aíªe¡ ¬o¼e¡Γap¿∩¼¿ ¿ ¡eoíxoñ¿- ¼δ¼¿ »p¿¼epa¼¿. ä½∩ »o¡¿¼a¡¿∩ c¿¡Γa¬c¿ca o»¿ca¡¿∩ o»epaΓopoó, ºñec∞ ¿c»o½∞ºπe- ¼oúo, c¼oΓp¿ΓÑ "Åα¿½«ªÑ¡¿Ñ A". ▄────────────────── █ ASSIGN ▀────────────────── Åp¿cóoe¡¿e º¡aτe¡¿⌐ ¼eΓ¬¿ Σop¼aΓa ¿½¿ o»epaΓopa µe½o⌐ »epe- ¼e¡¡o⌐. ────────────────────────────────────────── ASSIGN ¼eΓ¬a TO »epe¼e¡¡a∩ ────────────────────────────────────────── âñÑ: ¼eΓ¬a - ¼eΓ¬a Σop¼aΓa ¿½¿ ¼eΓ¬a o»epaΓopa »epe¼e¡¡a∩ - µe½a∩ »epe¼e¡¡a∩ Äß«íÑ¡¡«ßΓ¿. Åp¿ ó¬½ετe¡¿¿ o»epaΓopa ASSIGN µe½o⌐ »epe¼e¡¡o⌐ »epeñaÑΓc∩ º¡aτe¡¿e ¼eΓ¬¿. MeΓ¬a ¼oªeΓ oΓ¡oc¿Γ∞c∩ ¬ ½εío¼π Σop¼aΓπ ¿½¿ o»epa- Γopπ ¿ coñepªaΓ∞c∩ ó φΓo⌐ ªe »poúpa¼¼o⌐ eñ¿¡¿µe, τΓo ¿ o»epaΓop ASSIGN. Koúña ó »p¿cóoe¡¿¿ πτacΓóπeΓ o»epaΓop GO TO, »epe¼e¡¡a∩ ño½- ª¡a ¿¼eΓ∞ º¡aτe¡¿e ¼eΓ¬¿ o»epaΓopa. Koúña ó o»epaΓopax óó«ñá/óδó«ñá ¿c»o½∞ºπeΓc∩ c»eµ¿Σ¿¬aµ¿∩ Σop¼aΓa, »epe¼e¡¡a∩ ño½ª¡a ¿¼eΓ∞ º¡aτe¡¿e ¼eΓ¬¿ cooΓóeΓcΓóπεΘeúo o»epaΓopa FORMAT. O»epaΓop ASSIGN ecΓ∞ c»o- coí »p¿cóoe¡¿∩ º¡aτe¡¿⌐ ¼eΓ¬¿ »epe¼e¡¡o⌐. ç¡aτe¡¿e ¼eΓ¬¿ ¡e ∩ó½∩eΓc∩ ¡eoíxoñ¿¼δ¼ ¬a¬ ee ¡o¼ep. B c½e- ñπεΘe¼ »p¿¼epe º¡aτe¡¿e »epe¼e¡¡o⌐ IVBL ¡e oí∩ºaΓe½∞¡o ño½ª¡o íδΓ∞ paó¡o 400: ASSIGN 400 TO IVBL Åepe¼e¡¡a∩, ¡e o»peñe½e¡¡a∩ ¬a¬ integer ¡e ¼oªeΓ íδΓ∞ ¿c»o½∞- ºoóa¡a ó ap¿Σ¼eΓ¿τec¬o¼ óδpaªe¡¿¿ ño Γex »op, »o¬a φΓo ¡e íπñeΓ cñe½a¡o (»p¿ »o¼oΘ¿ óδτ¿c½¿Γe½∞¡oúo »p¿cóoe¡¿∩ ¿½¿ o»epaΓopa READ). ▄────────────────────── █ Åp¿cóoe¡¿e ▀────────────────────── Peºπ½∞ΓaΓδ óδ»o½¡e¡¡oúo óδpaªe¡¿∩ »epeñaεΓc∩ »epe¼e¡¡δ¼ ¿½¿ φ½e¼e¡Γa¼ o»peñe½e¡¡oúo ¼acc¿óa. ──────────────────────────────────────────────── Åepe¼e¡¡a∩ = óδpaªe¡¿e. ──────────────────────────────────────────────── âñe: »epe¼e¡¡a∩ - ecΓ∞ oíδτ¡a∩ »epe¼e¡¡a∩ ¿½¿ φ½e¼e¡Γ ¼acc¿óa óδpaªe¡¿e - ecΓ∞ ½εíoe óδpaªe¡¿e Äß«íÑ¡¡«ßΓ¿. T¿» »epe¼e¡¡o⌐ ¿½¿ φ½e¼e¡Γa ¼acc¿óa ño½ª¡δ íδΓ∞ coú½acoóa¡δ c Γ¿»o¼ óδpaªe¡¿∩. 1. Ec½¿ Γ¿» »paóo⌐ τacΓ¿ ∩ó½∩eΓc∩ τ¿c½e¡¡δ¼, Γo Γ¿» ½eóo⌐ τacΓ¿ Γa¬ ªe ño½ªe¡ íδΓ∞ τ¿c½e¡¡δ¼. O»epaΓop ó φΓo¼ c½πτae ¡aºδóa- eΓc∩ ap¿Σ¼eΓ¿τec¬¿¼ o»epaΓopo¼ »p¿cóa¿óa¡¿∩. 2. Ec½¿ Γ¿» »paóo⌐ τacΓ¿ ecΓ∞ ½oú¿τec¬¿⌐, Γo Γ¿» ½eóo⌐ τacΓ¿ Γa¬ ªe ño½ªe¡ íδΓ∞ ½oú¿τec¬¿¼. O»epaΓop ¡aºδóaeΓc∩ ½oú¿τec¬¿¼ o»epaΓopo¼ »p¿cóa¿óa¡¿∩. 3. Ec½¿ Γ¿» »paóo⌐ τacΓ¿ ∩ó½∩eΓc∩ ß¿¼ó«½∞¡δ¼, Γo Γ¿» ½eóo⌐ τacΓ¿ Γa¬ ªe ño½ªe¡ íδΓ∞ ß¿¼ó«½∞¡δ¼. O»epaΓop ó φΓo¼ c½πτae ¡aºδóa- eΓc∩ o»epaΓopo¼ ß¿¼ó«½∞¡«ú« »p¿cóa¿óa¡¿∩. Oñ¡a¬o, ec½¿ Bδ ¿c»o½∞º«óá½¿ ¼eΓa¬o¼a¡ñπ $NOTSTRICT, Γo Γ¿» ½eóo⌐ τacΓ¿ ¼oªeΓ íδΓ∞ τ¿c½e¡¡δ¼, ½oú¿τec¬¿¼ ¿½¿ ß¿¼ó«½∞¡δ¼;á «»epaΓop »«-»αÑª- ¡Ñ¼π ¡aºδóaeΓc∩ o»epaΓop«¼ ß¿¼ó«½∞¡«ú« »p¿cóa¿óa¡¿∩. Ec½¿ Γ¿»δ φ½e¼e¡Γoó ap¿Σ¼eΓ¿τec¬oúo o»epaΓopa »p¿cóa¿óa¡¿∩ ¡e coó»añaεΓ, º¡aτe¡¿∩ óδpaªe¡¿∩ aóΓo¼aΓ¿τec¬¿ »peoípaºoóδóaεΓc∩ ¬ Γ¿»π »epe¼e¡¡o⌐. Åpaó¿½a »peoípaºoóa¡¿∩ ña¡δ ó Γaí½¿µe 3-1 (»pe- oípaºoóa¡¿e µe½δx º¡aτe¡¿⌐ (integer)), ó Γaí½¿µe 3-2 (»peoípaºo- óa¡¿e ñÑ⌐ßΓó¿ΓÑ½∞¡δσ º¡aτe¡¿⌐) ¿ Γáí½¿µÑ 3-3(»αÑ«íαáº«óá¡¿Ñ ¬«¼»- ½Ñ¬ß¡δσ º¡áτÑ¡¿⌐). Bo ócex Γaí½¿µax ¡a¿ío½ee º¡aτ¿¼δe τacΓ¿ »peñcΓaó½e¡δ ó óepx- ¡e⌐ cΓpoτ¬e, a ¡a¿¼e¡ee - ó ¡¿ª¡e⌐ cΓpo¬e. A¡a½oú¿τ¡o óo ócex Γaí- ½¿µax - º¡aτe¡¿e »peoípaºπe¼o⌐ óe½¿τ¿¡δ (E) »o¬aºa¡o óo óΓopo⌐ ¿ ó ΓpeΓ∞e⌐ ¬o½o¡¬ax, Γ¿» »epe¼e¡¡o⌐ V »epeτ¿c½e¡ ó »epóo⌐ ¬o½o¡¬e. ┌─────────────┬─────────────────────────┬──────────────────────┐ │ V \ E │ INTEGER*2 │ INTEGER*4 │ ├─────────────┼─────────────────────────┼──────────────────────┤ │ INTEGER*2 │ V »α¿ßóá¿óáÑΓß∩ │ V »α¿ßóá¿óáÑΓß∩ │ │ │ º¡áτÑ¡¿Ñ à │ ¼½áñΦá∩ º¡áτáΘá∩ │ │ │ │ τáßΓ∞ à, ßΓáαΦá∩ - │ │ │ │ »α«»áñáÑΓ │ ├─────────────┼─────────────────────────┼──────────────────────┤ │ INTEGER*4 │ Åp¿cóo¿Γ∞ º¡aτe¡¿e E │ V »α¿ßóá¿óáÑΓß∩ │ │ │ ¼½áñΦÑ⌐ º¡aτáΘÑ⌐ τacΓ¿ │ º¡áτÑ¡¿Ñ à. │ │ │ V; ßΓáαΦá∩ º¡aτáΘá∩ │ │ │ │ τacΓ∞ ocΓaeΓc∩ cóoíoñ¡a.│ │ ├─────────────┼─────────────────────────┼──────────────────────┤ │ REAL*4 │ E ño»o½¡∩eΓc∩ ñpoí¡o⌐ │ E ño»o½¡∩eΓc∩ ñα«í¡«⌐│ │ │ (.0) ¿ »α¿ßóá¿óáÑΓß∩ V. │(.0) ¿ »α¿ßóá¿óáÑΓß∩ V│ ├─────────────┼─────────────────────────┼──────────────────────┤ │ REAL*8 │ E ño»o½¡∩eΓc∩ ñpoí¡o⌐ │ E ño»o½¡∩eΓc∩ ñα«í¡«⌐│ │ │ (.0) ¿ »α¿ßóá¿óáÑΓß∩ V. │(.0) ¿ »α¿ßóá¿óáÑΓß∩ V│ ├─────────────┼─────────────────────────┼──────────────────────┤ │ COMPLEX*8 │ E ño»o½¡∩eΓc∩ ñpoí¡o⌐ │ E ño»o½¡∩eΓc∩ ñα«í¡«⌐│ │ │ (.0) ¿ »α¿ßóá¿óáÑΓß∩ │ (.0) ¿ »α¿ßóá¿óáÑΓß∩ │ │ │ ñe⌐cΓó¿Γe½∞¡o⌐ τacΓ¿ V; │ ñÑ⌐ßΓó¿ΓÑ½∞¡«⌐ τáßΓ¿ │ │ │ ¼¡¿¼a∩ τacΓ∞ V │ V; ¼¡¿¼á∩ τáßΓ∞ V │ │ │ »αÑñßΓáó½∩ÑΓß∩ ¡π½Ñ¼. │ »αÑñßΓáó½∩ÑΓß∩ ¡π½Ñ¼.│ ├─────────────┼─────────────────────────┼──────────────────────┤ │ COMPLEX*16 │ E ño»o½¡∩eΓc∩ ñpoí¡o⌐ │ E ño»o½¡∩eΓc∩ ñα«í¡«⌐│ │ │ (.0) ¿ »α¿ßóá¿óáÑΓß∩ │ (.0) ¿ »α¿ßóá¿óáÑΓß∩ │ │ │ ñe⌐cΓó¿Γe½∞¡o⌐ τacΓ¿ V; │ ñÑ⌐ßΓó¿ΓÑ½∞¡«⌐ τáßΓ¿ │ │ │ ¼¡¿¼a∩ τacΓ∞ V │ V; ¼¡¿¼á∩ τáßΓ∞ V │ │ │ »αÑñßΓáó½∩ÑΓß∩ ¡π½Ñ¼. │ »αÑñßΓáó½∩ÑΓß∩ ¡π½Ñ¼.│ └─────────────┴─────────────────────────┴──────────────────────┘ Taí½¿µa 3-1. Åpeoípaºoóa¡¿e µe½δx óe½¿τ¿¡ ó peºπ½∞ΓaΓe o»epaµ¿¿ V=E. Bδpaªe¡¿e "ñpoí¡a∩ (.0)" oº¡aτaeΓ ¡π½eóπε ñpoí¡πε τacΓ∞. ┌────────────┬─────────────────────────┬───────────────────────┐ │ V \ E │ REAL*4 │ REAL*8 │ ├────────────┼─────────────────────────┼───────────────────────┤ │ INTEGER*2 │ E πßÑ¬áÑΓß∩ ó INTEGER*2 │E πßÑ¬áÑΓß∩ ó INTEGER*2│ │ │ ¿ »α¿ßóá¿óáÑΓß∩ V. │¿ »p¿cóa¿óaeΓß∩ V. │ ├────────────┼─────────────────────────┼───────────────────────┤ │ INTEGER*4 │ E πßÑ¬áÑΓß∩ ó INTEGER*4 │à πßÑ¬áÑΓß∩ ó INTEGER*4│ │ │ ¿ »α¿ßóá¿óáÑΓß∩ V.¿óaeΓc│ ¿ »α¿ßóá¿óáÑΓß∩ V. │ ├────────────┼─────────────────────────┼───────────────────────┤ │ REAL*4 │ à »p¿cóa¿óaeΓc∩ V. │ æΓáαΦá∩ º¡áτáΘá∩ │ │ │ │ τáßΓ∞ à »α¿ßóá¿óáÑΓß∩ │ │ │ │ V, ¼½áñΦá∩ ── │ │ │ │ «¬απú½∩ÑΓß∩. │ ├────────────┼─────────────────────────┼───────────────────────┤ │ REAL*8 │ à »peoípaºπeΓß∩ ó Σop¼π,│ à »p¿cóa¿óaeΓß∩ V. │ │ │ φ¬ó¿óa½e¡Γ¡πε REAL*8 ¿ │ │ │ │ »p¿cóa¿óaeΓß∩ V. │ │ └────────────┴─────────────────────────┴───────────────────────┘ ┌────────────┬─────────────────────────┬───────────────────────┐ │ V \ E │ REAL*4 │ REAL*8 │ ├────────────┼─────────────────────────┼───────────────────────┤ │ COMPLEX*8 │ E »p¿cóa¿óaeΓc∩ │ î½áñΦá∩ º¡áτáΘá∩ τáßΓ∞│ │ │ ñÑ⌐ßΓó¿ΓÑ½∞¡«⌐ τáßΓ¿ V, │ à «¬απú½∩ÑΓß∩, ßΓáαΦá∩│ │ │ ¼¡¿¼á∩ τáßΓ∞ V ── │ º¡áτáΘá∩ τáßΓ∞ à │ │ │ ¡π½Ñóá∩. │ »p¿cóa¿óaeΓc∩ ñÑ⌐ßΓó¿-│ │ │ │ ΓÑ½∞¡«⌐ τáßΓ¿ V, │ │ │ │ ¼¡¿¼á∩ τáßΓ∞ V ── │ │ │ │ ¡π½Ñóá∩. │ ├────────────┼─────────────────────────┼───────────────────────┤ │ COMPLEX*16 │ E »pÑ«íαáºπÑΓß∩ ó REAL*8│ à »α¿ßóá¿óáÑΓß∩ │ │ │ ¿ »α¿ßóá¿óáÑΓß∩ ñÑ⌐ßΓ- │ ñÑ⌐ßΓó¿ΓÑ½∞¡«⌐ τáßΓ¿ │ │ │ ó¿ΓÑ½∞¡«⌐ τáßΓ¿ V, │ V, ¼¡¿¼á∩ τáßΓ∞ V ── │ │ │ ¼¡¿¼á∩ τáßΓ∞ V ─ │ ¡π½Ñóá∩. │ │ │ ¡π½eóa∩. │ │ └────────────┴─────────────────────────┴───────────────────────┘ Taí½¿µa 3-2. Åpeoípaºoóa¡¿e ñe⌐cΓó¿Γe½∞¡δx º¡aτe¡¿⌐ ó peºπ½∞ΓaΓe o»epaµ¿¿ V=E. ┌────────────┬─────────────────────────┬───────────────────────┐ │ V\E │ COMPLEX*8 │ COMPLEX*16 │ ├────────────┼─────────────────────────┼───────────────────────┤ │ INTEGER*2 │ äe⌐cΓó¿Γe½∞¡a∩ τacΓ∞ E │ äe⌐cΓó¿Γe½∞¡á∩ τáßΓ∞ │ │ │ πßÑ¬áÑΓß∩ ó INTEGER*2 ¿ │ à πßÑ¬áÑΓß∩ ó │ │ │ »p¿cóa¿óaeΓc∩ V; ¼¡¿¼á∩ │ INTEGER*2 ¿ »α¿ßóá¿- │ │ │ τacΓ∞ à ¿ú¡op¿pπeΓc∩. │ óáÑΓß∩ V, ¼¡¿¼á∩ τáßΓ∞│ │ │ │ à ¿ú¡«α¿απÑΓß∩. │ ├────────────┼─────────────────────────┼───────────────────────┤ │ INTEGER*4 │ äe⌐cΓó¿Γe½∞¡a∩ τacΓ∞ à │ äe⌐cΓó¿Γe½∞¡a∩ τáßΓ∞ │ │ │ πßÑ¬áÑΓß∩ ó INTEGER*4 │ à πßÑ¬áÑΓß∩ ó │ │ │ ¿ »p¿cóa¿óaeΓc∩ V. │ INTEGER*4 ¿ │ │ │ │ »α¿ßóá¿óáÑΓß∩ V. │ ├────────────┼─────────────────────────┼───────────────────────┤ │ REAL*4 │ äe⌐cΓó¿Γe½∞¡a∩ τacΓ∞ E │ î½áñΦá∩ º¡áτáΘá∩ τáßΓ∞│ │ │ »p¿cóa¿óaeΓc∩ V. │ ñÑ⌐ßΓó¿ΓÑ½∞¡«⌐ τáßΓ¿ │ │ │ │ à «¬απú½∩ÑΓß∩, ßΓáαΦá∩│ │ │ │ º¡áτáΘá∩ τáßΓ∞ │ │ │ │ »α¿ßóá¿óáÑΓß∩ V. │ ├────────────┼─────────────────────────┼───────────────────────┤ │ REAL*8 │ äe⌐cΓó¿Γe½∞¡a∩ τacΓ∞ E │ äe⌐cΓó¿Γe½∞¡á∩ τáßΓ∞ │ │ │ »peoípaºoóδóaeΓc∩ ó │ à »α¿ßóá¿óáÑΓß∩ V. │ │ │ REAL*8 ¿ »p¿cóa¿óaeΓc∩ │ │ │ │ V. │ │ ├────────────┼─────────────────────────┼───────────────────────┤ │ COMPLEX*8 │ E »p¿cóa¿óaeΓc∩ V. │ äÑ⌐ßΓó¿ΓÑ½∞¡á∩ ¿ │ │ │ │ ¼¡¿¼á∩ τáßΓ¿ à │ │ │ │ «¬απú½∩εΓß∩ ¿ »α¿ßóá- │ │ │ │ ¿óáεΓß∩ ß««ΓóÑΓßΓóπ- │ │ │ │ εΘ¿¼ τáßΓ∩¼ V. │ ├────────────┼─────────────────────────┼───────────────────────┤ │ COMPLEX*16 │ äÑ⌐ßΓó¿ΓÑ½∞¡á∩ ¿ ¼¡¿¼á∩ │ E »p¿cóa¿óaÑΓß∩ V. │ │ │ τáßΓ¿ à »αÑ«íαáºπεΓß∩ ó │ │ │ │ REAL*8 ¿ »p¿cóa¿óaεΓc∩ │ │ │ │ V. │ │ └────────────┴─────────────────────────┴───────────────────────┘ Taí½¿µa 3-3. Åpeoípaºoóa¡¿e ¬o¼»½e¬c¡δx º¡aτe¡¿⌐ ó peºπ½∞ΓáΓÑ o»epaµ¿¿ V=E. B ¬aτecΓóe ocoíe¡¡ocΓe⌐ »p¿cóoe¡¿∩ ¼oª¡o oΓ¼eΓ¿Γ∞, τΓo ec½¿ ñ½¿¡a óδpáªe¡¿∩ ¡e cooΓóeΓcΓóπeΓ paº¼epπ »epe¼e¡¡o⌐, ó ¡e¬oΓopδx c½πτa∩x óδpaªe¡¿e "»p¿c»ocaí½¿óaeΓc∩" ¿ Γa¬¿¼ oípaºo¼ cΓa¡oó¿Γc∩ cooΓóeΓcΓóπεΘ¿¼ »epe¼e¡¡o⌐. 1. Ec½¿ óδpaªe¡¿e ¬opoτe »epe¼e¡¡o⌐, Γo óδpaªe¡¿e ño»o½¡∩eΓc∩ »poíe½a¼¿ c »paóa »epeñ »p¿cóoe¡¿e¼ ¿ Γa¬¿¼ oípaºo¼ ßΓa¡o- ó¿Γc∩ φ¬ó¿óa½e¡Γ¡δ¼ »o ñ½¿¡e. 2. Ec½¿ óδpaªe¡¿e ñ½¿¡ee τe¼ »epe¼e¡¡a∩, »apa¼eΓpδ ó »paóo⌐ τacΓ¿ oípeºaεΓc∩, τΓoíδ cñe½aΓ∞ paº¼ep cooΓóeΓcΓóπεΘ¿¼. ïoú¿τec¬¿e óδpaªe¡¿∩ ½εíoúo paº¼epa ¼oúπΓ íδΓ∞ »p¿cóoe¡δ ½o- ú¿τec¬¿¼ »epe¼e¡¡δ¼ ½εíoúo paº¼epa íeº oúpa¡¿τe¡¿⌐ ¡a º¡aτe¡¿e óδpaªe¡¿∩. Oñ¡a¬o, µe½δe ¿ ñe⌐cΓó¿Γe½∞¡δe óδpaªe¡¿∩ ¡Ñ ¼oúπΓ íδΓ∞ »p¿cóoe¡δ ½oú¿τec¬¿¼ »epe¼e¡¡δ¼, Γá¬ªÑ ¿ ½oú¿τec¬¿e óδpaªe¡¿∩ ¡e ¼oúπΓ íδΓ∞ »p¿cóoe¡δ µe½δ¼ ¿ ñe⌐cΓó¿Γe½∞¡δ¼ »epe¼e¡δ¼. ▄───────────────────── █ BACKSPACE ▀───────────────────── ôßΓá¡áó½¿óáÑΓ π¬áºáΓÑ½∞ ó Σá⌐½Ñ, ß«Ññ¿¡Ñ¡¡«¼ ß ºáñá¡¡δ¼ πßΓ- α«⌐ßΓó«¼, ¡á ¡áτá½« »peñΦecΓóπεΘe⌐ ºa»¿c¿. ────────────────────────────────────────── BACKSPACE ½«ú¿τÑß¬¿⌐-¡«¼Ñα-πßΓα«⌐ßΓóá ────────────────────────────────────────── âñe: ½«ú¿τÑß¬¿⌐-¡«¼Ñα-πßΓα«⌐ßΓóá - φΓ« «»αÑñÑ½¿ΓÑ½∞ ºáñá¡¡«ú« πßΓα«⌐- ßΓóá; «¡« ¡Ñ ñ«½ª¡« íδΓ∞ ó¡πΓαÑ¡¡¿¼. ä½∩ í«½ÑÑ »«½¡«⌐ ¿¡Σ«α¼áµ¿¿ « ¡«¼ÑαÑ πßΓα«⌐ßΓóá ¿ ñαπú¿σ φ½Ñ¼Ñ¡Γáσ óó«ñá/óδ- ó«ñá ß¼«Γα¿ΓÑ ú½aóπ 4 "C¿cΓe¼a óóoña/óδ- óoña". Äß«íÑ¡¡«ßΓ¿. 1. Ec½¿ ¡eΓ »peñΦecΓóπεΘe⌐ ºa»¿c¿, Γo »oº¿µ¿∩ ó Σa⌐½Ñ ¡e ¿º¼e- ¡∩eΓc∩. 2. Ec½¿ »peñΦecΓóπεΘa∩ ºa»¿c∞ íδ½a ¬o¡µo¼ Σa⌐½a, Γo π¬áºáΓÑ½∞ pac»o½aúaeΓc∩ »epeñ ºa»¿c∞ε "¬o¡eµ Σa⌐½a". 3. Ec½¿ π¬áºáΓÑ½∞ Σa⌐½a pac»o½aúaeΓc∩ ó cepeñ¿¡e eñ¿¡¿µδ ºa»¿c¿, BACKSPACE »epe¼eΘaeΓ ee ó ¡aτa½o φΓo⌐ ºa»¿c¿. 4. Ec½¿ Σa⌐½ ∩ó½∩eΓc∩ ñóo¿τ¡δ¼ Σa⌐½o¼, BACKSPACE cñó¿úaeΓ ¡á »peñΦecΓóπεΘ¿⌐ ía⌐Γ. Åp¿¼epδ: BACKSPACE 5 BACKSPACE LUNIT ▄─────────────────────── █ BLOCK DATA ▀─────────────────────── Ä»αÑñÑ½∩ÑΓ »oñ»poúpa¼¼π í½«¬á ñá¡¡δσ, ó ¬oΓopo⌐ »p¿cóa¿óaeΓc∩ ¡aτa½∞¡δe º¡aτe¡¿∩ »epe¼e¡¡δ¼ ¿ φ½e¼e¡Γa¼ ¼acc¿óoó ¿º »«¿¼Ñ¡«óá¡- ¡δx COMMON í½o¬oó. ─────────────────────────────────────── BLOCK DATA [¿¼∩] ─────────────────────────────────────── âñe: ¿¼∩ - ú½oía½∞¡oe c¿¼óo½∞¡oe ¿¼∩ »oñ»poúpa¼¼δ, o»peñe½∩e¼o⌐ o»epa- Γopo¼ BLOCK DATA. ¥Γo ¿¼∩ ño½ª¡o íδΓ∞ π¡¿¬a½∞¡o cpeñ¿ ¿¼e¡ ½o¬a½∞¡δx »epe¼e¡¡δx ¿½¿ ¼acc¿óoó ¬oΓopδe o»peñe½e¡δ ó ña¡¡o⌐ »oñ »poúpa¼¼e o ¬oΓopo⌐ ¿ñeΓ peτ∞. ê¼∩ ño½ª¡o íδΓ∞ Γa¬ªe π¡¿- ¬a½∞¡δ¼ cpeñ¿ ¿¼e¡, ¿¼e¡ ó¡eΦ¡¿x »poµeñπp, COMMON-í½o¬oó ¿ ñpπú¿x »oñ»poúpa¼¼ BLOCK DATA. Äß«íÑ¡¡«ßΓ¿. To½∞¬o oñ¡a íeºδ¼∩¡¡a∩ »oñ»poúpa¼¼a BLOCK DATA ¼oªeΓ »o∩ó¿- Γ∞c∩ ó óδ»o½¡∩e¼o⌐ »poúpa¼¼e. Åoñ»poúpa¼¼a BLOCK DATA ¼oªeΓ coñepªaΓ∞ ½εíoe ¬o½¿τecΓóo COMMON-í½o¬oó ¿ o»epaΓopoó DATA. ê¼eεΓc∩ c½eñπεΘ¿e oúpa¡¿τe¡¿∩ ¡a ¿c»o½∞ºoóa¡¿e »oñ»poúpa¼¼ BLOCK DATA: 1. Kpo¼e BLOCK DATA, ó »oñ»poúpa¼¼e BLOCK DATA ¼oúπΓ íδΓ∞ ¿c»o- ½∞ºoóa¡δ Γo½∞¬o o»epaΓopδ COMMON, DIMENSION, PARAMETER, IMPLICIT, EQUIVALENCE, SAVE, DATA, END. 2. ê¼e¡¡δe COMMON-í½o¬¿, o»peñe½e¡¡δe ó »oñ»poúpa¼¼e BLOCK DATA ño½ª¡δ ¿¼eΓ∞ π¡¿¬a½∞¡δe ¿¼e¡a. 3. To½∞¬o ¿c»o½∞ºπe¼δe ó ¿¼e¡¡δx COMMON-í½o¬ax ¿ñe¡Γ¿Σ¿¬aΓopδ ¼oúπΓ íδΓ∞ ó ¡aτa½e o»peñe½e¡δ ó »oñ»poúpa¼¼e BLOCK DATA. 4. Ec½¿ ¡e óce φ½e¼e¡Γδ COMMON-í½o¬a o»peñe½e¡δ (o»¿ca¡δ) c¡aτa- ½a, Γo ó COMMON-í½o¬e φΓo »oc½eñoóaΓe½∞¡o ño½ª¡o íδΓ∞ cñe- ½a¡o. ▄─────────────────── █ CALL ▀─────────────────── BδºδóaeΓ ¿ óδ»o½¡∩eΓ »oñ»poúpa¼¼δ ¿ ñpπú¿e »poúpa¼¼¡δe eñ¿¡¿µδ. ───────────────────────────────────────────── CALL ¿¼∩[([»áαá¼ÑΓα[,»áαá¼ÑΓα]...])] ───────────────────────────────────────────── âñe: ¿¼∩ - ¿¼∩ óδºδóae¼o⌐ »oñ»poúpa¼¼δ »áαá¼ÑΓα - Σa¬Γ¿τec¬¿⌐ »apa¼eΓp, ¬oΓopδ⌐ ¼oªeΓ íδΓ∞: 1. O»peñe½¿ΓÑ½Ñ¼ á½∞ΓÑα¡áΓ¿ó¡«ú« óoºópaΓa (*n). 2. Bδpaªe¡¿e¼. 3. Ko¡cΓa¡Γ«⌐ (¿½¿ óδpaªe¡¿e¼ ¿º ¬o¡cΓa¡Γ). 4. Åepe¼e¡¡«⌐. 5. ¥½e¼e¡Γ«¼ ¼acc¿óa. 6. Macc¿ó«¼. 7. Åoñ»poúpa¼¼«⌐. 8. B¡eΦ¡Ñ⌐ Σπ¡¬µ¿Ñ⌐. 9. B¡πΓpe¡¡Ñ⌐ Σπ¡¬µ¿Ñ⌐, ¿c»o½∞ºπe¼«⌐ ¬a¬ »apa¼eΓp. Äß«íÑ¡¡«ßΓ¿. öa¬Γ¿τec¬¿e »apa¼eΓpδ ó o»epaΓope CALL ño½ª¡δ cΓpoúo cooΓóeΓ- cΓóoóaΓ∞ Σop¼a½∞¡δ¼ »apa¼eΓpa¼ ó o»epaΓope SUBROUTINE - »o »op∩ñ¬π c½eñoóa¡¿∩, ¬o½¿τecΓóπ ¿ Γ¿»π. êºóecΓ¡o, τΓo ¬o¼»¿½∩µ¿∩ ocπΘecΓó½∩eΓc∩ ó cooΓóeΓcΓó¿¿ c Σop¼a½∞¡δ¼¿ »apa¼eΓpa¼¿. ÅoφΓo¼π »p¿ »oc½eñoóaΓe½∞¡o⌐ ¬o¼»¿½∩µ¿¿ o»epaΓop SUBROUTINE, ¬oΓopδ⌐ o»peñe½∩eΓ Σop¼a½∞¡δe »apa¼eΓpδ, ño½ªe¡ »peñΦecΓóoóaΓ∞ o»epaΓopπ CALL. ê ¡a¬o¡eµ, ec½¿ »apa¼eΓpδ »p¿¡¿¼aεΓ º¡aτe¡¿∩ µe½δe ¿½¿ ½oú¿- τec¬¿e, Γo ΓpeíπeΓc∩ cooΓóeΓcΓó¿e coú½ac¡o c½eñπεΘ¿¼ »paó¿½a¼: 1. Ec½¿ Σop¼a½∞¡δ⌐ »apa¼eΓp ¡e¿ºóecΓe¡, eúo paº¼ep ºañaeΓc∩ ¼e- Γa¬o¼a¡ño⌐ $STORAGE (¿c¬½ετa∩ c½πτa⌐ π»o¼∩¡πΓδ⌐ ó »paó¿½e 5 ña¡¡oúo »epeτ¡∩). Ec½¿ ¬o¼a¡ña $STORAGE ¡e o»peñe½e¡a, Γo »« π¼«½τá¡¿ε ── $STORAGE:4. 2. Ec½¿ Σa¬Γ¿τec¬¿⌐ »apa¼eΓp ∩ó½∩eΓc∩ ¬o¡cΓa¡Γo⌐ (¿½¿ óδpaªe¡¿e ¿º ¬o¡cΓa¡Γ) ¿ eúo paº¼ep ¼e¡∞Φe paº¼epa Σop¼a½∞¡oúo »apa¼eΓ- pa, Γo paº¼ep ¬o¡cΓa¡Γδ íπñeΓ πóe½¿τe¡. Ec½¿ Σa¬Γ¿τec¬¿⌐ »a- pa¼eΓp ío½∞Φe »o paº¼epπ, Γo »po¿cxoñ¿Γ oΦ¿í¬a: 95 argument type conflict (¡ecoó»añe¡¿e Γ¿»oó »apa¼eΓpa) 3. Ec½¿ Σa¬Γ¿τec¬¿⌐ »apa¼eΓp ∩ó½∩eΓc∩ óδpaªe¡¿e¼ ¿ eúo paº¼ep ¼e¡∞Φe τe¼ paº¼ep Σop¼a½∞¡oúo »apa¼eΓpa, Γo paº¼ep »epe¼e¡¡o⌐ Σop¼a½∞¡oúo »apa¼eΓpa »p¿óoñ¿Γc∩ ó cooΓóeΓcΓó¿e c Σa¬Γ¿τec¬¿¼ »apa¼eΓpo¼. Ec½¿ paº¼ep Σa¬Γ¿τec¬oúo »apa¼eΓpa ío½∞Φe, óδxoñ¿Γ oΦ¿í¬a a¡a½oú¿τ¡o »paó¿½π 2. 4. Ec½¿ Σa¬Γ¿τec¬¿⌐ »apa¼eΓp ∩ó½∩eΓc∩ ¼acc¿óo¼ ¿½¿ Σπ¡¬µ¿e⌐, ¿½¿ ec½¿ Σa¬Γ¿τec¬¿⌐ »apa¼eΓp - φ½e¼e¡Γ ¼acc¿óa, a Σop¼a½∞¡δ⌐ »apa¼eΓp ecΓ∞ ¼acc¿ó, Γo »p¿ ¬o¼»¿½∩µ¿¿ ¡e ¬o¡Γpo½¿pπeΓc∩ coú½acoóa¡¿e paº¼epoó. 5. Ec½¿ Σa¬Γ¿τec¬¿⌐ »apa¼eΓp ecΓ∞ »epe¼e¡¡a∩ ¿½¿ φ½e¼e¡Γ ¼ac- c¿óa, a Σop¼a½∞¡δ⌐ »apa¼eΓp ¡e¿ºóecΓe¡, Γo paº¼ep Σop¼a½∞¡oúo »apa¼eΓpa cΓa¡oó¿Γc∩ Γa¬¿¼ ªe, ¬a¬ ¿ paº¼ep Σa¬Γ¿τec¬oúo »apa¼eΓpa. Bδ ¼oªeΓe óδºδóaΓ∞ paºñe½∞¡o »oñ»poúpa¼¼δ, τ∞¿ Σop¼a½∞¡δe »apa¼eΓpδ oΓ½¿τaεΓc∩ »o paº¼epπ oΓ o»peñe½e¡¡oúo ¼eΓa¬o¼a¡- ño⌐ $STORAGE »p¿ Σop¼¿poóa¡¿¿ ¬o¼a¡ñδ CALL. Oñ¡a¬o coú½aco- óa¡ocΓ∞ ó paº¼epe oíδτ¡o ΓpeíπeΓc∩, ¿ BaΦe⌐ oí∩ºa¡ocΓ∞ε ∩ó- ½∩eΓc∩ »poóeñe¡¿e Γa¬oúo coú½acoóa¡¿∩. Ec½¿ Σop¼a½∞¡δ⌐ »apa¼eΓp o»peñe½e¡, Γo Σa¬Γ¿τec¬¿⌐ »apa¼eΓp, ∩ó½∩εΘ¿⌐c∩ »epe¼e¡¡o⌐ ¿½¿ φ½e¼e¡Γo¼ ¼acc¿óa, oípaíaΓδóaeΓc∩ ¬a¬ óδpaªe¡¿e; »p¿ φΓo¼ ópe¼e¡¡o ¿º¼e¡∩∩c∞ Σa¬Γ¿τec¬¿⌐ »apa- ¼eΓp cΓa¡oó¿Γc∩ ó cooΓóeΓcΓó¿¿ c Σop¼a½∞¡δ¼, ec½¿ Σá¬Γ¿τec¬¿⌐ »apa¼eΓp cΓa¡oó¿Γc∩ ¬opoτe Σop¼a½∞¡oúo. B »poΓ¿ó¡o¼ c½πτae óoº¡¿¬aeΓ oΦ¿í¬a a¡a½oú¿τ¡o »paó¿½π 2. B c½πτae µe½δx »apa¼eΓpoó Bδ ¼oªeΓe óoc»o½∞ºoóaΓ∞c∩ óßΓα«Ñ¡- ¡δ¼¿ Σπ¡¬µ¿∩¼¿ INT2 ¿ INT4 ñ½∩ Γoúo, τΓoíδ »p¿óecΓ¿ Γ¿» ó cooΓ- óeΓcΓó¿e. C¼oΓp¿ΓÑ "ÅÑαÑñáτá µe½δσ »apa¼eΓp«ó" ó ú½aóe 5. Ec½¿ o»epaΓop SUBROUTINE ¡e ¿¼eeΓ Σop¼a½∞¡δx »apa¼eΓpoó, Γo c½eñoóaΓe½∞¡o ¿ o»epaΓop CALL ¡e ño½ªe¡ coñepªaΓ∞ ¬a¬¿x-½¿ío Σa¬- Γ¿τec¬¿x »apa¼eΓpoó. Äñ¡á¬«, ºá ¿¼Ñ¡Ñ¼ »α«µÑñπαδ ¼«ªÑΓ ß½Ññ«óáΓ∞ á»áαá ß¬«í«¬. Åpoµecc óδ»o½¡e¡¿∩ o»epaΓopa CALL ºa¬½ετaeΓc∩ ó c½eñπεΘe¼: 1. éδτ¿ß½∩εΓß∩ óßÑ »áαá¼ÑΓαδ, ∩ó½∩εΘ¿Ñß∩ óδαáªÑ¡¿∩¼¿. 2. Bce Σa¬Γ¿τec¬¿e »apa¼eΓpδ co»«ßΓáó½∩εΓc∩ c cooΓóeΓcΓóπεΘ¿¼¿ Σop¼a½∞¡δ¼¿ »apa¼eΓpa¼¿, óδ»o½¡∩eΓc∩ Γe½o »poµeñπpδ. 3. Åα¿ óδ»«½¡Ñ¡¿¿ «»ÑαáΓ«αá RETURN ¿½¿ «»ÑαáΓ«αá END ó »«ñ»α«ú- αá¼¼Ñ, «íδτ¡«, π»αáó½e¡¿e »epeñaeΓc∩ ¡a o»epaΓop, c½eñπεΘ¿⌐ »oc½e CALL. àß½¿, «ñ¡á¬«, ¿ß»«½∞ºπÑΓß∩ á½∞ΓÑα¡áΓ¿ó¡δ⌐ ó«ºóαáΓ ó ó¿ñÑ RETURN n, π»αáó½Ñ¡¿Ñ íπñÑΓ »ÑαÑñá¡« ¡á «»ÑαáΓ«α, «»αÑñÑ½Ñ¡¡δ⌐ n-δ¼ «»αÑñÑ½¿ΓÑ½Ñ¼ á½∞ΓÑα¡áΓ¿ó¡«ú« ó«ºóαáΓá ó o»epaΓope CALL. Åoñ»poúpa¼¼a ¼oªeΓ íδΓ∞ óδºóa¡a ¿º ñpπú¿x »poúpa¼¼¡δx eñ¿¡¿µ. Oñ¡a¬o ö«αΓαá¡ ¡e ño»πc¬aeΓ pe¬πpc¿ó¡oúo óδºoóa »oñ»poúpa¼¼. ¥Γo oº¡aτaeΓ, τΓo »«ñ»α«úαá¼¼á ¡e ¼oªeΓ óδºδóaΓ∞ ca¼a ceí∩, ¡e ¼oªeΓ óδºóaΓ∞ ñpπúπε »oñ»poúpa¼¼π, ó ¬«Γ«α«⌐ ÑßΓ∞ «íαáΘÑ¡¿Ñ ¬ ¡Ñ⌐ ßá- ¼«⌐. Ko¼»¿½∩Γop ¡e ß«ºñáÑΓ pe¬πpc¿ó¡δx oípaΘe¡¿⌐, ñaªe ec½¿ o¡¿ π¬áºá¡δ. Åp¿¼epδ: C Åα¿¼Ñα «»ÑαáΓ«αá CALL IF (IERR.NE.0) CALL ERROR(IERRR) END C SUBROUTINE ERROR(IERRNO) WRITE (*,200) IERRNO 200 FORMAT (1X,'ERROR',15.'DETECTED') END C Åα¿¼Ñα á½∞ΓÑα¡áΓ¿ó¡δσ ó«ºóαáΓ«ó CALL BAR (I,*10,J,*20,*30) WRITE (*,*)'normal return' GOTO 40 10 WRITE (*,*) 'return to 10' GOTO 40 20 WRITE (*,*) 'return to 20' GOTO 40 30 WRITE (*,*) 'return to 30' 40 CONTINUE . . . SUBROUTINE BAR (I,*,J,*,*) IF(I,EQ.10) RETURN 1 IF(I.EQ.20) RETURN 2 IF(I.EQ.30) RETURN 3 RETURN ▄─────────────────── █ CLOSE ▀─────────────────── ÄΓß«Ññ¿¡∩ÑΓ ºáñá¡¡«Ñ πßΓα«⌐ßΓó« ¿ »αÑαδóáÑΓ óó«ñ/óδó«ñ ¡á φΓ« πßΓα«⌐ßΓó«(ñ« ΓÑσ »«α »«¬á φΓ«Γ ªÑ ¡«¼Ñα ¡Ñ íπñÑΓ ß¡«óá «Γ¬αδΓ ¿ ß ¡¿¼ íπñÑΓ ßó∩ºá¡ ñαπú«⌐ Σá⌐½ ¿½¿ »α¿í«α). Åα«¿ßσ«ñ¿Γ «Γ¬áº «Γ Σá⌐½á Ñß½¿ ó «»ÑαáΓ«αÑ ÑßΓ∞ STATUS='DELETE'. ────────────────────────────────────────────────────────── CLOSE (½«ú¿τÑß¬¿⌐-¡«¼Ñα-πßΓα«⌐ßΓóá[,STATUS='ß«ßΓ«∩¡¿Ñ'] [,IOSTAT=µÑ½«Ñ-»α«óÑα¬á-óδσ«ñá]) ────────────────────────────────────────────────────────── âñe: ½«ú¿τÑß¬¿⌐-¡«¼Ñα-πßΓα«⌐ßΓóá - φΓ« «»αÑñÑ½¿ΓÑ½∞ ΓαÑíπÑ¼«ú« πßΓα«⌐- ßΓóá. Ä¡ ñ«½ªÑ¡ íδΓ∞ »Ñαóδ¼ »áαá¼ÑΓα«¼ ¿ ¡Ñ ¼«ªÑΓ íδΓ∞ «»αÑñÑ½¿ΓÑ½Ñ¼ ó¡πΓαÑ¡¡Ñú« πßΓα«⌐ßΓóá. ä½∩ í«½ÑÑ »«ñα«í¡«⌐ ¿¡Σ«α¼áµ¿¿ «í «»αÑñÑ½¿ΓÑ½Ñ πßΓα«⌐ßΓóá ¿ ñαπú¿σ φ½Ñ¼Ñ¡Γáσ «»Ñ- αáΓ«α«ó óó«ñá/óδó«ñá ß¼«Γα¿ΓÑ τáßΓ∞ 4 "æ¿ßΓÑ¼á óó«ñá/óδó«ñá". ß«ßΓ«∩¡¿Ñ - ¡Ñ«í∩ºáΓÑ½∞¡δ⌐ »áαá¼ÑΓα, ¬«Γ«αδ⌐ ¼«ªÑΓ íδΓ∞ ½¿í« KEEP, ½¿í« DELETE. ¥Γ« ß¿¼ó«½∞¡á∩ ¬«¡ßΓá¡Γá ¿ «¡á ñ«½ª¡á íδΓ∞ ºá¬½ετÑ¡á ó «ñ¿¡«τ¡δÑ ¬áóδτ¬¿. àß½¿ ß«ßΓ«∩¡¿Ñ ¡Ñ «»αÑñÑ½Ñ¡«, Γ« »« π¼«½τá¡¿ε ¿ß»«½∞ºπ- ÑΓß∩ KEEP, ºá ¿ß¬½ετÑ¡¿Ñ¼ óß»«¼«úáΓÑ½∞¡δσ Σá⌐½«ó, ñ½∩ ¬«Γ«αδσ »« π¼«½τá¡¿ε ¿ß»«½∞ºπÑΓß∩ DELETE.éß»«¼«úáΓÑ½∞¡δÑ Σá⌐½δ óßÑúñá π¡¿τΓ«ªáεΓß∩ »α¿ ¡«α¼á½∞¡«¼ «¬«¡τá¡¿¿ »α«úαá¼¼δ ¿ íÑß»«½Ñº¡« ºáñáóáΓ∞ STATUS='KEEP' ñ½∩ óß»«- ¼«úáΓÑ½∞¡δσ ¿½¿ óαÑ¼Ñ¡¡δσ Σá⌐½«ó. µÑ½«Ñ-»α«óÑα¬á-óδσ«ñá - µÑ½á∩ »ÑαÑ¼Ñ¡¡á∩ ¿½¿ φ½Ñ¼Ñ¡Γ µÑ½«ú« ¼áß- ß¿óá, ¬«Γ«αδ⌐ «»αÑñÑ½Ñ¡ ¬á¬ : á. ¡π½∞, Ñß½¿ ¡Ñ óßΓαÑΓ¿½«ß∞ «Φ¿í¬¿ ¿½¿ ¬«¡µá Σá⌐½á. í. ¼áΦ¿¡¡«-ºáó¿ß¿¼á∩ »«½«ª¿ΓÑ½∞¡á∩ µÑ½á∩ óÑ½¿τ¿¡á, Ñß½¿ óßΓαÑΓ¿½áß∞ «Φ¿í¬á. ó. ¼áΘ¿¡¡«-ºáó¿ß¿¼á∩ «Γα¿µáΓÑ½∞¡á∩ µÑ½á∩ óÑ½¿τ¿¡á, Ñß½¿ óßΓαÑΓ¿½ß∩ ¬«¡Ñµ Σá⌐½á ¿ ¡Ñ íδ½« «Φ¿í«¬. Äß«íÑ¡¡«ßΓ¿. CLOSE ¡Ñ ñÑ⌐ßΓóπÑΓ ñ½∩ ¡π½Ñó«ú« πßΓ«⌐ßΓóá, Γá¬ ¬á¬ CLOSE ¡Ñ αáí«ΓáÑΓ ß ¬½áó¿áΓπα«⌐ ¿ φ¬αá¡«¼. ÄΓ¬αδΓδÑ Σá⌐½δ ¡Ñ «í∩ºáΓÑ½∞¡« ºá¬αδóáΓ∞. ì«α¼á½∞¡«Ñ «¬«¡τá¡¿Ñ »α«úαá¼¼δ ¡á îæ-ö«αΓαá¡Ñ ºá¬α«ÑΓ ¬áªñδ⌐ Σá⌐½ ß Ñú« ß«ßΓ«∩¡¿Ñ¼ »« π¼«½τá¡¿ε. Åα¿¼Ñα. æ çá¬αδΓ¿Ñ Σá⌐½á, «Γ¬αδΓ«ú« ó »α¿¼ÑαÑ OPEN C c «Γ¬áº«¼ «Γ Σá⌐½á CLOSE (7,STATUS='DELETE') ▄─────────────────── █ COMMON ▀─────────────────── Oíec»eτ¿óaeΓ oíΘπε »a¼∩Γ∞ ¼eªñπ ñóπ¼∩ ¿½¿ ¡ec¬o½∞¬¿¼¿ »poú- pa¼¼¡δ¼¿ eñ¿¡¿µa¼¿. Ta¬¿Ñ »oñ»poúpa¼¼δ ¼oúπΓ oí¼e¡¿óaΓ∞c∩ ña¡¡δ¼¿ íeº »epeñaτ¿ ¿x τepeº »apa¼eΓpδ. ─────────────────────────────────────────────────────── COMMON[/[¿¼∩]/]ß»¿ß«¬[[,]/[¿¼∩]/ß»¿ß«¬]... ─────────────────────────────────────────────────────── âñe: ¿¼∩ - ¿¼∩ common-í½o¬a. Ec½¿ ¿¼∩ oΓcπΓcΓóπeΓ, Γo ño»πc¬aeΓc∩ Γo½∞¬o oñ¿¡ íeºδ¼∩¡¡δ⌐ common-í½o¬. ß»¿ß«¬ - c»¿co¬ ¿¼e¡ »epe¼e¡¡δx, ¿¼e¡ ¼acc¿óoó ¿ o»¿ca¡¿⌐ ¼acc¿óoó, paºñe½e¡¡δσ ºa»∩Γδ¼¿. ê¼e¡a Σop¼a½∞¡δx »apa¼eΓpoó ¿ Σπ¡¬µ¿⌐ ¡e ¼oúπΓ »o∩ó½∩Γ∞c∩ ó common-í½o¬e. Äß«íÑ¡¡«ßΓ¿. ä½∩ ¬aªñoú« o»epaΓopá COMMON óce »epe¼e¡¡δe ¿ ¼acc¿óδ, »o∩ó½∩- εΘ¿ec∩ ó ¬aªño¼ »epeτ¡e »oc½e ¿¼e¡¿ COMMON-í½o¬a, ño½ª¡δ íδΓ∞ o»¿ca¡δ »epeñ ¿c»o½∞ºoóa¡¿e¼. OΓcπΓcΓó¿e ¿¼e¡¿ oº¡aτaeΓ, τΓo óce φ½e¼e¡Γδ ó »epóo¼ c»¿c¬e »p¿¡añ½eª¿Γ íeºδ¼∩¡¡o¼π COMMON-í½o¬π. ê¼∩ COMMON-í½o¬a ¼oªeΓ »o∩ó¿Γ∞c∩ ¡ec¬o½∞¬o paº ó o»epaΓopax COMMON ó oñ¡«⌐ ¿ Γ«⌐ ªÑ »poúpa¼¼¡«⌐ eñ¿¡¿µÑ. Bce φ½e¼e¡Γδ óo ócex c»¿c¬ax o»peñe½e¡¡oúo COMMON-í½o¬a αáß»«½«úáεΓß∩ ó oíΘe⌐ oí½acΓ¿ »a¼∩Γ¿ ó Γo¼ »op∩ñ¬e, ó ¬a¬o¼ o¡¿ pac»o½oªe¡δ ó o»epaΓop COMMON. Coópe¼e¡¡a∩ óepc¿∩ Mæ-ö«αΓαá¡á «úαá¡¿τ¿óáÑΓ óδαáó¡¿óá¡¿Ñ íá⌐- Γ«óδσ áñαÑß«ó ¡Ñß¿¼ó«½∞¡δσ »ÑαÑ¼Ñ¡¡δσ ó ß½πτáÑ ß«»«ßΓáó½Ñ¡¿∩ ß¿¼- ó«½∞¡δσ ¿ ¡Ñß¿¼ó«½∞¡δσ »ÑαÑ¼Ñ¡¡δσ ó¡πΓp¿ o»epaΓopa COMMON. êº-ºá ΓαÑí«óá¡¿⌐ π»«α∩ñ«τÑ¡¿∩ Γαá¡ß½∩Γ«α ¡Ñ ¼«ªÑΓ óδαáó¡∩Γ∞ »oº¿µ¿¿ »e- pe¼e¡¡δx ó¡πΓp¿ COMMONa ó ß««ΓóÑΓßΓó¿¿ ß «úαá¡¿τÑ¡¿Ñ¼ ¡á áñαÑßá. B Γex c½πτa∩x, ¬oúña ecΓ∞ ¡ecoú½acoóa¡¡ocΓ∞, ¬o¼»¿½∩Γop óδñaeΓ oΦ¿í¬π. ä½¿¡a COMMON-í½o¬a paó¡a ¬o½¿τecΓóπ ía⌐Γoó »a¼∩Γ¿, oΓóeñe¡- ¡o⌐ »oñ óce »o½e φ½e¼e¡Γoó ó φΓo¼ COMMON-í½o¬e. Ec½¿ ¬a¬a∩-¡¿íπñ∞ »poúpa¼¼¡a∩ eñ¿¡¿µa ccδ½aeΓc∩ ¡a ¿¼e¡«óá¡¡δ⌐ COMMON-í½o¬, o¡ ño½ªe¡ ¿¼eΓ∞ oñ¿¡a¬oóπε ñ½¿¡π óo ócex »poúpa¼¼¡δx eñ¿¡¿µax. üeºδ¼∩¡¡δ⌐ COMMON-í½o¬, Γe¼ ¡e ¼e¡ee, ¼oªeΓ ¿¼eΓ∞ paº½¿τ¡δe ñ½¿¡δ ó paº½¿τ¡δx »poúpa¼¼¡δx eñ¿¡¿µax. ä½¿¡a íeºδ¼∩¡¡oúo COMMON-í½o¬a ecΓ∞ ¼a¬c¿- ¼a½∞¡a∩ ñ½¿¡a. Åp¿¼ep: C Åα¿¼Ñα íÑºδ¼∩¡¡«ú« ¿ ¿¼Ñ¡«óá¡¡«ú« COMMON-í½«¬«ó PROGRAM MYPROG COMMON I,J,X,K(10) COMMON /MYCOM/ A(3) . . . END SUBROUTINE MYSUB COMMON I,J,X,K(10) COMMON /MYCOM/ A(3) . . . END ▄────────────────────── █ CONTINUE ▀────────────────────── O»epaΓop CONTINUE »pe¿¼πΘecΓóe¡¡o ¿c»o½∞ºπeΓc∩ ¬a¬ πñoí¡a∩ Γoτ¬a ñ½∩ paº¼eΘe¡¿∩ ¼eΓ¬¿, ó τacΓ¡ocΓ¿ - ¬a¬ ¬o¡eτ¡δ⌐ o»epaΓop a o»epaΓope µ¿¬½a DO. ──────────────────────────────────── CONTINUE ──────────────────────────────────── Ocoíe¡¡ocΓ¿: êc»o½∞ºoóa¡¿e ¡e ó½¿∩eΓ ¡a φΣe¬Γ¿ó¡ocΓ∞ »poúpa¼¼δ. Åp¿¼ep: C Åα¿¼Ñα «»ÑαáΓ«αá CONTINUE DO 10,I=1,10 IARRAY(I)=0 10 CONTINUE ▄────────── █ DATA ▀────────── Åp¿cóoe¡¿e ¡aτe½∞¡δx º¡aτe¡¿⌐ »epe¼e¡¡δ¼. ────────────────────────────────────────────────── DATA c»¿ß«¬-»/c»¿ß«¬-¬/[[,]ß»¿ß«¬-»/c»¿ß«¬-¬]... ────────────────────────────────────────────────── âñe: ß»¿ß«¬-» - »epeτe¡∞ »epe¼e¡¡δx, φ½e¼e¡Γoó ¼acc¿óa ¿½¿ ¿¼e¡a ¼ac- c¿óoó. ß»¿ß«¬-¬ - c»¿co¬ ¬o¡cΓa¡Γ, ¿½¿ ¬o¡cΓa¡Γa, ¬oΓopo⌐ »peñΦecΓóπeΓ µe½oe τ¿c½o c »p¿º¡a¬o¼ »oóΓope¡¿∩ (ºóeºñoτ¬o⌐): Åp¿¼ep: 5*3.14159 3*'Help' 100*0 Ocoíe¡¡ocΓ¿: Åp¿º¡a¬ »oóΓope¡¿∩, co cΓo∩Θe⌐ »oc½e ¡eúo ¬o¡cΓa¡Γo⌐, φ¬ó¿- óa½e¡Γe¡ c»¿c¬π ócex ¬o¡cΓa¡Γ, ¿¼eεΘ¿x oñ¡o ¿ Γoªe º¡aτe¡¿e ¿ »oó- Γop∩εΘ¿xc∩ cΓo½∞¬o paº, c¬o½∞¬o o»peñe½e¡o º¡aτe¡¿e¼ ¬o¡cΓa¡Γδ »oóΓope¡¿∩. O»epaΓop DATA ó oíΘe¼ c½πτae ∩ó½∩eΓc∩ ¡eóδ»o½¡∩e¼δ¼ o»epa- Γopo¼. O¡ ño½ªe¡ cΓo∩Γ∞ »oc½e ócex o»epaΓopoó o»¿ca¡¿∩, oñ¡a¬o ¼oªeΓ cΓo∩Γ∞ ó¡πΓp¿ »poúpa¼¼δ ó¼ecΓe c o»epaΓopá¼¿ - Σπ¡¬µ¿∩¼¿ ¿ óδ»o½¡∩e¼δ¼¿ o»epaΓopa¼¿. Ko½¿τecΓóo óe½¿τ¿¡ ó ß»¿ß¬Ñ-¬ ño½ª¡o cooΓóeΓcΓóoóaΓ∞ »epe¼e¡¡δ¼ ¿½¿ φ½e¼e¡Γa¼ ¼acc¿óa ó cooΓóeΓcΓóπεΘe¼ ß»¿ß¬Ñ-». Å«- ∩ó½Ñ¡¿ ¼áßß¿óá ó ß»¿ß¬Ñ-» cooΓóeΓcΓóπeΓ »epeτ¡ε ócex φ½e¼e¡Γoó φΓoúo ¼acc¿óa ó »«α∩ñ¬Ñ αáß»«½«ªÑ¡¿∩ ó »a¼∩Γ¿. ¥½e¼e¡Γδ ¼acc¿óa ño½ª¡δ "¿¡ñe¬c¿poóaΓ∞c∩" Γo½∞¬o »p¿ »o¼oΘ¿ ¬«¡ßΓá¡Γ. T¿» ¬aªñoúo ¡eß¿¼ó«½∞¡«ú« φ½e¼e¡Γa ó ß»¿ß¬Ñ-¬ ño½ªe¡ cooΓóeΓ- cΓóoóaΓ∞ Γ¿»π cooΓóeΓcΓóπεΘe⌐ »epe¼e¡¡o⌐ ¿½¿ φ½e¼e¡Γa ¼acc¿óa ó ß»¿ß¬Ñ-». Oñ¡a¬o ¼eΓa¬o¼a¡ña $NOTSTRICT ño»πc¬áÑΓ, τΓoíδ ß¿¼ó«½∞- ¡δ φ½e¼e¡Γ ó ß»¿ß¬Ñ-¬ cooΓóeΓcΓóoóa½ »epe¼e¡¡o⌐ ñpπúoúo Γ¿»a. æ¿¼ó«½∞¡δ⌐ φ½e¼e¡Γ ño½ªÑ¡ íδΓ∞ paó¡«⌐ ¿½¿ ¼e¡∞ΦÑ⌐ ñ½¿¡δ, τΓo ¿ ñ½¿¡a cooΓóeΓcΓóπεΘe⌐ »epe¼e¡¡o⌐ ¿½¿ φ½e¼e¡Γa ¼acc¿óa. Ec½¿ ñ½¿¡a ¬o¡cΓa¡Γδ ¬opoτe, τe¼ ¡año, Γo o¡a pacΦ¿p∩eΓc∩ ño ñ½¿¡δ »epe¼e¡¡o⌐ »πΓe¼ ñoíaó½e¡¿∩ »πcΓδx »oº¿µ¿⌐ c»paóa. Oñ¡a ß¿¼ó«½∞¡á∩ ¬o¡cΓa¡Γa ¡e ¼oªeΓ íδΓ∞ ¿c»o½∞ºoóa¡a ñ½∩ o»peñe½e¡¿∩ ío½ee τe¼ oñ¡o⌐ »epe¼e¡- ¡o⌐ ¿½¿ ío½ee τe¼ oñ¡oúo φ½e¼e¡Γa ¼acc¿óa. To½∞¬o ½o¬a½∞¡δe »epe¼e¡¡δe ¿ φ½e¼e¡Γδ ¼acc¿óoó ¼oúπΓ ¿c»o- ½∞ºoóaΓ∞c∩ ó o»epaΓope DATA. Åp¿ »o¼oΘ¿ o»epaΓopa DATA ¡e ¼oúπΓ íδΓ∞ »p¿cóoe¡δ º¡aτe¡¿∩ Σop¼a½∞¡δ¼ »apa¼eΓpa¼, »epe¼e¡¡δ¼ ¿º íeºδ- ¼∩¡¡δx COMMON - í½o¬oó ¿ ¿¼e¡a¼ Σπ¡¬µ¿⌐. ç¡aτe¡¿∩ »epe¼e¡¡δ¼ ¿ ¼acc¿óa¼ ¿º ¿¼e¡«óá¡¡δx COMMON - í½o¬oó ¼oúπΓ íδΓ∞ »p¿cóoe¡δ o»epaΓopo¼ DATA, ec½¿ φΓoΓ DATA coñepª¿Γc∩ ó »oñ»poúpa¼¼e BLOCK DATA. He ño»πc¬aeΓc∩ ¿c»o½∞ºoóa¡¿e ó o»epaΓope DATA coτeΓa¡¿∩ óe½¿τ¿¡ ñóo⌐¡o⌐ ¿ oíδτ¡o⌐ Γoτ¡ocΓ¿. To ecΓ∞, ec½¿ »epe¼e¡¡a∩ ¿½¿ φ½e¼e¡Γ ¼acc¿óa ó ß»¿ß¬Ñ-» ∩ó½∩eΓc∩ óe½¿τ¿¡o⌐ oíδτ¡o⌐ Γoτ¡ocΓ¿, Γo cooΓóeΓcΓóπεΘee º¡aτe¡¿e ó ß»¿ß¬Ñ-¬ ¡e ¼oªeΓ íδΓ∞ ñóo⌐¡o⌐ Γoτ¡ocΓ¿. Åp¿¼epδ: INTEGER N,ORDER,ALPHA REAL COEF(4),EPS(2) DATA N/0/,ORDER/3/ DATA ALPHA/'A'/ DATA COEF/1.0,2*3.0,1.0/,EPS(1)/.00001/ ▄─────────────────── █ DIMENSION ▀─────────────────── O»peñe½∩eΓ, ¬a¬¿e ¿º ¿c»o½∞ºπe¼δx ¿ñe¡Γ¿Σ¿¬aΓopoó ∩ó½∩εΓc∩ ¼acc¿óa¼¿ ¿ o»peñe½∩eΓ ¬o½¿τecΓóo ¿x φ½e¼e¡Γoó. ──────────────────────────────────────────────────────────── DIMENSION ¼áßß¿ó (αáº¼Ñα¡«ßΓ∞) [, ¼áßß¿ó(αáº¼Ñα¡«ßΓ∞)]... ──────────────────────────────────────────────────────────── âñe: ¼áßß¿ó - ¿¼∩ ¼acc¿óa αáº¼Ñα¡«ßΓ∞ - o»peñe½∩eΓ paº¼ep¡ocΓ¿ ¼acc¿óa ¿ »peñcΓaó½∩eΓ coío⌐ »epeτe¡∞ π¬aºa¡¡δσ paº¼ep¡ocΓÑ⌐, oíΘee ¬o½¿τecΓóo ¬oΓopδx ¼oªeΓ íδΓ∞ oΓ oñ¡oúo ño ce¼¿, paºñe½e¡¡δx ºa»∩Γδ¼¿. Ocoíe¡¡ocΓ¿: Ko½¿τecΓóo ¿º¼epe¡¿⌐ ¼acc¿óa ecΓ∞ τ¿c½o π¬aºaΓe½e⌐ paº¼ep- ¡ocΓ¿ ó o»¿ca¡¿¿ ¼acc¿óa. Ma¬c¿¼a½∞¡oe ¬o½¿τecΓóo ¿º¼epe¡¿⌐ - ce¼∞. ô¬aºaΓe½∞ paº¼ep¡ocΓ¿ ¼oªeΓ íδΓ∞: 1. ûe½o⌐ ¬o¡cΓa¡Γo⌐ íeº º¡a¬a. 2. êñe¡Γ¿Σ¿¬aΓopo¼, cooΓóeΓcΓóπεΘ¿¼ µe½o¼π Σop¼a½∞¡o¼π apúπ¼e¡Γπ. 3. çóeºñoτ¬o⌐. ô¬aºaΓe½∞ paº¼ep¡ocΓ¿ o»peñe½∩eΓ óepx¡εε úpa¡¿µπ paº¼ep¡ocΓ¿. H¿ª¡∩∩ úpa¡¿µa óceúña paó¡a eñ¿¡¿µe. Ec½¿ π¬aºaΓe½∞ paº¼ep¡ocΓ¿ ∩ó½∩eΓc∩ µe½o⌐ ¬o¡cΓa¡Γo⌐, Γo ¼acc¿ó ¿¼eeΓ cooΓóeΓcΓóπεΘee φΓo¼π τ¿c½π ¬o½¿τecΓóo φ½e¼e¡Γoó. Ec½¿ óce paº¼ep¡ocΓ¿ o»peñe½e¡δ µe½δ¼¿ ¬o¡cΓa¡Γa¼¿, Γo ¼acc¿ó ¿¼eeΓ »ocΓo∩¡¡δ⌐ paº¼ep. Ec½¿ π¬aºaΓe½∞ paº¼ep¡ocΓ¿ ∩ó½∩eΓc∩ µe½δ¼ Σop¼a½∞¡δ¼ apúπ- ¼e¡Γo¼, ¿½¿ µe½o⌐ »epe¼e¡¡o⌐ ¿º COMMONa, Γo φΓoΓ paº¼ep íπñeΓ o»- peñe½e¡ ó cooΓóeΓcΓó¿¿ c óxoñ¡δ¼ º¡aτe¡¿e¼ µe½oúo apúπ¼e¡Γa ¡a óxoñe ó »oñ»poúpa¼¼π óo ópe¼∩ ee óδ»o½¡e¡¿∩. B φΓo¼ c½πτae ¼acc¿ó ¡aºδóaeΓc∩ ¼acc¿óo¼ »epe¼e¡¡o⌐ paº¼ep¡ocΓ¿. Ec½¿ π¬aºaΓe½∞ paº¼ep¡ocΓ¿ ecΓ∞ ºóeºñoτ¬a, Γo ¼acc¿ó ∩ó½∩- eΓc∩ ¼acc¿óo¼ ¡eo»peñe½e¡¡o⌐ paº¼ep¡ocΓ¿ ¿ óepx¡∩∩ úpa¡¿µa φΓo⌐ paº¼ep¡ocΓ¿ ¡e o»peñe½e¡a. Bce ¼acc¿óδ »epe¼e¡¡o⌐ ¿½¿ ¡eo»peñe½e¡¡o⌐ paº¼ep¡ocΓ¿ ño½ª¡δ íδΓ∞ Γa¬ªe ó¬½ετe¡δ ó τ¿c½o Σop¼a½∞¡δx »apa¼eΓpoó Γo⌐ »poúpa¼¼¡o⌐ eñ¿¡¿µδ, ó ¬oΓopo⌐ o¡¿ »o∩ó¿½¿c∞. Kpo¼e Γoúo, π¬aºaΓe½∞ »epe¼e¡¡o⌐ paº¼ep¡ocΓ¿ ¼oªeΓ cΓo∩Γ∞ Γo½∞¬o ¡a »oc½eñ¡e¼ ¼ecΓe ó c»¿c¬e π¬aºa- Γe½e⌐ paº¼ep¡ocΓ¿ ó o»¿ca¡¿¿ ¼acc¿óa. ¥½e¼e¡Γδ ¼acc¿óa π»op∩ñoτe¡δ »o¬o½o¡¡o; ca¼δ⌐ ½eóδ⌐ ¿¡ñe¬c ¿º¼e¡∩eΓc∩ ¡a¿ío½ee íδcΓpo, Γ.¬. añpeca ó »a¼∩Γ¿ »o φΓo¼π ¿¡ñe¬cπ pac»o½oªe¡δ p∩ño¼. Ha»p¿¼ep, c½eñπεΘ¿e o»epaΓopδ: INTEGER*2A(2,3) DATA A/1,2,3,4,5,6/ ñañπΓ peºπ½∞ΓaΓ ó c½eñπεΘe¼ ó¿ñe (»peñ»o½aúa∩, τΓo ¼acc¿ó A paº- ¼eΘaeΓc∩ ó »a¼∩Γ¿ c añpeca 1000): ┌───────────────────┬──────────────────────┬─────────────┐ │ ¥½e¼e¡Γ ¼acc¿óa │ Añpec │ ç¡aτe¡¿∩│ ├───────────────────┼──────────────────────┼─────────────┤ │ A(1,1) │ 1000 │ 1 │ │ A(2,1) │ 1002 │ 2 │ │ A(1,2) │ 1004 │ 3 │ │ A(2,2) │ 1006 │ 4 │ │ A(1,3) │ 1008 │ 5 │ │ A(2,3) │ 100A │ 6 │ └───────────────────┴──────────────────────┴─────────────┘ Åp¿¼ep: DIMENSION A(2,3), V(10) CALL SUBR(A,2,V) . . . SUBROUTINE SUBR(MATRIX,ROWS,VECTOR) REAL MATRIX,VECTOR INTEGER ROWS DIMENSION MATRIX(ROWS,*),VECTOR(10), +LOCAL(2,4,8) MATRIX(1,1) = VECTOR(5) . . . END ▄──────── █ DO ▀──────── ÅoóΓop¡oe óδ»o½¡e¡¿e o»epaΓopoó, c½eñπεΘ¿x ºa DO ó»½oΓ∞ ño «»ÑpaΓopa c ¼ÑΓ¬o⌐ slabel ó¬½ετ¿Γe½∞¡o. ──────────────────────────────────────────────────────── DO slabel [,]variable=expr1,expr2[,expr3] ──────────────────────────────────────────────────────── âñÑ: slabel - o»epaΓop¡a∩ ¼eΓ¬a óδ»o½¡∩e¼oúo o»epaΓopa. variable - µe½a∩ »epe¼e¡¡a∩ expr1,expr2,expr3 - µe½oe óδpaªe¡¿e Ocoíe¡¡ocΓ¿: MeΓ¬a, π¬aºδóaεΘa∩ ¡a »oc½eñ¡¿⌐ óδ»o½¡∩e¼δ⌐ o»epaΓop, ñ«½ª¡a cΓo∩Γ∞ »oc½e o»epaΓopa DO ¿ c«ñepªaΓ∞c∩ ó Γo⌐ ªe »poúpa¼¼o⌐ eñ¿¡¿- µe. Åo¼eτe¡¡δ⌐ o»epaΓop ¡aºδóaeΓc∩ ¬o¡eτ¡δ¼ o»epaΓopo¼ µ¿¬½a DO, ¿ ¡e ño½ªe¡ íδΓ∞ o»epaΓopa¼¿: GO TO, »p¿cóa¿óae¼δ¼ GO TO, ap¿Σ¼e- Γ¿τec¬¿¼ IF, í½o¬oóδ¼ IF, ELSEIF, ELSE, ENDIF, RETURN, STOP, END, ¿½¿ o»epaΓopo¼ DO. Ec½¿ ¬o¡eτ¡δ⌐ o»epaΓop ∩ó½∩eΓc∩ ½oú¿τec¬¿¼ IF, Γo o¡ ¼oªeΓ coñepªaΓ∞ ½εío⌐ óδ»o½¡∩e¼δ⌐ o»epaΓop ¿c¬½ετa∩ Γe, ¬o- Γopδe ¡e ºa»πc¬aεΓc∩ ó¡πΓp¿ ½oú¿τec¬oúo o»epaΓopa IF. Oí½acΓ∞ óδ»o½¡e¡¿∩ o»epaΓopa µ¿¬½a DO ¡aτ¿¡aeΓc∩ c o»epaΓo- pa, c½eñπεΘeúo ºa o»epaΓopo¼ DO ¿ ¬o¡τaeΓc∩ »oc½eñ¡¿¼ o»epaΓopo¼ µ¿¬½a DO. H¿ªe »epeτ¿ß½e¡δ oúpa¡¿τe¡¿∩ ¡a óδ»o½¡e¡¿e o»epaΓopa DO: 1. Ec½¿ o»epaΓop DO »o∩ó¿Γc∩ ó¡πΓp¿ oí½acΓ¿ óδ»o½¡e¡¿∩ ñpπúoúo µ¿¬½a DO, eúo oí½acΓ∞ ño½ª¡a coñepªaΓ∞c∩ ó¡πΓp¿ oí½acΓ¿ ó¡eΦ- ¡eúo µ¿¬½a, xoΓ∩ µ¿¬½δ ¼oúπΓ ¿¼eΓ∞ oíΘ¿⌐ ¬o¡eτ¡δ⌐ o»epaΓop. 2. Ec½¿ o»epaΓop DO pacc»o½aúaeΓc∩ ó »peñe½ax oí½acΓ¿ óδ»o½¡e¡¿∩ o»epaΓopoó IF,ELSEIF ¿½¿ ELSE-í½o¬oóoúo, eúo oí½acΓ∞ óδ»o½¡e- ¡¿∩ ño½ª¡a coñepªaΓ∞c∩ ó¡πΓp¿ cooΓóeΓcΓóπεΘeúo í½o¬a. 3. Ec½¿ í½o¬oóδ⌐ o»epaΓop IF »o∩ó½∩eΓc∩ ó oí½acΓ¿ óδ»o½¡e¡¿∩ µ¿¬½a DO, eúo cooΓóeΓcΓóπεΘ¿⌐ o»epaΓop ENDIF ño½ªe¡ Γa¬ ªe coñep- ªaΓ∞c∩ ó¡πΓp¿ oí½acΓ¿ óδ»o½¡e¡¿∩ o»epaΓopa µ¿¬½a DO. Åapa¼eΓp µ¿¬½a o»epaΓopa DO ¡e ¼oªeΓ íδΓ∞ ¿º¼e¡e¡ ¬a¬¿¼-½¿ío oípaºo¼ »ocpeñcΓóo¼ o»epaΓopoó, coñepªaΘ¿xc∩ ó¡πΓp¿ oí½acΓ¿ ñe⌐cΓ- ó¿∩. Bxoñ ó oí½acΓ∞ óδ»o½¡e¡¿∩ µ¿¬½a ¿ºó¡e ¡e ño»πc¬aeΓc∩ (oñ¡a¬o ó ío½ee pa¡e⌐ óepc¿¿ ö«αΓαá¡á c»eµ¿a½∞¡δe ocoíe¡¡ocΓ¿ »oºóo½∩εΓ óo⌐Γ¿ ó oí½acΓ∞ µ¿¬½a ¿ºó¡e). ä½∩ ío½ee Γoτ¡o⌐ ¿¡Σop¼aµ¿¿ c¼oΓp¿ o»¿ca¡¿e ¼eΓa¬o¼a¡ñδ $DO66 ó τáßΓ¿ 6. B ¡e¬oΓopδx c½πτa∩x º¡aτe¡¿e »epe¼e¡¡o⌐ µ¿¬½a ¼oªeΓ »ÑαÑ»«½- ¡¿Γ∞ß∩ ó peºπ½∞ΓaΓe pacΦ¿pe¡¿∩, ¬oΓopoe ocπΘecΓó½∩eΓc∩ »peñóap¿- Γe½∞¡o ñ½∩ Γoúo, τΓoíδ »poóep¿Γ∞ ee ¡a óepx¡εε úpa¡¿µπ. B φΓo¼ c½πτae BaΦa »poúpa¼¼a Γex¡¿τec¬¿ ¡axoñ¿Γc∩ ó cocΓo∩¡¿¿ oΦ¿í¬¿, oñ¡a¬o φΓa oΦ¿í¬a ¡e Σ¿¬c¿pπeΓc∩ ¡¿ Γpa¡c½∩Γopo¼, ¡¿ ópe¼e¡¡o⌐ í¿í½¿oΓe¬o⌐ (run-time library). Oñ¡a¬o, ec½¿ »apa¼eΓp µ¿¬½a ∩ó¡o ¿½¿ ¡e∩ó¡o o»¿ca¡ ¬a¬ INTEGER*2 ¿ óoº¼oª¡ocΓ∞ »epe»o½¡e¡¿∩ ßπΘÑß- ΓóπÑΓ, Γo ap¿Σ¼eΓ¿τec¬¿e o»epaΓopδ íπñπΓ óδ»o½¡∩Γ∞c∩ ó 32-x paº- p∩ñ¡o⌐ ceΓ¬Ñ c ¡eoíxoñ¿¼δ¼¿ »peoípaºoóa¡¿∩¼¿, ¿ µ¿¬½ ºa¬o¡τ¿Γc∩ ¡op¼a½∞¡o. Ha»p¿¼ep: INTEGER*2I DO 100 I=32760,32767 . . . 100 CONTINUE Ec½¿ »apa¼eΓp µ¿¬½a íπñeΓ ∩ó¡o ¿½¿ ¡e∩ó¡o o»¿ca¡ ¬a¬ INTEGER*4 ¿ »epe»o½¡e¡¿e c½πτ¿Γc∩, º¡aτe¡¿e »epe¼e¡¡o⌐ íπñeΓ »ocΓo∩¡¡o óoº- ópaΘaΓ∞c∩ ¬ »peñδñπΘe¼π º¡aτe¡¿ε, »po¿ºo⌐ñeΓ ºaµ¿¬½¿óa¡¿e, µ¿¬½ ¡e ºa¬o¡τ¿Γc∩. Bδ»o½¡e¡¿e o»epaΓopa DO ºa¬½ετaeΓc∩ ó »oc½eñoóaΓe½∞¡o¼ óδ- »o½¡e¡¿¿ c½eñπεΘ¿x ñe⌐cΓó¿⌐: 1. Bδτ¿c½∩εΓ óδpaªe¡¿∩ expr1,expr2,expr3. Ec½¿ expr3 oΓcπΓcΓóπeΓ, φΓo oº¡aτaeΓ, τΓo o¡o paó¡o eñ¿¡¿µe. 2. Åepe¼e¡¡o⌐ µ¿¬½a »p¿cóa¿óa¡¿∩ º¡aτe¡¿e óδpaªe¡¿∩ expr1. 3. Ko½¿τecΓóo o»epaµ¿⌐ ó µ¿¬½e: MAXO(((expr2-expr1+expr3)/expr3),0) Ko½¿τecΓóo o»epaµ¿⌐ ¼oªeΓ íδΓ∞ paó¡o ¡π½ε ó ñóπx c½eñπεΘ¿x c½πτa∩x: a). expr1 ío½∞Φe τe¼ expr2 ¿ expr3 ío½∞Φe ¡π½∩. í). expr1 ¼e¡∞Φe τe¼ expr2 ¿ expr3 í¼e¡∞Φe τe¼ ¡o½∞. Oñ¡a¬o, ó c½πτae ¿c»o½∞ºoóa¡¿∩ ¼eΓa¬o¼a¡ñδ $DO66 µ¿¬½ óδ»o½- ¡∩eΓc∩ »o ¬pa⌐¡e⌐ ¼epe oñ¿¡ paº. 4. Åpoóep∩eΓc∩ ¬o½¿τecΓóo o»epaµ¿⌐, ¿ ec½¿ o¡o ío½∞Φe ¡π½∩, óδ- »o½¡∩εΓc∩ o»epaΓopδ, pacc»o½oªe¡¡δe ó oí½acΓ¿ óδ»o½¡e¡¿∩ o»epaΓopa DO. Ko¡eτ¡δ⌐ o»epaΓop o»epaΓopa DO óδ»o½¡∩eΓc∩ Γoúña, ¬oúña ¿¼eεΓ ¼ecΓo c½eñπεΘ¿e πc½oó¿∩: 1. ç¡aτe¡¿e »epe¼e¡¡o⌐ µ¿¬½a DO óoºpacΓaeΓ ó peºπ½∞ΓaΓe ñoíaó- ½e¡¿∩ expr3, óδτ¿c½e¡¡oúo ó »poµecce óδ»o½¡e¡¿∩ o»epaΓopa DO. 2. Ko½¿τecΓóo ¿Γepaµ¿⌐ π¼e¡∞ΦaeΓc∩ ¡a eñ¿¡¿µπ. 3. Åpoóep∩eΓc∩ ¬o½¿τecΓóo ¿Γepaµ¿⌐. Ec½¿ o¡o ¡epaó¡o ¡π½ε, o»e- paΓopδ ¿º oí½acΓ¿ óδ»o½¡e¡¿∩ µ¿¬½a DO óδ»o½¡∩εΓc∩ c¡oóa. ç¡aτe¡¿e »epe¼e¡¡o⌐ µ¿¬½a ¡e ∩ó½∩eΓc∩ ¡eo»peñe½e¡¡δ¼, ¿c¬½ε- τa∩ c½πτa¿, ¬oúña µ¿¬½ »pe¬paΓ¿½c∩ ó peºπ½∞ΓaΓe Γoúo, τΓo ¬o½¿τe- cΓóo ¿Γepaµ¿⌐ paó¡o ¡π½ε, ¿½¿ ¬oúña óδxoñ ¿º µ¿¬½a »po¿ºoΦe½ ó peºπ½∞ΓaΓe »epeñaτ¿ π»paó½e¡¿∩. Åp¿¼epδ: C éδßóÑτ¿óá¡¿Ñ ¡«¼Ñα«ó ß 1 ñ« 11 ¡á φ¬αá¡Ñ C ºñÑß∞ »«¬áºá¡á ¬«¡Ñτ¡á∩ óÑ½¿τ¿¡á »ÑαÑ¼Ñ¡¡«⌐ DO DO 200 I=1,10 200 WRITE(*,'(15)')I WRITE(*,'(15)')I C çáóÑñÑ¡¿Ñ 20-φ½Ñ¼Ñ¡Γ¡«ú« ñÑ⌐ßΓó¿ΓÑ½∞¡«ú« ¼áßß¿óá DIMENSION ARRAY(20) DO 1 I = 1,20 1 ARRAY(I) = 0.0 C éδ»«½¡Ñ¡¿Ñ Σπ¡¬µ¿¿ 11 αáº DO 2,I = -30,-60,-3 J = I/3 J = -9J ARRAY(J) = MYFUNC(I) 2 CONTINUE ▄─────────── █ ELSE ▀────────── OΓ¼eτaeΓ ¡aτa½o í½o¬a ELSE. Bδ»o½¡e¡¿Ñ ßá¼«ú« «»ÑαáΓ«αá ¡Ñ «¬áºδóáÑΓ ó½¿∩¡¿∩ ¡á »α«úαá¼¼π. ────────────────────────────────────── ELSE ────────────────────────────────────── Ocoíe¡¡ocΓ¿: Åp¿coeñ¿¡e¡¡δ⌐ í½o¬ ELSE coñepª¿Γ óδ»o½¡∩e¼δe o»epaΓopδ (óoº- ¼oª¡o ¡¿ oñ¡oúo), ¬oΓopδe cΓo∩Γ »oc½e o»epaΓopa ELSE ¿ ño (¡« ¡Ñ ó¬½ετá∩ Ñú«) o»epaΓopa ENDIF, «Γ¡«ß∩ΘÑú«ß∩ ¬ Γ«¼π ªÑ o»epaΓopπ IF, ¬ ¬«Γ«α«¼π «Γ¡«ß¿Γß∩ ELSE. æ««ΓóÑΓßΓóπεΘ¿⌐ o»epaΓop ENDIF ño½ªe¡ »o∩ó¿Γ∞c∩ »epeñ ½εíδ¼ ¡aτa½∞¡δ¼ o»epaΓopo¼ ELSE ¿½¿ ELSEIF ñpπúoúo πpoó¡∩ o»epaΓopa IF (c¼oΓp¿ óσ«ñδ «»ÑαáΓ«αá IF THEN ELSE »α¿ αáºí«αÑ πpoó¡e⌐ o»epaΓopa IF). Åepeñaτa π»paó½e¡¿∩ óo ó¡πΓp∞ í½o¬a ELSE ¿ºó¡e ¡e ño»πc¬aeΓc∩. Åp¿¼ep: CHARACTER C . . . READ (*,'(A)') C IF (C.EQ.'A') THEN CALL ASUB ELSE CALL OTHER ENDIF . . . ▄───────────── █ ELSEIF ▀───────────── ê¡¿µ¿¿pπeΓ óδτ¿ß½Ñ¡¿Ñ óδpaªe¡¿∩. ──────────────────────────────────────────────── ELSEIF (óδpaªe¡¿e) THEN ──────────────────────────────────────────────── âñe: óδpaªe¡¿e - ½oú¿τec¬oe óδpaªe¡¿e. Ec½¿ eúo º¡aτe¡¿e ecΓ∞ "¿cΓ¿¡a" ¿ ó í½o¬e ELSEIF »p¿cπΓcΓóπeΓ »o ¬pa⌐¡e⌐ ¼epe oñ¿¡ o»e- paΓop, Γo í½¿ªa⌐Φ¿⌐ o»epaΓop, ¬oΓopδ⌐ óδ»o½¡∩eΓc∩, ∩ó- ½∩eΓc∩ »epóδ¼ o»epaΓopo¼ ELSEIF í½o¬a. Ocoíe¡¡ocΓ¿: Åp¿coeñ¿¡∩e¼δ⌐ í½o¬ ELSEIF cocΓo¿Γ ¿º ½εíδx óδ»o½¡∩e¼δx o»e- paΓopoó (óoº¼oª¡o íeº eñ¿¡oúo), ¬oΓopδe c½eñπeΓ ºa ELSEIF ¿ ó»½oΓ∞ ño í½¿ªa⌐Φ¿x ELSEIF,ELSE ¿½¿ ENDIF o»epaΓopoó, ¬oΓopδe pac»o½aúa- εΓc∩ ¡a Γo¼ ªe πpoó¡e o»epaΓopa IF, τΓo ¿ ña¡¡δ⌐ o»epaΓop ELSEIF. Å«ß½Ñ óδ»o½¡Ñ¡¿∩ óceσ o»epaΓop«ó ELSEIF-í½o¬a óδ»«½¡∩ÑΓß∩ «»ÑαáΓ«α,ß½ÑñπεΘ¿⌐ ºá «»ÑαáΓop«¼ ENDIF Γoúo ªe πpoó¡∩ IF, τΓo ¿ ña¡¡δ⌐ o»epaΓop ELSEIF. Ec½¿ óδpaªe¡¿e o»epaΓopa ELSEIF oµe¡e¡o ¬a¬ "¿cΓ¿¡a" ¿ í½o¬ o»epaΓopa ELSEIF ¡e coñepª¿Γ ¡¿ oñ¡oúo óδ»o½¡∩e¼oúo o»epaΓopa, Γo í½¿ªa⌐Φ¿¼ óδ»o½¡∩e¼δ¼ o»epaΓopo¼ ∩ó½∩eΓc∩ í½¿ªa⌐Φ¿⌐ o»epaΓop ENDIF Γoúo ªe πc½oó¡oúo πpoó¡∩, τΓo ¿ o»epaΓop ELSEIF. Ec½¿ óδpaªe¡¿e oµe¡e¡¡o ¬a¬ "½oª∞", Γo c½eñπεΘ¿¼ óδ»o½¡∩e¼δ¼ o»epaΓopo¼ ∩ó½∩eΓc∩ í½¿ªa⌐Φ¿⌐ ELSEIF,ELSE ¿½¿ ENDIF, ¬oΓopδe pac»o½oªe¡¡δ ¡a Γo¼ ªe πc½oó¡o¼ πpoó¡e, τΓo ¿ ña¡¡δ⌐ ELSEIF (c¼oΓp¿ óσ«ñδ o»epaΓopá IF THEN ELSE »α¿ αáºí«αÑ πpoó¡Ñ⌐). Åepeñaτa π»paó½e¡¿∩ óo ó¡πΓp∞ í½o¬a ELSEIF ¿ºó¡e ¡e ño»πc- ¬aeΓc∩. Åp¿¼ep: CìARACTER C . . READ (*,'(A)') C IF (C.EQ.'A') THEN CALL ASUB ELSEIF (C.EQ.'X') THEN CALL XSUB ELSE CALL OTHER ENDIF ▄─────────────── █ END ▀────────────── B »oñ»poúpa¼¼e oí½añaeΓ Γe¼ ªe ñe⌐cΓó¿e¼, τΓo ¿ o»epaΓop RETURN. B ú½aó¡o⌐ »poúpa¼¼e o¬a¡τ¿óaeΓ óδ»o½¡e¡¿e »poúpa¼¼δ: ──────────────────────────── END ──────────────────────────── Ocoíe¡¡ocΓ¿: O»epaΓopo¼ END ño½ª¡a ºa¬a¡τ¿óaΓ∞c∩ ¬aªña∩ »poúpa¼¼¡a∩ eñ¿- ¡¿µa. He ó »p¿¼ep ñpπú¿¼ o»epaΓopa¼, o»epaΓop END ño½ªe¡ cΓo∩Γ∞ ¡a oΓñe½∞¡o⌐ cΓpo¬e ¿ ó eñ¿¡cΓóe¡¡o¼ ó¿ñe (íeº ñpπú¿x o»epaΓopoó), a Γa¬ªe íeº ¼eΓ¬¿. He ño»πc¬aeΓc∩ »poño½ªe¡¿e cΓpo¬¿, ¡a ¬oΓopo⌐ ¡axoñ¿Γc∩ END. He ño»πc¬aeΓc∩ pac»o½oªe¡¿e ¡a cΓpo¬e, úñe cΓo¿Γ END, ¡¿¬a¬¿x ñpπú¿x o»epaΓopoó RETURNa, ó Γo¼ τ¿c½e ¿ ENDIF. Åα¿¼Ñα : æ Åα¿¼Ñα «»ÑαáΓ«αá END æ «»ÑαáΓ«α END ñ«½ªÑ¡ íδΓ∞ »«ß½Ññ¡¿¼ «»ÑαáΓ«α«¼ æ ó »α«úαá¼¼Ñ PROGRAM MYPROG WRITE (*,'(10H HI WORLD!)') ▄────────────── █ ENDFILE ▀────────────── çá»¿ßδóáÑΓ ºá»¿ß∞ ¬«¡µá Σá⌐½á ¬á¬ ß½ÑñπεΘπε ºá»¿ß∞ ó Σá⌐½, ß«Ññ¿¡Ñ¡¡δ⌐ ß ºáñá¡¡δ¼ πßΓα«⌐ßΓó«¼. ──────────────────────────────────────────── ENDFILE ½«ú¿τÑß¬¿⌐-¡«¼Ñα-πßΓα«⌐ßΓóá ──────────────────────────────────────────── âñÑ : ½«ú¿τÑß¬¿⌐ ¡«¼Ñα-πßΓα«⌐ßΓóá - φΓ« «»αÑñÑ½¿ΓÑ½∞ ºáñá¡¡«ú« ó¡ÑΦ¡Ñú« πßΓα«⌐ßΓóá. ä½∩ í«½ÑÑ »«½¡«⌐ ¿¡Σ«α¼áµ¿¿ «í «»αÑñÑ½¿ΓÑ½Ñ πß∞α«⌐ßΓóá ¿ ñαπú¿σ φ½Ñ- ¼Ñ¡Γáσ «»ÑαáΓ«α«ó óó«ñá/óδó«ñá ß¼«Γα¿ΓÑ τáßΓ∞ 4 "æ¿ßΓÑ¼á óó«ñá/óδó«ñá". Äß«íÑ¡¡«ßΓ¿. Å«ß½Ñ πßΓá¡«ó¬¿ ºá»¿ß¿ ¬«¡µá Σá⌐½á «»ÑαáΓ«α ENDFILE πßΓá¡áó- ½¿óáÑΓ π¬áºáΓÑ½∞ Σá⌐½á »«ß½Ñ ºá»¿ß¿ ¬«¡µá Σá⌐½á. ¥Γ« «íÑß»Ñτ¿óáÑΓ ñá½∞¡Ñ⌐Φπε »«ß½Ññ«óáΓÑ½∞¡πε »ÑαÑñáτπ ñá¡¡δσ »«ß½Ñ óδ»«½¡Ñ¡¿∩ «»Ñ- αáΓ«αá BACKSPACE ¿½¿ REWIND. ä½∩ Σá⌐½á »α∩¼«ú« ñ«ßΓπ»á ENDFILE ß¬αδóáÑΓ óßÑ αá¡ÑÑ ºá»¿ßá¡- ¡δÑ ºá»¿ß¿ ºá ó¡«ó∞ ßñÑ½á¡¡δ¼ ¬«¡µ«¼ Σá⌐½á. Åα¿¼Ñα : WRITE (6,*) X ENDFILE 6 REWIND 6 READ (6,*) Y ▄───────────────── █ ENDIF ▀───────────────── Ä¬á¡τ¿óáÑΓ «»ÑαáΓ«α í½«¬á IF. ────────────────────────────────────────── ENDIF ────────────────────────────────────────── Äß«íÑ¡¡«ßΓ¿. ä½∩ ¬áªñ«ú« «»ÑαáΓ«αá í½«¬á IF ó »α«úαá¼¼¡«⌐ Ññ¿¡¿µÑ ñ«½ªÑ¡ ßπΘÑßΓó«óáΓ∞ ß««ΓóÑΓßΓóπεΘ¿⌐ «»ÑαáΓ«α ENDIF ñ½∩ «»αÑñÑ½Ñ¡¿∩ «»Ñ- αáΓ«α«ó, «Γ¡«ß∩Θ¿σß∩ ¬ ¬«¡¬αÑΓ¡«¼π í½«¬π IF. æ¼«Γα¿ΓÑ «»¿ßá¡¿Ñ «»ÑαáΓ«αá IF THEN ELSE ñ½∩ »«¡¿¼á¡¿∩ ¿»α¿¼Ñα«ó í½«¬«ó IF. Åα¿¼Ñα : IF (I.LT.0) THEN X=-1 Y=-1 ENDIF ▄─────────────────────── █ EQUIVALENCE ▀─────────────────────── Ä»αÑñÑ½∩ÑΓ, τΓ« ñóÑ ¿½¿ í«½ÑÑ »ÑαÑ¼Ñ¡¡δσ ¿½¿ ¼áßß¿óá αáß»«- ½áúáεΓß∩ ¡á «ñ¡«⌐ »á¼∩Γ¿. ───────────────────────────────────────────────────── EQUIVALENCE (ß»¿ß«¬) [,(ß»¿ß«¬)]... ───────────────────────────────────────────────────── âñÑ : ß»¿ß«¬ - φΓ« ß»¿ß«¬ ¡Ñ ¼Ñ¡ÑÑ τÑ¼ ¿º ñóπσ φ½Ñ¼Ñ¡Γ«ó, αáºñÑ½Ñ¡¡δσ ºá»∩Γ«⌐. é ß»¿ß«¬ ¼«úπΓ óσ«ñ¿Γ∞ ¿¼Ñ¡á »ÑαÑ¼Ñ¡¡δσ, ¿¼Ñ¡á ¼áßß¿ó«ó ¿½¿ ¿¼Ñ¡á φ½Ñ¼Ñ¡Γ«ó ¼áßß¿ó«ó; ¡Ññ«»πßΓ¿¼δ ¿¼Ñ¡á »áαá¼ÑΓα«ó. ê¡ñÑ¬ßδ ñ«½ª¡δ íδΓ∞ µÑ½δ¼¿ ¬«¡ßΓá¡Γá¼¿ ¿ ¡á- σ«ñ¿Γ∞ß∩ ó¡πΓα¿ úαá¡¿µ ¼áßß¿ó«ó, ¬«Γ«αδÑ «¡¿ «»¿ßδóáεΓ. Åα¿ ß«ó¼ÑΘÑ¡¿¿ ó »á¼∩Γ¿ φ½Ñ¼Ñ¡Γ«ó αáº½¿τ¡δσ Γ¿»«ó áó- Γ«¼áΓ¿τÑß¬«ú« »αÑ«íαáº«óá¡¿∩ Γ¿»«ó ¡Ñ »α«¿ßσ«ñ¿Γ. Äß«íÑ¡¡«ßΓ¿. Ä»ÑαáΓ«α EQUIVALENCE «»αÑñÑ½∩ÑΓ, τΓ« αáß»«½«ªÑ¡¿Ñ φ½Ñ¼Ñ¡Γ«ó, π¬áºá¡δσ ó ß»¿ß¬Ñ, ñ«½ª¡« ¿¼ÑΓ∞ «ñ¡π ¿ Γπ ªÑ Γ«τ¬π «ΓßτÑΓá ó »á- ¼∩Γ¿. â«ó«α∩Γ, τΓ« ñóÑ ¿½¿ í«½ÑÑ »ÑαÑ¼Ñ¡¡δσ ßó∩ºá¡δ, Ñß½¿ «¡¿ «Γ¡«ß∩Γß∩ ¬ «ñ¡«⌐ ¿ Γ«⌐ ªÑ »á¼∩Γ¿. Å«φΓ«¼π αÑºπ½∞ΓáΓ«¼ «»ÑαáΓ«αá EQUIVALENCE ∩ó½∩ÑΓß∩ Γ«, τΓ« »ÑαÑ¼Ñ¡¡δÑ ¿º Ñú« ß»¿ß¬á ßΓá¡«ó∩Γß∩ ßó∩ºá¡¡δ¼¿. ê¼∩ ¼áßß¿óá, Ñß½¿ ¡á ¡Ñú« ßßδ½áεΓß∩ ó «»ÑαáΓ«αÑ EQUIVALENCE, «Γ¡«ß¿Γß∩ ¬ »Ñαó«¼π φ½Ñ¼Ñ¡Γπ ¼áßß¿óá. éδ ¡Ñ ¼«ªÑΓÑ ßó∩ºáΓ∞ ß¿¼ó«½∞¡δÑ ¿ ¡Ñß¿¼ó«½∞¡δÑ φ½Ñ¼Ñ¡Γδ, Ñß½¿ ñÑ⌐ßΓóπÑΓ ¼ÑΓá¬«¼á¡ñá $STRICT (»« π¼«½τá¡¿ε - $NOTSTRICT). æ¼«Γα¿ΓÑ «úαá¡¿τÑ¡¿∩ ¡á úαá¡¿µπ ¡ÑτÑΓ¡δσ íá⌐Γ«ó, »α¿óÑñÑ¡¡δÑ ó ß½ÑñπεΘÑ¼ ß»¿ß¬Ñ. Äúαá¡¿τÑ¡¿∩ : 1. éδ ¡Ñ ¼«ªÑΓÑ ºáßΓáó¿Γ∞ »ÑαÑ¼Ñ¡¡πε ºá¡¿¼áΓ∞ ¡Ñß¬«½∞¬« ¼ÑßΓ ó »á¼∩Γ¿, Γá¬ªÑ ¬á¬ éδ ¡Ñ ¼«ªÑΓÑ ºáßΓáó¿Γ∞ ¡Ñß¬«½∞¬« φ½Ñ¼Ñ¡Γ«ó «ñ¡«ú« ¿ Γ«ú« ªÑ ¼áßß¿óá ºá¡¿¼áΓ∞ «ñ¡« ¿ Γ« ªÑ ¼ÑßΓ«. ìá»α¿- ¼Ñα, ß½ÑñπεΘ¿⌐ «»ÑαáΓ«α σ«ΓÑ½ íδ »«¼ÑßΓ¿Γ∞ R ó ñóá αáº½¿τ¡δσ ¼ÑßΓá »á¼∩Γ¿ ¿½¿ S(1) ¿ S(2) - ó «ñ¡« ¿ Γ« ªÑ ¼ÑßΓ« »á¼∩Γ¿ : æ ¥Γ« - «Φ¿í¬á REAL R,S(10) EQUIVALENCE (R,S(1)),(R,S(2)) 2. Ä»ÑαáΓ«α EQUIVALENCE ¡Ñ ¼«ªÑΓ «»αÑñÑ½¿Γ∞, τΓ« »«ß½Ññ«óáΓÑ½∞¡δÑ φ½Ñ¼Ñ¡Γδ ¼áßß¿óá íπñπΓ αáß»«½«ªÑ¡δ ¡Ñ »«ß½Ññ«óáΓÑ½∞¡«. æ½Ñ- ñπεΘÑÑ, ¡á»α¿¼Ñα, ¡Ññ«»πßΓ¿¼« : æ ¥Γ« - ñαπúá∩ «Φ¿í¬á REAL R(10),S(10) EQUIVALENCE (R(1),S(1)),(R(5),S(6)) 3. éδ ¡Ñ ¼«ªÑΓÑ ßñÑ½áΓ∞ φ¬ó¿óá½Ñ¡Γ¡δ¼¿ ß¿¼ó«½∞¡πε ¿ ¡Ñß¿¼ó«½∞¡πε óÑ½¿τ¿¡δ, Γá¬ τΓ«íδ ¡Ñß¿¼ó«½∞¡á∩ óÑ½¿τ¿¡á ¡áτ¿¡á½áß∞ ß úαá¡¿µδ ¡ÑτÑΓ¡«ú« íá⌐Γá. ä½∩ óÑ½¿τ¿¡ ¡Ñ ¿º common-í½«¬«ó ¬«¼»¿½∩Γ«α »«»δΓáÑΓß∩ óδα«ó¡∩Γ∞ ¡Ñß¿¼ó«½∞¡πε óÑ½¿τ¿¡π »« úαá¡¿µÑ ß½«óá. ÄΦ¿í¬á »«∩ó¿Γß∩, Ñß½¿ Γá¬«Ñ óδαáó¡¿óá¡¿Ñ ¡Ñó«º¼«ª¡« ¿º-ºá ¡Ñß¬«½∞¬¿σ φ¬ó¿óá½Ñ¡Γ¡«ßΓÑ⌐. ìá»α¿¼Ñα, ß½ÑñπεΘÑÑ »α¿óÑñÑΓ ¬ «Φ¿í¬Ñ, Γá¬ ¬á¬ ¡Ñ½∞º∩ «íÑ »ÑαÑ¼Ñ¡¡δÑ Ç ¿ é óδα«ó¡∩Γ∞ »« ß½«óπ : CHARACTER*1 C1(10) REAL A,B EQUIVALENCE (A,C1(1)),(B,C1(2)) ä½∩ óÑ½¿τ¿¡ ó common-í½«¬áσ, τ∞Ñ »«½«ªÑ¡¿Ñ Σ¿¬ß¿α«óá¡«, éδ «ΓóÑτáÑΓÑ ºá «íÑß»ÑτÑ¡¿Ñ óδαáó¡¿óá¡¿∩ »« úαá¡¿µÑ ß½«ó ñ½∩ ¡Ñß¿¼ó«½∞¡δσ óÑ½¿τ¿¡. ÄΦ¿í¬á ó«º¡¿¬¡ÑΓ ñ½∩ ½εí«⌐ óÑ½¿τ¿¡δ ¡Ñ óδα«ó¡Ñ¡¡«⌐ »« úαá¡¿µÑ ß½«óá. 4. Ä»ÑαáΓ«α EQUIVALENCE ¡Ñ ¼«ªÑΓ ßó∩ºáΓ∞ φ½Ñ¼Ñ¡Γ Γ¿»á CHARACTER ß ¡Ñß¿¼ó«½∞¡δ¼ φ½Ñ¼Ñ¡Γ«¼ ¿º-ºá Γ«ú«, τΓ« ¡Ñß¿¼ó«½∞¡δ⌐ φ½Ñ¼Ñ¡Γ ñ«½ªÑ¡ íδΓ∞ αáß»«½«ªÑ¡, ¡áτ¿¡á∩ ß ¡ÑτÑΓ¡«ú« íá⌐Γá. Äñ¡á¬«, ¡ÑΓ «úαá¡¿τÑ¡¿⌐ ñ½∩ φ¬ó¿óá½Ñ¡Γ¡«ßΓ¿ ß¿¼ó«½∞¡δσ óÑ½¿τ¿¡. 5. Åα¿ ¿ß»«½∞º«óá¡¿¿ ó¼ÑßΓÑ «»ÑαáΓ«α«ó EQUIVALENCE ¿ COMMON ßπ- ΘÑßΓóπÑΓ ¡Ñß¬«½∞¬« ñ«»«½¡¿ΓÑ½∞¡δσ «úαá¡¿τÑ¡¿⌐ : á. «»ÑαáΓ«α EQUIVALENCE ¡Ñ ¼«ªÑΓ αáß»«½«ª¿Γ∞ ó «ñ¡«¼ ¿ Γ«¼ ªÑ ¼ÑßΓÑ »á¼∩Γ¿ ñóá αáº¡δσ common-í½«¬á. í. «»ÑαáΓ«α EQUIVALENCE ¼«ªÑΓ αáßΦ¿α¿Γ∞ common-í½«¬ ºá ßτÑΓ φ½Ñ¼Ñ¡Γ«ó, αáß»«½«ªÑ¡¡δσ »«ß½Ñ common-í½«¬á, ¡« ¡Ñ »ÑαÑñ ¡¿¼. ó. αáßΦ¿αÑ¡¿Ñ ¿¼Ñ¡«óá¡¡«ú« common-í½«¬á ß »«¼«Θ∞ε «»ÑαáΓ«αá EQUIVALENCE ¡Ñ ñ«½ª¡« ñÑ½áΓ∞ Ñú« ñ½¿¡π «Γ½¿τ¡«⌐ «Γ ñ½¿¡δ ó ñαπú¿σ »α«úαá¼¼¡δσ Ññ¿¡¿µáσ. ìá»α¿¼Ñα, ß½ÑñπεΘÑÑ ¡Ññ«»πßΓ¿¼«, »«Γ«¼π τΓ« «¡« αáßΦ¿α∩ÑΓ common-í½«¬ ñ«íáó½Ñ¡¿Ñ¼ »á¼∩Γ¿ »ÑαÑñ Ñú« ¡áτá½«¼ : æ ¥Γ« í«½ÑÑ Γ«¡¬á∩ «Φ¿í¬á COMMON /ABCDE/R(10) REAL S(10) EQUIVALENCE (R(1),S(10)) Åα¿¼Ñαδ : æ Åαáó¿½∞¡«Ñ ¿ß»«½∞º«óá¡¿Ñ «»ÑαáΓ«αá EQUIVALENCE CHARACTER NAME,FIRST,MIDDLE,LAST DIMENSION NAME(60),FIRST(20),MIDDLE(20),LAST(20) EQUIVALENCE (NAME(1),FIRST(1)),(NAME(21),MIDDLE(1)), 1 (NAME(41),LAST(1)) æó∩ºá¡¡δÑ ß¿¼ó«½∞¡δÑ óÑ½¿τ¿¡δ ¼«úπΓ »ÑαÑßÑ¬áΓ∞ß∩, ¬á¬ ó ß½ÑñπεΘÑ¼ »α¿¼ÑαÑ : CHARACTER A*4,B*4,C(2)*3 EQUIVALENCE (A,C(1)),(B,C(2)) ¥Γ«Γ »α¿¼Ñα ¼«ª¡« úαáΣ¿τÑß¬¿ ¿½½εßΓα¿α«óáΓ∞ ß½ÑñπεΘ¿¼ «íαáº«¼ : ┌─────┬─────┬─────┬─────┬─────┬─────┬─────┐ │ 1 │ 2 │ 3 │ 4 │ 5 │ 6 │ 7 │ └─────┴─────┴─────┴─────┴─────┴─────┴─────┘ ├────────── Ç ──────────┤ ├────────── é ──────────┤ ├─────── æ(1) ────┼────── æ(2) ─────┤ ▄─────────────────── █ EXTERNAL ▀─────────────────── Ä»αÑñÑ½∩ÑΓ »«½∞º«óáΓÑ½∞ß¬«Ñ ¿¼∩, ¬á¬ ó¡ÑΦ¡εε »α«µÑñπαπ ¿½¿ Σπ¡¬µ¿ε. ──────────────────────────────────────── EXTERNAL ¿¼∩ [,¿¼∩ ] ... ──────────────────────────────────────── âñÑ : ¿¼∩ - φΓ« ¿¼∩ ó¡ÑΦ¡Ñ⌐ »«ñ»α«úαá¼¼δ ¿½¿ Σπ¡¬µ¿¿. Äß«íÑ¡¡«ßΓ¿. ê¼∩, ºáñá¡¡«Ñ ó «»ÑαáΓ«αÑ EXTERNAL, «íΩ∩ó½∩ÑΓ Ñú« ¬á¬ ó¡ÑΦ¡εε »α«µÑñπαπ. é «»ÑαáΓ«αÑ EXTERNAL ¡Ñ ¼«úπΓ »«∩ó½∩Γ∞ß∩ ¿¼Ñ¡á Σπ¡¬µ¿⌐- «»ÑαáΓ«α«ó. àß½¿ ó «»ÑαáΓ«αÑ EXTERNAL »«∩ó½∩ÑΓß∩ ¿¼∩ óßΓα«Ñ¡¡«⌐ Σπ¡¬µ¿¿, Γ« φΓ« ¿¼∩ ßΓá¡«ó¿Γß∩ ¿¼Ñ¡Ñ¼ ó¡ÑΦ¡Ñ⌐ »α«µÑñπαδ ¿ ó ñá½∞- ¡Ñ⌐ΦÑ¼ ¡Ñ íπñÑΓ óδºδóáΓ∞ß∩ ¿º φΓ«⌐ »α«úαá¼¼¡«⌐ Ññ¿¡¿µδ. éñá¡¡«⌐ »α«úαá¼¼¡«⌐ Ññ¿¡¿µÑ »«½∞º«óáΓÑ½∞ß¬«Ñ ¿¼∩ ¼«ªÑΓ »«∩ó¿Γ∞ß∩ ó «»Ñαá- Γ«αÑ EXTERNAL Γ«½∞¬« «ñ¡áªñδ. é áßßÑ¼í½ÑαÑ ¿½¿ îæ-Åáß¬á½Ñ EXTERN «º¡áτáÑΓ, τΓ« «íΩÑ¬Γ «»αÑñÑ½Ñ¡ ó¡Ñ ΓÑ¬πΘÑ⌐ ¬«¼»¿½∩µ¿¿ ¿½¿ ¼«ñπ½∩. ¥Γ« ¡Ñ «í∩ºáΓÑ½∞¡« ñ½∩ îæ-ö«αΓαá¡á, Γá¬ ¬á¬ ßΓá¡ñáαΓ¡δ⌐ ö«αΓαá¡, »αá¬Γ¿τÑß¬¿, »«ñαá- ºπ¼ÑóáÑΓ, τΓ« ½εí«⌐ «íΩÑ¬Γ, ¡á ¬«Γ«αδ⌐ ßßδ½áεΓß∩ ó ¬«¼»¿½¿απÑ¼«¼ ¼«ñπ½Ñ, ¡Ñ «»αÑñÑ½Ñ¡ ó ¡Ñ¼, á «»αÑñÑ½Ñ¡ ¬á¬ ó¡ÑΦ¡¿⌐. é ö«αΓαá¡Ñ »«φΓ«¼π, EXTERNAL ¿ß»«½∞ºπÑΓß∩, ó «ß¡«ó¡«¼, ñ½∩ «»αÑñÑ½Ñ¡¿∩ Γ«ú«, τΓ« ¡Ñ¬«Γ«α«Ñ »«½∞º«óáΓÑ½∞ß¬«Ñ ¿¼∩ - φΓ« »«ñ- »α«úαá¼¼á ¿½¿ Σπ¡¬µ¿∩, ¿ß»«½∞ºπÑ¼á∩ ¬á¬ »áαá¼ÑΓα »α«µÑñπαδ. EXTERNAL ¼«ªÑΓ Γá¬ªÑ »«¬áºδóáΓ∞, τΓ« Σπ¡¬µ¿∩ »«½∞º«óáΓÑ½∩ ºá¼Ñ¡∩ÑΓ óßΓα«Ñ¡¡πε Σπ¡¬µ¿ε ß ΓÑ¼ ªÑ ¿¼Ñ¡Ñ¼. Åα¿¼Ñαδ : æ Åα¿¼Ñα «»ÑαáΓ«αá EXTERNAL EXTERNAL MYFUNC,MYSUB æ MYFUNC ¿ MYSUB - »áαá¼ÑΓαδ ñ½∩ CALC CALL CALC(MYFUNC,MYSUB) C Åα¿¼Ñα Σπ¡¬µ¿¿ »«½∞º«óáΓÑ½∩, ºá¼Ñ¡∩εΘÑ⌐ óßΓα«Ñ¡¡πε EXTERNAL SIN X = SIN(A,4.2,37) ▄───────────────── █ FORMAT ▀───────────────── êß»«½∞ºπÑΓß∩ ó¼ÑßΓÑ ß «»ÑαáΓ«αá¼¿ Σ«α¼áΓ¡«ú« óó«ñá/óδó«ñá ñ½∩ ºáñá¡¿∩ ¿¡Σ«α¼áµ¿¿, π»αáó½∩εΘÑ⌐ αÑñá¬Γ¿α«óá¡¿Ñ¼ ñá¡¡δσ. ───────────────────────────────────────────────────── FORMAT «»¿ßáΓÑ½∞-Σ«α¼áΓá ───────────────────────────────────────────────────── âñÑ : «»¿ßáΓÑ½∞-Σ«α¼áΓá - φΓ« ß»¿ß«¬ ß»Ñµ¿Σ¿¬áµ¿⌐ Σ«α¼áΓá, «íÑß»Ñτ¿óáεΘ¿σ Γ«τ¡«Ñ αÑñá¬Γ¿α«óá¡¿Ñ ¿¡Σ«α¼áµ¿¿. æ»Ñµ¿Σ¿¬áµ¿∩ Σ«α¼áΓá ñ«½ª¡á íδΓ∞ ºá¬½ετÑ¡á ó ¬απú½δÑ ß¬«í¬¿ ¿ ¼«ªÑΓ »α¿¡¿¼áΓ∞ «ñ¡π ¿º ß½ÑñπεΘ¿σ Σ«α¼ : [r] »«óΓ«α∩Ñ¼δ⌐ αÑñá¬Γ¿απεΘ¿⌐ «»¿ßáΓÑ½∞ ¡Ñ»«óΓ«α∩Ñ¼δ⌐ αÑñá¬Γ¿απεΘ¿⌐ «»¿ßáΓÑ½∞ [r] ( «»¿ßáΓÑ½∞ Σ«α¼áΓá ) r, Ñß½¿ «¡ ÑßΓ∞, - φΓ« ¡Ñ¡π½Ñóá∩ µÑ½á∩ ¬«¡ß- Γá¡Γá íÑº º¡á¬á, ¬«Γ«αá∩ ¡áºδóáÑΓß∩ π¬áºáΓÑ½Ñ¼ »«óΓ«αÑ¡¿∩. Äß«íÑ¡¡«ßΓ¿. é¡πΓα¿ ó¡ÑΦ¡¿σ ß¬«í«¬ ñ«»πß¬áÑΓß∩ ñ« ΓαÑσ πα«ó¡Ñ⌐ ó½«ªÑ¡¡«ßΓ¿ ß¬«í«¬. ÉÑñá¬Γ¿απεΘ¿Ñ «»¿ßáΓÑ½¿ ¬á¬ »«óΓ«α∩Ñ¼δÑ, Γá¬ ¿ ¡Ñ»«óΓ«α∩Ñ¼δÑ »α¿óÑñÑ¡δ ó Γáí½¿µÑ 3-4 ¿ »«ñα«í¡« «»¿ßá¡δ ó τáßΓ¿ 4. éδ ¼«ªÑΓÑ «»πß¬áΓ∞ ºá»∩Γπε ¼Ñªñπ ñóπ¼∩ αáºñÑ½á¼¿ ß»¿ß¬á, Ñß½¿ ß»Ñµ¿Σ¿¬áµ¿∩ Σ«α¼áΓá ó αÑºπ½∞ΓáΓÑ φΓ«ú« ¡Ñ íπñÑΓ ñóπß¼δß½Ñ¡¡«⌐; ¡á»α¿¼Ñα, αÑñá¬Γ¿απεΘ¿⌐ «»¿ßáΓÑ½∞ É ñ« ¿½¿ »«ß½Ñ ß¿¼ó«½á /. Ä»ÑαáΓ«αδ FORMAT ñ«½ª¡δ íδΓ∞ ß ¼ÑΓ¬á¼¿, ¡« ¬á¬ ñ½∩ óßÑσ ¡Ñ- ¿ß»«½¡∩Ñ¼δσ «»ÑαáΓ«α«ó φΓ¿ ¼ÑΓ¬¿ ¡Ñ½∞º∩ π»«ΓαÑí½∩Γ∞ »α¿ óÑΓó½Ñ¡¿¿. ┌─────────────┬────────────────────────────────────────────────┐ │ Å«óΓ«α∩Ñ¼δÑ │ ìÑ»«óΓ«α∩Ñ¼δÑ │ ├─────────────┼────────────────────────────────────────────────┤ │ Iw[.m] │ 'xxx' (ß¿¼ó«½∞¡á∩ ¬«¡ßΓá¡Γá) │ │ Gw.d │ nHxxx (ß¿¼ó«½∞¡á∩ ¬«¡ßΓá¡Γá) │ │ Gw.dEw │ nX (»α«íÑ½δ) │ │ Fw.d │ / (¬«¡Ñµ ºá»¿ß¿) │ │ Ew.d │ \ (¡Ñ ¬«¡Ñµ ºá»¿ß¿) │ │ Ew.dEe │ kP (¼áßΦΓáí¡δ⌐ ¬«φΣΣ¿µ¿Ñ¡Γ) │ │ Dw.d │ BN (»α«íÑ½δ ¬á¬ »α«íÑ½δ ó τ¿ß½áσ) │ │ Lw │ BZ (»α«íÑ½δ ¬á¬ ¡π½¿ ó τ¿ß½áσ) │ │ A[w] │ Tc (»«º¿µ¿∩ ß¿¼ó«½á) │ │ │ TRc (ßñó¿ú »«º¿µ¿¿ ß¿ó«½á ó»αáó«) │ │ │ TLC (ßñó¿ú »«º¿µ¿¿ ß¿¼ó«½á ó½Ñó«) │ └─────────────┴────────────────────────────────────────────────┘ ┌─────────────┬────────────────────────────────────────────────┐ │ Å«óΓ«α∩Ñ¼δÑ │ ìÑ»«óΓ«α∩Ñ¼δÑ │ ├─────────────┼────────────────────────────────────────────────┤ │ │ : (¬«¡Ñµ αáºóÑαΓ¬¿ Σ«α¼áΓá) │ │ │ SP («í∩ºáΓÑ½∞¡δ⌐ º¡á¬ »½εß) │ │ │ SS (πí¿αá¡¿Ñ º¡á¬á »½εß) │ │ │ S (ó«ßßΓá¡«ó½Ñ¡¿Ñ ¿ß»«½∞º«óá¡¿∩ »½εßá │ │ │ »« π¼«½τá¡¿ε) │ └─────────────┴────────────────────────────────────────────────┘ Æáí½¿µá 3-4. ÉÑñá¬Γ¿απεΘ¿Ñ «»¿ßáΓÑ½¿. Åα¿¼Ñτá¡¿∩ ¬ Γáí½¿µÑ 3-4 : 1. ä½∩ »«óΓ«α∩Ñ¼δσ αÑñá¬Γ¿απεΘ¿σ «»¿ßáΓÑ½Ñ⌐ : A, D, E, F, G, I ¿ L ºáñáεΓ ó¿ñ αÑñá¬Γ¿α«óá¡¿∩. w, m ¿ Ñ - ¡Ñ¡π½ÑóδÑ µÑ½δÑ ¬«¡ßΓá¡Γδ íÑº º¡á¬á. d - µÑ½á∩ ¬«¡ßΓá¡Γá íÑº º¡á¬á. 2. ä½∩ ¡Ñ»«óΓ«α∩Ñ¼δσ αÑñá¬Γ¿απεΘ¿σ «»¿ßáΓÑ½Ñ⌐ : ', H, X, /, \, P, BN, BZ, T, TL, TR, S, SS, SP ¿ : ºáñáεΓ ó¿ñ αÑñá¬Γ¿α«óá¡¿∩. σ - ½εí«⌐ ß¿¼ó«½ ASCII. n - ¡Ñ¡π½Ñóá∩ µÑ½á∩ ¬«¡ßΓá¡Γá íÑº º¡á¬á. k - ¡Ñ«í∩ºáΓÑ½∞¡á∩ µÑ½á∩ ¬«¡ßΓá¡Γá ß« º¡á¬«¼. ß - µÑ½á∩ ¬«¡ßΓá¡Γá íÑº º¡á¬á. ä½∩ í«½ÑÑ »«½¡«⌐ ¿¡Σ«α¼áµ¿¿ « αÑñá¬Γ¿απεΘ¿σ «»¿ßáΓÑ½∩σ ¿ Σ«α- ¼áΓ¡«¼ óó«ñÑ/óδó«ñÑ ß¼«Γα¿ΓÑ τáßΓ∞ 4 "æ¿ßΓÑ¼á óó«ñá/óδó«ñá". ▄─────────────────── █ FUNCTION ▀─────────────────── Ä»αÑñÑ½∩ÑΓ »α«úαá¼¼¡πε Ññ¿¡¿µπ ¬á¬ Σπ¡¬µ¿ε ¿ «»αÑñÑ½∩ÑΓ ÑÑ Γ¿», ¿¼∩ ¿ Σ«α¼á½∞¡δÑ »áαá¼ÑΓαδ. ────────────────────────────────────────────────────────────── [Γ¿»] FUNCTION ¿¼∩-Σπ¡¬µ¿¿ ([ »áαá¼ÑΓα [,»áαá¼ÑΓα]...]) ────────────────────────────────────────────────────────────── âñÑ Γ¿» - «ñ¿¡ ¿º ß½ÑñπεΘ¿σ : INTEGER INTEGER*2 INTEGER*4 REAL REAL*4 REAL*8 DOUBLE PRECISION LOGICAL LOGICAL*2 LOGICAL*4 CHARACTER CHARACTER*n COMPLEX COMPLEX*8 COMPLEX*16 ¿¼∩-Σπ¡¬µ¿¿ - φΓ« ¿¼∩ Σπ¡¬µ¿¿, ºáñáóáÑ¼«Ñ »«½∞º«óáΓÑ½Ñ¼. »áαá¼ÑΓα - φΓ« ¿¼∩ Σ«α¼á½∞¡«ú« »áαá¼ÑΓαá. Äß«íÑ¡¡«ßΓ¿. ê¼∩ Σπ¡¬µ¿¿ ú½«íá½∞¡«, ¡« ñ½∩ ßá¼«⌐ Σπ¡¬µ¿¿ «¡« ¿ ½«¬á½∞¡«. àß½¿ ó «»ÑαáΓ«αÑ FUNCTION Γ¿» «ΓßπΓßΓóπÑΓ, Γ« «¡ «»αÑñÑ½∩ÑΓß∩ ½¿í« »« π¼«½τá¡¿ε, ½¿í« ¿º «»ÑαáΓ«αá IMPLICIT, ½¿í« ó «»ÑαáΓ«αÑ «»αÑñÑ½Ñ¡¿∩ Γ¿»á »ÑαÑ¼Ñ¡¡«⌐. àß½¿ Γ¿» ÑßΓ∞, Γ« ¿¼∩ Σπ¡¬µ¿¿ ¡Ñ ¼«ªÑΓ »«∩ó¿Γ∞ß∩ ¡¿ ó ¬á¬«¼ «»ÑαáΓ«αÑ «»αÑñÑ½Ñ¡¿∩ Γ¿»á. ì¿ ó ¬á¬«¼ ß½πτáÑ ó¡ÑΦ¡∩∩ Σπ¡¬µ¿∩ ¡Ñ ¼«ªÑΓ íδΓ∞ Γ¿»á CHARACTER. öπ¡¬µ¿¿ Γ¿»á CHARACTER ¡Ñ ¼«úπΓ »«∩ó¿Γ∞ß∩ ß «»¿ßáΓÑ½Ñ¼ ñ½¿¡δ ºóÑºñ«τ¬á (*). ìá»α¿¼Ñα, ¡Ññ«»πßΓ¿¼ Γá¬«⌐ «»ÑαáΓ«α FUNCTION : CHARACTER*(*)FUNCTION F(X) àß½¿ Σπ¡¬µ¿∩ Γ¿»á CHARACTER, n ñ«½ª¡« íδΓ∞ ó ñ¿á»áº«¡Ñ «Γ 1 ñ« 127. æ»¿ß«¬ ¿¼Ñ¡ »áαá¼ÑΓα«ó «»αÑñÑ½∩ÑΓ τ¿ß½« ¿ ó¼ÑßΓÑ ß «»ÑαáΓ«αá¼¿ IMPLICIT, EXTERNAL, «»αÑñÑ½Ñ¡¿∩ Γ¿»á ¿ DIMENSION - Γ¿» »áαá¼ÑΓα«ó φΓ«⌐ Σπ¡¬µ¿¿. ì¿¬á¬«Ñ ¿º ¿¼Ñ¡ »áαá¼ÑΓα«ó ¿½¿ ¿¼∩ Σπ¡¬µ¿¿ ¡Ñ ¼«ªÑΓ »«∩ó¿Γ∞ß∩ ó «»ÑαáΓ«αáσ COMMON, DATA, EQUIVALENCE ¿½¿ INTRINSIC. ê¼∩ Σπ¡¬µ¿¿ ñ«½ª¡« »«∩ó¿Γ∞ß∩ ¬á¬ »ÑαÑ¼Ñ¡¡á∩ ó »α«úαá¼¼¡«⌐ Ññ¿¡¿µÑ, «»¿ßδóáεΘÑ⌐ Σπ¡¬µ¿ε. èáªñ«Ñ óδτ¿ß½Ñ¡¿Ñ φΓ«⌐ Σπ¡¬µ¿¿ ñ«½ª¡« ß«»α«ó«ªñáΓ∞ß∩ »α¿ßó«Ñ¡¿Ñ¼ óÑ½¿τ¿¡δ φΓ«⌐ »ÑαÑ¼Ñ¡¡«⌐. Å«ß½Ññ¡∩∩ óÑ½¿τ¿¡á φΓ«⌐ »ÑαÑ¼Ñ¡¡«⌐ »«ß½Ñ óδ»«½¡Ñ¡¿∩ «»ÑαáΓ«αá RETURN ¿½¿ END «»αÑñÑ½∩ÑΓ º¡áτÑ¡¿Ñ Σπ¡¬µ¿¿. ÄΓ¼ÑΓ¿¼, τΓ« «»αÑñÑ½¿ΓÑ½¿ á½∞ΓÑα¡áΓ¿ó¡«ú« ó«ºóαáΓá ¡Ññ«»πßΓ¿¼δ ó «»ÑαáΓ«αÑ FUNCTION. Å«ß½Ñ óδτ¿ß½Ñ¡¿∩ ¡á óÑ½¿τ¿¡π φΓ«⌐ »ÑαÑ¼Ñ¡¡«⌐ ¼«ª¡« ßßδ½áΓ∞ß∩ ó óδαáªÑ¡¿¿ Γá¬ ªÑ ¬á¬¿ ¡á ½εíπε ñαπúπε. é¡ÑΦ¡∩∩ Σπ¡¬µ¿∩ ¼«ªÑΓ ó«ºóαáΘáΓ∞ º¡áτÑ¡¿∩ ¡Ñ Γ«½∞¬« τÑαÑº ßá¼π Σπ¡¬µ¿ε, ¡« ¿ »α¿ßó«Ñ¡¿Ñ¼ ¿σ «ñ¡«¼π ¿½¿ ¡Ñß¬«½∞¬¿¼ Σ«α¼á½∞¡δ¼ »áαá¼ÑΓαá¼. öπ¡¬µ¿∩ ¼«ªÑΓ íδΓ∞ óδºóá¡á ¿º ½εí«⌐ »α«úαá¼¼¡«⌐ Ññ¿¡¿µδ. Äñ¡á¬« ö«αΓαá¡ ¡Ñ ñ«»πß¬áÑΓ αÑ¬παß¿ó¡δσ óδº«ó«ó Σπ¡¬µ¿¿, τΓ« «º¡á- τáÑΓ, τΓ« Σπ¡¬µ¿∩ ¡Ñ ¼«ªÑΓ óδºóáΓ∞ »α∩¼« ßá¼π ßÑí∩ ¿ ¼«ªÑΓ íδΓ∞ óδºóá¡á ñαπú«⌐ Σπ¡¬µ¿Ñ⌐, Ñß½¿ «¡á ¿ß»«½∞ºπÑΓ αÑºπ½∞ΓáΓ óδºδóáεΘÑ⌐ Σπ¡¬µ¿¿. Äñ¡á¬«, ¬«¼»¿½∩Γ«α ¡ÑΣ¿¬ß¿απÑΓ αÑ¬παß¿ó¡δÑ óδº«óδ, ñáªÑ Ñß½¿ «¡¿ ÑßΓ∞. Åα¿¼Ñα : æ Åα¿¼Ñα ¿ß»«½∞º«óá¡¿∩ Σπ¡¬µ¿¿ GETNO, æ ¬«Γ«αá∩ τ¿ΓáÑΓ τ¿ß½« Ç ¿º Σá⌐½á Ç I=2 10 IF (GETNO(I).EQ.0.0) GOTO 10 STOP END C FUNCTION GETNO(NOUNIT) READ (NOUNIT,'(F10.5)') R GETNO=R RETURN END ▄───────────────────────────── █ GOTO (»α¿ßóá¿óáÑ¼δ⌐) ▀───────────────────────────── ÅÑαÑñáÑΓ π»αáó½Ñ¡¿Ñ ¡á «»ÑαáΓ«α ß ¼ÑΓ¬«⌐, τ∞Ñ º¡áτÑ¡¿Ñ αáó¡« º¡áτÑ¡¿ε »ÑαÑ¼Ñ¡¡«⌐. ──────────────────────────────────────────────────── GOTO ¿¼∩ [[,] ( ¼ÑΓ¬á [, ¼ÑΓ¬á ]...) ] ──────────────────────────────────────────────────── âñÑ ¿¼∩ - ¿¼∩ µÑ½«⌐ »ÑαÑ¼Ñ¡¡«⌐. ¼ÑΓ¬á - ¼ÑΓ¬á óδ»«½¡∩Ñ¼«ú« «»ÑαáΓ«αá ó Γ«⌐ ªÑ »α«úαá¼¼¡«⌐ Ññ¿¡¿µÑ, τΓ« ¿ «»ÑαáΓ«α »α¿ßóá¿óáÑ¼«ú« GOTO. Äß«íÑ¡¡«ßΓ¿. Äñ¡á ¿ Γá ªÑ ¼ÑΓ¬á «»ÑαáΓ«αá ¼«ªÑΓ »«∩ó½∩Γ∞ß∩ ó ß»¿ß¬Ñ ¼ÑΓ«¬ ¡Ñ«ñ¡«¬αáΓ¡«. è«úñá «»ÑαáΓ«α GOTO »α¿ßóá¿óáÑ¼δ⌐ óδ»«½¡∩ÑΓß∩ ¿¼Ñ¡¿ ñ«½ª¡« íδΓ∞ »α¿ßó«Ñ¡« º¡áτÑ¡¿Ñ ¼ÑΓ¬¿ óδ»«½¡∩Ñ¼«ú« «»ÑαáΓ«αá, ¡áσ«- ñ∩ΘÑú«ß∩ ó Γ«⌐ ªÑ »α«úαá¼¼¡«⌐ Ññ¿¡¿µÑ, τΓ« ¿ «»ÑαáΓ«α »α¿ßóá¿óáÑ- ¼«ú« GOTO. àß½¿ ¼ÑΓ¬¿, ß««ΓóÑΓßΓóπεΘÑ⌐ »«ß½Ññ¡Ñ¼π º¡áτÑ¡¿ε »ÑαÑ¼Ñ¡¡«⌐, ¡ÑΓ ó φΓ«⌐ »α«úαá¼¼¡«⌐ Ññ¿¡¿µÑ, Γ« »α¿ ¡á½¿τ¿¿ ß»¿ß¬á ¼ÑΓ«¬ ¿ óßΓá- ó½Ñ¡¡«⌐ ¼á¬α«¬«¼á¡ñδ $DEBUG, éδ »«½πτ¿ΓÑ ß««íΘÑ¡¿Ñ «í «Φ¿í¬Ñ. ìÑ½∞º∩ »ÑαÑñáóáΓ∞ π»αáó½Ñ¡¿Ñ ó¡πΓα∞ í½«¬«ó DO, IF, ELSEIF ¿ ELSE ¿ºó¡Ñ φΓ¿σ í½«¬«ó. ÅÑαÑσ«ñ¿Γ∞ ó¡πΓα∞ DO í½«¬á »«ºó«½∩ÑΓ ß»Ñ- µ¿á½∞¡á∩ ó«º¼«ª¡«ßΓ∞ αáßΦ¿αÑ¡¿∩ DO µ¿¬½á. Å«ñα«í¡ÑÑ «í φΓ«⌐ ó«º- ¼«ª¡«ßΓ¿ ß¼«Γα¿ΓÑ «»¿ßá¡¿Ñ ¼ÑΓá¬«¼á¡ñδ $DO66 ó τáßΓ¿ 6. Åα¿¼Ñα : æ Åα¿¼Ñα »α¿ßóá¿óáÑ¼«ú« GOTO ASSIGN 10 TO I GOTO I 10 CONTINUE ▄───────────────────────────── █ GOTO (óδτ¿ß½∩Ñ¼δ⌐) ▀───────────────────────────── ÅepeñaeΓ π»paó½e¡¿e o»epaΓopπ, »o¼eτe¡¡o¼π i-o⌐ ¼eΓ¬o⌐ ó »po- úpa¼¼e. ────────────────────────────────────────────────────── GOTO (¼ÑΓ¬á [,¼ÑΓ¬á]...) [,]i ────────────────────────────────────────────────────── âñe: ¼ÑΓ¬á - ¼eΓ¬a o»epaΓopa, óδ»o½¡∩e¼oúo ó Γo⌐ ªe »oñ»poúpa¼¼e, τΓo ¿ GOTO-o»epaΓop »p¿ »epeτ¿c½e¡¿¿ ¼eΓo¬, oñ¡a ¿ Γa ªe ¼eΓ¬a ¼oªeΓ »oóΓop∩Γ∞c∩. i - µe½«Ñ óδαáªÑ¡¿Ñ. Äß«íÑ¡¡«ßΓ¿. Ec½¿ ¿¼eeΓc∩ n ¼eΓo¬ »p¿ »epeτ¿c½e¡¿¿ ó o»epaΓope GOTO, ¿ »p¿ φΓo¼ óδ»o½¡∩εΓc∩ c½eñπεΘ¿e πc½oó¿∩: i < 1 ¿½¿ i > n, Γoúña GOTO óδ»o½¡∩eΓc∩ ¬a¬ o»epaΓop CONTINUE. B »poΓ¿ó¡o¼ c½πτae, c½eñπεΘ¿¼ o»epaΓopo¼ óδ»o½¡∩eΓc∩ o»epaΓop c ¼eΓ¬o⌐ »oñ ¡o¼epo¼ i ó »epeτ¿c½e¡¿¿ ¼eΓo¬. Åepexoñ ó í½o¬¿ DO, IF, ELSEIF, ELSE ¿º ñpπú¿x í½o¬oó ¡e ñ«»πßΓ¿¼. C»eµ¿a½∞¡á∩ ó«º¼«ª¡«ßΓ∞ αáßΦ¿αÑ¡¿∩ »«¡∩Γ¿∩ DO - µ¿¬½a, »oºóo½∩eΓ ocπΘecΓó¿Γ∞ óxoñ ó í½o¬ DO - µ¿¬½a. ä½∩ ío½∞Φe⌐ ¿¡Σop¼aµ¿¿ c¼oΓp¿ o»¿ca¡¿e ¼eΓa¬o¼a¡ñδ $DO66 ó τáßΓ¿ 6. Åp¿¼ep: C Åα¿¼Ñα óδτ¿ß½∩Ñ¼«ú« GOTO I = 1 GOTO (10,20) I . . . 10 CONTINUE . . . 20 CONTINUE ▄───────────────────────── █ GOTO (íÑºπß½«ó¡δ⌐) ▀───────────────────────── ÅepeñaeΓ π»paó½e¡¿e o»epaΓopπ, »o¼eτe¡¡o¼π ¼eΓ¬o⌐. ───────────────────────────────────────────────────────── GOTO ¼ÑΓ¬á ───────────────────────────────────────────────────────── âñe: ¼ÑΓ¬á- ¼eΓ¬a o»epaΓopa, óδ»o½¡∩e¼oúo ó Γo⌐ ªe »oñ»poúpa¼¼e, τΓo ¿ GOTO Äß«íÑ¡¡«ßΓ¿. Åepexoñ ó í½o¬¿ DO, IF, ELSEIF, ELSE ¿º ñpπú¿x í½o¬oó ¡e ñ«»πßΓ¿¼. C»eµ¿a½∞¡á∩ ó«º¼«ª¡«ßΓ∞ αáßΦ¿αÑ¡¿∩ »«¡∩Γ¿∩ DO - µ¿¬½a, »oºóo½∩eΓ ocπΘecΓó¿Γ∞ óxoñ ó í½o¬ DO - µ¿¬½a. ä½∩ ío½∞Φe⌐ ¿¡Σop¼aµ¿¿ c¼oΓp¿ o»¿ca¡¿e ¼eΓa¬o¼a¡ñδ $DO66 ó τáßΓ¿ 6. Åp¿¼ep: C Åα¿¼Ñα íÑºπß½«ó¡«ú« GOTO GOTO 4022 . . . 4022 CONTINUE ▄──────────────────────── █ IF (ap¿Σ¼eΓ¿τec¬¿⌐) ▀──────────────────────── Bδτ¿c½∩eΓ óδpaªe¡¿e ¿ »epeñaeΓ π»paó½e¡¿e o»epaΓopπ, »o¼e- τe¡¡o¼π oñ¡o⌐ ¿º o»¿ca¡¡δx ¼eΓo¬ ó cooΓóeΓcΓó¿¿ c peºπ½∞ΓaΓo¼ óδ- paªe¡¿∩. ───────────────────────────────────────────────────────── IF (óδαáªÑ¡¿Ñ) ¼ÑΓ¬á1, ¼ÑΓ¬á2, ¼ÑΓ¬á3 ────────────────────────────────────────────────────────── âñe: óδαáªÑ¡¿Ñ - µe½oe ¿½¿ ñe⌐cΓó¿Γe½∞¡oe óδpaªe¡¿e. ¼ÑΓ¬¿ 1,2,3 - ¼eΓ¬¿ o»epaΓopoó, óδ»o½¡∩e¼δx ó Γo⌐ ªe »oñ»poúpa¼¼e, τΓo ¿ o»epaΓop IF (ap¿Σ¼eΓ¿τec¬¿⌐) Äß«íÑ¡¡«ßΓ¿: Cpeñ¿ Γpex π¬aºa¡¡δx oñ¡a ¿ Γaªe ¼eΓ¬a ¼oªeΓ ¿c»o½∞ºoóaΓ∞c∩ ¡e oñ¿¡ paº. Åepóo⌐ ¼eΓ¬e π»páó½Ñ¡¿e »epeñaeΓc∩ ó c½πτae, ec½¿ óδpaªe¡¿e <0, óΓopo⌐ - ec½¿ =0, ΓpeΓ¿⌐ - ec½¿ >0 c½eñπεΘ¿¼ »oc½e IF óδ»o½¡∩eΓc∩ o»epaΓop c π¬aºa¡¡o⌐ ¼eΓ¬o⌐. ìÑ½∞º∩ »ÑαÑñáóáΓ∞ π»αáó½Ñ¡¿Ñ ó¡πΓα∞ í½«¬«ó DO, IF, ELSEIF ¿ ELSE ¿ºó¡Ñ φΓ¿σ í½«¬«ó. ÅÑαÑσ«ñ¿Γ∞ ó¡πΓα∞ DO í½«¬á »«ºó«½∩ÑΓ ß»Ñ- µ¿á½∞¡á∩ ó«º¼«ª¡«ßΓ∞ αáßΦ¿αÑ¡¿∩ DO µ¿¬½á. Å«ñα«í¡ÑÑ «í φΓ«⌐ ó«º- ¼«ª¡«ßΓ¿ ß¼«Γα¿ΓÑ «»¿ßá¡¿Ñ ¼ÑΓá¬«¼á¡ñδ $DO66 ó τáßΓ¿ 6. Åp¿¼ep: C Åα¿¼Ñα áα¿Σ¼ÑΓ¿τÑß¬«ú« IF I = 0 IF (I) 10,20,30 10 CONTINUE . . . 20 CONTINUE . . . 30 CONTINUE ▄─────────────────── █ IF (½«ú¿τÑß¬¿⌐) ▀─────────────────── Bδτ¿c½∩eΓc∩ ½oú¿τec¬oe óδpaªe¡¿e, ec½¿ eúo º¡aτe¡¿e .TRUE., Γo óδτ¿c½∩eΓc∩ ña¡¡δ⌐ o»epaΓop, ec½¿ óδpaªe¡¿e .FALSE., Γo o»epaΓop ¡e óδ»«½¡∩ÑΓc∩, a óδ»o½¡∩eΓc∩ c½eñπεΘ¿⌐ ºa IF o»epaΓop. ───────────────────────────────────────────────── IF (óδαáªÑ¡¿Ñ) «»ÑαáΓ«α ───────────────────────────────────────────────── âñe: óδαáªÑ¡¿Ñ - ½oú¿τec¬oe óδpaªe¡¿e «»ÑαáΓ«α - óδ»o½¡∩e¼δ⌐ o»epaΓop, ¬po¼e DO, í½o¬a IF, ELSEIF, ELSE, ENDIF, END ¿ ñpπú¿x ½oú¿τec¬¿x IF o»epaΓopoó. Åp¿¼ep: C Åα¿¼Ñα ½«ú¿τÑß¬«ú« IF IF (I.EQ.O) J = 2 IF (X.GT.2.3) GOTO 100 . . . 100 CONTINUE ▄───────────────────────── █ IF THEN ELSE (í½«¬) ▀───────────────────────── Bδτ¿c½∩eΓ óδpaªe¡¿e , ¿ ec½¿ óδpaªe¡¿e .TRUE., ¡aτ¿¡aeΓ óδτ¿c½∩Γ∞ o»epaΓopδ, óσ«ñ∩Θ¿Ñ ó IF í½o¬. Ec½¿ óδpaªe¡¿e .FALSE., »epeñaeΓ πpaó¡e¡¿e c½eñπεΘ¿¼ ELSE,ELSEIF ¿½¿ ENDIF o»epaΓopá¼ Γoúo ªe IF-πpoó¡∩. ─────────────────────────────────────────── IF (óδαáªÑ¡¿Ñ) THEN ──────────────────────────────────────────── âñe: óδαáªÑ¡¿Ñ - ½oú¿τec¬oe óδpaªe¡¿e. Äß«íÑ¡¡«ßΓ¿ : IF í½o¬ coñepª¿Γ óce óδ»«½¡∩Ñ¼δÑ o»epaΓopδ (óoº¼oª¡« ¡¿ oñ¡«ú«), ¬«Γ«αδÑ ß½ÑñπεΓ ºá «»ÑαáΓ«α«¼ IF ¿ ñ« ß½ÑñπεΘÑú« «»ÑαáΓ«αá ELSEIF, ELSE ¿ñ¿ ENDIF φΓ«ú« ªÑ πα«ó¡∩ í½«¬á IF. Åoc½e óδ»o½¡e¡¿∩ »oc½eñ¡eúo o»epaΓopa ó í½o¬e IF óδ»o½¡∩eΓc∩ o»epaΓop ENDIF Γoúo ªe πpoó¡∩. Ec½¿ óδpaªe¡¿e ña¡¡oúo í½o¬a .TRUE. ¿ í½o¬ ¡e ¿¼eeΓ óδ»o½¡∩e¼δx o»epaΓopoó, c½eñπεΘ¿¼ o»epaΓopo¼ ∩ó- ½∩eΓc∩ ENDIF Γoúo ªe πpoó¡∩. Ec½¿ óδpaªe¡¿e .FALSE. Γo c½eñπεΘ¿¼ o»epaΓopo¼ ∩ó½∩eΓc∩ ELSEIF,ELSE ¿½¿ ENDIF Γoúo ªe πpoó¡∩, τΓo ¿ IF. ÅepeñaóaΓ∞ π»paó½e¡¿e ó¡πΓp∞ í½o¬a IF ¿º ñpπú¿x í½o¬oó ¡eño- »πcΓ¿¼o. ôα«ó¡¿ IF : è«¡µÑ»µ¿∩ πpoó¡∩ í½o¬a IF ¿ có∩ºa¡¡δx ß ¡¿¼ o»epaΓopoó c½eñπε- Θá∩. ä½∩ ¬aªñoúo o»epaΓopa eúo IF πpoó¡Ñ¼ ∩ó½∩eΓc∩ n1-n2, úñe: 1. n1 τ¿c½o í½o¬oó IF o»epaΓopoó, oΓ ¡aτa½o »poúpa¼¼¡o⌐ eñ¿¡¿µδ, ó ¬oΓopo⌐ ¿c»o½∞ºπeΓc∩ ña¡¡δ⌐ «»ÑαáΓ«α, ó¬½ετa∩ ΓÑ¬πΘ¿⌐. 2. n2 τ¿c½o ENDIF o»epaΓopoó oΓ ¡aτa½o »poúpa¼¼¡o⌐ eñ¿¡¿µδ, ño ña¡¡oúo, ¿c¬½ετa∩ eúo. IF πpoóe¡∞ ½εíoúo o»epaΓopa ño½ªe¡ íδΓ∞ ío½∞Φe ¿½¿ paóe¡ 0 ¿ IF πpoóe¡∞ í½o¬a IF,ELSEIF,ELSE,ENDIF ño½ªe¡ íδΓ∞ ío½∞Φe 0. IF πpoóe¡∞ ¬aªñoúo »oc½eñ¡eúo o»epaΓopa ño½ªe¡ íδΓ∞ 0. IF πpoóe¡∞ o»peñe½∩eΓ »paó¿½o ó½oªe¡¿∩ ñ½∩ í½o¬a IF ¿ có∩ºa¡¡δx ß ¡¿¼ o»e- paΓopoó ¿ o»peñe½∩eΓ ºo¡π ó½¿∩¡¿∩ IF,ELSEIF ¿ ELSE í½o¬oó. Åp¿¼ep: IF(I.LT.10)THEN . ìáí«α «»ÑαáΓ«α«ó, óδτ¿ß½∩Ñ¼δσ . Γ«½∞¬« Ñß½¿ I.LT.10 ENDIF ÅpocΓe⌐Φ¿⌐ í½o¬ IF, ¬oΓopδ⌐ »ÑαÑß¬á¬¿óáÑΓ úpπ»»π o»epaΓopoó, ec½¿ óδpaªe¡¿e FALSE. Åp¿¼ep: IF(I.GT.1000)THEN . ìáí«α «»ÑαáΓ«α«ó, óδτ¿ß½∩Ñ¼δσ . Γ«½∞¬« Ñß½¿ J.GT.1000 ELSEIF(J.GT.100)THEN . ìáí«α «»ÑαáΓ«α«ó, óδτ¿ß½∩Ñ¼δσ . Γ«½∞¬« Ñß½¿ J.GT.100 ¿ J.LE.1000 ELSEIF(J.GT.10)THEN . ìáí«α «»ÑαáΓ«α«ó, óδτ¿ß½∩Ñ¼δσ . Γ«½∞¬« Ñß½¿ J.GT.10 ¿ J.LE.100 ELSE . ìáí«α «»ÑαáΓ«α«ó, óδτ¿ß½∩Ñ¼δσ . Γ«½∞¬« Ñß½¿ J.LE.10 ENDIF ü½«¬ IF ß «»ÑαáΓ«αá¼¿ ELSEIF. Åp¿¼ep: IF(I.LT.100)THEN . ìáí«α «»ÑαáΓ«α«ó, óδ»«½¡∩Ñ¼δσ . Γ«½∞¬« Ñß½¿ I.LT.100 IF(J.LT.10)THEN . ìáí«α «»ÑαáΓ«α«ó, óδ»«½¡∩Ñ¼δσ . Γ«½∞¬« Ñß½¿ I.LT.100 ¿ J.LT.10 ENDIF . ìáí«α «»ÑαáΓ«α«ó, óδ»«½¡∩Ñ¼δσ . Γ«½∞¬« Ñß½¿ I.LT.100 ELSE . ìáí«α «»ÑαáΓ«α«ó, óδ»«½¡∩Ñ¼δσ . Γ«½∞¬« Ñß½¿ I.GE.100 IF(J.LT.10)THEN . ìáí«α «»ÑαáΓ«α«ó, óδ»«½¡∩Ñ¼δσ . Γ«½∞¬« Ñß½¿ I.GE.100 ¿ J.LT.10 ENDIF . ìáí«α «»ÑαáΓ«α«ó, óδ»«½¡∩Ñ¼δσ . Γ«½∞¬« Ñß½¿ I.GE.100 ENDIF B½oªe¡¡a∩ ¬o¡cΓpπ¬µ¿∩ IF íeº ¿c»o½∞ºoóa¡¿∩ ELSEIF. ▄─────────────── █ IMPLICIT ▀─────────────── O»¿ca¡¿e Γ¿»a ñ½∩ »o½∞ºoóaΓe½∞c¬¿x ¿¼e¡. ────────────────────────────────────────────────────────── IMPLICIT Γ¿» (a[,a]...)[Γ¿» (a[,a]...)...] ────────────────────────────────────────────────────────── âñe: type - oñ¿¡ ¿º c½eñπεΘ¿x Γ¿»oó INTEGER INTEGER*2 INTEGER*4 REAL REAL *4 REAL *8 DOUBLE PRECISION COMPLEX COMPLEX*8 COMPLEX*16 LOGICAL LOGICAL *2 LOGICAL *4 CHARACTER CHARACTER*n a - ½¿ío oñ¡a íπ¬óa, ½¿ío ñ¿á»áº«¡ íπ¬ó. ä¿á»áº«¡ íπ¬ó óδñe½∩eΓ- c∩ »epóo⌐ ¿ »oc½eñ¡e⌐ íπ¬óa¼¿ ñ¿á»áº«¡á, paºñe½e¡¡δ¼¿ "-". üπ¬óδ ño½ª¡δ π¬aºδóaΓ∞c∩ ó a½Σaó¿Γ¡o¼ »op∩ñ¬e. n - (¿º CHARACTER*n) ño½ªe¡ íδΓ∞ oΓ 1 ño 127. Äß«íÑ¡¡«ßΓ¿. Ä»ÑαáΓ«α IMPLICIT «»¿ßδóáÑΓ Γ¿» ¿ αáº¼Ñα ñ½∩ óßÑσ »«½∞º«óá- ΓÑ½∞ß¬¿σ ¿¼Ñ¡, ¬«Γ«αδÑ ¡áτ¿¡áεΓß∩ ß π¬áºá¡¡δσ íπ¬ó. Ä»ÑαáΓ«α IMPLICIT αáí«ΓáÑΓ Γ«½∞¬« ó »α«úαá¼¼¡«⌐ Ññ¿¡¿µÑ. Ä¡ ¡Ñ ¿º¼Ñ¡∩ÑΓ Γ¿»á ½εí«⌐ ó¡πΓαÑ¡¡Ñ⌐ Σπ¡¬µ¿¿. IMPLICIT Γ¿»δ ñ½∩ ½εí«ú« »«½∞º«óáΓÑ½∞ß¬«ú« ¿¼Ñ¡¿ ¼«úπΓ íδΓ∞ ¿º¼Ñ¡Ñ¡δ ¿½¿ »«ñΓóÑαªñÑ¡δ, Ñß½¿ φΓ« ¿¼∩, ó»«ß½ÑñßΓó¿¿, π¬áºδóáÑΓß∩ ó «»ÑαáΓ«αÑ Γ¿»á. ƒó¡δ⌐ Γ¿» ó «»ÑαáΓ«αÑ FUNCTION Γá¬ªÑ íÑαÑΓß∩ ß »α¿«α¿ΓÑΓ«¼ ¡áñ IMPLICIT «»ÑαáΓ«α«¼. àß½¿ Γ¿» ó ó«»α«ßÑ ∩ó½∩ÑΓß∩ ß¿¼ó«½∞¡δ¼ Γ¿»«¼, ó ñá½∞¡Ñ⌐ΦÑ¼ Ñú« Γá¬ªÑ ¼«ª¡« ¿º¼Ñ¡¿Γ∞ »«ß½ÑñπεΘ¿¼ «»αÑñÑ½Ñ¡¿Ñ¼ Γ¿»á. Åα«úαá¼¼¡á∩ Ññ¿¡¿µá ¼«ªÑΓ ¿¼ÑΓ∞ í«½∞ΦÑ «ñ¡«ú« «»ÑαáΓ«αá IMPLICIT. Äñ¡á¬« óßÑ IMPLICIT «»ÑαáΓ«αδ ñ«½ª¡δ »αÑñΦÑßΓó«óáΓ∞ óßÑ¼ ñαπú¿¼ «»ÑαáΓ«αá¼ ß»Ñµ¿Σ¿¬áµ¿⌐ ó ñá¡¡«⌐ »α«úαá¼¼¡«⌐ Ññ¿¡¿µÑ. Äñ¡á ¿ Γá ªÑ íπ¬óá ¡Ñ ¼«ªÑΓ ¿ß»«½∞º«óáΓ∞ß∩ ó «»ÑαáΓ«αÑ IMPLICIT í«½ÑÑ «ñ¡«ú« αáºá. Åα¿¼Ñα: C »α¿¼Ñα IMPLICIT «»ÑαáΓ«αá IMPLICIT INTEGER (A,B) IMPLICIT CHARACTER*10(N) AGE=10 NAME='PAUL' ▄────────────── █ INQVIRE ▀────────────── Åα«óÑα∩ÑΓ ßó«⌐ßΓóá »α¿ß«Ññ¿¡Ñ¡¡«ú« πßΓα«⌐ßΓóá ¿½¿ ¿¼Ñ¡«óá¡¡«ú« Σá⌐½á. éδ ¿ñÑ¡Γ¿Σ¿µ¿απÑΓÑ Σá⌐½ ¿½¿ πßΓα«⌐ßΓó« »«ßαÑñßΓó«¼ ¿¼Ñ¡¿ Σá⌐½á ¿½¿ «»¿ßáΓÑ½∩ πßΓα«⌐ßΓóá, ¿ ñ½∩ ¬áªñ«ú« áΓα¿íπΓá, ¬«Γ«αδ⌐ éδ σ«Γ¿ΓÑ »α«óÑα¿Γ∞, éδ «»αÑñÑ½∩ÑΓÑ »áαπ «»¿ßáΓÑ½∞/¡áº¡áτÑ¡¿Ñ. Ä»ÑαáΓ«α INQVIRE »α¿ßóá¿óáÑΓ óÑ½¿τ¿¡δ áΓα¿íπΓ«ó, ¿¼Ñ¡¡«óá¡¡δσ «»¿ßáΓÑ½∩¼¿, ß««ΓóÑΓßΓóπεΘ¿¼ ¡áº¡áτÑ¡¿∩¼. ìáº¡áτÑ¡¿Ñ ñ«½ª¡« íδΓ∞ ¿¼Ñ¡Ñ¼ »ÑαÑ- ¼Ñ¡¡«⌐ ¿½¿ φ½Ñ¼Ñ¡Γá ¼áßß¿óá. àß½¿ éδ »α«óÑα∩ÑΓÑ πßΓα«⌐ßΓó«, ó ß»¿- ß¬Ñ ñ«½ªÑ¡ íδΓ∞ «»¿ßáΓÑ½∞ πßΓα«⌐ßΓóá UNIT=, ¡« ó ß»¿ß¬Ñ ¡Ñ ñ«½ª¡« íδΓ∞ FILE=. àß½¿ éδ »α«óÑα∩ÑΓÑ Σá⌐½, ó ß»¿ß¬Ñ ñ«½ªÑ¡ íδΓ∞ «»¿ßáΓÑ½∞ Σá⌐½á FILE=, ¡« ¡Ññ«»πßΓ¿¼ UNIT=. ─────────────────────────────────────────────────────── INQUIRE (UNIT= «»αÑñÑ½¿ΓÑ½∞-πßΓα«⌐ßΓóá ß»¿ß«¬- «»¿ßáΓÑ½Ñ⌐/¡áº¡áτÑ¡¿⌐ ¿½¿ INQUIRE (FILE= ¿¼∩-Σá⌐½á ß»¿ß«¬-«»¿ßáΓÑ½Ñ⌐/¡áº¡áτÑ¡¿⌐ úñÑ ß»¿ß«¬ «»¿ßáΓÑ½Ñ⌐/¡áº¡áτÑ¡¿⌐ - φΓ«: [,ERR= ¼ÑΓ¬á] [,EXIST= ½«ú¿τÑß¬«Ñ-ßπΘÑßΓóπÑΓ] [,NAMED= ½«ú¿τÑß¬«Ñ-»«¿¼Ñ¡«óá¡«] [,IOSTAT= µÑ½«Ñ-»α«óÑα¬á-óδσ«ñá] [,OPENED= ½«ú¿τÑß¬«Ñ-«Γ¬αδΓ«] [,NUMBER= µÑ½«Ñ-τΓ«-ß«Ññ¿¡Ñ¡«] [,NAME= ¿¼∩-Σá⌐½á-ß«Ññ¿¡Ñ¡¿∩] [,ACCESS= ¿¼∩-Γ¿»á-ñ«ßΓπ»á] [,SEQUENTIAL= ¿¼∩-»«ß½Ññ«óáΓÑ½∞¡«ú«] [,DIRECT= ¿¼∩-»α∩¼«ú«] [,FORM= ¿¼∩-Σ«α¼áΓá] [,FORMATTED= ¿¼∩-Σ«α¼áΓ¿α«óá¡¡«ú«] [,UNFORMATTED= ¿¼∩-¡ÑΣ«α¼áΓ¿α«óá¡¡«ú«] [,RECL= µÑ½«Ñ-ñ½¿¡] [,NEXTREC= µÑ½«Ñ-¡«¼Ñα-ß½ÑñπεΘÑÑ] [,BLANC= ¿¼∩-»α«íÑ½á] [,SHARE= ¿¼∩-ß«ßΓ«∩¡¿∩-ß«ó¼ÑßΓ¡«ú«-ñ«ßΓπ»á] [,MODE= ¿¼∩-Γ¿»á-αáí«Γδ] ────────────────────────────────────────────────────────── úñÑ «»αÑñÑ½¿ΓÑ½∞ πßΓα«⌐ßΓóá -φΓ«: á)½¿í« µÑ½«Ñ í)½¿í« ºóÑºñ«τ¬á(*), «»αÑñÑ½∩εΘá∩ »α«µÑßß«α ºáñá¡¡«ú« πßΓα«⌐ßΓóá, »«ñ- ß«Ññ¿¡Ñ¡¡δ⌐ ñ½∩ Σ«α¼áΓ¡«ú« »«ß½Ññ«óá- ΓÑ½∞¡«ú« ñ«ßΓπ»á. Ä¡ ñ«½ªÑ¡ ßΓ«∩Γ∞ »Ñαóδ¼ ó »α«óÑα¬Ñ πßΓα«⌐ßΓóá. ¿¼∩ Σá⌐½á ºáñáÑΓ ¿¼∩ Σá⌐½á »α¿ »α«óÑα¬Ñ Σá⌐½á ¿ ñ«½ª¡« ßΓ«∩Γ∞ »Ñαóδ¼ »α¿ »α«óÑα¬Ñ Σá⌐½á. ê¼∩ Σá⌐½á ñ«½ª¡« íδΓ∞ ß¿¼ó«½∞¡«⌐ »ÑαÑ¼Ñ¡¡«⌐ ¿½¿ φ½Ñ¼Ñ¡Γ«¼ ¼áßß¿óá. ¼ÑΓ¬á îÑΓ¬á óδ»«½¡∩Ñ¼«ú« «»ÑαáΓ«αá, ¬«Γ«αδ⌐ ó óδ»«½- ¡∩Ñ¼«⌐ »α«úαá¼¼Ñ ß««ΓóÑΓßΓóπÑΓ «»¿ßáΓÑ½ε αÑá¬µ¿¿ ¡á «Φ¿í¬π. àß½¿ »α«¿ßσ«ñ¿Γ «Φ¿í¬á π»αá- ó½Ñ¡¿Ñ íπñÑΓ »ÑαÑñá¡« ¡á φΓπ ¼ÑΓ¬π. ½«ú¿τÑß¬«Ñ- ½«ú¿τÑß¬á∩ »ÑαÑ¼Ñ¡¡á∩ ¿½¿ φ½Ñ¼Ñ¡Γ ßπΘÑßΓóπÑΓ ½«ú¿τÑß¬«ú« ¼áßß¿óá. éδ»«½¡Ñ¡¿Ñ «»ÑαáΓ«αá INQUIRE ß «»Ñαá¡ñ«¼ FILE= πßΓá¡«ó¿Γ »ÑαÑ¼Ñ¡¡πε ó ß«ßΓ«∩¡¿Ñ .TRUE., Ñß½¿ π¬áºá¡¡δ⌐ Σá⌐½ ßπΘÑ- ßΓóπÑΓ, ¿½¿ ó ß«ßΓ«∩¡¿Ñ .FALSE. Ñß½¿ π¬áºá¡¡«ú« Σá⌐½á ¡ÑΓ. éδ»«½¡Ñ¡¿Ñ «»ÑαáΓ«αá INQUIRE ß «»Ñαá¡ñ«¼ UNIT= πßΓá¡«ó¿Γ »ÑαÑ¼Ñ¡¡πε ó ß«ßΓ«∩¡¿Ñ .TRUE. Ñß½¿ π¬áºá¡¡«Ñ πßΓα«⌐ßΓó« ÑßΓ∞ ¿½¿ ó ß«ßΓ«∩¡¿Ñ .FALSE. ó »α«Γ¿ó¡«¼ ß½πτáÑ. ½«ú¿τÑß¬«Ñ- ½«ú¿τÑß¬á∩ »ÑαÑ¼Ñ¡¡á∩ ¿½¿ φ½Ñ¼Ñ¡Γ »«¿¼Ñ¡«óá¡« ½«ú¿τÑß¬«ú« ¼áßß¿óá. éδ»«½¡Ñ¡¿Ñ «»ÑαáΓ«αá INQUIRE ß «»Ñαá¡ñ«¼ UNIT= πßΓá¡«ó¿Γ »ÑαÑ¼Ñ¡¡πε ó ß«ßΓ«∩¡¿Ñ .TRUE. Ñß½¿ Σá⌐½ íδ½ «Γ¬αδΓ »« ¿¼Ñ¡¿ ¿ ¬ πßΓα«⌐ßΓóπ »α¿ß«Ññ¿¡Ñ¡ óαÑ¼Ñ¡¡δ⌐ Σá⌐½. µÑ½«Ñ- µÑ½«Ñ ¿½¿ φ½Ñ¼Ñ¡Γ µÑ½«ú« ¼áßß¿óá, ¬«Γ«α«Ñ »α«óÑα¬á- ßΓá¡«ó¿Γß∩ «»αÑñÑ½Ñ¡¡δ¼, ¬á¬ óδσ«ñá á) ¡π½∞, Ñß½¿ ¡Ñ íδ½« «Φ¿í«¬ ¿½¿ ¡Ñ óßΓαÑΓ¿½¿ß∞ πß½«ó¿∩ ¬«¡µá Σá⌐½á. b) ¼áΦ¿¡¡«-ºáó¿ß¿¼á∩ »«½«ª¿ΓÑ½∞¡á∩ µÑ½á∩ óÑ½¿τ¿¡á Ñß½¿ óßΓαÑΓ¿½«ß∞ ß«ßΓ«∩¡¿Ñ «Φ¿í¬¿. ß) ¼áΦ¿¡¡« ºáó¿ß¿¼á∩ «Γα¿µáΓÑ½∞¡á∩ µÑ½á∩ óÑ- ½¿τ¿¡á Ñß½¿ «Φ¿í¬¿ ¡Ñ íδ½« ¿ óßΓαÑΓ¿½ß∩ ¬«¡Ñµ Σá⌐½á. ½«ú¿τÑß¬«Ñ- ½«ú¿τÑß¬á∩ »ÑαÑ¼Ñ¡¡á∩ ¿½¿ φ½Ñ¼Ñ¡Γ ½«ú¿τÑß¬«ú« «Γ¬αδΓ« ¼áßß¿óá. é »α«óÑα¬Ñ »« Σá⌐½π πßΓá¡áó½¿óáÑΓß∩ .TRUE., Ñß½¿ ¿¼Ñ¡«óá¡¡δ⌐ Σá⌐½ ó ΓÑ¬πΘ¿⌐ ¼«¼Ñ¡Γ ß«Ññ¿¡Ñ¡ ß ½εíδ¼ πßΓα«⌐ßΓó«¼. é »α«Γ¿ó¡«¼ ß½π- τáÑ πßΓá¡áó½¿óáÑΓß∩ .FALSE. é »α«óÑα¬Ñ »« πßΓ- α«⌐ßΓóπ πßΓá¡áó½¿óáÑΓß∩ .TRUE., Ñß½¿ ñ½∩ ñá¡- ¡«ú« πßΓα«⌐ßΓóá «Γ¬αδΓ ½εí«⌐ Σá⌐½, ó »α«Γ¿ó¡«¼ ß½πτáÑ - .FALSE. µÑ½«Ñ-τΓ«- µÑ½á∩ »ÑαÑ¼Ñ¡¡á∩ ¿½¿ φ½Ñ¼Ñ¡Γ µÑ½«ú« ¼áßß¿óá. ß«Ññ¿¡Ñ¡« Ä¡á ßΓá¡«ó¿Γß∩ ¡Ñ«»αÑñÑ½Ñ¡¡«⌐, Ñß½¿ ¬ Σá⌐½π ¡Ñ »α¿ß«Ññ¿¡Ñ¡« πßΓα«⌐ßΓó«. ê¡áτÑ, »α¿ »α«óÑα¬Ñ »« Σá⌐½π «¡á αáó¡á ¡«¼Ñαπ πßΓα«⌐ßΓóá, ß«Ññ¿¡Ñ¡- ¡«¼π ß Σá⌐½«¼. ¿¼∩-Σá⌐½á- ß¿¼ó«½∞¡á∩ óÑ½¿τ¿¡á ¿½¿ φ½Ñ¼Ñ¡Γ ß¿¼ó«½∞¡«ú« ß«Ññ¿¡Ñ¡¿∩ ¼áßß¿óá. Åα¿ »α«óÑα¬Ñ πßΓα«⌐ßΓóá ó ¡ÑÑ ºáßδ- ½áÑΓß∩ ¿¼∩ Σá⌐½á. Ä¡á ßΓá¡«ó¿Γß∩ ¡Ñ«»αÑñÑ½Ñ¡- ¡«⌐, Ñß½¿ π Σá⌐½á ¡ÑΓ ¿¼Ñ¡¿ ¿½¿ Σá⌐½ ¡Ñ »α¿ß«- Ññ¿¡Ñ¡ ¬ πßΓα«⌐ßΓóπ. ¿¼∩-Γ¿»á- ß¿¼ó«½∞¡á∩ »ÑαÑ¼Ñ¡¡á∩ ¿½¿ φ½Ñ¼Ñ¡Γ ß¿¼ó«½∞¡«ú« ñ«ßΓπ»á ¼áßß¿óá. Åα¿ßóá¿óáÑΓß∩ º¡áτÑ¡¿Ñ 'SEQUENTAL', Ñß½¿ »α¿ß«Ññ¿¡Ñ¡ Σá⌐½ »«ß½Ññ«óáΓÑ½∞¡«ú« ñ«ß- Γπ»á, ¿ -'DIRECT', Ñß½¿ »α¿ß«Ññ¿¡Ñ¡ Σá⌐½ »α∩- ¼«ú« ñ«ßΓπ»á. àß½¿ ¬ ºáñá¡¡«¼π πßΓα«⌐ßΓóπ ¡Ñ »α¿ß«Ññ¿¡Ñ¡ Σá⌐½ »ÑαÑ¼Ñ¡¡á∩ ßΓá¡«ó¿Γß∩ ¡Ñ«»αÑñÑ½Ñ¡¡«⌐. ¿¼∩-»«ß½Ññ«- ß¿¼ó«½∞¡á∩ »ÑαÑ¼Ñ¡¡á∩ ¿½¿ φ½Ñ¼Ñ¡Γ ß¿¼ó«½∞¡«ú« óáΓÑ½∞¡«ú« ¼áßß¿óá. ôßΓá¡áó½¿óáÑΓß∩ 'YES', Ñß½¿ ßαÑñ¿ ¡áí«αá ñ«»πßΓ¿¼δσ αÑª¿¼«ó ñ«ßΓπ»á ¬ »α¿ß«Ññ¿¡Ñ- ¡¡«¼π Σá⌐½π ÑßΓ∞ »«ß½Ññ«óáΓÑ½∞¡δ⌐. é »α«Γ¿ó¡«¼ ß½πτáÑ - 'NO' ¿½¿ 'UNKNOWN'. ¿¼∩-»α∩¼«ú« ß¿¼ó«½∞¡á∩ »ÑαÑ¼Ñ¡¡á∩ ¿½¿ φ½Ñ¼Ñ¡Γ ß¿¼ó«½∞¡«ú« ¼áßß¿óá. ôßΓá¡áó½¿óáÑΓß∩ 'YES', Ñß½¿ ßαÑñ¿ ¡áí«αá ñ«»πßΓ¿¼δσ αÑª¿¼«ó ñ«ßΓπ»á ¬ »α¿ß«Ññ¿- ¡Ñ¡¡«¼π Σá⌐½π ÑßΓ∞ »α∩¼«⌐. é »α«Γ¿ó¡«¼ ß½πτáÑ - 'NO' ¿½¿ 'UNKNOWN'. ¿¼∩-Σ«α¼áΓá ß¿¼ó«½∞¡á∩ »ÑαÑ¼Ñ¡¡á∩ ¿½¿ φ½Ñ¼Ñ¡Γ ß¿¼ó«½∞¡«ú« ¼áßß¿óá, ¬«Γ«α«⌐ »α¿ßóá¿óáÑΓß∩ FORMATTED' Ñß½¿ »α¿ß«Ññ¿¡Ñ¡ Σá⌐½ ñ½∩ Σ«α¼áΓ¡«ú« óó«ñá/óδó«ñá ¿ - 'UNFORMATTED' ó »α«Γ¿ó¡«¼ ß½πτáÑ. ¿¼∩-Σ«α¼áΓ¿- ß¿¼ó«½∞¡á∩ »ÑαÑ¼Ñ¡¡á∩ ¿½¿ φ½Ñ¼Ñ¡Γ ß¿¼ó«½∞¡«ú« α«óá¡¡«ú« ¼áßß¿óá, ¬«Γ«α«⌐ »α¿ßóá¿óáÑΓß∩ 'YES', Ñß½¿ ßαÑñ¿ ¡áí«αá ñ«»πßΓ¿¼δσ ó¿ñ«ó Σá⌐½á ÑßΓ∞ Σ«α- ¼áΓ¡δ⌐, ¿ - 'NO' ¿½¿ 'UNKNOWN' ó »α«Γ¿ó¡«¼ ß½πτáÑ. ¿¼∩-¡ÑΣ«α¼áΓ¿- ß¿¼ó«½∞¡á∩ »ÑαÑ¼Ñ¡¡á∩ ¿½¿ φ½Ñ¼Ñ¡Γ ß¿¼ó«½∞¡«ú« α«óá¡¡«ú« ¼áßß¿óá, ¬«Γ«α«⌐ »α¿ßóá¿óáÑΓß∩ 'YES', Ñß½¿ ßαÑñ¿ ¡áí«αá ñ«»πßΓ¿¼δσ ó¿ñ«ó Σá⌐½á ÑßΓ∞ ¡Ñ- Σ«α¼áΓ¡δ⌐ ¿ - 'NO' ¿½¿ 'UNKNOWN' ó »α«Γ¿ó¡«¼ ß½πτáÑ. µÑ½«Ñ-ñ½¿¡á µÑ½á∩ »ÑαÑ¼Ñ¡¡á∩ ¿½¿ φ½Ñ¼Ñ¡Γ ¼áßß¿óá, ¬«Γ«αá∩ «»αÑñÑ½∩ÑΓ ñ½¿¡π (ó íá⌐Γáσ) ¬áªñ«⌐ ºá»¿ß¿ Σá⌐½á, »α¿ß«Ññ¿¡Ñ¡¡«ú« ñ½∩ »α∩¼«ú« ñ«ßΓπ»á. àß½¿ Σá⌐½ »α¿ß«Ññ¿¡Ñ¡ ñ½∩ ¡ÑΣ«α¼áΓ¡«ú« óó«- ñá/óδó«ñá ñ½¿¡á íπñÑΓ ó ¼áΦ¿¡¡«-ºáó¿ß¿¼δσ Ññ¿- ¡¿µáσ. µÑ½«Ñ-¡«¼Ñα- µÑ½á∩ »ÑαÑ¼Ñ¡¡á∩ ¿½¿ φ½Ñ¼Ñ¡Γ µÑ½«ú« ¼áßß¿óá, ¬«Γ«αá∩ »α¿ßóá¿óáÑΓß∩ ¡«¼Ñα ß½ÑñπεÑ⌐ ºá»¿ß¿ ó Σá⌐½Ñ, »α¿ß«Ññ¿¡Ñ¡«¼ ñ½∩ »α∩¼«ú« ñ«ßΓπ»á. ÅÑαóá∩ ºá»¿ß∞ ó Γá¬«¼ Σá⌐½Ñ ¿¼ÑÑΓ ¡«¼Ñα 1. ¿¼∩-»α«íÑ½á ß¿¼ó«½∞¡á∩ »ÑαÑ¼Ñ¡¡á∩ ¿½¿ φ½Ñ¼Ñ¡Γ ß¿¼ó«½∞¡«ú« ¼áßß¿óá, ¬«Γ«α«⌐ »α¿ßóá¿óáÑΓß∩ º¡áτÑ¡¿Ñ 'NULL' Ñß½¿ ñÑ⌐ßΓóπÑΓ αÑñá¬Γ¿απεΘ¿⌐ «»¿ßáΓÑ½∞ BN ¿½¿ º¡áτÑ¡¿Ñ 'ZERO'Ñß½¿ ñÑ⌐ßΓóπÑΓ BZ. ¿¼∩-ß«ßΓ«∩¡¿∩- ß¿¼ó«½∞¡á∩ »ÑαÑ¼Ñ¡¡á∩, ¬«Γ«α«⌐ »ÑαÑñáÑΓß∩ º¡á- ß«ó¼ÑßΓ¡«ú«- τÑ¡¿Ñ ßΓα«¬¿ «»Ñαá¡ñá SHARE= ó «»Ñαá¡ñÑ OPEN ñ«ßΓπ»á (COMPAT,DENYRW,DENYWR,DENYRD ¿½¿ DENYNONE). àß½¿ ¬ ºáñá¡¡«¼π πßΓα«⌐ßΓóπ ¡Ñ »α¿ß«Ññ¿¡Ñ¡ Σá⌐½-ßΓá¡«ó¿Γß∩ ¡Ñ«»αÑñÑ½Ñ¡¡«⌐. ¿¼∩-Γ¿»á- ß¿¼ó«½∞¡á∩ »ÑαÑ¼Ñ¡¡á∩, ¬«Γ«α«⌐ »ÑαÑñáÑΓß∩ º¡á- αáí«Γδ τÑ¡¿Ñ ßΓα«¬¿ «»Ñαá¡ñá MODE= «»ÑαáΓ«αá OPEN (READ,WRITE,READWRITE). àß½¿ ¬ ºáñá¡¡«¼π πßΓ- α«⌐ßΓóπ ¡Ñ »α¿ß«Ññ¿¡Ñ¡ Σá⌐½ ßΓá¡«ó¿Γß∩ ¡Ñ«»αÑ- ñÑ½Ñ¡¡«⌐. Äß«íÑ¡¡«ßΓ¿. Ä»ÑαáΓ«α INQUIRE ¼«ªÑΓ íδΓ∞ óδ»«½¡Ñ¡ ó ½εí«⌐ ¼«¼Ñ¡Γ. é«ºóαá- ΘáÑ¼δÑ ¿¼ óÑ½¿τ¿¡δ ß««ΓóÑΓßΓóπεΓ ¼«¼Ñ¡Γπ «íαáΘÑ¡¿∩. ¥½Ñ¼Ñ¡Γδ ó ß»¿ß¬Ñ «»¿ßáΓÑ½Ñ⌐/¡áº¡áτÑ¡¿⌐ ¼«úπΓ ß½Ññ«óáΓ∞ ó ½εí«¼ »«α∩ñ¬Ñ. ▄──────────────────── █ INTERFACE ▀──────────────────── Å«ºó«½∩ÑΓ ßó∩º∞ ß »α«µÑñπαá¼¿, ¡á»¿ßá¡¡δ¼¿ ¡á ñαπú¿σ ∩ºδ¬áσ. î«ªÑΓ íδΓ∞ Γá¬ªÑ ¿ß»«½∞º«óá¡ ñ½∩ óδº«óá »«ñ»α«úαá¼¼δ ß ºáñá¡¡δ¼¿ »áαá¼ÑΓαá¼¿. ───────────────────────────────────────────────── INTERFACE TO «»ÑαáΓ«α »«ñ»α«úαá¼¼δ ───────────────────────────────────────────────── âñÑ «»ÑαáΓ«α »«ñ»α«úαá¼¼δ - φΓ« «»ÑαáΓ«α FUNCTION ¿½¿ SUBROUTINE Äß«íÑ¡¡«ßΓ¿. Ä»ÑαáΓ«α «»αÑñÑ½∩ÑΓ ñ½∩ ßó∩º¿ »«ñ»α«úαá¼¼π ¿½¿ Σπ¡¬µ¿ε, «»¿ßá¡¡πε »«ß½Ñ ß½«ó INTERFACE TO. Ä»ÑαáΓ«α »«ñ»α«úαá¼¼δ ¿½¿ Σπ¡- ¬µ¿¿ ¿¼ÑÑΓ «íδτ¡δ⌐ ß¿¡Γá¬ß¿ß. é INTERFACE ¼«úπΓ »«∩ó½∩Γ∞ß∩ Γ«½∞¬« Γá¬¿Ñ «»ÑαáΓ«αδ ¬á¬ INTERFACE, EXTERNAL, INTRINSIC, DIMENSION, END ¡á»¿ßá¡¿∩ Γ¿»á. ìá»α¿¼Ñα: INTERFACE TO INTEGER FUNCTION F(I,J,K) INTEGER*2 I REAL J EXTERNAL K END «»¿ßδóáÑΓ Σπ¡¬µ¿ε INTEGER FUNCTION F(I,J,K) INTEGER*2 I REAL J EXTERNAL K END àß½¿ éδ »½á¡¿απÑΓÑ ¬«¼»¿½¿α«óáΓ∞ «ΓñÑ½∞¡« τáßΓ¿ éáΦÑ⌐ »α«úαá¼- ¼δ, éδ ¼«ªÑΓÑ ó¬½ετ¿Γ∞ «»ÑαáΓ«α ßó∩º¿ ó ¬áªñπε ¬«¼»¿½¿απÑ¼πε τáßΓ∞, ¬«Γ«αá∩ ¿ß»«½∞ºπÑΓ ¿½¿ «»αÑñÑ½∩ÑΓ »«ñ»α«úαá¼¼δ. æó∩º∞ ñ«½ª¡á óßΓá- ó½∩Γ∞ß∩ »ÑαÑñ ½εí«⌐ ßßδ½¬«⌐ ¡á ¿ß»«½∞ºπÑ¼πε »«ñ»α«úαá¼¼π. ÉÑ¬«¼Ñ¡- ñπÑΓß∩, τΓ«íδ éδ ºáóÑ½¿ ó «ΓñÑ½∞¡«¼ Σá⌐½Ñ óßÑ ΓÑ¬ßΓδ ßó∩ºÑ⌐ ¿ ¿ß»«½∞º«óá½¿ $INCLUDE ó ¬áªñ«¼ Σá⌐½Ñ, ¿ß»«½∞ºπεΘÑ¼ ßó∩º¿, ñ½∩ «íÑ- ß»ÑτÑ¡¿∩ Γ«τ¡« Γá¬¿σ ªÑ «»αÑñÑ½Ñ¡¿⌐ ó ¼ÑßΓáσ ¿ß»«½∞º«óá¡¿∩. è«¼»¿½∩Γ«α «íÑß»Ñτ¿óáÑΓ ß«ó¼ÑßΓ¿¼«ßΓ∞ »áαá¼ÑΓα«ó ó óδº«óáσ »«ñ»α«úαá¼¼ ß ¿σ «»αÑñÑ½Ñ¡¿∩¼¿ ó INTERFACE. è«úñá INTERFACE ßßδ- ½áÑΓß∩ ¡á »«ñ»α«úαá¼¼π ó φΓ«¼ ªÑ ßá¼«¼ ΓÑ¬ßΓ«ó«¼ Σá⌐½Ñ, ¬«¼»¿½∩Γ«α «íÑß»Ñτ¿óáÑΓ ß«ó¼ÑΘÑ¡¿Ñ ¿¼Ñ¡, Γ¿»«ó ¿ τ¿ß½á »áαá¼ÑΓα«ó. ÇΓα¿íπΓδ («»¿ßá¡¡δÑ ó τáßΓ¿ 7), ¿ß»«½∞ºπÑ¼δÑ ó INTERFACE, ¼Ñ¡∩εΓ «»αÑñÑ½Ñ¡¿∩ »« π¼«½τá¡¿ε ó «»¿ßá¡¿¿ »«ñ»α«úαá¼¼δ. Äñ¡á¬«, Ñß½¿ éδ ¿ß»«½∞ºπÑΓÑ áΓα¿íπΓ ó «»¿ßá¡¿¿ »«ñ»α«úαá¼¼δ ¿½¿ ÑÑ »áαá- ¼ÑΓα«ó, ΓÑ ªÑ ßá¼δÑ áΓα¿íπΓδ ñ«½ª¡δ »«∩ó¿Γ∞ß∩ ó INTERFACE. ìá»- α¿¼Ñα, éδ ¼«ªÑΓÑ ºá¼Ñ¡¿Γ∞ »áαá¼ÑΓαδ »«ñ»α«úαá¼¼δ ¡á ¬«¡¬αÑΓ¡δÑ º¡áτÑ¡¿∩ »áαá¼ÑΓα«ó ß »«¼«Θ∞ε INTERFACE íÑº ¿º¼Ñ¡Ñ¡¿∩ «»¿ßá¡¿∩ »«ñ»α«úαá¼¼δ. ▄──────────────── █ INTRINSIC ▀──────────────── ÄíΩ∩ó½∩ÑΓ, τΓ« ¿¼∩ ∩ó½∩ÑΓß∩ ¿¼Ñ¡Ñ¼ óßΓα«Ñ¡¡«⌐ Σπ¡¬µ¿¿. ───────────────────────────────────────── INTRINSIC ¿¼∩1[,¿¼∩2]... ───────────────────────────────────────── âñÑ ¿¼∩ - φΓ« ¿¼∩ óßΓα«Ñ¡¡«⌐ Σπ¡¬µ¿¿. Äß«íÑ¡¡«ßΓ¿. é «»ÑαáΓ«αÑ INTRINSIC ¬áªñ«Ñ »«½∞º«óáΓÑ½∞ß¬«Ñ ¿¼∩ ¼«ªÑΓ »«∩ó¿Γ∞ß∩ Γ«½∞¬« «ñ¡áªñδ. ê¼∩, π»«¼∩¡πΓ«Ñ ó «»ÑαáΓ«αÑ INTRINSIC, ¡Ñ ¼«ªÑΓ íδΓ∞ ¿ß»«½∞º«óá¡« ó «»ÑαáΓ«αÑ EXTERNAL. éßÑ ¿¼Ñ¡á, ¿ß»«- ½∞ºπÑ¼δÑ ó «»ÑαáΓ«αÑ INTRINSIC, ñ«½ª¡δ íδΓ∞ ß¿ßΓÑ¼¡«-«»αÑñÑ½Ñ¡¡δ¼¿ óßΓα«Ñ¡¡δ¼¿ Σπ¡¬µ¿∩¼¿. æ»¿ß«¬ φΓ¿σ Σπ¡¬µ¿⌐ »α¿óÑñÑ¡ ó Γáí½¿µÑ 5-1 ó τáßΓ¿ 5. éδ ñ«½ª¡δ «»αÑñÑ½¿Γ∞ ¿¼∩ óßΓα«Ñ¡¡«⌐ Σπ¡¬µ¿¿ ó «»ÑαáΓ«αÑ INTRINSIC, Ñß½¿ éδ σ«Γ¿ΓÑ ¿ß»«½∞º«óáΓ∞ ÑÑ ¬á¬ »áαá¼ÑΓα (Γ.Ñ. ¬á¬ Σá¬Γ¿τÑß¬¿⌐ »áαá¼ÑΓα ó »α«úαá¼¼¡«⌐ Ññ¿¡¿µÑ). Åα¿¼Ñα: æ Åα¿¼Ñα «»ÑαáΓ«αá INTRINSIC INTRINSIC SIN, COS C SIN ¿ COS - φΓ« »áαá¼ÑΓαδ CALC2 X=CALC2(SIN,COS) ▄──────────────────── █ LOCKING ▀──────────────────── çá¬αδóáÑΓ Σá⌐½δ ¿ ºá»¿ß¿ »α∩¼«ú« ñ«ßΓπ»á ───────────────────────────────────────────────────── LOCKING ([UNIT=]πßΓα«⌐ßΓó«,[REC=¡«¼Ñα-ºá»¿ß¿,] [RECORDS=τ¿ß½«-ºá»¿ßÑ⌐,][LOCKMODE='αÑª¿¼',] [ERR=¼ÑΓ¬á-«íαáí«Γ¬¿-«Φ¿í¬¿,][IOSTAT=ß«ßΓ«∩¡¿Ñ]) ───────────────────────────────────────────────────── âñÑ πßΓα«⌐ßΓó« - φΓ« µÑ½«Ñ, ∩ó½∩εΘÑÑß∩ ¡«¼Ñα«¼ ºá¬αδóáÑ¼«ú« πßΓα«⌐- ßΓóá. öá⌐½, ßó∩ºá¡¡δ⌐ ß πßΓα«⌐ßΓó«¼ ñ«½ªÑ¡ íδΓ∞ «Γ¬αδΓ ñ½∩ »α∩¼«ú« ñ«ßΓπ»á. ¡«¼Ñα-ºá»¿ß¿ - µÑ½«Ñ óδαáªÑ¡¿Ñ, «»αÑñÑ½∩εΘÑÑ ¡«¼Ñα »Ñαó«⌐ ºá»¿ß¿ ó úαπ»»Ñ ºá»¿ßÑ⌐, ¬«Γ«αδÑ ñ«½ª¡δ íδΓ∞ ºá¬αδΓδ. àß½¿ ¡«¼Ñα-ºá»¿ß¿ «ΓßπΓßΓóπÑΓ ºá¬α«ÑΓß∩ ß½ÑñπεΘá∩ ºá»¿ß∞ (ß½ÑñπεΘá∩, ¬«Γ«αá∩ ñ«½ª¡á íδ½á τ¿ΓáΓ∞ß∩) τ¿ß½«-ºá»¿ßÑ⌐ µÑ½«Ñ óδαáªÑ¡¿Ñ «»αÑñÑ½∩εΘÑÑ τ¿ß½« ºá¬αδóáÑ¼δσ ºá- »¿ßÑ⌐. Å« π¼«½τá¡¿ε αáó¡« Ññ¿¡¿µÑ. αÑª¿¼ ßΓα«¬«ó«Ñ óδαáªÑ¡¿Ñ, ¿¼ÑεΘÑÑ «ñ¡« ¿º ß½ÑñπεΘ¿σ º¡áτÑ¡¿⌐: 'UNLCK' ¡Ñ ºá¬αδóáΓ∞ ºáñá¡¡πε «í½áßΓ∞ 'LOCK' ºá¬αδΓ∞ ºáñá¡¡πε «í½áßΓ∞ 'NBLCK' ¡Ñ í½«¬¿α«óá¡¡«Ñ ºá¬αδΓ¿Ñ. çá¬αδóáÑΓ ºáñá¡¡πε «í½áßΓ∞. àß½¿ «¡á πªÑ ºá¬αδΓá ñαπú¿¼ »α«µÑßß«¼, ñáÑΓ «Φ¿í¬π. äÑ⌐ßΓóπÑΓ »« π¼«½τá¡¿ε. 'RLCK' ºá¬αδΓ∞ »« τΓÑ¡¿ε. Æ« ªÑ, τΓ« ¿ LOCK ¬α«¼Ñ ºá¬αδΓ¿∩ ñ«ßΓπ»á ñ½∩ ºá»¿ß¿. 'NBRLCK' ¡Ñ í½«¬¿α«óá¡¡«Ñ ºá¬αδΓ¿Ñ »« τΓÑ¡¿ε. Æ«ªÑ, τΓ« ¿ NBLCK ¬α«¼Ñ ºá¬αδΓ¿∩ ñ«ßΓπ»á ñ½∩ ºá»¿ß¿. ¼ÑΓ¬á- φΓ« ¼ÑΓ¬á ½εí«ú« «»ÑαáΓ«αá. àß½¿ «¡á «»αÑñÑ½Ñ¡á, «íαáí«Γ¬¿- Γ« «Φ¿í¬á óó«ñá/óδó«ñá »ÑαÑñáÑΓ π»αáó½Ñ¡¿Ñ ¡á óδ- «Φ¿í¬¿ »«½¡∩Ñ¼δ⌐ «»ÑαáΓ«α ß φΓ«⌐ ¼ÑΓ¬«⌐. àß½¿ ¡Ñ «»αÑñÑ- ½Ñ¡δ ¡¿ ¼ÑΓ¬á-«íαáí«Γ¬¿-«Φ¿í¬¿, ¡¿ ß«ßΓ«∩¡¿Ñ, Γ« «Φ¿í¬á óó«ñá/óδó«ñá »ÑαÑσ«ñ¿Γ ó «Φ¿í¬π ¿ß»«½¡Ñ¡¿∩. Ä»ÑαáΓ«α ß ¼ÑΓ¬«⌐-«íαáí«Γ¬¿-«Φ¿í¬¿ ñ«½ª¡δ ¡áσ«- ñ¿Γ∞ß∩ ó Γ«⌐ ªÑ »α«úαá¼¼¡«⌐ Ññ¿¡¿µÑ, τΓ« ¿ «»ÑαáΓ«α LOCKING. ß«ßΓ«∩¡¿Ñ - φΓ« µÑ½á∩ »ÑαÑ¼Ñ¡¡á∩ ¿½¿ φ½Ñ¼Ñ¡Γ µÑ½«ú« ¼áßß¿óá, »α¿¡¿¼áεΘá∩ º¡áτÑ¡¿∩: á) ¡π½∞, Ñß½¿ ¡Ñ óßΓαÑΓ¿½«ß∞ «Φ¿í«¬ ¿½¿ ¬«¡µá Σá⌐½á ó) ¡«¼Ñα «Φ¿í¬¿ ¿ß»«½¡Ñ¡¿∩, Ñß½¿ óßΓαÑ- ½áß∞ «Φ¿í¬á ß) «Γα¿µáΓÑ½∞¡«Ñ µÑ½«Ñ, Ñß½¿ óßΓαÑΓ¿½ß∩ ¬«¡Ñµ Σá⌐½á. Äß«íÑ¡¡«ßΓ¿. UNIT ñ«½ªÑ¡ íδΓ∞ »Ñαóδ¼ «»Ñαá¡ñ«¼, «ßΓá½∞¡δÑ ¼«úπΓ ß½Ññ«óáΓ∞ ó ½εí«⌐ »«ß½Ññ«óáΓÑ½∞¡«ßΓ¿. àß½¿ ¡Ñ «»αÑñÑ½Ñ¡δ ¡¿ ß«ßΓ«∩¡¿Ñ, ¡¿ ¼ÑΓ¬á-«íαáí«Γ¬¿-«Φ¿í¬¿, ó »α«úαá¼¼Ñ ó«º¡¿¬¡ÑΓ áó«ßΓ »α¿ óßΓαÑτÑ ß ¬«¡µ«¼ Σá⌐½á ¿½¿ «Φ¿í¬«⌐. ▄──────────── █ OPEN ▀──────────── Åα¿ó«ñ¿Γ ó ß««ΓóÑΓßΓó¿Ñ ¡«¼Ñα πßΓα«⌐ßΓóá ß ó¡ÑΦ¡¿¼ πßΓα«⌐ßΓó«¼ ¿½¿ Σá⌐½«¼ ¡á ó¡ÑΦ¡Ñ¼ πßΓα«⌐ßΓóÑ. ────────────────────────────────────────────────────── OPEN (¡«¼Ñα-πßΓα«⌐ßΓóá [,FILE='¿¼∩-Σá⌐½á'] [,STATUS='Γ¿»'][,ACCESS='Γ¿»-ñ«ßΓπ»á'][,FORM= 'ö«α¼áΓ'][,IOSTAT= ß«ßΓ«∩¡¿Ñ][,RECL=ñ½¿¡á] [,SHARE='ß«ó¼ÑßΓ¡«'][,MODE='αÑª¿¼']) ────────────────────────────────────────────────────── âñÑ ¡«¼Ñα-πßΓα«⌐ßΓóá φΓ« «»αÑñÑ½¿ΓÑ½∞ ΓαÑíπÑ¼«ú« πßΓα«⌐ßΓó«. Ä¡ ñ«½ªÑ¡ íδΓ∞ »Ñαóδ¼ »áαá¼ÑΓα«¼ ¿ ¡Ñ ñ«½ªÑ¡ íδΓ∞ ó¡πΓαÑ¡¡¿¼ «»αÑñÑ½¿ΓÑ½Ñ¼ πßΓα«⌐ßΓóá. ä½∩ »«½πτÑ¡¿∩ í«½ÑÑ »«ñα«í¡«⌐ ¿¡Σ«α¼áµ¿¿ «í «»αÑñÑ½¿ΓÑ½Ñ πßΓα«⌐ßΓóá ¿ ñαπú¿σ φ½Ñ¼Ñ¡Γáσ «»ÑαáΓ«α«ó óó«ñá/óδó«ñá ß¼«Γα¿ΓÑ τáßΓ∞ 4 "æ¿ß- ΓÑ¼á óó«ñá/óδó«ñá". ¿¼∩-Σá⌐½á φΓ« ß¿¼ó«½∞¡«Ñ óδαáªÑ¡¿Ñ. ¥Γ« ¡Ñ «í∩ºáΓÑ½∞¡δ⌐ »áαá¼ÑΓα, ¡« «¡ ñ«½ªÑ¡ íδΓ∞ óΓ«αδ¼, Ñß½¿ »α¿- ßπΓßΓóπÑΓ. àß½¿ «¡ «ΓßπΓßΓóπÑΓ, ¬«¼»¿½∩Γ«α ß«ºñáÑΓ óαÑ¼Ñ¡¡δ⌐ óß»«¼«úáΓÑ½∞¡δ⌐ Σá⌐½ ß ¿¼Ñ¡Ñ¼ Γá¬¿¼ ªÑ ¬á¬ πßΓα«⌐ßΓó«. éß»«¼«úáΓÑ½∞¡δ⌐ Σá⌐½ π¡¿τΓ«ªáÑΓß∩ ½¿í« »α¿ »«½¡«¼ ºá¬αδΓ¿¿, ½¿í« »α¿ ¡«α¼á½∞¡«¼ «¬«¡- τá¡¿¿ »α«úαá¼¼δ. éßÑ »áαá¼ÑΓαδ »«ß½Ñ ¿¼Ñ¡¿-Σá⌐½á ¡Ñ«í∩- ºáΓÑ½∞¡δ ¿ ¼«úπΓ »«∩ó½∩Γ∞ß∩ ó ½εí«¼ »«α∩ñ¬Ñ. çá ¿ß¬½ετÑ¡¿Ñ¼ IOSTAT= ¿ RECL=, ∩ó½∩εΘ¿σß∩ ß¿¼ó«½∞¡δ¼¿ ¬«¡ßΓá¡Γá¼¿ ß ó«º¼«ª¡δ¼¿ »α«íÑ- ½á¼¿; φΓ¿ αáºñÑ½δ ñ«½ª¡δ íδΓ∞ ºá¬½ετÑ¡δ ó «ñ¿- ¡«τ¡δÑ ¬áóδτ¬¿. Γ¿» φΓ« OLD(»« π¼«½τá¡¿ε) ¿½¿ NEW. OLD - ñ½∩ τΓÑ¡¿∩ ¿½¿ ºá»¿ß¿ ó ßπΘÑßΓóπεΘ¿Ñ Σá⌐½δ. NEW - ñ½∩ ºá- »¿ß¿ ¡«óδσ Σá⌐½«ó. Γ¿»-ñ«ßΓπ»á SEQUENTIAL(»« π¼«½τá¡¿ε) ¿½¿ DIRECT Σ«α¼áΓ φΓ« FORMATTED,UNFORMATTED ¿½¿ BINARY. àß½¿ ñ«ßΓπ»-SEQUENTIAL, »« π¼«½τá¡¿ε - FORMATTED; Ñß½¿ ñ«ßΓπ»-DIRECT, »« π¼«½τá¡¿ε - UNFORMATTED. ß«ßΓ«∩¡¿Ñ µÑ½á∩ »ÑαÑ¼Ñ¡¡á∩ ¿½¿ φ½Ñ¼Ñ¡Γ µÑ½«ú« ¼áßß¿óá, ºá»«½¡∩Ñ¼δ⌐ ¬á¬: á) ¡π½∞ Ñß½¿ ¡Ñ íδ½« «Φ¿í¬¿ ¿½¿ ¬«¡µá Σá⌐½á ó) ¼áΦ¿¡¡«-ºáó¿ß¿¼á∩ µÑ½á∩ »«½«ª¿ΓÑ½∞¡á∩ óÑ½¿τ¿¡á, Ñß½¿ óßΓαÑΓ¿½áß∞ «Φ¿í¬á ß) ¼áΦ¿¡¡«-ºáó¿ß¿¼á∩ µÑ½á∩ «Γα¿µáΓÑ½∞¡á∩ óÑ½¿τ¿¡á, Ñß½¿ óßΓαÑΓ¿½ß∩ ¬«¡Ñµ Σá⌐½á ¿ ¡Ñ íδ½« «Φ¿í¬¿. ñ½¿¡á (ñ½¿¡á ºá»¿ß¿) µÑ½«Ñ óδαáªÑ¡¿Ñ, «»αÑñÑ½∩εΘÑÑ ñ½¿¡π ¬áªñ«⌐ ºá»¿ß¿ ó íá⌐Γáσ. ¥Γ«Γ »áαá¼ÑΓα »α¿¼Ñ¡¿¼ Γ«½∞¬« ñ½∩ Σá⌐½«ó ß »α∩¼δ¼ ñ«ßΓπ»«¼, ñ½∩ ¬«Γ«αδσ «¡ ¡Ñ«íσ«ñ¿¼. ß«ó¼ÑßΓ¡« φΓ« ß¿¼ó«½∞¡«Ñ óδαáªÑ¡¿Ñ, «»αÑñÑ½∩εΘÑÑ, ¬á¬ ñαπú¿Ñ »α«µÑßßδ ¼«úπΓ ¿¼ÑΓ∞ ñ«ßΓπ» ¬ Σá⌐½π, »«¬á Σá⌐½ ÑΘÑ «Γ¬αδΓ. ä«»πßΓ¿¼δÑ º¡áτÑ¡¿∩ "ß«ó¼ÑßΓ¡«" ß½ÑñπεΘ¿Ñ (íÑº πτÑΓá ó«º¼«ª¡δσ »α«íÑ½«ó): 'COMPAT' αÑª¿¼ ß«ó¼ÑßΓ¿¼«ßΓ¿ »« π¼«½τá¡¿ε ¬«úñá Σá⌐½ «Γ¬αδóáεΓ ó αÑª¿¼Ñ ß«ó¼- ÑßΓ¿¼«ßΓ¿, ¡áτá½∞¡δ⌐ USER (»α«µÑßß, «Γ¬αδóΦ¿⌐ Σá⌐½) ¼«ªÑΓ «Γ¬αδΓ∞ Σá⌐½ ó αÑª¿¼Ñ ß«ó¼ÑßΓ¿¼«ßΓ¿ ß¬«½∞¬« πú«ñ¡« αáº. ì¿¬á¬«⌐ ñαπú«⌐ USER ¡Ñ ¼«ªÑΓ «Γ¬αδΓ∞ Σá⌐½. öá⌐½, ¬«Γ«αδ⌐ íδ½ «Γ- ¬αδΓ ¡Ñ ó αÑª¿¼Ñ ß«ó¼ÑßΓ¿¼«ßΓ¿, ¡Ñ ¼«ªÑΓ íδΓ∞ «Γ¬αδΓ ó αÑª¿¼Ñ ß«ó¼Ñß- Γ¿¼«ßΓ¿. 'DENYRW' αÑª¿¼ «Γ¬áºá «Γ τΓÑ¡¿∩ ºá»¿ß¿. è«úñá Σá⌐½ «Γ¬αδΓ ó αÑª¿¼Ñ «Γ¬áºá «Γ τΓÑ¡¿∩/ºá»¿ß¿, ¡¿¬á¬«⌐ »α«µÑßß ¡Ñ ¼«ªÑΓ «Γ¬αδΓ∞ Σá⌐½. 'DENYWR' αÑª¿¼ «Γ¬áºá «Γ ºá»¿ß¿. è«úñá Σá⌐½ «Γ¬αδΓ ó αÑª¿¼Ñ «Γ¬áºá «Γ ºá»¿ß¿, ¡¿¬á¬«⌐ »α«µÑßß ¡Ñ ¼«ªÑΓ «Γ¬αδΓ∞ Σá⌐½ ñ½∩ ºá»¿ß¿. 'DENYRD' αÑª¿¼ «Γ¬áºá «Γ τΓÑ¡¿∩. è«úñá Σá⌐½ «Γ¬αδΓ ó αÑª¿¼Ñ «Γ¬áºá «Γ τΓÑ- ¡¿∩, ¡¿¬á¬«⌐ »α«µÑßß ¡Ñ ¼«ªÑΓ «Γ¬αδΓ∞ Σá⌐½ ñ½∩ τΓÑ¡¿∩. 'DENYNONE' »α«¿ºó«½∞¡δ⌐ αÑª¿¼. è«úñá Σá⌐½ «Γ¬αδΓ ó »α«¿ºó«½∞¡«¼ αÑª¿¼Ñ, ½εí«⌐ »α«µÑßß ¼«ªÑΓ «Γ¬αδΓ∞ Σá⌐½ ó ½εí«¼ αÑª¿¼Ñ (¬α«¼Ñ αÑª¿¼á ß«ó¼ÑßΓ¿¼«ßΓ¿). αÑª¿¼ φΓ« ß¿¼ó«½∞¡«Ñ óδαáªÑ¡¿Ñ, «»αÑñÑ½∩εΘÑÑ ¬á¬«⌐ ó¿ñ ñ«ßΓπ»á »«½πτáÑΓ ¡áτá½∞¡δ⌐ »α«µÑßß (»α«µÑßß, »Ñαó«¡áτá½∞¡« «Γ¬αδóΦ¿⌐ Σá⌐½). ä«»πßΓ¿¼δ¼¿ º¡áτÑ¡¿∩¼¿ αÑª¿¼á ∩ó½∩εΓß∩ (íÑº πτÑΓá ó«º¼«ª¡δσ »α«íÑ½«ó):'READ' »α«µÑßß ¼«ªÑΓ τ¿ΓáΓ∞ ¿º Σá⌐½á 'WRITE' »α«µÑßß ¼«ªÑΓ »¿ßáΓ∞ ó Σá⌐½ 'READWRITE' »α«µÑßß ¼«ªÑΓ τ¿ΓáΓ∞ ¿ »¿ßáΓ∞ ó Σá⌐½ Äß«íÑ¡¡«ßΓ¿. æ«Ññ¿¡Ñ¡¿Ñ ¡π½Ñó«ú« πßΓα«⌐ßΓóá ß Σá⌐½á¼¿ ¡¿ ¡á τΓ« ¡Ñ ñÑ⌐ßΓ- óπÑΓ: ¡π½Ñó«Ñ πßΓα«⌐ßΓó« - φΓ« »«ßΓ«∩¡¡« ß«Ññ¿¡Ñ¡¡δÑ ¬½áó¿áΓπαá ¿ φ¬αá¡. àß½¿ ¿¼∩ Σá⌐½á «»αÑñÑ½Ñ¡« »α«íÑ½á¼¿ (FILE=''), »α«úαá¼¼á »δ- ΓáÑΓß∩ »α«τ¿ΓáΓ∞ ¿¼∩ Σá⌐½á ¿º ß»¿ß¬á ¿¼Ñ¡ ó ¬«¼á¡ñ¡«⌐ ßΓα«¬Ñ, óδ- ºóáóΦÑ⌐ »α«úαá¼¼π. Åα¿ σ«α«ΦÑ⌐ αáí«ΓÑ «»ÑαáΓ«α«ó OPEN ¿º ¬«¼á¡ñ¡«⌐ ßΓα«¬¿ τ¿ΓáÑΓß∩ ¡πª¡«Ñ τ¿ß½« »áαá¼ÑΓα«ó. àß½¿ Γá¬¿σ «»ÑαáΓ«α«ó OPEN í«½∞ΦÑ τÑ¼ »áαá¼ÑΓα«ó ó ¬«¼á¡ñ¡«⌐ ßΓα«¬Ñ, »α«úαá¼¼á ß»αáΦ¿óáÑΓ éáß ¿¼Ñ¡á Σá⌐½«ó. ìá»α¿¼Ñα, Ñß½¿ ó ¬«¼á¡ñ¡«⌐ ßΓα«¬Ñ ¡ÑΓ »áαá¼ÑΓα«ó (¿½¿ «¡¿ πªÑ óßÑ »α«τ¿Γá¡δ »αÑñδñπΘ¿¼¿ «»ÑαáΓ«αá¼¿ OPEN), «»ÑαáΓ«α OPEN (10, FILE='') óδº«óÑΓ ß««íΘÑ¡¿Ñ: File name missing or blank Please enter name UNIT 10? (ê¼∩ Σá⌐½á «ΓßπΓßΓóπÑΓ ¿½¿ »πßΓ«Ñ Å«ªá½π⌐ßΓá óóÑñ¿ΓÑ ¿¼∩ ñ½∩ πßΓα«⌐ßΓóá 10?) àß½¿ éδ ¡Ñ «íÑß»Ñτ¿½¿ «»ÑαáΓ«α OPEN Σá⌐½«¼, ¿ »Ñαóá∩ «»Ñαáµ¿∩, ¿ß»«½∞ºπεΘá∩ Γá¬«⌐ Σá⌐½, - φΓ« READ ¿½¿ WRITE, Γ« »α«úαá¼¼á »δΓáÑΓß∩ «Γ¬αδΓ∞ Σá⌐½, ¬á¬ Ñß½¿ íδ «¡ íδ½ «»¿ßá¡ »πßΓδ¼ ¿¼Ñ¡Ñ¼. Åα«úαá¼¼á τ¿ΓáÑΓ ¬«¼á¡ñ¡πε ßΓα«¬π ¿½¿ óδñáÑΓ ºá»α«ß ¿¼Ñ¡¿ Σá⌐½á, «»¿ßá¡¡δ⌐ óδΦÑ. ÄΓ¼ÑΓ¿¼, τΓ« éδ Γá¬ªÑ ¼«ªÑΓÑ »¿ßáΓ∞ ¡á »α¿¡ΓÑα, «Γ¬αδóá∩ Σá⌐½ ß FILE='PRN' àß½¿ éδ «Γ¬αδ½¿ Σá⌐½, ¡Ñ π¬áºáó MODE, ß¿ßΓÑ¼á ßτÑΓá ó ö«αΓαá¡Ñ óßÑúñá íπñÑΓ »δΓáΓ∞ß∩ «Γ¬αδóáΓ∞ ß MODE «Φ¿í«τ¡«, ß¿ßΓÑ¼á ßτÑΓá »«»δΓáÑΓß∩ «Γ¬αδΓ∞ Σá⌐½ ß¡«óá, ß¡áτá½á ¿ß»«½∞ºπ∩ WRITE, á ºáΓÑ¼ READ. ÄΓ¼ÑΓ¿¼, τΓ« φΓ« ¡Ñ Γ« ªÑ ßá¼«Ñ, τΓ« »α¿ «»αÑñÑ½Ñ¡¿¿ MODE='READWRITE'. àß½¿ éδ «»αÑñÑ½¿½¿ MODE='READWRITE', á Σá⌐½ ¡Ñ ¼«ªÑΓ íδΓ∞ «Γ¬αδΓ ¡¿ »« ñ«ßΓπ»π ¡á τΓÑ¡¿Ñ ¡¿ ¡á ºá»¿ß∞, ó«º¡¿¬áÑΓ «Φ¿í¬á «Γ¬αδΓ¿∩. Å«óÑñÑ¡¿Ñ »« π¼«½τá¡¿ε (ß¡áτá½á ß READWRITE, ºáΓÑ¼ ß WRITE, á »«Γ«¼ ß READ) í«½ÑÑ ú¿í¬«Ñ. àß½¿ ñ½∩ «ñ¡«⌐ ¿º »α«úαá¼¼ óδτ¿ß½¿ΓÑ½∞¡«⌐ ßαÑñδ πßΓá¡«ó½Ñ¡« »« π¼«½τá¡¿ε READWRITE, Γ« φΓ« ¡Ñ óßÑúñá ßá¼δ⌐ ½πτΦ¿⌐ óδí«α, Ñß½¿ Σá⌐½ íπñÑΓ ¿ß»«½∞º«óáΓ∞ß∩ ß«ó¼ÑßΓ¡«. ìá»α¿¼Ñα, »αÑñ»«½«ª¿¼, τΓ« ¡Ñ¬«Γ«αδÑ »α«µÑßßδ σ«Γ∩Γ τ¿ΓáΓ∞ ¿º Σá⌐½á, ¿ τΓ«íδ »α¿ φΓ«¼ ¡¿¬á¬«⌐ »α«µÑßß ¡Ñ ¼«ú ¿º¼Ñ¡∩Γ∞ Σá⌐½ ó« óαÑ¼∩ τΓÑ¡¿∩. ÅÑαóδ⌐ »α«µÑßß ¼«ªÑΓ «Γ¬αδΓ∞ Σá⌐½ ß SHARE='DENYWR' ¿ ß MODE='READWRITE' »« π¼«½τá¡¿ε. éÑ½¿τ¿¡á SHARE íπñÑΓ »αÑ»∩ΓßΓó«óáΓ∞ ñαπú¿¼ »α«µÑßß«¼ »¿ßáΓ∞ ó Σá⌐½, á óÑ½¿τ¿¡á MODE »«ºó«½¿Γ »Ñαó«¼π »α«µÑßßπ τ¿ΓáΓ∞ ¿º Σá⌐½á. ì« ñαπ- ú¿Ñ »α«µÑßßδ ¡Ñ ¼«úπΓ «Γ¬αδΓ∞ Σá⌐½ ß SHARE='DENYWR', »«Γ«¼π τΓ« ¡áτá½∞¡δ⌐ »α«µÑßß »«½πτ¿½ ñ«ßΓπ» ¬ Σá⌐½π ß ºá»¿ß∞ε. Äñ¡á¬«, Ñß½¿ íδ »Ñαóδ⌐ »α«µÑßß «Γ¬αδ½ Σá⌐½ ß SHARE='DENYWR'¿ MODE='READ', ½εí«Ñ τ¿ß½« »α«µÑßß«ó ¼«ú½« íδ Γ«ªÑ «Γ¬αδΓ∞ Σá⌐½ ß SHARE='DENYWR' ¿ MODE='READ'. é Γáí½¿µÑ 3-5 »α¿óÑñÑ¡δ «úαá¡¿τÑ¡¿∩, ßπΘÑßΓóπεΘ¿Ñ ñ½∩ «Γ¬αδΓ¿∩ Σá⌐½á, ¬«Γ«αδ⌐ πªÑ íδ½ «Γ¬αδΓ ß ¬«¡¬αÑΓ¡δ¼¿ º¡áτÑ¡¿∩¼¿ SHARE ¿ MODE. ┌──────────────────────────┬─────────────────────────────┐ │ öá⌐½ «Γ¬αδΓ ß π¬áºá¡¡δ¼¿ │ î«ª¡« »«ß½Ññ«óáΓÑ½∞¡« «Γ¬- │ │ óÑ½¿τ¿¡á¼¿ SHARE ¿ MODE │ αδΓ∞ ß π¬áºá¡¡δ¼¿ óÑ½¿τ¿¡á- │ │ │ ¼¿ SHARE ¿ MODE │ ├──────────────────────────┼─────────────────────────────┤ │ SHARE= MODE= │ SHARE= MODE= │ │ │ │ │ COMPAT READWRITE │ COMPAT READWRITE │ │ READ │ Γ«½∞¬« READ │ │ │ ¡áτá½∞¡«ú« WRITE │ │ │ »α«µÑßßá │ └──────────────────────────┴─────────────────────────────┘ ┌──────────────────────────┬─────────────────────────────┐ │ öá⌐½ «Γ¬αδΓ ß π¬áºá¡¡δ¼¿ │ î«ª¡« »«ß½Ññ«óáΓÑ½∞¡« «Γ¬- │ │ óÑ½¿τ¿¡á¼¿ SHARE ¿ MODE │ αδΓ∞ ß π¬áºá¡¡δ¼¿ óÑ½¿τ¿¡á- │ │ │ ¼¿ SHARE ¿ MODE │ ├──────────────────────────┼─────────────────────────────┤ │ DENYRW READWRITE │ ìÑ ¼«ªÑΓ íδΓ∞ »«ß½Ññ«óá- │ │ READ │ ΓÑ½∞¡« «Γ¬αδΓ │ │ WRITE │ │ │ DENYWR READWRITE │ DENYNONE READ │ │ READ │ DENYNONE READ │ │ │ DENYWR │ │ WRITE │ DENYNONE READ │ │ │ DENYRD │ │ DENYRD READWRITE │ DENYNONE WRITE │ │ READ │ DENYNONE WRITE │ │ │ DENYWR │ │ WRITE │ DENYNONE WRITE │ │ │ DENYRD │ │ DENYNONE READWRITE │ DENYNONE READWRITE │ │ │ READ │ │ │ WRITE │ │ READ │ DENYNONE READWRITE │ │ │ DENYWR READ │ │ │ WRITE │ │ WRITE │ DENYNONE READWRITE │ │ │ DENYRD READ │ │ │ WRITE │ └──────────────────────────┴─────────────────────────────┘ Æáí½¿µá 3-5. éÑ½¿τ¿¡δ SHARE ¿ MODE. àß½¿, ¡á»α¿¼Ñα, Ñß½¿ Σá⌐½ «Γ¬αδΓ ß SHARE='DENYRD' ¿ MODE='READ', Γ« φΓ«Γ Σá⌐½ ¼«ªÑΓ íδΓ∞ Γá¬ªÑ «Γ¬αδΓ ß SHARE αáó¡δ¼ ½¿í« DENYNONE, ½¿í« DENYWR ¿ MODE αáó¡δ¼ WRITE. Åα¿¼Ñαδ: æ Åα¿ú½áΦÑ¡¿Ñ »«½∞º«óáΓÑ½ε óóÑßΓ¿ ¿¼∩ Σá⌐½á WRITE (*,'(A\)')' Outrit file name? C ÅαÑñ½áúáÑ¼, τΓ« ¿¼∩ Σá⌐½á ó ó¿ñÑ CHARACTER*64 C ùΓÑ¡¿Ñ ¿¼Ñ¡¿ Σá⌐½á ß ¬½áó¿áΓπαδ READ(*,'(A)') FNAME C ÄΓ¬α«Ñ¼ Σá⌐½ ¬á¬ Σ«α¼áΓ¡δ⌐, »«ß½Ññ«óáΓÑ½∞¡δ⌐, æ ßó∩ºá¡¡δ⌐ ß πßΓα«⌐ßΓó«¼ 7. ÄΓ¼ÑΓ¿¼, τΓ« π¬áºá¡¿Ñ æ ñ«ßΓπ»á ¡Ñ«í∩ºáΓÑ½∞¡«, Γá¬ ¬á¬ «¡« ß«ó»áñáÑΓ ß« æ º¡áτÑ¡¿Ñ¼ »« π¼«½τá¡¿ε. ö«α¼áΓ¡δ⌐ - Γ«ªÑ æ »« π¼«½τá¡¿ε. OPEN (7,FILE=FNAME,ACCESS='SEQUENTIAL' +STATUS='NEW') C ÄΓ¬αδΓ¿Ñ ßπΘÑßΓóπεΘÑú« Σá⌐½á, ß«ºñá¡¡«ú« EDITOROM C ß ¿¼Ñ¡Ñ¼ DATA3.TXT, ¬á¬ πßΓα«⌐ßΓóá 3. OPEN (3,FILE='DATA3.TXT') ▄────────────────── █ PARAMETER ▀────────────────── Åα¿ßóá¿óáÑΓ ¿¼∩ ¬«¡ßΓá¡ΓÑ. ────────────────────────────────────────────── PARAMETER ( P=e[,P=e]. . .) ────────────────────────────────────────────── âñÑ P - ¿¼∩ e - ¬«¡ßΓá¡Γá ¿½¿ ¬«¡ßΓá¡Γ«Ñ óδαáªÑ¡¿Ñ. è«¡ßΓá¡Γá ¼«ªÑΓ íδΓ∞ ½«ú¿τÑß¬«⌐, ß¿¼ó«½∞¡«⌐ ¿½¿ «Γ¡«ß¿Γ∞ß∩ ¬ ½εí«¼π áα¿Σ¼ÑΓ¿τÑß¬«¼π Γ¿»π. è«¡ßΓá¡Γ¡«Ñ óδαáªÑ¡¿Ñ ¼«ªÑΓ íδΓ∞ Γ«½∞- ¬« ½«ú¿τÑß¬¿¼ ¿½¿ µÑ½δ¼. Äß«íÑ¡¡«ßΓ¿. ê¼∩ ñ«½ª¡« ß««ΓóÑΓßΓó«óáΓ∞ »« Γ¿»π ¬«¡ßΓá¡ΓÑ ¿½¿ ¬«¡ßΓá¡Γ¡«¼π óδαáªÑ¡¿ε. àß½¿ ¿¼∩ ¡Ñ ¿¼ÑÑΓ Γ¿»á »« π¼«½τá¡¿ε, á ñ½¿¡á ¬«¡ßΓá¡Γδ - ñ½¿¡á »« π¼«½τá¡¿ε, ¿¼∩ ñ«½ª¡« íδΓ∞ «»¿ßá¡« ó «»ÑαáΓ«αÑ «»¿ßá¡¿∩ Γ¿»á ¿½¿ ó IMPLICIT ñ« ¿ß»«½∞º«óá¡¿∩ ó ΓÑ¬ßΓÑ »α«úαá¼¼δ. ê¼∩ ¼«ªÑΓ íδΓ∞ ¿ß»«½∞º«óá¡« ó óδαáªÑ¡¿∩σ Γ«½∞¬« Γ«⌐ »α«úαá¼¼- ¡«⌐ Ññ¿¡¿µδ, ó ¬«Γ«α«⌐ «¡« «»αÑñÑ½Ñ¡«. ê¼∩ ¡Ñ ¼«ªÑΓ íδΓ∞ ¿ß»«½∞º«óá¡« ó «»αÑñÑ½Ñ¡¿¿ Σ«α¼áΓá ¿ ó ¡Ñ- ¬«Γ«αδσ ñαπú¿σ ¬«¡ßΓá¡Γáσ, ¡á»α¿¼Ñα, ó ¬«¼»½Ñ¬ß¡«⌐ ¬«¡ßΓá¡ΓÑ. Åα¿¼Ñαδ: PARAMETER (NBLOCKS=10) INTEGER REMAIN PARAMETER (REMAIN=10/3, DIV=7.66) ▄────────────── █ PAUSE ▀────────────── Åα¿«ßΓá¡áó½¿óáÑΓ óδ»«½¡Ñ¡¿Ñ »α«úαá¼¼δ ñ« Γ«ú«, íπñÑΓ ¡áªáΓá ¬½áó¿Φá RETURN. ────────────────────────────────────────────────────────── PAUSE [n] ────────────────────────────────────────────────────────── âñÑ n - φΓ« ß¿¼ó«½∞¡á∩ ¬«¡ßΓá¡Γá, ½¿í« ßΓα«¬á ¿º ¡Ñ í«½ÑÑ τÑ¼ »∩Γ¿ µ¿Σα. Äß«íÑ¡¡«ßΓ¿. Ä»ÑαáΓ«α PAUSE »α¿«ßΓá¡áó½¿óáÑΓ óδ»«½¡Ñ¡¿Ñ »α«úαá¼¼δ ñ« ¬«- ¼á¡ñδ »α«ñ«½ªáΓ∞. Åáαá¼ÑΓα n, Ñß½¿ «¡ ÑßΓ∞, óδñáÑΓß∩ ¡á φ¬αá¡ ¬á¬ »α¿ú½áΦÑ¡¿Ñ, ΓαÑíπεΘÑÑ óó«ñá ß ¬½áó¿áΓπαδ. àß½¿ n ¡ÑΓ, ¡á φ¬αá¡ óδñáÑΓß∩ Γá¬«Ñ ß««íΘÑ¡¿Ñ : PAUSE. Please press <return> to continue. (ÅÇôçÇ. Å«ªá½π⌐ßΓá ñ½∩ »α«ñ«½ªÑ¡¿∩ ¡áª¼¿ΓÑ <return>). Å«ß½Ñ ¡áªáΓ¿∩ ¡á ¬½áó¿Φπ éó«ñ (ENTER) óδ»«½¡Ñ¡¿Ñ »α«úαá¼¼δ ó«º«í¡«ó¿Γß∩, ¬á¬ Ñß½¿ íδ íδ½ óδ»«½¡Ñ¡ «»ÑαáΓ«α CONTINUE. Åα¿¼Ñα : æ Åα¿¼Ñα «»ÑαáΓ«αá PAUSE IF (IMARN.EQ.0) GO TO 300 PAUSE 'WARNING : INARM IS NONZERO' 300 CONTINUE ▄──────────────── █ PROGRAM ▀──────────────── Ä»αÑñÑ½∩ÑΓ »α«úαá¼¼¡πε Ññ¿¡¿µπ ¬á¬ «ß¡«ó¡πε »α«úαá¼¼π ¿ »α¿- ßóá¿óáÑΓ Ñ⌐ ¿¼∩. ────────────────────────────────────────────────────────── PROGRAM ¿¼∩ »α«úαá¼¼δ ────────────────────────────────────────────────────────── âñÑ ¿¼∩ »α«úαá¼¼δ - φΓ« ¿¼∩, ¬«Γ«α«Ñ éδ ñá½¿ ßó«Ñ⌐ «ß¡«ó¡«⌐ »α«úαá¼¼Ñ. ê¼∩ »α«úαá¼¼δ - φΓ« ú½«íá½∞¡«Ñ ¿¼∩. Å«φΓ«¼π «¡« ¡Ñ ¼«ªÑΓ ß«ó»áñáΓ∞ ß ¿¼Ñ¡Ñ¼ ½εí«⌐ ó¡ÑΦ¡Ñ⌐ »α«µÑñπαδ ¿½¿ ¿¼Ñ¡Ñ¼ COMMON-í½«¬á.(Ä¡« Γá¬ªÑ ∩ó½∩ÑΓß∩ ½«¬á½∞- ¡δ¼ ¿¼Ñ¡Ñ¼ «ß¡«ó¡«⌐ »α«úαá¼¼δ ¿ ¡Ñ ñ«½ª¡« óßΓπ»áΓ∞ ó »α«Γ¿ó«αÑτ¿Ñ ß ½εíδ¼ ½«¬á½∞¡δ¼ ¿¼Ñ¡Ñ¼ ó «ß¡«ó¡«⌐ »α«úαá¼¼Ñ.) Ä»ÑαáΓ«α PROGRAM ¼«ªÑΓ íδΓ∞ Γ«½∞¬« »Ñαóδ¼ «»ÑαáΓ«α«¼ ó «ß¡«ó¡«⌐ »α«úαá¼¼Ñ. Äß«íÑ¡¡«ßΓ¿. àß½¿ π «ß¡«ó¡«⌐ »α«úαá¼¼δ ¡ÑΓ «»ÑαáΓ«αá PROGRAM, Ñ⌐ íπñÑΓ »α¿ßó«Ñ¡« ¿¼∩ MAIN. ê¼∩ MAIN Γ«úñá ¡Ñ½∞º∩ íπñÑΓ ¿ß»«½∞º«óáΓ∞ ñ½∩ ¿¼Ñ¡«óá¡¿∩ ½εí«ú« ñαπú«ú« «íΩÑ¬Γá. Åα¿¼Ñα : PROGRAM GAUSS REAL COEF (10,10), COST (10) . . . END ▄───────────── █ READ ▀───────────── ÅÑαÑñáÑΓ ñá¡¡δÑ ¿º Σá⌐½á, ßó∩ºá¡¡«ú« ß «»αÑñÑ½¿ΓÑ½Ñ¼ πßΓα«⌐- ßΓóá, ó «íΩÑ¬Γδ ß»¿ß¬á-óó«ñá/óδó«ñá, »α¿ πß½«ó¿¿, τΓ« ¡ÑΓ ¬«¡µá Σá⌐½á ¿½¿ «Φ¿í¬¿. ────────────────────────────────────────────────────────── READ («»αÑñÑ½¿ΓÑ½∞ πßΓα«⌐ßΓóá [,«»αÑñÑ½¿ΓÑ½∞ Σ«α¼áΓá] [,IOSTAT=ß«ßΓ«∩¡¿Ñ] [,REC=¡«¼Ñα ºá»¿ß¿] [,END=¼ÑΓ¬á1] [,ERR=¼ÑΓ¬á2]) ß»¿ß«¬-óó«ñá/óδó«ñá ────────────────────────────────────────────────────────── âñÑ «»αÑñÑ½¿ΓÑ½∞- πßΓα«⌐ßΓóá- φΓ« «»αÑñÑ½¿ΓÑ½∞ ΓαÑíπÑ¼«ú« πßΓα«⌐ßΓóá, ¬«Γ«αδ⌐ ñ«½ªÑ¡ íδΓ∞ »Ñαóδ¼ »áαá¼ÑΓα«¼. «»αÑñÑ½¿ΓÑ½∞- Σ«α¼áΓá- ΓαÑíπÑΓß∩ ñ½∩ Σ«α¼á½∞¡«ú« τΓÑ¡¿∩ ¬á¬ óΓ«α«⌐ »áαá¼ÑΓα. ìÑ ñ«½ªÑ¡ »«∩ó½∩Γ∞ß∩ ñ½∩ ¡ÑΣ«α¼áΓ¡«ú« τΓÑ¡¿∩. ÄßΓá½∞¡δÑ »áαá¼ÑΓαδ Ñß½¿ «¡¿ ÑßΓ∞, ¼«úπΓ »«∩ó½∩Γ∞ß∩ ó ½εí«¼ »«α∩ñ¬Ñ. ß«ßΓ«∩¡¿Ñ- φΓ« µÑ½á∩ »ÑαÑ¼Ñ¡¡á∩ ¿½¿ φ½Ñ¼Ñ¡Γ µÑ½«ú« ¼áßß¿óá, ¬«Γ«α«¼π »α¿ßóá¿óáÑΓß∩ : á) ¡π½∞, Ñß½¿ óßΓαÑΓ¿½áß∞ «Φ¿í¬á ¿½¿ ¬«¡Ñµ Σá⌐½á; b) ¼áΦ¿¡¡«-ºáó¿ß¿¼á∩ »«½«ª¿ΓÑ½∞¡á∩ µÑ½á∩ óÑ½¿τ¿¡á, Ñß½¿ óßΓαÑΓ¿½áß∞ «Φ¿í¬á ; ß) ¼áΦ¿¡¡«-ºáó¿ß¿¼á∩ «Γα¿µáΓÑ½∞¡á∩ µÑ½á∩ óÑ½¿τ¿¡á, Ñß½¿ óßΓαÑΓ¿Γß∩ ¬«¡Ñµ Σá⌐½á ¿ ¡Ñ íδ½« «Φ¿í¬¿. ¡«¼Ñα ºá»¿ß¿ - «»αÑñÑ½Ñ¡ Γ«½∞¬« ñ½∩ Σá⌐½«ó »α∩¼«ú« ñ«ßΓπ»á Ñß½¿ ¡«¼Ñα ºá»¿ß¿ «»αÑñÑ½Ñ¡ ñ½∩ Σá⌐½á ¡Ñ Γ¿»á »α∩¼«ú« ñ«ßΓπ»á ó«º¡¿¬¡ÑΓ «Φ¿í¬á. ì«¼Ñα-ºá»¿ß¿ - φΓ« »«½«ª¿ΓÑ½∞¡«Ñ µÑ½«Ñ óδαáªÑ¡¿Ñ «»αÑñÑ½∩εΘÑÑ »«½«ªÑ¡¿Ñ ºá»¿ß¿ (»Ñαóá∩ ºá»¿ß∞ ó Σá⌐½Ñ ¿¼ÑÑΓ ¡«¼Ñα αáó¡δ⌐ 1) »ÑαÑñ ¡áτá½«¼ »ÑαÑñáτ¿ ñá¡¡δσ. àß½¿ ñ½∩ Σá⌐½á »α∩¼«ú« ñ«ßΓπ»á φΓ«ú« »áαá¼ÑΓαá ¡ÑΓ, τΓÑ¡¿Ñ »α«ñ«½ª¿Γß∩ »«ß½Ññ«óáΓÑ½∞¡« «Γ »«º¿µ¿¿ ó Σá⌐½Ñ. ¼ÑΓ¬á 1- φΓ« ¡Ñ«í∩ºáΓá½∞¡á∩ ¼ÑΓ¬á «»ÑαáΓ«αá ó Γ«⌐ ªÑ ßá- ¼«⌐ »α«úαá¼¼¡«⌐ Ññ¿¡¿µÑ, τΓ« ¿ «»ÑαáΓ«α READ. àß½¿ φΓ«Γ »áαá¼ÑΓα «ΓßπΓßΓóπÑΓ, τΓÑ¡¿Ñ ñ«ΦÑñΦÑÑ ñ« ¬«¡µá Σá⌐½á »«α«ªñáÑΓ «Φ¿í¬π ßτÑΓá. àß½¿ «¡ ÑßΓ∞, óßΓαÑ- Γ¿óΦÑÑß∩ πß½«ó¿Ñ ¬«¡µá Σá⌐½á »ÑαÑñáÑΓ π»αáó½Ñ¡¿Ñ ¡á π¬áºá¡¡δ⌐ óδ»«½¡∩Ñ¼δ⌐ «»ÑαáΓ«α. ¼ÑΓ¬á 2 - ¡Ñ«í∩ºáΓÑ½∞¡á∩ ¼ÑΓ¬á «»ÑαáΓ«αá ó Γ«⌐ ªÑ ßá¼«⌐ »α«úαá¼¼¡«⌐ Ññ¿¡¿µÑ, τΓ« ¿ «»ÑαáΓ«α READ. àß½¿ φΓ«Γ »áαá¼ÑΓα «ΓßπΓßΓóπÑΓ, «Φ¿í¬á óó«ñá/óδó«ñá »«α«ªñáÑΓ «Φ¿í¬π ßτÑΓá. àß½¿ «¡ ÑßΓ∞, «Φ¿í¬á óó«- ñá/óδó«ñá »ÑαÑñáÑΓ π»αáó½Ñ¡¿Ñ ¡á π¬áºá¡¡δ⌐ óδ»«½- ¡∩Ñ¼δ⌐ «»ÑαáΓ«α. æ»¿ß«¬-óó«ñá-óδó«ñá- «»αÑñÑ½∩ÑΓ «íΩÑ¬Γδ, ó ¬«Γ«αδÑ »ÑαÑñáεΓß∩ óÑ½¿τ¿¡δ ¿º Σá⌐½á. Ä¡ ¼«ªÑΓ íδΓ∞ »πßΓδ¼, ¡« «íδτ¡« ß«ñÑαª¿Γ «íΩÑ¬Γδ ñ½∩ óó«ñá ¿ ¡Ñ∩ó¡δÑ µ¿¬½δ, αáºñÑ½Ñ¡¡δÑ ºá»∩Γδ¼¿. Äß«íÑ¡¡«ßΓ¿. àß½¿ τΓÑ¡¿Ñ ó¡πΓαÑ¡¡ÑÑ, ¿ßΓ«τ¡¿¬«¼ óó«ñá ß½πª¿Γ ß¿¼ó«½∞¡á∩ »ÑαÑ¼Ñ¡¡á∩ ¿½¿ ¼áßß¿ó ß¿¼ó«½∞¡δσ φ½Ñ¼Ñ¡Γ«ó; Ñß½¿ τΓÑ¡¿Ñ ¡Ñ ó¡πΓ- αÑ¡¡ÑÑ, ¿ßΓ«τ¡¿¬«¼ óó«ñá ∩ó½∩ÑΓß∩ ó¡ÑΦ¡ÑÑ πßΓα«⌐ßΓó«. ä½∩ í«½ÑÑ »«ñ«í¡«⌐ ¿¡Σ«α¼áµ¿¿ «í «»αÑñÑ½Ñ¡¿¿ ó¡ÑΦ¡¿σ πßΓα«⌐ßΓó ¿ ñαπú¿σ φ½Ñ- ¼Ñ¡Γ«ó «»ÑαáΓ«α«ó óó«ñá/óδó«ñá ß¼«Γα¿ΓÑ τáßΓ∞ 4. àß½¿ Σá⌐½ ¡Ñ íδ½ «Γ¬αδΓ «»ÑαáΓ«α«¼ OPEN, óδ»«½¡∩ÑΓß∩ «»Ñαáµ¿∩ OPEN »« π¼«½τá¡¿ε. ¥Γá «»Ñαáµ¿∩ φ¬ó¿óá½Ñ¡Γ¡á óδ»«½¡Ñ¡¿ε ß½ÑñπεΘÑú« «»ÑαáΓ«αá : OPEN («»ÑαáΓ«α πßΓα«⌐ßΓóá, FILE=", STATUS='OLD', ACCESS='SEQUENTIAL',FORM='Σ«α¼áΓ' ö«α¼áΓ - φΓ« FORMATTED ñ½∩ Σ«α¼áΓ¡«ú« READ ¿ UNFORMATTED ñ½∩ ¡Ñ Σ«α¼áΓ¡«ú« READ. æ¼«Γα¿ΓÑ «»¿ßá¡¿Ñ «»ÑαáΓ«αá OPEN ñ½∩ »«¡¿¼á¡¿∩ ñÑ⌐ßΓó¿∩ »áαá¼ÑΓαá FILE=. Åα¿¼Ñα: æ Ä»¿ßá¡¿Ñ ñóπσ¼Ñα¡«ú« ¼áßß¿óá DIMENSION IA(10,20) æ ùΓÑ¡¿Ñ ó úαá¡¿µδ ¼áßß¿óá. ¥Γ¿ úαá¡¿µδ ¡Ñ »αÑóδΦáεΓ æ 10 ¿ 20 ß««ΓóÑΓßΓóÑ¡¡«. çáΓÑ¼ τΓÑ¡¿Ñ ó ¼áßß¿ó ¡Ñ∩ó¡δ¼ æ µ¿¬½«¼ DO ß óó«ñ¡δ¼ Σ«α¼áΓ«¼ 8 ¬«½«¡«¬ »« 5 µ¿Σα. READ (3,990) IL, JL, ((IA(I,J), J=1, JL), I=1, IL) 990 FORMAT (215/,(8I5)) ▄─────────────── █ RETURN ▀─────────────── é«ºóαáΘáÑΓ π»αáó½Ñ¡¿Ñ ó óδºδóáÑ¼πε »α«úαá¼¼¡πε Ññ¿¡¿µπ. ────────────────────────────────────────────────────────── RETURN ────────────────────────────────────────────────────────── RETURN ¼«ªÑΓ »«∩ó½∩Γ∞ß∩ Γ«½∞¬« ó Σπ¡¬µ¿¿ ¿½¿ »«ñ»α«úαá¼¼Ñ. Äß«íÑ¡¡«ßΓ¿. éδ»«½¡Ñ¡¿Ñ «»ÑαáΓ«αá RETURN ºá¬á¡τ¿óáÑΓ óδ»«½¡Ñ¡¿Ñ óßÑ⌐ »«ñ- »α«úαá¼¼δ ¿½¿ Σπ¡¬µ¿¿. àß½¿ «»ÑαáΓ«α RETURN ¡áσ«ñ¿Γß∩ ó Σπ¡¬µ¿¿, óÑ½¿τ¿¡Ñ Σπ¡¬µ¿¿ »α¿ßóá¿óáÑΓß∩ ΓÑ¬πΘÑÑ º¡áτÑ¡¿Ñ »ÑαÑ¼Ñ¡¡«⌐ ß ΓÑ¼ ªÑ ¿¼Ñ¡Ñ¼, τΓ« ¿ Σπ¡¬µ¿∩. éδ»«½¡Ñ¡¿Ñ «»ÑαáΓ«αá END ó Σπ¡¬µ¿¿ ¿½¿ »«ñ»α«úαá¼¼Ñ φ¬ó¿óá- ½Ñ¡Γ¡« óδ»«½¡Ñ¡¿ε «»ÑαáΓ«αá RETURN. Å«φΓ«¼π ñ½∩ «¬«¡τá¡¿∩ Σπ¡¬µ¿¿ ¿½¿ »«ñ»α«úαá¼¼δ ΓαÑíπÑΓß∩ ¿½¿ RETURN ¿½¿ END,¡« ¡Ñ «íá: Åα¿¼Ñα æ Åα¿¼Ñα «»ÑαáΓ«αá RETURN æ ¥Γá »«ñ»α«úαá¼¼á óδ»«½¡∩ÑΓ µ¿¬½ æ »«¬á óδ ¡Ñ ¡áíÑαÑΓÑ "Y" SUBROUTINE LOOP CHARACTER IN C 10 READ (*,'(A1)') IN IF (IN.EG.'Y') RETURN GO TO C ìÑ∩ó¡δ⌐ RETURN END ▄─────────────── █ REWIND ▀─────────────── é«ºóαáΘáÑΓ ó ¡áτá½∞¡πε Γ«τ¬π Σá⌐½, ßó∩ºá¡¡δ⌐ ß «»αÑñÑ½Ñ¡¡δ¼ πßΓα«⌐ßΓó«¼. ─────────────────────────────────────────────────── REWIND «»αÑñÑ½¿ΓÑ½∞ πßΓα«⌐ßΓóá ─────────────────────────────────────────────────── âñÑ «»αÑñÑ½¿ΓÑ½∞-πßΓα«⌐ßΓóá - φΓ« ºáñá¡¡δ⌐ «»αÑñÑ½¿ΓÑ½∞ ó¡ÑΦ¡Ñú« πßΓα«⌐ßΓóá. ä½∩ í«½ÑÑ »«ñα«í¡«⌐ ¿¡Σ«α¼áµ¿¿ «í «»αÑñÑ½¿ΓÑ½∩σ πßΓα«⌐ßΓó ¿ ñαπú¿σ φ½Ñ¼Ñ¡Γáσ «»ÑαáΓ«α«ó óó«ñá/óδ- ó«ñá ß¼«Γα¿ΓÑ τáßΓ∞ 4 "æ¿ßΓÑ¼á óó«ñá/óδó«ñá". Åα¿¼Ñα INTEGER A(80) . WRITE (7,'(80I1)')A . . REWIND . READ (7,'(80I1)')A ▄──────────── █ SAVE ▀──────────── çáßΓáó½∩ÑΓ »ÑαÑ¼Ñ¡¡δÑ ºá»«¼¿¡áΓ∞ ¿σ º¡áτÑ¡¿∩ »α¿ óδº«óáσ »α«µÑñπα, ó ¬«Γ«αδσ «¡¿ «»αÑñÑ½Ñ¡δ. ────────────────────────────────────────────────────────── SAVE ¿¼∩1 [,¿¼∩]... ────────────────────────────────────────────────────────── âñÑ ¿¼∩ - φΓ« ¿¼∩ COMMON-í½«¬á (ºá¬½ετÑ¡¡«Ñ ó ¬«ßδÑ τÑα- Γ«τ¬¿), »ÑαÑ¼Ñ¡¡«⌐ ¿½¿ ¼áßß¿óá. Å«ß½Ñ ºá»«½¡Ñ¡¿∩, Ñß½¿ ó ΓÑ¬πΘπε »α«µÑñπαπ ÑΘÑ αáº ó«⌐Γ¿, Γ« ¡áºóá¡- ¡δÑ »ÑαÑ¼Ñ¡¡δÑ ¿ óßÑ »ÑαÑ¼Ñ¡¡δÑ ó ¡áºóá¡¡«¼ COMMON- í½«¬Ñ ß«ñÑαª¿Γ «»αÑñÑ½Ñ¡¡δÑ óÑ½¿τ¿¡δ. Åα¿¼Ñα æ Åα¿¼Ñα «»ÑαáΓ«αá SAVE SAVE /MYCOM/, MYVAR ▄───────────────────────── █ öπ¡¬µ¿∩-«»ÑαáΓ«α ▀───────────────────────── Ä»αÑñÑ½∩ÑΓ Σπ¡¬µ¿ε ó ó¿ñÑ «ñ¡«ú« «»ÑαáΓ«αá. ────────────────────────────────────────────────────────── ¿¼∩-Σπ¡¬µ¿¿ ([»áαá¼ÑΓα[,»áαá¼ÑΓα]...])=óδαáªÑ¡¿Ñ ────────────────────────────────────────────────────────── âñÑ ¿¼∩-Σπ¡¬µ¿¿ »áαá¼ÑΓα óδαáªÑ¡¿Ñ - φΓ« ¿¼∩ Σπ¡¬µ¿¿-«»ÑαáΓ«αá - φΓ« ¿¼∩ Σ«α¼á½∞¡«ú« »áαá¼ÑΓαá - φΓ« ½εí«Ñ óδαáªÑ¡¿Ñ Äß«íÑ¡¡«ßΓ¿. öπ¡¬µ¿∩ «»ÑαáΓ«α »«ñ«í¡á »« ó¿ñπ «»ÑαáΓ«απ »α¿ßóá¿óá¡¿∩. öπ¡- ¬µ¿∩-«»ÑαáΓ«α ¼«ªÑΓ ßΓ«∩Γ∞ Γ«½∞¬« »«ß½Ñ «»ÑαáΓ«α«ó «»αÑñÑ½Ñ¡¿∩ Γ¿»á ¿ »ÑαÑñ ½εíδ¼¿ ¿ß»«½¡∩Ñ¼δδ¼¿ «»ÑαáΓ«αá¼¿ ó »α«úαá¼¡«⌐ ÑñÑ¡¿µÑ, ó ¬«Γ«α«⌐ «¡á ¿ß»«½∞ºπÑΓß∩. öπ¡¬µ¿∩-«»ÑαáΓ«α - φΓ« ¡Ñóδ»«½¡∩Ñ¼δ⌐ «»ÑαáΓ«α, σ«Γ∩ «¡á ¿ ∩ó½∩ÑΓß∩ »Ñαóδ¼ «»ÑαáΓ«α«¼ ó »α«úαá¼¼¡«⌐ Ññ¿¡¿µÑ. Äñ¡á¬«, ΓÑ½« Σπ¡¬µ¿¿-«»ÑαáΓ«αá ß½πª¿Γ ñ½∩ «»αÑñÑ½Ñ¡¿∩ º¡áτÑ¡¿∩ Σπ¡¬µ¿¿-«»Ñαá- Γ«αá. èá¬ ¿ ñαπú¿Ñ ½εíδÑ Σπ¡¬µ¿¿ Σπ¡¬µ¿∩-«»ÑαáΓ«α óδτ¿ß½∩ÑΓß∩ »« ßßδ½¬Ñ ó óδαáªÑ¡¿¿. Æ¿» óδαáªÑ¡¿∩ ñ«½ªÑ¡ íδΓ∞ ß«ó¼ÑßΓ¿¼ ß Γ¿»«¼ ¿¼Ñ¡¿ Σπ¡¬µ¿¿- «»ÑαáΓ«αá. æ»¿ß«¬ ¿¼Ñ¡¿ Σ«α¼á½∞¡δσ »áαá¼ÑΓα«ó ß½πª¿Γ ñ½∩ «»αÑñÑ½Ñ¡¿∩ τ¿ß½á ¿ Γ¿»á »áαá¼ÑΓα«ó Σπ¡¬µ¿¿-«»ÑαáΓ«αá. Äí½áßΓ∞ε ñÑ⌐ßΓó¿∩ ¿¼Ñ¡ Σáα¼á½∞¡δσ »áαá¼ÑΓα«ó ∩ó½∩ÑΓß∩ ßá¼á Σπ¡¬µ¿∩ «»ÑαáΓ«α. Å«φΓ«¼π ¿¼Ñ¡á Σ«α¼á½∞¡δσ »áαá¼ÑΓα«ó ¼«úπΓ íδΓ∞ »ÑαÑ«»αÑñÑ½Ñ¡δ ¬á¬ ñαπú¿Ñ ¿¼Ñ¡á »«½∞º«óáΓÑ½∩ ó «ßΓáóΦÑ⌐ß∩ τáßΓ¿ »α«úαá¼¼¡«⌐ Ññ¿¡¿µ¿, ºá ¿ß¬½ετÑ¡¿Ñ¼ «»αÑñÑ½¿ΓÑ½∩ Σπ¡¬µ¿¿-«»ÑαáΓ«αá. ê¼∩ Σπ¡¬µ¿¿-«»ÑαáΓ«αá, «ñ¡á¬«, ½«¬á½∞¡«, »« «Γ¡«ΦÑ¡¿ε ¬ »α«úαá¼¼¡«⌐ Ññ¿¡¿µÑ; «¡« ¡Ñ ñ«½ª¡« íδΓ∞ ¿ß»«½∞º«óá¡« úñÑ ½¿í« ÑΘÑ, ¬α«¼Ñ ¿¼Ñ¡¿ COMMON-í½«¬á ¿½¿ ¿¼Ñ¡¿ Σ«α¼á½∞¡«ú« »áαá¼ÑΓαá ó ñαπú«⌐ Σπ¡¬µ¿¿-«»ÑαáΓ«αÑ. é»«ß½Ññ¡Ñ¼ ß½πτáÑ Γ¿» Γá¬«ú« ¿ß»«½∞º«óá¡¿∩ ñ«½ªÑ¡ íδΓ∞ «ñ¿¡á¬«óδ¼. àß½¿ ¿¼∩ Σ«α¼á½∞¡«ú« »áαá¼ÑΓαá ß«ó»áñáÑΓ ß ½εíδ¼ ñαπú¿¼ ½«- ¬á½∞¡δ¼ ¿¼Ñ¡Ñ¼, Γ« ß½ÑñπÑΓ ¿¼ÑΓ∞ ó ó¿ñπ, τΓ« ßßδ½¬á ¡á φΓ« óαÑ¼∩ ó Σπ¡¬µ¿¿-«»ÑαáΓ«αÑ «»αÑñÑ½∩ÑΓ Ñú« ¬á¬ Σ«α¼á½∞¡δ⌐ »áαá¼ÑΓα ¿ ¡¿ ó ¬á¬«¼ ñαπú«¼ ß¼δß½Ñ. é óδαáªÑ¡¿¿ ñ«»πßΓ¿¼δ ßßδ½¬¿ ¡á »ÑαÑ¼Ñ¡¡δÑ, Σ«α¼á½∞¡δÑ »áαá¼ÑΓαδ, ñαπú¿Ñ Σπ¡¬µ¿¿, φ½Ñ¼Ñ¡Γδ ¼áßß¿ó«ó ¿ ¬«¡ßΓá¡Γδ. æßδ½¬¿ ¡á Σπ¡¬µ¿¿-«»ÑαáΓ«αδ, «ñ¡á¬«, ñ«½ª¡δ «Γ¡«ß¿Γß∩ ¬ Σπ¡¬µ¿∩¼, «»¿ßá¡¡δ¼ ñ« Γ«ú«, ¬á¬ «¡¿ π»«ΓαÑí½Ñ¡δ ºñÑß∞. ìá Σπ¡¬µ¿ε-«»ÑαáΓ«α ¡Ñ ¼«ªÑΓ íδΓ∞ óδºóá¡á αÑ¬παß¿ó¡«, ¬á¬ »α∩¼« Γá¬ ¿ ¬«ßóÑ¡¡«. ìá Σπ¡¬µ¿ε-«»ÑαáΓ«α ¼«ª¡« ßßδ½áΓ∞ß∩ Γ«½∞¬« ó Γ«⌐ »α«úαá¼¼¡«⌐ Ññ¿¡¿µÑ, úñÑ «¡á «»¿ßá¡á. ê¼∩ Σπ¡¬µ¿¿-«»ÑαáΓ«αá ¡Ñ ñ«½ª¡« »«∩ó½∩Γ∞- ß∩ ¡¿ ó ¬á¬¿σ «»¿ßδóáεΘ¿σ «»ÑαáΓ«αáσ, ºá ¿ß¬½ετÑ¡¿Ñ¼ «»¿ßá¡¿∩ Γ¿»á (¬«Γ«αδÑ ¡Ñ ¼«úπΓ «»¿ßδóáΓ∞ φΓ« ¿¼∩, ¬á¬ ¼áßß¿ó) ¿ «»ÑαáΓ«αá COMMON (¬á¬ ¿¼∩ COMMON-í½«¬á). öπ¡¬µ¿∩-«»ÑαáΓ«α ¡Ñ ¼«ªÑΓ íδΓ∞ Γ¿»á CHARACTER. Åα¿¼Ñα æ Åα¿¼Ñα «»ÑαáΓ«αá Σπ¡¬µ¿∩-«»ÑαáΓ«α DIMENSION X(10) ADD(A,B)=A+B C DO 1 I=1,10 X(I)=ADD(Y,Z) 1 CONTINUE ▄───────────── █ STOP ▀───────────── Ä¬á¡τ¿óáÑΓ »α«úαá¼¼π. ────────────────────────────────────────────────────────── STOP [n] ────────────────────────────────────────────────────────── âñÑ n - φΓ« ½¿í« ß¿¼ó«½∞¡á∩ ¬«¡ßΓá¡Γá, ½¿í« ßΓα«¬á ¿º ¡Ñ í«½ÑÑ τÑ¼ »∩Γ¿ µ¿Σα. Äß«íÑ¡¡«ßΓ¿. Åáαá¼ÑΓα n, Ñß½¿ «¡ ÑßΓ∞, óδßóÑτ¿óáÑΓß∩ ¡á φ¬αá¡, ¬«úñá »α«- úαá¼¼á «¬á¡τ¿óáÑΓß∩. àß½¿ n ¡ÑΓ, óδßóÑτ¿óáÑΓß∩ Γá¬«Ñ ß««íΘÑ¡¿Ñ: STOP - Program terminated (STOP - Åα«úαá¼¼á «¬«¡τÑ¡á) Åα¿¼Ñα æ Åα¿¼Ñα «»ÑαáΓ«αá STOP IF (IERROR.TQ.0) GO TO 200 STOP 'Ä»αÑñÑ½Ñ¡á «Φ¿í¬á' 200 CONTINUE ▄──────────────────── █ SUBROUTINE ▀──────────────────── Ä»αÑñÑ½∩ÑΓ »α«úαá¼¼¡πε Ññ¿¡¿µπ ¬á¬ »α«úαá¼¼π, »α¿ßóá¿óáÑΓ Ñ⌐ ¿¼∩ ¿ «»αÑñÑ½∩ÑΓ Σ«α¼á½∞¡δÑ »áαá¼ÑΓαδ ñ½∩ φΓ«⌐ »«ñ»α«úαá¼¼δ. ¥Γ¿ »áαá¼ÑΓαδ ¼«úπΓ ß«ñÑαªáΓ∞ »ÑαÑ¼Ñ¡¡πε ¼ÑΓ¬π ó«ºóαáΓá (*). ────────────────────────────────────────────────────────── SUBROUTINE ¿¼∩ »«ñ»α«úαá¼¼δ [([Σ«α¼-»áα[,Σ«α¼-»áα]...])] ────────────────────────────────────────────────────────── âñÑ ¿¼∩-»«ñ»α«úαá¼¼δ - φΓ« «»αÑñÑ½∩Ñ¼«Ñ »«½∞º«óáΓÑ½Ñ¼ ú½«íá½∞¡«Ñ ó¡ÑΦ¡ÑÑ ¿¼∩ »«ñ»α«úαá¼¼δ. Σ«α¼-»áα- φΓ« «»αÑñÑ½∩Ñ¼«Ñ »«½∞º«óáΓÑ½Ñ¼ ¿¼∩ Σ«α¼á½∞¡«ú« »áαá¼ÑΓαá, ¡áºδóáÑ¼«ú« Γá¬ªÑ Σ¿¬Γ¿ó¡δ¼ »áαá¼ÑΓα«¼. ö«α¼á½∞¡δ⌐ »áαá¼ÑΓα ¼«ªÑΓ íδΓ∞ »ÑαÑ¼Ñ¡¡«⌐ ¼ÑΓ¬«⌐ ó«ºóαáΓá (*). Äß«íÑ¡¡«ßΓ¿. Å«ñ»α«úαá¼¼á ¡áτ¿¡áÑΓß∩ ß «»ÑαáΓ«αá SUBROUTINE ¿ ºá¬á¡τ¿óáÑΓß∩ ß½ÑñπεΘ¿¼ ºá ¡¿¼ «»ÑαáΓ«α«¼ END. Ä¡á ¼«ªÑΓ ó¬½ετáΓ∞ ó ßÑí∩ ½εíδÑ «»ÑαáΓ«αδ ¬α«¼Ñ PROGRAM, SUBROUTINE, BLOæK DATA ¿ FUNCTION. æ»¿ß«¬ ¿¼Ñ¡ »áαá¼ÑΓα«ó «»αÑñÑ½∩ÑΓ τ¿ß½« ¿ ó¼ÑßΓÑ ß »«ß- ½ÑñπεΘ¿¼¿ «»ÑαáΓ«αá¼¿ «»αÑñÑ½Ñ¡¿∩ Γ¿»á, IMPLICIT, EXTERNÇL ¿½¿ DIMENSION - Γ¿» »áαá¼ÑΓα«ó φΓ«⌐ »«ñ»α«úαá¼¼δ. ê¼Ñ¡á »áαá¼ÑΓα«ó ¡Ñ ¼«úπΓ »«∩ó½∩Γ∞ß∩ ó «»ÑαáΓ«αáσ COMMON, DATA, EQVIVALENCE ¿½¿ INTRINSIC. öá¬Γ¿τÑß¬¿Ñ »áαá¼ÑΓαδ ó «»ÑαáΓ«αÑ CALL, óδºδóáεΘÑ¼ »«ñ»α«ú- αá¼¼π, ñ«½ª¡δ ß««ΓóÑΓßΓó«óáΓ∞ Σ«α¼á½∞¡δ¼ »áαá¼ÑΓαá¼ ó «»ÑαáΓ«αÑ SUBROUTINE »« »«α∩ñ¬π ß½Ññ«óá¡¿∩, τ¿ß½π, Γ¿»π ¿½¿ ó¿ñπ. è«¼»¿½∩Γ«α íπñÑΓ »α«óÑα∩Γ∞ ¿σ ¡á ß««ΓóÑΓßΓó¿Ñ, Ñß½¿ ¿ºóÑßΓ¡δ Σ«α¼á½∞¡δÑ »áαá¼ÑΓαδ. ä«½ª¡« íδΓ∞ »«¡∩Γ¡«, τΓ« «»ÑαáΓ«α SUBROUTINE, «»αÑñÑ½∩εΘ¿⌐ Σ«α¼á½∞¡δÑ »áαá¼ÑΓαδ, ñ«½ªÑ¡ »αÑñΦÑßΓó«óáΓ∞ «»ÑαáΓ«απ CALL ó ΓÑ¬πΘÑ⌐ ¬«¼»¿½∩µ¿¿. Åαáó¿½á ß««ΓóÑΓßΓó¿∩ Σ«α¼á½∞¡δσ ¿ Σá¬Γ¿τÑß¬¿σ »áαá¼ÑΓα«ó »α¿- óÑñÑ¡δ «»¿ßá¡¿¿ «»ÑαáΓ«αá CALL. Åα¿¼Ñα SUBROUTINE GETNUM (NUM, UNIT) INTEGER NUM, UNIT 10 READ (UNIT, '(I10)', ERR=10) NUM RETURN END ▄──────────── █ Æ¿» ▀──────────── Ä»αÑñÑ½∩ÑΓ Γ¿» ¿¼Ñ¡, ¿ß»«½∞ºπÑ¼δσ »«½∞º«óáΓÑ½Ñ¼. ────────────────────────────────────────────────────────── Æ¿» ¿¼∩-»Ñα1 [,¿¼∩-»Ñα2]... ────────────────────────────────────────────────────────── âñÑ Γ¿» - φΓ« «ñ¿¡ ¿º ß½ÑñπεΘ¿σ «»αÑñÑ½¿ΓÑ½Ñ⌐ Γ¿»á ñá¡¡δσ. INTEGER, INTEGER*2, INTEGER*4, REAL, REAL*4, REAL*8, DOUBLE PRECISION, COMPLEX, COMPLEX*8, COMPLEX*16, LOGICAL, LOGICAL*2, LOGICAL*4, CHARACTER, CHARACTER*n ¿¼∩-»Ñα - φΓ« ß¿¼ó«½∞¡«Ñ ¿¼∩ »ÑαÑ¼Ñ¡¡«⌐, ¼áßß¿óá, ¿½¿ Σπ¡- ¬µ¿¿-«»ÑαáΓ«αá, ¿½¿ »«ñ»α«úαá¼¼δ-Σπ¡¬µ¿¿,¿½¿ «»Ñαá- Γ«αá «íΩ∩ó½Ñ¡¿∩ ¼áßß¿óá. n (ó CHARACTER*n) φΓ« µÑ½«Ñ ó ñ¿á»áº«¡Ñ «Γ 1 ñ« 127. Äß«íÑ¡¡«ßΓ¿. Ä»ÑαáΓ«α «»αÑñÑ½Ñ¡¿∩ Γ¿»á ¼«ªÑΓ »«ñΓóÑαªñáΓ∞ ¿½¿ «ΓóÑαúáΓ∞ ¡Ñ∩ó¡δ⌐ Γ¿» ¿¼Ñ¡¿. Ä»ÑαáΓ«α «»αÑñÑ½Ñ¡¿∩ Γ¿»á ¼«ªÑΓ Γá¬ªÑ «»αÑñÑ½¿Γ∞ αáº¼Ñα. Å«½∞º«óáΓÑ½∞ß¬«Ñ ¿¼∩ »ÑαÑ¼Ñ¡¡«⌐, ¼áßß¿óá, ó¡ÑΦ¡Ñ⌐ Σπ¡¬µ¿¿ ¿½¿ Σπ¡¬µ¿¿-«»ÑαáΓ«αá ¼«ªÑΓ π»«¼¿¡áΓ∞ß∩ ó «»ÑαáΓ«αÑ «»αÑñÑ½Ñ¡¿∩ Γ¿»á. é φΓ«¼ ß½πτáÑ Γ¿» φΓ«ú« ¿¼Ñ¡¿ «»αÑñÑ½Ñ¡ ó« óßÑ⌐ »α«úαá¼¼¡«⌐ Ññ¿¡¿µÑ. é »α«úαá¼¼¡«⌐ Ññ¿¡¿µÑ «»ÑαáΓ«α «»αÑñÑ½Ñ¡¿∩ Γ¿»á «ñ¡«º¡áτ¡« «»αÑñÑ½∩ÑΓ Γ¿» ¿¼Ñ¡¿. Ä»ÑαáΓ«α «»αÑñÑ½Ñ¡¿∩ Γ¿»á ¼«ªÑΓ Γá¬ªÑ »«ñΓóÑαñ¿Γ∞ Γ¿» óßΓα«- Ñ¡¡«⌐ Σπ¡¬µ¿¿, ¡« φΓ« ¡Ñ «í∩ºáΓÑ½∞¡«. é «»ÑαáΓ«αÑ «»αÑñÑ½Ñ¡¿∩ Γ¿»á ¡Ñ ¼«ªÑΓ óßΓαÑΓ¿Γß∩ ¿¼∩ »«ñ»α«úαá¼¼δ ¿½¿ «ß¡«ó¡«⌐ »α«úαá¼¼δ. è «»ÑαáΓ«απ «»αÑñÑ½Ñ¡¿∩ Γ¿»á »α¿¼Ñ¡¿¼δ ß½ÑñπεΘ¿Ñ »αáó¿½á: 1. Ä»ÑαáΓ«α «»αÑñÑ½Ñ¡¿∩ Γ¿»á ñ«½ªÑ¡ »αÑñΦÑßΓó«óáΓ∞ óßÑ¼ óδ»«½¡∩Ñ¼δ¼ «»ÑαáΓ«αá¼. 2. Æ¿» ñá¡¡δσ ß ß¿¼ó«½∞¡δ¼ ¿¼Ñ¡Ñ¼ ¼«ªÑΓ íδΓ∞ Γ«τ¡« «»¿ßá¡ Γ«½∞¬« «ñ¡áªñδ. 3. Ä»ÑαáΓ«α «»αÑñÑ½Ñ¡¿∩ Γ¿»á ¡Ñ ñ«½ªÑ¡ ¿¼ÑΓ∞ ¼ÑΓ¬¿. 4. Ä»ÑαáΓ«α «»αÑñÑ½Ñ¡¿∩ Γ¿»á ¼«ªÑΓ «»¿ßδóáΓ∞ ¼áßß¿ó ñ«íáó- ½Ñ¡¿Ñ¼ «»¿ßáΓÑ½∩ αáº¼Ñα¡«ßΓ¿ ¬ ¿¼Ñ¡¿ ¼áßß¿óá. çá ß¿¼ó«½∞¡δ¼ ¿¼Ñ¡Ñ¼ ¼«ªÑΓ ß½Ññ«óáΓ∞ «»αÑñÑ½¿ΓÑ½∞ ñ½¿¡δ Γ¿»á ñá¡¡δσ ó ó¿ñÑ *ñ½¿¡á, úñÑ ñ½¿¡á - «ñ¡á ¿º ñ«ßΓπ»¡δσ Γ¿»«ó ñ½¿¡ ñ½∩ »α«ó«ºú½áΦÑ¡¡«ú« Γ¿»á ñá¡¡δσ. Æá¬«Ñ «»¿ßá¡¿Ñ «Γ¼Ñ¡∩ÑΓ áΓα¿íπΓ ñ½¿¡δ, ¬«Γ«αδ⌐ »«ñαáºπ¼Ñóá½ß∩ «»ÑαáΓ«α«¼ «»αÑñÑ½Ñ¡¿∩ Γ¿»á, ¿ »α¿ßóáÑΓ ¡«óπε ñ½¿¡π «»¿ßδóáÑ¼«¼π «íΩÑ¬Γπ. àß½¿ »α¿ßπΓßΓóπεΓ ¬á¬ «»¿ßáΓÑ½∞ ñ½¿¡δ Γ¿»á, Γá¬ ¿ «»¿ßáΓÑ½∞ ¼áßß¿óá, «»¿ßáΓÑ½∞ ñ½¿¡δ Γ¿»á ñ«½ªÑ¡ íδΓ∞ »«ß½Ññ¡¿¼. Åα¿¼Ñα: æ Åα¿¼Ñα «»ÑαáΓ«α«ó «»αÑñÑ½Ñ¡¿∩ Γ¿»á INTEGER COUNT, MATRIX(4,4), SUM REAL MAN, IABS LOGICAL SWITCH . INTEGER*2 Q, M12*4, IVEC(10)*4 . CMARACTER NAME*10, CITY*80, CH ▄────────────── █ WRITE ▀────────────── ÅÑαÑñáÑΓ ñá¡¡δÑ ¿º «íΩÑ¬Γ«ó ß»¿ß¬á-óó«ñá/óδó«ñá ó Σá⌐½, ßó∩ºá¡¡δ⌐ ß π¬áºá¡¡δ¼ πßΓα«⌐ßΓó«¼. ────────────────────────────────────────────────────────── WRITE («»αÑñÑ½¿ΓÑ½∞-πßΓα«⌐ßΓóá[,«»αÑñÑ½¿ΓÑ½∞-Σ«α¼áΓá] [,IOSTAT=ß«ßΓ«∩¡¿Ñ][,ERR=¼ÑΓ¬á][,REC=¡«¼Ñα-ºá»¿ß¿]) ß»¿ß«¬-óó«ñá/óδó«ñá ────────────────────────────────────────────────────────── âñÑ Ä»αÑñÑ½¿ΓÑ½∞-πßΓα«⌐ßΓóá - φΓ« «»αÑñÑ½¿ΓÑ½∞ ºáñá¡¡«ú« πßΓα«⌐ßΓóá, «¡ ñ«½ªÑ¡ íδΓ∞ »Ñαóδ¼ »áαá¼ÑΓα«¼. ä½∩ í«½ÑÑ »«ñα«í¡«⌐ ¿¡Σ«α- ¼áµ¿¿ «í «»αÑñÑ½¿ΓÑ½Ñ πßΓα«⌐ßΓóá ¿ ñαπú¿σ φ½Ñ¼Ñ¡Γáσ óó«ñá/óδó«ñá ß¼«Γα¿ΓÑ τáßΓ∞ 4 "æ¿ßΓÑ¼á óó«ñá/óδó«- ñá". Ä»αÑñÑ½¿ΓÑ½∞-Σ«α¼áΓá ΓαÑíπÑΓß∩, ¬á¬ óΓ«α«⌐ »áαá¼ÑΓα, ñ½∩ Σ«α¼áΓ¡«ú« WRITE. ìÑ ñ«½ªÑ¡ »«∩ó½∩Γ∞ß∩ ñ½∩ ¡ÑΣ«α¼áΓ¡«ú« WRITE. ÄßΓá½∞¡δÑ »áαá¼ÑΓαδ, Ñß½¿ «¡¿ ÑßΓ∞, ¼«úπΓ »«∩ó½∩- Γ∞ß∩ ó ½εí«¼ »«α∩ñ¬Ñ. æ«ßΓ«∩¡¿Ñ- φΓ« µÑ½á∩ »ÑαÑ¼Ñ¡¡á∩ ¿½¿ φ½Ñ¼Ñ¡Γ µÑ½«ú« ¼áßß¿óá, ¬«Γ«αδ⌐ »α¿ßóá¿óáÑΓß∩: á) ¡π½∞, Ñß½¿ ¡Ñ óßΓαÑΓ¿½¿ß∞ «Φ¿í¬á ¿½¿ ¬«¡Ñµ Σá⌐½á. b) ¼áΦ¿¡¡«-ºáó¿ß¿¼á∩ »«½«ª¿ΓÑ½∞¡á∩ µÑ½á∩ óÑ½¿τ¿¡á, Ñß½¿ óßΓαÑΓ¿½áß∞ «Φ¿í¬á. ß) ¼áΦ¿¡¡«-ºáó¿ß¿¼á∩ «Γα¿µáΓÑ½∞¡á∩ óÑ½¿τ¿¡á, Ñß½¿ óßΓαÑΓ¿Γß∩ ¬«¡Ñµ Σá⌐½á ¿ ¡Ñ íδ½« «Φ¿í¬¿. îÑΓ¬á- φΓ« ¡Ñ«í∩ºáΓÑ½∞¡á∩ ¼ÑΓ¬á «»ÑαáΓ«αá. àß½¿ ÑÑ ¡ÑΓ, «Φ¿í¬á óó«ñá/óδó«ñá »«α«ªñáÑΓ «Φ¿í¬π ßτÑΓá. àß½¿ «¡á ÑßΓ∞, «Φ¿í¬á óó«ñá/óδó«ñá »ÑαÑñáÑΓ π»αáó½Ñ¡¿Ñ ¡á ºáñá¡¡δ⌐ óδ»«½¡∩Ñ¼δ⌐ «»ÑαáΓ«α. ì«¼Ñα-ºá»¿ß¿«»αÑñÑ½Ñ¡ Γ«½∞¬« ñ½∩ Σá⌐½«ó »α∩¼«ú« ñ«ßΓπ»á (ó »α«Γ¿ó¡«¼ ß½πτáÑ óδºδóáÑΓ «Φ¿í¬π). ¥Γ« »«½«ª¿ΓÑ½∞- ¡«Ñ µÑ½«Ñ óδαáªÑ¡¿Ñ, «»αÑñÑ½∩εΘÑú« ß ¬á¬«ú« ¡«¼Ñαá ºá»¿ß¿ ó Σá⌐½Ñ »α«¿ºó«ñ¿Γ∞ ºá»¿ß∞. ÅÑαóá∩ ºá»¿ß∞ ó Σá⌐½Ñ ¿¼ÑÑΓ ¡«¼Ñα 1. àß½¿ ñ½∩ Σá⌐½«ó »α∩¼«ú« ñ«ßΓπ»á ¡«¼Ñα ºá»¿ß¿ «ΓßπΓßΓóπÑΓ, ºá»¿ß∞ »α«ñ«½- ªáÑΓß∩ ß ΓÑ¬πΘÑ⌐ »«º¿µ¿¿ ó Σá⌐½Ñ. æ»¿ß«¬- óó«ñá/óδó«ñá «»αÑñÑ½∩ÑΓ «íΩÑ¬Γδ, τ∞¿ óÑ½¿τ¿¡δ ñ«½ª¡δ íδΓ∞ »ÑαÑñá¡δ «»ÑαáΓ«α«¼ WRITE. æ»¿ß«¬ óó«ñá/óδó«ñá ¼«ªÑΓ íδΓ∞ »πßΓδ¼, ¡« «íδτ¡« «¡ ß«ñÑαª¿Γ «íΩÑ¬Γδ óδó«ñá ¿ ¡Ñ∩ó¡δÑ µ¿¬½δ, αáºñÑ½Ñ¡¡δÑ ºá»∩Γδ¼¿. Äß«íÑ¡¡«ßΓ¿. àß½¿ ºá»¿ß∞ ó¡πΓαÑ¡¡∩∩, Γ« áñαÑßáΓ«¼ óδó«ñá ∩ó½∩ÑΓß∩ ß¿¼ó«- ½∞¡á∩ »ÑαÑ¼Ñ¡¡á∩ ¿½¿ ¼áßß¿ó ß¿¼ó«½∞¡δσ φ½Ñ¼Ñ¡Γ«ó, «»αÑñÑ½Ñ¡¡δÑ ¬á¬ πßΓα«⌐ßΓó«; ó »α«Γ¿ó¡«¼ ß½πτáÑ, áñαÑßáΓ - φΓ« ó¡ÑΦ¡ÑÑ πßΓα«⌐- ßΓó«. àß½¿ Σá⌐½ ¡Ñ íδ½ «Γ¬αδΓ «»ÑαáΓ«α«¼ OPEN, »«ñαáºπ¼ÑóáÑΓß∩, τΓ« óδ»«½¡∩ÑΓß∩ ¡Ñ∩ó¡á∩ «»Ñαáµ¿∩ «Γ¬αδΓ¿∩. ¥Γá «»Ñαáµ¿∩ φ¬ó¿óá½Ñ¡Γ¡á ß½ÑñπεΘÑ¼π «»ÑαáΓ«απ: OPEN («»αÑñÑ½¿ΓÑ½∞-πßΓα«⌐ßΓóá,FILE=",STATUS=NEW', +ACCESS='SEQUENTIAL',FORM=Σ«α¼áΓ). ö«α¼áΓ - φΓ« FORMATTED ñ½∩ Σ«α¼áΓ¡«⌐ ºá»¿ß¿ ¿ UNFORMATTED ñ½∩ ¡ÑΣ«α¼áΓ¡«ú« «»ÑαáΓ«αá OPEN ñ½∩ »«¡¿¼á¡¿∩ ñÑ⌐ßΓó¿∩ FILE=»áαá- ¼ÑΓα. Åα¿¼Ñα æ éδßóÑΓ¿Γ∞ ß««íΘÑ¡¿Ñ "One=1, Two=2, Three=3" æ ¡á φ¬αá¡, ¡ÑñÑ½á∩ φΓ« »α«ßΓÑ⌐Φ¿¼ «íαáº«¼! WRITE (* ,980)'One= ',1,1+1,'ee= ',+(1+1+1) 980 FORMAT (A,I2,Two= ',1X,I1,Thr',A,I2)