void gffsub(double,float[],float[],long,long,long*);