akaGM
Platinum Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
SIHAIA
слушай, a тебя в риал-лайфе не Зоя Космодемьянская зовут?
ты понимаешь, что такое заголовок?
правильно, это имя функции с кол-вом и типом передаваемых параметров...
вот, например (гы), заголовок моей (очень даже секретной функции, топ-сикрет!):
Код:
subroutine nl2min_LocMin(N,P,X,loB,hiB,IV,LIV,LV,V,UI,UR)
implicit none
*DEC$ ATTRIBUTES STDCALL, DLLEXPORT :: nl2min_LocMin
*DEC$ ATTRIBUTES ALIAS : '_nl2min_LocMin' :: nl2min_LocMin
*DEC$ ATTRIBUTES REFERENCE :: N
*DEC$ ATTRIBUTES REFERENCE :: P
*DEC$ ATTRIBUTES REFERENCE :: X
*DEC$ ATTRIBUTES REFERENCE :: loB
*DEC$ ATTRIBUTES REFERENCE :: hiB
*DEC$ ATTRIBUTES REFERENCE :: IV
*DEC$ ATTRIBUTES REFERENCE :: LIV
*DEC$ ATTRIBUTES REFERENCE :: LV
*DEC$ ATTRIBUTES REFERENCE :: V
*DEC$ ATTRIBUTES REFERENCE :: UI
*DEC$ ATTRIBUTES REFERENCE :: UR
integer*4 N, P, LIV, LV
integer*4 IV(LIV), UI(*)
real*8 X(P), loB(P), hiB(P), V(LV), UR(*)
...
! а вот её вызов:
parameter (N = 1000)
parameter (P = 1000)
parameter (LIV = 1000)
parameter (LV = 1000)
integer*4 N, P, LIV, LV
integer*4 IV(LIV), UI(1000)
real*8 X(P), loB(P), hiB(P), V(LV), UR(1000)
call nl2min_LocMin(N,P,X,loB,hiB,IV,LIV,LV,V,UI,UR)
|
трудно (жалко?) такое дать? между прочим, _в своих_ же интересах...
неужели ты думаешь, что я не смогу написать какой-то драный куб.сплайн?
или ваще взять готовый из NAG/IMSL/PORT/NumRecipes?
тем более, что у вас он глюкавый... |
Всего записей: 25203 | Зарегистр. 06-12-2002 | Отправлено: 15:58 07-12-2007 | Исправлено: akaGM, 16:13 07-12-2007 |
|
)