param.f

来自「弹性波动方程正演程序」· F 代码 · 共 11 行

 	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)