Thread: mixed program c/fortran

file blas.o gives

blas.o: ELF 32-bit LSB relocatable, Intel 80386, version 1 (GNU/Linux), not stripped


Can you answer to my last question concerning how to pass the function as an argument also ??

So I have tested what they recommend and here it is. I use two simple test programs called test.f and test.c

1) ifort

ifort -v test.f gives:

Version 9.0
/opt/intel/fc/9.0/bin/fortcom -D__INTEL_COMPILER=900 -D__ELF__ -D__INTEL_COMPILER_BUILD_DATE=20051201 -D__unix__ -D__unix -D__linux__ -D__linux -D__gnu_linux__ -Dunix -Dlinux -D__i386 -D__i386__ -Di386 -mGLOB_pack_sort_init_list -I. -I/opt/intel/fc/9.0/include -I/opt/intel/fc/9.0/substitute_headers -I/usr/include -O2 -mP1OPT_version=900 -mGLOB_source_language=GLOB_SOURCE_LANGUAGE_F90 -mGLOB_tune_for_fort -mGLOB_use_fort_dope_vector -mP2OPT_static_promotion -mP1OPT_print_version=FALSE -mP3OPT_use_mspp_call_convention -mCG_use_gas_got_workaround=F -mP2OPT_align_option_used=TRUE -mGLOB_options_string=-v -mGLOB_cxx_limited_range=FALSE -mGLOB_as_output_backup_file_name=/tmp/ifortZBIJSOas_ -mGLOB_machine_model=GLOB_MACHINE_MODEL_IA32_NONE -mP2OPT_subs_out_of_bound=FALSE -mIPOPT_ninl_user_level=2 -mIPOPT_activate -mIPOPT_lite -mP2OPT_hlo_level=2 -mP2OPT_hlo -mIPOPT_obj_output_file_name=/tmp/ifortSzlKyt.o "-mGLOB_linker_version=2.15.92.0.2 20040927" -mP3OPT_asm_target=P3OPT_ASM_TARGET_GAS -mGLOB_obj_output_file=/tmp/ifortSzlKyt.o -mGLOB_source_dialect=GLOB_SOURCE_DIALECT_FORTRAN -mP1OPT_source_file_name=test.f test.f
ld /usr/lib/crt1.o /usr/lib/crti.o /usr/lib/gcc/x86_64-redhat-linux/3.4.6/32/crtbegin.o -dynamic-linker /lib/ld-linux.so.2 -m elf_i386 -o a.out /opt/intel/fc/9.0/lib/for_main.o /tmp/ifortSzlKyt.o -L/opt/intel/fc/9.0/lib -L/usr/lib -Bstatic -lifport -lifcore -Bdynamic -limf -lm -Bstatic -lirc -Bdynamic -lc -Bstatic -lirc_s -Bdynamic -ldl -lc /usr/lib/gcc/x86_64-redhat-linux/3.4.6/32/crtend.o /usr/lib/crtn.o
rm /tmp/ifortjmtCd9gas

rm /tmp/ifortZBIJSOas_

rm /tmp/ifortEEwSxuld

rm /tmp/ifortucUkdaarg

rm /tmp/ifortSzlKyt.o


2) g++

g++ test.c gives

Lecture des spécification à partir de /usr/lib/gcc/x86_64-redhat-linux/3.4.6/specs
Configuré avec: ../configure --prefix=/usr --mandir=/usr/share/man --infodir=/usr/share/info --enable-shared --enable-threads=posix --disable-checking --with-system-zlib --enable-__cxa_atexit --disable-libunwind-exceptions --enable-java-awt=gtk --host=x86_64-redhat-linux
ModÚle de thread: posix
version gcc 3.4.6 20060404 (Red Hat 3.4.6-9)
/usr/libexec/gcc/x86_64-redhat-linux/3.4.6/cc1plus -quiet -v -D_GNU_SOURCE test.c -quiet -dumpbase test.c -mtune=k8 -auxbase test -version -o /tmp/ccucfvZc.s
le répertoire « /usr/lib/gcc/x86_64-redhat-linux/3.4.6/../../../../x86_64-redhat-linux/include » est ignoré car inexistant
la recherche pour #include "..." débute ici :
la recherche pour #include <...> débute ici:
/usr/lib/gcc/x86_64-redhat-linux/3.4.6/../../../../include/c++/3.4.6
/usr/lib/gcc/x86_64-redhat-linux/3.4.6/../../../../include/c++/3.4.6/x86_64-redhat-linux
/usr/lib/gcc/x86_64-redhat-linux/3.4.6/../../../../include/c++/3.4.6/backward
/usr/local/include
/usr/lib/gcc/x86_64-redhat-linux/3.4.6/include
/usr/include
Fin de la liste de recherche.
GNU C++ version 3.4.6 20060404 (Red Hat 3.4.6-9) (x86_64-redhat-linux)
compiled by GNU C version 3.4.6 20060404 (Red Hat 3.4.6-9).
heuristiques GGC: --param ggc-min-expand=100 --param ggc-min-heapsize=131072
as -V -Qy -o /tmp/ccYbsOyj.o /tmp/ccucfvZc.s
Version de l'assembleur GNU 2.15.92.0.2 (x86_64-redhat-linux) utilisant la version BFD 2.15.92.0.2 20040927
/usr/libexec/gcc/x86_64-redhat-linux/3.4.6/collect2 --eh-frame-hdr -m elf_x86_64 -dynamic-linker /lib64/ld-linux-x86-64.so.2 /usr/lib/gcc/x86_64-redhat-linux/3.4.6/../../../../lib64/crt1.o /usr/lib/gcc/x86_64-redhat-linux/3.4.6/../../../../lib64/crti.o /usr/lib/gcc/x86_64-redhat-linux/3.4.6/crtbegin.o -L/usr/lib/gcc/x86_64-redhat-linux/3.4.6 -L/usr/lib/gcc/x86_64-redhat-linux/3.4.6 -L/usr/lib/gcc/x86_64-redhat-linux/3.4.6/../../../../lib64 -L/usr/lib/gcc/x86_64-redhat-linux/3.4.6/../../.. -L/lib/../lib64 -L/usr/lib/../lib64 /tmp/ccYbsOyj.o -lstdc++ -lm -lgcc_s -lgcc -lc -lgcc_s -lgcc /usr/lib/gcc/x86_64-redhat-linux/3.4.6/crtend.o /usr/lib/gcc/x86_64-redhat-linux/3.4.6/../../../../lib64/crtn.o


