Re: WRAPIT

From: Mingxuan Chen <chen_at_nyahnyahspammersnyahnyah>
Date: Wed Mar 13 2013 - 10:03:04 MDT

Hi Rick,
  The fortran compiler id gfortran 4.8.0.
Mingxuan
On Mar 12, 2013, at 4:48 PM, Rick Brownrigg <brownrig@ucar.edu> wrote:

> Mingxuan,
>
> I am unable to duplicate this on my MacOSX 10.8.2 system -- it runs to completion and the results are as expected. I'm showing the same version for WRAPIT, and while I have a development branch of ncl, it should be essentially 6.1.2. The underlying fortran compiler is gfortran 4.7.2 (??)
>
> Rick
>
>
> On Mar 12, 2013, at 3:11 PM, Mingxuan Chen <chen@atmos.colostate.edu> wrote:
>
>> Hello,
>> when I use ex.f and ex.ncl in my Mac (OS X version 10.8.2) and ncl 6.1.0 0r ncl 6.1.2
>> the results show a strange error .
>> However I run the same code in another machine carver(IBM iDataPlex system), no problem at tall.
>> What is wrong?
>> Thanks for your help.
>> Mingxuan
>>
>> ----------------------------------------------
>> fjord 11:14 /Users/chen/CMIP5> WRAPIT -m64 ex.f
>>
>> WRAPIT Version: 120209
>> COMPILING ex.f
>> LINKING
>> END WRAPIT
>> fjord 11:18 /Users/chen/CMIP5> ncl ex.ncl
>> Copyright (C) 1995-2013 - All Rights Reserved
>> University Corporation for Atmospheric Research
>> NCAR Command Language Version 6.1.2
>> The use of this software is governed by a License Agreement.
>> See http://www.ncl.ucar.edu/ for more details.
>> (0) before i = 5
>> (0) before x = 1.3
>> 10
>> ???
>> At line 10 of file ex.f (unit = 6, file = 'stdout')
>> Fortran runtime error: Expected REAL for item 2 in formatted transfer, got CHARACTER
>> (F10.2)
>> ^
>> --------------------------------
>> ---------------ex.f---------------
>> C NCLFORTSTART
>> SUBROUTINE EX (II,XX)
>> INTEGER II
>> REAL XX
>> C NCLEND
>> II = II + 5
>> XX = XX - 12.345
>> print *,II
>> print *,XX
>> write(6,20)XX
>> 20 Format(F10.2)
>> RETURN
>> END
>> -----------------------
>>
>>
>> ---------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
>> --------------------------------
>>
>>
>> _______________________________________________
>> 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 Wed Mar 13 08:03:22 2013

This archive was generated by hypermail 2.1.8 : Wed Mar 13 2013 - 14:19:38 MDT