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 ¤Ä¤Î·¿¤¬¤¢¤ê¤Þ¤¹¡£³°Éô¥Õ¥¡¥¤¥ë¤Ï¡¢¤¿¤È¤¨¤Ð¥Ç¥£¥¹¥¯¤ä¥Æ¡¼¥×¤Î¤è¤¦¤ÊʪÍýŪ¤Ê¼þÊÕÁõÃÖ¾å¤Ë¾ïÃó¤·¤Þ¤¹¡£ÆâÉô¥Õ¥¡¥¤¥ë¤Ï¼çµ­²±ÁõÃÖÆâ¤Ë¤¢¤ê¤Þ¤¹¡£ÆâÉô¥Õ¥¡¥¤¥ë¤Ïʸ»ú·¿¤Ç¡¢ÊÑ¿ô¡¢ÉôʬÎó¡¢ÇÛÎó¡¢ÇÛÎóÍ×ÁǤޤ¿¤Ï¹½Â¤Âε­Ï¿¤ÎÍó¤Î¤¤¤º¤ì¤«¤Ç¤¹¡£ÆâÉô¥Õ¥¡¥¤¥ë¤Ï¼þÊÕÁõÃ֤Τ褦¤ËÆɤ߼è¤Ã¤¿¤ê¡¢½ñ¤­¹þ¤ó¤À¤ê¤¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£

Æþ½ÐÎϤÎÁȤ߹ç¤ï¤»

³°Éô¥Õ¥¡¥¤¥ë¤ÎÆþ½ÐÎÏÁȤ߹ç¤ï¤»¤ò°Ê²¼¤Îɽ¤Ë¼¨¤·¤Þ¤¹¡£

µö²Ä¤µ¤ì¤ëÁȤ߹ç¤ï¤» µö²Ä¤µ¤ì¤Ê¤¤ÁȤ߹ç¤ï¤»
½çÈÖõºº¡¢½ñ¼°¤Ê¤· ľÀÜõºº¡¢Ê¤Ӥˤè¤ëÆþ½ÐÎÏ
½çÈÖõºº¡¢½ñ¼°ÉÕ¤­ ľÀÜõºº¡¢ÊÑ¿ô·²Æþ½ÐÎÏ
½çÈÖõºº¡¢Ê¤Ӥˤè¤ë ÆâÉô¥Õ¥¡¥¤¥ë¤ÎÊÑ¿ô·²Æþ½ÐÎÏ
½çÈÖõºº¡¢ÊÑ¿ô·² ½ñ¼°¤Ê¤·¡¢ÆâÉôÆþ½ÐÎÏ
ľÀÜõºº¡¢½ñ¼°¤Ê¤· ¥Ð¥¤¥Ê¥ê¡¢Ä¾ÀÜõºº ©
ľÀÜõºº¡¢½ñ¼°ÉÕ¤­ ¥Ð¥¤¥Ê¥ê¡¢½ñ¼°ÉÕ¤­ ©
¥Ð¥¤¥Ê¥ê¡¢½çÈÖõºº¡¢½ñ¼°¤Ê¤· ©


°Ê²¼¤Îɽ¤ÏÆþ½ÐÎϽñ¼°¡¢Ãµºº¥â¡¼¥É¡¢¤ª¤è¤ÓʪÍý¥Õ¥¡¥¤¥ë¤Î·¿¤ÎÁȤ߹ç¤ï¤»¤ò¼¨¤·¤Þ¤¹¡£

ɽ 5-1   f77 Æþ½ÐÎϤÎÍ×Ìó 
Æþ½ÐÎϤμïÎà õºº¥â¡¼¥É
½ñ¼° ¥Õ¥¡¥¤¥ë¤Î·¿ ½çÈÖ Ä¾ÀÜ


½ñ¼°ÉÕ¤­
ÆâÉô ¥Õ¥¡¥¤¥ë¤Ïʸ»úÊÑ¿ô¡¢ÉôʬÎó¡¢
ÇÛÎ󡢤ޤ¿¤ÏÇÛÎóÍ×ÁÇ¡£©
¥Õ¥¡¥¤¥ë¤Ïʸ»ú¤ÎÇÛÎó¤Ç¤¢¤ë¡£³Æµ­Ï¿¤Ï 1 ¤Ä¤ÎÇÛÎóÍ×ÁǤǤ¢¤ë¡£
³°Éô Ʊ°ìĹ¤Þ¤¿¤Ï²ÄÊÑĹ¤Î½ñ¼°ÉÕ¤­µ­Ï¿ ½ñ¼°ÉÕ¤­µ­Ï¿¤À¤±¡£¤¹¤Ù¤ÆƱ°ìĹ¡£


½ñ¼°¤Ê¤·
ÆâÉô (µö²Ä¤µ¤ì¤Ê¤¤) (µö²Ä¤µ¤ì¤Ê¤¤)
³°Éô ½ñ¼°¤Ê¤·µ­Ï¿¤À¤±¤ò´Þ¤à¡£ READ: °ìÅÙ¤Ë 1 ¤Ä¤ÎÏÀÍýµ­Ï¿¤ò³ÍÆÀ¤¹¤ë¡£WRITE: µ­Ï¿¤ÎËþ¤¿¤µ¤ì¤Ê¤¤Éôʬ¤Ï̤ÄêµÁ¡£


ʤÓ
ÆâÉô READ: EOF ¤Þ¤Ç¡¢¤Þ¤¿¤ÏÆþ½ÐÎÏʤӤ¬Ëþ¤¿¤µ¤ì¤ë¤Þ¤ÇÆɤ߼è¤ë¡£
WRITE: Æþ½ÐÎÏʤӤ¬Ëþ¤¿¤µ¤ì¤ë¤Þ¤Ç½ñ¤­¹þ¤à¡£©
(µö²Ä¤µ¤ì¤Ê¤¤)
³°Éô ÊÑ¿ô¤Î·¿¤ÈÍ×ÁǤΥµ¥¤¥º¤Ë¤â¤È¤Å¤¤¤¿É¸½à½ñ¼°¤ò»ÈÍѤ¹¤ë¡£
¶õÇò¤Þ¤¿¤Ï¥³¥ó¥Þ¤ÏʬΥʸ»ú¤Ç¤¢¤ë¡£Ç¤°Õ¤Î·å¿ô¡£
(µö²Ä¤µ¤ì¤Ê¤¤)




ÊÑ¿ô·²
ÆâÉô (µö²Ä¤µ¤ì¤Ê¤¤) (µö²Ä¤µ¤ì¤Ê¤¤)
³°Éô READ: ·å 2-80 ¤ÎÃæ¤Ë $groupname ¤ò¸«¤Ä¤±¤ë¤Þ¤Çµ­Ï¿¤òÆɤ߼è¤ë¡£¤½¤Î¸åµ­Ï¿¤òÆɤ߼è¤Ã¤Æ¤½¤Î¥°¥ë¡¼¥×Æâ¤Î̾Á°¤òõ¤·½Ð¤·¡¢¤½¤ì¤é¤ÎÊÑ¿ô¤Ë¥Ç¡¼¥¿¤ò³ÊǼ¤¹¤ë¡£$ ¤Þ¤¿¤Ï¥Õ¥¡¥¤¥ë½ªÎ»¥Þ¡¼¥¯¤ÇÆɤ߼è¤ê¤òÄä»ß¤¹¤ë¡£
WRITE: ¥°¥ë¡¼¥×̾¤ÈÃͤò»ý¤Ä³ÆÊÑ¿ô̾¤òɽ¤·¤Æ¤¤¤ëµ­Ï¿¤ò½ñ¤­¹þ¤à¡£
(µö²Ä¤µ¤ì¤Ê¤¤)


ʤӤˤè¤ëÆâÉô¥Õ¥¡¥¤¥ë¤Î½ñ¤­¹þ¤ß¤ÏÈò¤±¤Æ¤¯¤À¤µ¤¤¡£¹Ô¿ô¤È¹ÔËè¤Î¹àÌÜ¿ô¤Ï¹àÌܤÎÃͤÇÊѤï¤ê¤Þ¤¹¡£

¥×¥ê¥ó¥È¥Õ¥¡¥¤¥ë

OPEN ʸ¤ÎÃæ¤Çµ¬³Ê³°¤Î FORM='PRINT' ¤ò»ÈÍѤ¹¤ë¤È¥×¥ê¥ó¥È¥Õ¥¡¥¤¥ë¤¬ÆÀ¤é¤ì¤Þ¤¹¡£©

	OPEN ( ..., FORM='PRINT', ... )

¤³¤Î»ØÄê»Ò¤Ï¡¢½çÈÖõºº¥Õ¥¡¥¤¥ë¤ËÂФ·¤Æ¤À¤±Í­¸ú¤Ç¤¹¡£

ÄêµÁ

¥×¥ê¥ó¥È¥Õ¥¡¥¤¥ë¤Ë¤Ï°Ê²¼¤Îµ¡Ç½¤¬¤¢¤ê¤Þ¤¹¡£

°ìÈÌ¤Ë FORM='PRINT' ¤Ç¥Õ¥¡¥¤¥ë¤ò³«¤¯¤È¡¢Ê¤Ӥˤè¤ë½ÐÎϤϷå 1 ¤Ë Fortran 77 µ¬³Ê¤Î¶õÇò¤òÍ¿¤¨¤º¡¢FORM='PRINT' °Ê³°¤Ç³«¤¤¤¿¾ì¹ç¤Ï¤½¤Î¶õÇò¤òÍ¿¤¨¤Þ¤¹¡£FORM='PRINT' ¤Ï¡¢1 ²ó¤Î¸Æ¤Ó½Ð¤·¤Ë¤Ä¤­ 1 ¥Õ¥¡¥¤¥ë¤ËÂбþ¤·¤Þ¤¹¡£

FORM='PRINT' ¤Ç³«¤¤¤¿¥Õ¥¡¥¤¥ë¤ÎÆâÍƤϡ¢FORM='FORMATTED'¤Ç³«¤­¡¢½ÐÎÏ¥Õ¥£¥ë¥¿ asa ¤Ç¥Õ¥£¥ë¥¿¤µ¤ì¤¿¤â¤Î¤ÈƱ¤¸¤Ë¤Ê¤ê¤Þ¤¹¡£

-oldldo ¥ª¥×¥·¥ç¥ó (µì¤ÎʤӤˤè¤ë½ÐÎÏ) ¤òÀßÄꤷ¤Æ¥³¥ó¥Ñ¥¤¥ë¤¹¤ë¤È¡¢¥×¥í¥°¥é¥à¤Ë¤è¤Ã¤Æ½ñ¤­¹þ¤Þ¤ì¤ë¤¹¤Ù¤Æ¤Î¥Õ¥¡¥¤¥ë¤Ï¡¢·å 1 ¤Ë FORTRAN 77 µ¬³Ê¤Î¶õÇò¤òÍ¿¤¨¤º¤ËʤӤˤè¤ë½ÐÎϤò¹Ô¤¤¤Þ¤¹¤¬¡¢¤½¤ì°Ê³°¤Î¤È¤­¤Î¤¹¤Ù¤Æ¤Î¥Õ¥¡¥¤¥ë¤Ï¡¢¶õÇò¤òÍ¿¤¨¤é¤ì¤Þ¤¹¡£
-oldldo ¥ª¥×¥·¥ç¥ó¤ÏÂç°èŪ¤Ç¤¹¡£

INQUIRE ʸ

INQUIRE ʸ¤Ï¡¢'PRINT' ¥Õ¥¡¥¤¥ë¤È¤·¤Æ³«¤«¤ì¤¿ÏÀÍý¥æ¥Ë¥Ã¥È¤ËÂФ·¤Æ¤Ï¡¢FORM ÊÑ¿ô¤ÎÃæ¤Ç 'PRINT' ¤òÌᤷ¤Þ¤¹¡£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 ¼Â¹Ô»þ¥·¥¹¥Æ¥à¤Ï´Ä¶­¤òÄ´¤Ù¤Æ·Á¼° FORTnn ¤Î̾Á°¤òõ¤·¤Æ¤«¤é¡¢Âбþ¤¹¤ëÏÀÍý¥æ¥Ë¥Ã¥È¤ò½çÈÖ½ñ¼°ÉÕ¤­Æþ½ÐÎϤȤ·¤Æ³«¤­¤Þ¤¹¡£

¤³¤ÎÎã¤Ç¤Ï¡¢¼¡¤Î¤è¤¦¤Ë¥×¥í¥°¥é¥à¤¬ÁõÃÖ 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 ¤Ë·ë¹ç¤¹¤ë

sh:

demo$ TST01=ini1.inp 
demo$ TST02=ini1.out 
demo$ export TST01 TST02 

csh:

demo% setenv TST01 ini1.inp 
demo% setenv TST02 ini1.out 

Îã: ¥Õ¥¡¥¤¥ë ini1.inp ¤È ini1.out¤òÁõÃÖ 1 ¤È 2 ¤Ë·ë¹ç¤·¤Þ¤¹

demo% cat ini1.f 
	CHARACTER PRFX*8 
	LOGICAL CCTL, BZRO, APND, VRBOSE 
	DATA CCTL, BZRO, APND, PRFX, VRBOSE 
& 	/.TRUE., .FALSE., .FALSE., 'TST', .FALSE. / 
C 
	CALL IOINIT( CCTL, BZRO, APND, PRFX, VRBOSE ) 
	READ( 1, *) I, B, N 
	WRITE( *, *) 'I = ', I, ' B = ', B, ' N = ', N 
	WRITE( 2, *) I, B, N 
	END 
demo% cat $TST01
 12 3.14159012 6
demo% f77 ini1.f
ini1.f: 
 MAIN: 
demo% a.out 
 I =   12 B =     3.14159 N =   6 
demo% cat $TST02
   12    3.14159  6

IOINIT ¤ÏºîÀ®¤µ¤ì¤¿¤È¤­¤Ë¡¢Â¿¤¯¤Î¥×¥í¥°¥é¥à¤Ë¤È¤Ã¤Æ½½Ê¬¤Ç¤¢¤ë¤³¤È¤òΩ¾Ú¤·¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£Fortran ¤Ç½ñ¤«¤ì¤Æ¤¤¤ë¤¿¤áƱÍͤΥ桼¥¶¡¼ºîÀ®¥ë¡¼¥Á¥ó¤ÎÎã¤È¤·¤ÆÌòΩ¤Á¤Þ¤¹¡£IOINIT ¤Î¥½¡¼¥¹¥³¡¼¥É¤Ï¼¡¤«¤é¼è¤ê½Ð¤¹¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£

/opt/SUNWspro/<release>/src/ioinit.f

<release>¥Ñ¥¹¤Ï¡¢¥³¥ó¥Ñ¥¤¥é¤Î¥ê¥ê¡¼¥¹¤´¤È¤ËÊѤï¤ê¤Þ¤¹¡£

ľÀÜõºº

ľÀÜõºº¥Õ¥¡¥¤¥ë¤Ï¡¢µ­Ï¿ÈÖ¹æ¤ò»ØÄꤷ¤ÆÆɤ߼è¤ê¡¢¤Þ¤¿¤Ï½ñ¤­¹þ¤ß¤ò¹Ô¤¦Â¿¿ô¤Îµ­Ï¿¤Ç¹½À®¤µ¤ì¤Æ¤¤¤Þ¤¹¡£Ä¾ÀÜõºº¤Ï¥é¥ó¥À¥àõºº¤È¤â¸Æ¤Ð¤ì¤Þ¤¹¡£

ľÀÜõºº¤ÎÆÃŤª¤è¤Ó¡¢À©¸Â»ö¹à¤Ï¼¡¤Î¤È¤ª¤ê¤Ç¤¹¡£

½ñ¼°¤Ê¤·Æþ½ÐÎÏ

Îã: ľÀÜõºº¡¢½ñ¼°¤Ê¤·

	OPEN( 2, FILE='data.db', ACCESS='DIRECT', RECL=20, 
& 	FORM='UNFORMATTED', ERR=90 ) 
	READ( 2, REC=13, ERR=30 ) X, Y 
	READ( 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 ʸ¤ò»ÈÍѤ·¤Æ½èÍý¤µ¤ì¤Þ¤¹)¡£ÆâÉô¥Õ¥¡¥¤¥ë¤Ï¡¢ÁõÃÖÈÖ¹æ¤ÎÂå¤ï¤ê¤Ëʸ»ú¥ª¥Ö¥¸¥§¥¯¥È¤Î̾Á°¤òÍ¿¤¨¤Æ»ÈÍѤ·¤Þ¤¹¡£½çÈÖõººÆâÉô¥Õ¥¡¥¤¥ë¤«¤é¤ÎÆɤ߼è¤ê¤Ï¡¢¾ï¤ËÆâÉô¥Õ¥¡¥¤¥ë¤ÎºÇ½é¤«¤é³«»Ï¤µ¤ì¤Þ¤¹¡£½ñ¤­¹þ¤ß¤Î¤È¤­¤âƱÍͤǤ¹¡£

Î㡧½çÈÖ½ñ¼°ÉÕ¤­ READ

	CHARACTER X*80 
	READ( 5, '(A)' ) X 
	READ( X, '(I3,I4)' ) N1, N2 

