哪位高手帮我看看我这程序，我的这个怎么画不出图来呢

xiaohaha1985

#include <stdio.h>
#include <uf.h>
3 E* m! P. x5 p8 ~+ l0 ^9 B, c#include <uf_defs.h>
4 l# p  ]& r! P2 {#include <uf_exit.h>
#include <uf_ui.h>
#include <uf_styler.h>
#include <uf_mb.h>
#include <C:\Documents and Settings\Administrator\My Documents\bsurface\新建文件夹\bsurface\bsurface.h>

#include <stdlib.h>//后加
#include <uf_part.h>
- N0 z) V; i% o% K& }2 G; P* K#include <uf_defs.h>
#include <uf_modl.h>
: g; G9 V8 J" F" g* r% J1 H
2 Y* X6 ^' [( @' ?. a' Q#define UF_CALL
#define BSURFACE_CB_COUNT ( 4 + 1 ) /* Add 1 for the terminator */
7 R, }% m' F" v" j' g, s7 jstatic UF_STYLER_callback_info_t BSURFACE_cbs[BSURFACE_CB_COUNT] =
4 B8 X$ S, _& m% N{
{UF_STYLER_DIALOG_INDEX, UF_STYLER_CONSTRUCTOR_CB  , 0, BSURFACE_constructor_cb},
{UF_STYLER_DIALOG_INDEX, UF_STYLER_DESTRUCTOR_CB   , 0, BSURFACE_destructor_cb},
{UF_STYLER_DIALOG_INDEX, UF_STYLER_OK_CB           , 0, BSURFACE_ok_cb},
{UF_STYLER_DIALOG_INDEX, UF_STYLER_CANCEL_CB       , 0, BSURFACE_cancle_cb},
{UF_STYLER_NULL_OBJECT, UF_STYLER_NO_CB, 0, 0 }
};

static UF_MB_styler_actions_t actions[] = {
) ~; S) ?. t6 t( d! Z    { "bsurface.dlg",  NULL,   BSURFACE_cbs,  UF_MB_STYLER_IS_NOT_TOP },
) n# u& I* R9 I    { NULL,  NULL,  NULL,  0 } /* This is a NULL terminated list */
/ s- w6 x) P. S};
; b; v) L% L$ z' C) d. [$ F1 {
static void do_ugopen_api(void)
{
( \) A" O# f0 U) z- M" r' a
  char    *prtnam = "create_bsurf";

  /* Points for B-surface  */
7 m% ]! a+ q0 ]3 C5 Y: C! Q  double points[16][3] = { X1, Y1, Z1,
                                       X2, Y2, Z2,
# l' a: g. Y# c6 K) x9 P8 D1 q$ _% m                                       X3, Y3, Z3,
; I9 Y, ]# c% P7 F$ W/ l                                       X4, Y4, Z4,
                                       X5, Y5, Z5,
                                       X6, Y6, Z6,
                                       X7, Y7, Z7,
                                       X8, Y8, Z8,
" ~" v8 Z6 B  ?+ x& W0 R5 j                                       X9, Y9, Z9,
                                       X10, Y10, Z10,
/ I& N7 ]. O- @6 e4 o, `9 S# d" _5 P6 x; X                                       X11, Y11, Z11,
1 F9 S/ ~+ r1 k' w" [8 |2 n/ \- q" g                                       X12, Y12, Z12,
                                       X13, Y13, Z13,
                                       X14, Y14, Z14,
$ i) G0 o8 ~) B/ n9 A* ~                                       X15, Y15, Z15,
                                       X16, Y16, Z16 };       
  |! G9 i/ M6 ?! i  D
- `# f$ [% E- q" @8 j" J2 q0 I0 w  int create_mode = 1;
  int u_closed_status = 0;
2 H3 o, E8 r; u8 M  int v_closed_status = 0;
  int u_degree = 3;
* ]8 J" s4 D* z; T0 |  int v_degree = 3;
  int num_rows = 4;
  int pts_per_row[4] = {4, 4, 4, 4};
' k. x  s5 [. K  [3 q: b& \   
% t! N4 b/ x" f# L, r) d; U  int ii, jj, kk, indx;
4 D$ r# x, ]# c* a, w. r  o; a        
  tag_t   part_tag;
  tag_t   bsurf_obj_id = NULL_TAG;
