24СʱÈÈÃŰæ¿éÅÅÐаñ    

Znn3bq.jpeg
²é¿´: 172  |  »Ø¸´: 4
µ±Ç°Ö÷ÌâÒѾ­´æµµ¡£
¡¾ÐüÉͽð±Ò¡¿»Ø´ð±¾ÌûÎÊÌ⣬×÷Õßgoalry½«ÔùËÍÄú 3 ¸ö½ð±Ò
µ±Ç°Ö»ÏÔʾÂú×ãÖ¸¶¨Ìõ¼þµÄ»ØÌû£¬µã»÷ÕâÀï²é¿´±¾»°ÌâµÄËùÓлØÌû

goalry

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

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

Çë½Ì¸öÎÊÌ⣺

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

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

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

» ²ÂÄãϲ»¶

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

zhanglizhi

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

²»¶® µ«ÊÇ×£Ô¸¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª
5Â¥2008-06-23 17:49:27
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
²é¿´È«²¿ 5 ¸ö»Ø´ð

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µÄ»ØÌû
²»Ó¦Öú È·¶¨»ØÌûÓ¦Öú (×¢Ò⣺ӦÖú²Å¿ÉÄܱ»½±Àø£¬µ«²»ÔÊÐí¹àË®£¬±ØÐëÌîд15¸ö×Ö·ûÒÔÉÏ)
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] Ò»Ö¾Ô¸ÖÐÄÏ´óѧ 0855 »úе 286 Çóµ÷¼Á +8 ²»»á³ÔÈâ 2026-04-12 8/400 2026-04-12 22:17 by paopaotu326
[¿¼ÑÐ] Ò»Ö¾Ô¸¹þ¹¤´ó 085600 277 12²Ä¿Æ»ùÇóµ÷¼Á 5+5 chenny174 2026-04-10 31/1550 2026-04-12 19:23 by qingfeng258
[¿¼ÑÐ] µ÷¼Á +25 ²»·ê´º 2026-04-07 26/1300 2026-04-12 11:53 by ´óÁ¦Ë®ÊÖÁ¦´óÎÞÇ
[¿¼ÑÐ] 331Çóµ÷¼Á +5 Íõ¹ú˧ 2026-04-11 5/250 2026-04-11 22:56 by Ϫ½§Á÷Ë®
[¿¼ÑÐ] Çóµ÷¼Á +6 µçÆø300Çóµ÷¼Á²» 2026-04-08 6/300 2026-04-11 20:14 by ÄæË®³Ë·ç
[¿¼ÑÐ] 359Çóµ÷¼Á +5 θ¾·ÂÎÀÛÁË 2026-04-11 5/250 2026-04-11 19:55 by lbsjt
[¿¼ÑÐ] Ò»Ö¾Ô¸985»úеѧ˶380Çóµ÷¼Á +5 ¹Ø¹ØöÂð¯10 2026-04-11 5/250 2026-04-11 10:10 by ÖªÄî¡£A
[¿¼ÑÐ] 282£¬Çóµ÷¼Á +12 jggshjkkm 2026-04-09 14/700 2026-04-11 09:39 by Öí»á·É
[¿¼ÑÐ] ²ÄÁÏÀà284µ÷¼Á +40 Ïë»»ÊÖ»ú²»Ïë½âÊ 2026-04-08 48/2400 2026-04-10 23:28 by 314126402
[¿¼ÑÐ] ±¾¿ÆÎ÷¹¤´ó 324Çóµ÷¼Á +4 wysyjs25 2026-04-10 4/200 2026-04-10 20:00 by À´¿´Á÷ÐÇÓê10
[¿¼ÑÐ] 293µ÷¼Á +25 yj1221 2026-04-08 26/1300 2026-04-10 15:02 by ²ñС°×
[¿¼ÑÐ] »·¾³×¨Ë¶µ÷¼Á +16 »á˵»°µÄÖâ×Ó 2026-04-06 16/800 2026-04-10 10:30 by asy1wn
[¿¼ÑÐ] 086000ÉúÎïÓëÒ½Ò©µ÷¼Á +7 awwwwwooooo 2026-04-09 7/350 2026-04-09 13:31 by ±±¼«159263
[¿¼ÑÐ] 270Çóµ÷¼Á +3 031127 2026-04-06 4/200 2026-04-08 21:00 by ÄæË®³Ë·ç
[¿¼ÑÐ] ²ÄÁϹ¤³ÌרҵÈÕÓïÉúÇóµ÷¼Á +9 111623 2026-04-07 9/450 2026-04-07 23:31 by Ò»Ö»ºÃ¹û×Ó?
[¿¼ÑÐ] 316Çóµ÷¼Á +4 15318418673 2026-04-07 4/200 2026-04-07 22:12 by hemengdong
[¿¼ÑÐ] 071000ÉúÎïѧ£¬Ò»Ö¾Ô¸ÉîÛÚ´óѧ296·Ö£¬Çóµ÷¼Á +12 TIckLw 2026-04-06 13/650 2026-04-07 20:34 by lijunpoly
[¿¼ÑÐ] ¿¼Ñе÷¼Á +3 WwwwwwwÍÛ 2026-04-06 3/150 2026-04-06 20:55 by lbsjt
[¿¼ÑÐ] 22408 331·ÖÇóµ÷¼Á +4 y__1 2026-04-06 4/200 2026-04-06 17:26 by ÍÁľ˶ʿÕÐÉú
[¿¼ÑÐ] Çóµ÷¼Áµ½²ÄÁÏ +5 ³Ì9915 2026-04-06 5/250 2026-04-06 15:21 by yulian1987
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û