Attachment #223823 for bug #309675

View | Details | Raw Unified | Return to bug 309675
Collapse All | Expand All

Lines 1-5 Link Here

(-)CLAPACK-3.2.1-orig/INSTALL/Makefile (-1 lines)
1	include ../make.inc	1	include ../make.inc
2	F2CLIB = ../F2CLIBS/libf2c.a
3		2
4	.SUFFIXES : .o .c	3	.SUFFIXES : .o .c
5	all: testlsame testslamch testdlamch testsecond testdsecnd testieee testversion	4	all: testlsame testslamch testdlamch testsecond testdsecnd testieee testversion

Lines 357-363 Link Here

(-)CLAPACK-3.2.1-orig/SRC/Makefile (-1 / +5 lines)
357	zla_heamv.o zla_hercond_c.o zla_hercond_x.o zla_herpvgrw.o \	357	zla_heamv.o zla_hercond_c.o zla_hercond_x.o zla_herpvgrw.o \
358	zla_lin_berr.o zlarscl2.o zlascl2.o zla_wwaddw.o	358	zla_lin_berr.o zlarscl2.o zlascl2.o zla_wwaddw.o
359		359
360	all: ../$(LAPACKLIB)	360	all: ../$(LAPACKLIB) ../$(LAPACKSOLIB)
361		361
362	ifdef USEXBLAS	362	ifdef USEXBLAS
363	ALLXOBJ=$(SXLASRC) $(DXLASRC) $(CXLASRC) $(ZXLASRC) $(ALLXAUX)	363	ALLXOBJ=$(SXLASRC) $(DXLASRC) $(CXLASRC) $(ZXLASRC) $(ALLXAUX)
Lines 370-375 Link Here
370	$(ARCH) $(ARCHFLAGS) $@ $(ALLOBJ) $(ALLXOBJ)	370	$(ARCH) $(ARCHFLAGS) $@ $(ALLOBJ) $(ALLXOBJ)
371	$(RANLIB) $@	371	$(RANLIB) $@
372		372
		373	../$(LAPACKSOLIB): $(ALLOBJ) $(ALLXOBJ)
		374	$(ARCHSO) -o $@ $(SOFLAGS) $(ALLOBJ) $(ALLXOBJ)
		375
		376
373	single: $(SLASRC) $(ALLAUX) $(SCLAUX)	377	single: $(SLASRC) $(ALLAUX) $(SCLAUX)
374	$(ARCH) $(ARCHFLAGS) ../$(LAPACKLIB) $(SLASRC) $(ALLAUX) \	378	$(ARCH) $(ARCHFLAGS) ../$(LAPACKLIB) $(SLASRC) $(ALLAUX) \
375	$(SCLAUX)	379	$(SCLAUX)

Lines 59-66 Link Here

(-)CLAPACK-3.2.1-orig/TESTING/MATGEN/Makefile (-2 / +2 lines)
59	$(DZATGEN)	59	$(DZATGEN)
60		60
61	../../$(TMGLIB): $(SMATGEN) $(CMATGEN) $(SCATGEN) $(DMATGEN) \	61	../../$(TMGLIB): $(SMATGEN) $(CMATGEN) $(SCATGEN) $(DMATGEN) \
62	$(ZMATGEN) $(DZATGEN)	62	$(ZMATGEN) $(DZATGEN) i_len_trim.o i_ceiling.o
63	$(ARCH) $(ARCHFLAGS) $@ $(ALLOBJ)	63	$(ARCH) $(ARCHFLAGS) $@ $(ALLOBJ) i_len_trim.o i_ceiling.o
64	$(RANLIB) $@	64	$(RANLIB) $@
65		65
66	single: $(SMATGEN) $(SCATGEN)	66	single: $(SMATGEN) $(SCATGEN)




#include "f2c.h"

#ifdef KR_headers
integer i_sceiling(x) real *x;
#else
#ifdef __cplusplus
extern "C" {
#endif
integer i_sceiling(real *x)
#endif
{
#define CEIL(x) ((int)(x) + ((x) > 0 && (x) != (int)(x)))

    return (integer) CEIL(*x);
}
#ifdef __cplusplus
}
#endif


#ifdef KR_headers
integer i_dceiling(x) doublereal *x;
#else
#ifdef __cplusplus
extern "C" {
#endif
integer i_dceiling(doublereal *x)
#endif
{
#define CEIL(x) ((int)(x) + ((x) > 0 && (x) != (int)(x)))

    return (integer) CEIL(*x);
}
#ifdef __cplusplus
}
#endif




