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

00001 #include "netcdf.h"
00002 #include "nfconfig.inc"
00003 #include "ncfortran.h"
00004 #include "fort-lib.h"
00005 
00006 
00007 /*
00008  * Write values from a FORTRAN CHARACTER*(*) variable.
00009  */
00010 FCALLSCFUN6(NF_INT, nc_put_vars_text, NF_PUT_VARS_TEXT, nf_put_vars_text,
00011             NCID, VARID, COORDS, COUNTS, STRIDES, CBUF)
00012 
00013 
00014 /*
00015  * Read values into a FORTRAN CHARACTER*(*) variable.
00016  */
00017 FCALLSCFUN6(NF_INT, nc_get_vars_text, NF_GET_VARS_TEXT, nf_get_vars_text,
00018             NCID, VARID, COORDS, COUNTS, STRIDES, CBUF)
00019 
00020 
00021 /*
00022  * Write values from a FORTRAN INTEGER*1 variable array.
00023  */
00024 #if NF_INT1_IS_C_SIGNED_CHAR
00025 FCALLSCFUN6(NF_INT, nc_put_vars_schar, NF_PUT_VARS_INT1, nf_put_vars_int1,
00026             NCID, VARID, COORDS, COUNTS, STRIDES, INT1VARV)
00027 #elif NF_INT1_IS_C_SHORT
00028 FCALLSCFUN6(NF_INT, nc_put_vars_short, NF_PUT_VARS_INT1, nf_put_vars_int1,
00029             NCID, VARID, COORDS, COUNTS, STRIDES, INT1VARV)
00030 #elif NF_INT1_IS_C_INT
00031 FCALLSCFUN6(NF_INT, nc_put_vars_int, NF_PUT_VARS_INT1, nf_put_vars_int1,
00032             NCID, VARID, COORDS, COUNTS, STRIDES, INT1VARV)
00033 #elif NF_INT1_IS_C_LONG
00034 FCALLSCFUN6(NF_INT, nc_put_vars_long, NF_PUT_VARS_INT1, nf_put_vars_int1,
00035             NCID, VARID, COORDS, COUNTS, STRIDES, INT1VARV)
00036 #endif
00037 
00038 
00039 /*
00040  * Read values into a FORTRAN INTEGER*1 variable array.
00041  */
00042 #if NF_INT1_IS_C_SIGNED_CHAR
00043 FCALLSCFUN6(NF_INT, nc_get_vars_schar, NF_GET_VARS_INT1, nf_get_vars_int1,
00044             NCID, VARID, COORDS, COUNTS, STRIDES, PINT1VARV)
00045 #elif NF_INT1_IS_C_SHORT
00046 FCALLSCFUN6(NF_INT, nc_get_vars_short, NF_GET_VARS_INT1, nf_get_vars_int1,
00047             NCID, VARID, COORDS, COUNTS, STRIDES, PINT1VARV)
00048 #elif NF_INT1_IS_C_INT
00049 FCALLSCFUN6(NF_INT, nc_get_vars_int, NF_GET_VARS_INT1, nf_get_vars_int1,
00050             NCID, VARID, COORDS, COUNTS, STRIDES, PINT1VARV)
00051 #elif NF_INT1_IS_C_LONG
00052 FCALLSCFUN6(NF_INT, nc_get_vars_long, NF_GET_VARS_INT1, nf_get_vars_int1,
00053             NCID, VARID, COORDS, COUNTS, STRIDES, PINT1VARV)
00054 #endif
00055 
00056 
00057 /*
00058  * Write values from a FORTRAN INTEGER*2 variable array.
00059  */
00060 #if NF_INT2_IS_C_SHORT
00061 FCALLSCFUN6(NF_INT, nc_put_vars_short, NF_PUT_VARS_INT2, nf_put_vars_int2,
00062             NCID, VARID, COORDS, COUNTS, STRIDES, INT2VARV)
00063 #elif NF_INT2_IS_C_INT
00064 FCALLSCFUN6(NF_INT, nc_put_vars_int, NF_PUT_VARS_INT2, nf_put_vars_int2,
00065             NCID, VARID, COORDS, COUNTS, STRIDES, INT2VARV)
00066 #elif NF_INT2_IS_C_LONG
00067 FCALLSCFUN6(NF_INT, nc_put_vars_long, NF_PUT_VARS_INT2, nf_put_vars_int2,
00068             NCID, VARID, COORDS, COUNTS, STRIDES, INT2VARV)
00069 #endif
00070 
00071 
00072 /*
00073  * Read values into a FORTRAN INTEGER*2 variable array.
00074  */
00075 #if NF_INT2_IS_C_SHORT
00076 FCALLSCFUN6(NF_INT, nc_get_vars_short, NF_GET_VARS_INT2, nf_get_vars_int2,
00077             NCID, VARID, COORDS, COUNTS, STRIDES, PINT2VARV)
00078 #elif NF_INT2_IS_C_INT
00079 FCALLSCFUN6(NF_INT, nc_get_vars_int, NF_GET_VARS_INT2, nf_get_vars_int2,
00080             NCID, VARID, COORDS, COUNTS, STRIDES, PINT2VARV)
00081 #elif NF_INT2_IS_C_LONG
00082 FCALLSCFUN6(NF_INT, nc_get_vars_long, NF_GET_VARS_INT2, nf_get_vars_int2,
00083             NCID, VARID, COORDS, COUNTS, STRIDES, PINT2VARV)
00084 #endif
00085 
00086 
00087 /*
00088  * Write values from a FORTRAN INTEGER variable array.
00089  */
00090 #if NF_INT_IS_C_INT
00091 FCALLSCFUN6(NF_INT, nc_put_vars_int, NF_PUT_VARS_INT, nf_put_vars_int,
00092             NCID, VARID, COORDS, COUNTS, STRIDES, INTVARV)
00093 #elif NF_INT_IS_C_LONG
00094 FCALLSCFUN6(NF_INT, nc_put_vars_long, NF_PUT_VARS_INT, nf_put_vars_int,
00095             NCID, VARID, COORDS, COUNTS, STRIDES, INTVARV)
00096 #endif
00097 
00098 
00099 /*
00100  * Read values into a FORTRAN INTEGER variable array.
00101  */
00102 #if NF_INT_IS_C_INT
00103 FCALLSCFUN6(NF_INT, nc_get_vars_int, NF_GET_VARS_INT, nf_get_vars_int,
00104             NCID, VARID, COORDS, COUNTS, STRIDES, PINTVARV)
00105 #elif NF_INT_IS_C_LONG
00106 FCALLSCFUN6(NF_INT, nc_get_vars_long, NF_GET_VARS_INT, nf_get_vars_int,
00107             NCID, VARID, COORDS, COUNTS, STRIDES, PINTVARV)
00108 #endif
00109 
00110 
00111 /*
00112  * Write values from a FORTRAN REAL variable array.
00113  */
00114 #if NF_REAL_IS_C_DOUBLE
00115 FCALLSCFUN6(NF_INT, nc_put_vars_double, NF_PUT_VARS_REAL, nf_put_vars_real,
00116             NCID, VARID, COORDS, COUNTS, STRIDES, DOUBLEVARV)
00117 #else
00118 FCALLSCFUN6(NF_INT, nc_put_vars_float, NF_PUT_VARS_REAL, nf_put_vars_real,
00119             NCID, VARID, COORDS, COUNTS, STRIDES, REALVARV)
00120 #endif
00121 
00122 
00123 /*
00124  * Read values into a FORTRAN REAL variable array.
00125  */
00126 #if NF_REAL_IS_C_DOUBLE
00127 FCALLSCFUN6(NF_INT, nc_get_vars_double, NF_GET_VARS_REAL, nf_get_vars_real,
00128             NCID, VARID, COORDS, COUNTS, STRIDES, PDOUBLEVARV)
00129 #else
00130 FCALLSCFUN6(NF_INT, nc_get_vars_float, NF_GET_VARS_REAL, nf_get_vars_real,
00131             NCID, VARID, COORDS, COUNTS, STRIDES, PREALVARV)
00132 #endif
00133 
00134 
00135 /*
00136  * Write values from a FORTRAN DOUBLEPRECISION variable array.
00137  */
00138 FCALLSCFUN6(NF_INT, nc_put_vars_double, NF_PUT_VARS_DOUBLE, nf_put_vars_double,
00139             NCID, VARID, COORDS, COUNTS, STRIDES, DOUBLEVARV)
00140 
00141 
00142 /*
00143  * Read values into a FORTRAN DOUBLEPRECISION variable array.
00144  */
00145 FCALLSCFUN6(NF_INT, nc_get_vars_double, NF_GET_VARS_DOUBLE, nf_get_vars_double,
00146             NCID, VARID, COORDS, COUNTS, STRIDES, PDOUBLEVARV)