Trouble linking with LAPACK-3.1.1

[jezule]

Hi,
I've successfully built LAPACK-3.1.1 for windows (http://icl.cs.utk.edu/lapack-for-windows/index.html) using Intel Fortran Compiler 10.1.021 && MVS 2005 Team Suite. Now I'm trying to link a C program which uses these libs with no luck. I could solve ifconsol.lib error googling around but later I got much more errors and I'm stuck...
I'll show you the output:
lapack.lib(dorml2.obj) : error LNK2001: smbolo externo _lsame_ sin resolver
lapack.lib(dlasrt.obj) : error LNK2001: smbolo externo _lsame_ sin resolver
lapack.lib(dtrti2.obj) : error LNK2001: smbolo externo _lsame_ sin resolver
lapack.lib(dlauu2.obj) : error LNK2001: smbolo externo _lsame_ sin resolver
lapack.lib(dbdsqr.obj) : error LNK2001: smbolo externo _lsame_ sin resolver
lapack.lib(dorm2r.obj) : error LNK2001: smbolo externo _lsame_ sin resolver
lapack.lib(dlanst.obj) : error LNK2001: smbolo externo _lsame_ sin resolver
lapack.lib(dlasr.obj) : error LNK2001: smbolo externo _lsame_ sin resolver
lapack.lib(dormqr.obj) : error LNK2001: smbolo externo _lsame_ sin resolver
lapack.lib(dormlq.obj) : error LNK2001: smbolo externo _lsame_ sin resolver
lapack.lib(dtrtri.obj) : error LNK2001: smbolo externo _lsame_ sin resolver
lapack.lib(dlauum.obj) : error LNK2001: smbolo externo _lsame_ sin resolver
lapack.lib(dlarf.obj) : error LNK2001: smbolo externo _lsame_ sin resolver
lapack.lib(dlasdq.obj) : error LNK2001: smbolo externo _lsame_ sin resolver
lapack.lib(dormbr.obj) : error LNK2001: smbolo externo _lsame_ sin resolver
lapack.lib(dorgbr.obj) : error LNK2001: smbolo externo _lsame_ sin resolver
lapack.lib(dlasyf.obj) : error LNK2001: smbolo externo _lsame_ sin resolver
lapack.lib(dsytf2.obj) : error LNK2001: smbolo externo _lsame_ sin resolver
lapack.lib(dlascl.obj) : error LNK2001: smbolo externo _lsame_ sin resolver
lapack.lib(dlaset.obj) : error LNK2001: smbolo externo _lsame_ sin resolver
lapack.lib(dbdsdc.obj) : error LNK2001: smbolo externo _lsame_ sin resolver
lapack.lib(dlacpy.obj) : error LNK2001: smbolo externo _lsame_ sin resolver
lapack.lib(dlarfb.obj) : error LNK2001: smbolo externo _lsame_ sin resolver
lapack.lib(dpotf2.obj) : error LNK2001: smbolo externo _lsame_ sin resolver
lapack.lib(dlamch.obj) : error LNK2001: smbolo externo _lsame_ sin resolver
lapack.lib(dlange.obj) : error LNK2001: smbolo externo _lsame_ sin resolver
lapack.lib(dsytrs.obj) : error LNK2001: smbolo externo _lsame_ sin resolver
lapack.lib(dsytrf.obj) : error LNK2001: smbolo externo _lsame_ sin resolver
lapack.lib(dpotri.obj) : error LNK2001: smbolo externo _lsame_ sin resolver
lapack.lib(dlarft.obj) : error LNK2001: smbolo externo _lsame_ sin resolver
lapack.lib(dtrtrs.obj) : error LNK2001: smbolo externo _lsame_ sin resolver
lapack.lib(dpotrf.obj) : error LNK2001: smbolo externo _lsame_ sin resolver
lapack.lib(dgetrs.obj) : error LNK2001: smbolo externo _lsame_ sin resolver
lapack.lib(dgesdd.obj) : error LNK2001: smbolo externo _lsame_ sin resolver
lapack.lib(dlasd2.obj) : error LNK2001: smbolo externo _xerbla_ sin resolver
lapack.lib(dlasd3.obj) : error LNK2001: smbolo externo _xerbla_ sin resolver
lapack.lib(dlasq2.obj) : error LNK2001: smbolo externo _xerbla_ sin resolver
lapack.lib(dlasrt.obj) : error LNK2001: smbolo externo _xerbla_ sin resolver
lapack.lib(dorml2.obj) : error LNK2001: smbolo externo _xerbla_ sin resolve r
lapack.lib(dlasq1.obj) : error LNK2001: smbolo externo _xerbla_ sin resolver
lapack.lib(dlasd7.obj) : error LNK2001: smbolo externo _xerbla_ sin resolver
lapack.lib(dlasd8.obj) : error LNK2001: smbolo externo _xerbla_ sin resolver
lapack.lib(dbdsqr.obj) : error LNK2001: smbolo externo _xerbla_ sin resolver
lapack.lib(dlasd6.obj) : error LNK2001: smbolo externo _xerbla_ sin resolver
lapack.lib(dlasd1.obj) : error LNK2001: smbolo externo _xerbla_ sin resolver
lapack.lib(dorm2r.obj) : error LNK2001: smbolo externo _xerbla_ sin resolver
lapack.lib(dgelq2.obj) : error LNK2001: smbolo externo _xerbla_ sin resolver
lapack.lib(dorgl2.obj) : error LNK2001: smbolo externo _xerbla_ sin resolver
lapack.lib(dtrti2.obj) : error LNK2001: smbolo externo _xerbla_ sin resolver
lapack.lib(dlauu2.obj) : error LNK2001: smbolo externo _xerbla_ sin resolver
lapack.lib(dlasd0.obj) : error LNK2001: smbolo externo _xerbla_ sin resolver
lapack.lib(dlasr.obj) : error LNK2001: smbolo externo _xerbla_ sin resolver
lapack.lib(dormqr.obj) : error LNK2001: smbolo externo _xerbla_ sin resolver
lapack.lib(dormlq.obj) : error LNK2001: smbolo externo _xerbla_ sin resolver
lapack.lib(dlauum.obj) : error LNK2001: smbolo externo _xerbla_ sin resolver
lapack.lib(dgebd2.obj) : error LNK2001: smbolo externo _xerbla_ sin resolver
lapack.lib(dlasdq.obj) : error LNK2001: smbolo externo _xerbla_ sin resolver
lapack.lib(dlasda.obj) : error LNK2001: smbolo externo _xerbla_ sin resolver
lapack.lib(dgelqf.obj) : error LNK2001: smbolo externo _xerbla_ sin resolver
lapack.lib(dorglq.obj) : error LNK2001: smbolo externo _xerbla_ sin resolver
lapack.lib(dsytf2.obj) : error LNK2001: smbolo externo _xerbla_ sin resolver
lapack.lib(dtrtri.obj) : error LNK2001: smbolo externo _xerbla_ sin resolver
lapack.lib(dgebrd.obj) : error LNK2001: smbolo externo _xerbla_ sin resolver
lapack.lib(dbdsdc.obj) : error LNK2001: smbolo externo _xerbla_ sin resolver
lapack.lib(dormbr.obj) : error LNK2001: smbolo externo _xerbla_ sin resolver
lapack.lib(dorgbr.obj) : error LNK2001: smbolo externo _xerbla_ sin resolver
lapack.lib(dgeqr2.obj) : error LNK2001: smbolo externo _xerbla_ sin resolver
lapack.lib(dpotf2.obj) : error LNK2001: smbolo externo _xerbla_ sin resolver
lapack.lib(dgetf2.obj) : error LNK2001: smbolo externo _xerbla_ sin resolver
lapack.lib(dlascl.obj) : error LNK2001: smbolo externo _xerbla_ sin resolver
lapack.lib(dsytrf.obj) : error LNK2001: smbolo externo _xerbla_ sin resolver
lapack.lib(dgetri.obj) : error LNK2001: smbolo externo _xerbla_ sin resolver
lapack.lib(dpotri.obj) : error LNK2001: smbolo externo _xerbla_ sin resolver
lapack.lib(dorg2r.obj) : error LNK2001: smbolo externo _xerbla_ sin resolver
lapack.lib(dgetrs.obj) : error LNK2001: smbolo externo _xerbla_ sin resolver
lapack.lib(dgetrf.obj) : error LNK2001: smbolo externo _xerbla_ sin resolver
lapack.lib(dgesdd.obj) : error LNK2001: smbolo externo _xerbla_ sin resolver
lapack.lib(dsytrs.obj) : error LNK2001: smbolo externo _xerbla_ sin resolver
lapack.lib(dtrtrs.obj) : error LNK2001: smbolo externo _xerbla_ sin resolver
lapack.lib(dorgqr.obj) : error LNK2001: smbolo externo _xerbla_ sin resolver
lapack.lib(dgeqrf.obj) : error LNK2001: smbolo externo _xerbla_ sin resolver
lapack.lib(dpotrf.obj) : error LNK2001: smbolo externo _xerbla_ sin resolver
lapack.lib(dg etri.obj) : error LNK2001: smbolo externo _dtrsm_ sin resolver
lapack.lib(dtrtri.obj) : error LNK2001: smbolo externo _dtrsm_ sin resolver
lapack.lib(dtrtrs.obj) : error LNK2001: smbolo externo _dtrsm_ sin resolver
lapack.lib(dpotrf.obj) : error LNK2001: smbolo externo _dtrsm_ sin resolver
lapack.lib(dgetrs.obj) : error LNK2001: smbolo externo _dtrsm_ sin resolver
lapack.lib(dgetrf.obj) : error LNK2001: smbolo externo _dtrsm_ sin resolver
lapack.lib(dpotrf.obj) : error LNK2001: smbolo externo _dsyrk_ sin resolver
lapack.lib(dlauum.obj) : error LNK2001: smbolo externo _dsyrk_ sin resolver
lapack.lib(dlasd3.obj) : error LNK2001: smbolo externo _dgemm_ sin resolver
lapack.lib(dlarfb.obj) : error LNK2001: smbolo externo _dgemm_ sin resolver
lapack.lib(dgebrd.obj) : error LNK2001: smbolo externo _dgemm_ sin resolver
lapack.lib(dlasyf.obj) : error LNK2001: smbolo externo _dgemm_ sin resolver
lapack.lib(dlauum.obj) : error LNK2001: smbolo externo _dgemm_ sin resolver
lapack.lib(dpotrf.obj) : error LNK2001: smbolo externo _dgemm_ sin resolver
lapack.lib(dgetrf.obj) : error LNK2001: smbolo externo _dgemm_ sin resolver
lapack.lib(dgesdd.obj) : error LNK2001: smbolo externo _dgemm_ sin resolver
lapack.lib(dgetri.obj) : error LNK2001: smbolo externo _dgemm_ sin resolver
lapack.lib(dlasyf.obj) : error LNK2001: smbolo externo _dswap_ sin resolver
lapack.lib(dsytf2.obj) : error LNK2001: smbolo externo _dswap_ sin resolver
lapack.lib(dlasdq.obj) : error LNK2001: smbolo externo _dswap_ sin resolver
lapack.lib(dbdsqr.obj) : error LNK2001: smbolo externo _dswap_ sin resolver
lapack.lib(dsytrs.obj) : error LNK2001: smbolo externo _dswap_ sin resolver
lapack.lib(dgetri.obj) : error LNK2001: smbolo externo _dswap_ sin resolver
lapack.lib(dgetf2.obj) : error LNK2001: smbolo externo _dswap_ sin resolver
lapack.lib(dbdsdc.obj) : error LNK2001: smbolo externo _dswap_ sin resolver
lapack.lib(dorgl2.obj) : error LNK2001: smbolo externo _dscal_ sin resolver
lapack.lib(dtrti2.obj) : error LNK2001: smbolo externo _dscal_ sin resolver
lapack.lib(dlauu2.obj) : error LNK2001: smbolo externo _dscal_ sin resolver
lapack.lib(dbdsqr.obj) : error LNK2001: smbolo externo _dscal_ sin resolver
lapack.lib(dlasyf.obj) : error LNK2001: smbolo externo _dscal_ sin resolver
lapack.lib(dsytf2.obj) : error LNK2001: smbolo externo _dscal_ sin resolver
lapack.lib(dlarfg.obj) : error LNK2001: smbolo externo _dscal_ sin resolver
lapack.lib(dlabrd.obj) : error LNK2001: smbolo externo _dscal_ sin resolver
lapack.lib(dsytrs.obj) : error LNK2001: smbolo externo _dscal_ sin resolver
lapack.lib(dorg2r.obj) : error LNK2001: smbolo externo _dscal_ sin resolver
lapack.lib(dpotf2.obj) : error LNK2001: smbolo externo _dscal_ sin resolver
lapack.lib(dgetf2.obj) : error LNK2001: smbolo externo _dscal_ sin resolver
lapack.lib(dsytrs.obj) : error LNK2001: smbolo externo _dger_ sin resolver
lapack.lib(dgetf2.obj) : error LNK2001: smbolo externo _dger_ sin resolver
lapack.lib(dlarf.obj) : error LNK2001: smbolo externo _dger_ sin resolver
lapack.lib(dlasyf.obj) : error LNK2001: smbolo externo _dgemv_ sin resolver
lapack.lib(dlarf.obj) : error LNK2001: smbolo externo _dgemv_ sin resolver
lapack.lib(dlabrd.obj) : error LNK2001: smbolo externo _dgemv_ sin resolver
lapack.lib(dlauu2.obj) : error LNK2001: smbolo externo _dgemv_ sin resolverlapack.lib(dsytrs.obj) : error LNK2001: smbolo externo _dgemv_ sin resolver
lapack.lib(dgetri.obj) : error LNK2001: smbolo externo _dgemv_ sin resolver
lapack.lib(dlarft.obj) : error LNK2001: smbolo externo _dgemv_ sin resolver
lapack.lib(dpotf2.obj) : error LNK2001: smbolo externo _dgemv_ sin resolver
lapack.lib(dlarft.obj) : error LNK2001: smbolo externo _dtrmv_ sin resolver
lapack.lib(dtrti2.obj) : error LNK2001: smbolo externo _dtrmv_ sin resolver
lapack.lib(dlasd2.obj) : error LNK2001: smbolo externo _dcopy_ sin resolver
lapack.lib(dlasd3.obj) : error LNK2001: smbolo externo _dcopy_ sin resolver
lapack.lib(dlasd6.obj) : error LNK2001: smbolo externo _dcopy_ sin resolver
lapack.lib(dlasq1.obj) : error LNK2001: smbolo externo _dcopy_ sin resolver
lapack.lib(dlasd7.obj) : error LNK2001: smbolo externo _dcopy_ sin resolver
lapack.lib(dlasd8.obj) : error LNK2001: smbolo externo _dcopy_ sin resolver
lapack.lib(dlarfb.obj) : error LNK2001: smbolo externo _dcopy_ sin resolver
lapack.lib(dbdsdc.obj) : error LNK2001: smbolo externo _dcopy_ sin resolver
lapack.lib(dlasyf.obj) : error LNK2001: smbolo externo _dcopy_ sin resolver
lapack.lib(dlasda.obj) : error LNK2001: smbolo externo _dcopy_ sin resolver
lapack.lib(dlarfb.obj) : error LNK2001: smbolo externo _dtrmm_ sin resolver
lapack.lib(dtrtri.obj) : error LNK2001: smbolo externo _dtrmm_ sin resolver
lapack.lib(dlauum.obj) : error LNK2001: smbolo externo _dtrmm_ sin resolver
lapack.lib(dpotf2.obj) : error LNK2001: smbolo externo _ddot_ sin resolver
lapack.lib(dlauu2.obj) : error LNK2001: smbolo externo _ddot_ sin resolver
lapack.lib(dlasd8.obj) : error LNK2001: smbolo externo _ddot_ sin resolver
lapack.lib(dgetf2.obj) : error LNK2001: smbolo externo _idamax_ sin resolver
lapack.lib(dlasyf.obj) : error LNK2001: smbolo externo _idamax_ sin resolver
lapack.lib(dsytf2.obj) : error LNK2001: smbolo externo _idamax_ sin resolver
lapack.lib(dsytf2.obj) : error LNK2001: smbolo externo _dsyr_ sin resolver
lapack.lib(dlarfg.obj) : error LNK2001: smbolo externo _dnrm2_ sin resolver
lapack.lib(dlasd8.obj) : error LNK2001: smbolo externo _dnrm2_ sin resolver
lapack.lib(dlasd3.obj) : error LNK2001: smbolo externo _dnrm2_ sin resolver
lapack.lib(dbdsqr.obj) : error LNK2001: smbolo externo _drot_ sin resolver
lapack.lib(dlasd7.obj) : error LNK2001: smbolo externo _drot_ sin resolver
lapack.lib(dlasd2.obj) : error LNK2001: smbolo externo _drot_ sin resolver
libifcoremt.lib(for_diags_intel.obj) : error LNK2001: smbolo externo __iob sin resolver
libifcoremt.lib(for_nt_open_proc.obj) : error LNK2001: smbolo externo __iob sin resolver
libmmt.lib(libm_error.obj) : error LNK2001: smbolo externo __iob sin resolver
libifcoremt.lib(for_init.obj) : error LNK2001: smbolo externo ___argv sin resolver
libifcoremt.lib(for_init.obj) : error LNK2001: smbolo externo ___argc sin resolver

