Re: WRAPIT issue with .F90 files

I use WRAPIT with f90 without problems.
for f90
  WRAPIT ex90.stub ex.f90

Mingxaun

On Jan 24, 2011, at 10:43 AM, Walter Hannah wrote:

> I made an alias to point to a 64-bit version of WRAPIT but I still get
> the same error, and I tried using WRAPIT on the same files directly on
> my 32-bit machine, so it seems that its not a 32/64 bit problem after
> all. I tried Mingxuan's suggestion of changing the name of the stub file
> to ex90.stub, but this also had no effect.
>
> Could this be a bug in the version of NCL? the version I'm using is 5.2.1.
>
> Thanks,
> Walter
>
> Dennis Shea wrote:
>> Hi Walter,
>>
>> I think maybe a 32/64 issue. I had no issues.
>>
>> I created a .so using f77 and f90 both with the stub file
>> you provided.
>>
>> %> WRAPIT -fPIC -pg walter.ex.stub walter.ex77.f
>> %> WRAPIT -fPIC -pg walter.ex.stub walter.ex90.f90
>>
>> The test driver was:
>>
>> ;external EX "./walter.ex77.so"
>> external EX "./walter.ex90.so"
>>
>> begin
>> i = 5
>> x = 1.3
>> print("before i = " + i)
>> print("before x = " + x)
>> EX:: ex(i,x)
>> print("after i = " + i)
>> print("after x = " + x)
>> end
>>
>> The output is
>>
>>
>> (0) before i = 5
>> (0) before x = 1.3
>> (0) after i = 10
>> (0) after x = -11.045
>> ==================================
>> Note that the f90 version of your code was named: walter.ex90.f90
>>
>> SUBROUTINE EX (II,XX)
>> INTEGER :: II
>> REAL :: XX
>>
>> II = II + 5
>> XX = XX - 12.345
>> RETURN
>> END
>>
>>
>> On 01/24/2011 09:22 AM, Walter Hannah wrote:
>>> Hi,
>>>
>>> When I use WRAPIT on a Fortan 77 file I have no problems, but when I try
>>> to do it on a Fortran 90 file using the seperate stub file I get this
>>> output:
>>>
>>> /
>>>> WRAPIT ex.stub ex.F90
>>>
>>> WRAPIT Version: 091416
>>> /opt/pgi/linux86-64/10.5/bin/pgf90
>>> LINKING
>>> /usr/bin/ld: WRAPIT.o: relocation R_X86_64_32 against `.rodata.str1.1'
>>> can not be used when making a shared object; recompile with -fPIC
>>> WRAPIT.o: could not read symbols: Bad value
>>> END WRAPIT/
>>>
>>>
>>> When I use the -fPIC option WRAPIT seems to make the shared object ok,
>>> but then when I run this NCL file:
>>>
>>> ex.ncl:
>>>
>>> /external EX "./ex.so"
>>>
>>> begin
>>> i = 5
>>> x = 1.3
>>> print("before i = " + i)
>>> print("before x = " + x)
>>> EX:: ex(i,x)
>>> print("after i = " + i)
>>> print("after x = " + x)
>>> end
>>>
>>> /I get this output:
>>>
>>> /warning:An error occurred loading the external file ./ex.so, file not
>>> loaded
>>> ./ex.so: undefined symbol: ex_
>>> warning:error at line 1 in file ex.ncl
>>>
>>> fatal:syntax error: line 8 in file ex.ncl before or near :
>>> EX:
>>> ----^
>>>
>>> fatal:error in statement
>>> fatal:Syntax Error in block, block not executed
>>> fatal:error at line 11 in file ex.ncl
>>> /
>>>
>>> I'm guessing that this might be a 32-bit vs 64-bit issue, since I'm on a
>>> 32 bit machine and ssh'ing onto a 64-bit machine. If I use the Fortran
>>> 77 version that is found on the WRAPIT help page, everything works fine.
>>> Any ideas why this might be happening?
>>>
>>> Here are the Fortran files,
>>>
>>> ex.F90:
>>> /
>>> SUBROUTINE EX (II,XX)
>>> INTEGER II
>>> REAL XX
>>>
>>> II = II + 5
>>> XX = XX - 12.345
>>> RETURN
>>> END/
>>>
>>>
>>> ex.stub:
>>>
>>> /C NCLFORTSTART
>>> SUBROUTINE EX (II,XX)
>>> INTEGER II
>>> REAL XX
>>> C NCLEND
>>>
>>>
>>> /Thanks,
>>> Walter
>>>
>>>
>>>
>>> _______________________________________________
>>> ncl-talk mailing list
>>> List instructions, subscriber options, unsubscribe:
>>> http://mailman.ucar.edu/mailman/listinfo/ncl-talk
>>
>>
> _______________________________________________
> ncl-talk mailing list
> List instructions, subscriber options, unsubscribe:
> http://mailman.ucar.edu/mailman/listinfo/ncl-talk

_______________________________________________
ncl-talk mailing list
List instructions, subscriber options, unsubscribe:
http://mailman.ucar.edu/mailman/listinfo/ncl-talk
Received on Mon Jan 24 11:45:39 2011