²é¿´: 705  |  »Ø¸´: 6

lijunjiexm

Ìú³æ (СÓÐÃûÆø)

[ÇóÖú] ÇóÖú¼òµ¥µÄÒ»¸ö²ÎÊý´«µÝÎÊÌ⣬лл

Çë½ÌÒ»¸ö¼òµ¥³ÌÐòMID,
     PROGRAM MID

        implicit real*8(a-h,o-z)
      real*8 ia(5)
      
        open(10,file='inid.dat')
        open(21,file='mesh1.dat')
      read(21,*) numnp,numel

        do 300 i=1,numnp
            read(21,2100) idum,xreal,yreal,ia(i)
            write(10,*) ia(i)       
c         write(10,2100)  idum,xreal,yreal,ia(i)
300   continue
     
2100  format(i5,2x,e15.5,2x,e12.5,2x,i2)

      end
C---------------------------------------------------------------------------------------
mesh1.datΪ
         5        2 numnp , numel
    1      0.00000E+00   0.00000E+00   1
    2      0.00000E+00   0.35803E-03   1   
    3      0.00000E+00   0.70174E-03   1  
    4      0.00000E+00   0.10317E-02   1  
    5      0.00000E+00   0.13485E-02   1  
µ«ÊÇ Óà write(10,*)  ia(i)Óï¾äºó£¬Ð´½øÈ¥µÄinid.datÎļþΪ£º
  4.940656458412465E-324
  4.940656458412465E-324
  4.940656458412465E-324
  4.940656458412465E-324
  4.940656458412465E-324
¶øÑ¡Ôñwrite(10,2100)  idum,xreal,yreal,ia(i) £¬Ôòinid.datΪ
   1      0.00000E+00   0.00000E+00   1
    2      0.00000E+00   0.35803E-03   1   
    3      0.00000E+00   0.70174E-03   1  
    4      0.00000E+00   0.10317E-02   1  
    5      0.00000E+00   0.13485E-02   1
µ«ÔÚÔÚdebug¹ý³ÌiaµÄÊý¾Ý¾ÓÈ»ÊÇ 4.940656458412465E-324£¬Õâ¸öÔõô½âÊÍÄØ£¿ÔõôʹµÃiaÊý×éµÈÓÚ 1 1 1 1 1£¿Çë¶à¶àÖ¸½Ì£¬Ð»Ð»
»Ø¸´´ËÂ¥

» ²ÂÄãϲ»¶

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

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

snoopyzhao

ÖÁ×ðľ³æ (Ö°Òµ×÷¼Ò)

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

¡ï ¡ï
xzhdty(½ð±Ò+2): »¶Ó­³£À´³ÌÐòÓïÑÔ¿´¿´ 2011-09-02 09:20:12
°Ñ real*8 ia(5) ¸Ä³É integer ia(5) ¾Í¿ÉÒÔÁË£¨gfortran Ñé֤ͨ¹ý£©¡£Èç¹û²»Ð޸ģ¬ÔÚ gfortran Ï»ᱨÈçÏ´íÎó£º

Fortran runtime error: Expected INTEGER for item 5 in formatted transfer, got RE
AL
(i5,2x,e15.5,2x,e12.5,2x,i2)
                         ^
2Â¥2011-09-01 22:07:11
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

lijunjiexm

Ìú³æ (СÓÐÃûÆø)

ÒýÓûØÌû:
2Â¥: Originally posted by snoopyzhao at 2011-09-01 22:07:11:
°Ñ real*8 ia(5) ¸Ä³É integer ia(5) ¾Í¿ÉÒÔÁË£¨gfortran Ñé֤ͨ¹ý£©¡£Èç¹û²»Ð޸ģ¬ÔÚ gfortran Ï»ᱨÈçÏ´íÎó£º

