Functions/Subroutines
subroutine	toasciih (cnum, num, ir, zf)

subroutine	toasciin (nlow, pp)

subroutine	toasciic (cc)

subroutine	toasciinp (n)

subroutine	toasciihe (he)

Function/Subroutine Documentation

◆ toasciic()

subroutine toasciic ( type(child) cc )

Definition at line 41 of file asciiprint.f.

 !      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)

◆ toasciih()

subroutine toasciih	(	integer	cnum,
		integer	num,
		integer, dimension(2)	ir,
		type(track)	zf
	)

Definition at line 2 of file asciiprint.f.

       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.

◆ toasciihe()

subroutine toasciihe ( type(ob) he )

Definition at line 62 of file asciiprint.f.

 !      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

◆ toasciin()

subroutine toasciin	(	integer	nlow,
		type(parent)	pp
	)

Definition at line 22 of file asciiprint.f.

       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

◆ toasciinp()

subroutine toasciinp ( integer n )

Definition at line 51 of file asciiprint.f.