Re: Why doesn't print* work using WRAPIT fortran?

Hi Stephen,

The print statement should work fine. Did you try adding an fflush call after it?

Please see the attached simple ex.f and ex.ncl. I've added a "print" statement.
It worked fine for me:

% WRAPIT -m64 ex.f
 
WRAPIT Version: 110125
COMPILING ex.f
LINKING
END WRAPIT
 
% ncl ex.ncl
 Copyright (C) 1995-2011 - All Rights Reserved
 University Corporation for Atmospheric Research
 NCAR Command Language Version 6.1.0-31Oct2011_0149
 The use of this software is governed by a License Agreement.
 See http://www.ncl.ucar.edu/ for more details.
 II= 10
%

--Mary

On Oct 31, 2011, at 4:00 PM, Stephen Yeager wrote:

> Hello:
>
> Can anyone tell me why the print* fortran statement within the body
> of my fortran subroutine does not appear on my screen even though the
> WRAPIT subroutine otherwise works nicely?
>
> The routine in question looks like:
>
> C NCLFORTSTART
> subroutine mocloops(nyaux,mlon,nlat,kdep,nrx,tlat,lat_aux_grid
> + ,rmlak,work1,work2,work3,wmsg,tmp1,tmp2,tmp3)
> implicit none
> integer nyaux,mlon,nlat,kdep,nrx
> double precision work1(mlon,nlat,kdep), work2(mlon,nlat,kdep)
> + ,work3(mlon,nlat,kdep), wmsg
> C NCLEND
> print *, 'made it into mocloops!'
>
>
> Printing seems to work in WRAPIT example 5 in the documentation, but not
> in my case.
>
> Steve
>
>
> ++++++++++++++++
> Stephen Yeager
> yeager@ucar.edu
> (303) 497-1721
> ++++++++++++++++
>
> _______________________________________________
> 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 Tue Nov 1 07:46:39 2011