Changeset 7054 for trunk/Ohana/src/libfits/matrix/F_multiply_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_multiply_M.c (modified) (2 diffs)

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

@@ -3 +3 @@
 
 /******************* fits multiply matrix ***********************************/
-int fits_multiply_matrix (Matrix *M1, Matrix *M2, Matrix *M3) {
+int gfits_multiply_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);
-      value *= fits_get_matrix_value (M2, i, j);
-      fits_set_matrix_value (M3, i, j, value);
+      value = gfits_get_matrix_value (M1, i, j);
+      value *= gfits_get_matrix_value (M2, i, j);
+      gfits_set_matrix_value (M3, i, j, value);
     }
   }