Error(1147): This module has already been defined

Error(1147): This module has already been defined

我编写的代码使用了另一个代码中的模块（不是我写的）。当我将这个模块与主程序一起使用时，它运行良好并且没有显示错误。当我将此模块与它显示的子例程一起使用时：

This module has already been defined

尝试正确总结代码。 这是可重现的代码：

subroutine polygoneclipping(n,vtable0,vcoord0,BOUNDARYPOINTS0,NEWvcoord0,Unumber)

use SutherlandHodgmanUtil
 only : polygon,sutherlandHodgman,edgeClipping

type(polygon) :: p1, p2, res
integer :: c, n 
double precision, dimension(2) :: y1, y2
integer(kind =3) :: i, Unumber
integer(kind =3), dimension(40,1) :: vtable0
real(kind =3), dimension(40,2) :: VCOORD0
real(kind =3), dimension(4,2) :: BOUNDARYPOINTS0
real(kind =3), dimension(40,2) :: NEWvcoord0

!MAIN SUB PART

end subroutine

module SutherlandHodgmanUtil

type polygon
!type for polygons
! when you define a polygon, the first and the last vertices have to be the same
integer :: n
double precision, dimension(:,:), allocatable :: vertex
end type polygon

contains 

subroutine sutherlandHodgman( ref, clip, outputPolygon )

type(polygon) :: ref, clip, outputPolygon

type(polygon) :: workPolygon               ! polygon clipped step by step 
double precision, dimension(2) :: y1,y2    ! vertices of edge to clip workPolygon
integer :: i  

!MAIN SUB PART

end subroutine sutherlandHodgman

subroutine edgeClipping( poly, y1, y2, outputPoly )

type(polygon) :: poly, outputPoly
double precision, dimension(2) :: y1, y2, x1, x2, intersecPoint
integer ::  i, c

!MAIN SUB PART

end subroutine edgeClipping

function intersection( x1, x2, y1, y2)
double precision, dimension(2) :: x1, x2, &  ! points of the segment
                        y1, y2     ! points of the line

double precision, dimension(2) :: intersection, vx, vy, x1y1 
double precision :: a

!MAIN FUNC PART

end function intersection

function inside( p, y1, y2)
double precision, dimension(2) :: p, y1, y2, v1, v2
logical :: inside

!MAIN FUNC PART

end function inside

end module SutherlandHodgmanUtil

这是什么错误，为什么会出现？

我很乐意提供任何帮助，请原谅我的长代码。

如果我运行你的代码我收到以下错误信息

a.f90:3:7:

    3 |   use SutherlandHodgmanUtil
      |       1
Fatal Error: Cannot open module file ‘sutherlandhodgmanutil.mod’ for reading at (1): No such file or directory

对此的解释：在 Fortran 中没有自动 forward declarations。 这意味着尝试包含 sutherlandhodgmanutil 的子例程失败，因为尚未定义模块。

解决方案：

  1. 定义模块后的子程序。
  2. 首选方式：为模块创建单独的文件，先编译模块。

您的错误信息

This module has already been defined

可能是因为您已经预先编译了模块 SutherlandHodgmanUtil？ 来自不同的文件或不同的测试 运行？ 但这只是一个疯狂的猜测..

顺便说一句，我不得不更改您的代码，因为 integer(kind=3) 在我的机器上不可用。 一般来说，最好使用与机器无关的种类定义，例如查看 use iso_fortran_env, only: int32, real32.