¤³¤ì¤Ï½ÐÎϹԥ¤¥á¡¼¥¸¤ò X ¤ËÆɤ߹þ¤ó¤Ç¡¢¤½¤Î¸å X ¤«¤é 2 ¸Ä¤ÎÀ°¿ô¤òÆɤ߼è¤ê¤Þ¤¹¡£

ľÀÜõººÆþ½ÐÎÏ

f77 ¤Ï¡¢Ä¾ÀÜÆþ½ÐÎϤòÆâÉô¥Õ¥¡¥¤¥ë¤Ë¤Þ¤Ç³ÈÄ¥¤·¤Þ¤¹¡£©

¤³¤ì¤Ï¥Õ¥¡¥¤¥ëÆâ¤Îµ­Ï¿¿ô¤òÊѹ¹¤Ç¤­¤Ê¤¤¤³¤È¤ò½ü¤¤¤Æ¡¢³°Éô¥Õ¥¡¥¤¥ë¤ÎľÀÜÆþ½ÐÎϤËÎà»÷¤·¤Æ¤¤¤Þ¤¹¡£¤³¤Î¾ì¹ç 1 µ­Ï¿¤Ïʸ»úÎó¤ÎÇÛÎó¤Îñ°ìÍ×ÁǤǤ¹¡£

Îã: ÆâÉô¥Õ¥¡¥¤¥ë LINE ¤Î 3 ÈÖÌܤε­Ï¿¤ÎľÀÜõººÆɤ߼è¤ê

demo% cat intern.f 
	CHARACTER LINE(3)*14 
	DATA LINE(1) / ' 81 81 ' / 
	DATA LINE(2) / ' 82 82 ' / 
	DATA LINE(3) / ' 83 83 ' / 
	READ ( LINE, FMT='(2I4)', REC=3 ) M, N 
	PRINT *, M, N 
	END 
demo% f77 -silent intern.f 
demo% a.out 
  83 83 
demo% 

½ñ¼°ÉÕ¤­Æþ½ÐÎÏ

½ñ¼°ÉÕ¤­Æþ½ÐÎϤǤϡ¢°Ê²¼¤Î¤³¤È¤¬¹Ô¤ï¤ì¤Þ¤¹¡£

ÆþÎÏõºº

°ìÈ̤ˡ¢½ñ¼°ÉÕ¤­ READ ʸ¤Ï°Ê²¼¤Î¤³¤È¤ò¹Ô¤¤¤Þ¤¹¡£

Îã: ½ñ¼°ÉÕ¤­ READ

	READ( 6, 10 ) A, B 
10	FORMAT( F8.3, F6.2 ) 

½ÐÎÏõºº

°ìÈ̤ˡ¢½ñ¼°ÉÕ¤­ WRITE ʸ¤Ï°Ê²¼¤Î¤³¤È¤ò¹Ô¤¤¤Þ¤¹¡£

Îã: ½ñ¼°ÉÕ¤­ WRITE

	REAL  A / 1.0 /,  B / 9.0 /
	WRITE( 6, 10 ) A, B 
10	FORMAT( F8.3, F6.2 ) 

½ñ¼°ÉÕ¤­ WRITE ʸ¤Î¾ì¹ç¡¢ÏÀÍýµ­Ï¿Ä¹¤Ï¼Â¹Ô»þ¤ËÆþÎÏÊÑ¿ô¡¢¤Þ¤¿¤Ï½ÐÎÏÊÑ¿ô¤ÎÊÂ¤Ó (Æþ½ÐÎÏʤÓ) ¤ÈÁê¸ß¤ËºîÍѤ¹¤ë FORMAT ʸ¤Ë¤è¤Ã¤Æ·èÄꤵ¤ì¤Þ¤¹¡£

½ñ¼°ÉÕ¤­ WRITE ʸ¤Î¾ì¹ç¡¢³°Éô¥Ç¡¼¥¿É½¸½¤¬»ØÄꤵ¤ì¤¿Íó¤ÎÉý¤ËÂФ·¤ÆÂ礭¤¹¤®¤ë¤È¤­¤Ï¡¢»ØÄꤵ¤ì¤¿Íó¤Ï¥¢¥¹¥¿¥ê¥¹¥¯ (*) ¤ÇËþ¤¿¤µ¤ì¤Þ¤¹¡£

½ñ¼°ÉÕ¤­ READ ʸ¤Î¾ì¹ç¡¢Ê¤ӤιàÌÜ¿ô¤¬¥Ç¡¼¥¿¤ÎÍó¿ô¤è¤ê¾¯¤Ê¤¤¤È¤­¡¢Í¾Ê¬¤ÎÍó¤Ï̵»ë¤µ¤ì¤Þ¤¹¡£

½ñ¼°»ØÄê»Ò

ɽ 5-2   ½ñ¼°»ØÄê»Ò
ÍÑÅÓ FORTRAN 77 f77 ¤Î³ÈÄ¥
¶õÇòÀ©¸æ BN, BZ B
¥­¥ã¥ê¥Ã¥¸À©¸æ /, space, 0, 1 $
ʸ»úÊÔ½¸ nH, Aw , 'aaa' "aaa", A
ÉâÆ°¾®¿ôÅÀÊÔ½¸ Dw.dEe,
Ew.dEe,
Fw.dEe,
Gw.dEe
Ew.d.e,
Dw.d.e,
Gw.d.e
16 ¿ÊÊÔ½¸
Zw.m
À°¿ôÊÔ½¸ Iw.m
ÏÀÍýÊÔ½¸ Lw
8 ¿ÊÊÔ½¸
Ow.m
°ÌÃÖÀ©¸æ nX, Tn, TLn, TRn nT, T, X
»Ø¿ôÀ©¸æ
nR, R
»Ä¸ʸ»ú Q
¥¹¥±¡¼¥ëÀ©¸æ nP P
Éä¹æÀ©¸æ S, SP, SS SU
½ñ¼°½ªÎ» :
ÊÑ¿ô¼°
< e >


FORMAT ʸ¤ÎÃæ¡¢¤ª¤è¤ÓÆþ½ÐÎϥ饤¥Ö¥é¥ê¥ë¡¼¥Á¥ó¤Ø¤Î¤¹¤Ù¤Æ¤Î±Ñ»ú°ú¿ô¤ÎÃæ¤Î½ñ¼°»ØÄê»Ò¤Ë¤Ï¡¢¾®Ê¸»ú¤À¤±¤Ç¤Ê¤¯Âçʸ»ú¤â»ÈÍѤǤ­¤Þ¤¹¡£

w¡¢m¡¢d¡¢e ¥Ñ¥é¥á¡¼¥¿ (Gw.dEe ¤Î¾ì¹ç)¡¡

w¡¢m¡¢d¡¢e ¥Ñ¥é¥á¡¼¥¿¤ÎÄêµÁ¤Ï¼¡¤Î¤È¤ª¤ê¤Ç¤¹¡£

w¡¢d¡¢e ¤Î¥Ç¥Õ¥©¥ë¥ÈÃÍ

Íó»Ø¼¨»Ò w¡¢d¡¢¤Þ¤¿¤Ï e ¤Ê¤·¤ÇÍóµ­½Ò»Ò A¡¢D¡¢E¡¢F¡¢G¡¢I¡¢L¡¢O¡¢¤Þ¤¿¤Ï Z ¤ò½ñ¤¯¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£© ¤³¤ì¤é¤¬»ØÄꤵ¤ì¤Ê¤¤¤Þ¤Þ¤Î¤È¤­¡¢Æþ½ÐÎÏʤÓÍ×ÁǤΥǡ¼¥¿¤Î·¿¤Ë¤â¤È¤Å¤¤¤ÆŬÀڤʥǥե©¥ë¥È¤¬»ÈÍѤµ¤ì¤Þ¤¹¡£É½ 5-3 ¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£

w¡¢d¡¢¤Þ¤¿¤Ï e ¤ò»ÈÍѤ¹¤ë°ìÈÌŪ¤Ê½ñ¼°Íóµ­½Ò»Ò¤ò¼¡¤Ë¼¨¤·¤Þ¤¹¡£

Aw, Iw, Lw, Ow, Zw, Dw.d, Ew.d, Gw.d, Ew.dEe, Gw.dEe

Îã: INTEGER*2 ¤ËÂФ·¤Æ¥Ç¥Õ¥ª¥ë¥È w=7 ¤Î¾ì¹ç (10¿Ê¿ô 161=16¿Ê¿ô A1)¡¡

	INTEGER*2 M 
	M = 161 
	WRITE ( *, 8 ) M 
8	FORMAT ( Z ) 
	END

¾åµ­¤ÎÎã¤Ï¡¢¼¡¤Î¤è¤¦¤Ëɽ¼¨¤µ¤ì¤Þ¤¹¡£

demo% f77 def1.f 
def1.f: 
 MAIN: 
demo% a.out
DDDDDa1
demo% 

D ¤Ï¡¢¶õÇòʸ»ú¤Î°ÌÃÖ¤ò¼¨¤·¤Þ¤¹¡£w¡¢d¡¢¤ª¤è¤Ó e ¤Î¥Ç¥Õ¥©¥ë¥ÈÃͤò°Ê²¼¤Ë¤Þ¤È¤á¤Þ¤¹¡£

ɽ 5-3   ½ñ¼°Í󵭽һҤΥǥե©¥ë¥È w¡¢d¡¢e ¤ÎÃÍ
Íóµ­½Ò»Ò Ê¤ӤÎÍ×ÁÇ w
d
e
I,O,Z
BYTE
7
-
-
I,O,Z
INTEGER*2, LOGICAL*2
7
-
-
I,O,Z
INTEGER*4, LOGICAL*4
12
-
-
O,Z
REAL*4
12
-
-
O,Z
REAL*8
23
-
-
O,Z
REAL*16, COMPLEX*32
44
-
-
L
LOGICAL
2
-
-
F,E,D,G
REAL, COMPLEX*8
15
7
2
F,E,D,G
REAL*8, COMPLEX*16
25
16
2
F,E,D,G
REAL*16, COMPLEX*32
42
33
3
A
LOGICAL*1
1
-
-
A
LOGICAL*2, INTEGER*2
2
-
-
A
LOGICAL*4, INTEGER*4
4
-
-
A
REAL*4, COMPLEX*8
4
-
-
A
REAL*8, COMPLEX*16
8
-
-
A
REAL*16, COMPLEX*32
16
-
-
A
CHARACTER*n
n
-
-

Ê£ÁÇ¿ô¹àÌܤΠ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 ¤Ç°ìÅÙ¤º¤ÄÆɤ߼è¤Ã¤Æ½ÐÎϤ¹¤ëÎã

demo% cat bz1.f 
*			12341234 
	CHARACTER LINE*18 / ' 82 82 ' / 
	READ ( LINE, '( I4, BZ, I4 ) ') M, N 
	PRINT *, M, N 
	READ ( LINE, '( I4, BN, I4 ) ') M, N 
	PRINT *, M, N 
	END 
demo% f77 -silent  bz1.f 
demo% a.out 
  82 8200 
  82 82 
demo% 

¶õÇòÀ©¸æ¤Î°Ê²¼¤Îµ¬Â§¤ËÃí°Õ¤·¤Æ¤¯¤À¤µ¤¤¡£

¥­¥ã¥ê¥Ã¥¸À©¸æ ($¡¢¥¹¥Ú¡¼¥¹¡¢0¡¢1)

¥­¥ã¥ê¥Ã¥¸À©¸æ¤È¤·¤Æ¡¢ÊÔ½¸µ­½Ò»Ò¤Î $ ¤ª¤è¤Ó¥¹¥Ú¡¼¥¹¡¢0¡¢¤Þ¤¿¤Ï 1 ¤ò»ÈÍѤ·¤Þ¤¹¡£

¥É¥ëµ­¹æ $

ÆüìÊÔ½¸µ­½Ò»Ò $ ¤Ï¡¢¥­¥ã¥ê¥Ã¥¸¥ê¥¿¡¼¥ó¤òÍ޻ߤ·¤Þ¤¹¡£©

¤³¤Î½èÍý¤Ï½ñ¼°¤ÎÂè 1 ʸ»ú¤Ë°Í¸¤·¤Þ¤»¤ó¡£$ ¤Ï°ìÈ̤˥³¥ó¥½¡¼¥ë¥×¥í¥ó¥×¥È¤Ë»ÈÍѤµ¤ì¤Þ¤¹¡£¤¿¤È¤¨¤ÐÆþÎϱþÅú¤¬½ÐÎϤµ¤ì¤¿¥×¥í¥ó¥×¥È¤ÈƱ¤¸¹Ô¤Ë³¤¯¤è¤¦¤Ë¤¹¤ë¤¿¤á¤Ë¡¢¤³¤Îµ­½Ò»Ò¤ò»ÈÍѤ¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£¤³¤ÎÊÔ½¸µ­½Ò»Ò¤Ï¡¢¥³¥í¥ó (:) ¤ÈƱ¤¸µ¬Â§¤Ë¤è¤Ã¤ÆÀ©Ì󤵤ì¤Þ¤¹¡£

Îã: $ µ­¹æ¤Î¥­¥ã¥ê¥Ã¥¸À©¸æ

* dol1.f  ¥¹¥Ú¡¼¥¹¤òȼ¤¦ $ ÊÔ½¸µ­½Ò»Ò 
	WRITE ( *, 2 ) 
2	FORMAT (' ¥Î¡¼¥ÉÈÖ¹æ¤òÆþÎϤ·¤Æ¤¯¤À¤µ¤¤: ', $ ) 
	READ ( *, * ) NODENUM 
	END 

¾åµ­¤Î¥×¥í¥°¥é¥à¤Ë¤è¤ê¡¢¼¡¤Î¤è¤¦¤Ê¥×¥í¥ó¥×¥È¤È¥æ¡¼¥¶¡¼¤ÎÆþÎϱþÅú¤¬É½¼¨¤µ¤ì¤Þ¤¹¡£

¥Î¡¼¥ÉÈÖ¹æ¤òÆþÎϤ·¤Æ¤¯¤À¤µ¤¤:  82 

½ñ¼°¤ÎÂè 1 ʸ»ú¤Ë¤Ï¡¢¤³¤Î¾ì¹ç¶õÇò¤¬½ÐÎϤµ¤ì¤Þ¤¹¡£ÆþÎÏʸ¤Î¾ì¹ç $ µ­½Ò»Ò¤Ï̵»ë¤µ¤ì¤Þ¤¹¡£

¥¹¥Ú¡¼¥¹¡¢0¡¢1¡¢+

°Ê²¼¤Ë²þ¹ÔÀ©¸æ¤È¤½¤ÎÆ°ºî¤ò¼¨¤·¤Þ¤¹¡£

ɽ 5-4   ¶õÇò¡¢0¡¢1¡¢+ ¤Ë¤è¤ë¥­¥ã¥ê¥Ã¥¸À©¸æ
ʸ»ú ½ÐÎϤËÀèΩ¤Ä¹ÔÁ÷¤ê
D (¥¹¥Ú¡¼¥¹)
1 ¹Ô
0
2 ¹Ô
1
¼¡¥Ú¡¼¥¸¤ÎºÇ½é¤Î¹Ô¤Ø¹ÔÁ÷¤ê
+
²þ¹Ô¤Ê¤· (ɸ½à½ÐÎϤΤߡ¢¥Õ¥¡¥¤¥ë¤Ç¤Ï̵¸ú)


½ñ¼°¤ÎÂè 1 ʸ»ú¤¬ ¥¹¥Ú¡¼¥¹¡¢0¡¢1¡¢+ °Ê³°¤Î¤È¤­¤Ï¡¢¥¹¥Ú¡¼¥¹¤È¤·¤Æ°·¤ï¤ì½ÐÎϤµ¤ì¤Þ¤»¤ó¡£

ºÇ½é¤Î·å¤Îʸ»ú¤¬ + ¤Î¾ì¹ç¡¢Á°¤Î¹Ô¤ÎÀèƬ¤ËÌá¤ë¤è¤¦¤ÊÀ©¸æ¥·¡¼¥±¥ó¥¹¤ËÃÖ¤­´¹¤¨¤é¤ì¤Þ¤¹¡£

asa ¤òÄ̤¸¤Æ¥Ñ¥¤¥×¤µ¤ì¤Æ¤¤¤ë¤È¡¢¥¹¥Ú¡¼¥¹¡¢0 ¡¢1¡¢¤ª¤è¤Ó + ¤Ïɸ½à½ÐÎϤËÂФ·¤ÆƯ¤­¤Þ¤¹¡£

Î㡧Âè 1 ʸ»ú¤Î½ñ¼°²½¡¢É¸½à½ÐÎϤ¬ asa ¤ò²ð¤·¤Æ¥Ñ¥¤¥×¤µ¤ì¤Þ¤¹¡£

demo% cat slew1.f
	WRITE( *, '("abcd")') 
	WRITE( *, '(" efg")')  ¶õÇò¤Ï¥¹¥Ú¡¼¥¹ 1 ¤Ä
	WRITE( *, '("0hij")')  "0" ¤Ï¥À¥Ö¥ë¥¹¥Ú¡¼¥¹
	WRITE( *, '("1klm")')  "1" ¤Ï¤³¤ì¤ò¿·¤·¤¤¥Ú¡¼¥¸¤Ç»Ï¤á¤ë
	WRITE( *, '("+", T5, "nop")')   "+" ¤ÏºÇ½ª¹Ô¤Î 1 ·åÌܤǤ³¤ì¤ò»Ï¤á¤ë
	END
