- INTEGER MAXROWS, MAXCOLS, NZNXMAX
- PARAMETER (MAXROWS=400, MAXCOLS=400, NZNXMAX=400)
- INTEGER WAVESIZE, MaxTapeCoeff, NGMAX, NTMAX, tracemax
- PARAMETER (NGMAX=500, MaxTapeCoeff=100, tracemax=4100,
- & WAVESIZE=2250, NTMAX=4001)
- INTEGER ibyte
- PARAMETER (ibyte=4)