struct stype { 
  int  (*f1)(int),
       (*f2)(int, double*),
       (*f3)(int, int**),
       (*f4)(double, double**);
};