rowpack Function

public function rowpack(arr) result(vec)

Arguments

Type IntentOptional Attributes Name
doubleprecision, intent(in) :: arr(:,:)

Return Value doubleprecision, allocatable, (:)


Contents

Source Code


Variables

Type Visibility Attributes Name Initial
integer, public :: i

Source Code

function rowpack(arr) result(vec)
doubleprecision,intent(in)  :: arr(:,:)
doubleprecision,allocatable :: vec(:)
integer                     :: i
if(allocated(vec))deallocate(vec)
vec=[(arr(:,i),i=1,size(arr,dim=2))]
end function rowpack