===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2000/builtin/parif.c,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -p -r1.20 -r1.21
--- OpenXM_contrib2/asir2000/builtin/parif.c	2015/08/07 05:40:31	1.20
+++ OpenXM_contrib2/asir2000/builtin/parif.c	2015/08/07 06:15:00	1.21
@@ -17,6 +17,9 @@ pointer evalparif(FUNC f,NODE arg)
   if (strcmp(f->name,"gamma")==0) {
     Pmpfr_gamma(arg,&ret);
     return((pointer) ret);
+  }else if (strcmp(f->name,"floor")==0) {
+    Pmpfr_floor(arg,&ret);
+    return((pointer) ret);
   }
   if ( !ox_pari_stream_initialized ) {
 	  MKSTR(name,"ox_pari");