Lecture_notes_65

Lecture_notes_65 - 1 :N) integer :: i,j call...

Info iconThis preview shows page 1. Sign up to view the full content.

View Full Document Right Arrow Icon
File: /home/pierre/Documents/ProgCl…ortran Code/array_routines.f90 Page 1 of 1 subroutine fill_array_random(A,b,N) use type_module implicit none integer , intent ( in ) :: N real (DP) :: A( 1 :N, 1 :N) real (DP) :: b(
Background image of page 1
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: 1 :N) integer :: i,j call random_number(A) call random_number(b) do i = 1 ,N do j = 1 ,N A(i,i) = A(i,i) + abs (A(i,j)) enddo enddo end subroutine fill_array_random...
View Full Document

Ask a homework question - tutors are online