1extern int dgpfa2f_(doublereal *a, doublereal *b, doublereal *trigs, integer *inc, integer *jump, integer *n, integer *mm, integer *lot, integer *isign);
2