Fortran Coder

查看: 9158|回复: 3
打印 上一主题 下一主题

[文件读写] 求助The data types of the argument(s) are invalid.

[复制链接]

12

帖子

6

主题

0

精华

入门

F 币
65 元
贡献
41 点
跳转到指定楼层
楼主
发表于 2019-12-30 23:39:45 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
[Fortran] 纯文本查看 复制代码
program main
    character(len=20) :: filedir1,filedirN1,filedir2,filedirN2,filedir3,filedirN3,filedir4,filedirN4,filedir5,filedirN5,filedir6,filedirN6,filedir7,filedirN7
    character(len=17) :: filename
    character(len=100) :: line
       filename='APMG3490.19D'
       filedir1='D:\CIDE1\2019\'
      filedirN1='D:\CIDEN1\2019\'
      filedir2 = 'D:\CIDE2\2019\' 
      filedirN2 = 'D:\CIDEN2\2019\'
      filedir3='D:\CIDE3\2019\' 
      filedirN3 = 'D:\CIDEN3\2019\'
      filedir4='D:\CIDE4\2019\' 
      filedirN4 = 'D:\CIDEN4\2019\'
       filedir5='D:\CIDE5\2019\' 
      filedirN5 = 'D:\CIDEN5\2019 '
       filedir6='D:\ CIDE6\2019\' 
      filedirN6 = 'D:\CIDEN6\2019\'
    filedir7='D:\CIDE\2019\' 
    filedirN7 = 'D:\CIDEN\2019\'
        OPEN(20,FILE=trim(adjustl(filedirN1))//trim(adjustl(filenam)),position='append' )
        OPEN(30,FILE=adjustl(trim(filedirN2))//adjustl(trim(filenam)))
        OPEN(40,FILE=adjustl(trim(filedirN3))//adjustl(trim(filenam)))
        OPEN(50,FILE=adjustl(trim(filedirN4))//adjustl(trim(filenam)))
        OPEN(60,FILE=adjustl(trim(filedirN5))//adjustl(trim(filenam)))
        OPEN(70,FILE=adjustl(trim(filedirN6))//adjustl(trim(filenam)))
         
         !DO  WHILE(.NOT.EOF(20))
         !    read(20,*)line
         !enddo
   DO  WHILE(.NOT.EOF(30))
       read(30,*)line
       write(20)line
   enddo
   DO  WHILE(.NOT.EOF(40))
       read(40,*)line
       write(20)line
   enddo
   DO  WHILE(.NOT.EOF(50))
       read(50,*)line
       write(20)line
   enddo
   DO  WHILE(.NOT.EOF(60))
       read(60,*)line
       write(20)line
   enddo
   close(30)
   close(40)
   close(50)
   close(60)
   close(70)
   end

报错
C:\Users\dell\Desktop\HBtest\HBtest\HE_NE1.f90(21): error #6362: The data types of the argument(s) are invalid.   [ADJUSTL]
C:\Users\dell\Desktop\HBtest\HBtest\HE_NE1.f90(22): error #6362: The data types of the argument(s) are invalid.   [TRIM]
C:\Users\dell\Desktop\HBtest\HBtest\HE_NE1.f90(23): error #6362: The data types of the argument(s) are invalid.   [TRIM]
C:\Users\dell\Desktop\HBtest\HBtest\HE_NE1.f90(24): error #6362: The data types of the argument(s) are invalid.   [TRIM]
C:\Users\dell\Desktop\HBtest\HBtest\HE_NE1.f90(25): error #6362: The data types of the argument(s) are invalid.   [TRIM]
C:\Users\dell\Desktop\HBtest\HBtest\HE_NE1.f90(26): error #6362: The data types of the argument(s) are invalid.   [TRIM]
请问大家是有什么问题呢?

分享到:  微信微信
收藏收藏 点赞点赞 点踩点踩

250

帖子

2

主题

0

精华

宗师

F 币
1731 元
贡献
872 点

规矩勋章

沙发
发表于 2019-12-31 09:14:47 | 只看该作者
filenam不是filename,没有声明,相当于用了隐含规则作为实数,所以函数出错。
建议用 implicit none

12

帖子

6

主题

0

精华

入门

F 币
65 元
贡献
41 点
板凳
 楼主| 发表于 2020-1-1 22:41:52 | 只看该作者
necrohan 发表于 2019-12-31 09:14
filenam不是filename,没有声明,相当于用了隐含规则作为实数,所以函数出错。
建议用 implicit none ...

好的,谢谢您,这个问题后来我注意到了,也改过来了,但是依旧不对,好像是没有识别关键字

954

帖子

0

主题

0

精华

大师

F 币
184 元
贡献
75 点

规矩勋章元老勋章新人勋章水王勋章热心勋章

QQ
地板
发表于 2020-1-2 08:02:15 | 只看该作者
给新的代码,新的错误提示
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-11-15 01:41

Powered by Tencent X3.4

© 2013-2024 Tencent

快速回复 返回顶部 返回列表