For Beginners & Professional Hackers/cd.iso/docum/fortr.doc/fortran5.doc

Text File | 1990-07-20 | 29.5 KB | 589 lines

              ÅÉÄâÉÇîî¢, ÅÄäÅÉÄâÉÇîî¢ ê öôìèûêê.








     Äü ¥ÆÄë ùÇæÆê.

     ¥Γá τáßΓ∞ αáßΦ¿α∩ÑΓ «»¿ßá¡¿Ñ «»ÑαáΓ«α«ó PROGRAM, SUBROUTINE,
FUNCTION ¿ Σπ¡¬µ¿¿-«»ÑαáΓ«αá, »α¿óÑñÑ¡¡«Ñ ó τáßΓ¿ 3. é ¡Ñ⌐ »α¿ó«-
ñ¿Γß∩ ¿¡Σ«α¼áµ¿∩ « Γ¿»áσ Σπ¡¬µ¿⌐ ¿ óºá¿¼«ñÑ⌐ßΓó¿¿ Σ«α¼á½∞¡δσ ¿
Σá¬Γ¿τÑ߬¿σ »áαá¼ÑΓα«ó »α¿ ó맮óÑ Σπ¡¬µ¿¿ ¿½¿ »«ñ»α«úαá¼¼δ.



     æ«ñÑαªá¡¿Ñ.



1.ÄæìÄéìǃ ÅÉÄâÉÇîîÇ.  . . . . . . . . . . . . . . . . . . .  5-1

2.ÅÄäÅÉÄâÉÇîî¢.  . . . . . . . . . . . . . . . . . . . . . .  5-1

3.öôìèûêê. . . . . . . . . . . . . . . . . . . . . . . . . .  5-1

3.1.é¡ÑΦ¡¿Ñ Σπ¡¬µ¿¿. . . . . . . . . . . . . . . . . . . . .  5-2

3.2.éßΓα«Ñ¡¡δÑ Σπ¡¬µ¿¿.  . . . . . . . . . . . . . . . . . .  5-2

3.3.öπ¡¬µ¿¿-«»ÑαáΓ«αδ. . . . . . . . . . . . . . . . . . . .  5-8

4.ÅÇÉÇîàÆÉ¢. . . . . . . . . . . . . . . . . . . . . . . . .  5-8

5.ÅàÉàäÇùÇ ûàï¢ò ÅÇÉÇîàÆÉÄé. . . . . . . . . . . . . . . . .  5-9



 1.ÄæìÄéìǃ ÅÉÄâÉÇîîÇ.

     Äß¡«ó¡á∩ »α«úαá¼¼á - φΓ« ½εíá∩ »α«úαá¼¼¡á∩ Ññ¿¡¿µá, 𠬫ëα«⌐
»Ñαóδ⌐ «»ÑαáΓ«α - φΓ« ¡Ñ FUNCTION,SUBROUTINE ¿½¿ BLOCK DATA. ÅÑαóδ¼
«»ÑαáΓ«α«¼ «ß¡«ó¡«⌐ »α«úαá¼¼δ ¼«ªÑΓ íδΓ∞ «»ÑαáΓ«α PROGRAM. àß½¿ π
«ß¡«ó¡«⌐ »α«úαá¼¼δ ¡ÑΓ «»ÑαáΓ«αá PROGRAM, Ñ⌐ íπñÑΓ »α¿ßó«Ñ¡« ¿¼∩
MAIN. ê¼∩ MAIN Γ«úñá ¡Ñ ¼«ªÑΓ íδΓ∞ ¿ß»«½∞º«óá¡« ¬á¬ ¿¼∩ ½εí«ú«
ñαπú«ú« ú½«íá½∞¡«ú« «íΩѬΓá.
     éδ»«½¡Ñ¡¿Ñ »α«úαá¼¼δ óßÑúñá ¡áτ¿¡áÑΓß∩ ß »Ñαó«ú« óδ»«½¡∩Ѽ«ú«
«»ÑαáΓ«αá «ß¡«ó¡«⌐ »α«úαá¼¼δ. æ««ΓóÑΓßΓóÑ¡¡«, ó ¬áªñ«⌐ óδ»«½¡∩Ѽ«⌐
»α«úαá¼¼Ñ ñ«½ª¡á íδΓ∞ Γ«½∞¬« «ñ¡á «ß¡«ó¡á∩ »α«úαá¼¼á.
     ä½∩ ñ«»«½¡¿Γѽ∞¡«⌐ ¿¡Σ«α¼áµ¿¿ « »α«úαá¼¼áσ ¿ «»ÑαáΓ«αÑ PROGRAM
ß¼«Γα¿ΓÑ τáßΓ∞ 3 "Ä»ÑαáΓ«αδ".


2.ÅÄäÅÉÄâÉÇîî¢.

     Å«ñ»α«úαá¼¼á - φΓ« »α«úαá¼¼¡á∩ Ññ¿¡¿µá, ¬«Γ«αá∩ ¼«ªÑΓ íδΓ∞
óδºóá¡á ¿º ñαπú«⌐ »α«úαá¼¼¡«⌐ Ññ¿¡¿µδ c »«¼«Θ∞ε «»ÑαáΓ«αá CALL.
üπñπτ¿ óδºóá¡¡«⌐, »«ñ»α«úαá¼¼á »α«¿ºó«ñ¿Γ ¡áí«α ñÑ⌐ßΓó¿⌐,
«»αÑñѽѡ¡δσ ÑÑ óδ»«½¡∩Ñ¼δ¼¿ «»ÑαáΓ«αἿ, ¿ ºáΓѼ ó«ºóαáΘáÑΓ π»αáó-
½Ñ¡¿Ñ ¡á «»ÑαáΓ«α, ß½ÑñπεΘ¿⌐ ¡Ñ»«ßαÑñßΓóÑ¡¡« ºá óδºóáóΦ¿¼ ÑÑ
«»ÑαáΓ«α«¼, ¿½¿ ¡á «»ÑαáΓ«α, «»αÑñѽѡ¡δ⌐ ¬á¬ »ÑαѼѡ¡δ⌐ ó«ºóαáΓ
(ß¼«Γα¿ΓÑ «»ÑαáΓ«α CALL ó τáßΓ¿ 3).
     Å«ñ»α«úαá¼¼á ¡Ñ ó«ºóαáΘáÑΓ óѽ¿τ¿¡π »α∩¼«, σ«Γ∩ óѽ¿τ¿¡δ ¼«úπΓ
íδΓ∞ ó«ºóαáΘÑ¡δ ó óδºδóáεΘπε »α«úαá¼¼¡πε Ññ¿¡¿µπ τÑαѺ »áαá¼ÑΓαδ
¿ COMMON-í½«¬¿.
     ä½∩ í«½ÑÑ »«ñα«í¡«⌐ ¿¡Σ«α¼áµ¿¿ « »«ñ»α«úαá¼¼áσ ß¼«Γα¿ΓÑ τáßΓ∞
3 "Ä»ÑαáΓ«αδ".

3.öôìèûêê.

     ìá Σπ¡¬µ¿ε ßßδ½áεΓß∩ ó óδαáªÑ¡¿¿, ¿ «¡á ó«ºóαáΘáÑΓ óѽ¿τ¿¡π,
¬«Γ«αá∩ ¿ß»«½∞ºπÑΓß∩ »α¿ óδτ¿ß½Ñ¡¿¿ φΓ«ú« óδαáªÑ¡¿∩. æπΘÑßΓóπÑΓ
Γα¿ ó¿ñá Σπ¡¬µ¿⌐:
          1. é¡ÑΦ¡¿Ñ Σπ¡¬µ¿¿
          2. éßΓα«Ñ¡¡δÑ Σπ¡¬µ¿¿
          3. öπ¡¬µ¿¿-«»ÑαáΓ«αδ.
     èáªñδ⌐ ¿º ¡¿σ «»¿ßá¡ í«½ÑÑ »«ñα«í¡« ó ñá½∞¡Ñ⌐Φ¿σ »áαáúαáΣáσ.
     æßδ½¬á ¡á Σπ¡¬µ¿ε ¼«ªÑΓ »«∩ó¿Γ∞ß∩ ó áα¿Σ¼ÑΓ¿τÑ߬«¼ ¿½¿ ½«ú¿-
τÑ߬«¼ óδαáªÑ¡¿¿. è«úñá óδ»«½¡∩ÑΓß∩ ßßδ½¬á ¡á Σπ¡¬µ¿ε, Σπ¡¬µ¿∩
óδºδóáÑΓß∩, á óѽ¿τ¿¡á αѺπ½∞ΓáΓá ¿ß»«½∞ºπÑΓß∩ ¬á¬ «»Ñαá¡ñ ó óδ-
αáªÑ¡¿¿, ¬«Γ«α«Ñ ß«ñÑαª¿Γ ßß佬π ¡á Σπ¡¬µ¿ε. ö«α¼á ßß佬¿ ¡á Σπ¡-
¬µ¿ε ß½ÑñπεΘá∩:
────────────────────────────────────────────────
 ¿¼∩-Σπ¡¬µ¿¿ ([»áα[,»áα]...])
