mtx_routines.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	mtx_add_routine_float_ (A, B, C, mtx_size)
	FORTRAN Subroutine for Matrix Addition on flattened matrices as arrays of type float32. Contains C++ wrapper function. More...
subroutine	mtx_add_routine_int_ (A, B, C, mtx_size)
	FORTRAN Subroutine for Matrix Addition on flattened matrices as arrays of type int32. Contains C++ wrapper function. More...
subroutine	mtx_mult_routine_int_ (A, B, C, rows_a, cols_a, cols_b)
	FORTRAN Subroutine for Matrix Multiplication using Fortran intrinsics. Contains C++ wrapper function. More...

Function/Subroutine Documentation

mtx_add_routine_float_()

subroutine mtx_add_routine_float_	(	real(kind=c_float), dimension(mtx_size, mtx_size), intent(in)	A,
		real(kind=c_float), dimension(mtx_size, mtx_size), intent(in)	B,
		real(kind=c_float), dimension(mtx_size, mtx_size), intent(out)	C,
		integer, intent(in)	mtx_size
	)

FORTRAN Subroutine for Matrix Addition on flattened matrices as arrays of type float32. Contains C++ wrapper function.

Parameters

A	Addend A, an array representing a Matrix
B	Addend B, an array representing a Matrix
C	Sum C, an array representing the sum of A + B
mtx_size	Assumes same size M x N

Definition at line 41 of file mtx_routines.f90.

    USE :: iso_fortran_env
    USE :: iso_c_binding
 
    INTEGER, INTENT(IN) :: mtx_size
    REAL(KIND=c_float), DIMENSION(mtx_size, mtx_size), INTENT(IN) :: a, b
    REAL(KIND=c_float), DIMENSION(mtx_size, mtx_size), INTENT(OUT) :: c
 
    c = a + b

mtx_add_routine_int_()

subroutine mtx_add_routine_int_	(	integer(c_int), dimension(mtx_size, mtx_size), intent(in)	A,
		integer(c_int), dimension(mtx_size, mtx_size), intent(in)	B,
		integer(c_int), dimension(mtx_size, mtx_size), intent(out)	C,
		integer, intent(in)	mtx_size
	)

FORTRAN Subroutine for Matrix Addition on flattened matrices as arrays of type int32. Contains C++ wrapper function.

Parameters

A	Addend A, an array representing a Matrix
B	Addend B, an array representing a Matrix
C	Sum C, an array representing the sum of A + B
mtx_size	Assumes same size M x N

Definition at line 58 of file mtx_routines.f90.

    USE :: iso_fortran_env
    USE :: iso_c_binding
 
    INTEGER, INTENT(IN) :: mtx_size
    INTEGER(C_INT), DIMENSION(mtx_size, mtx_size), INTENT(IN) :: A, B
    INTEGER(C_INT), DIMENSION(mtx_size, mtx_size), INTENT(OUT) :: C
 
    c = a + b

mtx_mult_routine_int_()

subroutine mtx_mult_routine_int_	(	integer(kind=c_int), dimension(rows_a, cols_a), intent(in)	A,
		integer(kind=c_int), dimension(cols_a, cols_b), intent(in)	B,
		integer(kind=c_int), dimension(rows_a, cols_b), intent(out)	C,
		integer(kind=c_int), intent(in)	rows_a,
		integer(kind=c_int), intent(in)	cols_a,
		integer(kind=c_int), intent(in)	cols_b
	)

FORTRAN Subroutine for Matrix Multiplication using Fortran intrinsics. Contains C++ wrapper function.

Parameters

A	Multiplier A, an array representing a Matrix
B	Multiplicand B, an array representing a Matrix
C	Product C, an array representing the produce Matrix
rows_a	Number of rows Matrix A
cols_a	Number of columns Matrix A
cols_b	Number of columns Matrix B

Definition at line 77 of file mtx_routines.f90.

    USE :: iso_fortran_env
    USE :: iso_c_binding
    IMPLICIT NONE
 
    INTEGER(KIND=C_INT), INTENT(IN) :: rows_a, cols_a, cols_b
    INTEGER(KIND=C_INT), DIMENSION(rows_a, cols_a), INTENT(IN) :: A
    INTEGER(KIND=C_INT), DIMENSION(cols_a, cols_b), INTENT(IN) :: B
    INTEGER(KIND=C_INT), DIMENSION(rows_a, cols_b), INTENT(OUT) :: C
 
    INTEGER :: i, j, k
 
    ! Perform matrix multiplication flipping indexing to keep standard with
    ! C/C++ calls
    DO i = 1, rows_a
        DO j = 1, cols_b
 
            c(j, i) = 0
            DO k = 1, cols_a
 
                c(j, i) = c(j, i) + a(k, i)*b(j, k)
 
            END DO
 
        END DO
    END DO