error #6631: A non-optional actual argument must be present when invoking a ...

chddzgc · 发表于 2023-1-16 20:56:34

主程序中CALL emb_2d_bc_4node(nx1,nx2,ny1,ny2,locatbg,nf)
子程序做成用了静态库
SUBROUTINE emb_2d_bc_4node(nx1,nx2,ny1,ny2,locatbg,nf)

IMPLICIT NONE
INTEGER,INTENT(IN)::nx1,nx2,ny1,ny2,locatbg(:,:)
INTEGER,INTENT(OUT)::nf(:,:)
INTEGER::nm,ic,i,j,nye,i1,i2,i3,m,n,p,it
报错如下
error #6631: A non-optional actual argument must be present when invoking a procedure with an explicit interface. [NN]
error #7978: Required interface for passing assumed shape array is missing from original source. [LOCATBG]
error #7978: Required interface for passing assumed shape array is missing from original source. [NF]

楚香饭 · 发表于 2023-1-16 21:23:02

本帖最后由楚香饭于 2023-1-16 21:24 编辑

1. 把函数都放在module里。
2. 手动写上 interface。
任选一种

chddzgc · 发表于 2023-1-16 21:46:18

楚香饭发表于 2023-1-16 21:23
1. 把函数都放在module里。
2. 手动写上 interface。
任选一种

感谢，感谢。制成了静态库不知为什么调用不了，单独use了一下可以了。但是error 6631还是有

楚香饭 · 发表于 2023-1-17 07:58:28

error #6631: A non-optional actual argument must be present when invoking a procedure with an explicit interface. [NN]

这说明时 NN 参数有问题（缺少NN虚参对应的实参），但是你给出的代码片段里并没有 NN，找找是不是别的代码段的问题？

[子程序] error #6631: A non-optional actual argument must be present when invoking a ...

新人勋章

爱心勋章

水王勋章

元老勋章

热心勋章