Fortran runtime error: Expected INTEGER for item 5 in formatted transfer, got RE
AL
( ...

Ϊʲôreal²»ÐÐÄØ£¿ÊÔÁËϰÑreal*8¸Ä³ÉdimensionºÃÏñÒ²¿ÉÒÔ£¬Õâ¸öÄÜÉÔ΢½âÊÍÏÂÂð£¬Ð»Ð»
3Â¥2011-09-01 22:19:55
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

lijunjiexm

Ìú³æ (СÓÐÃûÆø)

¶ÔÁË£¬ÍüÁË˵һÏ£¬ÄúµÄinid.datÎļþÉú³ÉÊÇÕâ¸ö£¨ÎÒÏëÒªµÄ£©Â𠣨ÔÚÕâ¸öÓï¾äÏ write(10,*)  ia(i)Óï¾ä£©

1
  1   
  1  
  1  
  1
4Â¥2011-09-01 22:24:05
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

snoopyzhao

ÖÁ×ðľ³æ (Ö°Òµ×÷¼Ò)

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

ÒýÓûØÌû:
3Â¥: Originally posted by lijunjiexm at 2011-09-01 22:19:55:
Ϊʲôreal²»ÐÐÄØ£¿ÊÔÁËϰÑreal*8¸Ä³ÉdimensionºÃÏñÒ²¿ÉÒÔ£¬Õâ¸öÄÜÉÔ΢½âÊÍÏÂÂð£¬Ð»Ð»

real*8 ia(5) Ï൱ÓÚ
real* ia
dimension ia(8)

²»ÐеÄÔ­ÒòÊÇÒòΪ format ÖÐÃ÷È·µØÐ´Á˵ÚÎåÏîÊÇ i2 ¸ñʽ£¬¼´ÊÇÒ»¸ö integer£¬µ« read Óï¾ä·¢ÏÖµÚ 5 ÏîÊÇÒ»¸ö real*8 µÄ±äÁ¿¡­¡­
5Â¥2011-09-01 22:26:36
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

snoopyzhao

ÖÁ×ðľ³æ (Ö°Òµ×÷¼Ò)

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

¡ï
lijunjiexm(½ð±Ò+30): Thanks£¬¿´À´formatÒªºÃºÃѧѧÁË 2011-09-01 22:30:26
xzhdty(½ð±Ò+1): ллÁË 2011-09-02 09:20:49
ÄãÒªÊÇÕæÏë°ÑµÚÎåÏî¶Á³É real£¬ÄÇô£¬»»ÖÖ·½Ê½ºÃÁË£¬È磺

         read(21,2100) idum,xreal,yreal,itemp
         ia(i) = itemp
6Â¥2011-09-01 22:27:31
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

snoopyzhao

ÖÁ×ðľ³æ (Ö°Òµ×÷¼Ò)

ÒýÓûØÌû:
4Â¥: Originally posted by lijunjiexm at 2011-09-01 22:24:05:
¶ÔÁË£¬ÍüÁË˵һÏ£¬ÄúµÄinid.datÎļþÉú³ÉÊÇÕâ¸ö£¨ÎÒÏëÒªµÄ£©Â𠣨ÔÚÕâ¸öÓï¾äÏ write(10,*)  ia(i)Óï¾ä£©

1
  1   
  1  
  1  
  1

ÊÇÕâÑùµÄ°¡¡­¡­
7Â¥2011-09-01 22:28:13
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
Ïà¹Ø°æ¿éÌø×ª ÎÒÒª¶©ÔÄÂ¥Ö÷ lijunjiexm µÄÖ÷Ìâ¸üÐÂ
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] Ò»Ö¾Ô¸ÖØÇì´óѧ085700×ÊÔ´Óë»·¾³£¬×Ü·Ö308Çóµ÷¼Á +7 īīĮ 2026-03-23 8/400 2026-03-23 20:36 by Creta
[¿¼ÑÐ] Ò»Ö¾Ô¸ÎäÀí²ÄÁϹ¤³Ì348Çóµ÷¼Á +6 £þ^£þ©bº¹ 2026-03-19 9/450 2026-03-23 19:53 by pswait
[¿¼ÑÐ] Ò»Ö¾Ô¸ÉÂʦ´óÉúÎïѧ071000£¬298·Ö£¬Çóµ÷¼Á +3 SYA£¡ 2026-03-23 3/150 2026-03-23 19:09 by macy2011
[¿¼ÑÐ] ¹¤¿Æ0856Çóµ÷¼Á +5 ãåÎö͡͡ 2026-03-21 5/250 2026-03-23 17:56 by º£ÉªÞ±-
[¿¼ÑÐ] 316Çóµ÷¼Á +7 ÁºÜçö© 2026-03-19 7/350 2026-03-23 16:21 by lingjue
[¿¼ÑÐ] ÇóÀÏʦÊÕÎÒ +3 zzh16938784 2026-03-23 3/150 2026-03-23 12:56 by ztnimte
[¿¼ÑÐ] 0854µç×ÓÐÅÏ¢Çóµ÷¼Á +3 ¦Á____ 2026-03-22 3/150 2026-03-22 21:28 by zhq0425
[¿¼ÑÐ] ÉúÎïѧ071000 329·ÖÇóµ÷¼Á +5 ÎÒ°®ÉúÎïÉúÎﰮΠ2026-03-17 5/250 2026-03-22 16:42 by tcx007
[¿¼ÑÐ] Çóµ÷¼ÁԺУÐÅÏ¢ +6 CX 330 2026-03-21 6/300 2026-03-22 15:25 by ÎÞи¿É»÷111
[¿¼ÑÐ] 286·ÖÈ˹¤ÖÇÄÜרҵÇëÇóµ÷¼ÁÔ¸Òâ¿ç¿¼£¡ +4 lemonzzn 2026-03-17 8/400 2026-03-21 22:49 by lemonzzn
[¿¼ÑÐ] ²ÄÁÏ 271Çóµ÷¼Á +5 Õ¹ÐÅÔÃ_ 2026-03-21 5/250 2026-03-21 17:29 by ѧԱ8dgXkO
[¿¼ÑÐ] 266Çóµ÷¼Á +3 ÍÛºôºßºôºß 2026-03-20 3/150 2026-03-21 16:46 by barlinike
[¿¼ÑÐ] Ò»Ö¾Ô¸ÖØÇì´óѧ085700×ÊÔ´Óë»·¾³×Ü·Ö308Çóµ÷¼Á +7 īīĮ 2026-03-20 7/350 2026-03-21 16:36 by barlinike
[¿¼ÑÐ] 265Çóµ÷¼Á +12 ÁºÁºÐ£Ð£ 2026-03-19 14/700 2026-03-21 13:38 by lature00
[¿¼ÑÐ] Ò»Ö¾Ô¸Ìì½ò´óѧ»¯Ñ§¹¤ÒÕרҵ£¨081702£©315·ÖÇóµ÷¼Á +12 yangfz 2026-03-17 12/600 2026-03-21 03:30 by JourneyLucky
[¿¼ÑÐ] 265Çóµ÷¼Á +3 Jack?k?y 2026-03-17 3/150 2026-03-21 03:17 by JourneyLucky
[¿¼ÑÐ] ²ÄÁÏѧÇóµ÷¼Á +4 Stella_Yao 2026-03-20 4/200 2026-03-20 20:28 by ms629
[ÂÛÎÄͶ¸å] ÉêÇë»Ø¸åÑÓÆÚÒ»¸öÔ£¬±à¼­Í¬ÒâÁË¡£µ«ÏµÍ³ÉϵÄʱ¼äû±ä£¬¸ø±à¼­ÓÖдÓʼþÁË£¬Ã»»Ø¸´ 10+3 wangf9518 2026-03-17 4/200 2026-03-19 23:55 by babero
[¿¼ÑÐ] 288Çóµ÷¼Á£¬Ò»Ö¾Ô¸»ªÄÏÀí¹¤´óѧ071005 +5 ioodiiij 2026-03-17 5/250 2026-03-19 18:22 by zcl123
[¿¼ÑÐ] ¿¼ÑÐÇóµ÷¼Á +3 éÙËÌ. 2026-03-17 4/200 2026-03-17 21:43 by ÓÐÖ»ÀêÅ«
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û