===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2018/engine/d-itv.c,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -p -r1.1 -r1.2
--- OpenXM_contrib2/asir2018/engine/d-itv.c	2018/09/19 05:45:07	1.1
+++ OpenXM_contrib2/asir2018/engine/d-itv.c	2018/09/28 08:20:28	1.2
@@ -1,5 +1,5 @@
 /*
- * $OpenXM$
+ * $OpenXM: OpenXM_contrib2/asir2018/engine/d-itv.c,v 1.1 2018/09/19 05:45:07 noro Exp $
 */
 #if defined(INTERVAL)
 #include <float.h>
@@ -498,7 +498,7 @@ void  pwritvd(Num a, Num e, IntervalDouble *c)
     error("pwritvd : can't calculate a fractional power");
 #endif
   } else {
-    ei = QTOS((Q)e);
+    ei = ZTOS((Q)e);
     pwritv0d((IntervalDouble)a,ei,&t);
     if ( SGN((Q)e) < 0 )
       divnum(0,(Num)ONE,(Num)t,(Num *)c);