参考原文:https://blog.csdn.net/SinjoyWong/article/details/70138960

在用intel fortran写一个DLL程序的时候,发现数据结构比较复杂,所以使用了fortran90中新增的结构体。因为abaqus只能识别.for格式的文件,一开始以为fortran77是无法使用结构体的。 
在写的过程中,直接将结构体对象的名称作为子程序的形参。一直报错,表示实参与形参的类型不统一。 
在确认语法没错之后,在网上查找了很长时间,但是除了语法层面外仍没有解释。后来有人建议将Debug改为Release,遂尝试之,顺利通过。

---------------------------------------------------

我的经验:想编译一个dll给VBNET调用

----------------------------------------------------

SUBROUTINE SAP(NJ,N,NE,NPJ,NPF,JN,X,Y,JE,JEAI,EAI,JPJ,PJ,JPF,PF,F,FM)
!*********     ANALYSIS PROGRAM FOR PLANE FRAME       ****************
      !MS$ATTRIBUTES DLLEXPORT,STDCALL,ALIAS:'PFSAP' :: PFSAP
      !DEC$ ATTRIBUTES VALUE :: NJ,N,NE,NPJ,NPF
      !DEC$ ATTRIBUTES REFERENCE :: JN,JE,JEAI,JPJ,JPF
      !DEC$ ATTRIBUTES REFERENCE ::X,Y,EAI,PJ,PF,F,FM
      INTEGER(4),INTENT(IN) :: NJ,N,NE,NPJ,NPF
      INTEGER(4),INTENT(IN) :: JN(3,100),JE(2,100),JEAI(100),JPJ(100),JPF(2,100)
      REAL(8),INTENT(IN) :: X(100),Y(100),EAI(3,100),PJ(100),PF(2,100)
      REAL(8),INTENT(OUT) :: F(100,3),FM(100,6)

后面程序中的变量都定义为INTEGER或 REAL

编译报错
错误        error #6633: The type of the actual argument differs from the type of the dummy argument.   [Y]        J:\Recent\VB\WindowsApp1\PlaneFrame\PlaneFrame.f90    19

将红色代码改为:(删除 (8))

REAL,INTENT(IN) :: X(100),Y(100),EAI(3,100),PJ(100),PF(2,100)
      REAL,INTENT(OUT) :: F(100,3),FM(100,6)

再编译 则成功

分析:主要是因为上下文中的变量定义不一致

fortran错误:the type of the actual argument differs from the type of the dummy argument相关推荐

  1. error #6633: The type of the actual argument differs from the type of the dummy argument.

    Intel fortran编译器编译较早的fortran代码出现上述错误.这错误是说,函数调用时形参和实参不匹配.类似,形参声明了一个较大数组,实参确实一个较小的数组:或者反过来.这个错误是visua ...

  2. TypeScript语法错误:Argument of type ‘string‘ is not assignable to parameter of type ‘Element‘. 解决方法

    问题描述 DOM插入元素节点报错. TypeScript语法错误: TS2345: Argument of type 'string' is not assignable to parameter o ...

  3. TypeError: argument 1 has unexpected type 'NoneType'(解决办法)

    self.search.clicked.connect(self.search_information(e)) 在使用connect时,报TypeError: argument 1 has unexp ...

  4. The “path“ argument must be of type string. Received undefined

    The "path" argument must be of type string. Received undefined "path"参数必须是字符串类型. ...

  5. 运行gitbook init命令报错及问题解决办法 TypeError [ERR_INVALID_ARG_TYPE]: The “data“ argument must be of type stri

    运行gitbook init命令报错,错误信息如下: TypeError [ERR_INVALID_ARG_TYPE]: The "data" argument must be o ...

  6. Argument of type ‘string‘ is not assignable to parameter of type ‘never‘.

    在react中遇到了一个这样的问题Argument of type 'string' is not assignable to parameter of type 'never'. 更改之前: 更改之 ...

  7. Vue项目 报错TypeError [ERR INVALID ARG TYPE]: The “path“ argument must be of type string

    # Vue项目 报错TypeError [ERR INVALID ARG TYPE]: The "path" argument must be of type string 卡了半 ...

  8. Android NDK 【错误】The method loadLibrary(String) is undefined for the type Settings.Syste

    [错误]The method loadLibrary(String) is undefined for the type Settings.System [解决方法] 不要加入包import andr ...

  9. Python错误集锦:打开文件路径提示参数无效,OSError: [Errno 22] Invalid argument: ‘D:\juzicode\桔子code\readme.txt’

    原文链接:http://www.juzicode.com/archives/2493 错误提示: 打开文件路径提示参数无效:OSError: [Errno 22] Invalid argument: ...

最新文章

  1. LeetCode实战:最接近的三数之和
  2. brew改源无效问题之一
  3. 哈理工大学计算机专业宿舍,计算机学院举办“灯塔工程”之寝室文化节
  4. jetson nano 系统镜像制作_参考备份Jetson Nano系统(该程序不完备,制作的image不可用,仅供)...
  5. 数据结构之外部排序:最佳归并树
  6. it just sudo_just do it是什么梗
  7. org.slf4j.Logger中isTraceEnabled(),isDebugEnabled(),isInfoEnabled(),isWarnEnabled(),isErrorEnabled()
  8. python程序扩展名主要有-python文件的后缀名都有哪些?
  9. java导入shp数据并解析
  10. iOS App所需图标尺寸
  11. 基于对数变换和非线性变换的图像增强(图像亮度调节)
  12. 联想笔记本 插电源 拔电源 黑屏问题解决。
  13. 图像放大的三种处理方法:最近邻插值,双线性插值 ,双三次插值算法
  14. 基于selenium的QQ空间自动点赞功能(2020年7月版)
  15. WMS仓库管理系统有哪些功能介绍
  16. 解决最新的Chrome 7 不再支持CRX手动安装方法
  17. PHP-购物网站开发设计(一)
  18. 利用yolov5检测物体的3维坐标,并以ROS输出
  19. 李宏毅机器学习--self-supervised:BERT、GPT、Auto-encoder
  20. 岁月温柔-11 妈妈出汗多秋衣湿了不换的真正原因

热门文章

  1. 课程学习之计算机网络
  2. Luban—— Android图片压缩工具
  3. 设计齿轮时为何齿数不能小于17?
  4. uniapp app 实现qq登录、微信登录
  5. Android可移动的悬浮窗
  6. Hibernate JPA
  7. 统信uos操作系统虚拟机安装_【IT之家学院】统一操作系统 UOS 尝鲜记(一):下载安装...
  8. M103: Basic Cluster Administration chapter 3 Sharding学习记录
  9. Android实现无痕埋点具体实现-采用代码插桩的方式
  10. 200代码写一套属于自己的事件总线(EventBus)库