²é¿´: 758  |  »Ø¸´: 5

xingfendou

гæ (³õÈëÎÄ̳)

[ÇóÖú] ÓÃfortran±àдµÄGaAs MESFETÇóµçÁ÷²»ÊÕÁ²

ÓÃfortranÓïÑÔ±àдµÄGaAs MESFETÇóµçÁ÷²»ÊÕÁ²£¬µ«ÊÇÎÒÈÏΪµçºÉ·ÖÅ䣬Çóµç³¡£¬É¢ÉäÂÊ£¬É¢Éä»úÖÆµÄÑ¡ÔñµÈ¶¼¶Ô£¬¾ÍÊÇÇóµÄµçÁ÷²»ÊÕÁ²£¬»¹ÓÐÕýÓиº£¬ÎÒÒѾ­ÕÒÁËÒ»¸öÔµĴíÎó¶¼Ã»ÕÒµ½£¬Çó¸ßÊÖÖ¸µã£¡
if (iter.gt.itermax-itervel+1) then
         curtot=0.
         do 1130 i=1,iycur
            curtot=curtot+(0.9*charge1(i)+0.1*charge2(i))*
     #                    (0.9*velx1(i)+0.1*velx2(i))
           curtot=curtot+charge2(i)*velx2(i)
1130     continue
         curtot=curtot*constcur
         write(41,*)curtot
      endif
»Ø¸´´ËÂ¥
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

ϦÑôÎ÷ÏÂ

½ð³æ (ÖøÃûдÊÖ)

¡¾´ð°¸¡¿Ó¦Öú»ØÌû

¸Ðл²ÎÓ룬ӦÖúÖ¸Êý +1
do 1130 i=1,iycur
ûÓÐÅжÏÊÕÁ²µÄÌõ¼þ°¡
2Â¥2013-05-03 11:22:35
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

zeppe

½ð³æ (СÓÐÃûÆø)

¡¾´ð°¸¡¿Ó¦Öú»ØÌû

¸Ðл²ÎÓ룬ӦÖúÖ¸Êý +1
´ÓÑ¡ÔñÌõ¼þ if (iter.gt.itermax-itervel+1) then À´¿´£¬Ö»ÅжÏÁ˵ü´ú´ÎÊý£¬¿ÉÄÜ»¹ÐèÒª¼ÓÉÏij¸öֵСÓÚÈÝÐíÎó²î¡£
3Â¥2013-05-03 11:57:00
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

xingfendou

гæ (³õÈëÎÄ̳)

ÒýÓûØÌû:
2Â¥: Originally posted by ϦÑôÎ÷Ï at 2013-05-03 11:22:35
do 1130 i=1,iycur
ûÓÐÅжÏÊÕÁ²µÄÌõ¼þ°¡

ÇóÊÕÁ²µÄÌõ¼þÔÚÇóµçÊÆ£¨µü´úÇó²´ËÉ·½³Ì£©ÖУ¬Ö®ºóÇóµç³¡£¬ÔÙÇóÆ¯ÒÆËÙ¶È£¬È»ºó²ÅÇóµçÁ÷£¬µçÊÆºÍµç³¡·Ö²¼»¹ÐУ¬Æ¯ÒÆËÙ¶È·Ö²¼´óÖ»¹ÐУ¬µ«ÊǺÜÓÐë´Ì£¬ÕâÊÇÀÏʦ¸øµÄÒ»³ÌÐò£¬ÓеãÀÏÁË£¬ÕæµÄºÜÏë×ö³öÀ´
4Â¥2013-05-03 12:16:16
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

xingfendou

гæ (³õÈëÎÄ̳)

ÒýÓûØÌû:
3Â¥: Originally posted by zeppe at 2013-05-03 11:57:00
´ÓÑ¡ÔñÌõ¼þ if (iter.gt.itermax-itervel+1) then À´¿´£¬Ö»ÅжÏÁ˵ü´ú´ÎÊý£¬¿ÉÄÜ»¹ÐèÒª¼ÓÉÏij¸öֵСÓÚÈÝÐíÎó²î¡£

µçÁ÷µÄÊÕÁ²Ó¦¸ÃÊÇÓɵçÊÆ£¬µç³¡£¬Æ¯ÒÆËٶȵĽá¹ûÒýÆðµÄ£¬Õû¸ö³ÌÐòÌ«´óÁË£¬µ«ÊÇÎҸоõÓ¦¸ÃÊÇСÎÊÌ⣬¾ÍÊDz»ÖªµÀµ½µ×´íÄÄÁË
5Â¥2013-05-03 12:23:15
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

zeppe

½ð³æ (СÓÐÃûÆø)

¡¾´ð°¸¡¿Ó¦Öú»ØÌû

¡ï ¡ï ¡ï
xingfendou: ½ð±Ò+3, ¡ïÓаïÖú 2013-05-05 11:43:33
ÒýÓûØÌû:
5Â¥: Originally posted by xingfendou at 2013-05-03 12:23:15
µçÁ÷µÄÊÕÁ²Ó¦¸ÃÊÇÓɵçÊÆ£¬µç³¡£¬Æ¯ÒÆËٶȵĽá¹ûÒýÆðµÄ£¬Õû¸ö³ÌÐòÌ«´óÁË£¬µ«ÊÇÎҸоõÓ¦¸ÃÊÇСÎÊÌ⣬¾ÍÊDz»ÖªµÀµ½µ×´íÄÄÁË...

