init_t_cpa Subroutine

public subroutine init_t_cpa(t_inc, t_cpa, nenergy)

Subroutine to allocate and initialize arrays of t_cpa

Arguments

Type	Intent	Optional	Attributes		Name
type(type_inc),	intent(in)			::	t_inc
type(type_cpa),	intent(inout)			::	t_cpa
integer,	intent(in)			::	nenergy