nco: ncdf4a13/fortran/fort-vario.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 an entire variable from a FORTRAN CHARACTER*(*) variable.
00009  */
00010 FCALLSCFUN3(NF_INT, nc_put_var_text, NF_PUT_VAR_TEXT, nf_put_var_text,
00011             NCID, VARID, CBUF)
00012 
00013 
00014 /*
00015  * Read an entire variable into a FORTRAN CHARACTER*(*) variable.
00016  */
00017 FCALLSCFUN3(NF_INT, nc_get_var_text, NF_GET_VAR_TEXT, nf_get_var_text,
00018             NCID, VARID, CBUF)
00019 
00020 
00021 /*
00022  * Write an entire variable from a FORTRAN INTEGER*1 variable.
00023  */
00024 #if NF_INT1_IS_C_SIGNED_CHAR
00025 FCALLSCFUN3(NF_INT, nc_put_var_schar, NF_PUT_VAR_INT1, nf_put_var_int1,
00026             NCID, VARID, INT1VAR)
00027 #elif NF_INT1_IS_C_SHORT
00028 FCALLSCFUN3(NF_INT, nc_put_var_short, NF_PUT_VAR_INT1, nf_put_var_int1,
00029             NCID, VARID, INT1VAR)
00030 #elif NF_INT1_IS_C_INT
00031 FCALLSCFUN3(NF_INT, nc_put_var_int, NF_PUT_VAR_INT1, nf_put_var_int1,
00032             NCID, VARID, INT1VAR)
00033 #elif NF_INT1_IS_C_LONG
00034 FCALLSCFUN3(NF_INT, nc_put_var_long, NF_PUT_VAR_INT1, nf_put_var_int1,
00035             NCID, VARID, INT1VAR)
00036 #endif
00037 
00038 
00039 /*
00040  * Read an entire variable into a FORTRAN INTEGER*1 variable.
00041  */
00042 #if NF_INT1_IS_C_SIGNED_CHAR
00043 FCALLSCFUN3(NF_INT, nc_get_var_schar, NF_GET_VAR_INT1, nf_get_var_int1,
00044             NCID, VARID, PINT1VAR)
00045 #elif NF_INT1_IS_C_SHORT
00046 FCALLSCFUN3(NF_INT, nc_get_var_short, NF_GET_VAR_INT1, nf_get_var_int1,
00047             NCID, VARID, PINT1VAR)
00048 #elif NF_INT1_IS_C_INT
00049 FCALLSCFUN3(NF_INT, nc_get_var_int, NF_GET_VAR_INT1, nf_get_var_int1,
00050             NCID, VARID, PINT1VAR)
00051 #elif NF_INT1_IS_C_LONG
00052 FCALLSCFUN3(NF_INT, nc_get_var_long, NF_GET_VAR_INT1, nf_get_var_int1,
00053             NCID, VARID, PINT1VAR)
00054 #endif
00055 
00056 
00057 /*
00058  * Write an entire variable from a FORTRAN INTEGER*2 variable.
00059  */
00060 #if NF_INT2_IS_C_SHORT
00061 FCALLSCFUN3(NF_INT, nc_put_var_short, NF_PUT_VAR_INT2, nf_put_var_int2,
00062             NCID, VARID, INT2VAR)
00063 #elif NF_INT2_IS_C_INT
00064 FCALLSCFUN3(NF_INT, nc_put_var_int, NF_PUT_VAR_INT2, nf_put_var_int2,
00065             NCID, VARID, INT2VAR)
00066 #elif NF_INT2_IS_C_LONG
00067 FCALLSCFUN3(NF_INT, nc_put_var_long, NF_PUT_VAR_INT2, nf_put_var_int2,
00068             NCID, VARID, INT2VAR)
00069 #endif
00070 
00071 
00072 /*
00073  * Read an entire variable into a FORTRAN INTEGER*2 variable.
00074  */
00075 #if NF_INT2_IS_C_SHORT
00076 FCALLSCFUN3(NF_INT, nc_get_var_short, NF_GET_VAR_INT2, nf_get_var_int2,
00077             NCID, VARID, PINT2VAR)
00078 #elif NF_INT2_IS_C_INT
00079 FCALLSCFUN3(NF_INT, nc_get_var_int, NF_GET_VAR_INT2, nf_get_var_int2,
00080             NCID, VARID, PINT2VAR)
00081 #elif NF_INT2_IS_C_LONG
00082 FCALLSCFUN3(NF_INT, nc_get_var_long, NF_GET_VAR_INT2, nf_get_var_int2,
00083             NCID, VARID, PINT2VAR)
00084 #endif
00085 
00086 
00087 /*
00088  * Write an entire variable from a FORTRAN INTEGER variable.
00089  */
00090 #if NF_INT_IS_C_INT
00091 FCALLSCFUN3(NF_INT, nc_put_var_int, NF_PUT_VAR_INT, nf_put_var_int,
00092             NCID, VARID, INTVAR)
00093 #elif NF_INT_IS_C_LONG
00094 FCALLSCFUN3(NF_INT, nc_put_var_long, NF_PUT_VAR_INT, nf_put_var_int,
00095             NCID, VARID, INTVAR)
00096 #endif
00097 
00098 
00099 /*
00100  * Read an entire variable into a FORTRAN INTEGER variable.
00101  */
00102 #if NF_INT_IS_C_INT
00103 FCALLSCFUN3(NF_INT, nc_get_var_int, NF_GET_VAR_INT, nf_get_var_int,
00104             NCID, VARID, PINTVAR)
00105 #elif NF_INT_IS_C_LONG
00106 FCALLSCFUN3(NF_INT, nc_get_var_long, NF_GET_VAR_INT, nf_get_var_int,
00107             NCID, VARID, PINTVAR)
00108 #endif
00109 
00110 
00111 /*
00112  * Write an entire variable from a FORTRAN REAL variable.
00113  */
00114 #if NF_REAL_IS_C_DOUBLE
00115 FCALLSCFUN3(NF_INT, nc_put_var_double, NF_PUT_VAR_REAL, nf_put_var_real,
00116             NCID, VARID, DOUBLEVAR)
00117 #else
00118 FCALLSCFUN3(NF_INT, nc_put_var_float, NF_PUT_VAR_REAL, nf_put_var_real,
00119             NCID, VARID, REALVAR)
00120 #endif
00121 
00122 
00123 /*
00124  * Read an entire variable into a FORTRAN REAL variable.
00125  */
00126 #if NF_REAL_IS_C_DOUBLE
00127 FCALLSCFUN3(NF_INT, nc_get_var_double, NF_GET_VAR_REAL, nf_get_var_real,
00128             NCID, VARID, PDOUBLEVAR)
00129 #else
00130 FCALLSCFUN3(NF_INT, nc_get_var_float, NF_GET_VAR_REAL, nf_get_var_real,
00131             NCID, VARID, PREALVAR)
00132 #endif
00133 
00134 
00135 /*
00136  * Write an entire variable from a FORTRAN DOUBLEPRECISION variable.
00137  */
00138 FCALLSCFUN3(NF_INT, nc_put_var_double, NF_PUT_VAR_DOUBLE, nf_put_var_double,
00139             NCID, VARID, DOUBLEVAR)
00140 
00141 
00142 /*
00143  * Read an entire variable into a FORTRAN DOUBLEPRECISION variable.
00144  */
00145 FCALLSCFUN3(NF_INT, nc_get_var_double, NF_GET_VAR_DOUBLE, nf_get_var_double,
00146             NCID, VARID, PDOUBLEVAR)