²é¿´: 1286  |  »Ø¸´: 4

whf199022

гæ (³õÈëÎÄ̳)

[ÇóÖú] ²ËÄñÇóÖúfortranÊý×éÉùÃ÷¼°×Ó³ÌÐòµÄһЩÎÊÌâ°¡

ÓÃfortran±à³Ìʱ³öÏÖÕâÑùµÄÎÊÌ⣬ÇóÖú°¡
CALL INITI(NX,NY,DX,DY,X0,XE,X,Y,P,POLD)
SUBROUTINE INITI(NX,NY,DX,DY,X0,XE,X,Y,P,POLD)                                          !×Ó³ÌÐòINITI¸ø¶¨½Úµã³õÊ¼×ø±êºÍ³õʼ£¨ºÕ×È£©Ñ¹Á¦
DIMENSION X(0:NX),Y(0:NY),P(0:NX,0:NY),POLD(0:NX,0:NY)
DX=(XE-X0)/NX
Y0=-0.5*(XE-X0)
DY=(XE-X0)/NY
DO I=0,NX
X(I)=X0+(I-1)*DX       
END DO
DO J=0,NY
Y(J)=Y0+(J-1)*DY
END DO
DO I=0,NX
D=1.-X(I)*X(I)
DO J=0,NY/2
C=D-Y(J)*Y(J)
IF(C.LE.0.0)P(I,J)=0.0
IF(C.GT.0.0)P(I,J)=SQRT(C)
END DO
END DO
DO I=0,NX
DO J=(NY/2+1),NY
JJ=NY-J
P(I,J)=P(I,JJ)
END DO
END DO
DO I=0,NX
DO J=0,NY
POLD(I,J)=P(I,J)
ENDDO
ENDDO
RETURN
END
Õâ¸öÊdzö´í³ÌÐò
ÏÂÃæÊdzö´íµÄÎÊÌâ
E:\DIANJIECHU\DIANJIECHU.F90(75) : Error: A specification statement cannot appear in the executable section.
SUBROUTINE INITI(NX,NY,DX,DY,X0,XE,X,Y,P,POLD)                                          !×Ó³ÌÐòINITI¸ø¶¨½Úµã³õÊ¼×ø±êºÍ³õʼ£¨ºÕ×È£©Ñ¹Á¦
^
E:\DIANJIECHU\DIANJIECHU.F90(76) : Error: A specification statement cannot appear in the executable section.
DIMENSION X(0:NX),Y(0:NY),P(0:NX,0:NY),POLD(0:NX,0:NY)
^
E:\DIANJIECHU\DIANJIECHU.F90(81) : Error: This name has not been declared as an array.   [X]
X(I)=X0+(I-1)*DX
^
E:\DIANJIECHU\DIANJIECHU.F90(84) : Error: This name has not been declared as an array.   [Y]
Y(J)=Y0+(J-1)*DY
^
E:\DIANJIECHU\DIANJIECHU.F90(90) : Error: This name has not been declared as an array.   [P]
IF(C.LE.0.0)P(I,J)=0.0
------------^
E:\DIANJIECHU\DIANJIECHU.F90(91) : Error: This name has not been declared as an array.   [P]
IF(C.GT.0.0)P(I,J)=SQRT(C)
------------^
E:\DIANJIECHU\DIANJIECHU.F90(97) : Error: This name has not been declared as an array.   [P]
P(I,J)=P(I,JJ)
^
E:\DIANJIECHU\DIANJIECHU.F90(102) : Error: This name has not been declared as an array.   [POLD]
POLD(I,J)=P(I,J)
^
E:\DIANJIECHU\DIANJIECHU.F90(105) : Error: A RETURN statement is invalid in the main program.
RETURN
^
»Ø¸´´ËÂ¥

» ²ÂÄãϲ»¶

» ±¾Ö÷ÌâÏà¹Ø¼ÛÖµÌùÍÆ¼ö£¬¶ÔÄúͬÑùÓаïÖú:

ÏàÐÅ×Ô¼º£¬ÏàÐÅδÀ´
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

btx97

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

ÕÒ±¾ÊéºÃºÃ¿´¿´»ù±¾¸ÅÄî°É¡£
2Â¥2014-03-24 15:58:20
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

whf199022

гæ (³õÈëÎÄ̳)

ÒýÓûØÌû:
2Â¥: Originally posted by btx97 at 2014-03-24 15:58:20
ÕÒ±¾ÊéºÃºÃ¿´¿´»ù±¾¸ÅÄî°É¡£

ÊDZ߿´Êé±ß±àµÄ³ÌÐò£¬ÒòΪ²Î¿¼Á˱ðÈ˱àµÄ³ÌÐò£¬ÔÚ±ðÈ˳ÌÐòÀïÕâ¸öÊÇûÎÊÌâµÄ£¬ÕâÖ»ÊdzÌÐòµÄһС²¿·Ö£¬ÎÒÔÚÏëÊDz»ÊÇÎÒÖ÷³ÌÐòµÄÉùÃ÷ÓÐÎÊÌâ°¡
ÏàÐÅ×Ô¼º£¬ÏàÐÅδÀ´
3Â¥2014-03-24 16:28:33
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

whf199022

гæ (³õÈëÎÄ̳)

ÒýÓûØÌû:
2Â¥: Originally posted by btx97 at 2014-03-24 15:58:20
ÕÒ±¾ÊéºÃºÃ¿´¿´»ù±¾¸ÅÄî°É¡£