demo% f77 -silent slew1.f
demo% a.out | asa | lpr
demo%

¼¡¤Î¤è¤¦¤Ë¥×¥í¥°¥é¥à slew1.f ¤Ï¡¢lp ¤Ç°õºþ¤¹¤ë¤È¥Õ¥¡¥¤¥ë slew1.out ¤òºîÀ®¤·¤Þ¤¹¡£

bcd
efg

hij
klmnop ¤³¤ì¤Ï¿·¤·¤¤¥Ú¡¼¥¸¤Ë»Ï¤Þ¤ë¡£+nop ¤Î + ¤Î¤¿¤á

²èÌ̤ǤϷë²Ì¤¬°ã¤¤¤Þ¤¹¡£¥¿¥Ö¤¬¥¹¥Ú¡¼¥¹¤òÁÞÆþ¤·¤Þ¤¹¡£

demo% cat slew1.out
bcd
efg

 
hij
   nop             ¤³¤ì¤Ï¿·¤·¤¤¥Ú¡¼¥¸¤Ë»Ï¤Þ¤ë¡£+nop ¤Î  +  ¤Î¤¿¤á
demo% 

asa(1) ¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£

¥¹¥Ú¡¼¥¹¡¢0¡¢ 1 ¤ª¤è¤Ó + ¤Ï¡¢¼¡¤Î¤è¤¦¤Ê¾ò·ï¤Ç³«¤¤¤¿¥Õ¥¡¥¤¥ë¤ËÂФ·¤ÆÆ°ºî¤·¤Þ¤¹¡£

Î㡧 Âè 1 ʸ»ú½ñ¼°¡¢¥Õ¥¡¥¤¥ë½ÐÎÏ

demo% cat slew2.f
	OPEN( 1,FILE='slew.out',FORM='PRINT' ) 
	WRITE( 1, '("abcd")') 
	WRITE( 1, '("efg")') 
	WRITE( 1, '("0hij")') 
	WRITE( 1, '("1klm")') 
	WRITE( 1, '("+", T5, "nop")') 
	CLOSE( 1, STATUS='KEEP') 
	END
demo% f77 -silent slew2.f
demo% a.out

¼¡¤Î¤è¤¦¤Ë¥×¥í¥°¥é¥à 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*9 
	READ '( A7 )', C 

CHARACTER C*n ¤Î¤µ¤Þ¤¶¤Þ¤Ê n ¤ÎÃͤò°Ê²¼¤Îɽ¤Ë¼¨¤·¤Þ¤¹¡£

¥µ¥¤¥º n
9
7
4
1
¥Ç¡¼¥¿

NodeDId

NodeDId NodeDId NodeDId
½ñ¼°

A7

A7 A7 A7
¥á¥â¥ê¡¼

NodeDIdDD

NodeDId eDId d


D ¤Ï¶õÇò¤Î¥¹¥Ú¡¼¥¹¤ò¼¨¤·¤Þ¤¹¡£

½ÐÎÏÎã: 3 ʸ»ú¡¢5 ʸ»ú¡¢¤ª¤è¤Ó 7 ʸ»ú¤Îʸ»úÎó¤Î½ÐÎÏ (¤½¤ì¤¾¤ì 5 ʸ»ú¤ÎÍó¤Ë½ÐÎÏ)

	PRINT 1, 'The', 'whole', 'shebang' 
1	FORMAT( A5 / A5 / A5 )
	END 

¾åµ­¤Î¥×¥í¥°¥é¥à¤Ï¼¡¤Î¤è¤¦¤Ëɽ¼¨¤·¤Þ¤¹¡£

DDThe 
whole 
sheba 

ʸ»ú¤Ç¤Ê¤¤·¿¤ÎºÇÂçʸ»ú¿ô¤ò¼¡¤Ë¤Þ¤È¤á¤Þ¤¹¡£

ɽ 5-5   Ê¸»ú°Ê³°¤Î·¿¥Û¥ì¥ê¥¹ (nHaaa) ¤ÎºÇÂçʸ»ú¿ô
ʤӹàÌܤη¿ ºÇÂçʸ»ú¿ô
BYTE
LOGICAL*1
LOGICAL*2
LOGICAL*4
LOGICAL*8
INTEGER*2
INTEGER*4
INTEGER*8
REAL
REAL*4
REAL*8
REAL*16 (SPARC ¤Î¤ß)
DOUBLE PRECISION
COMPLEX
COMPLEX*8
COMPLEX*16
COMPLEX*32 (SPARC ¤Î¤ß)
DOUBLE COMPLEX
1
1
2
4
8
2
4
8
4
4
8
16
8
8
8
16
32
16


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.f 
	WRITE( *, 1 ) 
1 	FORMAT( 6Holder ) 
	READ( *, 1 ) 
	WRITE( *, 1 ) 
	END 
demo% f77 hol1.f 
hol1.f: 
 MAIN 
demo% a.out 
older 
newer 
newer 
demo%  

¾åµ­¤ÎÎã¤Ç½ñ¼°¤¬¼Â¹Ô»þ½ñ¼° (ÊÑ¿ô½ñ¼°) ¤Î¤È¤­¤Ï¡¢¾åµ­¤Î¼ÂºÝ¤Î½ñ¼°¤Ø¤ÎÆɤ߹þ¤ß¤Ï¹Ô¤ï¤ì¤º¡¢½ñ¼°¤ÏÊѹ¹¤µ¤ì¤Ê¤¤¤Þ¤Þ¤Ç¤¹¡£¤Ä¤Þ¤ê¡¢¼¡¤Î¤è¤¦¤ÊÆɤ߹þ¤ß¤Ï¼ºÇÔ¤·¤Þ¤¹¡£

	CHARACTER F*18 / '(A8)' / 
	READ(*,F)			! <- Æɤ߹þ¤ß¤Ï¹Ô¤ï¤ì¤Ê¤¤ 
	... 

¤É¤Á¤é¤Ë¤·¤Æ¤â¡¢¼ÂºÝ¤Î½ñ¼°¤ØÆɤ߹þ¤à¤¿¤á¤Î¤è¤êÎɤ¤ÊýË¡¤¬¤¢¤ë¤³¤È¤ÏÌÀ¤é¤«¤Ç¤¹¡£

À°¿ôÊÔ½¸ (I)

I ·Á»ØÄê»Ò¤Ï 10 ¿ÊÀ°¿ô¥Ç¡¼¥¿¹àÌܤ˻ÈÍѤµ¤ì¤Þ¤¹¡£°ìÈ̽ñ¼°¤ò¼¡¤Ë¼¨¤·¤Þ¤¹¡£

I[w[.m]]

Iw ¤È Iw.m ÊÔ½¸»ØÄê»Ò¤Ï¡¢ÊÔ½¸¤¹¤ëÍó¤¬ w ·å¤òÀê¤á¤ë¤³¤È¤ò¼¨¤·¤Þ¤¹¡£»ØÄꤵ¤ì¤¿Æþ½ÐÎÏʤӤιàÌܤÏÀ°¿ô·¿¤Ç¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£ÆþÎÏ»þ¤Ë»ØÄꤵ¤ì¤ëʤӤιàÌܤϡ¢À°¿ô¥Ç¡¼¥¿¤ÇÄêµÁ¤µ¤ì¤ë¤³¤È¤Ë¤Ê¤ê¤Þ¤¹¡£½ÐÎÏ»þ¤Ë»ØÄꤵ¤ì¤ëʤӤιàÌܤϡ¢À°¿ô¥Ç¡¼¥¿¤È¤·¤ÆÄêµÁ¤µ¤ì¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£

ÆþÎÏ»þ¤Ë¤Ï¡¢Iw.m ÊÔ½¸»ØÄê»Ò¤Ï Iw ÊÔ½¸»ØÄê»Ò¤ÈƱÅù¤Ë°·¤ï¤ì¤Þ¤¹¡£

Iw ÊÔ½¸»ØÄê»Ò¤Î½ÐÎÏÍó¤Ï°Ê²¼¤Î¤â¤Î¤«¤é¹½À®¤µ¤ì¤Þ¤¹¡£

À°Äê¿ô¤Ï¾¯¤Ê¤¯¤È¤â 1 ·å¤ò»ý¤Á¤Þ¤¹¡£

Iw.m ÊÔ½¸»ØÄê»Ò¤Î½ÐÎÏÍó¤Ï¡¢Éä¹æ¤Ê¤·À°Äê¿ô¤¬¾¯¤Ê¤¯¤È¤â m ·å¤Ç¹½À®¤µ¤ì¡¢É¬Íפ˱þ¤¸¤ÆÀè¹Ô¤Î¥¼¥í¤ò»ý¤Ä¤³¤È°Ê³°¤Ï¡¢Iw ÊÔ½¸»ØÄê»Ò¤ÈƱ¤¸¤Ç¤¹¡£m ¤ÎÃÍ¤Ï w ¤ÎÃͤòĶ¤¨¤Æ¤Ï¤Ê¤ê¤Þ¤»¤ó¡£m ¤¬¥¼¥í¤Ç¹àÌܤÎÃͤ⥼¥í¤Î¤È¤­¤Ï¡¢Í­¸ú¤ÊÉä¹æÀ©¸æ¤Ë´Ø·¸¤Ê¤¯¡¢½ÐÎÏÍó¤Ï¶õÇòʸ»ú¤À¤±¤Ç¹½À®¤µ¤ì¤Þ¤¹¡£

Îã: int1.f¡¢À°¿ôÆþÎÏ

	CHARACTER LINE*8 / '12345678' / 
	READ( LINE, '(I2, I3, I2 )') I, J, K 
	PRINT *, I, J, K 
	END 

¾åµ­¤Î¥×¥í¥°¥é¥à¤Ï¼¡¤Î¤è¤¦¤Ëɽ¼¨¤µ¤ì¤Þ¤¹¡£

     12 345 67

Îã: int2.f¡¢À°¿ô½ÐÎÏ

	N = 1234 
	PRINT 1, N, N, N, N 
1	FORMAT( I6 / I4 / I2 / I6.5 ) 
	END 

¾å¤Î¥×¥í¥°¥é¥à¤Ï¼¡¤Î¤è¤¦¤Ëɽ¼¨¤·¤Þ¤¹¡£

  1234 
1234 
** 
01234 

ÏÀÍýÊÔ½¸ (L)

L ·Á»ØÄê»Ò¤ÏÏÀÍý¥Ç¡¼¥¿¹àÌܤ˻ÈÍѤµ¤ì¤Þ¤¹¡£°ìÈ̽ñ¼°¤ò¼¡¤Ë¼¨¤·¤Þ¤¹¡£

 Lw

Lw ÊÔ½¸»ØÄê»Ò¤ÏÍó¤¬ w ·å¤òÀê¤á¤ë¤³¤È¤ò¼¨¤·¤Þ¤¹¡£»ØÄꤵ¤ì¤¿Æþ½ÐÎÏʤӤιàÌܤÏÏÀÍý·¿¤Ç¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£ÆþÎÏ»þ¤Ë¤ÏʤӤιàÌܤÏÏÀÍý¥Ç¡¼¥¿¤ÇÄêµÁ¤µ¤ì¤ë¤³¤È¤Ë¤Ê¤ê¤Þ¤¹¡£½ÐÎÏ»þ¤Ë¤ÏʤӤιàÌܤÏÏÀÍý¥Ç¡¼¥¿¤È¤·¤ÆÄêµÁ¤µ¤ì¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£

ÆþÎÏÍó¤Ï¾Êά²Äǽ¤Ê¶õÇò¡¢¤½¤Î¸å¤Ë¾Êά²Äǽ¤Ê¾®¿ôÅÀ¡¢¤µ¤é¤Ë¤½¤Î¸å¤Ë¿¿¤Î¤È¤­¤Ï T¡¢µ¶¤Î¤È¤­¤Ï F ¤¬Â³¤­¤Þ¤¹¡£T ¤Þ¤¿¤Ï F ¤Î¸å¤ÎÍóÆâ¤Ëʸ»ú¤òÉÕ¤±¤ë¤³¤È¤¬²Äǽ¤Ç¤¹¡£ÏÀÍýÄê¿ô .TRUE. ¤È .FALSE. ¤ÏÆþÎϤȤ·¤Æ¼õ¤±Æþ¤ì¤é¤ì¤Þ¤¹¡£½ÐÎÏÍó¤Ï w-1 ¸Ä¤Î¶õÇò¤Î¸å¤Ë¿¿¤Î¤È¤­¤Ï T¡¢µ¶¤Î¤È¤­¤Ï F ¤¬Â³¤­¤Þ¤¹¡£

Îã: log1.f¡¢ÏÀÍý½ÐÎÏ

	LOGICAL A*1 /.TRUE./, B*2 /.TRUE./, C*4 /.FALSE./ 
	PRINT '( L1 / L2 / L4 )', A, B, C 
	END 

¾åµ­¤Î¥×¥í¥°¥é¥à¤Ï¼¡¤Î¤è¤¦¤Ëɽ¼¨¤·¤Þ¤¹¡£

T 
DT 
DDDF 

Îã: log2.f ¡¢ÏÀÍýÆþÎÏ

	LOGICAL*4 A 
1	READ '(L8)', A 
	PRINT *, A 
	GO TO 1 
	END 

¾åµ­¤Î¥×¥í¥°¥é¥à¤Ï¼¡¤ÎÆþÎϥǡ¼¥¿¤òÍ­¸ú¤Ê¥Ç¡¼¥¿¤È¤·¤Æ¼õ¤±Æþ¤ì¤Þ¤¹¡£

t true T TRUE .t .t. .T .T. .TRUE. TooTrue 
f false F FALSE .f .F .F. .FALSE. Flakey 

8 ¿Ê¤ª¤è¤Ó 16 ¿ÊÊÔ½¸ (O,Z)

FORMAT ʸ¤Î O ·Á¤È Z ·ÁÍ󵭽һҤϤ½¤ì¤¾¤ì 8 ¿Ê¤Þ¤¿¤Ï 16 ¿ÊÀ°¿ôÍѤǤ¹¤¬¡¢¤½¤ì¤é¤Ï¤É¤Î¥Ç¡¼¥¿¤Î·¿¤Ç¤â»ÈÍѤǤ­¤Þ¤¹¡£©

°ìÈ̽ñ¼°¤Ï¼¡¤Î¤È¤ª¤ê¤Ç¤¹¡£

Ow[.m] 
Zw[.m] 

¤³¤³¤Ç w ¤Ï³°ÉôÍóÆâ¤Îʸ»ú¿ô¤Ç¤¢¤ê¡¢½ÐÎϤξì¹ç m ¤¬»ØÄꤵ¤ì¤Æ¤¤¤ë»þ¤Ï¡¢³°ÉôÍóÆâ¤Î¹ç·×·å¿ô¤¬·èÄꤵ¤ì¤Þ¤¹ (¤Ä¤Þ¤ê m ¸Ä¤ËËþ¤¿¤Ê¤¤¥¼¥í¤Ç¤Ê¤¤·å¤¬¤¢¤ë¾ì¹ç¡¢¤½¤ÎÍó¤Ï¹ç·×¤Ç m ·å¤Ë¤Ê¤ë¤Þ¤Çº¸Â¦¤Ë¥¼¥í¤¬Ëþ¤¿¤µ¤ì¤Þ¤¹)¡£m ¤ÏÆþÎϤˤϱƶÁ¤òÍ¿¤¨¤Þ¤»¤ó¡£

8 ¿Ê¤ª¤è¤Ó 16 ¿ÊÆþÎÏ

FORMAT ¤Ë O ·Á¤Þ¤¿¤Ï Z ·ÁÍóµ­½Ò»Ò¤ò»ý¤Ä READ ¤Ï¡¢¤½¤ì¤¾¤ì 8 ¿Ê¤Þ¤¿¤Ï 16 ¿ÊÀ°¿ô¤È¤·¤Æ w ʸ»ú¤òÆɤ߹þ¤ß¡¢Âбþ¤¹¤ëÆþ½ÐÎÏʤӤΥá¥ó¥Ð¡¼¤ËÃͤò³ä¤êÅö¤Æ¤Þ¤¹¡£

Îã: 8 ¿ÊÆþÎÏ»þ¤Î³°Éô¥Ç¡¼¥¿Íó

654321 

¾åµ­¤ÎºÇ½é¤Î·å¤Ï¡¢1 ·åÌܤ«¤éÆþÎϤ·¤Þ¤¹¡£

ÆþÎϤò¹Ô¤¦¥×¥í¥°¥é¥à¤Ï¼¡¤Î¤È¤ª¤ê¤Ç¤¹¡£

	READ ( *, 2 ) M 
2	FORMAT ( O6 ) 

¾åµ­¤Î¤è¤¦¤Ê¥Ç¡¼¥¿¤È¥×¥í¥°¥é¥à¤Ç¤Ï¡¢8 ¿ÊÃÍ 654321 ¤¬ÊÑ¿ô M ¤ËÆɤ߼è¤é¤ì¤Þ¤¹¡£¤µ¤é¤Ë¾Ü¤·¤¤Îã¤ò¼¡¤Îɽ¤Ë¼¨¤·¤Þ¤¹¡£

