hdrmds.f

Go to the documentation of this file.

      subroutine hdrmds(nthe01,nthe02,ebfr1)
c
c     write the header record on the output file
c
c**********************************************************************
c
c     include the common blocks
c
      include 'afrt_rt2.cmn'
c
c**********************************************************************
c
      nthe0=nthe02-nthe01+1
      bfr1(35)=float(nthe0)
      bfr1(36)=float(nx-1)
      bfr1(37)=float(jpart)
      bfr1(38)=float(nthe01)
      bfr1(39)=float(nthe02)
      nd=100
      do i=1,nx-1
         bfr1(nd+i)=the(i)
      enddo
c
      ndp=nd+nx-1
      do j=1,jpart
         bfr1(ndp+j)=float(jphi(j))
      enddo
      ndpj=ndp+jpart
      if(icrft.eq.1)then
        bfr1(ndpj+1)=taucrft
        bfr1(ndpj+2)=hcrft
      endif
c
      do i=1,200
         ebfr1(i)=bfr1(i)
      enddo
c
      write(24,rec=1)ebfr1
c     write(24)(bfr1(i),i=1,1915)
c
      return
      end
c***********************************************************************