forrest@0: ;************************************************
forrest@0: ;    Read ascii, Write nc                         
forrest@0: ;************************************************
forrest@0: load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/gsn_code.ncl"  
forrest@0: load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/gsn_csm.ncl"  
forrest@0: load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/contributed.ncl"   
forrest@0: ;************************************************
forrest@0: begin
forrest@0: 
forrest@0:   b = "zot005_45D2_seas.co2"                    
forrest@0:    ncol = 4
forrest@0:    data = readAsciiTable(b, ncol, "float", (/10,17/))
forrest@0:    print (data)
forrest@0: 
forrest@0:    ncol = 5
forrest@0:    data2 = readAsciiTable(b, ncol, "float", 16)
forrest@0:    print (data2)
forrest@0:   
forrest@0: end