¡¡

<< ƦÃμ± >>



¡¡

Fortran¤ÎÎò»Ë


¡¡ ¡¡¤µ¤Æ¡¢Fortran¤ò²¿µ¤¤Ê¤¯»È¤Ã¤Æ¤¤¤ë»ä¤¿¤Á¤Ç¤¹¤¬¡¢Fortran¤Ë¤Ï°ìÂÎ,¤É¤ó¤ÊÎò»Ë¤¬¤¢¤ë¤Î¤Ç¤·¤ç¤¦¤«¡£¤ä¤Ã¤Ñ¤ê»ÈÍѤ·¤Æ¤¤¤ë¤«¤é¤Ë¤Ï¡¢¤½¤ÎÎò»Ë¤ÏÃΤäƤª¤­¤¿¤¤¤Ç¤¹¤è¤Í¡£Îò»Ë¤òÃΤ뤳¤È¤Ë¤è¤ê¡¢¤½¤Î¥Ä¡¼¥ë¤Ø¤Î°¦Ã夬½Ð¤Æ¤¯¤ë¤·¡¢Fortran¤Î¤è¤µ¤ä·çÅÀ¤¬¤è¤¯¸«¤¨¤Æ¤¯¤ë¤È»×¤¤¤Þ¤¹¡£
¡¡Fortran¤ÎºÇ½é¤Ï¡¢¡ÖFortran­µ¡×¤À¤½¤¦¤Ç¤¹¡£Í­Ì¾¤Ê¤Î¤ÏFortran66¤Ç¡¢Ëͤ⤳¤ì¤¬Fortran¤ÎºÇ½é¤À¤È»×¤Ã¤Æ¤¤¤Þ¤·¤¿¡£¼ÂºÝ¤Ï°ã¤¦¤ó¤Ç¤¹¤Í¡£Fortran¤Ï¥¢¥á¥ê¥«¤ÎIT´ë¶È¤È¤·¤ÆÍ­Ì¾¤ÊIBM¼Ò¤ÎJohn.W.Backus¤µ¤ó¤¬Ãæ¿´¤È¤Ê¤Ã¤Æ¡¢º£¤«¤éÌó50ǯÁ°¤Î1954ǯ¤«¤é57ǯ¤Ë¤«¤±¤ÆIBM704·×»»µ¡¤Ë¤¿¤¤¤·¤Æ³«È¯¤µ¤ì¤¿¤½¤¦¤Ç¤¹¡£¤½¤ÎFortran­µ¤«¤é­¸¤Þ¤Ç¤¬¡¢½é´ü¤ÎFortran¤È°ÌÃ֤Ť±¤é¤ì¤Æ¤¤¤Þ¤¹¡£¤³¤³¤Þ¤Ç¤ÎFortran¤Ï¸ÀÍդȤ·¤Æ¤â;¤ê¤ªÌܤˤ«¤«¤ë¤³¤È¤Ï¤¢¤ê¤Þ¤»¤ó¡£¤³¤Î¤³¤í¤Ë¤Ïʸ»ú·¿¤äÊ£ÁÇ¿ô·¿¤È¤¤¤Ã¤¿¼Â¿ô¡¦À°¿ô°Ê³°¤ÎÆÃ¼ì¤Ê·¿¤¬ÁõÈ÷¤µ¤ì¡¢Éû¥×¥í¥°¥é¥à¤â¤³¤Î¤È¤­¤Ë¤ÏÁõÈ÷¤µ¤ì¤Æ¤¤¤¿¤È¤¤¤¦¤Î¤Ç¤¹¤«¤é¡¢¶Ã¤­¤Ç¤¹¡£
¡¡Ì¾Á°¡ÖFortran¡×¤ÎͳÍè¤Ï¡¢¡ÖFORmula TRANslating system¡×¤Ç¡¢¿ô¼°ÊÑ´¹¥·¥¹¥Æ¥à¤Î°ÕÌ£¤Ç¡¢ÆÃ¤Ë¿ôÃÍ·×»»¤Ë¶¯¤¤¤ó¤À¤È¤¤¤¦¥Í¡¼¥ß¥ó¥°¤«¤é¤­¤Æ¤¤¤ë¤½¤¦¤Ç¤¹¡£Fortran¤ÏÀ¤³¦½é¤Î¹âµé¸À¸ì¤È¤¤¤ï¤ì¡¢¤½¤ÎÎò»Ë¤Ï¸Å¤¤¤Ç¤¹¡£¤³¤Î¤³¤í¤Ë¤Ï»ö̳½èÍý¤ËŬ¤·¤¿¸À¸ì¤Ç¤¢¤ëCOBOL¤äALGOL¤È¤¤¤Ã¤¿¸À¸ì¤âÅо줷¡¢½é´ü¤Î¹âµé¸À¸ì¤Î3ÂçµðƬ¤¬ÃÂÀ¸¤·¤¿¤ï¤±¤Ç¤¹¡£¤³¤Î3¤Ä¤Î¸À¸ì¤Ï¡¢Fortran°Ê³°¤Ïº£¤Ç¤Ï;¤ê»È¤ï¤ì¤Æ¤¤¤Þ¤»¤ó¤¬¡¢ÂåɽŪ¤Ê¸À¸ì¤È¤·¤ÆÍ­Ì¾¤Ç¤¹¡£
¡¡Åö»þ¤ÏFortran¤Î¤è¤¦¤Ê¥³¥ó¥Ñ¥¤¥é¤ò»ÈÍѤ¹¤ë¹âµé¸À¸ì¤Ï¡¢Í¾¤ê¤¤¤¤ÌܤǸ«¤é¤ì¤Æ¤¤¤Ê¤«¤Ã¤¿¤é¤·¤¤¤Ç¤¹¡£¤½¤ì¤Ï¡¢ÀΤϥá¥â¥ê¤Ê¤É¥³¥ó¥Ô¥å¡¼¥¿¤ÎǽÎϤò¥³¥ó¥Ñ¥¤¥é¤¬Âô»³¿©¤¤¤Ä¤Ö¤·¤Æ¤·¤Þ¤¦¤À¤È¤«¡¢¿Í´Ö¤Î¸ÀÍÕ¤«¤éµ¡³£¸ì¤Ø¤ÎÊÑ´¹¤ÏľÀܵ¡³£¸ì¤Ç½ñ¤¤¤¿¤â¤Î¤è¤ê¤â¤è¤¤¥³¡¼¥É¤Ë¤Ê¤é¤Ê¤¤(ÆüËܸ줫¤é±Ñ¸ì¤Ø¤ÎËÝÌõ¥½¥Õ¥È¤¬Àµ³Î¤ÊËÝÌõ¤ò¹Ô¤Ê¤¨¤Ê¤¤¤Î¤ÈƱ¤¸)¤À¤È¤«¤Ç¡¢¤¹¤ó¤Ê¤ê¤È¼õ¤±Æþ¤ì¤é¤ì¤ë¤È¤¤¤¦¤ï¤±¤Ç¤Ï¤Ê¤«¤Ã¤¿¤é¤·¤¤¤Ç¤¹¡£¤È¤Ï¸À¤Ã¤Æ¤â¡¢Fortran¤Ç¤Ï¤³¤ÎÌäÂê¤ò¤¦¤Þ¤¯²ò·è¤·¡¢¤«¤Ä¥³¥ó¥Ñ¥¤¥ë¤Ë¤è¤ê¿Í´Ö¤Î¸ÀÍÕ¤Ç¥×¥í¥°¥é¥à¤ò½ñ¤­¡¢ÊÑ´¹ºî¶È¤ò¹Ô¤Ê¤ï¤Ê¤¯¤Æ¤¤¤¤¤È¤¤¤¦¤³¤È¤Ï¡¢¹âµé¸À¸ì¤Î»ÈÍѤ¬Èó¾ï¤Ë¹â¤Þ¤Ã¤¿¤è¤¦¤Ç¤¹¡£
¡¡½é¤á¤Ï¡¢ISO¤Î¤è¤¦¤Ê¡¢¤É¤³¤«¤¬Åý°ì¤·¤¿µ¬³Ê¤ò·è¤á¤Æ¤¤¤¿¤ï¤±¤Ç¤Ï¤Ê¤¤¤è¤¦¤Ç¡¢¥³¥ó¥Ñ¥¤¥é¤òȯÇ䤹¤ë²ñ¼ÒÆÈ¼«¤ÎFortran¤¬¤¢¤Á¤³¤Á¤Ë½ÐÍè¾å¤¬¤Ã¤Æ¤¤¤¿¤½¤¦¤Ç¤¹¡£¤â¤Á¤í¤ó¤½¤ì¤Ç¤Ï¡¢¤¤¤¯¤éFortran¤Î¥×¥í¥°¥é¥à¤È¤¤¤¦°ÕÌ£¤Ç¤ÏƱ¤¸¤Ç¤â¡¢¥³¥ó¥Ñ¥¤¥é¤Ë¤è¤Ã¤ÆÀµ¾ï¤Ë¥³¥ó¥Ñ¥¤¥ë¤Ç¤­¤ë¥³¡¼¥É¤È¤½¤¦¤Ç¤Ê¤¤¥³¡¼¥É¤¬¤Ç¤­¤Æ¤·¤Þ¤¦¤ï¤±¤Ç¤¹¤«¤é¡¢µ¬³Ê¤ÎÅý°ì¤¬60ǯÂå¤Ë¹Ô¤Ê¤ï¤ì¤¿¤è¤¦¤Ç¤¹¡£¤½¤ì¤¬¡¢Fortran66¤Ç¤¹¡£¤³¤ì¤â½é´ü¤ÎFortranƱÍÍ¡¢Ê¹¤¤¤¿¤³¤È¤¬¤Ê¤¤¿Í¤Ïʹ¤¤¤¿¤³¤È¤¬¤Ê¤¤Ì¾Á°¤À¤È»×¤¤¤Þ¤¹¡£¼ÂºÝ¡¢66¤Î¥³¥ó¥Ñ¥¤¥é¤ÏËͤ⸫¤¿¤³¤È¤¬¤¢¤ê¤Þ¤»¤ó¤·¡¢Âç³Ø¤Î¿Þ½ñ´Û¤Ë¤â1¤Ä¤°¤é¤¤¤¢¤Ã¤¿¤«¤É¤¦¤«¤Ç¤¹¡£
¡¡Fortran66¤«¤é,º£¤ÎFortran¤Ë¶á¤¯¤Ê¤Ã¤Æ¤­¤Þ¤¹¡£°ÅÌۤη¿Àë¸À¤À¤È¤«¡¢»»½ÑIF¤À¤È¤«¡¢GOTOʸ¤À¤È¤«¡¢Íóµ­½Ò»Ò(º£¤ÎÊÔ½¸µ­½Ò»Ò)¤À¤È¤«¡¢DOʸ¤À¤È¤«¤¬ÍѰդµ¤ì¡¢¥«¥é¥à(¥½¡¼¥¹¥³¡¼¥É¤ÎÎó¤Î¤³¤È¡£Íó)·Á¼°¤Îµ­½ÒÊýË¡¤Ë¤Ê¤ê¤Þ¤·¤¿¡£¤³¤ÎFortran66À©Äê¤Ë¤è¤ê¡¢Fortran¤ÎÉáµÚ¤¬¤µ¤é¤Ë¹â¤Þ¤Ã¤¿¤È¤µ¤ì¤Æ¤¤¤Þ¤¹¡£
¡¡Fortran¤¬¿Íµ¤¸À¸ì¤È¤Ê¤Ã¤Æ¤¤¤¿¤³¤Î¤³¤í¤«¤é¡¢Fortran¤ËÂФ¹¤ëÈãȽ¤¬½Ð¤Æ¤­¤Þ¤¹¡£¤¿¤¤¤Æ¤¤¤¢¤ëÄøÅٻȤï¤ì¤ë¤È¡¢ÈãȽ¤Ï¤É¤¦¤·¤Æ¤â½Ð¤Æ¤·¤Þ¤¤¤Þ¤¹¤è¤Í¡£´°àú¤Ê¤â¤Î¤Ï½é¤á¤«¤éºî¤ì¤Þ¤»¤ó¤«¤é¡£¤³¤Î¤³¤í¤ÎÈãȽ¤Ï¡¢¤¤¤í¤ó¤Ê¼ïÎब¤¢¤Ã¤¿¤ó¤Ç¤·¤ç¤¦¤¬¡¢Í­Ì¾¤Ê¤â¤Î¤Ï¥¨¥É¥¬¡¼¡¦¥À¥¤¥¯¥¹¥È¥é¤Î¡ØGo to statement is harmful.¡Ù¤Ë¤è¤ëgotoÏÀÁè¤Ç¤¹¡£Íפϡ¢gotoʸ¤Î¤è¤¦¤Ê²¼¤«¤é¾å¤Ë¤¤¤Ã¤¿¤ê¡¢¿ô»ú¤Ë¸þ¤«¤Ã¤Æ¤¢¤Ã¤Á¤ã¤³¤Ã¤Á¤ãÈô¤ó¤Ç¤¤¤¯Ê£»¨¤Çʬ¤«¤ê¤Ë¤¯¤¤¥×¥í¥°¥é¥à¤Ï½ñ¤¯¤Ê¡¢¤½¤·¤ÆFortran¤Ë¤Ï¤½¤¦¤·¤¿À­¼Á¤¬¤¢¤ë¤ó¤À!¤È¤¤¤¦ÈãȽ¤Ç¤¹¡£gotoʸ¤À¤±¤¬°­¤¤¤Î¤Ç¤Ï¤Ê¤¤¤Î¤Ç¤¹¤¬¡¢Fortran¤Î¤è¤¦¤Ê½é´ü¤Î¸À¸ì¤Ï¤É¤¦¤·¤Æ¤âgotoʸ¤Ë°Í¸¤¹¤ëÀ­¼Á¤¬¤¢¤ê¡¢¥×¥í¥°¥é¥à¤¬Ê¬¤«¤ê¤Ë¤¯¤¯¤Ê¤ê¡¢¥¨¥é¡¼¤Î¸¶°ø¤Î¤Ê¤Ã¤Æ¤¤¤¿¤½¤¦¤Ç¤¹¡£Îã¤òµó¤²¤ì¤Ð¡¢¥ë¡¼¥×¤«¤éÈ´¤±½Ð¤¹¤È¤­¤Îgotoʸ¡¢·×»»·Ágotoʸ¤ä»»½ÑIFʸ¤Ç¤¹¡£¤Á¤Ê¤ß¤ËËͤζµ¼ø¤Ïº£¤Ç¤â¤³¤ì¤é¤Î¿ä¾©¤ò¤·¤Æ¤­¤Þ¤¹¡£
¡¡¤½¤ó¤ÊÈãȽ¤Ë¤µ¤é¤µ¤ì¤Ê¤¬¤é¡¢78ǯ¤ËFortran77¤¬À©Äꤵ¤ì¤Þ¤·¤¿¡£Fortran77¤ÏFortran¤ÎÃæ¤Ç¤ÏÈó¾ï¤Ëͭ̾¤Ê¥Ð¡¼¥¸¥ç¥ó¤Ç¡¢º£¤Ç¤âËܤÎÃæ¿´¤ÏFortran77¤Ç¤¹(¤â¤Á¤í¤ó¿·¤·¤¤ËܤϤâ¤Ã¤È¿·¤·¤¤¤Ç¤¹¤¬)¡£ËͤÎÂç³Ø¤Î¿Þ½ñ´Û¤Ë¤¢¤ëËܤÏ1ºý¤ÎFortran90¤ò½ü¤¤¤Æ¤Ï¡¢Â¾Á´¤ÆFortran77¤Ç¤¹¡£¶²¤í¤·¤¤¤Ç¤¹¡£¥³¥ó¥Ñ¥¤¥é¤â¤½¤¦¤Ç¤¹¤Í¡£Salford¼Ò¤µ¤ó¤â77¤Î¥³¥ó¥Ñ¥¤¥é¤òÄ󶡤·¤Æ¤¯¤ì¤Æ¤¤¤Þ¤¹¡£
¡¡Fortran77¤Ï¤½¤ì°ÊÁ°¤Î¥Ð¡¼¥¸¥ç¥ó¤Î·çÅÀ¤òÂçÉý¤Ë²þÁ±¤·¡¢»È¤¤¤ä¤¹¤¤Fortran¤È¤Ê¤Ã¤Æ¤¤¤Þ¤¹¡£HÊÑ´¹¤ÎÊѤï¤ê¤Ë¥¢¥Ý¥¹¥È¥í¥Õ¥£ÊÑ´¹¤òƳÆþ¤·¤¿¤È¤«¡¢¼ÐÀþÊÑ´¹¤¬Æþ¤Ã¤¿¤È¤«¡¢ELSEIF¤Ë¤è¤ë¥Ö¥í¥Ã¥¯IF¤¬²Äǽ¤Ë¤Ê¤Ã¤¿¤È¤«¡¢PARAMETERʸ¤Ç¤ÎÄê¿ô¤Ë̾Á°¤¬¤Ä¤±¤é¤ì¤ë¤è¤¦¤Ë¤Ê¤Ã¤¿¤È¤«¡¢Éôʬʸ»úÎ󤬻Ȥ¨¤ë¤è¤¦¤Ë¤Ê¤Ã¤¿(¡Öchi(1:1)¡×)¤È¤«¤Ç¤¹¡£¤½¤ì¤Ç¤â¥À¥¤¥¯¥¹¥È¥é¤Î»ØÅ¦¤Ë¤¢¤Ã¤¿¡¢gotoʸ¤ÎÇÓ½ü¤À¤È¤«¡¢¹½Â¤²½¥×¥í¥°¥é¥ß¥ó¥°¤òãÀ®¤¹¤ë¤³¤È¤Ï¤Ç¤­¤Ê¤«¤Ã¤¿¤Î¤Ç¡¢¤Þ¤À¤Þ¤ÀºÇ¿·¤Î¥×¥í¥°¥é¥ß¥ó¥°¸À¸ì¤È¤·¤Æ¤ÏÉÔ½½Ê¬¤ÊÅÀ¤¬»Ä¤Ã¤Æ¤¤¤¿¤½¤¦¤Ç¤¹¡£³§¤µ¤ó¤âFortran90¤ò»ÈÍѤ·¤¿¤³¤È¤¬¤¢¤ì¤Ð¡¢¤½¤Îµ¤»ý¤Á¤Ï¤ª»ý¤Á¤Ê¤Î¤Ç¤Ï¤Ê¤¤¤Ç¤·¤ç¤¦¤«¡£
¡¡¤³¤Î¤³¤í¤Ï¤¢¤Îͭ̾¤ÊC¸À¸ì¤ä¡¢Pascal¤È¤¤¤¦¸À¸ì¤¬Åо줷¤¿»þ´ü¤Ç¤·¤¿¡£¤³¤ì¤é¤Î¸À¸ì¤Ïgotoʸ¤òÇÓ½ü¤·¡¢¤Ç¤­¤ë¤À¤±¤ï¤«¤ê¤ä¤¹¤¤¹½Â¤²½¥×¥í¥°¥é¥ß¥ó¥°¤òÌܻؤ·¤¿¤â¤Î¤Ê¤Î¤Ç¡¢¼¡Âè¤Ë¤É¤ó¤É¤ó¥×¥í¥°¥é¥Þ¤Ë¼õ¤±Æþ¤ì¤é¤ì¤Æ¤¤¤¯¤è¤¦¤Ë¤Ê¤ê¤Þ¤·¤¿¡£¤È¤¯¤ËC¸À¸ì¤Ï¡¢°·¤¤¤ä¤¹¤¤Ê¸¾Ï¤Ç¥¢¥»¥ó¥Ö¥ê¸À¸ì¤Î¤è¤¦¤Ë¹âÅ٤ʽèÍý¤â¹Ô¤Ê¤¦¤³¤È¤¬¤Ç¤­(¼ÂºÝFortran¤È;¤êº¹¤¬¤Ê¤¯¡¢»È¤¤¤ä¤¹¤¤¤Ç¤¹)¡¢¤³¤ÎC¸À¸ì¤Ë¤è¤Ã¤Æºî¤é¤ì¤¿¥ª¡¼¥×¥ó¥½¡¼¥¹(̵ÎÁ¸ø³«¤µ¤ì¤¿)¤ÎUNIX¤ÎÉáµÚ¤Ë¤è¤ê¡¢C¸À¸ì¤¬¥×¥í¥°¥é¥ß¥ó¥°¸À¸ì¤Î¼çή¤Ë¤Ê¤Ã¤Æ¤¤¤­¤Þ¤·¤¿¡£
¡¡Fortran¤ËÂФ¹¤ëÈãȽ¤ËÂн褹¤ë¤¿¤á¡¢91ǯ¤ËFortran90¤¬À©Äꤵ¤ì¤Þ¤·¤¿¡£Fortran90¤Ç¤Ï¡¢Fortran77°ÊÁ°¤Ø¤ÎÉÔËþ¤¬¤Û¤Ü²ò·è¤µ¤ì¤¿¤È¤¤¤ï¤ì¤Æ¤¤¤Þ¤¹¡£Ê¬´ô½èÍý¤Î¶¯²½¤È¤·¤ÆCASE¹½Ê¸¤äCYCLE¡¦EXIT¤¬ÄɲäÀ¤È¤«¡¢ENDDOʸ¤Ë¤è¤êʸÈÖ¹æ¤ò¤Ê¤¯¤¹¤È¤«¡¢ÇÛÎó¤ÎƹÂγäÉÕ¤ò²Äǽ¤Ë¤¹¤ë¤È¤«¡¢¹½Â¤ÂΤ¬ºî¤ì¤ë¤è¤¦¤Ë¤¹¤ë¤È¤«¡¢COMMON¤äINCLUDE¤ËÂФ¹¤ëÂкö¤È¤·¤Æ¥â¥¸¥å¡¼¥ë¤¬Äɲ䵤ì¤ë¤È¤«¡¢Àë¸Àʸ¤Î·ë¹ç¤¬¤Ç¤­¤ë¤È¤«¡¢Fortran77¤Ë¤¯¤é¤Ù¤Æ¤«¤Ê¤ê»È¤¤¤ä¤¹¤¯¤Ê¤ê¤Þ¤·¤¿¡£¤³¤ì¤Þ¤Ç½ñ¤­Êý¤È¤·¤ÆÅö¤¿¤êÁ°¤À¤Ã¤¿¸ÇÄê·Á¼°¤â¤Ê¤¯¤Ê¤ê¡¢¹¥¤­¤Ê°ÌÃ֤˽ñ¤¯¤³¤È¤¬¤Ç¤­¤ë¼«Í³·Á¼°¤¬Æ³Æþ¤µ¤ì¤Þ¤·¤¿¡£¤³¤ì¤Ë¤è¤ê¡¢¤«¤Ê¤ê½ñ¤­¤ä¤¹¤¤´Ä¶­¤¬À°¤Ã¤¿¤È¤¤¤¨¤Þ¤¹¡£
¡¡¤³¤¦¤·¤ÆFortran90¤¬Åо줷¤¿¤ï¤±¤Ç¤¹¤¬¡¢¤É¤¦¤¤¤¦¤ï¤±¤«¤½¤ì°ÊÁ°¤ÎFortran77¤Ë¸Ç¼¹¤¹¤ë¿Í¤Ï¿¤¤¤è¤¦¤Ç¤¹(¤Á¤Ê¤ß¤ËËͤζµ¼ø¤â¤½¤¦¤Ç¤¹)¡£Fortran90¤Î¤Û¤¦¤¬ÌÀ¤é¤«¤Ë»È¤¤¤ä¤¹¤¤¤Î¤Ë¡¢¤Ê¤¼¤Ê¤Î¤Ç¤·¤ç¤¦¤«¡£¤½¤ÎÀ®²Ì¡¢Fortran90¤ÎËܤÏõ¤·¤Æ¤â¤Ê¤«¤Ê¤«¤¢¤ê¤Þ¤»¤ó¤Í¡£
¡¡Fortran¤Î¿Ê²½¤Ï¡¢ÂçÉý¤Êµ¡Ç½¸þ¾å¤Ç¤Ï´ðËÜŪ¤Ë¤³¤³¤Ç½ªÎ»¤Ç¤¹¡£Fortran90¤ÇFortran¤Ø¤ÎÉÔËþ¤Ï¤«¤Ê¤ê¸º¤ê¡¢¤½¤ì°Ê¹ß¤Î¥Ð¡¼¥¸¥ç¥ó¤ÏÊѲ½¤ÎÆâÍÆ¤¬¤è¤¯Ê¬¤«¤ê¤Þ¤»¤ó(ËÍ¤Ë¤ÏÆñ¤·¤¯¤Æ)¡£Fortran90¤Î¼¡¤Ë¤Ï¡¢Fortran95¤¬Åо줷¤Þ¤·¤¿¡£97ǯ¤Î¤³¤È¤Ç¤¹¡£Fortran95¤Ç¤Ï»È¤¤¤ä¤¹¤µ¤È¤¤¤¦¤è¤ê¡¢¤½¤ì°ÊÁ°¤Þ¤Ç¤Î¥Ð¥°ÅªÍ×ÁǤÎÊä´°¤À¤½¤¦¤Ç¤¹¡£Ê¸Ë¡¤È¤·¤Æ¤ÏFORALLʸ¤¬¤¢¤ê¤Þ¤¹¡£¤Þ¤¿¡¢Fortran2000¤È¤¤¤¦¤Î¤âÅо줷¤Æ¤¤¤ë¤½¤¦¤Ç¤¹¤¬¡¢¤³¤ì¤Ë¤Ä¤¤¤Æ¤ÏÁ´¤¯Ê¬¤«¤ê¤Þ¤»¤ó¡£Ê¬¤«¤ê¼¡Âè¡¢Êó¹ð¤·¤¿¤¤¤È»×¤¤¤Þ¤¹¡£
¡¡Fortran¤ÏÉáÄ̤οͤ«¤é¤¹¤ì¤Ð¡¢¡ÖFortran?¡¡¤Ê¤Ë¤½¤ì?¡×¤È¤¤¤¦¸À¸ì¤À¤È»×¤¤¤Þ¤¹(Ëͤ⤽¤¦»×¤Ã¤Æ¤¤¤Þ¤·¤¿)¡£ÉáÄ̻Ȥ¦¤Î¤ÏC¸À¸ì¤äJava¡¢Perl¡¢Ruby¤Ê¤É¤Ç¡¢Fortran¤ÎÌÜŪ¤Ç¤¢¤ë²Ê³Ø·×»»¤òÉáÄ̤οͤϤ·¤Þ¤»¤ó¤«¤é¤Í¡£¤·¤«¤·¡¢Fortran¤¬¸Å¤¤¸À¸ì¤À¤«¤é»ÈÍѤµ¤ì¤Ê¤¯¤Ê¤Ã¤Æ¤·¤Þ¤Ã¤¿¤ï¤±¤Ç¤Ï¤¢¤ê¤Þ¤»¤ó¡£¤¸¤Ã¤µ¤¤¡¢²Ê³Ø·×»»¤ò¹Ô¤Ê¤¦¿Í(Íפϸ¦µæ¼Ô)¤ÏFortran¤ò»ÈÍѤ·¤Æ¥×¥í¥°¥é¥à¤òºî¤Ã¤Æ¤¤¤ë¤é¤·¤¤¤Ç¤¹¡£Fortran°Ê³°¹Í¤¨¤é¤ì¤Ê¤¤¤È¤¤¤¦¿Í¤â¤¤¤Þ¤¹¡£Fortran¤¬50ǯ°Ê¾å¤¿¤Ã¤Æ¤âº£¤Ê¤ª»ÈÍѤµ¤ì³¤±¤Æ¤¤¤ëÍýͳ¤Ï¡¢½ñ¤¯¤Î¤¬´Êñ¤Ç»È¤¤¤ä¤¹¤¤¡¢¥½¡¼¥¹¥³¡¼¥É¤ÎÇüÂç¤Ê°ä»º¤¬¤¢¤ë¡¢¿ô³Ø¤È¤Î³µÇ°¤Ë¿ÆÏÂÀ­¤¬¤¢¤ë¡¢ÇÛÎóÁàºî¤¬Â¾¤Î¸À¸ì¤è¤êŤ±¤Æ¤¤¤ë¡¢¤Ê¤É¤Ç¤¹¡£¤Ç¤¹¤«¤é¡¢¡Ö¤Á¤§¡¢Fortran¤Ê¤ó¤ÆÌµÌ¾¤Ç¸Å¤¤¸À¸ì¤Ê¤ó¤«¤è¤ê¡¢C++¤ò½¬¤¤¤Æ¡¼¤è¡×¤Ê¤ó¤Æ¤¤¤¸¤±¤º¤Ë¡¢Fortran¤ÎÁÇÀ²¤é¤·¤µ¤ò´®Ç½¤·¤Æ¤ß¤Æ¤¯¤À¤µ¤¤¤Í¡£

Fortran°Ê³°¤Î¸À¸ì


