asciiprint.f

Go to the documentation of this file.

      subroutine toasciih(cnum, num, ir, zf)
      implicit none
#include "Ztrack.h"
      integer cnum, num, ir(2)
      type(track)::zf

      write(*, '("#")')
      write(*,
     *    '("#                    ********************** ")')
      write(*, '("#")')
      write(*,
     * '("#    cum event #  current  #       seeds")')
      write(*,'(i10,i10,8x,2i11)') cnum, num, ir
      write(*,
     *'("# 1ry code subc chg       E(GeV)     cos_zen  1st z(g/cm2)")')
      write(*,'(i8,2i5,4x,g12.3,3x,f8.5,g12.3)')
     *    zf%p%code, zf%p%subcode, zf%p%charge,
     *    zf%p%fm%p(4), zf%vec%coszenith,
     *    zf%pos%depth/10.
      end
      subroutine toasciin(nlow, pp)
      implicit none
#include "Zprivate.h"
#include "Ztrack.h"
      integer nlow
      type(parent)::pp

      if(nlow .gt. 0) then
         write(*,'("#  nodal point info:")')
         write(*,'(a)')
     *  '#  # of child   code         E          H(m)'//
     *  '     Depth(g/cm2)      cos_zen'
         write(*,'(i10,i10,3x,g12.3,2x,g12.4,g12.3,2x,f9.5)')
     *   nlow, pp%code,  pp%erg, pp%height,
     *   pp%depth/10., pp%coszenith
         write(*,'("  code subc chg   Energy(GeV)")')
      endif
      end

      subroutine toasciic(cc)
!      print child at nodal point
      implicit none
#include "Zprivate.h"
      type(child)::cc
      
      write(*,'(3i5, g12.3)')
     *      cc%code, cc%subcode, cc%charge, cc%fm(4)
      end

      subroutine toasciinp(n)
      implicit none
      integer n
      write(*, '("#  # of high energy particles")')
      write(*, *)   n
      write(*, '(a)')
     * '# where code subc chg  Eenergy(GeV)'//
     * '      x       y(cm)            T(n)'
      end


      subroutine toasciihe(he)
!      print high energy particles
      implicit none
#include "Zprivate.h"
      type(ob)::he

      write(*, '(i5,3i5, g14.4, 2g12.3, f12.3)')
     * he%where, he%code, he%subcode, he%charge,
     * he%erg, he%x/100., he%y/100., he%atime
      end