← Back to branch summary

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

« back to all changes in this revision

Viewing changes to src/fortran/auto/sortipf.c.html

  • 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/sortipf.c.html
1
 
<center><a href="sortipf.c">Actual source code: sortipf.c</a></center><br>
2
 
 
3
 
<html>
4
 
<head>
5
 
<title></title>
6
 
<meta name="generator" content="c2html 0.9.1">
7
 
<meta name="date" content="2002-05-31T16:57:54+00:00">
8
 
</head>
9
 
 
10
 
<body bgcolor="#FFFFFF">
11
 
<pre width="80"><a name="line1">  1: </a><font color="#B22222">/* sortip.c */</font>
12
 
<a name="line2">  2: </a><font color="#B22222">/* Fortran interface file */</font>
13
 
 
14
 
<a name="line4">  4: </a><font color="#B22222">/*</font>
15
 
<a name="line5">  5: </a><font color="#B22222">* This file was generated automatically by bfort from the C source</font>
16
 
<a name="line6">  6: </a><font color="#B22222">* file.  </font>
17
 
<a name="line7">  7: </a><font color="#B22222"> */</font>
18
 
 
19
 
<a name="line9">  9: </a><font color="#A020F0">#ifdef PETSC_USE_POINTER_CONVERSION</font>
20
 
<a name="line10"> 10: </a><font color="#A020F0">#if defined(__cplusplus)</font>
21
 
<a name="line11"> 11: </a>extern <font color="#666666">"C"</font> {
22
 
<a name="line12"> 12: </a><font color="#A020F0">#endif </font>
23
 
<a name="line13"> 13: </a><strong><font color="#4169E1">extern void *PetscToPointer(void *)</font></strong>;
24
 
<a name="line14"> 14: </a><strong><font color="#4169E1">extern int PetscFromPointer(void *)</font></strong>;
25
 
<a name="line15"> 15: </a><strong><font color="#4169E1">extern void PetscRmPointer(void *)</font></strong>;
26
 
<a name="line16"> 16: </a><font color="#A020F0">#if defined(__cplusplus)</font>
27
 
<a name="line17"> 17: </a>}
28
 
<a name="line18"> 18: </a><font color="#A020F0">#endif </font>
29
 
 
30
 
<a name="line20"> 20: </a><font color="#A020F0">#else</font>
31
 
 
32
 
<a name="line22"> 22: </a><strong><font color="#228B22">#define PetscToPointer(a) (*(long *)(a))</font></strong>
33
 
<a name="line23"> 23: </a><strong><font color="#228B22">#define PetscFromPointer(a) (long)(a)</font></strong>
34
 
<a name="line24"> 24: </a><strong><font color="#228B22">#define PetscRmPointer(a)</font></strong>
35
 
<a name="line25"> 25: </a><font color="#A020F0">#endif</font>
36
 
 
37
 
<a name="line27"> 27: </a><font color="#A020F0">#include </font><font color="#666666">"petscfix.h"</font><font color="#A020F0"></font>
38
 
<a name="line28"> 28: </a> #include <A href="../../../include/petsc.h.html">petsc.h</A>
39
 
<a name="line29"> 29: </a><font color="#A020F0">#include </font><font color="#666666">"petscfix.h"</font><font color="#A020F0"></font>
40
 
<a name="line30"> 30: </a> #include <A href="../../../include/petscsys.h.html">petscsys.h</A>
41
 
<a name="line31"> 31: </a><font color="#A020F0">#ifdef MPI_BUILD_PROFILING</font>
42
 
<a name="line32"> 32: </a><font color="#A020F0">#ifdef PETSC_HAVE_FORTRAN_CAPS</font>
43
 
<a name="line33"> 33: </a><strong><font color="#228B22">#define petscsortintwithpermutation_ PPETSCSORTINTWITHPERMUTATION</font></strong>
44
 
<a name="line34"> 34: </a><font color="#A020F0">#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) &amp;&amp; !defined(FORTRANDOUBLEUNDERSCORE)</font>
45
 
<a name="line35"> 35: </a><strong><font color="#228B22">#define petscsortintwithpermutation_ ppetscsortintwithpermutation</font></strong>
46
 
<a name="line36"> 36: </a><font color="#A020F0">#else</font>
47
 
<a name="line37"> 37: </a><strong><font color="#228B22">#define petscsortintwithpermutation_ ppetscsortintwithpermutation_</font></strong>
48
 
<a name="line38"> 38: </a><font color="#A020F0">#endif</font>
49
 
<a name="line39"> 39: </a><font color="#A020F0">#else</font>
50
 
<a name="line40"> 40: </a><font color="#A020F0">#ifdef PETSC_HAVE_FORTRAN_CAPS</font>
51
 
