← Back to branch summary

~ubuntu-branches/ubuntu/warty/petsc/warty

« back to all changes in this revision

Viewing changes to src/fortran/auto/preconf.c

  • Committer: Bazaar Package Importer
  • Author(s): Adam C. Powell, IV
  • Date: 2004-06-07 13:41:43 UTC
  • mfrom: (1.1.1 upstream)
  • Revision ID: james.westby@ubuntu.com-20040607134143-92p586zrauvie0le
Tags: 2.2.0-2
http://bugs.debian.org/249617
* Upstream patch level 2.
* New PETSC_BOPT_EXTRA option for different BOPT and lib names, with _c++
  symlinks only for plain and single (closes: #249617).
* New DEBIAN_DIST=contrib option to link with hypre, parmetis (closes:
  #249619).
* Combined petsc-c and petsc-fortran substvars into petsc-compilers.
* Extra quote in -dev prerm eliminates "too many arguments" problem.

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/fortran/auto/preconf.c
25
25
#endif
26
26
 
27
27
#include "petscfix.h"
28
 
#include "petscsles.h"
 
28
#include "petscksp.h"
 
29
#ifdef MPI_BUILD_PROFILING
 
30
#ifdef PETSC_HAVE_FORTRAN_CAPS
 
31
#define pcdiagonalscaleset_ PPCDIAGONALSCALESET
 
32
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
 
33
#define pcdiagonalscaleset_ ppcdiagonalscaleset
 
34
#else
 
35
#define pcdiagonalscaleset_ ppcdiagonalscaleset_
 
36
#endif
 
37
#else
 
38
#ifdef PETSC_HAVE_FORTRAN_CAPS
 
39
#define pcdiagonalscaleset_ PCDIAGONALSCALESET
 
40
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
 
41
#define pcdiagonalscaleset_ pcdiagonalscaleset
 
42
#endif
 
43
#endif
 
44
 
29
45
#ifdef MPI_BUILD_PROFILING
30
46
#ifdef PETSC_HAVE_FORTRAN_CAPS
31
47
#define pcapply_ PPCAPPLY
92
108
 
93
109
#ifdef MPI_BUILD_PROFILING
94
110
#ifdef PETSC_HAVE_FORTRAN_CAPS
 
111
#define pchasapplytranspose_ PPCHASAPPLYTRANSPOSE
 
112
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
 
113
#define pchasapplytranspose_ ppchasapplytranspose
 
114
#else
 
115
#define pchasapplytranspose_ ppchasapplytranspose_
 
116
#endif
 
117
#else
 
118
#ifdef PETSC_HAVE_FORTRAN_CAPS
 
119
#define pchasapplytranspose_ PCHASAPPLYTRANSPOSE
 
120
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
 
121
#define pchasapplytranspose_ pchasapplytranspose
 
122
#endif
 
123
#endif
 
124
 
 
125
#ifdef MPI_BUILD_PROFILING
 
126
#ifdef PETSC_HAVE_FORTRAN_CAPS
95
127
#define pcapplybaorab_ PPCAPPLYBAORAB
96
128
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
97
129
#define pcapplybaorab_ ppcapplybaorab
188
220
 
189
221
#ifdef MPI_BUILD_PROFILING
190
222
#ifdef PETSC_HAVE_FORTRAN_CAPS
191
 
#define pcsetmodifysubmatrices_ PPCSETMODIFYSUBMATRICES
192
 
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
193
 
#define pcsetmodifysubmatrices_ ppcsetmodifysubmatrices
194
 
#else
195
 
#define pcsetmodifysubmatrices_ ppcsetmodifysubmatrices_
196
 
#endif
197
 
#else
198
 
#ifdef PETSC_HAVE_FORTRAN_CAPS
199
 
#define pcsetmodifysubmatrices_ PCSETMODIFYSUBMATRICES
200
 
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
201
 
#define pcsetmodifysubmatrices_ pcsetmodifysubmatrices
202
 
#endif
203
 
#endif
204
 
 
205
 
#ifdef MPI_BUILD_PROFILING
206
 
#ifdef PETSC_HAVE_FORTRAN_CAPS
207
 
#define pcmodifysubmatrices_ PPCMODIFYSUBMATRICES
208
 
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
209
 
#define pcmodifysubmatrices_ ppcmodifysubmatrices
210
 
#else
211
 
#define pcmodifysubmatrices_ ppcmodifysubmatrices_
212
 
#endif
213
 
#else
214
 
#ifdef PETSC_HAVE_FORTRAN_CAPS
215
 
#define pcmodifysubmatrices_ PCMODIFYSUBMATRICES
216
 
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
217
 
#define pcmodifysubmatrices_ pcmodifysubmatrices
218
 
#endif
219
 
#endif
220
 
 
221
 
#ifdef MPI_BUILD_PROFILING
222
 
#ifdef PETSC_HAVE_FORTRAN_CAPS
223
223
#define pcsetoperators_ PPCSETOPERATORS
224
224
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
225
225
#define pcsetoperators_ ppcsetoperators
320
320
#if defined(__cplusplus)
321
321
extern "C" {
322
322
#endif
323
 
void PETSC_STDCALL pcapply_(PC pc,Vec x,Vec y, int *ierr ){
 
323
void PETSC_STDCALL pcdiagonalscaleset_(PC pc,Vec s, int *ierr ){
 
324
*ierr = PCDiagonalScaleSet(
 
325
        (PC)PetscToPointer( (pc) ),
 
326
        (Vec)PetscToPointer( (s) ));
 
327
}
 
328
void PETSC_STDCALL pcapply_(PC pc,Vec x,Vec y,PCSide *side, int *ierr ){
324
329
*ierr = PCApply(
325
330
        (PC)PetscToPointer( (pc) ),
326
331
        (Vec)PetscToPointer( (x) ),
327
 
        (Vec)PetscToPointer( (y) ));
 
332
        (Vec)PetscToPointer( (y) ),*side);
328
333
}
329
334
void PETSC_STDCALL pcapplysymmetricleft_(PC pc,Vec x,Vec y, int *ierr ){
330
335
*ierr = PCApplySymmetricLeft(
344
349
        (Vec)PetscToPointer( (x) ),
345
350
        (Vec)PetscToPointer( (y) ));
346
351
}
 
352
void PETSC_STDCALL pchasapplytranspose_(PC pc,PetscTruth *flg, int *ierr ){
 
353
*ierr = PCHasApplyTranspose(
 
354
        (PC)PetscToPointer( (pc) ),flg);
 
355
}
347
356
void PETSC_STDCALL pcapplybaorab_(PC pc,PCSide *side,Vec x,Vec y,Vec work, int *ierr ){
348
357
*ierr = PCApplyBAorAB(
349
358
        (PC)PetscToPointer( (pc) ),*side,
377
386
*ierr = PCSetUpOnBlocks(
378
387
        (PC)PetscToPointer( (pc) ));
379
388
}
380
 
void PETSC_STDCALL pcsetmodifysubmatrices_(PC pc,int(*func)(PC,int,IS*,IS*,Mat*,void*),void*ctx, int *ierr ){
381
 
*ierr = PCSetModifySubMatrices(
382
 
        (PC)PetscToPointer( (pc) ),func,ctx);
383
 
}
384
 
void PETSC_STDCALL pcmodifysubmatrices_(PC pc,int *nsub,IS *row,IS *col,Mat *submat,void*ctx, int *ierr ){
385
 
*ierr = PCModifySubMatrices(
386
 
        (PC)PetscToPointer( (pc) ),*nsub,row,col,submat,ctx);
387
 
}
388
389
void PETSC_STDCALL pcsetoperators_(PC pc,Mat Amat,Mat Pmat,MatStructure *flag, int *ierr ){
389
390
*ierr = PCSetOperators(
390
391
        (PC)PetscToPointer( (pc) ),