²é¿´: 482  |  »Ø¸´: 2

astringent

Í­³æ (ÖøÃûдÊÖ)

[½»Á÷] ¡¾ÇóÖú¡¿ÔÚfortranÖпÉÒÔÕâÑùдÂð¡¾ÒÑÍê½á¡¿ ÒÑÓÐ2È˲ÎÓë

³õѧfortran£¬ÇëÎÊ¿ÉÒÔÕâÑù×öÂð£ºÎÒÔÚÖ÷³ÌÐòÖе÷ÓÃ×Ó³ÌÐòtest1£¬È»ºóÓÖÔÚ×Ó³ÌÐòtest1Öе÷ÓÃÁíÒ»¸ö×Ó³ÌÐòtest2,ÎÒÏë´«µÝa1¡£ÔÚ×Ó³ÌÐòtest2ÖУ¬ÎÒÏȶ¨Òåa1=0£¬È»ºóÓÐÒ»¸öÅжÏÌõ¼þ£¬Èç¹û³ÉÁ¢£¬a1¾ÍΪ1£¬Èç¹ûÌõ¼þ²»³ÉÁ¢£¬a1µÄÖµ²»±ä¡£µ±½«a1µÄÖµ·µ¸ø×Ó³ÌÐòtest1ʱ£¬ÎÒ»¹ÊÇÀûÓÃa1ÊDz»ÊǵÈÓÚ1À´½øÐÐÁíÒ»¸öÌõ¼þµÄÅжϣ¬ÕâÑù×ö¿ÉÒÔÂð£¿ÁíÍâÎÒ»¹ÏëÎÊ´ó¼Ò£¬±äÁ¿±ØÐ븳³õÖµ²ÅÄÜʹÓÃÂ𣿱ÈÈç˵ÔÚÎÒµÄÖ÷³ÌÐòÖе÷ÓÃ×Ó³ÌÐò֮ǰ¶¼Ã»Óõ½a1£¬µ±µ÷ÓÃ×Ó³ÌÐòºó£¬²ÅÐèÒªa1½øÐÐÏÂÃæµÄ¼ÆË㣬ÄÇÊDz»ÊDz»Óøøa1¸¶³õÖµÁË£¿
program main
--------
call test1(a1,----)
----
end

subroutine test1(a1,----)
---
call test2(a1---)
--
end subroutine test1

subroutine test3(a1---)
--
end subroutine test3

[ Last edited by nono2009 on 2010-11-17 at 09:50 ]
»Ø¸´´ËÂ¥

» ²ÂÄãϲ»¶

ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

ykwang

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

¡ï ¡ï
Сľ³æ(½ð±Ò+0.5):¸ø¸öºì°ü£¬Ð»Ð»»ØÌû½»Á÷
nono2009(½ð±Ò+1):¹ÄÀøÓ¦Öú 2010-11-17 09:49:53
Ëù˵µÄµ÷ÓùØÏµÃ»ÎÊÌ⣬Ҳ²»ÐèÒªÊÂÏȸøa1¸³³õÖµ£¬Ö»ÐèÒª±£Ö¤ÔÚµÚÒ»´ÎʹÓÃa1ǰ¸øÆä¸³Öµ¼´¿É¡£
Nothing_Is_Impossible!
2Â¥2010-11-12 20:20:08
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

astringent

Í­³æ (ÖøÃûдÊÖ)

