[Fwd: FORTRAN XTYPE]

-------- Original Message --------
Subject: FORTRAN XTYPE
Date: Fri, 05 May 2000 16:40:53 +0200
From: Mike Mueller <address@hidden>
Organization: UCAR/Unidata
To: John Caron <address@hidden>
References: <address@hidden>

I am using netCDF3.5 under WIn NT and DF 6.1
All external datatypes are 0 even so I included netdf.inc.
In order to make NF_PUT_VAR_type work I used the INTERger (e.g 6 for
DOUBLE).
The following array should be filled with 0.5 but looks like this:


netcdf foo {
dimensions:
        DLX = 14 ;
        H = 12 ;
        ELWS = 14 ;
        PHI0 = 14 ;
variables:
        float B(DLX, H) ;
data:

 B =
  3.051759e-005, 3.051759e-005, 3.051759e-005, 3.051759e-005,
3.051759e-005, 
    3.051759e-005, 3.051759e-005, 3.051759e-005, 3.051759e-005, 
    3.051759e-005, 3.051759e-005, 3.051759e-005,
  3.051759e-005, 3.051759e-005, 3.051759e-005, 3.051759e-005,
3.051759e-005, 
    3.051759e-005, 3.051759e-005, 3.051759e-005, 3.051759e-005, 
    3.051759e-005, 3.051759e-005, 3.051759e-005,
  3.051759e-005, 3.051759e-005, 3.051759e-005, 3.051759e-005,
3.051759e-005, 
    3.051759e-005, 3.051759e-005, 3.051759e-005, 3.051759e-005, 
    3.051759e-005, 3.051759e-005, 3.051759e-005,
  3.051759e-005, 3.051759e-005, 3.051759e-005, 3.051759e-005,
3.051759e-005, 
    3.051759e-005, 3.051759e-005, 3.051759e-005, 3.051759e-005, 
    3.051759e-005, 3.051759e-005, 3.051759e-005,
  3.051759e-005, 3.051759e-005, 3.051759e-005, 3.051759e-005,
3.051759e-005, 
    3.051759e-005, 3.051759e-005, 3.051759e-005, 3.051759e-005, 
    3.051759e-005, 3.051759e-005, 3.051759e-005,
  3.051759e-005, 3.051759e-005, 3.051759e-005, 3.051759e-005,
3.051759e-005, 
    3.051759e-005, 3.051759e-005, 3.051759e-005, 3.051759e-005, 
    3.051759e-005, 3.051759e-005, 3.051759e-005,
  3.051759e-005, 3.051759e-005, 3.051759e-005, 3.051759e-005,
3.051759e-005, 
    3.051759e-005, 3.051759e-005, 3.051759e-005, 3.051759e-005, 
    3.051759e-005, 3.051759e-005, 3.051759e-005,
  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 ;
}

What am I doing wrong here.

Thanks for help.

Mike

---------------------------------------------------------
        Dipl.-Ing. Mike Müller, M.Sc.
        Dresdner Grundwasserforschungszentrum e.V.
        Meraner Str. 10
        D-01217 Dresden
Tel.:   0351/4050675
Fax.:   0351/4050679
e-mail: address@hidden
----------------------------------------------------------