Allgemein
The proof is in the pudding
PARAMETER (MEMMIN = 100 000)PARAMETER (MEMLEN = 500 000)COMMON /MEMORY/ FENCE, LQ(MWFLTMEMLEN) SAVE /MEMORY/ INTEGER IQ(MWFLTMEMLEN)REAL FENCE(2), Q(MWFLT*MEMLEN)DIMENSION DQ(MEMLEN)EQUIVALENCE (IQ(1), Q(1), DQ(1), LQ(9))EQUIVALENCE (LROOT, LQ(1)), (LLUMP, LQ(2))