Fortran Coder

标题: 子程序结构名称无效或丢失 [打印本页]

作者: 毅仔要努力    时间: 2021-9-1 09:55
标题: 子程序结构名称无效或丢失
编译报错: error #6158: The structure-name is invalid or is missing.
但是鼠标移动到结构名称上面右键查询结构定义,结果没有跳转,不知道结构在哪定义的,也不知道调用什么子程序保证结构正常使用

作者: fcode    时间: 2021-9-1 10:09
1. 您使用什么操作系统,什么编译器?什么编译环境?
2. 给出必要代码
作者: 毅仔要努力    时间: 2021-9-1 10:26
[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    时间: 2021-9-1 10:54
从你给出的代码片段里,我也看不出来。
VS和Intel Fortran的嵌合,并不是特别完备的。很多时候 goto define 功能并不好用,这是正常现象。
作者: 毅仔要努力    时间: 2021-9-1 10:57
fcode 发表于 2021-9-1 10:54
从你给出的代码片段里,我也看不出来。
VS和Intel Fortran的嵌合,并不是特别完备的。很多时候 goto define ...

好吧,我试试别的编译器看能不能找到Calparams的定义,谢谢了
作者: fcode    时间: 2021-9-1 11:44
你可以用搜索功能,或者按照语法的指示去找。比如 看看use了哪些module,顺着 module 里面看看。




欢迎光临 Fortran Coder (http://bbs.fcode.cn/) Powered by Discuz! X3.2