I'm using this Makefile:
CC=cl /nologo
CFLAGS=/I.. /MD /W3 /EHsc /D_CRT_SECURE_NO_DEPRECATE /O2 /Wall
LAPACKLIBS_PATH="D:USRMVS2005libsLAPACK"
FORTRAN_LIB="C:Archivos de programaIntelCompilerFortran10.1.021IA32Lib"
LDFLAGS=/link /subsystem:console /opt:ref /libpath:$(LAPACKLIBS_PATH) /libpath:$(FORTRAN_LIB) /libpath:.. /nodefaultlib:libcmt.lib
OBJS=eucsbademo.obj imgproj.obj readparams.obj
SRCS=eucsbademo.c imgproj.c readparams.c
LAPACKLIBS=lapack.lib blas.l ib extras.lib matgen.lib
MYLIBS=sba.lib $(LAPACKLIBS)
eucsbademo.exe: $(OBJS) ..sba.lib
$(CC) $(OBJS) $(LDFLAGS) /out:eucsbademo.exe $(MYLIBS)
eucsbademo.obj: eucsbademo.h readparams.h
readparams.obj: eucsbademo.h
clean:
-del $(OBJS)
realclean cleanall: clean
-del eucsbademo.exe
What am I doing wrong?
Any help for this newbie would be appreciated.
Thanks a million

