Re: wrapit, gfortran trouble

Matt,

I was able to run the simple script you gave me before, using gfortran
on both of my Macs.

Do you have a new version of your script you can give me that I can
try?

--Mary

On Thu, 6 Dec 2007, Matt Fearon wrote:

> Thanks Dennis and IMHO.
>
> Still can't get gfortran to work with WRAPIT and use fortran 90 code. I am
> using gfortran on Ubuntu Linux as I only have access to open source tools. My
> latest error is a segmentation fault at the SUB:: call, and since my scripts
> are so simple, it appears WRAPIT and gfortran are not working together
> correctly.
>
> Matt
>
>
> On Thu, 6 Dec 2007, Dennis Shea wrote:
>
>> Hi Matt
>>
>> I do not have a gfortran compiler available .... At least I don't know
>> where it exists.
>>
>> I modified the test.sh scrip as follows and then used the default
>> f90 compiler on an SGI [IRIX OS] using the following modifications.
>>
>> [1]
>> #WRAPIT -gf -l gfortran tester.stub tester.f90 # create sub.so
>> WRAPIT tester.stub tester.f90 # create sub.so
>>
>> [2]
>> I activated "Try 2" and "Try 3" in the f90 code.
>>
>> It ran perfectly.
>>
>> IMHO ... there is nothing wrong with what you did.
>>
>> D
>> ================================================
>> /home/tempest/shea> test.sh
>>
>> WRAPIT Version: 051007
>> COMPILING tester.f90
>> LINKING
>> END WRAPIT
>>
>> Copyright (C) 1995-2007 - All Rights Reserved
>> University Corporation for Atmospheric Research
>> NCAR Command Language Version 5.0.0
>> The use of this software is governed by a License Agreement.
>> See http://www.ncl.ucar.edu/ for more details.
>>
>> Variable: ng
>> Type: integer
>> Total Size: 4 bytes
>> 1 values
>> Number of Dimensions: 1
>> Dimensions and sizes: [1]
>> Coordinates:
>> 10
>> 10
>> 10
>>
>> Matt Fearon wrote:
>>> Hi Mary,
>>> Thanks. However, I am not trying to pass strings and or characters at all.
>>> My test is very simple: Just passing an integer and printing it to the
>>> screen. Nothing more. If you have a few minutes, your take would be
>>> greatly appreciated. I understand you have plenty of other things going
>>> also. tester.stub and test.sh (includes NCL and fortran 90) are attached.
>>> Dennis, you fortran master, if you have a couple minutes, your thoughts
>>> would be greatly appreciated as well.
>>>
>>> thanks,
>>> Matt
>>>
>>>
>>>
>>> On Thu, 6 Dec 2007, Mary Haley wrote:
>>>
>>>> Hi Matt,
>>>>
>>>> I'm guessing the root of the problem may be due to one or more of the
>>>> character arrays being passed into the Fortran writeinter routine.
>>>> Although, I'm a bit puzzled by the error, because I didn't see a
>>>> reference to formatted strings in your f90 file. I'm not a f90 expert
>>>> by any means, though, so I could be off-base.
>>>>
>>>> Just in case: in order to pass character strings, you need to know
>>>> about the following:
>>>>
>>>> Arrays of character strings:
>>>>
>>>> Currently, the wrapper code used by WRAPIT honors only
>>>> non-dimensioned Fortran type CHARACTER variables. You cannot pass
>>>> arrays of NCL strings to Fortran, nor can you pass Fortran
>>>> CHARACTER arrays from Fortran back to NCL.
>>>>
>>>> Passing strings from NCL to Fortran:
>>>>
>>>> If you want to pass an NCL variable of type string to a Fortran
>>>> procedure, then the argument to the Fortran procedure must be
>>>> declared as CHARACTER*(*).
>>>>
>>>> Passing Fortran CHARACTER variables to NCL:
>>>>
>>>> If you want to pass a Fortran CHARACTER variable back to NCL, then
>>>> the Fortran argument must be a variable of type CHARACTER of fixed
>>>> length, and the corresponding NCL variable must be a character
>>>> array of the same length. If you want to use the NCL character
>>>> array as an NCL string, you will need to use the NCL conversion
>>>> function chartostring.
>>>>
>>>> You can look at:
>>>>
>>>> http://www.ncl.ucar.edu/Document/Tools/WRAPIT.shtml#Example_4
>>>>
>>>> for a small example of passing strings back and forth from NCL to
>>>> Fortran.
>>>>
>>>> If this doesn't help, then if you can send me the NCL script I'll
>>>> take a look.
>>>>
>>>> --Mary
>>>>
>>>> On Wed, 5 Dec 2007, Matt Fearon wrote:
>>>>
>>>>> Hi Mary,
>>>>> Thanks for your reply.
>>>>> adding: "-l gfortran" in the following statement:
>>>>> WRAPIT -gf -l gfortran chello.stub chello.f90 # creat sub.so
>>>>>
>>>>> allows WRAPIT to work, but then when NCL executes the fortran I get the
>>>>> following error:
>>>>>
>>>>> Fortran runtime error: Missing format for FORMATTED data transfer
>>>>>
>>>>> Never seen this error before. Thoughts?
>>>>> Matt
>>>>>
>>>>>
>>>>> On Wed, 5 Dec 2007, Mary Haley wrote:
>>>>>
>>>>>>
>>>>>> Hi Matt,
>>>>>>
>>>>>> I had a similar problem when I tried your scriopt, but was able to get
>>>>>> it to work by adding "-l gfortran" to this line:
>>>>>>
>>>>>> WRAPIT -gf -l gfortran chello.stub chello.f90 # creat sub.so
>>>>>>
>>>>>> Meanwhile, I'll check as to why WRAPIT is not including "-l gfortran"
>>>>>> automatically.
>>>>>>
>>>>>> Let me know if "-l gfortran" doesn't work for you.
>>>>>>
>>>>>> --Mary
>>>>>>
>>>>>>
>>>>>> On Wed, 5 Dec 2007, Matt Fearon wrote:
>>>>>>
>>>>>>> Sorry I forgot to attached scripts. Here they are.
>>>>>>>
>>>>>>> On Wed, 5 Dec 2007, Matt Fearon wrote:
>>>>>>>
>>>>>>>> Dear NCL users:
>>>>>>>>
>>>>>>>> Struggling with WRAPIT error linking NCL and gfortran. I have now
>>>>>>>> made my scripts very simple, but still receive the following error:
>>>>>>>>
>>>>>>>> warning:An error occurred loading the external file ./chello.so, file
>>>>>>>> not loaded
>>>>>>>> ./chello.so: undefined symbol: _gfortran_st_write_done
>>>>>>>> warning:error at line 6
>>>>>>>>
>>>>>>>> fatal:syntax error: line 12 before or near :
>>>>>>>> SUB1:
>>>>>>>> ----^
>>>>>>>>
>>>>>>>> fatal:error in statement
>>>>>>>> fatal:Syntax Error in block, block not executed
>>>>>>>> fatal:error at line 14
>>>>>>>>
>>>>>>>>
>>>>>>>> My shell script (test.sh which includes ncl and fortran 90) and my
>>>>>>>> f77 stub file (chello.stub) are attached. Seems like I have had this
>>>>>>>> trouble before, but I forget why. Help would be much appreciated.
>>>>>>>>
>>>>>>>> thanks,
>>>>>>>> Matt
>>>>>>>>
>>>>>>>> _______________________________________________
>>>>>>>> ncl-talk mailing list
>>>>>>>> ncl-talk_at_ucar.edu
>>>>>>>> http://mailman.ucar.edu/mailman/listinfo/ncl-talk
>>>>>>>
>>>>>>
>>>>>
>>>>
>>> ------------------------------------------------------------------------
>>>
>>> C NCLFORTSTART
>>>
>>> subroutine tester(ng)
>>> integer ng
>>> C NCLEND
>>>
>>> ------------------------------------------------------------------------
>>>
>>> _______________________________________________
>>> ncl-talk mailing list
>>> ncl-talk_at_ucar.edu
>>> http://mailman.ucar.edu/mailman/listinfo/ncl-talk
>>>
>>
>>
>>
> _______________________________________________
> ncl-talk mailing list
> ncl-talk_at_ucar.edu
> http://mailman.ucar.edu/mailman/listinfo/ncl-talk
>
_______________________________________________
ncl-talk mailing list
ncl-talk_at_ucar.edu
http://mailman.ucar.edu/mailman/listinfo/ncl-talk
Received on Thu Dec 06 2007 - 16:03:00 MST