Output a 1D-matrix of real in a well formatted way
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
logical, | intent(in) | :: | trans |
It the matrix is transposed or not |
||
character(len=*), | intent(in) | :: | label |
Label to be printed before the matrix |
||
real(kind=rp), | intent(in), | dimension(:) | :: | matrix |
Matrix to be printed |
|
integer(kind=ip), | intent(in), | optional | :: | ofunit |
Unit where the matrix should be printed, if not present iof_mmpol is used. |
subroutine d1_print_matrix(trans, label, matrix, ofunit)
!! Output a 1D-matrix of real in a well formatted way
implicit none
logical, intent(in) :: trans
!! It the matrix is transposed or not
character(len=*), intent(in) :: label
!! Label to be printed before the matrix
real(rp), dimension(:), intent(in) :: matrix
!! Matrix to be printed
integer(ip), intent(in), optional :: ofunit
!! Unit where the matrix should be printed, if not present [[iof_mmpol]]
!! is used.
call d2_print_matrix(trans, label, &
reshape(matrix, [size(matrix), 1]), ofunit)
end subroutine d1_print_matrix