Fortran Coder

查看: 9156|回复: 3

[求助] 编译报错

[复制链接]

6

帖子

2

主题

0

精华

入门

F 币
37 元
贡献
17 点
发表于 2021-8-31 10:13:25 | 显示全部楼层 |阅读模式
[Fortran] 纯文本查看 复制代码
 subroutine ReadPrescribedVelocityNode(FileUnit)
        !**********************************************************************
        !
        ! Function:  To read data for prescribed velocity in nodes
        !
        !**********************************************************************

        !implicit none
        !
        !  integer(INTEGER_TYPE), intent(in) :: FileUnit
        !
        !  ! local variables
        !  integer(INTEGER_TYPE) :: I
        !  integer(INTEGER_TYPE), dimension(NVECTOR+1) :: DumI
        !  real(REAL_TYPE), dimension(NVECTOR) :: DumR
        !  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
        !  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
        !  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
        !  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
        !  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
        !  !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
        !  integer::wave_num=1400!地震波定义
        !  integer::i
        !  real,dimension(wave_num)::wave_t,wave_v
        !  
        !  
        !  call DestroyPrescribedNodalVeloData()   
        !  
        !  read(FileUnit,*) DumI(1) 
        !  CalParams%PrescribedVelo%NNodePrescribedVelo = DumI(1)
        !        
        !  call InitialisePrescribedNodalVeloData(CalParams%PrescribedVelo%NNodePrescribedVelo)  
        !        
        !  do I = 1, CalParams%PrescribedVelo%NNodePrescribedVelo
        !    read(FileUnit,*) DumI(1), DumI(2:NVECTOR+1), DumR(1:NVECTOR)
        !    CalParams%PrescribedVelo%NodePrescribedVelo(I) = DumI(1)
        !    CalParams%PrescribedVelo%NodalPrescribedVelocityDirection(I, 1:NVECTOR) = DumI(2:NVECTOR+1)
        !    
        !    if (DumR(1:NVECTOR)==999) then!地震波触发条件,输入999
        !        open(10,file='v-t.txt',status='old')
        !        do i=1,wave_num
        !            read(10,*)wave_t(i),wave_v(i)
        !            if (i==IDTimerLoadStep) then! 时间步
        !            CalParams%PrescribedVelo%NodalPrescribedVelocityValue(I, 1:NVECTOR)= =q(i)
        !            end if
        !        end do
        !        close (10)
        ! 
        !        else
        !    CalParams%PrescribedVelo%NodalPrescribedVelocityValue(I, 1:NVECTOR) = DumR(1:NVECTOR)
        !        end if
        !        
        !        
        !  end do  
         implicit none
        
          integer(INTEGER_TYPE), intent(in) :: FileUnit
        
          ! local variables
          integer(INTEGER_TYPE) :: I
          integer(INTEGER_TYPE), dimension(NVECTOR+1) :: DumI
          real(REAL_TYPE), dimension(NVECTOR) :: DumR
                
          call DestroyPrescribedNodalVeloData()   
          
          read(FileUnit,*) DumI(1) 
          CalParams%PrescribedVelo%NNodePrescribedVelo = DumI(1)
                
          call InitialisePrescribedNodalVeloData(CalParams%PrescribedVelo%NNodePrescribedVelo)  
                
          do I = 1, CalParams%PrescribedVelo%NNodePrescribedVelo
            read(FileUnit,*) DumI(1), DumI(2:NVECTOR+1), DumR(1:NVECTOR)
            CalParams%PrescribedVelo%NodePrescribedVelo(I) = DumI(1)
            CalParams%PrescribedVelo%NodalPrescribedVelocityDirection(I, 1:NVECTOR) = DumI(2:NVECTOR+1)
            CalParams%PrescribedVelo%NodalPrescribedVelocityValue(I, 1:NVECTOR) = DumR(1:NVECTOR)
          end do  
          
        end subroutine ReadPrescribedVelocityNode  


注释行是我更改后的,但是报错的位置却显示的不是这个子程序错误C:\Users\admin\Desktop\错误信息.jpg

6

帖子

2

主题

0

精华

入门

F 币
37 元
贡献
17 点
 楼主| 发表于 2021-8-31 10:15:48 | 显示全部楼层
错误信息
错误信息.jpg
回复

使用道具 举报

1948

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1298 元
贡献
547 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

发表于 2021-8-31 13:56:12 | 显示全部楼层
请查看“输出”窗口(而不是错误列表窗口)
从第一个开始修改,后面的一律一律一律不管。

6

帖子

2

主题

0

精华

入门

F 币
37 元
贡献
17 点
 楼主| 发表于 2021-9-1 10:24:14 | 显示全部楼层
fcode 发表于 2021-8-31 13:56
请查看“输出”窗口(而不是错误列表窗口)
从第一个开始修改,后面的一律一律一律不管。 ...

谢谢,已解决
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

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

GMT+8, 2024-3-29 08:02

Powered by Tencent X3.4

© 2013-2024 Tencent

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