🚀 go-pugleaf

I have been trying to release memory space used locally for every local 
variable and array referenced in subroutines or functions except common
blocks.

namely, 
suppose that we have a 100MB memory(say, real memory 32MB and swap 68MB)
and want to run a following program for an example ;

        program test
        integer i,m
        parameter(m=20000000)
        dimension i(m)      ! 20MB*4 = 80MB
        call test1
        stop
        end 
        subroutine test1
        integer m,k
        parameter(m=20000000)
        dimension k(m)      ! 20MB*4 = 80MB 
        return
        end 


I think this problem is one of basic problems and I must be
able to do it by refering g77 manual carefully. However, I tried g77 
compiler with several options, I have not found the way to overcome.
I would greatly appreciate you if you comment on this.

thanks.

Tamiki Komatsuzaki
Department of Chemistry, The univ. of Chicago
email: tamiki@cloister.uchicago.edu

this mail was sent through my friend's account.