5 n$ L: T7 A7 `! s1 V
) O2 c2 e+ W6 b! \* f: n# p3 T  UF_MODL_bsurf_row_info_t *pts_info_per_row; /* pts info for each row */
" T: b  M$ V4 `. \  UF_MODL_bsurface_t   bsurf;
5 T8 z5 @# v, V: G  J7 h9 T( |+ x
0 h& a: V) x9 N4 v8 s0 F1 Y6 F
  /* Open a new part */
/ [5 f6 X+ Z/ M% ]* L  UF_CALL( UF_PART_new(prtnam, METRIC, &part_tag) );
% l, j8 _+ R1 W& ~! K5 V- g
# A# Z0 [2 K) u  pts_info_per_row = ( UF_MODL_bsurf_row_info_t *)malloc( num_rows *
. y7 i  Z5 s. U' M' x9 `) f0 X                       sizeof(UF_MODL_bsurf_row_info_t) );
) {$ ^) o- t/ M* ]: b* d5 n   
# u7 D7 [4 h5 b* o9 \  /* allocate and load point and other information for each row of points */
  indx = 0;
6 M/ I8 y# Q( g( X, b3 o  for (ii=0; ii<num_rows; ii++)
  {
) W1 ^4 F7 ?0 l0 O$ |# H3 u    pts_info_per_row[ii].num_points = pts_per_row[ii];  /* can vary */
    pts_info_per_row[ii].points = (double *)malloc( pts_per_row[ii] * 3 *
, N5 R! }7 @6 m1 {' Q: E/ Y                                   sizeof(double) );
! v* Q: _, V, P, m4 e  F! s      
    pts_info_per_row[ii].weight = (double *)malloc( pts_per_row[ii] *
2 B/ c( B1 `7 X; P: S! L- g                                   sizeof(double) );
               
    /* load up point and weight info */
: r% ^% o0 f9 Q- _9 @4 h3 p/ l    for (jj=0, kk = 0; kk<pts_per_row[ii]; kk++, jj+=3, indx++)
    {
; U, ?& ]* X; g* C/ E      pts_info_per_row[ii].points[jj] = points[indx][0];
      pts_info_per_row[ii].points[jj+1] = points[indx][1];
) z; |% z& n1 Z+ i0 ]5 Z      pts_info_per_row[ii].points[jj+2] = points[indx][2];
) ]; ~2 s! u' G1 f2 c: E! P+ A      pts_info_per_row[ii].weight[kk] = 1.0;
   
    }
  }
. @/ X& h* X$ V3 _$ \& w! i. c  
2 n0 V1 k5 |9 k+ u; U  /* create B-surface */
  UF_CALL(UF_MODL_create_bsurf_thru_pts( create_mode, u_closed_status,
                                         v_closed_status, u_degree,
. J% v7 D  I( u1 I                                         v_degree, num_rows, pts_info_per_row,
                                         &bsurf_obj_id));
; _% E  U* M3 T1 O: S& E9 U                   
( G' r' p1 I( _9 n  if ( bsurf_obj_id == NULL_TAG )
: O9 a( S2 E" b    printf("*** ERROR CREATING B-SURFACE ***\n");

% D) H' a5 ?3 Z8 E  /* free allocated memory */
  for (ii=0; ii<num_rows; ii++)
& B; R7 R* F# F) i  {
    free(pts_info_per_row[ii].points);
    free(pts_info_per_row[ii].weight);
  }
  
; X9 A( }$ O4 w" X" Z  free(pts_info_per_row);
! |7 L2 Z/ k) o7 F  I7 x1 U6 V   
: [/ a! J! O. a- w- C5 {: B   
  /* ask the B-surface information */
2 |' y* f; n$ k( u  UF_CALL(UF_MODL_ask_bsurf( bsurf_obj_id, &bsurf ));
  
  /* validate the surface */
! F9 e3 ^' Z  L. e  p- t; r# V" u  if ( (bsurf.order_u != u_degree+1) || (bsurf.order_v != v_degree+1) )
    printf("*** ERROR ASKING B-SURFACE ***\n");
  
" b0 s; T" g2 U: E$ }1 B9 T& l  UF_CALL(UF_MODL_free_bsurf_data(&bsurf));
0 {: E, Y6 o: ]' ]4 [

}
" Q6 _8 [7 N  cextern DllExport void ufsta (char *param, int *retcode, int rlen)
' C( C5 a1 q+ d{
+ {3 ]+ X; {6 i# D: i    int  error_code;

    if ( (UF_initialize()) != 0)
        do_UGopen_api();  
                return;
                                                
- ]% w- ~. l  L/ w  h    if ( (error_code = UF_MB_add_styler_actions ( actions ) ) != 0 )
: k" u# `$ A) W: R" E    {
          char fail_message[133];
  B/ Y+ l0 p- `7 T6 `) H         
          UF_get_fail_message(error_code, fail_message);
# k) K7 U0 p2 n- ]! G          printf ( "%s\n", fail_message );
    }
                                                