────────────────────────────────────────────────
     ¿¼∩-Σπ¡¬µ¿¿ - φΓ« «»αÑñѽѡ¡«Ñ »«½∞º«óáΓѽѼ ¿¼∩ ó¡ÑΦ¡Ñ⌐ ¿½¿
                   óßΓα«Ñ¡«⌐ Σπ¡¬µ¿¿ ¿½¿ Σπ¡¬µ¿¿-«»ÑαáΓ«αá.
         »áα     - φΓ« Σá¬Γ¿τÑ߬¿⌐ »áαá¼ÑΓα.
     Åαáó¿½á ñ½∩ »áαá¼ÑΓα«ó Σπ¡¬µ¿⌐ á¡á½«ú¿τ¡δ »αáó¿½á¼ ñ½∩ »«ñ-
»α«úαá¼¼ (ºá ¿ß¬½ετÑ¡¿Ñ¼ »ÑαѼѡ¡«ú« ó«ºóαáΓá, ¬«Γ«αδ⌐ ¡Ññ«»πßΓ¿¼)
¿ »α¿óÑñÑ¡δ ó «»¿ßá¡¿¿ «»ÑαáΓ«αá CALL ó τáßΓ¿ 3. ìѬ«Γ«αδÑ ñ«»«½-
¡¿Γѽ∞¡δÑ «úαá¡¿τÑ¡¿∩, »α¿¼Ñ¡¿¼δÑ ñ½∩ Σπ¡¬µ¿⌐-«»ÑαáΓ«α«ó ¿ óßΓα«-
Ñ¡δσ Σπ¡¬µ¿⌐, «»¿ßá¡δ ¡¿ªÑ ó φΓ«⌐ τáßΓ¿.




3.1.é¡ÑΦ¡¿Ñ Σπ¡¬µ¿¿.

     é¡ÑΦ¡∩∩ Σπ¡¬µ¿∩ «»αÑñÑ½Ñ¡á »α«úαá¼¼¡«⌐ Ññ¿¡¿µÑ⌐ Σπ¡¬µ¿¿. Ä¡á
¡áτ¿¡áÑΓß∩ «»ÑαáΓ«α«¼ FUNCTION ¿ ºá¬á¡τ¿óáÑΓß∩ «»ÑαáΓ«α«¼ END.
Ä¡á ¼«ªÑΓ ß«ñÑαªáΓ∞ ½εíδÑ ó¿ñδ «»ÑαáΓ«α«ó, ¬α«¼Ñ PROGRAM, FUNCTION,
SUBROUTINE ¿½¿ BLOCK DATA.

3.2.éßΓα«Ñ¡¡δÑ Σπ¡¬µ¿¿.

     éßΓα«Ñ¡¡δÑ Σπ¡¬µ¿¿ «»αÑñѽѡδ ó ∩ºδ¬Ñ îæ-ö«αΓαá¡ ¿ ñ«ßΓπ»¡δ
ñ½∩ ¿ß»«½∞º«óá¡¿∩ ó »α«úαá¼¼Ñ ¡á îæ-ö«αΓαá¡Ñ. é Γáí½¿µÑ 5-1 »α¿-
óÑñÑ¡δ ¿¼Ñ¡á, ¡áº¡áτÑ¡¿∩, Γ¿»δ »áαá¼ÑΓα«ó ¿ Γ¿»δ Σπ¡¬µ¿⌐ ñ½∩ óßÑσ
óßΓα«Ñ¡¡δσ Σπ¡¬µ¿⌐, ñ«»πßΓ¿¼δσ ó îæ-ö«αΓαá¡Ñ, ß ñ«»«½¡¿Γѽ∞¡δ¼¿
»α¿¼Ñτá¡¿∩¼¿ »«ß½Ñ Γáí½¿µδ.
     Ä»ÑαáΓ«α IMPLICIT ¡Ñ ¼«ªÑΓ ¿º¼Ñ¡∩Γ∞ Γ¿» óßΓα«Ñ¡¡«⌐ Σπ¡¬µ¿¿.
ä½∩ φΓ¿σ óßΓα«Ñ¡¡δσ Σπ¡¬µ¿⌐, ¬«Γ«αδÑ ñ«»π߬áεΓ αẽ¿τ¡δÑ Γ¿»δ »á-
αá¼ÑΓα«ó, »α¿ «ñ¡«¼ «íαáΘÑ¡¿¿ óßÑ »áαá¼ÑΓαδ ñ«½ª¡δ íδΓ∞ «ñ¡«ú« ¿
Γ«ú« ªÑ Γ¿»á.
     ê¼∩ óßΓα«Ñ¡¡«⌐ Σπ¡¬µ¿¿ ¼«ªÑΓ »«∩ó¿Γ∞ß∩ ó «»ÑαáΓ«αÑ INTRINSIC.
ê¼∩ óßΓα«Ñ¡¡«⌐ Σπ¡¬µ¿¿ ¼«ªÑΓ Γá¬ªÑ »«∩ó¿Γ∞ß∩ ó «»ÑαáΓ«αÑ «»¿ßá¡¿∩
Γ¿»á, ¡« Γ«½∞¬« Ñß½¿ Γ¿» ëà ªÑ ßá¼δ⌐, τΓ« ¿ ßΓá¡ñáαΓ¡δ⌐ Γ¿» φΓ«⌐
óßΓα«Ñ¡¡«⌐ Σπ¡¬µ¿¿.
     Åáαá¼ÑΓαδ ¡Ñ¬«Γ«αδσ óßΓα«Ñ¡¡δσ Σπ¡¬µ¿⌐ «úαá¡¿τÑ¡δ ¡áº¡áτÑ¡¿Ñ¼
φΓ¿σ Σπ¡¬µ¿⌐. ìá»α¿¼Ñα, ½«úáα¿Σ¼ «Γα¿µáΓѽ∞¡«ú« τ¿ß½á ¼áΓѼáΓ¿τÑ߬¿
¡Ñ «»αÑñѽѡ ¿ »«φΓ«¼π ¡Ññ«»πßΓ¿¼.
     î¡«ú¿Ñ óßΓα«Ñ¡¡δÑ Σπ¡¬µ¿¿ ¿¼ÑεΓ «íΘ¿Ñ ¿¼Ñ¡á, τΓ« »«ºó«½∩ÑΓ
ßßδ½áΓ∞ß∩ ¡á Σπ¡¬µ¿ε íѺ πΓ«τ¡Ñ¡¿∩ Γ¿»á »áαá¼ÑΓα«ó »α¿ ßß佬Ñ.
è«úñá ßßδ½áεΓß∩ ¡á «íΘÑÑ ¿¼∩ ¬«¼»¿½∩Γ«α óδí¿αáÑΓ ß««ΓóÑΓßΓóπεΘπε
«Γ¡«ß¿Γѽ∞¡« ߻ѵ¿Σ¿τÑ߬πε Σπ¡¬µ¿ε ó ºáó¿ß¿¼«ßΓ¿ «Γ Γ¿»á »áαá¼ÑΓ-
αá(«ó) ó ßßδ½¬Ñ ¡á Σπ¡¬µ¿ε.
     ìá»α¿¼Ñα, Σπ¡¬µ¿∩ INT - φΓ« «íΘÑÑ ¿¼∩ ΦÑßΓ¿ τπΓ∞ «Γ½¿τáεΘ¿σß∩
Σπ¡¬µ¿⌐: «ñ¡á ß ß«íßΓóÑ¡¡δ¼ ¿¼Ñ¡Ñ¼, ß«ó»áñáεΘ¿¼ ß «ß¡«ó¡δ¼, Γα¿ ß
«ß«í묨 ¿¼Ñ¡á¼¿ (IFIX,IDINT,ICHAR) ¿ ñóÑ - íѺδ¼∩¡¡δσ (ñ½∩ Γ¿»«ó
ñá¡¡δσ COMPLEX*8 ¿ COMPLEX*16).
     éßÑ πú½δ ó Γáí½¿µÑ 5-1 óδαáªÑ¡δ ó αáñ¿á¡áσ. éßÑ »áαá¼ÑΓαδ ó
ßßδ½¬Ñ ¡á óßΓα«Ñ¡¡πε Σπ¡¬µ¿ε ñ«½ª¡δ íδΓ∞ Γ«ú« ªÑ Γ¿»á. ò ¿ ô -
ñÑ⌐ßΓó¿Γѽ∞¡δÑ, Z - ¬«¼»½Ñ¬ß¡«Ñ, I ¿ J - µÑ½δÑ, á æ,æ1 ¿ æ2 - ß¿¼-
ó«½∞¡δÑ óѽ¿τ¿¡δ. ù¿ß½á ó ¬óáñαáΓ¡δσ ߬«í¬áσ ó ¬«½«¡¬Ñ 1 ßßδ½áεΓß∩
¡á »α¿¼Ñτá¡¿∩ »«ß½Ñ Γáí½¿µδ.
     é ñá½∞¡Ñ⌐ΦѼ REAL φ¬ó¿óá½Ñ¡Γ¡« REAL*4, DOUBLE PRECISION -
REAL*8, a COMPLEX - COMPLEX*8. àß½¿ ó π¬áºá¡¡«¼ Γ¿»Ñ »áαá¼ÑΓαá -
INTEGER, Γ« Γ¿» ¼«ªÑΓ íδΓ∞ INTEGER*2 ¿½¿ INTEGER*4. àß½¿ π¬áºá¡¡δ⌐
Γ¿» Σπ¡¬µ¿¿ - INTEGER, Γ¿» íπñÑΓ µÑ½δ⌐ »« π¼«½τá¡¿ε «»αÑñѽѡ¡δ⌐
¼ÑΓᬫ¼á¡ñ«⌐ $STORAGE. (ä½∩ í«½ÑÑ »«½¡«⌐ ¿¡Σ«α¼áµ¿¿ ß¼«Γα¿ΓÑ τáßΓ∞ 6).


