cprintPrim.f File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	cprintprim (out)
subroutine	cprintprim0 (prm, out)
subroutine	cprinteachcmp (each, out)

Function/Subroutine Documentation

cprinteachcmp()

subroutine cprinteachcmp	(	type(component)	each,
		integer	out
	)

Definition at line 43 of file cprintPrim.f.

Referenced by cprintprim0().

      implicit none

#include  "Zptcl.h"
#include  "Zprimary.h"
      type(component):: each
      integer out
!
      if(out .eq. 5) then
         write(*, '("#",i4,i6, 2x, a10, a7, a9, a8, 5x, 2g9.3,i4,
     *   1x, g9.3)')
     *   each%label, each%code, each%symb, each%eunit, each%etype,
     *   each%diff_or_inte,
     *   each%emin, each%emax, each%no_of_seg, each%inte_value
      else
         write(out, '("#",i4,i6, 2x, a10, a7, a9, a8, 5x, 2g9.3,i4,
     *    1x,  g9.3)')
     *   each%label, each%code, each%symb, each%eunit, each%etype,
     *   each%diff_or_inte,
     *   each%emin, each%emax, each%no_of_seg, each%inte_value
      endif

Here is the caller graph for this function:

cprintprim()

subroutine cprintprim

(

integer

out

)

Definition at line 3 of file cprintPrim.f.

References cprintprim0().

Referenced by __getacceptance.f__(), __getst.f__(), __getst2.f__(), __getst3.f__(), __showspec.f__(), __testsampprim.f__(), chookbgrun(), and testprim().

      implicit none

#include  "Zptcl.h"
#include  "Zprimary.h"
#include  "Zprimaryv.h"
      integer out  ! input.  output logical device #

      call cprintprim0(prim, out)

Here is the call graph for this function:

Here is the caller graph for this function:

cprintprim0()

subroutine cprintprim0	(	type(primaries)	prm,
		integer	out
	)

Definition at line 15 of file cprintPrim.f.

References cprinteachcmp().

Referenced by cprintprim().

      implicit none
#include  "Zptcl.h"
#include  "Zprimary.h"
#include  "Zprimaryv.h"
      type(primaries):: prm     ! input. primary data
      integer out                ! input. output logical dev. #
!
!
      integer i
!
      if(out .eq. 5) then
         write(*,'("# -----------------# of Component defined=",
     *           i2,"----------------------")')  prm%no_of_comps
         write(*,
     *     '("# Seq.#  Code  Comp.    E_ Unit  E_type Diff/Integ",
     *     "  Emin    Emax   # of seg.  inte%flux")')
      else
         write(out,'("# -----------------# of Component defined=",
     *           i2,"----------------------")')  prm%no_of_comps
         write(out,
     *     '("# Seq.#  Code  Comp.    E_ Unit  E_type Diff/Integ",
     *        "  Emin    Emax   # of seg. inte%flux ")')
      endif
      do i = 1, prm%no_of_comps
         call cprinteachcmp(prm%each(i), out)
      enddo

Here is the call graph for this function:

Here is the caller graph for this function: