Index: trunk/external-alma/atnf/PKSIO/NROFITSDataset.cc
===================================================================
--- trunk/external-alma/atnf/PKSIO/NROFITSDataset.cc	(revision 2434)
+++ trunk/external-alma/atnf/PKSIO/NROFITSDataset.cc	(revision 2436)
@@ -620,14 +620,5 @@
   }
   // DEBUG
-//   for ( int i = 0 ; i < ARYNM ; i++ ) {
-//     if ( i == 0 ) {
-//       cout << "RX      " ;
-//     }
-//     else if ( ( i % 5 ) == 0 ) {
-//       cout << endl << "        " ;
-//     }
-//     cout << "\'" << RX[i] << "\' " ;
-//   }
-//   cout << endl ;
+//   nro_debug_output( "RX", ARYNM, RX ) ;
   //
   if ( readColumn( HPBW, "HPBW", sameEndian ) != 0 ) {
@@ -636,14 +627,5 @@
   }
   // DEBUG
-//   for ( int i = 0 ; i < ARYNM ; i++ ) {
-//     if ( i == 0 ) {
-//       //cout << "HPBW    " ;
-//     }
-//     else if ( ( i % 5 ) == 0 ) {
-//       //cout << endl << "        " ;
-//     }
-//     //cout << HPBW[i] << " " ;
-//   }
-//   //cout << endl ;
+//   nro_debug_output( "HPBW", ARYNM, HPBW ) ;
   //
   if ( readColumn( EFFA, "EFFA", sameEndian ) != 0 ) {
@@ -652,14 +634,5 @@
   }
   // DEBUG
-//   for ( int i = 0 ; i < ARYNM ; i++ ) {
-//     if ( i == 0 ) {
-//       //cout << "EFFA    " ;
-//     }
-//     else if ( ( i % 5 ) == 0 ) {
-//       //cout << endl << "        " ;
-//     }
-//     //cout << EFFA[i] << " " ;
-//   }
-//   //cout << endl ;
+//   nro_debug_output( "EFFA", ARYNM, EFFA ) ;
   //
   if ( readColumn( EFFB, "EFFB", sameEndian ) != 0 ) {
@@ -668,14 +641,5 @@
   }
   // DEBUG
-//   for ( int i = 0 ; i < ARYNM ; i++ ) {
-//     if ( i == 0 ) {
-//       //cout << "EFFB    " ;
-//     }
-//     else if ( ( i % 5 ) == 0 ) {
-//       //cout << endl << "        " ;
-//     }
-//     //cout << EFFB[i] << " " ;
-//   }
-//   //cout << endl ;
+//   nro_debug_output( "EFFB", ARYNM, EFFB ) ;
   //
   if ( readColumn( EFFL, "EFFL", sameEndian ) != 0 ) {
@@ -684,14 +648,5 @@
   }
   // DEBUG
-//   for ( int i = 0 ; i < ARYNM ; i++ ) {
-//     if ( i == 0 ) {
-//       //cout << "EFFL    " ;
-//     }
-//     else if ( ( i % 5 ) == 0 ) {
-//       //cout << endl << "        " ;
-//     } 
-//     //cout << EFFL[i] << " " ;
-//   }
-//   //cout << endl ;
+//   nro_debug_output( "EFFL", ARYNM, EFFL ) ;
   //
   if ( readColumn( EFSS, "EFSS", sameEndian ) != 0 ) {
@@ -700,14 +655,5 @@
   }
   // DEBUG
-//   for ( int i = 0 ; i < ARYNM ; i++ ) {
-//     if ( i == 0 ) {
-//       //cout << "EFSS    " ;
-//     }
-//     else if ( ( i % 5 ) == 0 ) {
-//       //cout << endl << "        " ;
-//     }
-//     //cout << EFSS[i] << " " ;
-//   }
-//   //cout << endl ;
+//   nro_debug_output( "EFSS", ARYNM, EFSS ) ;
   //
   if ( readColumn( GAIN, "GAIN", sameEndian ) != 0 ) {
@@ -716,14 +662,5 @@
   }
   // DEBUG
-//   for ( int i = 0 ; i < ARYNM ; i++ ) {
-//     if ( i == 0 ) {
-//       //cout << "GAIN    " ;
-//     }
-//     else if ( ( i % 5 ) == 0 ) {
-//       //cout << endl << "        " ;
-//     }
-//     //cout << GAIN[i] << " " ;
-//   }
-//   //cout << endl ;
+//   nro_debug_output( "GAIN", ARYNM, GAIN ) ;
   //
   if ( readColumn( HORN, "HORN" ) != 0 ) {
@@ -732,14 +669,5 @@
   }
   // DEBUG
