According to the suggestions you gave, I post all the code here. Since the ISML function QDAGA require the function F1, F2, F3 to be the eternal, I can not declare it as a array. I modify the variable type with I, N, II, NN according to gummibaer's suggestion.
Thanks.
C
PROGRAM...
Hi Salgerman,
I modify the code as following, but it still doesn't work.
****************************
..............
DO 55 I=1, N_ZONE
A(I) = 0.078D0 + 0.02D0 * (I-1)
B(I) = 0.078D0 + 0.02D0 * (I)
55 ENDDO
DO 60 N = 1, N_TEXP
INTEGR1(N)=0.0D0...
Hi,
I use the ISML function DQDAGS to calculate integral. The function F1, F2 need to return arrays. I don't know how to deal with it. The following is part of the code.
thanks for every help.
lur
****************************
..............
DO 55 I=1, N_ZONE
A(I) = 0.078D0 +...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.