void stggrd(float[],float[],long,long[],float[],long[],long,long[][4],long,long*,
      long[]);
void stgpd(float[],float[],float[],float[][2],long,long[],long,long[]);
void stgprg(float[],float[],long,long[],long[][4],long,long);
void stgrec(float[],float[],float[],float[][2],long,long[],long,long[][4],long,
      float[],long,long,float,float*,long,long,long,LOGICAL32,float*);