: K( B7 \% O6 _) v, L    UF_terminate();                             
( L3 ~. U/ M" [! W    return;
/ ^5 S/ ?  s3 Y" I6 J! k}
" a' C: s/ ^! K( H$ Kextern int LaunchBsurfaceDialog ( int *response )
6 I5 ]9 B" [/ l  h7 l{
% F7 H/ q* w, W" p: t$ e8 W& C    int  error_code = 0;
; ]& k; L( l3 z: H
    if ( ( error_code = UF_initialize() ) != 0 )
           return (0) ;
" |4 g' H  A/ k2 a3 v# \
    if ( ( error_code = UF_STYLER_create_dialog ( "bsurface.dlg",
           BSURFACE_cbs,      /* Callbacks from dialog */
           BSURFACE_CB_COUNT, /* number of callbacks*/
           NULL,        /* This is your client data */
           response ) ) != 0 )
* F- V- K; N" o5 e* x5 N3 _    {
          char fail_message[133];

          /* Get the user function fail message based on the fail code.*/
          UF_get_fail_message(error_code, fail_message);
          UF_UI_set_status (fail_message);
          printf ( "%s\n", fail_message );
# y) [% f- ^, M1 J9 H    }
$ J( H8 ~% ?1 p) n( k

; s0 m5 U% P! d* Z; R& o    UF_terminate();                             
    return (error_code);
& `! t! B# e5 X" l' B9 t}
5 v( x. f; g# }: E  Q
5 t6 s' i' R. S& P7 wextern int ufusr_ask_unload (void)
{
8 C. p8 Y' w2 [. \     /* unload immediately after application exits*/
- i, L3 |, I# P% q* z5 C2 y     return ( UF_UNLOAD_IMMEDIATELY );
+ t( U7 A$ }8 T3 f1 F6 d  Q}
extern void ufusr_cleanup (void)
{
    return;
) e) R  N( F& T( t. Y}
#endif

xiaohaha1985

求高手帮忙看看那这程序急用啊

xiaohaha1985

int BSURFACE_ok_cb ( int dialog_id,
2 A  ?7 ^. `% z7 L# W3 U             void * client_data,
             UF_STYLER_item_value_type_p_t callback_data)
# h0 w; ]' E% I$ q( U{
     /* Make sure User Function is available. */  
     if ( UF_initialize() != 0)
          return ( UF_UI_CB_CONTINUE_DIALOG );
* J9 \7 m, o7 G' Z4 O6 t6 F" l% Y
     /*获取对话框数据*/
% S/ T: Z) A7 R6 q2 ~' j' M         
         UF_STYLER_item_value_type_t data;
         data.item_attr=UF_STYLER_VALUE;
         