¡¡¤â¤¦´û¤ËÃΤäƤ¤¤ë¤È»×¤¤¤Þ¤¹¤¬¡¢¥×¥í¥°¥é¥ß¥ó¥°¸À¸ì¤ÏFortran¤À¤±¤Ç¤Ï¤¢¤ê¤Þ¤»¤ó¡£Í­Ì¾¤Ê¸À¸ì¤À¤±¤Ç¤â50¶á¤¯¤¢¤ê¤Þ¤¹¡£¤â¤Á¤í¤óÁ´¤Æ¤Î¸À¸ì¤¬»ÈÍѤµ¤ì¤Æ¤¤¤ë¤ï¤±¤Ç¤Ï¤¢¤ê¤Þ¤»¤ó¤¬¡¢ÉÑÈˤ˻Ȥï¤ì¤ë¸À¸ì¤Ï·ë¹½¤¢¤ê¤Þ¤¹¡£²Ê³Ø·×»»¤Ë¤ª¤¤¤Æ¤ÏFortran¤â¤½¤Î°ì¤Ä¤Ç¤¹¡£¥×¥í¥°¥é¥ß¥ó¥°¤Î¼ø¶È¤Ç¤ÏC¸À¸ì¤¬¤«¤Ê¤ê»È¤ï¤ì¤ë¤È»×¤¤¤Þ¤¹¤·¡¢¥¤¥ó¥¿¡¼¥Í¥Ã¥È¾å¤Î¥×¥í¥°¥é¥à¤ÏJava¤Ç¤¹¤Í¡£
¡¡¤È¤³¤í¤Ç¡¢¤É¤ó¤Ê¸À¸ì¤¬Fortran°Ê³°¤Ë¤¢¤ë¤«¤´Â¸ÃΤǤ¹¤¬?¡¡¿§¤ó¤Ê¸À¸ì¤¬¤¢¤ë¤Î¤ÏÃΤäƤ¤¤ë¤±¤ì¤É¤â¡¢¤É¤ó¤Ê̾Á°¤Î¤¬¤¢¤Ã¤¿¤Ã¤±¤Ê¡¢¤È¤¤¤¦¿Í¤Ï·ë¹½Â¿¤¤¤È»×¤¤¤Þ¤¹¡£Ëͤ⾯¤·¤·¤«ÃΤê¤Þ¤»¤ó¤·¡¢¤ä¤Ã¤¿¤³¤È¤Î¤¢¤ë¤Î¤â4¤Ä¤Ç¤¹(HTML¡¢C¸À¸ì¡¢HSP¡¢Fortran)¡£¸À¸ì¤Ë¤Ï¤½¤Î¸À¸ì¤ÎÆÃħ¤¬¤¢¤ê¤Þ¤¹¡£¤½¤ÎÆÃħ¤òÃΤ뤳¤È¤Ç¡¢¡Öº£Å٤Ϥ³¤ì¤¬¤ä¤ê¤¿¤¤¡×¤È¤¤¤¦¤È¤­¤Ë¡¢¤É¤ó¤Ê¸À¸ì¤ò»ÈÍѤ·¤¿¤é¤¤¤¤¤Î¤«¤¬¤¹¤°¤Ëʬ¤«¤ê¤Þ¤¹¡£¤½¤¦¤¹¤ì¤Ð¡¢¼«Ê¬¤ÎÌÜŪ¤Ë¹ç¤Ã¤¿¸À¸ì¤ÎÊÙ¶¯¤¬¤·¤Ã¤«¤ê¤ÈÁªÂò¤Ç¤­¡¢¡Ö¤È¤ê¤¢¤¨¤ºC¸À¸ì¤¬Í­Ì¾¤À¤«¤éC¸À¸ì¤òÊÙ¶¯¤¹¤ì¤ÐÂç¾æÉפÀ¤í¤¦¡×¤È¤¤¤¦¤³¤È¤Ë¤Ê¤é¤Ê¤¯¤Æ¤¹¤ß¤Þ¤¹¡£
¡¡¸À¸ì¤Ë¤ÏÆÀ°ÕʬÌî¤ÈÉÔÆÀ°ÕʬÌ¤¢¤ê¤Þ¤¹¡£¥ª¡¼¥ë¥Þ¥¤¥Æ¥£¤ËÄ̤¸¤ë¸À¸ì¤Ï¤¢¤Ã¤¿¤È¤·¤Æ¤â¡¢¤½¤ÎÆ»¤Î¥×¥í¤Î¸À¸ì¤Ë¤Ï¤ä¤Ã¤Ñ¤ê¤«¤Ê¤¤¤Þ¤»¤ó¡£C¸À¸ì¤Ï²Ê³Ø·×»»¤Ë¤â»È¤¦¤³¤È¤¬¤Ç¤­¤Þ¤¹¤¬¡¢Fortran¤Î¤Û¤¦¤¬°·¤¤¤ä¤¹¤¤¤È¤«°ÂÁ´¤Ç¤·¤Ã¤«¤ê¤·¤¿¥×¥í¥°¥é¥à¤¬ºî¤ì¤ë¤È¤¤¤¦¿Í¤Ï¿¤¤¤Ç¤¹¤·¡¢¤É¤ó¤ÊOS¤ò»È¤Ã¤Æ¤¤¤Æ¤âºî¤Ã¤¿¥×¥í¥°¥é¥à¤ò»ÈÍѤǤ­¤ëJava¤ÏC¸À¸ì¤è¤ê¤âÈÆÍÑÀ­¤ËÍ¥¤ì¤Æ¤¤¤Þ¤¹¡£¤Ç¤¹¤«¤é¡¢¸À¸ì¤ÎÆÃħ¤òÃΤäƤª¤¯¤³¤È¤ÏÈó¾ï¤ËÂç»ö¤Ç¤¹¡£
¡¡°Ê²¼¤Ë¡¢¤É¤ó¤Ê¥×¥í¥°¥é¥ß¥ó¥°¸À¸ì¤Î¼ïÎब¤¢¤ë¤Î¤«¡¢¤½¤·¤Æ¤É¤ó¤ÊÆÃħ¤ò»ý¤Ã¤Æ¤¤¤ë¤Î¤«¤ò¤Þ¤È¤á¤Æ¤ª¤­¤Þ¤¹¡£¤â¤Á¤í¤ó¸À¸ì¤Ï¤³¤ì¤À¤±¤Ç¤Ï¤¢¤ê¤Þ¤»¤ó¡£¤È¤Ï¸À¤Ã¤Æ¤â¡¢ÂçÄñ¤ÎÌÜŪ¤Ê¤é²¼¤Î¸À¸ì¤À¤±¤Ç­¤ê¤ë¤È»×¤¤¤Þ¤¹¡£¤â¤·¤½¤Îµ¡Ç½¤Ë¶½Ì£¤ò»ý¤Ã¤¿¤é¡¢¤¼¤Ò¤½¤Î¸À¸ì¤ò°·¤Ã¤Æ¤¤¤ë¥µ¥¤¥È¤äËܤòÍøÍѤ·¤Æ¡¢¸À¸ì¤Î½¬ÆÀ¤Ë¥Á¥ã¥ì¥ó¥¸¤·¤Æ¤ß¤Æ¤¯¤À¤µ¤¤¡£

  • µ¡³£¸ì¡¦¡¦¡¦¥¢¥»¥ó¥Ö¥ê¸À¸ì¤¬Åо줹¤ë¤Þ¤Ç»È¤ï¤ì¤Æ¤¤¤¿µ­½ÒÊý¼°¤Ç¤¹¡£º£¤Ç¤â¥½¡¼¥¹¥³¡¼¥É¤òºÇ½ªÅª¤Ë¤Ï¤³¤Îµ¡³£¸ì¤ËËÝÌõ¡¦²ò¼á¤·¤Þ¤¹¡£¤½¤ì¤Ï¡¢¥³¥ó¥Ô¥å¡¼¥¿¤Ïµ¡³£¸ì¤·¤«Íý²ò¤¹¤ë¤³¤È¤¬¤Ç¤­¤Ê¤¤¤¿¤á¤Ç¤¹¡£µ¡³£¸ì¤È¤¤¤¦¤Î¤Ï¡¢´Êñ¤Ë¸À¤¦¤È¿ô»ú¤ÎÍåÎó¤Ç¡¢0¤È1¤ÎÆó¤Ä¤Î¿ô»ú¤ò»È¤Ã¤Æ¡¢2¿Ê¿ô¤ä16¿Ê¿ô¤Çɽ¸½¤·¤Þ¤¹¡£µ¡³£¤Ë¤ÏÍý²ò¤Ç¤­¤Æ¤â¡¢¿Í´Ö¤¬¤³¤Îµ­½ÒÊý¼°¤Ç¥×¥í¥°¥é¥à¤òÁȤळ¤È¤ÏÂçÊѤǤ¹¡£¤·¤«¤·¡¢ÀΤϹâµé¸À¸ì¤¬Â¸ºß¤·¤Ê¤¤»þ´ü¤¬¤¢¤Ã¤¿¤Î¤Ç¡¢¤³¤Î¸ÀÍÕ¤ò»È¤Ã¤Æ¥×¥í¥°¥é¥à¤òºî¤Ã¤Æ¤¤¤¿»þ´ü¤¬¤¢¤ê¤Þ¤·¤¿¡£
  • ¥¢¥»¥ó¥Ö¥ê¸À¸ì¡¦¡¦¡¦µ¡³£¸ì¤Ë¤è¤ë¥½¡¼¥¹¥³¡¼¥É¤Îµ­½Ò¤¬Í¾¤ê¤Ë¤âÂçÊѤʤ¿¤á¡¢¤³¤ì¤ò¾¯¤·¤Ç¤â·Ú¸º¤¹¤ë¤¿¤á¤ËÀ¸¤Þ¤ì¤¿¸À¸ì¤Ç¤¹¡£¡Ö¥Ë¡¼¥â¥Ã¥¯¡×¤È¤¤¤¦ÊÑ´¹·Á¼°¤ò»È¤¤¤Þ¤¹¡£¿ô»ú¤ÎÍåÎó¤Ç¤Ï²¿¤òÌ¿Îᤷ¤Æ¤¤¤ë¤Î¤«Íý²ò¤¹¤ë¤Î¤¬¿Í´Ö¤Ë¤ÏÆñ¤·¤¤¤Î¤Ç¡¢¡Ömov¡×¤È¤¤¤Ã¤¿´·¤ì¿Æ¤·¤ó¤Ç¤ë±Ññ¸ì¤Ç¥½¡¼¥¹¥³¡¼¥É¤òµ­½Ò¤·¡¢¥½¡¼¥¹¥³¡¼¥É¤¬´°À®¤·¤¿¤é¤½¤ì¤ò¥Ë¡¼¥â¥Ã¥¯¤Çµ¬Äꤵ¤ì¤¿ÊÑ´¹ÊýË¡¤Ë½¾¤Ã¤Æµ¡³£¸ì¤ËÊÑ´¹¤·¤Æ¤¤¤­¤Þ¤¹¡£¤â¤Á¤í¤óºî¶È¤ÎÎ̤ÏÊÑ´¹¤¹¤ëʬÁý¤¨¤Þ¤¹¤¬¡¢µ¡³£¸ì¤ÇľÀܵ­½Ò¤¹¤ë¤è¤ê¤â¥½¡¼¥¹¥³¡¼¥É¤¬¤È¤Æ¤âÍý²ò¤·¤ä¤¹¤¯¤Ê¤ê¤Þ¤¹¡£Åö½é¤Ï¤³¤ÎÊÑ´¹ºî¶È¤ò¼êºî¶È¤Ç¹Ô¤Ê¤Ã¤Æ¤¤¤Þ¤·¤¿¡£¤³¤Î¤³¤È¤ò¡Ö¥Ï¥ó¥É¥¢¥»¥ó¥Ö¥ë¡×¤È¤¤¤¤¤Þ¤¹¡£¤·¤«¤·¡¢¥³¥ó¥Ô¥å¡¼¥¿¤òÍøÍѤ·¤Æ¤¤¤ë¤Î¤Ç¤¹¤«¤é¡¢¤³¤Îºî¶È¤ò¥³¥ó¥Ô¥å¡¼¥¿¤Ç¼«Æ°²½¤·¤¿¤¤¤È¤¤¤¦¹Í¤¨¤¬À¸¤Þ¤ì¡¢¡Ö¥¢¥»¥ó¥Ö¥é¡×¤È¤¤¤¦ÊÑ´¹¥×¥í¥°¥é¥à¤¬À¸¤Þ¤ì¤Þ¤·¤¿¡£¤·¤«¤·¡¢¤³¤ì¤Ç¤â¤Þ¤À¥½¡¼¥¹¥³¡¼¥É¤ÎºîÀ®¤¬ÂçÊѤǤ¢¤Ã¤¿¤¿¤á¡¢¤â¤Ã¤È¿Í´Ö¤Ë¶á¤¤¸ÀÍդǵ­½Ò¤Ç¤­¤ë¡Ö¹âµé¸À¸ì¡×¤¬À¸¤Þ¤ì¤Þ¤·¤¿¡£¤Á¤Ê¤ß¤Ë¥¢¥»¥ó¥Ö¥ê¸À¸ì¤ÏÄãµé¸À¸ì¤Ç¤¹¡£
  • ALGOL¡¦¡¦¡¦ALGOrithmic Language ¤Îά¤Ç¡¢¥¢¥ë¥´¥ê¥º¥à¤ò°Õ¼±¤·¤¿¸À¸ìÂηϤǤ¹¡£¸½ºß¤Ç¤Ï»ÈÍѤµ¤ì¤Æ¤¤¤Þ¤»¤ó¤¬¡¢C¸À¸ì¤äPascal¤Î¤è¤¦¤Ê¹½Â¤²½¥×¥í¥°¥é¥ß¥ó¥°¤òÈ÷¤¨¤¿¸À¸ì¤Î³«È¯¤Î´ð¤Ë¤Ê¤Ã¤¿¡¢Îò»ËŪ¤Ë½ÅÍפʸÀ¸ì¤Ç¤¹¡£Fortran¤ÈƱ¤¸¤¯²Ê³Ø·×»»ÍѤθÀ¸ì¤Ç¡¢Fortran¤¬¥¢¥á¥ê¥«¤Ç³«È¯¤µ¤ì¤¿¤Î¤ËÂФ·¡¢ALGOL¤Ï²¤½£¤Ç³«È¯¤µ¤ì¤Þ¤·¤¿¡£Fortran¤è¤ê¤â¼«Á³¤Ë¶á¤¤¹½Ê¸¤Çµ­½Ò¤¬²Äǽ¤Ç¤¹¡£
  • BASIC¡¦VisualBasic¡¦¡¦¡¦Beginners All purpose Symbolic Instruction Code¤Îά¤Ç¡¢64ǯ¤ËÊÆ¥À¡¼¥È¥Þ¥¹Âç³Ø¤Î¥±¥á¥Ë¡¼¶µ¼ø¤È¥«¡¼¥Ä¶µ¼ø¤¬³«È¯¤·¤¿¸À¸ì¤Ç¤¹¡£Fortran¤Îʸˡ¤ò´ð¤Ë³«È¯¤µ¤ì¤Þ¤·¤¿¡£BASIC¤ÎºÇÂç¤ÎÆÃħ¤Ï¡¢¤½¤Î»È¤¤¤ä¤¹¤µ¤Ç¤¹¡£Fortran¤ÈƱ¤¸¤è¤¦¤Ë¡¢Èó¾ï¤Ëʬ¤«¤ê¤ä¤¹¤¯Ã±½ã¤Êµ­½ÒÊý¼°¤Ç¤¢¤Ã¤¿¤Î¤Ç¡¢BASIC¤È¤¤¤¦Ì¾Á°¤Î¤»¤¤¤â¤¢¤Ã¤Æ¤«¡¢¥×¥í¥°¥é¥ß¥ó¥°¤Î¶µ°éÍѤȤ·¤Æ¤â»È¤ï¤ì¤Þ¤·¤¿¡£¤·¤«¤·¤½¤Î¼ê·Ú¤ÊÁàºî¤ÎÈ¿ÌÌ¡¢À°¿ô±é»»¤¬¤Ç¤­¤Ê¤¤¤ä¾¤Î¥Ñ¥½¥³¥ó¤Çºî¤Ã¤¿BASIC¤À¤Èµ¯Æ°¤·¤Ê¤¤¤Ê¤ÉÌäÂ꤬¿¤¯½Ð¤Þ¤·¤¿¡£¤Þ¤¿Fortran¤ÈƱÍͤˡ¢gotoʸ¤ò»ÈÍѤ·¤Ê¤¤¤È¥×¥í¥°¥é¥à¤¬À®Î©¤·¤Ê¤¤¤È¤«¡¢¹ÔÈÖ¹æ¤òɬÍפȤ¹¤ë¤½¤Î¹½Â¤¤ËÈãȽ¤¬½¸Ã椷¤Þ¤·¤¿¡£º£¤Ç¤ÏBASIC¤¬»ÈÍѤµ¤ì¤ë¤³¤È¤Ï¾¯¤Ê¤¯¤Ê¤ê¤Þ¤·¤¿¡£
    ¡¡¤½¤ÎÂå¤ï¤ê¤Ë³èÌö¤·¤Æ¤¤¤ë¤Î¤¬¡¢VisualBasic¤Ç¤¹¡£VisualBasic¤Ï»ë³ÐŪÍ×ÁǤòÈ÷¤¨¤¿³«È¯´Ä¶­¤òÄ󶡤¹¤ë¸À¸ì¤Ç¤¹¡£ÉáÄÌ¥×¥í¥°¥é¥ß¥ó¥°¸À¸ì¤È¤¤¤¦¤È¥Æ¥­¥¹¥È¤À¤é¤±¤Î³«È¯¤È¤¤¤¦¥¤¥á¡¼¥¸¤¬¤¢¤ê¤Þ¤¹¤¬¡¢VisualBasic¤Ï¼ÂºÝ¤Ë¥×¥í¥°¥é¥à¤ò¼Â¹Ô¤·¤¿¾õÂÖ¤ò²èÌ̤Ëɽ¼¨¤·¤Ê¤¬¤é¥×¥í¥°¥é¥ß¥ó¥°¤ò¤¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£¥¤¥á¡¼¥¸¤È¤·¤Æ¤Ï¥Û¡¼¥à¥Ú¡¼¥¸¥Ó¥ë¥À¡¼¤ä¥Ú¥¤¥ó¥È¥½¥Õ¥È¤Ç¡¢³«È¯Ãʳ¬¤Ç¥Ü¥¿¥ó¤Î¥ª¥Ö¥¸¥§¥¯¥È¤òÀßÃÖ¤·¤¿¤ê¡¢¤½¤Î¥Ü¥¿¥ó¤ò²¡¤·¤Æ¼Â¹Ô¤·¤Æ¤ß¤ë¤È¤¤¤Ã¤¿¤³¤È¤¬²Äǽ¤Ç¤¹¡£¤â¤Á¤í¤óBasic¤Î¿Ê²½·Ï¤Ê¤Î¤Ç¡¢»È¤¤¤ä¤¹¤µ¤âÈ÷¤¨¤Æ¤ª¤ê¡¢Basic¤ò¤µ¤é¤Ë¿Ê²½¤µ¤»¡¢¹½Â¤²½¥×¥í¥°¥é¥ß¥ó¥°¤ä¥ª¥Ö¥¸¥§¥¯¥È»Ø¸þ¤â²Äǽ¤Ç¤¹¡£VisualBasic¤Ï¿¤¯¤Î¾ìÌ̤ǻÈÍѤµ¤ì¡¢³«È¯¥Ä¡¼¥ë¤È¤·¤Æ½ÅÍפʰÌÃÖ¤òÀê¤á¤Æ¤¤¤Þ¤¹¡£
  • C¡¢C++¡¢VisualC++¡¢C#¡¦¡¦¡¦C¸À¸ì¤ÏB¸À¸ì¤Î¿Ê²½·Ï¤Ç¡¢ÊÆAT&T¥Ù¥ë¸¦µæ½ê¤Î¥ê¥Ã¥Á¡¼»á¤¬³«È¯¤·¤¿¸À¸ì¤Ç¤¹¡£C¸À¸ì¤Ïº£¤Î¸À¸ì¤ÎÃæ¤Ç¤â¤Ã¤È¤âͭ̾¤Ê¸À¸ì¤Ç¡¢ÀΤËÈæ¤Ù¤ì¤Ð¤½¤ÎÃϰ̤ϲ¼¤¬¤ê¤Þ¤·¤¿¤¬¡¢º£¤Ç¤â¿Íµ¤¤Î¸À¸ì¤Ç¤¹¡£C¸À¸ì¤ÏOS¤Ç¤¢¤ëUNIX¤ò³«È¯¤¹¤ëÌÜŪ¤Çºî¤é¤ì¤¿¡¢¥·¥¹¥Æ¥à³«È¯¼ÒÍÑ¤Î¥×¥í¥°¥é¥ß¥ó¥°¸À¸ì¤Ç¤¹¡£µ­½Ò¥ì¥Ù¥ë¤¬Fortran¤Û¤É¤Ç¤Ï¤¢¤ê¤Þ¤»¤ó¤¬´Ê·é¤Ç¡¢¤½¤ì¤Ç¤¤¤Æµ¡³£¸ì¤Î¤è¤¦¤Ê¹âÅ٤ʽèÍý¤â¹Ô¤Ê¤¦¤³¤È¤¬¤Ç¤­¤ë¤Î¤¬ÆÃħ¤Ç¤¹¡£UNIX¤ÎÉáµÚ¤Ë¤è¤ê¡¢C¸À¸ì¤ÎÉáµÚ¤¬¹â¤Þ¤ê¤Þ¤·¤¿¡£Fortran¤Ë¸þ¤±¤é¤ì¤¿ÈãȽ¤Î°ì¤Ä¤Ç¤¢¤ë¹½Â¤²½¥×¥í¥°¥é¥ß¥ó¥°¤òÈ÷¤¨¤Æ¤¤¤ë¤¿¤á¡¢80ǯÂå¤Ë¿Íµ¤¤Î¸À¸ì¤Ë¤Ê¤ê¤Þ¤·¤¿¡£
    ¡¡C¸À¸ì¤ò¿Ê²½¤µ¤»¤¿¸À¸ì¤¬C++¤Ç¤¹¡£¡Ö++¡×¤ÏC¸À¸ì¤Ç¡Ö¥¤¥ó¥¯¥ê¥á¥ó¥È¡×¤È¸Æ¤Ð¤ì¤ë¤â¤Î¤Ç¡¢¡Ö¾¯¤·(¤º¤Ä)Áý²Ã¡×¤È¤¤¤¦°ÕÌ£¤Ç¤¹¡£Â¿¤¯¤Î¥³¥ó¥Ñ¥¤¥é¤Ï¤³¤ÎC++¤ÈC¸À¸ì¤ÎξÊý¤ò¥³¥ó¥Ñ¥¤¥ë¤Ç¤­¤ë¤è¤¦¤Ëºî¤é¤ì¤Æ¤¤¤Þ¤¹¡£C++¤ÏC¸À¸ì¤Î·ÏÎó¤Ç¤¢¤ë¤¿¤á¡¢Ì¿Îáʸ¤Î¿¤¯¤¬C¸À¸ì¤ÈƱ¤¸¤Ç¤¹¡£C++¤ÎºÇÂç¤ÎÆÃħ¤Ï¥Ç¡¼¥¿¤È½èÍý¤ò¤Ò¤È¤Þ¤È¤á¤Ë¤·¤¿¡Ö¥ª¥Ö¥¸¥§¥¯¥È»Ø¸þ¡×¤Ç¡¢C++¤Î¥×¥í¥°¥é¥ß¥ó¥°¤Ï¥¯¥é¥¹¤ÎºîÀ®¤«¤é»Ï¤Þ¤ê¤Þ¤¹¡£C++¤Ë»ë³ÐŪÍ×ÁǤò²Ã¤¨¤¿¤Î¤¬¡¢¡ÖVisualC++¡×¤Ç¤¹¡£C¤äC++¤ò´ð¤ËÊÆ¥Þ¥¤¥¯¥í¥½¥Õ¥È¤¬³«È¯¤·¤¿¡¢¥ª¥Ö¥¸¥§¥¯¥È»Ø¸þ¤Î¸À¸ì¤È¤·¤Æ¡ÖC#¡×¤È¤¤¤¦¤Î¤â¤¢¤ê¤Þ¤¹¡£
    ¡¡
  • COBOL¡¦¡¦¡¦COmmon Business Oriented Language¤Îά¤Ç¡¢ÂçÎ̤λö̳½èÍý¤ä´ÉÍý¤Ë¸þ¤¤¤¿¸À¸ì¤Ç¤¹¡£²Ê³Ø·×»»ÍѤÎFortran¤ÈALGOL¤È¤³¤ÎCOBOL¤¬¡¢½é´ü¤Î¹âµé¸À¸ì¤Î3ÂçµðƬ¤Ç¤¹¡£¥¢¥á¥ê¥«¤Î»ö̳½èÍýÍѸÀ¸ì¤È¤·¤Æ»ÈÍѤµ¤ì¤¿¤³¤È¤¬¤­¤Ã¤«¤±¤ÇÀ¤³¦Åª¤Ëͭ̾¤Ë¤Ê¤ê¤Þ¤·¤¿¡£Fortran¤è¤ê¤â¤è¤ê±Ñ¸ì¤Ë¶á¤¤¸À¸ì¤Ç¼«Á³¤Ê½ñ¤­Êý¤Ç¤¹¡£COBOL¤Î¥×¥í¥°¥é¥à¤Ï4¤Ä¤Î´ðËܹ½Â¤¤«¤éÀ®¤êΩ¤Ã¤Æ¤¤¤Æ¡¢¤½¤ì¤Ï¸«½Ð¤·Éô¡¢´Ä¶­Éô¡¢¥Ç¡¼¥¿Éô¡¢¼ê³¤­Éô¤È¤Ê¤Ã¤Æ¤¤¤Þ¤¹¡£³ÈÄ¥¤µ¤ì¤¿COBOL¤Ë¤Ï¡¢¥ª¥Ö¥¸¥§¥¯¥È»Ø¸þCOBOL¤â¤¢¤ê¤Þ¤¹¡£
  • Delphi¡¦¡¦¡¦ObujectPascal¤È¤¤¤¦Pascal¤ò³ÈÄ¥¤·¤¿¸À¸ì¤Î¤³¤È¤Ç¤¹¡£¸À¸ì¤ÎͳÍè¤Ï¸ÅÂ奮¥ê¥·¥ã¤ÎÅÔ»Ô¡¢¥Ç¥ë¥Ý¥¤¤«¤é¤­¤Æ¤¤¤ë¤è¤¦¤Ç¤¹¡£ÉáÄÌDelphi¤È¤¤¤¦¤È¡¢¥Ü¡¼¥é¥ó¥É¤¬³«È¯¤·¤¿¡¢VisualBasic¤Î¤è¤¦¤Ê¥×¥í¥°¥é¥à³«È¯¥Ä¡¼¥ë¤Î¤³¤È¤ò¸À¤¦¤è¤¦¤Ç¤¹¡£Àë¸À¤Î¤Ê¤¤Á°Êý»²¾È¤òµö¤µ¤Ê¤¤¹½Ê¸¤Ê¤É¤ÎÆÃħ¤ò¤â¤Ä¤³¤Î¸À¸ì¤ÎºÎÍѤˤè¤Ã¤Æ¡¢¥³¥ó¥Ñ¥¤¥ë¤Î¤Ï¤ä¤µ¤¬Â¾¤Î³«È¯¥Ä¡¼¥ë¤è¤ê·²¤òÈ´¤¤¤¿¤â¤Î¤È¤Ê¤Ã¤Æ¤¤¤Þ¤¹¡£¥Ç¡¼¥¿¥Ù¡¼¥¹¤Ë¸þ¤¤¤Æ¤¤¤Æ¡¢¥Ç¡¼¥¿¥Ù¡¼¥¹¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¤Î³«È¯¤ËÍøÍѤµ¤ì¤ë¤³¤È¤¬Â¿¤¤¤Ç¤¹¡£
  • HSP¡¦¡¦¡¦Hot Soup Processer¤Îά¤Ç¡¢¥Õ¥ê¡¼¤ÇÇÛÉÛ¤µ¤ì¤Æ¤¤¤ë¸À¸ì¤Ç¤¹¡£Fortran¤è¤ê¤â´Êñ¤Ëµ­½Ò¤Ç¤­¤ë¸À¸ì¤Ç¡¢¾®³ØÀ¸¤Ç¤âÍý²ò²Äǽ¤È¤¤¤ï¤ì¤ë¤Û¤É´Êñ¤Ê¸À¸ì¤Ç¤¹¡£¥¤¥ó¥¿¥×¥ê¥¿¸À¸ì¤Ç¡¢windows¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¤¬ºîÀ®¤Ç¤­¤ë¸À¸ì¤Ç¤¹¡£Fortran¤Ç¤Ï¥³¥Þ¥ó¥É¥×¥í¥ó¥×¥È²èÌÌ(¥³¥ó¥½¡¼¥ë²èÌÌ)¤Ë¤è¤ë¼Â¹Ô¤Ç¤¹¤¬¡¢HSP¤Ç¤¢¤ì¤Ð¥Ü¥¿¥ó¤ä²èÁü¤ò»ÈÍѤ·¤¿¥½¥Õ¥È¤òºîÀ®¤¹¤ë¤³¤È¤¬²Äǽ¤È¤Ê¤ê¤Þ¤¹¡£
  • HTML¡¦¡¦¡¦¥¹¥¯¥ê¥×¥È¸À¸ì¤È¸Æ¤Ð¤ì¤ë¸À¸ì¤Ç¡¢¥Û¡¼¥à¥Ú¡¼¥¸ºîÀ®ÍѤθÀ¸ì¤È¤·¤ÆÍ­Ì¾¤Ç¤¹¡£¡Ö¥¿¥°¡×¤È¸Æ¤Ð¤ì¤ëÆ»¶ñ¤ò»È¤Ã¤ÆÊ¸¤Î½ñ¼°ÀßÄê¤ä²èÁü¤ÎÇÛÃÖ¡¢¥ª¥Ö¥¸¥§¥¯¥È¤ÎºîÀ®¤ò¹Ô¤Ê¤¦¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£Áàºî¤Ïñ½ã¤Ç¡¢ºÇ¶á¤Î¥ï¡¼¥×¥í¥½¥Õ¥È¤äNetscape¤Ë¤Ï¡¢Ê¸½ñ¤òºîÀ®¤·¤¿¸å¡¢¤½¤ÎÄ̤ê¤Ë¤Ê¤ë¤è¤¦¤ËHTML¤ËÆâÍÆ¤òÊÑ´¹¤¹¤ëµ¡Ç½¤òÈ÷¤¨¤¿¤â¤Î¤¬Â¿¤¤¤Ç¤¹¡£HTML¤Ë»÷¤¿¤â¤Î¤Ë¡¢XHTML¤¬¤¢¤ê¡¢º£¸å¤Ï¤³¤Á¤é¤¬¥Û¡¼¥à¥Ú¡¼¥¸ºîÀ®¤Î¥á¥¤¥ó¥Ä¡¼¥ë¤È¤Ê¤ë¤½¤¦¤Ç¤¹¡£HTML¤Çµ­½Ò¤·¤¿ÆâÍÆ¤¬Á´¤Æ¤Î¥Ö¥é¥¦¥¶¤ËÈ¿±Ç¤µ¤ì¤ë¤ï¤±¤Ç¤Ï¤Ê¤¯¡¢Î㤨¤Ð¡Öbordercolor¡×Ì¿Îá¤Ï¡¢IE¤Ç¤Ïµ¡Ç½¤·¤Þ¤¹¤¬¡¢Opera¤Ç¤Ï̵¸ú¤È¤Ê¤Ã¤Æ¤·¤Þ¤¤¤Þ¤¹¡£
  • Java¡¦¡¦¡¦ÊÆ¥µ¥ó¡¦¥Þ¥¤¥¯¥í¥·¥¹¥Æ¥à¥º¤¬³«È¯¤·¤¿¸À¸ì¤Ç¤¹¡£¸À¸ì¤ÎͳÍè¤Ï¥¸¥ã¥ïÅç¤Î¥³¡¼¥Ò¡¼Æ¦¤«¤éÍè¤Æ¤¤¤ë¤½¤¦¤Ç¤¹¡£C++¤ò¥Ù¡¼¥¹¤Ë¤·È¯Å¸¤µ¤»¤¿¸À¸ì¤Ç¡¢C++¤ÎÆÃħ¤Ç¤â¤¢¤ë¡¢¥ª¥Ö¥¸¥§¥¯¥È»Ø¸þ¤ò¥á¥¤¥ó¤Ë¤·¡¢C¤Ç¤Ïͭ̾¤À¤¬´í¸±À­¤Î¹â¤¤¥Ý¥¤¥ó¥¿µ¡Ç½¤ä¥¯¥é¥¹¤Î¿½Å·Ñ¾µ¤òÇÓ½ü¤·¤Æ¤¤¤Þ¤¹¡£¤â¤È¤â¤È¤Ï²ÈÅŤËÁȤ߹þ¤àÌÜŪ¤Ç³«È¯¤µ¤ì¤¿¤¬¡¢²ÈÅť᡼¥«¡¼¤«¤é¤Î¼ûÍפ¬¾¯¤Ê¤¯¡¢°ì»þ¤ÏºÂ¾Ì¤·¤Þ¤·¤¿¤¬¡¢¥¤¥ó¥¿¡¼¥Í¥Ã¥È¤ÎÉáµÚ¤Ë¤è¤ê¡¢¤½¤ÎÃϰ̤ò°ìµ¤¤Ë¹â¤á¤¿¡£Java²¾ÁÛ¥Þ¥·¥ó¤ò»ÈÍѤ·¥Ð¥¤¥È¥³¡¼¥É¤òÀ¸À®¤¹¤ë¤³¤È¤Ç¡¢¤É¤ÎOS¤Ç¤¢¤Ã¤Æ¤â¤½¤ÎOS¤Îµ¡³£¸ì¤ÎÊý¼°¤Ë¤¢¤ï¤»»ÈÍѤ¹¤ë¤³¤È¤¬¤Ç¤­¤ëÈÆÍÑÀ­¤ä¡¢¥¢¥×¥ì¥Ã¥È¤È¤¤¤¤Web¤«¤é¥À¥¦¥ó¥í¡¼¥É¸å¥Ö¥é¥¦¥¶¾å¤Ç¤â¥×¥í¥°¥é¥à¤¬ºîư¤¹¤ë¤È¤³¤í¤¬¡¢Â¾¤Î¥×¥í¥°¥é¥ß¥ó¥°¸À¸ì¤Ë¾¡¤Ã¤Æ¤¤¤Þ¤¹¡£¼Â¹Ô®ÅÙ¤ÎÃÙ¤µ¤ò½ü¤±¤Ð¡¢Java¤Ï²¿¤Ç¤â¤Ç¤­¤ë¸À¸ì¤È¤¤¤ï¤ì¤Þ¤¹¡£
  • Javascript¡¦¡¦¡¦Êƥͥåȥ³¥ß¥å¥Ë¥±¡¼¥·¥ç¥ó¥º¤¬³«È¯¤·¤¿¥¹¥¯¥ê¥×¥È¸À¸ì¤Ç¤¹¡£¥ª¥Ö¥¸¥§¥¯¥È»Ø¸þ¤òÈ÷¤¨¤¿¤â¤Î¤Ç¡¢HTML¤ÈƱ¤¸¤¯¥Û¡¼¥à¥Ú¡¼¥¸ºî¤ê¤Ë³èÌö¤·¤Þ¤¹¡£Java¤È¤¤¤¦Ì¾Á°¤¬ÉÕ¤¤¤Æ¤¤¤Þ¤¹¤¬¡¢Java¤È¤ÏÊ̤θÀ¸ì¤Ç¡¢Java¤ÎÆÃħ¤Ç¤¢¤ë¥Ð¥¤¥È¥³¡¼¥É¤ÎÀ¸À®¤Ï¹Ô¤Ê¤¤¤Þ¤»¤ó¡£Java¤¬ÉÕ¤¤¤Æ¤¤¤ë¤Î¤Ï¡¢Java¤¬Î®¹Ô¤·¤Æ¤¤¤¿¤½¤ÎÇȤ˾è¤Ã¤«¤ë¤¿¤á¤Ë¤Ä¤±¤¿¤È¤¤¤ï¤ì¤Æ¤¤¤Þ¤¹¡£Javascript¤À¤±¤Ç»ÈÍѤµ¤ì¤ë¤³¤È¤Ï¤Þ¤º¤Ê¤¯¡¢HTML¤Ç½ñ¤«¤ì¤¿Ê¸¾Ï¤Ë¡¢Äɲä·¤¿¤¤µ¡Ç½¤òJavaScript¤Çµ­½Ò¤µ¤ì¤¿Ê¸¤òÁÞÆþ¤¹¤ë¤³¤È¤Ç»ÈÍѤ·¤Þ¤¹¡£²èÁü¤¬°ìÄê»þ´Ö¸å¤ËÊѲ½¤¹¤ëºòÆü¤Ê¤É¡¢HTML¤Ç¤Ïɽ¸½¤Ç¤­¤Ê¤¤¤³¤È¤òWeb¾å¤Ë¼Â¸½¤·¡¢¥Ú¡¼¥¸¤ÎÆâÍÆ¤ò¿ºÌ¤Ë¤¹¤ë¤³¤È¤¬²Äǽ¤Ç¤¹¡£HTMLƱÍÍ¡¢¥Ö¥é¥¦¥¶¤Ë¤è¤Ã¤Æ¤½¤Îµ¡Ç½¤¬»ÈÍѲÄǽ½Ð¤Ê¤¤¾ì¹ç¤¬¤¢¤ê¤Þ¤¹¡£
  • Pascal¡¦¡¦¡¦¥¹¥¤¥¹Ï¢Ë®¹©²ÊÂç³Ø¤Î¥ô¥£¥ë¥È¶µ¼ø¤¬È¯É½¤·¤¿¸À¸ì¤Ç¡¢Ì¾Á°¤ÎͳÍè¤Ï¡¢À¤³¦¤ÇºÇ½é¤Îµ¡³£¼°·×»»µ¡¤òȯÌÀ¤·¤¿¥Ö¥ì¡¼¥º¡¦¥Ñ¥¹¥«¥ë¤Î̾Á°¤Ë¤Á¤Ê¤ó¤À¤â¤Î¤À¤½¤¦¤Ç¤¹¡£ALGOL¤Î±Æ¶Á¤ò¶¯¤¯¼õ¤±¤¿¸À¸ì¤Ç¤â¤¢¤ê¡¢¹½Â¤²½¥×¥í¥°¥é¥ß¥ó¥°¤ÎÉáµÚ¤òC¸À¸ì¤È¶¦¤Ëô¤Ã¤¿¸À¸ì¤Ç¤â¤¢¤ê¤Þ¤¹¡£¥×¥í¥°¥é¥ß¥ó¥°¼«ÂΤζµ°é¤òÌÜŪ¤È¤·¤Æ¤¤¤Æ¡¢È¯É½¼Ô¤Ç¤¢¤ë¥ô¥£¥ë¥È¶µ¼ø¤¬¤³¤Î¸À¸ì¤òÍѤ¤¤Æ¤³¤Î¸À¸ì¤Î¥³¥ó¥Ñ¥¤¥é¤òºî¤Ã¤Æ¡¢¡Ö¸À¸ì»ÅÍͤȺÇŬ²½¤ÏÆÈΩ¤·¤¿ÌäÂê¤Ç¤¢¤ë¡×¤³¤È¤ò¾ÚÌÀ¤·¤Þ¤·¤¿¡£¥·¥ó¥×¥ë¤Ê¹½Â¤¡¢Ë­É٤ʥǡ¼¥¿·¿¤ò»ý¤Á¡¢Í­Ì¾¤Ê¸À¸ì¤Ë¤Ê¤ê¤Þ¤·¤¿¡£º£¤Ç¤Ï¥Ü¡¼¥é¥ó¥É¤ÎDelphi¤Ç¡¢¸å·Ñ¤Î¡ÖTurbo Pascal¡×¤ò»ÈÍѤµ¤ì¤Æ¤¤¤Þ¤¹¡£
  • Perl¡¦¡¦¡¦Practical Extranction and Report Language¤Îά¤Ç¡¢Ì¾Á°¤¬¼¨¤¹¤è¤¦¤Ë¼ÂÍÑÀ­¤ò½Å»ë¤·¤¿»ÅÁȤߤθÀ¸ì¤Ç¤¹¡£¥Û¡¼¥à¥Ú¡¼¥¸¤Ë¤è¤¯»ÈÍѤµ¤ì¤ë·Ç¼¨ÈĤ䥢¥¯¥»¥¹¥«¥¦¥ó¥¿¡¼¤ÏCGI¤È¸Æ¤Ð¤ì¤ë¤â¤Î¤Ç¡¢¤³¤ÎCGI¤òºî¤ë¤Î¤ËŬ¤·¤Æ¤¤¤ë¤Î¤¬¤³¤ÎPerl¤Ç¤¹¡£¤½¤Î¾¥Æ¥­¥¹¥È¤ä¥Õ¥¡¥¤¥ë¤ò½èÍý¤¹¤ë¤Î¤Ë¸þ¤¤¤Æ¤¤¤Þ¤¹¡£¥¤¥ó¥¿¥×¥ê¥¿¸À¸ì¤Ç¥½¡¼¥¹ºîÀ®¤¬²÷Ŭ¤Ç¡¢¶¯ÎϤÊʸ»úÎó±é»»µ¡Ç½¤äÀµµ¬É½¸½¡¢µöÍÆÅ٤ι⤤µ­½ÒÊýË¡¤¬ÆÃħ¤Ç¤¹¡£
  • Python¡¦¡¦¡¦Guido van Rossum¤Ë¤è¤Ã¤Æ¤Ä¤¯¤é¤ì¤¿¡¢¥ª¥Ö¥¸¥§¥¯¥È»Ø¸þ¤Î¥¹¥¯¥ê¥×¥È¸À¸ì¤Ç¤¹¡£»ÈÍѤ¬´Êñ¤Ç¡¢Éý¹­¤¤»Ù»ýÁؤ¬¤¢¤ê¡¢¶µ°éÍѤȤ·¤ÆÃæ³ØÀ¸¤Ç¤Î»ÈÍѤ⤢¤ë¤è¤¦¤Ç¤¹¡£¥¤¥ó¥¿¥×¥ê¥¿·¿¤Ç¡¢Java¤È»÷¤¿Êý¸þÀ­¤Î¸À¸ì¤Ç¤¹¡£¸«¤¿ÌܤÎÈþ¤·¤µ¤ò½Å»ë¤¹¤ëÌ̤¬¤¢¤ê¡¢Â¾¤Î¸À¸ì¤ÈÆÃ¤Ë°ã¤¦¤Î¤Ï¡¢¥¤¥ó¥Ç¥ó¥È¤Ë¤è¤ëʸ»ú°ÌÃÖ¤ÎÄ´À°¤¬µÁ̳¤È¤Ê¤Ã¤Æ¤¤¤ë¤È¤³¤í¤Ç¤¹¡£Fortran¤äC¸À¸ì¤Ç¤Ï¸«¤¿Ìܤò¤ï¤«¤ê¤ä¤¹¤¯¤¹¤ë¤¿¤á¤ËIFʸ¤Î²¼¤Îʸ¤ò¿ôʸ»úʬ±¦¤Ë°Üư¤µ¤»¤Þ¤¹¤¬¡¢Python¤Î¾ì¹ç¤Ï¤³¤Îʸ»ú°ÌÃÖ¤Î°ÜÆ°¤ò¤·¤Ê¤¤¤Èʸ¤¬À®Î©¤·¤Ê¤¤¤Î¤Ç¤¹¡£¤³¤Î»ÈÍѤÎÌÜŪ¤Ï¡¢¿Ç¤Æ¤¤¤ÆÊ¬¤«¤ê¤ä¤¹¤¤Ê¸¾Ï¤ÎºîÀ®¤òÄɵڤ¹¤ë¤È¤¤¤¦¤³¤È¤Î¤è¤¦¤Ç¤¹¡£¤½¤Î¤Û¤«¡¢C¤äJava¤Ê¤É¾¤Î¸À¸ì¤Ëµ¡Ç½¤òÄɲ乤뤳¤È¤¬¤Ç¤­¤¿¤ê¡¢³ÈÄ¥¤ÎºÝ¤Ë¥³¥ó¥Ñ¥¤¥ë¤¬É¬Íפʤ¤¤Ê¤É¤¬ÆÃħ¤È¤·¤Æµó¤²¤é¤ì¤Þ¤¹¡£
  • Ruby¡¦¡¦¡¦¥ª¥Ö¥¸¥§¥¯¥È»Ø¸þ¤Î¥¹¥¯¥ê¥×¥È¸À¸ì¤Ç¡¢¤Þ¤Ä¤â¤È¤æ¤­¤Ò¤í»á¤¬ºîÀ®¤·¤¿¤â¤Î¤Ç¤¹¡£¥Æ¥­¥¹¥È½èÍý¤Ë¸þ¤¤¤Æ¤¤¤Æ¡¢¥ª¥Ö¥¸¥§¥¯¥È»Ø¸þ¤Îºî¤ê¤¬¥·¥ó¥×¥ë¤Ë¤Ê¤Ã¤Æ¤¤¤Þ¤¹¡£Ì¾Á°¤ÎͳÍè¤ÏƱ¤¸¥Æ¥­¥¹¥È½èÍý¸þ¤±¤ÎPerl¤òÊõÀФΥѡ¼¥ë¤Ë¤¿¤È¤¨¡¢¥ë¥Ó¡¼¤È¤¤¤¦¤³¤È¤Ç¤³¤Î̾Á°¤¬ÉÕ¤¤¤¿¤½¤¦¤Ç¤¹¡£Perl¤Ë¥ª¥Ö¥¸¥§¥¯¥È»Ø¸þ¤òÉղä·¤¿¤â¤Î¤Ç¡¢Python¤È¤è¤¯»÷¤¿Â¸ºß¤Ç¡¢°ì»þ¤É¤Á¤é¤Î¤Û¤¦¤¬¤¤¤¤¤Î¤«Áè¤ï¤ì¤¿¤³¤È¤â¤¢¤ê¤Þ¤·¤¿¡£³«È¯¼Ô¤ÎÊý¿Ë¤È¤·¤Æ¤Ï¡¢¤È¤Ë¤«¤¯¥¹¥È¥ì¥¹¤Ê¤¯¤¤¤í¤¤¤í¤Êµ­½Ò¤Î»ÅÊý¤¬¤Ç¤­¤ë¡¦¸À¸ì»ÈÍѤˤè¤ë¥¨¥é¡¼¤òºÇ¾®²½¤¹¤ë¤Ê¤É¤¬¤¢¤ê¤Þ¤¹¡£


