← Back to branch summary

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

« back to all changes in this revision

Viewing changes to src/fortran/auto/hyppilutf.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/hyppilutf.c
 
1
/* hyppilut.c */
 
2
/* Fortran interface file */
 
3
 
 
4
/*
 
5
* This file was generated automatically by bfort from the C source
 
6
* file.  
 
7
 */
 
8
 
 
9
#ifdef PETSC_USE_POINTER_CONVERSION
 
10
#if defined(__cplusplus)
 
11
extern "C" { 
 
12
#endif 
 
13
extern void *PetscToPointer(void *);
 
14
extern int PetscFromPointer(void *);
 
15
extern void PetscRmPointer(void *);
 
16
#if defined(__cplusplus)
 
17
} 
 
18
#endif 
 
19
 
 
20
#else
 
21
 
 
22
#define PetscToPointer(a) (*(long *)(a))
 
23
#define PetscFromPointer(a) (long)(a)
 
24
#define PetscRmPointer(a)
 
25
#endif
 
26
 
 
27
#include "petscfix.h"
 
28
#include "petscpc.h"
 
29
#ifdef MPI_BUILD_PROFILING
 
30
#ifdef PETSC_HAVE_FORTRAN_CAPS
 
31
#define pchypresettype_ PPCHYPRESETTYPE
 
32
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
 
33
#define pchypresettype_ ppchypresettype
 
34
#else
 
35
#define pchypresettype_ ppchypresettype_
 
36
#endif
 
37
#else
 
38
#ifdef PETSC_HAVE_FORTRAN_CAPS
 
39
#define pchypresettype_ PCHYPRESETTYPE
 
40
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) && !defined(FORTRANDOUBLEUNDERSCORE)
 
41
#define pchypresettype_ pchypresettype
 
42
#endif
 
43
#endif
 
44
 
 
45
 
 
46
 
 
47
/* Definitions of Fortran Wrapper routines */
 
48
#if defined(__cplusplus)
 
49
extern "C" {
 
50
#endif
 
51
void PETSC_STDCALL pchypresettype_(PC pc, char name[], int *ierr ){
 
52
*ierr = PCHYPRESetType(
 
53
        (PC)PetscToPointer( (pc) ),name);
 
54
}
 
55
#if defined(__cplusplus)
 
56
}
 
57
#endif