| ²é¿´: 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 ^ |
» ²ÂÄãϲ»¶
0703 ÎïÀí»¯Ñ§µ÷¼Á
ÒѾÓÐ5È˻ظ´
»¯Ñ§¹¤³Ì321·ÖÇóµ÷¼Á
ÒѾÓÐ7È˻ظ´
0703»¯Ñ§µ÷¼Á 290·ÖÓпÆÑоÀú£¬ÂÛÎÄÔÚͶ
ÒѾÓÐ7È˻ظ´
308Çóµ÷¼Á
ÒѾÓÐ3È˻ظ´
±¾ÈË¿¼085602 »¯Ñ§¹¤³Ì ר˶
ÒѾÓÐ10È˻ظ´
½¹ÂÇ
ÒѾÓÐ9È˻ظ´
0856Çóµ÷¼Á
ÒѾÓÐ3È˻ظ´
283Çóµ÷¼Á
ÒѾÓÐ11È˻ظ´
ÉîÛÚ´óѧ˶ʿÕÐÉú£¨2026Ç´«¸ÐÆ÷·½Ïò£¬½ö¼ȡµÚÒ»Ö¾Ô¸£©
ÒѾÓÐ8È˻ظ´
0703»¯Ñ§µ÷¼Á
ÒѾÓÐ7È˻ظ´
» ±¾Ö÷ÌâÏà¹Ø¼ÛÖµÌùÍÆ¼ö£¬¶ÔÄúͬÑùÓаïÖú:
fortran³ÌÐòÔÚSSH¼ÆËãÖÐÐÄÉÏÔËÐеÄÎÊÌ⣡
ÒѾÓÐ13È˻ظ´
fortranÖеÄÊý×éÔ½½çÎÊÌ⣬
ÒѾÓÐ3È˻ظ´
¹ØÓÚfortran×Ó³ÌÐòµ÷ÓÃÄÚ²¿º¯Êý
ÒѾÓÐ7È˻ظ´
fortranÀïÒ»¸ö×Ó³ÌÐò²»ÔËÐÐÊÇÔõô»ØÊÂ
ÒѾÓÐ13È˻ظ´
fortranÖÐÔËÐÐÖгöÏÖÎÞÇî´óµÄÊýÔõô´¦Àí
ÒѾÓÐ9È˻ظ´
fortranÊý×éÊä³ö£¬ÐÐÓëÁÐÇë½Ì
ÒѾÓÐ7È˻ظ´
Fortran ÉùÃ÷±äÁ¿
ÒѾÓÐ5È˻ظ´
ÏëÎÊÒ»ÏÂÓ°Ïìfortran¼ÆËãËٶȵÄÒòËØ¶¼ÓÐÄÄЩ£¿
ÒѾÓÐ12È˻ظ´
ÇóÖú£º¹ØÓÚfortran½¨Êý×éÎÊÌ⣬лл£¡
ÒѾÓÐ4È˻ظ´
FortranÖÐÊý×éµÄʹÓÃ
ÒѾÓÐ4È˻ظ´
FORTRANÐÂÊÖ ÇóÖúÖ÷³ÌÐòÑ»·ÎÊÌâ
ÒѾÓÐ10È˻ظ´
intel fortran¾Ö²¿±äÁ¿×Ô¶¯¸üÐÂ
ÒѾÓÐ19È˻ظ´
Çë½ÌÒ»¸öfortranС³ÌÐò±àÒë³ö´íµÄÎÊÌ⣬лл
ÒѾÓÐ9È˻ظ´
FortranÖйØÓÚÊý×éµÄ±ä»¯
ÒѾÓÐ5È˻ظ´
¡¾ÇóÖú¡¿ÓÃfortranÔõôÃèÊöÏÂÃæÕâÑùµÄÇé¿ö£¬ÎÒÊÇÐÂÊÖ£¬Çë´ó¼Ò°ïæ
ÒѾÓÐ8È˻ظ´
¡¾ÇóÖú¡¿ÇóÖ¸µã£¬ÔÚFortranÀïÃæ£¬ÔõÑùʵÏÖ¡°Êý×éά¶È¿Éµ÷¡±µÄÊý×é?
ÒѾÓÐ5È˻ظ´
¡¾ÇóÖú¡¿fortranÖÐÔõô´æ´¢²»È·¶¨³¤¶ÈµÄÊý¾Ý¡¾ÒÑÍê½á¡¿
ÒѾÓÐ6È˻ظ´
¡¾ÇóÖú¡¿win7 µÄ ÓÃʲôfortran ±àÒëÆ÷°¡£¿¡¾ÒÑÍê³É¡¿
ÒѾÓÐ14È˻ظ´
¡¾½»Á÷¡¿FortranÓïÑÔ´ðÒÉרÌû
ÒѾÓÐ157È˻ظ´

btx97
½ð³æ (СÓÐÃûÆø)
- Ó¦Öú: 39 (СѧÉú)
- ½ð±Ò: 1212
- É¢½ð: 10
- ºì»¨: 1
- Ìû×Ó: 191
- ÔÚÏß: 127.2Сʱ
- ³æºÅ: 1257872
- ×¢²á: 2011-04-07
- רҵ: ¹ÌÌåÁ¦Ñ§
2Â¥2014-03-24 15:58:20
whf199022
гæ (³õÈëÎÄ̳)
- Ó¦Öú: 0 (Ó×¶ùÔ°)
- ½ð±Ò: 3
- Ìû×Ó: 5
- ÔÚÏß: 2Сʱ
- ³æºÅ: 2894372
- ×¢²á: 2013-12-25
- ÐÔ±ð: GG
- רҵ: »úе¶¯Á¦Ñ§

3Â¥2014-03-24 16:28:33
whf199022
гæ (³õÈëÎÄ̳)
- Ó¦Öú: 0 (Ó×¶ùÔ°)
- ½ð±Ò: 3
- Ìû×Ó: 5
- ÔÚÏß: 2Сʱ
- ³æºÅ: 2894372
- ×¢²á: 2013-12-25
- ÐÔ±ð: GG
- רҵ: »úе¶¯Á¦Ñ§

4Â¥2014-03-24 16:31:48
whf199022
гæ (³õÈëÎÄ̳)
- Ó¦Öú: 0 (Ó×¶ùÔ°)
- ½ð±Ò: 3
- Ìû×Ó: 5
- ÔÚÏß: 2Сʱ
- ³æºÅ: 2894372
- ×¢²á: 2013-12-25
- ÐÔ±ð: GG
- רҵ: »úе¶¯Á¦Ñ§

5Â¥2014-03-24 17:02:48













»Ø¸´´ËÂ¥