FORTRAN 77 ¸À¸ì¥ê¥Õ¥¡¥ì¥ó¥¹ |
Âè 5 ¾Ï
Æþ½ÐÎÏ
¤³¤Î¾Ï¤Ç¤Ï¡¢Fortran Æþ½ÐÎϤΰìÈÌŪ¤Ê³µÇ°¤Ë¤Ä¤¤¤ÆÀâÌÀ¤·¤Þ¤¹¡£¤Þ¤¿¡¢¤µ¤Þ¤¶¤Þ¤ÊÆþ½ÐÎϤμïÎà¤Ë¤Ä¤¤¤Æ¤âÀâÌÀ¤·¤Æ¤¤¤Þ¤¹¡£Æþ½ÐÎϤˤĤ¤¤Æ¤Ï¡¢¡ØFortran ¥×¥í¥°¥é¥ß¥ó¥°¥¬¥¤¥É¡Ù¤â»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£
FORTRAN 77 Æþ½ÐÎϤδðËܳµÇ°
UNIX ¥ª¥Ú¥ì¡¼¥Æ¥£¥ó¥°¥·¥¹¥Æ¥à¤Ë¤â¤È¤Å¤¤¤¿¥ª¥Ú¥ì¡¼¥Æ¥£¥ó¥°¥·¥¹¥Æ¥à¤Ï¡¢Fortran 77 ¤Û¤ÉµÏ¿½èÍý¸þ¤¤Ç¤Ï¤¢¤ê¤Þ¤»¤ó¡£UNIX ¥ª¥Ú¥ì¡¼¥Æ¥£¥ó¥°¥·¥¹¥Æ¥à¤Ï¡¢¥Õ¥¡¥¤¥ë¤òµÏ¿¤Î½¸¤Þ¤ê¤È¤·¤Æ¤Ç¤Ï¤Ê¤¯Ê¸»ú¤ÎÎó¤È¤·¤Æ°·¤¤¤Þ¤¹¡£Fortran 77 ¼Â¹Ô»þ¥·¥¹¥Æ¥à¤Ï¡¢¼Â¹Ô»þ¤Ë¥Õ¥¡¥¤¥ë½ñ¼°¤Èõºº¥â¡¼¥É¤ò¥Á¥§¥Ã¥¯¤·¤Þ¤¹¡£¤Þ¤¿¡¢Fortran 77 ¥é¥¤¥Ö¥é¥ê¤Èɸ½àÆþ½ÐÎϥ饤¥Ö¥é¥ê¤ò´Þ¤à¥Õ¥¡¥¤¥ëµ¡Ç½¤òÄ󶡤·¤Þ¤¹¡£
ÏÀÍý¥æ¥Ë¥Ã¥È
¥×¥í¥°¥é¥à¤¬ 1 Å٤˳«¤¯¤³¤È¤¬¤Ç¤¤ëÏÀÍý¥æ¥Ë¥Ã¥È¤ÎºÇÂç¿ô¤Ï¡¢Fortran 77 ¤Î¥Ç¥Õ¥©¥ë¥È¤Ç¤Ï 64 ¤Ç¤¹¡£Solaris ¤Ç¤Ï¡¢¤³¤ÎÀ©¸Â¤Ï 256 ¤Ç¤¹¡£Fortran 77 ¥×¥í¥°¥é¥à¤Ï¡¢
setrlim()
´Ø¿ô¤ò¸Æ¤Ó½Ð¤¹¤³¤È¤Ë¤è¤Ã¤Æ¡¢¤³¤ÎÀ©¸Â¤ò 65 °Ê¾å¤ËÁý²Ã¤¹¤ë¤³¤È¤¬¤Ç¤¤Þ¤¹¡£setrlim
(2) ¤Î¥Þ¥Ë¥å¥¢¥ë¥Ú¡¼¥¸¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£csh
¤ò¼Â¹Ô¤·¤Æ¤¤¤ë¾ì¹ç¤Ï¡¢limit
¤Þ¤¿¤Ïunlimit
¥³¥Þ¥ó¥É¤Ç¤âƱ¤¸¤³¤È¤¬¤Ç¤¤Þ¤¹¡£csh(1) ¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£É¸½àÏÀÍý¥æ¥Ë¥Ã¥È 0¡¢5¡¢¤ª¤è¤Ó 6 ¤Ï¡¢¤½¤ì¤¾¤ì ɸ½à¥¨¥é¡¼
¡¢
ɸ½àÆþÎÏ¡¢
ɸ½à½ÐÎϤȤ·¤Æ»öÁ°¤Ë·ë¹ç¤µ¤ì¤Æ¤¤¤Þ¤¹¡£¤³¤ì¤é¤Î̾Á°¤Ï¡¢¼ÂºÝ¤Î¥Õ¥¡¥¤¥ë̾¤Ç¤Ï¤Ê¤¤¤Î¤Ç³ÆÁõÃÖ¤ò³«¤¯¤¿¤á¤Ë¤Ï»ÈÍѤǤ¤Þ¤»¤ó¡£INQUIRE
ʸ¤Ï¤³¤ì¤é¤Î̾Á°¤òÌᤵ¤º¡¢¾åµ¤ÎÁõÃ֤ˤϡ¢¼Â¥Õ¥¡¥¤¥ë¤ËÂФ·¤Æ³«¤«¤ì¤Æ¤¤¤Ê¤¤¤«¤®¤ê̾Á°¤¬¤Ê¤¤¤³¤È¤ò¼¨¤·¤Þ¤¹¡£¤·¤«¤·OPEN
ʸ¤ò»ÈÍѤ·¤Æ¤³¤ì¤é¤ÎÁõÃÖ¤òºÆÄêµÁ¤¹¤ë¤³¤È¤¬¤Ç¤¤Þ¤¹¡£°ÊÁ°¤Ë·ë¹ç¤µ¤ì¤¿ÏÀÍý¥æ¥Ë¥Ã¥È¤Î¥Ç¥Õ¥©¥ë¥È¤Î¥Õ¥¡¥¤¥ë̾¤Ç¥Õ¥¡¥¤¥ë¤ò³«¤¤¿¤¤¤È¤¤Ï¡¢¤½¤ÎÁõÃÖ¤ò¤Þ¤ºÊĤ¸¤Æ¤¯¤À¤µ¤¤¡£É¸½àÁõÃÖ¤òºÆÄêµÁ¤¹¤ë¤ÈÄ̾ï¤Î¥³¥ó¥½¡¼¥ëÆþ½ÐÎϤ¬Â»¤Ê¤ï¤ì¤ë¤³¤È¤¬¤¢¤ê¤Þ¤¹¡£ÂåÂØÊýË¡¤Ï¥·¥§¥ë¤Ë¤è¤ëÀÚ¤êÂؤ¨¤ò»ÈÍѤ·¤Æ¡¢¾åµ¤ÎÁõÃÖ¤ò³°ÉôŪ¤ËºÆÄêµÁ¤¹¤ë¤³¤È¤Ç¤¹¡£
¥Ç¥Õ¥©¥ë¥È¶õÇòÀ©¸æ¤äɸ½àÆþ½ÐÎÏ¥Õ¥¡¥¤¥ë¤Î½ñ¼°¤òºÆÄêµÁ¤¹¤ë¾ì¹ç¤Ï¡¢
OPEN
ʸ¤ÇÁõÃÖÈÖ¹æ¤ò»ØÄꤷ¡¢¥Õ¥¡¥¤¥ë̾¤Ï»ØÄꤷ¤Ê¤¤¤Ç¤¯¤À¤µ¤¤¡£¤Þ¤¿´õ˾¤¹¤ë¶õÇòÀ©¸æ¤Î¼ïÎà¤ò¥ª¥×¥·¥ç¥ó¤ÇÀßÄꤷ¤Æ¤¯¤À¤µ¤¤¡£Æþ½ÐÎÏ¥¨¥é¡¼
Æþ½ÐÎϽèÍýÃæ¤Ë¥¨¥é¡¼¤¬¸¡½Ð¤µ¤ì¤ë¤È¡¢Âå¤ï¤ê¤È¤Ê¤ëÆ°ºî¤¬¥×¥í¥°¥é¥à¤ÎÃæ¤ÇÆäËÍ¿¤¨¤é¤ì¤Æ¤¤¤Ê¤±¤ì¤Ð¡¢¥×¥í¥°¥é¥à¤Ï½èÍý¤ò°Û¾ï½ªÎ»¤·¤Þ¤¹¡£Æþ½ÐÎÏʸ¤Ë
ERR=
(¤ª¤è¤ÓIOSTAT=
) ¹àÌܤò´Þ¤á¤Æ¡¢¥¨¥é¡¼¤òȯ¸«¤·¤¿¤È¤¤Ë¤È¤ëÂåÂØʬ´ôÀè (¤ª¤è¤ÓÆÃÄê¤Î¥¨¥é¡¼¥³¡¼¥É¤òÌ᤹¤³¤È) ¤ò»ØÄꤹ¤ë¤³¤È¤¬¤Ç¤¤Þ¤¹¡£READ
ʸ¤Ç¤Ï¡¢¥Õ¥¡¥¤¥ë¤ÎºÇ¸å¤Ë㤷¤¿½ê¤Çʬ´ô¤¹¤ë¤¿¤á¤ËEND=
n ¤ò´Þ¤á¤ë¤³¤È¤¬¤Ç¤¤Þ¤¹¡£¥Õ¥¡¥¤¥ë°ÌÃÖ¤ÈÆþ½ÐÎÏʤӹàÌܤÎÃͤϡ¢¥¨¥é¡¼¤Î¸å¤Ç¤Ï̤ÄêµÁ¤Ç¤¹¡£END=
¤ÏEOF
¤È¸í¤ê¾ò·ï¤ÎξÊý¤ò¤È¤é¤¨¤Þ¤¹¡£ERR=
¤Ï¸í¤ê¾ò·ï¤À¤±¤ò¤È¤é¤¨¤Þ¤¹¡£¥æ¡¼¥¶¡¼¤Î¥×¥í¥°¥é¥à¤¬Æþ½ÐÎÏ¥¨¥é¡¼¤òÊ᪤·¤Ê¤¤¾ì¹ç¡¢½èÍý¤ò°Û¾ï½ªÎ»¤¹¤ëÁ°¤Ë¡¢ÏÀÍý¥æ¥Ë¥Ã¥È¡¢Æþ½ÐÎϾõÂÖ¡¢¤ª¤è¤ÓÂç³ç¸Ì (
[]
) ¤Ç°Ï¤Þ¤ì¤¿¥¨¥é¡¼ÈÖ¹æ¤ò´Þ¤à¥¨¥é¡¼¥á¥Ã¥»¡¼¥¸¤¬stderr
¤Ë½ñ¤¹þ¤Þ¤ì¤Þ¤¹¡£½èÍý¤ò°Û¾ï½ªÎ»¤µ¤»¤ë¥·¥°¥Ê¥ë¤ÏIOT
¤Ç¤¹¡£1000 ̤Ëþ¤Î¥¨¥é¡¼ÈÖ¹æ¤Ï¡¢¥ª¥Ú¥ì¡¼¥Æ¥£¥ó¥°¥·¥¹¥Æ¥à¤Î¥¨¥é¡¼¤ò¼¨¤·¤Þ¤¹¡£intro(2) ¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£1000 °Ê¾å¤Î¥¨¥é¡¼ÈÖ¹æ¤Ï¡¢Æþ½ÐÎϥ饤¥Ö¥é¥ê¤Ë¸¶°ø¤¬¤¢¤ê¤Þ¤¹¡£
³°ÉôÆþ½ÐÎϤǤϡ¢¥Ð¥Ã¥¯¥¹¥Ú¡¼¥¹¤¬²Äǽ¤Ê¥Õ¥¡¥¤¥ë¤«¤é¤ÎÆɤ߼è¤êÃæ¤Ë¥¨¥é¡¼¤¬µ¯¤¤¿¾ì¹ç¡¢¸½ºß¤ÎµÏ¿¤Î°ìÉô¤¬É½¼¨¤µ¤ì¤Þ¤¹¡£ÆâÉôÆþ½ÐÎϤǤϡ¢Ê¸»úÎóÃæ¤Î¸½ºß°ÌÃ֤˿âľ¥Ð¡¼ (¡Ã) ¤òÉÕ¤±¤Æʸ»úÎó¤Î°ìÉô¤¬½ÐÎϤµ¤ì¤Þ¤¹¡£
°ìÈÌŪÀ©¸Â»ö¹à
Æþ½ÐÎÏʤӤǤϡ¢¼Â¹Ô¤µ¤ì¤¿ºÝ¤ËÆþ½ÐÎÏʸ¤Î¼Â¹Ô¤òȼ¤¦¤è¤¦¤Ê´Ø¿ô¤ò°úÍѤ·¤Ê¤¤¤Ç¤¯¤À¤µ¤¤¡£Îã¤ò¼¡¤Ë¼¨¤·¤Þ¤¹¡£
WRITE( 1, 10) Y, A + 2.0 * F(X) ! F() ¤¬Æþ½ÐÎϤò¹Ô¤¦¤Î¤Ï´Ö°ã¤¤Æþ½ÐÎϤμïÎà
f77
¤Ç¥µ¥Ý¡¼¥È¤µ¤ì¤Æ¤¤¤ëÆþ½ÐÎϤμïÎà¤Ë¤Ï¡¢½ñ¼°ÉÕ¤¡¢½ñ¼°¤Ê¤·¡¢¥Ð¥¤¥Ê¥ê © ¡¢Ê¤ӡ¢¤ª¤è¤ÓNAMELIST
¤¬¤¢¤ê¤Þ¤¹¡£¥Õ¥¡¥¤¥ë¤Ø¤Îõºº¤Ë¤Ï½çÈÖ¤ÈľÀܤȤ¤¤¦ 2 ¤Ä¤Î¥â¡¼¥É¤¬¤¢¤ê¤Þ¤¹¡£¥Õ¥¡¥¤¥ë¤ò³«¤¯¤È¡¢Ãµºº¥â¡¼¥É¤Ï½çÈÖ¤Þ¤¿¤ÏľÀܤËÀßÄꤵ¤ì¤Þ¤¹¡£¥æ¡¼¥¶¡¼¤¬ÌÀ¼¨Åª¤ËÀßÄꤷ¤Ê¤±¤ì¤Ð¡¢¥Ç¥Õ¥©¥ë¥È¤Ç½çÈÖ¤ËÀßÄꤵ¤ì¤Þ¤¹¡£
¥Õ¥¡¥¤¥ë¤Ë¤Ï³°Éô¤ÈÆâÉô¤Î 2 ¤Ä¤Î·¿¤¬¤¢¤ê¤Þ¤¹¡£³°Éô¥Õ¥¡¥¤¥ë¤Ï¡¢¤¿¤È¤¨¤Ð¥Ç¥£¥¹¥¯¤ä¥Æ¡¼¥×¤Î¤è¤¦¤ÊʪÍýŪ¤Ê¼þÊÕÁõÃÖ¾å¤Ë¾ïÃó¤·¤Þ¤¹¡£ÆâÉô¥Õ¥¡¥¤¥ë¤Ï¼çµ²±ÁõÃÖÆâ¤Ë¤¢¤ê¤Þ¤¹¡£ÆâÉô¥Õ¥¡¥¤¥ë¤Ïʸ»ú·¿¤Ç¡¢ÊÑ¿ô¡¢ÉôʬÎó¡¢ÇÛÎó¡¢ÇÛÎóÍ×ÁǤޤ¿¤Ï¹½Â¤ÂεϿ¤ÎÍó¤Î¤¤¤º¤ì¤«¤Ç¤¹¡£ÆâÉô¥Õ¥¡¥¤¥ë¤Ï¼þÊÕÁõÃ֤Τ褦¤ËÆɤ߼è¤Ã¤¿¤ê¡¢½ñ¤¹þ¤ó¤À¤ê¤¹¤ë¤³¤È¤¬¤Ç¤¤Þ¤¹¡£
Æþ½ÐÎϤÎÁȤ߹ç¤ï¤»
³°Éô¥Õ¥¡¥¤¥ë¤ÎÆþ½ÐÎÏÁȤ߹ç¤ï¤»¤ò°Ê²¼¤Îɽ¤Ë¼¨¤·¤Þ¤¹¡£
°Ê²¼¤Îɽ¤ÏÆþ½ÐÎϽñ¼°¡¢Ãµºº¥â¡¼¥É¡¢¤ª¤è¤ÓʪÍý¥Õ¥¡¥¤¥ë¤Î·¿¤ÎÁȤ߹ç¤ï¤»¤ò¼¨¤·¤Þ¤¹¡£
ʤӤˤè¤ëÆâÉô¥Õ¥¡¥¤¥ë¤Î½ñ¤¹þ¤ß¤ÏÈò¤±¤Æ¤¯¤À¤µ¤¤¡£¹Ô¿ô¤È¹ÔËè¤Î¹àÌÜ¿ô¤Ï¹àÌܤÎÃͤÇÊѤï¤ê¤Þ¤¹¡£
¥×¥ê¥ó¥È¥Õ¥¡¥¤¥ë
OPEN
ʸ¤ÎÃæ¤Çµ¬³Ê³°¤ÎFORM='PRINT'
¤ò»ÈÍѤ¹¤ë¤È¥×¥ê¥ó¥È¥Õ¥¡¥¤¥ë¤¬ÆÀ¤é¤ì¤Þ¤¹¡£©
OPEN ( ..., FORM='PRINT', ... )¤³¤Î»ØÄê»Ò¤Ï¡¢½çÈÖõºº¥Õ¥¡¥¤¥ë¤ËÂФ·¤Æ¤À¤±Í¸ú¤Ç¤¹¡£
ÄêµÁ
¥×¥ê¥ó¥È¥Õ¥¡¥¤¥ë¤Ë¤Ï°Ê²¼¤Îµ¡Ç½¤¬¤¢¤ê¤Þ¤¹¡£
- ½ñ¼°ÉÕ¤½ÐÎϤξì¹ç¡¢¤½¤ÎÏÀÍý¥æ¥Ë¥Ã¥È¤ËÂФ·¤Æ¿âľ½ñ¼°À©¸æ¤¬²Äǽ¤Ç¤¹¡£
- ·å 1 ¤Ï½ÐÎϤµ¤ì¤Þ¤»¤ó¡£
- ·å 1 ¤¬¶õÇò¡¢0¡¢¤Þ¤¿¤Ï 1 ¤Î¤È¤¤Ï¡¢¤½¤ì¤¾¤ì 1 ¹Ô¡¢2 ¹Ô¤Þ¤¿¤Ï¥Ú¡¼¥¸¤ÎÀèƬ¤Ø¹ÔÁ÷¤ê¤·¤Þ¤¹¡£
- ·å 1 ¤¬ + ¤Î¤È¤¤Ï¡¢À©¸æ½èÍý¤Ë¤è¤Ã¤ÆÁ°¤Î¹Ô¤ÎÀèƬ¤ØÌá¤ë¤è¤¦¤ÊÀ©¸æ¥·¡¼¥±¥ó¥¹¤ËÃÖ¤´¹¤¨¤é¤ì¤Þ¤¹¡£
- ʤӤˤè¤ë½ÐÎϤξì¹ç¡¢¤½¤ÎÏÀÍý¥æ¥Ë¥Ã¥È¤ËÂФ·¤Æ°Ê²¼¤Î¤â¤Î¤¬ÆÀ¤é¤ì¤Þ¤¹¡£·å 1 ¤Ï½ÐÎϤµ¤ì¤Þ¤»¤ó¡£
°ìÈ̤Ë
FORM='PRINT'
¤Ç¥Õ¥¡¥¤¥ë¤ò³«¤¯¤È¡¢Ê¤Ӥˤè¤ë½ÐÎϤϷå 1 ¤Ë Fortran 77 µ¬³Ê¤Î¶õÇò¤òÍ¿¤¨¤º¡¢FORM='PRINT'
°Ê³°¤Ç³«¤¤¤¿¾ì¹ç¤Ï¤½¤Î¶õÇò¤òÍ¿¤¨¤Þ¤¹¡£FORM='PRINT'
¤Ï¡¢1 ²ó¤Î¸Æ¤Ó½Ð¤·¤Ë¤Ä¤ 1 ¥Õ¥¡¥¤¥ë¤ËÂбþ¤·¤Þ¤¹¡£
FORM='PRINT'
¤Ç³«¤¤¤¿¥Õ¥¡¥¤¥ë¤ÎÆâÍƤϡ¢FORM='FORMATTED'
¤Ç³«¤¡¢½ÐÎÏ¥Õ¥£¥ë¥¿asa
¤Ç¥Õ¥£¥ë¥¿¤µ¤ì¤¿¤â¤Î¤ÈƱ¤¸¤Ë¤Ê¤ê¤Þ¤¹¡£
-oldldo
¥ª¥×¥·¥ç¥ó (µì¤ÎʤӤˤè¤ë½ÐÎÏ) ¤òÀßÄꤷ¤Æ¥³¥ó¥Ñ¥¤¥ë¤¹¤ë¤È¡¢¥×¥í¥°¥é¥à¤Ë¤è¤Ã¤Æ½ñ¤¹þ¤Þ¤ì¤ë¤¹¤Ù¤Æ¤Î¥Õ¥¡¥¤¥ë¤Ï¡¢·å 1 ¤Ë FORTRAN 77 µ¬³Ê¤Î¶õÇò¤òÍ¿¤¨¤º¤ËʤӤˤè¤ë½ÐÎϤò¹Ô¤¤¤Þ¤¹¤¬¡¢¤½¤ì°Ê³°¤Î¤È¤¤Î¤¹¤Ù¤Æ¤Î¥Õ¥¡¥¤¥ë¤Ï¡¢¶õÇò¤òÍ¿¤¨¤é¤ì¤Þ¤¹¡£-oldldo
¥ª¥×¥·¥ç¥ó¤ÏÂç°èŪ¤Ç¤¹¡£
INQUIRE
ʸ
INQUIRE
ʸ¤Ï¡¢'¡¢FORM
ÊÑ¿ô¤ÎÃæ¤Ç 'INQUIRE
ʸ¤Ï¡¢³«¤«¤ì¤Æ¤¤¤Ê¤¤¥Õ¥¡¥¤¥ë¤ÎÁõÃÖÈÖ¹æ¤ËÂФ·¤Æ¤Ï -1 ¤òÊÖ¤·¤Þ¤¹¡£
OPEN
¤ÎÆüìÍÑÅÓÏÀÍý¥æ¥Ë¥Ã¥È¤¬¤¹¤Ç¤Ë³«¤«¤ì¤Æ¤¤¤ë¤È¡¢
BLANK
¥ª¥×¥·¥ç¥ó¤ò»ÈÍѤ·¤¿OPEN
ʸ¤Ï²¿¤â¼Â¹Ô¤»¤º¡¢¤½¤Î¥ª¥×¥·¥ç¥ó¤ÎºÆÄêµÁ¤À¤±¤ò¹Ô¤¤¤Þ¤¹¡£µ¬³Ê³°¤Î³ÈÄ¥¤È¤·¤Æ¡¢ÏÀÍý¥æ¥Ë¥Ã¥È¤¬¤¹¤Ç¤Ë³«¤«¤ì¤Æ¤¤¤ë¤È¡¢
FORM='PRINT'
¤È
FORM='FORMATTED'
¤òÀڤ괹¤¨¤ë¤¿¤á¤Ë
FORM
¥ª¥×¥·¥ç¥ó¤ò»ØÄꤷ¤¿OPEN
ʸ¤Ï¡¢²¿¤â¼Â¹Ô¤»¤º¡¢¤½¤Î¥ª¥×¥·¥ç¥ó¤ÎºÆÄêµÁ¤À¤±¤ò¹Ô¤¤¤Þ¤¹¡£©¤³¤ì¤é
OPEN
ʸ¤Î½ñ¼°¤Ë¤Ï¡¢¥Õ¥¡¥¤¥ë̾¤ò´Þ¤á¤ëɬÍפϤ¢¤ê¤Þ¤»¤ó¡£¤µ¤é¤ËUNIT
¤¬É¸½àÆþÎÏ¡¢É¸½à½ÐÎÏ¡¢¤Þ¤¿¤Ïɸ½à¥¨¥é¡¼¤ò°úÍѤ·¤Æ¤¤¤ë¤È¤¤Ï¡¢¥Õ¥¡¥¤¥ë̾¤ò´Þ¤á¤Æ¤Ï¤Ê¤ê¤Þ¤»¤ó¡£
OPEN
ʸ¤ò»ÈÍѤ·¤ÆÁõÃÖ¤ò·ë¹ç¤·¤¿¤È¤¤Ë¥Õ¥¡¥¤¥ë̾¥Ñ¥é¥á¡¼¥¿¤ò»ÈÍѤ·¤Ê¤¤¤È¡¢¥Ç¥Õ¥©¥ë¥È¥Õ¥¡¥¤¥ë̾fort
.nn ¤¬Í¿¤¨¤é¤ì¤Þ¤¹¡£¤³¤³¤Ç nn ¤ÏÁõÃÖÈÖ¹æ¤Ç¤¹¡£¤·¤¿¤¬¤Ã¤Æ¡¢É¸½à½ÐÎϤò¥×¥ê¥ó¥È¥Õ¥¡¥¤¥ë¤È¤·¤ÆºÆÄêµÁ¤¹¤ë¤Ë¤Ï¼¡¤Î½ñ¼°¤ò»ÈÍѤ·¤Æ¤¯¤À¤µ¤¤¡£
OPEN( UNIT=6, FORM='
PRINT'
)°ì»þ (¥¹¥¯¥é¥Ã¥Á) ¥Õ¥¡¥¤¥ë
°ì»þ (¥¹¥¯¥é¥Ã¥Á) ¥Õ¥¡¥¤¥ë¤òºîÀ®¤¹¤ë¤È¡¢°ìÈ̤˼¹Ըå¤Ë¾ÃÌǤ·¤Þ¤¹¡£
OPEN( UNIT=7, STATUS='SCRATCH' )¼Â¹Ô½ªÎ»¸å¤Ë°ì»þ¥Õ¥¡¥¤¥ë¤¬¾Ã¼º¤¹¤ë¤Î¤òËɤ°¤Ë¤Ï¡¢
STATUS=
'KEEP
' ¤òÀßÄꤷ¤ÆCLOSE
ʸ¤ò¼Â¹Ô¤·¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó (°ì»þ¥Õ¥¡¥¤¥ë°Ê³°¤Î¥Õ¥¡¥¤¥ë¤Ç¤Ï¡¢KEEP
¤¬¥Ç¥Õ¥©¥ë¥È¤Ç¤¹)¡£Îã: ¸å¤Çõºº¤·¤¿¤¤°ì»þ¥Õ¥¡¥¤¥ë¤òÊĤ¸¤ë
CLOSE( UNIT=7, STATUS='KEEP' )¸å¤ÇºÆ¤Ó³«¤¯¾ì¹ç¤Ï¡¢
INQUIRE
ʸ¤ò»ÈÍѤ·¤Æ°ì»þ¥Õ¥¡¥¤¥ë¤Î¼Â̾¤ò¼èÆÀ¤¹¤ë¤³¤È¤ò˺¤ì¤Ê¤¤¤Ç¤¯¤À¤µ¤¤¡£
IOINIT
¤Ë¤è¤ëÆþ½ÐÎϽé´üÀßÄê¤ÎÊѹ¹½¾Íè¤Î Fortran 77 ´Ä¶¤Ï¡¢Ä̾魯¤Ù¤Æ¤ÎÏÀÍý¥æ¥Ë¥Ã¥È¤Ë¤Ä¤¤¤Æ¥¥ã¥ê¥Ã¥¸À©¸æ¤ò²¾Äꤷ¤Æ¤¤¤Þ¤·¤¿¡£¤½¤Î´Ä¶¤Ç¤ÏÄ̾ï¤ÏÆþÎÏ»þ¤Î¶õÇò¥¹¥Ú¡¼¥¹¤ò¥¼¥í¤È²ò¼á¤·¡¢¼Â¹Ô»þ¤ËÏÀÍý¥æ¥Ë¥Ã¥È¤ËÂç°èŪ¥Õ¥¡¥¤¥ë̾¤ò·ë¹ç¤¹¤ë¤³¤È¤â¤è¤¯¤¢¤ê¤Þ¤·¤¿¡£¥ë¡¼¥Á¥ó
IOINIT
(3F) ¤ò¸Æ¤Ó½Ð¤·¤Æ¡¢°Ê²¼¤Î¤è¤¦¤ÊÆþ½ÐÎÏÀ©¸æ¥Ñ¥é¥á¡¼¥¿¤ò»ØÄꤹ¤ë¤³¤È¤¬¤Ç¤¤Þ¤¹¡£
- ¤¹¤Ù¤Æ¤Î½ñ¼°ÉÕ¤¥Õ¥¡¥¤¥ë¤Î¥¥ã¥ê¥Ã¥¸À©¸æ¤òǧ¼±¤·¤Þ¤¹¡£
- ÆþÎÏ¥Õ¥¡¥¤¥ë¤Î¸å³¤Î¶õÇò¤ÈËä¤á¹þ¤ß¤Î¶õÇò¤ò̵»ë¤·¤Þ¤¹¡£
- ¥Õ¥¡¥¤¥ë¤ò³«¤¯»þ¤Ë¡¢¥Õ¥¡¥¤¥ë¤ÎºÇ½é¤Þ¤¿¤ÏºÇ¸å¤Ë°ÌÃÖÉÕ¤±¤Þ¤¹¡£
- »ØÄꤵ¤ì¤¿¥Ñ¥¿¡¼¥ó¤Î¥Õ¥¡¥¤¥ë̾¤ò»öÁ°¤ËÏÀÍý¥æ¥Ë¥Ã¥È¤Ë·ë¹ç¤·¤Þ¤¹¡£
Îã:
IOINIT
¤ÈÏÀÍý¥æ¥Ë¥Ã¥È¤Î»öÁ°·ë¹ç
CALL IOINIT ( .TRUE., .FALSE., .FALSE., 'FORT', .FALSE.)¥æ¡¼¥¶¡¼¤Î¥×¥í¥°¥é¥à¤¬¾åµ¤Î¤è¤¦¤Ë¸Æ¤Ó½Ð¤·¤ò¹Ô¤¦¤È¡¢Fortran 77 ¼Â¹Ô»þ¥·¥¹¥Æ¥à¤Ï´Ä¶¤òÄ´¤Ù¤Æ·Á¼°
FORT
nn ¤Î̾Á°¤òõ¤·¤Æ¤«¤é¡¢Âбþ¤¹¤ëÏÀÍý¥æ¥Ë¥Ã¥È¤ò½çÈÖ½ñ¼°ÉÕ¤Æþ½ÐÎϤȤ·¤Æ³«¤¤Þ¤¹¡£¤³¤ÎÎã¤Ç¤Ï¡¢¼¡¤Î¤è¤¦¤Ë¥×¥í¥°¥é¥à¤¬ÁõÃÖ 7 ¤ò³«¤¤¤¿¤È¤·¤Þ¤¹¡£
OPEN( UNIT=07, FORM='FORMATTED' )Fortran 77 ¼Â¹Ô»þ¥·¥¹¥Æ¥à¤¬´Ä¶¤òÄ´¤Ù¤Æ
FORT07
¥Õ¥¡¥¤¥ë¤òõ¤·¡¢¤½¤ì¤òÁõÃÖ 7 ¤Ë·ë¹ç¤·¤Þ¤¹¡£°ìÈ̤Ë̾Á°¤Ï PREFIXnn ¤Î·Á¼°¤Ç¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£¸Ä¡¹¤Î PREFIX ¤Ï¡¢
IOINIT
¤Ø¤Î¸Æ¤Ó½Ð¤·¤ÎÃæ¤Ç»ØÄꤵ¤ì¤Þ¤¹¡£nn ¤Ï³«¤¯ÏÀÍý¥æ¥Ë¥Ã¥È¤Ç¤¹¡£9 °Ê²¼¤ÎÁõÃÖÈÖ¹æ¤ÏÁ°¤Ë '0' ¤ò½ñ¤«¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£¾ÜºÙ¤Ï¡¢IOINIT(3F) ¤ª¤è¤Ó¡ØFortran ¥é¥¤¥Ö¥é¥ê¡¦¥ê¥Õ¥¡¥ì¥ó¥¹¡Ù¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£Îã: ³°Éô¥Õ¥¡¥¤¥ë
ini1.inp
¤Èini1.out
¤òÁõÃÖ 1 ¤È 2 ¤Ë·ë¹ç¤¹¤ë
demo$ TST01=ini1.inpdemo$ TST02=ini1.outdemo$ export TST01 TST02
demo% setenv TST01 ini1.inpdemo% setenv TST02 ini1.outÎã: ¥Õ¥¡¥¤¥ë
ini1.inp
¤Èini1.out
¤òÁõÃÖ 1 ¤È 2 ¤Ë·ë¹ç¤·¤Þ¤¹
IOINIT
¤ÏºîÀ®¤µ¤ì¤¿¤È¤¤Ë¡¢Â¿¤¯¤Î¥×¥í¥°¥é¥à¤Ë¤È¤Ã¤Æ½½Ê¬¤Ç¤¢¤ë¤³¤È¤òΩ¾Ú¤·¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£Fortran ¤Ç½ñ¤«¤ì¤Æ¤¤¤ë¤¿¤áƱÍͤΥ桼¥¶¡¼ºîÀ®¥ë¡¼¥Á¥ó¤ÎÎã¤È¤·¤ÆÌòΩ¤Á¤Þ¤¹¡£IOINIT
¤Î¥½¡¼¥¹¥³¡¼¥É¤Ï¼¡¤«¤é¼è¤ê½Ð¤¹¤³¤È¤¬¤Ç¤¤Þ¤¹¡£
/opt/SUNWspro/<release>/src/ioinit.f
<release>¥Ñ¥¹¤Ï¡¢¥³¥ó¥Ñ¥¤¥é¤Î¥ê¥ê¡¼¥¹¤´¤È¤ËÊѤï¤ê¤Þ¤¹¡£
ľÀÜõºº
ľÀÜõºº¥Õ¥¡¥¤¥ë¤Ï¡¢µÏ¿ÈÖ¹æ¤ò»ØÄꤷ¤ÆÆɤ߼è¤ê¡¢¤Þ¤¿¤Ï½ñ¤¹þ¤ß¤ò¹Ô¤¦Â¿¿ô¤ÎµÏ¿¤Ç¹½À®¤µ¤ì¤Æ¤¤¤Þ¤¹¡£Ä¾ÀÜõºº¤Ï¥é¥ó¥À¥àõºº¤È¤â¸Æ¤Ð¤ì¤Þ¤¹¡£
ľÀÜõºº¤ÎÆÃŤª¤è¤Ó¡¢À©¸Â»ö¹à¤Ï¼¡¤Î¤È¤ª¤ê¤Ç¤¹¡£
- µÏ¿¤Ï¤¹¤Ù¤ÆƱ¤¸Ä¹¤µ¤Ç¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£
- Ä̾µÏ¿¤Ï¤¹¤Ù¤ÆƱ¤¸·¿¤Ç¤¹¡£
- ľÀÜõºº³°Éô¥Õ¥¡¥¤¥ë¤ÎÏÀÍýµÏ¿¤Ï¡¢¥Õ¥¡¥¤¥ë¤¬³«¤«¤ì¤¿¤È¤¤Ë»ØÄꤵ¤ì¤¿Ä¹¤µ¤Î¥Ð¥¤¥È¿ô¤ò»ý¤Äʸ»úÎó¤Ç¤¹¡£
READ
ʸ¤Þ¤¿¤ÏWRITE
ʸ¤Ï¡¢¤â¤È¤Ë¤Ê¤ëµÏ¿¥µ¥¤¥ºÄêµÁ¤è¤ê¤âŤ¤ÏÀÍýµÏ¿¤ò»ØÄꤷ¤Æ¤Ï¤Ê¤ê¤Þ¤»¤ó¡£- û¤¤ÏÀÍýµÏ¿¤Ïµö²Ä¤µ¤ì¤Þ¤¹¡£
- ½ñ¼°¤Ê¤·Ä¾Àܽñ¤¹þ¤ß¤Ç¤Ï¡¢µÏ¿¤ÎËþ¤¿¤µ¤ì¤Ê¤¤Éôʬ¤ò̤ÄêµÁ¤Î¤Þ¤Þ»Ä¤·¤Þ¤¹¡£
- ½ñ¼°ÉդľÀܽñ¤¹þ¤ß¤Ï¡¢Ëþ¤¿¤µ¤ì¤Ê¤¤µÏ¿¤ò¶õÇò¤Ë¤·¤ÆžÁ÷¤·¤Þ¤¹¡£
- ľÀܽñ¼°¤Ê¤·Æþ½ÐÎϤλÈÍѤ˺ݤ·¤Æ¤Ï¡¢¥æ¡¼¥¶¡¼¤Î¥×¥í¥°¥é¥à¤¬Æɤ߼è¤ë¤³¤È¤òͽ´ü¤·¤Æ¤¤¤ëÃͤοô¤Ë½½Ê¬Ãí°Õ¤·¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£
- ľÀÜõºº
READ
ʸ¤ª¤è¤ÓWRITE
ʸ¤Ï¡¢°ú¿ôREC=
n ¤ò»ý¤Á¤Þ¤¹¡£¤³¤Î°ú¿ô¤Ï¡¢Æɤ߼è¤ëµÏ¿¤Þ¤¿¤Ï½ñ¤¹þ¤àµÏ¿¤ÎµÏ¿ÈÖ¹æ¤òÍ¿¤¨¤Þ¤¹ (ÂåÂؤε¬³Ê³°¤Î½ñ¼°¤Ï 'n ¤Ç¤¹)¡£½ñ¼°¤Ê¤·Æþ½ÐÎÏ
OPEN( 2, FILE='data.db', ACCESS='DIRECT', RECL=20,& FORM='UNFORMATTED', ERR=90 )READ( 2, REC=13, ERR=30 ) X, YREAD( 2 ' 13, ERR=30 ) X, Y Ê̤νñ¼° ©¤³¤Î¥³¡¼¥É¤ÏľÀÜõºº¡¢µÏ¿Ä¹ 20 ʸ»ú¤Î½ñ¼°¤Ê¤·Æþ½ÐÎϤΥե¡¥¤¥ë¤ò³«¤¡¢13 ÈÖÌܤεϿ¤ò¤½¤Î¤Þ¤ÞÆɤ߼è¤ê¤Þ¤¹¡£
½ñ¼°ÉÕ¤Æþ½ÐÎÏ
Îã: ľÀÜõºº¡¢½ñ¼°ÉÕ¤
OPEN( 2, FILE='inven.db', ACCESS='DIRECT', RECL=20,& FORM='FORMATTED', ERR=90 )READ( 2, FMT='(I10,F10.3)', REC=13, ERR=30 ) A, B¤³¤Î¥³¡¼¥É¤ÏľÀÜõºº¡¢µÏ¿Ä¹ 20 ʸ»ú¤Î½ñ¼°ÉÕ¤Æþ½ÐÎϤΥե¡¥¤¥ë¤ò³«¤¡¢13 ÈÖÌܤεϿ¤òÆɤ߼è¤Ã¤Æ¡¢¤½¤ì¤ò
(I10,F10.3)
½ñ¼°¤Ë½¾¤Ã¤ÆÊÑ´¹¤·¤Þ¤¹¡£ÆâÉô¥Õ¥¡¥¤¥ë
ÆâÉô¥Õ¥¡¥¤¥ë¤Ï¡¢Äê¿ô¡¢ÊÑ¿ô¡¢ÉôʬÎó¡¢ÇÛÎó¡¢ÇÛÎó¤ÎÍ×ÁÇ¡¢¤Þ¤¿¤Ï¹½Â¤ÂεϿÍó¤Î¤è¤¦¤Êʸ»úÎ󥪥֥¸¥§¥¯¥È¤Ç¤¹¡£¤³¤ì¤é¤Ï¤¹¤Ù¤Æʸ»ú·¿¤Ç¤¹¡£ÊÑ¿ô¤Þ¤¿¤ÏÉôʬÎó¤Î¾ì¹ç¤Ë¤Ï¡¢¥Õ¥¡¥¤¥ëÃæ¤Ë¤Ï 1 ¤Ä¤ÎµÏ¿¤·¤«¤¢¤ê¤Þ¤»¤ó¡£ÇÛÎó¤Î¾ì¹ç¤Ë¤Ï¡¢³ÆÇÛÎóÍ×ÁǤ¬µÏ¿¤Ç¤¹¡£
½çÈÖ½ñ¼°ÉÕ¤Æþ½ÐÎÏ
FORTRAN 77 µ¬³Ê¤Ç¤Ï¡¢ÆâÉô¥Õ¥¡¥¤¥ë¤Ï½çÈÖ½ñ¼°ÉÕ¤Æþ½ÐÎϤÀ¤±¤ò´Þ¤ß¤Þ¤¹ (¤³¤³¤Ç¤ÏÆþ½ÐÎϤȤ¤¤¦ÍѸì¤ÏÀµ³Î¤Ç¤Ï¤¢¤ê¤Þ¤»¤ó¤¬¡¢ÆâÉô¥Õ¥¡¥¤¥ë¤Ï
READ
ʸ¤ÈWRITE
ʸ¤ò»ÈÍѤ·¤Æ½èÍý¤µ¤ì¤Þ¤¹)¡£ÆâÉô¥Õ¥¡¥¤¥ë¤Ï¡¢ÁõÃÖÈÖ¹æ¤ÎÂå¤ï¤ê¤Ëʸ»ú¥ª¥Ö¥¸¥§¥¯¥È¤Î̾Á°¤òÍ¿¤¨¤Æ»ÈÍѤ·¤Þ¤¹¡£½çÈÖõººÆâÉô¥Õ¥¡¥¤¥ë¤«¤é¤ÎÆɤ߼è¤ê¤Ï¡¢¾ï¤ËÆâÉô¥Õ¥¡¥¤¥ë¤ÎºÇ½é¤«¤é³«»Ï¤µ¤ì¤Þ¤¹¡£½ñ¤¹þ¤ß¤Î¤È¤¤âƱÍͤǤ¹¡£
CHARACTER X*80READ( 5, '(A)' ) XREAD( X, '(I3,I4)' ) N1, N2¤³¤ì¤Ï½ÐÎϹԥ¤¥á¡¼¥¸¤ò
X
¤ËÆɤ߹þ¤ó¤Ç¡¢¤½¤Î¸åX
¤«¤é 2 ¸Ä¤ÎÀ°¿ô¤òÆɤ߼è¤ê¤Þ¤¹¡£Ä¾ÀÜõººÆþ½ÐÎÏ
f77
¤Ï¡¢Ä¾ÀÜÆþ½ÐÎϤòÆâÉô¥Õ¥¡¥¤¥ë¤Ë¤Þ¤Ç³ÈÄ¥¤·¤Þ¤¹¡£©¤³¤ì¤Ï¥Õ¥¡¥¤¥ëÆâ¤ÎµÏ¿¿ô¤òÊѹ¹¤Ç¤¤Ê¤¤¤³¤È¤ò½ü¤¤¤Æ¡¢³°Éô¥Õ¥¡¥¤¥ë¤ÎľÀÜÆþ½ÐÎϤËÎà»÷¤·¤Æ¤¤¤Þ¤¹¡£¤³¤Î¾ì¹ç 1 µÏ¿¤Ïʸ»úÎó¤ÎÇÛÎó¤Îñ°ìÍ×ÁǤǤ¹¡£
Îã: ÆâÉô¥Õ¥¡¥¤¥ë
LINE
¤Î 3 ÈÖÌܤεϿ¤ÎľÀÜõººÆɤ߼è¤ê
½ñ¼°ÉÕ¤Æþ½ÐÎÏ
½ñ¼°ÉÕ¤Æþ½ÐÎϤǤϡ¢°Ê²¼¤Î¤³¤È¤¬¹Ô¤ï¤ì¤Þ¤¹¡£
- ʤӤιàÌܤÏʤӤǸ½¤ì¤ë½ç¤Ë½èÍý¤µ¤ì¤Þ¤¹¡£
- ¤É¤ÎʤӤιàÌܤ⼡¤Î¹àÌܤ¬³«»Ï¤µ¤ì¤ëÁ°¤Ë´°Á´¤Ë½èÍý¤µ¤ì¤Þ¤¹¡£
- ³Æ½çÈÖõºº¤Ï¡¢ 1 ¤Ä¤Þ¤¿¤ÏÊ£¿ô¤ÎÏÀÍýµÏ¿¤òÆɤ߼è¤ë¤«¡¢¤Þ¤¿¤Ï½ñ¤¹þ¤ß¤Þ¤¹¡£
ÆþÎÏõºº
°ìÈ̤ˡ¢½ñ¼°ÉÕ¤
READ
ʸ¤Ï°Ê²¼¤Î¤³¤È¤ò¹Ô¤¤¤Þ¤¹¡£
- ³°ÉôµÏ¿ (¤Þ¤¿¤ÏÆâÉô¥Õ¥¡¥¤¥ë) ¤«¤éʸ»ú¥Ç¡¼¥¿¤òÆɤ߼è¤ê¤Þ¤¹¡£
- ´ØÏ¢ÉÕ¤±¤é¤ì¤¿½ñ¼°¤ÎÌ¿Îá¤Ë½¾¤Ã¤Æ¡¢Ê¤ӤιàÌܤòʸ»ú·Á¼°¤«¤é¥Ð¥¤¥Ê¥ê·Á¼°¤ËÊÑ´¹¤·¤Þ¤¹¡£
- ÊÑ´¹¤·¤¿¥Ç¡¼¥¿¤òʤӤγƹàÌܤËÂбþ¤¹¤ëÆâÉôµ²±Îΰè¤Ë³ÊǼ¤·¤Þ¤¹¡£
READ( 6, 10 ) A, B10 FORMAT( F8.3, F6.2 )½ÐÎÏõºº
°ìÈ̤ˡ¢½ñ¼°ÉÕ¤
WRITE
ʸ¤Ï°Ê²¼¤Î¤³¤È¤ò¹Ô¤¤¤Þ¤¹¡£
- ʤӤǻØÄꤵ¤ì¤¿³ÆʤӤιàÌܤËÂбþ¤¹¤ëÆâÉôµ²±Îΰ褫¤é¥Ç¡¼¥¿¤ò³ÍÆÀ¤·¤Þ¤¹¡£
- ´ØÏ¢ÉÕ¤±¤é¤ì¤¿½ñ¼°¤ÎÌ¿Îá¤Ë½¾¤Ã¤Æ¡¢¹àÌܤò¥Ð¥¤¥Ê¥ê·Á¼°¤«¤éʸ»ú·Á¼°¤ËÊÑ´¹¤·¤Þ¤¹¡£
- ¹àÌܤò³°ÉôµÏ¿¤Þ¤¿¤ÏÆâÉô¥Õ¥¡¥¤¥ë¤ËžÁ÷¤·¤Þ¤¹¡£
- ½ñ¼°ÉÕ¤½ÐÎϵϿ¤Ï²þ¹Ô (newline) ¤Ç½ª¤ï¤ê¤Þ¤¹¡£
REAL A / 1.0 /, B / 9.0 /WRITE( 6, 10 ) A, B10 FORMAT( F8.3, F6.2 )½ñ¼°ÉÕ¤
WRITE
ʸ¤Î¾ì¹ç¡¢ÏÀÍýµÏ¿Ä¹¤Ï¼Â¹Ô»þ¤ËÆþÎÏÊÑ¿ô¡¢¤Þ¤¿¤Ï½ÐÎÏÊÑ¿ô¤ÎÊÂ¤Ó (Æþ½ÐÎÏʤÓ) ¤ÈÁê¸ß¤ËºîÍѤ¹¤ëFORMAT
ʸ¤Ë¤è¤Ã¤Æ·èÄꤵ¤ì¤Þ¤¹¡£½ñ¼°ÉÕ¤
WRITE
ʸ¤Î¾ì¹ç¡¢³°Éô¥Ç¡¼¥¿É½¸½¤¬»ØÄꤵ¤ì¤¿Íó¤ÎÉý¤ËÂФ·¤ÆÂ礤¹¤®¤ë¤È¤¤Ï¡¢»ØÄꤵ¤ì¤¿Íó¤Ï¥¢¥¹¥¿¥ê¥¹¥¯ (*
) ¤ÇËþ¤¿¤µ¤ì¤Þ¤¹¡£½ñ¼°ÉÕ¤
READ
ʸ¤Î¾ì¹ç¡¢Ê¤ӤιàÌÜ¿ô¤¬¥Ç¡¼¥¿¤ÎÍó¿ô¤è¤ê¾¯¤Ê¤¤¤È¤¡¢Í¾Ê¬¤ÎÍó¤Ï̵»ë¤µ¤ì¤Þ¤¹¡£½ñ¼°»ØÄê»Ò
FORMAT
ʸ¤ÎÃæ¡¢¤ª¤è¤ÓÆþ½ÐÎϥ饤¥Ö¥é¥ê¥ë¡¼¥Á¥ó¤Ø¤Î¤¹¤Ù¤Æ¤Î±Ñ»ú°ú¿ô¤ÎÃæ¤Î½ñ¼°»ØÄê»Ò¤Ë¤Ï¡¢¾®Ê¸»ú¤À¤±¤Ç¤Ê¤¯Âçʸ»ú¤â»ÈÍѤǤ¤Þ¤¹¡£w¡¢m¡¢d¡¢e ¥Ñ¥é¥á¡¼¥¿ (
G
w.
dE
e ¤Î¾ì¹ç)¡¡w¡¢m¡¢d¡¢e ¥Ñ¥é¥á¡¼¥¿¤ÎÄêµÁ¤Ï¼¡¤Î¤È¤ª¤ê¤Ç¤¹¡£
- w ¤È e ¤Ï 0 °Ê³°¤ÎÉä¹æ¤Ê¤·À°Äê¿ô¤Ç¤¹¡£
- d ¤È m ¤Ï Éä¹æ¤Ê¤·À°Äê¿ô¤Ç¤¹¡£
- w ¤ÏÍó¤¬ w ·å¤òÀê¤á¤ë¤³¤È¤ò»ØÄꤷ¤Þ¤¹¡£
- m ¤Ï¡¢m ·å¤Ë¤Ê¤ë¤è¤¦¤ËÀè¹Ô¤Î¥¼¥í¤òÁÞÆþ¤¹¤ë¤³¤È¤ò»ØÄꤷ¤Þ¤¹¡£
- d ¤Ï¾®¿ôÅÀ°Ê²¼¤¬²¿·å¤«¤ò»ØÄꤷ¤Þ¤¹¡£
- e ¤Ï»Ø¿ôÍó¤ÎÉý¤ò»ØÄꤷ¤Þ¤¹¡£
w¡¢d¡¢e ¤Î¥Ç¥Õ¥©¥ë¥ÈÃÍ
Íó»Ø¼¨»Ò w¡¢d¡¢¤Þ¤¿¤Ï e ¤Ê¤·¤ÇÍóµ½Ò»Ò
A¡¢D¡¢E¡¢F¡¢G¡¢I¡¢L¡¢O
¡¢¤Þ¤¿¤ÏZ
¤ò½ñ¤¯¤³¤È¤¬¤Ç¤¤Þ¤¹¡£© ¤³¤ì¤é¤¬»ØÄꤵ¤ì¤Ê¤¤¤Þ¤Þ¤Î¤È¤¡¢Æþ½ÐÎÏʤÓÍ×ÁǤΥǡ¼¥¿¤Î·¿¤Ë¤â¤È¤Å¤¤¤ÆŬÀڤʥǥե©¥ë¥È¤¬»ÈÍѤµ¤ì¤Þ¤¹¡£É½ 5-3 ¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£w¡¢d¡¢¤Þ¤¿¤Ï e ¤ò»ÈÍѤ¹¤ë°ìÈÌŪ¤Ê½ñ¼°Íóµ½Ò»Ò¤ò¼¡¤Ë¼¨¤·¤Þ¤¹¡£
A
w, I
w, L
w, O
w, Z
w, D
w.
d, E
w.
d, G
w.
d, E
w.
dE
e, G
w.
dE
e
Îã:
INTEGER*2
¤ËÂФ·¤Æ¥Ç¥Õ¥ª¥ë¥È w=7 ¤Î¾ì¹ç (10¿Ê¿ô 161=16¿Ê¿ô A1)¡¡
INTEGER*2 MM = 161WRITE ( *, 8 ) M8 FORMAT ( Z )END¾åµ¤ÎÎã¤Ï¡¢¼¡¤Î¤è¤¦¤Ëɽ¼¨¤µ¤ì¤Þ¤¹¡£
demo% f77 def1.fdef1.f:MAIN:demo% a.outDDDDDa1demo%D ¤Ï¡¢¶õÇòʸ»ú¤Î°ÌÃÖ¤ò¼¨¤·¤Þ¤¹¡£w¡¢d¡¢¤ª¤è¤Ó e ¤Î¥Ç¥Õ¥©¥ë¥ÈÃͤò°Ê²¼¤Ë¤Þ¤È¤á¤Þ¤¹¡£
Ê£ÁÇ¿ô¹àÌܤΠw ¤ÎÃͤϳƼ¿ôÀ®Ê¬¤ËÂФ¹¤ëÃͤǤ¹¡£Ê¸»ú¥Ç¡¼¥¿¤ò»ý¤Ä
A
µ½Ò»Ò¤Î¥Ç¥Õ¥©¥ë¥È¤Ï¡¢Âбþ¤¹¤ëÆþ½ÐÎÏʤӤÎÍ×ÁǤÎÀë¸À¤µ¤ì¤¿Ä¹¤µ¤Ç¤¹¡£REAL*16
¤ÈCOMPLEX*32
¤Ï SPARC ¤Î¤ß¤Ç¤¹¡£¥¢¥Ý¥¹¥È¥í¥Õ¥£ÊÔ½¸ (`aaa')
¥¢¥Ý¥¹¥È¥í¥Õ¥£ÊÔ½¸»ØÄê»Ò¤Ïʸ»úÄê¿ô¤Î½ñ¼°¤ò»ÈÍѤ·¤Þ¤¹¡£¤³¤Î¤¿¤áÊÔ½¸»ØÄê»Ò¼«¿È¤Ë°Ï¤Þ¤ì¤¿Ê¸»ú (¶õÇò¤ò´Þ¤ß¤Þ¤¹) ¤¬½ñ¤¹þ¤Þ¤ì¤Þ¤¹¡£¥¢¥Ý¥¹¥È¥í¥Õ¥£ÊÔ½¸»ØÄê»Ò¤òÆþÎϤ˻ÈÍѤ·¤Æ¤Ï¤Ê¤ê¤Þ¤»¤ó¡£Íó¤ÎÉý¤Ï¶èÀÚ¤êÍѤΥ¢¥Ý¥¹¥È¥í¥Õ¥£¤Î´Ö¤Ë´Þ¤Þ¤ì¤ëʸ»ú¿ô¤Ç¤¹ (¶èÀÚ¤êÍѤΥ¢¥Ý¥¹¥È¥í¥Õ¥£¤Ï´Þ¤ß¤Þ¤»¤ó)¡£Íó¤ÎÃæ¤Ë¤¢¤Ã¤Æ´Ö¤Ë¶õÇò¤¬¤Ê¤¤ 2 ¸Ä¤ÎϢ³¤¹¤ë¥¢¥Ý¥¹¥È¥í¥Õ¥£¤Ï¡¢1 ¸Ä¤Î¥¢¥Ý¥¹¥È¥í¥Õ¥£¤È¤·¤Æ¿ô¤¨¤é¤ì¤Þ¤¹¡£Æ±ÍͤÎÊýË¡¤Ç°úÍÑÉä¤â»ÈÍѤǤ¤Þ¤¹¡£
Îã:
apos.f
¡¢¥¢¥Ý¥¹¥È¥í¥Õ¥£ÊÔ½¸ (Åù²Á¤Ê 2 ¤Ä¤ÎÊýË¡)
WRITE( *, 1 )1 FORMAT( '¤³¤ì¤Ï¥¢¥Ý¥¹¥È¥í¥Õ¥£''¤Ç¤¹¡£')WRITE( *, 2 )2 FORMAT( "¤³¤ì¤Ï¥¢¥Ý¥¹¥È¥í¥Õ¥£'¤Ç¤¹¡£")END¾åµ¤ÎÎã¤Ï¡Ö
¤³¤ì¤Ï¥¢¥Ý¥¹¥È¥í¥Õ¥£
'¤Ç¤¹¡£
¡×¤ò 2 ²ó½ñ¤¹þ¤ß¤Þ¤¹¡£¶õÇòÊÔ½¸ (
B¡¢BN¡¢BZ
)
B¡¢BN
¡¢¤ª¤è¤ÓBZ
ÊÔ½¸»ØÄê»Ò¤Ï¡¢¿ôÃÍÆþÎϤˤè¤Ã¤ÆËä¤á¹þ¤Þ¤ì¤¿¶õÇò¤È¸å¤Ë³¤¯¶õÇò¤Î²ò¼á¤òÀ©¸æ¤·¤Þ¤¹¡£°Ê²¼¤Ë¼¨¤¹¶õÇò»ØÄê»Ò¤¬»ÈÍѲÄǽ¤Ç¤¹¡£
¿ôÃÍÆþÎÏÍó¤Î¶õÇò (Àè¹Ô¤Î¶õÇò¤ò½ü¤¯) ¤Ï¡¢½ñ¼°¤ËÆÃÄê¤Î¶õÇò»ØÄê»Ò¤¬¤Ê¤¤¾ì¹ç¡¢¸½ºßÁõÃÖ¤ËÂФ·¤Æ͸ú¤Ê
OPEN
ʸ¤ÎBLANK=
¥µ¥Ö¥ª¥×¥·¥ç¥ó¤ÎÃͤ˱þ¤¸¤Æ¥¼¥í¤È²ò¼á¤µ¤ì¤ë¤«¡¢¤Þ¤¿¤Ï̵»ë¤µ¤ì¤Þ¤¹¡£¤½¤Î¥µ¥Ö¥ª¥×¥·¥ç¥ó¤Î¥Ç¥Õ¥©¥ë¥ÈÃͤÏignore
(̵»ë¤¹¤ë) ¤Ê¤Î¤Ç¡¢BN/BZ/B
¤ÈBLANK=
¤ÎξÊý¤Ë¥Ç¥Õ¥©¥ë¥È¤ò»ÈÍѤ¹¤ì¤Ðignore
(̵»ë¤¹¤ë) ¤È¤Ê¤ê¤Þ¤¹¡£Îã: Ʊ¤¸¥Ç¡¼¥¿¤ò
BZ
¤ÈBN
¤Ç°ìÅÙ¤º¤ÄÆɤ߼è¤Ã¤Æ½ÐÎϤ¹¤ëÎã
¶õÇòÀ©¸æ¤Î°Ê²¼¤Îµ¬Â§¤ËÃí°Õ¤·¤Æ¤¯¤À¤µ¤¤¡£
- ¶õÇòÀ©¸æ»ØÄê»Ò¤ÏÆþÎϤÀ¤±¤ËŬÍѤµ¤ì¤Þ¤¹¡£
- ¶õÇòÀ©¸æ»ØÄê»Ò¤ÏÊ̤ζõÇòÀ©¸æ»ØÄê»Ò¤Ë½Ð²ñ¤¦¤«¡¢¤Þ¤¿¤Ï½ñ¼°²ò¼á¤¬´°Î»¤¹¤ë¤Þ¤Ç¤Ï¡¢¸ú²Ì¤ò»ý¤Á¤Þ¤¹¡£
B¡¢BN
¡¢¤ª¤è¤ÓBZ
»ØÄê»Ò¤Ï¡¢I
·Á¡¢F
·Á¡¢E
·Á¡¢D
·Á¡¢¤ª¤è¤ÓG
·ÁÊÔ½¸¤ËÂФ·¤Æ¤À¤±¸ú²Ì¤òÍ¿¤¨¤Þ¤¹¡£¥¥ã¥ê¥Ã¥¸À©¸æ (
$¡¢¥¹¥Ú¡¼¥¹¡¢0¡¢1
)¥¥ã¥ê¥Ã¥¸À©¸æ¤È¤·¤Æ¡¢ÊÔ½¸µ½Ò»Ò¤Î
$
¤ª¤è¤Ó¥¹¥Ú¡¼¥¹¡¢0
¡¢¤Þ¤¿¤Ï
1
¤ò»ÈÍѤ·¤Þ¤¹¡£¥É¥ëµ¹æ $
ÆüìÊÔ½¸µ½Ò»Ò
$
¤Ï¡¢¥¥ã¥ê¥Ã¥¸¥ê¥¿¡¼¥ó¤òÍ޻ߤ·¤Þ¤¹¡£©¤³¤Î½èÍý¤Ï½ñ¼°¤ÎÂè 1 ʸ»ú¤Ë°Í¸¤·¤Þ¤»¤ó¡£
$
¤Ï°ìÈ̤˥³¥ó¥½¡¼¥ë¥×¥í¥ó¥×¥È¤Ë»ÈÍѤµ¤ì¤Þ¤¹¡£¤¿¤È¤¨¤ÐÆþÎϱþÅú¤¬½ÐÎϤµ¤ì¤¿¥×¥í¥ó¥×¥È¤ÈƱ¤¸¹Ô¤Ë³¤¯¤è¤¦¤Ë¤¹¤ë¤¿¤á¤Ë¡¢¤³¤Îµ½Ò»Ò¤ò»ÈÍѤ¹¤ë¤³¤È¤¬¤Ç¤¤Þ¤¹¡£¤³¤ÎÊÔ½¸µ½Ò»Ò¤Ï¡¢¥³¥í¥ó (:) ¤ÈƱ¤¸µ¬Â§¤Ë¤è¤Ã¤ÆÀ©Ì󤵤ì¤Þ¤¹¡£
* dol1.f ¥¹¥Ú¡¼¥¹¤òȼ¤¦ $ ÊÔ½¸µ½Ò»ÒWRITE ( *, 2 )2 FORMAT (' ¥Î¡¼¥ÉÈÖ¹æ¤òÆþÎϤ·¤Æ¤¯¤À¤µ¤¤: ', $ )READ ( *, * ) NODENUMEND¾åµ¤Î¥×¥í¥°¥é¥à¤Ë¤è¤ê¡¢¼¡¤Î¤è¤¦¤Ê¥×¥í¥ó¥×¥È¤È¥æ¡¼¥¶¡¼¤ÎÆþÎϱþÅú¤¬É½¼¨¤µ¤ì¤Þ¤¹¡£
¥Î¡¼¥ÉÈÖ¹æ¤òÆþÎϤ·¤Æ¤¯¤À¤µ¤¤: 82½ñ¼°¤ÎÂè 1 ʸ»ú¤Ë¤Ï¡¢¤³¤Î¾ì¹ç¶õÇò¤¬½ÐÎϤµ¤ì¤Þ¤¹¡£ÆþÎÏʸ¤Î¾ì¹ç
$
µ½Ò»Ò¤Ï̵»ë¤µ¤ì¤Þ¤¹¡£¥¹¥Ú¡¼¥¹¡¢0¡¢1¡¢+
°Ê²¼¤Ë²þ¹ÔÀ©¸æ¤È¤½¤ÎÆ°ºî¤ò¼¨¤·¤Þ¤¹¡£
ɽ 5-4 ¶õÇò¡¢0¡¢1¡¢+ ¤Ë¤è¤ë¥¥ã¥ê¥Ã¥¸À©¸æ D (¥¹¥Ú¡¼¥¹)1 ¹Ô 02 ¹Ô 1¼¡¥Ú¡¼¥¸¤ÎºÇ½é¤Î¹Ô¤Ø¹ÔÁ÷¤ê +²þ¹Ô¤Ê¤· (ɸ½à½ÐÎϤΤߡ¢¥Õ¥¡¥¤¥ë¤Ç¤Ï̵¸ú)
½ñ¼°¤ÎÂè 1 ʸ»ú¤¬ ¥¹¥Ú¡¼¥¹¡¢
0
¡¢1
¡¢+
°Ê³°¤Î¤È¤¤Ï¡¢¥¹¥Ú¡¼¥¹¤È¤·¤Æ°·¤ï¤ì½ÐÎϤµ¤ì¤Þ¤»¤ó¡£ºÇ½é¤Î·å¤Îʸ»ú¤¬ + ¤Î¾ì¹ç¡¢Á°¤Î¹Ô¤ÎÀèƬ¤ËÌá¤ë¤è¤¦¤ÊÀ©¸æ¥·¡¼¥±¥ó¥¹¤ËÃÖ¤´¹¤¨¤é¤ì¤Þ¤¹¡£
asa
¤òÄ̤¸¤Æ¥Ñ¥¤¥×¤µ¤ì¤Æ¤¤¤ë¤È¡¢¥¹¥Ú¡¼¥¹¡¢0
¡¢1
¡¢¤ª¤è¤Ó+
¤Ïɸ½à½ÐÎϤËÂФ·¤ÆƯ¤¤Þ¤¹¡£Î㡧Âè 1 ʸ»ú¤Î½ñ¼°²½¡¢É¸½à½ÐÎϤ¬
asa
¤ò²ð¤·¤Æ¥Ñ¥¤¥×¤µ¤ì¤Þ¤¹¡£
¼¡¤Î¤è¤¦¤Ë¥×¥í¥°¥é¥à
slew1.f
¤Ï¡¢lp
¤Ç°õºþ¤¹¤ë¤È¥Õ¥¡¥¤¥ëslew1.out
¤òºîÀ®¤·¤Þ¤¹¡£
bcd
efg
hij
klmnop ¤³¤ì¤Ï¿·¤·¤¤¥Ú¡¼¥¸¤Ë»Ï¤Þ¤ë¡£+nop ¤Î + ¤Î¤¿¤á
²èÌ̤ǤϷë²Ì¤¬°ã¤¤¤Þ¤¹¡£¥¿¥Ö¤¬¥¹¥Ú¡¼¥¹¤òÁÞÆþ¤·¤Þ¤¹¡£
demo%cat slew1.out
bcdefghij nop ¤³¤ì¤Ï¿·¤·¤¤¥Ú¡¼¥¸¤Ë»Ï¤Þ¤ë¡£+nop ¤Î + ¤Î¤¿¤ádemo%¥¹¥Ú¡¼¥¹¡¢0¡¢ 1 ¤ª¤è¤Ó + ¤Ï¡¢¼¡¤Î¤è¤¦¤Ê¾ò·ï¤Ç³«¤¤¤¿¥Õ¥¡¥¤¥ë¤ËÂФ·¤ÆÆ°ºî¤·¤Þ¤¹¡£
Î㡧 Âè 1 ʸ»ú½ñ¼°¡¢¥Õ¥¡¥¤¥ë½ÐÎÏ
¼¡¤Î¤è¤¦¤Ë¥×¥í¥°¥é¥à
slew2.f
¤Ï¡¢lp
¤Ç°õºþ¤¹¤ë¤È¥Õ¥¡¥¤¥ëslew2.out
¤òºîÀ®¤·¤Þ¤¹¡£¥Õ¥¡¥¤¥ëslew2.out
¤Ï¡¢Á°½Ò¤·¤¿¥Õ¥¡¥¤¥ëslew1.out
¤ÈƱ¤¸¤Ç¤¹¡£·å 1 ¤Î ²þ¹ÔÀ©¸æ¥³¡¼¥É '
0
'¡¢ '1
' ¤È '+' ¤Ï¡¢½ÐÎÏ¥Õ¥¡¥¤¥ë¤ÎÃæ¤Ç¤½¤ì¤¾¤ì' \n'¡¢' \f' ¤È ' \r'
¤ËÃÖ´¹¤µ¤ì¤Þ¤¹¡£Ê¸»úÊÔ½¸ (
A
)
A
·Á»ØÄê»Ò¤Ïʸ»ú·¿¥Ç¡¼¥¿¹àÌܤ˻ÈÍѤµ¤ì¤Þ¤¹¡£°ìÈ̽ñ¼°¤ò¼¡¤Ë¼¨¤·¤Þ¤¹¡£
A[w]ÆþÎÏ»þ¡¢Ê¸»ú¥Ç¡¼¥¿¤ÏÂбþ¤¹¤ëʤӤιàÌÜÆâ¤Ë³ÊǼ¤µ¤ì¤Þ¤¹¡£
½ÐÎÏ»þ¡¢Âбþ¤¹¤ëʤӤιàÌܤ¬Ê¸»ú¥Ç¡¼¥¿¤È¤·¤Æɽ¼¨¤µ¤ì¤Þ¤¹¡£
w ¤¬¾Êά¤µ¤ì¤ë¤È¡¢¼¡¤Î¤è¤¦¤Ë¤Ê¤ê¤Þ¤¹¡£
- ʸ»ú¥Ç¡¼¥¿·¿ÊÑ¿ô¤Î¾ì¹ç¡¢¤½¤ÎÊÑ¿ô¤Î¥µ¥¤¥º¤¬²¾Äꤵ¤ì¤Þ¤¹¡£
- ʸ»ú°Ê³°¤Î¥Ç¡¼¥¿·¿ÊÑ¿ô¤Î¾ì¹ç¡¢¤½¤Î¥Ç¡¼¥¿·¿¤ÎÊÑ¿ô¤ËŬ¹ç¤¹¤ëʸ»ú¤ÎºÇÂç¿ô¤¬²¾Äꤵ¤ì¤Þ¤¹¡£¤³¤ì¤Ïµ¬³Ê³°¤ÎÆ°ºî¤Ç¤¹¡£©
¤µ¤Þ¤¶¤Þ¤Ê n ¤ÎÃͤˤĤ¤¤Æ¥µ¥¤¥ºÊÑ¿ô n (
CHARACTER*
n) ¤òÆɤ߼è¤ëÎã¤ò°Ê²¼¤Ë¼¨¤·¤Þ¤¹¡£¤¿¤È¤¨¤Ð¡¢n=9
¤Î¤È¤¤Ï¼¡¤Î¤È¤ª¤ê¤Ç¤¹¡£
CHARACTER C*9READ '( A7 )', C
CHARACTER C*
n ¤Î¤µ¤Þ¤¶¤Þ¤Ê n ¤ÎÃͤò°Ê²¼¤Îɽ¤Ë¼¨¤·¤Þ¤¹¡£
¥Ç¡¼¥¿ NodeDId
Node DId
Node DId
½ñ¼° A7
A7
A7 ¥á¥â¥ê¡¼ NodeDId
e DId
d
D ¤Ï¶õÇò¤Î¥¹¥Ú¡¼¥¹¤ò¼¨¤·¤Þ¤¹¡£
½ÐÎÏÎã: 3 ʸ»ú¡¢5 ʸ»ú¡¢¤ª¤è¤Ó 7 ʸ»ú¤Îʸ»úÎó¤Î½ÐÎÏ (¤½¤ì¤¾¤ì 5 ʸ»ú¤ÎÍó¤Ë½ÐÎÏ)
PRINT 1, 'The', 'whole', 'shebang'1 FORMAT( A5 / A5 / A5 )END¾åµ¤Î¥×¥í¥°¥é¥à¤Ï¼¡¤Î¤è¤¦¤Ëɽ¼¨¤·¤Þ¤¹¡£
DDThewholeshebaʸ»ú¤Ç¤Ê¤¤·¿¤ÎºÇÂçʸ»ú¿ô¤ò¼¡¤Ë¤Þ¤È¤á¤Þ¤¹¡£
f77
¤Ç¤ÏFORMAT
ʸ¡¢ÂåÆþʸ¡¢¤ª¤è¤ÓDATA
ʸ¤ÎÃæ¤Çʸ»úÄê¿ô¤¬»ÈÍѤǤ¤ë¤È¤¤Ï¡¢¤É¤Î¤è¤¦¤Ê¾ì¹ç¤Ç¤â¥Û¥ì¥ê¥¹Äê¿ô¤ò»ÈÍѤǤ¤Þ¤¹¡£© ¤³¤ì¤éÄê¿ô¤Ï¤ª´«¤á¤Ç¤¤Þ¤»¤ó¡£Fortran 77 µ¬³Ê¤Ï¡¢µì¥×¥í¥°¥é¥à¤È¤Î¸ß´¹À¤ò²þÁ±¤¹¤ë¤¿¤á¥Û¥ì¥ê¥¹µ¡Ç½¤òÈ÷¤¨¤ë¤³¤È¤ò´«¤á¤Æ¤¤¤Þ¤¹¤¬¡¢Fortran 77 ¤Ï¤³¤ì¤éµì¥Û¥ì¥ê¥¹ (nH
) ɽµË¡¤ò»ý¤Ã¤Æ¤¤¤Þ¤»¤ó¡£¤³¤Î¤è¤¦¤ÊÄê¿ô¤ÏʤӤˤè¤ëÆþÎϤޤ¿¤ÏÊÑ¿ô·²ÆþÎϤÎÆþÎϥǡ¼¥¿Í×ÁǤȤ·¤Æ»ÈÍѤǤ¤Þ¤»¤ó¡£¤¿¤È¤¨¤Ð¡¢¼¡¤Î 2 ¤Ä¤Î½ñ¼°¤ÏÅù²Á¤Ç¤¹¡£
10 FORMAT( 8H Code = , A6 )20 FORMAT( ' Code = ', A6 )
f77
¤Ç¤Ï¡¢ÊÔ½¸µ½Ò»Ò´Ö¤Î¥³¥ó¥Þ¤Ï°ìÈ̤˾Êά²Äǽ¤Ç¤¹¡£
10 FORMAT( 5H flex 4Hible )¥Û¥ì¥ê¥¹ÊÔ½¸µ½Ò»Ò¤Ø¤ÎÆɤ߹þ¤ß
µì¥×¥í¥°¥é¥à¤È¤Î¸ß´¹À¤Î¤¿¤á¡¢
f77
¤â¥Û¥ì¥ê¥¹ÊÔ½¸µ½Ò»Ò¤ØÆɤ߹þ¤à¤³¤È¤¬
¤Ç¤¤Þ¤¹¡£©Îã: ¥Û¥ì¥ê¥¹ÊÔ½¸µ½Ò»Ò¤Ø¤ÎÆɤ߹þ¤ß¡£
READ
ʸ¤ËʤӤ¬¤Ê¤¤¤³¤È¤ËÃí°Õ¤·¤Æ¤¯¤À¤µ¤¤¡£
demo% cat hol1.fWRITE( *, 1 )1 FORMAT( 6Holder )READ( *, 1 )WRITE( *, 1 )ENDdemo% f77 hol1.fhol1.f:MAINdemo% a.outoldernewernewerdemo%¾åµ¤ÎÎã¤Ç½ñ¼°¤¬¼Â¹Ô»þ½ñ¼° (ÊÑ¿ô½ñ¼°) ¤Î¤È¤¤Ï¡¢¾åµ¤Î¼ÂºÝ¤Î½ñ¼°¤Ø¤ÎÆɤ߹þ¤ß¤Ï¹Ô¤ï¤ì¤º¡¢½ñ¼°¤ÏÊѹ¹¤µ¤ì¤Ê¤¤¤Þ¤Þ¤Ç¤¹¡£¤Ä¤Þ¤ê¡¢¼¡¤Î¤è¤¦¤ÊÆɤ߹þ¤ß¤Ï¼ºÇÔ¤·¤Þ¤¹¡£
CHARACTER F*18 / '(A8)' /READ(*,F) ! <- Æɤ߹þ¤ß¤Ï¹Ô¤ï¤ì¤Ê¤¤...¤É¤Á¤é¤Ë¤·¤Æ¤â¡¢¼ÂºÝ¤Î½ñ¼°¤ØÆɤ߹þ¤à¤¿¤á¤Î¤è¤êÎɤ¤ÊýË¡¤¬¤¢¤ë¤³¤È¤ÏÌÀ¤é¤«¤Ç¤¹¡£
À°¿ôÊÔ½¸ (
I
)
I
·Á»ØÄê»Ò¤Ï 10 ¿ÊÀ°¿ô¥Ç¡¼¥¿¹àÌܤ˻ÈÍѤµ¤ì¤Þ¤¹¡£°ìÈ̽ñ¼°¤ò¼¡¤Ë¼¨¤·¤Þ¤¹¡£
I[w[.m]]
I
w ¤ÈI
w.m ÊÔ½¸»ØÄê»Ò¤Ï¡¢ÊÔ½¸¤¹¤ëÍó¤¬ w ·å¤òÀê¤á¤ë¤³¤È¤ò¼¨¤·¤Þ¤¹¡£»ØÄꤵ¤ì¤¿Æþ½ÐÎÏʤӤιàÌܤÏÀ°¿ô·¿¤Ç¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£ÆþÎÏ»þ¤Ë»ØÄꤵ¤ì¤ëʤӤιàÌܤϡ¢À°¿ô¥Ç¡¼¥¿¤ÇÄêµÁ¤µ¤ì¤ë¤³¤È¤Ë¤Ê¤ê¤Þ¤¹¡£½ÐÎÏ»þ¤Ë»ØÄꤵ¤ì¤ëʤӤιàÌܤϡ¢À°¿ô¥Ç¡¼¥¿¤È¤·¤ÆÄêµÁ¤µ¤ì¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£ÆþÎÏ»þ¤Ë¤Ï¡¢
I
w.m ÊÔ½¸»ØÄê»Ò¤ÏI
w ÊÔ½¸»ØÄê»Ò¤ÈƱÅù¤Ë°·¤ï¤ì¤Þ¤¹¡£
I
w ÊÔ½¸»ØÄê»Ò¤Î½ÐÎÏÍó¤Ï°Ê²¼¤Î¤â¤Î¤«¤é¹½À®¤µ¤ì¤Þ¤¹¡£
- ¥¼¥í¤Þ¤¿¤Ï 1 ¸Ä°Ê¾å¤ÎÀè¹Ô¤¹¤ë¶õÇò
- ¼¡¤Ë¥Þ¥¤¥Ê¥¹ (Ãͤ¬Éé¤Î¤È¤) ¤Þ¤¿¤Ï¾Êά²Äǽ¤Ê¥×¥é¥¹
- Éä¹æ¤Ê¤·À°Äê¿ô (Àè¹Ô¤Î¥¼¥í¤ÏÉÕ¤±¤Ê¤¤) ¤Î½ñ¼°Æâ¤ÎÃͤÎÂ礤µ
À°Äê¿ô¤Ï¾¯¤Ê¤¯¤È¤â 1 ·å¤ò»ý¤Á¤Þ¤¹¡£
I
w.m ÊÔ½¸»ØÄê»Ò¤Î½ÐÎÏÍó¤Ï¡¢Éä¹æ¤Ê¤·À°Äê¿ô¤¬¾¯¤Ê¤¯¤È¤â m ·å¤Ç¹½À®¤µ¤ì¡¢É¬Íפ˱þ¤¸¤ÆÀè¹Ô¤Î¥¼¥í¤ò»ý¤Ä¤³¤È°Ê³°¤Ï¡¢I
w ÊÔ½¸»ØÄê»Ò¤ÈƱ¤¸¤Ç¤¹¡£m ¤ÎÃÍ¤Ï w ¤ÎÃͤòĶ¤¨¤Æ¤Ï¤Ê¤ê¤Þ¤»¤ó¡£m ¤¬¥¼¥í¤Ç¹àÌܤÎÃͤ⥼¥í¤Î¤È¤¤Ï¡¢Í¸ú¤ÊÉä¹æÀ©¸æ¤Ë´Ø·¸¤Ê¤¯¡¢½ÐÎÏÍó¤Ï¶õÇòʸ»ú¤À¤±¤Ç¹½À®¤µ¤ì¤Þ¤¹¡£
CHARACTER LINE*8 / '12345678' /READ( LINE, '(I2, I3, I2 )') I, J, KPRINT *, I, J, KEND¾åµ¤Î¥×¥í¥°¥é¥à¤Ï¼¡¤Î¤è¤¦¤Ëɽ¼¨¤µ¤ì¤Þ¤¹¡£
12 345 67
N = 1234PRINT 1, N, N, N, N1 FORMAT( I6 / I4 / I2 / I6.5 )END¾å¤Î¥×¥í¥°¥é¥à¤Ï¼¡¤Î¤è¤¦¤Ëɽ¼¨¤·¤Þ¤¹¡£
12341234**01234ÏÀÍýÊÔ½¸ (
L
)
L
·Á»ØÄê»Ò¤ÏÏÀÍý¥Ç¡¼¥¿¹àÌܤ˻ÈÍѤµ¤ì¤Þ¤¹¡£°ìÈ̽ñ¼°¤ò¼¡¤Ë¼¨¤·¤Þ¤¹¡£
Lw
L
w ÊÔ½¸»ØÄê»Ò¤ÏÍó¤¬ w ·å¤òÀê¤á¤ë¤³¤È¤ò¼¨¤·¤Þ¤¹¡£»ØÄꤵ¤ì¤¿Æþ½ÐÎÏʤӤιàÌܤÏÏÀÍý·¿¤Ç¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£ÆþÎÏ»þ¤Ë¤ÏʤӤιàÌܤÏÏÀÍý¥Ç¡¼¥¿¤ÇÄêµÁ¤µ¤ì¤ë¤³¤È¤Ë¤Ê¤ê¤Þ¤¹¡£½ÐÎÏ»þ¤Ë¤ÏʤӤιàÌܤÏÏÀÍý¥Ç¡¼¥¿¤È¤·¤ÆÄêµÁ¤µ¤ì¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£ÆþÎÏÍó¤Ï¾Êά²Äǽ¤Ê¶õÇò¡¢¤½¤Î¸å¤Ë¾Êά²Äǽ¤Ê¾®¿ôÅÀ¡¢¤µ¤é¤Ë¤½¤Î¸å¤Ë¿¿¤Î¤È¤¤Ï
T
¡¢µ¶¤Î¤È¤¤ÏF
¤¬Â³¤¤Þ¤¹¡£T
¤Þ¤¿¤ÏF
¤Î¸å¤ÎÍóÆâ¤Ëʸ»ú¤òÉÕ¤±¤ë¤³¤È¤¬²Äǽ¤Ç¤¹¡£ÏÀÍýÄê¿ô .TRUE
. ¤È .FALSE
. ¤ÏÆþÎϤȤ·¤Æ¼õ¤±Æþ¤ì¤é¤ì¤Þ¤¹¡£½ÐÎÏÍó¤Ï w-1 ¸Ä¤Î¶õÇò¤Î¸å¤Ë¿¿¤Î¤È¤¤ÏT
¡¢µ¶¤Î¤È¤¤ÏF
¤¬Â³¤¤Þ¤¹¡£
LOGICAL A*1 /.TRUE./, B*2 /.TRUE./, C*4 /.FALSE./PRINT '( L1 / L2 / L4 )', A, B, CEND¾åµ¤Î¥×¥í¥°¥é¥à¤Ï¼¡¤Î¤è¤¦¤Ëɽ¼¨¤·¤Þ¤¹¡£
TDTDDDF
LOGICAL*4 A1 READ '(L8)', APRINT *, AGO TO 1END¾åµ¤Î¥×¥í¥°¥é¥à¤Ï¼¡¤ÎÆþÎϥǡ¼¥¿¤ò͸ú¤Ê¥Ç¡¼¥¿¤È¤·¤Æ¼õ¤±Æþ¤ì¤Þ¤¹¡£
t true T TRUE .t .t. .T .T. .TRUE. TooTruef false F FALSE .f .F .F. .FALSE. Flakey8 ¿Ê¤ª¤è¤Ó 16 ¿ÊÊÔ½¸ (
O,Z
)
FORMAT
ʸ¤ÎO
·Á¤ÈZ
·ÁÍóµ½Ò»Ò¤Ï¤½¤ì¤¾¤ì 8 ¿Ê¤Þ¤¿¤Ï 16 ¿ÊÀ°¿ôÍѤǤ¹¤¬¡¢¤½¤ì¤é¤Ï¤É¤Î¥Ç¡¼¥¿¤Î·¿¤Ç¤â»ÈÍѤǤ¤Þ¤¹¡£©
Zw[.m]¤³¤³¤Ç w ¤Ï³°ÉôÍóÆâ¤Îʸ»ú¿ô¤Ç¤¢¤ê¡¢½ÐÎϤξì¹ç m ¤¬»ØÄꤵ¤ì¤Æ¤¤¤ë»þ¤Ï¡¢³°ÉôÍóÆâ¤Î¹ç·×·å¿ô¤¬·èÄꤵ¤ì¤Þ¤¹ (¤Ä¤Þ¤ê m ¸Ä¤ËËþ¤¿¤Ê¤¤¥¼¥í¤Ç¤Ê¤¤·å¤¬¤¢¤ë¾ì¹ç¡¢¤½¤ÎÍó¤Ï¹ç·×¤Ç m ·å¤Ë¤Ê¤ë¤Þ¤Çº¸Â¦¤Ë¥¼¥í¤¬Ëþ¤¿¤µ¤ì¤Þ¤¹)¡£m ¤ÏÆþÎϤˤϱƶÁ¤òÍ¿¤¨¤Þ¤»¤ó¡£
8 ¿Ê¤ª¤è¤Ó 16 ¿ÊÆþÎÏ
FORMAT
¤ËO
·Á¤Þ¤¿¤ÏZ
·ÁÍóµ½Ò»Ò¤ò»ý¤ÄREAD
¤Ï¡¢¤½¤ì¤¾¤ì 8 ¿Ê¤Þ¤¿¤Ï 16 ¿ÊÀ°¿ô¤È¤·¤Æ w ʸ»ú¤òÆɤ߹þ¤ß¡¢Âбþ¤¹¤ëÆþ½ÐÎÏʤӤΥá¥ó¥Ð¡¼¤ËÃͤò³ä¤êÅö¤Æ¤Þ¤¹¡£
654321¾åµ¤ÎºÇ½é¤Î·å¤Ï¡¢1 ·åÌܤ«¤éÆþÎϤ·¤Þ¤¹¡£
ÆþÎϤò¹Ô¤¦¥×¥í¥°¥é¥à¤Ï¼¡¤Î¤È¤ª¤ê¤Ç¤¹¡£
READ ( *, 2 ) M2 FORMAT ( O6 )¾åµ¤Î¤è¤¦¤Ê¥Ç¡¼¥¿¤È¥×¥í¥°¥é¥à¤Ç¤Ï¡¢8 ¿ÊÃÍ 654321 ¤¬ÊÑ¿ô M ¤ËÆɤ߼è¤é¤ì¤Þ¤¹¡£¤µ¤é¤Ë¾Ü¤·¤¤Îã¤ò¼¡¤Îɽ¤Ë¼¨¤·¤Þ¤¹¡£
ɽ 5-6 8 ¿Ê/16 ¿ÊÆþÎÏÃͤÎÎã O4 1234
D1234
O4 16234
1623
O3 97
DDD¥¨¥é¡¼: 9 ¤Ïµö²Ä¤µ¤ì¤Ê¤¤ Z5
A23DE
DA23DE
Z5
A23DEF
A23DE
Z4
95.AF2
¥¨¥é¡¼: ¥Ô¥ê¥ª¥É (.) ¤Ïµö²Ä¤µ¤ì¤Ê¤¤
8 ¿Ê¤ª¤è¤Ó 16 ¿ÊÆþÎϤΰìÈ̵¬Â§¤Ï¡¢¼¡¤Î¤È¤ª¤ê¤Ç¤¹¡£
- 8 ¿ÊÃͤξì¹ç¡¢³°ÉôÍó¤Ï¿ôÃÍ 0¡Á7 ¤À¤±¤ò´Þ¤à¤³¤È¤¬¤Ç¤¤Þ¤¹¡£
- 16 ¿ÊÃͤξì¹ç¡¢³°ÉôÍó¤Ï¿ôÃÍ 0¡Á9 ¤ª¤è¤Óʸ»ú
A¡ÁF
¡¢¤Þ¤¿¤Ïa¡Áf
¤À¤±¤ò´Þ¤à¤³¤È¤¬¤Ç¤¤Þ¤¹¡£- Éä¹æ¡¢¾®¿ôÅÀ¡¢¤ª¤è¤Ó»Ø¿ôÍó¤Ïµö²Ä¤µ¤ì¤Þ¤»¤ó¡£
- Á´¤Æ¶õÇò¤ÎÍó¤Ï¥¼¥í¤ÎÃͤò»ý¤Ä¤â¤Î¤È¤·¤Æ°·¤ï¤ì¤Þ¤¹¡£
- ¥Ç¡¼¥¿¹àÌܤ¬Âбþ¤¹¤ëÊÑ¿ô¤ËÂФ·¤ÆŤ¹¤®¤ë¤È¤¤Ï¡¢¥¨¥é¡¼¥á¥Ã¥»¡¼¥¸¤¬É½¼¨¤µ¤ì¤Þ¤¹¡£
8 ¿Ê¤ª¤è¤Ó 16 ¿Ê½ÐÎÏ
FORMAT
¤ËO
·Á¤Þ¤¿¤ÏZ
·ÁÍóµ½Ò»Ò¤ò»ý¤ÄWRITE
¤Ï¡¢¤½¤ì¤¾¤ì 8 ¿Ê¤Þ¤¿¤Ï 16 ¿ÊÀ°¿ô¤È¤·¤ÆÃͤò½ñ¤½Ð¤·¤Þ¤¹¡£w ʸ»ú¤ÎÉý¤ÎÍó¤Ë±¦µÍ¤á¤Ç½ñ¤¹þ¤Þ¤ì¤Þ¤¹¡£
M = 161WRITE ( *, 8 ) M8 FORMAT ( Z3 )END¾åµ¤Î¥×¥í¥°¥é¥à¤Ï
A1
(10 ¿Ê¿ô 161=16 ¿Ê¿ô A1) ¤òɽ¼¨¤·¤Þ¤¹¡£
DA1ʸ»ú A ¤¬½ÐÎÏ·å 2 ¤Ë½ñ¤¹þ¤Þ¤ì¤Þ¤¹¡£
¤µ¤é¤Ë¾Ü¤·¤¤Îã¤ò¼¡¤Îɽ¤Ë¼¨¤·¤Þ¤¹¡£
ɽ 5-7 8 ¿Ê/16 ¿Ê½ÐÎÏÃͤÎÎã O6
32767
D 77777
O2
14251
**
O4.3
27
D 033
O4.4
27
0033
O6
-32767
*****
Z4
32767
7FFF
Z3.3
2708
A94
Z6.4
2708
DD 0A94
Z5
-32767
******
8 ¿Ê¤ª¤è¤Ó 16 ¿Ê½ÐÎϤΰìÈ̵¬Â§¤Ï¡¢¼¡¤Î¤È¤ª¤ê¤Ç¤¹¡£
- Éé¤ÎÃͤÏÉä¹æ¤Ê¤·¤Î¤è¤¦¤Ë½ñ¤¹þ¤Þ¤ì¡¢¥Þ¥¤¥Ê¥¹Éä¹æ¤Ï½ÐÎϤµ¤ì¤Þ¤»¤ó¡£
- ³°ÉôÍó¤ÏɬÍפǤ¢¤ì¤Ð¡¢ºÇÂç w ¤ÎÉý¤Þ¤ÇÀè¹Ô¤¹¤ë¥¹¥Ú¡¼¥¹¤ÇËþ¤¿¤µ¤ì¤Þ¤¹¡£
- Í󤬶¹¤¹¤®¤ë¾ì¹ç¤Ï¥¢¥¹¥¿¥ê¥¹¥¯¤ÇËþ¤¿¤µ¤ì¤Þ¤¹¡£
- m ¤¬»ØÄꤵ¤ì¤ë¤È¡¢Íó¤Ï m ¤ÎÉý¤Ë¤Ê¤ë¤Þ¤ÇÀè¹Ô¤¹¤ë¥¼¥í¤Çº¸Â¦¤«¤éËþ¤¿¤µ¤ì¤Þ¤¹¡£
°ÌÃÖÉÕ¤±ÊÔ½¸
f77
¤Ï½ÐÎϹԤ˱è¤Ã¤¿¿åÊ¿°ÌÃÖÉÕ¤±¤Ë´Ø¤·¤Æ¤Ï¡¢½ñ¼°T
n¡¢TL
n¡¢TR
n¡¢
nT
¡¢¤ª¤è¤ÓnX
¤ò¥µ¥Ý¡¼¥È¤·¤Þ¤¹¡£¤³¤³¤Ç n ¤ÏÀµ¤ÎÀ°¿ô¤Ç¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£½ñ¼°»ØÄê»ÒT
¤ÏñÆȤˡ¢¤Þ¤¿¤ÏÀµ¤Î¥¼¥í¤Ç¤Ê¤¤¿ô¤ÎÁ°¸å¤ËÃÖ¤¯¤³¤È¤¬¤Ç¤¤Þ¤¹¡£Tn -- ÀäÂÐÃÍ·å
¥¿¥Ö¤Ï n ÈÖÌܤη夫¤éÆɤ߼è¤ë¤«¡¢¤Þ¤¿¤Ï n ÈÖÌܤηå¤Ø½ñ¤¹þ¤ß¤Þ¤¹¡£n ¤¬¤Ê¤¤¤È¤¤Ï¡¢
T1
¤È¤·¤Æ½èÍý¤µ¤ì¤Þ¤¹¡£TLn -- ÁêÂзå
¥¿¥Ö¤Ïº¸Â¦¤Î n ÈÖÌܤη夫¤éÆɤ߼è¤ë¤«¡¢¤Þ¤¿¤Ïº¸Â¦¤Î n ÈÖÌܤηå¤Ø½ñ¤¹þ¤ß¤Þ¤¹ n ¤¬¤Ê¤¤¤È¤¤Ï¡¢
TL0
¤È¤·¤Æ½èÍý¤µ¤ì¤Þ¤¹¡£©TRn -- ÁêÂзå
¥¿¥Ö¤Ï±¦Â¦¤Î n ÈÖÌܤη夫¤éÆɤ߼è¤ë¤«¡¢¤Þ¤¿¤Ï±¦Â¦¤Î n ÈÖÌܤηå¤Ø½ñ¤¹þ¤ß¤Þ¤¹ n ¤¬¤Ê¤¤¤È¤¤Ï¡¢
TR0
¤È¤·¤Æ½èÍý¤µ¤ì¤Þ¤¹¡£©nT -- ÁêÂÐ¥¿¥Ö¥¹¥È¥Ã¥× ©
¥¿¥Ö¤Ë¤è¤êÆɤ߼è¤ê¤Î¤È¤¤â½ñ¤¹þ¤ß¤Î¤È¤¤â¡¢n ÈÖÌܤΥ¿¥Ö¥¹¥È¥Ã¥×¤Ë°ÜÆ°¤·¤Þ¤¹¡£n ¤¬¾Êά¤µ¤ì¤ë¤È n=1 ¤¬»ÈÍѤµ¤ì¡¢¼¡¤Î¥¿¥Ö¥¹¥È¥Ã¥×¤Ë°ÜÆ°¤·¤Þ¤¹¡£(¤³¤ÎÊÔ½¸¤Ï¡¢FORTRAN 77 ¤Îµ¬³Ê³°¤Ç¤¹¡£)
¥¿¥ÖÁàºî¤Îµ¬Â§¤ÈÀ©¸Â»ö¹à¤Ï¡¢¼¡¤Î¤È¤ª¤ê¤Ç¤¹¡£
- ÆþÎÏÏÀÍýµÏ¿¤Î½ª¤ï¤ê¤ò±Û¤¨¤Æ±¦¤Ø¥¿¥ÖÁàºî¤¹¤ë¤È¥¨¥é¡¼¤Ë¤Ê¤ê¤Þ¤¹¡£
- ÆþÎÏÏÀÍýµÏ¿¤Î»Ï¤Þ¤ê¤ò±Û¤¨¤Æº¸¤Ø¥¿¥ÖÁàºî¤¹¤ë¤È¡¢ÆþÎϥݥ¤¥ó¥¿¤ÏµÏ¿¤Î»Ï¤á¤ËÃÖ¤«¤ì¤Þ¤¹¡£
- ÆâÉô½ñ¼°ÉÕ¤Æþ½ÐÎϤȳ°Éô½ñ¼°ÉÕ¤Æþ½ÐÎϤÎξÊý¤Ë¤Ä¤¤¤Æ¡¢ÈóÇ˲õŪ¤Ê¥¿¥ÖÁàºî¤¬²Äǽ¤Ç¤¹¡£ÈóÇ˲õŪ¤Ê¥¿¥ÖÁàºî¤È¤Ï¡¢½ÐÎϤκ¸¤Þ¤¿¤Ï±¦¤Ø¤Î¥¿¥ÖÁàºî¤¬µÏ¿¤ÎÀè¤Ë½ñ¤«¤ì¤¿Éôʬ¤òÇ˲õ¤·¤Ê¤¤¤È¤¤¤¦¤³¤È¤Ç¤¹¡£
- ½ÐÎϤα¦¤Ø¤Î¥¿¥ÖÁàºî¤Ë¤è¤êµÏ¿¤Î½ñ¤¹þ¤Þ¤ì¤Æ¤¤¤Ê¤¤Éôʬ¤Ï¶õÇò¤ÇËþ¤¿¤µ¤ì¤Þ¤¹¡£
- ½ÐÎϤκ¸¤Ø¤Î¥¿¥ÖÁàºî¤ÏÏÀÍý¥æ¥Ë¥Ã¥È¤¬¥·¡¼¥¯¤òµö²Ä¤¹¤ë¤³¤È¤òɬÍפȤ·¤Þ¤¹¡£¤·¤¿¤¬¤Ã¤ÆüËö¤È¤ÎÆþ½ÐÎϤĤޤê¥Ñ¥¤¥×¤Ïµö²Ä¤µ¤ì¤Þ¤»¤ó¡£
- ƱÍͤˤɤÁ¤é¤ÎÊý¸þ¤Ë¤»¤èÈóÇ˲õŪ¤Ê¥¿¥ÖÁàºî¤Ï¥·¡¼¥¯¤Ç¤¤ëÁõÃ֤ǤΤ߲Äǽ¤Ç¤¹¡£¤½¤ì°Ê³°¤Î¾ì¹ç¤Ë¤Ï¡¢±¦¤Ø¤Î¥¿¥ÖÁàºî¤Þ¤¿¤Ï
X
ÊÔ½¸»ØÄê»Ò¤Ë¤è¤ë¶õÇò½èÍý¤Ï½ÐÎϤ˶õÇò¤ò½ñ¤¹þ¤ß¤Þ¤¹¡£- ¥¿¥Ö¥¹¥È¥Ã¥×¤Ï¡¢8 ·å¤´¤È¤Ë¸ÇÄꤵ¤ì¤Æ¤¤¤Þ¤¹¡£
nX -- °ÌÃÖ
n
X
ÊÔ½¸»ØÄê»Ò¤ÏµÏ¿¤Ø¤Î¡¢¤Þ¤¿¤ÏµÏ¿¤«¤é¤Î¼¡¤Îʸ»ú¤ÎžÁ÷¤ò¸½ºß¤Î°ÌÃÖ¤«¤é n ʸ»úÀè¤Î°ÌÃ֤ǹԤ¦¤³¤È¤ò»Ø¼¨¤·¤Þ¤¹¡£ÆþÎÏ»þ¡¢n
X
ÊÔ½¸»ØÄê»Ò¤ÏµÏ¿¥Ý¥¤¥ó¥¿¤ò n ·å¿Ê¤á¤ë¤Î¤Ç¡¢n ʸ»ú¥¹¥¥Ã¥×¤·¤Þ¤¹¡£µÏ¿¤ÎºÇ½ªÊ¸»ú¤ò±Û¤¨¤¿°ÌÃ֤ϡ¢¤³¤Î°ÌÃÖ¤«¤éʸ»ú¤¬Å¾Á÷¤µ¤ì¤Ê¤¤¾ì¹ç¤Ï»ØÄꤹ¤ë¤³¤È¤¬¤Ç¤¤Þ¤¹¡£
½ÐÎÏ»þ¡¢n
X
»ØÄê»Ò¤Ï n ¸Ä¤Î¶õÇò¤ò½ñ¤¹þ¤ß¤Þ¤¹¡£
demo% cat rtab.fCHARACTER C*2, S*2OPEN( 1, FILE='mytab.data')DO I = 1, 2READ( 1, 2 ) C, S2 FORMAT( T5, A2, T1, A2 )PRINT *, C, SEND DOENDdemo%
demo% cat mytab.datadefguvwx12345678demo%
demo%a.out
uvde5612demo%¾åµ¤ÎÎã¤Ç¤Ï¡¢¤Þ¤º·å 5 ¤È 6 ¤ò¡¢¼¡¤Ë·å 1 ¤È 2 ¤òÆɤ߼è¤ê¤Þ¤¹¡£
Îã: ½ÐÎÏ
T
n (ÀäÂÐ¥¿¥Ö) ¡½ ¤³¤Î¥×¥í¥°¥é¥à¤Ï½ÐÎÏ¥Õ¥¡¥¤¥ë¤ò½ñ¤¹þ¤ß¤Þ¤¹¡£
demo% cat otab.fCHARACTER C*20 / "12345678901234567890" /OPEN( 1, FILE='mytab.rep')WRITE( 1, 2 ) C, ":", ":"2 FORMAT( A20, T10, A1, T20, A1 )ENDdemo%
demo% cat mytab.rep123456789:123456789:demo%¾åµ¤ÎÎã¤Ï 20 ʸ»ú¤ò½ñ¤¹þ¤ß¡¢·å 10 ¤È 20 ¤òÊѹ¹¤·¤Þ¤·¤¿¡£
Îã: ÆþÎÏ
TR
n ¤ª¤è¤ÓTL
n (ÁêÂÐ¥¿¥Ö) ¡½ ¥×¥í¥°¥é¥à
demo% cat rtabi.fCHARACTER C, S, TOPEN( 1, FILE='mytab.data')DO I = 1, 2READ( 1, 2 ) C, S, T2 FORMAT( A1, TR5, A1, TL4, A1 )PRINT *, C, S, TEND DOENDdemo%
demo% cat mytab.datadefguvwx12345678demo%
demo% a.outdwg174demo%¾åµ¤ÎÎã¤Ï¡¢·å 1 ¤òÆɤ߼è¤Ã¤Æ¤«¤é·å 7 ¤Þ¤Ç 5 ·å±¦¤Ë°ÜÆ°¤·¡¢¤½¤Î¸å·å 4 ¤Þ¤Ç 4 ·åº¸¤Ë°ÜÆ°¤·¤Þ¤¹¡£
Îã:
TR
n ¤ÈTL
n ¤Î½ÐÎÏ (ÁêÂÐ¥¿¥Ö) ¡½ ¤³¤Î¥×¥í¥°¥é¥à¤Ï½ÐÎÏ¥Õ¥¡¥¤¥ë¤ò½ñ¤¹þ¤ß¤Þ¤¹¡£
demo% cat rtabo.fCHARACTER C*20 / "12345678901234567890" /OPEN( 1, FILE='rtabo.rep')WRITE( 1, 2 ) C, ":", ":"2 FORMAT( A20, TL11, A1, TR9, A1 )ENDdemo%¼Â¹Ô¤·¤Æ¤â²¿¤âɽ¼¨¤·¤Þ¤»¤ó¤¬¡¢
mytab.rep
½ÐÎÏ¥Õ¥¡¥¤¥ë¤ò¸«¤ë¤³¤È¤¬¤Ç¤¤Þ¤¹¡£
demo% cat rtabo.rep123456789:123456789:demo%¾åµ¤Î¥×¥í¥°¥é¥à¤Ï 20 ʸ»ú¤ò½ñ¤¹þ¤ó¤Ç¤«¤é·å 10 ¤Þ¤Ç 11 ·åº¸¤Ë°ÜÆ°¤·¡¢¤½¤Î¸å·å 20 ¤Þ¤Ç 9 ·å±¦¤Ë°ÜÆ°¤·¤Þ¤¹¡£
°úÍÑÉäÊÔ½¸ ("
aaa
")°úÍÑÉäÊÔ½¸»ØÄê»Ò¤Ïʸ»úÄê¿ô¤Î½ñ¼°¤ò»ÈÍѤ·¤Þ¤¹¡£© °úÍÑÉäÊÔ½¸»ØÄê»Ò¤ÏÊÔ½¸»ØÄê»Ò¼«¿È¤¬°Ï¤ó¤Àʸ»ú (¶õÇò¤ò´Þ¤ß¤Þ¤¹) ¤ò½ñ¤¹þ¤ß¤Þ¤¹¡£°úÍÑÉäÊÔ½¸»ØÄê»Ò¤ÏÆþÎϤ˻ÈÍѤ·¤Æ¤Ï¤Ê¤ê¤Þ¤»¤ó¡£
Íó¤ÎÉý¤Ï¶èÀÚ¤êÍÑ°úÍÑÉä¤Î´Ö¤Ë´Þ¤Þ¤ì¤ëʸ»ú¿ô¤Ç¤¹¤¬¡¢¶èÀÚ¤êÍѤΰúÍÑÉä¤Ï´Þ¤ß¤Þ¤»¤ó¡£ÍóÆâ¤Ë¤¢¤Ã¤Æ´Ö¤Ë¶õÇò¤¬¤Ê¤¤ 2 ¸Ä¤ÎϢ³¤¹¤ë°úÍÑÉä¤Ï¡¢1 ¸Ä¤Î°úÍÑÉä¤È¤·¤Æ¿ô¤¨¤é¤ì¤Þ¤¹¡£Æ±ÍͤÎÊýË¡¤Ç¥¢¥Ý¥¹¥È¥í¥Õ¥£¤ò»ÈÍѤ¹¤ë¤³¤È¤¬¤Ç¤¤Þ¤¹¡£
Îã:
quote.f
(Åù²Á¤Ê 2 ¤Ä¤ÎÊýË¡)
WRITE( *, 1 )1 FORMAT( '¤³¤ì¤Ï°úÍÑÉä " ¤Ç¤¹¡£' )WRITE( *, 2 )2 FORMAT( "¤³¤ì¤Ï°úÍÑÉä "" ¤Ç¤¹¡£" )END¤³¤ì¤Ï¥á¥Ã¥»¡¼¥¸¡Ö¤³¤ì¤Ï°úÍÑÉä
"
¤Ç¤¹¡£
¡×¤ò 2 ²ó½ñ¤¹þ¤ß¤Þ¤¹¡£´ð¿ôÀ©¸æ (
R
)½ñ¼°»ØÄê»Ò¤Ï
R
¤Þ¤¿¤Ï nR
¤Ç¤¹¡£¤¿¤À¤· 2¡ån¡å36 ¤Ç¤¹¡£n ¤¬¾Êά¤µ¤ì¤ë¤È¡¢¥Ç¥Õ¥©¥ë¥È¤Î 10 ¿Ê´ð¿ô¤¬Éü¸µ¤µ¤ì¤Þ¤¹¡£´ð¿ôÀ©¸æ¤Ë¤è¤ê½ñ¼°ÉÕ¤À°¿ôÆþ½ÐÎÏÊÑ´¹¤Ë 10 °Ê³°¤Î´ð¿ô¤ò»ØÄꤹ¤ë¤³¤È¤¬¤Ç¤¤Þ¤¹¡£¤³¤Î»ØÄê»Ò¤ÏÉâÆ°¾®¿ôÅÀÊÑ´¹¤Î·å°ÜÆ°
P
¤Ë¤Ê¤é¤Ã¤Æ¤¤¤Þ¤¹¡£Â¾¤Î´ð¿ô¤¬»ØÄꤵ¤ì¤ë¤«¡¢¤Þ¤¿¤Ï½ñ¼°²ò¼á¤¬½ªÎ»¤¹¤ë¤Þ¤Ç¤Ï¸ú²Ì¤ò»ý¤Á³¤±¤Þ¤¹¡£Æþ½ÐÎϹàÌÜ¤Ï 32 ¥Ó¥Ã¥ÈÀ°¿ô¤È¤·¤Æ°·¤ï¤ì¤Þ¤¹¡£Îã: ´ð¿ô¤¬ 16 ¤Ç¡¢Éä¹æ¤Ê¤·¡¢16 ¿Ê¤ÎÀ°¿ô¡¢10 ¤ÎÉý¤ò»ý¤Á¡¢8 ·å¤Þ¤Ç¥¼¥í¤ÇËþ¤¿¤¹½ñ¼°¤Ï (
su
,16r
,I10.8
) ¤È¤Ê¤ê¤Þ¤¹¡£
demo% cat radix.finteger i / 110 /write( *, 1 ) i1 format( su, 16r, I10.8 )enddemo% f77 -silent radix.fdemo% a.outDD0000006Edemo%
SU
¤Ë¤Ä¤¤¤Æ¤Ï¡¢¡ÖÉä¹æÊÔ½¸ (SU¡¢SP¡¢SS¡¢S)¡×¤ÇÀâÌÀ¤·¤Þ¤¹¡£¼Â¿ôÊÔ½¸ (
D¡¢E¡¢F¡¢G
)
D
·Á¡¢E
·Á¡¢F
·Á¡¢¤ª¤è¤ÓG
·Á»ØÄê»Ò¤Ï¡¢10 ¿Ê¤Î¼Â¿ô¥Ç¡¼¥¿¹àÌܤ˻ÈÍѤµ¤ì¤Þ¤¹¡£
D
·ÁÊÔ½¸
D
·Á»ØÄê»Ò¤Ï 10 ¿ÊÇÜÀºÅÙ¹àÌܤλؿô½ñ¼°¤Ë»ÈÍѤµ¤ì¤Þ¤¹¡£°ìÈ̽ñ¼°¤ò¼¡¤Ë¼¨¤·¤Þ¤¹¡£
D[w[.d]]
D
w ¤ª¤è¤ÓD
w.d ·ÁÊÔ½¸»ØÄê»Ò¤Ï¡¢ÊÔ½¸¤¹¤ëÍó¤¬ w ·å¤òÀê¤á¤ë¤³¤È¤ò¼¨¤·¤Þ¤¹¡£d ¤Ï¿ô¤Î¾®¿ôÉô (¾®¿ôÅÀ¤Î±¦Â¦¤ÎÉôʬ) ¤¬ d ·å¤Ç¤¢¤ë¤³¤È¤ò¼¨¤·¤Þ¤¹¡£¤·¤«¤·ÆþÎϥǡ¼¥¿¤¬¾®¿ôÅÀ¤ò»ý¤Ä¾ì¹ç¤Ï¡¢¤½¤Î¾®¿ôÅÀ¤¬ d ¤ÎÃͤò̵¸ú¤Ë¤·¤Þ¤¹¡£ÆþÎÏ»þ¤Ë»ØÄꤵ¤ì¤ëʤӤιàÌܤϡ¢¼Â¿ô¥Ç¡¼¥¿¤ÇÄêµÁ¤µ¤ì¤ë¤³¤È¤Ë¤Ê¤ê¤Þ¤¹¡£½ÐÎÏ»þ¤Ë»ØÄꤵ¤ì¤ëʤӤιàÌܤϡ¢¼Â¿ô¥Ç¡¼¥¿¤È¤·¤ÆÄêµÁ¤µ¤ì¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£
½ÐÎÏʸ¤Ç¤Ï¡¢
E
¤ÎÂå¤ï¤ê¤ËD
¤¬»ÈÍѤµ¤ì¤ë¤³¤È°Ê³°¤Ï¡¢D
·ÁÊÔ½¸µ½Ò»Ò¤¬E
·ÁÊÔ½¸µ½Ò»Ò¤ÈƱ¤¸¤³¤È¤ò¹Ô¤¤¤Þ¤¹¡£D
w.d ·ÁÊÔ½¸»ØÄê»Ò¤ËÂФ¹¤ë½ÐÎÏÍó¤ÏÉý w ¤ò»ý¤Á¤Þ¤¹¡£ÃͤÏÍó¤Ë±¦µÍ¤á¤µ¤ì¤Þ¤¹¡£Íó¤Ï¥¼¥í¤Þ¤¿¤Ï 1 ¸Ä°Ê¾å¤ÎÀè¹Ô¤¹¤ë¶õÇò¤Î¼¡¤Ë¥Þ¥¤¥Ê¥¹ (Ãͤ¬Éé¤Î¤È¤) ¤Þ¤¿¤Ï¾Êά²Äǽ¤Ê¥×¥é¥¹¤¬¤¢¤ê¡¢¤µ¤é¤Ë d ·å¤Î 10 ¿Ê¿ô¤Ë´Ý¤á¤é¤ì¤¿Ê¤ӹàÌܤÎÃͤÎÂ礤µ¤¬Â³¤¤Þ¤¹¡£w ¤Ï¡¢¥Þ¥¤¥Ê¥¹Éä¹æ¡¢¾®¿ôÅÀ¤Îº¸Â¦¤Î 1 ·å°Ê¾å¤Î¿ô»ú¡¢¾®¿ôÅÀ¡¢¤ª¤è¤Ó¾®¿ôÅÀ¤Î±¦Â¦¤Î
d ·å¤Þ¤Ç¤Î¿ô»ú¤òµö²Ä¤·¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£¤·¤¿¤¬¤Ã¤Æ¡¢¤³¤Î¾ì¹ç w¡æd+3 ¤Ç¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£Îã:
D
·ÁÊÔ½¸¤òÀßÄꤷ¤¿¼ÂÆþÎÏ¡£¥×¥í¥°¥é¥àDinp.f
CHARACTER LINE*24 / '12345678 23.5678 .345678' /READ( LINE, '( D8.3, D8.3, D8.3 )') R, S, TPRINT '( D10.3, D11.4, D13.6 )', R, S, TEND¾åµ¤Î¥×¥í¥°¥é¥à¤Ï¼¡¤Î¤è¤¦¤Ëɽ¼¨¤µ¤ì¤Þ¤¹¡£
0.123D+05 0.2357D+02 0.345678D+00¾åµ¤ÎÎã¤ÇºÇ½é¤ÎÆþÎϥǡ¼¥¿¹àÌܤϾ®¿ôÅÀ¤ò»ý¤¿¤Ê¤¤¤Î¤Ç
D8.3
¤¬¾®¿ôÅÀ¤ò·èÄꤷ¤Þ¤¹¡£¤½¤Î¾¤ÎÆþÎϥǡ¼¥¿¹àÌܤϾ®¿ôÅÀ¤ò»ý¤Ä¤Î¤Ç¡¢¾®¿ôÅÀ¤Ë´Ø¤¹¤ë¸Â¤ê¤³¤ì¤é¤Î¾®¿ôÅÀ¤¬D
·ÁÊÔ½¸µ½Ò»Ò¤ò̵¸ú¤Ë¤·¤Þ¤¹¡£Îã:
D
·ÁÊÔ½¸¤òÀßÄꤷ¤¿¼Â½ÐÎÏ¡£¥×¥í¥°¥é¥àDout.f
R = 1234.678PRINT 1, R, R, R1 FORMAT( D9.3 / D8.4 / D13.4 )END¾åµ¤Î¥×¥í¥°¥é¥à¤Ï¼¡¤Î¤è¤¦¤Ëɽ¼¨¤·¤Þ¤¹¡£
0.123D+04********DDD0.1235D+04¾åµ¤ÎÎã¤Ç 2 ÈÖÌܤνÐÎϹԤÏ
D8.4
¤¬Éä¹æ¤òµö²Ä¤·¤Ê¤¤¤Î¤Ç¥¢¥¹¥¿¥ê¥¹¥¯¤Ë¤Ê¤ê¡¢3 ÈÖÌܤνÐÎϹԤÏD13.4
¤Î·ë²Ì¤È¤·¤ÆÀèƬ¤Ë 3 ¸Ä¤Î¶õÇò¤¬¤¤Þ¤¹¡£
E
·ÁÊÔ½¸
E
·Á»ØÄê»Ò¤Ï 10 ¿Ê¤Î¼Â¿ô¥Ç¡¼¥¿¹àÌܤλؿô½ñ¼°¤Ë»ÈÍѤµ¤ì¤Þ¤¹¡£°ìÈ̽ñ¼°¤ò¼¡¤Ë¼¨¤·¤Þ¤¹¡£
E[w[.d][Ee]]w ¤ÏÊÔ½¸¤¹¤ëÍó¤¬ w ·å¤òÀê¤á¤ë¤³¤È¤ò¼¨¤·¤Þ¤¹¡£
d ¤Ï¿ô¤Î¾®¿ôÉô (¾®¿ôÅÀ¤Î±¦Â¦¤ÎÉôʬ) ¤¬ d ·å¤Ç¤¢¤ë¤³¤È¤ò¼¨¤·¤Þ¤¹¡£¤·¤«¤·ÆþÎϥǡ¼¥¿¤¬¾®¿ôÅÀ¤ò»ý¤Ä¾ì¹ç¤Ï¡¢¤½¤Î¾®¿ôÅÀ¤¬ d ¤ÎÃͤò̵¸ú¤Ë¤·¤Þ¤¹¡£
e ¤Ï»Ø¿ôÍó¤Î·å¤Î¿ô¤ò¼¨¤·¤Þ¤¹¡£¥Ç¥Õ¥©¥ë¥È¤Ï 2 ¤Ë¤Ê¤ê¤Þ¤¹¡£
»ØÄꤵ¤ì¤ëÆþ½ÐÎÏʤӤιàÌܤϼ¿ô·¿¤Î¹àÌܤǤʤ±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£ÆþÎÏ»þ¤Ë»ØÄꤵ¤ì¤ëʤӤιàÌܤϼ¿ô¥Ç¡¼¥¿¤ÇÄêµÁ¤µ¤ì¤ë¤³¤È¤Ë¤Ê¤ê¤Þ¤¹¡£½ÐÎÏ»þ¤Ë»ØÄꤵ¤ì¤ëʤӤιàÌܤϼ¿ô¥Ç¡¼¥¿¤È¤·¤ÆÄêµÁ¤µ¤ì¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£
E
w.d ·ÁÊÔ½¸»ØÄê»Ò¤ËÂФ¹¤ë½ÐÎÏÍó¤ÏÉý w ¤ò»ý¤Á¤Þ¤¹¡£ÃͤϤ½¤ÎÍó¤Ë±¦µÍ¤á¤µ¤ì¤Þ¤¹¡£Íó¤Ï¥¼¥í¤Þ¤¿¤Ï 1 ¸Ä°Ê¾å¤ÎÀè¹Ô¤¹¤ë¶õÇò¤Î¤¢¤È¤Ë¡¢¥Þ¥¤¥Ê¥¹ (Ãͤ¬Éé¤Î¤È¤) ¤Þ¤¿¤Ï¾Êά²Äǽ¤Ê¥×¥é¥¹¤¬Â³¤¡¢¤µ¤é¤Ë¥¼¥í¡¢¾®¿ôÅÀ¡¢d ·å¤Î 10 ¿Ê¿ô¤Ë´Ý¤á¤é¤ì¤¿Ê¤ӤιàÌܤÎÃͤÎÂ礤µ¤ª¤è¤Ó»Ø¿ô¤¬Â³¤¤Þ¤¹¡£½ñ¼°
E
w.d ¤Ï»Ø¿ô¤ÎÀäÂÐÃͤˤè¤Ã¤Æ°Ê²¼¤Î¤è¤¦¤Ë¤Ê¤ê¤Þ¤¹¡£½ñ¼°
E
w.dE
e ¤Ï¡¢¡Ã»Ø¿ô¡Ã (10e) -1 ¤Ê¤é¤Ð¡¢»Ø¿ô¤Ï½ñ¼° nnn ¤Ë¤Ê¤ê¤Þ¤¹¡£½ñ¼°
D
w.d ¤Ï»Ø¿ô¤ÎÀäÂÐÃͤˤè¤Ã¤Æ°Ê²¼¤Î¤è¤¦¤Ë¤Ê¤ê¤Þ¤¹¡£
- ¡Ã»Ø¿ô¡Ã 99 ¤Ê¤é¤Ð¡¢½ñ¼°
D
nn ¤Þ¤¿¤ÏE
nn ¤Þ¤¿¤Ï0
nn ¤Ë¤Ê¤ê¤Þ¤¹¡£- 99 ¡Ã»Ø¿ô¡Ã 999 ¤Ê¤é¤Ð¡¢½ñ¼° nnn ¤Ë¤Ê¤ê¤Þ¤¹¡£
w ¤Ï¥Þ¥¤¥Ê¥¹Éä¹æ¤òµö²Ä¤¹¤ëɬÍפϤ¢¤ê¤Þ¤»¤ó¤¬¡¢¥¼¥í¡¢¾®¿ôÅÀ¡¢¤ª¤è¤Ó¾®¿ôÅÀ¤Î±¦Â¦¤Î d ·å¤Î¿ô»ú¡¢¤ª¤è¤Ó»Ø¿ô¤òµö²Ä¤·¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£¤·¤¿¤¬¤Ã¤Æ¡¢Éé¿ô¤Ç¤Ê¤¤¤È¤¤Ï w ³ d+6 ¤Ç¤¹¤¬¡¢ e ¤¬¤¢¤ì¤Ð w ³ d+e+4 ¤Ç¤¹¡£Éé¿ô¤Î¤È¤¤Ï w ³ d+7 ¤Ç¤¹¤¬¡¢ e ¤¬¤¢¤ì¤Ð w ³ d+e+5 ¤Ç¤¹¡£
Îã:
E
·ÁÊÔ½¸¤òÀßÄꤷ¤¿¼ÂÆþÎÏ¡£¥×¥í¥°¥é¥àEinp.f
CHARACTER L*40/'1234567E2 1234.67E-3 12.4567 '/READ( L, '( E9.3, E12.3, E12.6 )') R, S, TPRINT '( E15.6, E15.6, E15.7 )', R, S, TEND¾åµ¤Î¥×¥í¥°¥é¥à¤Ï¼¡¤Î¤è¤¦¤Ëɽ¼¨¤·¤Þ¤¹¡£
DDD0.123457E+06DDD0.123467E+01DD0.1245670E+02¾åµ¤ÎÎã¤ÇºÇ½é¤ÎÆþÎϥǡ¼¥¿¹àÌܤϾ®¿ôÅÀ¤ò»ý¤¿¤Ê¤¤¤Î¤Ç
E9.3
¤¬¾®¿ôÅÀ¤ò·èÄꤷ¤Þ¤¹¡£¤½¤Î¾¤ÎÆþÎϥǡ¼¥¿¹àÌܤϾ®¿ôÅÀ¤ò»ý¤Ä¤Î¤Ç¡¢¾®¿ôÅÀ¤Ë´Ø¤¹¤ë¸Â¤ê¤³¤ì¤é¾®¿ôÅÀ¤¬D
·ÁÊÔ½¸µ½Ò»Ò¤ò̵¸ú¤Ë¤·¤Þ¤¹¡£Îã:
E
·ÁÊÔ½¸¤òÀßÄꤷ¤¿¼Â½ÐÎÏ¡£¥×¥í¥°¥é¥àEout.f
R = 1234.678PRINT 1, R, R, R1 FORMAT( E9.3 / E8.4 / E13.4 )END¾åµ¤Î¥×¥í¥°¥é¥à¤Ï¼¡¤Î¤è¤¦¤Ëɽ¼¨¤·¤Þ¤¹¡£
0.123E+04********DDD0.1235E+04¾åµ¤ÎÎã¤Ç
E8.4
¤ÏÉä¹æ¤òµö²Ä¤·¤Ê¤¤¤Î¤Ç¥¢¥¹¥¿¥ê¥¹¥¯¤¬½ÐÎϤµ¤ì¤Þ¤¹¡£¤Þ¤¿E13.4
¤Î;ʬ¤ÊÉý¤ÎÍó¤Ï 3 ¸Ä¤ÎÀè¹Ô¤¹¤ë¶õÇò¤Ë¤Ê¤ê¤Þ¤¹¡£Îã:
E
w.dE
e ·ÁÊÔ½¸¤òÀßÄꤷ¤¿¼Â½ÐÎÏ¡£¥×¥í¥°¥é¥àEwdEe.f
REAL X / 0.000789 /WRITE(*,'( E13.3)') XWRITE(*,'( E13.3E4)') XWRITE(*,'( E13.3E5)') XEND¤³¤Î¥×¥í¥°¥é¥à¤Ï¼¡¤Î¤è¤¦¤Ëɽ¼¨¤·¤Þ¤¹¡£
DDDD0.789E-03DD0.789E-0003D0.789E-00003
F
·ÁÊÔ½¸
F
»ØÄê»Ò¤Ï 10 ¿Ê¤Î¼Â¿ô¥Ç¡¼¥¿¹àÌܤ˻ÈÍѤµ¤ì¤Þ¤¹¡£°ìÈ̽ñ¼°¤ò¼¡¤Ë¼¨¤·¤Þ¤¹¡£
F[
w[
.d]]
F
w ¤ÈF
w.d ·ÁÊÔ½¸»ØÄê»Ò¤ÏÊÔ½¸¤¹¤ëÍó¤¬ w ·å¤òÀê¤á¤ë¤³¤È¤ò¼¨¤·¤Þ¤¹¡£d ¤Ï¿ô¤Î¾®¿ôÉô (¾®¿ôÅÀ¤Î±¦Â¦¤ÎÉôʬ) ¤¬ d ·å¤Ç¤¢¤ë¤³¤È¤ò¼¨¤·¤Þ¤¹¡£¤·¤«¤·ÆþÎϥǡ¼¥¿¤¬¾®¿ôÅÀ¤ò»ý¤Ä¾ì¹ç¤Ï¡¢¤½¤Î¾®¿ôÅÀ¤¬ d ¤ÎÃͤò̵¸ú¤Ë¤·¤Þ¤¹¡£
»ØÄꤵ¤ì¤ëÆþ½ÐÎÏʤӤιàÌܤϡ¢¼Â¿ô·¿¤Î¹àÌܤǤʤ±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£ÆþÎÏ»þ¤Ë»ØÄꤵ¤ì¤ëʤӤιàÌܤϡ¢¼Â¿ô¥Ç¡¼¥¿¤ÇÄêµÁ¤µ¤ì¤ë¤³¤È¤Ë¤Ê¤ê¤Þ¤¹¡£½ÐÎÏ»þ¤Ë»ØÄꤵ¤ì¤ëʤӤιàÌܤϡ¢¼Â¿ô¥Ç¡¼¥¿¤È¤·¤ÆÄêµÁ¤µ¤ì¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£
F
w.d ·ÁÊÔ½¸»ØÄê»Ò¤ËÂФ¹¤ë½ÐÎÏÍó¤ÏÉý w ¤ò»ý¤Á¤Þ¤¹¡£ÃͤϤ½¤ÎÍó¤Ë±¦µÍ¤á¤µ¤ì¤Þ¤¹¡£Íó¤Ï¥¼¥í¤Þ¤¿¤Ï 1 ¸Ä°Ê¾å¤ÎÀè¹Ô¤¹¤ë¶õÇò¤Î¤¢¤È¤Ë¥Þ¥¤¥Ê¥¹ (Ãͤ¬Éé¤Î¤È¤) ¤Þ¤¿¤Ï¾Êά²Äǽ¤Ê¥×¥é¥¹¤¬Â³¤¡¢¤µ¤é¤Ë¤½¤Î¼¡¤Ë d ·å¤Î 10 ¿Ê¿ô¤Ë´Ý¤á¤é¤ì¤¿Ê¤ӤιàÌܤÎÃͤÎÂ礤µ¤¬Â³¤¤Þ¤¹¡£w ¤Ï¥Þ¥¤¥Ê¥¹Éä¹æ¡¢¾®¿ôÅÀ¤Îº¸Â¦¤Î 1 ·å°Ê¾å¤Î¿ô»ú¡¢¾®¿ôÅÀ¡¢¤ª¤è¤Ó¾®¿ôÅÀ¤Î±¦Â¦¤Î
d ·å¤Î¿ô»ú¤òµö²Ä¤·¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£¤·¤¿¤¬¤Ã¤Æ¤³¤Î¾ì¹ç¤Ï¡¢w ³ d+3 ¤Ç¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£Îã:
F
·ÁÊÔ½¸¤òÀßÄꤷ¤¿¼ÂÆþÎÏ¡£¥×¥í¥°¥é¥àFinp.f
CHARACTER LINE*24 / '12345678 23.5678 .345678' /READ( LINE, '( F8.3, F8.3, F8.3 )') R, S, TPRINT '( F9.3, F9.4, F9.6 )', R, S, TEND¾åµ¤Î¥×¥í¥°¥é¥à¤Ï¼¡¤Î¤è¤¦¤Ëɽ¼¨¤·¤Þ¤¹¡£
12345.678DD23.5678D0.345678¾åµ¤ÎÎã¤Ç¡¢ºÇ½é¤ÎÆþÎϥǡ¼¥¿¹àÌܤϾ®¿ôÅÀ¤ò»ý¤¿¤Ê¤¤¤Î¤Ç
¡¢F8.3
¤¬¾®¿ôÅÀ¤ò·èÄꤷ¤Þ¤¹¡£¤½¤Î¾¤ÎÆþÎϥǡ¼¥¿¹àÌܤϾ®¿ôÅÀ¤ò»ý¤Ä¤Î¤Ç¡¢¾®¿ôÅÀ¤Ë´Ø¤¹¤ë¸Â¤ê¤³¤ì¤é¾®¿ôÅÀ¤¬F
·ÁÊÔ½¸µ½Ò»Ò¤ò̵¸ú¤Ë¤·¤Þ¤¹¡£Îã:
F
·ÁÊÔ½¸¤òÀßÄꤷ¤¿¼Â½ÐÎÏ¡£¥×¥í¥°¥é¥àFout.f
R = 1234.678PRINT 1, R, R, R1 FORMAT( F9.3 / F8.4 / F13.4 )END¾åµ¤Î¥×¥í¥°¥é¥à¤Ï¼¡¤Î¤è¤¦¤Ëɽ¼¨¤·¤Þ¤¹¡£
D1234.678********DDDD1234.6780¾åµ¤ÎÎã¤Ç
F8.4
¤ÏÉä¹æ¤òµö²Ä¤·¤Þ¤»¤ó¡£F13.4
¤Ë¤è¤ê ÀèƬ¤Ë 4 ¸Ä¤Î¶õÇò¤¬¤¤Æ¡¢¸å¤í¤Ë 1 ¸Ä¤Î¥¼¥í¤¬¤¤Þ¤¹¡£
G
·ÁÊÔ½¸
G
·Á»ØÄê»Ò¤Ï 10 ¿Ê¤Î¼Â¿ô¥Ç¡¼¥¿¹àÌܤ˻ÈÍѤµ¤ì¤Þ¤¹¡£°ìÈ̽ñ¼°¤ò¼¡¤Ë¼¨¤·¤Þ¤¹¡£
¤¢¤ë¤¤¤Ï Gw.dEe
D¡¢E¡¢F
¡¢¤ª¤è¤ÓG
·ÁÊÔ½¸»ØÄê»Ò¤ÏƱ¤¸ÊýË¡¤Ç¥Ç¡¼¥¿¤ò²ò¼á¤·¤Þ¤¹¡£
G
·ÁÊÔ½¸µ½Ò»Ò¤Ë¤è¤ë½ÐÎϤÎɽ¸½¤ÏÆâÉô¥Ç¡¼¥¿¤ÎÂ礤µ¤Ëº¸±¦¤µ¤ì¤Þ¤¹¡£¼¡¤Îɽ¤Ç N ¤Ï
ÆâÉô¥Ç¡¼¥¿¤ÎÂ礤µ¤ò¼¨¤·¤Þ¤¹¡£
0.1 N < 1.01.0 N < 10.0...10(d-2) N 10(d-1)10(d-1) N < 10d F(w-4).dF(w-4).(d-1)...F(w-4).1F(w-4).0
½ñ¼°ÉÕ¤ÆþÎϤΥ³¥ó¥Þ
¸ÇÄê·å½ñ¼°¤ÇÀ©¸æ¤µ¤ì¤ë¿ôÃͥǡ¼¥¿¤òÆþÎϤ¹¤ë¤È¤¡¢¥³¥ó¥Þ¤ò»ÈÍѤ·¤Æ·å¤ÎÀ©¸Â¤ò̵¸ú¤Ë¤¹¤ë¤³¤È¤¬¤Ç¤¤Þ¤¹¡£
(I10, F20.10, I4)¾åµ¤Î½ñ¼°¤ò»ÈÍѤ¹¤ì¤Ð¼¡¤ÎµÏ¿¤òÀµ¤·¤¯Æɤ߼è¤ë¤³¤È¤¬¤Ç¤¤Þ¤¹¡£
-345,.05e-3,12Æþ½ÐÎÏ¥·¥¹¥Æ¥à¤Ï FORTRAN 77 µ¬³Ê¤Ëµ½Ò¤µ¤ì¤Æ¤¤¤ë¤è¤ê¤â´²Âç¤Ë¤Ê¤Ã¤Æ¤¤¤Þ¤¹¡£°ìÈ̤Ëʸ»ú°Ê³°¤ÎÊÑ¿ô¤Î½ñ¼°ÉÕ¤Æɤ߼è¤ê¤ò¹Ô¤¦¾ì¹ç¡¢¥³¥ó¥Þ¤ÏÍó¤ÎŤµ¤òÊѹ¹¤·¤Þ¤¹¡£Àµ³Î¤Ë¸À¤¦¤È
I
w¡¢F
w.d¡¢F
w.d[E
e]¡¢¤ª¤è¤ÓG
w.d ¤ÎÆþÎÏÍó¤Î¾ì¹ç¡¢w ¸Ä¤Îʸ»ú¤¬Áöºº¤µ¤ì¤ë¤«¡¢¤Þ¤¿¤Ï¥³¥ó¥Þ¤¬¤¢¤ë¤ÈÍó¤Ï½ªÎ»¤·¤Þ¤¹¡£¥³¥ó¥Þ¤Ç½ªÎ»¤·¤¿¤È¤Íó¤Ï¥³¥ó¥Þ¤Þ¤Ç¤Îʸ»ú¤ò´Þ¤ß¤Þ¤¹¤¬¡¢¥³¥ó¥Þ¤Ï´Þ¤ß¤Þ¤»¤ó¡£¼¡¤ÎÍó¤Ï¥³¥ó¥Þ¤Î¼¡¤Îʸ»ú¤Ç»Ï¤Þ¤ê¤Þ¤¹¡£»Ä¸ʸ»ú (
Q
)
Q
·ÁÊÔ½¸µ½Ò»Ò¤ÏÆþÎϵϿ¤ÎŤµ¡¢¤Þ¤¿¤ÏÆþÎϵϿ¤ÎÆɤ߼è¤é¤ì¤Æ¤¤¤Ê¤¤»Ä¸Éôʬ¤ÎŤµ¤òÃΤ뤿¤á¤Ë»ÈÍѤµ¤ì¤Þ¤¹¡£©¸½ºß¤ÎµÏ¿¤«¤éÆɤ߼è¤ë¤Ù¤»Ä¤êʸ»ú¿ô¤ò³ÍÆÀ¤·¤Þ¤¹¡£
Îã: ¼Â¿ô¤Èʸ»úÎ󤫤é¤Î¼Â¿ô¡¢Ê¸»úÎóĹ¡¢¤ª¤è¤Óʸ»úÎó¤Î³ÍÆÀ
¾åµ¤ÎÎã¤Ï¡¢ÊÑ¿ô
R
¤ËÍó¤òÆɤ߹þ¤ó¤Ç¤«¤é¤½¤ÎÍó¤Î¸å¤Ë»Ä¤Ã¤Æ¤¤¤ëʸ»ú¿ô¤òL
¤ËÆɤ߹þ¤ß¡¢¤½¤ì¤«¤éL
¤Îʸ»ú¤òCVECT
¤ËÆɤ߹þ¤ß¤Þ¤¹¡£n ÈÖÌܤÎÊÔ½¸µ½Ò»Ò¤È¤·¤Æ¤ÎQ
¤Ï¡¢READ
ʤÓÆâ¤Î n ÈÖÌܤÎÍ×ÁǤȤ·¤Æ¤ÎL
¤È°ìÃפ·¤Þ¤¹¡£Îã: ÆþÎϵϿ¤ÎŤµ¤Î³ÍÆÀ¡£
Q
µ½Ò»Ò¤òºÇ½é¤ËÀßÄê¡£
¾åµ¤ÎÎã¤ÏÆþÎϵϿ¤ÎŤµ¤ò³ÍÆÀ¤·¤Þ¤¹¡£¤³¤ì¤ÇÆþÎÏʸ»úÎóÁ´ÂΤȤ½¤ÎŤµ¤Ë¤Ä¤¤¤Æ¤Ï¥æ¡¼¥¶¡¼¼«¿È¤¬²òÀϤ¹¤ë¤³¤È¤¬¤Ç¤¤Þ¤¹¡£
Q
ÊÔ½¸µ½Ò»Ò¤ÎÀ©¸Â»ö¹à¤Ï¡¢¼¡¤Î¤È¤ª¤ê¤Ç¤¹¡£
- Âбþ¤¹¤ëʤӤÎÍ×ÁǤÏ
¡¢INTEGER
¤Þ¤¿¤ÏLOGICAL
¥Ç¡¼¥¿·¿¤Ç¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£Q
¤Ï¸·Ì©¤Ëʸ»ú¤ò¿ô¤¨¤Þ¤¹¡£ÆþÎϵϿÃæ¤Ë»Ä¤Ã¤Æ¤¤¤ëʸ»ú¤Î¿ô¤ò³ÍÆÀ¤·¤Þ¤¹¡£À°¿ô¡¢¼Â¿ô¤Þ¤¿¤Ï¤½¤Î¾¤Î¿ô¤Ï³ÍÆÀ¤·¤Þ¤»¤ó¡£Q
ÊÔ½¸µ½Ò»Ò¤Ï¥Ñ¥¤¥×¥Õ¥¡¥¤¥ë¤ËŬÍѤ¹¤ë¤³¤È¤Ï¤Ç¤¤Þ¤»¤ó¡£¥Õ¥¡¥¤¥ë¤ÏºÆÆɤ߼è¤ê²Äǽ¤Ç¤¢¤ë¤³¤È¤¬É¬ÍפǤ¹¡£- ¤³¤Îµ½Ò»Ò¤Ï¥Õ¥¡¥¤¥ë¤È
stdin
ÆþÎÏ
(üËö) ÆþÎϤËÂФ·¤Æ͸ú¤Ç¤¹¡£- ¤³¤Îµ½Ò»Ò¤Ï½ÐÎϤˤϻȤ¨¤º¡¢¼Â¹Ô»þ¤Ë¥¨¥é¡¼¤¬È¯À¸¤·¤Þ¤¹¡£
·å°ÜÆ° (
P
)
P
·ÁÊÔ½¸µ½Ò»Ò¤Ï¼Â¿ô¤ÎÆþÎÏÃͤò 10 ¤Î¤Ù¤¾è¤À¤±·å°ÜÆ°¤·¤Þ¤¹¡£½ÐÎÏÃͤËÂФ·¤Æ¤Ï¡¢É½¼¨¤µ¤ì¤ë͸ú¿ô»ú¤òÀ©¸æ¤·¤Þ¤¹¡£
¥Ñ¥é¥á¡¼¥¿ ÀâÌÀ k Éä¹æ¤Ê¤·¤Þ¤¿¤ÏÉä¹æÉÕ¤¤ÎÀ°Äê¿ô[
k]
Pk ¤Ï·å°ÜÆ°¿ô¤È¸Æ¤Ð¤ì¡¢¤½¤Î¥Ç¥Õ¥©¥ë¥ÈÃͤϥ¼¥í¤Ç¤¹¡£
Îã: ·å°ÜÆ°¿ô¤òÀßÄꤷ¤¿Æþ½ÐÎÏʸ
READ ( 1, '( 3P E8.2 )' ) XWRITE ( 1, '( 1P E8.2 )' ) X
P
¼«¿È¤À¤±¤Î¤È¤¤Ï0P
¤ÈÅù²Á¤Ç¤¹¡£P
¤Ï·å°ÜÆ°¿ô¤ò¥Ç¥Õ¥©¥ë¥ÈÃÍ0P
¤Ë¥ê¥»¥Ã¥È¤·¤Þ¤¹¡£P
ñÆȤϵ¬³Ê³°¤Ç¤¹¡£©Í¸úÈÏ°Ï
·å°ÜÆ°¿ô¤Ï¡¢³ÆÆþ½ÐÎÏʸ¤Î¼Â¹Ô¤ò³«»Ï¤¹¤ë»þ¤Ë¥¼¥í¤Ë¥ê¥»¥Ã¥È¤µ¤ì¤Þ¤¹¡£·å°ÜÆ°¿ô¤Ï
D¡¢E¡¢F
¡¢¤ª¤è¤ÓG
·ÁÊÔ½¸µ½Ò»Ò¤ËŬÍѤµ¤ì¤Þ¤¹¡£ÆþÎÏ
ÆþÎÏ»þ¡¢»Ø¿ôÍó¤ò»ý¤¿¤Ê¤¤³°Éô¥Ç¡¼¥¿¤Ï¡¢10k ¤Ç½ü»»¤µ¤ì¤Æ¤«¤éÆâÉôŪ¤Ë³ÊǼ¤µ¤ì¤Þ¤¹¡£
ÆþÎÏÎã: ¥Ç¡¼¥¿¡¢·å°ÜÆ°¿ô¡¢¤ª¤è¤Ó·ë²Ì¤È¤·¤Æµ²±¤µ¤ì¤ëÃÍ
¥Ç¡¼¥¿ ½ñ¼° E8.2 3P E8.2 3P E8.2 -3P E8.2¥á¥â¥ê¡¼ 18.63 .01863 18.63E2 18630.½ÐÎÏ
D
·Á¡¢E
·Áµ½Ò»Ò¤ò»ÈÍѤ¹¤ë½ÐÎÏ¡¢¤Þ¤¿¤ÏE
·ÁÊÔ½¸¤ËÂбþ¤¹¤ëG
·Áµ½Ò»Ò¤ò»ÈÍѤ¹¤ë½ÐÎÏ»þ¤Ë¡¢ÆâÉô¹àÌܤϴðËܤμÂÄê¿ôÉô¤Ë 10k ¤ò¾è¤¸¤é¤ì¡¢»Ø¿ôÉô¤Ï k ¤À¤±¸º¤é¤µ¤ì¤Æ¡¢½ñ¤½Ð¤µ¤ì¤Þ¤¹¡£
F
·Áµ½Ò»Ò¤ò»ÈÍѤ¹¤ë½ÐÎÏ¡¢¤ª¤è¤ÓF
·ÁÊÔ½¸¤ËÂбþ¤¹¤ëG
·Áµ½Ò»Ò¤ò»ÈÍѤ¹¤ë½ÐÎÏ»þ¤Ë¡¢ÆâÉô¹àÌܤϴðËܤμÂÄê¿ôÉôʬ¤Ë 10k ¤ò¾è¤¸¤é¤ì¤¿¸å¤Ë½ñ¤½Ð¤µ¤ì¤Þ¤¹¡£½ÐÎÏÎã: ³ÊǼ¤µ¤ì¤ëÃÍ¡¢·å°ÜÆ°¿ô¡¢¤ª¤è¤Ó·ë²Ì¤Î½ÐÎÏ
¥á¥â¥ê¡¼ 290.0
290.0
290.0
290.0
½ñ¼° 2P E9.3 1P E9.3 -1P E9.3 F9.3ɽ¼¨ 29.00E+01 2.900E+02 0.029E+04 0.290E+03Éä¹æÊÔ½¸ (
SU¡¢SP¡¢SS¡¢S
)
SU
·Á¡¢SP
·Á¡¢¤ª¤è¤ÓS
·ÁÊÔ½¸µ½Ò»Ò¤ÏÀè¹Ô¤¹¤ëÉä¹æ¤Î½ÐÎϤòÀ©¸æ¤·¤Þ¤¹¡£Æüì¤ÊÉä¹æ»ØÄê»Ò¤¬¤Ê¤¤Ä̾ï¤Î½ÐÎϤξì¹ç¡¢Ãͤ¬Éé¤Î¤È¤¤Ï¥Þ¥¤¥Ê¥¹Éä¹æ¤¬º¸Ã¼¤Î·å¤Î 1 ·åº¸¤Ë½ÐÎϤµ¤ì¤Þ¤¹¡£Ãͤ¬Àµ¤Î¤È¤¤Ï½èÍý·Ï¤Ë¤è¤Ã¤Æ¤Ï¥×¥é¥¹Éä¹æ¤¬½ÐÎϤµ¤ì¤Þ¤¹¤¬¡¢f77
¤Ï¥×¥é¥¹Éä¹æ¤ò¾Êά¤·¤Þ¤¹¡£°Ê²¼¤ÎÉä¹æ»ØÄê»Ò¤¬»ÈÍѤǤ¤Þ¤¹¡£
SP
¡ÝSP
¤¬»ØÄê¤ÎÁ°¤Ë¤¢¤ë¤È¤¤ÏÉä¹æ¤¬½ÐÎϤµ¤ì¤Þ¤¹¡£SS
¡ÝSS
¤¬»ØÄê¤ÎÁ°¤Ë¤¢¤ë¤È¤¤Ï¥×¥é¥¹Éä¹æ¤Î½ÐÎϤÏÍ޻ߤµ¤ì¤Þ¤¹¡£S
¡ÝS
¤¬»ØÄê¤ÎÁ°¤Ë¤¢¤ë¤È¤¤Ï¥·¥¹¥Æ¥à¤Î¥Ç¥Õ¥©¥ë¥È¤¬Í¸ú¤È¤Ê¤ê¤Þ¤¹¡£¥Ç¥Õ¥©¥ë¥È¤ÏSS
¤Ç¤¹¡£SU
¡ÝSU
¤¬»ØÄê¤ÎÁ°¤Ë¤¢¤ë¤È¤¤ÏÀ°¿ôÃͤÏÉä¹æ¤Ê¤·¤È²ò¼á¤µ¤ì¤Þ¤¹¡£¤³¤ì¤Ïµ¬³Ê³°¤Ç¤¹¡£©¤¿¤È¤¨¤ÐÉä¹æ¤Ê¤·»ØÄê»Ò¤Ï¡¢¼¡¤Ë¼¨¤¹¤è¤¦¤Ë´ð¿ô»ØÄê»Ò¤È¤È¤â¤Ë»ÈÍѤ·¤Æ¡¢16 ¿Ê¿ô¥À¥ó¥×¤ò½ñ¼°²½¤¹¤ë¤³¤È¤¬¤Ç¤¤Þ¤¹¡£
2000 FORMAT( SU, 16R, 8I10.8 )Éä¹æÀ©¸æ¤Îµ¬Ìó¤ÈÀ©¸Â»ö¹à¤Ï¼¡¤Î¤È¤ª¤ê¤Ç¤¹¡£
- Éä¹æÀ©¸æ»ØÄê»Ò¤Ï½ÐÎϤÀ¤±¤ËŬÍѤµ¤ì¤Þ¤¹¡£
- Éä¹æÀ©¸æ»ØÄê»Ò¤ÏÊ̤ÎÉä¹æÀ©¸æ»ØÄê»Ò¤Ë½Ð²ñ¤¦¤«¡¢¤Þ¤¿¤Ï½ñ¼°²ò¼á¤¬½ªÎ»¤¹¤ë¤Þ¤Ç¤Ï͸ú¤Ç¤¹¡£
S
·Á¡¢SP
·Á¡¢¤ª¤è¤ÓSS
·Á»ØÄê»Ò¤ÏI
·Á¡¢F
·Á¡¢E
·Á¡¢D
·Á¡¢¤ª¤è¤ÓG
·ÁÊÔ½¸¤À¤±¤Ë±Æ¶Á¤òÍ¿¤¨¤Þ¤¹¡£SU
·Á»ØÄê»Ò¤ÏI
·ÁÊÔ½¸¤À¤±¤Ë±Æ¶Á¤òÍ¿¤¨¤Þ¤¹¡£¥¹¥é¥Ã¥·¥åÊÔ½¸ (/)
¥¹¥é¥Ã¥·¥æ (
/
) ÊÔ½¸»ØÄê»Ò¤Ï¸½ºß¤ÎµÏ¿¤Ë¤ª¤±¤ë¥Ç¡¼¥¿Å¾Á÷¤Î½ªÎ»¤ò»Ø¼¨¤·¤Þ¤¹¡£½çÈÖõºº
ÆþÎÏ»þ¤Ï¸½ºß¤ÎµÏ¿¤Î»Ä¤ê¤ÎÉôʬ¤ò̵»ë¤·¡¢¥Õ¥¡¥¤¥ë¤Ï¼¡¤ÎµÏ¿¤ÎÀèƬ¤Ë°ÌÃÖÉÕ¤±¤é¤ì¤Þ¤¹¡£2 ¸Ä¤ÎϢ³¤¹¤ë¥¹¥é¥Ã¥·¥å (
//
) ¤ÏµÏ¿Á´ÂΤò̵»ë¤·¤Þ¤¹¡£½ÐÎÏ»þ¤ÏµÏ¿½ªÎ»¤¬½ñ¤¹þ¤Þ¤ì¡¢¿·¤·¤¤µÏ¿¤¬³«»Ï¤µ¤ì¤Þ¤¹¡£2 ¸Ä¤ÎϢ³¤¹¤ë¥¹¥é¥Ã¥·¥å (
//
) ¤Ïʸ»ú¤Ê¤·¤ÎµÏ¿¤òºîÀ®¤·¤Þ¤¹¡£¥Õ¥¡¥¤¥ë¤¬ÆâÉô¥Õ¥¡¥¤¥ë¤Î¤È¤¡¢¤½¤ÎµÏ¿¤Ï¶õÇò¤ÇËþ¤¿¤µ¤ì¤Þ¤¹¡£Ä¾ÀÜõºº
³Æ¥¹¥é¥Ã¥·¥å¤ÏµÏ¿ÈÖ¹æ¤ò 1 ¤Ä¤º¤ÄÁý¤ä¤·¡¢¥Õ¥¡¥¤¥ë¤ò¤½¤ÎÈÖ¹æ¤ÎµÏ¿¤ÎÀèƬ¤Ë°ÌÃÖÉÕ¤±¤Þ¤¹¡£
½ÐÎÏ»þ¡¢2 ¸Ä¤ÎϢ³¤¹¤ë¥¹¥é¥Ã¥·¥å (
//
) ¤Ïʸ»ú¤Ê¤·¤ÎµÏ¿¤òºîÀ®¤·¤Þ¤¹¡£¤½¤ÎµÏ¿¤Ï¶õÇò¤ÇËþ¤¿¤µ¤ì¤Þ¤¹¡£½ªÎ»À©¸æ (:)
¥³¥í¥ó (:) ÊÔ½¸µ½Ò»Ò¤Ë¤è¤ê½ñ¼°¤ò¾ò·ïÉÕ¤¤Ç½ªÎ»¤¹¤ë¤³¤È¤¬¤Ç¤¤Þ¤¹¡£Æþ½ÐÎÏʤӤ¬½ñ¼°¤ÎÅÓÃæ¤Ç¿Ô¤¤ë¤È½ñ¼°¤Ï¥³¥í¥ó¤Ç½ªÎ»¤·¤Þ¤¹¡£
* col1.f ¥³¥í¥ó (:) ÊÔ½¸µ½Ò»ÒDATA INIT / 3 /, LAST / 8 /WRITE ( *, 2 ) INITWRITE ( *, 2 ) INIT, LAST2 FORMAT ( 1X 'INIT = ', I2, :, 3X, 'LAST = ', I2 )END¾åµ¤Î¥×¥í¥°¥é¥à¤Ï¡¢¼¡¤Î¤è¤¦¤Ê½ÐÎϤòÀ¸À®¤·¤Þ¤¹¡£
INIT = 3INIT = 3 LAST = 8¥³¥í¥ó¤¬¤Ê¤¤¤È½ÐÎϤϼ¡¤Î¤è¤¦¤Ë¤Ê¤ê¤Þ¤¹¡£
INIT = 3 LAST =INIT = 3 LAST = 8¼Â¹Ô»þ½ñ¼°
¼Â¹ÔÃæ¤ËÊѹ¹²Äǽ¤Ê½ñ¼°»ØÄê»Ò¤ò¥ª¥Ö¥¸¥§¥¯¥È¤ÎÃæ¤ËÀßÄꤹ¤ë¤³¤È¤¬¤Ç¤¤Þ¤¹¡£¤³¤ì¤Ë¤è¤Ã¤Æ½ÀÆðÀ¤¬¸þ¾å¤·¤Þ¤¹¡£¤³¤Î¼ïÎà¤Î½ñ¼°»ØÄê»Ò¤Ï¡¢Æþ½ÐÎÏʸ¤¬¼Â¹Ô¤µ¤ì¤ë¤¿¤Ó¤Ë²òÀϤµ¤ì¤ë¤Î¤Ç¡¢¼Â¹Ô»þ´Ö¤ÏÁý²Ã¤·¤Þ¤¹¡£¤³¤ì¤é¤ÏÊÑ¿ô½ñ¼°¤È¤â¸Æ¤Ð¤ì¤Þ¤¹¡£
¥ª¥Ö¥¸¥§¥¯¥È¤Ï°Ê²¼¤Î¼ïÎà¤Î¤¤¤º¤ì¤«¤Ç¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£
¶èÀÚ¤ë¤Î¤Ëº¸±¦¤Î³ç¸Ì¤¬É¬ÍפǤ¹¡£¤¿¤À¤·¥¡¼¥ï¡¼¥É
FORMAT
¤ÈʸÈÖ¹æ¤Ï½ü¤¤Þ¤¹¡£¥ª¥Ö¥¸¥§¥¯¥È¤Ï½ñ¼°Á´ÂΤòÀßÄꤹ¤ë¤Î¤Ë½½Ê¬¤ÊÂ礤µ¤ÇÀë¸À¤·¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£¤¿¤È¤¨¤Ð¡¢
'(8X,12I)
' ¤ÏINTEGER*4
¤Þ¤¿¤ÏCHARACTER*4
¥ª¥Ö¥¸¥§¥¯¥È¤Ë¤ÏŬ¤·¤Þ¤»¤ó¡£Îã: ʸ»ú¼°¤ÈÀ°¿ôÇÛÎó¤Î¼Â¹Ô»þ½ñ¼°
½ñ¼°Æâ¤ÎÊÑ¿ô¼° (<
e
>)°ìÈ̤Ë
FORMAT
ʸÆâ¤ÎÀ°Äê¿ô¤ÏǤ°Õ¤Î¼°¤ÇÃÖ´¹¤¹¤ë¤³¤È¤¬¤Ç¤¤Þ¤¹¡£©¼°¼«¿È¤Ï»³³ç¸Ì¤Ç°Ï¤Þ¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£
1 FORMAT( 3F6.1 )¾åµ¤Îʸ¤Î
6
¤Ï¡¢¼¡¤Î¤è¤¦¤ËÊÑ¿ôN
¤ÇÃÖ´¹²Äǽ¤Ç¤¹¡£
1 FORMAT( 3F<N>.1 )¤Þ¤¿¤Ï¼¡¤Î¤è¤¦¤Ë¡¢¤µ¤é¤ËÊ£»¨¤Ê¼°
2*N+M
¤Ç¤âÃÖ´¹²Äǽ¤Ç¤¹¡£
1 FORMAT( 3F<2*N+M>.1 )ƱÍͤˡ¢
3
¤Þ¤¿¤Ï1
¤òǤ°Õ¤Î¼°¤ÇÃÖ´¹¤¹¤ë¤³¤È¤¬¤Ç¤¤Þ¤¹¡£¤¿¤À 1 ¤Ä¤ÎÎã³°¤Ï n
H
... ÊÔ½¸µ½Ò»Ò¤Î n ¤Ç¤¹¡£½ñ¼°Æâ¤ÎÊÑ¿ô¼°¤ËÂФ¹¤ëµ¬Â§¤ÈÀ©¸Â»ö¹à¤Ï¡¢°Ê²¼¤Î¤È¤ª¤ê¤Ç¤¹¡£
- ¼°¤Ï½ñ¼°ÁöººÃæ¤Ë½Ð²ñ¤¦¤¿¤Ó¤ËºÆɾ²Á¤µ¤ì¤Þ¤¹¡£
- ɬÍפǤ¢¤ì¤Ð¡¢¼°¤ÏÀ°¿ô·¿¤ËÊÑ´¹¤µ¤ì¤Þ¤¹¡£
- ´Ø¿ô¸Æ¤Ó½Ð¤·¤ò´Þ¤á¤ÆÀµ¤·¤¤ Fortran 77 ¼°¤Ï¤¹¤Ù¤Æµö²Ä¤µ¤ì¤Þ¤¹¡£
- ÊÑ¿ô¼°¤Ï¡¢¼Â¹Ô»þ¤ËÀ¸À®¤µ¤ì¤ë½ñ¼°¤Ç¤Ï»ÈÍѤǤ¤Þ¤»¤ó¡£
- n
H
... ÊÔ½¸µ½Ò»Ò¤Î n ¤ÏÊÑ¿ô¼°¤Ë¤¹¤ë¤³¤È¤¬¤Ç¤¤Þ¤»¤ó¡£½ñ¼°¤Ê¤·Æþ½ÐÎÏ
½ñ¼°¤Ê¤·Æþ½ÐÎϤϡ¢2 ¿Ê¾ðÊó¤ò¤½¤ÎÆâÉôɽ¸½¤òÊѹ¹¤¹¤ë¤³¤È¤Ê¤¯¡¢¥á¥â¥ê¡¼¤È¤Î´Ö¤ÇžÁ÷¤¹¤ë¤¿¤á¤Ë»ÈÍѤµ¤ì¤Þ¤¹¡£½ñ¼°¤Ê¤·Æþ½ÐÎÏʸ¤Î¼Â¹Ô¤Î¤¿¤Ó¤Ëñ°ì¤ÎÏÀÍýµÏ¿¤ÎÆɤ߼è¤ê¡¢¤Þ¤¿¤Ï½ñ¤¹þ¤ß¤¬¹Ô¤ï¤ì¤Þ¤¹¡£ÆâÉôɽ¸½¤Ï¥¢¡¼¥¥Æ¥¯¥Á¥ã¤Ë¤è¤ê°Û¤Ê¤ë¤Î¤Ç¡¢½ñ¼°¤Ê¤·Æþ½ÐÎϤϰܿ¢À¤Ë¸Â³¦¤¬¤¢¤ê¤Þ¤¹¡£
½ñ¼°¤Ê¤·Æþ½ÐÎϤò»ÈÍѤ·¤Æ°ì»þŪ¤Ë¥Ç¡¼¥¿¤ò½ñ¤½Ð¤·¤¿¤ê¡¢¤Þ¤¿¤Ï¿×®¤Ë¥Ç¡¼¥¿¤ò½ñ¤½Ð¤·¤ÆƱ°ì¥¢¡¼¥¥Æ¥¯¥Á¥ã¤ò»ý¤Ä¥Þ¥·¥ó¾å¤Ç¼Â¹Ô¤µ¤ì¤ëÊ̤ΠFortran 77 ¥×¥í¥°¥é¥à¤ËÆþÎϤ¹¤ë¤³¤È¤¬¤Ç¤¤Þ¤¹¡£
½çÈÖõººÆþ½ÐÎÏ
½ñ¼°¤Ê¤·½çÈÖõºº¥Õ¥¡¥¤¥ë¤ÎÏÀÍýµÏ¿Ä¹¤Ï¡¢Æþ½ÐÎÏʤÓÃæ¤Î¹àÌܤ¬É¬ÍפȤ¹¤ë¥Ð¥¤¥È¿ô¤Ë¤è¤ê°Û¤Ê¤ê¤Þ¤¹¡£¤³¤ÎÆþ½ÐÎϽñ¼°¤ÎÍ×µá¾ò·ï¤Ë¤è¤ê¡¢³°ÉôʪÍýµÏ¿¥µ¥¤¥º¤ÏÏÀÍýµÏ¿¥µ¥¤¥º¤è¤ê¤¤¤¯¤é¤«Â礤¯¤Ê¤ê¤Þ¤¹¡£
WRITE( 8 ) A, BFortran 77 ¼Â¹Ô»þ¥·¥¹¥Æ¥à¤Ï¡¢½ñ¼°¤Ê¤·½çÈÖ
WRITE
Ãæ¤Ë¥Ç¡¼¥¿Ãæ¤ÎµÏ¿¶³¦¤È¤·¤Æ¡¢³Æ½ñ¼°¤Ê¤·½çÈֵϿ¤Î»Ï¤á¤È½ª¤ï¤ê¤ËINTEGER*4
¤Ç¥Ð¥¤¥È¿ô¤òÁÞÆþ¤·¤Þ¤¹¡£µÏ¿¤Î½ª¤ï¤ê¤Î¥Ð¥¤¥È¿ô¤Ë¤è¤ê¡¢µÏ¿¤ÎBACKSPACE
Áàºî¤¬²Äǽ¤Ë¤Ê¤ê¤Þ¤¹¡£·ë²Ì¤È¤·¤Æ Fortran 77 ¥×¥í¥°¥é¥à¤Ï¡¢½ñ¼°¤Ê¤·½çÈÖWRITE
Áàºî¤Ç½ñ¤¹þ¤Þ¤ì¤¿¥Ç¡¼¥¿¤Ë¤Ä¤¤¤Æ¤À¤±½ñ¼°¤Ê¤·½çÈÖREAD
¤ò»ÈÍѤ¹¤ë¤³¤È¤¬¤Ç¤¤Þ¤¹¡£¤³¤Î¤è¤¦¤ÊµÏ¿¤ò½ñ¼°ÉÕ¤¤È¤·¤ÆÆɤ߼è¤í¤¦¤È¤¹¤ë¤È¡¢¤½¤Î·ë²Ì¤Ïͽ¬¤Ç¤¤Þ¤»¤ó¡£°Ê²¼¤Ë¥¬¥¤¥É¥é¥¤¥ó¤ò¼¨¤·¤Þ¤¹¡£
- ¥Õ¥¡¥¤¥ë¤¬¤½¤ÎÊýË¡¤ÇºîÀ®¤µ¤ì¤Æ¤¤¤ë¤È¤°Ê³°¤Ç¤Ï¡¢½ñ¼°¤Ê¤·½çÈÖ
READ
¤ò»ÈÍѤ·¤Ê¤¤¤Ç¤¯¤À¤µ¤¤¡£- ³Æ½ñ¼°¤Ê¤·½çÈֵϿ¤Î»Ï¤á¤È½ª¤ï¤ê¤Ë¤Ï;ʬ¤Ê¥Ç¡¼¥¿¤¬¤¢¤ë¤Î¤Ç¡¢¤½¤Î;ʬ¤Ê¥Ç¡¼¥¿¤¬ÌÜΩ¤Ä¾ì¹ç¡¢¥æ¡¼¥¶¡¼¤Ï½ñ¼°¤Ê¤·Ä¾ÀÜÆþ½ÐÎϤλÈÍѤò»î¤ß¤¿¤¤¤È»×¤¦¤«¤â¤·¤ì¤Þ¤»¤ó¡£¤¤ï¤á¤ÆŤ¤µÏ¿¤è¤ê¤â¡¢Ã»¤¤µÏ¿¤Î»þ¤Ë¤³¤ì¤¬¸²Ãø¤Ë¤Ê¤ê¤Þ¤¹¡£
ľÀÜõººÆþ½ÐÎÏ
Ê£¿ô¤ÎÆþ½ÐÎÏʤӤ¬°Û¤Ê¤Ã¤¿Ä¹¤µ¤Î¤È¤¡¢
RECL=1
¥ª¥×¥·¥ç¥ó¤òÀßÄꤷ¤Æ¥Õ¥¡¥¤¥ë¤ò³«¤¯¤³¤È¤¬¤Ç¤¤Þ¤¹¡£¤³¤Î¥ª¥×¥·¥ç¥ó¤ÏÆɤ߼è¤ê¡¢¤Þ¤¿¤Ï½ñ¤¹þ¤ß¤ò¹Ô¤¦¹àÌܤοô¤ò·èÄꤹ¤ë¤¿¤á¤ËÆþ½ÐÎÏʤӤò»ÈÍѤ¹¤ë¤³¤È¤ò Fortran 77 ¤ËÃΤ餻¤Þ¤¹¡£¥æ¡¼¥¶¡¼¤Ï¤µ¤é¤Ë³ÆÆɤ߼è¤ê¤´¤È¤Ë¡¢Æɤ߼è¤ê¤ò³«»Ï¤¹¤ëºÇ½é¤ÎµÏ¿ (¤³¤Î¾ì¹ç¤É¤Î¥Ð¥¤¥È¤«¤é¤«) ¤ò Fortran 77 ¤ËÃΤ餻¤ëɬÍפ¬¤¢¤ë¤¿¤á¡¢³Æ¹àÌܤΥµ¥¤¥º¤òÃΤäƤª¤«¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£©
Îã: ľÀÜõºº -- ¤½¤ì¤¾¤ì 2 ¤Ä¤ÎÀ°¿ô¤«¤é¤Ê¤ëµÏ¿¤ò 3 ¸ÄºîÀ®¤¹¤ë
Îã: ľÀÜõºº -- 3 ¤Ä¤ÎµÏ¿¤òÆɤ߼è¤ë
¥Õ¥¡¥¤¥ë¾å¤ÎµÏ¿Ä¹¤¬¤ï¤«¤ê¤Þ¤¹¡£¤³¤ÎÎã¤Ç¤Ï¡¢½ñ¤¹þ¤Þ¤ì¤¿¤È¤ª¤ê¤Ë¥Õ¥¡¥¤¥ë¤òÆɤ߹þ¤à¤³¤È¤¬¤Ç¤¤Þ¤¹¡£
¤¿¤À¤·¡¢¥Õ¥¡¥¤¥ë¾å¤ÎµÏ¿Ä¹¤Ç¤Ï¤Ê¤¯³Æ¹àÌܤΥµ¥¤¥º¤¬¤ï¤«¤ì¤Ð¡¢OPEN ʸ¤Ç ¡¢
recl=1
¤ò»ÈÍѤ·¤Æ¡¢Æþ½ÐÎÏʤӤˤè¤Ã¤ÆÆɤ߹þ¤à¹àÌܤοô¤ò³ÎÄꤹ¤ë¤³¤È¤¬¤Ç¤¤Þ¤¹¡£Îã: ľÀÜõººÆɤ߼è¤ê¡¢
recl=1
¤ò»ÈÍѤ¹¤ë
¾åµ¤ÎÎã¤Î¤è¤¦¤Ë 3 À°¿ô (12¥Ð¥¤¥È) ¤òÆɤ߼è¤Ã¤¿¸å¡¢¥æ¡¼¥¶¡¼¤ÏµÏ¿ 13 ¤«¤é¼¡¤ÎÆɤ߼è¤ê¤ò³«»Ï¤·¤Þ¤¹¡£
\xa9 ¥Ð¥¤¥Ê¥êÆþ½ÐÎÏ
¥Ð¥¤¥Ê¥êÆþ½ÐÎϤǥե¡¥¤¥ë¤ò³«¤¯¤È¡¢¥×¥í¥°¥é¥à¤Ï¥ì¥³¡¼¥É¶³¦¤Î¤Ê¤¤¥Ð¥¤¥Ê¥ê¥Ç¡¼¥¿¤Î¥¹¥È¥ê¡¼¥à¤È¤·¤Æ¡¢¥Ç¡¼¥¿¤òÆɤ߽ñ¤¤Ç¤¤Þ¤¹¡£(¤³¤Îµ¡Ç½¤Ï Fortran 77 ¤Îµ¬³Ê³°¤Ç¤¹)¡£©
OPEN
ʸ¤Ë¤ª¤±¤ëFORM = 'BINARY'
¥ª¥×¥·¥ç¥ó¤Ï¼¡¤Î¤è¤¦¤Ë¡¢¤½¤Î¥æ¥Ë¥Ã¥È¤¬¥ì¥³¡¼¥É¥Þ¡¼¥¯¤Î¤Ê¤¤½çÈ֤νñ¼°¤Ê¤·¥Õ¥¡¥¤¥ë¤Ç¤¢¤ë¤ÈÀë¸À¤·¤Þ¤¹¡£
OPEN(1, FORM='BINARY')¥Ð¥¤¥Ê¥ê¥Õ¥¡¥¤¥ë¤Ï¡¢Ä¾ÀÜõºº¤ä½ñ¼°ÉÕ¤¤È¤·¤ÆÀë¸À¤¹¤ë¤³¤È¤â¤Ç¤¤Þ¤»¤ó¡£
WRITE
ʸ¤Ç¤Ï¡¢¥Ð¥¤¥Ê¥ê¥Ç¡¼¥¿¤Ï½ÐÎÏʤӤˤ¢¤ë¥Ð¥¤¥È¿ô¤ÈƱ¤¸¥Ð¥¤¥È¿ô¤¬¡¢¥Ð¥¤¥È¤Î¥¹¥È¥ê¡¼¥à¤È¤·¤Æ¥Õ¥¡¥¤¥ë¤Ë½ñ¤¹þ¤Þ¤ì¤Þ¤¹¡£READ
ʸ¤Ç¤Ï¡¢ÆþÎÏʤӤÇÊÑ¿ô¤¬Í׵ᤷ¤¿¥Ç¡¼¥¿¥Ð¥¤¥È¿ôʬ¤¬Æɤ߼è¤é¤ì¤Þ¤¹¡£¥Õ¥¡¥¤¥ë¤Ë¤Ï¥ì¥³¡¼¥É¥Þ¡¼¥¯ (¥ì¥³¡¼¥É¤Î½ª¤ï¤ê) ¤¬¤Ê¤¤¤Î¤Ç¡¢¥ì¥³¡¼¥É¥Þ¡¼¥¯°Ê¹ß¤¬Æɼè¤é¤ì¤ë²ÄǽÀ¤Ï¤¢¤ê¤Þ¤»¤ó¡£¥×¥í¥°¥é¥à¤¬¸¡½Ð¤Ç¤¤ë¾õÂ֤ϡ¢°Û¾ï¤Ê¥·¥¹¥Æ¥à¥¨¥é¡¼¤ò½ü¤¯¤È¥Õ¥¡¥¤¥ë¤Î½ª¤ï¤ê (EOF) ¤Ç¤ÎÆɼè¤ê¤À¤±¤Ç¤¹¡£³ÆREAD
ʸ¤Ï°Ê²¼¤ÎÎã¤Î¤è¤¦¤Ë¡¢¥Õ¥¡¥¤¥ë¤Î¼¡¤Î½çÈ֤ΥХ¤¥È¤òÆɤ߹þ¤à¤À¤±¤Ç¤¹¡£
¥Ð¥¤¥Ê¥ê¥Õ¥¡¥¤¥ë¤ËÂФ¹¤ë
INQUIRE
¤Ï¡¢FORM =
¥Ñ¥é¥á¡¼¥¿¤Î¾ì¹ç¤Ï'BINARY'
¡¢ACCESS
=
¤Î¾ì¹ç¤Ï'SEQUENTIAL'
¡¢UNFORMATTED
=
¤Î¾ì¹ç¤Ï'YES'
¡¢SEQUENTIAL
¤Î¾ì¹ç¤Ï'YES'
¤òÊÖ¤·¤Þ¤¹¡£¥Ð¥¤¥Ê¥ê¥Õ¥¡¥¤¥ë¤Ë¤Ï
BACKSPACE
¤Ï»ÈÍѤǤ¤º¡¢¼Â¹Ô»þ¤Ë¤Ï¥¨¥é¡¼¥á¥Ã¥»¡¼¥¸¤¬½ÐÎϤµ¤ì¤Þ¤¹¡£Ê¤Ӥˤè¤ëÆþ½ÐÎÏ
ʤӤˤè¤ëÆþ½ÐÎϤϡ¢½çÈÖõºº¥Ç¥Ð¥¤¥¹¤Î¤¿¤á¤Î¼«Í³·Á¼°¤ÎÆþ½ÐÎϤǤ¹¡£¤³¤ì¤ò»ÈÍѤ¹¤ë¤Ë¤Ï¡¢¼¡¤Ë¼¨¤¹¤è¤¦¤Ë½ñ¼°¼±Ê̻ҤȤ·¤Æ¥¢¥¹¥¿¥ê¥¹¥¯¤ò»ÈÍѤ·¤Æ¤¯¤À¤µ¤¤¡£
READ( 6, * ) A, B, CʤӤˤè¤ëÆþÎϤˤϡ¢¼¡¤Î¤è¤¦¤Êµ¬Â§¤¬¤¢¤ê¤Þ¤¹¡£
- ÆþÎÏ»þ¡¢Ãͤ϶õÇòʸ»úÎó¤È (¾ì¹ç¤Ë¤è¤Ã¤Æ¤Ï) ¥³¥ó¥Þ¤ÇʬΥ¤·¤Þ¤¹¡£
- ʸ»úÎó¤Î¾ì¹ç¤ò½ü¤¤¤Æ¡¢Ãͤˤ϶õÇò¤òÆþ¤ì¤ë¤³¤È¤Ï¤Ç¤¤Þ¤»¤ó¡£
- ʸ»úÎó¤Ï¡¢°úÍÑÉä (") ¤«¥¢¥Ý¥¹¥È¥í¥Õ¥£ (') ¤Ç°Ï¤ó¤Àʸ»úÎ󡢤ޤ¿¤Ï°úÍÑÉä¤ÎÉÕ¤«¤Ê¤¤Ê¸»úÎó¤Ç¤¹ (¡Ö°úÍÑÉä¤ÎÉÕ¤«¤Ê¤¤Ê¸»úÎó¡×¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤)¡£
¥Û¥ì¥ê¥¹ (nHxyz
) ʸ»úÎó¤Ï»ÈÍѤǤ¤Þ¤»¤ó¡£- ʸ»úÎó¤Î¾ì¹ç¤ò½ü¤¤¤Æ¡¢µÏ¿¤Î½ª¤ï¤ê¤Ï¶õÇò¤È¸«¤Ê¤µ¤ì¤Þ¤¹¡£Ê¸»úÎó¤Ç¤Ï̵»ë¤µ¤ì¤Þ¤¹¡£
- ¥³¥ó¥Þ¤ÇʬΥ¤·¡¢³ç¸Ì¤Ç°Ï¤ó¤À 2 ¸Ä¤Î¼ÂÄê¿ô¤¬Ê£ÁÇÄê¿ô¤È¤·¤ÆÍ¿¤¨¤é¤ì¤Þ¤¹¡£
- ¥³¥ó¥Þ¤È¥³¥ó¥Þ¤Î´Ö¤Î NULL ÆþÎÏÍó¤Ê¤É¤Ï¡¢Æþ½ÐÎÏʤӤÎÃæ¤Î¤³¤ì¤ËÂбþ¤¹¤ëÊÑ¿ô¤¬ÊѤï¤é¤Ê¤¤¤³¤È¤ò¼¨¤·¤Þ¤¹¡£
- ¼¡¤Ë¼¨¤¹¤è¤¦¤Ë¡¢ÆþÎϥǡ¼¥¿¹àÌܤÎÁ°¤Ë·«¤êÊÖ¤·²ó¿ô¤òÃÖ¤¯¤³¤È¤¬¤Ç¤¤Þ¤¹¡£
4*(3.,2.) 2*, 4*'hello'¤³¤ì¤Ï¡¢4 ¸Ä¤ÎÊ£ÁÇÄê¿ô¡¢2 ¸Ä¤Î NULL ÆþÎÏÍó¡¢4 ¸Ä¤Îʸ»úÎóÄê¿ô¤ò°ÕÌ£¤·¤Þ¤¹¡£
- ÆþÎÏʤӤÎÃæ¤Î¥¹¥é¥Ã¥·¥å (
/
) ¤Ï¡¢Ê¤Ӥˤè¤ëÆþÎϤÇÆþÎÏʤӤؤÎÃͤγä¤êÅö¤Æ¤Î½ª¤ï¤ê¤ò¼¨¤·¡¢¸½ºß¤ÎÆþÎϹԤˤ¢¤ë»Ä¤ê¤ò¥¹¥¥Ã¥×¤·¤Þ¤¹¡£¥¹¥é¥Ã¥·¥å¤Ë³¤¯¥Æ¥¥¹¥È¤Ï̵»ë¤µ¤ì¡¢¥Ç¡¼¥¿¹Ô¤ÎÃí¼á¤Ë»ÈÍѤµ¤ì¤Þ¤¹¡£½ÐÎÏ·Á¼°
ʤӤˤè¤ë½ÐÎϤˤè¤ê¡¢ºÙ¤«¤¤·Á¼°¤ËÈѤ蘆¤ì¤º¤Ë¹â®¤Ç´Êñ¤Ë½ÐÎϤǤ¤Þ¤¹¡£¸·Ì©¤Ê·Á¼°¤¬É¬Íפʾì¹ç¤Ï¡¢½ñ¼°ÉÕ¤Æþ½ÐÎϤò»ÈÍѤ·¤Æ¤¯¤À¤µ¤¤¡£³Æ¹àÌܤËŬ¤·¤¿·Á¼°¤¬ÁªÂò¤µ¤ì¡¢Àµ³Î¤Ê½ÐÎϤȴÊÁǤʽÐÎÏ·Á¼°¤¬Ì·½â¤¹¤ë¾ì¹ç¤Ï¡¢´ÊÁǤʷÁ¼°¤¬ÁªÂò¤µ¤ì¤Þ¤¹¡£
ʤӤˤè¤ë½ÐÎϤˤϡ¢¼¡¤Î¤è¤¦¤Êµ¬Â§¤¬¤¢¤ê¤Þ¤¹¡£
- °ìÈ̤ˡ¢³ÆµÏ¿¤Ï¶õÇò¤«¤é»Ï¤Þ¤ê¤Þ¤¹¡£¥×¥ê¥ó¥È¥Õ¥¡¥¤¥ë¤Ç¤Ï¡¢¤³¤Î¶õÇò¤Ï½ÐÎϤµ¤ì¤Þ¤»¤ó¡£¾ÜºÙ¤Ë¤Ä¤¤¤Æ¤Ï¡¢¡Ö¥×¥ê¥ó¥È¥Õ¥¡¥¤¥ë¡×¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£©
- ʸ»úÎó¤Ï¤½¤Î¤Þ¤Þ½ÐÎϤµ¤ì¤Þ¤¹¡£Ê¸»úÎó¤Ï°úÍÑÉä¤Ç°Ï¤Þ¤ì¤Ê¤¤¤¿¤á¡¢Ê¤Ӥˤè¤ëÆþÎϤò»ÈÍѤ·¤ÆÆɤßÌ᤹¤³¤È¤¬¤Ç¤¤ë¤Î¤ÏÆÃÄê¤Î·Á¼°¤Îʸ»úÎó¤Ë¸Â¤é¤ì¤Þ¤¹¡£¤³¤ì¤Ë¤Ä¤¤¤Æ¤Ï¼¡Àá¤ÇÀâÌÀ¤·¤Þ¤¹¡£
- Àµ³Î¤Ê 2 ¿Êɽµ¤Ë¤Ê¤Ã¤Æ¤¤¤Ê¤¤¿ô¤Ï»Í¼Î¸ÞÆþ¤µ¤ì¤Þ¤¹¡£
demo% cat lis5.fREAD ( 5, * ) XWRITE( 6, * ) X, ' Èþ'WRITE( 6, 1 ) X1 FORMAT( 1X, F13.8, ' ¿¿¼Â' )ENDdemo% f77 lis5.flis5.f:MAIN:demo% a.out1.41.40000000 Èþ1.39999998 ¿¿¼Âdemo%¾åµ¤ÎÎã¤Ç¡¢Àµ³Î¤Ê¿ôÃͤ¬É¬Íפʾì¹ç¤Ï¡¢½ñ¼°¤ò»ØÄꤷ¤Æ¤¯¤À¤µ¤¤¡£
¤½¤Î¾¤Ë¡¢¼¡¤ÎÅÀ¤ËÃí°Õ¤·¤Æ¤¯¤À¤µ¤¤¡£
- 80 ʸ»ú¤è¤êŤ¤½ÐÎϹԤϤǤ¤ë¤À¤±Èò¤±¤Æ¤¯¤À¤µ¤¤¡£
- Ê£ÁÇ¿ôÃͤª¤è¤ÓÇÜÀºÅÙÊ£ÁÇ¿ôÃͤˤϡ¢Å¬ÀڤʰÌÃ֤˥³¥ó¥Þ¤¬´Þ¤Þ¤ì¤Þ¤¹¡£
- ¼Â¿ô¡¢ÇÜÀºÅÙÃÍ¡¢¤ª¤è¤Ó 4 ÇÜÀºÅÙÃͤϡ¢½ñ¼°¤¬¤½¤ì¤¾¤ì°Û¤Ê¤ê¤Þ¤¹¡£
- ʸ»úÎó¤ÎÃæ¤Î¥Ð¥Ã¥¯¥¹¥é¥Ã¥·¥å
n
(\n
) ¤Ï¥¥ã¥ê¥Ã¥¸¥ê¥¿¡¼¥ó¤È¤·¤Æ½ÐÎϤµ¤ì¤Þ¤¹¡£¤¿¤À¤·¡¢-xl
¥ª¥×¥·¥ç¥ó¤¬ÀßÄꤵ¤ì¤Æ¤¤¤ë¾ì¹ç¤Ï¡¢¥Ð¥Ã¥¯¥¹¥é¥Ã¥·¥ån
¤È¤·¤Æ½ÐÎϤµ¤ì¤Þ¤¹¡£Îã:
-xl
¥ª¥×¥·¥ç¥óÍ̵¤Ë¤è¤ëʤӤˤè¤ëÆþ½ÐÎϤÈ
¥Ð¥Ã¥¯¥¹¥é¥Ã¥·¥å
demo%cat f77 bslash.f
CHARACTER S*8 / '12\n3' /PRINT *, SENDdemo%n
-xl
¤Ê¤·¤Ç¡¢¥¥ã¥ê¥Ã¥¸¥ê¥¿¡¼¥ó¤È¤·¤Æ\n
¤ò½ÐÎϤ·¤Þ¤¹¡£
demo%f77 -silent bslash.f
demo%a.out
123demo%
-xl
¤òÉÕ¤±¤Æ¡¢Ê¸»úÎó¤È¤·¤Æ\n
¤ò½ÐÎϤ·¤Þ¤¹¡£
demo%f77 -xl -silent bslash.f
demo%a.out
12\n3demo%
¡¡
COMPLEX*32
¤ÈREAL*16
¤Ï¡¢SPARC ¤Î¤ß»ÈÍѤǤ¤Þ¤¹¡£°úÍÑÉä¤ÎÉÕ¤«¤Ê¤¤Ê¸»úÎó
f77
¤ÎʤӤˤè¤ëÆþ½ÐÎϤò»ÈÍѤ¹¤ë¤È¡¢°úÍÑÉä¤Ë°Ï¤Þ¤ì¤Ê¤¤Ê¸»úÎó¤ÎÆɤ߹þ¤ß¤ò¹Ô¤¦¤³¤È¤¬¤Ç¤¤Þ¤¹¡£©Ê¸»úÎó¤ò¿ô»ú¤Ç»Ï¤á¤ë¤³¤È¤Ï¤Ç¤¤Þ¤»¤ó¡£¤Þ¤¿¡¢Ê¬Î¥Ê¸»ú (¥³¥ó¥Þ¤Þ¤¿¤Ï¥¹¥é¥Ã¥·¥å (/))¡¢ ¤Þ¤¿¤Ï¶õÇò (¥¹¥Ú¡¼¥¹¤Þ¤¿¤Ï¥¿¥Ö) ¤Ï´Þ¤Þ¤ì¤Þ¤»¤ó¡£¥Ð¥Ã¥¯¥¹¥é¥Ã¥·¥å (\) ¤Ç¥¨¥¹¥±¡¼¥×¤·¤Ê¤¤¤«¤®¤ê¡¢²þ¹Ô (newline) ¤Ïʸ»úÎó¤Î½ª¤ï¤ê¤ò¼¨¤·¤Þ¤¹¡£¾åµ¤ÎÀ©¸Â¤òËþ¤¿¤µ¤Ê¤¤Ê¸»úÎó¤Ï¡¢Ã±°ì°úÍÑÉä¤Þ¤¿¤ÏÆó½Å°úÍÑÉä¤Ç°Ï¤Þ¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£
Îã: °úÍÑÉä¤ÎÉÕ¤«¤Ê¤¤Ê¸»úÎó¤ÎʤӤˤè¤ëÆþÎÏ
CHARACTER C*6, S*8READ *, I, C, N, SPRINT *, I, C, N, SEND¾åµ¤Î¥×¥í¥°¥é¥à¤Ç
unquoted.f
¤òÆþÎϤ¹¤ë¤È°Ê²¼¤Î¤è¤¦¤Ëɽ¼¨¤µ¤ì¤Þ¤¹¡£
demo% a.out23 label 82 locked23label 82lockeddemo%ÆâÉôÆþ½ÐÎÏ
f77
¤Ï¡¢ÆâÉôÆþ½ÐÎϤ¬¤Ç¤¤ë¤è¤¦¤ËʤӤˤè¤ëÆþ½ÐÎϤò³ÈÄ¥¤·¤Æ¤¤¤Þ¤¹¡£©Ê¤Ӥˤè¤ëÆâÉôÆɤ߹þ¤ß¤Ç¤Ï¡¢ÆþÎÏʤӤ¬´°À®¤¹¤ë¤«¥Õ¥¡¥¤¥ë¤Î½ª¤ï¤ê¤Ë¤Ê¤ë¤Þ¤Çʸ»ú¤¬µÍ¤á¤é¤ì¤Æ¤¤¤Þ¤¹¡£Ê¤Ӥˤè¤ëÆâÉô½ñ¤¹þ¤ß¤Ç¤Ï¡¢½ÐÎÏʤӤ¬´°À®¤¹¤ë¤Þ¤ÇµÏ¿¤¬Ëä¤á¤é¤ì¤Þ¤¹¡£ÇÜÀºÅÙÃͤνñ¤¹þ¤ß¤ÎºÝ¤ÎÏÀÍýµÏ¿¥ª¡¼¥Ð¡¼¥Õ¥í¡¼¤òÈò¤±¤ë¤¿¤á¤Ë¡¢ÆâÉôÇÛÎóÍ×ÁǤÎŤµ¤Ï 20 ʸ»ú°Ê¾å¤Ë¤¹¤ë¤È¤è¤¤¤Ç¤·¤ç¤¦¡£Ê¤Ӥˤè¤ëÆâÉôÆɤ߹þ¤ß¤Ï¡¢¥³¥Þ¥ó¥É¹Ô¤Î²òÆɤò´Êñ¤Ë¤¹¤ë¤¿¤á¤Ë¼Â¸½¤µ¤ì¤Þ¤·¤¿¡£Ê¤Ӥˤè¤ëÆâÉô½ÐÎϤÏÈò¤±¤ë¤³¤È¤ò¤ª´«¤á¤·¤Þ¤¹¡£
NAMELIST
Æþ½ÐÎÏ
NAMELIST
Æþ½ÐÎϤò»ÈÍѤ¹¤ë¤È¡¢ÊÑ¿ô¤ÎÁ´¥°¥ë¡¼¥×¤Î¼«Í³·Á¼°Æþ½ÐÎÏ¡¢¤Þ¤¿¤ÏÊÑ¿ô¤Î¥°¥ë¡¼¥×Æâ¤ÎÁªÂò¤µ¤ì¤¿¹àÌܤÎÆþÎϤ¬¼Â¹Ô¤Ç¤¤Þ¤¹¡£©
NAMELIST
ʸ¤Ï¡¢ÊÑ¿ô¤Þ¤¿¤ÏÇÛÎó¤Î¥°¥ë¡¼¥×¤òÄêµÁ¤·¤Þ¤¹¡£¥°¥ë¡¼¥×̾¤òÀë¸À¤·¡¢¤½¤Î¥°¥ë¡¼¥×¤Ë°¤¹¤ëÊÑ¿ô¤ª¤è¤ÓÇÛÎó¤ò»ØÄꤷ¤Þ¤¹¡£¹½Ê¸µ¬Â§
NAMELIST
ʸ¤Î¹½Ê¸¤Ï°Ê²¼¤Î¤È¤ª¤ê¤Ç¤¹¡£NAMELIST /group-name/namelist[[,] /group-name/namelist]...
¥Ñ¥é¥á¡¼¥¿
ÀâÌÀ
group-name
¥°¥ë¡¼¥×̾
namelist
ÊÑ¿ô¤Þ¤¿¤ÏÇÛÎó¤ò¥³¥ó¥Þ¤ÇʬΥ¤·¤¿Ê¤Ó
¾ÜºÙ¤Ë¤Ä¤¤¤Æ¤Ï¡¢¡ÖNAMELIST¡×¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£
CHARACTER*18 SAMPLELOGICAL*4 NEWREAL*4 DELTANAMELIST /CASE/ SAMPLE, NEW, DELTAÊÑ¿ô¤Þ¤¿¤ÏÇÛÎó¤Ï¡¢Ê£¿ô¤Î
NAMELIST
¤Ë¥ê¥¹¥È¤Ç¤¤Þ¤¹¡£ÆþÎϥǡ¼¥¿¤Ë¤Ï¡¢ÇÛÎóÍ×ÁǤª¤è¤Óʸ»úÎó¤òÆþ¤ì¤ë¤³¤È¤¬¤Ç¤¤Þ¤¹¡£¤Þ¤¿¡¢ÆþÎÏÄê¿ô¥Ç¡¼¥¿Ê¸»úÎó¤ÏÀë¸À¤µ¤ì¤¿ÊÑ¿ô¤ÎŤµ¤è¤êû¤¯¤Ç¤¤ë¤¿¤á¡¢ÉôʬÎó¤âÆþ¤ì¤ë¤³¤È¤¬¤Ç¤¤Þ¤¹¡£
À©¸Â»ö¹à
¥°¥ë¡¼¥×̾¤Ï¡¢
NAMELIST¡¢READ
¡¢¤Þ¤¿¤ÏWRITE
¤Î³Æʸ¤À¤±¤ËÃÖ¤¯¤³¤È¤¬¤Ç¤¡¢¥×¥í¥°¥é¥à¤ËÂФ·¤Æ°ì°Õ¤Ç¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£Ê¤Ӥˤϡ¢Äê¿ô¡¢ÇÛÎóÍ×ÁÇ¡¢²¾Â礤µ°ú¤·Ñ¤®ÇÛÎó¡¢¹½Â¤ÂΡ¢ÉôʬÎ󡢵Ͽ¡¢µÏ¿Í󡢥ݥ¤¥ó¥¿¡¢¤Þ¤¿¤Ï¥Ý¥¤¥ó¥¿´ðÄìÉÕ¤ÊÑ¿ô¤òÆþ¤ì¤ë¤³¤È¤Ï¤Ç¤¤Þ¤»¤ó¡£
Îã: 2 ¸Ä¤Î
NAMELIST
Æâ¤Ë¤¢¤ëÊÑ¿ô
REAL ARRAY(4,4)CHARACTER*18 SAMPLELOGICAL*4 NEWREAL*4 DELTANAMELIST /CASE/ SAMPLE, NEW, DELTANAMELIST /GRID/ ARRAY, DELTA¾åµ¤ÎÎã¤Ç¡¢
DELTA
¤ÏCASE
¥°¥ë¡¼¥×¤ÈGRID
¥°¥ë¡¼¥×¤ÎξÊý¤Ë¤¢¤ê¤Þ¤¹¡£½ÐÎÏÆ°ºî
NAMELIST
½ÐÎϤϡ¢WRITE
ʸ¤ÎÆüì¤Ê½ñ¼°¤ò»ÈÍѤ·¤Þ¤¹¡£¤³¤Î½ÐÎϤϥ°¥ë¡¼¥×̾¤ò´Þ¤à¥ì¥Ý¡¼¥È¤òºîÀ®¤·¤Þ¤¹¡£¥°¥ë¡¼¥×¤Î³ÆÊÑ¿ô¤Î̾Á°¤È¥á¥â¥ê¡¼¾å¤Î¸½ºß¤ÎÃͤâ´Þ¤á¤Þ¤¹¡£¤½¤ì¤¾¤ì¤ÎÊÑ¿ô¤Î·¿¤Ë½¾¤Ã¤ÆÃͤò½ñ¼°²½¤·¡¢NAMELIST
¤ÎÆþÎϤ¬Æɤ߹þ¤á¤ë·Á¼°¤Î¥ì¥Ý¡¼¥È¤òºîÀ®¤·¤Þ¤¹¡£
NAMELIST WRITE
¤Î¹½Ê¸¤Ï¼¡¤Î¤È¤ª¤ê¤Ç¤¹¡£
WRITE ( extu, ÊÑ¿ô·²»ØÄê»Ò [, iostat] [, err])
¤³¤³¤Ç¡¢ÊÑ¿ô·²»ØÄê»Ò¤Ï¼¡¤Î½ñ¼°¤ò»ÈÍѤ·¤Þ¤¹¡£
[NML=]¥°¥ë¡¼¥×̾
¤Þ¤¿¡¢¥°¥ë¡¼¥×̾¤Ï¤¹¤Ç¤Ë
NAMELIST
ʸ¤ÎÃæ¤ÇÄêµÁ¤µ¤ì¤¿¤â¤Î¤Ç¤¹¡£
NAMELIST WRITE
ʸ¤Ï¡¢¥°¥ë¡¼¥×Æâ¤Î¤¹¤Ù¤Æ¤ÎÊÑ¿ô¤ÎÃͤòNAMELIST
ʸ¤ÈƱ¤¸½çÈ֤ǽñ¤¹þ¤ß¤Þ¤¹¡£
¥¡¼¥ï¡¼¥É
NML
¤ò¾Êά¤¹¤ë¾ì¹ç¤Ï¡¢ÀèƬ¤ËÁõÃ֥ѥé¥á¡¼¥¿ (UNIT
) ¤ò¡¢2 ÈÖÌܤËÊÑ¿ô·²»ØÄê»Ò¤òÃÖ¤¯É¬Íפ¬¤¢¤ë¤³¤È¤ËÃí°Õ¤·¤Æ¤¯¤À¤µ¤¤¡£½ñ¼°»ØÄê»Ò¤ÏÃÖ¤«¤Ê¤¤¤Ç¤¯¤À¤µ¤¤¡£
WRITE
¤Ë¤Ï¼¡¤Î½ñ¼°¤â»ÈÍѤǤ¤Þ¤¹¡£
WRITE ( UNIT=6, NML=CASE )ÆþÎÏÆ°ºî
NAMELIST
ÆþÎÏʸ¤Ï¡¢Âè 1 ·å¤òÈô¤Ð¤·¤ÆÂè 2 ·å°Ê¹ß¤Çµ¹æ $ ¤È¡¢»ØÄꤵ¤ì¤¿¥°¥ë¡¼¥×̾¤òõ¤·¡¢¼¡¤Î³°ÉôµÏ¿¤òÆɤ߹þ¤ß¤Þ¤¹¡£
$
¥°¥ë¡¼¥×̾¤¬¸«¤Ä¤«¤é¤Ê¤¤¾ì¹ç¡¢ÆþÎÏ¥°¥ë¡¼¥×¤Ï¥Õ¥¡¥¤¥ë¤ÎºÇ¸å¤Þ¤ÇÆɤ߹þ¤Þ¤ì¤Þ¤¹¡£µÏ¿¤ÏÆþÎϤµ¤ì¤Æ¡¢¥°¥ë¡¼¥×¤ÎÃæ¤Î̾Á°¤È°ìÃפ¹¤ë¥Ç¡¼¥¿Ãæ¤Î̾Á°¤Ë¤è¤êÃͤ¬³ä¤êÅö¤Æ¤é¤ì¡¢¥°¥ë¡¼¥×¤ÎÃæ¤ÎÊÑ¿ô¤Î¥Ç¡¼¥¿·¿¤¬»ÈÍѤµ¤ì¤Þ¤¹¡£
ÆþÎϥǡ¼¥¿¤ÎÃæ¤Ë¸«¤Ä¤«¤é¤Ê¤¤¥°¥ë¡¼¥×¤ÎÊÑ¿ô¤Ï¡¢Êѹ¹¤µ¤ì¤Þ¤»¤ó¡£
NAMELIST READ
¤Î¹½Ê¸¤Ï¼¡¤Î¤È¤ª¤ê¤Ç¤¹¡£
READ ( extu, ÊÑ¿ô·²»ØÄê»Ò [, iostat] [, err] [, end])ÊÑ¿ô·²»ØÄê»Ò¤Ï¼¡¤Î½ñ¼°¤ò»ÈÍѤ·¤Þ¤¹¡£
[NML=]¥°¥ë¡¼¥×̾¤Þ¤¿¡¢¥°¥ë¡¼¥×̾¤Ï¤¹¤Ç¤Ë
NAMELIST
ʸ¤ÎÃæ¤ÇÄêµÁ¤µ¤ì¤¿¤â¤Î¤Ç¤¹¡£
CHARACTER*16 SAMPLELOGICAL*4 NEWREAL*4 DELTA, MAT(2,2)NAMELIST /CASE/ SAMPLE, NEW, DELTA, MATREAD ( 1, CASE )¤³¤ÎÎã¤Ç¡¢¥°¥ë¡¼¥×
CASE
¤ÏSAMPLE¡¢NEW¡¢DELTA
¤Î 3 ¸Ä¤ÎÊÑ¿ô¤ÈMAT
¤Ç¹½À®¤µ¤ì¤Þ¤¹¡£¥¡¼¥ï¡¼¥ÉNML
¤ò¾Êά¤¹¤ë¾ì¹ç¤Ï¡¢¥¡¼¥ï¡¼¥É¤ÎUNIT
¤â¾Êά¤·¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£ÁõÃ֥ѥé¥á¡¼¥¿¤ÏÀèƬ¤Ë¡¢ÊÑ¿ô·²»ØÄê»Ò¤Ï 2 ÈÖÌܤËÃÖ¤¤Þ¤¹¡£½ñ¼°»ØÄê»Ò¤ÏÃÖ¤¤Þ¤»¤ó¡£
READ
¤Ë¤Ï¼¡¤Î½ñ¼°¤â»ÈÍѤǤ¤Þ¤¹¡£
READ ( UNIT=1, NML=CASE )¥Ç¡¼¥¿¹½Ê¸
NAMELIST
ÆþÎϥǡ¼¥¿¤ÎºÇ½é¤ÎµÏ¿¤Ï¡¢Âè 2 ·å°Ê¹ß¤ËÆü쵹æ¤Î $ (¥É¥ëµ¹æ) ¤ò»ý¤Á¡¢¤½¤Î¸å¤ËNAMELIST
¥°¥ë¡¼¥×̾¤¬Â³¤¤Þ¤¹¡£¤³¤Î¸å¤Ë¡¢Æ±¤¸µÏ¿¤«¤³¤ì¤Ë³¤¯µÏ¿¤ÎÂè 2 ·å°Ê¹ß¤«¤é»Ï¤Þ¤ë°ìÏ¢¤ÎÂåÆþʸ¤¬Â³¤¤Þ¤¹¡£³ÆµÏ¿¤Ï¡¢»ØÄꤵ¤ì¤¿¥°¥ë¡¼¥×¤ÎÊÑ¿ô¤ËÃͤòÂåÆþ¤·¤Þ¤¹ (¤Þ¤¿¤Ï 1 ¸Ä°Ê¾å¤ÎÃͤòÇÛÎóÍ×ÁǤËÂåÆþ¤·¤Þ¤¹)¡£¼¡¤Ë¼¨¤¹¤è¤¦¤Ë¡¢Âè 2 ·å°Ê¹ß¤ËÆþ¤Ã¤Æ¤¤¤ë¤â¤¦ 1 ¤Ä¤Î $ ¤¬ÆþÎϥǡ¼¥¿¤Î½ª¤ï¤ê¤ò¼¨¤·¤Þ¤¹¡£
D$
¥°¥ë¡¼¥×̾ÊÑ¿ô = ÃÍ [,ÊÑ¿ô = ÃÍ,... ] $[END]¤³¤Î¥É¥ëµ¹æ¤ÎÂå¤ê¤Ë¥¢¥ó¥Ñ¥µ¥ó¥É (
&
) ¤ò»ÈÍѤǤ¤Þ¤¹¡£¤¿¤À¤·¡¢³«»Ï¤È½ªÎ»¤Î¶èÀÚ¤êʸ»ú¤ÏƱ¤¸¤â¤Î¤Ç¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£END
¤ÏºÇ¸å¤Î¶èÀÚ¤êʸ»ú¤Î¥ª¥×¥·¥ç¥ó¤ÎÉôʬ¤Ç¤¹¡£ÆþÎϥǡ¼¥¿ÂåÆþʸ¤Î½ñ¼°¤Ï¡¢°Ê²¼¤Î¤¤¤º¤ì¤«¤Ç¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£
ÇÛÎó = ÃÍ 1[, ÃÍ 2,]... ÇÛÎó(ź¤¨»ú)= ÃÍ 1[, ÃÍ 2,]... ÇÛÎó(ź¤¨»ú,ź¤¨»ú)= ÃÍ 1[, ÃÍ 2,]... ÊÑ¿ô =ʸ»úÄê¿ô ÊÑ¿ô (º÷°ú:º÷°ú)=ʸ»úÄê¿ôÇÛÎó¤Ëź»ú¤¬ÉÕ¤¤¤Æ¤¤¤ë¾ì¹ç¡¢Å¬ÀÚ¤Êź»ú¤Î¸Ä¿ô¤¬¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£
ʸ»úÄê¿ô¤ò¶èÀÚ¤ë¤Ë¤Ï¡¢°úÍÑÉä (" ¤Þ¤¿¤Ï ') ¤ò»ÈÍѤ·¤Æ¤¯¤À¤µ¤¤¡£Ê¸»úÄê¿ô¤Î¾ÜºÙ¤Ë¤Ä¤¤¤Æ¤Ï¡¢¼¡¤Î¹à¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£
¼¡¤Î¥Ç¡¼¥¿Îã¤Ï¡¢¾åµ¤Î¥×¥í¥°¥é¥àÉôʬ¤ÇÆɤ߹þ¤à¤¿¤á¤Î¤â¤Î¤Ç¤¹¡£
D$case delta=0.05, mat( 2, 2 ) = 2.2, sample='¥Ç¥â' $¥Ç¡¼¥¿¤ÏÊ£¿ô¤Î¹Ô¤Ë¤Þ¤¿¤¬¤ë¤³¤È¤¬²Äǽ¤Ç¤¹¡£¤³¤³¤Ç¡¢
NEW
¤ÏÆþÎϤµ¤ì¤Þ¤»¤ó¤Ç¤·¤¿¡£¤Þ¤¿¡¢½çÈÖ¤ÏNAMELIST
ʸ¤ÎÃæ¤Î½çÈ֤Ȱۤʤê¤Þ¤¹¡£
D$caseDdelta=0.05Dmat( 2, 2 ) = 2.2Dsample='Demo'D$¹½Ê¸µ¬Â§
NAMELIST
¤ÇÆɤ߹þ¤Þ¤ì¤ëÆþÎϥǡ¼¥¿¤Ë¤Ï¡¢¼¡¤Î¹½Ê¸µ¬Â§¤¬Å¬ÍѤµ¤ì¤Þ¤¹¡£
- ̾Á°¤¬»ØÄꤵ¤ì¤¿¥°¥ë¡¼¥×¤ÎÊÑ¿ô¤Î½çÈÖ¤ÏǤ°Õ¤Ç¤¹¡£¤Þ¤¿¤É¤ì¤Ç¤â¾Êά¤Ç¤¤Þ¤¹¡£
- ¥Ç¡¼¥¿¤ÏÂè 2 ·å°Ê¹ß¤«¤é»Ï¤Þ¤ê¤Þ¤¹¡£Âè 1 ·å¤«¤é»Ï¤á¤ë¤³¤È¤â¤Ç¤¤Þ¤¹¤¬¡¢µ¬³Ê³°¤Ç¤¹¡£©
- ÊÑ¿ô¤Î´Ö¤Ë¤Ï¡¢¥³¥ó¥Þ¡¢¥¹¥Ú¡¼¥¹¡¢¤Þ¤¿¤Ï¥¿¥Ö¤¬¾¯¤Ê¤¯¤È¤â 1 ¤ÄɬÍפǤ¹¡£¤Þ¤¿¡¢1 ¸Ä°Ê¾å¤Î¥¹¥Ú¡¼¥¹¤Þ¤¿¤Ï¥¿¥Ö¤Ï 1 ¸Ä¤Î¥¹¥Ú¡¼¥¹¤ËÁêÅö¤·¤Þ¤¹¡£ÊÑ¿ô̾¤ÎÁ°¤ËϢ³¤¹¤ë¥³¥ó¥Þ¤òÃÖ¤¯¤³¤È¤Ï¤Ç¤¤Þ¤»¤ó¡£¥³¥ó¥Þ¤ÎÁ°¸å¤Î¥¹¥Ú¡¼¥¹¤Ë¤Ï°ÕÌ£¤¬¤¢¤ê¤Þ¤»¤ó¡£
- ¥°¥ë¡¼¥×̾¤ª¤è¤ÓÊÑ¿ô̾¤ÎÃæ¤Ë¥¹¥Ú¡¼¥¹¡¢¤Þ¤¿¤Ï¥¿¥Ö¤òÃÖ¤¯¤³¤È¤Ï¤Ç¤¤Þ¤»¤ó¡£¤¿¤À¤·¡¢Åº»ú¤Î¥³¥ó¥Þ¤ÎÁ°¸å¡¢ÉôʬÎó¤Î¥³¥í¥ó¤ÎÁ°¸å¡¢¤ª¤è¤Ó¡Ö
(
¡×¤Î¸å¤È¡Ö)
¡×¤ÎÁ°¤Î¥¹¥Ú¡¼¥¹¡¢¤Þ¤¿¤Ï¥¿¥Ö¤Ïǧ¤á¤é¤ì¤Þ¤¹¡£1 ¤Ä¤Î̾Á°¤¬ 2 ¤Ä¤ÎµÏ¿¤ËÅϤ뤳¤È¤Ï¤Ç¤¤Þ¤»¤ó¡£- µÏ¿¤Î½ª¤ï¤ê¤Ï¥¹¥Ú¡¼¥¹Ê¸»ú¤Î¤è¤¦¤Ë½èÍý¤µ¤ì¤Þ¤¹¡£
- Îã³°: ʸ»úÄê¿ô¤Ç¤Ï¡¢µÏ¿¤Î½ª¤ï¤ê¤Ï̵»ë¤µ¤ì¡¢Ê¸»úÄê¿ô¤Ï¼¡¤ÎµÏ¿¤Ø³¤¤Þ¤¹¡£¸½ºß¤ÎµÏ¿¤ÎºÇ¸å¤Îʸ»ú¤Ë¤Ï¡¢¼¡¤ÎµÏ¿¤Î 2 ÈÖÌܤÎʸ»ú¤¬Â³¤¤Þ¤¹¡£¤É¤ÎµÏ¿¤âºÇ½é¤Îʸ»ú¤Ï̵»ë¤µ¤ì¤Þ¤¹¡£
- ÂåÆþʸ¤ÎÅù¹æ¤Îξ¦¤Ë¤Ï¡¢¶õÇò¤Þ¤¿¤Ï¥¿¥Ö¤¬»ÈÍѤǤ¤Þ¤¹¡£
- ź»ú¡¢ÉôʬÎó¤ÎÈϰϻؼ¨»Ò¡¢¤ª¤è¤ÓÊÑ¿ô¤Þ¤¿¤ÏÇÛÎó¤ËÂåÆþ¤µ¤ì¤ëÃͤ˻ÈÍѤǤ¤ë¤Î¤ÏÄê¿ôÃͤÀ¤±¤Ç¤¹¡£¼ÂºÝ¤ÎÆþÎϥǡ¼¥¿¤ËÄê¿ô̾ (¥Ñ¥é¥á¡¼¥¿) ¤Ï»ÈÍѤǤ¤Þ¤»¤ó¡£
- ¥Û¥ì¥ê¥¹Äê¿ô¡¢8 ¿ÊÄê¿ô¡¢16 ¿ÊÄê¿ô¤Ï»ÈÍѤǤ¤Þ¤»¤ó¡£
- ÂåÆþ¤µ¤ì¤¿Äê¿ô¤Ï¡¢Âбþ¤¹¤ë Fortran 77 Äê¿ô¤ÈƱ¤¸½ñ¼°¤Ç¤¹¡£
- Äê¿ô¤ÈÄê¿ô¤Î´Ö¤Ë¤Ï¡¢¾¯¤Ê¤¯¤È¤â 1 ¸Ä¤Î¥³¥ó¥Þ¡¢¥¹¥Ú¡¼¥¹¡¢¤Þ¤¿¤Ï¥¿¥Ö¤¬É¬ÍפǤ¹¡£¥¹¥Ú¡¼¥¹¤Þ¤¿¤Ï¥¿¥Ö¤¬Ìµ¤¤¾ì¹ç¤â¡¢1 ¸Ä°Ê¾å¤¢¤ë¾ì¹ç¤â¥¹¥Ú¡¼¥¹ 1 ¸Ä¤ËÁêÅö¤·¤Þ¤¹¡£
1,2,3,1 2 3
¤Þ¤¿¤Ï1, 2, 3
¤Ê¤É¤Î¤è¤¦¤ËÆþÎϤ·¤Þ¤¹¡£- ʸ»úÄê¿ô¤ÎÃæ¤ÎϢ³¤·¤¿¥¹¥Ú¡¼¥¹¤Þ¤¿¤Ï¥¿¥Ö¤Ï¡¢°µ½Ì¤µ¤ì¤º¤ËÊÝ»ý¤µ¤ì¤Þ¤¹¡£
- ʸ»úÄê¿ô¤Ï¥¢¥Ý¥¹¥È¥í¥Õ¥£ (') ¤Þ¤¿¤Ï°úÍÑÉä (") ¤Ç¶èÀÚ¤ê¤Þ¤¹¡£¤¿¤À¤·¡¢¤É¤Á¤é¤«¤ò»ÈÍѤ·¤Æʸ»úÄê¿ô¤ò»Ï¤á¤¿¾ì¹ç¡¢Æ±¤¸¤â¤Î¤Ç½ªÎ»¤·¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£¥¢¥Ý¥¹¥È¥í¥Õ¥£¤ò¶èÀÚ¤êʸ»ú¤È¤·¤Æ»ÈÍѤ¹¤ë¾ì¹ç¡¢Ê¸»úÎó¤ÎÃæ¤Ë¥¢¥Ý¥¹¥È¥í¥Õ¥£¤òÆþ¤ì¤ë¤Ë¤Ï¥¢¥Ý¥¹¥È¥í¥Õ¥£¤ò 2 ¸Ä³¤±¤Æ»ÈÍѤ·¤Þ¤¹¡£
Dsample='use "$" in 2'(use "$"
in 2¤È²ò¼á¤µ¤ì¤ë)
Dsample='don''t' (don't¤È²ò¼á¤µ¤ì¤ë
)Dsample="don''t" (don't¤È²ò¼á¤µ¤ì¤ë
)Dsample="don't" (don't¤È²ò¼á¤µ¤ì¤ë
)Ê£ÁÇÄê¿ô¤Ï¡¢¼ÂÄê¿ô¤Þ¤¿¤ÏÀ°Äê¿ô¤ò 2 ¸ÄÁȤ߹ç¤ï¤»¡¢¤½¤ì¤ò¥³¥ó¥Þ¤Ç¶èÀڤꡢ³ç¸Ì¤Ç°Ï¤ß¤Þ¤¹¡£¥¹¥Ú¡¼¥¹¤Ï¥³¥ó¥Þ¤ÎÁ°¸å¤Ë¤À¤±Æþ¤ì¤ë¤³¤È¤¬¤Ç¤¤Þ¤¹¡£
ÏÀÍýÄê¿ô¤Ï¡¢¿¿¤Þ¤¿¤Ïµ¶¤ÎÃͤνñ¼°¤Ç¤¹¡£¤¿¤È¤¨¤Ð¡¢.
TRUE
. ¤Þ¤¿¤Ï .FALSE
.¡¢¤â¤·¤¯¤Ï .T
¡¢.F
¤Ê¤É¤Ç»Ï¤Þ¤ëÃͤǤ¹¡£NULL ¥Ç¡¼¥¿¹àÌܤÏϢ³¤¹¤ë 2 ¸Ä¤Î¥³¥ó¥Þ¤Çɽ¤µ¤ì¡¢¤³¤ì¤ËÂбþ¤¹¤ëÇÛÎóÍ×ÁǤޤ¿¤ÏÊ£ÁÇ¿ôÊÑ¿ô¤ÎÃͤ¬Êѹ¹¤µ¤ì¤Ê¤¤¤³¤È¤ò¼¨¤·¤Þ¤¹¡£ NULL ¥Ç¡¼¥¿¹àÌܤϡ¢ÇÛÎóÍ×ÁǤޤ¿¤ÏÊ£ÁÇ¿ôÊÑ¿ô¤Ë¤Ä¤¤¤Æ¤À¤±»ÈÍѤǤ¤Þ¤¹¡£1 ¸Ä¤Î NULL ¥Ç¡¼¥¿¹àÌܤ¬ 1 ¸Ä¤ÎÊ£ÁÇÄê¿ôÁ´ÂΤòɽ¤·¤Þ¤¹¡£Ê£ÁÇÄê¿ô¤Î°ìÊý¤ÎÉô (µõÉô¤Þ¤¿¤Ï¼ÂÉô) ¤È¤·¤Æ¤Ï»ÈÍѤǤ¤Þ¤»¤ó¡£
Îã: NULL ¥Ç¡¼¥¿¤ÎÆþ¤Ã¤¿ÊÑ¿ô·²Æɤ߹þ¤ß
* nam2.f Ϣ³¤·¤¿¥³¥ó¥Þ¤Î¤¢¤ëÊÑ¿ô·²ÆþÎÏREAL ARRAY(4,4)NAMELIST /GRID/ ARRAYWRITE ( *, * ) 'ÆþÎÏ ?'READ ( *, GRID )WRITE ( *, GRID )END
D$GRID ARRAY = 9,9,9,9,,,,,8,8,8,8 $¤³¤Î·ë²Ì¡¢9 ¤¬ÇÛÎó
ARRAY
¤ÎÂè 1 ¹Ô¤Ë¥í¡¼¥É¤µ¤ì¡¢4 ¸Ä¤ÎÍ×ÁǤòÈô¤Ð¤·¤Æ 8 ¤¬Âè 3 ¹Ô¤ËÆɤ߹þ¤Þ¤ì¤Þ¤¹¡£ÇÛÎóÀìÍÑ
½ñ¼° r
*
c ¤ª¤è¤Ó r* ¤ÏÇÛÎó¤À¤±¤Ç»ÈÍѤǤ¤Þ¤¹¡£½ñ¼° r*c ¤Ç¤Ï¡¢Äê¿ô c ¤ò r ¸ÄÊ£¼Ì¤·¤¿¤â¤Î¤¬ÇÛÎó¤Ë³ÊǼ¤µ¤ì¤Þ¤¹¡£¤³¤³¤Ç¡¢r ¤Ï¥¼¥í°Ê³°¤ÎÉä¹æ¤Ê¤·À°Äê¿ô¤Ç¡¢c ¤ÏǤ°Õ¤ÎÄê¿ô¤Ç¤¹¡£
Îã: ¥Ç¡¼¥¿¤ËÈ¿Éü°ø»Ò¤¬¤¢¤ëÊÑ¿ô·²
* nam3.f ÊÑ¿ô·² "r*c" ¤È "r* "REAL PSI(10)NAMELIST /GRID/ PSIWRITE ( *, * ) 'ÆþÎÏ ?'READ ( *, GRID )WRITE ( *, GRID )END
D$GRID PSI = 5*980 $¾åµ¤Î
nam3.f
¥×¥í¥°¥é¥à¤Ç¤Ï¡¢¾åµ¤ÎÆþÎϤòÆɤ߹þ¤ß¡¢980.0 ¤òÇÛÎóPSI
¤ÎºÇ½é¤Î 5 ¸Ä¤ÎÍ×ÁǤËÆɤ߹þ¤ß¤Þ¤¹¡£
- ½ñ¼° r* ¤Ï¡¢ÇÛÎó¤Î r ¸Ä¤ÎÍ×ÁǤòÈô¤Ð¤·¤Þ¤¹ (¤Ä¤Þ¤ê¤³¤ì¤é¤ÏÊѹ¹¤µ¤ì¤Þ¤»¤ó)¡£¤³¤³¤Ç¡¢r ¤ÏÉä¹æ¤Ê¤·À°Äê¿ô¤Ç¤¹¡£
Îã: ÆɤßÈô¤Ð¤µ¤ì¤ë¥Ç¡¼¥¿¤Î¤¢¤ëÊÑ¿ô·²Æɤ߹þ¤ß
D$GRID PSI = 3* 5*980 $
nam3.f
¥×¥í¥°¥é¥à¤Ï¡¢¾åµ¤ÎÆþÎϤǤϺǽé¤Î 3 ¸Ä¤ÎÍ×ÁǤòÈô¤Ð¤·¡¢980.0 ¤òPSI
¤ÎÍ×ÁÇ
4¡¢5¡¢6¡¢7¡¢8 ¤ËÆɤ߹þ¤ß¤Þ¤¹¡£Ì¾Á°¤ÎÍ×µá
üËö¤«¤é¤ÎÊÑ¿ô·²ÆþÎϤμ¹ÔÃæ¤Ë¡¢»ÈÍѤ¹¤ë¥°¥ë¡¼¥×̾¤ÈÊÑ¿ô·²Ì¾¤òÍ×µá¤Ç¤¤Þ¤¹¡£¤³¤ì¤Ë¤Ï¡¢Âè 2 ·å¤Ëµ¿ÌäÉä (
?
) ¤òÆþÎϤ·¡¢Return ¥¡¼¤ò²¡¤·¤Þ¤¹¡£¥°¥ë¡¼¥×̾¤È¤½¤Î¥°¥ë¡¼¥×¤ÎÊÑ¿ô̾¤¬É½¼¨¤µ¤ì¡¢¼¡¤ÎÆþÎϤòÂÔ¤Á¤Þ¤¹¡£
¥µ¥ó¡¦¥Þ¥¤¥¯¥í¥·¥¹¥Æ¥à¥º³ô¼°²ñ¼Ò Copyright information. All rights reserved. |
¥Û¡¼¥à | Ìܼ¡ | Á°¥Ú¡¼¥¸¤Ø | ¼¡¥Ú¡¼¥¸¤Ø | º÷°ú |