← Back to branch summary

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

« back to all changes in this revision

Viewing changes to src/sys/src/f90/f90_solaris_old.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/sys/src/f90/f90_solaris_old.c.html
 
1
<center><a href="f90_solaris_old.c">Actual source code: f90_solaris_old.c</a></center><br>
 
2
 
 
3
<html>
 
4
<head>
 
5
<title></title>
 
6
<meta name="generator" content="c2html 0.9.4">
 
7
<meta name="date" content="2004-02-27T19:57:08+00:00">
 
8
</head>
 
9
 
 
10
<body bgcolor="#FFFFFF">
 
11
<pre width="80"><a name="line1">  1: </a><font color="#B22222">/*$Id: f90_solaris_old.c,v 1.12 2001/03/23 23:20:56 balay Exp $*/</font>
 
12
 
 
13
<a name="line3">  3: </a><font color="#B22222">/*-------------------------------------------------------------*/</font>
 
14
 
 
15
<a name="line7">  7: </a><strong><font color="#4169E1"><a name="F90GetID"></a>int F90GetID(<A href="../../..90/../docs/manualpages/Sys/PetscDataType.html#PetscDataType">PetscDataType</A> type,int *id)</font></strong>
 
16
<a name="line8">  8: </a>{
 
17
<a name="line10"> 10: </a>  <font color="#4169E1">if</font> (type == PETSC_INT) {
 
18
<a name="line11"> 11: </a>    *id = F90_INT_ID;
 
19
<a name="line12"> 12: </a>  } <font color="#4169E1">else</font> <font color="#4169E1">if</font> (type == PETSC_DOUBLE) {
 
20
<a name="line13"> 13: </a>    *id = F90_DOUBLE_ID;
 
21
<a name="line14"> 14: </a><font color="#A020F0">#if defined(PETSC_USE_COMPLEX)</font>
 
22
<a name="line15"> 15: </a>  } <font color="#4169E1">else</font> <font color="#4169E1">if</font> (type == PETSC_COMPLEX) {
 
23
<a name="line16"> 16: </a>    *id = F90_COMPLEX_ID;
 
24
<a name="line17"> 17: </a><font color="#A020F0">#endif</font>
 
25
<a name="line18"> 18: </a>  } <font color="#4169E1">else</font> <font color="#4169E1">if</font> (type == PETSC_LONG) {
 
26
<a name="line19"> 19: </a>    *id = F90_INT_ID;                <font color="#B22222">/* True for 32 bit only */</font>
 
27
<a name="line20"> 20: </a>  } <font color="#4169E1">else</font> <font color="#4169E1">if</font> (type == PETSC_CHAR) {
 
28
<a name="line21"> 21: </a>    *id = F90_CHAR_ID;
 
29
<a name="line22"> 22: </a>  } <font color="#4169E1">else</font> {
 
30
<a name="line23"> 23: </a>    <A href="../../..90/../docs/manualpages/Sys/SETERRQ.html#SETERRQ">SETERRQ</A>(PETSC_ERR_ARG_OUTOFRANGE,<font color="#666666">"Unknown PETSc datatype"</font>);
 
31
<a name="line24"> 24: </a>  }
 
32
<a name="line25"> 25: </a>  <font color="#4169E1">return</font>(0);
 
33
<a name="line26"> 26: </a>}
 
34
 
 
35
<a name="line30"> 30: </a><strong><font color="#4169E1"><a name="F90Array1dCreate"></a>int F90Array1dCreate(void *array,<A href="../../..90/../docs/manualpages/Sys/PetscDataType.html#PetscDataType">PetscDataType</A> type,int start,int len,F90Array1d *ptr)</font></strong>
 
