Fortran toolkit

Borja Petit

`vect`

function vec(mat) result(vec)
  implicit none
  integer :: mat(:,:,...,:)
  integer :: vec(:)

function vec(mat) result(vec)
  implicit none
  real(kind=8) :: mat(:,:,...,:)
  real(kind=8) :: vec(:)

function vec(mat) result(vec)
  implicit none
  logical :: mat(:,:,...,:)
  logical :: vec(:)

This function returns a 1-dimensional array vec with all the elements of a user-supplied n-dimensional array mat, where n$\leq5$. The input matrix can be double precision, integer o logical.

Dependencies: none

Note: vect is an interface that calls specific functions depending on the type of mat (integer, real or logical) and depending on the dimensions of mat. The specific functions are:

mat is real $ \ \to \ $ vectorize_dp_2d, vectorize_dp_3d, ..., vectorize_in_6d
mat is integer $ \ \to \ $ vectorize_in_2d, vectorize_in_3d, ..., vectorize_in_6d
mat is logical $ \ \to \ $ vectorize_lo_2d, vectorize_lo_3d, ..., vectorize_lo_6d

(back to index)

Example:

! matrix is integer

mat(:,1) = (/ 1 , 2 /)
mat(:,2) = (/ 3 , 4 /)

vec = vect(mat)

print * , 'vec =', vec   ! vec =  1  3  2  4

! matrix is double precision

mat(:,1) = (/ 1.5d0 , 2.2d0 /)
mat(:,2) = (/ 2.4d0 , 0.7d0 /)

vec = vect(mat)

print * , 'vec =', vec   ! vec =  1.5000  2.4000  2.2000  0.7000

! matrix is logical

mat(:,1) = (/ .true. , .false. /)
mat(:,2) = (/ .false. , .true. /)

vec = vect(mat)

print * , 'vec =', vec   ! vec = .true. .false. .false. .true.

Foortran Toolkit

Fortran toolkit

Borja Petit

vect

`vect`