ÊDZ߿´Êé±ß±àµÄ³ÌÐò£¬ÒòΪ²Î¿¼Á˱ðÈ˱àµÄ³ÌÐò£¬ÔÚ±ðÈ˳ÌÐòÀïÕâ¸öÊÇûÎÊÌâµÄ£¬ÕâÖ»ÊdzÌÐòµÄһС²¿·Ö£¬ÎÒÔÚÏëÊDz»ÊÇÎÒÖ÷³ÌÐòµÄÉùÃ÷ÓÐÎÊÌâ°¡
ÏàÐÅ×Ô¼º£¬ÏàÐÅδÀ´
4Â¥2014-03-24 16:31:48
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

whf199022

гæ (³õÈëÎÄ̳)

Òѽâ¾ö£¬Ô­À´ÊÇ×Ô¼ºÖ÷³ÌÐòÉùÃ÷È«¾Ö±äÁ¿µÄʱºò¼ÓÁ˸öend
ÏàÐÅ×Ô¼º£¬ÏàÐÅδÀ´
5Â¥2014-03-24 17:02:48
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
Ïà¹Ø°æ¿éÌø×ª ÎÒÒª¶©ÔÄÂ¥Ö÷ whf199022 µÄÖ÷Ìâ¸üÐÂ
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] »·¾³¹¤³Ìµ÷¼Á +4 ´ó¿Édigkids 2026-03-16 4/200 2026-03-16 14:00 by laoshidan
[¿¼ÑÐ] 326Çóµ÷¼Á +3 ŵ±´¶û»¯Ñ§½±êéê 2026-03-15 3/150 2026-03-16 13:51 by houyaoxu
[¿¼ÑÐ] »¯Ñ§µ÷¼Á0703 +7 °¡ÎÒÎÒµÄ 2026-03-11 7/350 2026-03-15 23:03 by ÁèǧËÌ111
[¿¼ÑÐ] 327Çóµ÷¼Á +6 ʰ¹âÈÎȾ 2026-03-15 11/550 2026-03-15 22:47 by ʰ¹âÈÎȾ
[ÎÄѧ·¼²ÝÔ°] »ï°éÃÇ£¬×£ÎÒÉúÈÕ¿ìÀÖ°É +15 myrtle 2026-03-10 24/1200 2026-03-15 21:16 by ËÕÖÝ_¶ººÅ
[¿¼ÑÐ] »úеר˶µ÷¼Á +3 ±¿±¿ÍÃ×Ó 2026-03-12 3/150 2026-03-15 20:02 by Àõ×ÓÖà?
[¿¼ÑÐ] ²ÄÁÏר˶326Çóµ÷¼Á +4 Ä«ìÏæ¦Ý· 2026-03-15 4/200 2026-03-15 11:02 by dyw
[¿¼ÑÐ] ¸´ÊÔµ÷¼Á +3 ºôºô£¿~+123456 2026-03-14 3/150 2026-03-14 16:53 by WTUChen
[¿¼ÑÐ] Ò»Ö¾Ô¸¹þ¹¤´ó²ÄÁÏ324·ÖÇóµ÷¼Á +5 ãÆÐñ¶« 2026-03-14 5/250 2026-03-14 14:53 by ľ¹Ï¸à
[¿¼ÑÐ] 267Ò»Ö¾Ô¸ÄϾ©¹¤Òµ´óѧ0817»¯¹¤Çóµ÷¼Á +5 SUICHILD 2026-03-12 5/250 2026-03-14 14:53 by jean5056
[¿¼ÑÐ] Ò»Ö¾Ô¸Ö£´ó070303£¬338·Ö£¬Çóµ÷¼Á +4 dadawaf 2026-03-10 5/250 2026-03-14 01:20 by lsw010101
[¿¼ÑÐ] 311Çóµ÷¼Á +8 zchqwer 2026-03-10 8/400 2026-03-14 00:01 by JourneyLucky
[¿¼ÑÐ] ²ÄÁÏ371Çóµ÷¼Á +9 öùÓã? 2026-03-11 11/550 2026-03-13 22:53 by JourneyLucky
[¿¼ÑÐ] 0703£¬333·ÖÇóµ÷¼Á Ò»Ö¾Ô¸Ö£ÖÝ´óѧ-ÎïÀí»¯Ñ§ +3 Àîħٶ·Åñ 2026-03-11 3/150 2026-03-13 22:24 by JourneyLucky
[¿¼ÑÐ] 333Çóµ÷¼Á +3 ÇòÇò¹ÅÁ¦ 2026-03-11 3/150 2026-03-13 21:27 by JourneyLucky
[¿¼ÑÐ] 302Çóµ÷¼Á +6 ¸ºÐÄÕßµ±Öï 2026-03-11 6/300 2026-03-13 16:11 by JourneyLucky
[¿¼ÑÐ] Çóµ÷¼Á +7 18880831720 2026-03-11 7/350 2026-03-13 16:10 by JourneyLucky
[¿¼ÑÐ] 289Çóµ÷¼Á +3 ÀîÕþÓ¨ 2026-03-12 3/150 2026-03-13 11:02 by Çóµ÷¼Ázz
[¿¼ÑÐ] 268Çóµ÷¼Á +4 ºÃÔËÁ¬Ã಻¾ø 2026-03-12 4/200 2026-03-13 10:45 by hyswxzs
[¿¼ÑÐ] »¯¹¤0817µ÷¼Á +8 ²ÓÈôÐdz¿ 2026-03-10 8/400 2026-03-10 22:44 by ÐÇ¿ÕÐÇÔÂ
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û