d1_print_matrix Subroutine

private subroutine d1_print_matrix(trans, label, matrix, ofunit)

Output a 1D-matrix of real in a well formatted way

Arguments

Type IntentOptional 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.


Calls

proc~~d1_print_matrix~~CallsGraph proc~d1_print_matrix d1_print_matrix proc~d2_print_matrix d2_print_matrix proc~d1_print_matrix->proc~d2_print_matrix

Called by

proc~~d1_print_matrix~~CalledByGraph proc~d1_print_matrix d1_print_matrix interface~print_matrix print_matrix interface~print_matrix->proc~d1_print_matrix proc~mmpol_ommp_print_summary mmpol_ommp_print_summary proc~mmpol_ommp_print_summary->interface~print_matrix proc~c_ommp_print_summary_to_file C_ommp_print_summary_to_file proc~c_ommp_print_summary_to_file->proc~mmpol_ommp_print_summary program~test_si_init test_SI_init program~test_si_init->proc~mmpol_ommp_print_summary

Contents

Source Code


Source Code

    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