133dc97f67
Former-commit-id:06a8b51d6d[formerly9f19e3f712[formerly 64fa9254b946eae7e61bbc3f513b7c3696c4f54f]] Former-commit-id:9f19e3f712Former-commit-id:a02aeb236c
12 lines
351 B
Text
12 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/
|
|
|
|
|