c     Dump NetCDF SAR data
      implicit none
      integer*4 k,kk,kkk,lons,lats,ncid,rcode
      include '/data/starfs1/libs/netcdf-3.6.3/include/netcdf.inc'
c      include '/free/netcdf-3.6.3/include/netcdf.inc'
      character dname*1,ccc1*30,ccc2*30,bbb1*25
c     ********************************************************
       open(8, file='change_nx_ny.csh', form='formatted')

      data ccc1/30hperl -p -i.bak -w -e 's/nxxxx//
      data ccc2/30hperl -p -i.bak -w -e 's/nyyyy//
      data bbb1/25h/g' main_dump_stat_sohc.f/
c     ********************************************************

      ncid=ncopn('sohc_all.nc',ncnowrit,rcode)
      CALL ncdinq(ncid,2,dname,lats,RCODE)
      CALL ncdinq(ncid,3,dname,lons,RCODE)

      print *, lons,lats

      write(8,*) '#! /bin/csh -f'

      write(8,101) ccc1,lons,bbb1
      write(8,101) ccc2,lats,bbb1
c     ********************************************************
 101  format(a30,i4,a25)
      stop 
      end