Reference problem

McCoder · 06-23-2010, 12:08 PM

Hi,

I'm using Fortran g95 to compile my code:

Code:

        subroutine get_geopack(l_iy,f_ps)
        IMPLICIT NONE

        REAL ST0,CT0,SL0,CL0,CTCL,STCL,CTSL,STSL,SFI,CFI,SPS,CPS,
     1       SHI,CHI,HI,PSI,XMUT,A11,A21,A31,A12,A22,A32,A13,A23,
     2       A33,DS3,CGST,SGST,
     5       BA(6)

        INTEGER K,IY

        integer*4  l_iy
        real*4  f_ps

       COMMON /GEOPACK/ ST0,CT0,SL0,CL0,CTCL,STCL,CTSL,STSL,SFI,CFI
     * CPS,SHI,CHI,HI,PSI,XMUT,A11,A21,A31,A12,A22,A32,A13,A23,A33,
     * K,IY,CGST,SGST,BA


        save

        INTEGER jint
        l_iy = jint(iy)   
        f_ps = psi        

        RETURN
        END

However, I receive the error "undefined reference to jint." How do I fix this? Is this a linking problem?

paulsm4 · 06-23-2010, 02:25 PM

Hi -

Code:

        INTEGER jint     ! declare "jint" as a local variable
        l_iy = jint(iy)  ! use "jint()" as a function

Q: Where (if anywhere) did you declare *function* "jint()"?

A: Define the function, and I'll bet you fix the problem.

ALSO: I'd strongly recommend you also use an "interface" for your function.

http://www.cs.rpi.edu/~szymansk/OOF90/bugs.html
http://www.cs.umbc.edu/~squire/fortr.../summary.shtml

'Hope that helps .. PSM