[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: 19981230: Integer*2 and NC_short



Steve,

>Date: 31 Dec 1998 09:32:19 -0500
>From: "Steve Mauget" <address@hidden>
>Organization: USDA/ARS
>To: "Steve Emmerson" <address@hidden>
>Subject: Re: 19981230: Integer*2 and
>Keywords: 199812301538.IAA00805

In the above message, you wrote:

> Here is everything I can find associated with ncvgt    ------   Steve M.
...
> static void
> c_ncvgt(
>     int                       ncid,   
>     int                       varid,  
>     const size_t*     start,  
>     const size_t*     count,  
>     void*             value,  
>     int*              rcode   
> ) 

The above is the correct function declaration for c_ncvgt() but would
you please send me the entire function definition (i.e. include the body
of the function).  Thanks.

> extern void  ncvgt_(  int *fncid , int *fvarid , int * A3 , int * A4 , void *
> A5 , int * A6 ) {  size_t B3[100]; size_t B4[100];
>            ;  c_ncvgt(  *fncid , (*fvarid-1) , f2c_coords(*fncid, *fvarid-1,
> A3, B3) , f2c_counts(*fncid, *fvarid-1, A4, B4) , A5 , A6                 );  
>              return ; }

The above is the correct interface for the Fortran-callable routine NCVGT.

--------
Steve Emmerson   <http://www.unidata.ucar.edu>