e2ecdcfe33
Former-commit-id:a02aeb236c[formerly9f19e3f712] [formerlya02aeb236c[formerly9f19e3f712] [formerly06a8b51d6d[formerly 64fa9254b946eae7e61bbc3f513b7c3696c4f54f]]] Former-commit-id:06a8b51d6dFormer-commit-id:8e80217e59[formerly3360eb6c5f] Former-commit-id:377dcd10b9
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/
|
|
|
|
|