Help for calculating double integral


ntcmlee
07-14-2004, 08:02 PM
Dear all,

I use fortran to calculate double integral by using function DT2ODQ ,

CALL DT2ODQ (F, A, B, G, H, ERRABS, ERRREL, IRULE,
+ S, ERREST, MAXSUB, NEVAL, NSUBIN,
+ ALIST, BLIST, RLIST, ELIST, IORD, WK,
+ IWK)

ERRABS = 0.00001
ERRREL = 0.00001
MAXSUB =500
IRULE=6

However, there are errors attached below, please give me possible solution, thanks

Regards,
Simon

===========================================
Compiling Fortran...
D:\ring\program\RINGimpBfieldoff1.for
D:\ring\program\RINGimpBfieldoff1.for(97): error FOR2760: scalar supplied for array argument ALIST (number 14) of procedure DT2ODQ
D:\ring\program\RINGimpBfieldoff1.for(97): error FOR2760: scalar supplied for array argument BLIST (number 15) of procedure DT2ODQ
D:\ring\program\RINGimpBfieldoff1.for(97): error FOR2760: scalar supplied for array argument RLIST (number 16) of procedure DT2ODQ
D:\ring\program\RINGimpBfieldoff1.for(97): error FOR2760: scalar supplied for array argument ELIST (number 17) of procedure DT2ODQ
D:\ring\program\RINGimpBfieldoff1.for(97): warning FOR4793: incorrect data type for argument IORD (no. 18) of DT2ODQ
D:\ring\program\RINGimpBfieldoff1.for(97): error FOR2760: scalar supplied for array argument IORD (number 18) of procedure DT2ODQ
D:\ring\program\RINGimpBfieldoff1.for(97): error FOR2760: scalar supplied for array argument WK (number 19) of procedure DT2ODQ
D:\ring\program\RINGimpBfieldoff1.for(97): warning FOR4793: incorrect data type for argument IWK (no. 20) of DT2ODQ
D:\ring\program\RINGimpBfieldoff1.for(97): error FOR2760: scalar supplied for array argument IWK (number 20) of procedure DT2ODQ
Error executing fl32.exe.
RINGimpBfieldoff1.exe - 7 error(s), 2 warning(s)


__________________