I am still reading if the next seems obvious to you, please let me know.

Thanks a lot.
Mike

Thanks, but the problem is that when I do

g++ minim.o tn.o sfun.o blas.o -L/opt/intel/fc/9.0/lib -Bstatic -lifport -lifc

I get

/usr/bin/ld: escamotage incompatible /opt/intel/fc/9.0/lib/libifport.so.5 lors de la recherche de libifport.so.5
/usr/bin/ld: ne peut trouver libifport.so.5
collect2: ld a retourné 1 code d'état d'exécution

And when I do

g++ minim.o tn.o sfun.o blas.o -m32 -L/opt/intel/fc/9.0/lib -Bstatic -lifport -lifc

I get

minim.o(.text+0x169): In function `main':
: undefined reference to `SFUN_'
minim.o(.text+0x1a7): In function `main':
: undefined reference to `LMQN_'
collect2: ld a retourné 1 code d'état d'exécution



By the way If you or anyone else wants to have a go and try to call this library from a c++ program here is the link for the Netlib truncated newton optimization method:

http://iris.gmu.edu/~snash/nash/software/tn.f

Thanks a lot.

Mike

Hi everyone.

Salem I followed your advice and tested my problem on very simple programs.

First the c code test2.c that calls a fortran function

Code:

#include <stdio.h>
#include <stdlib.h>
#include <math.h>

void SFUN(int *N, double *X, double *F, double *G)
{
int i;
double T;
*F=0.0;
for (i = 0 ; i < *N ; i++)
    {
    T = 2*X[i] - i;
    *F = *F +T*T;
    G[i] = 2.0 * T;
    }
}

int main(void)
{
int N=200;
double F=-1000.0;
double G[300],X[300];

extern void pseudoLMQN_(int *N, double X[], double *F, double G[], void (*SFUN)(int *N, double X[], double *F, dou
ble G[]));


printf("F before test is %lf\n",&F);

pseudoLMQN_(&N, X, &F, G, SFUN);

printf("F after test is %lf\n",&F);

}

And the fortran function pseudoLMQN.f

Code:

      SUBROUTINE LMQN (N, X, F, G, SFUN)
      IMPLICIT          NONE
      INTEGER N
      DOUBLE PRECISION  X(N), G(N), F, FNEW
      EXTERNAL SFUN

      CALL SFUN(N,X,FNEW,G)
      F=FNEW+1.0

      RETURN
      END

I included the function that I pass as an argument to the fortran function in the c code. For the rest the problem is similar to the previous threads.


I compile like that :

gcc -c test2.c
ifort -c pseudoLMQN.f
gcc test2.c pseudoLMQN.o

and I get the following errors :

/usr/bin/ld: AVERTISSEMENT: architecture i386 du fichier d'entrée « pseudoLMQN.o » est incompatible avec la sortie i386:x86-64
test2.o(.text+0x100): In function `main':
: undefined reference to `pseudoLMQN_'
collect2: ld a retourné 1 code d'état d'exécution

Concerning the errors in french, it is all greek to me so I cannot really translate it. Sorry about that.

But I think there is still a problem with the way I link the two programs.


Any ideas ??

Thanks a lot.

In pseudoLMQN read

Code:

      SUBROUTINE pseudoLMQN(N, X, F, G, SFUN)
      IMPLICIT          NONE
      INTEGER N
      DOUBLE PRECISION  X(N), G(N), F, FNEW
      EXTERNAL SFUN

      CALL SFUN(N,X,FNEW,G)
      F=FNEW+1.0

      RETURN
      END

Hi again, I added what you suggested

Now I type

gcc -c -m32 test2.c
ifort -c pseudoLMQN.f
gcc -m32 test2.c pseudoLMQN.o

and I get

test2.o(.text+0xd6): In function `main':
: undefined reference to `pseudoLMQN_'
collect2: ld a retourné 1 code d'état d'exécution


A bit better, but still ????

test2.c doesn't seem to be able to use the fortran function pseudoLMQN_ defined in pseudoLMQN.f. Any ideas anyone?

Thanks

somefile.txt contains :

0000000000000000 T pseudolmqn_

??