/[packages]/cauldron/HDF/current/SOURCES/hdf-4.2r3-ppc.patch
ViewVC logotype

Contents of /cauldron/HDF/current/SOURCES/hdf-4.2r3-ppc.patch

Parent Directory Parent Directory | Revision Log Revision Log

Revision 72538 - (show annotations) (download)
Wed Mar 16 13:11:09 2011 UTC (13 years, 1 month ago) by grenoya
File size: 68148 byte(s) 
imported package HDF
1 diff -up HDF4.2r2/hdf/src/hdfi.h.ppc HDF4.2r2/hdf/src/hdfi.h
2 --- HDF4.2r2/hdf/src/hdfi.h.ppc 2007-09-17 17:45:17.000000000 +0200
3 +++ HDF4.2r2/hdf/src/hdfi.h 2007-10-17 23:04:40.000000000 +0200
4 @@ -76,6 +76,7 @@
5 #define DFMT_IA64 0x4441
6 #define DFMT_LINUX64 0x4441
7 #define DFMT_POWERPC64 0x1111
8 +#define DFMT_LINUXPPC 0x1111
9
10 /* I/O library constants */
11 #define UNIXUNBUFIO 1
12 @@ -1392,6 +1393,57 @@ typedef long hdf_pint_t;
13
14 #endif /*Linux 64 */
15
16 +/* Linux PPC */
17 +#if defined __powerpc__ && !defined __powerpc64__
18 +
19 +#ifdef GOT_MACHINE
20 +If you get an error on this line more than one machine type has been defined.
21 +Please check your Makefile.
22 +#endif
23 +#define GOT_MACHINE
24 +
25 +#include <sys/file.h> /* for unbuffered i/o stuff */
26 +#include <sys/stat.h>
27 +#define DF_MT DFMT_LINUXPPC
28 +typedef void VOID;
29 +typedef void *VOIDP;
30 +typedef char *_fcd;
31 +typedef char char8;
32 +typedef unsigned char uchar8;
33 +typedef char int8;
34 +typedef unsigned char uint8;
35 +typedef short int int16;
36 +typedef unsigned short int uint16;
37 +typedef int int32;
38 +typedef unsigned int uint32;
39 +typedef int intn;
40 +typedef unsigned int uintn;
41 +typedef int intf; /* size of INTEGERs in Fortran compiler */
42 +typedef float float32;
43 +typedef double float64;
44 +typedef long hdf_pint_t; /* an integer the same size as a pointer */
45 +#define FNAME_POST_UNDERSCORE
46 +#define _fcdtocp(desc) (desc)
47 +#ifdef HAVE_FMPOOL
48 +#define FILELIB PAGEBUFIO /* enable page buffering */
49 +#else
50 +#define FILELIB UNIXBUFIO
51 +#endif
52 +
53 +/* JPEG #define's - Look in the JPEG docs before changing - (Q) */
54 +
55 +/* Determine the memory manager we are going to use. Valid values are: */
56 +/* MEM_DOS, MEM_ANSI, MEM_NAME, MEM_NOBS. See the JPEG docs for details on */
57 +/* what each does */
58 +#define JMEMSYS MEM_ANSI
59 +
60 +#ifdef __GNUC__
61 +#define HAVE_STDC
62 +#define INCLUDES_ARE_ANSI
63 +#endif
64 +
65 +#endif /*Linux PPC */
66 +
67 /*#ifndef GOT_MACHINE
68 No machine type has been defined. Your Makefile needs to have someing like
69 -DSUN or -DUNICOS in order for the HDF internal structures to be defined
70 diff -up HDF4.2r2/mfhdf/libsrc/array.c.ppc HDF4.2r2/mfhdf/libsrc/array.c
71 diff -up HDF4.2r2/mfhdf/libsrc/putget.c.ppc HDF4.2r2/mfhdf/libsrc/putget.c
72 diff -up HDF4.2r2/mfhdf/libsrc/netcdf.h.in.ppc HDF4.2r2/mfhdf/libsrc/netcdf.h.in
73 --- HDF4.2r2/mfhdf/libsrc/netcdf.h.in.ppc 2007-09-06 23:48:49.000000000 +0200
74 +++ HDF4.2r2/mfhdf/libsrc/netcdf.h.in 2007-10-17 22:48:25.000000000 +0200
75 @@ -295,7 +295,7 @@ typedef double ncdouble;
76 */
77 #if defined _CRAYMPP
78 typedef short nclong;
79 -#elif defined __alpha || (_MIPS_SZLONG == 64) || defined IA64 || (defined __sun__ && defined _LP64) || defined AIX5L64
80 +#elif defined __alpha || (_MIPS_SZLONG == 64) || defined IA64 || (defined __sun__ && defined _LP64) || defined AIX5L64 || defined __powerpc64__
81 typedef int nclong;
82 #else
83 typedef long nclong; /* default, compatible type */
84 diff -up HDF4.2r2/mfhdf/libsrc/config/netcdf-linux.h.ppc HDF4.2r2/mfhdf/libsrc/config/netcdf-linux.h
85 --- HDF4.2r2/mfhdf/libsrc/config/netcdf-linux.h.ppc 2004-11-22 19:57:50.000000000 +0100
86 +++ HDF4.2r2/mfhdf/libsrc/config/netcdf-linux.h 2007-10-17 22:48:25.000000000 +0200
87 @@ -304,7 +304,7 @@ typedef double ncdouble;
88 */
89 #if defined _CRAYMPP
90 typedef short nclong;
91 -#elif defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined __x86_64__
92 +#elif defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined __x86_64__ || defined __powerpc64__
93 typedef int nclong;
94 #else
95 typedef long nclong; /* default, compatible type */
96 diff -up HDF4.2r2/mfhdf/fortran/config/jackets-irix6.c.ppc HDF4.2r2/mfhdf/fortran/config/jackets-irix6.c
97 --- HDF4.2r2/mfhdf/fortran/config/jackets-irix6.c.ppc 2006-11-01 17:53:11.000000000 +0100
98 +++ HDF4.2r2/mfhdf/fortran/config/jackets-irix6.c 2007-10-17 22:48:25.000000000 +0200
99 @@ -34,7 +34,7 @@
100
101 struct ncfils { /* This will be a common block from Fortran */
102 double dd;
103 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
104 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
105 int ll;
106 #else
107 long ll;
108 @@ -65,7 +65,7 @@ struct ncfils { /* This will be a comm
109
110 struct ncfils { /* This will be a common block from Fortran */
111 double dd;
112 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
113 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
114 int ll;
115 #else
116 long ll;
117 @@ -430,7 +430,7 @@ stoig(shorts, ints, dims, basis, ndims)
118 }
119 #endif /* FORTRAN_HAS_NO_SHORT */
120
121 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
122 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
123 /*
124 * Convert multi-dimensional array of NCLONGs stored in ints to packed
125 * array of longs, in malloc'ed space. Returns pointer to longs or NULL
126 @@ -917,7 +917,7 @@ nncvpt1(cdfid, varid, indices, value, rc
127 return;
128 } /* else */
129 #endif /* FORTRAN_HAS_NO_SHORT */
130 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
131 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
132 #ifdef HDF
133 if ((nc_type) datatype == NC_LONG && handle->file_type!=HDF_FILE) {
134 long longs = *(int *)value;
135 @@ -1031,7 +1031,7 @@ nncvpt(cdfid, varid, start, count, value
136 return;
137 } /* else */
138 #endif /* FORTRAN_HAS_NO_SHORT */
139 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
140 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
141 #ifdef HDF
142 if ((nc_type) datatype == NC_LONG && handle->file_type!=HDF_FILE) {
143 long *longs = itol (value, ncount, ndims);
144 @@ -1142,7 +1142,7 @@ nncvptg(cdfid, varid, start, count, stri
145 tmpbasis = nctypelen(NC_LONG);
146 else
147 #endif
148 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
149 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
150 if (datatype == NC_LONG)
151 tmpbasis = sizeof(int);
152 else
153 @@ -1199,7 +1199,7 @@ nncvptg(cdfid, varid, start, count, stri
154 return;
155 } /* else */
156 #endif /* FORTRAN_HAS_NO_SHORT */
157 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
158 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
159 #ifdef HDF
160 if ((nc_type) datatype == NC_LONG && handle->file_type!=HDF_FILE) {
161 long *longs = itolg (value, ncount, nbasis, ndims);
162 @@ -1335,7 +1335,7 @@ nncvgt1(cdfid, varid, indices, value, rc
163 return;
164 } /* else */
165 #endif /* FORTRAN_HAS_NO_SHORT */
166 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
167 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
168 #ifdef HDF
169 if ((nc_type) datatype == NC_LONG && handle->file_type!=HDF_FILE) {
170 long longs;
171 @@ -1477,7 +1477,7 @@ nncvgt(cdfid, varid, start, count, value
172 return;
173 } /* else */
174 #endif /* FORTRAN_HAS_NO_SHORT */
175 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
176 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
177 #ifdef HDF
178 if ((nc_type) datatype == NC_LONG && handle->file_type!=HDF_FILE) {
179 long iocount = dimprod (ncount, ndims); /* product of dimensions */
180 @@ -1615,7 +1615,7 @@ nncvgtg(cdfid, varid, start, count, stri
181 tmpbasis = nctypelen(NC_LONG);
182 else
183 #endif
184 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
185 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
186 if (datatype == NC_LONG)
187 tmpbasis = sizeof(int);
188 else
189 @@ -1686,7 +1686,7 @@ nncvgtg(cdfid, varid, start, count, stri
190 return;
191 } /* else */
192 #endif /* FORTRAN_HAS_NO_SHORT */
193 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
194 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
195 #ifdef HDF
196 if ((nc_type) datatype == NC_LONG && handle->file_type!=HDF_FILE) {
197 long iocount = dimprod (ncount, ndims); /* product of dimensions */
198 @@ -1852,7 +1852,7 @@ nncapt(cdfid, varid, attname, datatype,
199 return;
200 } /* else */
201 #endif /* FORTRAN_HAS_NO_SHORT */
202 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
203 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
204 #ifdef HDF
205 if ((nc_type) *datatype == NC_LONG && handle->file_type!=HDF_FILE) {
206 long *longs = itol (value, attlen, 1);
207 @@ -2017,7 +2017,7 @@ nncagt(cdfid, varid, attname, value, rco
208 return;
209 } /* else */
210 #endif /* FORTRAN_HAS_NO_SHORT */
211 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
212 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
213 #ifdef HDF
214 if ((nc_type) datatype == NC_LONG && handle->file_type!=HDF_FILE) {
215 /* EIP We need int buffer to read data in on the platfroms where long is 8 bytes
216 diff -up HDF4.2r2/mfhdf/fortran/config/jackets-t3e.c.ppc HDF4.2r2/mfhdf/fortran/config/jackets-t3e.c
217 --- HDF4.2r2/mfhdf/fortran/config/jackets-t3e.c.ppc 2005-02-09 04:04:19.000000000 +0100
218 +++ HDF4.2r2/mfhdf/fortran/config/jackets-t3e.c 2007-10-17 22:48:25.000000000 +0200
219 @@ -39,7 +39,7 @@
220
221 struct ncfils { /* This will be a common block from Fortran */
222 double dd;
223 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
224 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
225 int ll;
226 #else
227 long ll;
228 @@ -70,7 +70,7 @@ struct ncfils { /* This will be a comm
229
230 struct ncfils { /* This will be a common block from Fortran */
231 double dd;
232 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
233 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
234 int ll;
235 #else
236 long ll;
237 @@ -435,7 +435,7 @@ stoig(shorts, ints, dims, basis, ndims)
238 }
239 #endif /* FORTRAN_HAS_NO_SHORT */
240
241 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
242 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
243 /*
244 * Convert multi-dimensional array of NCLONGs stored in ints to packed
245 * array of longs, in malloc'ed space. Returns pointer to longs or NULL
246 @@ -931,7 +931,7 @@ NCVPT1(cdfid, varid, indices, value, rco
247 return;
248 } /* else */
249 #endif /* FORTRAN_HAS_NO_SHORT */
250 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
251 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
252 #ifdef HDF
253 if ((nc_type) datatype == NC_LONG && handle->file_type!=HDF_FILE) {
254 long longs = *(int *)value;
255 @@ -1046,7 +1046,7 @@ NCVPT(cdfid, varid, start, count, value,
256 return;
257 } /* else */
258 #endif /* FORTRAN_HAS_NO_SHORT */
259 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
260 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
261 #ifdef HDF
262 if ((nc_type) datatype == NC_LONG && handle->file_type!=HDF_FILE) {
263 long *longs = itol (value, ncount, ndims);
264 @@ -1158,7 +1158,7 @@ NCVPTG(cdfid, varid, start, count, strid
265 tmpbasis = nctypelen(NC_LONG);
266 else
267 #endif
268 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
269 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
270 if (datatype == NC_LONG)
271 tmpbasis = sizeof(int);
272 else
273 @@ -1215,7 +1215,7 @@ NCVPTG(cdfid, varid, start, count, strid
274 return;
275 } /* else */
276 #endif /* FORTRAN_HAS_NO_SHORT */
277 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
278 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
279 #ifdef HDF
280 if ((nc_type) datatype == NC_LONG && handle->file_type!=HDF_FILE) {
281 long *longs = itolg (value, ncount, nbasis, ndims);
282 @@ -1352,7 +1352,7 @@ NCVGT1(cdfid, varid, indices, value, rco
283 return;
284 } /* else */
285 #endif /* FORTRAN_HAS_NO_SHORT */
286 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
287 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
288 #ifdef HDF
289 if ((nc_type) datatype == NC_LONG && handle->file_type!=HDF_FILE) {
290 long longs;
291 @@ -1495,7 +1495,7 @@ NCVGT(cdfid, varid, start, count, value,
292 return;
293 } /* else */
294 #endif /* FORTRAN_HAS_NO_SHORT */
295 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
296 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
297 #ifdef HDF
298 if ((nc_type) datatype == NC_LONG && handle->file_type!=HDF_FILE) {
299 long iocount = dimprod (ncount, ndims); /* product of dimensions */
300 @@ -1629,7 +1629,7 @@ NCVGTG(cdfid, varid, start, count, strid
301 tmpbasis = nctypelen(NC_LONG);
302 else
303 #endif
304 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
305 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
306 if (datatype == NC_LONG)
307 tmpbasis = sizeof(int);
308 else
309 @@ -1700,7 +1700,7 @@ NCVGTG(cdfid, varid, start, count, strid
310 return;
311 } /* else */
312 #endif /* FORTRAN_HAS_NO_SHORT */
313 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
314 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
315 #ifdef HDF
316 if ((nc_type) datatype == NC_LONG && handle->file_type!=HDF_FILE) {
317 long iocount = dimprod (ncount, ndims); /* product of dimensions */
318 @@ -1869,7 +1869,7 @@ NCAPT(cdfid, varid, attnamed, datatype,
319 return;
320 } /* else */
321 #endif /* FORTRAN_HAS_NO_SHORT */
322 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
323 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
324 #ifdef HDF
325 if ((nc_type) *datatype == NC_LONG && handle->file_type!=HDF_FILE) {
326 long *longs = itol (value, attlen, 1);
327 @@ -2038,7 +2038,7 @@ NCAGT(cdfid, varid, attnamed, value, rco
328 return;
329 } /* else */
330 #endif /* FORTRAN_HAS_NO_SHORT */
331 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
332 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
333 #ifdef HDF
334 if ((nc_type) datatype == NC_LONG && handle->file_type!=HDF_FILE) {
335 long *longs = (long *) malloc (attlen * sizeof (long));
336 diff -up HDF4.2r2/mfhdf/fortran/config/jackets-unicos.c.ppc HDF4.2r2/mfhdf/fortran/config/jackets-unicos.c
337 --- HDF4.2r2/mfhdf/fortran/config/jackets-unicos.c.ppc 2005-02-09 04:04:19.000000000 +0100
338 +++ HDF4.2r2/mfhdf/fortran/config/jackets-unicos.c 2007-10-17 22:48:25.000000000 +0200
339 @@ -39,7 +39,7 @@
340
341 struct ncfils { /* This will be a common block from Fortran */
342 double dd;
343 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
344 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
345 int ll;
346 #else
347 long ll;
348 @@ -70,7 +70,7 @@ struct ncfils { /* This will be a comm
349
350 struct ncfils { /* This will be a common block from Fortran */
351 double dd;
352 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
353 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
354 int ll;
355 #else
356 long ll;
357 @@ -436,7 +436,7 @@ stoig(shorts, ints, dims, basis, ndims)
358 }
359 #endif /* FORTRAN_HAS_NO_SHORT */
360
361 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
362 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
363 /*
364 * Convert multi-dimensional array of NCLONGs stored in ints to packed
365 * array of longs, in malloc'ed space. Returns pointer to longs or NULL
366 @@ -932,7 +932,7 @@ NCVPT1(cdfid, varid, indices, value, rco
367 return;
368 } /* else */
369 #endif /* FORTRAN_HAS_NO_SHORT */
370 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
371 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
372 #ifdef HDF
373 if ((nc_type) datatype == NC_LONG && handle->file_type!=HDF_FILE) {
374 long longs = *(int *)value;
375 @@ -1047,7 +1047,7 @@ NCVPT(cdfid, varid, start, count, value,
376 return;
377 } /* else */
378 #endif /* FORTRAN_HAS_NO_SHORT */
379 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
380 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
381 #ifdef HDF
382 if ((nc_type) datatype == NC_LONG && handle->file_type!=HDF_FILE) {
383 long *longs = itol (value, ncount, ndims);
384 @@ -1159,7 +1159,7 @@ NCVPTG(cdfid, varid, start, count, strid
385 tmpbasis = nctypelen(NC_LONG);
386 else
387 #endif
388 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
389 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
390 if (datatype == NC_LONG)
391 tmpbasis = sizeof(int);
392 else
393 @@ -1216,7 +1216,7 @@ NCVPTG(cdfid, varid, start, count, strid
394 return;
395 } /* else */
396 #endif /* FORTRAN_HAS_NO_SHORT */
397 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
398 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
399 #ifdef HDF
400 if ((nc_type) datatype == NC_LONG && handle->file_type!=HDF_FILE) {
401 long *longs = itolg (value, ncount, nbasis, ndims);
402 @@ -1353,7 +1353,7 @@ NCVGT1(cdfid, varid, indices, value, rco
403 return;
404 } /* else */
405 #endif /* FORTRAN_HAS_NO_SHORT */
406 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
407 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
408 #ifdef HDF
409 if ((nc_type) datatype == NC_LONG && handle->file_type!=HDF_FILE) {
410 long longs;
411 @@ -1496,7 +1496,7 @@ NCVGT(cdfid, varid, start, count, value,
412 return;
413 } /* else */
414 #endif /* FORTRAN_HAS_NO_SHORT */
415 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
416 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
417 #ifdef HDF
418 if ((nc_type) datatype == NC_LONG && handle->file_type!=HDF_FILE) {
419 long iocount = dimprod (ncount, ndims); /* product of dimensions */
420 @@ -1630,7 +1630,7 @@ NCVGTG(cdfid, varid, start, count, strid
421 tmpbasis = nctypelen(NC_LONG);
422 else
423 #endif
424 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
425 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
426 if (datatype == NC_LONG)
427 tmpbasis = sizeof(int);
428 else
429 @@ -1701,7 +1701,7 @@ NCVGTG(cdfid, varid, start, count, strid
430 return;
431 } /* else */
432 #endif /* FORTRAN_HAS_NO_SHORT */
433 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
434 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
435 #ifdef HDF
436 if ((nc_type) datatype == NC_LONG && handle->file_type!=HDF_FILE) {
437 long iocount = dimprod (ncount, ndims); /* product of dimensions */
438 @@ -1870,7 +1870,7 @@ NCAPT(cdfid, varid, attnamed, datatype,
439 return;
440 } /* else */
441 #endif /* FORTRAN_HAS_NO_SHORT */
442 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
443 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
444 #ifdef HDF
445 if ((nc_type) *datatype == NC_LONG && handle->file_type!=HDF_FILE) {
446 long *longs = itol (value, attlen, 1);
447 @@ -2039,7 +2039,7 @@ NCAGT(cdfid, varid, attnamed, value, rco
448 return;
449 } /* else */
450 #endif /* FORTRAN_HAS_NO_SHORT */
451 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
452 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
453 #ifdef HDF
454 if ((nc_type) datatype == NC_LONG && handle->file_type!=HDF_FILE) {
455 long *longs = (long *) malloc (attlen * sizeof (long));
456 diff -up HDF4.2r2/mfhdf/fortran/config/jackets-aix.c.ppc HDF4.2r2/mfhdf/fortran/config/jackets-aix.c
457 --- HDF4.2r2/mfhdf/fortran/config/jackets-aix.c.ppc 2006-11-01 17:53:11.000000000 +0100
458 +++ HDF4.2r2/mfhdf/fortran/config/jackets-aix.c 2007-10-17 22:48:25.000000000 +0200
459 @@ -34,7 +34,7 @@
460
461 struct ncfils { /* This will be a common block from Fortran */
462 double dd;
463 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
464 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
465 int ll;
466 #else
467 long ll;
468 @@ -65,7 +65,7 @@ struct ncfils { /* This will be a comm
469
470 struct ncfils { /* This will be a common block from Fortran */
471 double dd;
472 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
473 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
474 int ll;
475 #else
476 long ll;
477 @@ -430,7 +430,7 @@ stoig(shorts, ints, dims, basis, ndims)
478 }
479 #endif /* FORTRAN_HAS_NO_SHORT */
480
481 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
482 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
483 /*
484 * Convert multi-dimensional array of NCLONGs stored in ints to packed
485 * array of longs, in malloc'ed space. Returns pointer to longs or NULL
486 @@ -917,7 +917,7 @@ nncvpt1(cdfid, varid, indices, value, rc
487 return;
488 } /* else */
489 #endif /* FORTRAN_HAS_NO_SHORT */
490 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
491 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
492 #ifdef HDF
493 if ((nc_type) datatype == NC_LONG && handle->file_type!=HDF_FILE) {
494 long longs = *(int *)value;
495 @@ -1031,7 +1031,7 @@ nncvpt(cdfid, varid, start, count, value
496 return;
497 } /* else */
498 #endif /* FORTRAN_HAS_NO_SHORT */
499 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
500 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
501 #ifdef HDF
502 if ((nc_type) datatype == NC_LONG && handle->file_type!=HDF_FILE) {
503 long *longs = itol (value, ncount, ndims);
504 @@ -1142,7 +1142,7 @@ nncvptg(cdfid, varid, start, count, stri
505 tmpbasis = nctypelen(NC_LONG);
506 else
507 #endif
508 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
509 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
510 if (datatype == NC_LONG)
511 tmpbasis = sizeof(int);
512 else
513 @@ -1199,7 +1199,7 @@ nncvptg(cdfid, varid, start, count, stri
514 return;
515 } /* else */
516 #endif /* FORTRAN_HAS_NO_SHORT */
517 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
518 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
519 #ifdef HDF
520 if ((nc_type) datatype == NC_LONG && handle->file_type!=HDF_FILE) {
521 long *longs = itolg (value, ncount, nbasis, ndims);
522 @@ -1335,7 +1335,7 @@ nncvgt1(cdfid, varid, indices, value, rc
523 return;
524 } /* else */
525 #endif /* FORTRAN_HAS_NO_SHORT */
526 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
527 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
528 #ifdef HDF
529 if ((nc_type) datatype == NC_LONG && handle->file_type!=HDF_FILE) {
530 long longs;
531 @@ -1477,7 +1477,7 @@ nncvgt(cdfid, varid, start, count, value
532 return;
533 } /* else */
534 #endif /* FORTRAN_HAS_NO_SHORT */
535 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
536 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
537 #ifdef HDF
538 if ((nc_type) datatype == NC_LONG && handle->file_type!=HDF_FILE) {
539 long iocount = dimprod (ncount, ndims); /* product of dimensions */
540 @@ -1616,7 +1616,7 @@ nncvgtg(cdfid, varid, start, count, stri
541 tmpbasis = nctypelen(NC_LONG);
542 else
543 #endif
544 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
545 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
546
547 if (datatype == NC_LONG)
548 tmpbasis = sizeof(int);
549 @@ -1688,7 +1688,7 @@ nncvgtg(cdfid, varid, start, count, stri
550 return;
551 } /* else */
552 #endif /* FORTRAN_HAS_NO_SHORT */
553 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
554 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
555
556 #ifdef HDF
557 if ((nc_type) datatype == NC_LONG && handle->file_type!=HDF_FILE) {
558 @@ -1855,7 +1855,7 @@ nncapt(cdfid, varid, attname, datatype,
559 return;
560 } /* else */
561 #endif /* FORTRAN_HAS_NO_SHORT */
562 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
563 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
564
565 #ifdef HDF
566 if ((nc_type) *datatype == NC_LONG && handle->file_type!=HDF_FILE) {
567 @@ -2021,7 +2021,7 @@ nncagt(cdfid, varid, attname, value, rco
568 return;
569 } /* else */
570 #endif /* FORTRAN_HAS_NO_SHORT */
571 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
572 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
573
574 #ifdef HDF
575 if ((nc_type) datatype == NC_LONG && handle->file_type!=HDF_FILE) {
576 diff -up HDF4.2r2/mfhdf/fortran/config/jackets-solaris.c.ppc HDF4.2r2/mfhdf/fortran/config/jackets-solaris.c
577 --- HDF4.2r2/mfhdf/fortran/config/jackets-solaris.c.ppc 2006-11-01 17:53:11.000000000 +0100
578 +++ HDF4.2r2/mfhdf/fortran/config/jackets-solaris.c 2007-10-17 22:48:25.000000000 +0200
579 @@ -34,7 +34,7 @@
580
581 struct ncfils { /* This will be a common block from Fortran */
582 double dd;
583 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
584 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
585 int ll;
586 #else
587 long ll;
588 @@ -65,7 +65,7 @@ struct ncfils { /* This will be a comm
589
590 struct ncfils { /* This will be a common block from Fortran */
591 double dd;
592 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
593 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
594 int ll;
595 #else
596 long ll;
597 @@ -430,7 +430,7 @@ stoig(shorts, ints, dims, basis, ndims)
598 }
599 #endif /* FORTRAN_HAS_NO_SHORT */
600
601 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
602 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
603 /*
604 * Convert multi-dimensional array of NCLONGs stored in ints to packed
605 * array of longs, in malloc'ed space. Returns pointer to longs or NULL
606 @@ -917,7 +917,7 @@ nncvpt1(cdfid, varid, indices, value, rc
607 return;
608 } /* else */
609 #endif /* FORTRAN_HAS_NO_SHORT */
610 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
611 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
612 #ifdef HDF
613 if ((nc_type) datatype == NC_LONG && handle->file_type!=HDF_FILE) {
614 long longs = *(int *)value;
615 @@ -1031,7 +1031,7 @@ nncvpt(cdfid, varid, start, count, value
616 return;
617 } /* else */
618 #endif /* FORTRAN_HAS_NO_SHORT */
619 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
620 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
621 #ifdef HDF
622 if ((nc_type) datatype == NC_LONG && handle->file_type!=HDF_FILE) {
623 long *longs = itol (value, ncount, ndims);
624 @@ -1142,7 +1142,7 @@ nncvptg(cdfid, varid, start, count, stri
625 tmpbasis = nctypelen(NC_LONG);
626 else
627 #endif
628 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
629 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
630 if (datatype == NC_LONG)
631 tmpbasis = sizeof(int);
632 else
633 @@ -1199,7 +1199,7 @@ nncvptg(cdfid, varid, start, count, stri
634 return;
635 } /* else */
636 #endif /* FORTRAN_HAS_NO_SHORT */
637 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
638 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
639 #ifdef HDF
640 if ((nc_type) datatype == NC_LONG && handle->file_type!=HDF_FILE) {
641 long *longs = itolg (value, ncount, nbasis, ndims);
642 @@ -1335,7 +1335,7 @@ nncvgt1(cdfid, varid, indices, value, rc
643 return;
644 } /* else */
645 #endif /* FORTRAN_HAS_NO_SHORT */
646 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
647 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
648 #ifdef HDF
649 if ((nc_type) datatype == NC_LONG && handle->file_type!=HDF_FILE) {
650 long longs;
651 @@ -1477,7 +1477,7 @@ nncvgt(cdfid, varid, start, count, value
652 return;
653 } /* else */
654 #endif /* FORTRAN_HAS_NO_SHORT */
655 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
656 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
657 #ifdef HDF
658 if ((nc_type) datatype == NC_LONG && handle->file_type!=HDF_FILE) {
659 long iocount = dimprod (ncount, ndims); /* product of dimensions */
660 @@ -1617,7 +1617,7 @@ nncvgtg(cdfid, varid, start, count, stri
661 tmpbasis = nctypelen(NC_LONG);
662 else
663 #endif
664 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
665 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
666 if (datatype == NC_LONG)
667 tmpbasis = sizeof(int);
668 else
669 @@ -1688,7 +1688,7 @@ nncvgtg(cdfid, varid, start, count, stri
670 return;
671 } /* else */
672 #endif /* FORTRAN_HAS_NO_SHORT */
673 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
674 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
675 #ifdef HDF
676 if ((nc_type) datatype == NC_LONG && handle->file_type!=HDF_FILE) {
677 long iocount = dimprod (ncount, ndims); /* product of dimensions */
678 @@ -1854,7 +1854,7 @@ nncapt(cdfid, varid, attname, datatype,
679 return;
680 } /* else */
681 #endif /* FORTRAN_HAS_NO_SHORT */
682 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
683 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
684 #ifdef HDF
685 if ((nc_type) *datatype == NC_LONG && handle->file_type!=HDF_FILE) {
686 long *longs = itol (value, attlen, 1);
687 @@ -2019,7 +2019,7 @@ nncagt(cdfid, varid, attname, value, rco
688 return;
689 } /* else */
690 #endif /* FORTRAN_HAS_NO_SHORT */
691 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
692 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
693 #ifdef HDF
694 if ((nc_type) datatype == NC_LONG && handle->file_type!=HDF_FILE) {
695 /* EIP
696 diff -up HDF4.2r2/mfhdf/fortran/config/jackets-linux.c.ppc HDF4.2r2/mfhdf/fortran/config/jackets-linux.c
697 --- HDF4.2r2/mfhdf/fortran/config/jackets-linux.c.ppc 2006-11-01 17:53:11.000000000 +0100
698 +++ HDF4.2r2/mfhdf/fortran/config/jackets-linux.c 2007-10-17 22:48:25.000000000 +0200
699 @@ -34,7 +34,7 @@
700
701 struct ncfils { /* This will be a common block from Fortran */
702 double dd;
703 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
704 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
705 int ll;
706 #else
707 long ll;
708 @@ -65,7 +65,7 @@ struct ncfils { /* This will be a comm
709
710 struct ncfils { /* This will be a common block from Fortran */
711 double dd;
712 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
713 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
714 int ll;
715 #else
716 long ll;
717 @@ -430,7 +430,7 @@ stoig(shorts, ints, dims, basis, ndims)
718 }
719 #endif /* FORTRAN_HAS_NO_SHORT */
720
721 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
722 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
723 /*
724 * Convert multi-dimensional array of NCLONGs stored in ints to packed
725 * array of longs, in malloc'ed space. Returns pointer to longs or NULL
726 @@ -916,7 +916,7 @@ nncvpt1(cdfid, varid, indices, value, rc
727 return;
728 } /* else */
729 #endif /* FORTRAN_HAS_NO_SHORT */
730 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
731 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
732 #ifdef HDF
733 if ((nc_type) datatype == NC_LONG && handle->file_type!=HDF_FILE) {
734 long longs = *(int *)value;
735 @@ -1030,7 +1030,7 @@ nncvpt(cdfid, varid, start, count, value
736 return;
737 } /* else */
738 #endif /* FORTRAN_HAS_NO_SHORT */
739 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
740 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
741 #ifdef HDF
742 if ((nc_type) datatype == NC_LONG && handle->file_type!=HDF_FILE) {
743 long *longs = itol (value, ncount, ndims);
744 @@ -1141,7 +1141,7 @@ nncvptg(cdfid, varid, start, count, stri
745 tmpbasis = nctypelen(NC_LONG);
746 else
747 #endif
748 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
749 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
750 if (datatype == NC_LONG)
751 tmpbasis = sizeof(int);
752 else
753 @@ -1198,7 +1198,7 @@ nncvptg(cdfid, varid, start, count, stri
754 return;
755 } /* else */
756 #endif /* FORTRAN_HAS_NO_SHORT */
757 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
758 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
759 #ifdef HDF
760 if ((nc_type) datatype == NC_LONG && handle->file_type!=HDF_FILE) {
761 long *longs = itolg (value, ncount, nbasis, ndims);
762 @@ -1334,7 +1334,7 @@ nncvgt1(cdfid, varid, indices, value, rc
763 return;
764 } /* else */
765 #endif /* FORTRAN_HAS_NO_SHORT */
766 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
767 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
768 #ifdef HDF
769 if ((nc_type) datatype == NC_LONG && handle->file_type!=HDF_FILE) {
770 long longs;
771 @@ -1476,7 +1476,7 @@ nncvgt(cdfid, varid, start, count, value
772 return;
773 } /* else */
774 #endif /* FORTRAN_HAS_NO_SHORT */
775 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
776 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
777 #ifdef HDF
778 if ((nc_type) datatype == NC_LONG && handle->file_type!=HDF_FILE) {
779 long iocount = dimprod (ncount, ndims); /* product of dimensions */
780 @@ -1614,7 +1614,7 @@ nncvgtg(cdfid, varid, start, count, stri
781 tmpbasis = nctypelen(NC_LONG);
782 else
783 #endif
784 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
785 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
786 if (datatype == NC_LONG)
787 tmpbasis = sizeof(int);
788 else
789 @@ -1685,7 +1685,7 @@ nncvgtg(cdfid, varid, start, count, stri
790 return;
791 } /* else */
792 #endif /* FORTRAN_HAS_NO_SHORT */
793 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
794 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
795 #ifdef HDF
796 if ((nc_type) datatype == NC_LONG && handle->file_type!=HDF_FILE) {
797 long iocount = dimprod (ncount, ndims); /* product of dimensions */
798 @@ -1851,7 +1851,7 @@ nncapt(cdfid, varid, attname, datatype,
799 return;
800 } /* else */
801 #endif /* FORTRAN_HAS_NO_SHORT */
802 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
803 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
804 #ifdef HDF
805 if ((nc_type) *datatype == NC_LONG && handle->file_type!=HDF_FILE) {
806 long *longs = itol (value, attlen, 1);
807 @@ -2016,7 +2016,7 @@ nncagt(cdfid, varid, attname, value, rco
808 return;
809 } /* else */
810 #endif /* FORTRAN_HAS_NO_SHORT */
811 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
812 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
813 #ifdef HDF
814 if ((nc_type) datatype == NC_LONG && handle->file_type!=HDF_FILE) {
815 /* EIP We need to use int buffer to read data in on the platforms where long is 8 bytes
816 diff -up HDF4.2r2/mfhdf/fortran/config/jackets-apple.c.ppc HDF4.2r2/mfhdf/fortran/config/jackets-apple.c
817 --- HDF4.2r2/mfhdf/fortran/config/jackets-apple.c.ppc 2006-11-01 17:53:11.000000000 +0100
818 +++ HDF4.2r2/mfhdf/fortran/config/jackets-apple.c 2007-10-17 22:48:25.000000000 +0200
819 @@ -34,7 +34,7 @@
820
821 struct ncfils { /* This will be a common block from Fortran */
822 double dd;
823 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
824 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
825
826 int ll;
827 #else
828 @@ -66,7 +66,7 @@ struct ncfils { /* This will be a comm
829
830 struct ncfils { /* This will be a common block from Fortran */
831 double dd;
832 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
833 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
834
835 int ll;
836 #else
837 @@ -431,7 +431,7 @@ stoig(shorts, ints, dims, basis, ndims)
838 }
839 #endif /* FORTRAN_HAS_NO_SHORT */
840
841 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
842 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
843
844 /*
845 * Convert multi-dimensional array of NCLONGs stored in ints to packed
846 @@ -1085,7 +1085,7 @@ nncvptg(cdfid, varid, start, count, stri
847 tmpbasis = nctypelen(NC_LONG);
848 else
849 #endif
850 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
851 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
852
853 if (datatype == NC_LONG)
854 tmpbasis = sizeof(int);
855 @@ -1440,7 +1440,7 @@ nncvgtg(cdfid, varid, start, count, stri
856 tmpbasis = nctypelen(NC_LONG);
857 else
858 #endif
859 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
860 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
861
862 if (datatype == NC_LONG)
863 tmpbasis = sizeof(int);
864 diff -up HDF4.2r2/mfhdf/fortran/config/jackets-hpux.c.ppc HDF4.2r2/mfhdf/fortran/config/jackets-hpux.c
865 --- HDF4.2r2/mfhdf/fortran/config/jackets-hpux.c.ppc 2006-11-01 17:53:11.000000000 +0100
866 +++ HDF4.2r2/mfhdf/fortran/config/jackets-hpux.c 2007-10-17 22:48:25.000000000 +0200
867 @@ -34,7 +34,7 @@
868
869 struct ncfils { /* This will be a common block from Fortran */
870 double dd;
871 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
872 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
873 int ll;
874 #else
875 long ll;
876 @@ -65,7 +65,7 @@ struct ncfils { /* This will be a comm
877
878 struct ncfils { /* This will be a common block from Fortran */
879 double dd;
880 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
881 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
882 int ll;
883 #else
884 long ll;
885 @@ -430,7 +430,7 @@ stoig(shorts, ints, dims, basis, ndims)
886 }
887 #endif /* FORTRAN_HAS_NO_SHORT */
888
889 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
890 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
891 /*
892 * Convert multi-dimensional array of NCLONGs stored in ints to packed
893 * array of longs, in malloc'ed space. Returns pointer to longs or NULL
894 @@ -917,7 +917,7 @@ nncvpt1(cdfid, varid, indices, value, rc
895 return;
896 } /* else */
897 #endif /* FORTRAN_HAS_NO_SHORT */
898 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
899 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
900 #ifdef HDF
901 if ((nc_type) datatype == NC_LONG && handle->file_type!=HDF_FILE) {
902 long longs = *(int *)value;
903 @@ -1031,7 +1031,7 @@ nncvpt(cdfid, varid, start, count, value
904 return;
905 } /* else */
906 #endif /* FORTRAN_HAS_NO_SHORT */
907 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
908 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
909 #ifdef HDF
910 if ((nc_type) datatype == NC_LONG && handle->file_type!=HDF_FILE) {
911 long *longs = itol (value, ncount, ndims);
912 @@ -1142,7 +1142,7 @@ nncvptg(cdfid, varid, start, count, stri
913 tmpbasis = nctypelen(NC_LONG);
914 else
915 #endif
916 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
917 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
918 if (datatype == NC_LONG)
919 tmpbasis = sizeof(int);
920 else
921 @@ -1199,7 +1199,7 @@ nncvptg(cdfid, varid, start, count, stri
922 return;
923 } /* else */
924 #endif /* FORTRAN_HAS_NO_SHORT */
925 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
926 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
927 #ifdef HDF
928 if ((nc_type) datatype == NC_LONG && handle->file_type!=HDF_FILE) {
929 long *longs = itolg (value, ncount, nbasis, ndims);
930 @@ -1335,7 +1335,7 @@ nncvgt1(cdfid, varid, indices, value, rc
931 return;
932 } /* else */
933 #endif /* FORTRAN_HAS_NO_SHORT */
934 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
935 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
936 #ifdef HDF
937 if ((nc_type) datatype == NC_LONG && handle->file_type!=HDF_FILE) {
938 long longs;
939 @@ -1477,7 +1477,7 @@ nncvgt(cdfid, varid, start, count, value
940 return;
941 } /* else */
942 #endif /* FORTRAN_HAS_NO_SHORT */
943 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
944 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
945 #ifdef HDF
946 if ((nc_type) datatype == NC_LONG && handle->file_type!=HDF_FILE) {
947 long iocount = dimprod (ncount, ndims); /* product of dimensions */
948 @@ -1616,7 +1616,7 @@ nncvgtg(cdfid, varid, start, count, stri
949 tmpbasis = nctypelen(NC_LONG);
950 else
951 #endif
952 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
953 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
954 if (datatype == NC_LONG)
955 tmpbasis = sizeof(int);
956 else
957 @@ -1687,7 +1687,7 @@ nncvgtg(cdfid, varid, start, count, stri
958 return;
959 } /* else */
960 #endif /* FORTRAN_HAS_NO_SHORT */
961 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
962 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
963 #ifdef HDF
964 if ((nc_type) datatype == NC_LONG && handle->file_type!=HDF_FILE) {
965 long iocount = dimprod (ncount, ndims); /* product of dimensions */
966 @@ -1853,7 +1853,7 @@ nncapt(cdfid, varid, attname, datatype,
967 return;
968 } /* else */
969 #endif /* FORTRAN_HAS_NO_SHORT */
970 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
971 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
972 #ifdef HDF
973 if ((nc_type) *datatype == NC_LONG && handle->file_type!=HDF_FILE) {
974 long *longs = itol (value, attlen, 1);
975 @@ -2018,7 +2018,7 @@ nncagt(cdfid, varid, attname, value, rco
976 return;
977 } /* else */
978 #endif /* FORTRAN_HAS_NO_SHORT */
979 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
980 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
981 #ifdef HDF
982 if ((nc_type) datatype == NC_LONG && handle->file_type!=HDF_FILE) {
983 /*EIP We need to use int buffer to read data in on the platforms where long is 8 bytes
984 diff -up HDF4.2r2/mfhdf/fortran/config/jackets-alpha.c.ppc HDF4.2r2/mfhdf/fortran/config/jackets-alpha.c
985 --- HDF4.2r2/mfhdf/fortran/config/jackets-alpha.c.ppc 2006-11-01 17:53:11.000000000 +0100
986 +++ HDF4.2r2/mfhdf/fortran/config/jackets-alpha.c 2007-10-17 22:48:25.000000000 +0200
987 @@ -34,7 +34,7 @@
988
989 struct ncfils { /* This will be a common block from Fortran */
990 double dd;
991 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
992 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
993 int ll;
994 #else
995 long ll;
996 @@ -65,7 +65,7 @@ struct ncfils { /* This will be a comm
997
998 struct ncfils { /* This will be a common block from Fortran */
999 double dd;
1000 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
1001 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
1002 int ll;
1003 #else
1004 long ll;
1005 @@ -430,7 +430,7 @@ stoig(shorts, ints, dims, basis, ndims)
1006 }
1007 #endif /* FORTRAN_HAS_NO_SHORT */
1008
1009 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
1010 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
1011 /*
1012 * Convert multi-dimensional array of NCLONGs stored in ints to packed
1013 * array of longs, in malloc'ed space. Returns pointer to longs or NULL
1014 @@ -917,7 +917,7 @@ nncvpt1(cdfid, varid, indices, value, rc
1015 return;
1016 } /* else */
1017 #endif /* FORTRAN_HAS_NO_SHORT */
1018 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
1019 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
1020 #ifdef HDF
1021 if ((nc_type) datatype == NC_LONG && handle->file_type!=HDF_FILE) {
1022 long longs = *(int *)value;
1023 @@ -1031,7 +1031,7 @@ nncvpt(cdfid, varid, start, count, value
1024 return;
1025 } /* else */
1026 #endif /* FORTRAN_HAS_NO_SHORT */
1027 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
1028 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
1029 #ifdef HDF
1030 if ((nc_type) datatype == NC_LONG && handle->file_type!=HDF_FILE) {
1031 long *longs = itol (value, ncount, ndims);
1032 @@ -1142,7 +1142,7 @@ nncvptg(cdfid, varid, start, count, stri
1033 tmpbasis = nctypelen(NC_LONG);
1034 else
1035 #endif
1036 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
1037 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
1038 if (datatype == NC_LONG)
1039 tmpbasis = sizeof(int);
1040 else
1041 @@ -1199,7 +1199,7 @@ nncvptg(cdfid, varid, start, count, stri
1042 return;
1043 } /* else */
1044 #endif /* FORTRAN_HAS_NO_SHORT */
1045 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
1046 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
1047 #ifdef HDF
1048 if ((nc_type) datatype == NC_LONG && handle->file_type!=HDF_FILE) {
1049 long *longs = itolg (value, ncount, nbasis, ndims);
1050 @@ -1335,7 +1335,7 @@ nncvgt1(cdfid, varid, indices, value, rc
1051 return;
1052 } /* else */
1053 #endif /* FORTRAN_HAS_NO_SHORT */
1054 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
1055 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
1056 #ifdef HDF
1057 if ((nc_type) datatype == NC_LONG && handle->file_type!=HDF_FILE) {
1058 long longs;
1059 @@ -1477,7 +1477,7 @@ nncvgt(cdfid, varid, start, count, value
1060 return;
1061 } /* else */
1062 #endif /* FORTRAN_HAS_NO_SHORT */
1063 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
1064 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
1065 #ifdef HDF
1066 if ((nc_type) datatype == NC_LONG && handle->file_type!=HDF_FILE) {
1067 long iocount = dimprod (ncount, ndims); /* product of dimensions */
1068 @@ -1618,7 +1618,7 @@ nncvgtg(cdfid, varid, start, count, stri
1069 tmpbasis = nctypelen(NC_LONG);
1070 else
1071 #endif
1072 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
1073 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
1074 if (datatype == NC_LONG)
1075 tmpbasis = sizeof(int);
1076 else
1077 @@ -1689,7 +1689,7 @@ nncvgtg(cdfid, varid, start, count, stri
1078 return;
1079 } /* else */
1080 #endif /* FORTRAN_HAS_NO_SHORT */
1081 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
1082 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
1083 #ifdef HDF
1084 if ((nc_type) datatype == NC_LONG && handle->file_type!=HDF_FILE) {
1085 long iocount = dimprod (ncount, ndims); /* product of dimensions */
1086 @@ -1855,7 +1855,7 @@ nncapt(cdfid, varid, attname, datatype,
1087 return;
1088 } /* else */
1089 #endif /* FORTRAN_HAS_NO_SHORT */
1090 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
1091 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
1092 #ifdef HDF
1093 if ((nc_type) *datatype == NC_LONG && handle->file_type!=HDF_FILE) {
1094 long *longs = itol (value, attlen, 1);
1095 @@ -2020,7 +2020,7 @@ nncagt(cdfid, varid, attname, value, rco
1096 return;
1097 } /* else */
1098 #endif /* FORTRAN_HAS_NO_SHORT */
1099 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
1100 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
1101 #ifdef HDF
1102 if ((nc_type) datatype == NC_LONG && handle->file_type!=HDF_FILE) {
1103
1104 diff -up HDF4.2r2/mfhdf/fortran/config/jackets-fbsd.c.ppc HDF4.2r2/mfhdf/fortran/config/jackets-fbsd.c
1105 --- HDF4.2r2/mfhdf/fortran/config/jackets-fbsd.c.ppc 2006-11-01 17:53:11.000000000 +0100
1106 +++ HDF4.2r2/mfhdf/fortran/config/jackets-fbsd.c 2007-10-17 22:48:25.000000000 +0200
1107 @@ -34,7 +34,7 @@
1108
1109 struct ncfils { /* This will be a common block from Fortran */
1110 double dd;
1111 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
1112 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
1113 int ll;
1114 #else
1115 long ll;
1116 @@ -65,7 +65,7 @@ struct ncfils { /* This will be a comm
1117
1118 struct ncfils { /* This will be a common block from Fortran */
1119 double dd;
1120 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
1121 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
1122 int ll;
1123 #else
1124 long ll;
1125 @@ -430,7 +430,7 @@ stoig(shorts, ints, dims, basis, ndims)
1126 }
1127 #endif /* FORTRAN_HAS_NO_SHORT */
1128
1129 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
1130 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
1131 /*
1132 * Convert multi-dimensional array of NCLONGs stored in ints to packed
1133 * array of longs, in malloc'ed space. Returns pointer to longs or NULL
1134 @@ -1083,7 +1083,7 @@ nncvptg(cdfid, varid, start, count, stri
1135 tmpbasis = nctypelen(NC_LONG);
1136 else
1137 #endif
1138 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
1139 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
1140 if (datatype == NC_LONG)
1141 tmpbasis = sizeof(int);
1142 else
1143 @@ -1437,7 +1437,7 @@ nncvgtg(cdfid, varid, start, count, stri
1144 tmpbasis = nctypelen(NC_LONG);
1145 else
1146 #endif
1147 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
1148 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
1149 if (datatype == NC_LONG)
1150 tmpbasis = sizeof(int);
1151 else
1152 diff -up HDF4.2r2/mfhdf/ncgen/ncgen.l.ppc HDF4.2r2/mfhdf/ncgen/ncgen.l
1153 --- HDF4.2r2/mfhdf/ncgen/ncgen.l.ppc 2003-12-10 22:15:54.000000000 +0100
1154 +++ HDF4.2r2/mfhdf/ncgen/ncgen.l 2007-10-17 22:48:25.000000000 +0200
1155 @@ -134,7 +134,7 @@ FloatInf|Infinity|Inf { /* float miss
1156 yyerror(errstr);
1157 }
1158
1159 -#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__
1160 +#if defined __alpha || (_MIPS_SZLONG == 64) || defined __ia64 || (defined __sun && defined _LP64) || defined AIX5L64 || defined __x86_64__ || defined __powerpc64__
1161 if (dd < INT_MIN || dd > INT_MAX)
1162 #else
1163 #if defined (_CRAYMPP)
  ViewVC Help
Powered by ViewVC 1.1.30