ɽ 5-6   8 ¿Ê/16 ¿ÊÆþÎÏÃͤÎÎã 
½ñ¼° ³°ÉôÍó ÆâÉô (8 ¿Ê¤Þ¤¿¤Ï 16 ¿Ê) ÃÍ
O4 1234D 1234
O4 16234 1623
O3 97DDD ¥¨¥é¡¼: 9 ¤Ïµö²Ä¤µ¤ì¤Ê¤¤
Z5 A23DED A23DE
Z5 A23DEF A23DE
Z4 95.AF2 ¥¨¥é¡¼: ¥Ô¥ê¥ª¥É (.) ¤Ïµö²Ä¤µ¤ì¤Ê¤¤


8 ¿Ê¤ª¤è¤Ó 16 ¿ÊÆþÎϤΰìÈ̵¬Â§¤Ï¡¢¼¡¤Î¤È¤ª¤ê¤Ç¤¹¡£

8 ¿Ê¤ª¤è¤Ó 16 ¿Ê½ÐÎÏ

FORMAT ¤Ë O ·Á¤Þ¤¿¤Ï Z ·ÁÍóµ­½Ò»Ò¤ò»ý¤Ä WRITE ¤Ï¡¢¤½¤ì¤¾¤ì 8 ¿Ê¤Þ¤¿¤Ï 16 ¿ÊÀ°¿ô¤È¤·¤ÆÃͤò½ñ¤­½Ð¤·¤Þ¤¹¡£w ʸ»ú¤ÎÉý¤ÎÍó¤Ë±¦µÍ¤á¤Ç½ñ¤­¹þ¤Þ¤ì¤Þ¤¹¡£

Îã: 16 ¿Ê½ÐÎÏ

	M = 161 
	WRITE ( *, 8 ) M 
8 	FORMAT ( Z3 ) 
	END

¾åµ­¤Î¥×¥í¥°¥é¥à¤Ï A1 (10 ¿Ê¿ô 161=16 ¿Ê¿ô A1) ¤òɽ¼¨¤·¤Þ¤¹¡£

DA1 

ʸ»ú A ¤¬½ÐÎÏ·å 2 ¤Ë½ñ¤­¹þ¤Þ¤ì¤Þ¤¹¡£

¤µ¤é¤Ë¾Ü¤·¤¤Îã¤ò¼¡¤Îɽ¤Ë¼¨¤·¤Þ¤¹¡£

ɽ 5-7   8 ¿Ê/16 ¿Ê½ÐÎÏÃͤÎÎã
½ñ¼° ÆâÉô (10 ¿Ê) ÃÍ ³°Éô (8 ¿Ê¤Þ¤¿¤Ï 16¿Ê) ɽ¸½
O6 32767 D77777
O2 14251 **
O4.3 27 D033
O4.4 27 0033
O6 -32767 *****
Z4 32767 7FFF
Z3.3 2708 A94
Z6.4 2708 DD0A94
Z5 -32767 ******


8 ¿Ê¤ª¤è¤Ó 16 ¿Ê½ÐÎϤΰìÈ̵¬Â§¤Ï¡¢¼¡¤Î¤È¤ª¤ê¤Ç¤¹¡£

°ÌÃÖÉÕ¤±ÊÔ½¸

f77 ¤Ï½ÐÎϹԤ˱è¤Ã¤¿¿åÊ¿°ÌÃÖÉÕ¤±¤Ë´Ø¤·¤Æ¤Ï¡¢½ñ¼° Tn¡¢TLn¡¢TRn¡¢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 ¤Îµ¬³Ê³°¤Ç¤¹¡£)

¥¿¥ÖÁàºî¤Îµ¬Â§¤ÈÀ©¸Â»ö¹à¤Ï¡¢¼¡¤Î¤È¤ª¤ê¤Ç¤¹¡£

nX -- °ÌÃÖ

nX ÊÔ½¸»ØÄê»Ò¤Ïµ­Ï¿¤Ø¤Î¡¢¤Þ¤¿¤Ïµ­Ï¿¤«¤é¤Î¼¡¤Îʸ»ú¤ÎžÁ÷¤ò¸½ºß¤Î°ÌÃÖ¤«¤é n ʸ»úÀè¤Î°ÌÃ֤ǹԤ¦¤³¤È¤ò»Ø¼¨¤·¤Þ¤¹¡£

ÆþÎÏ»þ¡¢nX ÊÔ½¸»ØÄê»Ò¤Ïµ­Ï¿¥Ý¥¤¥ó¥¿¤ò n ·å¿Ê¤á¤ë¤Î¤Ç¡¢n ʸ»ú¥¹¥­¥Ã¥×¤·¤Þ¤¹¡£

µ­Ï¿¤ÎºÇ½ªÊ¸»ú¤ò±Û¤¨¤¿°ÌÃ֤ϡ¢¤³¤Î°ÌÃÖ¤«¤éʸ»ú¤¬Å¾Á÷¤µ¤ì¤Ê¤¤¾ì¹ç¤Ï»ØÄꤹ¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£

½ÐÎÏ»þ¡¢nX »ØÄê»Ò¤Ï n ¸Ä¤Î¶õÇò¤ò½ñ¤­¹þ¤ß¤Þ¤¹¡£

n ¤Î¥Ç¥Õ¥©¥ë¥ÈÃÍ¤Ï 1 ¤Ç¤¹¡£

Îã: ÆþÎÏ Tn (ÀäÂÐ¥¿¥Ö)

demo% cat rtab.f 
	CHARACTER C*2, S*2 
	OPEN( 1, FILE='mytab.data') 
	DO I = 1, 2 
	READ( 1, 2 ) C, S 
2	FORMAT( T5, A2, T1, A2 ) 
	PRINT *, C, S 
	END DO 
	END 
demo%

2 ¹Ô¤Î¥Ç¡¼¥¿¥Õ¥¡¥¤¥ë

demo% cat mytab.data 
defguvwx 
12345678 
demo% 

¼Â¹Ô¤ª¤è¤Ó½ÐÎÏ

demo% a.out 
uvde 
5612 
demo% 

¾åµ­¤ÎÎã¤Ç¤Ï¡¢¤Þ¤º·å 5 ¤È 6 ¤ò¡¢¼¡¤Ë·å 1 ¤È 2 ¤òÆɤ߼è¤ê¤Þ¤¹¡£

Îã: ½ÐÎÏ Tn (ÀäÂÐ¥¿¥Ö) ¡½ ¤³¤Î¥×¥í¥°¥é¥à¤Ï½ÐÎÏ¥Õ¥¡¥¤¥ë¤ò½ñ¤­¹þ¤ß¤Þ¤¹¡£

demo% cat otab.f 
	CHARACTER C*20 / "12345678901234567890" / 
	OPEN( 1, FILE='mytab.rep') 
	WRITE( 1, 2 ) C, ":", ":" 
2	FORMAT( A20, T10, A1, T20, A1 ) 
	END 
demo%  

½ÐÎÏ¥Õ¥¡¥¤¥ë

demo% cat mytab.rep 
123456789:123456789: 
demo% 

¾åµ­¤ÎÎã¤Ï 20 ʸ»ú¤ò½ñ¤­¹þ¤ß¡¢·å 10 ¤È 20 ¤òÊѹ¹¤·¤Þ¤·¤¿¡£

Îã: ÆþÎÏ TRn ¤ª¤è¤Ó TLn (ÁêÂÐ¥¿¥Ö) ¡½ ¥×¥í¥°¥é¥à

demo% cat rtabi.f 
	CHARACTER C, S, T 
	OPEN( 1, FILE='mytab.data') 
	DO I = 1, 2 
	READ( 1, 2 ) C, S, T 
2	FORMAT( A1, TR5, A1, TL4, A1 ) 
	PRINT *, C, S, T 
	END DO 
	END 
demo%  

2 ¹Ô¤Î¥Ç¡¼¥¿¥Õ¥¡¥¤¥ë

demo% cat mytab.data 
defguvwx 
12345678 
demo%  

¼Â¹Ô¤È½ÐÎÏ

demo% a.out 
dwg 
174 
demo%  

¾åµ­¤ÎÎã¤Ï¡¢·å 1 ¤òÆɤ߼è¤Ã¤Æ¤«¤é·å 7 ¤Þ¤Ç 5 ·å±¦¤Ë°ÜÆ°¤·¡¢¤½¤Î¸å·å 4 ¤Þ¤Ç 4 ·åº¸¤Ë°ÜÆ°¤·¤Þ¤¹¡£

Îã: TRn ¤È TLn ¤Î½ÐÎÏ (ÁêÂÐ¥¿¥Ö) ¡½ ¤³¤Î¥×¥í¥°¥é¥à¤Ï½ÐÎÏ¥Õ¥¡¥¤¥ë¤ò½ñ¤­¹þ¤ß¤Þ¤¹¡£

demo% cat rtabo.f 
	CHARACTER C*20 / "12345678901234567890" / 
	OPEN( 1, FILE='rtabo.rep') 
	WRITE( 1, 2 ) C, ":", ":" 
2	FORMAT( A20, TL11, A1, TR9, A1 ) 
	END 
demo%  

¼Â¹Ô¤·¤Æ¤â²¿¤âɽ¼¨¤·¤Þ¤»¤ó¤¬¡¢mytab.rep ½ÐÎÏ¥Õ¥¡¥¤¥ë¤ò¸«¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£

demo% cat rtabo.rep 
123456789: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.f 
	integer i / 110 / 
	write( *, 1 ) i 
1	format( su, 16r, I10.8 ) 
	end 
demo% f77 -silent radix.f 
demo% a.out 
 DD0000006E
demo% 

SU ¤Ë¤Ä¤¤¤Æ¤Ï¡¢¡ÖÉä¹æÊÔ½¸ (SU¡¢SP¡¢SS¡¢S)¡×¤ÇÀâÌÀ¤·¤Þ¤¹¡£

¼Â¿ôÊÔ½¸ (D¡¢E¡¢F¡¢G)

D ·Á¡¢E ·Á¡¢F ·Á¡¢¤ª¤è¤Ó G ·Á»ØÄê»Ò¤Ï¡¢10 ¿Ê¤Î¼Â¿ô¥Ç¡¼¥¿¹àÌܤ˻ÈÍѤµ¤ì¤Þ¤¹¡£

D ·ÁÊÔ½¸

D ·Á»ØÄê»Ò¤Ï 10 ¿ÊÇÜÀºÅÙ¹àÌܤλؿô½ñ¼°¤Ë»ÈÍѤµ¤ì¤Þ¤¹¡£°ìÈ̽ñ¼°¤ò¼¡¤Ë¼¨¤·¤Þ¤¹¡£

D[w[.d]]

Dw ¤ª¤è¤Ó Dw.d ·ÁÊÔ½¸»ØÄê»Ò¤Ï¡¢ÊÔ½¸¤¹¤ëÍó¤¬ w ·å¤òÀê¤á¤ë¤³¤È¤ò¼¨¤·¤Þ¤¹¡£d ¤Ï¿ô¤Î¾®¿ôÉô (¾®¿ôÅÀ¤Î±¦Â¦¤ÎÉôʬ) ¤¬ d ·å¤Ç¤¢¤ë¤³¤È¤ò¼¨¤·¤Þ¤¹¡£¤·¤«¤·ÆþÎϥǡ¼¥¿¤¬¾®¿ôÅÀ¤ò»ý¤Ä¾ì¹ç¤Ï¡¢¤½¤Î¾®¿ôÅÀ¤¬ d ¤ÎÃͤò̵¸ú¤Ë¤·¤Þ¤¹¡£

ÆþÎÏ»þ¤Ë»ØÄꤵ¤ì¤ëʤӤιàÌܤϡ¢¼Â¿ô¥Ç¡¼¥¿¤ÇÄêµÁ¤µ¤ì¤ë¤³¤È¤Ë¤Ê¤ê¤Þ¤¹¡£½ÐÎÏ»þ¤Ë»ØÄꤵ¤ì¤ëʤӤιàÌܤϡ¢¼Â¿ô¥Ç¡¼¥¿¤È¤·¤ÆÄêµÁ¤µ¤ì¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£

½ÐÎÏʸ¤Ç¤Ï¡¢E ¤ÎÂå¤ï¤ê¤Ë D ¤¬»ÈÍѤµ¤ì¤ë¤³¤È°Ê³°¤Ï¡¢D ·ÁÊÔ½¸µ­½Ò»Ò¤¬ E ·ÁÊÔ½¸µ­½Ò»Ò¤ÈƱ¤¸¤³¤È¤ò¹Ô¤¤¤Þ¤¹¡£Dw.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, T 
	PRINT '( D10.3, D11.4, D13.6 )', R, S, T 
	END 

¾åµ­¤Î¥×¥í¥°¥é¥à¤Ï¼¡¤Î¤è¤¦¤Ëɽ¼¨¤µ¤ì¤Þ¤¹¡£

0.123D+05 0.2357D+02 0.345678D+00 

¾åµ­¤ÎÎã¤ÇºÇ½é¤ÎÆþÎϥǡ¼¥¿¹àÌܤϾ®¿ôÅÀ¤ò»ý¤¿¤Ê¤¤¤Î¤Ç D8.3 ¤¬¾®¿ôÅÀ¤ò·èÄꤷ¤Þ¤¹¡£¤½¤Î¾¤ÎÆþÎϥǡ¼¥¿¹àÌܤϾ®¿ôÅÀ¤ò»ý¤Ä¤Î¤Ç¡¢¾®¿ôÅÀ¤Ë´Ø¤¹¤ë¸Â¤ê¤³¤ì¤é¤Î¾®¿ôÅÀ¤¬
D ·ÁÊÔ½¸µ­½Ò»Ò¤ò̵¸ú¤Ë¤·¤Þ¤¹¡£

Îã: D ·ÁÊÔ½¸¤òÀßÄꤷ¤¿¼Â½ÐÎÏ¡£¥×¥í¥°¥é¥à Dout.f

	R = 1234.678 
	PRINT 1, R, R, R 
1	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 ¤Ë¤Ê¤ê¤Þ¤¹¡£

»ØÄꤵ¤ì¤ëÆþ½ÐÎÏʤӤιàÌܤϼ¿ô·¿¤Î¹àÌܤǤʤ±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£ÆþÎÏ»þ¤Ë»ØÄꤵ¤ì¤ëʤӤιàÌܤϼ¿ô¥Ç¡¼¥¿¤ÇÄêµÁ¤µ¤ì¤ë¤³¤È¤Ë¤Ê¤ê¤Þ¤¹¡£½ÐÎÏ»þ¤Ë»ØÄꤵ¤ì¤ëʤӤιàÌܤϼ¿ô¥Ç¡¼¥¿¤È¤·¤ÆÄêµÁ¤µ¤ì¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£

Ew.d ·ÁÊÔ½¸»ØÄê»Ò¤ËÂФ¹¤ë½ÐÎÏÍó¤ÏÉý w ¤ò»ý¤Á¤Þ¤¹¡£ÃͤϤ½¤ÎÍó¤Ë±¦µÍ¤á¤µ¤ì¤Þ¤¹¡£Íó¤Ï¥¼¥í¤Þ¤¿¤Ï 1 ¸Ä°Ê¾å¤ÎÀè¹Ô¤¹¤ë¶õÇò¤Î¤¢¤È¤Ë¡¢¥Þ¥¤¥Ê¥¹ (Ãͤ¬Éé¤Î¤È¤­) ¤Þ¤¿¤Ï¾Êά²Äǽ¤Ê¥×¥é¥¹¤¬Â³¤­¡¢¤µ¤é¤Ë¥¼¥í¡¢¾®¿ôÅÀ¡¢d ·å¤Î 10 ¿Ê¿ô¤Ë´Ý¤á¤é¤ì¤¿Ê¤ӤιàÌܤÎÃͤÎÂ礭¤µ¤ª¤è¤Ó»Ø¿ô¤¬Â³¤­¤Þ¤¹¡£

½ñ¼° Ew.d ¤Ï»Ø¿ô¤ÎÀäÂÐÃͤˤè¤Ã¤Æ°Ê²¼¤Î¤è¤¦¤Ë¤Ê¤ê¤Þ¤¹¡£

½ñ¼° Ew.dEe ¤Ï¡¢¡Ã»Ø¿ô¡Ã (10e) -1 ¤Ê¤é¤Ð¡¢»Ø¿ô¤Ï½ñ¼° nnn ¤Ë¤Ê¤ê¤Þ¤¹¡£

½ñ¼° Dw.d ¤Ï»Ø¿ô¤ÎÀäÂÐÃͤˤè¤Ã¤Æ°Ê²¼¤Î¤è¤¦¤Ë¤Ê¤ê¤Þ¤¹¡£

¤³¤³¤Ç n ¤ÏǤ°Õ¤Î¿ô»ú¤Ç¤¹¡£

»Ø¿ô¤Ë¤ÏÉä¹æ¤¬É¬ÍפǤ¹¡£

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, T 
	PRINT '( E15.6, E15.6, E15.7 )', R, S, T 
	END 

