nco: ncdf4a13/fortran/fort-coord.c Source File

00001 /*
00002 This file provides the fortran functions for the new functions added
00003 to the API in support of coordinate systems.
00004 
00005 Copyright 2006, University Corporation for Atmospheric Research. See
00006 COPYRIGHT file for copying and redistribution conditions.
00007 
00008 $Id: fort-coord.c,v 1.1 2006/01/05 15:47:11 ed Exp $
00009 */
00010 
00011 #include "netcdf.h"
00012 #include "ncfortran.h"
00013 #include "fort-lib.h"
00014 
00015 FCALLSCFUN3(NF_INT, nc_def_axis_type, NF_DEF_AXIS_TYPE, nf_def_axis_type,
00016             NCID, FINT2CINT, FINT2CINT)
00017 
00018 FCALLSCFUN3(NF_INT, nc_inq_axis_type, NF_INQ_AXIS_TYPE, nf_inq_axis_type,
00019             NCID, FINT2CINT, PCINT2FINT)
00020 
00021 FCALLSCFUN5(NF_INT, nc_def_coord_system, NF_DEF_COORD_SYSTEM, nf_def_coord_system,
00022             NCID, STRING, NDIMS, DIMIDS, PVARID)
00023 
00024 FCALLSCFUN3(NF_INT, nc_assign_coord_system, NF_ASSIGN_COORD_SYSTEM, nf_assign_coord_system,
00025             NCID, FINT2CINT, FINT2CINT)
00026 
00027 FCALLSCFUN5(NF_INT, nc_def_transform, NF_DEF_TRANSFORM, nf_def_transform,
00028             NCID, STRING, STRING, STRING, PVARID)
00029 
00030 FCALLSCFUN3(NF_INT, nc_assign_transform, NF_ASSIGN_TRANSFORM, nf_assign_transform,
00031             NCID, FINT2CINT, FINT2CINT)
00032 
00033