632020195a
Former-commit-id:fda897d2d0[formerly253e8bc948] [formerlyfda897d2d0[formerly253e8bc948] [formerly295cbf95e5[formerly 0816cd253c86acc699cb90866131619c4679f631]]] Former-commit-id:295cbf95e5Former-commit-id:2a3bf4ec32[formerlyae3d17c698] Former-commit-id:a610dcde73
19 lines
726 B
Text
Executable file
19 lines
726 B
Text
Executable file
C************************************************************************
|
|
C* GBUFFT.CMN *
|
|
C* *
|
|
C* This common contains large temporary buffers for the DEVICE task. *
|
|
C* These buffers are used for the same purpose as GTBUFF in the GPLT *
|
|
C* task. *
|
|
C** *
|
|
C* Log: *
|
|
C* M. Linda/GSC 6/96 Based on GTBUFF *
|
|
C* M. Linda/GSC 1/97 Added mgx() and mgy() *
|
|
C************************************************************************
|
|
INTEGER igx (LLMXPT), igy (LLMXPT)
|
|
INTEGER jgx (LLMXPT), jgy (LLMXPT)
|
|
INTEGER kgx (LLMXPT), kgy (LLMXPT)
|
|
INTEGER mgx (LLMXPT), mgy (LLMXPT)
|
|
REAL rgx (LLMXPT), rgy (LLMXPT)
|
|
C*
|
|
COMMON /GBUFFT/ igx, igy, jgx, jgy, kgx, kgy, rgx, rgy, mgx, mgy
|
|
C
|