╔════════════╦═══════════════════════╦══════════╦═════════╗
║    êîƒ     ║       ìÇçìÇùàìêà      ║ÆêÅ ÅÇÉÇî.║ÆêÅ ö    ║
╠════════════╩═══════════════════════╩══════════╩═════════╣
║ ÅαÑ«íαẫóá¡¿Ñ Γ¿»«ó                                    ║
║ INT(«íΘÑÑ) ║ »αÑ«íαáºπÑΓ ó INTEGER ║   ½εí«⌐  ║INTEGER  ║
║ INT2(X)    ║ »αÑ«íαáºπÑΓ ó INTEGER*║   ½εí«⌐  ║INTEGER* ║
║ INT4(X)    ║ »αÑ«íαáºπÑΓ ó INTEGER*║   ½εí«⌐  ║INTEGER* ║
║ INT(X) [1] ║ »αÑ«íαáºπÑΓ ó INTEGER ║   REAL*4 ║INTEGER  ║
║ IFIX(X)    ║ »αÑ«íαáºπÑΓ ó INTEGER ║   REAL*4 ║INTEGER  ║
║ IDINT(X)   ║ »αÑ«íαáºπÑΓ ó INTEGER ║   REAL*8 ║INTEGER  ║
║ ICHAR(C)[S]║ »αÑ«íαáºπÑΓ ó INTEGER ║ CHARACTER║INTEGER  ║
║ REAL(«íΘÑÑ)║ »αÑ«íαáºπÑΓ ó REAL*4  ║   ½εí«⌐  ║REAL*4   ║
║ REAL(X) [2]║ »αÑ«íαáºπÑΓ ó REAL*4  ║  INTEGER ║REAL*4   ║
║            ║                       ║   REAL*4 ║REAL*4   ║
║ DREAL(Z)   ║ »αÑ«íαáºπÑΓ COMPLEX*16║COMPLEX*16║  REAL*8 ║
║            ║ ó REAL*8              ║          ║         ║
║ FLOAT(I)   ║ »αÑ«íαáºπÑΓ ó REAL*4  ║  INTEGER ║  REAL*4 ║
║ CHAR(X)    ║ »αÑ«íαáºπÑΓ ó ß¿¼ó«½. ║  INTEGER ║CHARACTER║
║ SNGL(X)    ║ »αÑ«íαáºπÑΓ ó REAL*4  ║   REAL*8 ║  REAL*4 ║
║ DBLE(«íΘÑÑ)║ »αÑ«íαáºπÑΓ ó REAL*8  ║    ½εí«⌐ ║  REAL*8 ║
║ CMPLX(Z[,Y]║ »αÑ«íαáºπÑΓ ó COMPLEX*║    ½εí«⌐ ║COMPLEX*8║
║         [4]║                       ║          ║         ║
║ DCMPLX(Z[,Y║ »αÑ«íαáºπÑΓ ó COMPLEX*║    ½εí«⌐ ║COMPLEX*1║
║                                                         ║
║ éº∩Γ¿Ñ µÑ½«⌐ τáßΓ¿                                      ║
║ AINT(«íΘÑÑ)║ µÑ½á∩ τáßΓ∞ «Γ REAL   ║   REAL*4 ║  REAL*4 ║
║ AINT(X)    ║ µÑ½á∩ τáßΓ∞ «Γ REAL*4 ║   REAL*8 ║  REAL*8 ║
║            ║                       ║   REAL*4 ║  REAL*4 ║
║ DINT(X)    ║ µÑ½á∩ τáßΓ∞ «Γ REAL*8 ║   REAL*8 ║  REAL*8 ║
║                                                         ║
║ Ĭαπú½Ñ¡¿Ñ                                              ║
║ ANINT(«íΘÑÑ║ «¬απú½Ñ¡¿Ñ REAL       ║   REAL*4 ║  REAL*8 ║
║            ║                       ║   REAL*8 ║  REAL*8 ║
║ ANINT(X)   ║ «¬απú½Ñ¡¿Ñ REAL*4     ║   REAL*4 ║  REAL*4 ║
║ DNINT(X)   ║ «¬απú½Ñ¡¿Ñ REAL*8     ║   REAL*8 ║  REAL*8 ║
║                                                         ║
║ Ĭαπú½Ñ¡¿Ñ ó µÑ½«Ñ                                      ║
║ NINT(«íΘÑÑ)║ «¬απú½Ñ¡¿Ñ ß »ÑαÑó«ñ«¼║   REAL*4 ║ INTEGER ║
║            ║ ó µÑ½«Ñ               ║   REAL*8 ║ INTEGER ║
║ NINT(X)    ║ «¬απú½Ñ¡¿Ñ ß »ÑαÑó«ñ«¼║   REAL*4 ║ INTEGER ║
║            ║ ó µÑ½«Ñ               ║          ║         ║
║ IDNINT(X)  ║ «¬απú½Ñ¡¿Ñ ß »ÑαÑó«ñ«¼║   REAL*8 ║ INTEGER ║
║            ║ ó µÑ½«Ñ               ║          ║         ║
║                                                         ║
║ Çíß«½εΓ¡á∩ óѽ¿τ¿¡á                                     ║
║ ABS(«íΘÑÑ) ║ áíß«½εΓ¡á∩ óѽ¿τ¿¡á   ║    ½εí«⌐ ║   ½εí«⌐ ║
║ IABS(I)    ║ áíß«½εΓ¡«Ñ µÑ½«Ñ      ║  INTEGER ║ INTEGER ║
║ ABS (X)    ║ áíß«½εΓ¡«Ñ REAL*4     ║   REAL*4 ║ REAL*4  ║
║ DABS(X)    ║ áíß«½εΓ¡«Ñ REAL*8     ║   REAL*8 ║ REAL*8  ║
║ CABS(Z)    ║ áíß«½εΓ¡«Ñ COMPLEX    ║ COMPLEX*8║ REAL*4  ║
║            ║                       ║ COMPLEX*1║ REAL*8  ║
║ CDABC(Z)   ║ áíß«½εΓ¡«Ñ COMPLEX*16 ║ COMPLEX*1║ REAL*8  ║
║                                                         ║
║ éº∩Γ¿Ñ «ßΓá⪠                                          ║
║ MOD(«íΘÑÑ) ║ «ßΓáΓ«¬               ║  INTEGER ║INTEGER  ║
║            ║                       ║   REAL*4 ║ REAL*4  ║
║ MOD(I,Y)   ║ µÑ½δ⌐ «ßΓáΓ«¬         ║  INTEGER ║ INTEGER ║
║ AMOD(X,Y)  ║ «ßΓáΓ«¬ REAL*4        ║   REAL*4 ║ REAL*4  ║
║ DMOD(X,Y)  ║ «ßΓáΓ«¬ REAL*8        ║   REAL*8 ║ REAL*8  ║
-----------------------------------------------------------

___________________________________________________________
║                                                         ║
║ ÅÑαÑñáτá º¡á¬á                                          ║
║ SIGN(«íΘÑÑ)║ »ÑαÑñáτá º¡á¬á        ║  INTEGER ║ INTEGER ║
║            ║                       ║   REAL*4 ║ REAL*4  ║
║            ║                       ║   REAL*8 ║ REAL*8  ║
║ ISIGN(I,Y) ║ »ÑαÑñáτá º¡á¬á µÑ½«ú« ║  INTEGER ║ INTEGER ║
║ SIGN(X,Y)  ║ »ÑαÑñáτá º¡á¬á REAL*4 ║   REAL*4 ║ REAL*4  ║
║ DSIGN(X,Y) ║ »ÑαÑñáτá º¡á¬á REAL*8 ║   REAL*8 ║ REAL*8  ║
║                                                         ║
║ Å«½«ª¿Γѽ∞¡á∩ αạ«ßΓ∞ [6]                              ║
║ DIM(«íΘÑÑ) ║ »«½«ª¿Γѽ∞¡á∩ αạ«ßΓ∞║  INTEGER ║ INTEGER ║
║            ║                       ║   REAL*4 ║ REAL*4  ║
║            ║                       ║   REAL*8 ║ REAL*8  ║
║ IDIM(I,Y)  ║ αạ«ßΓ∞ µÑ½δσ        ║  INTEGER ║ INTEGER ║
║ DIM(X,Y)   ║ αạ«ßΓ∞ REAL*4       ║   REAL*4 ║ REAL*4  ║
║ DDIM(X,Y)  ║ αạ«ßΓ∞ REAL*8       ║   REAL*8 ║ REAL*8  ║
║                                                         ║
║ Å«¿ß¬ ¡á¿í«½∞ΦÑ⌐ óѽ¿τ¿¡δ                               ║
║ MAX(«íΘÑÑ) ║ ¼á¬ß¿¼π¼              ║  INTEGER ║ INTEGER ║
║            ║                       ║   REAL*4 ║ REAL*4  ║
║            ║                       ║   REAL*8 ║ REAL*8  ║
║ MAX0(I,Y..)║ µÑ½δ⌐ ¼á¬ß¿¼π¼        ║  INTEGER ║ INTEGER ║
║ AMAX1(X,Y.)║ ¼á¬ß¿¼π¼ REAL*4       ║   REAL*4 ║ REAL*4  ║
║ AMAX0(I,Y.)║ ¼á¬ß¿¼π¼ REAL*4       ║  INTEGER ║ REAL*4  ║
║ MAX1(X,Y..)║ µÑ½δ⌐ ¼á¬ß¿¼π¼        ║   REAL*4 ║ INTEGER ║
║ DMAX1(X,Y.)║ ¼á¬ß¿¼π¼ REAL*8       ║   REAL*8 ║ REAL*8  ║
║                                                         ║
║ Å«¿ß¬ ¡á¿¼Ñ¡∞ΦÑ⌐ óѽ¿τ¿¡δ                               ║
║ MIN(«íΘÑÑ) ║ ¼¿¡¿¼π¼               ║  INTEGER ║ INTEGER ║
║            ║                       ║   REAL*4 ║ REAL*4  ║
║            ║                       ║   REAL*8 ║ REAL*8  ║
║ MIN0(I,Y..)║ µÑ½δ⌐ ¼¿¡¿¼π¼         ║  INTEGER ║ INTEGER ║
║ AMIN1(X,Y.)║ ¼¿¡¿¼π¼ REAL*4        ║   REAL*4 ║ REAL*4  ║
║ AMIN0(I,Y.)║ ¼¿¡¿¼π¼ REAL*4        ║  INTEGER ║ REAL*4  ║
║ MIN1(X,Y..)║ µÑ½δ⌐ ¼¿¡¿¼π¼         ║   REAL*4 ║ INTEGER ║
║ DMIN1(X,Y.)║ ¼¿¡¿¼π¼ REAL*8        ║   REAL*8 ║ REAL*8  ║
║                                                         ║
║ ÅÑαÑó«ñ ó REAL*8                                        ║
║ DPROD(X,Y) ║ »ÑαÑó«ñ ó REAL*8      ║   REAL*4 ║ REAL*4  ║
║                                                         ║
║ î¡¿¼á∩ τáßΓ∞ ¬«¼»½Ñ¬ß¡«ú« τ¿ß½á                         ║
║ AIMAG(Z)   ║ óδñѽ∩ÑΓ ¼¡¿¼πε τáßΓ∞ ║ COMPLEX*8║ REAL*4  ║
║            ║ ºáñá¡¡«⌐ »áαδ ó REAL*4║          ║         ║
║ DIMAG(Z)   ║ óδñѽ∩ÑΓ ¼¡¿¼πε τáßΓ∞ ║COMPLEX*16║ REAL*8  ║
║            ║ ºáñá¡¡«⌐ »áαδ ó REAL*8║          ║         ║
║                                                         ║
║ æ«»α∩ªÑ¡¿Ñ ¬«¼»½Ñ¬ß¡«ú« τ¿ß½á                           ║
║ CONYG(Z)   ║ ß«»α∩ªÑ¡¿Ñ COMPLEX*8  ║COMPLEX*8 ║COMPLEX*8║
║ DCONYG(Z)  ║ ß«»α∩ªÑ¡¿Ñ COMPLEX*16 ║COMPLEX*16║COMPLEX*1║
-----------------------------------------------------------



___________________________________________________________
║ èóáñαáΓ¡δ⌐ ¬«αÑ¡∞                                       ║
║ SQRT(«íΘÑÑ)║ ¬óáñαáΓ¡δ⌐ ¬«αÑ¡∞     ║   REAL*4 ║  REAL*4 ║
║            ║                       ║   REAL*8 ║  REAL*8 ║
║            ║                       ║COMPLEX*8 ║COMPLEX*8║
║            ║                       ║COMPLEX*16║COMPLEX*1║
║ SQRT(X)    ║ ¬óáñαáΓ¡δ⌐ ¬«αÑ¡∞ REAL║   REAL*4 ║  REAL*4 ║
║ DSQRT(X)   ║ ¬óáñαáΓ¡δ⌐ ¬«αÑ¡∞ REAL║   REAL*8 ║  REAL*8 ║
║ CSQRT(Z)   ║ ¬óáñαáΓ¡δ⌐ ¬«αÑ¡∞     ║ COMPLEX*8║COMPLEX*8║
║            ║ COMPLEX*8             ║          ║         ║
║ CDSQRT(Z)  ║ ¬óáñαáΓ¡δ⌐ ¬«αÑ¡∞     ║COMPLEX*16║COMPLEX*1║
║            ║ COMPLEX*16            ║          ║         ║
╚════════════╩═══════════════════════╩══════════╩═════════╝
╔════════════╦═══════════════════════╦══════════╦═════════╗
║    êîƒ     ║       ìÇçìÇùàìêà      ║ÆêÅ ÅÇÉÇî.║ÆêÅ ö    ║
╠════════════╩═══════════════════════╩══════════╩═════════╣
║ ¥¬ß»«¡Ñ¡Γá                                              ║
║ EXP(«íΘÑÑ) ║ φ¬ß»«¡Ñ¡Γá            ║   REAL*4 ║  REAL*4 ║
║            ║                       ║   REAL*8 ║  REAL*8 ║
║            ║                       ║ COMPLEX*8║COMPLEX*8║
║            ║                       ║COMPLEX*16║COMPLEX*1║
║ EXP(X)     ║ REAL*4 e ó ßΓѻѡ¿    ║   REAL*4 ║  REAL*4 ║
║ DEXP(X)    ║ REAL*8 e ó ßΓѻѡ¿    ║   REAL*8 ║  REAL*8 ║
║ CEXP(Z)    ║ COMPLEX*8 e ó ßΓѻѡ¿ ║ COMPLEX*8║COMPLEX*8║
║ CDEXP(Z)   ║ COMPLEX*16 e ó ßΓѻѡ¿║COMPLEX*16║COMPLEX*1║
║                                                         ║
║ ìáΓπαá½∞¡δ⌐ ½«úáα¿Σ¼                                    ║
║ LOG(«íΘÑÑ) ║ ¡áΓπαá½∞¡δ⌐ ½«úáα¿Σ¼  ║   REAL*4 ║  REAL*4 ║
║            ║                       ║   REAL*8 ║  REAL*8 ║
║            ║                       ║ COMPLEX*8║COMPLEX*8║
║            ║                       ║ COMPLEX*1║COMPLEX*1║
║ ALOG(X)    ║ ¡áΓ. ½«úáα¿Σ¼ REAL*4  ║   REAL*4 ║  REAL*4 ║
║ DLOG(X)    ║ ¡áΓ. ½«úáα¿Σ¼ REAL*8  ║   REAL*8 ║  REAL*8 ║
║ CLOG(Z)    ║ ¡áΓ. ½«úáα¿Σ¼ COMPLEX*║ COMPLEX*8║COMPLEX*8║
║ DLOG(Z)    ║ ¡áΓ. ½«úáα¿Σ¼ COMPLEX*║COMPLEX*16║COMPLEX*1║
║                                                         ║
║ äÑß∩Γ¿τ¡δ⌐ ½«úáα¿Σ¼                                     ║
║LOG10(«íΘÑÑ)║ ñÑß∩Γ¿τ¡δ⌐ ½«úáα¿Σ¼   ║   REAL*4 ║  REAL*4 ║
║            ║                       ║   REAL*8 ║  REAL*8 ║
║ ALOG10(X)  ║ ñÑß. ½«úáα¿Σ¼ REAL*4  ║   REAL*4 ║  REAL*4 ║
║ DLOG10(X)  ║ ñÑß. ½«úáα¿Σ¼ REAL*8  ║   REAL*8 ║  REAL*8 ║
║                                                         ║
║ æ¿¡πß                                                   ║
║ SIN(«íΘÑÑ) ║ Σπ¡¬µ¿∩ ß¿¡πß         ║   REAL*4 ║  REAL*4 ║
║            ║                       ║   REAL*8 ║  REAL*8 ║
║            ║                       ║ COMPLEX*8║COMPLEX*8║
║            ║                       ║COMPLEX*16║COMPLEX*1║
║ SIN(X)     ║ REAL*4 ß¿¡πß          ║   REAL*4 ║  REAL*4 ║
║ DSIN(X)    ║ REAL*8 ß¿¡πß          ║   REAL*8 ║  REAL*8 ║
║ CSIN(Z)    ║ COMPLEX*8 ß¿¡πß       ║ COMPLEX*8║COMPLEX*8║
║ CDSIN(Z)   ║ COMPLEX*16 ß¿¡πß      ║COMPLEX*16║COMPLEX*1║
-----------------------------------------------------------


___________________________________________________________
║ è«ß¿¡πß                                                 ║
║ COS(«íΘÑÑ) ║ Σπ¡¬µ¿∩ ¬«ß¿¡πß       ║   REAL*4 ║ REAL*4  ║
║            ║                       ║   REAL*8 ║ REAL*8  ║
║            ║                       ║ COMPLEX*8║COMPLEX*8║
║            ║                       ║COMPLEX*16║COMPLEX*1║
║ COS(X)     ║ REAL*4 ¬«ß¿¡πß        ║   REAL*4 ║ REAL*4  ║
║ DCOS(X)    ║ REAL*8 ¬«ß¿¡πß        ║   REAL*8 ║ REAL*8  ║
║ CCOS(Z)    ║ COMPLEX*8 ¬«ß¿¡πß     ║ COMPLEX*8║COMPLEX*8║
║ CDCOS(Z)   ║ COMPLEX*16 ¬«ß¿¡πß    ║COMPLEX*16║COMPLEX*1║
║                                                         ║
║ Æá¡úÑ¡ß                                                 ║
║ TAN(«íΘÑÑ) ║ Σπ¡¬µ¿∩ Γá¡úÑ¡ß       ║   REAL*4 ║ REAL*4  ║
║            ║                       ║   REAL*8 ║ REAL*8  ║
║ TAW(X)     ║ REAL*4 Γá¡úÑ¡ß        ║   REAL*4 ║ REAL*4  ║
║ DTAN(X)    ║ REAL*8 Γá¡úÑ¡ß        ║   REAL*8 ║ REAL*8  ║
╚════════════╩═══════════════════════╩══════════╩═════════╝



╔════════════╦═══════════════════════╦══════════╦═════════╗
║    êîƒ     ║       ìÇçìÇùàìêà      ║ÆêÅ ÅÇÉÇî.║ÆêÅ ö    ║
╠════════════╩═══════════════════════╩══════════╩═════════╣
║ Çα¬ß¿¡πß                                                ║
║ ASIN(«íΘÑÑ)║ Σπ¡¬µ¿∩ áα¬ß¿¡πß      ║   REAL*4 ║ REAL*4  ║
║            ║                       ║   REAL*8 ║ REAL*8  ║
║ ASIN(X)    ║ REAL*4 áα¬ß¿¡πß       ║   REAL*4 ║ REAL*4  ║
║ DASIN(X)   ║ REAL*8 áα¬ß¿¡πß       ║   REAL*8 ║ REAL*8  ║
║                                                         ║
║ Çᬬ«ß¿¡πß                                              ║
║ ACOS(«íΘÑÑ)║ Σπ¡¬µ¿∩ áᬬ«ß¿¡πß    ║   REAL*4 ║ REAL*4  ║
║            ║                       ║   REAL*8 ║ REAL*8  ║
║ ACOS(X)    ║ REAL*4 áᬬ«ß¿¡πß     ║   REAL*4 ║ REAL*4  ║
║ DACOS(X)   ║ REAL*8 áᬬ«ß¿¡πß     ║   REAL*8 ║ REAL*8  ║
║                                                         ║
║ Çα¬Γá¡úÑ¡ß                                              ║
║ ATAN(«íΘÑÑ)║ Σπ¡¬µ¿∩ áα¬Γá¡úÑ¡ß    ║   REAL*4 ║ REAL*4  ║
║            ║                       ║   REAL*8 ║ REAL*8  ║
║ ATAN(X)    ║ REAL*4 áα¬Γá¡úÑ¡ß     ║   REAL*4 ║ REAL*4  ║
║ DATAW(X)   ║ REAL*8 áα¬Γá¡úÑ¡ß     ║   REAL*8 ║ REAL*8  ║
║ ATAN2(X,Y) ║ REAL*4 áα¬Γá¡úÑ¡ß σ/y ║   REAL*4 ║ REAL*4  ║
║ DATAN2(X,Y)║ REAL*8 áα¬Γá¡úÑ¡ß x/y ║   REAL*8 ║ REAL*8  ║
║                                                         ║
║ â¿»Ñαí«½¿τÑ߬¿⌐ ß¿¡πß                                   ║
║ SINH(«íΘÑÑ)║ ú¿»Ñαí«½¿τÑ߬¿⌐ ß¿¡πß ║   REAL*4 ║ REAL*4  ║
║            ║                       ║   REAL*8 ║ REAL*8  ║
║ SINH(X)    ║ REAL*4 ú¿»Ñαí. ß¿¡πß  ║   REAL*4 ║ REAL*4  ║
║ DSINH(X)   ║ REAL*8 ú¿»Ñαí. ß¿¡πß  ║   REAL*8 ║ REAL*8  ║
║                                                         ║
║ â¿»Ñαí«½¿τÑ߬¿⌐ ¬«ß¿¡πß                                 ║
║ COSH(«íΘÑÑ)║ ú¿»Ñαí«½¿τ. ¬«ß¿¡πß   ║   REAL*4 ║ REAL*4  ║
║            ║                       ║   REAL*8 ║ REAL*8  ║
║ COSH(X)    ║ REAL*4 ú¿»Ñαí. ¬«ß¿¡πß║   REAL*4 ║ REAL*4  ║
║ DCOSH(X)   ║ REAL*8 ú¿»Ñαí. ¬«ß¿¡πß║   REAL*8 ║ REAL*8  ║
-----------------------------------------------------------


___________________________________________________________
║ â¿»Ñαí«½¿τÑ߬¿⌐ Γá¡úÑ¡ß                                 ║
║ TANH(«íΘÑÑ)║ ú¿»Ñαí«½¿τ. Γá¡úÑ¡ß   ║   REAL*4 ║ REAL*4  ║
║            ║                       ║   REAL*8 ║ REAL*8  ║
║ TANH(X)    ║ REAL*4 ú¿»Ñαí. Γá¡úÑ¡ß║   REAL*4 ║ REAL*4  ║
║ DTANH(X)   ║ REAL*8 ú¿»Ñαí. Γá¡úÑ¡ß║   REAL*8 ║ REAL*8  ║
║                                                         ║
║ ïѬ߿τÑ߬¿ í«½∞ΦÑ ¿½¿ αáó¡« [7]                         ║
║ LGE(C1,C2) ║ »Ñαóδ⌐ »áαá¼ÑΓα í«½∞ΦÑ║ CHARACTER║ LOGICAL ║
║            ║ ¿½¿ αáóÑ¡ óΓ«α«¼π     ║          ║         ║
║                                                         ║
║ ïѬ߿τÑ߬¿ í«½∞ΦÑ [7]                                   ║
║ LGT(C1,C2) ║ »Ñαóδ⌐ »áαá¼ÑΓα í«½∞ΦÑ║ CHARACTER║ LOGICAL ║
║            ║ óΓ«α«ú«               ║          ║         ║
║                                                         ║
║ ïѬ߿τÑ߬¿ ¼Ñ¡∞ΦÑ ¿½¿ αáó¡« [7]                         ║
║ LLT(C1,C2) ║ »Ñαóδ⌐ »áαá¼ÑΓα ¼Ñ¡∞ΦÑ║ CHARACTER║ LOGICAL ║
║            ║ ¿½¿ αáóÑ¡ óΓ«α«¼π     ║          ║         ║
║                                                         ║
║ ïѬ߿τÑ߬¿ ¼Ñ¡∞ΦÑ [7]                                   ║
║ LLT(C1,C2) ║ »Ñαóδ⌐ »áαá¼ÑΓα ¼Ñ¡∞ΦÑ║ CHARACTER║ LOGICAL ║
║            ║ óΓ«α«ú«               ║          ║         ║
╚════════════╩═══════════════════════╩══════════╩═════════╝

╔════════════╦═══════════════════════╦══════════╦═════════╗
║    êîƒ     ║       ìÇçìÇùàìêà      ║ÆêÅ ÅÇÉÇî.║ÆêÅ ö    ║
╠════════════╩═══════════════════════╩══════════╩═════════╣
║ 諡ѵ Σá⌐½á [8]                                         ║
║ EOF(I)     ║ µÑ½δ⌐ ¬«¡Ñµ Σá⌐½á     ║  INTEGER ║ LOGICAL ║
╚════════════╩═══════════════════════╩══════════╩═════════╝
    Æáí½¿µá 5-1. éßΓα«Ñ¡¡δÑ Σπ¡¬µ¿¿.

     Åα¿¼Ñτá¡¿∩ ¬ Γáí½¿µÑ 5-1:
1.    ä½∩ ò Γ¿»á INTEGER INT(X)=X. ä½∩ ò Γ¿»á REAL ¿½¿ REAL*8, Ñß½¿
     ò - ¡Ñ«Γα¿µáΓѽ∞¡«, Γ« INT(X) - ¡á¿í«½∞ΦÑÑ µÑ½«Ñ, ¡Ñ »αÑóδ-
     ΦáεΘÑÑ ò; á Ñß½¿ ò - «Γα¿µáΓѽ∞¡«, Γ« INT(X) - ¡á¿í«½∞ΦÑÑ
     «Γα¿µáΓѽ∞¡«Ñ  µÑ½«Ñ ¡Ñ ¼Ñ¡∞ΦÑÑ τѼ ò. ä½∩ ò Γ¿»á REAL IFIX(X)
     Γ« ªÑ ßἫÑ, τΓ« INT(X).
2.   ä½∩ ò Γ¿»á REAL REAL*(X)=X. ä½∩ ò Γ¿»á INTEGER ¿½¿  REAL*8
     REAL(X) φΓ« º¡áτáΘá∩ τáßΓ∞ ¡á¿í«½∞ΦÑ⌐ Γ«τ¡«ßΓ¿ ò, ¬«Γ«απε
     ¼«ªÑΓ ß«ñÑαªáΓ∞ ñá¡¡δ⌐ Γ¿» REAL. ä½∩ ò Γ¿»á INTEGER FLOAT(X) -
      Γ« ªÑ ßἫÑ, τΓ« REAL(X).
3.   ä½∩ ò Γ¿»á REAL*8 DBLE(X)=X. ä½∩ ò Γ¿»á INTEGER ¿½¿ REAL
     DBLE(X) - φΓ« º¡áτáΘá∩ τáßΓ∞ ¡á¿í«½∞ΦÑ⌐ Γ«τ¡«ßΓ¿ ò, ¬«Γ«απε
     ¼«ªÑΓ ß«ñÑαªáΓ∞ Γ¿» ñá¡¡δσ ñó«⌐¡«⌐ Γ«τ¡«ßΓ¿.
4.   COMPLEX ¿ DCMPLX ¼«úπΓ ¿¼ÑΓ∞ «ñ¿¡ ¿½¿ ñóá »áαá¼ÑΓαá.  àß½¿ ¿ß-
     »«½∞º«óá¡ «ñ¿¡ »áαá¼ÑΓα, «¡ ¼«ªÑΓ íδΓ∞ Γ¿»á
     INTEGER, REAL, DOUBLE PRECISION, COMPLEX ¿½¿ DOUBLE PRECISION
     COMPLEX. àß½¿ ¿ß»«½∞º«óá¡δ ñóá »áαá¼ÑΓαá, Γ« «¡¿ ñ«½ª¡δ íδΓ∞
     «ñ¡«ú« ¿ Γ«ú« ªÑ Γ¿»á ¿ »α¿ φΓ«¼ ñ«»πßΓ¿¼δ Γ¿»δ INTEGER, REAL
     ¿½¿ DOUBLE PRECISION.
     Åα¿ Z=COMPLEX*8, COMPLEX(Z)=Z. ä½∩ Z=INTEGER, REAL ¿ REAL*8
     COMPLEX(Z)=¬«¼»½Ñ¬ß¡«⌐ óѽ¿τ¿¡Ñ, ñÑ⌐ßΓó¿Γѽ∞¡á∩ τáßΓ∞ ¬«Γ«α«⌐
     REAL(Z), á ¼¡¿¼á∩ τáßΓ∞ αáó¡á ¡π½ε.
     COMPLEX(X,Y)= ¬«¼»½Ñ¬ß¡«⌐ óѽ¿τ¿¡Ñ, ñÑ⌐ßΓó¿Γѽ∞¡á∩ τáßΓ∞ ¬«-
     Γ«α«⌐ - REAL(X), á ¼¡¿¼á∩ - REAL(Y).



     Åα¿ Z=COMPLEX*16, DCMPLX(Z)=Z. ä½∩ Z=INTEGER, REAL ¿ REAL*8
     DCMPL(Z)=¬«¼»½Ñ¬ß¡«⌐ óѽ¿τ¿¡Ñ, 𠬫ëα«⌐ ñÑ⌐ßΓó¿Γѽ∞¡á∩ τáßΓ∞
     - REAL*8, á ¼¡¿¼á∩ αáó¡á ¡π½ε. ä½∩ Z=COMPLEX*8 DCMPLX(Z) ¿¼ÑÑΓ
     ñÑ⌐ßΓó¿Γѽ∞¡πε τáßΓ∞ αáó¡«⌐ DBLE(Z), á ¼¡¿¼πε αáó¡«⌐
     DBLE(AIMAG(Z)).
     DCMPLX(X,Y)=¬«¼»½Ñ¬ß¡«⌐ óѽ¿τ¿¡Ñ, 𠬫ëα«⌐ ñÑ⌐ßΓó¿Γѽ∞¡á∩
     τáßΓ∞ - REAL*8(X), á ¼¡¿¼á∩ - REAL*8(Y).
5.   ICHAR »αÑ«íαáºπÑΓ ß¿¼ó«½∞¡πε óѽ¿τ¿¡π ó µÑ½πε. ûѽá∩ óѽ¿τ¿¡á
     ß¿¼ó«½á - φΓ« ó¡πΓαÑ¡¡ÑÑ »αÑñßΓáó½Ñ¡¿Ñ ß¿¼ó«½á ó ¬«ñÑ ASCII,
     ½ÑªáΘÑÑ ó ñ¿á»áº«¡Ñ «Γ 0 ñ« 255.
     ä½∩ ½εíδσ ñóπσ ß¿¼ó«½«ó æ1 ¿ æ2 (æ1.LE.C2) íπñÑΓ .TRUE. Γ«úñá
     ¿ Γ«½∞¬« Γ«úñá Ñß½¿ (ICHAR(C1).LE.ICHAR(C2)) ÑßΓ∞ .TRUE.
     öπ¡¬µ¿∩ CHAR(I) ó«ºóαáΘáÑΓ 1-⌐ ß¿¼ó«½ Γáí½¿µ ASCII. ¥Γ« óÑ-
     ½¿τ¿¡á Γ¿»á CHARACTER ñ½¿¡«⌐ «ñ¿¡ ß¿¼ó«½, »α¿ φΓ«¼ I ñ«½ª¡«
     íδΓ∞ µÑ½δ¼ óδαáªÑ¡¿Ñ¼, óѽ¿τ¿¡á ¬«Γ«α«ú« »α¿¡áñ½Ñª¿Γ ñ¿á»áº«¡π
     0≤i≤255.
     ICHAR(CHAR(I))=I ñ½∩ 0≤I≤255
     CHAR(ICHAR(C))=C ñ½∩ ½εí«ú« æ ¿º ¡áí«αá ASCII
6.   DIM(X,Y) - φΓ« ò-Y, Ñß½¿ X>Y, ¿½¿ ¡π½∞ ó »α«Γ¿ó¡«¼ ß½πτáÑ.
7.   LGE(X,Y) ó«ºóαáΘáÑΓ .TRUE. Ñß½¿ ò=Y ¿½¿ Ñß½¿ ò ß½ÑñπÑΓ ºá Y
     ó Γáí½¿µÑ ¬«ñ«ó ASCII; ¿¡áτÑ ó«ºóαáΘáÑΓß∩ .FALSE.
     LGT(X,Y) ó«ºóαáΘáÑΓ .TRUE. Ñß½¿ ò ß½ÑñπÑΓ ºá Y ó Γáí½¿µÑ ¬«ñ«ó
     ASCII; ¿¡áτÑ ó«ºóαáΘáÑΓß∩ .FALSE.
     LLE(X,Y) ó«ºóαáΘáÑΓ .TRUE. Ñß½¿ X=Y ¿½¿ Ñß½¿ ò »αÑñΦÑóßΓóπÑΓ
     Y ó Γáí½¿µÑ ASCII; ¿¡áτÑ ó«ºóαáΘáÑΓß∩ .FALSE.
     LLT(X,Y) ó«ºóαáΘáÑΓ .TRUE. Ñß½¿ ò »αÑñΦÑóßΓóπÑΓ Y ó Γáí½¿µÑ
     ASCII; ¿¡áτÑ ó«ºóαáΘáÑΓß∩ .FALSE.
     àß½¿ π «»Ñαá¡ñ«ó ¡Ñαáó¡á∩ ñ½¿¡á, Γ« í«½ÑÑ ¬«α«Γ¬¿⌐ ñ«»«½¡∩ÑΓß∩
     ß»αáóá »α«íѽἿ.
8.   EOF(X) ó«ºóαáΘáÑΓ .TRUE. Ñß½¿ πßΓα«⌐ßΓó«, «»αÑñѽѡ¡«Ñ φΓ¿¼
     »áαá¼ÑΓα«¼ ¡áσ«ñ¿Γß∩ ¡á ¿½¿ »«ß½Ñ ºá»¿ß¿ ¬«¡Ñµ-Σá⌐½á; ¿¡áτÑ
     ó«ºóαáΘáÑΓß∩ .FALSE. éѽ¿τ¿¡á ò ñ«½ª¡á ß««ΓóÑΓßΓó«óáΓ∞ «Γ¬αδ-
     Γ«¼π Σá⌐½π ¿½¿ ¡π½ε, τΓ« ß««ΓóÑΓßΓóπÑΓ φ¬αá¡π ¿½¿ ¬½áó¿áΓπαÑ.

3.3.öπ¡¬µ¿¿-«»ÑαáΓ«αδ.

     öπ¡¬µ¿∩-«»ÑαáΓ«α «»αÑñѽѡá Ññ¿¡ßΓóÑ¡¡δ¼ «»ÑαáΓ«α«¼ ¿ »« ó¿ñπ
»«ñ«í¡á «»ÑαáΓ«απ »α¿ßóá¿óá¡¿∩. öπ¡¬µ¿∩-«»ÑαáΓ«α ¼«ªÑΓ »«∩ó¿Γ∞ß∩
Γ«½∞¬« »«ß½Ñ «»ÑαáΓ«α«ó «»¿ßá¡¿∩ ¿ »ÑαÑñ ½εí묨 óδ»«½¡∩Ñ¼δ¼¿ «»Ñαá-
Γ«αἿ ó »α«úαá¼¼¡«⌐ Ññ¿¡¿µÑ.
     öπ¡¬µ¿∩-«»ÑαáΓ«α ¡Ñ ∩ó½∩ÑΓß∩ óδ»«½¡∩Ñ¼δ¼ «»ÑαáΓ«α«¼, Γᬠ¬á¬
«¡á ¡Ñ óδ»«½¡∩ÑΓß∩, ¬á¬ ßΓ«∩Θá∩ »Ñαó«⌐ ó ¬«¡¬αÑΓ¡«⌐ »α«úαá¼¼¡«⌐
Ññ¿¡¿µÑ. Äñ¡á¬«, Γѽ« Σπ¡¬µ¿¿-«»ÑαáΓ«αá ¿ß»«½∞ºπÑΓß∩ ñ½∩ «»αÑñѽÑ-
¡¿∩ º¡áτÑ¡¿∩ Σπ¡¬µ¿¿-«»ÑαáΓ«αá. Ä¡á óδ»«½¡∩ÑΓß∩, ¬á¬ ¿ ½εíá∩ ñαπúá∩
Σπ¡¬µ¿∩ »α¿ óδτ¿ß½Ñ¡¿¿ ßß佬¿ ¡á Σπ¡¬µ¿ε ó óδαáªÑ¡¿¿.
     ä½∩ ¿¡Σ«α¼áµ¿¿ « ß¿¡Γá¬ß¿ßÑ ¿ ¿ß»«½∞º«óá¡¿¿ Σπ¡¬µ¿¿-«»ÑαáΓ«αá
ß¼«Γα¿ΓÑ τáßΓ∞ 3 "Ä»ÑαáΓ«αδ".



4.ÅÇÉÇîàÆÉ¢.

     ö«α¼á½∞¡δ⌐ »áαá¼ÑΓα - φΓ« ¿¼∩, ß »«¼«Θ∞ε ¬«Γ«α«ú« »áαá¼ÑΓα
»ÑαÑñáÑΓß∩ Σπ¡¬µ¿¿ ¿½¿ »«ñ»α«úαá¼¼Ñ; Σá¬Γ¿τÑ߬¿⌐ »áαá¼ÑΓα - φΓ«
π¬áºá¡¡á∩ »ÑαѼѡ¡á∩, óδαáªÑ¡¿Ñ, ¼áßß¿ó ¿ Γ.ñ., »ÑαÑñáóáѼδ⌐
»α«µÑñπαÑ »α¿ ¬«¡¬αÑΓ¡«¼ ÑÑ ó맮óÑ. éºá¿¼«ñÑ⌐ßΓó¿Ñ ¼Ñªñπ Σ«α¼á½∞-
¡δ¼¿ ¿ Σá¬Γ¿τÑ߬¿¼¿ »áαá¼ÑΓαἿ ó Σπ¡¬µ¿¿ ¿½¿ »«ñ»α«úαá¼¼Ñ ñÑΓá½∞¡«
αá߬αδóáÑΓß∩ ¡¿ªÑ.
     Åáαá¼ÑΓαδ »ÑαÑñáεΓ óѽ¿τ¿¡δ ¿ íÑαπΓ ¿σ ¿º »α«µÑñπαδ ßß佫τ¡δ¼
«íαẫ¼. ù¿ß½« ñÑ⌐ßΓó¿Γѽ∞¡δσ »áαá¼ÑΓα«ó ñ«½ª¡« ß«ó»áñáΓ∞ ß τ¿ß½«¼
Σ«α¼á½∞¡δσ »áαá¼ÑΓα«ó ¿ »α¿ φΓ«¼ ¿σ Γ¿»δ ñ«½ª¡δ íδΓ∞ ß«ú½áß«óá¡δ.
     ìá óσ«ñÑ ó »«ñ»α«úαá¼¼π ¿½¿ Σπ¡¬µ¿ε Σá¬Γ¿τÑ߬¿Ñ »áαá¼ÑΓαδ
ßó∩ºδóáεΓß∩ ß Σ«α¼á½∞¡δ¼¿, ó« ¼¡«ú«¼ »«ñ«í¡« Γ«¼π ¬á¬ «»ÑαáΓ«α
EQUIVALENCE ßó∩ºδóáÑΓ ñóá ¿½¿ í«½ÑÑ ¼áßß¿óá ¿½¿ »ÑαѼѡ¡δÑ, á
«»ÑαáΓ«α COMMON ó ñóπσ ¿½¿ ¡Ñ߬«½∞¬¿σ »α«úαá¼¼¡δσ Ññ¿¡¿µáσ ßó∩ºδ-
óáÑΓ ß»¿ß¬¿ »ÑαѼѡ¡δσ. ¥Γá ßó∩º∞ ñÑ⌐ßΓóπÑΓ, »«¬á ¡Ñ ºá¬«¡τ¿½«ß∞
óδ»«½¡Ñ¡¿Ñ »«ñ»α«úαá¼¼δ ¿½¿ Σπ¡¬µ¿¿. Å«φΓ«¼π »α¿ßó«Ñ¡¿Ñ óѽ¿τ¿¡δ
Σ«α¼á½∞¡«¼π »áαá¼ÑΓαπ ó« óαѼ∩ óδ»«½¡Ñ¡¿∩ »«ñ»α«úαá¼¼δ ¿½¿ Σπ¡¬µ¿¿
¼«ªÑΓ ¿º¼Ñ¡¿Γ∞ óѽ¿τ¿¡π ß««ΓóÑΓßΓóπεΘÑú« Σá¬Γ¿τÑ߬«ú« »áαá¼ÑΓαá.
     àß½¿ Σá¬Γ¿τÑ߬¿⌐ »áαá¼ÑΓα - ¬«¡ßΓá¡Γá, ßßδ½¬á ¡á Σπ¡¬µ¿ε ¿½¿
óδαáªÑ¡¿Ñ, á ¡Ñ »α«ßΓá∩ »ÑαѼѡ¡á∩, Γ« »α¿ßó«Ñ¡¿Ñ óѽ¿τ¿¡δ ß««Γ-
óÑΓßΓóπεΘѼπ Σ«α¼á½∞¡«¼π »áαá¼ÑΓαπ ¡Ññ«»πßΓ¿¼« ¿ ¼«ªÑΓ óδºóáΓ∞
¡Ñ»αÑñ߬áºπѼδÑ »«ß½ÑñßΓó¿∩. é τáßΓ¡«ßΓ¿, »α¿ßó«Ñ¡¿Ñ óѽ¿τ¿¡δ Σ«α-
¼á½∞¡«¼π »áαá¼ÑΓαπ Γ¿»á CHARACTER, ¬«úñá Σá¬Γ¿τÑ߬¿⌐ »áαá¼ÑΓα -
½¿ΓÑαá½, ¼«ªÑΓ óδºóáΓ∞ ¡Ñ¡«α¼á½∞¡«Ñ »«óÑñÑ¡¿Ñ.
     àß½¿ Σá¬Γ¿τÑ߬¿⌐ »áαá¼ÑΓα - óδαáªÑ¡¿Ñ, Γ« «¡« óδτ¿ß½∩ÑΓß∩
¡Ñ¼Ññ½Ñ¡¡«, ÑΘÑ ñ« πßΓá¡«ó½Ñ¡¿∩ ßó∩º¿ Σ«α¼á½∞¡δσ ¿ Σá¬Γ¿τÑ߬¿σ
»áαá¼ÑΓα«ó. àß½¿ Σá¬Γ¿τÑ߬¿⌐ »áαá¼ÑΓα - φ½Ñ¼Ñ¡Γ ¼áßß¿óá, Ñú« ¿¡-
ñѬߡδÑ óδαáªÑ¡¿∩ óδτ¿ß½∩εΓß∩ Γ«ªÑ ñ« πßΓá¡«ó½Ñ¡¿∩ ßó∩º¿ ¿ «ßΓáεΓß∩
»«ßΓ«∩¡¡δ¼¿ ó« óαѼ∩ óδ»«½¡Ñ¡¿∩ »α«µÑñπαδ, ñáªÑ Ñß½¿ «¡¿ ß«ñÑαªáΓ
»ÑαѼѡ¡δÑ, ¬«Γ«αδÑ »ÑαÑ«»αÑñѽ∩εΓß∩ ó« óαѼ∩ óδ»«½¡Ñ¡¿∩ »α«µÑñπαδ.
     ö«α¼á½∞¡δ⌐ »áαá¼ÑΓα, «»¿ßá¡¡δ⌐ ¬á¬ »ÑαѼѡ¡á∩, ¼«ªÑΓ íδΓ∞
ßó∩ºá¡ ß Σá¬Γ¿τÑ߬¿¼ »áαá¼ÑΓα«¼ - »ÑαѼѡ¡«⌐, φ½Ñ¼Ñ¡Γ«¼ ¼áßß¿óá,
óδαáªÑ¡¿Ñ¼. ö«α¼á½∞¡δ⌐ »áαá¼ÑΓα, «»¿ßá¡¡δ⌐ ¬á¬ »ÑαѼѡ¡δ⌐ ó«ºóαáΓ
(*) ¼«ªÑΓ íδΓ∞ ßó∩ºá¡ ß «»αÑñѽ¿ΓѽѼ »ÑαѼѡ¡«ú« ó«ºóαáΓá (*n) ó
«»ÑαáΓ«αÑ CALL ¿ ∩ó½∩ÑΓß∩ »«óΓ«α∩Ѽδ¼.
     ö«α¼á½∞¡δ⌐ »áαá¼ÑΓα, «»¿ßá¡¡δ⌐ ¬á¬ ¼áßß¿ó, ¼«ªÑΓ íδΓ∞ ßó∩ºá¡
ß Σá¬Γ¿τÑ߬¿¼ »áαá¼ÑΓα«¼, ∩ó½∩εΘ¿¼ß∩ ¼áßß¿ó«¼ ¿½¿ φ½Ñ¼Ñ¡Γ«¼ ¼áß-
ß¿óá. ù¿ß½« ¿ αẼÑα αẼÑα¡«ßΓÑ⌐ Σ«α¼á½∞¡«ú« »áαá¼ÑΓαá ¼«úπΓ íδΓ∞
«Γ½¿τ¡δ «Γ φΓ¿σ σáαá¬ΓÑα¿ßΓ¿¬ Σá¬Γ¿τÑ߬«ú« »áαá¼ÑΓαá, ¡« ½εíá∩
ßßδ½¬á ¡á Σ«α¼á½∞¡δ⌐ ¼áßß¿ó ñ«½ª¡á íδΓ∞ ó »αÑñѽáσ »á¼∩Γ¿, «ΓóÑ-
ñÑ¡¡«⌐ »«ñ Σá¬Γ¿τÑ߬¿⌐ ¼áßß¿ó. è«úñá ßßδ½¬á ¡á φ½Ñ¼Ñ¡Γ óδσ«ñ¿Γ ºá
úαá¡¿µδ, φΓ« ¡Ñ Σ¿¬ß¿απÑΓß∩ ¬á¬ «Φ¿í¬á »α¿ ¿ß»«½¡Ñ¡¿Ñ »α«úαá¼¼δ
¡á îæ-ö«αΓαá¡Ñ ¿ αѺπ½∞ΓáΓ ¡Ñ»αÑñ߬áºπѼ.
     ö«α¼á½∞¡δ⌐ »áαá¼ÑΓα ¼«ªÑΓ íδΓ∞ Γá¬ªÑ ßó∩ºá¡ ß ó¡ÑΦ¡Ñ⌐ »«ñ»α«ú-
α󼼫⌐, Σπ¡¬µ¿Ñ⌐ ¿½¿ óßΓα«Ñ¡¡«⌐ Σπ¡¬µ¿Ñ⌐, Ñß½¿ «¡ ¿ß»«½∞ºπÑΓß∩ ó
ΓÑ½Ñ »α«µÑñπαδ ¬á¬ ßßδ½¬á ¡á »«ñ»α«úαá¼¼π ¿½¿ Σπ¡¬µ¿ε ¿½¿ «¡ »«-
∩ó½∩ÑΓß∩ ó «»ÑαáΓ«αÑ EXTERNAL.
     æ««ΓóÑΓßΓóπεΘ¿⌐ Σá¬Γ¿τÑ߬¿⌐ »áαá¼ÑΓα ñ«½ªÑ¡ íδΓ∞ ó¡ÑΦ¡Ñ⌐ »«ñ-
»α«úαá¼¼«⌐ ¿½¿ Σπ¡¬µ¿Ñ⌐, «íΩ∩ó½Ñ¡¡«⌐ ó «»ÑαáΓ«αÑ EXTERNAL ¿½¿
óßΓα«Ñ¡¡«⌐ Σπ¡¬µ¿Ñ⌐, ¬«Γ«απε ñ«»π߬áÑΓß∩ ßó∩ºδóáΓ∞ ß Σ«α¼á½∞¡δ¼
»áαá¼ÑΓα«¼ »α«µÑñπαδ. éßΓα«Ñ¡¡δÑ Σπ¡¬µ¿¿ ñ«½ª¡δ íδΓ∞ «íΩ∩ó½Ñ¡δ ó
«»ÑαáΓ«αÑ INTRISIC ó »α«úαá¼¼¡«⌐ Ññ¿¡¿µÑ, úñÑ «¡¿ ¿ß»«½∞ºπεΓß∩ ¬á¬
Σá¬Γ¿τÑ߬¿Ñ »áαá¼ÑΓαδ.
     éßÑ óßΓα«Ñ¡¡δÑ Σπ¡¬µ¿¿, ºá ¿ß¬½ετÑ¡¿Ñ¼ ¡¿ªÑπ¬áºá¡¡δσ, ¼«úπΓ
íδΓ∞ ßó∩ºá¡δ ß Σ«α¼á½∞¡δ¼¿ »áαá¼ÑΓαἿ »α«µÑñπαδ:
          INT   SNGL     CHAR    MAX0    MIN0
          INT2  REAL     LGE     AMAX1   AMIN1
          INT4  DBLE     LGT     DMAX1   DMIN1
          IFIX  COMPLX   LLE     AMAX0   AMIN0
          IDINT DCMPLX   LLT     MAX1    MIN1
          FLOAT ICHAR    MAX     MIN



5.ÅàÉàäÇùÇ ûàï¢ò ÅÇÉÇîàÆÉÄé.

     ÅÑαѼѡ¡á∩ INTEGER*2 ¡Ñ ¼«ªÑΓ íδΓ∞ »ÑαÑñá¡á Σ«α¼á½∞¡«¼π
»áαá¼ÑΓαπ INTEGER*4, á »ÑαѼѡ¡á∩ INTEGER*4 ¡Ñ ¼«ªÑΓ íδΓ∞ »ÑαÑñá¡á
Σ«α¼á½∞¡«¼π »áαá¼ÑΓαπ INTEGER*2. ÅÑαÑñáτá ¡ÑóÑα¡«ú« Γ¿»á »ÑαѼѡ¡«⌐
»«α«ªñáÑΓ «Φ¿í¬π ¬«¼»¿½∩µ¿¿. éδ ñ«½ª¡δ ¿ß»«½∞º«óáΓ∞ óßΓα«Ñ¡¡δÑ
Σπ¡¬µ¿¿ INT4 ¿ INT2. Æá¬ªÑ »α¿ ñÑ⌐ßΓó¿¿ $STORAGE:4 »« π¼«½τá¡¿ε
óδαáªÑ¡¿∩ ß »áαá¼ÑΓαἿ INTEGER*2 íπñπΓ ¿¼ÑΓ∞ αѺπ½∞ΓáΓ Γ¿»á
INTEGER*4. æ½ÑñπεΘá∩ »α«úαá¼¼á:
               SUBROUTINE S(I)
               INTEGER*2 I
               .  .  .
               END
               INTEGER*2 J,K
               CALL S(J+K)
ñáÑΓ «Φ¿í¬π, »«φΓ«¼π J+K - INTEGER*4. éδ ñ«½ª¡δ ¡á»¿ßáΓ∞ ó맮ó
»«ñ»α«úαá¼¼δ Γá¬
               CALL S(INT2(J+K))
     諼»¿½∩Γ«α »α¿ «»Γ¿¼¿ºáµ¿¿ »«¡¿ªáÑΓ ßΓѻѡ∞ Γ«τ¡«ßΓ¿ áα¿Σ¼Ñ-
Γ¿¬¿, Ñß½¿ φΓ« ¡Ñ ó½¿∩ÑΓ ¡á αѺπ½∞ΓáΓ ¿ ¡Ñ πßΓá¡«ó½Ñ¡« $DEBUG.
ìá»α¿¼Ñα, Ñß½¿ ¡Ñ πßΓá¡«ó½Ñ¡« $DEBUG, áα¿Σ¼ÑΓ¿¬á ó
               INTEGER2 I,J,K
               I=J+K
 - 16-Γ¿ αáºα∩ñ¡á∩ áα¿Σ¼ÑΓ¿¬á, ñáªÑ Ñß½¿ «»αÑñѽѡ« $STORAGE:4.
êß»«½∞º«óá¡¿Ñ $STORAGE:4 ¡Ñ ñÑ⌐ßΓóπÑΓ ¡á óδαáªÑ¡¿∩ INTEGER*2 »α¿
¿ß»«½∞º«óá¡¿¿ ó ¡Ñ¼ Γ«½∞¬« «»ÑαáΓ«α«ó +, - ¿½¿ *, »«φΓ«¼π τΓ« αÑ-
ºπ½∞ΓáΓ ¿σ «ñ¿¡á¬«óδ⌐ ¬á¬ ó 16-αáºα∩ñ¡«⌐, Γᬠ¿ ó 32-αáºα∩ñ¡«⌐
áα¿Σ¼ÑΓ¿¬Ñ.
     ûѽδÑ »áαá¼ÑΓαδ, ¬«Γ«αδÑ »ÑαÑñáεΓß∩ óѽ¿τ¿¡á¼¿ (ß¼«Γα¿ΓÑ
"ÇΓα¿íπΓδ" ó τáßΓ¿ 7 ñ½∩ «»αÑñѽѡ¿∩ áΓα¿íπΓ«ó, ¬«Γ«αδÑ »«ºó«½∩εΓ
»ÑαÑñáóáΓ∞ »áαá¼ÑΓαδ óѽ¿τ¿¡á¼¿), ¡Ñ ∩ó½∩εΓß∩ «íΩѬΓἿ Γᬿσ ªÑ
«úαá¡¿τÑ¡¿⌐. Åáαá¼ÑΓα «íαáíáΓδóáÑΓß∩, ¬á¬ Ñß½¿ íδ Ѽπ íδ½á »α¿ßó«-
Ñ¡á óαѼѡ¡« »ÑαѼѡ¡á∩ ß««ΓóÑΓßΓóπεΘÑú« Γ¿»á, ¿ óαѼѡ¡á∩ »ÑαÑ-
¼Ñ¡¡á∩ ºáΓѼ »ÑαÑñáÑΓß∩ ¬á¬ »áαá¼ÑΓα. Åαáó¿½á »α¿ßó«Ñ¡¿∩ ñ½∩
óѽ¿τ¿¡ »áαá¼ÑΓα«ó ΓÑ ªÑ ßá¼δÑ, τΓ« ¿ »α¿ »α¿ßóá¿óá¡¿¿. éδ ¼«ªÑΓÑ,
¡á»α¿¼Ñα, »ÑαÑñáΓ∞ ñÑ⌐ßΓó¿Γѽ∞¡πε óѽ¿τ¿¡π µÑ½«¼π »áαá¼ÑΓαπ.