/* file has been copied from the included f2c library - dilfridge */

#include "f2c.h"
#ifdef __cplusplus
extern "C" {
#endif

#ifdef KR_headers
integer i_len_trim(s, n) char *s; ftnlen n;
#else
integer i_len_trim(char *s, ftnlen n)
#endif
{
  int i;

  for(i=n-1;i>=0;i--)
    if(s[i] != ' ')
      return i + 1;

  return(0);
}
#ifdef __cplusplus
}
#endif

Lines 37-47 Link Here

(-)CLAPACK-3.2.1-orig/TESTING/Makefile (-5 lines)
37		37
38	include ../make.inc	38	include ../make.inc
39		39
40	ifneq ($(strip $(VARLIB)),)
41	LAPACKLIB := $(VARLIB) ../$(LAPACKLIB)
42	endif
43
44
45	all: single complex double complex16 singleproto doubleproto complexproto complex16proto	40	all: single complex double complex16 singleproto doubleproto complexproto complex16proto
46		41
47	SEIGTST= snep.out \	42	SEIGTST= snep.out \

Lines 53-58 Link Here

(-)CLAPACK-3.2.1-orig/make.inc.example (+5 lines)
53	ARCH = ar	53	ARCH = ar
54	ARCHFLAGS= cr	54	ARCHFLAGS= cr
55	RANLIB = ranlib	55	RANLIB = ranlib
		56
		57	ARCHSO = gcc -shared
		58	SOFLAGS =
		59
56	#	60	#
57	# The location of BLAS library for linking the testing programs.	61	# The location of BLAS library for linking the testing programs.
58	# The target's machine-specific, optimized BLAS library should be	62	# The target's machine-specific, optimized BLAS library should be
Lines 72-77 Link Here
72	# Names of generated libraries.	76	# Names of generated libraries.
73	#	77	#
74	LAPACKLIB = lapack$(PLAT).a	78	LAPACKLIB = lapack$(PLAT).a
		79	LAPACKSOLIB = libclapack.so
75	F2CLIB = ../../F2CLIBS/libf2c.a	80	F2CLIB = ../../F2CLIBS/libf2c.a
76	TMGLIB = tmglib$(PLAT).a	81	TMGLIB = tmglib$(PLAT).a
77	EIGSRCLIB = eigsrc$(PLAT).a	82	EIGSRCLIB = eigsrc$(PLAT).a

Return to bug 309675

Line 0 Link Here

(-)CLAPACK-3.2.1-orig/TESTING/MATGEN/i_ceiling.c (+36 lines)
	1	#include "f2c.h"
	2
	3	#ifdef KR_headers
	4	integer i_sceiling(x) real *x;
	5	#else
	6	#ifdef __cplusplus
	7	extern "C" {
	8	#endif
	9	integer i_sceiling(real *x)
	10	#endif
	11	{
	12	#define CEIL(x) ((int)(x) + ((x) > 0 && (x) != (int)(x)))
	13
	14	return (integer) CEIL(*x);
	15	}
	16	#ifdef __cplusplus
	17	}
	18	#endif
	19
	20
	21	#ifdef KR_headers
	22	integer i_dceiling(x) doublereal *x;
	23	#else
	24	#ifdef __cplusplus
	25	extern "C" {
	26	#endif
	27	integer i_dceiling(doublereal *x)
	28	#endif
	29	{
	30	#define CEIL(x) ((int)(x) + ((x) > 0 && (x) != (int)(x)))
	31
	32	return (integer) CEIL(*x);
	33	}
	34	#ifdef __cplusplus
	35	}
	36	#endif

Line 0 Link Here

(-)CLAPACK-3.2.1-orig/TESTING/MATGEN/i_len_trim.c (+24 lines)
	1	/* file has been copied from the included f2c library - dilfridge */
	2
	3	#include "f2c.h"
	4	#ifdef __cplusplus
	5	extern "C" {
	6	#endif
	7
	8	#ifdef KR_headers
	9	integer i_len_trim(s, n) char *s; ftnlen n;
	10	#else
	11	integer i_len_trim(char *s, ftnlen n)
	12	#endif
	13	{
	14	int i;
	15
	16	for(i=n-1;i>=0;i--)
	17	if(s[i] != ' ')
	18	return i + 1;
	19
	20	return(0);
	21	}
	22	#ifdef __cplusplus
	23	}
	24	#endif