pnf_test.F

[John Tannahill]

Reiner,

I believe pnf_test.F is one of the test codes I wrote.  My current version
does not have the problem mentioned below, so you must be looking at an
older one.  Did you get it from ANL's parallel netCDF library?  If so, what
version of the library?  Can you send me a copy of what you have?  I have
not used this particular test code in quite a while, but would be glad to
update the archive with a new version if need be.

As an aside, I am in the process of writing up my work on parallel netCDF
and should finish it up by the end of the week.

Regards,
John

Reiner Vogelsang wrote:
> Dear colleagues,
> 
> in pnf_test.F I found that filsiz was calculated via
> 
>       filsiz = (TOTSIZ_3D(1) * TOTSIZ_3D(2) * TOTSIZ_3D(3)) *
>      &         1.0d-6 *8.0d0
> 
> However, the code is writing/reading using NF_REAL, means 4-byte
> entities.
> The array tt is also specified as real*4.
> 
> So, I assume that 4 instead of 8 is correct.
> 
> Last but not least, are there any known restrictions to prevent me from
> running the code
> with 1024x1024x1024?
> 
> Best regards
>     Reiner
> 
> 
> 
> --
> --------------------------------------------------------------------------------
>                                              _
>                                            )/___                        _---_
>                                          =_/(___)_-__                  (     )
>                                         / /\\|/O[]/  \c             O   (   )
> Reiner Vogelsang                        \__/ ----'\__/       ..o o O .o  -_-
> Senior System Engineer
> 
> Silicon Graphics GmbH                   Home Office
> Am Hochacker 3
> D-85630 Grasbrunn                       52428 Juelich
> Germany
> 
> Phone   +49-89-46108-0                  +49-2461-939265
> Fax     +49-89-46108-222                +49-2461-939266
> Mobile  +49-171-3583208
> email    reiner at sgi.com
> 
> 
> 
> 


-- 
============================
John R. Tannahill
Lawrence Livermore Nat. Lab.
P.O. Box 808, M/S L-103
Livermore, CA  94551
925-423-3514
Fax:  925-423-4908
============================