¥¨¥é¡¼¤Ø¤ÎÂнèË¡


¡¡ ¡¡¥×¥í¥°¥é¥ß¥ó¥°¤Ë¤Ï¥¨¥é¡¼¤¬¤Ä¤­Êª¤Ç¤¹¡£¤É¤ó¤Ê¥×¥í¥°¥é¥Þ¡¼¤À¤Ã¤Æ¡¢°ìÅ٤⥨¥é¡¼¤ò¤·¤¿¤³¤È¤ÏÀäÂФʤ¤¤·¡¢¤Þ¤¿Á´Á³¥¨¥é¡¼¤ò¤·¤Ê¤¯¤Ê¤ë¤³¤È¤À¤Ã¤Æ¤­¤Ã¤È¤Ê¤¤¤È»×¤¤¤Þ¤¹¡£¤½¤Î¿ô¤Ï¾¯¤Ê¤¯¤Ê¤Ã¤¿¤Ã¤Æ¡¢¤É¤¦¤·¤¿¤Ã¤Æ¥¨¥é¡¼¤È¤Ï¤¦¤Þ¤¯¤ªÉÕ¤­¹ç¤¤¤·¤Æ¤¤¤«¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£
¡¡¥¨¥é¡¼¤Ï¥×¥í¥°¥é¥Þ¤Î¥ß¥¹¤Ë¤è¤Ã¤Æµ¯¤³¤ê¤Þ¤¹¡£ÆÃ¤Ë¥³¥ó¥Ñ¥¤¥ë»þ¤Î¥¨¥é¡¼¤Ï¤½¤¦¤Ç¤¹¡£¼Â¹Ô»þ¤Î¥¨¥é¡¼¤Ë¤Ï¥³¥ó¥Ô¥å¡¼¥¿¤¬¸¶°ø¤Çµ¯¤³¤ë¤â¤Î¤¬¤¢¤ë¤«¤â¤·¤ì¤Þ¤»¤ó¤¬¡¢¥³¥ó¥Ñ¥¤¥ë»þ¤Ïʸˡ¤Î´Ö°ã¤¤¤Ç°ú¤­µ¯¤³¤ë¤â¤Î¤¬¤Û¤È¤ó¤É¤Ç¤¹¡£Á´¤Æ¤¬¥×¥í¥°¥é¥Þ¤¬¸¶°ø¤Î¥¨¥é¡¼¤Ç¤¢¤ë¤ï¤±¤Ç¤Ï¤¢¤ê¤Þ¤»¤ó¤±¤É¤Í¡£Î㤨¤ÐFortran77¤Î¥³¥ó¥Ñ¥¤¥é¤ËFortran90¤Îʸˡ¤ò»ý¤Á¹þ¤á¤Ð¥¨¥é¡¼¤Ë¤Ê¤Ã¤Æ¤·¤Þ¤¤¤Þ¤¹¤«¤é¡¢¥Ð¡¼¥¸¥ç¥ó¤ò¤·¤Ã¤«¤ê°Õ¼±¤·¤Æ¤¤¤Ê¤«¤Ã¤¿¥×¥í¥°¥é¥Þ¤¬°­¤¤¤È¤¤¤¨¤Ð°­¤¤¤Î¤Ç¤¹¤¬¡¢¥³¥ó¥Ñ¥¤¥é¤¬¸Å¤¤¤Î¤¬ÌäÂê¤Ç¤¹¡£¤È¤â¤«¤¯¡¢¤É¤¦¤ä¤Ã¤¿¤é¥¨¥é¡¼¤ò¤Ê¤¯¤·¤Æ¤¤¤±¤ë¤Ç¤·¤ç¤¦¤«¡£¤¢¤ë¤¤¤Ï¾¯¤Ê¤¯¤·¤Æ¤¤¤±¤ë¤Ç¤·¤ç¤¦¤«¡£´°àú¤ÊÊýË¡¤¬¤¢¤ì¤ÐÅöÁ³¤¤¤¤¤Î¤Ç¤¹¤¬¡¢¤É¤¦¤·¤Æ¤âºÇ¸å¤Ï¥×¥í¥°¥é¥Þ¼¡Âè¤Ë¤Ê¤Ã¤Æ¤·¤Þ¤¤¤Þ¤¹¡£¤½¤ì¤Ç¤â¾¯¤Ê¤¯¤¹¤ë¿´¹½¤¨¡¢¥¬¥¤¥É¥é¥¤¥ó¤Ï¸ºß¤·¤Þ¤¹¤«¤é¡¢¤½¤ì¤ò¼ÂÁ©¤·¤Æ¤¤¤­¤Þ¤·¤ç¤¦¡£¤â¤Á¤í¤óFortran¤ÎÏäǤ¹¤¬¡£
¡¡¤Þ¤º¤É¤¦¤ä¤Ã¤Æ¥½¡¼¥¹¥³¡¼¥É¤òºîÀ®¤·¤Æ¤¤¤Ã¤¿¤é¤¤¤¤¤«¤ÎÏäǤ¹¡£Fortran¤Î¥µ¥¤¥È¤Ï¿ô¾¯¤Ê¤¤¤Ê¤¬¤é¤â¤½¤ì¤Ê¤ê¤Ë¤¢¤ë¤Î¤Ç¡¢¤½¤ì¤é¤ò¸«¤Æ²ó¤Ã¤¿¤È¤³¤í¡¢¤¤¤¯¤Ä¤«¶¦Ä̤¹¤ë¸«²ò¤¬¤¢¤ê¤Þ¤·¤¿¤Î¤Ç¡¢¤½¤ì¤ò¾Ò²ð¤·¤¿¤¤¤È»×¤¤¤Þ¤¹¡£Ëͤηи³¤âƧ¤Þ¤¨¤Æ¤ªÏä·¤Þ¤¹¡£
¡¡¤Þ¤º¡¢¼«Í³·Á¼°¤Ç½ñ¤­¤Þ¤·¤ç¤¦¡£Fortran¤Ë¤Ï77°ÊÁ°¤Î¸ÇÄê·Á¼°¤È¡¢90°Ê¹ß¤Î¼«Í³·Á¼°¤È¤Ë¥×¥í¥°¥é¥ß¥ó¥°¥¹¥¿¥¤¥ë¤¬Ê¬¤«¤ì¤Þ¤¹¤¬¡¢77¤ÎÊýË¡¤Ï˺¤ì¤Æ¤¯¤À¤µ¤¤¡£¸ÇÄê·Á¼°¤ÏÈó¾ï¤Ë»È¤¤¤Å¤é¤¤¤Ç¤¹(77¤Î¥³¥ó¥Ñ¥¤¥é¤ò»ÈÍѤ·¤Æ¤¤¤ë¿Í¤Ë¤Ï̵Íý¤ÊÏäǤ¹¤¬)¡£¸ÇÄê·Á¼°¤ÎÆÃħ¤Ï¡¢°ì¹Ô¤Ë¤«¤±¤ë¤Î¤¬72Íó¤Þ¤Ç¤Ç¡¢»Ï¤á¤Î5Íó¤Þ¤Ç¤ÏʸÈÖ¹æÍÑ¡¢6Íó¤Ïʸ¤ÎÀÞ¤êÊÖ¤·¤ò¼¨¤¹µ­¹æÍѤȤ·¤Æ·è¤á¤é¤ì¤Æ¤¤¤Æ¡¢¼ÂºÝ¤Ëʸ¤ò½ñ¤­»Ï¤á¤ë¤³¤È¤¬¤Ç¤­¤ë¤Î¤Ï7Í󤫤é¤Ç¤¹¡£¼Â¼Á66¸Ä¤·¤«Ê¸»ú¤ò½ñ¤¯¤³¤È¤¬¤Ç¤­¤Þ¤»¤ó¡£¥×¥í¥°¥é¥à¤Ë¤è¤Ã¤Æ¤ÏÌäÂê¤Ê¤¤¤Ç¤¹¤¬¡¢¤¤¤µ¤µ¤«¾¯¤Ê¤¹¤®¤Þ¤¹¡£¤½¤·¤Æ½ñ¤­¤­¤ì¤Ê¤«¤Ã¤¿¤éÀÞ¤êÊÖ¤¹¤Î¤Ç¤¹¤¬¡¢ÀÞ¤êÊÖ¤¹¤È¤­¤Ë¤Ï6Íó¤Ë¤½¤ÎÌܰõ¤Îµ­¹æ¤ò½ñ¤«¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£¥¿¥Ö¤ò»È¤Ã¤Æ¥¤¥ó¥Ç¥ó¥È¤·¤Æ¤¤¤ë¾ì¹ç¤Ë¡¢¤³¤Î½èÍý¤Ï¤È¤Æ¤â·ù¤Ê¤â¤Î¤Ë´¶¤¸¤Æ¤­¤Þ¤¹¡£¤Ê¤¼¤Ê¤é¡¢ÀÞ¤êÊÖ¤¹Á°¤Î¥¤¥ó¥Ç¥ó¥È¤Î°ÌÃ֤˷ѳʸ¤ò°Üư¤µ¤»¤ë¤È¡¢ÀÞ¤êÊÖ¤·µ­¹æ¡Ö+¡×¤È¤Î´Ö¤Ë¶õÇò¤¬À¸¤¸¤Æ¤·¤Þ¤¤¡¢ÀÞ¤êÊÖ¤¹Á°¤Îʸ¤È¤Î´Ö¤Ë¶õÇò¤¬Æþ¤ê¹þ¤ó¤Ç¤·¤Þ¤¦¤«¤é¤Ç¤¹¡£¤³¤Î¤è¤¦¤Ë¡¢¡Ö¸ÇÄê¡×·Á¼°¤È¤¤¤¦¤À¤±¤¢¤Ã¤Æ¡¢¤½¤Î»È¤¤¾¡¼ê¤Ï¤«¤Ê¤êÀ©¸Â¤Î²Ã¤¨¤é¤ì¤¿¤â¤Î¤Ç¤¢¤ë¤È¤¤¤¦¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£
¡¡¼«Í³·Á¼°¤Ë¤¹¤ì¤Ð¡¢¡ÖÍó¡×¤È¤¤¤¦³µÇ°¤¬¤Ê¤¯¤Ê¤ê¡¢1¹Ô132Îó¤Þ¤Ç½ñ¤¯¤³¤È¤¬²Äǽ¤Ë¤Ê¤ê¤Þ¤¹¡£ÍפϸÇÄê·Á¼°¤Î2ÇܤÎʸÎ̤ò°ì¹Ô¤Ë½ñ¤¯¤³¤È¤¬²Äǽ¤È¤Ê¤ë¤ï¤±¤Ç¤¹¡£¤µ¤é¤Ë¤É¤Î°ÌÃÖ¤«¤é½ñ¤­»Ï¤á¤ë¤³¤È¤â²Äǽ¤Ë¤Ê¤ê¡¢ÀÞ¤êÊÖ¤·µ­¹æ¡Ö&¡×¤â¤É¤Î°ÌÃ֤˽ñ¤¤¤Æ¤â¹½¤ï¤Ê¤¯¤Ê¤Ã¤¿¤Î¤Ç¡¢¼«Í³¤Ê¥½¡¼¥¹ºîÀ®¤¬¼Â¸½¤·¤Þ¤¹¡£¥³¥á¥ó¥È¤â¸ÇÄê·Á¼°¤Ç¤Ï1¹Ô´Ý¤Þ¤ë»ÈÍѤ·¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤«¤Ã¤¿¤Î¤¬¡¢Ì¿Îáʸ¤Î±¦Â¦¤ËÉÕ¤±¤ë¤³¤È¤¬¤Ç¤­¤ë¤è¤¦¤Ë¤Ê¤ë¤Î¤Ç¡¢¥½¡¼¥¹Ê¸¤ò¼ÙË⤹¤ë¤³¤È¤Ê¤¯¡¢²£Â¦¤Ëꤍ¤ë·Á¤ÇÀâÌÀ¤ò²Ã¤¨¤ë¤³¤È¤¬²Äǽ¤Ë¤Ê¤ê¤Þ¤¹¡£¥»¥ß¥³¥í¥ó¤ò¶´¤á¤Ð°ì¹Ô¤Ë²¿¸Ä¤Ç¤âÌ¿Îáʸ¤ò°µ½Ì¤¹¤ë¤³¤È¤¬²Äǽ¤Ê¤Î¤âÊØÍø¤Ç¤¹¡£
¡¡¼¡¤Ëµó¤²¤Æ¤ª¤­¤¿¤¤¤Î¤¬¡¢Ê¸ÈÖ¹æ¤Î»ÈÍѤò¤ä¤á¤è¤¦¤È¤¤¤¦¤³¤È¤Ç¤¹¡£Ê¸ÈÖ¹æ¤ÏGOTOʸ¤äFORMATʸ¤Ç»ÈÍѤµ¤ì¤ë³µÇ°¤Ç¤¹¤¬¡¢¤³¤ì¤¬¥¨¥é¡¼¤Î¸µ¤Ë¤Ê¤ë¤³¤È¤¬Â¿¤¤¤è¤¦¤Ç¤¹¡£Ê¸ÈÖ¹æ¤ò»ÈÍѤ¹¤ë¾ì¹ç¤Ï¡¢º£¤É¤ÎʸÈÖ¹æ¤Þ¤Ç»ÈÍѤ·¤Æ¤¤¤¿¤Î¤«¤ò³Îǧ¤¹¤ëºî¶È¤¬ÌÌÅݤ¯¤µ¤¯¡¢¤â¤·´Ö°ã¤¨¤Æ´û¤ËÈ֤äƤ¤¤ëÈÖ¹æ¤ò»ÈÍѤ·¤Æ¤·¤Þ¤¨¤Ð¥¨¥é¡¼¤Ë¤Ê¤Ã¤Æ¤·¤Þ¤¤¡¢´Ö°ã¤Ã¤¿°ÌÃÖ¤ËÈÖ¹æ¤ò¤Ä¤±¤Æ¤·¤Þ¤¨¤Ð¼Â¹Ô¥¨¥é¡¼¤Î¸¶°øÃµ¤·¤Ë°ì¶ìÏ«¤È¤Ê¤Ã¤Æ¤·¤Þ¤¤¤Þ¤¹¡£FORMAT¤°¤é¤¤¤Ç¤·¤¿¤é¡¢WRITEʸ¤äPRINTʸ¤Î²¼¤Ë¤¢¤ë¤«¤é¤¤¤¤¤Ç¤·¤ç¤¦¤¬¡¢GOTOʸ¤Î¾ì¹ç¤Ï¤É¤³¤Ë¸þ¤«¤Ã¤ÆÈô¤ó¤Ç¤¤¤ë¤Î¤«¤¬Ê¬¤«¤ê¤Ë¤¯¤¤¤Ç¤¹¤·¡¢Èô¤ÓÀè¤ÎÈÖ¹æ¤Î°ÌÃÖ¤¬¤¢¤Ã¤Æ¤¤¤ë¤Î¤«¤¬Ê¬¤«¤ê¤Ë¤¯¤¤¾ì¹ç¤¬¤¢¤ê¤Þ¤¹¡£¤Þ¤¿Ê¸ÈÖ¹æ¤È¤·¤Æ³Îǧ¤·¤¿¤¦¤¨¤Ç20ÈÖ¤ò½ñ¤³¤¦¤È¤·¤Æ¤¤¤¿¤Î¤Ë¡¢´ª°ã¤¤¤Ç10È֤Ƚñ¤¤¤Æ¤·¤Þ¤¦¤³¤È¤â¤¢¤ê¤Þ¤¹¤Î¤Ç¡¢Ê¸ÈÖ¹æ¤Î»ÈÍѤϤä¤á¤¿¤Û¤¦¤¬¤¤¤¤¤Ç¤¹¡£¹¬¤¤Fortran¤âʸÈÖ¹æ¤Ê¤·¤Ç½½Ê¬¥×¥í¥°¥é¥à¤¬¤«¤±¤ë¤°¤é¤¤¤ËÀ®Ä¹¤·¤Æ¤¤¤Þ¤¹¡£°ÊÁ°¤Ï¾ò·ï¤Ë¤è¤ê¥ë¡¼¥×¤òÅÓÃæ¤ÇÈ´¤±½Ð¤·¤¿¤¤¤È¤­¤ÏGOTOʸ¤·¤«¤¢¤ê¤Þ¤»¤ó¤Ç¤·¤¿¤¬¡¢º£¤ÏEXITʸ¤¬¤¢¤ê¡¢DOʸ¤Ë¥ë¡¼¥×̾¤ò¤Ä¤±¤Æ¤ª¤±¤Ð¡¢Â¿½Å¥ë¡¼¥×¤«¤é°ìµ¤¤ËÈ´¤±¤ë»ö¤À¤Ã¤Æ²Äǽ¤Ç¤¹¡£CONTINUE¤âƱÍͤǤ¹¡£ENDDOʸ¤¬¤¢¤ë¤Î¤Ç¤¹¤«¤é¡¢ÉÔÍפÇÌÌÅݤ¯¤µ¤¤Ê¸ÈÖ¹æ¤ÎɬÍפÊCONTINUEʸ¤Ï¤ä¤á¤Þ¤·¤ç¤¦¡£Æþ¤ì»Ò¤¬Â¿¤¹¤®¤Ç¡¢¤³¤ÎENDDOʸ¤Ï¤É¤ÎDOʸ¤ÈÂФò¤Ê¤·¤Æ¤¤¤ë¤Î¤«Ê¬¤«¤é¤Ê¤¤¤è¤¦¤Ç¤¢¤ì¤Ð¡¢¥³¥á¥ó¥È¤ò¤Ä¤±¤Æ¤ª¤¯¤È¤«¡¢DO¹½Ê¸Ì¾¤ò½ñ¤¤¤Æ¤ª¤±¤ÐÂç¾æÉפǤ¹¡£FORMATʸ¤â½ÐÎÏʸ¤Ë¾Êά¤·¤Æ½ñ¤¯¤³¤È¤Ç¡¢Ê¸ÈÖ¹æ¤Ê¤·¤Ç½ñ¼°ÉÕ½ÐÎϤò¹Ô¤Ê¤¦¤³¤È¤â¤Ç¤­¤ë¤è¤¦¤Ë¤Ê¤Ã¤Æ¤¤¤ë¤Î¤Ç¡¢Ê¸Èֹ椬¤Ê¤¯¤Æ¤â½½Ê¬¥×¥í¥°¥é¥à¤ÏÁȤá¤Þ¤¹¡£¥À¥¤¥¯¥¹¥È¥é¤Îº¢¤«¤éÈãȽ¤Î¿¤«¤Ã¤¿Ê¸ÈÖ¹æ¤Ï¡¢»È¤¦¤Î¤ò¤ä¤á¤Þ¤·¤ç¤¦¡£
¡¡FortranÆÃÍ­¤Îµ¡Ç½¤Ç¤¢¤ë°ÅÌۤη¿Àë¸À¤¬¤¢¤ê¤Þ¤¹¤Í¡£¤³¤ì¤Ï»ÈÍѤ¹¤Ù¤­¤Ç¤Ï¤¢¤ê¤Þ¤»¤ó¡£³Î¤«¤ËÊØÍø¤ÊÌ̤Ϥ¢¤ê¤Þ¤¹¡£Î㤨¤Ð¥«¥¦¥ó¥¿¤È¤·¤ÆËͤÏi¤äj¤ò¤è¤¯»ÈÍѤ·¤Æ¤¤¤Þ¤¹¡£¤³¤ì¤é¤Ï°ìʸ»ú¤Ç¤¹¤«¤é¡¢ÂǤÁ´Ö°ã¤¨¤·¤Ê¤¤¤Î¤Ç¡¢°ÅÌۤη¿Àë¸À¤ÎÉÔÍø±×¤òÈï¤ë¤³¤È¤Ê¤¯¡¢¤ï¤¶¤ï¤¶integer¤Ç·¿Àë¸À¤ò¤¹¤ë¤³¤È¤Ê¤¯»ÈÍѤǤ­¤Þ¤¹¡£¤³¤Î¥¹¥à¡¼¥º¤Ê¥½¡¼¥¹ºîÀ®¤ò»Ù±ç¤¹¤ë¤Î¤¬°ÅÌۤη¿Àë¸À¤Ç¤¹¡£¤·¤«¤·¡¢°ÅÌۤη¿Àë¸À¤ÏÊÑ¿ô̾¤ÎÂǤÁ´Ö°ã¤¤¤ò¡¢¿·¤·¤¤ÊÑ¿ô¤ÎºîÀ®¤È¸íǧ¤·¤Æ¤·¤Þ¤¤¡¢¥³¥ó¥Ñ¥¤¥é¤¬¥¨¥é¡¼¤òȯ¸«¤·¤Þ¤»¤ó¡£ºÇ½é¡Öia¡×¤È»È¤Ã¤Æ¤¤¤Æ¡¢¼¡¤Ë¡Öla¡×¤È½ñ¤­´Ö°ã¤¨¤Æ¤·¤Þ¤Ã¤Æ¤â¡¢¥³¥ó¥Ñ¥¤¥ë¤¬µ¤ÉÕ¤¤¤Æ¤¯¤ì¤Ê¤¤¤Î¤Ç¡¢ÌÀ¤é¤«¤Ë°Õ¿Þ¤·¤Ê¤¤¼Â¹Ô·ë²Ì¤òÆÀ¤ë¤³¤È¤Ë¤Ê¤Ã¤Æ¤·¤Þ¤¤¤Þ¤¹¡£¤Þ¤¿¡Ökazu¡×¤ÏÀ°¿ô·¿¤Ç¤¢¤ë¤Ë¤â¤«¤«¤ï¤é¤º¡¢°Õ¼±¤»¤º¼Â¿ô·¿¤ÎÊÑ¿ô¤ÈÍѤ¤¤Æ¤·¤Þ¤¦¤«¤â¤·¤ì¤Þ¤»¤ó¡£ËͤΥ³¥ó¥Ñ¥¤¥é¤ÏÆþÎϸå¤Ï°úÍÑ¡¢Àë¸À¸å¤ÏÆþÎϤ·¤Ê¤¤¤È¥³¥ó¥Ñ¥¤¥ë¥¨¥é¡¼¤Ë°ú¤Ã³Ý¤«¤ë¤Î¤Ç¤¢¤ëÄøÅ٤ϥ³¥ó¥Ñ¥¤¥ë»þ¤Ëµ¤ÉÕ¤¯¤³¤È¤¬¤Ç¤­¤Þ¤¹¤¬¡¢¤Ê¤ë¤Ù¤¯¤³¤¦¤·¤¿¤Ä¤Þ¤é¤Ê¤¤¥¨¥é¡¼¤Ïµ¯¤³¤µ¤Ê¤¤¤è¤¦¤Ë¤¹¤ë¤¿¤á¤Ë¡¢°ÅÌۤη¿Àë¸À¤ÏÉõ°õ¤¹¤ë¤Ù¤­¤Ç¤¹¡£Éõ°õ¤Î»ÅÊý¤ÏÃΤäƤ¤¤Þ¤¹¤Í¡£IMPLICITʸ¤òÍѤ¤¤Þ¤¹¡£¥×¥í¥°¥é¥àñ°Ì¤ÎÀèÆ¬¤Ë¡Öimplicit none¡×¤È½ñ¤±¤Ð¡¢°ÅÌۤη¿Àë¸À¤Ï»ÈÍѤµ¤ì¤º¡¢¾ï¤ËÌÀ¼¨Åª¤Ê·¿Àë¸À¤¬É¬Íפˤʤê¤Þ¤¹¡£ÊÑ¿ô¤òÍѰդ¹¤ëºÝ¤Ëɬ¤º¥×¥í¥°¥é¥àñ°Ì¤ÎÀèÆ¬¤ËÌá¤Ã¤ÆÊÑ¿ô¤òÀë¸À¤·¤Ê¤±¤ì¤Ð¤Ê¤é¤º¡¢¼ê´Ö¤ÏÁý¤¨¤Æ¤·¤Þ¤¤¤Þ¤¹¤¬¡¢¤½¤ÎÂå¤ï¤ê¥¨¥é¡¼¤ËǺ¤Þ¤µ¤ì¤ë¿ô¤Ï¤«¤Ê¤ê¾¯¤Ê¤¯¤Ê¤ê¤Þ¤¹¡£
¡¡Éû¥×¥í¥°¥é¥à¤ò»ÈÍѤ¹¤ë¤Î¤Ç¤¢¤ì¤Ð¡¢INTENTʸ¤ò»ÈÍѤ·¤Þ¤·¤ç¤¦¡£Fortran90¤Ç¤ÏÉû¥×¥í¥°¥é¥à¤Î¥¨¥é¡¼ÇÓ½ü¤Î¤¿¤á¤Î¼êÃʤȤ·¤Æ¡¢INTENTʸ¤¬Äɲ䵤ì¤Þ¤·¤¿¡£¤³¤Îʸ¤òÉû¥×¥í¥°¥é¥à¤Î²¾°ú¿ô¤ÎÀë¸Àʸ¤ÎºÝ¤ËÍѤ¤¤ì¤Ð¡¢Éû¥×¥í¥°¥é¥à¤Ø¤ÎÆþÎÏÍѤʤΤ«¡¢½ÐÎÏÍѤʤΤ«¡¢¤½¤ÎξÊý¤Ê¤Î¤«¤ò¥Ï¥Ã¥­¥ê¤È¤µ¤»¤ë¤³¤È¤¬²Äǽ¤Ç¤¹¡£²¾°ú¿ô¤¬°ì¤Ä¤À¤±¤Ç¡¢ÆþÎÏ·ó½ÐÎϤʤΤǤ¢¤ì¤Ð¡¢¤³¤Îµ¡Ç½¤òÍøÍѤ·¤¿¤Û¤¦¤¬¤¤¤¤¤È»×¤¤¤Þ¤¹¡£INTENTʸ¤ò»ÈÍѤ¹¤ì¤Ð¡¢¥³¥ó¥Ñ¥¤¥é¤ËÂФ·¤Æ¤½¤Î°ú¿ô¤ÎÌò³ä¤òÌÀ³Î¤ËÅÁ¤¨¤ë¤³¤È¤¬¤Ç¤­¡¢¥½¡¼¥¹Ê¸¤òÆÉ¤à¿Í´Ö¤Ë¤È¤Ã¤Æ¤â°ú¿ô¤ÎÌò³ä¤¬¤ï¤«¤ê¤ä¤¹¤¯¤Ê¤ê¡¢²ÄÆÉÀ­¤Î¸þ¾å¤Ë¤Ä¤Ê¤¬¤ê¤Þ¤¹¡£
¡¡»ú²¼¤²¤â¤·¤Ã¤«¤ê¹Ô¤Ê¤¤¤Þ¤·¤ç¤¦¡£¤ä¤Ï¤ê¿Í´Ö¤Ï»ë³ÐŪÍ×ÁǤòÈó¾ï¤Ë½ÅÍ׻뤷¤Þ¤¹¡£¿Í¤Î¤è¤µ¤ò¸«¤ë¤È¤­¤Ë¡¢°ìÈÖ½ÅÍ׻뤹¤ë¤Î¤Ï¸«¤¿ÌܤǤ¹¤è¤Í¡£¤¤¤¤½÷¤«¤É¤¦¤«¤ò¸«Ê¬¤±¤ë¤È¤­¡¢ÂçÄñ¤Î¿Í¤Ï´é¤ò¸«¤ë¤È»×¤¤¤Þ¤¹¡£¤½¤ì¤ÈƱ¤¸¤Ç¡¢»ú²¼¤²¤ò¤¹¤ë¤³¤È¤Ë¤è¤Ã¤Æ½ÄÊý¸þ¤Ë¤½¤í¤Ã¤Æ¤¤¤ë¥×¥í¥°¥é¥àʸ¤Ï¡¢¸«¤¿Ìܤ¬¤«¤Ã¤³¤è¤¯¤Ê¤ë¤À¤±¤Ç¤Ê¤¯¡¢¾å¤È²¼¤Î¤Ä¤Ê¤¬¤ê¤¬Èó¾ï¤Ëʬ¤«¤ê¤ä¤¹¤¯¤Ê¤ê¤Þ¤¹¡£Á´¤¯»ú²¼¤²¤ò¤·¤Ê¤¤Ê¸¾Ï¤È¤·¤¿Ê¸¾Ï¤ò¤¯¤é¤Ù¤Æ¤ß¤ì¤Ð¡¢¤½¤Îº¹¤ÏÎòÁ³¤Ç¤¢¤ë¤È»×¤¤¤Þ¤¹¡£»ú²¼¤²¤ò¤¹¤ë¾ì½ê¤Ï¡¢³Æ¥×¥í¥°¥é¥àñ°Ì¤Î¤Ê¤¤¤è¤¦Éôʬ¡¢DO¹½Ê¸Æâ¡¢IF¹½Ê¸Æâ¤Ê¤É¤Ç¤¹¡£¤È¤¯¤ËDO¤ÈIF¤Ç»ú²¼¤²¤ò¤·¤Ê¤¤¤È¡¢ÂçÊѤʤ³¤È¤Ë¤Ê¤ê¤Þ¤¹¡£
¡¡¸å¤Ï¡¢¥³¥á¥ó¥È¤òÉÕ¤±¤Æ¤ª¤­¤Þ¤·¤ç¤¦¡£¥³¥á¥ó¥È¤Ï¡Ö!¡×¤ò¤Ä¤±¤ì¤Ð¡¢¥½¡¼¥¹Ê¸¤Î²£¤Ë½ñ¤¯¤³¤È¤¬²Äǽ¤Ç¤¹¡£¤¤¤¯¤é¹½Â¤²½¥×¥í¥°¥é¥ß¥ó¥°¤ò°Õ¼±¤·¤¿¤ê¡¢»ú²¼¤²¤ò¤·¤¿¤È¤·¤ÆÊ¬¤«¤ê¤ä¤¹¤¤¥×¥í¥°¥é¥à¤ò½ñ¤¤¤¿¤È¤·¤Æ¤â¡¢¥×¥í¥°¥é¥à¤Ï¤ä¤Ï¤êʬ¤«¤ê¤Ë¤¯¤¤¤â¤Î¤Ç¤¹¡£Â¾¿Í¤Î¤Ç¤¢¤ì¤ÐÆÃ¤Ë¤½¤¦¤Ç¤¹¡£¼«Ê¬¤Î¤¿¤á¤Ë¤â¾¿Í¤Î¤¿¤á¤Ë¤â¡¢É¬Í׺ÇÄã¸Â¤Î¥³¥á¥ó¥È¤ÏÉÕ¤±¤Æ¤ª¤­¤Þ¤·¤ç¤¦¡£´Êñ¤Ê¤â¤Î¤Ç¹½¤¤¤Þ¤»¤ó¡£¤³¤Î°ÌÃÖ¤«¤é²¿¡¹¤¬»Ï¤Þ¤ë¤È¤«¡¢¤³¤ÎÉû¥×¥í¥°¥é¥à¤Ï²¿¡¹¤ò¤¹¤ë¤â¤Î¤À¡¢¤È¤¤¤¦¤³¤È¤ò½ñ¤¯¤À¤±¤Ç¤â¡¢¸«ÊÖ¤·¤¿¤È¤­¤Ë¥°¥ó¤ÈÍý²ò¤·¤ä¤¹¤¯¤Ê¤ê¤Þ¤¹¡£
¡¡Â³¤¤¤Æ¡¢¼ÂºÝ¤Ë¥×¥í¥°¥é¥ß¥ó¥°¤ò¤·¤¿¤È¤­¤Î¤É¤ó¤Ê¥¨¥é¡¼¤¬½Ð¤Æ¡¢¤É¤¦¤¤¤¦É÷¤ËÂн褷¤¿¤é¤¤¤¤¤Î¤«¤ò¾Ò²ð¤·¤¿¤¤¤È»×¤¤¤Þ¤¹¡£¿Í¤Ë¤è¤Ã¤Æ¥¨¥é¡¼¤Î¿ô¤Ï°ã¤¤¤Þ¤¹¤·¡¢²¼¤Î¤À¤±¤Ç¤Ï¤¢¤ê¤Þ¤»¤ó¤¬¡¢¤·¤¿¤Î¤ò°Õ¼±¤¹¤ë¤À¤±¤Ç¤â¥¨¥é¡¼½èÍý¤¬¤«¤Ê¤ê³Ú¤Ë¤Ê¤ë¤Î¤Ç¤Ï¤Ê¤¤¤Î¤«¤È»×¤¤¤Þ¤¹¡£

  • ¥¹¥Ú¥ë¥ß¥¹¡¦¡¦¡¦¤³¤ì¤Ï·ë¹½Â¿¤¤¤È»×¤¤¤Þ¤¹¡£Ì¿Îáʸ¤Î½ñ¤­´Ö°ã¤¤¤ä¡¢ÊÑ¿ô̾¤ÎÂǤÁ´Ö°ã¤¤¤Ç¤¹¡£ÊÑ¿ô̾¤Ë´Ø¤·¤Æ¤ÏÁ°½Ò¤ÎÄ̤ꡢ°ÅÌۤη¿Àë¸À¤òÉõ°õ¤¹¤ë¤³¤È¤Ë¤è¤Ã¤Æ¡¢´Êñ¤Ë´Ö°ã¤¤¤òȯ¸«¤¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£ÄêµÁ¤µ¤ì¤Æ¤¤¤Ê¤¤ÊÑ¿ô¤Ï¥¨¥é¡¼¤Ë¤Ê¤ê¤Þ¤¹¤«¤é¡£Ì¿Îáʸ¤Î½ñ¤­´Ö°ã¤¤¤Ï¡¢¥¨¥Ç¥£¥¿¤Î¶¯Ä´É½¼¨µ¡Ç½¤¬¤¤¤¤¤È»×¤¤¤Þ¤¹¡£¤³¤Î¥Û¡¼¥à¥Ú¡¼¥¸¤Ç¾Ò²ð¤·¤Æ¤¤¤ëfcpad¤Ë¤Ï¹âµ¡Ç½¤Ê¶¯Ä´É½¼¨µ¡Ç½¤¬ÉÕ¤¤¤Æ¤¤¤Þ¤¹¤·¡¢ºÇ¶á¤Î¥¨¥Ç¥£¥¿¤Ë¤Ï¥×¥í¥°¥é¥à¤Î³«È¯¥µ¥Ý¡¼¥È¤È¤·¤Æ¤âÀ­¼Á¤â»ý¤Á¹ç¤ï¤»¤Æ¤¤¤ë¤â¤Î¤¬Â¿¤¤¤Î¤Ç¡¢¤ª¤½¤é¤¯¥ª¥×¥·¥ç¥ó¤ÎÃæ¤Ë¶¯Ä´É½¼¨¤ÎÍ󤬤¢¤ë¤È»×¤¤¤Þ¤¹(¤Ç¤âFortran¤À¤È̵Íý¤«¤Ê? ½¨´Ý¥¨¥Ç¥£¥¿¤Ê¤é¤½¤Îµ¡Ç½¤ÎÄɲ䬤Ǥ­¤¿¤Ï¤º)¡£¤½¤ì¤ò»È¤¨¤Ð¡¢Ì¿Îáʸ¤Î½ñ¤­´Ö°ã¤¤¤ò¤·¤Æ¤·¤Þ¤¦¤È¡¢ÂÀ»ú+¿§ÉÕ¤­É½¼¨¤µ¤ì¤Ê¤¤¤Î¤Ç¡¢½ñ¤¤¤Æ¤ë»þÅÀ¤Ç´Ö°ã¤¤¤òȯ¸«¤Ç¤­¤Æ¡¢Èó¾ï¤ËÊØÍø¤Ç¤¹¡£¸«¤ä¤¹¤¯¤â¤Ê¤ë¤Î¤Ç¤ª´«¤á¤Ç¤¹¡£
  • 72ʸ»ú¤òͤ¨¤Æ¤ë¡¦¡¦¡¦¤³¤³¤Ç¤Ï¼«Í³·Á¼°¤ò¿Ê¤á¤Þ¤·¤¿¤¬¡¢¥³¥ó¥Ñ¥¤¥é¤Î¤»¤¤¤Ç¸ÇÄê·Á¼°¤·¤«ÌµÍý¤Ê¿Í¤â¤¤¤ë¤«¤È»×¤¤¤Þ¤¹¡£¤½¤¦¤¤¤¦¿Í¤Ï¡¢¤³¤ÎÅÀ¤Ë¤Ä¤¤¤ÆÃí°Õ¤·¤Æ¤¯¤À¤µ¤¤¡£fcpad¤Î¤è¤¦¤Ê¡¢73ʸ»ú¤Ë¤Ê¤ë¤ÈÀÖ»ú¤Ë¤Ê¤ë¤È¤¤¤¦µ¡Ç½¤¬¤Ê¤¤¤È¡¢°ì¹Ô¤Î¸Â³¦¤Î72ʸ»ú¤òͤ¨¤Æ¤·¤Þ¤Ã¤Æ¤âµ¤ÉÕ¤«¤Ê¤¤¤³¤È¤¬Â¿¤¤¤Ç¤¹¡£¤½¤¦¤¹¤ë¤È¤½¤ì°Ê¹ß¤ÎÉôʬ¤Ï¥³¥ó¥Ô¥å¡¼¥¿¤Ë¤Ïǧ¼±¤µ¤ì¤º¡¢¤½¤³¤¬ÆþÎϤäʬ´ô¤Ê¤É¤½¤Î²¼¤Îʸ¤Ë¤â±Æ¶Á¤òÍ¿¤¨¤ë¾ì¹ç¡¢72ʸ»ú¤ÎÀ©¸Â¤¬¤Ê¤±¤ì¤Ðµ¯¤­¤ë¤Ï¤º¤¬¤Ê¤¤¥¨¥é¡¼¤¬¼¡¡¹¤Èµ¯¤­¤Æ¤·¤Þ¤¦(10¤«20¤ÏÁý¤¨¤Þ¤¹)¤Î¤Ç¡¢¥¨¥é¡¼¤¬½Ð¤¿¤é¡¢¤Þ¤º¤Ï72ʸ»ú¤ò±Û¤¨¤Æ¤¤¤ë²Õ½ê¤¬¤Ê¤¤¤«¤ò³Îǧ¤·¤Æ¤ß¤Æ¤¯¤À¤µ¤¤¡£¤³¤ì¤òľ¤¹¤À¤±¤Ç¥³¥ó¥Ñ¥¤¥ë¥¨¥é¡¼¤¬¤Ê¤¯¤Ê¤Ã¤Æ¤·¤Þ¤¦¤³¤È¤¹¤é¤¢¤ê¤Þ¤¹¡£
  • IF¹½Ê¸¤Î¥¨¥é¡¼¡¦¡¦¡¦ËͤϷ빽¤³¤Î¥¨¥é¡¼¤ò¤ä¤Ã¤Æ¤·¤Þ¤¤¤Þ¤¹¡£¤³¤Î¥¨¥é¡¼¤Ç¿¤¤¤Î¤Ï¡¢¥Ö¥í¥Ã¥¯IF¤Î·Á¤Ê¤Î¤ËIF¤Î²£¤ËTHEN¤¬½ñ¤«¤ì¤Æ¤¤¤Ê¤¤¤È¤«¡¢IF¤Î²¼¤ËELSE¤äENDIF¤¬½ñ¤­Ëº¤ì¤Æ¤¤¤ë¤È¤«¤Ç¤¹¡£¤È¤¯¤ËC¸À¸ì¤òFortran¤È°ì½ï¤Ë»ÈÍѤ·¤Æ¤¤¤ë¿Í¤Ï¡¢C¸À¸ì¤Ç¤ÏTHEN¤ò»ÈÍѤ·¤Ê¤¤¤ÇIFʸ¤¬À®Î©¤¹¤ë¤Î¤Ç¡¢´ª°ã¤¤¤·¤Æ½ñ¤­Ëº¤ì¤Æ¤·¤Þ¤¦¤³¤È¤¬¤¢¤ë¤Î¤Ç¤Ï¤Ê¤¤¤«¤È»×¤¤¤Þ¤¹¡£ËͤϤ褯˺¤ì¤Þ¤¹¡£¤Þ¤¿Ãæ³ç¸Ì¤¬¤Ê¤¤¤Î¤Ç¡¢½ª¤ï¤ê¤ò¼¨¤¹ENDIF¤â½ñ¤«¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¤·¡¢Î㤨ELSE¤Î²¼¤ËÌ¿Îáʸ¤ò½ñ¤«¤Ê¤¯¤Æ¤â¥Ö¥í¥Ã¥¯IF¤Ê¤éELSE¤¬É¬ÍפʤΤǡ¢¤³¤ì¤é¤â˺¤ì¤º¤Ë½ñ¤«¤Ê¤¤¤È¤¤¤±¤Þ¤»¤ó¡£¤³¤ì¤ò˺¤ì¤ë¤È¡¢¶²¤í¤·¤¤¤Û¤É¤Î¥¨¥é¡¼¤¬½Ð¤Þ¤¹¡£¤Ó¤Ó¤é¤º¤Ë¡¢IF¤Î¹Ô¤¬¥¨¥é¡¼¤Ë¤Ê¤Ã¤Æ¤¤¤ë¤Î¤Ê¤é¡¢¤Þ¤º¤Ï¤³¤ÎÅÀ¤ò¥Á¥§¥Ã¥¯¤·¤Æ¤ß¤Æ¤¯¤À¤µ¤¤¡£¤Þ¤¿¤½¤¦¤¤¤¦¥¨¥é¡¼¤ò¤·¤Æ¤·¤Þ¤¦¿Í¤Ï¡¢¡¢IFʸ¤ò½ñ¤¤¤¿¤é¡¢¤¹¤°¤ËELSE¤ÈENDIF¤â½ñ¤¯¤è¤¦¤Ë¿´¤¬¤±¤Æ¤¯¤À¤µ¤¤¡£
  • IFʸ¤Î±é»»»Ò¤¬¤ª¤«¤·¤¤¡¦¡¦¡¦IFʸ¤Î±é»»»Ò¤È¤Ï¡¢¡Ö==¡×¤Î´Ø·¸±é»»»Ò¤ä¡¢¡Ö.and.¡×¤ÎÏÀÍý±é»»»Ò¤Î¤³¤È¤Ç¤¹¡£¤³¤ì¤ò½ñ¤­´Ö°ã¤¨¤Æ¥¨¥é¡¼¤Ë¤·¤Æ¤·¤Þ¤¦¤³¤È¤¬¤¢¤ê¤Þ¤¹¡£ÆÃ¤Ë¿¤¤¤Î¤¬¡¢¡ÖÅù¤·¤¤¡×¤Î°Õ¤òɽ¤¹¡Ö==¡×¤ò¡¢¡Ö=¡×¤È½ñ¤¤¤Æ¤·¤Þ¤¦¼ºÇԤǤ¹¡£¤³¤ì¤ÇÂç¾æÉפʸÀ¸ì¤â¤¢¤ë¤Î¤Ç¤¹¤¬¡¢Fortran¤Ç¤Ï̵Íý¤Ç¤¹¡£¤·¤Ã¤«¤ê±é»»»Ò¤¬¤«¤±¤Æ¤¤¤ë¤«¤ò³Îǧ¤·¤Þ¤·¤ç¤¦¡£¤Þ¤¿³ç¸Ì¤¬Àµ¤·¤¯¤Ê¤¤¾ì¹ç¤â¤¢¤ê¤Þ¤¹¡£º¸¡¦±¦³ç¸Ì¤¬ÉÔ­¤¹¤ë»ö¤ÇÏÀÍý¾ò·ï¼°¤¬Àµ¤·¤¯À®Î©¤·¤Æ¤¤¤Ê¤¤¤³¤È¤Ç¥¨¥é¡¼¤¬½Ð¤Æ¤¤¤ë¤³¤È¤¬¤¢¤ê¤Þ¤¹¡£¤·¤Ã¤«¤ê¼°¤¬³ç¸Ì¤ÇÊñ¤Þ¤ì¤Æ¤¤¤ë¤«¡¢Ìܤò¶Å¤é¤·¤Æ¤è¤¯¸«¤Æ¤¯¤À¤µ¤¤¡£
  • DOʸ¤Î¥¨¥é¡¼¡¦¡¦¡¦¤³¤ì¤âIF¤ÈƱ¤¸¥¨¥é¡¼¤ò·ë¹½¤ä¤ê¤Þ¤¹¡£CONTINUE¤ò»ÈÍѤ·¤Æ¤¤¤¿º¢¤Ï¡¢CONTINUEʸ¤ËÉÕ¤±¤ëʸÈÖ¹æ¤ò´Ö°ã¤Ã¤¿Ê¸ÈÖ¹æ¤Ë¤·¤¿¤ê¡¢¤½¤â¤½¤âʸÈÖ¹æ¤ò¤Ä¤±¤ë¤Î¤ò˺¤ì¤¿¤È¤­¤â¤¢¤ê¤Þ¤·¤¿¡£¤Þ¤¿DOʸ¤Ï½ñ¤¤¤Æ¤¤¤ë¤±¤ì¤É¤â¡¢ENDDOʸ¤Ï½ñ¤¤¤Æ¤¤¤Ê¤«¤Ã¤¿¡¢¤È¤¤¤¦¤³¤È¤â¤¢¤ê¤Þ¤¹¡£IFʸ¤ÈƱ¤¸¤è¤¦¤Ë¡¢DO¤ò½ñ¤¤¤¿¤é¤¹¤°¤ËENDDO¤â½ñ¤¤¤Æ¤·¤Þ¤¦¤è¤¦¤Ë¤·¤Æ¤¯¤À¤µ¤¤¡£
  • ÇÛÎó¤Îꤍ»ú´Ö°ã¤¤¡¦¡¦¡¦¤³¤ì¤ÏÇÛÎó¤Ë´·¤ì¤Æ¤¤¤Ê¤¤º¢¤Ï¤è¤¯¤ä¤ë¤ó¤¸¤ã¤Ê¤¤¤Ç¤·¤ç¤¦¤«¡£ÇÛÎóÀë¸À¤Î¤È¤­¤Ï¡Öa(4)¡×¤ÈÁí¿ô¤À¤±¤ò½ñ¤­¤Þ¤¹¤¬¡¢Àë¸À°Ê¹ßÇÛÎóÍ×ÁÇÁ´ÂΤò»ÈÍѤ¹¤ë¤È¤­¤Ë¤Ï¡Öa(1:4)¡×¤È¤¹¤ëɬÍפ¬¤¢¤ê¤Þ¤¹¡£¡Öa(4)¡×¤È½ñ¤¤¤Æ¤·¤Þ¤¨¤Ð¡¢ÇÛÎó£á¤Î4ÈÖÌܤÎÍ×ÁǤȤ¤¤¦°ÕÌ£¤Ë¤Ê¤Ã¤Æ¤·¤Þ¤¤¤Þ¤¹¡£Àë¸À»þ¤È»ÈÍÑ»þ¤ÎÇÛÎó¤Î»ØÄê¤Î»ÅÊý¤Ï°ã¤¦¤Î¤Ç¡¢Ãí°Õ¤¬É¬ÍפǤ¹¡£
  • °ú¿ô¤Î·¿°ã¤¤¡¦¡¦¡¦¤³¤ì¤Ï¥³¥ó¥Ñ¥¤¥ë¥¨¥é¡¼¤Ç°ú¤Ã³Ý¤«¤ë¤È»×¤¦¤Î¤Ç¡¢¸«¤Ä¤±¤ë¤Î¤Ï´Êñ¤À¤È»×¤¤¤Þ¤¹¡£¸Æ¤Ó½Ð¤·Â¦¤Î¼Â°ú¿ô¤ÏÀ°¿ô·¿¤Ê¤Î¤Ë¡¢¸Æ¤Ó½Ð¤µ¤ì¤¿²¾°ú¿ô¤Ï¼Â¿ô·¿¤Ë¤Ê¤Ã¤Æ¤¤¤ë¡¢¤È¤¤¤¦¤³¤È¤Ï¤¿¤Þ¤Ë¤¢¤ê¤Þ¤¹¡£°ÅÌۤη¿Àë¸À¤¬Í­¸ú¤Ë¤Ê¤Ã¤Æ¤¤¤¿¤ê¡¢ÊÑ¿ô̾¤òÊѤ¨¤Æ¤¤¤ë¤È¤³¤¦¤·¤¿´Ö°ã¤¤¤¬µ¯¤³¤ë²ÄǽÀ­¤¬¤¢¤ê¤Þ¤¹¡£¤Þ¤¿¸Æ¤Ó½Ð¤·¸µ¤ÏÇÛÎó¤Ê¤Î¤Ë¡¢¼õ¤±¤ë¦¤Ï¥¹¥«¥éÊÑ¿ô(ÉáÄ̤ÎÊÑ¿ô)¤Ç¤¢¤ë¾ì¹ç¤â¥¨¥é¡¼¤Ë¤Ê¤ê¤Þ¤¹¡£ÊÑ¿ô¤Î¤È¤³¤í¤Ç¥¨¥é¡¼¤¬½Ð¤¿¤é¡¢¤É¤¦¤¤¤¦ÄêµÁ¤òÊÑ¿ô¤Ë¤·¤¿¤Î¤«¤ò³Îǧ¤¹¤ì¤ÐÂç¾æÉפǤ¹¡£
  • °ú¿ô¤ÎÂ礭¤µ°ã¤¤¡¦¡¦¡¦ËͤϤʤ¼¤«¤³¤ì¤¬Â¿¤¤¤Ç¤¹¡£Â礭¤µ¤¬°ã¤¦¤È¤¤¤¦¤Î¤Ï¡¢¼Â°ú¿ô¤¬Â礭¤µ40¤Ê¤Î¤Ë¡¢¼õ¤±¤ë²¾°ú¿ô¤¬50¤Ë¤Ê¤Ã¤Æ¤¤¤ë¡¢¤È¤¤¤¦¤³¤È¤Ç¤¹¡£Ê£¿ô¤Î¸Æ¤Ó½Ð¤·¸µ¤¬Æ±¤¸Éû¥×¥í¥°¥é¥à¤ò»ÈÍѤ¹¤ë¾ì¹ç¤ä¡¢²¿µ¤¤Ê¤¤¥ß¥¹¤Çµ¯¤­¤Æ¤·¤Þ¤¦¤³¤È¤¬¤¢¤ê¤Þ¤¹¡£¤³¤ì¤ÏÊ̤˥¨¥é¡¼¤¬¤Ç¤­¤ë¤À¤±¤Ç¥×¥í¥°¥é¥à¼«ÂΤÏÀ¸À®²Äǽ¤Ê¤Î¤Ç¤¹¤¬¡¢¤ä¤Ï¤ê¥¨¥é¡¼¤Ïµ¯¤­¤Ê¤¤¤Û¤¦¤¬¤¤¤¤¤Î¤Ç¡¢¤·¤Ã¤«¤êÄÙ¤·¤Æ¤ª¤­¤Þ¤·¤ç¤¦¡£ÂнèÊýË¡¤Ï¡¢Ã±¤ËÇÛÎó¤ÎÂ礭¤µ¤ò¤½¤í¤¨¤ì¤Ð¤¤¤¤¤À¤±¤Ç¤¹¡£¼Â°ú¿ô¤¬60¤Ê¤é¡¢²¾°ú¿ô¤â60¤Ë¤¹¤ì¤Ð¤¤¤¤¤À¤±¤Ç¤¹¡£
  • ̤ÄêµÁ¤Î¥·¥ó¥Ü¥ë¡¦¡¦¡¦¥·¥ó¥Ü¥ë¤È¤ÏÊÑ¿ô¤Î¤³¤È¤Ç¤¹¡£·¿Àë¸À¤Ë¤è¤êÄêµÁ¤·¤Æ¤¤¤Ê¤¤ÊÑ¿ô¤òÆþÎϤä½ÐÎϤ˻ÈÍѤ¹¤ë¤È¡¢¤³¤¦¤¤¤¦¥¨¥é¡¼¤¬½Ð¤Þ¤¹¡£°ÅÌۤη¿Àë¸À¤òÉõ¤¸¤¿¤æ¤¨¤Î¥¨¥é¡¼¤Ç¤¹¤¬¡¢¤³¤ì¤¬¤¢¤ë¤Î¤ÇÊÑ¿ô̾¤ÎÆþÎϼºÇÔ¤ò¸«¤Ä¤±¤ë¤³¤È¤¬Íưפˤʤê¤Þ¤¹¡£ÂнèÊýË¡¤Ï¡¢¤½¤ÎÊÑ¿ô¤¬¼«Ê¬¤¬»È¤Ã¤Æ¤¤¤ëÊÑ¿ô¤Ç¤¢¤ì¤ÐÀèÆ¬¤Ç·¿Àë¸À¤·¡¢¤½¤¦¤Ç¤Ê¤¤¤Ê¤é´Ö°ã¤¤¤Ê¤Î¤Ç̾Á°¤ò½¤Àµ¤·¤Þ¤¹¡£¤Þ¤¿Éû¥×¥í¥°¥é¥à¤Ç¤ÎÊÑ¿ô̤ÄêµÁ¤È¸À¤¦¤³¤È¤â¤¢¤ê¤Þ¤¹¡£COMMON¤äMODULE¤Ë¤è¤êÊÑ¿ô¤Î¶¦Í­¤ò¤·¤Æ¤¤¤Ê¤±¤ì¤Ð¡¢»ÈÍѤ¹¤ëÊÑ¿ô¤Ï³Æ¥×¥í¥°¥é¥àñ°Ì¤Ç·¿Àë¸À¤·¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤¤¤Î¤Ç¤¹¤¬¡¢²¾°ú¿ô¤ò¼Â°ú¿ô¤ÈƱ¤¸¤Ë¤·¤Æ¤·¤Þ¤¦¤È¡¢Éû¥×¥í¥°¥é¥à¤Ç¤Î°ú¿ô¤Î·¿Àë¸À¤ò˺¤ì¤Æ¤·¤Þ¤¦¤³¤È¤¬¤¢¤ê¤Þ¤¹¡£Ëº¤ì¤ë¤ÈÅöÁ³¥¨¥é¡¼¤Ë¤Ê¤Ã¤Æ¤·¤Þ¤¤¤Þ¤¹¤«¤é¡¢Ì¤ÄêµÁ¤Ç¤¢¤ì¤ÐÄêµÁ¤·¤Ê¤ª¤·¤Æ¤¯¤À¤µ¤¤¡£
  • ¥ª¡¼¥Ð¡¼¥Õ¥í¡¼¡¦¡¦¡¦¹âÅ٤ʷ׻»¤ä¤È¤Ë¤«¤¯¤Ç¤«¤¤·×»»¤ò¹Ô¤Ê¤¦¤È¡¢¼Â¿ô¤Î°·¤¨¤ëÈϰϤòͤ¨¤¿Ãͤ¬¤Ï¤¸¤­½Ð¤µ¤ì¤Æ¤·¤Þ¤¦¤³¤È¤¬¤¢¤ê¤Þ¤¹¡£±ß¼þΨ¤ò¥â¥ó¥Æ¥«¥ë¥íË¡¤ò»È¤Ã¤Æµá¤á¤ë¾ì¹ç¡¢´Êñ¤Ë¤½¤Î¸Â³¦¤òͤ¨¤Æ¡Ö¼Â¿ô¤Ç¤Î·×»»¤¬¤Ç¤­¤Ê¤¤¡×¤È¤¤¤¦¡¢¥ª¡¼¥Ð¡¼¥Õ¥í¡¼¥¨¥é¡¼¤¬½Ð¤Æ¤·¤Þ¤¤¤Þ¤¹¡£¤³¤ì¤Ï¥×¥í¥°¥é¥à¤¬°­¤¤¡¦¤ª¤«¤·¤¤¤È¤¤¤¦¤ï¤±¤Ç¤Ï¤Ê¤¯¡¢·×»»¤Î¸Â³¦¤Ë㤷¤¿¤È¤¤¤¦¤À¤±¤Ê¤Î¤Ç¡¢°Â¿´¤·¤Æ¤¯¤À¤µ¤¤¡£¥ª¡¼¥Ð¡¼¥Õ¥í¡¼¤òµ¯¤³¤·¤Æ¤·¤Þ¤Ã¤¿¾ì¹ç¤Ë¤Ï¡¢¼Â¿ô·¿¤ÎÊÑ¿ô¤òÇÜÀºÅټ¿ô·¿¤Ë¤¹¤ì¤Ð¤¤¤¤¤À¤±¤Ç¤¹¡£¤³¤¦¤¹¤ì¤ÐÂçÄñ¤Î·×»»¤Ï²¿¤È¤«¤Ê¤ê¤Þ¤¹¡£¤³¤ì¤Ç¤â¥À¥á¤Ê¾ì¹ç¤Ï...¤µ¤¹¤¬¤Ë¤½¤ì¤Ïʬ¤«¤ê¤Þ¤»¤ó¡£
  • ¤¢¤¢¤¢
  • ¤¢¤¢¤¢
  • ¤¢¤¢¤¢
  • ¤¢¤¢¤¢
  • ¤¢¤¢¤¢