-//   for ( int i = 0 ; i < ARYNM ; i++ ) {
-//     if ( i == 0 ) {
-//       cout << "HORN    " ;
-//     }
-//     else if ( ( i % 5 ) == 0 ) {
-//       cout << endl << "        " ;
-//     }
-//     cout << "\'" << HORN[i] << "\' " ;
-//   }
-//   cout << endl ;
+//   nro_debug_output( "HORN", ARYNM, HORN ) ;
   //
   if ( readColumn( POLTP, "POLTP" ) != 0 ) {
@@ -748,14 +676,5 @@
   }
   // DEBUG
-//   for ( int i = 0 ; i < ARYNM ; i++ ) {
-//     if ( i == 0 ) {
-//       //cout << "POLTP   " ;
-//     }
-//     else if ( ( i % 5 ) == 0 ) {
-//       //cout << endl << "        " ;
-//     }
-//     //cout << "\'" << POLTP[i] << "\' " ;
-//   }
-//   //cout << endl ;
+//   nro_debug_output( "POLTP", ARYNM, POLTP ) ;
   //
   vector<int> ipoldr( ARYNM, 0 ) ;
@@ -767,14 +686,5 @@
     POLDR[i] = (double)ipoldr[i] ;
   // DEBUG
-//   for ( int i = 0 ; i < ARYNM ; i++ ) {
-//     if ( i == 0 ) {
-//       //cout << "POLDR   " ;
-//     }
-//     else if ( ( i % 5 ) == 0 ) {
-//       //cout << endl << "        " ;
-//     }
-//     //cout << POLDR[i] << " " ;
-//   }
-//   //cout << endl ;
+//   nro_debug_output( "POLDR", ARYNM, POLDR ) ;
   //
   if ( readColumn( POLAN, "POLAN", sameEndian ) != 0 ) {
@@ -783,14 +693,5 @@
   }
   // DEBUG
-//   for ( int i = 0 ; i < ARYNM ; i++ ) {
-//     if ( i == 0 ) {
-//       //cout << "POLAN   " ;
-//     }
-//     else if ( ( i % 5 ) == 0 ) {
-//       //cout << endl << "        " ;
-//     }
-//     //cout << POLAN[i] << " " ;
-//   }
-//   //cout << endl ;
+//   nro_debug_output( "POLAN", ARYNM, POLAN ) ;
   //
   if ( readColumn( DFRQ, "DFRQ", sameEndian ) != 0 ) {
@@ -799,14 +700,5 @@
   }
   // DEBUG
-//   for ( int i = 0 ; i < ARYNM ; i++ ) {
-//     if ( i == 0 ) {
-//       //cout << "DFRQ    " ;
-//     }
-//     else if ( ( i % 5 ) == 0 ) {
-//       //cout << endl << "        " ;
-//     }
-//     //cout << DFRQ[i] << " " ;
-//   }
-//   //cout << endl ;
+//   nro_debug_output( "DFRQ", ARYNM, DFRQ ) ;
   //
   if ( readColumn( SIDBD, "SIDBD" ) != 0 ) {
@@ -815,14 +707,5 @@
   }
   // DEBUG
-//   for ( int i = 0 ; i < ARYNM ; i++ ) {
-//     if ( i == 0 ) {
-//       //cout << "SIDBD   " ;
-//     }
-//     else if ( ( i % 5 ) == 0 ) {
-//       //cout << endl << "        " ;
-//     }
-//     //cout << "\'" << SIDBD[i] << "\' " ;
-//   }
-//   //cout << endl ;
+//   nro_debug_output( "SIDBD", ARYNM, SIDBD ) ;
   //
   if ( readColumn( REFN, "REFN", sameEndian ) != 0 ) {
@@ -831,14 +714,5 @@
   }
   // DEBUG
-//   for ( int i = 0 ; i < ARYNM ; i++ ) {
-//     if ( i == 0 ) {
-//       //cout << "REFN    " ;
-//     }
-//     else if ( ( i % 5 ) == 0 ) {
-//       //cout << endl << "        " ;
-//     }
-//     //cout << REFN[i] << " " ;
-//   }
-//   //cout << endl ;
+//   nro_debug_output( "REFN", ARYNM, REFN ) ;
   //
   if ( readColumn( IPINT, "IPINT", sameEndian ) != 0 ) {
@@ -847,14 +721,5 @@
   }
   // DEBUG
