Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed
arrows point from an interface to procedures which implement that interface.
This could include the module procedures in a generic interface or the
implementation in a submodule of an interface in a parent module.
Where possible, edges connecting nodes are
given different colours to make them easier to distinguish in
large graphs.
Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed
arrows point from an interface to procedures which implement that interface.
This could include the module procedures in a generic interface or the
implementation in a submodule of an interface in a parent module.
Where possible, edges connecting nodes are
given different colours to make them easier to distinguish in
large graphs.
Variables
Type
Visibility
Attributes
Name
Initial
integer(kind=int64),
private,
allocatable
::
exact(:)
integer,
private
::
stat
Source Code
pure subroutine vec_int64_shrink_to_fit(self,err)!! Release capacity beyond `size()`.class(vector_int64_t),intent(inout)::selftype(error_t),intent(inout),optional::errinteger(int64),allocatable::exact(:)integer::statif(.not.allocated(self%items))return if(vec_int64_capacity(self)==self%n_items)return allocate(exact(self%n_items),stat=stat)if(.not.allocated(exact))then call error_raise(err,ERROR_ALLOC,"vector_int64_t: shrink_to_fit allocation failed.")return end if if(self%n_items>0)exact(1:self%n_items)=self%items(1:self%n_items)call move_alloc(exact,self%items)end subroutine vec_int64_shrink_to_fit