| Re: caling f90 [message #55711 is a reply to message #55710] |
Tue, 04 September 2007 10:29  |
Haje Korth
Messages: 651
Registered: May 1997
|
Senior Member |
|
|
Hi,
The missing functions are contained in the Intel Fortran libraries. I
usually link the static these libraries to avoid these issues.
Haje
<woopik@interia.pl> wrote in message
news:1188919137.972574.312690@g4g2000hsf.googlegroups.com...
> hi
>
> i try run fortran 90 function via call_external an C wrapper
> but i have errors ONLY when i try tu use standard functions like open
> or write(*,*)
> S = CALL_EXTERNAL('biblio.so','dlhipo', ra,ile)
>
> when i use open
> [*****@****] [test] >/usr/local/rsi/idl/bin/bin.linux.x86_64/idlde:
> symbol lookup error: ./biblio.so:
> undefined symbol: for_open
>
> when i use write
> [*****@****] [test] >/usr/local/rsi/idl/bin/bin.linux.x86_64/idlde:
> symbo
> l lookup error: ./biblio.so: undefined symbol: for_write_seq_lis
>
> when i make call_external to a function without open or write
> all works !!!
> when i make SPAWN a program with open / write
> all works good !
>
> there are examples
> my function DLH.f90
> SUBROUTINE DLH(Ra,counter)
> ! lf is defined in module types as integer, parameter ::
> lf=kind(1.d0)
> use types
> implicit none
> real(lf), intent(in) :: Ra
> integer, intent(out) :: counter
> write(*,*)
> write(*,*) "-> Utilisation de l'application dlhip."
> counter=2
> END SUBROUTINE DLH
>
> my wrapper xtemp.c
> #include <stdio.h>
> void dlhipo(int argc, void *argv[])
> {
> extern void dlh_(); /* FORTRAN routine */
> int *n;
> float *f;
> f = (float *) argv[0]; /*Ra*/
> n = (int *) argv[1]; /*counter*/
> dlh_(f, n);
> }
>
> my compile options
> gcc -c -fPIC -shared xtemp.c for C wrapper
> ifort -check bounds -c -mp1 -O3 -fPIC DLH.f90
> ld -shared xtemp.o DLH.o -o biblio.so
>
> my program when i use SPAWN
> spawn,['../test/a.out'],/NOSHELL
>
> program example
> use types
> implicit none
> real(lf):: Ra
> integer :: counter
> write(*,*)
> write(*,*) "-> Utilisation de l'application dlh."
> open(22,file='./local.txt')
> close(22)
> Ra=2
> counter=2
> end
>
>
> someone know why i have theses errors ?
> thx
>
|
|
|
|
comp.lang.idl-pvwave archive
Members
Search
Help
Login
Home
