SPEED
   Measure the speed of reading and writing FITS files.

Create a large FITS file to test FITSIO
 
                                                    
  SIZE / ELAPSE= RATE
                                                    
  (Mb)   (sec)  (Mb/s)
 Raw Fortran Writes (2880 bytes/record)                36.00   0.90  39.91
 Raw Fortran Reads                                     36.00   0.61  59.21
 Write  3000 x 3000 row I*4 image ( 20000 pixels/loop) 36.00   1.25  28.75
 Write 1250000 row x 2 col BINTABLE  ( 6840 rows/loop) 10.00   3.35   2.98
 Write  100000 row x 2 col ASCII tab ( 4209 rows/loop)  1.30   3.26   0.40
 Read back I*4 image  ( 20000 pixels/loop)             36.00   0.89  40.54
 Read back Binary table  ( 6840 rows/loop)             10.00   3.04   3.29
 Read back ASCII table   ( 4209 rows/loop)              1.30   3.77   0.34
 STATUS =  0
 STATUS =  0
 STATUS =  0
  
 SPEED
   Normal end of execution.