</B>
      
      ;;
      ;; Output...
      ;;
      print, 'file name             : ', filename
      print, 'grid                  : ', gridname
      print, 'field                 : ', fieldname
      print, 'start block           : ', start_block
      print, 'end block             : ', end_block
      print, 'line                  : ', line
      print, 'sample                : ', sample
      print, '================================================='
      print, 'SOM X                 : ',somx
    