I have a old scientific Fortran program that made liberal use of allocating one very large array in the main routine and then chopping up the array (memory) for smaller use by passing multiple chunks to Subroutines by using an offset. The array in the main program was of type real or double precision and in the receiving routine it could be defined as integer, real or double precision. Also, in the receiving program the dimension of the array could be a single dimension or multi-dimension.
How do I tell the complier to not check the arguments for this type of inconsistency? I would like to be able to do this for the entire program in one place.
Here's and example:
program mymain
dimension a(20)
n1=1
n2=n1+7
n3=n2+6
n4=n3+3
call dowork( a(n1), a(n2), a(n3), a(n4) )
stop
end
subroutine dowork( ifirst, asecond, ithird, afourth)
dimension ifirst(7), ithird(3)
double precision afourth
dimension asecond(2,3), afourth(2)
c Do work
return
end