¡¡¥³¥ó¥Ñ¥¤¥ë¥¨¥é¡¼¤ÏÂçÄñ¥³¥ó¥Ñ¥¤¥ë¤¬¼¨¤¹¥¨¥é¡¼¤Î²Õ½ê¤ò¸«¤ì¤ÐÍý²ò¤Ç¤­¤ë¤Î¤Ç¤¹¤¬¡¢¼Â¹Ô»þ¤Î¥¨¥é¡¼¤Ï¤Ê¤«¤Ê¤«Ê¬¤«¤ê¤Þ¤»¤ó¡£¼Â¹Ô»þ¤Î¥¨¥é¡¼¤È¤·¤Æ¡¢¾å¤Ë¼¨¤·¤¿¤è¤¦¤Ê¡ÖÇÛÎó¤ÎÂ礭¤µ¤¬°ã¤¦¡×¤Î¤è¤¦¤Ê¾ì¹ç¤Ï²¿¹ÔÌܤ«¤¬É½¼¨¤µ¤ì¤ë¤Î¤Ç¤¤¤¤¤Î¤Ç¤¹¤¬¡¢¼Â¹Ô¤Ï¤µ¤ì¤ë¤±¤ì¤É¤â»×¤¤Ä̤ê¤Î¼Â¹Ô¤¬¤µ¤ì¤Æ¤¤¤Ê¤¤(Î㤨¤Ð¡¢1+2¤Î·ë²Ì¤¬10¤Ë¤Ê¤Ã¤Æ¤·¤Þ¤¦¤È¤«)¾ì¹ç¤â¤¢¤ê¤Þ¤¹¡£¤Þ¤¿ÂçÉôʬ¤Î¼Â¹Ô¤Ï¤¦¤Þ¤¯¤¤¤¯¤±¤É¡¢°ìÉôʬ¤Ë¤Ä¤¤¤Æ¤ª¤«¤·¤Êư¤­¤ò¤¹¤ë(Î㤨¤Ð¼Ö¤¬ÊÉ¤ËÆÍ¤Ã¹þ¤ó¤Ç¤â¤¹¤êÈ´¤±¤Æ¤·¤Þ¤¦)¥Ð¥°¤¬µ¯¤­¤ë¤³¤È¤â¤¢¤ê¤Þ¤¹¡£¤³¤¦¤·¤¿¥¨¥é¡¼¤Ï¤½¤Î¸¶°ø¤ÎÍýͳ¡¦¸¶°ø²Õ½ê¤òÈó¾ï¤Ë¸«¤Ä¤±¤ë¤Î¤¬Æñ¤·¤¤¤Ç¤¹¡£¤½¤³¤Ç¡¢¥Ç¥Ð¥Ã¥¬¤ò»ý¤Ã¤Æ¤¤¤ë¿Í¤Ï¡¢¤¼¤Ò¤½¤ì¤ò»È¤Ã¤Æ¥Ç¥Ð¥Ã¥°¤·¤Æ¤ß¤Æ¤¯¤À¤µ¤¤¡£¤«¤Ê¤ê¤½¤¦¤·¤¿¥¨¥é¡¼¤¬¸«¤Ä¤±¤ä¤¹¤¯¤Ê¤ê¤Þ¤¹¡£
¡¡¥Ç¥Ð¥Ã¥¬¤Î¤è¤¤¤È¤³¤í¤ÏÂ礭¤¯Ê¬¤±¤Æ2¤Ä¤¢¤ê¡¢°ì¤Ä¤ÏǤ°Õ¤Î¤È¤³¤í¤Ç¼Â¹Ô¤ò¤È¤á¤ë¤³¤È¤¬¤Ç¤­¤ë¤³¤È¤È¡¢ÊÑ¿ô¤ÎÃͤÎÊѲ½¤¬Çİ®¤Ç¤­¤ë¤È¤¤¤¦¤³¤È¤Ç¤¹¡£Á´¤Æ¤Î¥Ç¥Ð¥Ã¥¬¤Ë¤½¤ì¤¬È÷¤ï¤Ã¤Æ¤¤¤ë¤Î¤«¤É¤¦¤«¤Ïʬ¤«¤ê¤Þ¤»¤ó¤¬¡¢Ëͤ¬»ý¤Ã¤Æ¤¤¤ë¡ÖFortran¡õC¡×¤ò¸µ¤Ë¤ªÏ䵤»¤Æ¤¤¤¿¤À¤­¤Þ¤¹¡£
¡¡¥Ç¥Ð¥Ã¥¬¤ÎÍøÅÀ¤Î°ì¤ÄÌܤˤĤ¤¤Æ¤Ç¤¹¤¬¡¢Ç¤°Õ¤Î¤È¤³¤í¤Ç¼Â¹Ô¤ò¤È¤á¤ë¤³¤È¤¬¤Ç¤­¤ë¤È¤¤¤¦¤Î¤ÏÈó¾ï¤ËÊØÍø¤Ç¤¹¡£ËͤΥǥХ嬤ϡ¢¼Â¹Ô¤Î»ÅÊý¤Ë2¼ïÎढ¤Ã¤Æ¡¢ÃæÃÇÅÀ¤È¤¤¤¦¤Î¤ò¼Â¹Ô¤ò¤È¤á¤¿¤¤¹Ô¤ËÂǤÁ¡¢¤½¤³¤Þ¤Ç°ìµ¤¤Ë¼Â¹Ô¤¹¤ëÊýË¡¤È¡¢°ì¹Ô¤º¤Ä¼Â¹Ô¤·¤Æ¤¤¤¯ÊýË¡¤È¤¬¤¢¤ê¤Þ¤¹¡£¥×¥í¥°¥é¥à¤ò¤½¤Î¤Þ¤Þ¼Â¹Ô¤·¤Æ¤·¤Þ¤¦¤È¡¢ºÇ½é¤«¤éºÇ¸å¤Þ¤Ç°ìµ¤¤Ë¿Ê¤ó¤Ç¤·¤Þ¤¤¤Þ¤¹(READʸ¤¬¤Ê¤±¤ì¤Ð)¡£¤·¤«¤·¥Ç¥Ð¥Ã¥¬¤ò»ÈÍѤ¹¤ì¤Ð¡¢¼Â¹Ô¤ò¸«¤¿¤¤¤È¤³¤í¤Þ¤Ç´«¤á¡¢¸«¤¿¤¤¤È¤³¤í¤«¤é°ì¹Ô¤º¤Ä¤æ¤Ã¤¯¤ê¿Ê¤á¤Æ¤¤¤¯¤È¤¤¤¦¤³¤È¤¬²Äǽ¤Ë¤Ê¤ê¤Þ¤¹¡£Î㤨¤ÐIFʬ´ô¤ò¹Í¤¨¤Æ¤ß¤Æ¤¯¤À¤µ¤¤¡£ÌÀ¤é¤«¤Ë¥×¥í¥°¥é¥à¤Î¼Â¹Ô¤Î»ÅÊý¤¬¤ª¤«¤·¤¤¤¬¡¢¤½¤Î¸¶°ø¤ÏIFʸ¤Îʬ´ô¤Î»ÅÊý¤¬¤ª¤«¤·¤¤¤«¤é¤¸¤ã¤Ê¤¤¤«¤È´¶¤¸¤¿¤È¤·¤Þ¤¹¡£¼Â¹Ô¤òIFʸ¤ÎÁ°¤Ç»ß¤á¡¢¤½¤³¤«¤é°ì¹Ô¤º¤Ä¼Â¹Ô¤·¤Æ¤¤¤­¤Þ¤¹¡£¤½¤¦¤¹¤ë¤³¤È¤Ç¡¢¼«Ê¬¤Î¹Í¤¨¤¿¤È¤ª¤ê¤ËIFʸÌî²¼¤Ë¿Ê¤ó¤Ç¤¤¤ë¤Î¤«¡¢¤½¤ì¤È¤âELSEʸ¤ËÈô¤ó¤Ç¤·¤Þ¤Ã¤Æ¤¤¤ë¤Î¤«¤ò³Îǧ¤¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£DO¹½Ê¸¤Ç¤âƱ¤¸³èÍѤλÅÊý¤¬¤Ç¤­¤Þ¤¹¡£¤·¤Ã¤«¤ê·è¤á¤¿²ó¿ôʬ¥ë¡¼¥×¤·¤Æ¤¤¤ë¤Î¤«¡¢EXIT¤Ç¾ò·ïÄ̤ê¤Ë¥ë¡¼¥×¤òÈ´¤±½Ð¤·¤Æ¤¤¤ë¤Î¤«¤ò¡¢¤æ¤Ã¤¯¤ê¼Â¹Ô¤¹¤ë¤³¤È¤Ç³Îǧ¤¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£¤½¤³¤ÇÊÑ¤ÊÆ°¤­¤ò¤¹¤ì¤Ð¡¢¤½¤¦¤Ê¤ë¸¶°ø¤ò¹Í¤¨¤ì¤Ð¤¤¤¤¤Î¤Ç¤¹¡£¥Ç¥Ð¥Ã¥¬¤ò»ÈÍѤ·¤Ê¤¤¤È¡¢¥½¡¼¥¹Ê¸¤Ç¥×¥í¥°¥é¥à¤Îư¤­¤ò¥¤¥á¡¼¥¸¤·¤Ê¤±¤ì¤Ð¤Ê¤é¤Ê¤¤¤Î¤Ç¤¹¤¬¡¢¥Ç¥Ð¥Ã¥¬¤¬¤¢¤ì¤Ð¡¢¼ÂºÝ¤Ë¥×¥í¥°¥é¥à¤Îư¤­¤ò¸«¤ë¤³¤È¤¬¤Ç¤­¡¢ÊØÍø¤Ç¤¹¡£
¡¡¤â¤¦°ì¤Ä¤ÎÍøÅÀ¤Ï¡¢ÊÑ¿ôÆâ¤ÎÃͤÎÊѲ½¤ò¸«¤ë¤³¤È¤¬¤Ç¤­¤ëÅÀ¤Ç¤¹¡£Fortran¤ÏÇ˲õŪÂåÆþ¤ò¤·¤Æ¤¤¤ë¤Î¤Ç¡¢Æ±¤¸ÊÑ¿ô¤Ç¤â¤É¤ó¤É¤ó¿·¤·¤¤ÃͤˤʤäƹԤ­¤Þ¤¹¡£¥ë¡¼¥×¤ò»ÈÍѤ·¤¿¹ç·×¤òµá¤á¤ë¥×¥í¥°¥é¥à¤ò¥¤¥á¡¼¥¸¤·¤Æ¤â¤é¤¨¤ì¤Ðʬ¤«¤ê¤ä¤¹¤¤¤È»×¤¤¤Þ¤¹¡£¥×¥í¥°¥é¥à¤ò¼Â¹Ô¤·¤¿·ë²Ì¡¢»×¤¤Ä̤ê¤ÎÃͤˤʤé¤Ê¤«¤Ã¤¿¤Î¤ò²ò·è¤¹¤ë¾ì¹ç¡¢¾å¤Î¤è¤¦¤Ë¾¯¤·¤º¤Ä¼Â¹Ô¤·¤Æ¤É¤¦¤¤¤¦Æ°¤­¤ò¤·¤Æ¤¤¤ë¤Î¤«¤ò¸«¤ë¤Û¤«¤Ë¡¢ÊÑ¿ôÆâ¤ÎÃÍ¤ÎÆ°¤­¤òÄɤ¦¤³¤È¤Ç¤°¤ó¤È¤ï¤«¤ê¤ä¤¹¤¯¤Ê¤ê¤Þ¤¹¡£Î㤨¤Ð¡¢EXIT¤¬ºîư¤¹¤ë¤Ë¤Ï´ðËÜŪ¤ËIFʸ¤Î¾ò·ï¼°¤¬¤¦¤Þ¤¯ºîư¤¹¤ë¤³¤È¤¬É¬¿Ü¤Ç¤¹¤è¤Í¡££á¤¬3¤Ë¤Ê¤Ã¤¿¤é¥ë¡¼¥×¤òÈ´¤±¤ë¾ì¹ç¡¢¡Öif(a==3)exit¡×¤È¤«¤­¤Þ¤¹¡£¤½¤·¤Æ¤³¤ì¤¬Àµ¾ï¤Ëºîư¤¹¤ë¤Ë¤Ï¡¢¥ë¡¼¥×¤¬È´¤±¤Æ¤Û¤·¤¤¤È¤­¤Ë£á¤¬3¤Ë¤Ê¤Ã¤Æ¤¯¤ì¤Ê¤¤¤Èº¤¤ê¤Þ¤¹¤Í¡£¥Ç¥Ð¥Ã¥°¤ò¤·¡¢£á¤ÎÃæ¤Ë¤·¤Þ¤ï¤ì¤¿ÊÑ¿ô¤ÎÃͤòÄɤäƤߤë¤È¡¢£î²óÌܤΥ롼¥×¤Î¤È¤­¤Ë£á¤¬3¤Ë¤Ê¤ë¤Ï¤º¤À¤Ã¤¿¤Î¤Ë¡¢¼ÂºÝ¤Ë¤Ï£î+4¤Ë¤Ê¤Ã¤Æ½é¤á¤Æ£á¤¬3¤Ë¤Ê¤ë¤È¤¤¤¦¤³¤È¤¬¤è¤¯¤¢¤ê¤Þ¤¹¡£¤³¤Î¸¶°ø¤Ï¤½¤ì°ÊÁ°¤Î¥×¥í¥°¥é¥à¤Ë¸¶°ø¤¬¤¢¤ë¤«¤é¤Ç¤¹¤¬¡¢¤³¤ì¤Ï£á¤Î¡¢¤½¤Î¤È¤­¤ÎÃͤ¬°ìÂΤ¤¤¯¤Ä¤Ê¤Î¤«¤òÇİ®¤Ç¤­¤Ê¤±¤ì¤Ð¡¢¤Ê¤«¤Ê¤«¸«¤Ä¤±¤ë¤³¤È¤Ï¤Ç¤­¤Þ¤»¤ó¡£
¡¡¤³¤Î¤è¤¦¤Ë¡¢¥Ç¥Ð¥Ã¥¬¤ÏÍ¥¤ì¤¿µ¡Ç½¤ò»ý¤Ã¤Æ¤¤¤Þ¤¹¡£¥Ç¥Ð¥Ã¥¬¤Ë¤Ï¾¤Ë¤âµ¡Ç½¤¬¤¢¤ê¤Þ¤¹¤¬¡¢¤³¤ì¤À¤±¤Ç¤â½½Ê¬¤Ê°ÒÎϤòȯ´ø¤·¤Æ¤¯¤ì¤ë¤³¤È¤¬Ê¬¤«¤Ã¤Æ¤¯¤ì¤ë¤È»×¤¤¤Þ¤¹¡£¤â¤Á¤í¤ó¥Ç¥Ð¥Ã¥¬¤¬¤Ê¤¯¤Æ¤âÁÛÄê³°¤Îư¤­¤ò¤¹¤ë¥¨¥é¡¼¤òÄÙ¤¹¤³¤È¤Ï¤Ç¤­¤Þ¤¹¤¬¡¢¥Ç¥Ð¥Ã¥¬¤ò¤¦¤Þ¤¯³èÍѤ¹¤ë¤³¤È¤Ç¡¢¤è¤ê¸úΨŪ¤Ë¥¨¥é¡¼¤Î¸¶°ø¤ò¸«¤Ä¤±¤ë¤³¤È¤¬²Äǽ¤È¤Ê¤ê¤Þ¤¹¡£¥Ç¥Ð¥Ã¥¬¤ò¤ª»ý¤Á¤Ç¤¢¤ì¤Ð¡¢Êõ¤Î»ý¤ÁÉå¤ì¤Ë¤·¤Ê¤¤¤Ç¡¢¥³¥ó¥Ñ¥¤¥éƱÍÍ¡¢»È¤¨¤ë¥Ä¡¼¥ë¤È¤·¤Æ³èÍѤ·¤Æ¤¯¤À¤µ¤¤¡£
¡¡¤½¤¦¤Ï¸À¤Ã¤Æ¤â¡¢¥Ç¥Ð¥Ã¥¬¤Ï¼Â¹Ô¤Îư¤­¤äÊÑ¿ôÆâ¤ÎÃͤò¼¨¤¹¤À¤±¤Ç¡¢²¿¤¬¸¶°ø¤Ç»×¤¤Ä̤ê¤Ëư¤«¤Ê¤¤¤Î¤«¤ò¼¨¤·¤Æ¤¯¤ì¤ë¤ï¤±¤Ç¤Ï¤¢¤ê¤Þ¤»¤ó¡£¤Ç¤¹¤Î¤Ç¡¢¥Ç¥Ð¥Ã¥¬¤ÇÊѤʲսê¤ò¸«¤Ä¤±¤¿¤é¡¢¥½¡¼¥¹Ê¸¤È¤Ë¤é¤á¤Ã¤³¤¹¤ëɬÍפ¬¤¢¤ê¤Þ¤¹¡£¡Ö¤³¤³¤ÇÊÑ¤ÊÆ°¤­¤ò¤·¤Æ¤¤¤¿¤ó¤À¤±¤É¡¢¤É¤¦¤·¤Æ¤½¤¦¤Ê¤Ã¤Æ¤·¤Þ¤¦¤ó¤À¤í¤¦¡×¡Ö¤³¤³¤òľ¤»¤Ð¡¢Àµ³Î¤Ëư¤¯¤Î¤«¤Ê?¡×¤È¤¤¤Ã¤¿´¶¤¸¤Ç¤Í¡£·ë¶É¡¢¥¨¥é¡¼ÄÙ¤·¤Ë¤Ï¥½¡¼¥¹Ê¸¤ò¤è¤¯Íý²ò¤·¡¢¥×¥í¥°¥é¥à¤Îư¤­¤òƬ¤ÎÃæ¤ÇÀµ³Î¤Ë¥¤¥á¡¼¥¸¤¹¤ëǽÎϤ¬Âç»ö¤Ë¤Ê¤Ã¤Æ¤­¤Þ¤¹¡£¤½¤·¤ÆÊ¸Ë¡¤Î¤·¤Ã¤«¤ê¤È¤·¤¿Íý²ò¤È¡¢¼«Ê¬¤Î»×¤¤ÉÁ¤¯ÍýÁÛ¤Î¼Â¹Ô½ç½ø¤Ë¤è¤ëÀèÆþ´Ñ¤ÎÇÓ½ü¡¢¤½¤·¤Æ¥½¡¼¥¹Ê¸¤ò¤è¤¯ÆÉ¤ß¤³¤à¤³¤È¤¬ÂçÀڤǤ¹¡£
¡¡°ìÈÖ¥×¥í¥°¥é¥à³«È¯¤Çº¬µ¤¤¬Íפë¤Î¤¬¥Ç¥Ð¥Ã¥°¤Ç¤¹¤¬¡¢¤³¤³¤µ¤¨¥¯¥ê¥¢¤¹¤ì¤Ð´°À®¤Ç¤¹¡£Ëͤâ¥Ç¥Ð¥Ã¥°¤Ë¶ì¤·¤ß¡¢²¿ÅÙ¤â¥Ñ¥½¥³¥ó¤ò᤭²õ¤·¤Æ¤ä¤í¤¦¤«¤È»×¤¤¤Þ¤·¤¿¡£¤Ç¤¹¤¬º£¤Þ¤Çµ¯¤­¤¿¥¨¥é¡¼¤ÏÁ´¤Æ²ò·è¤¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤·¤¿¡£¤É¤¦¤·¤Æ¤â̵Íý¤À¤È´¶¤¸¤Æ¤â¡¢¿²¤Æ¼¡¤ÎÆü¤Ëµ¤»ý¤Á¤òÊѤ¨¤Æ¤ä¤Ã¤Æ¤ß¤ë¤È¤Ç¤­¤ë¤³¤È¤â¤¢¤ê¤Þ¤¹¡£Äü¤á¤º¤¬¤ó¤Ð¤Ã¤Æ¤¯¤À¤µ¤¤¡£Äü¤á¤Æ¤·¤Þ¤¦¤³¤È¤Ï¡¢¤³¤Î¾å¤Ê¤¯¤â¤Ã¤¿¤¤¤Ê¤¤¤³¤È¤Ç¤¹¤«¤é¡£

