OpenXM_contrib2/asir2000/engine/up_gfpn.c - diff

Return to up_gfpn.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / engine

version 1.2, 2000/08/21 08:31:28

version 1.5, 2012/12/17 07:20:44

Line 23

* shall be made on your publication or presentation in any form of the

* results obtained by use of the SOFTWARE.

* (4) In the event that you modify the SOFTWARE, you shall notify FLL by

* e-mail at risa-admin@flab.fujitsu.co.jp of the detailed specification

* e-mail at risa-admin@sec.flab.fujitsu.co.jp of the detailed specification

* for such modification or the source code of the modified part of the

* SOFTWARE.

Line 45

* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,

* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.

* $OpenXM: OpenXM_contrib2/asir2000/engine/up_gfpn.c,v 1.1.1.1 1999/12/03 07:39:08 noro Exp $

* $OpenXM: OpenXM_contrib2/asir2000/engine/up_gfpn.c,v 1.4 2003/12/24 08:00:38 noro Exp $

#include "ca.h"

#include <math.h>

Line 267 UP *r;

k[j] += c2*f[i][j];

}

uiarraytoup(sum,len,d,&s);

GC_free(sum_b);

GCFREE(sum_b);

u = UPALLOC(d);

for ( j = 0; j <= d; j++ ) {

#if 1

a = (UL)floor(k[j]);

#if defined(i386) || defined(__alpha) || defined(VISUAL)

#if defined(i386) || defined(__alpha) || defined(VISUAL) || defined(__x86_64)

au = ((unsigned int *)&a)[1];

al = ((unsigned int *)&a)[0];

#else