source: PSPA/parmelaPSPA/trunk/out1.f @ 315

      subroutine out1(ne,nbuffer,outcor,nsize)
c---print coordinates at end of time step (ne=0),
c---or at end of element ne.
c------------------------------------------------------------------------
      save
c
      include 'param_sz.h'
      include 'coordcom.h'
      include 'ncordscom.h'
      include 'outcom.h'
      include 'syscom.h'
      include 'tstepcom.h'
      include 'ucom.h'
c
      dimension outcor(8,nsize)
c--------------------------------------------------------------------------
c*
      if(ngood.le.0)return
      if(ne.le.0)go to 30
c---end of element
      write(nout1,10) nbuf,ne,zloc(ne)
   10 format(' nbuf=',i4,', ne=',i4,', z=',f6.1/
     1 7x,'x',6x,'xp',7x,'y',6x,'yp',5x,'phi',7x,'w'/)
      write(nout1,20) ((outcor(i,j),i=1,8),j=1,nbuffer)
   20 format('+',2(0pf8.2,3pf8.4),0pf8.1,0pf8.3,i5,/)
      return
c---end of time step
   30 continue
      write(nnout,40) ngood,wt
   40 format(' ngood=',i4,', omegat=',f8.1,/,
     1 7x,'x',5x,'bgx',7x,'y',5x,'bgy',7x,'z',5x,'bgz   ne',/)
      write(nnout,50) ((cord(i,j),i=1,7),j=1,ngood)
   50 format('+',4f8.4,f8.2,f8.2,f5.0/)
      return
      end
c++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++*