0

これは私のメイクファイルです:

    PROGRAM = mf2005-GPU.f

    # Define the Fortran compile flags
    F90FLAGS= -g -fopenmp
    F90= gfortran

    # Define the C compile flags
    # -D_UF defines UNIX naming conventions for mixed language compilation.
    CFLAGS= -D_UF -O3
    CC= gcc

    CPPFLAGS= -Dcpp_variable
    CXX= g++

    # Define GMG objects
    #
    GMG = r_vector.o\
      solvers.o\
      ccfd.o\
      mf2kgmg.o\

    # Define the libraries

    SYSLIBS= -lc
    USRLIB  = 
    CUDA_LIB64=/cm/shared/apps/cuda40/toolkit/4.0.17/lib64/
    LFLAGS = -L$(CUDA_LIB64) -lcuda -lcudart -lcusparse -lcublas -lpthread -lm -lcufft -lcurand -lnpp -lgomp 

    # Define all object files which make up MODFLOW

    OBJECTS = \
    dblas.o\
    gwf2bas7.o \
    de47.o \
    dlapak.o\
    pcg7.o \
    sip7.o \
    gmg7.o \
    mhc7.o \
    gwf2bcf7.o \
    gwf2lpf7.o \
    gwf2huf7.o \
    gwf2rch7.o \
    gwfuzfmodule.o \
    gwfsfrmodule.o \
    gwf2lak7.o \
    gwf2sfr7.o \
    gwf2uzf1.o \
    gwf2gag7.o \
    gwf2chd7.o \
    gwf2drn7.o \
    gwf2drt7.o \
    gwf2ets7.o \
    gwf2evt7.o \
    gwf2fhb7.o \
    gwf2ghb7.o \
    gwf2hfb7.o \
    gwf2ibs7.o \
    gwf2res7.o \
    gwf2riv7.o \
    gwf2str7.o \
    gwf2sub7.o \
    gwf2swt7.o \
    gwf2wel7.o \
    hufutl7.o \
    obs2bas7.o \
    obs2drn7.o \
    obs2ghb7.o \
    obs2riv7.o \
    obs2chd7.o \
    obs2str7.o \
    parutl7.o \
    gwf2mnw17.o \
    gwf2mnw27.o \
    gwf2mnw2i7.o \
    utl7.o \
    lmt7.o \
    gwf2hydmod7.o \
    upcg7.o \
    upcgc.o \
    upcg7lanczos.o \
    upcg7polya.o \
    upcg7polyu.o \
    mf2005-GPU.o \

    # Define Task Function

    all: mf2005-GPU

    # Define what mf2005

    mf2005-GPU: $(OBJECTS) $(GMG) 
-$(F90) $(F90FLAGS) -o mf2005-GPU $(OBJECTS) cuda_kernels.o $(GMG)  $(USRLIB)  $(SYSLIBS)    $(LFLAGS)

    # Object codes

    .f.o:
    $(F90) $(F90FLAGS) -c $<

    .c.o:
    $(CC) $(CFLAGS) -c $<


    .cpp.o:
    $(CXX) $(CPPFLAGS) -c $<

    #  end

これは私が cuda_kernels.cu nvcc -c -arch sm_20 -lcuda -lcudart -lcusparse cuda_kernels.cuをコンパイルする方法です

これは私がエラーのために得るものです

    upcg7.o: In function `upcg7ar':
    /home/zhangmj/MF2005_MAKE/upcg7.f:731: undefined reference to `upcgc7_init_'
    upcg7.o: In function `upcg7ap':
    /home/zhangmj/MF2005_MAKE/upcg7.f:1272: undefined reference to `upcgc7_'
    upcg7.o: In function `upcg7da':
    /home/zhangmj/MF2005_MAKE/upcg7.f:1416: undefined reference to `upcgc7_final_'
    upcgc.o: In function `UPCGC7':
    upcgc.cpp:(.text+0xf6a): undefined reference to `SUPCGILU0A'
    collect2: ld returned 1 exit status
    make: [mf2005-GPU] Error 1 (ignored)

以下はupcg7.fです（これは私のコードではありません。ここからダウンロードします） https://github.com/jdhughes-usgs/modflow-2005-upcg/blob/master/code/src/UPCG/upcg7.f

以下はupcgc.cppとupcgc.hです（これは私のコードではありません。ここからダウンロードします） https://github.com/jdhughes-usgs/modflow-2005-upcg/blob/master/code/src/UPCG/ upcgc.cpp

**質問です** SUPCGILU0A は upcg7.f で定義されているサブルーチンです。そしてサブルーチン SUPCGILU0A が C++ プログラム upcgc.cpp から呼び出されます。upcgc7_init、upcgc7、upcgc7_final は upcgc.cpp で定義されており、これら 3 つが fortran プログラム upcg7.f から呼び出されます。

私の調査から、これらはリンカの問題である可能性が高いこと、または C++ と Fortran が関数/ルーチンを別の関数/ルーチンから変換する必要があることを理解していますが、問題が何であるかを理解できません。問題が何であるかについて何らかの洞察を持っている可能性のある人はいますか?

4

1 に答える 1

0

upcgc7 ルーチンが C コードに存在する場合、おそらく末尾にアンダースコアがありません。これに対処する最善の方法は、Fortran で ISO_C_BINDING インターフェイスを利用し、これらのルーチンへのインターフェイスを宣言することです。

于 2013-07-31T21:18:05.830 に答える