¤è¤¯»÷¤¿C¸À¸ì


¡¡Fortran¤À¤±¤Ë¸Â¤ê¤Þ¤»¤ó¤¬¡¢¥×¥í¥°¥é¥ß¥ó¥°¸À¸ì¤È¤¤¤¦¤Î¤Ï¡¢1¼ïÎà³Ð¤¨¤Æ¤·¤Þ¤¨¤Ð¾¤Î¸À¸ì¤Ë¤â´Êñ¤Ë¾è¤ê´¹¤¨¤ë¤³¤È¤¬¤Ç¤­¤ë¤È¤¤¤ï¤ì¤Æ¤¤¤Þ¤¹¡£¤½¤ì¤Ï¡¢¤É¤ì¤â½ñ¤­Êý¤¬»÷¤¿¤â¤Î¤Ç¤¢¤ë¤«¤é¤Ç¤¹¡£ËͤâFortran¤Î¤Û¤«¤Ë¡¢C¸À¸ì¤ò³Ø¤Ó¤Þ¤·¤¿(ËܤȤδðÁäÀ¤±¤Ç¤¹¤±¤É)¡£ºÇ½é¤Ï¥Ó¥Ó¥ê¤Þ¤¯¤ê¤ÇC¸À¸ì¤ËÆÍÆþ¤·¤Þ¤·¤¿¤¬¡¢¾¯¤·¤Î°ã¤¤¤À¤±ÆÝ¤ß¹þ¤á¤Ð¡¢¸å¤Ï¤¹¤ó¤Ê¤ê¤È³Ø½¬¤¬¿Ê¤ó¤Ç¤¤¤­¤Þ¤·¤¿¡£¤Ç¤¹¤«¤é¡¢Fortran¤ò³Ø¤Ö¤³¤È¤Ï¡¢¤½¤Î¸ú²Ì¤ÏFortran¤À¤±¤Ë¤È¤É¤Þ¤é¤Ê¤¤¤È¤¤¤¦¤³¤È¤Ç¤¹¡£
¡¡Âô»³¤¢¤ë¥×¥í¥°¥é¥ß¥ó¥°¸À¸ì¤ÎÃæ¤Ç¤â¡¢Fortran¤Î¤è¤¦¤Ë²Ê³Ø·×»»¤ÎÃæ¿´¤È¤·¤Æ»È¤ï¤ì¡¢¤Þ¤¿Fortran¤È»÷¤¿´¶³Ð¤Ç»ÈÍѤ¹¤ë¤³¤È¤¬¤Ç¤­¤ëC¸À¸ì¤ò¾¯¤·¤À¤±¾Ò²ð¤·¤Æ¤ß¤¿¤¤¤È»×¤¤¤Þ¤¹¡£Á´ÂΤγµÇ°¤µ¤¨Íý²ò¤·¤Æ¤·¤Þ¤¨¤Ð¡¢¸å¤ÏÌ¿Îáʸ¤Î¸Æ¤ÓÊý¤Î°ã¤¤¤°¤é¤¤¤Ê¤Î¤Ç¡¢¾¯¤·¤¬¤ó¤Ð¤Ã¤Æ¤ß¤ì¤Ð¥×¥í¥°¥é¥ß¥ó¥°¤ÎÂåɽ¸À¸ì¤Ç¤¢¤ëC¸À¸ì¤ò´Êñ¤Ë²ñÆÀ¤¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹(¹âÅ٤ʤâ¤Î¤Ï¤µ¤¹¤¬¤Ë¤½¤ìÁê±þ¤ÎÅØÎϤ¬É¬ÍפǤ¹¤¬)¡£Fortran¤¬Ê¬¤«¤Ã¤Æ¤¤¤ì¤Ð¡¢¾è¤ê´¹¤¨¤Ï´Êñ¤Ç¤¹¡£
¡¡
  • C¸À¸ì¤Ç¤Ï¡¢¥«¥é¥à(Íó¡¦Îó)¤Î³µÇ°¤¬¤¢¤ê¤Þ¤»¤ó¡£¤Þ¤¿¹Ô¤â¸ºß¤·¤Þ¤»¤ó¡£¤É¤¦¤¤¤¦¤³¤È¤«¤È¤¤¤¦¤È¡¢Fortran¸ÇÄê·Á¼°¤Ç¤Ï7Í󤫤é½ñ¤«¤Ê¤¤¤È¤¤¤±¤Ê¤¤¤È¤«¡¢1¹Ô¤Ë2¤Ä¤ÎÌ¿Îáʸ¤ò½ñ¤¯¤³¤È¤¬¤Ç¤­¤Ê¤¤¤È¤«¤¬¤¢¤ê¤Þ¤¹¤¬¡¢C¸À¸ì¤Ç¤Ï²¿ÎóÌÜ¡¢²¿¹ÔÌܤ˽ñ¤¯¤³¤È¤â¤Ç¤­¡¢¹Ô¤¬¤Ê¤¤¤Î¤Ç²þ¹Ô¤â¶õÇò¤È¤·¤ÆÇ§¼±¤µ¤ì¤Þ¤¹¡£C¸À¸ì¤Ï¹Ô¤Î³µÇ°¤¬¤Ê¤¯¡¢¤É¤³¤Ë½ñ¤¤¤Æ¤â¹½¤ï¤Ê¤¤¤Î¤Ç¤¹¤¬¡¢Ì¿Îáʸ¤¬½ªÎ»¤¹¤ë¤È¤­¤Ë¤ÏÆüËܸì¤Î¶çÅÀ¤ÎÌò³ä¤ò»ý¤Ä¡Ö;¡×¤ò¤¦¤ÄɬÍפ¬¤¢¤ê¤Þ¤¹¡£¤Þ¤¿Fortran90¤Î¤è¤¦¤Ë¡Ö;¡×¤ò¶´¤ß¤µ¤¨¤¹¤ì¤Ð¡¢Ê¸¤ò°ì¹Ô¤Ë²¿¸Ä¤Ç¤â½ñ¤¯¤³¤È¤â²Äǽ¤Ç¤¹¡£
  • ¶õÇò¤Ïñ¤Ê¤ë¸ì¤È¸ì¤ÎÀܳ(¤¯¤Ã¤Ä¤«¤Ê¤¤¤è¤¦¤Ë´Ö³Ö¤ò¤¢¤±¤ë)¤À¤±¤ÎÌò³ä¤Ê¤Î¤Ç¡¢²¿¸Ä¶õÇò¤ò»È¤Ã¤Æ¤â°ì¤Ä¤Î¶õÇò¤ÈƱ¤¸¤Ëǧ¼±¤µ¤ì¤Þ¤¹¡£¤Ê¤Î¤Ç¡¢¥½¡¼¥¹¥³¡¼¥É¤ò¸«¤ä¤¹¤¯¤¹¤ë¤¿¤á¤Ë¶õÇò¤Çʸ¤Î°ÌÃÖ¤òÄ´À᤹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£
  • Fortran¤è¤ê¤âÁ°¤Î¸À¸ì¤Ç¤¢¤ë¥¢¥»¥ó¥Ö¥ê¸À¸ì(µ¡³£¸ì¤Ë¶á¤¤¸À¸ì)¤Î¤è¤¦¤Ë¡¢¥³¥ó¥Ô¥å¡¼¥¿¤ËÂФ¹¤ëÁàºîǽÎϤ¬Èó¾ï¤ËÂ礭¤¤¤Ç¤¹¡£¤Ä¤Þ¤ê¡¢¥³¥ó¥Ô¥å¡¼¥¿¤ò¾¤Î¸À¸ì¤è¤ê¤â¤¤¤¸¤ê¤ä¤¹¤Î¤Ç¤¹¡£¡£
  • ¥×¥í¥°¥é¥à¤ÎÀèÆ¬¤Ç¥Ø¥Ã¥À¥Õ¥¡¥¤¥ë¤ò¥¤¥ó¥¯¥ë¡¼¥É¤¹¤ë¡£¥Ø¥Ã¥À¥Õ¥¡¥¤¥ë¤È¤Ï¡¢³ÈÄ¥»Ò¤¬¡Ö.h¡×¤Ç¡¢C¸À¸ì¤ÇÌÜŪ¤ÎÁàºî¤ò¹Ô¤Ê¤¦¤¿¤á¤ËɬÍפʴĶ­¤òÀ°È÷¤¹¤ë¤¿¤á¤Î¥Õ¥¡¥¤¥ë¤Ç¤¹¡£¥¤¥ó¥¯¥ë¡¼¥É¤È¤Ï¡¢¥Ø¥Ã¥À¥Õ¥¡¥¤¥ë¤ò¤½¤Î¥×¥í¥°¥é¥à¤ËÁȤ߹þ¤à¤È¤¤¤¦°ÕÌ£¤Ç¤¹¡£¥Ø¥Ã¥À¥Õ¥¡¥¤¥ë¤Î³µÇ°¤Ï¡¢Fortran¤Î¥â¥¸¥å¡¼¥ë¤ò¥¤¥á¡¼¥¸¤·¤Æ¤ß¤ë¤Èʬ¤«¤ê¤ä¤¹¤¤¤È»×¤¤¤Þ¤¹¡£ÊÑ¿ô¤ä¥µ¥Ö¥ë¡¼¥Á¥ó¤ò¥â¥¸¥å¡¼¥ë¤ÇÄêµÁ¤¹¤ì¤Ð¡¢USEʸ¤ò»ÈÍѤ·¤¿¥×¥í¥°¥é¥àñ°Ì¤Ç¤½¤ÎÆâÍÆ¤¬»ÈÍÑ(»²¾È)²Äǽ¤È¤Ê¤ê¤Þ¤·¤¿¤è¤Í¡£¥Ø¥Ã¥À¥Õ¥¡¥¤¥ë¤òÁȤ߹þ¤à¤È¤¤¤¦¤Î¤â¤³¤ì¤ÈƱ¤¸¤Ç¡¢C¸À¸ì¤Ç¤ÏÊÑ¿ô¤À¤±¤Ç¤Ê¤¯Á´¤Æ¤ÎÁàºî¤¬¥Ø¥Ã¥À¥Õ¥¡¥¤¥ë¤ÎÃæ¤ÇÄêµÁ¤µ¤ì¤Æ¤¤¤Æ¡¢¥Ø¥Ã¥À¥Õ¥¡¥¤¥ë¤ò¥¤¥ó¥¯¥ë¡¼¥É¤·¤Ê¤¤¤È¡¢²¿¤â¤Ç¤­¤Þ¤»¤ó¡£Î㤨¤Ð¡¢Æþ½ÐÎϤò¤¹¤ë¾ì¹ç¤Ë¤Ï¡Östdio.h¡×¤ò¡¢Fortran¤Ç¤ÎÁȤ߹þ¤ß´Ø¿ô¤ò»ÈÍѤ¹¤ë¤Ë¤Ï¡Ömath.h¡×¤ò¥¤¥ó¥¯¥ë¡¼¥É¤¹¤ëɬÍפ¬¤¢¤ê¤Þ¤¹¡£¥Ø¥Ã¥À¥Õ¥¡¥¤¥ë¤Ï¡¢¥³¥ó¥Ñ¥¤¥é¤ò»ý¤Ã¤Æ¤¤¤ì¤Ð¤½¤Î¥Õ¥©¥ë¥À¤ÎÃæ¤ËÍѰդµ¤ì¤Æ¤¤¤Þ¤¹¡£
  • C¸À¸ì¤Ç¤Ï¡¢Á´¤Æ¤Î¥×¥í¥°¥é¥àñ°Ì¤¬´Ø¿ô¤ÇÀ®¤êΩ¤Ã¤Æ¤¤¤Þ¤¹¡£¤³¤³¤¬Fortran¤ÈÂ礭¤¯°ã¤¦¤«¤â¤·¤ì¤Þ¤»¤ó¡£´Ø¿ôÉû¥×¥í¥°¥é¥à¤Ï´Ø¿ô¤Ç¤·¤¿¤«¤éÆñ¤Ê¤¯Íý²ò¤Ç¤­¤ë¤È»×¤¤¤Þ¤¹¤¬¡¢C¸À¸ì¤Ç¤Ï¼ç¥×¥í¥°¥é¥à¤ÎÉôʬ(PROGRAM)¤â´Ø¿ô¤Ç¤Ç¤­¤Æ¤¤¤Þ¤¹¡£Ì¾¾Î¤Ï¡Ömain()¡×¤Ç¤¹¡£¤Ä¤Þ¤ê¡¢¼ç¥×¥í¥°¥é¥à¤âÉû¥×¥í¥°¥é¥à¤â´Ø¿ô¤Ê¤Î¤Ç¤¹¡£
  • ´Ø¿ô¤Î½é¤á¤È½ª¤ï¤ê¤Ë¤ÏÃæ³ç¸Ì¤¬ÉÕ¤­¤Þ¤¹¡£¡Ömain()¡×¤Ë¤âÅö¤Æ¤Ï¤Þ¤ê¤Þ¤¹¡£¤³¤ì¤ÏFortran¤Ç¤Ï¡ÖPROGRAM¡×¤ä¡ÖSUBROUTINE¡×¤Ç¤Ï¤¸¤Þ¤ê¡¢¡ÖEND¡×¤Ç½ªÎ»¤·¤Æ¤¤¤¿¤È¤³¤í¤¬¡¢C¸À¸ì¤Ç¤Ï¡Ö{¡×¤Ç»Ï¤Þ¤ê¡¢¡Ö}¡×¤Ç½ªÎ»¤·¤Þ¤¹¡£¤³¤Î¤Û¤¦¤¬ÌµÂ̤ËŤ¤±Ñ»ú¤Ç»Ï¤Þ¤ê¤È½ª¤ï¤ê¤òÀë¸À¤·¤Ê¤¯¤Æ¤¤¤¤¤Î¤Ç¡¢¸«¤ä¤¹¤¯¤Ê¤ê¤Þ¤¹¡£¤¯¤ì¤°¤ì¤âÃæ³ç¸Ì¤òÆþÎϤ¹¤ë¤È¤­¤Ë¤Ï¡¢¤·¤Ã¤«¤êshift¥­¡¼¤ò²¡¤·¤Æ¤¯¤À¤µ¤¤¤Í¡£ËͤϤ褯¼ºÇÔ¤·¤Æ¡¢Ãæ³ç¸Ì¤È¤è¤¯»÷¤¿Âç³ç¸Ì¤ÇÆþÎϤ·¤Æ¤·¤Þ¤¤¡¢¤ï¤±¤Îʬ¤«¤é¤Ê¤¤¥³¥ó¥Ñ¥¤¥ë¥¨¥é¡¼¤ò¼õ¤±¤Æ¤·¤Þ¤¤¤Þ¤¹¡£
  • ¥Ý¥¤¥ó¥¿¤ÎÁàºî¤¬¶¯ÎϤǡ¢»þ¤Ë¤Ï½ÅÂç¤Ê¥¨¥é¡¼¤òÀ¸¤¸¤µ¤»¤Æ¤·¤Þ¤¦¤³¤È¤¬¤¢¤ë¤¬¡¢¥Ï¡¼¥É¥¦¥§¥¢¤Ø¤Î¶¯ÎϤÊÎϤòȯ´ø¤·¤Þ¤¹¡£Fortran¤Ë¤½¤³¤Þ¤Ç¤Î¥Ý¥¤¥ó¥¿Ç½ÎϤϤ¢¤ê¤Þ¤»¤ó¡£
  • ¥À¥¤¥¯¥¹¥È¥é¤Î¹½Â¤²½¥×¥í¥°¥é¥ß¥ó¥°¤Î¼çÄ¥¤Î¸å¤ËÅо줷¤¿¸À¸ì¤Ê¤Î¤Ç¡¢¹½Â¤²½»×¹Í¤¬À°¤Ã¤Æ¤¤¤Þ¤¹¡£¤È¤¯¤Ëgotoʸ¤ò»ÈÍѤ·¤Ê¤¤¤³¤È¤ËŰÄ줷¤Æ¤¤¤Æ¡¢Ê¸ÈÖ¹æ¤Î³µÇ°¤¬¤¢¤ê¤Þ¤»¤ó¡£

¡¡»î¤·¤ËC¸À¸ì¤Ç¥×¥í¥°¥é¥à¤ò½ñ¤¤¤Æ¤ß¤Þ¤·¤ç¤¦¡£Fortran¤Ç½ñ¤¤¤¿Îãʸ¤¬²¼¤Îʸ¤Ç¤¹¡£

program main
¡¡print *,'Hello world!'
end program

¡¡¤½¤·¤Æ¡¢¤³¤ì¤¬C¸À¸ì¤Çµ­½Ò¤·¤¿¾ì¹ç¤Îʸ¤Ç¤¹¡£

#include
void main(){
¡¡printf("Hello world!\n");
¡¡return 0;
¡¡¡¡¡¡¡¡}

¡¡·ë¹½¸«¤¿Ìܤ¬ÊѤï¤ê¤Þ¤·¤¿¤Í¡£¤Ç¤â¡¢ºÇ½é¤ËŬÀڤʥإåÀ¥Õ¥¡¥¤¥ë(C¸À¸ì¤Ëɬ¿Ü¤Ê¤Î¤Ï¡Östdio.h¡×)¡¢¼ç¥×¥í¥°¥é¥à¤â´Ø¿ô¤Ë¤Ê¤ë¤³¤È¡¢´Ø¿ô¤Î½é¤á¤È½ª¤ï¤ê¤ÏÃæ³ç¸Ì¡¢¤¢¤È¤ÏÌ¿Îáʸ¤Î̾¾Î¤Î°ã¤¤¤À¤±Íý²ò¤Ç¤­¤ì¤Ð¡¢¤Û¤È¤ó¤ÉƱ¤¸¤Ç¤¢¤ë¤³¤È¤¬Ê¬¤«¤ë¤È»×¤¤¤Þ¤¹¡£¤Á¤Ê¤ß¤Ë¡¢¡Övoid¡×¤È¤¢¤ë¤Î¤Ï¡¢¡Ö¤³¤Î(main)´Ø¿ô¤ÏÃͤòÊÖ¤·(»ý¤Á)¤Þ¤»¤ó¡×¤È¤¤¤¦°ÕÌ£¤Ç¡¢¤½¤ì¤ò¼Â¹Ô¤·¤Æ¤¤¤ë¤Î¤¬¡Öreturn 0¡×¤Ç¤¹¡£ÃͤòÊÖ¤¹¤È¤¤¤¦¤Î¤Ï¡¢Fortran¤Ç¤ÎÉû¥×¥í¥°¥é¥à¤Î·ë²ÌÊÑ¿ô¤ËÃͤò¤·¤Þ¤¦¤³¤È¤Ç¤¹¡£¤³¤Î¾ì¹ç¤Ï¡¢Éû¥×¥í¥°¥é¥à¤ò»ÈÍѤ·¤Æ¤¤¤Þ¤»¤ó¤Î¤Ç¡¢main¥×¥í¥°¥é¥à¤ò¸Æ¤Ó½Ð¤·¤¿ÊÌ¤Î¥×¥í¥°¥é¥àñ°Ì(Î㤨¤ÐFortran¤Î¥µ¥Ö¥ë¡¼¥Á¥ó)main¥×¥í¥°¥é¥à¤ÎÃͤòÊÖ¤¹É¬Íפ¬¤Ê¤¤¤Î¤Ç¡¢¡ÖÃÍ0¤òÊÖ¤¹¡×¡¢¤Ä¤Þ¤êÃͤòÊÖ¤µ¤Ê¤¤½èÍý¤ò¹Ô¤Ê¤Ã¤Æ¤¤¤ë¤È¤¤¤¦¤ï¤±¤Ç¤¹¡£
¡¡¤Ç¤Ï²¼¤Ë¡¢Fortran¤Ç»ÈÍѤµ¤ì¤Æ¤¤¤ëÌ¿Îáʸ¤¬¡¢C¸À¸ì¤Ç¤Ï¤É¤Î¤è¤¦¤Ê̾¾Î¤Ç¸Æ¤Ð¤ì¤Æ¤¤¤ë¤Î¤«¤ò¾Ò²ð¤·¤Æ¤¤¤­¤¿¤¤¤È»×¤¤¤Þ¤¹¡£´Êñ¤Ë¤·¤«¾Ò²ð¤·¤Ê¤¤¤Î¤Ç¡¢¾¯¤Ê¤¤¤Ç¤¹¤¬¡¢C¸À¸ì¤Ë¤ÏFortran¤òͤ¨¤ëÂô»³¤ÎÌ¿Îáʸ¤¬Â¾¤Ë¤âÍѰդµ¤ì¤Æ¤¤¤Þ¤¹¡£

¡¡
integer int a;
real float a;
character char a;
double precision double a;
ÇÛÎó int a[3];
write
print
printf("¤³¤ÎÅú¤¨¤Ï%d",a);
read scanf("%d %d",&a,&b);
if else endif if(a>3){Ì¿Îáʸ;}
else{Ì¿Îáʸ;}
case switch(a){
¡¡¡¡case 0:Ì¿Îáʸ
break;
¡¡¡¡case 1:Ì¿Îáʸ
break;
¡¡¡¡default:Ì¿Îáʸ
break;
¡¡¡¡¡¡¡¡}
do for(i=1;i<8;i++){Ì¿Îáʸ;}
while(i>=2){Ì¿Îáʸ;}
do{Ì¿Îáʸ;]while(i=3);
save static
type main¤è¤ê¤â¾å¦¤Ç
struct Student{
¡¡char name;
¡¡int number;
¡¡¡¡};

