Changeset 7054 for trunk/Ohana/src/libfits/matrix/F_divide_M.c

Timestamp:

May 3, 2006, 12:01:09 PM (20 years ago)

Author:

eugene

Message:

converted fits_ to gfits_

File:

• trunk/Ohana/src/libfits/matrix/F_divide_M.c (modified) (2 diffs)

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

@@ -3 +3 @@
 
 /********************* fits divide matrix ***********************************/
-int fits_divide_matrix (Matrix *M1, Matrix *M2, Matrix *M3) {
+int gfits_divide_matrix (Matrix *M1, Matrix *M2, Matrix *M3) {
 
   int i,j;
@@ -14 +14 @@
   for (i = 0; i < M1[0].Naxis[0]; i++) {
     for (j = 0; j < M1[0].Naxis[1]; j++) {
-      value = fits_get_matrix_value (M1, i, j);
-      val2  = fits_get_matrix_value (M2, i, j);
+      value = gfits_get_matrix_value (M1, i, j);
+      val2  = gfits_get_matrix_value (M2, i, j);
       if (val2 != 0) 
         value = value / val2;
       else
         value = 0.0;
-      fits_set_matrix_value (M3, i, j, value);
+      gfits_set_matrix_value (M3, i, j, value);
     }
   }