akaGM
Platinum Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
bubanoid
в main
Код: interface
subroutine problematic(f, x1, x2, z)
implicit none
!DEC$ attributes reference :: x1
!DEC$ attributes reference :: x2
!DEC$ attributes reference :: z
real*8 x1, x2, z
external F
interface
real*8 function F(X)
!DEC$ attributes stdcall :: F
!DEC$ attributes reference :: x
end function UF
end interface
end subroutine
end interface |
в проблематик:
Код: interface
subroutine D_QDAGS(f, x1, x2, z)
implicit none
!DEC$ attributes reference :: x1
!DEC$ attributes reference :: x2
!DEC$ attributes reference :: z
real*8 x1, x2, z
external F
interface
real*8 function F(X)
!DEC$ attributes stdcall :: F
!DEC$ attributes reference :: x
end function UF
end interface
end subroutine
end interface |
|
