Re: wrapit, gfortran trouble

Hi Mary,

Thanks for your continued help. Please see my scripts and files attached.
1. test.sh (NCL and fortran 90)
2. tester.stub
3. tester.so

I now get a segmentation fault at the SUB1:: . Something is wrong with the
generated tester.so file. I am not sure what exactly. I am working on
Ubuntu Linux using gfortran.

thank you,
Matt

On Thu, 6 Dec 2007, Mary Haley wrote:

>
> 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
>>
>