²é¿´: 161  |  »Ø¸´: 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¸ö×Ö·ûÒÔÉÏ)
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] Ò»Ö¾Ô¸ Î÷±±´óѧ £¬070300»¯Ñ§Ñ§Ë¶£¬×Ü·Ö287£¬Ë«·ÇÒ»±¾£¬Çóµ÷¼Á¡£ +3 ³¿»èÏßÓëÐǺ£ 2026-03-18 3/150 2026-03-21 00:46 by JourneyLucky
[¿¼ÑÐ] Ò»Ö¾Ô¸ÖØÇì´óѧ085700×ÊÔ´Óë»·¾³×¨Ë¶£¬×Ü·Ö308Çóµ÷¼Á +3 īīĮ 2026-03-18 3/150 2026-03-21 00:39 by JourneyLucky
[¿¼ÑÐ] 311Çóµ÷¼Á +5 ¶¬Ê®Èý 2026-03-18 5/250 2026-03-21 00:16 by JourneyLucky
[¿¼ÑÐ] 308Çóµ÷¼Á +3 °¢½ã°¢½ã¼Ò°¡ 2026-03-18 3/150 2026-03-20 23:24 by JourneyLucky
[¿¼ÑÐ] AÇøÏß²ÄÁÏѧµ÷¼Á +5 ÖÜÖÜÎÞ¼« 2026-03-20 5/250 2026-03-20 21:33 by laoshidan
[¿¼ÑÐ] ²ÄÁÏѧ˶297ÒѹýËÄÁù¼¶Çóµ÷¼ÁÍÆ¼ö +11 adaie 2026-03-19 11/550 2026-03-20 21:30 by laoshidan
[¿¼ÑÐ] Çóµ÷¼Á +5 Mqqqqqq 2026-03-19 5/250 2026-03-20 20:46 by zhukairuo
[¿¼ÑÐ] Ò»Ö¾Ô¸±±¾©»¯¹¤´óѧ0703»¯Ñ§318·Ö£¬ÓпÆÑо­Àú£¬Çóµ÷¼Á +4 һƿ±½¼×Ëá 2026-03-14 4/200 2026-03-20 20:36 by fen_rao
[¿¼²©] ÕÐÊÕ²©Ê¿1-2ÈË +3 QGZDSYS 2026-03-18 3/150 2026-03-20 11:58 by ßÉßÉßÉßɽÐ
[¿¼ÑÐ] ±¾¿ÆÖ£ÖÝ´óѧÎïÀíѧԺ£¬Ò»Ö¾Ô¸»ª¿Æ070200ѧ˶£¬346Çóµ÷¼Á +4 ÎÒ²»ÊÇÒ»¸ù´Ð 2026-03-18 4/200 2026-03-19 09:11 by ¸¡ÔÆ166
[¿¼ÑÐ] 0703»¯Ñ§µ÷¼Á +3 ÄÝÄÝninicgb 2026-03-17 3/150 2026-03-18 10:29 by macy2011
[¿¼ÑÐ] 334Çóµ÷¼Á +3 Ö¾´æ¸ßÔ¶ÒâÔÚ»úÐ 2026-03-16 3/150 2026-03-18 08:34 by lm4875102
[¿¼ÑÐ] ¿¼ÑÐÇóµ÷¼Á +3 éÙËÌ. 2026-03-17 4/200 2026-03-17 21:43 by ÓÐÖ»ÀêÅ«
[¿¼ÑÐ] 326Çóµ÷¼Á +5 Éϰ¶µÄСÆÏ 2026-03-15 6/300 2026-03-17 17:26 by ruiyingmiao
[¿¼ÑÐ] 308Çóµ÷¼Á +4 ÊÇLupa°¡ 2026-03-16 4/200 2026-03-17 17:12 by ruiyingmiao
[¿¼ÑÐ] Ò»Ö¾Ô¸ËÕÖÝ´óѧ²ÄÁϹ¤³Ì£¨085601£©×¨Ë¶ÓпÆÑо­ÀúÈýÏî¹ú½±Á½¸öʵÓÃÐÍרÀûÒ»ÏîÊ¡¼¶Á¢Ïî +6 ´ó»ðɽС»ðɽ 2026-03-16 8/400 2026-03-17 15:05 by ÎÞи¿É»÷111
[ÂÛÎÄͶ¸å] ÓÐûÓдóÀз¢Ð¡ÂÛÎÄÄÜ´øÎÒ¸ö¶þ×÷ +3 ÔöÈñ©ÈË 2026-03-17 4/200 2026-03-17 09:26 by xs74101122
[¿¼ÑÐ] 304Çóµ÷¼Á +3 ÂüÊâ2266 2026-03-14 3/150 2026-03-16 16:39 by houyaoxu
[¿¼ÑÐ] ±¾¿ÆÄϾ©´óѧһ־Ը´¨´óҩѧ327 +3 ÂóÌï¸ûÕß 2026-03-14 3/150 2026-03-14 20:04 by ÍâÐÇÎÄÃ÷
[¿¼ÑÐ] 297Ò»Ö¾Ô¸ÉϽ»085600Çóµ÷¼Á +5 Ö¸¼â°ËǧÀï 2026-03-14 5/250 2026-03-14 17:26 by a²»Ò×
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û