6楼: Originally posted by physliebe at 2014-02-09 19:33:13
WRITE(12,"(3f10.5)"; ) A，这种输出矩阵的方法试了一下，报错...

8楼: Originally posted by duhb655 at 2014-02-09 23:52:07
不好意思，BB没了，就送红花一朵。这个我好像解决了，但有个问题，原TXT中有的列是整型有的是实型，我这样一下全给别人弄成实型了，麻烦您看一下7楼，不知道您能不能给点意见，谢谢啦！...

8楼: Originally posted by duhb655 at 2014-02-09 23:52:07
不好意思，BB没了，就送红花一朵。这个我好像解决了，但有个问题，原TXT中有的列是整型有的是实型，我这样一下全给别人弄成实型了，麻烦您看一下7楼，不知道您能不能给点意见，谢谢啦！...

7楼: Originally posted by duhb655 at 2014-02-09 23:47:30
zhao老师，要不您帮帮忙，我给出一个小例子，然后我说出想要做什么（很简单），然后您帮我写一下主要的句子我学习学习，行不。TXT数据如下：
50     40     28.30186          54.27303
51     41     28.28920  ...

PROGRAM test

   IMPLICIT NONE
   INTEGER :: i, ios
   INTEGER, DIMENSION(11,2) :: c1_2
   REAL, DIMENSION(11,2) :: c3_4
   
   OPEN(UNIT = 12, FILE = 'aa.txt')
   
   DO i=1,11
      READ(12,'(I2,TR5,I2,TR5,F8.5,TR10,F8.5)') c1_2(i,:), c3_4(i,:)
   END DO
   
   DO i=1,11
      WRITE(*, '(2(TR2,I2),2(TR2,F8.5))') c1_2(i,:), c3_4(i,:)
   END DO

END PROGRAM test

14楼: Originally posted by snoopyzhao at 2014-02-10 02:45:07
一个 A 是没有办法既存整弄，又存实型的。分成两个可以：


PROGRAM test

   IMPLICIT NONE
   INTEGER :: i, ios
   INTEGER, DIMENSION(11,2) :: c1_2
   REAL, DIMENSION(11,2) :: c3_4
   
   OPEN ...

15楼: Originally posted by duhb655 at 2014-02-11 00:09:27
谢谢大神，那么晚还没休息啊！按您的指导我分别存在了A和B，那么能把A，B分别按他们的类型一起写到一个文件里吗？我试了一下，错的啊，有一半对的，一半会有*******号；...

16楼: Originally posted by snoopyzhao at 2014-02-11 00:16:24
把写文件的代码贴出来……

******的这个，多半是位置不够用...

17楼: Originally posted by duhb655 at 2014-02-11 00:48:43
program test
implicit none
integer  :: a(11,2),i
real     :: b(11,2)

open(1,file='Result.txt')
do i=1,11
read(1,*) a(i,,b(i,
enddo
open(2,file='zre.txt')
print*,a(:,1)
write(2," ...

18楼: Originally posted by snoopyzhao at 2014-02-11 01:23:56
你这个程序运行的时候没有报错？好奇怪……虽然 gfortran 编译没有问题，但运行会报错

Fortran runtime error: Expected REAL for item 3 in formatted transfer, got INTEGER

你最后那个 write 语句是不对的 ...

5楼: Originally posted by polypro at 2014-02-09 15:07:37
接3L，将write那一句替换就行了
DO I=1,11
   write(13,*) A(I,1:3)
ENDDO