¾åµ­¤Î¥×¥í¥°¥é¥à¤Ï¼¡¤Î¤è¤¦¤Ëɽ¼¨¤·¤Þ¤¹¡£

DDD0.123457E+06DDD0.123467E+01DD0.1245670E+02 

¾åµ­¤ÎÎã¤ÇºÇ½é¤ÎÆþÎϥǡ¼¥¿¹àÌܤϾ®¿ôÅÀ¤ò»ý¤¿¤Ê¤¤¤Î¤Ç E9.3 ¤¬¾®¿ôÅÀ¤ò·èÄꤷ¤Þ¤¹¡£¤½¤Î¾¤ÎÆþÎϥǡ¼¥¿¹àÌܤϾ®¿ôÅÀ¤ò»ý¤Ä¤Î¤Ç¡¢¾®¿ôÅÀ¤Ë´Ø¤¹¤ë¸Â¤ê¤³¤ì¤é¾®¿ôÅÀ¤¬ D ·ÁÊÔ½¸µ­½Ò»Ò¤ò̵¸ú¤Ë¤·¤Þ¤¹¡£

Îã: E ·ÁÊÔ½¸¤òÀßÄꤷ¤¿¼Â½ÐÎÏ¡£¥×¥í¥°¥é¥à Eout.f

	R = 1234.678 
	PRINT 1, R, R, R 
1	FORMAT( E9.3 / E8.4 / E13.4 ) 
	END 

¾åµ­¤Î¥×¥í¥°¥é¥à¤Ï¼¡¤Î¤è¤¦¤Ëɽ¼¨¤·¤Þ¤¹¡£

0.123E+04 
******** 
DDD0.1235E+04 

¾åµ­¤ÎÎã¤Ç E8.4 ¤ÏÉä¹æ¤òµö²Ä¤·¤Ê¤¤¤Î¤Ç¥¢¥¹¥¿¥ê¥¹¥¯¤¬½ÐÎϤµ¤ì¤Þ¤¹¡£¤Þ¤¿ E13.4 ¤Î;ʬ¤ÊÉý¤ÎÍó¤Ï 3 ¸Ä¤ÎÀè¹Ô¤¹¤ë¶õÇò¤Ë¤Ê¤ê¤Þ¤¹¡£

Îã: Ew.dEe ·ÁÊÔ½¸¤òÀßÄꤷ¤¿¼Â½ÐÎÏ¡£¥×¥í¥°¥é¥à EwdEe.f

	REAL  X / 0.000789 /
	WRITE(*,'( E13.3)') X
	WRITE(*,'( E13.3E4)') X
	WRITE(*,'( E13.3E5)') X
	END

¤³¤Î¥×¥í¥°¥é¥à¤Ï¼¡¤Î¤è¤¦¤Ëɽ¼¨¤·¤Þ¤¹¡£

DDDD0.789E-03
DD0.789E-0003
D0.789E-00003

F ·ÁÊÔ½¸

F »ØÄê»Ò¤Ï 10 ¿Ê¤Î¼Â¿ô¥Ç¡¼¥¿¹àÌܤ˻ÈÍѤµ¤ì¤Þ¤¹¡£°ìÈ̽ñ¼°¤ò¼¡¤Ë¼¨¤·¤Þ¤¹¡£

   F[w[.d]]

Fw ¤È Fw.d ·ÁÊÔ½¸»ØÄê»Ò¤ÏÊÔ½¸¤¹¤ëÍó¤¬ w ·å¤òÀê¤á¤ë¤³¤È¤ò¼¨¤·¤Þ¤¹¡£

d ¤Ï¿ô¤Î¾®¿ôÉô (¾®¿ôÅÀ¤Î±¦Â¦¤ÎÉôʬ) ¤¬ d ·å¤Ç¤¢¤ë¤³¤È¤ò¼¨¤·¤Þ¤¹¡£¤·¤«¤·ÆþÎϥǡ¼¥¿¤¬¾®¿ôÅÀ¤ò»ý¤Ä¾ì¹ç¤Ï¡¢¤½¤Î¾®¿ôÅÀ¤¬ d ¤ÎÃͤò̵¸ú¤Ë¤·¤Þ¤¹¡£

»ØÄꤵ¤ì¤ëÆþ½ÐÎÏʤӤιàÌܤϡ¢¼Â¿ô·¿¤Î¹àÌܤǤʤ±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£ÆþÎÏ»þ¤Ë»ØÄꤵ¤ì¤ëʤӤιàÌܤϡ¢¼Â¿ô¥Ç¡¼¥¿¤ÇÄêµÁ¤µ¤ì¤ë¤³¤È¤Ë¤Ê¤ê¤Þ¤¹¡£½ÐÎÏ»þ¤Ë»ØÄꤵ¤ì¤ëʤӤιàÌܤϡ¢¼Â¿ô¥Ç¡¼¥¿¤È¤·¤ÆÄêµÁ¤µ¤ì¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£

Fw.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, T 
	PRINT '( F9.3, F9.4, F9.6 )', R, S, T 
	END 

¾åµ­¤Î¥×¥í¥°¥é¥à¤Ï¼¡¤Î¤è¤¦¤Ëɽ¼¨¤·¤Þ¤¹¡£

12345.678DD23.5678D0.345678

¾åµ­¤ÎÎã¤Ç¡¢ºÇ½é¤ÎÆþÎϥǡ¼¥¿¹àÌܤϾ®¿ôÅÀ¤ò»ý¤¿¤Ê¤¤¤Î¤Ç¡¢F8.3 ¤¬¾®¿ôÅÀ¤ò·èÄꤷ¤Þ¤¹¡£¤½¤Î¾¤ÎÆþÎϥǡ¼¥¿¹àÌܤϾ®¿ôÅÀ¤ò»ý¤Ä¤Î¤Ç¡¢¾®¿ôÅÀ¤Ë´Ø¤¹¤ë¸Â¤ê¤³¤ì¤é¾®¿ôÅÀ¤¬ F ·ÁÊÔ½¸µ­½Ò»Ò¤ò̵¸ú¤Ë¤·¤Þ¤¹¡£

Îã: F ·ÁÊÔ½¸¤òÀßÄꤷ¤¿¼Â½ÐÎÏ¡£¥×¥í¥°¥é¥à Fout.f

	R = 1234.678 
	PRINT 1, R, R, R 
1	FORMAT( F9.3 / F8.4 / F13.4 ) 
	END

¾åµ­¤Î¥×¥í¥°¥é¥à¤Ï¼¡¤Î¤è¤¦¤Ëɽ¼¨¤·¤Þ¤¹¡£

D1234.678 
******** 
DDDD1234.6780

¾åµ­¤ÎÎã¤Ç F8.4 ¤ÏÉä¹æ¤òµö²Ä¤·¤Þ¤»¤ó¡£F13.4 ¤Ë¤è¤ê ÀèƬ¤Ë 4 ¸Ä¤Î¶õÇò¤¬¤­¤Æ¡¢¸å¤í¤Ë 1 ¸Ä¤Î¥¼¥í¤¬¤­¤Þ¤¹¡£

G ·ÁÊÔ½¸

G ·Á»ØÄê»Ò¤Ï 10 ¿Ê¤Î¼Â¿ô¥Ç¡¼¥¿¹àÌܤ˻ÈÍѤµ¤ì¤Þ¤¹¡£°ìÈ̽ñ¼°¤ò¼¡¤Ë¼¨¤·¤Þ¤¹¡£

G[w[.d]]  
¤¢¤ë¤¤¤Ï

Gw.dEe 

D¡¢E¡¢F¡¢¤ª¤è¤Ó G ·ÁÊÔ½¸»ØÄê»Ò¤ÏƱ¤¸ÊýË¡¤Ç¥Ç¡¼¥¿¤ò²ò¼á¤·¤Þ¤¹¡£

G ·ÁÊÔ½¸µ­½Ò»Ò¤Ë¤è¤ë½ÐÎϤÎɽ¸½¤ÏÆâÉô¥Ç¡¼¥¿¤ÎÂ礭¤µ¤Ëº¸±¦¤µ¤ì¤Þ¤¹¡£¼¡¤Îɽ¤Ç N ¤Ï
ÆâÉô¥Ç¡¼¥¿¤ÎÂ礭¤µ¤ò¼¨¤·¤Þ¤¹¡£

ÈÏ°Ï ½ñ¼°
 0.1  N < 1.0 
 1.0 N < 10.0 
... 
 10(d-2)  N 10(d-1)
 10(d-1)  N < 10d 
 F(w-4).d 
 F(w-4).(d-1)
... 
 F(w-4).1
 F(w-4).0


½ñ¼°ÉÕ¤­ÆþÎϤΥ³¥ó¥Þ

¸ÇÄê·å½ñ¼°¤ÇÀ©¸æ¤µ¤ì¤ë¿ôÃͥǡ¼¥¿¤òÆþÎϤ¹¤ë¤È¤­¡¢¥³¥ó¥Þ¤ò»ÈÍѤ·¤Æ·å¤ÎÀ©¸Â¤ò̵¸ú¤Ë¤¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£

Îã: ½ñ¼°

	(I10, F20.10, I4) 

¾åµ­¤Î½ñ¼°¤ò»ÈÍѤ¹¤ì¤Ð¼¡¤Îµ­Ï¿¤òÀµ¤·¤¯Æɤ߼è¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£

-345,.05e-3,12 

Æþ½ÐÎÏ¥·¥¹¥Æ¥à¤Ï FORTRAN 77 µ¬³Ê¤Ëµ­½Ò¤µ¤ì¤Æ¤¤¤ë¤è¤ê¤â´²Âç¤Ë¤Ê¤Ã¤Æ¤¤¤Þ¤¹¡£°ìÈ̤Ëʸ»ú°Ê³°¤ÎÊÑ¿ô¤Î½ñ¼°ÉÕ¤­Æɤ߼è¤ê¤ò¹Ô¤¦¾ì¹ç¡¢¥³¥ó¥Þ¤ÏÍó¤ÎŤµ¤òÊѹ¹¤·¤Þ¤¹¡£Àµ³Î¤Ë¸À¤¦¤È Iw¡¢Fw.d¡¢Fw.d[Ee]¡¢¤ª¤è¤Ó Gw.d ¤ÎÆþÎÏÍó¤Î¾ì¹ç¡¢w ¸Ä¤Îʸ»ú¤¬Áöºº¤µ¤ì¤ë¤«¡¢¤Þ¤¿¤Ï¥³¥ó¥Þ¤¬¤¢¤ë¤ÈÍó¤Ï½ªÎ»¤·¤Þ¤¹¡£¥³¥ó¥Þ¤Ç½ªÎ»¤·¤¿¤È¤­Íó¤Ï¥³¥ó¥Þ¤Þ¤Ç¤Îʸ»ú¤ò´Þ¤ß¤Þ¤¹¤¬¡¢¥³¥ó¥Þ¤Ï´Þ¤ß¤Þ¤»¤ó¡£¼¡¤ÎÍó¤Ï¥³¥ó¥Þ¤Î¼¡¤Îʸ»ú¤Ç»Ï¤Þ¤ê¤Þ¤¹¡£

»Ä¸ʸ»ú (Q)

Q ·ÁÊÔ½¸µ­½Ò»Ò¤ÏÆþÎϵ­Ï¿¤ÎŤµ¡¢¤Þ¤¿¤ÏÆþÎϵ­Ï¿¤ÎÆɤ߼è¤é¤ì¤Æ¤¤¤Ê¤¤»Ä¸Éôʬ¤ÎŤµ¤òÃΤ뤿¤á¤Ë»ÈÍѤµ¤ì¤Þ¤¹¡£©

¸½ºß¤Îµ­Ï¿¤«¤éÆɤ߼è¤ë¤Ù¤­»Ä¤êʸ»ú¿ô¤ò³ÍÆÀ¤·¤Þ¤¹¡£

Îã: ¼Â¿ô¤Èʸ»úÎ󤫤é¤Î¼Â¿ô¡¢Ê¸»úÎóĹ¡¢¤ª¤è¤Óʸ»úÎó¤Î³ÍÆÀ

demo% cat qed1.f 
* qed1.f Q edit descriptor (real & string) 
	CHARACTER CVECT(80)*1 
	OPEN ( UNIT=4, FILE='qed1.data' ) 
	READ ( 4, 1 ) R, L, ( CVECT(I), I=1,L ) 
1 	FORMAT ( F4.2, Q, 80 A1 ) 
	WRITE ( *, 2 ) R, L, '"', (CVECT(I),I=1,L), '"' 
2 	FORMAT ( 1X, F7.2, 1X, I2, 1X, 80A1 ) 
	END 
demo% cat qed1.data 
8.10qwerty 
demo% f77 qed1.f -o qed1 
qed1.f: 
 MAIN: 
demo% qed1 
   8.10 6 "qwerty" 
demo% 

¾åµ­¤ÎÎã¤Ï¡¢ÊÑ¿ô R ¤ËÍó¤òÆɤ߹þ¤ó¤Ç¤«¤é¤½¤ÎÍó¤Î¸å¤Ë»Ä¤Ã¤Æ¤¤¤ëʸ»ú¿ô¤ò L ¤ËÆɤ߹þ¤ß¡¢¤½¤ì¤«¤é L ¤Îʸ»ú¤ò CVECT ¤ËÆɤ߹þ¤ß¤Þ¤¹¡£n ÈÖÌܤÎÊÔ½¸µ­½Ò»Ò¤È¤·¤Æ¤Î Q ¤Ï¡¢READ ʤÓÆâ¤Î n ÈÖÌܤÎÍ×ÁǤȤ·¤Æ¤Î L ¤È°ìÃפ·¤Þ¤¹¡£

Îã: ÆþÎϵ­Ï¿¤ÎŤµ¤Î³ÍÆÀ¡£Q µ­½Ò»Ò¤òºÇ½é¤ËÀßÄê¡£

demo% cat qed2.f 
	CHARACTER CVECT(80)*1 
	OPEN ( UNIT=4, FILE='qed2.data' ) 
	READ ( 4, 1 ) L, ( CVECT(I), I=1,L ) 
1	FORMAT ( Q, 80A1 ) 
	WRITE ( *, 2 ) L, '"', (CVECT(I),I=1,L), '"' 
2	FORMAT ( 1X, I2, 1X, 80A1 ) 
	END 
demo% cat qed2.data 
qwerty 
demo% f77 qed2.f -o qed2 
qed2.f: 
 MAIN: 
demo% qed2 
  6 "qwerty" 
demo% 

¾åµ­¤ÎÎã¤ÏÆþÎϵ­Ï¿¤ÎŤµ¤ò³ÍÆÀ¤·¤Þ¤¹¡£¤³¤ì¤ÇÆþÎÏʸ»úÎóÁ´ÂΤȤ½¤ÎŤµ¤Ë¤Ä¤¤¤Æ¤Ï¥æ¡¼¥¶¡¼¼«¿È¤¬²òÀϤ¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£

Q ÊÔ½¸µ­½Ò»Ò¤ÎÀ©¸Â»ö¹à¤Ï¡¢¼¡¤Î¤È¤ª¤ê¤Ç¤¹¡£

·å°ÜÆ° (P)

P ·ÁÊÔ½¸µ­½Ò»Ò¤Ï¼Â¿ô¤ÎÆþÎÏÃͤò 10 ¤Î¤Ù¤­¾è¤À¤±·å°ÜÆ°¤·¤Þ¤¹¡£½ÐÎÏÃͤËÂФ·¤Æ¤Ï¡¢É½¼¨¤µ¤ì¤ëÍ­¸ú¿ô»ú¤òÀ©¸æ¤·¤Þ¤¹¡£

°ìÈ̽ñ¼°¤ò¼¡¤Ë¼¨¤·¤Þ¤¹¡£

¥Ñ¥é¥á¡¼¥¿
ÀâÌÀ
k
Éä¹æ¤Ê¤·¤Þ¤¿¤ÏÉä¹æÉÕ¤­¤ÎÀ°Äê¿ô


[k] P

k ¤Ï·å°ÜÆ°¿ô¤È¸Æ¤Ð¤ì¡¢¤½¤Î¥Ç¥Õ¥©¥ë¥ÈÃͤϥ¼¥í¤Ç¤¹¡£

Îã: ·å°ÜÆ°¿ô¤òÀßÄꤷ¤¿Æþ½ÐÎÏʸ

	READ ( 1, '( 3P E8.2 )' ) X 
	WRITE ( 1, '( 1P E8.2 )' ) X 

P ¼«¿È¤À¤±¤Î¤È¤­¤Ï 0P ¤ÈÅù²Á¤Ç¤¹¡£P ¤Ï·å°ÜÆ°¿ô¤ò¥Ç¥Õ¥©¥ë¥ÈÃÍ 0P ¤Ë¥ê¥»¥Ã¥È¤·¤Þ¤¹¡£P ñÆȤϵ¬³Ê³°¤Ç¤¹¡£©

Í­¸úÈÏ°Ï

·å°ÜÆ°¿ô¤Ï¡¢³ÆÆþ½ÐÎÏʸ¤Î¼Â¹Ô¤ò³«»Ï¤¹¤ë»þ¤Ë¥¼¥í¤Ë¥ê¥»¥Ã¥È¤µ¤ì¤Þ¤¹¡£·å°ÜÆ°¿ô¤Ï D¡¢E¡¢F¡¢¤ª¤è¤Ó G ·ÁÊÔ½¸µ­½Ò»Ò¤ËŬÍѤµ¤ì¤Þ¤¹¡£

