fortran 语言提取出错

流浪者

我刚学fortran语言不久  我要用此语言从一个很多数据的文件中提取所需的数据  下面是我写的程序 总是执行时出错  我实在检查不出来 求好心人 帮帮忙 指点哈
PROGRAM ExtrenalFile
    IMPLICIT NONE
    CHARACTER(20)  FILEOUT,FILENAME
    INTEGER I,J,N=1.00
    DIMENSION AA(((I,J)I=1,1000)J=1,10)，BB(1000)，CC(1000)
    REAL AA,BB,CC
    WRITE(*,*)"PLEASE INPUT NAME OF FILEIN"
    READ*,FILENAME
    OPEN(1,FILE=FILENAME)
    OPEN(2,FILE=FILEOUT)
    DO READ(1,*)AA(I,J)
       IF(I>82.AND.I<656)THEN
       SELECT CASE(INT(J))
              CASE(J==1)
              AA=AA(I,J)+50000
              WRITE(BB,*)
              CASE(J==4)
              WRITE(CC,*)
        END SELECT
        WRITE(2,40)BB(1),CC(1),N,BB(2),CC(2),N,BB(3),CC(3),N
       END IF
    END DO
    CLOSE(1)
    CLOSE(2)
40  FORMAT(1X,3(F14.5,F8.4,N))
    END PROGRAM  

love2100

程序问题很多哈，你最好附上原数据文件，并且要说明最终目的是什么，这样大家好帮你解决啊

冰点

问题确实挺多，文件名怎么成了字符型变量？N都已经声明为整型了，怎么还1.00？后面读文件语句也不对……估计您没学过FORTRAN吧？找个自己熟练的数据处理软件试试吧……

言深深

额，好吧，我被你打败了！
我将你的程序copy出来，检测到20个错误，改了几个参数，发现还有一些根本不知道你写的什么，真是无语了！
http://bbs.06climate.com/forum.php?mod=viewthread&tid=4780

这是以前写的一个提取数据，你参考一下，希望对你有用
祝你成功

流浪者

言深深 发表于 2012-4-27 16:15

                               
登录/注册后可看大图

额，好吧，我被你打败了！
我将你的程序copy出来，检测到20个错误，改了几个参数，发现还有一些根本不知道 ...

那是从一个数据文件中提取出其中中间的82行到600多行之间中 第一行和第四行的数据 再给第一行最前面加个5
然后输出来的程序 我是刚刚学编的  谢谢了

流浪者

流浪者 发表于 2012-4-27 18:24

                               
登录/注册后可看大图

那是从一个数据文件中提取出其中中间的82行到600多行之间中 第一行和第四行的数据 再给第一行最前面加个5 ...

首先谢谢各位 不好意思 刚才说错了  意思是把 这个txt文档里面的第82行到600行的数据中的第一列的每个数最高位加上5和第四列的数据 一起输出到fileout.txt 里面   再次谢谢各位！！