[Steven_L_Intel1]

It looks as if your C code assumes that Fortran routines are lowercase and have an underscore at the end. This is common on Linux/UNIX but not on Windows. You should look at the conditionalizations for your C code where it determines the "spelling" of Fortran routines and adjust it for the Windows convention of uppercase and no trailing underscore.

[jezule]

You are absolutely right. I realised about when I tried to link first time and I changed some options of the Fortran compiler (under project properties in MVS) before cleaning the libs and compiling them again. If I check the resulting *.lib files all symbols are properly "spelled" (lowercase, underscore at the end). That is the reason why I do not understand the errors I'm getting...
Would it be better to make C code assume that Fortran routines are uppercase? Currently, this macro is defined:
#define F77_FUNC(func) func ## _
How should I change it?
Thanks a million
Best regards

[Steven_L_Intel1]

You talked about making changes in Visual Studio but you're using a makefile to build. I don't see in your Fortran options in the makefile that you have changed any of the naming conventions, so the default will be _ROUTINE with a leading underscore and uppercase name. You would not specify the leading underscore in the C code as that would get added by the C compiler.

I suggest that you do a:

dumpbin -symbols libraryname.lib

and see what names are there. My advice would be to define the macro to match the ifort defaults.

[jezule]

I compiled LAPACK under MVS using the solution provided and I changed in the Project Properties some options for the symbols to be lowercase with appended underscore at the end (recompiling again). Later on, I compiled the C code using a separate makefile. I'll dumpbin resulting libs tomorrrow morning but I've already done it and I got what I expected. I might be wrong cause I was quite confuse at that time.
Anyway, which macro should I define to match ifort defaults? I don't know how to do it...
Is a problem compiling the libs using a Visual Studio solution and linking afterwards the programs using nmake?
Cheers

