Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Euler 37 repmat #683

Open
wants to merge 14 commits into
base: master
Choose a base branch
from
+262 −2
Open

Euler 37 repmat #683

Changes from 1 commit
Commits
Show all changes
14 commits
Select commit Hold shift + click to select a range
f7c5ae9
Create stdlib_linalg_repmat.fypp
Euler-37 Oct 27, 2022
5211579
Update stdlib_linalg.fypp
Euler-37 Oct 27, 2022
c30d5cf
Create example_linalg_repmat.f90
Euler-37 Oct 27, 2022
4b0df32
Update stdlib_linalg_repmat.fypp
Euler-37 Oct 27, 2022
5196edd
Update stdlib_linalg.fypp
Euler-37 Oct 27, 2022
8fe7467
Rename example_linalg_repmat.f90 to example_repmat.f90
Euler-37 Oct 27, 2022
4f18fab
Update stdlib_linalg.fypp
Euler-37 Oct 27, 2022
1f54a83
Update test_linalg.fypp
Euler-37 Oct 27, 2022
aa410fe
Update stdlib_linalg_repmat.fypp
Euler-37 Oct 27, 2022
0f82104
Update stdlib_linalg_repmat.fypp
Euler-37 Oct 27, 2022
78bebd7
Update test_linalg.fypp
Euler-37 Oct 27, 2022
911b199
Update test_linalg.fypp
Euler-37 Oct 27, 2022
334fb7d
Update CMakeLists.txt
Euler-37 Oct 27, 2022
06d866d
Update test/linalg/test_linalg.fypp
Euler-37 Nov 13, 2022
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
Prev Previous commit
Next Next commit
Update stdlib_linalg_repmat.fypp
  • Loading branch information
@Euler-37
Euler-37 authored Oct 27, 2022
commit aa410fe40d8b941dafc06f0df54b2fc24865531c
1 change: 1 addition & 0 deletions src/stdlib_linalg_repmat.fypp
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -11,6 +11,7 @@ contains
${t1}$, intent(in) :: a(:,:)
integer, intent(in) :: m,n
${t1}$ :: res(m*size(a,1),n*size(a,2))
integer ::i,j,k,l
associate(ma=>size(a,1),na=>size(a,2))
do j=1,n
do l=1,na
Expand Down