# ^! v% E* A1 G4 @4 Y( E" c         data.item_id=BSURFACE_REAL_X1;
$ o$ ?! d4 d" H% |$ [8 o" p# R- L         UF_STYLER_ask_value(dialog_id,&data);
, v( p0 i* T( f1 [  E         X1=data.value.real;
3 ^  j7 I# M! w/ c1 F7 g) V; [         
# B* |: W2 v3 }. @* H         data.item_id=BSURFACE_REAL_Y1;
5 J& f- Q; G# l/ p: V3 v4 {         UF_STYLER_ask_value(dialog_id,&data);
2 Z- K# C, C9 C8 ?0 s8 C" V+ m         Y1=data.value.real;

/ S9 ?. k4 z$ V$ |     data.item_id=BSURFACE_REAL_Z1;
         UF_STYLER_ask_value(dialog_id,&data);
0 @' X; y6 S$ \1 I         Z1=data.value.real;
         
( ^( M4 Q7 ]+ d6 E' f8 W1 k         data.item_id=BSURFACE_REAL_X2;
5 b8 t9 h  C8 T" S         UF_STYLER_ask_value(dialog_id,&data);
         X2=data.value.real;
         
         data.item_id=BSURFACE_REAL_Y2;
8 E/ b2 \0 k, i) c         UF_STYLER_ask_value(dialog_id,&data);
         Y2=data.value.real;
! N" g9 A4 b6 d/ b         
         data.item_id=BSURFACE_REAL_Z2;
         UF_STYLER_ask_value(dialog_id,&data);
6 F* [4 K+ E% k6 M         Z2=data.value.real;
& I5 x  K, T1 A/ q1 Y         
0 ]# b' u; D: j" U- i         data.item_id=BSURFACE_REAL_X3;
         UF_STYLER_ask_value(dialog_id,&data);
& b4 X5 T3 V# M% v& B         X3=data.value.real;
% ~2 Y9 {7 m! P, c8 s         
+ e4 q3 G8 X4 I         data.item_id=BSURFACE_REAL_Y3;
# x& l  Y* m8 n2 i( d$ o% q; X         UF_STYLER_ask_value(dialog_id,&data);
1 d5 k8 \7 n7 [: t         Y3=data.value.real;
         
         data.item_id=BSURFACE_REAL_Z3;
         UF_STYLER_ask_value(dialog_id,&data);
         Z3=data.value.real;
, a/ g# F+ Z9 O, `% p0 z& p         
" j# s; i2 ~  O( {         data.item_id=BSURFACE_REAL_X4;
         UF_STYLER_ask_value(dialog_id,&data);
         X4=data.value.real;
3 f2 p: ^( j, l% W
* ~7 a% Q, f5 j         data.item_id=BSURFACE_REAL_Y4;
         UF_STYLER_ask_value(dialog_id,&data);
         Y4=data.value.real;
$ f+ B2 S6 J* ^, H$ W1 H         
         data.item_id=BSURFACE_REAL_Z4;
         UF_STYLER_ask_value(dialog_id,&data);
         Z4=data.value.real;
: m- T( ?! ?! ^5 C  J8 G         
         data.item_id=BSURFACE_REAL_X5;
         UF_STYLER_ask_value(dialog_id,&data);
8 `: f9 ~  ^/ ~8 Z+ o# i7 e         X5=data.value.real;

         data.item_id=BSURFACE_REAL_Y5;
  k2 X* W# F- ?1 [& O* I' H+ i         UF_STYLER_ask_value(dialog_id,&data);
; t. W: f0 V1 T# R7 @         Y5=data.value.real;
. m7 O2 L$ P- @         
) C7 a: Y/ L6 `6 K. n         data.item_id=BSURFACE_REAL_Z5;
& d5 L/ M; }9 P0 U         UF_STYLER_ask_value(dialog_id,&data);
; S! [  `2 F- d$ R         Z5=data.value.real;
         
         data.item_id=BSURFACE_REAL_X6;
4 N1 l: D* ~; H. }         UF_STYLER_ask_value(dialog_id,&data);
         X6=data.value.real;

# m7 b7 ]; X- a" {' f/ B& Q         data.item_id=BSURFACE_REAL_Y6;
         UF_STYLER_ask_value(dialog_id,&data);
         Y6=data.value.real;
" L8 G1 }. j8 U8 I( P. @         
         data.item_id=BSURFACE_REAL_Z6;
0 N  g# C& C, s8 ?& N2 v         UF_STYLER_ask_value(dialog_id,&data);
$ A9 T! L  ^5 `: k( E' z         Z6=data.value.real;
         
; k2 o/ P4 H  _! U9 |3 p$ x2 a         data.item_id=BSURFACE_REAL_X7;
         UF_STYLER_ask_value(dialog_id,&data);
         X7=data.value.real;
         
         data.item_id=BSURFACE_REAL_Y7;
         UF_STYLER_ask_value(dialog_id,&data);
         Y7=data.value.real;
     
7 t8 H, d0 y/ H" U( S8 d  h         data.item_id=BSURFACE_REAL_Z7;
         UF_STYLER_ask_value(dialog_id,&data);
         Z7=data.value.real;
         
4 P, ]. Q4 S4 M: X         data.item_id=BSURFACE_REAL_X8;
  S+ C0 b8 T7 Z         UF_STYLER_ask_value(dialog_id,&data);
' S" Q4 Q* t! H0 I, F         X8=data.value.real;
! {4 E) ~! H% v# z. \         
1 j" {+ }6 }7 t         data.item_id=BSURFACE_REAL_Y8;
         UF_STYLER_ask_value(dialog_id,&data);
: R( L0 p9 \% z  U% W         Y8=data.value.real;
         
7 `3 w( E+ t( J( I2 O         data.item_id=BSURFACE_REAL_Z8;
         UF_STYLER_ask_value(dialog_id,&data);
% e  N# y4 m7 |# ?* v- O         Z8=data.value.real;
         
         data.item_id=BSURFACE_REAL_X9;
         UF_STYLER_ask_value(dialog_id,&data);
         X9=data.value.real;
         
         data.item_id=BSURFACE_REAL_Y9;
         UF_STYLER_ask_value(dialog_id,&data);
7 o: i. A$ X! s+ f) e         Y9=data.value.real;
         
: r+ y  D* Q& D5 V         data.item_id=BSURFACE_REAL_Z9;
" b6 J2 T9 j2 L9 }0 x/ n9 A         UF_STYLER_ask_value(dialog_id,&data);
9 U  d  E8 l$ _( g1 ]9 l         Z9=data.value.real;
5 n0 _, O% v" g$ R) L3 F         
         data.item_id=BSURFACE_REAL_X10;
3 Z. a# e* [" X( C         UF_STYLER_ask_value(dialog_id,&data);
& k% P" Q/ C0 S: @- j0 M9 S9 N         X10=data.value.real;
( c' r7 a$ W5 I* W1 v/ \" Y
         data.item_id=BSURFACE_REAL_Y10;
4 T. t- L- e# T9 V% S         UF_STYLER_ask_value(dialog_id,&data);
         Y10=data.value.real;
         
         data.item_id=BSURFACE_REAL_Z10;
         UF_STYLER_ask_value(dialog_id,&data);
         Z10=data.value.real;
$ `! R0 u5 ~8 L* Z+ [7 a         
' x/ {3 Z* M- q         data.item_id=BSURFACE_REAL_X11;
         UF_STYLER_ask_value(dialog_id,&data);
         X11=data.value.real;

4 Y: b4 u) {# d- {! m" b/ M         data.item_id=BSURFACE_REAL_Y11;
         UF_STYLER_ask_value(dialog_id,&data);
2 P! ^2 X, F" f* W& N. w7 V5 F. A0 I         Y11=data.value.real;
4 ^+ s( k- _; ^  D- R         
- b, t* o. b" W$ W4 o) k: e         data.item_id=BSURFACE_REAL_Z11;
         UF_STYLER_ask_value(dialog_id,&data);
6 c6 _2 V# }8 H8 S2 P8 X         Z11=data.value.real;
% S% s4 {  T: o2 \% y8 l8 j         
         data.item_id=BSURFACE_REAL_X12;
         UF_STYLER_ask_value(dialog_id,&data);
         X12=data.value.real;

! m$ g, A0 Y2 w         data.item_id=BSURFACE_REAL_Y12;
0 ~  @& N- ]8 X         UF_STYLER_ask_value(dialog_id,&data);
         Y12=data.value.real;
1 q2 t& @2 P. X7 m: _         
2 C% o: v7 W1 E1 z         data.item_id=BSURFACE_REAL_Z12;
3 V  q. a% a$ j2 H# G5 r! F         UF_STYLER_ask_value(dialog_id,&data);
         Z12=data.value.real;
         
         data.item_id=BSURFACE_REAL_X13;
         UF_STYLER_ask_value(dialog_id,&data);
         X13=data.value.real;
2 D0 \4 X, A& t. t, J         
         data.item_id=BSURFACE_REAL_Y13;
         UF_STYLER_ask_value(dialog_id,&data);
         Y13=data.value.real;
9 }2 V2 R! P6 k# A
     data.item_id=BSURFACE_REAL_Z13;
# {) m( E2 s7 f( M         UF_STYLER_ask_value(dialog_id,&data);
/ @% C. o& s: n' T( v" ~* F0 l' K4 R         Z13=data.value.real;

7 Z! \* F& k% j1 s% Z         data.item_id=BSURFACE_REAL_X14;
9 U! J: U! r" `+ @6 {% \3 Z7 j* N         UF_STYLER_ask_value(dialog_id,&data);
5 g) K, i; q5 ~1 S6 d3 m         X14=data.value.real;
- _) j3 t' ]' k) K: x1 Y1 }         
         data.item_id=BSURFACE_REAL_Y14;
: l, x3 Z3 R" m6 a% F  _) g5 E7 j         UF_STYLER_ask_value(dialog_id,&data);
         Y14=data.value.real;
& E. u; C1 C8 h5 x7 T
1 p! U1 ], s0 v$ I     data.item_id=BSURFACE_REAL_Z14;
9 \% G0 m: y7 F0 i6 |         UF_STYLER_ask_value(dialog_id,&data);
' o8 o0 K2 }- M; n: H6 P$ f1 S# {8 s         Z14=data.value.real;
: k8 N7 X/ C# Y0 V9 T4 q- T2 R
6 h. F3 f3 q1 {# T! [8 S4 T8 o         data.item_id=BSURFACE_REAL_X15;
         UF_STYLER_ask_value(dialog_id,&data);
         X15=data.value.real;
) M' Z$ W- c3 y9 Z/ X, Y         
! [' c: `9 R- z2 |         data.item_id=BSURFACE_REAL_Y15;
! X! k- P; w  v9 P! u, j         UF_STYLER_ask_value(dialog_id,&data);
         Y15=data.value.real;
# _5 T  ^, @( m: o: g) j1 f+ Z. K
% j7 T; @$ X! s' [     data.item_id=BSURFACE_REAL_Z15;
         UF_STYLER_ask_value(dialog_id,&data);
5 }, e) z. [  m1 t0 x; n         Z15=data.value.real;

9 T) Z6 X% {2 J$ O' ^+ W# ~7 t) S* Q         data.item_id=BSURFACE_REAL_X16;
) N3 ~5 S/ w! Y% r/ C! J* r         UF_STYLER_ask_value(dialog_id,&data);
" r; s( f8 U8 M+ Q' \         X16=data.value.real;
         
         data.item_id=BSURFACE_REAL_Y16;
         UF_STYLER_ask_value(dialog_id,&data);
         Y16=data.value.real;
8 M" u8 F. S2 i0 X  {9 @0 H
     data.item_id=BSURFACE_REAL_Z16;
& ]1 I2 \) Q. O9 P4 D7 u" |         UF_STYLER_ask_value(dialog_id,&data);
) G' A* B6 g8 u2 O% A# J+ A         Z16=data.value.real;

     UF_terminate ();

    /* Callback acknowledged, terminate dialog             */
    /* It is STRONGLY recommended that you exit your       */
