comp.lang.idl-pvwave archive: archive » CALL

Home » Public Forums » archive » CALL_EXTERNAL failure.

Show: Today's Messages :: Show Polls :: Message Navigator
E-mail to friend

CALL_EXTERNAL failure. [message #16351]

Tue, 20 July 1999 00:00

Octavi Fors
Messages: 13
Registered: March 1999

Junior Member

<!doctype html public "-//w3c//dtd html 4.0 transitional//en">
<html>
Hi everybody,
I'm trying to execute a FORTRAN subroutine (example1.for) with CALL_EXTERNAL
 using a C wrapper function (example.c), but I'm having problems. I
guess they're related to
 compiler option but I'm not sure.
Here you have both C wrapper and FORTRAN subroutine code (they are simplistic
just
 for test purpose):
example.c (C wrapper function) ---------------------------------------------------
#include <stdio.h>
int example(argc, argv)
 int argc;
 void *argv[];
 {
 void example1_();
int j;
 double *x1,*y1,*x2,*y2;
 double *rlimit1,*rlimit2,*var1,*var2;
 int *n1,*n2,*nmatch;
 int *match1,*match2;
n1=(int *) argv[0];
 x1=(double *) argv[1];
 y1=(double *) argv[2];
 var1=(double *) argv[3];
 rlimit1=(double *) argv[4];
 n2=(int *) argv[5];
 x2=(double *) argv[6];
 y2=(double *) argv[7];
 var2=(double *) argv[8];
 rlimit2=(double *) argv[9];
example1_(n1,x1,y1,var1,rlimit1,n2,x2,y2,var2,rlimit2); 
return(0);
 }
 ------------------------------------------------------------ -------- 
example1.for  (FORTRAN subroutine) ---------------------------------------
SUBROUTINE  example1(N1,X1,Y1,VARXY1,RLIMIT1,N2,X2,Y2,VARXY2,RLIMIT2)
          INTEGER*4 N1,N2
          REAL*8 VARXY1,
VARXY2, RLIMIT1, RLIMIT2
          REAL*8 X1(N1),Y1(N1)
          REAL*8 X2(N2),Y2(N2)
          DO I=1,N1
           
PRINT*, X1(I)
          ENDDO
          RETURN
 ------------------------------------------------------------ --------
This is the compilation procedure, which I suspect is wrong:
$ pwd
 /home/octavi/idl
 $ uname -a
 SunOS mizar 5.5.1 Generic_103640-05 sun4u sparc SUNW,Ultra-Enterprise
$ gcc -fPIC -c  example.c
 $ f77 -c -pic example1.for
 $ /usr/ucb/ld -o example.so -z text -G example.o example1.o
Inside IDL I'm proceeding in the following way:
a) first define input data
 IDL> n1=2L & n2=2L
 IDL> x1=[2.34d, 4.56d] & y1=[2.5d,1.2d] & x2=[5.44d,
4.86d] & y2=[43.34d, 41.56d]
 IDL> var1=23.4d & var2=34.5d
 IDL> rlimit1= 10.0d & rlimit2=10.0d
b) call subroutine
 IDL> value = CALL_EXTERNAL('/u/imatge/ofors/idl/groth/example.so','exampl e',
$
                                                                   
n1, x1, y1, var1, rlimit1,n2, x2, y2, var2, rlimit2)
the result of last line is that IDL hangs up (idlde desappears) and
the following message
 appears in the shell:
ld.so.1: /usr/local/rsi/idl_5/bin/bin.solaris2.sparc/idlde:
 fatal: relocation error: symbol not found: __s_wsle_nv:
referenced in /home/octavi/idl/example.so
Well, any ideas are welcome.
Thanks in advance,
Octavi.</html>

Report message to a moderator

Previous Topic:	Re: CALL_EXTERNAL failure.
Next Topic:	Conversion IDL and PV-WAVE

-=] Back to Top [=-

[ Syndicate this forum (XML) ] [

] [

]

Current Time: Sat Oct 11 08:40:07 PDT 2025

Total time taken to generate the page: 2.31803 seconds