-//   for ( int i = 0 ; i < ARYNM ; i++ ) {
-//     if ( i == 0 ) {
-//       //cout << "IPINT   " ;
-//     }
-//     else if ( ( i % 5 ) == 0 ) {
-//       //cout << endl << "        " ;
-//     }
-//     //cout << IPINT[i] << " " ;
-//   }
-//   //cout << endl ;
+//   nro_debug_output( "IPINT", ARYNM, IPINT ) ;
   //
   if ( readColumn( MULTN, "MULTN", sameEndian ) != 0 ) {
@@ -863,14 +728,5 @@
   }
   // DEBUG
-//   for ( int i = 0 ; i < ARYNM ; i++ ) {
-//     if ( i == 0 ) {
-//       //cout << "MULTN   " ;
-//     }
-//     else if ( ( i % 5 ) == 0 ) {
-//       //cout << endl << "        " ;
-//     }
-//     //cout << MULTN[i] << " " ;
-//   }
-//   //cout << endl ;
+//   nro_debug_output( "MULTN", ARYNM, MULTN ) ;
   //
   if ( readColumn( MLTSCF, "MLTSCF", sameEndian ) != 0 ) {
@@ -879,14 +735,5 @@
   }
   // DEBUG
-//   for ( int i = 0 ; i < ARYNM ; i++ ) {
-//     if ( i == 0 ) {
-//       //cout << "MLTSCF  " ;
-//     }
-//     else if ( ( i % 5 ) == 0 ) {
-//       //cout << endl << "        " ;
-//     }
-//     //cout << MLTSCF[i] << " " ;
-//   }
-//   //cout << endl ;
+//   nro_debug_output( "MLTSCF", ARYNM, MLTSCF ) ;
   //
   if ( readColumn( LAGWIND, "LAGWIN" ) != 0 ) {
@@ -895,14 +742,5 @@
   }
   // DEBUG
-//   for ( int i = 0 ; i < ARYNM ; i++ ) {
-//     if ( i == 0 ) {
-//       //cout << "LAGWIND " ;
-//     }
-//     else if ( ( i % 5 ) == 0 ) {
-//       //cout << endl << "        " ;
-//     }
-//     //cout << "\'" << LAGWIND[i] << "\' " ;
-//   }
-//   //cout << endl ;
+//   nro_debug_output( "LAGWIND", ARYNM, LAGWIND ) ;
   //
   if ( readColumn( BEBW, "BEBW", sameEndian ) != 0 ) {
@@ -911,14 +749,5 @@
   }
   // DEBUG
-//   for ( int i = 0 ; i < ARYNM ; i++ ) {
-//     if ( i == 0 ) {
-//       //cout << "BEBW    " ;
-//     }
-//     else if ( ( i % 5 ) == 0 ) {
-//       //cout << endl << "        " ;
-//     }
-//     //cout << BEBW[i] << " " ;
-//   }  
-//   //cout << endl ;
+//   nro_debug_output( "BEBW", ARYNM, BEBW ) ;
   //
   if ( readColumn( BERES, "BERES", sameEndian ) != 0 ) {
@@ -927,14 +756,5 @@
   }
   // DEBUG
-//   for ( int i = 0 ; i < ARYNM ; i++ ) {
-//     if ( i == 0 ) {
-//       //cout << "BERES   " ;
-//     }
-//     else if ( ( i % 5 ) == 0 ) {
-//       //cout << endl << "        " ;
-//     }
-//     //cout << BERES[i] << " " ;
-//   }
-//   //cout << endl ;
+//   nro_debug_output( "BERES", ARYNM, BERES ) ;
   //
   if ( readColumn( CHWID, "CHWID", sameEndian ) != 0 ) {
@@ -942,15 +762,6 @@
     return -1 ;
   }
-    // DEBUG
-//   for ( int i = 0 ; i < ARYNM ; i++ ) {
-//     if ( i == 0 ) {
-//       //cout << "CHWID   " ;
-//     }
-//     else if ( ( i % 5 ) == 0 ) {
-//       //cout << endl << "        " ;
-//     }
-//     //cout << CHWID[i] << " " ;
-//   }
-//   //cout << endl ;
+  // DEBUG
+//   nro_debug_output( "CHWID", ARYNM, CHWID ) ;
   //
   if ( readARRY() != 0 ) {
@@ -959,14 +770,5 @@
   }
   // DEBUG
-//   for ( int i = 0 ; i < NRO_FITS_ARYMAX ; i++ ) {
-//     if ( i == 0 ) {
-//       //cout << "ARRY    " ;
-//     }
-//     else if ( ( i % 20 ) == 0 ) {
-//       //cout << endl << "        " ;
-//     }
-//     //cout << ARRY[i] << " " ;
-//   }
-//   //cout << endl ;
+//   nro_debug_output( "ARRY", NRO_FITS_ARYMAX, ARRY ) ;
   //
   if ( readColumn( NFCAL, "NFCAL", sameEndian ) != 0 ) {
@@ -974,15 +776,6 @@
     return -1 ;
   }
