请给位大侠不吝赐教[em18]

你的整数a定义的是什么类型? 默认单精度整型正负3W多, 但它读取99W?

我定义的是长整型的

帖代码吧, 这样隔空猜效率低.

if(b(j)=='//////'.or.b(j)==‘PPC???’) b(j)='999999'
改为：
if(B(j,1:3).EQ.'///'.or.b(j,1:3).EQ.'PPC')b(j)='999999'

program main
     implicit none    
     character(len=100) ::ccc
     integer i,ii,j,m,n,dd
     integer,allocatable ::a(:,:)
     character(len=7),allocatable ::b(:)

     dd=31
     m=dd*4
     n=6
           
     allocate(a(m,n))
     allocate(b(n))

     open(1,file='A54401-201007.txt',status='old')
     open(2,file='201007.txt')
       do while(.not.eof(1))
        read(1,'(A100)')ccc
        if(ccc=='FN')then
           do i=1,m
             read(1,'(A100)')ccc
             if((index(ccc,'='))/=0)then
               do ii=1,m
                 read(1,'(A100)')ccc 
                 read(ccc,*)(b(j),j=1,n)
                   [b][color=800000]do j=1,n
                     if(b(j)=='//////'.or.b(j)=='PPC???') b(j)='-99999'
                     read(b(j),"(i6)")a(i,j)
                   enddo[/color][/b]                  
                   write(2,"(6i7)")a(i,:)
               enddo
              endif
           enddo
        endif
     enddo

    deallocate(a)
    deallocate(b)

    close(1)
    close(2)
    
    stop
    end program

现在发现不是红字部分出现问题，而是它前面
               do ii=1,m
                 read(1,'(A100)')ccc 
                 read(ccc,*)(b(j),j=1,n)
这一部分有问题
当出现//////的时候，读取出现问题，只显示上一行这个位置的数据

各位有什么方法解决啊
[em10]

将/////替换成NAN就可以读取出来，为甚么//////不可以啊

integer(kind=4),allocatable ::a(:,:)
这样试试吧, 一般如果没有修改过编译参数默认是kind=2的.

read(ccc,*)(b(j),j=1,n)  这个你用默认格式去读取未必能正确吧, 最好还是加入A格式的控制. 其实你直接把ccc按照7个字节一段这样分开就是你要的b了阿. 例如b(1)=ccc(1:7); b(2)=ccc(9:16);... (当然实际上应按照规律写成循环)

想问问b(j)=='PPC???' 能把PPC012的判断出来?

谢谢 yeg001
b(j)=='PPC???' 不能判断出PPC012
我现在已经改成
if(index(b(j),'PPC')/=0) b(j)='999999'