Changeset 35756 for trunk/Ohana/src/libfits/matrix/F_create_M.c

Timestamp:

Jul 3, 2013, 2:08:28 PM (13 years ago)

Author:

eugene

Message:

add some init functions for tables and matrices

File:

• trunk/Ohana/src/libfits/matrix/F_create_M.c (modified) (1 diff)

trunk/Ohana/src/libfits/matrix/F_create_M.c

@@ -25 +25 @@
 }
 
+/*********************** fits create matrix *******************************/
+int gfits_init_matrix (Matrix *matrix) {
+
+  int i;
+
+  matrix[0].bitpix = 8;
+  matrix[0].unsign = FALSE;
+  matrix[0].bscale = 1.0;
+  matrix[0].bzero  = 0.0;
+  matrix[0].Naxes  = 0;
+  for (i = 0; i < FT_MAX_NAXES; i++) matrix[0].Naxis[i] = 0;
+
+  matrix[0].buffer = NULL;
+  matrix[0].datasize = 0;
+  return (TRUE);
+
+}
+
 // XXX free buffer if non-null: need to double check for existing frees