void stgget(long,long[],long[]);
void stgprg(float[],float[],long,long[],long[][4],long,long);