ÆþÎÏ

ÆþÎÏ»þ¡¢»Ø¿ôÍó¤ò»ý¤¿¤Ê¤¤³°Éô¥Ç¡¼¥¿¤Ï¡¢10k ¤Ç½ü»»¤µ¤ì¤Æ¤«¤éÆâÉôŪ¤Ë³ÊǼ¤µ¤ì¤Þ¤¹¡£

ÆþÎÏÎã: ¥Ç¡¼¥¿¡¢·å°ÜÆ°¿ô¡¢¤ª¤è¤Ó·ë²Ì¤È¤·¤Æµ­²±¤µ¤ì¤ëÃÍ

¥Ç¡¼¥¿

18.63

18.63

18.63E2

18.63

½ñ¼°
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 ¤Ï¥×¥é¥¹Éä¹æ¤ò¾Êά¤·¤Þ¤¹¡£

°Ê²¼¤ÎÉä¹æ»ØÄê»Ò¤¬»ÈÍѤǤ­¤Þ¤¹¡£

¤¿¤È¤¨¤ÐÉä¹æ¤Ê¤·»ØÄê»Ò¤Ï¡¢¼¡¤Ë¼¨¤¹¤è¤¦¤Ë´ð¿ô»ØÄê»Ò¤È¤È¤â¤Ë»ÈÍѤ·¤Æ¡¢16 ¿Ê¿ô¥À¥ó¥×¤ò½ñ¼°²½¤¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£

2000 	FORMAT( SU, 16R, 8I10.8 ) 

Éä¹æÀ©¸æ¤Îµ¬Ìó¤ÈÀ©¸Â»ö¹à¤Ï¼¡¤Î¤È¤ª¤ê¤Ç¤¹¡£

¥¹¥é¥Ã¥·¥åÊÔ½¸ (/)

¥¹¥é¥Ã¥·¥æ (/) ÊÔ½¸»ØÄê»Ò¤Ï¸½ºß¤Îµ­Ï¿¤Ë¤ª¤±¤ë¥Ç¡¼¥¿Å¾Á÷¤Î½ªÎ»¤ò»Ø¼¨¤·¤Þ¤¹¡£

½çÈÖõºº

