asciiprint.f File Reference

Go to the source code of this file.

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.

References charge, code, and subcode.

Referenced by __ranseeascii.f__(), and __seeascii.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)

Here is the caller graph for this function:

toasciih()

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

Definition at line 2 of file asciiprint.f.

References charge, code, coszenith, depth, p, and subcode.

Referenced by __ranseeascii.f__(), and __seeascii.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.

Here is the caller graph for this function:

toasciihe()

subroutine toasciihe

(

type(ob)

he

)

Definition at line 62 of file asciiprint.f.

References charge, code, erg, subcode, x, and y.

Referenced by cgethes().

!      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

Here is the caller graph for this function:

toasciin()

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

Definition at line 22 of file asciiprint.f.

References code, coszenith, depth, erg, and height.

Referenced by __ranseeascii.f__(), and __seeascii.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

Here is the caller graph for this function:

toasciinp()

subroutine toasciinp

(

integer

n

)

Definition at line 51 of file asciiprint.f.

Referenced by cgethes().

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

Here is the caller graph for this function: