test.f90

来自「电脑编程技巧和源码。很不错的。」· F90 代码 · 共 63 行

! Fortran DLL 源码
!  Test.f90 
!
!  FUNCTIONS/SUBROUTINES exported from TEST.dll:
!	TEST      - subroutine 
!
! 1到N累加，用S返回累加值
subroutine SUM(N,S)

  ! Expose subroutine SUM to users of this DLL
  !
  !MS$ ATTRIBUTES DLLEXPORT::SUM	! DLL输出SUM函数
  !MS$ ATTRIBUTES VALUE :: N		! 值传递
  !MS$ ATTRIBUTES REFERENCE :: S	! 值引用

  ! Variables
  INTEGER N
  REAL S

  ! Body of SUM
  S=0
  DO 10 I=1,N
    S=S+I
10 CONTINUE

end subroutine SUM

! 求绝对值, 函数类型为实型（REAL）
REAL FUNCTION MYABS(X)

  ! Expose function MYABS to users of this DLL
  !
  !MS$ ATTRIBUTES DLLEXPORT::MYABS	! DLL输出MYABS函数
   !MS$ ATTRIBUTES VALUE :: X		! 值传递

  ! Variables
  REAL X
  ! Body of MYABS
  IF(X.LT.0)THEN
	MYABS = -1*X
	RETURN
  ELSE
	MYABS = X
  END IF

END

! 两个数相加, 函数类型为实型（REAL）
REAL FUNCTION ADD(X, Y)

  ! Expose function ADD to users of this DLL
  !
  !MS$ ATTRIBUTES DLLEXPORT::ADD	! DLL输出ADD函数
  !MS$ ATTRIBUTES VALUE :: X		! 值传递
  !MS$ ATTRIBUTES VALUE :: Y		! 值传递

  ! Variables
  REAL X, Y
  ! Body of ADD
  ADD = X + Y

END