View Single Post
Louisa is offline
Mar15-12, 05:57 AM
P: 24

Fortran 90 creating an array of unknown size

Quote Quote by max2112 View Post
I was given an assignment to create a program that solves the Josephus Problem ([URL=""]. the program needs to work for n amount of people, and it must use an array.

I need to create a subroutine that will allow the user to read(*,*) n
and create an array that is n big.


subroutine sub(n)
implicit none
integer :: n, i
integer :: array(n)
do i = 1, n
array(i) = 0
end do
end subroutine sub

program arrays
implicit none

integer :: size, i
write(*,*) "how big is your array"
read(*,*) size
call sub(size)

end program arrays

I am stuck, and dont know why this isnt working.
Why do you think that is not working?
You didn't print out anything after the value of "n" is typed.