Return to assert4.rr CVS log

Up to [local] / OpenXM / src / ox_gsl

Annotation of OpenXM/src/ox_gsl/assert4.rr, Revision 1.1

1.1     ! takayama    1: /* $OpenXM$ */
        !             2: #define myfail(s) printf("%a fails, Ans0=%a, Ans=%a\n",s,Ans0,Ans)
        !             3: #define dcmp2(a,b,e) (deval(abs(1-a/b))>e?1:0)
        !             4: Pid=ox_launch(0,getenv("OpenXM_HOME")+"/src/ox_gsl/ox_gsl");
        !             5: // Try 1.
        !             6: ox_cmo_rpc(Pid,"gsl_eigen_nonsymmv",[1.0, 2.0, 3.0, 4.0]);
        !             7: Ans2=ox_pop_cmo(Pid);
        !             8: Ans1=ox_pop_cmo(Pid);
        !             9: end$
        !            10: