expand_ga_ellipsoid Subroutine

private subroutine expand_ga_ellipsoid(me, pos, length)

Arguments

TypeIntentOptionalAttributesName
type(grw_ellipsoidarray_type) :: me
integer, intent(in), optional :: pos
integer, intent(in), optional :: length

optional length to expand the array


Called by

proc~~expand_ga_ellipsoid~~CalledByGraph proc~expand_ga_ellipsoid expand_ga_ellipsoid interface~expand~27 expand interface~expand~27->proc~expand_ga_ellipsoid proc~append_ga_ellipsoid append_ga_ellipsoid proc~append_ga_ellipsoid->interface~expand~27 proc~append_ga_ellipsoid_vec append_ga_ellipsoid_vec proc~append_ga_ellipsoid_vec->interface~expand~27 proc~placeat_ga_ellipsoid_vec placeat_ga_ellipsoid_vec proc~placeat_ga_ellipsoid_vec->interface~expand~27 proc~placeat_ga_ellipsoid placeat_ga_ellipsoid proc~placeat_ga_ellipsoid->interface~expand~27 interface~append~30 append interface~append~30->proc~append_ga_ellipsoid interface~append~30->proc~append_ga_ellipsoid_vec interface~placeat~17 placeat interface~placeat~17->proc~placeat_ga_ellipsoid_vec interface~placeat~17->proc~placeat_ga_ellipsoid

Contents


Variables

TypeVisibilityAttributesNameInitial
type(tem_ellipsoid_type), private, allocatable:: swpval(:)
integer, private :: explen
integer, private :: ii