subroutine prchold(nc)
c
c     write of the field ez,er,bt for cell
c     ip=1 ez from the input
c     ip=2 ez(r,z) from the input
c     ip=3 ez(r,z),er(r,z),bt(r,z) from the input
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(ip.eq.2 .or. ip.eq.3) then          
      write(nnout,*)' '                  
      write(nnout,*)' ez(r,z) for cell #',nc
      write(nnout,'(11f7.4)')((fez(j,i,nc),i=1,nz,10),j=1,nr,2)
      write(nnout,*)' '                   
      write(nnout,*)'      nz  nr=1   ez(r,z) for cell #',nc   
      write(nnout,*) '     r =  ',rbm(1)                          
           if(el(8,ne).gt.0) then
              do 9340 iz=1,nz
              write(nnout,*) zbm(iz),fez(1,nz-iz+1,nc)
 9340         continue
           else
              do 9337 iz=1,nz                                   
              write(nnout,*) zbm(iz),fez(1,iz,nc)                
 9337         continue
              write(nnout,*)' '                    
           endif  ! el(8,ne)
           endif  ! ip=2 ou 3
c
           if(ip.eq.3) then
              write(nnout,*)' '                
              write(nnout,*)' er(r,z) for cell #',nc
              write(nnout,'(11f7.4)')((fer(j,i,nc),i=1,nz,10),
     1              j=1,numr,2)
              do 9338 ir=1,numr  
                  write(nnout,*)' '                
                  write(nnout,*) ' r  = ',rbm(ir),
     1                  '  z      er(r,z)  for cell #',nc
              do 9339 iz=1,nz  ! bm
                  write(nnout,*) zbm(iz),fer(ir,iz,nc)  
 9339         continue
 9338         continue
              write(nnout,*)' '                          
              write(nnout,*)' bt(r,z) for cell #',nc
              write(nnout,'(11f7.4)')
     1              ((fbt(j,i,nc),i=1,nz,10),j=1,numr,2)
              do 9341 ir=1,numr 
                  write(nnout,*)' '                      
                  write(nnout,*) ' r  = ',
     1                  rbm(ir),'  z      bt(r,z)  for cell #',nc
              do 9342 iz=1,nz  ! bm
                  write(nnout,*) zbm(iz),fbt(ir,iz,nc) 
 9342         continue
 9341         continue
           endif  ! ip=3
      return
      end
c++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++*