added function cdf_put_att_float()

src/cdf_int.c

@@ -721,6 +721,20 @@ void cdf_put_att_int(int ncid, int varid, const char *name, nc_type xtype,
 }
 
 
+void cdf_put_att_float(int ncid, int varid, const char *name, nc_type xtype,
+                       size_t len, const float *dp)
+{
+  int status;
+
+  status = nc_put_att_float(ncid, varid, name, xtype, len, dp);
+
+  if ( CDF_Debug || status != NC_NOERR )
+    Message("ncid = %d varid = %d att = %s val = %g", ncid, varid, name, *dp);
+
+  if ( status != NC_NOERR ) Error("%s", nc_strerror(status));
+}
+
+
 void cdf_put_att_double(int ncid, int varid, const char *name, nc_type xtype,
 			size_t len, const double *dp)
 {

src/cdf_int.h

@@ -68,6 +68,7 @@ void cdf_put_vara_float(int ncid, int varid, const size_t start[], const size_t
 
 void cdf_put_att_text(int ncid, int varid, const char *name, size_t len, const char *tp);
 void cdf_put_att_int(int ncid, int varid, const char *name, nc_type xtype, size_t len, const int *ip);
+void cdf_put_att_float(int ncid, int varid, const char *name, nc_type xtype, size_t len, const float *dp);
 void cdf_put_att_double(int ncid, int varid, const char *name, nc_type xtype, size_t len, const double *dp);
 
 void cdf_get_att_string(int ncid, int varid, const char *name, char **tp);