vector_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 float. Contains C++ wrapper function. More...
subroutine	mtx_add_routine_int_ (A, B, C, mtx_size)
subroutine	mtx_mult (matrix1, matrix2, result, nrows1, ncols1, ncols2)
	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 float. 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 vector_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
	)

Definition at line 52 of file vector_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()

subroutine mtx_mult	(	real, dimension(nrows1, ncols1), intent(in)	matrix1,
		real, dimension(ncols1, ncols2), intent(in)	matrix2,
		real, dimension(nrows1, ncols2), intent(out)	result,
		integer, intent(in)	nrows1,
		integer, intent(in)	ncols1,
		integer, intent(in)	ncols2
	)

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 sum of a + b
nrows_a	Number of rows
ncols	Number of columns

Definition at line 70 of file vector_routines.f90.

    implicit none
    INTEGER, INTENT(IN) :: nrows1, ncols1, ncols2
    REAL, INTENT(IN) :: matrix1(nrows1, ncols1), matrix2(ncols1, ncols2)
    REAL, INTENT(OUT) :: result(nrows1, ncols2)
    INTEGER :: i, j, k
 
    ! Perform matrix multiplication
    do i = 1, nrows1
        do j = 1, ncols2
            result(i, j) = 0.0
            do k = 1, ncols1
                result(i, j) = result(i, j) + matrix1(i, k)*matrix2(k, j)
            end do
        end do
    end do