¿ÉÒÔÊÔÊÔÓñȽϼòµ¥µÄÄÜÖªµÀÿһ²½¸Ã³öʲô½á¹ûµÄÀý×Ó²âÊÔ£¬ÔÚ¹ý³ÌÖмӼ¸¸ö¶Ïµãµ÷ÊÔһϣ¬¿´ÔÚÄĸö²¿·Ö³ö´íÁË£¬È»ºóÔÙ¶ÔÄǸö²¿·ÖµÄ³ÌÐò½øÐе÷ÊÔ¼ì²é¡£
6Â¥2013-05-03 13:10:40
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
Ïà¹Ø°æ¿éÌø×ª ÎÒÒª¶©ÔÄÂ¥Ö÷ xingfendou µÄÖ÷Ìâ¸üÐÂ
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] 0703»¯Ñ§336·ÖÇóµ÷¼Á +6 zbzihdhd 2026-03-15 7/350 2026-03-18 09:53 by zhukairuo
[¿¼ÑÐ] 302Çóµ÷¼Á +9 ºôºôºô¡£¡£¡£¡£ 2026-03-17 9/450 2026-03-18 09:34 by zhukairuo
[¿¼ÑÐ] 334Çóµ÷¼Á +3 Ö¾´æ¸ßÔ¶ÒâÔÚ»úÐ 2026-03-16 3/150 2026-03-18 08:34 by lm4875102
[¿¼ÑÐ] 302Çóµ÷¼Á +9 ¸ºÐÄÕßµ±Öï 2026-03-11 9/450 2026-03-17 17:13 by ruiyingmiao
[¿¼ÑÐ] 290Çóµ÷¼Á +3 p asserby. 2026-03-15 4/200 2026-03-17 16:35 by wangkm
[¿¼ÑÐ] 08¹¤¿Æ 320×Ü·Ö Çóµ÷¼Á +4 À滨çóÍí·ç 2026-03-17 4/200 2026-03-17 13:38 by houyaoxu
[¿¼ÑÐ] 278Çóµ÷¼Á +3 Yy7400 2026-03-13 3/150 2026-03-17 08:24 by laoshidan
[¿¼ÑÐ] 11408 Ò»Ö¾Ô¸Î÷µç£¬277·ÖÇóµ÷¼Á +3 zhouzhen654 2026-03-16 3/150 2026-03-17 07:03 by laoshidan
[¿¼ÑÐ] 0854¿ØÖƹ¤³Ì 359Çóµ÷¼Á ¿É¿çרҵ +3 626776879 2026-03-14 9/450 2026-03-16 17:42 by 626776879
[¿¼ÑÐ] 304Çóµ÷¼Á +4 ahbd 2026-03-14 4/200 2026-03-16 16:48 by ÎҵĴ¬Îҵĺ£
[¿¼ÑÐ] ÖпÆÔº²ÄÁÏ273Çóµ÷¼Á +4 yzydy 2026-03-15 4/200 2026-03-16 15:59 by Gaodh_82
[¿¼ÑÐ] 22408×Ü·Ö284Çóµ÷¼Á +3 InAspic 2026-03-13 3/150 2026-03-15 11:10 by zhq0425
[¿¼ÑÐ] 289Çóµ÷¼Á +4 ÕâôÃû×ÖÕ¦Ñù 2026-03-14 6/300 2026-03-14 18:58 by userper
[»ù½ðÉêÇë] ÏÖÔÚÈçºÎ»Ø±ÜÈ¥ÄêµÄijһ¸öר¼Ò£¬²»ÖªµÀÃû×Ö +3 zk200107 2026-03-12 6/300 2026-03-14 17:13 by zk200107
[¿¼ÑÐ] 290Çóµ÷¼Á +9 ADT 2026-03-11 9/450 2026-03-13 21:55 by JourneyLucky
[¿¼ÑÐ] 0703»¯Ñ§Ò»Ö¾Ô¸211 ×Ü·Ö320Çóµ÷¼Á +5 Â꿨°Í¿¨°¡¹þ 2026-03-11 5/250 2026-03-13 21:40 by JourneyLucky
[¿¼ÑÐ] 333Çóµ÷¼Á +3 ÇòÇò¹ÅÁ¦ 2026-03-11 3/150 2026-03-13 21:27 by JourneyLucky
[¿¼ÑÐ] 281Çóµ÷¼Á +9 Koxui 2026-03-12 11/550 2026-03-13 20:50 by Koxui
[¿¼ÑÐ] 301Çóµ÷¼Á +6 Liyouyumairs 2026-03-11 6/300 2026-03-13 20:11 by JourneyLucky
[¿¼ÑÐ] 081200-11408-276ѧ˶Çóµ÷¼Á +3 ´Þwj 2026-03-12 4/200 2026-03-12 19:33 by Çóµ÷¼Ázz
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û