Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
doubleprecision, | intent(in) | :: | arr(:,:) |
Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
integer, | public | :: | i |
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