Znn3bq.jpeg
ÉÇÍ·´óѧº£Ñó¿ÆÑ§½ÓÊܵ÷¼Á
²é¿´: 173  |  »Ø¸´: 4
µ±Ç°Ö÷ÌâÒѾ­´æµµ¡£
¡¾ÐüÉͽð±Ò¡¿»Ø´ð±¾ÌûÎÊÌ⣬×÷Õßgoalry½«ÔùËÍÄú 3 ¸ö½ð±Ò

goalry

½ð³æ (ÕýʽдÊÖ)

[ÇóÖú] ¡¾±êÌâ¡¿fortran±à³Ì¡¾ÓÐЧÆÚÖÁ2800Äê6ÔÂ23ÈÕ¡¿

Çë½Ì¸öÎÊÌ⣺

1. ÔÚfortranÀïÔõôʵÏÖÑ­»·Óï¾äÀïµÄÎļþдÈ룿

ÒòΪÎÒÓÐʱºòÒªÔÚÿ´ÎÑ­»·ÀïÖØÐ¿ªÎļþ£¬Ð´ÈëÊý¾Ý£¬ÓÐʱºòÑ­»·µÄ´ÎÊýÊýÁ¿½Ï´ó£¬²»ÄÜÒ»Ò»µÄÏÈopen¡£

2. ÔÚfortranÀ°ÑÊý×Öת»¯³É×Ö·û´®µÄº¯ÊýÃû³ÆÊÇʲô£¿

» ²ÂÄãϲ»¶

¾ý×ÓÒÔ×ÔÇ¿²»Ï¢£¬ºñµÂÔØÎï
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

addila

ľ³æ (ÕýʽдÊÖ)

ÄǾͰÑÊý¾ÝÏȱ£´æµ½Êý×éºóÕß±£³ÖÎļþÒ»Ö±open°É

¾ßÌå²»ÊǺÜÇå³þÁË

Äܽ²Çå³þµãÂð
2Â¥2008-06-23 09:40:17
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

goalry

½ð³æ (ÕýʽдÊÖ)

ÒýÓûØÌû:
Originally posted by addila at 2008-6-23 09:40:
ÄǾͰÑÊý¾ÝÏȱ£´æµ½Êý×éºóÕß±£³ÖÎļþÒ»Ö±open°É

¾ßÌå²»ÊǺÜÇå³þÁË

Äܽ²Çå³þµãÂð

²»ÊÇÒ»Ö±open£¬ÒòΪÿ´ÎÑ­»·Ð´ÈëµÄÊý¾Ý¶¼²»ÔÚÒ»¸öÎļþϱߡ£

¾ÍÊÇÿ´ÎÑ­»·¶¼´ò¿ªÒ»¸öеÄÎļþ¹©Êý¾ÝдÈë
¾ý×ÓÒÔ×ÔÇ¿²»Ï¢£¬ºñµÂÔØÎï
3Â¥2008-06-23 09:52:03
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

bybbs

¡ï ¡ï
goalry(½ð±Ò+2,VIP+0):OK
http://blog.chinaunix.net/u1/46984/showart_418446.html

fortran Êý×ÖÓë×Ö·ûµÄת»»

program convertSN
!¿ÉÒÔ½èÖúfortranµÄÄÚ²¿ÎļþÀ´ÊµÏÖ£¬ºËÐĸÅÄîÊǰÑ×Ö·û´®¿´×÷"Îļþ"
integer::num
character*20::str1,str2,str3
num=11
str1='11'
str2='22'
str3='33'

