mat_init Function

private function mat_init(array)

Initalise matrix type from 1D array

Arguments

Type IntentOptional Attributes Name
real(kind=wp) :: array(16)

1D array to initalise from.

Return Value type(mat)


Source Code

    type(mat) function mat_init(array)
        !! Initalise matrix type from 1D array
        
        !> 1D array to initalise from.
        real(kind=wp) :: array(16)

        integer :: i, cnt

        cnt = 1

        do i = 1, 4
            mat_init%vals(:, i) = array(cnt:cnt+3)
            cnt = cnt + 4
        end do 

    end function mat_init