/*
  user procedure interface
  name: CFsample
*/

typedef long  T_BOO;
typedef long  T_ANA;
typedef float T_REAL;
typedef long  T_TMR;
typedef char  *T_MSG;

typedef struct {
   /* CALL   */ T_ANA  _p1;
   /* CALL   */ T_ANA  _p2;
   /* RETURN */ T_ANA  _q;
} str_arg;

#define P1               (arg->_p1)
#define P2               (arg->_p2)
#define Q                (arg->_q)
