c-------------------------------------------------------
c  Impresion de la corriente nuclear
c
c
      write(47,'(f6.1,3i4.2,6f10.4)')pm*hc,
     ,          ispf2,mb2,4,zalp(4),zbet(4),zfive(4)
      do 1047 imq=-1,1,1
      write(47,'(14x,,i4.2,6f10.4)')imq,zalp(imq),zbet(imq),zfive(imq)
1047  continue

      write(47,9947)zrho,q/w*zj1z,q/wbar*zj1z
      write(47,*)'          zrho              zj1x       ',
     , '        zj1y              zj1z    '
      write(47,'(8f9.3)')zrho,zj1x,zj1y,zj1z
      write(47,*)'-------------------------------------'
9947  format('--- test ---',6e10.3)

