exam.f90

来自「一个简单的VC++调用FORTRAN的实例,可以作为初学者的入门实例」· F90 代码 · 共 46 行

SUBROUTINE ARRAYTEST(n,arr)

$ATTRIBUTES DLLEXPORT :: ARRAYTEST

INTEGER n,i,j

REAL(4) arr(3,3)

DO i=1,3

DO j=1,3

 arr(i,j)=(n+2)*i+j
!CALL CALARR(I,J,ARR(I,J))

END DO

END DO

n=n+10

END SUBROUTINE



SUBROUTINE CALARR(i,j,array)
$ATTRIBUTES DLLEXPORT :: CALARR
INTEGER I,J
REAL(4) ARRAY
ARRAY=20.1*I+J
END SUBROUTINE


SUBROUTINE CIRCLE(R,AREA)
$ATTRIBUTES DLLEXPORT :: CIRCLE
REAL R
REAL(4) AREA
AREA=3.1415926*R*R
END SUBROUTINE