[Steven_L_Intel1]

No, that's fine. I was just confused as to what you were doing. The dumpbin should make it clear what the symbols in the library look like compared to what your C code is looking for.

[jezule]

Hello,
This is what dumpbin /symbols lapack.lib show:
...
014 00000000 UNDEF notype () External | _lsame_
015 00000404 SECT3 notype Static | STRLITPACK_359.0
016 00000408 SECT3 notype Static | STRLITPACK_358.0
017 0000040C SECT3 notype Static | STRLITPACK_357.0
018 000005D8 SECT3 notype Static | STRLITPACK_321.0
019 000005DC SECT3 notype Static | STRLITPACK_322.0
01A 00000000 UNDEF notype () External | _ilaenv_
01B 00000584 SECT3 notype Static | STRLITPACK_307.0
01C 00000588 SECT3 notype Static | STRLITPACK_308.0
01D 00000464 SECT3 notype Static | STRLITPACK_259.0
01E 00000468 SECT3 notype Static | STRLITPACK_260.0
01F 00000410 SECT3 notype Static | STRLITPACK_245.0
020 00000414 SECT3 notype Static | STRLITPACK_246.0
021 000006F8 SECT3 notype Static | STRLITPACK_231.0
022 00000000 UNDEF notype () External | _slamch_
023 000006FC SECT3 notype Static | STRLITPACK_230.0
024 00000000 SECT4 notype Static | .bss
Section length 20, #relocs 0, #linenums 0, checksum 0
026 00000700 SECT3 notype Static | STRLITPACK_229.0
027 00000000 UNDEF notype () External | _clange_
028 00000704 SECT3 notype Static | STRLITPACK_228.0
029 00000000 UNDEF notype () External | _clascl_
02A 00000708 SECT3 notype Static | STRLITPACK_227.0
02B 00000000 UNDEF notype () External | _cgeqrf_
02C 00000A7C SECT3 notype Static | STRLITPACK_226.0
02D 00000000 UNDEF notype () External | _claset_
02E 00000000 UNDEF notype () External | _cgebrd_
...
and so on. Symbols are "spelled" as C code expects them to be. Any idea? How co uld I change the macro to force CAPITAL LETTERS in symbol names?
Thanks

[Steven_L_Intel1]

First, I suggest that you use "ifort" to link rather than "link". You are missing some C libraries.

The dumpbin output you show is listing external references, not definitions. You want them to say SECTn and not UNDEF. Are you sure your compilation of LSAME, etc., is making it into the library?