fortran 编程求助！

小七是只猫

调试时出现user breakpoint called from code at 0x75c1381b   


program main
implicit none
integer i,j,k
real x(10,12,33)
integer mydate    !!! 读取的第一个文件!!!
character(len=80) filename,filedate    !!! 用于存放文件名称!!!
mydate=1979
do k=1,33
write(filedate,'(i4.4)') mydate     !!!!把mydate的值赋予filedate!!!
write(filename,*) 'cmap_mon_',trim(filedate),'.txt'
open(unit=k+50,file=filename)
do j=1,12
  do i=1,10
  read(k+50,'(f8.2)') x(i,j,k)
  end do
end do
close(k+50)
mydate=mydate+1
end do
open(unit=100,file='station.txt',form="formatted",access="sequential",position="append")
do k=1,33
do j=1,12
write(100,'(10f8.2)') x(1,j,k),x(2,j,k),x(3,j,k),x(4,j,k),x(5,j,k),x(6,j,k),x(7,j,k),x(8,j,k),x(9,j,k),x(10,j,k)
end do
end do
stop
end

mofangbao

你自己在调试器里面设置了断点，拜托楼主先把英文翻译一遍，自己找下原因嘛，这种程序你不会使用调试器的话就直接运行试试吧 debug的话还是得先看看相关教程的

小七是只猫

mofangbao 发表于 2012-4-20 17:14

                               
登录/注册后可看大图

你自己在调试器里面设置了断点，拜托楼主先把英文翻译一遍，自己找下原因嘛，这种程序你不会使用调试器的话 ...

确实不会使用···  刚入门好多基本问题还不清楚。好的 以后发帖求助前还是用心研究下~  多谢了！

和清谈

你读取文件的时候要用无格式读入吧~

言深深

我刚刚测试了一下你的程序，在cvf6.5下面是可以运行的，没有任何问题

小七是只猫

言深深 发表于 2012-4-20 19:45

                               
登录/注册后可看大图

我刚刚测试了一下你的程序，在cvf6.5下面是可以运行的，没有任何问题

谢谢~ 其实这个是舍友写的  她很厉害  我是菜鸟学习中····

小七是只猫

言深深 发表于 2012-4-20 19:45

                               
登录/注册后可看大图

我刚刚测试了一下你的程序，在cvf6.5下面是可以运行的，没有任何问题

运行之后显示， forrtl:severe(24): end-of-file during read cmap_mon_1979_rain1

数据不够读？可是自己检查了一下觉得没错呃  ··· 要读的33个文件是1979到2011的 12行10列
例 cmap_mon_1979_rain1.txt

    0.35    0.03    0.08    0.30    0.92    0.07    0.08    0.22    0.15    0.27
    0.88    0.39    0.33    0.46    1.35    0.25    0.11    0.25    0.19    0.34
    0.38    0.92    0.40    0.31    0.46    1.29    0.42    0.38    1.13    0.77
    2.76    0.98    0.78    2.04    4.01    1.19    0.51    1.57    0.77    1.35
    5.08    2.18    2.33    1.75    4.06    0.91    0.52    1.57    0.69    2.18
    7.23    8.90    6.96    6.38    8.67    5.86    5.00    9.38    3.63    3.47
    5.73    8.59    5.95    5.70    7.92    8.44    6.68    8.32    3.43    7.09
   10.08    8.45    8.78    8.04   10.35    7.33    6.55    8.06    3.99    9.84
    5.49    6.68    5.62    4.44    4.68    5.56    4.50    4.73    3.23    4.72
    2.26    4.70    3.69    1.24    0.53    5.50    4.97    2.52    3.80    3.06
    0.11    0.62    0.50    0.20    0.13    0.50    0.50    0.48    0.07    1.62
    0.39    1.67    0.85    0.35    0.37    1.81    1.38    1.16    0.85    1.14

小七是只猫

和清谈 发表于 2012-4-20 17:41

                               
登录/注册后可看大图

你读取文件的时候要用无格式读入吧~

好像问题不在这里。 果然可以运行的··· 只是读取文件的时候又有点小问题。 显示数据不够读 囧 继续研究

言深深

小七是只猫 发表于 2012-4-20 22:08

                               
登录/注册后可看大图

运行之后显示， forrtl:severe(24): end-of-file during read cmap_mon_1979_rain1

数据不够读？可是自 ...

回头你发一份数据给我测试一下，我用的是自己写的一个数据测试时没有问题的

小七是只猫

言深深 发表于 2012-4-21 00:38

                               
登录/注册后可看大图

回头你发一份数据给我测试一下，我用的是自己写的一个数据测试时没有问题的

非常感谢~