subroutine prch(nc)
c
c     write of the field ez,er,bt for cell
c     ip=3 ez(r,z),er(r,z),bt(r,z) rebuilt of the field
c
c---------------------------------------------------------------------
c
      include 'param_sz.h'
      include 'cfldscom.h'
      include 'constcom.h'
      include 'misccom.h'
      include 'syscom.h'
      include 'ucom.h'
c
      common/pr/nz,nr,zbm(numz),rbm(numr)
c--------------------------------------------------------------------------
c*
      ne=nel
             if(el(8,ne).eq.0.)then
                zmin=-hcll(nc)
                zmax=hcll(nc)
             endif
             if((el(8,ne).eq.-1.) .or. (el(8,ne).eq.-2.))then
                zmin=0.
                zmax=hcll(nc)
             endif
             if(el(8,ne).eq.1.) then
                zmin=-hcll(nc)
                zmax=0.
             endif
             zpas=(zmax-zmin)/99.
             r=0.  
             rpas=el(2,ne)/3.
             do 9401 j=1,4  ! loop on r
                z=zmin
                   do 9400 i=1,100 ! loop on z
                      call cfield(r,z,nc,ez,er,bt)
                      write(nuch,*)nc,el(8,ne),r,z,ez,er,bt
                      z=z+zpas 
 9400              continue
                r=r+rpas
 9401        continue
      return
      end
c+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++