±±¾©Ê¯ÓÍ»¯¹¤Ñ§Ôº2026ÄêÑо¿ÉúÕÐÉú½ÓÊÕµ÷¼Á¹«¸æ
²é¿´: 1828  |  »Ø¸´: 8
µ±Ç°Ö»ÏÔʾÂú×ãÖ¸¶¨Ìõ¼þµÄ»ØÌû£¬µã»÷ÕâÀï²é¿´±¾»°ÌâµÄËùÓлØÌû

836449366

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

[ÇóÖú] Fortran³öÏÖÓï·¨´íÎó

ÎÒ×Ô¼º±àÁËÒ»¶Î³ÌÐò£¬¾ÍÊǽ«aaa.txtÖеÄÊý¾ÝµÄǰһÐмõÈ¥ºóÒ»ÐУ¬È»ºó·µ»Ø²îÖµ
ÕâÊdzÌÐò
      program main
      implicit none
      integer :: i,j
      real*8 r1,r2,a,m(200,2),n(200)
      open(10,file='bbb')
      do i=1,200
        read(10,*) a,(m(i,j),j=1,2)
        r1=m(i,2)
        r2=m(i+1,2)
        n=r1-r2
        write(*,"(a4,200F30.15)" i,n(i)
      enddo
      end
ÏÂÃæÊÇaaa.txtÎļþ
           1   11.5927413790973
           2   11.8587968919448
        ¡­¡­         ¡­¡­¡­¡­      
       200   11.7952433041584
ÔËÐкó×ÜÊdzöÏÖ´íÎó
fortcom: Error: xxx.f90, line 11: Syntax error, found IDENTIFIER 'I' when expecting one of: .EQV. .NEQV. .XOR. .OR. .AND. .LT. < .LE. <= .EQ. == .NE. /= .GT. > ...
        write(*,"(a4,200F30.15)" i,n(i)
---------------------------------^
compilation aborted for xxx.f90 (code 1)
Çó´óÉñ½â´ð£¬±¾È˲»Ê¤¸Ð¼¤£¡
»Ø¸´´ËÂ¥

» ²ÂÄãϲ»¶

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

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

jerkwin

ר¼Ò¹ËÎÊ (ÕýʽдÊÖ)

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

¡ï ¡ï
gmy1990: ½ð±Ò+2 2013-10-03 20:27:28
read(10,*) a,(m(i,j),j=1,2)
        r1=m(i,2)
        r2=m(i+1,2)
        n=r1-r2
Âß¼­²»¶Ô, ×ÔÈ»²»ÊÇÄãÒªµÄ½á¹û
ÕâÀïi+1Ðл¹Ã»¶ÁÈë, Äã¾ÍʹÓÃÁË
7Â¥2013-09-30 21:24:24
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
²é¿´È«²¿ 9 ¸ö»Ø´ð

jerkwin

ר¼Ò¹ËÎÊ (ÕýʽдÊÖ)

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

¡ï ¡ï
¸Ðл²ÎÓ룬ӦÖúÖ¸Êý +1
gkf¸ß: ½ð±Ò+2 2013-09-29 23:19:22
write(*,"(a4,200F30.15)" i,n(i)
ÓÐÎó, ӦΪ
write(*,'(I4,200F30.15)') i,n(i)
2Â¥2013-09-29 22:22:23
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

yongma2008

ľ³æ (ÖøÃûдÊÖ)

ÂÛÎÄ£¿¿à£¡Ö÷¡£

write(*,"(a4,200F30.15)" i,n(i)
---------------------------------^
Õâ¾ä»°ÒѾ­¸æËßÄãÔÚÄÄÓÐÎÊÌâÁË¡£ÒªÏ°¹ß¿´´íÎóÌáʾ
3Â¥2013-09-30 10:46:22
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû

836449366

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

ÒýÓûØÌû:
2Â¥: Originally posted by jerkwin at 2013-09-29 22:22:23
write(*,"(a4,200F30.15)" i,n(i)
ÓÐÎó, ӦΪ
write(*,'(I4,200F30.15)') i,n(i)

¸ÄÁ˺󣬻¹ÊdzöÏÖÁË´íÎó
fortcom: Error: xxx.f90, line 13: Syntax error, found IDENTIFIER 'I' when expecting one of: .EQV. .NEQV. .XOR. .OR. .AND. .LT. < .LE. <= .EQ. == .NE. /= .GT. > ...
        write(*,"(I4,200F30.15)" i,n(i)
---------------------¡ª¡ª¡ª¡ª-----------^
compilation aborted for xxx.f90 (code 1)
4Â¥2013-09-30 14:06:51
ÒÑÔÄ   »Ø¸´´ËÂ¥   ¹Ø×¢TA ¸øTA·¢ÏûÏ¢ ËÍTAºì»¨ TAµÄ»ØÌû
×î¾ßÈËÆøÈÈÌûÍÆ¼ö [²é¿´È«²¿] ×÷Õß »Ø/¿´ ×îºó·¢±í
[¿¼ÑÐ] ²ÄÁϵ÷¼Á +8 Æ¥¿Ëi 2026-03-23 8/400 2026-03-27 08:11 by hypershenger
[˶²©¼ÒÔ°] ÕÐÊÕÉúÎïѧ/ϸ°ûÉúÎïѧµ÷¼Á +3 IceGuo 2026-03-26 4/200 2026-03-27 05:35 by user003
[¿¼ÑÐ] 286Çóµ÷¼Á +5 PolarBear11 2026-03-26 5/250 2026-03-26 23:59 by ÔËÆøyunqi
[¿¼ÑÐ] 325Çóµ÷¼Á +3 Aoyijiang 2026-03-23 3/150 2026-03-26 20:46 by ²»³Ôô~µÄ؈
[¿¼ÑÐ] 085701»·¾³¹¤³Ì£¬267Çóµ÷¼Á +4 minht 2026-03-26 4/200 2026-03-26 20:14 by barlinike
[¿¼ÑÐ] ѧ˶274Çóµ÷¼Á +3 LiÀîÓã 2026-03-26 3/150 2026-03-26 18:32 by Ìá³ö·½·¨µÄÌá³öº
[¿¼ÑÐ] 274Çóµ÷¼Á +14 ¹Ë¾ÅóÏҪǫÐé 2026-03-24 20/1000 2026-03-26 18:15 by ÀֺǺǵÄ×·ÃÎÈË
[¿¼ÑÐ] Ò»Ö¾Ô¸±±¾©»¯¹¤´óѧ²ÄÁÏÓ뻯¹¤£¨085600£©296Çóµ÷¼Á +9 µ¾ÆÞС±à 2026-03-26 9/450 2026-03-26 16:16 by ²»³Ôô~µÄ؈
[¿¼ÑÐ] 303Çóµ÷¼Á +6 À¶É½Ô 2026-03-25 6/300 2026-03-25 22:47 by 418490947
[¿¼ÑÐ] »úеѧ˶×Ü·Ö317Çóµ÷¼Á£¡£¡£¡£¡ +4 Acaciad 2026-03-25 4/200 2026-03-25 19:59 by hanserlol
[¿¼ÑÐ] 290·Öµ÷¼ÁÇóÖú +3 ¼ªÏéÖ¹Ö¹³Â 2026-03-25 3/150 2026-03-25 19:58 by barlinike
[¿¼ÑÐ] 321Çóµ÷¼Á +3 è±Óñ~~ 2026-03-25 3/150 2026-03-25 19:07 by Zhanglab-TJU
[¿¼ÑÐ] 311Çóµ÷¼Á +3 ¶¬Ê®Èý 2026-03-24 3/150 2026-03-24 21:31 by peike
[¿¼ÑÐ] ʳƷר˶ һ־Ը˫һÁ÷ 328 +3 xiaom99 2026-03-21 4/200 2026-03-24 21:20 by lailaisimei
[¿¼ÑÐ] »·¾³Ñ§Ë¶288Çóµ÷¼Á +8 ƤƤƤ123456 2026-03-22 8/400 2026-03-23 23:47 by ÈÈÇéɳĮ
[¿¼ÑÐ] 298Çóµ÷¼ÁÒ»Ö¾Ô¸211 +3 Éϰ¶6666@ 2026-03-20 3/150 2026-03-22 15:50 by ColorlessPI
[¿¼ÑÐ] 275Çóµ÷¼Á +6 shansx 2026-03-22 8/400 2026-03-22 15:27 by barlinike
[¿¼ÑÐ] 0703»¯Ñ§µ÷¼Á +4 ÄÝÄÝninicgb 2026-03-21 4/200 2026-03-21 18:39 by ѧԱ8dgXkO
[¿¼ÑÐ] 330Çóµ÷¼Á0854 +3 assdll 2026-03-21 3/150 2026-03-21 13:01 by ²«»÷518
[¿¼ÑÐ] 085601µ÷¼Á 358·Ö +3 zzzzggh 2026-03-20 4/200 2026-03-21 10:21 by luoyongfeng
ÐÅÏ¢Ìáʾ
ÇëÌî´¦ÀíÒâ¼û