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

00001 /*
00002 This file is part of netcdf-4, a netCDF-like interface for HDF5, or a
00003 HDF5 backend for netCDF, depending on your point of view.
00004 
00005 This file provides the fortran functions for the new functions added
00006 to the API as part of netCDF-4. This file is only compiled for
00007 netCDF-4 builds.
00008 
00009 Copyright 2005, University Corporation for Atmospheric Research. See
00010 COPYRIGHT file for copying and redistribution conditions.
00011 
00012 $Id: fort-nc4.c,v 1.2 2005/12/13 01:25:38 ed Exp $
00013 */
00014 
00015 #include "netcdf.h"
00016 #include "ncfortran.h"
00017 
00018 FCALLSCFUN5(NF_INT, nc_create_par, NF_CREATE_PAR, nf_create_par,
00019             STRING, FINT2CINT, FINT2CINT, FINT2CINT, PCINT2FINT)
00020 
00021 FCALLSCFUN5(NF_INT, nc_open_par, NF_OPEN_PAR, nf_open_par,
00022             STRING, FINT2CINT, FINT2CINT, FINT2CINT, PCINT2FINT)
00023 
00024 FCALLSCFUN3(NF_INT, nc_var_par_access, NF_VAR_PAR_ACCESS, nf_var_par_access,
00025             FINT2CINT, FINT2CINT, FINT2CINT)
00026 
00027 FCALLSCFUN3(NF_INT, nc_inq_ncid, NF_INQ_NCID, nf_inq_ncid,
00028             FINT2CINT, STRING, PCINT2FINT)
00029 
00030 FCALLSCFUN3(NF_INT, nc_inq_grps, NF_INQ_GRPS, nf_inq_grps,
00031             FINT2CINT, PCINT2FINT, PCINT2FINT)
00032 
00033 FCALLSCFUN2(NF_INT, nc_inq_grpname, NF_INQ_GRPNAME, nf_inq_grpname,
00034             FINT2CINT, STRING)
00035 
00036 FCALLSCFUN3(NF_INT, nc_inq_varids, NF_INQ_VARIDS, nf_inq_varids,
00037             FINT2CINT, PCINT2FINT, PCINT2FINT)
00038 
00039 FCALLSCFUN3(NF_INT, nc_inq_dimids, NF_INQ_DIMIDS, nf_inq_dimids,
00040             FINT2CINT, PCINT2FINT, PCINT2FINT)
00041 
00042 FCALLSCFUN3(NF_INT, nc_inq_typeids, NF_INQ_TYPEIDS, nf_inq_typeids,
00043             FINT2CINT, PCINT2FINT, PCINT2FINT)
00044 
00045 FCALLSCFUN3(NF_INT, nc_def_grp, NF_DEF_GRP, nf_def_grp,
00046             FINT2CINT, STRING, PCINT2FINT)
00047 
00048 FCALLSCFUN4(NF_INT, nc_def_compound, NF_DEF_COMPOUND, nf_def_compound,
00049             FINT2CINT, FINT2CSIZET, STRING, PCINT2FINT)
00050 
00051 FCALLSCFUN5(NF_INT, nc_insert_compound, NF_INSERT_COMPOUND, nf_insert_compound,
00052             FINT2CINT, FINT2CINT, STRING, FINT2CSIZET, FINT2CINT)
00053 
00054 FCALLSCFUN7(NF_INT, nc_insert_array_compound, NF_INSERT_ARRAY_COMPOUND, 
00055             nf_insert_array_compound,
00056             FINT2CINT, FINT2CINT, STRING, FINT2CSIZET, 
00057             FINT2CINT, FINT2CINT, PCINT2FINT)
00058 
00059 FCALLSCFUN4(NF_INT, nc_inq_type, NF_INQ_TYPE, nf_inq_type,
00060             FINT2CINT, FINT2CINT, STRING, PSIZET)
00061 
00062 FCALLSCFUN5(NF_INT, nc_inq_compound, NF_INQ_COMPOUND, nf_inq_compound,
00063             FINT2CINT, FINT2CINT, STRING, PSIZET, PSIZET)
00064 
00065 FCALLSCFUN3(NF_INT, nc_inq_compound_name, NF_COMPOUND_NAME, nf_compound_name,
00066             FINT2CINT, FINT2CINT, STRING)
00067 
00068 FCALLSCFUN3(NF_INT, nc_inq_compound_size, NF_COMPOUND_SIZE, nf_compound_size,
00069             FINT2CINT, FINT2CINT, PSIZET)
00070 
00071 FCALLSCFUN3(NF_INT, nc_inq_compound_nfields, NF_COMPOUND_NFIELDS, 
00072             nf_compound_nfields,
00073             FINT2CINT, FINT2CINT, PSIZET)
00074 
00075 FCALLSCFUN8(NF_INT, nc_inq_compound_field, NF_INQ_COMPOUND_FIELD, 
00076             nf_inq_compound_field,
00077             FINT2CINT, FINT2CINT, FINT2CINT, STRING, PSIZET, PCINT2FINT, 
00078             PCINT2FINT, PCINT2FINT)
00079 
00080 FCALLSCFUN4(NF_INT, nc_inq_compound_fieldname, NF_COMPOUND_FIELDNAME, 
00081             nf_compound_fieldname,
00082             FINT2CINT, FINT2CINT, FINT2CINT, STRING)
00083 
00084 FCALLSCFUN4(NF_INT, nc_inq_compound_fieldindex, NF_COMPOUND_FIELDINDEX, 
00085             nf_compound_fieldindex,
00086             FINT2CINT, FINT2CINT, STRING, PCINT2FINT)
00087 
00088 FCALLSCFUN4(NF_INT, nc_inq_compound_fieldtype, NF_COMPOUND_FIELDTYPE, 
00089             nf_compound_fieldtype,
00090             FINT2CINT, FINT2CINT, FINT2CINT, PCINT2FINT)
00091 
00092 FCALLSCFUN4(NF_INT, nc_inq_compound_fieldndims, NF_COMPOUND_FIELDNDIMS, 
00093             nf_compound_fieldndims,
00094             FINT2CINT, FINT2CINT, FINT2CINT, PCINT2FINT)
00095 
00096 FCALLSCFUN4(NF_INT, nc_inq_compound_fielddim_sizes, NF_COMPOUND_FIELDDIM_SIZES, 
00097             nf_compound_fielddim_sizes,
00098             FINT2CINT, FINT2CINT, FINT2CINT, PCINT2FINT)
00099 
00100 FCALLSCFUN4(NF_INT, nc_def_vlen, NF_DEF_VLEN, nf_def_vlen,
00101             FINT2CINT, STRING, FINT2CINT, PCINT2FINT)
00102 
00103 FCALLSCFUN5(NF_INT, nc_inq_vlen, NF_INQ_VLEN, nf_inq_vlen,
00104             FINT2CINT, FINT2CINT, STRING, PSIZET, PCINT2FINT)
00105 
00106 FCALLSCFUN7(NF_INT, nc_inq_user_type, NF_INQ_USER_TYPE, nf_inq_user_type,
00107             FINT2CINT, FINT2CINT, STRING, PSIZET, PCINT2FINT, PSIZET, PCINT2FINT)
00108 
00109 FCALLSCFUN4(NF_INT, nc_def_enum, NF_DEF_ENUM, nf_def_enum,
00110             FINT2CINT, FINT2CINT, STRING, PCINT2FINT)
00111 
00112 FCALLSCFUN4(NF_INT, nc_insert_enum, NF_INSERT_ENUM, nf_insert_enum,
00113             FINT2CINT, FINT2CINT, STRING, PVOID)
00114 
00115 FCALLSCFUN6(NF_INT, nc_inq_enum, NF_INQ_ENUM, nf_inq_enum,
00116             FINT2CINT, FINT2CINT, STRING, PCINT2FINT, PSIZET, PSIZET)
00117 
00118 FCALLSCFUN5(NF_INT, nc_inq_enum_member, NF_INQ_ENUM_MEMBER, nf_inq_enum_member,
00119             FINT2CINT, FINT2CINT, FINT2CINT, STRING, PVOID)
00120 
00121 FCALLSCFUN4(NF_INT, nc_def_opaque, NF_DEF_OPAQUE, nf_def_opaque,
00122             FINT2CINT, FINT2CSIZET, STRING, PCINT2FINT)
00123 
00124 FCALLSCFUN4(NF_INT, nc_inq_opaque, NF_INQ_OPAQUE, nf_inq_opaque,
00125             FINT2CINT, FINT2CSIZET, STRING, PSIZET)
00126 
00127 FCALLSCFUN7(NF_INT, nc_def_var_full, NF_DEF_VAR_FULL, nf_def_var_full,
00128             FINT2CINT, STRING, FINT2CINT, FINT2CINT, PCINT2FINT, PCINT2FINT, 
00129             PVOID)
00130 
00131 
00132 
00133