void main(){
¡¡struct Student seito
¡¡seito.number=11
function main¤è¤ê¤â¾å¦¤Ç int sum(int x,int y);

void main(){ ¡¡int x,y,z;
¡¡z=sum(x,y); ¡¡printf("ϤÏ%d",z);
¡¡return 0;
¡¡¡¡}

int sub(int x,int y){
¡¡int z;
¡¡z=x+y;
¡¡return z;
¡¡¡¡}


¡¡¤É¤¦¤Ç¤¹¤«¡£¤³¤ì¤ÏËܤΰìÉô¤Ç¤¹¤¬¡¢·ë¹½C¸À¸ì¤Î¸ÀÍÕ¤ÏFortran¤È»÷¤Æ¤¤¤ë¤Î¤Ç¤Ï¤Ê¤¤¤«¤È»×¤¤¤Þ¤¹¡£¸å¤Ï´·¤ì¤Ç¤¹¡£½ñ¤­Êý¤Î·Á¼°¤Ë´·¤ì¤Æ¤·¤Þ¤¨¤Ð(ÆÃ¤ËÃæ³ç¸Ì¤È¥»¥ß¥³¥í¥ó)¡¢¸å¤ÏFortran¤ÇÇݤä¿Ã챤òÀ¸¤«¤»¤Ð¡¢´Êñ¤ËC¸À¸ì¤Î¥×¥í¥°¥é¥ß¥ó¥°¤ò¹Ô¤Ê¤¦¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£C¸À¸ì¤Ë¤Ï¥Ý¥¤¥ó¥¿¤ËÂåɽ¤µ¤ì¤ë¤è¤¦¤ÊFortran¤è¤ê¤â¶¯ÎϤÊÁàºî¤¬²Äǽ¤Ê¤Î¤Ç¡¢Fortran¤Ç¤Ï´Êñ¤¹¤®¤ÆË°¤­Ë°¤­¤·¤Æ¤·¤Þ¤Ã¤¿¿Í¤Ë¤Ï¤Ô¤Ã¤¿¤ê¤«¤â¤·¤ì¤Þ¤»¤ó¡£
¡¡¤â¤·C¸À¸ì¤ò¤ä¤Ã¤Æ¤ß¤¿¤¤¡¦¤â¤Ã¤È¾Ü¤·¤¯ÃΤꤿ¤¤¤È»×¤Ã¤¿¿Í¤Ï¡¢¤¼¤Ò¡Ø¥×¥í¥°¥é¥à¤ò½ñ¤³¤¦!¡¡CÆþÌç¡Ù¤òˬ¤ì¤Æ¤ß¤Æ¤¯¤À¤µ¤¤¡£¤³¤Î¥Ú¡¼¥¸¤ÏC¸À¸ì¤ò¾Ü¤·¤¯Ê¬¤«¤ê¤ä¤¹¤¯½ñ¤¤¤Æ¤¤¤ë¥Ú¡¼¥¸¤Ç¥ª¥¹¥¹¥á¤Ç¤¹¡£¤µ¤é¤ËC¸À¸ì¤Î¿Ê²½·Á¤Ç¤¢¤ëC++¤ä¡¢C¸À¸ì¤Èʤó¤Çͭ̾¤ÊJava¤â°·¤Ã¤Æ¤¤¤ë¤Î¤Ç¡¢¤ß¤ó¤Ê¤Þ¤È¤á¤Æ³Ø½¬¤¹¤ë¤Î¤â¤¤¤¤¤È»×¤¤¤Þ¤¹¡£¤»¤Ã¤«¤¯Fortran¤ò³Ø¤ó¤À¤Ê¤é¡¢C¸À¸ì¤Ë¤â¥Á¥ã¥ì¥ó¥¸¤·¤Æ¤ß¤Æ¤¯¤À¤µ¤¤¤Í¡£

¥³¥Þ¥ó¥É¥×¥í¥ó¥×¥È¤Ã¤Æ¡¢¤Ê¤ó¤À¤í¤¦?


¡¡¥³¥Þ¥ó¥É¥×¥í¥ó¥×¥È¤Ï¡¢windows¤ò»ý¤Ã¤Æ¤¤¤ëÊý¤Ê¤é¡¢¤À¤ì¤Ç¤â»ý¤Ã¤Æ¤¤¤Þ¤¹¡£¥¹¥¿¡¼¥È¥Ü¥¿¥ó¢ª¥¢¥¯¥»¥µ¥ê¤ÎÃæ¤Ë¤¢¤ê¤Þ¤¹¤Í¡£¤·¤«¤·¡¢¤³¤ì¤ò»È¤Ã¤¿¤³¤È¤Î¤¢¤ë¿Í¤Ï¾¯¤Ê¤¤¤Î¤Ç¤Ï¤Ê¤¤¤Ç¤·¤ç¤¦¤«¡£¤Ê¤Ë¤»µ¯Æ°¤¹¤ë¤È¿¿¤Ã¹õ¤¤²èÌ̤ËÉÔµ¤Ì£¤Ê±Ñ¸ìʸ»ú¡£¥Þ¥¦¥¹Áàºî¤Ï½ÐÍ褺¡¢¤ï¤ì¤ï¤ìGUI(¥Þ¥¦¥¹¤ä¥¢¥¤¥³¥ó¤È¤¤¤Ã¤¿¡¢»ë³ÐŪÍ×ÁǤǥ³¥ó¥Ô¥å¡¼¥¿¤ò°·¤¤¤ä¤¹¤¯¤¹¤ë¤È¤¤¤¦¹Í¤¨)¤Î²¸·Ã¤ò½½Ê¬¤ËÌ£¤ï¤Ã¤Æ¤¤¤ë¿Í´Ö¤«¤é¤¹¤ë¤È¡¢¾¯¤·¤¤¤¸¤¯¤Ã¤¿¸å¤Ë¤¹¤°¥¦¥£¥ó¥É¥¦¤Î±¦¾å¤Î¡Ö¡ß¡×¥Ü¥¿¥ó¤ò²¡¤·¤Æ¡Ö½ªÎ»¡×¤Ç¤¹¡£¤·¤«¤·¡¢¥³¥Þ¥ó¥É¥×¥í¥ó¥×¥È¤Ã¤Æ²¿¤Ê¤ó¤Ç¤·¤ç¤¦¤Í¡£
¡¡¥³¥Þ¥ó¥É¥×¥í¥ó¥×¥È¤È¤¤¤¦¤Î¤Ï¡¢ÊÌ̾¤«Àµ¼°Ì¾¾Î¤«¤É¤¦¤«¤Ïʬ¤«¤é¤Ê¤¤¤Î¤Ç¤¹¤¬¡¢¡ÖÆþÎϤòÂ¥¤¹µ­¹æ¡×¤À¤½¤¦¤Ç¤¹¡£¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¤Î¥³¥Þ¥ó¥É¥×¥í¥ó¥×¥È¤ò³«¤¯¤È¡¢ÂçÄñ¡Öc:\>¡×¤È¤¤¤¦¸ÀÍÕ¤¬½ñ¤«¤ì¤Æ¤¤¤Þ¤¹¤è¤Í¡£¤½¤Î¡¢¡Ö>¡×¤ÎÉôʬ¤¬¡¢¥³¥Þ¥ó¥É¥×¥í¥ó¥×¥È¤Ê¤ó¤À¤½¤¦¤Ç¤¹¡£¡Ö²¶¤Ë¤·¤Æ¤Û¤·¤¤Ì¿Îá¤ò½ñ¤±¡×¤È¥³¥ó¥Ô¥å¡¼¥¿¤¬Â¥¤·¤Æ¤¤¤ë¤È¤¤¤¦¤³¤È¤Ç¤¹¤Í¡£¤Á¤Ê¤ß¤Ë¡Öc:\¡×¤Î¡Ö£ã¡×¤Ï¥Ç¥£¥ì¥¯¥È¥ê(¥Õ¥©¥ë¥À¤Î°ÌÃÖ¤òɽ¤¹+¥Õ¥©¥ë¥À̾)¤Ç¡¢¡Ö\¡×¤Ï¥Õ¥©¥ë¥ÀƱ»Î¤Î¶èÀڤ국¹æ¤Ç¤·¤¿¡£
¡¡¥¢¥×¥ê¤Î¥³¥Þ¥ó¥É¥×¥í¥ó¥×¥È¤Ï¡¢ÀΤϡÖMS-DOS¥×¥í¥ó¥×¥È¡×¤È¸Æ¤Ð¤ì¤Æ¤¤¤Þ¤·¤¿¡£µ¡Ç½¤Ï¤Û¤È¤ó¤É¥³¥Þ¥ó¥É¥×¥í¥ó¥×¥È¤ÈƱ¤¸¤è¤¦¤Ç¤¹¤¬¡¢»È¤ï¤ì¤Æ¤¤¤¿´Ä¶­¤¬°ã¤¦¤¿¤á¡¢¸Æ¤Ó̾¤¬°ã¤¦¤è¤¦¤Ç¤¹¡£MS-DOS¥×¥í¥ó¥×¥È¤¬»È¤ï¤ì¤Æ¤¤¤¿¤Î¤Ï¡¢windows NT°ÊÁ°¤Î´Ä¶­¤Ç¡¢¤½¤ì°Ê¹ß¤Ï¥³¥Þ¥ó¥É¥×¥í¥ó¥×¥È¤Î¤è¤¦¤Ç¤¹¡£Windows NT¤È¤¤¤¦¤Î¤Ï¡¢(Ëͤâ¾Ü¤·¤¯¤Ïʬ¤«¤é¤Ê¤¤¤Î¤Ç¤¹¤¬)¹â¤¤½èÍý®Å٤ȿ®ÍêÀ­¤ò·ó¤ÍÈ÷¤¨¤¿ºÇ¿·¤Î32bit OS¤Î¤³¤È¤Ç¡¢windows2000¤¬¤³¤ì¤À¤Ã¤¿¤ß¤¿¤¤¤Ç¤¹¤Í¡£Workstation¤ÈServer¤Î2¼ïÎब¤¢¤ê¡¢¥×¥ê¥¨¥ó¥×¥Æ¥£¥Ö¥Þ¥ë¥Á¥¿¥¹¥¯¤ò¼ÂÁõ¤·...¤Ã¤Æ¤â¤¦Ê¬¤«¤ê¤Þ¤»¤ó¡£MS-DOS¥×¥í¥ó¥×¥È¤È¤¤¤¦¸Æ¤Ó̾¤Ï¡¢windows95,98¤Ç»È¤ï¤ì¤Æ¤¤¤ë¤ß¤¿¤¤¤Ç¤¹¡£
¡¡ÀΤϥ³¥Þ¥ó¥É¥×¥í¥ó¥×¥È¤Î¤è¤¦¤Ê¡¢¥­¡¼¥Ü¡¼¥É¤«¤é¤ÎÌ¿Îá¤Ë¤è¤ê¥³¥ó¥Ô¥å¡¼¥¿¤òư¤«¤·¤Æ¤¤¤¿¤½¤¦¤Ç¤¹¡£º£¤Ç¤Ï¥³¥ó¥Ô¥å¡¼¥¿¤Ø¤Î¥³¥ó¥¿¥¯¥È¤Ï¥­¡¼¥Ü¡¼¥É¤â¤½¤ê¤ã¤¢¤ê¤Þ¤¹¤¬¡¢´ðËܤϥޥ¦¥¹¤Ç¤¹¤Í¡£¥Þ¥¦¥¹¤Ç¥Õ¥©¥ë¥À¤ò¥¯¥ê¥Ã¥¯¤¹¤ì¤ÐÃæ¿È¤¬Ê¬¤«¤ê¡¢¥Õ¥¡¥¤¥ë¤òÄϤá¤Ð°Üư¤¬¤Ç¤­¤ë¡£¤Ê¤ó¤È¤âÊØÍø¤Ç´Êñ¤ÊÁàºî¤Ç¤¹¤¬¡¢ÀΤϤ³¤ì¤òʸ»ú¤Ë¤è¤ëÌ¿Îá¤Ç¤·¤«½ÐÍè¤Ê¤«¤Ã¤¿¡¢¤½¤â¤½¤â¥¢¥¤¥³¥ó¤Ê¤ó¤Æ¤¤¤¦³µÇ°¤¬¤Ê¤«¤Ã¤¿¤é¤·¤¤¤Ç¤¹¤«¤é¡¢¶²¤í¤·¤¤»þÂå¤Ç¤¹¡£GUI´Ä¶­¤Ã¤ÆÁÇÀ²¤é¤·¤¤¤Ç¤¹¤Í¡£
¡¡¤¤¤Þ¤Ç¤Ï¥³¥Þ¥ó¥É¥×¥í¥ó¥×¥È¤¬¤Ê¤¯¤Æ¤â½½Ê¬¥Ñ¥½¥³¥óÁàºî¤¬¤Ç¤­¤Þ¤¹(¾¯¤Ê¤¯¤È¤â¸Ä¿Í¥ì¥Ù¥ë¤Ç¤Ï)¡£¤½¤ì¤Ç¤â¥³¥Þ¥ó¥É¥×¥í¥ó¥×¥È¤¬¥Ä¡¼¥ë¤È¤·¤Æ»Ä¤Ã¤Æ¤¤¤ëÍýͳ¤Ï²¿¤Ç¤·¤ç¤¦¡£¤½¤ì¤Ï¡¢¥Þ¥¦¥¹Áàºî¤Ë¤è¤ë¥¢¥×¥ê¥±¡¼¥·¥ç¥óÁàºî¤Ç¤ÏÌÌÅݤ¯¤µ¤¯¡¢¤â¤Ã¤È¸úΨ¤è¤¯¤Ç¤­¤ëÅĤȤ«¡¢¤³¤ì¤ò»È¤ï¤Ê¤¤¤È³«¤±¤Ê¤¤¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¤¬¤¢¤ë¤È¤«¸À¤¦¥á¥ê¥Ã¥È¤¬¤¢¤ë¤«¤é¤Ç¤¹¡£
¡¡¤½¤Î¥á¥ê¥Ã¥È¤ò¡¢³Ð½ñ¤Ç¤¹¤¬¤¤¤¯¤Ä¤«µó¤²¤Æ¤ß¤Þ¤·¤ç¤¦¡£¥³¥Þ¥ó¥É¥×¥í¥ó¥×¥È¤Ë¤Ï¡¢¤½¤ìÀìÍѤΥե¡¥¤¥ë·Á¼°¤È¤·¤Æ¡¢¡Ö¥Ð¥Ã¥Á¥Õ¥¡¥¤¥ë¡×¤È¤¤¤¦¤Î¤¬¤¢¤ê¤Þ¤¹¡£¤³¤ì¤Ï°ì¼ï¤Î¥×¥í¥°¥é¥ß¥ó¥°¸À¸ì¤Ë¤è¤ë¥Õ¥¡¥¤¥ë¤Ç¡¢³ÈÄ¥»Ò¤Ï¡Ö.bat¡×¤Ç¤¹¡£¤³¤³¤Ë¡¢¥³¥Þ¥ó¥É¥×¥í¥ó¥×¥È¤Ç¹Ô¤Ê¤¦¤³¤È¤¬¤Ç¤­¤ëÌ¿Îá¤ò½ñ¤¤¤Æ¤ª¤¯¤È¡¢¤½¤Î¥Ð¥Ã¥Á¥Õ¥¡¥¤¥ë¤òµ¯Æ°¤¹¤ë¤À¤±¤Ç¡¢¥Õ¥¡¥¤¥ë¤Ë½ñ¤«¤ì¤¿ÆâÍÆ¤¬¼Â¹Ô¤µ¤ì¤Þ¤¹¡£Ì¿Îá¤Ë¤Ïʬ´ô¤ä·«¤êÊÖ¤·½èÍý¤â¹Ô¤Ê¤¦¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£
¡¡¤³¤Î¥Ð¥Ã¥Á¥Õ¥¡¥¤¥ë¤ò»È¤¦¤È¡¢Ê£¿ô¤Î¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¤òƱ»þ¤Ëµ¯Æ°¤µ¤»¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£Î㤨¤Ð¡¢¥×¥í¥°¥é¥à¤ò¹Ô¤Ê¤¦¾ì¹ç¤Ë¤Ï¥¨¥Ç¥£¥¿¤È¥³¥ó¥Ñ¥¤¥é¤È¥³¥Þ¥ó¥É¥×¥í¥ó¥×¥È¤òµ¯Æ°¤µ¤»¤ëɬÍפ¬¤¢¤ë¤È¤·¤Þ¤·¤ç¤¦¡£¤½¤Î¤È¤­¡¢¤³¤ì¤Ï3¤Ä¤Ç¥»¥Ã¥È¤Ë¤Ê¤Ã¤Æ¤¤¤ë¤ï¤±¤Ç¤¹¤«¤é¡¢¤É¤ì¤«µ¯Æ°¤µ¤»¤ë¤È¤­¤Ë¤Ï3¤Ä¤È¤âµ¯Æ°¤µ¤»¤ë¤³¤È¤Ë¤Ê¤ê¤Þ¤¹¡£¤É¤¦¤»¤Ê¤é¡¢°ì²ó¤Ç3¤Ä¤òµ¯Æ°¤µ¤»¤ë¤³¤È¤¬¤Ç¤­¤¿¤é¡¢Èó¾ï¤Ëµ¤Ê¬¤¬³Ú¤Ë¤Ê¤ê¤Þ¤¹¤è¤Í¡£¥Ð¥Ã¥Á¥Õ¥¡¥¤¥ë¤ò»È¤¦¤È¡¢¥Ð¥Ã¥Á¥Õ¥¡¥¤¥ë¤òµ¯Æ°¤µ¤»¤ë¤À¤±¤Ç3¤Ä¤Î¥¢¥×¥ê¥±¡¼¥·¥ç¥ó¤ò°ìµ¤¤Ë¼Â¹Ô¤µ¤»¤ë¤³¤È¤¬¤Ç¤­¡¢ÌÌÅݤʵ¯Æ°ºî¶È¤Ëµ¤¤ò¤â¤à¤³¤È¤¬¤Ê¤¯¤Ê¤ê¤Þ¤¹¡£
¡¡¤Þ¤¿¥Ð¥Ã¥Á¥Õ¥¡¥¤¥ë¤ò»È¤Ã¤Æ¡¢»ØÄê¤Î»þ´Ö¤Ë¥Õ¥¡¥¤¥ë¤òµ¯Æ°¤µ¤»¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£ËèÆü¤ÎÆü²Ý¤È¤·¤Æ¡¢Ä«¤Î²¿»þ²¿Ê¬¤Ë¥á¡¼¥ë¤ò¥Á¥§¥Ã¥¯¤·¤Æ¤¤¤ë¤È¤«¡¢²¿»þ²¿Ê¬¤ËÆü»ï¤ò¤Ä¤±¤Æ¤¤¤ë¤È¤«¤¹¤ë¾ì¹ç¡¢¼«Ê¬¤Çµ¤ÉÕ¤¤¤¿¤È¤­¤Ëµ¯Æ°¤µ¤»¤ë¤è¤ê¤â¡¢¼«Æ°¤ÇΩ¤Á¾å¤¬¤Ã¤Æ¤¯¤ì¤¿¤Û¤¦¤¬³Ú¤Ç¤¹¤è¤Í¡£¤½¤ì¤â¡¢¥Ð¥Ã¥Á¥Õ¥¡¥¤¥ë¤Ç²Äǽ¤Ê¤Î¤Ç¤¹¡£¤³¤ì¤òÍøÍѤ¹¤ì¤Ð¡¢ÊªËº¤ì¤Î·ã¤·¤¤¿Í¤Ç¤â¤Ø¤Ã¤Á¤ã¤é¤Ç¤¹¡£
¡¡¤µ¤é¤Ë¡¢¥Õ¥¡¥¤¥ë¤Îɽ¼¨¤ò¥Õ¥¡¥¤¥ë¤Î³ÈÄ¥»Ò¤Ë½¾¤Ã¤Æ¹Ô¤Ê¤¦¤³¤È¤â¤Ç¤­¤Þ¤¹¡£¥Æ¥­¥¹¥È¥¨¥Ç¥£¥¿¤Ê¤ê¡¢¥Ú¥¤¥ó¥È¥½¥Õ¥È¤Ê¤ê¤ò»ÈÍѤ·¤¿Êý¤Ï¡¢¡Ö̾Á°¤ò¤Ä¤±¤ÆÊݸ¡×¤ò»ÈÍѤ·¤¿¤³¤È¤¬¤¢¤ê¤Þ¤¹¤è¤Í¡£¤½¤Î²èÌ̤β¼¤Î¤Û¤¦¤Ë¡Ö¥Õ¥¡¥¤¥ë¤Î¼ïÎà¡×¤È¤¤¤¦¤Î¤¬¤¢¤ê¤Þ¤¹¡£¤³¤Î¥×¥ë¥À¥¦¥ó¥á¥Ë¥å¡¼¤Î¤É¤ì¤«¤òÁªÂò¤¹¤ë¤³¤È¤Ë¤è¤ê¡¢É½¼¨¤·¤¿¤¤¥Õ¥¡¥¤¥ë¤À¤±¤òɽ¼¨¤¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£Î㤨¤Ð¡¢¥Õ¥¡¥¤¥ë¤Î¼ïÎà¤Ç¡Ö.bat¡×¤ÈÁª¤Ù¤Ð¥Ð¥Ã¥Á¥Õ¥¡¥¤¥ë¤À¤±¤¬¡¢¡Ö.jpg¡×¤òÁª¤Ù¤ÐJPEG¥Õ¥¡¥¤¥ë¤À¤±¤¬É½¼¨¤µ¤ì¡¢¤½¤Î¥Õ¥¡¥¤¥ë·Á¼°¤Î¥Õ¥¡¥¤¥ë¤¬¤É¤Î¤¯¤é¤¤¡¢¤½¤·¤Æ²¿¤¬¤¢¤ë¤Î¤«¤¬°ìÌܤÇʬ¤«¤ê¤Þ¤¹¡£¥³¥Þ¥ó¥É¥×¥í¥ó¥×¥È¤Ç¤â¤½¤ì¤¬²Äǽ¤Ç¤¹¡£¸«¤¿¤¤¥Õ¥¡¥¤¥ë¤Î¥Ç¥£¥ì¥¯¥È¥ê¤Ø¤È°Üư¤·¡¢¥³¥Þ¥ó¥É¥×¥í¥ó¥×¥È¤Ë¡Ödir *.for¡×¤ÈÆþ¤ì¤Æ¤ß¤Æ¤¯¤À¤µ¤¤¡£¤½¤Î¥Ç¥£¥ì¥¯¥È¥ê¤ÎÃæ¤Ë¤¢¤ëFortran¤Î¥½¡¼¥¹¥Õ¥¡¥¤¥ë¤Î¤ß¤¬É½¼¨¤µ¤ì¤Þ¤¹¡£¤³¤ì¤Ë¤è¤ê¡¢¥½¡¼¥¹¥Õ¥¡¥¤¥ë¤È°ì½ï¤Ëexe¥Õ¥¡¥¤¥ë¤äobj¥Õ¥¡¥¤¥ë¤Ë¤è¤Ã¤Æ¤´¤Á¤ã¤´¤Á¤ã¤·¤Æ¤¤¤ë¥Õ¥©¥ë¥À¤ÎÃæ¤Ë¤É¤ì¤À¤±¤Î¥½¡¼¥¹¥Õ¥¡¥¤¥ë¤¬Â¸ºß¤·¤Æ¤¤¤ë¤Î¤«¤¬¡¢°ìÌÜÎÆÁ³¤È¤Ê¤ê¤Þ¤¹¡£¥Õ¥©¥ë¥À¤ò³«¤¤¤Æ¤â¡¢¥Õ¥¡¥¤¥ë·Á¼°¤òÁª¤ó¤Çɽ¼¨¤¹¤ëµ¡Ç½¤Ï¤Ê¤¤¤Î¤Ç¡¢¤³¤ì¤Ï·ë¹½ÊØÍø¤«¤â¤·¤ì¤Þ¤»¤ó¡£
¡¡Â¾¤Ë¤Ï¡¢¥³¥Þ¥ó¥É¥×¥í¥ó¥×¥È¤Ë¤Ï¥Þ¥¦¥¹Áàºî¤Çõ¤·½Ð¤¹¤è¤ê¤â¡¢´Êñ¤Ë¡¦Á᤯¥Õ¥¡¥¤¥ë¤ò³«¤¯¤³¤È¤¬¤Ç¤­¤ë¥á¥ê¥Ã¥È¤¬¤¢¤ê¤Þ¤¹¡£¤½¤Î¥Õ¥¡¥¤¥ë¤¬¤É¤³¤Î¥Ç¥£¥ì¥¯¥È¥ê¤Ë¤¢¤ë¤Î¤«¤¬Ê¬¤«¤ì¤Ð¡¢¤½¤Î¥Ñ¥¹(¥¢¥É¥ì¥¹)¤òÆþÎϤ¹¤ë¤À¤±¤Ç¥Õ¥¡¥¤¥ë¤¬³«¤¯¤Î¤Ç¡¢¤¤¤Á¤¤¤Á¥Þ¥¦¥¹¤Ç¥¯¥ê¥Ã¥¯¤ò·«¤êÊÖ¤·¤Æ¥Õ¥©¥ë¥À¤ò·¡¤Ã¤Æ¤¤¤¯¤è¤ê¤âÁ᤯¤¢¤±¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£Â¾¤Ë¥³¥Þ¥ó¥É¥×¥í¥ó¥×¥È¤Ï¡¢ºÙ¤«¤¤¥·¥¹¥Æ¥à¤ÎÀßÄê¤ä¡¢¥Í¥Ã¥È¥ï¡¼¥¯Ä´À°¤ò¹Ô¤Ê¤¦¤³¤È¤¬¤Ç¤­¤ë¤½¤¦¤Ç¤¹¡£Ëº¤ì¤Æ¤Ï¤¤¤±¤Ê¤¤¤Î¤Ï¡¢¼«Ê¬¤ò´Þ¤á¡¢¤³¤Î¥Û¡¼¥à¥Ú¡¼¥¸¤ÇFortran¤ò³Ø½¬¤·¤Æ¤¤¤ë(¤¤¤¿)Êý¡¹¤Ë¤È¤Ã¤Æ°ìÈ֤Υá¥ê¥Ã¥È¤È¤¤¤¨¤Ð¡¢¥³¥ó¥Ñ¥¤¥ë¤·¤Æ¤Ç¤­¤¿¼Â¹Ô¥Õ¥¡¥¤¥ë¤Î¥³¥Þ¥ó¥É¥×¥í¥ó¥×¥È¤Ë¤è¤êµ¯Æ°¡¢¤Ç¤¹¤è¤Í¡£
¡¡¥³¥Þ¥ó¥É¥×¥í¥ó¥×¥È¤Ë¤â¥×¥í¥°¥é¥ß¥ó¥°¸À¸ìƱÍÍ¡¢Âô»³¤ÎÌ¿Î᤬ÍѰդµ¤ì¤Æ¤¤¤ë¤Î¤Ç¡¢»È¤¤¤³¤Ê¤¹¤Ë¤Ï¤½¤ì¤Ê¤ê¤ÎÅØÎϤ¬É¬Íפʤ褦¤Ç¤¹¤¬¡¢»È¤¨¤ë¤è¤¦¤Ë¤Ê¤ë¤ÈÊØÍø¤Ë¤Ê¤ë¤³¤È¤¬Â¿¤¤¤½¤¦¤Ç¤¹¡£¶½Ì£¤ò»ý¤Ã¤¿Êý¤Ï¤·¤¿¤Î¡Ö»²¹Í¡×¤«¤é¥¸¥ã¥ó¥×¤·¤Æ¡¢¤¼¤Ò¥³¥Þ¥ó¥É¥×¥í¥ó¥×¥È¤Î»È¤¤Êý¤ò³Ø¤ó¤Ç¼ÂÁ©¤·¤Æ¤ß¤Æ¤¯¤À¤µ¤¤¡£

¥³¥ó¥Ñ¥¤¥ë¤ò¤¹¤ë¤È¡¢PC¾å¤Ç¤Ï²¿¤¬µ¯¤­¤ë?


¡¡Fortran¤Ç¤Ï¡¢¥³¥ó¥Ñ¥¤¥ë¤È¤¤¤¦¤Î¤Ï¤â¤Ï¤äÅö¤¿¤êÁ°¤Î¤³¤È¤Ç¡¢Fortran¤ò³Ø½¬¤·¤Æ¤¤¤ë³§¤µ¤ó¤Ë¤È¤Ã¤Æ¤Ï¤ª¼ê¤Îʪ,¤Ç¤¹¤è¤Í¡£¤È¤³¤í¤Ç¡¢¥³¥ó¥Ñ¥¤¥ë¤È¤¤¤¦¤Î¤Ï¡¢°ìÂΤɤ¦¤¤¤¦¤â¤Î¤Ê¤Î¤Ç¤·¤ç¤¦¤«¡£
¡¡¥³¥ó¥Ñ¥¤¥ë¤òÆüËܸì¤Ë¤¹¤ë¤È¡¢¡ÖËÝÌõ¡×¤Ç¤¹¤Í¡£¤½¤¦¡¢¤Þ¤µ¤Ë¥³¥ó¥Ñ¥¤¥ë¤ÏËÝÌõºî¶È¤Î¤³¤È¤Ê¤Î¤Ç¤¹¡£²¿¤òËÝÌõ¤·¤Æ¤¤¤ë¤Î¤«¤È¤¤¤¦¤È¡¢¥½¡¼¥¹¥Õ¥¡¥¤¥ë(¥½¡¼¥¹¥³¡¼¥É¤È¤â)¤Ç¤¹¤Í¡£¥½¡¼¥¹¡¢¤Ä¤Þ¤ê¥×¥í¥°¥é¥à¤Î¡Ö¸»¡×¤Ç¤¹¤Í¡£¤½¤ì¤Ç¤Ï¡¢²¿¤ËËÝÌõ¤·¤Æ¤¤¤ë¤Î¤Ç¤·¤ç¤¦¤«¡£²¿¤òËÝÌõ¤·¤Æ¤¤¤ë¤Î¤«¤Ïʬ¤«¤Ã¤Æ¤¤¤Æ¤â¡¢²¿¤¬½ÐÍè¾å¤¬¤Ã¤Æ¤¤¤ë¤Î¤«¤òÃΤäƤ¤¤ë¿Í¤Ï·ë¹½¤¤¤ë¤Î¤Ç¤Ï¤Ê¤¤¤Ç¤·¤ç¤¦¤«¡£½ÐÍè¾å¤¬¤Ã¤Æ¤¤¤ë¤Î¤Ï¼Â¹Ô¥Õ¥¡¥¤¥ë?¡¡¤½¤ì¤âÀµ²ò¤Ç¤Ï¤¢¤ë¤Î¤Ç¤¹¤¬¡¢À­³Ê¤Ë¤Ï°ã¤¦¤ó¤Ç¤¹¡£½ÐÍè¾å¤¬¤Ã¤Æ¤¤¤ë¤Î¤Ï¡¢¥ª¥Ö¥¸¥§¥¯¥È¥Õ¥¡¥¤¥ë(¥ª¥Ö¥¸¥§¥¯¥È¥³¡¼¥É)¤Ê¤Î¤Ç¤¹¡£
¡¡¥½¡¼¥¹¥³¡¼¥É¤ò¥³¥ó¥Ñ¥¤¥ë¤·¤Æ¤ß¤¿¤é¡¢¤¼¤Ò¤½¤Î¥½¡¼¥¹¥³¡¼¥É¤¬Æþ¤Ã¤Æ¤¤¤ë¥Õ¥©¥ë¥À¤ò¤¢¤±¤Æ¤ß¤Æ¤¯¤À¤µ¤¤¡£¤­¤Ã¤È¤½¤ÎÃæ¤Ë¤Ï¡¢¡Ö.obj¡×¤È¤¤¤¦¥Õ¥¡¥¤¥ë¤¬¤·¤Þ¤ï¤ì¤Æ¤¤¤ë¤Ï¤º¤Ç¤¹¡£¤³¤ì¤¬¡¢¥ª¥Ö¥¸¥§¥¯¥È¥³¡¼¥É¤Ç¤¹¡£¡Öobject¡×¤Îά¤Ç¡¢¡Ö.obj¡×¤Ç¤¹¤Í¡£µ¡³£¸ì¤¬¡Ö¸ÇÍ­¸ì¡×¤È¸Æ¤Ð¤ì¤ë¤Î¤Ç¡¢¥ª¥Ö¥¸¥§¥¯¥È¥³¡¼¥É¤Ï¡Ö¥Í¥¤¥Æ¥£¥Ö¥³¡¼¥É¡×¤È¤â¸Æ¤Ð¤ì¤Þ¤¹¡£¤³¤Î¥Õ¥¡¥¤¥ë¤¬²¿¤Ê¤Î¤«¤È¤¤¤¦¸À¤¦¤È¡¢¤³¤ì¤âÆâÍÆ¤Ï¥½¡¼¥¹¥Õ¥¡¥¤¥ë¤ÈƱ¤¸¤Ç¤¹¡£¤¿¤À¡¢½ñ¤­Êý¤¬°ã¤¦¤ß¤¿¤¤¤Ç¤¹¡£¥½¡¼¥¹¥Õ¥¡¥¤¥ë¤ÏËͤ餬¤è¤¯ÃΤäƤ¤¤ë±Ñ¸ì¤Ç½ñ¤«¤ì¤¿Ê¸¾Ï¤Ç¤¹¤¬¡¢¤³¤Î¥ª¥Ö¥¸¥§¥¯¥È¥Õ¥¡¥¤¥ë¤Ï¡¢µ¡³£¸ì¤Ç½ñ¤«¤ì¤Æ¤¤¤ë¤ó¤À¤½¤¦¤Ç¤¹¡£³«¤¤¤Æ¤ß¤¿¤³¤È¤¬¤Ê¤¤¤«¤é¤ï¤«¤ê¤Þ¤»¤ó¤±¤É¤Í¡£
¡¡µ¡³£¸ì¤È¤Ï²¿¤Ç¤·¤ç¤¦¡£¤½¤ì¤Ï¡¢0¤È1¤ÎÀ¤³¦¤Ç¤¹¡£2¿Ê¿ô¤Ï¤´Â¸ÃΤǤ¹¤«?¡¡Á´¤Æ¤Î»öÊÁ¤ò¡¢0¤È1¤ÎÆó¼ïÎà¤Î¿ô»ú¤Çɽ¤·¤Æ¤·¤Þ¤¦¤È¤¤¤¦¡¢¤ª¤Ã¤½¤í¤·¤¤À¤³¦¤Ç¤¹¡£10¿Ê¿ô¤È¤Î°ã¤¤¤Ï¡¢°ì·å¤Ëɽ¤»¤ëºÇ¹â¤¬£±¤Ê¤Î¤¬2¿Ê¿ô¡¢£¹¤Ê¤Î¤¬10¿Ê¿ô¤Ç¤¹¡£10¿Ê¿ô¤Ï9¤Ë1¤òÍ¿¤¨¤ë¤È¼¡¤Î·å¤¬1·«¤ê¾å¤¬¤ê¡¢¸µ¤Î·å¤Ï0¤Ë¤Ê¤ê¤Þ¤¹¤Í¡£2¿Ê¿ô¤À¤È1¤Î¼¡¤Ï0¤ËÀ®¤ê¡¢¼¡¤Î·å¤¬1¤Ä·«¤ê¾å¤¬¤ê¤Þ¤¹¡£10¿Ê¿ô¤Î¡Ö25¡×¤È¤Ï¡¢¡Ö11001¡×¤Î¤³¤È¤Ç¤¹¡£
¡¡¥³¥ó¥Ô¥å¡¼¥¿¤Ï2¿Ê¿ô¤ò´ð¤Ëºî¤é¤ì¤Æ¤¤¤Þ¤¹¤Î¤Ç¡¢2¿Ê¿ô¤Ç¤Ê¤é¥×¥í¥°¥é¥Þ¤«¤é¤ÎÌ¿Îá¤òʹ¤¯¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£¡Ö²èÌ̤Ë­¤·»»¤Î·ë²Ì¤òɽ¼¨¤·¤í¡×¤È¤¤¤¦Ì¿Îá¤â¡¢1¤È0¤Ë¤è¤ëÌ¿Îá¤Ê¤é²Äǽ¤Ê¤Î¤Ç¤¹¡£¤·¤«¤·¡¢Ëüǽ¤Ê¥³¥ó¥Ô¥å¡¼¥¿¤Ç¤â¡¢Ëͤé¿Í´Ö¤Î¸ÀÍÕ¤ÏÁ´Á³Íý²ò¤Ç¤­¤Þ¤»¤ó¡£¡ÖPrint the answer!¡×¤È¤¤¤Ã¤Æ¤â¡¢¥³¥ó¥Ô¥å¡¼¥¿¤ÏÁ´Á³Ìµ»ë¤Ç¤¹¡£¤Ç¤¹¤«¤é¡¢¥³¥ó¥Ô¥å¡¼¥¿¤ËÌ¿Î᤹¤ë¤Ë¤Ï¡¢2¿Ê¿ô¤ÇÌ¿Îá¤ò¤·¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£
¡¡¤Ç¤â¡¢¤Ö¤Ã¤Á¤ã¤±2¿Ê¿ô¤ÇÌ¿Îáʸ¤ò½ñ¤¯¤Ê¤ó¤Æ¡¢ÂçÊѤǤ¹¤è¤Í¡£Ã±¤Ë·±Îý¤·¤Æ¤Ê¤¤¤«¤é¤À¤±¤¸¤ã¤Ê¤¯¤Æ¡¢¿ô»ú¤ÎÍåÎó¤À¤±¤ÎÌ¿Îá¤Ê¤ó¤Æ¡¢¥Ð¥ê¥¨¡¼¥·¥ç¥ó¤¬¤¢¤ê¤¹¤®¤Ç¡¢1Æü¤Ç¤â¤¦¥®¥Ö¥¢¥Ã¥×¤Ç¤¹¡£ÀÎ¤Î¥×¥í¥°¥é¥Þ¤Ï¡¢¤³¤ì¤Ë¤á¤Á¤ã¤¯¤Á¤ãǺ¤Þ¤µ¤ì¤Æ¤¤¤¿¤ß¤¿¤¤¤Ç¤¹¡£ÅÓÃæ¡¢¡ÖÆó¡¼¥â¥Ã¥¯¡×¤È¸Æ¤Ð¤ì¤ë¡¢2¿Ê¿ô¤ÎÌ¿Îá¤ò±Ñ¸ìɽµ­¤Ëľ¤»¤ëÊØÍø¤Ê¥ê¥Õ¥¡¥ì¥ó¥¹¤¬Åо줷¤¿¤ß¤¿¤¤¤Ê¤ó¤Ç¤¹¤¬¡¢¤³¤ì¤Ç¤â¤ä¤Ã¤Ñ¤êÊÑ´¹ºî¶È¤¬ÂçÊѤÀ¤Ã¤¿¤½¤¦¤Ç¤¹¡£
¡¡¤È¤¤¤¦¤³¤È¤Ç¡¢¹âµé¸À¸ì¤È¸Æ¤Ð¤ì¤ë¡¢Ëͤ餬Æü¾ï»È¤¦¸ÀÍÕ(¤È¤¤¤Ã¤Æ¤â±Ñ¸ì)¤Ç¥½¡¼¥¹¥³¡¼¥É¤ò½ñ¤­¡¢¤·¤«¤â¤½¤ÎÊÑ´¹ºî¶È¤ò¤·¤Ê¤¯¤Æ¤¤¤¤¸À¸ì¤¬Åо줷¤Þ¤·¤¿(¤Á¤Ê¤ß¤Ë¤½¤ì°ÊÁ°¤Î¸À¸ì¤ÏÄãµé¸À¸ì)¡£¤â¤Á¤í¤óFortran¤â¤½¤Î°ì¤Ä¤Ç¤¹¡£Åö½é¤Ï¤½¤Î¸À¸ì¤Ë¤Ï¥³¥ó¥Ñ¥¤¥é¤È¤¤¤¦¤â¤Î¤¬ÁõÈ÷¤µ¤ì¡¢ÊÑ´¹ºî¶È¤Ïµ¡³£¤ËǤ¤»¤È¤±!¤È¤¤¤¦¤³¤È¤Ë¤Ê¤ê¤Þ¤·¤¿¡£Åö»þ¤È¤·¤Æ¤Ï¡¢¤³¤Î¤³¤È¤Ï¤³¤Î¾å¤Ê¤¤´¶Æ°¤ò¥×¥í¥°¥é¥Þ¤Ë¤â¤¿¤é¤·¤¿¤Ç¤·¤ç¤¦¤Í¡£
¡¡¥³¥ó¥Ô¥å¡¼¥¿¤ä¸À¸ì¤Ï¿Ê²½¤ò³¤±¤Æ¤¤¤Þ¤¹¤¬¡¢¤¤¤Þ¤À¤Ë¥³¥ó¥Ô¥å¡¼¥¿¤Ïµ¡³£¸ì¤Ç¤Ê¤¤¤ÈÌ¿Îá¤òÍý²ò¤¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤»¤ó¡£¤Ç¤â¡¢Ëͤé¤À¤Ã¤Æ0¤È1¤ÎÀ¤³¦¤ÎÌ¿Îáʸ¤Ê¤ó¤Æ½ñ¤­¤¿¤¯¤¢¤ê¤Þ¤»¤ó¡£¤È¤¤¤¦¤ï¤±¤Ç¡¢¥³¥ó¥Ñ¥¤¥é¤¬¿Í´Ö¤Î¸ÀÍÕ(¥½¡¼¥¹¥³¡¼¥É)¤ò¡¢µ¡³£¤Î¸ÀÍÕ(¥ª¥Ö¥¸¥§¥¯¥È¥³¡¼¥É)¤ËÊÑ´¹¤¹¤ëɬÍפ¬¤¢¤ë¤Î¤Ç¤¹¡£
¡¡¥ª¥Ö¥¸¥§¥¯¥È¥³¡¼¥É¤Ï¡¢¥×¥í¥°¥é¥ß¥ó¥°¤ò¹Ô¤Ê¤¦´Ä¶­¤Ë¤è¤Ã¤Æ°Û¤Ê¤ê¤Þ¤¹¡£windows¤Çºî¤Ã¤¿¥ª¥Ö¥¸¥§¥¯¥È¥³¡¼¥É¤Ï¥Þ¥Ã¥¯¤Ç¤Ï¥À¥á¡¢C¸À¸ì¤Çºî¤Ã¤¿¥ª¥Ö¥¸¥§¥¯¥È¥³¡¼¥É¤ÏFortran¤Ç¤Ï¥À¥á,¤È¤¤¤¦¶ñ¹ç¤Ç¤¹¡£¥ª¥Ú¥ì¡¼¥·¥ç¥ó¥·¥¹¥Æ¥à¡¦CPU¡¦¥×¥í¥°¥é¥ß¥ó¥°¸À¸ì¤Ë¤è¤Ã¤Æ¡¢¤½¤ì¤¾¤ì°ã¤Ã¤¿¥ª¥Ö¥¸¥§¥¯¥È¥³¡¼¥É¤¬½ÐÍè¾å¤¬¤ë¤½¤¦¤Ç¤¹¡£Fortran¤äC¸À¸ìÅù¤Î·çÅÀ¤Î°ì¤Ä¤Ï¤³¤ì¤Ç¡¢À¸À®¤·¤¿¥×¥í¥°¥é¥à¤¬¸ÂÄꤷ¤¿´Ä¶­¤Ç¤·¤«»ÈÍѤǤ­¤Ê¤¤¤È¤¤¤¦¤³¤È¤Ç¤¹¡£¤³¤Î·çÅÀ¤ò²þÁ±¤·¤¿¤Î¤¬¡¢Java¤Ç¤¹¤Í¡£
¡¡¥³¥ó¥Ñ¥¤¥ë¤Ë¤è¤Ã¤Æºî¤é¤ì¤ë¥Õ¥¡¥¤¥ë¤Ï¡¢¥ª¥Ö¥¸¥§¥¯¥È¥Õ¥¡¥¤¥ë¤Ç¤¹¡£¼Â¹Ô¥Õ¥¡¥¤¥ë¤Îexe¥Õ¥¡¥¤¥ë¤Ç¤Ï¤¢¤ê¤Þ¤»¤ó¡£ºÇ¶á¤Î¥³¥ó¥Ñ¥¤¥é¤Ï¤½¤ì¤â¤Þ¤È¤á¤Æºî¤Ã¤Á¤ã¤¦¤ß¤¿¤¤¤Ç¤¹¤±¤É¤Í¡£¥³¥ó¥Ñ¥¤¥ë¤Ë¤è¤Ã¤Æºî¤é¤ì¤¿¥ª¥Ö¥¸¥§¥¯¥È¥Õ¥¡¥¤¥ë¤Ï¡¢µ¡³£¸ì¤Ëľ¤µ¤ì¤¿¥½¡¼¥¹¥³¡¼¥É¤Ë½ñ¤«¤ì¤¿¥×¥í¥°¥é¥à¤ÎÀ߷׿ޤǤ¹¡£¤³¤ì¤ò´ð¤Ë¡¢º£Å٤ϼ¹ԥե¡¥¤¥ë¤¬ºî¤é¤ì¤Þ¤¹¡£
¡¡¼Â¹Ô¥Õ¥¡¥¤¥ë¤Ï¡¢¡Ö¥ê¥ó¥¯¡×¤È¤¤¤¦ºî¶È¤ò¹Ô¤Ê¤Ã¤Æºî¤é¤ì¤Þ¤¹¡£¥ê¥ó¥¯¤È¤¤¤Ã¤Æ¤â¡¢¥Û¡¼¥à¥Ú¡¼¥¸¤Ë¤¢¤ë¤è¤¦¤Ê¡¢Ê̤Υڡ¼¥¸¤ËÈô¤Ö¥ê¥ó¥¯¤Ç¤Ï¤¢¤ê¤Þ¤»¤ó¤è¡£¥ê¥ó¥¯¤È¤¤¤¦¤Î¤Ï¡¢¥ª¥Ö¥¸¥§¥¯¥È¥³¡¼¥É¤È¥é¥¤¥Ö¥é¥ê¥³¡¼¥É¤È¤ò·ë¤ÓÉÕ¤±¤Æ¡¢¼Â¹Ô¥Õ¥¡¥¤¥ë¤òÀ¸À®¤¹¤ëºî¶È¤Î¤³¤È¤Ç¤¹¡£¥ê¥ó¥¯¤ò¹Ô¤Ê¤¦¤Î¤Ï¥ê¥ó¥«¤È¸Æ¤Ð¤ì¤ë¸ºß¤Ç¤¹¡£¥ê¥ó¥«¤â¥³¥ó¥Ñ¥¤¥é¤È°ì½ï¤Î¥Õ¥©¥ë¥À¤ËÍѰդµ¤ì¤Æ¤¤¤Þ¤¹¡£¥ê¥ó¥¯¤ò¤¹¤ëºÝ¡¢¥ª¥Ö¥¸¥§¥¯¥È¥³¡¼¥É¤ÏÊ£¿ô¹ç¤Ã¤Æ¤âÂç¾æÉפÀ¤½¤¦¤Ç¤¹¡£
¡¡³§¤µ¤ó¤Ï¥ê¥ó¥«¤ò»È¤Ã¤¿¤³¤È¤Ï¤Ê¤¤¤È»×¤¤¤Þ¤¹(Salford¼Ò¤µ¤ó¤ÎFortran90ÈǤΥ³¥ó¥Ñ¥¤¥é¤ò»ÈÍѤ·¤Æ¤¤¤ëÊý¤ÏÊ̤Ǥ¹¤¬)¡£ºÇ¶á¤Î¥³¥ó¥Ñ¥¤¥é¤ÏÈó¾ï¤ËÊØÍø¤Ë¤Ç¤­¤Æ¤¤¤Æ¡¢¥³¥ó¥Ñ¥¤¥ë¤ò¤·¤¿¤é¡¢¤Ä¤¤¤Ç¤Ë¥ê¥ó¥¯¤â¤·¤Æ¤¯¤ì¤Á¤ã¤¦¤è¤¦¤Ë¤Ç¤­¤Æ¤¤¤Þ¤¹¡£ÉáÄ̤ϥ³¥ó¥Ñ¥¤¥ë¤·¤¿¤é¤½¤Î¤Þ¤Þ¥ê¥ó¥¯¤·¤Á¤ã¤¤¤Þ¤¹¤«¤é¤Í¡£°ì½ï¤Ë¤·¤Æ¤¯¤ì¤¿¤Û¤¦¤¬¼ê´Ö¤¬¤«¤«¤é¤Ê¤¯¤Æ¤¤¤¤¤Ç¤¹¡£
¡¡ÉáÄ̤ϤĤ¤¤Ç¤Ë¥ê¥ó¥¯¤â¤·¤Æ¤¯¤ì¤Æ¹½¤ï¤Ê¤¤¤ó¤Ç¤¹¤¬¡¢Ê£¿ô¥ª¥Ö¥¸¥§¥¯¥È¥³¡¼¥É¤ò·ë¤Ó¤Ä¤±¤¿¤ê¡¢¼«Ê¬¤Ç¥é¥¤¥Ö¥é¥ê¥Õ¥¡¥¤¥ë¤òÁª¤Ó¤¿¤¤¤È¤­¤â¤¢¤ê¤Þ¤¹(ËÍ¥ì¥Ù¥ë¤Î¿Í´Ö¤Ç¤Ï¤Þ¤À¤½¤ó¤Ê¤³¤È¤Ï¤¢¤ê¤Þ¤»¤ó¤¬)¡£¤½¤¦¤¤¤¦»þ¤Ï¡¢¼«Ê¬¤Ç¥ê¥ó¥«¤ò»È¤Ã¤Æ¥ê¥ó¥¯ºî¶È¤ò¤³¤Ê¤¹¤³¤È¤Ë¤Ê¤ê¤Þ¤¹¤Í¡£Î㤨¤Ð¡¢¥ª¥Ö¥¸¥§¥¯¥È¥Õ¥¡¥¤¥ë¤À¤±ºî¤Ã¤Æ¤ª¤¤¤Æ¡¢Ê̤Υ½¡¼¥¹¥³¡¼¥É¤È¥ê¥ó¥¯¤µ¤»¤Æ¡¢Ã±¤Ë¥½¡¼¥¹¥³¡¼¥É¤ò¥³¥ó¥Ñ¥¤¥ë¡¦¥ê¥ó¥¯¤µ¤»¤¿¤À¤±¤Î¼Â¹Ô¥Õ¥¡¥¤¥ë¤È¤ÏÊ̤μ¹ԥե¡¥¤¥ë¤òºî¤ë¤³¤È¤¬¤Ç¤­¤ë¤ß¤¿¤¤¤Ç¤¹¡£
¡¡Ëͤ¬»È¤Ã¤Æ¤¤¤ëFortran¥³¥ó¥Ñ¥¤¥é¤ÏÉÙ»ÎÄ̤ΡÖFortran & C Package¡×¤Ê¤ó¤Ç¤¹¤¬¡¢¤³¤Î¥³¥ó¥Ñ¥¤¥é¤Ç¥³¥ó¥Ñ¥¤¥ë¤¹¤ë¤È¡¢³ÈÄ¥»Ò¤¬¡Öfwd¡×¤È¤«¡¢¡Öydg¡×¤È¤«¤¤¤¦¥Õ¥¡¥¤¥ë¤Þ¤ÇÀ¸À®¤µ¤ì¤Þ¤¹¡£¤³¤ì¤¬²¿¤Ê¤Î¤«¤Ï¤Þ¤ÀÄ´ººÃæ¤Ç¤¹¡£¤Ê¤ó¤À¤«ÉÔµ¤Ì£¤Ç¤¹¤Í¡£

¥¿¥Ã¥Á¥¿¥¤¥Ô¥ó¥°¤ò¥Þ¥¹¥¿¡¼¤·¤è¤¦!


¡¡³§¤µ¤ó¡¢¥¿¥Ã¥Á¥¿¥¤¥Ô¥ó¥°¤Ã¤ÆÊ¹¤¤¤¿¤³¤È¤¢¤ê¤Þ¤¹¤è¤Í¡£¤è¤¯¸À¤¦¡Ö¥Ö¥é¥¤¥ó¥É¥¿¥Ã¥Á¡×¤Ç¤¹¡£ºÇ¶á¤Ï»ë³Ð¾ã³²¼Ô¤ÎÊý¤ËÇÛθ¤·¤Æ¡¢¥¿¥Ã¥Á¥¿¥¤¥Ô¥ó¥°¤È¤¤¤¦Ì¾¾Î¤ò»ÈÍѤ¹¤ë¤³¤È¤¬Â¿¤¤¤½¤¦¤Ç¤¹¡£¥¿¥Ã¥Á¥¿¥¤¥Ô¥ó¥°¤Ï¤Ç¤­¤Þ¤¹¤«?¡¡·ë¹½Æñ¤·¤¤¤Ç¤¹¤è¤Í¡£
¡¡¥¿¥Ã¥Á¥¿¥¤¥Ô¥ó¥°¤È¤¤¤¦¤Î¤Ï¡¢¥­¡¼¥Ü¡¼¥É¤ò¸«¤º¤Ë²èÌ̤Ëʸ»ú¤òÂǤÁ¹þ¤á¤ë¤³¤È¤Ç¤¹¡£½é¿´¼Ô¤ÎÊý¤Ë¤Ï¤È¤Æ¤â¤È¤Æ¤â̵Íý¤ÊÏäÀ¤È»×¤¤¤Þ¤¹¡£¥­¡¼¥Ü¡¼¥É¤òÂǤĤ³¤È¤¬Âç³Ø¤Î¥ì¥Ý¡¼¥ÈºîÀ®¤Î¤È¤­¤°¤é¤¤¤·¤«¤Ê¤¤¡¢¤È¤¤¤¦¿Í¤Ï·ë¹½¤¤¤ë¤È»×¤¤¤Þ¤¹¡£¤¤¤ä¤â¤Ã¤ÈÂǤĤ衢¤È¤¤¤¦¿Í¤Ç¤â¡¢¥­¡¼¥Ü¡¼¥É¤ò¸«¤Ê¤¬¤éξ¼ê°ìËܻؤÇɬ»à¤Ë¥­¡¼¥Ü¡¼¥É¤È³ÊÆ®¤·¤Æ¤¤¤ë¤³¤È¤¬Â¿¤¤¤Î¤Ç¤Ï¤Ê¤¤¤Ç¤·¤ç¤¦¤«¡£Ã¯¤À¤Ã¤Æ»Ï¤á¤Ï¤½¤¦¤Ê¤Ã¤Æ¤·¤Þ¤¦¤Î¤Ç¤¹¤¬¡¢¤â¤·¤½¤¦¤Ê¤é¡¢¤¼¤Òº£Æü¤«¤é¥¿¥Ã¥Á¥¿¥¤¥Ô¥ó¥°¤ÎÎý½¬¤ò¤·¤Þ¤·¤ç¤¦¡£
¡¡¥¿¥Ã¥Á¥¿¥¤¥Ô¥ó¥°¤¬¤Ç¤­¤ë¤è¤¦¤Ë¤Ê¤ë¤È¤Ê¤¼¤¤¤¤¤Î¤Ç¤·¤ç¤¦¤«¡£¤½¤ì¤Ï¿§¡¹¤¢¤ê¤Þ¤¹¡£°ìÈÖ¿¿¤ÃÀè¤Ë»×¤¤¤Ä¤¯¤Î¤¬¡¢Ê¸»ú¤òÆþÎϤ¹¤ë¥¹¥Ô¡¼¥É¤¬³ÊÃʤ˸þ¾å¤¹¤ë¡¢¤È¤¤¤¦¤³¤È¤Ç¤¹¡£½ñ¤­¼Ì¤¹¸µ¤ò¸«¤Æ¡¢¥­¡¼¥Ü¡¼¥É¤ÎÆþÎϤ·¤¿¤¤¥­¡¼¤òõ¤·¡¢²¡¤·¤¿¤é²èÌ̤dzÎǧ¤·¡¢¤Þ¤¿½ñ¤­¼Ì¤¹²¼¤ò¸«¤Æ...¤È¤¤¤¦ºî¶È¤Ç¤Ï¡¢°ìÄê»þ´Ö¤Ë¤«¤±¤ëʸÎ̤ˤϸ¤꤬¤¢¤ê¤Þ¤¹¡£¤Ç¡¢ÅÓÃæ¤Ç¥¤¥é¥¤¥é¤·¤Æ¤­¤Þ¤¹¡£¥¤¥é¥¤¥é¤¹¤ë¤«¤é¡¢¤µ¤é¤ËÂǤĥ¹¥Ô¡¼¥É¤¬²¼¤¬¤ê¤Þ¤¹¡£¤½¤Î·ë²Ì¡¢¥Ñ¥½¥³¥ó¤Ë¥­¥ìµ¤Ì£¤Ë¤Ê¤ê¡¢¥Ñ¥½¥³¥ó¤ò᤭¤Þ¤¹(¤Ã¤Æ¡¢¤³¤³¤Þ¤Ç¤Ï¤¤¤«¤Ê¤¤¤«)¡£¥ì¥Ý¡¼¥ÈºîÀ®¤¬ÌµÃã¶ìÃã·ù¤Ê¤â¤Î¤Ë¤Ê¤ê¡¢²¼½ñ¤­¤ò¤»¤ºÄ¾ÀÜÆþÎϤ·¤Ê¤¬¤éÆâÍÆ¤ò¹Í¤¨¤Æ¤¤¤¿¾ì¹ç¡¢µ¤»ý¤Á¤ÎÄã²¼¤Ë¤è¤êÆâÍÆ¤ò¶ãÌ£¤¹¤ëÎϤ¬¸º¾¯¤·¡¢¥ì¥Ý¡¼¥È¤ÎÆâÍÆ¤Þ¤Ç¼Á¤ÎÄã²¼¤¬µ¯¤³¤Ã¤Æ¤·¤Þ¤¤¤Þ¤¹¡£ÀµÄ¾¡¢ºÇ°­¤Ç¤¹¡£
¡¡¥¿¥Ã¥Á¥¿¥¤¥Ô¥ó¥°¤¬¤Ç¤­¤ì¤Ð¡¢ÂǤĤΤʤó¤ÆÁ´Á³ÂçÊѤǤϤʤ¯¤Ê¤ê¤Þ¤¹(ʸÎÌ¿¤¤¤È¡¢¼ê¤ÏÈè¤ì¤Þ¤¹¤¬)¡£»×¤Ã¤¿¤³¤È¡¦½ñ¤³¤¦¤È¤·¤¿¤³¤È¤ò¤¹¤é¤¹¤é¤È²èÌÌ¤ËÆþÎϤ¹¤ë¤³¤È¤¬¤Ç¤­¡¢º£¤Þ¤Ç¤Î3Çܶᤤ®ÅÙ¤Çʸ¾Ï¤¬½ÐÍè¾å¤¬¤Ã¤Æ¤¤¤­¤Þ¤¹¡£¤½¤ì¤Ë¤è¤ê¼ê¤ÎÈè¤ì¡¦Æ¬¤ÎÈè¤ì¡¦¥¤¥é¥¤¥é¤¬¾¯¤Ê¤¯¤Ê¤ê¡¢Ê¸¾Ï¤Î¼Á¤Î¸þ¾å¤ËƬ¤ò»È¤¦¤³¤È¤¬¤Ç¤­¡¢°ìÀÐÆóÄ»¤Ë¤Ê¤ê¤Þ¤¹¡£
¡¡¤Þ¤¿¥¿¥Ã¥Á¥¿¥¤¥Ô¥ó¥°¤¬¤Ç¤­¤ë¤ÈÌܤÎÈè¤ì¤â´öʬ¾¯¤Ê¤¯¤Ê¤ë¤Ç¤·¤ç¤¦¡£º£¤Þ¤Ç¤Ï½ñ¤­¼Ì¤¹¸µ¡¦¥­¡¼¥Ü¡¼¥É¡¦²èÌ̤Σ³¤Ä¤ò¸ò¸ß¤Ë¸«¤Æ¤¤¤¿¤Î¤¬¡¢¥­¡¼¥Ü¡¼¥É¤ò¸«¤Ê¤¯¤Æ¤¹¤à¤ï¤±¤Ç¤¹¤«¤é¡¢ÌܤÎÈèÏ«¤Ï³ÊÃʤˤʤ¯¤Ê¤ë¤Ç¤·¤ç¤¦¡£Ã±¤Ë¸«¤Ê¤¯¤Ê¤ë¤À¤±¤Ç¤Ï¤Ê¤¯¡¢ÌÜŪ¤Î¥­¡¼¤òõ¤¹É¬Íפ¬¤Ê¤¯¤Ê¤ë¤Î¤Ç¤¹¤«¤é¡¢¤º¤Ã¤È²èÌ̤À¤±¸«¤ì¤Ð¤¤¤¤¡¦½ñ¤­¼Ì¤·²¼¤À¤±¸«¤ì¤Ð¤¤¤¤¤Î¤Ç¡¢ÌܤϤ¢¤ë°ìÅÀ¤Ë¸ÇÄꤹ¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£
¡¡¤Ä¤¤¤Ç¤Ë¸À¤¦¤È¡¢¥¿¥Ã¥Á¥¿¥¤¥Ô¥ó¥°¤¬¤Ç¤­¤ë¤È¥«¥Ã¥³¤¤¤¤¤Ç¤¹¡£Âç³ØÀ¸¤Ë¤Ê¤ì¤Ð¥Ñ¥½¥³¥ó¤ò»ÈÍѤ¹¤ë¤³¤È¤ÏÈó¾ï¤Ë¿¤¯¤Ê¤ê¤Þ¤¹¤¬¡¢¤½¤ÎÃæ¤Ç10Ëܻؤǥ¿¥Ã¥Á¥¿¥¤¥Ô¥ó¥°¤¬¤Ç¤­¤ë¿Í¤Ï¤½¤ó¤Ê¤Ë¤¤¤Ê¤¤¤È»×¤¤¤Þ¤¹¡£¼«Ê¬¤Î¼þ¤ê¤Ç¤Ï¡¢5³ä¤Ç¤­¤Æ¤¤¤ë¤«¤É¤¦¤«¤Ç¤¹¡£¤Ç¡¢¥¿¥Ã¥Á¥¿¥¤¥Ô¥ó¥°¤·¤Æ¤¤¤ë¿Í¤È¤½¤¦¤Ç¤Ê¤¤¿Í¤È¤òÈæ¤Ù¤Æ¤ß¤ë¤È¡¢¤«¤¿¤ä¤¢¤Ã¤Á¤³¤Ã¤ÁÌܤòư¤«¤·¤Æ¤â¤¿¤Ä¤¤¤Æ¤¤¤Æ¡¢¤«¤¿¤äÇØ¶Ú¤ò¿­¤Ð¤·¤Ê¤¬¤é¤¹¤é¤¹¤é¤Èʸ»ú¤òÆþÎϤ·¤Æ¤¤¤ë¡£Á´Á³¤½¤Î¿Í¤Î¤¹¤´¤µ¤¬°ã¤Ã¤Æ¤­¤Þ¤¹¡£¤Þ¤¿¤½¤¦¤Ç¤­¤Æ¤¤¤ë¼«Ê¬¤Ë¤â¿ì¤¤¤·¤ì¤ë¤³¤È¤À¤Ã¤Æ¤Ç¤­¤Þ¤¹¡£Ëͤ⤽¤¦¤Ê¤ë¤È¤­¤¬¤¢¤ê¤Þ¤¹¡£ÎÙ¤¬¥Á¥ó¥±¤Ë°ìËÜ»Ø¤ÇÆþÎϤ·¤Æ¤¤¤ë¤È¡¢¡Ö²¶¤Îư¤­¤ò¸«¤í!¡×¤È¤¤¤ï¤ó¤Ð¤«¤ê¤Ë¸«¤»ÉÕ¤±¤Æ¤·¤Þ¤¤¤Þ¤¹(ÀµÄ¾ÌÂÏÇʪ¤Ç¤¹)¡£
¡¡¤È¤¤¤¦¤³¤È¤Ç¡¢¥¿¥Ã¥Á¥¿¥¤¥Ô¥ó¥°¤Î¤è¤µ¤¬Ê¬¤«¤Ã¤Æ¤¤¤¿¤À¤±¤¿¤È»×¤¤¤Þ¤¹¡£¥¿¥Ã¥Á¥¿¥¤¥Ô¥ó¥°¤Ï²¿¤â¥ï¡¼¥×¥í»ÈÍѤΤȤ­¤À¤±Ìò¤ËΩ¤Ä¤Î¤Ç¤Ï¤¢¤ê¤Þ¤»¤ó¡£¤³¤Î¹ÖºÂ¤Ç°·¤Ã¤Æ¤¤¤ë¡¢¥×¥í¥°¥é¥ß¥ó¥°¤Î¤È¤­¤Ë¤À¤Ã¤ÆÈó¾ï¤ËÍ­ÍѤǤ¹¡£¹Í¤¨¤Æ¤ß¤Æ¤¯¤À¤µ¤¤¡£³§¤µ¤ó¤Ï±Ñ»ú¤Çʸ»ú¤òÆþÎϤ·¤Æ¤¤¤Þ¤¹¤è¤Í¡£±Ñ»ú¤À¤Ã¤ÆÆüËܸì¤ÈƱ¤¸¤Ç¤¹¡£¥­¡¼¤ò¸«¤Ê¤¤¤ÇÂǤĤ³¤È¤¬¤Ç¤­¤ë¤Î¤È¤½¤¦¤Ç¤Ê¤¤¤Î¤È¤Ç¤Ï¡¢Á´Á³¥¹¥Ô¡¼¥É¤âÈèÏ«¤â°ã¤Ã¤ÆÍè¤Þ¤¹¡£¤¤¤Á¤¤¤Á¥­¡¼¥Ü¡¼¥É¤ò¸«¤Ê¤¬¤é¡ÖREAD¡×¤Ê¤ó¤ÆÆþÎϤ¹¤ë¤è¤ê¤â¡¢¸«¤º¤Ë¡Ö+¡×¤Þ¤Ç½ñ¤±¤ë¤Û¤¦¤¬ÃÇÁ³¤¤¤¤¤Ç¤¹¡£¤Ç¤¹¤«¤é¡¢³§¤µ¤ó¤Ë¤â¥¿¥Ã¥Á¥¿¥¤¥Ô¥ó¥°¤Ï¤¼¤Ò¥Þ¥¹¥¿¡¼¤·¤Æ¤â¤é¤¤¤¿¤¤¤Ç¤¹¡£
¡¡¤Ç¤Ï¡¢¾å㤹¤ë¤¿¤á¤Ë¤Ï²¿¤¬É¬ÍפʤΤǤ·¤ç¤¦¤«¡£¤½¤ì¤Ï¡¢¤È¤Ë¤«¤¯·±Îý¤Ç¤¹¡£·±Îý¤Ê¤·¤Ë¡¢µ»Ç½¤Ï¿È¤ËÉÕ¤­¤Þ¤»¤ó¡£¥¿¥Ã¥Á¥¿¥¤¥Ô¥ó¥°¤Ï¼ÂºÝ¤Ëʸ»ú¤òÆþÎϤ¹¤ë¡Öºî¶È¡×¤Ê¤Î¤Ç¤¹¤«¤é¡¢Ãμ±¤È°ã¤Ã¤Æ¡¢³Ð¤¨¤ì¤Ð´±Î½¡¢¤È¤¤¤¦¤ï¤±¤Ë¤Ï¹Ô¤­¤Þ¤»¤ó¡£¤È¤Ë¤«¤¯Îý½¬¤·¤Þ¤·¤ç¤¦¡£
¡¡¤Þ¤º¡¢¥Û¡¼¥à¥Ý¥¸¥·¥ç¥ó¤ò³Ð¤¨¤Þ¤¹¡£¥Û¡¼¥à¥Ý¥¸¥·¥ç¥ó¤Ï¡¢¤è¤¯Ê¹¤¯Ì¾¾Î¤Ê¤Î¤Ç¡¢ÃΤäƤ¤¤ëÊý¤â¿¤¤¤È»×¤¤¤Þ¤¹¡£¡ÖF¡×¥­¡¼¤Ëº¸¼ê¤Î¿Íº¹¤·»Ø¤ò¾è¤»¡¢¤½¤Î²£¤ËÃæ¡¦Ìô¡¦¾®»Ø¤ò¥­¡¼¤Ë¾è¤»¤Æ¤¤¤­¤Þ¤¹¡£¡ÖJ¡×¥­¡¼¤Ë¤Ï±¦¼ê¤Î¿Íº¹¤·»Ø¤ò¾è¤»¡¢°Ê²¼Æ±ÍͤǤ¹¡£F¤ÈJ¤Ë¤ÏÆÍµ¯¤¬¤Ä¤¤¤Æ¤¤¤Þ¤¹¡£¤½¤ì¤Ï¡¢¸«¤Ê¤¤¤Ç¤â¿¨¤Ã¤¿¤À¤±¤Ç¤³¤Î¥­¡¼¤¬F¤ÈJ¤À¡¢¤È¤¤¤¦¤³¤È¤òÃΤ餻¤ë¤¿¤á¤Î¤â¤Î¤Ç¤¹¡£
¡¡¸å¤Ï»Ø¤ò¾å¤ä²¼¤Ëư¤«¤·¡¢Â¾¤Î¥­¡¼¤ò²¡¤·¤Æ¤¤¤­¤Þ¤¹¡£¤Ç¤¹¤«¤é¡¢F¤ÈJ¤Î°ÌÃÖ¤µ¤¨ÃΤäƤª¤±¤Ð¡¢Â¾¤Î¥­¡¼¤â¤½¤Î2¤Ä¤òµ¯ÅÀ¤È¤¹¤ë¤³¤È¤Ç¿å¤Ë·â¤Ä¤³¤È¤¬¤Ç¤­¤ë¤È¤¤¤¦¤³¤È¤Ç¤¹¡£
¡¡Îý½¬¤¹¤ëºÝ¤Ï¡¢¤Þ¤ºÌÜŪ¤Î¥­¡¼¤ò¸«¤º¤ËÂǤÁ¹þ¤àÎý½¬¤ò¤·¤Þ¤·¤ç¤¦¡£¤¿¤È¤¨¤Ð¡¢¡Ö£÷¡×¤ò²¡¤·¤¿¤«¤Ã¤¿¤é¡Ö£÷¡×¤ò¸«¤º¤Ë¡Ö£ó¡×¤«¤éº¸Ìô»Ø¤ò¾å¤Ëư¤«¤·¤Æ¡Ö£÷¡×¤ò²¡¤¹¡£¤³¤¦¤·¤¿Æ°ºî¤ò²¿Å٤ⷫ¤êÊÖ¤·¡¢¼«Ê¬¤ÎƬ¡¦»Ø¤Ë¥­¡¼¤Î°ÌÃÖ¤ò᤭¹þ¤ß¤Þ¤·¤ç¤¦¡£¤³¤ì¤¬´°àú¤Ë¤Ç¤­¤ë¤è¤¦¤Ë¤Ê¤ì¤Ð¡¢¤æ¤Ã¤¯¤ê¤Ç¤¢¤ì¤Ð¤â¤¦¤¢¤Ê¤¿¤Ï¸«¤º¤Ëʸ¾Ï¤òÆþÎϤǤ­¤ë¤è¤¦¤Ë¤Ê¤ë¤Ï¤º¤Ç¤¹¡£
¡¡¤½¤ì¤¬¤Ç¤­¤ë¤è¤¦¤Ë¤Ê¤Ã¤¿¤é¡¢º£Å٤ϤȤˤ«¤¯Ê¸»ú¤òÂǤÁ¹þ¤ß¤Þ¤·¤ç¤¦¡£²¿¤Ç¤â¤¤¤¤¤ó¤Ç¤¹¡£¹¥¤­¤Ê¶Ê¤Î²Î»ì¤ò¼Ì¤¹¤Î¤Ç¤â¤¤¤¤¤·¡¢Ëܲ°¿·Ê¹¤Ç¤â¹½¤¤¤Þ¤»¤ó¡£¶Ê¤òݤ­¤Ê¤¬¤é¡¢Î®¤ì¤Æ¤­¤¿²»À¼¤ò½ñ¤­¼è¤ë¤Î¤À¤Ã¤ÆÎ©ÇɤÊÎý½¬¤Ç¤¹¡£ºÇ½é¤ÏÀµ³Î¤µ½Å»ë¤Ç¹Ô¤Ê¤Ã¤Æ¤¯¤À¤µ¤¤¡£¥¿¥Ã¥Á¥¿¥¤¥Ô¥ó¥°¤Ï¸«¤º¤Ë¤ä¤ë¤â¤Î¡£¤½¤ì¤ÏÀµ³Î¤Ç¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£¸«¤º¤ËÂǤ俤Ϥ¤¤¤¤¬¡¢´Ö°ã¤¤¤À¤é¤±¤Ç¤Ï¸å¤Çľ¤¹¤Î¤¬ÂçÊѤǤ¹¡£¤½¤ì¤Ê¤é¸«¤Ê¤¬¤éÂǤ俤ۤ¦¤¬¤Þ¤·¤Ç¤¹¡£¤Ç¤¹¤«¤éÃÙ¤¯¤Æ¤â¤¤¤¤¤Ç¤¹¤«¤éÀµ³Î¤µ¤ò½Å»ë¤·¤Æ¤¬¤ó¤Ð¤Ã¤Æ¤¯¤À¤µ¤¤¡£
¡¡¤È¤Ë¤«¤¯Àµ³Î¤Ë¡¢¸«¤º¤ËÂǤƤë¤è¤¦¤Ë¤Ê¤Ã¤¿¤Ê¤é¡¢º£Å٤Ϯ¤¯ÂǤƤë¤è¤¦¤Ë¤Ê¤ê¤Þ¤·¤ç¤¦¡£Àµ³Î¤µ¤Ï¤È¤Æ¤âÂçÀڤʤΤǤ¹¤¬¡¢ÃÙ¤¤¤Î¤Ç¤Ï¥¿¥Ã¥Á¥¿¥¤¥Ô¥ó¥°¤Î¥á¥ê¥Ã¥È¤¬¾¯¤Ê¤¯¤Ê¤Ã¤Æ¤·¤Þ¤¤¤Þ¤¹¡£Ì¾¿Í¥ì¥Ù¥ë¤Î®¤µ¤Þ¤Ç®¤¯À®¤ì¤È¤Ï¸À¤¤¤Þ¤»¤ó¡£¡Ö¥¹¥é¥¹¥é¡×¤È¤¤¤¦¸ÀÍÕ¤¬Åö¤Æ¤Ï¤Þ¤ë¤°¤é¤¤¤Î®¤µ¤òÌܻؤ·¤Æ¤¬¤ó¤Ð¤ê¤Þ¤·¤ç¤¦¡£¾¯¤·¤¯¤é¤¤¤Ï´Ö°ã¤Ã¤Æ¤â¹½¤¤¤Þ¤»¤ó¡£º£Å٤ϼ«Ê¬¤Î¸Â³¦¤òÂǤÁÇˤ뵤»ý¤Á¤Ç¡¢Â®ÅÙ¤ò¤É¤ó¤É¤ó¾å¤²¤Æ¤¤¤Ã¤Æ¤¯¤À¤µ¤¤¡£»Ï¤á¤Î¤¦¤Á¤Ï´Ö°ã¤¤¤¬Â¿¤¯¤Ê¤Ã¤Æ¤·¤Þ¤Ã¤¿¤ê¡¢ÅÓÃæ¤Ç¼ê¤¬»ß¤Þ¤Ã¤Æ¤·¤Þ¤¦¤³¤È¤â¤¢¤ë¤È»×¤¤¤Þ¤¹¤¬¡¢Îý½¬¤À¤È»×¤Ã¤Æ¤¬¤ó¤Ð¤ì¤Ð¡¢¤½¤Î¤¦¤ÁÂΤ¬´·¤ì¤Æ¤­¤Þ¤¹¡£
¡¡¤³¤ì¤òËèÆü10ʬ¡¢1½µ´Ö¤â³¤±¤ì¤Ð¡¢¼ê¤¬¼«Á³¤Ëư¤¤¤Æ¤¯¤ë¤Ï¤º¤Ç¤¹¡£ËͤϤ½¤¦¤Ç¤·¤¿¡£¤â¤Á¤í¤ó¸Ä¿Íº¹¤Ï¤¢¤ê¤Þ¤¹¤¬¡¢1½µ´Ö¤â·Ð¤Æ¤Ð¤­¤Ã¤ÈÊѲ½¤¬µ¯¤³¤ë¤Ï¤º¤Ç¤¹¡£¤½¤ì¤ò²¿½µ´Ö¤«Â³¤±¤Æ¤¤¤ì¤Ð¡¢¤â¤¦¡Ö¥¹¥é¥¹¥é¡×ÂǤƤë¤è¤¦¤Ë¤Ê¤ê¤Þ¤¹¡£¤Ä¤Þ¤ê¡¢¡Ö¥¿¥Ã¥Á¥¿¥¤¥Ô¥¹¥È¡×¤Ø¤ÈÊѿȤ¹¤ë¤Î¤Ç¤¹¡£
¡¡¤¢¤ëÄøÅÙ´·¤ì¤Æ¤­¤¿¤é¡¢¥¿¥Ã¥Á¥¿¥¤¥Ô¥ó¥°¥½¥Õ¥È¤ò»È¤Ã¤ÆÎý½¬¤·¤Æ¤ß¤ë¤Î¤â¤¤¤¤¤È»×¤¤¤Þ¤¹¡£¥½¥Õ¥È¤Ë¤è¤Ã¤Æ¤Ï¡¢¥¿¥Ã¥Á¥¿¥¤¥Ô¥ó¥°½é¿´¼ÔÍѤΤ⤢¤ê¤Þ¤¹¡£¤³¤ì¤é¤ò¤¦¤Þ¤¯³èÍѤ¹¤ë¤³¤È¤Ç¡¢¥²¡¼¥à¤ò³Ú¤·¤ß¤Ê¤¬¤éÏÓ¤¬¾åã¤Ç¤­¤ë¤è¤¦¤Ë¤Ê¤ê¤Þ¤¹¡£¤Á¤Ê¤ß¤ËËͤΥª¥¹¥¹¥á¤Ï¡¢¡Öozawa-ken winÈǡפǤ¹¡£°ìÅ٤ϻȤäƤߤƤ¯¤À¤µ¤¤¡£
¡¡¤É¤¦¤Ç¤¹¤«¡£¤ä¤Ã¤Æ¤ß¤¿¤¤¤È»×¤Ã¤Æ¤¯¤ì¤¿¤Ç¤·¤ç¤¦¤«¡£ºÇ½é¤ÏÊÙ¶¯¤ÈƱ¤¸¤è¤¦¤Ë¡¢¥¹¥È¥ì¥¹¤Îί¤Þ¤ëËèÆü¤À¤È»×¤¤¤Þ¤¹¡£¤·¤«¤·¡¢Îý½¬¤Ï¤¦¤½¤ò¤Ä¤­¤Þ¤»¤ó¡£¥¿¥Ã¥Á¥¿¥¤¥Ô¥ó¥°¤ÏÆñ¤·¤¤µ»Ç½¤Ç¤Ï¤Ê¤¤¤Î¤Ç¡¢Ã¯¤Ç¤â¤¬¤ó¤Ð¤ì¤Ð¤­¤Ã¤È¿È¤ËÉÕ¤¯¤Ï¤º¤Ç¤¹¡£ÌÌÅݤ¯¤µ¤¤¤«¤é¥¤¥ä¤À¤È¤¤¤Ã¤Æ¤º¤Ã¤È°ìËÜ»Ø¤ÇÆþÎϤ¹¤ë¤è¤ê¤â¡¢Ã»¤¤´ü´Ö¤À¤±¤Ç¤â¤¤¤¤¤«¤é¤¬¤ó¤Ð¤Ã¤Æ¸å¤Ç³Ú¤ò¤¹¤ë¤Û¤¦¤¬¡¢¤¢¤Ê¤¿¤Ï¤¤¤¤¤È»×¤¤¤Þ¤»¤ó¤«?

Fortran¤ÇCGºîÀ®(VRML)


¡¡º£¤ÏÀΤËÈæ¤Ù¡¢¥Ñ¥½¥³¥ó¤Ê¤É¥³¥ó¥Ô¥å¡¼¥¿¤ÎǽÎϤ¬Èó¾ï¤Ë¸þ¾å¤·¤¿¤¿¤á¡¢3DCG¤ò¤è¤¯¸«¤ëµ¡²ñ¤¬Áý¤¨¤Þ¤·¤¿¡£ËÜÅö¤Ëû´ü´Ö¤Ç¤½¤Î²è¼Á¤Ï¤È¤Æ¤â¸þ¾å¤·¤¿¤È»×¤¤¤Þ¤¹¡£
¡¡ÀΡ¢¡Ö¥Ð¡¼¥Á¥ã¥ë¥Õ¥¡¥¤¥¿¡¼¡×(¥«¥×¥³¥ó)¤È¤¤¤¦¥²¡¼¥à¤¬Åо줷¤Þ¤·¤¿¡£¤³¤Î¥²¡¼¥à¤ÏÅо쥭¥ã¥é¥¯¥¿¡¼¤¬3D²Ã¹©¤µ¤ì¤Æ¤¤¤¿¤È¤¤¤¦¤³¤È¤Ç¡¢Èó¾ï¤ËÀè¿ÊŪ¤Ê¥²¡¼¥à¤È¤·¤ÆÃíÌܤµ¤ì¤Æ¤¤¤Þ¤·¤¿¡£¤½¤ì¤Þ¤Ç¤Î¥²¡¼¥à¤Ï½Ä¡¦²£¤Î2¼¡¸µ¤Î¥²¡¼¥à¤Ð¤«¤ê¤Ç¡¢Î©ÂÎŪ¤Ê¥­¥ã¥é¥¯¥¿¡¼¤¬ÍÍ¡¹¤Ê»ëÅÀ¤Ç¥¢¥¯¥·¥ç¥ó¤¹¤ë¥²¡¼¥à¤Ï¤È¤Æ¤âÄÁ¤·¤«¤Ã¤¿¤Ç¤¹¡£
¡¡¤½¤ÎCG¤Ï¤Þ¤À¥Ý¥ê¥´¥ó¤È¤¤¤ï¤ì¤Æ¤¤¤Æ¡¢¥­¥ã¥é¥¯¥¿¡¼¤ÎɽÌ̤¬³Ñ¡¹¤·¤Æ¤¤¤Þ¤·¤¿¡£´é¤äÂΤ¬³ê¤é¤«¤Ç¤Ï¤Ê¤¯¡¢ÀµÈ¬ÌÌÂΤΤ褦¤Ë¡¢Ê¿¤é¤ÊÌ̤ν¸¤Þ¤ê¤Î¤è¤¦¤ÊÉÁ¤«¤ìÊý¤ò¤·¤Æ¤¤¤Þ¤·¤¿¡£º£¤Ç¤Ï¡¢¤â¤¦¤½¤ó¤Ê²è¼Á¤Ï¤¢¤ê¤Þ¤»¤ó¤è¤Í¡£É½Ì̤¬¤Ä¤ë¤ó¤Ä¤ë¤ó¤Ç¡¢¤â¤¦¼Ì¿¿¤Ê¤Î¤«²èÁü¤Ê¤Î¤«¤¬Ê¬¤«¤é¤Ê¤¤¤°¤é¤¤¤­¤ì¤¤¤Ê¤Î¤¬Âô»³Åо줷¤Æ¤¤¤Þ¤¹¡£
¡¡¤µ¤Æ¡¢¥Ñ¥½¥³¥ó¤ò»ÈÍѤ·¤Æ¤¤¤ë¤È¿§¡¹¤Ê¤È¤³¤í¤ËÅо줹¤ë¤³¤Î¡ÖCG¡×¤Ç¤¹¤¬¡¢¼Â¤ÏFortran¤â¤³¤ÎCG¤Ë±ï¤¬¤¢¤ë¤Î¤Ç¤¹¡£¡Ö¤¨¤Ã¡¢¤À¤Ã¤ÆFortran¤Ã¤Æ¥³¥ó¥½¡¼¥ë¥¢¥×¥ê¤·¤«ºî¤ì¤Ê¤¤¤ó¤Ç¤·¤ç?¡¡CG¤Î¤è¤¦¤Ê»ë³ÐŪ¤Ê¤â¤Î¤È¤Ï̵±ï¤¸¤ã¤Ê¤¤¤Î?¡×¤È»×¤Ã¤¿¤Î¤Ç¤Ï¤Ê¤¤¤Ç¤·¤ç¤¦¤«?¡¡¤¤¤¨¤¤¤¨¡¢¤½¤ó¤Ê¤³¤È¤Ï¤¢¤ê¤Þ¤»¤ó¡£Fortran¤Ï¤Þ¤ë¤ÇÎΰè¤Î°ã¤¦CG¤È¤¤¤¦Â¸ºß¤ò¼«Í³¼«ºß¤ËÁà¤ë¤³¤È¤¬¤Ç¤­¤ë¤Î¤Ç¤¹¡£
¡¡¤½¤â¤½¤â¤Ê¤¼Fortran¤ÈCG¤Ë´Ø·¸À­¤¬¤¢¤ë¤Î¤Ç¤·¤ç¤¦¤«?¡¡¤½¤ì¤Ï¡¢Fortran²í³Ú·×»»¡¦Ê¬ÀÏÍѤθÀ¸ì¤À¤«¤é¤Ç¤¹¡£ËͤÏʸ·Ï³ØÀ¸¤Ç¡¢´Êñ¤ÊÅý·×ʬÀϤ°¤é¤¤¤·¤«¤·¤Ê¤¤¤Î¤ÇÆÃ¤ËCG¤ÏɬÍפȤ·¤Þ¤»¤ó¤¬¡¢Íý·Ï³ØÀ¸¡¢Î㤨¤ÐÃϳطϤÎʬÌî¤À¤È¡¢¤³¤Î¾ðÊó¤ÎΩÂ⽤ÏÈó¾ï¤Ë½ÅÍפÊʬÀϥġ¼¥ë¤Ë¤Ê¤Ã¤Æ¤¯¤ë¤ß¤¿¤¤¤Ç¤¹¡£¿ô»ú¤ò¸«¤Æ¤¤¤¿¤À¤±¤Ç¤Ï¤Ê¤«¤Ê¤«Ê¬¤«¤é¤Ê¤¤¡£ÃÏ·Á¤äÂ絤¤Îή¤ì¤Ï¤ä¤Ï¤êΩÂ⽤·¤Æ¤ß¤¿¤Û¤¦¤¬Íý²ò¤·¤ä¤¹¤¤¡£¤·¤«¤·ÉÁ²è¥½¥Õ¥È¤ò»È¤Ã¤ÆºîÀ®¤¹¤ë¤Î¤ÏÂçÊѤÀ,¤â¤Ã¤È³Ú¤ÊÊýË¡¤Ï¤Ê¤¤¤«,¤È¤¤¤¦¤³¤È¤ÇFortran¤ÇVRML¤ò³èÍѤ·¤è¤¦¡¢¤È¤¤¤¦¤³¤È¤ß¤¿¤¤¤Ç¤¹¡£
¡¡¡ÖVRML¡×¤È¤¤¤¦¸ÀÍÕ¤òʹ¤¤¤¿¤³¤È¤¬¤¢¤ë¤Ç¤·¤ç¤¦¤«?¡¡VRML¤È¤¤¤¦¤Î¤Ï¡¢£÷£÷£÷¾å¤Ç3DCG¤òɽ¸½¤¹¤ë¤¿¤á¤Îµ¬³Ê¤Ç¤¹¡£¥×¥í¥°¥é¥ß¥ó¥°¤Î¤è¤¦¤Ê¥³¡¼¥Éʸ¤ò½ñ¤¯¤³¤È¤Ç¡¢»×¤¤Ä̤ê¤Î3D²èÁü¤òºîÀ®¤¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£ºîÀ®¤·¤¿3DCG¤Ï¡¢Internet Explorer¤Î¤è¤¦¤ÊWeb¥Ö¥é¥¦¥¶¤ò»ÈÍѤ·¤Æ¤ß¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£
¡¡¤¿¤À¡¢¤½¤Î¾ì¹ç¡¢ÀìÍѤΥץ饰¥¤¥ó¤¬É¬ÍפǤ¹¡£VRMLÀìÍѤΥץ饰¥¤¥ó¤Ç¤¹¡£3¼ïÎढ¤ë¤Î¤Ç¤¹¤¬¡¢¤³¤³¤Ç¤Ï¤½¤ÎÂåɽŪ¸ºß¤ËÅö¤¿¤ë¡ÖCosmo player¡×¤ò¾Ò²ð¤·¤Þ¤¹¡£¤³¤ì¤Ï¡¢http://www.karmanaut.com/cosmo/player/¡¡¤«¤é¥À¥¦¥ó¥í¡¼¥É¤·¤Æ¼ê¤ËÆþ¤ì¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£¤³¤Î¥×¥é¥°¥¤¥ó¤ò»ÈÍѤ·¤Æ¸«¤ë¾ì¹ç¤Ï¡¢Internet Explorer¤ò»È¤¦¤è¤¦¤Ë¤·¤Æ¤¯¤À¤µ¤¤¡£
¡¡¥Ð¡¼¥¸¥ç¥ó¤¬1.0¤«¤éº£¤Ï2.0¤Ë¤Ê¤Ã¤Æ¤¤¤Æ¡¢Ã±¤Ê¤ë3DCG¤«¤é¡¢Æ°Åª¤ÊÁàºî¤¬²Äǽ¤È¤Ê¤Ã¤Æ¤¤¤Þ¤¹¡£°ìÅÙ»ÈÍѤ·¤Æ¤ß¤ë¤È¡¢¤È¤Æ¤âÌÌÇò¤¯¡¢¡Ö¤¹¤²¤§¡¼!!¡×¤È¶«¤ó¤Ç¤·¤Þ¤¦¤³¤ÈÀÁ¤±¹ç¤¤¤Ç¤¹¡£Î㤨¤Ð¡¢CG¤ò²£¤Ë²óž¤µ¤»¤ë¤³¤È¤¬¤Ç¤­¤¿¤ê¡¢³ÈÂç½Ì¾®¤ä¡¢»ëÅÀ¤òÊѤ¨¤Æ´®Ç½¤¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£¤µ¤é¤Ë¤¹¤´¤¤¤Î¤Ï¡¢¤Þ¤ë¤ÇFlashư²è¤Ç¤¢¤ë¤«¤Î¤è¤¦¤Ê¡¢³ê¤é¤«¤Êưºî¤ò¤¹¤ëCG(¤È¤¤¤¦¤«¤â¤Ï¤äư²è)¤òºî¤ë¤³¤È¤¬¤Ç¤­¤¿¤ê¡¢¥²¡¼¥à¤¹¤éºî¤ë¤³¤È¤â¤Ç¤­¤Þ¤¹(Î㤨¤Ð¥Ñ¥º¥ë)¡£¤â¤¦¡¢CGÍѤΥġ¼¥ë¤È¸Æ¤Ö¤Ë¤Ï¸ÀÍÕ¤¬Â­¤ê¤Þ¤»¤ó¡£
¡¡¸ÀÍÕ¤ÇÀâÌÀ¤·¤Æ¤â¡¢¤Ê¤«¤Ê¤«¥¤¥á¡¼¥¸¤ò»ý¤Ä¤³¤È¤ÏÆñ¤·¤¤¤È»×¤¤¤Þ¤¹¡£¤¼¤Ò¡¢¾å¤Ç¾Ò²ð¤·¤¿Cosmo player¤ò¥À¥¦¥ó¥í¡¼¥É¤·¤¿¸å¡¢http://www.toucan.co.jp/¤ò¸«¤Æ¤ß¤Æ¤¯¤À¤µ¤¤¡£¤¹¤°¤ËËͤ¬¸À¤Ã¤Æ¤¤¤ë¤³¤È¤¬¼Â´¶¤Ç¤­¤ë¤È»×¤¤¤Þ¤¹¡£
¡¡¤Ç¤Ï¡¢¤½¤ó¤ÊVRML¤ò¡¢¤É¤¦¤ä¤Ã¤ÆFortran¤Ç°·¤¦¤Î¤Ç¤·¤ç¤¦¤«?¡¡¤½¤ì¤Ï¡¢¥µ¥Ö¥ë¡¼¥Á¥ó¤ÈÁȤ߹ç¤ï¤»¤Æ»ÈÍѤ¹¤ë¤Î¤Ç¤¹¡£¥µ¥Ö¥ë¡¼¥Á¥ó¤ËCGºîÀ®¤Î¤¿¤á¤Î¥Æ¥ó¥×¥ì¡¼¥È¤òºî¤Ã¤Æ¤ª¤­¡¢¿Þ·Á¤ËɬÍפʥǡ¼¥¿¤ò¥µ¥Ö¥ë¡¼¥Á¥ó¤ËÁ÷¤Ã¤ÆCG¤òÀ¸À®¤·¤Þ¤¹¡£Î㤨¤Ð¡¢±ß¿í¤Î¿Þ·Á¤¬ºî¤ê¤¿¤¤»þ¤Ï¡¢±ß¿íºîÀ®ÍѤΥµ¥Ö¥ë¡¼¥Á¥ó¤ò¸Æ¤Ó½Ð¤·¡¢±ß¿í¤Î¿§¡¦Â礭¤µ¡¦¹â¤µ¤Ê¤É¤Î±ß¿í¥Ç¡¼¥¿¤òÁ÷¿®¤·¡¢¸å¤Ï¤½¤ì¤ËŬ¹ç¤·¤¿±ß¿í¤ò¥µ¥Ö¥ë¡¼¥Á¥ó¤Ëºî¤Ã¤Æ¤â¤é¤¦¤À¤±¤Ç¤¹¡£¤È¤Æ¤â´Êñ¤Ç¤¹¤Í¡£
¡¡¤½¤ÎFortran¥×¥í¥°¥é¥à¤ò¥³¥ó¥Ñ¥¤¥ë¤·¤Æ¼Â¹Ô¤¹¤ë¤È¡¢(¥½¡¼¥¹Ê¸¤ÎÆâÍÆ¤Ë¤è¤Ã¤Æ°Û¤Ê¤ê¤Þ¤¹¤¬)¡Öwrl¡×¥Õ¥¡¥¤¥ë¤¬À¸À®¤µ¤ì¤Þ¤¹¡£¤³¤Î¥Õ¥¡¥¤¥ë¤¬¡¢CG¤òɽ¸½¤¹¤ëVRML¥Õ¥¡¥¤¥ë¤Ç¤¹¡£¸å¤Ï¤³¤ì¤ò¡¢É½¼¨¤¹¤ë¤¿¤á¤Î¥×¥é¥°¥¤¥ó¤òÈ÷¤¨¤¿¥Ö¥é¥¦¥¶¤Ç³«¤±¤Ð¡¢¼«Ê¬¤¬ºîÀ®¤·¤¿²èÁü¤¬É½¼¨¤µ¤ì¤ë¤³¤È¤Ë¤Ê¤ê¤Þ¤¹¡£
¡¡¤Ç¤Ï¡¢¤É¤¦¤·¤¿¤é¤½¤Î¿Þ·ÁºîÀ®ÍѤΥµ¥Ö¥ë¡¼¥Á¥ó¤òºîÀ®¤Ç¤­¤ë¤Î¤Ç¤·¤ç¤¦¤«?¡¡¤½¤ì¤Ï¡¢VRML¤Î½ñË¡¤Ë½¾¤Ã¤¿¥½¡¼¥¹Ê¸¤òºîÀ®¤¹¤ë¤³¤È¤Ë¤Ê¤ê¤Þ¤¹¡£¤³¤Î¥Ú¡¼¥¸¤ÏVRML¤Î¹ÖºÂ¤Ç¤Ï¤Ê¤¤¤Î¤Ç(¤È¤¤¤¦¤«¼«Ê¬¤¬¤Þ¤À¤è¤¯Ê¬¤«¤Ã¤Æ¤Ê¤¤¤Î¤Ç)¡¢¾Ü¤·¤¯¤Ï¤ªÏ䤤¿¤·¤Þ¤»¤ó¤¬¡¢http://www.fit.ac.jp/~araya/jis/vrml20.html¤Î¥Ú¡¼¥¸¤ò»²¹Í¤Ë¤·¤Æ¤¤¤¿¤À¤±¤ì¤ÐÂç¾æÉפÀ¤È»×¤¤¤Þ¤¹¡£¤½¤ó¤Ê¤ËÆñ¤·¤¤½ñË¡¤Ç¤Ï¤Ê¤¤¤è¤¦¤Ç¤¹¡£¶½Ì£¤Î¤¢¤ëÊý¤ÏÊÙ¶¯¤·¤Æ¤ß¤Æ¤¯¤À¤µ¤¤¡£
¡¡¤È¤Ï¸À¤Ã¤Æ¤â¡¢¼«Ê¬¤Î¤è¤¦¤Ë¤¤¤Á¤¤¤ÁVRML¤òÊÙ¶¯¤·¤Æ¤¤¤ë²Ë¤¬¤Ê¤¤¡¦ÌÌÅݤÀ¤È¤¤¤¦¿Í¤¬Âç¿¿ô¤À¤È»×¤¤¤Þ¤¹¡£¤â¤Ã¤È¼ê·Ú¤Ë3DCG¤ò³Ú¤·¤ß¤¿¤¤¡¢¤È¤¤¤¦¤Î¤¬Î¨Ä¾¤Êµ¤»ý¤Á¤Ç¤¹¤è¤Í¡£¤½¤³¤Ç¡¢´û¤Ëºî¤é¤ì¤Æ¤¤¤ë¥µ¥Ö¥ë¡¼¥Á¥ó¤ò¤ª¼Ú¤ê¤µ¤»¤Æ¤¤¤¿¤À¤¯¤³¤È¤Ë¤·¤Þ¤·¤ç¤¦¡£ ¡¡¥Í¥Ã¥È¾å¤Ë¤Ï¡¢¥×¥í¥°¥é¥à¤Î¥½¡¼¥¹Ê¸¤¬Âô»³¾Ò²ð¤µ¤ì¤Æ¤¤¤Þ¤¹¡£Fortran¤â¾¯¤Ê¤¤¤Ê¤¬¤é¡¢¤½¤ì¤Ê¤ê¤Ë·ÇºÜ¤µ¤ì¤Æ¤¤¤Þ¤¹¡£FortranÈÇVRML¤âÎã³°¤Ç¤Ï¤Ê¤¯¡¢¤·¤Ã¤«¤ê¤ÈÆÃ½¸¤·¤Æ¤¤¤ë¥Ú¡¼¥¸¤ò¸«¤Ä¤±¤Þ¤·¤¿¡£¤½¤³¤Î¥Ú¡¼¥¸¤ò¤¼¤Ò¡¢»ÈÍѤµ¤»¤Æ¤â¤é¤¤¤Þ¤·¤ç¤¦¡£URL¤Ïhttp://gedas.stelab.nagoya-u.ac.jp/simulation/jst2k/vrhtml/jst02b.html¤Ç¤¹¡£³§¤µ¤ó¡¢Ëº¤ì¤Æ¤Ï¤¤¤Ê¤¤¤È»×¤¤¤Þ¤¹¤¬¡¢¤³¤¦¤·¤¿ºîÉʤˤϤâ¤Á¤í¤óÃøºî¸¢¤¬¤¢¤ê¤Þ¤¹¤Î¤Ç¡¢¼«Ê¬¤Ç»ÈÍѤ¹¤ëʸ¤Ë¤ÏÌäÂê¤Ê¤¤¤Ç¤¹¤¬¡¢²þ¤¤·¤ÆºÆÇÛÉÛ¤Ê¤ó¤Æ¤³¤È¤Ï¤·¤Ê¤¤¤Ç²¼¤µ¤¤¤Í¡£½Ð½ê¤ò¶µ¤¨¤¿¼«Ê¬¤Ë±Æ¶ÁÍè¤ë¤«¤â¤·¤ì¤Þ¤»¤ó¤«¤é¡£
¡¡¤³¤Î¥Ú¡¼¥¸¤Î³Æ¥Ö¥í¥Ã¥¯¤Ë¡¢¡Ö¥µ¥Ö¥ë¡¼¥Á¥ó¥Ñ¥Ã¥±¡¼¥¸¡×¤È¤¤¤¦¤Î¤¬ÍѰդµ¤ì¤Æ¤¤¤Þ¤¹¡£¤³¤Î¥ê¥ó¥¯Àè¤Ë¡¢ÍÍ¡¹¤Ê¿Þ·Á(Î㤨¤Ð3³Ñ¿í)¤òºîÀ®¤¹¤ë¤¿¤á¤Î¥µ¥Ö¥ë¡¼¥Á¥ó¡¦¥Æ¥ó¥×¥ì¡¼¥È¤¬ºî¤é¤ì¤Æ¤¤¤Þ¤¹¡£¤³¤ì¤òÇÒ¼Ú¤·¤Æ¡¢¤È¤ê¤¢¤¨¤º¼«Ê¬¤Î¥Ñ¥½¥³¥ó¤ËÊݸ¤·¤Æ¤¯¤À¤µ¤¤¡£¤Ç¤­¤ì¤Ð¡¢¤¤¤Ä¤â¼«Ê¬¤¬Fortran¥½¡¼¥¹¤ò¥³¥ó¥Ñ¥¤¥ë¤¹¤ë¾ì½ê¤¬¤¤¤¤¤Ç¤¹¤Í¡£
¡¡¤½¤¦¤·¤¿¤é¡¢¸å¤Ï¿Þ·ÁºîÀ®ÍѤΥǡ¼¥¿¤òÁ÷¿®¤¹¤ë¥á¥¤¥ó¥×¥í¥°¥é¥à¤òºîÀ®¤¹¤ë¤À¤±¤Ç¤¹¡£¥µ¥Ö¥ë¡¼¥Á¥ó¤ò¸Æ¤Ó½Ð¤¹CALLʸ¤ò»ÈÍѤ·¤Æ¡¢°ú¿ô¤Ë¥Ç¡¼¥¿¤ò½ñ¤¤¤Æ¤¯¤À¤µ¤¤¡£¤É¤ó¤Ê¥Ç¡¼¥¿¤òÅϤ»¤Ð¤¤¤¤¤Î¤«¤Ï¡¢¥µ¥Ö¥ë¡¼¥Á¥ó¦¤Î°ú¿ô¤ò¸«¤¿¤ê¡¢Æ±¥Ú¡¼¥¸¤Ë¤¢¤ë¥µ¥ó¥×¥ë¥×¥í¥°¥é¥à¤ò»²¾È¤·¤Æ¤ß¤Æ¤¯¤À¤µ¤¤¡£
¡¡¥µ¥Ö¥ë¡¼¥Á¥ó¤Ï¤½¤Î¥á¥¤¥ó¥×¥í¥°¥é¥à¤Î¥½¡¼¥¹¤Ë¥³¥Ô¡¼¥¢¥ó¥É¥Ú¡¼¥¹¥È¤·¤Æ¤·¤Þ¤Ã¤Æ¤â¤¤¤¤¤Î¤Ç¤¹¤¬¡¢¤½¤ì¤Ç¤ÏCG¤òºîÀ®¤¹¤ëµ¡²ñ¤´¤È¤Ë¤¤¤Á¤¤¤Á¥µ¥Ö¥ë¡¼¥Á¥ó¤ò¥Ú¡¼¥¹¥È¤·¤Ê¤±¤ì¤Ð¤¤¤±¤Þ¤»¤ó¡£¤É¤Î¥µ¥Ö¥ë¡¼¥Á¥ó¤«¤ò¥Ñ¥Ã¥±¡¼¥¸¤«¤éõ¤·¤ÆÅ½¤êÉÕ¤±¤ëºî¶È¤Ï¤È¤Æ¤âÌÌÅݤǤ¹¤Í¡£¤½¤³¤Ç¡¢INCLUDEʸ¤ò»ÈÍѤ·¤Þ¤·¤ç¤¦¡£¤³¤ÎÌ¿Îáʸ¤Ï¡¢¥á¥¤¥ó¥×¥í¥°¥é¥à¤Î¥½¡¼¥¹¤È¤ÏÊÌ¥Õ¥¡¥¤¥ë¤Î¾ðÊó¤ò¡Ö¼è¤ê¹þ¤à¡×µ¡Ç½¤ò»ý¤Ã¤Æ¤¤¤Þ¤¹¡£C¸À¸ì¤Î¡¢¥Ø¥Ã¥À¥Õ¥¡¥¤¥ë¤òÆÉ¤ß¹þ¤à¤¿¤á¤Î¡Öinclude<¡Á>¡×¤ÈƱ¤¸¤Ç¤¹¡£¥³¥ó¥Ñ¥¤¥ë¤¹¤ë¾ì½ê¤Ë¥µ¥Ö¥ë¡¼¥Á¥ó¥Ñ¥Ã¥±¡¼¥¸¤òÊݸ¤·¤Æ¤ª¤¤¤Æ¤¯¤ì¤È¤¤¤Ã¤¿¤Î¤Ï¤³¤Î¤¿¤á¤Ç¡¢¤½¤¦¤·¤Æ¤ª¤±¤Ð¡¢INCLUDE¤¹¤ë¤À¤±¤Ç¡¢¤¤¤Á¤¤¤Á¥µ¥Ö¥ë¡¼¥Á¥ó¤ò¥³¥Ô¡¼¤¹¤ë¤³¤È¤Ê¤¯¡¢¤½¤Î¥µ¥Ö¥ë¡¼¥Á¥óÁ´¤Æ¤ò»ÈÍѤ¹¤ë¤³¤È¤¬²Äǽ¤È¤Ê¤ê¤Þ¤¹¡£¥³¥Ô¡¼¤¹¤ëºÝ¤Ë¸í¤Ã¤Æ¥µ¥Ö¥ë¡¼¥Á¥ó¤ò²õ¤·¤Æ¤·¤Þ¤¦¤È¤¤¤¦´í¸±À­¤â¤Ê¤¯¡¢Èó¾ï¤ËÍ­ÍѤʼêÃʤȤ¤¤¨¤Þ¤¹¡£
¡¡½ÐÍè¾å¤¬¤Ã¤¿¥×¥í¥°¥é¥à¤ò¼Â¹Ô¤¹¤ë¤È¡¢¥Õ¥¡¥¤¥ë¤¬À¸À®¤µ¤ì¤Þ¤¹¡£¤â¤·¡Ö.for¡×¥Õ¥¡¥¤¥ë¤¬½ÐÍè¾å¤¬¤Ã¤¿¤é¡¢¡Ö.wrl¡×¤Ë³ÈÄ¥»Ò¤ò½ñ¤­Ä¾¤·¤Æ¤¯¤À¤µ¤¤¡£¤½¤Î¥Õ¥¡¥¤¥ë¤ò¥Ö¥é¥¦¥¶¤Ç³«¤±¤Ð¡¢¼«Ê¬¤Çºî¤Ã¤¿VRML²èÁü¤ò´Õ¾Þ¤¹¤ë¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£
¡¡VRML²èÁü¤Ïñ¤Ê¤ëÀŻ߲è¤Ç¤Ï¤Ê¤¯¡¢¿§¡¹¤È¤¤¤¸¤ë¤³¤È¤¬¤Ç¤­¤ë¤Î¤Ç¡¢¤¼¤ÒÍ·¤ó¤Ç¤ß¤Æ¤¯¤À¤µ¤¤¡£¥¯¥ê¥Ã¥¯¤·¤ÆÄϤó¤Ç¡¢±¦¤Ëư¤«¤·¤Æ¥Þ¥¦¥¹¤òÊü¤¹¤È²èÁü¤¬¥Ï¥¤¥¹¥Ô¡¼¥É¤Ç²óž¤·¤Þ¤¹¡£¤ä¤Ã¤Æ¤ß¤ë¤È¤È¤Æ¤â³Ú¤·¤¤¤Ç¤¹¡£
¡¡¿Þ·Á¤òÁȤ߹ç¤ï¤»¤ë¤³¤È¤Ç¡¢ÍÍ¡¹¤Ê²èÁü¤òºî¤ê½Ð¤¹¤³¤È¤¬¤Ç¤­¤Þ¤¹¡£Î㤨¤Ð¡¢¤«¤«¤·¤ä¡¢¥É¥é¤¨¤â¤ó¡¢Ëâ½÷¤Ê¤É¡£¤â¤Á¤í¤ó¤½¤ì¤À¤±¥½¡¼¥¹Ê¸¤ÏÁý¤¨¡¢Èþ½Ñ¤Î¥»¥ó¥¹¤¬Ìä¤ï¤ì¤Þ¤¹¤¬¡¢»î¤·¤Æ¤ß¤ë²ÁÃͤϤ¢¤ë¤È»×¤¤¤Þ¤¹¡£½ÐÍè¾å¤¬¤Ã¤¿¤é¤¼¤Ò¸«¤»¤Æ¤¯¤À¤µ¤¤¡£
¡¡Fortran¤Ïñ¤Ê¤ë¿ôÃÍ·×»»¤·¤«¤Ç¤­¤Ê¤¤,¸ÂÄꤵ¤ì¤¿¸À¸ì¤À¤È¸À¤¦²ò¼á¤¬Âç¿¿ô¤À¤È»×¤¤¤Þ¤¹¡£Ëͤ⤽¤¦¤À¤È»×¤Ã¤Æ¤¤¤Þ¤·¤¿¡£¤·¤«¤·¡¢CGºîÀ®¤È¤¤¤¦¡¢¤Þ¤Ã¤¿¤¯Â¸ºßÎΰè¤Î°ã¤¦¤³¤¦¤·¤¿°Õ³°¤Ê¤³¤È¤â¤Ç¤­¤ë¤ó¤Ç¤¹¤Í¡£¤Þ¤¹¤Þ¤¹Fortran¤Î¤³¤È¤¬¹¥¤­¤Ë¤Ê¤Ã¤Æ¤·¤Þ¤Ã¤¿ËͤǤ·¤¿¡£


»²¹Í: ¥¦¥£¥­¥Ú¥Ç¥£¥¢
ASCII¥Ç¥¸¥¿¥ëÍѸ켭ŵ
¥³¥Þ¥ó¥É¥×¥í¥ó¥×¥È¤ò»È¤Ã¤Æ¤ß¤è¤¦!
¥³¥Þ¥ó¥É¥×¥í¥ó¥×¥È¤Çºî¶È¸úΨUP
FORTRAN¤ÎÎò»Ë
Fortran¤ò»È¤ª¤¦



ɽ»æ¤ØÌá¤ë