program vectors
        implicit none
        integer,parameter :: maxsize=10
        integer :: maxnum=100
        integer, dimension(maxsize) :: v1, v2
        integer, dimension(maxsize,maxsize) :: m1
        integer i, j

        write (*, *) 'Generating vector 1...'
        do i= 1, maxsize
            v1(i) = int(ranf()*maxnum)
        end do

        write(*,*) 'Generating vector 2...'
        do i=1, maxsize
            v2(i) = int(ranf()*maxnum)
        end do

        write (*,*) 'V1:', (v1(i),i=1,maxsize)
        write (*,*) 'V2:', (v2(i),i=1,maxsize)

        write(*,*) 'Demo writing a vector with a do loop:'
        do i=1,maxsize
            write(*,*) v1(i), v2(i)
        end do

        write(*,*) 'Generating matrix 1...'
        do i=1,maxsize
            do j = 1, maxsize
                m1(i,j) = int(ranf()*maxnum)
            end do
        end do

        write(*,*) 'Printing the matrix with implied do loops:'
        do i=1,maxsize
            write(*,*) (m1(i,j), j = 1,maxsize)
        end do

        write(*,*) 'Printing the matrix with regular do loops:'
        do i=1, 3
            do j=1, 3   ! 1 value per line, only printing the first 3 values
                write(*,*) m1(i,j)
            end do
        end do

        end program