nco: ncdf4a13/fortran/fort-var1io.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 a single value from a FORTRAN CHARACTER*(*) variable (the
00009  * `single value' is the whole string).
00010  */
00011 FCALLSCFUN4(NF_INT, nc_put_var1_text, NF_PUT_VAR1_TEXT, nf_put_var1_text,
00012             NCID, VARID, COORDS, CBUF)
00013 
00014 
00015 /*
00016  * Read a single value into a FORTRAN CHARACTER*(*) variable (the
00017  * `single value' is the whole string).
00018  */
00019 FCALLSCFUN4(NF_INT, nc_get_var1_text, NF_GET_VAR1_TEXT, nf_get_var1_text,
00020             NCID, VARID, COORDS, CBUF)
00021 
00022 
00023 /*
00024  * Write a single value from a FORTRAN INTEGER*1 variable.
00025  */
00026 #if NF_INT1_IS_C_SIGNED_CHAR
00027 FCALLSCFUN4(NF_INT, nc_put_var1_schar, NF_PUT_VAR1_INT1, nf_put_var1_int1,
00028             NCID, VARID, COORDS, INT1VAR)
00029 #elif NF_INT1_IS_C_SHORT
00030 FCALLSCFUN4(NF_INT, nc_put_var1_short, NF_PUT_VAR1_INT1, nf_put_var1_int1,
00031             NCID, VARID, COORDS, INT1VAR)
00032 #elif NF_INT1_IS_C_INT
00033 FCALLSCFUN4(NF_INT, nc_put_var1_int, NF_PUT_VAR1_INT1, nf_put_var1_int1,
00034             NCID, VARID, COORDS, INT1VAR)
00035 #elif NF_INT1_IS_C_LONG
00036 FCALLSCFUN4(NF_INT, nc_put_var1_long, NF_PUT_VAR1_INT1, nf_put_var1_int1,
00037             NCID, VARID, COORDS, INT1VAR)
00038 #endif
00039 
00040 
00041 /*
00042  * Read a single value into a FORTRAN INTEGER*1 variable.
00043  */
00044 #if NF_INT1_IS_C_SIGNED_CHAR
00045 FCALLSCFUN4(NF_INT, nc_get_var1_schar, NF_GET_VAR1_INT1, nf_get_var1_int1,
00046             NCID, VARID, COORDS, PINT1VAR)
00047 #elif NF_INT1_IS_C_SHORT
00048 FCALLSCFUN4(NF_INT, nc_get_var1_short, NF_GET_VAR1_INT1, nf_get_var1_int1,
00049             NCID, VARID, COORDS, PINT1VAR)
00050 #elif NF_INT1_IS_C_INT
00051 FCALLSCFUN4(NF_INT, nc_get_var1_int, NF_GET_VAR1_INT1, nf_get_var1_int1,
00052             NCID, VARID, COORDS, PINT1VAR)
00053 #elif NF_INT1_IS_C_LONG
00054 FCALLSCFUN4(NF_INT, nc_get_var1_long, NF_GET_VAR1_INT1, nf_get_var1_int1,
00055             NCID, VARID, COORDS, PINT1VAR)
00056 #endif
00057 
00058 
00059 /*
00060  * Write a single value from a FORTRAN INTEGER*2 variable.
00061  */
00062 #if NF_INT2_IS_C_SHORT
00063 FCALLSCFUN4(NF_INT, nc_put_var1_short, NF_PUT_VAR1_INT2, nf_put_var1_int2,
00064             NCID, VARID, COORDS, INT2VAR)
00065 #elif NF_INT2_IS_C_INT
00066 FCALLSCFUN4(NF_INT, nc_put_var1_int, NF_PUT_VAR1_INT2, nf_put_var1_int2,
00067             NCID, VARID, COORDS, INT2VAR)
00068 #elif NF_INT2_IS_C_LONG
00069 FCALLSCFUN4(NF_INT, nc_put_var1_long, NF_PUT_VAR1_INT2, nf_put_var1_int2,
00070             NCID, VARID, COORDS, INT2VAR)
00071 #endif
00072 
00073 
00074 /*
00075  * Read a single value into a FORTRAN INTEGER*2 variable.
00076  */
00077 #if NF_INT2_IS_C_SHORT
00078 FCALLSCFUN4(NF_INT, nc_get_var1_short, NF_GET_VAR1_INT2, nf_get_var1_int2,
00079             NCID, VARID, COORDS, PINT2VAR)
00080 #elif NF_INT2_IS_C_INT
00081 FCALLSCFUN4(NF_INT, nc_get_var1_int, NF_GET_VAR1_INT2, nf_get_var1_int2,
00082             NCID, VARID, COORDS, PINT2VAR)
00083 #elif NF_INT2_IS_C_LONG
00084 FCALLSCFUN4(NF_INT, nc_get_var1_long, NF_GET_VAR1_INT2, nf_get_var1_int2,
00085             NCID, VARID, COORDS, PINT2VAR)
00086 #endif
00087 
00088 
00089 /*
00090  * Write a single value from a FORTRAN INTEGER variable.
00091  */
00092 #if NF_INT_IS_C_INT
00093 FCALLSCFUN4(NF_INT, nc_put_var1_int, NF_PUT_VAR1_INT, nf_put_var1_int,
00094             NCID, VARID, COORDS, INTVAR)
00095 #elif NF_INT_IS_C_LONG
00096 FCALLSCFUN4(NF_INT, nc_put_var1_long, NF_PUT_VAR1_INT, nf_put_var1_int,
00097             NCID, VARID, COORDS, INTVAR)
00098 #endif
00099 
00100 
00101 /*
00102  * Read a single value into a FORTRAN INTEGER variable.
00103  */
00104 #if NF_INT_IS_C_INT
00105 FCALLSCFUN4(NF_INT, nc_get_var1_int, NF_GET_VAR1_INT, nf_get_var1_int,
00106             NCID, VARID, COORDS, PINTVAR)
00107 #elif NF_INT_IS_C_LONG
00108 FCALLSCFUN4(NF_INT, nc_get_var1_long, NF_GET_VAR1_INT, nf_get_var1_int,
00109             NCID, VARID, COORDS, PINTVAR)
00110 #endif
00111 
00112 
00113 /*
00114  * Write a single value from a FORTRAN REAL variable.
00115  */
00116 #if NF_REAL_IS_C_DOUBLE
00117 FCALLSCFUN4(NF_INT, nc_put_var1_double, NF_PUT_VAR1_REAL, nf_put_var1_real,
00118             NCID, VARID, COORDS, DOUBLEVAR)
00119 #else
00120 FCALLSCFUN4(NF_INT, nc_put_var1_float, NF_PUT_VAR1_REAL, nf_put_var1_real,
00121             NCID, VARID, COORDS, REALVAR)
00122 #endif
00123 
00124 
00125 /*
00126  * Read a single value into a FORTRAN REAL variable.
00127  */
00128 #if NF_REAL_IS_C_DOUBLE
00129 FCALLSCFUN4(NF_INT, nc_get_var1_double, NF_GET_VAR1_REAL, nf_get_var1_real,
00130             NCID, VARID, COORDS, PDOUBLEVAR)
00131 #else
00132 FCALLSCFUN4(NF_INT, nc_get_var1_float, NF_GET_VAR1_REAL, nf_get_var1_real,
00133             NCID, VARID, COORDS, PREALVAR)
00134 #endif
00135 
00136 
00137 /*
00138  * Write a single value from a FORTRAN DOUBLEPRECISION variable.
00139  */
00140 FCALLSCFUN4(NF_INT, nc_put_var1_double, NF_PUT_VAR1_DOUBLE, nf_put_var1_double,
00141             NCID, VARID, COORDS, DOUBLEVAR)
00142 
00143 
00144 /*
00145  * Read a single value into a FORTRAN DOUBLEPRECISION variable.
00146  */
00147 FCALLSCFUN4(NF_INT, nc_get_var1_double, NF_GET_VAR1_DOUBLE, nf_get_var1_double,
00148             NCID, VARID, COORDS, PDOUBLEVAR)