ллby ykwangµÄ½â´ð
3Â¥2010-11-13 03:15:37
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
Ïà¹Ø°æ¿éÌø×ª ÎÒÒª¶©ÔÄÂ¥Ö÷ astringent µÄÖ÷Ìâ¸üÐÂ
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] 085600²ÄÁÏÓ뻯¹¤µ÷¼Á +3 A-¶ßÀ²ZÃÎ 2026-03-23 6/300 2026-03-23 18:55 by ms629
[¿¼ÑÐ] 291 Çóµ÷¼Á +4 »¯¹¤2026½ì±ÏÒµÉ 2026-03-21 5/250 2026-03-23 16:46 by »¯¹¤2026½ì±ÏÒµÉ
[¿¼ÑÐ] 317Çóµ÷¼Á +12 Éê×ÓÉêÉê 2026-03-19 18/900 2026-03-22 22:23 by luoyongfeng
[¿¼ÑÐ] Çóµ÷¼ÁÒ»Ö¾Ô¸º£´ó£¬0703»¯Ñ§Ñ§Ë¶304·Ö£¬Óдó´´ÏîÄ¿£¬Ëļ¶Òѹý +6 ÐÒÔËÁ¨Á¨ 2026-03-22 10/500 2026-03-22 20:10 by edmund7
[¿¼ÑÐ] 308Çóµ÷¼Á +3 īīĮ 2026-03-21 3/150 2026-03-22 16:54 by i_cooler
[¿¼ÑÐ] 260Çóµ÷¼Á +3 ÖìÜÆÁÕ 2026-03-20 4/200 2026-03-22 15:12 by ÖìÜÆÁÕ
[¿¼²©] ÕÐÊÕ²©Ê¿1-2ÈË +3 QGZDSYS 2026-03-18 4/200 2026-03-22 10:25 by QGZDSYS
[¿¼ÑÐ] ³õÊÔ 317 +7 °ëÀ­Ô±û 2026-03-20 7/350 2026-03-21 22:26 by peike
[¿¼ÑÐ] Ò»Ö¾Ô¸ÄÏ´ó£¬0703»¯Ñ§£¬·ÖÊý336£¬Çóµ÷¼Á +3 ÊÕµ½VS 2026-03-21 3/150 2026-03-21 18:42 by ѧԱ8dgXkO
[¿¼ÑÐ] 299Çóµ÷¼Á +5 shxchem 2026-03-20 7/350 2026-03-21 17:09 by ColorlessPI
[¿¼ÑÐ] 299Çóµ÷¼Á +4 ijijijijλ 2026-03-21 4/200 2026-03-21 16:30 by barlinike
[¿¼ÑÐ] ²ÄÁÏÓ뻯¹¤£¨0856£©304Çó BÇø µ÷¼Á +3 Çñgl 2026-03-21 3/150 2026-03-21 13:47 by lature00
[¿¼ÑÐ] Ò»Ö¾Ô¸ÖØÇì´óѧ085700×ÊÔ´Óë»·¾³×¨Ë¶£¬×Ü·Ö308Çóµ÷¼Á +3 īīĮ 2026-03-18 3/150 2026-03-21 00:39 by JourneyLucky
[¿¼ÑÐ] 308Çóµ÷¼Á +3 °¢½ã°¢½ã¼Ò°¡ 2026-03-18 3/150 2026-03-20 23:24 by JourneyLucky
[¿¼ÑÐ] Ò»Ö¾Ô¸Î人Àí¹¤²ÄÁϹ¤³Ìר˶µ÷¼Á +9 Doleres 2026-03-19 9/450 2026-03-20 22:36 by JourneyLucky
[¿¼ÑÐ] 317Çóµ÷¼Á +5 Éê×ÓÉêÉê 2026-03-19 9/450 2026-03-20 22:26 by JourneyLucky
[¿¼ÑÐ] Çóµ÷¼Á£¬Ò»Ö¾Ô¸:ÄϾ©º½¿Õº½Ìì´óѧ´óѧ £¬080500²ÄÁÏ¿ÆÑ§Ó빤³Ìѧ˶£¬×Ü·Ö289·Ö +4 @taotao 2026-03-19 4/200 2026-03-20 22:14 by JourneyLucky
[¿¼ÑÐ] Çóµ÷¼ÁÒ»Ö¾Ô¸ÄϾ©º½¿Õº½Ìì´óѧ289·Ö +3 @taotao 2026-03-19 3/150 2026-03-20 21:34 by JourneyLucky
[¿¼ÑÐ] ÕÐÊÕµ÷¼Á˶ʿ +4 lidianxing 2026-03-19 12/600 2026-03-20 12:25 by lidianxing
[˶²©¼ÒÔ°] ºþ±±¹¤Òµ´óѧ ÉúÃü¿ÆÑ§Ó뽡¿µÑ§Ôº-¿ÎÌâ×éÕÐÊÕ2026¼¶Ê³Æ·/ÉúÎï·½Ïò˶ʿ +3 1ϲ´º8 2026-03-17 5/250 2026-03-17 17:18 by ber´¨cool×Ó
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û