<a name="line41"> 41: </a><strong><font color="#228B22">#define petscsortintwithpermutation_ PETSCSORTINTWITHPERMUTATION</font></strong>
52
 
<a name="line42"> 42: </a><font color="#A020F0">#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) &amp;&amp; !defined(FORTRANDOUBLEUNDERSCORE)</font>
53
 
<a name="line43"> 43: </a><strong><font color="#228B22">#define petscsortintwithpermutation_ petscsortintwithpermutation</font></strong>
54
 
<a name="line44"> 44: </a><font color="#A020F0">#endif</font>
55
 
<a name="line45"> 45: </a><font color="#A020F0">#endif</font>
56
 
 
57
 
<a name="line47"> 47: </a><font color="#A020F0">#ifdef MPI_BUILD_PROFILING</font>
58
 
<a name="line48"> 48: </a><font color="#A020F0">#ifdef PETSC_HAVE_FORTRAN_CAPS</font>
59
 
<a name="line49"> 49: </a><strong><font color="#228B22">#define petscsortrealwithpermutation_ PPETSCSORTREALWITHPERMUTATION</font></strong>
60
 
<a name="line50"> 50: </a><font color="#A020F0">#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) &amp;&amp; !defined(FORTRANDOUBLEUNDERSCORE)</font>
61
 
<a name="line51"> 51: </a><strong><font color="#228B22">#define petscsortrealwithpermutation_ ppetscsortrealwithpermutation</font></strong>
62
 
<a name="line52"> 52: </a><font color="#A020F0">#else</font>
63
 
<a name="line53"> 53: </a><strong><font color="#228B22">#define petscsortrealwithpermutation_ ppetscsortrealwithpermutation_</font></strong>
64
 
<a name="line54"> 54: </a><font color="#A020F0">#endif</font>
65
 
<a name="line55"> 55: </a><font color="#A020F0">#else</font>
66
 
<a name="line56"> 56: </a><font color="#A020F0">#ifdef PETSC_HAVE_FORTRAN_CAPS</font>
67
 
<a name="line57"> 57: </a><strong><font color="#228B22">#define petscsortrealwithpermutation_ PETSCSORTREALWITHPERMUTATION</font></strong>
68
 
<a name="line58"> 58: </a><font color="#A020F0">#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) &amp;&amp; !defined(FORTRANDOUBLEUNDERSCORE)</font>
69
 
<a name="line59"> 59: </a><strong><font color="#228B22">#define petscsortrealwithpermutation_ petscsortrealwithpermutation</font></strong>
70
 
<a name="line60"> 60: </a><font color="#A020F0">#endif</font>
71
 
<a name="line61"> 61: </a><font color="#A020F0">#endif</font>
72
 
 
73
 
 
74
 
 
75
 
<a name="line65"> 65: </a><font color="#B22222">/* Definitions of Fortran Wrapper routines */</font>
76
 
<a name="line66"> 66: </a><font color="#A020F0">#if defined(__cplusplus)</font>
77
 
<a name="line67"> 67: </a>extern <font color="#666666">"C"</font> {
78
 
<a name="line68"> 68: </a><font color="#A020F0">#endif</font>
79
 
<a name="line69"> 69: </a><strong><font color="#4169E1"><a name="petscsortintwithpermutation_"></a>void PETSC_STDCALL petscsortintwithpermutation_(int *n, int i[],int idx[], int *ierr )</font></strong>{
80
 
<a name="line70"> 70: </a><strong><font color="#4169E1">*<A href="../../../docs/manualpages/Sys/PetscSortIntWithPermutation.html#PetscSortIntWithPermutation">PetscSortIntWithPermutation</A>(*n,i,idx)</font></strong>;
81
 
<a name="line71"> 71: </a>}
82
 
<a name="line72"> 72: </a><strong><font color="#4169E1"><a name="petscsortrealwithpermutation_"></a>void PETSC_STDCALL petscsortrealwithpermutation_(int *n, PetscReal i[],int idx[], int *ierr )</font></strong>{
83
 
<a name="line73"> 73: </a><strong><font color="#4169E1">*<A href="../../../docs/manualpages/Sys/PetscSortRealWithPermutation.html#PetscSortRealWithPermutation">PetscSortRealWithPermutation</A>(*n,i,idx)</font></strong>;
84
 
<a name="line74"> 74: </a>}
85
 
<a name="line75"> 75: </a><font color="#A020F0">#if defined(__cplusplus)</font>
86
 
<a name="line76"> 76: </a>}
87
 
<a name="line77"> 77: </a><font color="#A020F0">#endif</font>
88
 
</pre>
89
 
</body>
90
 
 
91
 
</html>