子程序结构名称无效或丢失

毅仔要努力

编译报错: error #6158: The structure-name is invalid or is missing.
但是鼠标移动到结构名称上面右键查询结构定义，结果没有跳转，不知道结构在哪定义的，也不知道调用什么子程序保证结构正常使用

fcode

1. 您使用什么操作系统，什么编译器？什么编译环境？
2. 给出必要代码

毅仔要努力

[Fortran] 纯文本查看 复制代码

subroutine Renew_Wave
    !**********************************************************************
    !
    ! 定义子程序更新
    !
    !**********************************************************************
    implicit none
    ! local variables
    integer::wave_num!地震波定义
    integer::i,j
    real,dimension(1400)::wave_t,wave_v
    real,dimension(CalParams%PrescribedVelo%NNodePrescribedVelo,3)::Prevel
    wave_num=1400

    CalParams%PrescribedVelo%NodalPrescribedVelocityValue=Prevel

    do i = 1, CalParams%PrescribedVelo%NNodePrescribedVelo
        if (Prevel(i,1)==0.or.Prevel(i,2)==0.or.Prevel(i,3)==0) then!地震波触发条件，输入999
            open(10,file='v-t.txt',status='old')
            do j=1,wave_num
                read(10,*)wave_t(j),wave_v(j)
                if (j==CalParams%IStep) then! 时间步
                    CalParams%PrescribedVelo%NodalPrescribedVelocityValue(I, 1:NVECTOR)=wave_v(j)
                end if
            end do
            close (10)
        else
            CalParams%PrescribedVelo%NodalPrescribedVelocityValue(I, 1:NVECTOR) = CalParams%PrescribedVelo%NodalPrescribedVelocityValue(I, 1:NVECTOR)
        end if
    end do
    write(*,*)CalParams%PrescribedVelo%NodalPrescribedVelocityValue(1, 2)
    end subroutine Renew_Wave

windows操作系统，vs编译，只看到其中calparams的引用，但是转到定义转不过去，不知道在哪定义的

fcode

从你给出的代码片段里，我也看不出来。
VS和Intel Fortran的嵌合，并不是特别完备的。很多时候 goto define 功能并不好用，这是正常现象。

毅仔要努力

fcode 发表于 2021-9-1 10:54
从你给出的代码片段里，我也看不出来。
VS和Intel Fortran的嵌合，并不是特别完备的。很多时候 goto define ...

好吧，我试试别的编译器看能不能找到Calparams的定义，谢谢了

fcode

你可以用搜索功能，或者按照语法的指示去找。比如 看看use了哪些module，顺着 module 里面看看。