-    // DEBUG
-//   for ( int i = 0 ; i < ARYNM ; i++ ) {
-//     if ( i == 0 ) {
-//       //cout << "NFCAL   " ;
-//     }
-//     else if ( ( i % 5 ) == 0 ) {
-//       //cout << endl << "        " ;
-//     }
-//     //cout << NFCAL[i] << " " ;
-//   }
-//   //cout << endl ;
+  // DEBUG
+//   nro_debug_output( "NFCAL", ARYNM, NFCAL ) ;
   //
   if ( readColumn( F0CAL, "F0CAL", sameEndian ) != 0 ) {
@@ -990,15 +783,6 @@
     return -1 ;
   }
-    // DEBUG
-//   for ( int i = 0 ; i < ARYNM ; i++ ) {
-//     if ( i == 0 ) {
-//       //cout << "F0CAL   " ;
-//     }
-//     else if ( ( i % 5 ) == 0 ) {
-//       //cout << endl << "        " ;
-//     }
-//     //cout << F0CAL[i] << " " ;
-//   }
-//   //cout << endl ;
+  // DEBUG
+//   nro_debug_output( "F0CAL", ARYNM, F0CAL ) ;
   //
   for ( int i= 0 ; i < 10 ; i++) {
@@ -1013,19 +797,5 @@
   }
   // DEBUG
-//   for ( int i = 0 ; i < ARYNM ; i++ ) {
-//     for ( int j = 0 ; j < 10 ; j++ ) {
-//       if ( j == 0 ) {
-//         if ( i < 10 ) 
-//           //cout << "FQCAL0" << i << " " ;
-//         else 
-//           //cout << "FQCAL" << i << " " ;
-//       }
-//       else if ( ( j % 5 ) == 0 ) {
-//         //cout << endl << "        " ;
-//       }
-//       //cout << FQCAL[i][j] << " " ;
-//     }
-//     //cout << endl ;
-//   }
+//   nro_debug_output( "FQCAL", ARYNM, 10, FQCAL ) ;
   //
   for ( int i= 0 ; i < 10 ; i++) {
@@ -1040,19 +810,5 @@
   }
   // DEBUG
-//   for ( int i = 0 ; i < ARYNM ; i++ ) {
-//     for ( int j = 0 ; j < 10 ; j++ ) {
-//       if ( j == 0 ) {
-//         if ( i < 10 ) 
-//           //cout << "CHCAL0" << i << " " ;
-//         else 
-//           //cout << "CHCAL" << i << " " ;
-//       }
-//       else if ( ( j % 5 ) == 0 ) {
-//         //cout << endl << "        " ;
-//       }
-//      //cout << CHCAL[i][j] << " " ;
-//    }
-//    //cout << endl ;
-//   }
+//   nro_debug_output( "CHCAL", ARYNM, 10, CHCAL ) ;
   //
   for ( int i= 0 ; i < 10 ; i++) {
@@ -1067,19 +823,5 @@
   }
   // DEBUG
-//   for ( int i = 0 ; i < ARYNM ; i++ ) {
-//     for ( int j = 0 ; j < 10 ; j++ ) {
-//       if ( j == 0 ) {
-//         if ( i < 10 ) 
-//           //cout << "CWCAL0" << i << " " ;
-//         else 
-//           //cout << "CWCAL" << i << " " ;
-//       }
-//       else if ( ( j % 5 ) == 0 ) {
-//         //cout << endl << "        " ;
-//       }
-//       //cout << CWCAL[i][j] << " " ;
-//     }
-//     //cout << endl ;
-//   }
+//   nro_debug_output( "CWCAL", ARYNM, 10, CWCAL ) ;
   //
   if ( readHeader( SCNLEN, "NAXIS1", sameEndian ) != 0 ) {
@@ -1117,14 +859,5 @@
   }
   // DEBUG
-//   for ( int i = 0 ; i < ARYNM ; i++ ) {
-//     if ( i == 0 ) {
-//       //cout << "DSBFC   " ;
-//     }
-//     else if ( ( i % 5 ) == 0 ) {
-//       //cout << endl << "        " ;
-//     }
-//     //cout << DSBFC[i] << " " ;
-//   }
-//   //cout << endl ;
+//   nro_debug_output( "DSBFC", ARYNM, DSBFC ) ;
   //
 
