²é¿´: 162  |  »Ø¸´: 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¸ö×Ö·ûÒÔÉÏ)
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] 307Çóµ÷¼Á +10 ÀäóÏ123 2026-03-17 10/500 2026-03-21 01:54 by JourneyLucky
[¿¼ÑÐ] 271²ÄÁϹ¤³ÌÇóµ÷¼Á +8 .6lL 2026-03-18 8/400 2026-03-21 00:58 by JourneyLucky
[¿¼ÑÐ] ²ÄÁÏר˶ӢһÊý¶þ306 +7 z1z2z3879 2026-03-18 7/350 2026-03-20 23:48 by JourneyLucky
[¿¼ÑÐ] 304Çóµ÷¼Á +7 ˾¿Õ. 2026-03-18 7/350 2026-03-20 23:08 by JourneyLucky
[¿¼ÑÐ] 290Çóµ÷¼Á +7 ^O^Ø¿ 2026-03-19 7/350 2026-03-20 21:43 by JourneyLucky
[¿¼ÑÐ] ±¾ÈË¿¼085602 »¯Ñ§¹¤³Ì ר˶ +19 ²»ÖªµÀ½Ðʲô£¡ 2026-03-15 21/1050 2026-03-20 20:48 by zhukairuo
[¿¼ÑÐ] 295¸´ÊÔµ÷¼Á +8 ¼òľChuFront 2026-03-19 8/400 2026-03-20 20:44 by zhukairuo
[¿¼ÑÐ] Ò»Ö¾Ô¸±±¾©»¯¹¤´óѧ0703»¯Ñ§318·Ö£¬ÓпÆÑо­Àú£¬Çóµ÷¼Á +4 һƿ±½¼×Ëá 2026-03-14 4/200 2026-03-20 20:36 by fen_rao
[¿¼ÑÐ] 0703»¯Ñ§µ÷¼Á +10 ÄÝÄÝninicgb 2026-03-15 14/700 2026-03-19 22:59 by ѧԱ8dgXkO
[¿¼ÑÐ] ²ÄÁÏר˶306Ó¢Ò»Êý¶þ +10 z1z2z3879 2026-03-16 13/650 2026-03-18 14:20 by 007_lilei
[¿¼ÑÐ] 0703»¯Ñ§µ÷¼Á +3 ÄÝÄÝninicgb 2026-03-17 3/150 2026-03-18 10:29 by macy2011
[¿¼ÑÐ] ÉúÎïѧ071000 329·ÖÇóµ÷¼Á +3 ÎÒ°®ÉúÎïÉúÎﰮΠ2026-03-17 3/150 2026-03-18 10:12 by macy2011
[¿¼ÑÐ] Ò»Ö¾Ô¸£¬¸£ÖÝ´óѧ²ÄÁÏר˶339·ÖÇóµ÷¼Á +3 ľ×ÓmomoÇàÕù 2026-03-15 3/150 2026-03-17 07:52 by laoshidan
[¿¼ÑÐ] 333Çóµ÷¼Á +3 ÎÄ˼¿Í 2026-03-16 7/350 2026-03-16 18:21 by ÎÄ˼¿Í
[¿¼ÑÐ] 326Çóµ÷¼Á +4 ŵ±´¶û»¯Ñ§½±êéê 2026-03-15 7/350 2026-03-16 17:11 by ŵ±´¶û»¯Ñ§½±êéê
[¿¼ÑÐ] 304Çóµ÷¼Á +3 ÂüÊâ2266 2026-03-14 3/150 2026-03-16 16:39 by houyaoxu
[¿¼ÑÐ] ÖпÆÔº²ÄÁÏ273Çóµ÷¼Á +4 yzydy 2026-03-15 4/200 2026-03-16 15:59 by Gaodh_82
[¿¼ÑÐ] 277²ÄÁÏ¿ÆÑ§Ó빤³Ì080500Çóµ÷¼Á +3 ×ÔÓɼå±ý¹û×Ó 2026-03-16 3/150 2026-03-16 14:10 by ÔËÆøyunqi
[¿¼ÑÐ] 0856ר˶279Çóµ÷¼Á +5 ¼ÓÓͼÓÓÍ£¡? 2026-03-15 5/250 2026-03-15 11:58 by 2020015
[¿¼ÑÐ] ¸´ÊÔµ÷¼Á +3 ºôºô£¿~+123456 2026-03-14 3/150 2026-03-14 16:53 by WTUChen
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û