Index: /trunk/Ohana/src/libfits/header/F_copy_H.c
===================================================================
--- /trunk/Ohana/src/libfits/header/F_copy_H.c	(revision 4830)
+++ /trunk/Ohana/src/libfits/header/F_copy_H.c	(revision 4831)
@@ -2,24 +2,22 @@
 
 /*********************** fits copy header ***********************************/
-int fits_copy_header (header1, header2) 
-Header *header1, *header2;
-{
+int fits_copy_header (Header *in, Header *out) {
 
   int i;
 
-  header2[0].simple = header1[0].simple;
-  header2[0].bitpix = header1[0].bitpix;
-  header2[0].extend = header1[0].extend;
-  header2[0].unsign = header1[0].unsign;
-  header2[0].size   = header1[0].size;
-  header2[0].bscale = header1[0].bscale;
-  header2[0].bzero  = header1[0].bzero;
-  header2[0].Naxes  = header1[0].Naxes;
+  out[0].simple = in[0].simple;
+  out[0].bitpix = in[0].bitpix;
+  out[0].extend = in[0].extend;
+  out[0].unsign = in[0].unsign;
+  out[0].size   = in[0].size;
+  out[0].bscale = in[0].bscale;
+  out[0].bzero  = in[0].bzero;
+  out[0].Naxes  = in[0].Naxes;
   for (i = 0; i < FT_MAX_NAXES; i++) 
-    header2[0].Naxis[i] = header1[0].Naxis[i];
+    out[0].Naxis[i] = in[0].Naxis[i];
 
-  ALLOCATE (header2[0].buffer, char, header2[0].size);
+  ALLOCATE (out[0].buffer, char, out[0].size);
   
-  strncpy (header2[0].buffer, header1[0].buffer, header2[0].size);
+  strncpy (out[0].buffer, in[0].buffer, out[0].size);
 
   return (TRUE);
Index: /trunk/Ohana/src/libfits/matrix/F_copy_M.c
===================================================================
--- /trunk/Ohana/src/libfits/matrix/F_copy_M.c	(revision 4830)
+++ /trunk/Ohana/src/libfits/matrix/F_copy_M.c	(revision 4831)
@@ -2,7 +2,5 @@
 
 /*********************** fits copy header ***********************************/
-int fits_copy_matrix (matrix1, matrix2) 
-Matrix *matrix1, *matrix2;
-{
+int fits_copy_matrix (Matrix *matrix1, Matrix *matrix2) {
 
   int i;
Index: /trunk/Ohana/src/libfits/matrix/F_divide_M.c
===================================================================
--- /trunk/Ohana/src/libfits/matrix/F_divide_M.c	(revision 4830)
+++ /trunk/Ohana/src/libfits/matrix/F_divide_M.c	(revision 4831)
@@ -2,7 +2,5 @@
 
 /********************* fits divide matrix ***********************************/
-int fits_divide_matrix (M1, M2, M3) 
-Matrix *M1, *M2, *M3;
-{
+int fits_divide_matrix (Matrix *M1, Matrix *M2, Matrix *M3) {
 
   int i,j;
Index: /trunk/Ohana/src/libfits/matrix/F_insert_M.c
===================================================================
--- /trunk/Ohana/src/libfits/matrix/F_insert_M.c	(revision 4830)
+++ /trunk/Ohana/src/libfits/matrix/F_insert_M.c	(revision 4831)
@@ -2,8 +2,5 @@
 
 /*********************** fits insert array ***********************************/
-void fits_insert_matrix (matrix, array, x, y) 
-Matrix *matrix, *array; 
-int x, y;
-{
+void fits_insert_matrix (Matrix  *matrix, Matrix *array, int x, int y) {
 
   /* there is no check here to match BITPIX, BZERO, or BSCALE */
Index: /trunk/Ohana/src/libfits/matrix/F_multiply_M.c
===================================================================
--- /trunk/Ohana/src/libfits/matrix/F_multiply_M.c	(revision 4830)
+++ /trunk/Ohana/src/libfits/matrix/F_multiply_M.c	(revision 4831)
@@ -2,7 +2,5 @@
 
 /******************* fits multiply matrix ***********************************/
-int fits_multiply_matrix (M1, M2, M3) 
-Matrix *M1, *M2, *M3;
-{
+int fits_multiply_matrix (Matrix *M1, Matrix *M2, Matrix *M3) {
 
   int i,j;