# A% c$ Y9 J, i2 x3 _    /* callback with UF_UI_CB_EXIT_DIALOG in a ok callback.*/
! o4 ]# U. U8 |; @7 |3 @    /* return ( UF_UI_CB_EXIT_DIALOG );                    */
    return (UF_UI_CB_EXIT_DIALOG);                           

5 J, E" y- R: K; }  E}
extern int LaunchBsurfaceDialog ( int *response )
7 z% j0 s% ^4 Y{
, U7 J  H; o' ^) c+ F' M7 E    int  error_code = 0;

    if ( ( error_code = UF_initialize() ) != 0 )
$ Z! \  \: @  M/ I           return (0) ;

    if ( ( error_code = UF_STYLER_create_dialog ( "bsurface.dlg",
1 G: H: J4 R- D* F" W2 q           BSURFACE_cbs,      /* Callbacks from dialog */
           BSURFACE_CB_COUNT, /* number of callbacks*/
) ~  ~7 V: s; w7 b4 b+ v* h           NULL,        /* This is your client data */
           response ) ) != 0 )
    {
          char fail_message[133];

          /* Get the user function fail message based on the fail code.*/
( F* [5 h& f; @. J& I          UF_get_fail_message(error_code, fail_message);
          UF_UI_set_status (fail_message);
3 k: `. ~$ N2 ~% z- X, N          printf ( "%s\n", fail_message );
: v" E/ V* Q; ]- m2 @% E) z1 ?    }
5 r; B% p- i) J
# P3 @9 Y. b& J3 Y  y/ g% [" W  b
  }7 t% T0 b+ `2 a! l8 c, m    UF_terminate();                             
    return (error_code);
}