Dynamically set array length in Fortran77?

halfpower · 12-14-2005, 04:45 PM

Is it possible to dynamically set the size of an array in Fortran 77? For example a code like the one below, but written in such a way that it works.

Code:

        program main
        real r
        integer length

        length=30
	
        do 10 i=1,length
	r(i)=0
10      continue

	do 20 i=1,length
	print *, r(i)
20      continue	

	return
	end

What I'm trying to do is avoid having the following line:

Code:

	real r(30)

sirclif · 12-14-2005, 05:32 PM

Im afraid not. not in real FORTRAN 77 anyway. you can do it in FORTRAN 90. this is one of the most anoying things about FORTRAN 77 for me. if you are writing some program to solve Laplace's equation and you need an array to hold your data, you can either make the array as big as you think you will ever need it, or you can recompile it every time you want to change the size. anyhow, im rambling.

ldenis · 12-15-2005, 08:03 AM

1/ Install Intel fortran for linux or other with F90 or F95 standarts support.
2/ Use alocatable arrays
integer, allocatable :: a(:), b(:,:,:)
...
allocate (a(3), b(1,3,-3:3))
...
deallocate (...)
3/ Thats's all