ÆþÎÏ»þ¤Ï¸½ºß¤Îµ­Ï¿¤Î»Ä¤ê¤ÎÉôʬ¤ò̵»ë¤·¡¢¥Õ¥¡¥¤¥ë¤Ï¼¡¤Îµ­Ï¿¤ÎÀèƬ¤Ë°ÌÃÖÉÕ¤±¤é¤ì¤Þ¤¹¡£2 ¸Ä¤ÎϢ³¤¹¤ë¥¹¥é¥Ã¥·¥å (//) ¤Ïµ­Ï¿Á´ÂΤò̵»ë¤·¤Þ¤¹¡£

½ÐÎÏ»þ¤Ïµ­Ï¿½ªÎ»¤¬½ñ¤­¹þ¤Þ¤ì¡¢¿·¤·¤¤µ­Ï¿¤¬³«»Ï¤µ¤ì¤Þ¤¹¡£2 ¸Ä¤ÎϢ³¤¹¤ë¥¹¥é¥Ã¥·¥å (//) ¤Ïʸ»ú¤Ê¤·¤Îµ­Ï¿¤òºîÀ®¤·¤Þ¤¹¡£¥Õ¥¡¥¤¥ë¤¬ÆâÉô¥Õ¥¡¥¤¥ë¤Î¤È¤­¡¢¤½¤Îµ­Ï¿¤Ï¶õÇò¤ÇËþ¤¿¤µ¤ì¤Þ¤¹¡£

ľÀÜõºº

³Æ¥¹¥é¥Ã¥·¥å¤Ïµ­Ï¿ÈÖ¹æ¤ò 1 ¤Ä¤º¤ÄÁý¤ä¤·¡¢¥Õ¥¡¥¤¥ë¤ò¤½¤ÎÈÖ¹æ¤Îµ­Ï¿¤ÎÀèƬ¤Ë°ÌÃÖÉÕ¤±¤Þ¤¹¡£

½ÐÎÏ»þ¡¢2 ¸Ä¤ÎϢ³¤¹¤ë¥¹¥é¥Ã¥·¥å (//) ¤Ïʸ»ú¤Ê¤·¤Îµ­Ï¿¤òºîÀ®¤·¤Þ¤¹¡£¤½¤Îµ­Ï¿¤Ï¶õÇò¤ÇËþ¤¿¤µ¤ì¤Þ¤¹¡£

½ªÎ»À©¸æ (:)

¥³¥í¥ó (:) ÊÔ½¸µ­½Ò»Ò¤Ë¤è¤ê½ñ¼°¤ò¾ò·ïÉÕ¤­¤Ç½ªÎ»¤¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£Æþ½ÐÎÏʤӤ¬½ñ¼°¤ÎÅÓÃæ¤Ç¿Ô¤­¤ë¤È½ñ¼°¤Ï¥³¥í¥ó¤Ç½ªÎ»¤·¤Þ¤¹¡£

Îã: ½ªÎ»À©¸æ

* col1.f ¥³¥í¥ó (:) ÊÔ½¸µ­½Ò»Ò 
	DATA INIT / 3 /, LAST / 8 / 
	WRITE ( *, 2 ) INIT 
	WRITE ( *, 2 ) INIT, LAST 
2	FORMAT ( 1X 'INIT = ', I2, :, 3X, 'LAST = ', I2 ) 
	END 

¾åµ­¤Î¥×¥í¥°¥é¥à¤Ï¡¢¼¡¤Î¤è¤¦¤Ê½ÐÎϤòÀ¸À®¤·¤Þ¤¹¡£

	INIT = 3 
	INIT = 3 LAST = 8 

¥³¥í¥ó¤¬¤Ê¤¤¤È½ÐÎϤϼ¡¤Î¤è¤¦¤Ë¤Ê¤ê¤Þ¤¹¡£

	INIT = 3 LAST = 
	INIT = 3 LAST = 8 

¼Â¹Ô»þ½ñ¼°

¼Â¹ÔÃæ¤ËÊѹ¹²Äǽ¤Ê½ñ¼°»ØÄê»Ò¤ò¥ª¥Ö¥¸¥§¥¯¥È¤ÎÃæ¤ËÀßÄꤹ¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£¤³¤ì¤Ë¤è¤Ã¤Æ½ÀÆðÀ­¤¬¸þ¾å¤·¤Þ¤¹¡£¤³¤Î¼ïÎà¤Î½ñ¼°»ØÄê»Ò¤Ï¡¢Æþ½ÐÎÏʸ¤¬¼Â¹Ô¤µ¤ì¤ë¤¿¤Ó¤Ë²òÀϤµ¤ì¤ë¤Î¤Ç¡¢¼Â¹Ô»þ´Ö¤ÏÁý²Ã¤·¤Þ¤¹¡£¤³¤ì¤é¤ÏÊÑ¿ô½ñ¼°¤È¤â¸Æ¤Ð¤ì¤Þ¤¹¡£

¥ª¥Ö¥¸¥§¥¯¥È¤Ï°Ê²¼¤Î¼ïÎà¤Î¤¤¤º¤ì¤«¤Ç¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£

¶èÀÚ¤ë¤Î¤Ëº¸±¦¤Î³ç¸Ì¤¬É¬ÍפǤ¹¡£¤¿¤À¤·¥­¡¼¥ï¡¼¥É FORMAT ¤ÈʸÈÖ¹æ¤Ï½ü¤­¤Þ¤¹¡£

¥ª¥Ö¥¸¥§¥¯¥È¤Ï½ñ¼°Á´ÂΤòÀßÄꤹ¤ë¤Î¤Ë½½Ê¬¤ÊÂ礭¤µ¤ÇÀë¸À¤·¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£¤¿¤È¤¨¤Ð¡¢'(8X,12I)' ¤Ï INTEGER*4 ¤Þ¤¿¤Ï CHARACTER*4 ¥ª¥Ö¥¸¥§¥¯¥È¤Ë¤ÏŬ¤·¤Þ¤»¤ó¡£

Îã: ʸ»ú¼°¤ÈÀ°¿ôÇÛÎó¤Î¼Â¹Ô»þ½ñ¼°

demo% cat runtim.f 
	CHARACTER CS*8 
	CHARACTER CA(1:7)*1 /'(','1','X',',','I','2',')'/ 
	CHARACTER S(1:7)*6 
	INTEGER*4 IA(2) 
	STRUCTURE / STR / 
	CHARACTER*4 A 
	INTEGER*4 K 
	END STRUCTURE 
	CHARACTER*8 LEFT, RIGHT 
	RECORD /STR/ R 
	N = 9 
	CS = '(I8)' 
	WRITE( *, CS ) N	! ʸ»ú¥¹¥«¥é¡¼ 
	CA(2) = '6' 
	WRITE( *, CA ) N	! ʸ»úÇÛÎó
	S(2) = '(I8)' 
	WRITE( *, S(2) ) N	! ʸ»úÇÛÎó¤ÎÍ×ÁÇ
	IA(1) = '(I8)' 
	WRITE(*, IA ) N		! ! À°¿ôÇÛÎó
	R.A = '(I8)' 
	WRITE( *, R.A ) N	! µ­Ï¿¤ÎÍó
	LEFT = '(I' 
	RIGHT = '8)' 
	WRITE(*, LEFT // RIGHT ) N ! ¤Ä¤Ê¤²¤ë
	END 
demo% f77 -silent runtim.f 
demo% a.out 
       9 
       9 
       9 
       9 
       9 
       9 
demo% 

½ñ¼°Æâ¤ÎÊÑ¿ô¼° (<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 ¤Ä¤ÎÎã³°¤Ï nH... ÊÔ½¸µ­½Ò»Ò¤Î n ¤Ç¤¹¡£

½ñ¼°Æâ¤ÎÊÑ¿ô¼°¤ËÂФ¹¤ëµ¬Â§¤ÈÀ©¸Â»ö¹à¤Ï¡¢°Ê²¼¤Î¤È¤ª¤ê¤Ç¤¹¡£

½ñ¼°¤Ê¤·Æþ½ÐÎÏ

½ñ¼°¤Ê¤·Æþ½ÐÎϤϡ¢2 ¿Ê¾ðÊó¤ò¤½¤ÎÆâÉôɽ¸½¤òÊѹ¹¤¹¤ë¤³¤È¤Ê¤¯¡¢¥á¥â¥ê¡¼¤È¤Î´Ö¤ÇžÁ÷¤¹¤ë¤¿¤á¤Ë»ÈÍѤµ¤ì¤Þ¤¹¡£½ñ¼°¤Ê¤·Æþ½ÐÎÏʸ¤Î¼Â¹Ô¤Î¤¿¤Ó¤Ëñ°ì¤ÎÏÀÍýµ­Ï¿¤ÎÆɤ߼è¤ê¡¢¤Þ¤¿¤Ï½ñ¤­¹þ¤ß¤¬¹Ô¤ï¤ì¤Þ¤¹¡£ÆâÉôɽ¸½¤Ï¥¢¡¼¥­¥Æ¥¯¥Á¥ã¤Ë¤è¤ê°Û¤Ê¤ë¤Î¤Ç¡¢½ñ¼°¤Ê¤·Æþ½ÐÎϤϰܿ¢À­¤Ë¸Â³¦¤¬¤¢¤ê¤Þ¤¹¡£

½ñ¼°¤Ê¤·Æþ½ÐÎϤò»ÈÍѤ·¤Æ°ì»þŪ¤Ë¥Ç¡¼¥¿¤ò½ñ¤­½Ð¤·¤¿¤ê¡¢¤Þ¤¿¤Ï¿×®¤Ë¥Ç¡¼¥¿¤ò½ñ¤­½Ð¤·¤ÆƱ°ì¥¢¡¼¥­¥Æ¥¯¥Á¥ã¤ò»ý¤Ä¥Þ¥·¥ó¾å¤Ç¼Â¹Ô¤µ¤ì¤ëÊ̤ΠFortran 77 ¥×¥í¥°¥é¥à¤ËÆþÎϤ¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£

½çÈÖõººÆþ½ÐÎÏ

½ñ¼°¤Ê¤·½çÈÖõºº¥Õ¥¡¥¤¥ë¤ÎÏÀÍýµ­Ï¿Ä¹¤Ï¡¢Æþ½ÐÎÏʤÓÃæ¤Î¹àÌܤ¬É¬ÍפȤ¹¤ë¥Ð¥¤¥È¿ô¤Ë¤è¤ê°Û¤Ê¤ê¤Þ¤¹¡£¤³¤ÎÆþ½ÐÎϽñ¼°¤ÎÍ×µá¾ò·ï¤Ë¤è¤ê¡¢³°ÉôʪÍýµ­Ï¿¥µ¥¤¥º¤ÏÏÀÍýµ­Ï¿¥µ¥¤¥º¤è¤ê¤¤¤¯¤é¤«Â礭¤¯¤Ê¤ê¤Þ¤¹¡£

Îã:

	WRITE( 8 ) A, B 

Fortran 77 ¼Â¹Ô»þ¥·¥¹¥Æ¥à¤Ï¡¢½ñ¼°¤Ê¤·½çÈÖ WRITE Ãæ¤Ë¥Ç¡¼¥¿Ãæ¤Îµ­Ï¿¶­³¦¤È¤·¤Æ¡¢³Æ½ñ¼°¤Ê¤·½çÈÖµ­Ï¿¤Î»Ï¤á¤È½ª¤ï¤ê¤Ë INTEGER*4 ¤Ç¥Ð¥¤¥È¿ô¤òÁÞÆþ¤·¤Þ¤¹¡£µ­Ï¿¤Î½ª¤ï¤ê¤Î¥Ð¥¤¥È¿ô¤Ë¤è¤ê¡¢µ­Ï¿¤Î BACKSPACE Áàºî¤¬²Äǽ¤Ë¤Ê¤ê¤Þ¤¹¡£·ë²Ì¤È¤·¤Æ Fortran 77 ¥×¥í¥°¥é¥à¤Ï¡¢½ñ¼°¤Ê¤·½çÈÖ WRITE Áàºî¤Ç½ñ¤­¹þ¤Þ¤ì¤¿¥Ç¡¼¥¿¤Ë¤Ä¤¤¤Æ¤À¤±½ñ¼°¤Ê¤·½çÈÖ READ ¤ò»ÈÍѤ¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£¤³¤Î¤è¤¦¤Êµ­Ï¿¤ò½ñ¼°ÉÕ¤­¤È¤·¤ÆÆɤ߼è¤í¤¦¤È¤¹¤ë¤È¡¢¤½¤Î·ë²Ì¤Ïͽ¬¤Ç¤­¤Þ¤»¤ó¡£

°Ê²¼¤Ë¥¬¥¤¥É¥é¥¤¥ó¤ò¼¨¤·¤Þ¤¹¡£

ľÀÜõººÆþ½ÐÎÏ

Ê£¿ô¤ÎÆþ½ÐÎÏʤӤ¬°Û¤Ê¤Ã¤¿Ä¹¤µ¤Î¤È¤­¡¢RECL=1 ¥ª¥×¥·¥ç¥ó¤òÀßÄꤷ¤Æ¥Õ¥¡¥¤¥ë¤ò³«¤¯¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£¤³¤Î¥ª¥×¥·¥ç¥ó¤ÏÆɤ߼è¤ê¡¢¤Þ¤¿¤Ï½ñ¤­¹þ¤ß¤ò¹Ô¤¦¹àÌܤοô¤ò·èÄꤹ¤ë¤¿¤á¤ËÆþ½ÐÎÏʤӤò»ÈÍѤ¹¤ë¤³¤È¤ò Fortran 77 ¤ËÃΤ餻¤Þ¤¹¡£

¥æ¡¼¥¶¡¼¤Ï¤µ¤é¤Ë³ÆÆɤ߼è¤ê¤´¤È¤Ë¡¢Æɤ߼è¤ê¤ò³«»Ï¤¹¤ëºÇ½é¤Îµ­Ï¿ (¤³¤Î¾ì¹ç¤É¤Î¥Ð¥¤¥È¤«¤é¤«) ¤ò Fortran 77 ¤ËÃΤ餻¤ëɬÍפ¬¤¢¤ë¤¿¤á¡¢³Æ¹àÌܤΥµ¥¤¥º¤òÃΤäƤª¤«¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£©

´Êñ¤ÊÎã¤ò°Ê²¼¤Ë¼¨¤·¤Þ¤¹¡£

Îã: ľÀÜõºº -- ¤½¤ì¤¾¤ì 2 ¤Ä¤ÎÀ°¿ô¤«¤é¤Ê¤ëµ­Ï¿¤ò 3 ¸ÄºîÀ®¤¹¤ë

demo% cat Direct1.f
	integer u/4/, v /5/, w /6/, x /7/, y /8/, z /9/
	open( 1, access='DIRECT', recl=8 )
	write( 1, rec=1 ) u, v
	write( 1, rec=2 ) w, x
	write( 1, rec=3 ) y, z
	end
demo% f77 -silent Direct1.f
demo% a.out
demo%

Îã: ľÀÜõºº -- 3 ¤Ä¤Îµ­Ï¿¤òÆɤ߼è¤ë

demo% cat Direct2.f
	integer u, v, w, x, y, z
	open( 1, access='DIRECT', recl=8 )
	read( 1, rec=1 ) u, v
	read( 1, rec=2 ) w, x
	read( 1, rec=3 ) y, z
	write(*,*) u, v, w, x, y, z
	end
demo% f77 -silent Direct2.f
demo% a.out
  4  5  6  7  8  9
demo%

¥Õ¥¡¥¤¥ë¾å¤Îµ­Ï¿Ä¹¤¬¤ï¤«¤ê¤Þ¤¹¡£¤³¤ÎÎã¤Ç¤Ï¡¢½ñ¤­¹þ¤Þ¤ì¤¿¤È¤ª¤ê¤Ë¥Õ¥¡¥¤¥ë¤òÆɤ߹þ¤à¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£

¤¿¤À¤·¡¢¥Õ¥¡¥¤¥ë¾å¤Îµ­Ï¿Ä¹¤Ç¤Ï¤Ê¤¯³Æ¹àÌܤΥµ¥¤¥º¤¬¤ï¤«¤ì¤Ð¡¢OPEN ʸ¤Ç ¡¢recl=1 ¤ò»ÈÍѤ·¤Æ¡¢Æþ½ÐÎÏʤӤˤè¤Ã¤ÆÆɤ߹þ¤à¹àÌܤοô¤ò³ÎÄꤹ¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£

Îã: ľÀÜõººÆɤ߼è¤ê¡¢recl=1 ¤ò»ÈÍѤ¹¤ë

demo% cat Direct3.f
	integer u, v, w, x, y, z
	open( 1, access='DIRECT', recl=1 )
	read( 1, rec=1 ) u, v, w
	read( 1, rec=13 ) x, y, z
	write(*,*) u, v, w, x, y, z
	end
demo% f77 -silent Direct3.f
demo% a.out
  4  5  6  7  8  9
demo%

¾åµ­¤ÎÎã¤Î¤è¤¦¤Ë 3 À°¿ô (12¥Ð¥¤¥È) ¤òÆɤ߼è¤Ã¤¿¸å¡¢¥æ¡¼¥¶¡¼¤Ïµ­Ï¿ 13 ¤«¤é¼¡¤ÎÆɤ߼è¤ê¤ò³«»Ï¤·¤Þ¤¹¡£

\xa9 ¥Ð¥¤¥Ê¥êÆþ½ÐÎÏ

¥Ð¥¤¥Ê¥êÆþ½ÐÎϤǥե¡¥¤¥ë¤ò³«¤¯¤È¡¢¥×¥í¥°¥é¥à¤Ï¥ì¥³¡¼¥É¶­³¦¤Î¤Ê¤¤¥Ð¥¤¥Ê¥ê¥Ç¡¼¥¿¤Î¥¹¥È¥ê¡¼¥à¤È¤·¤Æ¡¢¥Ç¡¼¥¿¤òÆɤ߽ñ¤­¤Ç¤­¤Þ¤¹¡£(¤³¤Îµ¡Ç½¤Ï Fortran 77 ¤Îµ¬³Ê³°¤Ç¤¹)¡£©

OPEN ʸ¤Ë¤ª¤±¤ë FORM = 'BINARY' ¥ª¥×¥·¥ç¥ó¤Ï¼¡¤Î¤è¤¦¤Ë¡¢¤½¤Î¥æ¥Ë¥Ã¥È¤¬¥ì¥³¡¼¥É¥Þ¡¼¥¯¤Î¤Ê¤¤½çÈ֤νñ¼°¤Ê¤·¥Õ¥¡¥¤¥ë¤Ç¤¢¤ë¤ÈÀë¸À¤·¤Þ¤¹¡£

	OPEN(1, FORM='BINARY') 

¥Ð¥¤¥Ê¥ê¥Õ¥¡¥¤¥ë¤Ï¡¢Ä¾ÀÜõºº¤ä½ñ¼°ÉÕ¤­¤È¤·¤ÆÀë¸À¤¹¤ë¤³¤È¤â¤Ç¤­¤Þ¤»¤ó¡£

WRITE ʸ¤Ç¤Ï¡¢¥Ð¥¤¥Ê¥ê¥Ç¡¼¥¿¤Ï½ÐÎÏʤӤˤ¢¤ë¥Ð¥¤¥È¿ô¤ÈƱ¤¸¥Ð¥¤¥È¿ô¤¬¡¢¥Ð¥¤¥È¤Î¥¹¥È¥ê¡¼¥à¤È¤·¤Æ¥Õ¥¡¥¤¥ë¤Ë½ñ¤­¹þ¤Þ¤ì¤Þ¤¹¡£READ ʸ¤Ç¤Ï¡¢ÆþÎÏʤӤÇÊÑ¿ô¤¬Í׵ᤷ¤¿¥Ç¡¼¥¿¥Ð¥¤¥È¿ôʬ¤¬Æɤ߼è¤é¤ì¤Þ¤¹¡£¥Õ¥¡¥¤¥ë¤Ë¤Ï¥ì¥³¡¼¥É¥Þ¡¼¥¯ (¥ì¥³¡¼¥É¤Î½ª¤ï¤ê) ¤¬¤Ê¤¤¤Î¤Ç¡¢¥ì¥³¡¼¥É¥Þ¡¼¥¯°Ê¹ß¤¬Æɼè¤é¤ì¤ë²ÄǽÀ­¤Ï¤¢¤ê¤Þ¤»¤ó¡£¥×¥í¥°¥é¥à¤¬¸¡½Ð¤Ç¤­¤ë¾õÂ֤ϡ¢°Û¾ï¤Ê¥·¥¹¥Æ¥à¥¨¥é¡¼¤ò½ü¤¯¤È¥Õ¥¡¥¤¥ë¤Î½ª¤ï¤ê (EOF) ¤Ç¤ÎÆɼè¤ê¤À¤±¤Ç¤¹¡£³Æ READ ʸ¤Ï°Ê²¼¤ÎÎã¤Î¤è¤¦¤Ë¡¢¥Õ¥¡¥¤¥ë¤Î¼¡¤Î½çÈ֤ΥХ¤¥È¤òÆɤ߹þ¤à¤À¤±¤Ç¤¹¡£

demo>cat bin.f
                program bin
                character *25 string
                character *5 word

 
                open(1,FORM='BINARY')

 
                string = 'alphabetagammaepsilon'

 
                write(1) string
                rewind 1

 
                do 1 i=1,6
                word = '     '
                read(1) word
  1             print*, word

 
                end
demo>f77 -o binf bin.f
bin.f:
 MAIN bin:
demo>binf
 alpha
 betag
 ammae
 psilo
 n    
uio: [-1] end of file
logical unit 1, named 'fort.1'
lately: reading sequential unformatted external IO
Abort

¥Ð¥¤¥Ê¥ê¥Õ¥¡¥¤¥ë¤ËÂФ¹¤ë INQUIRE ¤Ï¡¢FORM = ¥Ñ¥é¥á¡¼¥¿¤Î¾ì¹ç¤Ï 'BINARY'¡¢ACCESS = ¤Î¾ì¹ç¤Ï 'SEQUENTIAL'¡¢UNFORMATTED = ¤Î¾ì¹ç¤Ï 'YES'¡¢SEQUENTIAL ¤Î¾ì¹ç¤Ï 'YES' ¤òÊÖ¤·¤Þ¤¹¡£

¥Ð¥¤¥Ê¥ê¥Õ¥¡¥¤¥ë¤Ë¤Ï BACKSPACE ¤Ï»ÈÍѤǤ­¤º¡¢¼Â¹Ô»þ¤Ë¤Ï¥¨¥é¡¼¥á¥Ã¥»¡¼¥¸¤¬½ÐÎϤµ¤ì¤Þ¤¹¡£

ʤӤˤè¤ëÆþ½ÐÎÏ

ʤӤˤè¤ëÆþ½ÐÎϤϡ¢½çÈÖõºº¥Ç¥Ð¥¤¥¹¤Î¤¿¤á¤Î¼«Í³·Á¼°¤ÎÆþ½ÐÎϤǤ¹¡£¤³¤ì¤ò»ÈÍѤ¹¤ë¤Ë¤Ï¡¢¼¡¤Ë¼¨¤¹¤è¤¦¤Ë½ñ¼°¼±Ê̻ҤȤ·¤Æ¥¢¥¹¥¿¥ê¥¹¥¯¤ò»ÈÍѤ·¤Æ¤¯¤À¤µ¤¤¡£

	READ( 6, * ) A, B, C 

ʤӤˤè¤ëÆþÎϤˤϡ¢¼¡¤Î¤è¤¦¤Êµ¬Â§¤¬¤¢¤ê¤Þ¤¹¡£

¤³¤ì¤Ï¡¢4 ¸Ä¤ÎÊ£ÁÇÄê¿ô¡¢2 ¸Ä¤Î NULL ÆþÎÏÍó¡¢4 ¸Ä¤Îʸ»úÎóÄê¿ô¤ò°ÕÌ£¤·¤Þ¤¹¡£

½ÐÎÏ·Á¼°

ʤӤˤè¤ë½ÐÎϤˤè¤ê¡¢ºÙ¤«¤¤·Á¼°¤ËÈѤ蘆¤ì¤º¤Ë¹â®¤Ç´Êñ¤Ë½ÐÎϤǤ­¤Þ¤¹¡£¸·Ì©¤Ê·Á¼°¤¬É¬Íפʾì¹ç¤Ï¡¢½ñ¼°ÉÕ¤­Æþ½ÐÎϤò»ÈÍѤ·¤Æ¤¯¤À¤µ¤¤¡£³Æ¹àÌܤËŬ¤·¤¿·Á¼°¤¬ÁªÂò¤µ¤ì¡¢Àµ³Î¤Ê½ÐÎϤȴÊÁǤʽÐÎÏ·Á¼°¤¬Ì·½â¤¹¤ë¾ì¹ç¤Ï¡¢´ÊÁǤʷÁ¼°¤¬ÁªÂò¤µ¤ì¤Þ¤¹¡£

ʤӤˤè¤ë½ÐÎϤˤϡ¢¼¡¤Î¤è¤¦¤Êµ¬Â§¤¬¤¢¤ê¤Þ¤¹¡£

Î㡧 ÉÔÀµ³Î¤Ê¥Ð¥¤¥Ê¥ê¤Îɽ¸½

demo% cat lis5.f 
	READ ( 5, * ) X 
	WRITE( 6, * ) X, '    Èþ' 
	WRITE( 6, 1 ) X 
1 	FORMAT( 1X, F13.8, ' ¿¿¼Â' ) 
	END 
demo% f77 lis5.f 
lis5.f: 
 MAIN: 
demo% a.out 
1.4 
    1.40000000 Èþ 
    1.39999998 ¿¿¼Â 
demo%  

¾åµ­¤ÎÎã¤Ç¡¢Àµ³Î¤Ê¿ôÃͤ¬É¬Íפʾì¹ç¤Ï¡¢½ñ¼°¤ò»ØÄꤷ¤Æ¤¯¤À¤µ¤¤¡£

¤½¤Î¾¤Ë¡¢¼¡¤ÎÅÀ¤ËÃí°Õ¤·¤Æ¤¯¤À¤µ¤¤¡£

Îã: -xl ¥ª¥×¥·¥ç¥ó̵ͭ¤Ë¤è¤ëʤӤˤè¤ëÆþ½ÐÎϤÈ

demo% cat f77 bslash.f
	CHARACTER S*8 / '12\n3' / 
	PRINT *, S 
	END
demo% 

¥Ð¥Ã¥¯¥¹¥é¥Ã¥·¥å n

-xl ¤Ê¤·¤Ç¡¢¥­¥ã¥ê¥Ã¥¸¥ê¥¿¡¼¥ó¤È¤·¤Æ \n ¤ò½ÐÎϤ·¤Þ¤¹¡£

demo% f77 -silent bslash.f 
demo% a.out 
12 
3 
demo% 

-xl ¤òÉÕ¤±¤Æ¡¢Ê¸»úÎó¤È¤·¤Æ \n ¤ò½ÐÎϤ·¤Þ¤¹¡£

demo% f77 -xl -silent bslash.f 
demo% a.out 
12\n3
demo%  

¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡¡

ɽ 5-8   Ê¤Ӥˤè¤ë½ÐÎϤΥǥե©¥ë¥È¤Î½ñ¼°
·¿
½ñ¼°
BYTE 
CHARACTER*n 
COMPLEX 
COMPLEX*16 
COMPLEX*32
INTEGER*2 
INTEGER*4 
INTEGER*8 
LOGICAL*1 
LOGICAL*2 
LOGICAL*4 
LOGICAL*8 
REAL 
REAL*8 
REAL*16
¿ô»ú¤ÎÁ°¤Ë 2 ¸Ä¤Î¶õÇò
A n  {n= ʸ»ú¼°¤ÎŤµ}
'DD(', 1PE14.5E2, ',', 1PE14.5E2, ')' 'DD(', 
1PE22.13.E2' ',', 1PE22.13.E2,')' 'DD(', 
1PE44.34E3, ',', 1PE44.34E3, ')'
¿ô»ú¤ÎÁ°¤Ë 2 ¸Ä¤Î¶õÇò 
¿ô»ú¤ÎÁ°¤Ë 2 ¸Ä¤Î¶õÇò
¿ô»ú¤ÎÁ°¤Ë 2 ¸Ä¤Î¶õÇò
¿ô»ú¤ÎÁ°¤Ë 2 ¸Ä¤Î¶õÇò
L3
L3
L3
1PE14.5E2 
1PE22.13.E2
1PE44.34E4 


¡¡

COMPLEX*32 ¤È REAL*16 ¤Ï¡¢SPARC ¤Î¤ß»ÈÍѤǤ­¤Þ¤¹¡£

°úÍÑÉä¤ÎÉÕ¤«¤Ê¤¤Ê¸»úÎó

f77 ¤ÎʤӤˤè¤ëÆþ½ÐÎϤò»ÈÍѤ¹¤ë¤È¡¢°úÍÑÉä¤Ë°Ï¤Þ¤ì¤Ê¤¤Ê¸»úÎó¤ÎÆɤ߹þ¤ß¤ò¹Ô¤¦¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£©

ʸ»úÎó¤ò¿ô»ú¤Ç»Ï¤á¤ë¤³¤È¤Ï¤Ç¤­¤Þ¤»¤ó¡£¤Þ¤¿¡¢Ê¬Î¥Ê¸»ú (¥³¥ó¥Þ¤Þ¤¿¤Ï¥¹¥é¥Ã¥·¥å (/))¡¢ ¤Þ¤¿¤Ï¶õÇò (¥¹¥Ú¡¼¥¹¤Þ¤¿¤Ï¥¿¥Ö) ¤Ï´Þ¤Þ¤ì¤Þ¤»¤ó¡£¥Ð¥Ã¥¯¥¹¥é¥Ã¥·¥å (\) ¤Ç¥¨¥¹¥±¡¼¥×¤·¤Ê¤¤¤«¤®¤ê¡¢²þ¹Ô (newline) ¤Ïʸ»úÎó¤Î½ª¤ï¤ê¤ò¼¨¤·¤Þ¤¹¡£¾åµ­¤ÎÀ©¸Â¤òËþ¤¿¤µ¤Ê¤¤Ê¸»úÎó¤Ï¡¢Ã±°ì°úÍÑÉä¤Þ¤¿¤ÏÆó½Å°úÍÑÉä¤Ç°Ï¤Þ¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£

Îã: °úÍÑÉä¤ÎÉÕ¤«¤Ê¤¤Ê¸»úÎó¤ÎʤӤˤè¤ëÆþÎÏ

	CHARACTER C*6, S*8 
	READ *, I, C, N, S 
	PRINT *, I, C, N, S 
	END 

¾åµ­¤Î¥×¥í¥°¥é¥à¤Ç unquoted.f ¤òÆþÎϤ¹¤ë¤È°Ê²¼¤Î¤è¤¦¤Ëɽ¼¨¤µ¤ì¤Þ¤¹¡£

demo% a.out 
23 label 82 locked 
  23label 82locked 
demo%  

ÆâÉôÆþ½ÐÎÏ

f77 ¤Ï¡¢ÆâÉôÆþ½ÐÎϤ¬¤Ç¤­¤ë¤è¤¦¤ËʤӤˤè¤ëÆþ½ÐÎϤò³ÈÄ¥¤·¤Æ¤¤¤Þ¤¹¡£©

ʤӤˤè¤ëÆâÉôÆɤ߹þ¤ß¤Ç¤Ï¡¢ÆþÎÏʤӤ¬´°À®¤¹¤ë¤«¥Õ¥¡¥¤¥ë¤Î½ª¤ï¤ê¤Ë¤Ê¤ë¤Þ¤Çʸ»ú¤¬µÍ¤á¤é¤ì¤Æ¤¤¤Þ¤¹¡£Ê¤Ӥˤè¤ëÆâÉô½ñ¤­¹þ¤ß¤Ç¤Ï¡¢½ÐÎÏʤӤ¬´°À®¤¹¤ë¤Þ¤Çµ­Ï¿¤¬Ëä¤á¤é¤ì¤Þ¤¹¡£ÇÜÀºÅÙÃͤνñ¤­¹þ¤ß¤ÎºÝ¤ÎÏÀÍýµ­Ï¿¥ª¡¼¥Ð¡¼¥Õ¥í¡¼¤òÈò¤±¤ë¤¿¤á¤Ë¡¢ÆâÉôÇÛÎóÍ×ÁǤÎŤµ¤Ï 20 ʸ»ú°Ê¾å¤Ë¤¹¤ë¤È¤è¤¤¤Ç¤·¤ç¤¦¡£Ê¤Ӥˤè¤ëÆâÉôÆɤ߹þ¤ß¤Ï¡¢¥³¥Þ¥ó¥É¹Ô¤Î²òÆɤò´Êñ¤Ë¤¹¤ë¤¿¤á¤Ë¼Â¸½¤µ¤ì¤Þ¤·¤¿¡£Ê¤Ӥˤè¤ëÆâÉô½ÐÎϤÏÈò¤±¤ë¤³¤È¤ò¤ª´«¤á¤·¤Þ¤¹¡£

NAMELIST Æþ½ÐÎÏ

NAMELIST Æþ½ÐÎϤò»ÈÍѤ¹¤ë¤È¡¢ÊÑ¿ô¤ÎÁ´¥°¥ë¡¼¥×¤Î¼«Í³·Á¼°Æþ½ÐÎÏ¡¢¤Þ¤¿¤ÏÊÑ¿ô¤Î¥°¥ë¡¼¥×Æâ¤ÎÁªÂò¤µ¤ì¤¿¹àÌܤÎÆþÎϤ¬¼Â¹Ô¤Ç¤­¤Þ¤¹¡£©

NAMELIST ʸ¤Ï¡¢ÊÑ¿ô¤Þ¤¿¤ÏÇÛÎó¤Î¥°¥ë¡¼¥×¤òÄêµÁ¤·¤Þ¤¹¡£¥°¥ë¡¼¥×̾¤òÀë¸À¤·¡¢¤½¤Î¥°¥ë¡¼¥×¤Ë°¤¹¤ëÊÑ¿ô¤ª¤è¤ÓÇÛÎó¤ò»ØÄꤷ¤Þ¤¹¡£

¹½Ê¸µ¬Â§

NAMELIST ʸ¤Î¹½Ê¸¤Ï°Ê²¼¤Î¤È¤ª¤ê¤Ç¤¹¡£

NAMELIST /group-name/namelist[[,] /group-name/namelist]...

¥Ñ¥é¥á¡¼¥¿
ÀâÌÀ
group-name
¥°¥ë¡¼¥×̾
namelist
ÊÑ¿ô¤Þ¤¿¤ÏÇÛÎó¤ò¥³¥ó¥Þ¤ÇʬΥ¤·¤¿Ê¤Ó


¾ÜºÙ¤Ë¤Ä¤¤¤Æ¤Ï¡¢¡ÖNAMELIST¡×¤ò»²¾È¤·¤Æ¤¯¤À¤µ¤¤¡£

Îã: NAMELIST ʸ

	CHARACTER*18 SAMPLE 
	LOGICAL*4 NEW 
	REAL*4 DELTA 
	NAMELIST /CASE/ SAMPLE, NEW, DELTA 

ÊÑ¿ô¤Þ¤¿¤ÏÇÛÎó¤Ï¡¢Ê£¿ô¤Î NAMELIST ¤Ë¥ê¥¹¥È¤Ç¤­¤Þ¤¹¡£

ÆþÎϥǡ¼¥¿¤Ë¤Ï¡¢ÇÛÎóÍ×ÁǤª¤è¤Óʸ»úÎó¤òÆþ¤ì¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£¤Þ¤¿¡¢ÆþÎÏÄê¿ô¥Ç¡¼¥¿Ê¸»úÎó¤ÏÀë¸À¤µ¤ì¤¿ÊÑ¿ô¤ÎŤµ¤è¤êû¤¯¤Ç¤­¤ë¤¿¤á¡¢ÉôʬÎó¤âÆþ¤ì¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£

À©¸Â»ö¹à

¥°¥ë¡¼¥×̾¤Ï¡¢NAMELIST¡¢READ¡¢¤Þ¤¿¤Ï WRITE ¤Î³Æʸ¤À¤±¤ËÃÖ¤¯¤³¤È¤¬¤Ç¤­¡¢¥×¥í¥°¥é¥à¤ËÂФ·¤Æ°ì°Õ¤Ç¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£

ʤӤˤϡ¢Äê¿ô¡¢ÇÛÎóÍ×ÁÇ¡¢²¾Â礭¤µ°ú¤­·Ñ¤®ÇÛÎó¡¢¹½Â¤ÂΡ¢ÉôʬÎó¡¢µ­Ï¿¡¢µ­Ï¿Í󡢥ݥ¤¥ó¥¿¡¢¤Þ¤¿¤Ï¥Ý¥¤¥ó¥¿´ðÄìÉÕ¤­ÊÑ¿ô¤òÆþ¤ì¤ë¤³¤È¤Ï¤Ç¤­¤Þ¤»¤ó¡£

Îã: 2 ¸Ä¤Î NAMELIST Æâ¤Ë¤¢¤ëÊÑ¿ô

	REAL ARRAY(4,4) 
	CHARACTER*18 SAMPLE 
	LOGICAL*4 NEW 
	REAL*4 DELTA 
	NAMELIST /CASE/ SAMPLE, NEW, DELTA 
	NAMELIST /GRID/ ARRAY, DELTA 

¾åµ­¤ÎÎã¤Ç¡¢DELTA ¤Ï CASE ¥°¥ë¡¼¥×¤È GRID ¥°¥ë¡¼¥×¤ÎξÊý¤Ë¤¢¤ê¤Þ¤¹¡£

½ÐÎÏÆ°ºî

NAMELIST ½ÐÎϤϡ¢WRITE ʸ¤ÎÆüì¤Ê½ñ¼°¤ò»ÈÍѤ·¤Þ¤¹¡£¤³¤Î½ÐÎϤϥ°¥ë¡¼¥×̾¤ò´Þ¤à¥ì¥Ý¡¼¥È¤òºîÀ®¤·¤Þ¤¹¡£¥°¥ë¡¼¥×¤Î³ÆÊÑ¿ô¤Î̾Á°¤È¥á¥â¥ê¡¼¾å¤Î¸½ºß¤ÎÃͤâ´Þ¤á¤Þ¤¹¡£¤½¤ì¤¾¤ì¤ÎÊÑ¿ô¤Î·¿¤Ë½¾¤Ã¤ÆÃͤò½ñ¼°²½¤·¡¢NAMELIST ¤ÎÆþÎϤ¬Æɤ߹þ¤á¤ë·Á¼°¤Î¥ì¥Ý¡¼¥È¤òºîÀ®¤·¤Þ¤¹¡£

NAMELIST WRITE ¤Î¹½Ê¸¤Ï¼¡¤Î¤È¤ª¤ê¤Ç¤¹¡£

WRITE ( extu, ÊÑ¿ô·²»ØÄê»Ò [, iostat] [, err])

¤³¤³¤Ç¡¢ÊÑ¿ô·²»ØÄê»Ò¤Ï¼¡¤Î½ñ¼°¤ò»ÈÍѤ·¤Þ¤¹¡£

[NML=]¥°¥ë¡¼¥×̾

¤Þ¤¿¡¢¥°¥ë¡¼¥×̾¤Ï¤¹¤Ç¤Ë NAMELIST ʸ¤ÎÃæ¤ÇÄêµÁ¤µ¤ì¤¿¤â¤Î¤Ç¤¹¡£

NAMELIST WRITE ʸ¤Ï¡¢¥°¥ë¡¼¥×Æâ¤Î¤¹¤Ù¤Æ¤ÎÊÑ¿ô¤ÎÃͤò NAMELIST ʸ¤ÈƱ¤¸½çÈ֤ǽñ¤­¹þ¤ß¤Þ¤¹¡£

Îã: NAMELIST ½ÐÎÏ

demo% cat nam1.f 
* nam1.f Namelist output 
	CHARACTER*8 SAMPLE 
	LOGICAL*4 NEW 
	REAL*4 DELTA 
	NAMELIST /CASE/ SAMPLE, NEW, DELTA 
	DATA SAMPLE /'Demo'/, NEW /.TRUE./, DELTA /0.1/ 
	WRITE ( *, CASE ) 
	END 
demo% f77 nam1.f 
f77 nam1.f 
nam1.f: 
 MAIN: 
demo% a.out 
D&case sample= Demo , new= T, delta= 0.100000 
D&end 
demo% 

¥­¡¼¥ï¡¼¥É NML ¤ò¾Êά¤¹¤ë¾ì¹ç¤Ï¡¢ÀèƬ¤ËÁõÃ֥ѥé¥á¡¼¥¿ (UNIT) ¤ò¡¢2 ÈÖÌܤËÊÑ¿ô·²»ØÄê»Ò¤òÃÖ¤¯É¬Íפ¬¤¢¤ë¤³¤È¤ËÃí°Õ¤·¤Æ¤¯¤À¤µ¤¤¡£½ñ¼°»ØÄê»Ò¤ÏÃÖ¤«¤Ê¤¤¤Ç¤¯¤À¤µ¤¤¡£

WRITE ¤Ë¤Ï¼¡¤Î½ñ¼°¤â»ÈÍѤǤ­¤Þ¤¹¡£

	WRITE ( UNIT=6, NML=CASE ) 

ÆþÎÏÆ°ºî

NAMELIST ÆþÎÏʸ¤Ï¡¢Âè 1 ·å¤òÈô¤Ð¤·¤ÆÂè 2 ·å°Ê¹ß¤Çµ­¹æ $ ¤È¡¢»ØÄꤵ¤ì¤¿¥°¥ë¡¼¥×̾¤òõ¤·¡¢¼¡¤Î³°Éôµ­Ï¿¤òÆɤ߹þ¤ß¤Þ¤¹¡£

$ ¥°¥ë¡¼¥×̾¤¬¸«¤Ä¤«¤é¤Ê¤¤¾ì¹ç¡¢ÆþÎÏ¥°¥ë¡¼¥×¤Ï¥Õ¥¡¥¤¥ë¤ÎºÇ¸å¤Þ¤ÇÆɤ߹þ¤Þ¤ì¤Þ¤¹¡£

µ­Ï¿¤ÏÆþÎϤµ¤ì¤Æ¡¢¥°¥ë¡¼¥×¤ÎÃæ¤Î̾Á°¤È°ìÃפ¹¤ë¥Ç¡¼¥¿Ãæ¤Î̾Á°¤Ë¤è¤êÃͤ¬³ä¤êÅö¤Æ¤é¤ì¡¢¥°¥ë¡¼¥×¤ÎÃæ¤ÎÊÑ¿ô¤Î¥Ç¡¼¥¿·¿¤¬»ÈÍѤµ¤ì¤Þ¤¹¡£

ÆþÎϥǡ¼¥¿¤ÎÃæ¤Ë¸«¤Ä¤«¤é¤Ê¤¤¥°¥ë¡¼¥×¤ÎÊÑ¿ô¤Ï¡¢Êѹ¹¤µ¤ì¤Þ¤»¤ó¡£

NAMELIST READ ¤Î¹½Ê¸¤Ï¼¡¤Î¤È¤ª¤ê¤Ç¤¹¡£

READ ( extu, ÊÑ¿ô·²»ØÄê»Ò [, iostat] [, err] [, end]) 

ÊÑ¿ô·²»ØÄê»Ò¤Ï¼¡¤Î½ñ¼°¤ò»ÈÍѤ·¤Þ¤¹¡£

[NML=]¥°¥ë¡¼¥×̾ 

¤Þ¤¿¡¢¥°¥ë¡¼¥×̾¤Ï¤¹¤Ç¤Ë NAMELIST ʸ¤ÎÃæ¤ÇÄêµÁ¤µ¤ì¤¿¤â¤Î¤Ç¤¹¡£

Îã: NAMELIST ÆþÎÏ

	CHARACTER*16 SAMPLE 
	LOGICAL*4 NEW 
	REAL*4 DELTA, MAT(2,2) 
	NAMELIST /CASE/ SAMPLE, NEW, DELTA, MAT 
	READ ( 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$case 
Ddelta=0.05 
Dmat( 2, 2 ) = 2.2 
Dsample='Demo'
D$ 

¹½Ê¸µ¬Â§

NAMELIST ¤ÇÆɤ߹þ¤Þ¤ì¤ëÆþÎϥǡ¼¥¿¤Ë¤Ï¡¢¼¡¤Î¹½Ê¸µ¬Â§¤¬Å¬ÍѤµ¤ì¤Þ¤¹¡£

Îã³°: ʸ»úÄê¿ô¤Ç¤Ï¡¢µ­Ï¿¤Î½ª¤ï¤ê¤Ï̵»ë¤µ¤ì¡¢Ê¸»úÄê¿ô¤Ï¼¡¤Îµ­Ï¿¤Ø³¤­¤Þ¤¹¡£¸½ºß¤Îµ­Ï¿¤ÎºÇ¸å¤Îʸ»ú¤Ë¤Ï¡¢¼¡¤Îµ­Ï¿¤Î 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/ ARRAY 
	WRITE ( *, * ) 'ÆþÎÏ ?' 
	READ ( *, GRID ) 
	WRITE ( *, GRID ) 
	END 

nam2.f ¤Î¥Ç¡¼¥¿

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/ PSI 
	WRITE ( *, * ) 'ÆþÎÏ ?' 
	READ ( *, GRID ) 
	WRITE ( *, GRID ) 
	END 

nam3.f ¤ÎÆþÎÏ

D$GRID PSI = 5*980 $

¾åµ­¤Î nam3.f ¥×¥í¥°¥é¥à¤Ç¤Ï¡¢¾åµ­¤ÎÆþÎϤòÆɤ߹þ¤ß¡¢980.0 ¤òÇÛÎó PSI ¤ÎºÇ½é¤Î 5 ¸Ä¤ÎÍ×ÁǤËÆɤ߹þ¤ß¤Þ¤¹¡£

Îã: ÆɤßÈô¤Ð¤µ¤ì¤ë¥Ç¡¼¥¿¤Î¤¢¤ëÊÑ¿ô·²Æɤ߹þ¤ß

¤½¤Î¾¤ÎÆþÎÏ

D$GRID PSI = 3* 5*980 $

nam3.f ¥×¥í¥°¥é¥à¤Ï¡¢¾åµ­¤ÎÆþÎϤǤϺǽé¤Î 3 ¸Ä¤ÎÍ×ÁǤòÈô¤Ð¤·¡¢980.0 ¤ò PSI ¤ÎÍ×ÁÇ
4¡¢5¡¢6¡¢7¡¢8 ¤ËÆɤ߹þ¤ß¤Þ¤¹¡£

̾Á°¤ÎÍ×µá

üËö¤«¤é¤ÎÊÑ¿ô·²ÆþÎϤμ¹ÔÃæ¤Ë¡¢»ÈÍѤ¹¤ë¥°¥ë¡¼¥×̾¤ÈÊÑ¿ô·²Ì¾¤òÍ×µá¤Ç¤­¤Þ¤¹¡£¤³¤ì¤Ë¤Ï¡¢Âè 2 ·å¤Ëµ¿ÌäÉä (?) ¤òÆþÎϤ·¡¢Return ¥­¡¼¤ò²¡¤·¤Þ¤¹¡£¥°¥ë¡¼¥×̾¤È¤½¤Î¥°¥ë¡¼¥×¤ÎÊÑ¿ô̾¤¬É½¼¨¤µ¤ì¡¢¼¡¤ÎÆþÎϤòÂÔ¤Á¤Þ¤¹¡£

Îã: ̾Á°¤ÎÍ×µá

demo% cat nam4.f 
* nam4.f ÊÑ¿ô·²¡§ ̾Á°¤ÎÍ×µá 
	CHARACTER*14 SAMPLE 
	LOGICAL*4 NEW 
	REAL*4 DELTA 
	NAMELIST /CASE/ SAMPLE, NEW, DELTA 
	WRITE ( *, * ) 'ÆþÎÏ ?' 
	READ ( *, CASE ) 
	END 
demo% f77 -silent nam4.f 
demo% a.out 
  ÆþÎÏ ? 
D? 				¢« ¥­¡¼¥Ü¡¼¥ÉÆþÎÏ 
D$case 
Dsample 
Dnew 
Ddelta 
D$end
 
D$case sample="Test 2", delta=0.03 $ ¢« ¥­¡¼¥Ü¡¼¥ÉÆþÎÏ
demo%  


¥µ¥ó¡¦¥Þ¥¤¥¯¥í¥·¥¹¥Æ¥à¥º³ô¼°²ñ¼Ò
Copyright information. All rights reserved.
¥Û¡¼¥à   |   Ìܼ¡   |   Á°¥Ú¡¼¥¸¤Ø   |   ¼¡¥Ú¡¼¥¸¤Ø   |   º÷°ú