#ifdef __ABS
extern struct{
  int outflg;
  int inflg;
  int outdsk;
  int outtrm;
  int outaux;
  int outps;
} _CSG_FLAG;

extern struct  {
  int maxtb;
  int maxdb;
  int ktptr;
  int kdptr;
  int ktqio;
  int ktmbx;
  int kxqio;
  int kdqio;
  int kdsav[2];
  int keepc;
  char tbufa[2048];
  char dbufa[512];
} _CSG_BUFF;
#endif

#if _CRAY
struct{
  int outflg;
  int inflg;
  int outdsk;
  int outtrm;
  int outaux;
  int outps;
} SG_FLAG;

struct  {
  int maxtb;
  int maxdb;
  int ktptr;
  int kdptr;
  int ktqio;
  int ktmbx;
  int kxqio;
  int kdqio;
  int kdsav[2];
  int keepc;
  char tbufa[2048];
  char dbufa[512];
} SG_BUFF;
#else
#if __X1
struct{
  int outflg;
  int inflg;
  int outdsk;
  int outtrm;
  int outaux;
  int outps;
} SG_FLAG_;

struct  {
  int maxtb;
  int maxdb;
  int ktptr;
  int kdptr;
  int ktqio;
  int ktmbx;
  int kxqio;
  int kdqio;
  int kdsav[2];
  int keepc;
  char tbufa[2048];
  char dbufa[512];
} SG_BUFF_;

#else
#ifdef _VMS
#pragma extern_model common_block
#endif
extern struct{
  int outflg;
  int inflg;
  int outdsk;
  int outtrm;
  int outaux;
  int outps;
} sg_flag_;


extern struct  {
#ifndef __f90
  char *tbufa;
  char *dbufa;
#endif
  int maxtb;
  int maxdb;
  int ktptr;
  int kdptr;
  int ktqio;
  int ktmbx;
  int kxqio;
  int kdqio;
  int kdsav[2];
  int keepc;
#ifdef __f90
  char tbufa[2048];
  char dbufa[512];
#endif
} sg_buff_;

#endif
#endif



