13 lines
351 B
Text
13 lines
351 B
Text
|
character*1 kbuf
|
||
|
|
logical*1 kbms
|
||
|
|
integer*2 ihfld
|
||
|
|
integer ifld,ibmap
|
||
|
|
real fld,wfld
|
||
|
|
common /gribsz/ kbuf(1200000),ifld(1),ihfld(990000),
|
||
|
|
+ fld(990000),wfld(990000),
|
||
|
|
+ mxbmap,ibmap(990000),kbms(990000)
|
||
|
|
equivalence (lrbuf,kbuf(1) )
|
||
|
|
data mxbmap /990000/
|
||
|
|
|
||
|
|
|