linker - Linking legacy Fortran95 library to C++ with ifort/icpc -

-

background: in situation have make use of old fortran95 library in new c++ project. f95 library extensive, has tons of small modules, poorly documented, , auto-generated decade ago obscure computer algebra system (by people on different continent). heirloom code, works , irreplaceable.

luckily have source code , can compiled current versions of ifort, not familiar fortran, , rather not touch old code in significant way.

so suppose have fortran code (pes_shell.f90):

subroutine pes_init()   use pes,wp=>pes_wp   implicit none   real,parameter::auang=0.5291772083   call pes0_init (dir='coef')   call pes1_init (pes_x3y1z1u1_sysall) return end subroutine pes_init

the functions pes0_init(...) , pes1_init(...) lead abyssal depths of fortran library , contained in pes module.

i can compile object file, if give ifort path modules:

ifort -r8 -o2 -c pes_shell.f90 -i/home/debianuser/pes/pes_library/lib/mod

my poc c++ code, calling pes_init():

extern "c"{ void pes_init_(); }  int main(){     pes_init_();     return 0; }

this can compiled object file, icpc:

icpc -c pestest.cpp

however cannot figure out how link 2 object files, plus truckload of fortran modules, final executable. have tried using icpc, cannot seem able find fortran functions, if give location of module files:

    icpc -i/home/debianuser/pes/pes_library/lib/mod -o test.x pes_shell.o pestest.o     pes_shell.o: in function `pes_shell_mp_f_':     pes_shell.f90:(.text+0x595): undefined reference `pes_x3y1z1u1_mp_pes_x3y1z1u1_pot_'     pes_shell.o: in function `pes_shell_mp_pes_init_':     pes_shell.f90:(.text+0x5f0): undefined reference `pes0_mp_pes0_init_'     pes_shell.f90:(.text+0x603): undefined reference `pes1c_mp_pes1_init_'     pestest.o: in function `main':     pestest.cpp:(.text+0x2b): undefined reference `pes_init_'

edit: pointing linker directory libpes.a can found eliminates problem of locating function referenced in c++ code, icpc still cannot find fortran functions being called fortran codes:

  icpc -i/home/debianuser/pes/pes_library/lib/mod -l/home/debianuser/pes/pes_library/lib/pes-xyz -lpes -o test.x pestest.o pes_shell_new.o     pes_shell_new.o: in function `f_':     pes_shell_new.f90:(.text+0x585): undefined reference `pes_x3y1z1u1_mp_pes_x3y1z1u1_pot_'     pes_shell_new.o: in function `pes_init_':     pes_shell_new.f90:(.text+0x5e0): undefined reference `pes0_mp_pes0_init_'     pes_shell_new.f90:(.text+0x5f3): undefined reference `pes1c_mp_pes1_init_'


Comments

Post a Comment

Popular posts from this blog

Spring Boot + JPA + Hibernate: Unable to locate persister -

-
i trying work entity inside request method of spring boot application. entity in project , pom.xml has dependencies it. why error message?: org.hibernate.unknownentitytypeexception: unable locate persister: com.ric.bill.model.bs.par package com.ric.web; import java.util.concurrent.atomic.atomiclong; import javax.persistence.entitymanager; import javax.persistence.persistencecontext; import net.sf.ehcache.cachemanager; import net.sf.ehcache.management.cache; import net.sf.ehcache.management.cachestatistics; import org.hibernate.stat.statistics; import org.springframework.beans.factory.annotation.autowired; import org.springframework.boot.autoconfigure.domain.entityscan; import org.springframework.cache.annotation.enablecaching; import org.springframework.transaction.annotation.enabletransactionmanagement; import org.springframework.transaction.annotation.propagation; import org.springframework.transaction.annotation.transactional; import org.springframework.web.bind.annotati
Read more

go - Golang: panic: runtime error: invalid memory address or nil pointer dereference using bufio.Scanner -

-
i implementing go program uses bufio.scanner , bufio.writer have packaged code follows package main import ( "fmt" "player/command" "strings" ) func main() { //enter code here. read input stdin. print output stdout commands.scanner.scan() { //scan new line , send comand variable check command exist or not input := strings.split(strings.trim(commands.scanner.text(), " "), " ") command := input[0] if command == "" { fmt.printf("$ %s:", commands.pwd) continue } if !commands.commands[command] { commands.throwerror("cannot recognize input.") } else { commands.execute(command, input[1:], nil) } fmt.printf("$ %s:", commands.pwd) } } i using init.go file in main package follows package main import ( "flag" "player/sourc
Read more

c - double free or corruption (fasttop) -

-
this code reads null terminated string file (file containing null terminated strings & should provide index wanted string). error: *** error in `./main': double free or corruption (fasttop): 0x090a4a80 *** aborted code: char *tmp_realloc=null; char *sstring=null; int i=1; /*set file pointer point string*/ fseek(fh,index,seek_set); sstring=(char*)malloc(sizeof(char)); if(sstring == null) return null; tmp_realloc=sstring; while( (*(sstring+i-1)=(char)fgetc((file*)fh)) != 0x0 ) { /*reallocate more memory*/ tmp_realloc=(char*)realloc((char*)sstring,++i); /*if not same address copy old new & set old point new*/ if(tmp_realloc != sstring){ strcpy((char*)tmp_realloc,(char*)sstring); free(sstring); sstring=tmp_realloc; } } could tell me pointer causing issue (& reason) ? remove part /*if not same address copy old new & set old point new*/ if(tmp_realloc != sstring){ strc
Read more