36
<a name="line31"> 31: </a>{
 
37
<a name="line32"> 32: </a>  int <A href="../../..90/../docs/manualpages/Sys/size.html#size">size</A>,size_int,ierr,id;
 
38
 
 
39
<a name="line37"> 37: </a>  <A href="../../..90/../docs/manualpages/Sys/PetscDataTypeGetSize.html#PetscDataTypeGetSize">PetscDataTypeGetSize</A>(type,&amp;<A href="../../..90/../docs/manualpages/Sys/size.html#size">size</A>);
 
40
<a name="line38"> 38: </a>  <A href="../../..90/../docs/manualpages/Sys/PetscDataTypeGetSize.html#PetscDataTypeGetSize">PetscDataTypeGetSize</A>(PETSC_INT,&amp;size_int);
 
41
<a name="line39"> 39: </a>  F90GetID(type,&amp;id);
 
42
<a name="line40"> 40: </a>  ptr-&gt;addr          = array;
 
43
<a name="line41"> 41: </a>  ptr-&gt;id            = id;
 
44
<a name="line42"> 42: </a>  ptr-&gt;cookie        = F90_COOKIE;
 
45
<a name="line43"> 43: </a>  ptr-&gt;sd            = <A href="../../..90/../docs/manualpages/Sys/size.html#size">size</A>*8;
 
46
<a name="line44"> 44: </a>  ptr-&gt;ndim          = 1;
 
47
<a name="line45"> 45: </a>  ptr-&gt;dim[0].extent = len;
 
48
<a name="line46"> 46: </a>  ptr-&gt;dim[0].mult   = <A href="../../..90/../docs/manualpages/Sys/size.html#size">size</A>/size_int;
 
49
<a name="line47"> 47: </a>  ptr-&gt;dim[0].lower  = start;
 
50
 
 
51
<a name="line49"> 49: </a>  <font color="#4169E1">return</font>(0);
 
52
<a name="line50"> 50: </a>}
 
53
 
 
54
<a name="line54"> 54: </a><strong><font color="#4169E1"><a name="F90Array2dCreate"></a>int F90Array2dCreate(void *array,<A href="../../..90/../docs/manualpages/Sys/PetscDataType.html#PetscDataType">PetscDataType</A> type,int start1,int len1,int start2,int len2,F90Array2d *ptr)</font></strong>
 
55
<a name="line55"> 55: </a>{
 
56
 
 
57
<a name="line57"> 57: </a>  int <A href="../../..90/../docs/manualpages/Sys/size.html#size">size</A>,size_int,ierr,id;
 
58
 
 
59
<a name="line62"> 62: </a>  <A href="../../..90/../docs/manualpages/Sys/PetscDataTypeGetSize.html#PetscDataTypeGetSize">PetscDataTypeGetSize</A>(type,&amp;<A href="../../..90/../docs/manualpages/Sys/size.html#size">size</A>);
 
60
<a name="line63"> 63: </a>  <A href="../../..90/../docs/manualpages/Sys/PetscDataTypeGetSize.html#PetscDataTypeGetSize">PetscDataTypeGetSize</A>(PETSC_INT,&amp;size_int);
 
61
<a name="line64"> 64: </a>  F90GetID(type,&amp;id);
 
62
<a name="line65"> 65: </a>  ptr-&gt;addr          = array;
 
63
<a name="line66"> 66: </a>  ptr-&gt;id            = id;
 
64
<a name="line67"> 67: </a>  ptr-&gt;cookie        = F90_COOKIE;
 
65
<a name="line68"> 68: </a>  ptr-&gt;sd            = <A href="../../..90/../docs/manualpages/Sys/size.html#size">size</A>*8;
 
66
<a name="line69"> 69: </a>  ptr-&gt;ndim          = 2;
 
67
<a name="line70"> 70: </a>  ptr-&gt;dim[0].extent = len1;
 
68
<a name="line71"> 71: </a>  ptr-&gt;dim[0].mult   = <A href="../../..90/../docs/manualpages/Sys/size.html#size">size</A>/size_int;
 
69
<a name="line72"> 72: </a>  ptr-&gt;dim[0].lower  = start1;
 
70
<a name="line73"> 73: </a>  ptr-&gt;dim[1].extent = len2;
 
71
<a name="line74"> 74: </a>  ptr-&gt;dim[1].mult   = len1*<A href="../../..90/../docs/manualpages/Sys/size.html#size">size</A>/size_int;
 
72
<a name="line75"> 75: </a>  ptr-&gt;dim[1].lower  = start2;
 
73
 
 
74
<a name="line77"> 77: </a>  <font color="#4169E1">return</font>(0);
 
75
<a name="line78"> 78: </a>}
 
76
<a name="line79"> 79: </a><font color="#B22222">/*-------------------------------------------------------------*/</font>
 
77
</pre>
 
78
</body>
 
79
 
 
80
</html>