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

      subroutine out5(ne,nbuffer,outcor,nsize)
c---write coordinates on tape (tape2 or tape4)
c-----------------------------------------------------------------------
      save
c
      include 'param_sz.h'
      include 'constcom.h'
      include 'coordcom.h'
      include 'misccom.h'
      include 'ncordscom.h'
      include 'outcom.h'
      include 'tstepcom.h'
      include 'syscom.h'
      include 'var_char.h'
      include 'ucom.h'
c
      common/chars/title
      common/errors/eraln(5,0:lmx)
      common/tapes/ifl(2      )
      dimension outcor(8,nsize)
c--------------------------------------------------------------------------
c*
      ntape=2
      if(ifl(ntape).ne.0)go to 10
c---write basic information on tape
      open(unit=ntape,file='tape2',form='unformatted',
     *     access='sequential',status='unknown')
      ifl(ntape)=1
      write(ntape,err=15) irun,title,ac,bc,cc,nsize,ngood
      write(ntape,err=15) ((cor(i,j),i=1,6),j=1,nsize)
   10 continue
      if(ne.eq.0)go to 16
      write(ntape,err=15) nbuffer,ne,pr(ne),wr(ne),outcor
      return
   15 continue
      call appendparm
      stop ' Abnormal stop error writing to tape2'
c--- output cordinates at end of time step on unit 3
   16 if(ifl(1).eq.0) then
      ntape4=4
      open(unit=ntape4,file='tape4',form='unformatted',
     *     access='sequential',status='unknown')
      ifl(1)=1
      nstep=1
      endif
      write(ntape4,err=17)nstep,ngood,
     *     ((cord(i,j),i=1,5,2),j=1,ngood)
      nstep=nstep+1
      return
   17 continue
      call appendparm
      stop ' Abnormal stop error writing to tape4'
      end
c++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++*