!1£¬Êý×Öת×Ö·û
write(str1,"(i4.4)"num   ! ÈçÓÐÐèÒª£¬²»×ãËÄÎ»Ç°Ãæ²¹Áã  
print*,str1

!2£¬×Ö·ûתÊý×Ö
read(str1,"(i2)"num
print*,str1

!3£¬×Ö·ûת×Ö·û£¨×Ö·û´®Á¬½Ó...£©
write(str1,"(a8)"trim(str1)//trim(str2)//trim(str3)//'eg' !Á½¸öб¸Ë//Á¬½Ó²»Í¬µÄ×Ö·û´®

!»¹ÓÐÒ»ÖÖ°ì·¨¿ÉÒÔʵÏÖ×Ö·û´®Á¬½Ó
str1(3:4)=str2
str1(5:6)=str3
str1(7:8)='eg'
print*,str1
end


¹ØÓÚ1Â¥Àï˵µÄ ÊDz»ÊǾÍÊÇÿ¸öÑ­»·¶¼Òª´ò¿ªÒ»¸öÎļþÃû
±ÈÈç data_Ñ­»·´ÎÊý£¨»òÕßµ±Ç°Ê±¼ä£©.txt
ÕâÖÖÀàÐ͵ģ¿£¿
ÎÒ¾õµÃÕâ¸öÍêÈ«¿´ÄãÏëÔõô´¦ÀíÊý¾ÝÁË Èç¹ûÄã¾õµÃ´æ³É²»Í¬ÎļþºÃÓà ÄÇÃ²ËÆ»¹ÕæÊÇû±ðµÄ°ì·¨¡£¡£¡£
4Â¥2008-06-23 16:21:25
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

zhanglizhi

Òø³æ (ÕýʽдÊÖ)

²»¶® µ«ÊÇ×£Ô¸¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª
5Â¥2008-06-23 17:49:27
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
Ïà¹Ø°æ¿éÌø×ª ÎÒÒª¶©ÔÄÂ¥Ö÷ goalry µÄÖ÷Ìâ¸üÐÂ
²»Ó¦Öú È·¶¨»ØÌûÓ¦Öú (×¢Ò⣺ӦÖú²Å¿ÉÄܱ»½±Àø£¬µ«²»ÔÊÐí¹àË®£¬±ØÐëÌîд15¸ö×Ö·ûÒÔÉÏ)
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] ÉúÎïѧµ÷¼Á +6 Ö½ÉÈzhishan 2026-04-13 6/300 2026-04-14 10:47 by xuyaxi
[¿¼ÑÐ] 0856ר˶Çóµ÷¼Á Ï£ÍûÊÇaÇøÔºÐ£ +24 ºÃºÃÐÝÏ¢ºÃ²»ºÃ 2026-04-09 27/1350 2026-04-13 22:22 by pies112
[»ù½ðÉêÇë] 2026 WRÇà°Î +3 liuchb715 2026-04-09 6/300 2026-04-13 18:40 by liuchb715
[¿¼ÑÐ] ²ÄÁϸ´ÊÔÇóµ÷¼Á +24 xhhdjdjsjks 2026-04-09 24/1200 2026-04-13 15:49 by ÐÒÃâ ..
[¿¼ÑÐ] Ò»Ö¾Ô¸»ª¹¤085600 331·Ö +7 ÌìÏÂww 2026-04-09 7/350 2026-04-13 09:01 by lhj2009
[¿¼ÑÐ] 0831Ò»ÂÖµ÷¼Áʧ°ÜÇóÖú +10 СÐÜî£î£_s 2026-04-11 10/500 2026-04-12 22:43 by ³¤¹­°Á
[¿¼ÑÐ] Ò»Ö¾Ô¸Õã´óÉúÎï325·ÖÇóµ÷¼Á +9 zysheng 2026-04-12 9/450 2026-04-12 22:31 by yuyin1233
[¿¼ÑÐ] 291Çóµ÷¼Á +11 ¹ØÒä±±. 2026-04-09 12/600 2026-04-12 10:32 by ÄæË®³Ë·ç
[¿¼ÑÐ] 0854µ÷¼Á +12 ³¤¹­°Á 2026-04-09 13/650 2026-04-12 09:56 by ÄæË®³Ë·ç
[¿¼ÑÐ] 296Çóµ÷¼Á +8 Íô£¡£¿£¡ 2026-04-09 8/400 2026-04-11 21:02 by ÄæË®³Ë·ç
[¿¼ÑÐ] 296Çóµ÷¼Á +6 Íô£¡£¿£¡ 2026-04-09 6/300 2026-04-11 11:25 by zhq0425
[¿¼ÑÐ] 282£¬Çóµ÷¼Á +12 jggshjkkm 2026-04-09 14/700 2026-04-11 09:39 by Öí»á·É
[¿¼ÑÐ] 085506-Çóµ÷¼Á-285·Ö +3 À×Å··ÉÌß 2026-04-08 3/150 2026-04-11 08:37 by zhq0425
[¿¼ÑÐ] ÉúÎïѧ308Çóµ÷¼Á£¨Ò»Ö¾Ô¸»ª¶«Ê¦´ó£© +6 ÏàÐűػá¹ââÍòÕ 2026-04-10 6/300 2026-04-11 05:23 by zhuwenxu
[¿¼ÑÐ] Ò»Ö¾Ô¸211£¬»¯Ñ§310·Ö£¬±¾¿ÆÖصãË«·Ç£¬Çóµ÷¼Á +23 ŬÁ¦·Ü¶·112 2026-04-08 23/1150 2026-04-10 23:29 by 314126402
[¿¼ÑÐ] 22408 366·Ö£¬±¾¿Æ211£¬Ò»Ö¾Ô¸Î÷¹¤´ó +4 Rubt 2026-04-09 4/200 2026-04-10 19:51 by chemisry
[¿¼ÑÐ] 265Çóµ÷¼Á +12 ·ç˵ËýÔçÍüÁË 2026-04-10 13/650 2026-04-10 18:56 by chemisry
[¿¼ÑÐ] 296Çóµ÷¼Á +6 Íô£¡£¿£¡ 2026-04-08 6/300 2026-04-10 11:02 by mattzhming
[¿¼ÑÐ] 085801 ×Ü·Ö275 ±¾¿ÆÐÂÄÜÔ´ Çóµ÷¼Á +8 bradoner 2026-04-08 9/450 2026-04-09 13:43 by onlyÖÜ
[¿¼ÑÐ] 275 Çóµ÷¼Á +8 Lei812514 2026-04-07 8/400 2026-04-08 12:46 by chemisry
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û