²é¿´: 1284  |  »Ø¸´: 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 µÄÖ÷Ìâ¸üÐÂ
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] 0703 ÎïÀí»¯Ñ§µ÷¼Á +3 ÎÒ¿ÉÒÔÉϰ¶µÄ¶Ô 2026-03-13 5/250 2026-03-16 10:50 by ÎÒ¿ÉÒÔÉϰ¶µÄ¶ÔÂ
[¿¼ÑÐ] »¯Ñ§¹¤³Ì321·ÖÇóµ÷¼Á +7 ´óÃ×·¹£¡ 2026-03-15 7/350 2026-03-16 10:25 by ÁËÁËÁËÁË¡£¡£
[¿¼²©] »¶Ó­É격ͬѧÁªÏµ +3 ÌìµÀ³êÇÚ2026686 2026-03-10 7/350 2026-03-15 19:03 by ÌìµÀ³êÇÚ2026686
[¿¼ÑÐ] ²ÄÁϹ¤³Ì327Çóµ÷¼Á +3 xiaohe12w 2026-03-11 3/150 2026-03-14 20:20 by ms629
[¿¼ÑÐ] 290Çóµ÷¼Á +4 @½«¾Í½«¾Í¿´ 2026-03-10 8/400 2026-03-14 14:23 by ǧǧÔËÆø
[¿¼ÑÐ] 295¸´ÊÔµ÷¼Á +5 ¼òľChuFront 2026-03-09 5/250 2026-03-14 01:29 by JourneyLucky
[¿¼ÑÐ] 328£¬0703¿¼ÉúÇóµ÷¼Á£¬Ò»Ö¾Ô¸Îª¶«±±Ê¦·¶´óѧ +4 ¹ÛËØÂÉ 2026-03-09 5/250 2026-03-14 01:24 by JourneyLucky
[¿¼ÑÐ] 26¿¼Ñе÷¼Á +3 ying123. 2026-03-10 3/150 2026-03-14 00:18 by JourneyLucky
[¿¼ÑÐ] ²ÄÁÏÓ뻯¹¤£¨0856£©304ÇóBÇøµ÷¼Á +6 Çñgl 2026-03-12 7/350 2026-03-13 23:24 by Çñgl
[¿¼ÑÐ] 337Ò»Ö¾Ô¸»ªÄÏÀí¹¤0805²ÄÁÏÇóµ÷¼Á +7 mysdl 2026-03-11 9/450 2026-03-13 22:43 by JourneyLucky
[¿¼ÑÐ] 308Çóµ÷¼Á +5 ÊÇLupa°¡ 2026-03-11 5/250 2026-03-13 22:13 by JourneyLucky
[¿¼ÑÐ] Çó²ÄÁϵ÷¼Á 085600Ó¢Ò»Êý¶þ×Ü·Ö302 ǰÈý¿Æ235 ¾«Í¨»úÆ÷ѧϰ Ò»Ö¾Ô¸¹þ¹¤´ó +4 ÁÖyaxin 2026-03-12 4/200 2026-03-13 22:04 by ÐÇ¿ÕÐÇÔÂ
[¿¼ÑÐ] ¹¤¿Æ²ÄÁÏ085601 279Çóµ÷¼Á +8 À§ÓÚÐdz¿ 2026-03-12 10/500 2026-03-13 15:42 by ms629
[¿¼ÑÐ] 328»¯¹¤×¨Ë¶Çóµ÷¼Á +4 ¡££¬¡££¬¡££¬¡£i 2026-03-12 4/200 2026-03-13 14:44 by JourneyLucky
[¿¼ÑÐ] 0703Ò»Ö¾Ô¸211 285·ÖÇóµ÷¼Á +4 ly3471z 2026-03-13 4/200 2026-03-13 13:00 by JourneyLucky
[¿¼ÑÐ] 0817»¯Ñ§¹¤³ÌÓë¼¼Êõ¿¼ÑÐ312·Öµ÷¼Á +3 T123 tt 2026-03-12 3/150 2026-03-13 10:49 by houyaoxu
[¿¼ÑÐ] 268Çóµ÷¼Á +4 ºÃÔËÁ¬Ã಻¾ø 2026-03-12 4/200 2026-03-13 10:45 by hyswxzs
[¿¼ÑÐ] ¹¤¿Æ0856ר˶»¯Ñ§¹¤³Ì269Äܵ÷¼ÁÂð +10 ÎÒÏë¶ÁÑÐ11 2026-03-10 10/500 2026-03-13 10:14 by Yuyi.
[¿¼ÑÐ] 0856²ÄÁÏÓ뻯¹¤353·ÖÇóµ÷¼Á +11 NIFFFfff 2026-03-09 11/550 2026-03-10 18:36 by suyuanhai
[¿¼ÑÐ] 294 Ó¢¶þÊý¶þÎﻯ Çóµ÷¼Á +6 Ã×·¹ÍŲ»ºÃ³Ô 2026-03-09 6/300 2026-03-09 23:55 by barlinike
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û