← Back to branch summary

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

« back to all changes in this revision

Viewing changes to src/sys/examples/tests/ex5f.F.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/examples/tests/ex5f.F.html
 
1
<center><a href="ex5f.F">Actual source code: ex5f.F</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:20+00:00">
 
8
</head>
 
9
 
 
10
<body bgcolor="#FFFFFF">
 
11
<pre width="80"><a name="line1">  1: </a>!    <font color="#666666">"$Id: ex5.F,v 1.13 2000/09/27 20:04:20 bsmith Exp $"</font>;
 
12
<a name="line2">  2: </a>!
 
13
<a name="line3">  3: </a>!  Simple PETSc Program written in Fortran 77.
 
14
<a name="line4">  4: </a>!
 
15
<a name="line5">  5: </a>       program main
 
16
<a name="line6"> 6: </a> #include <A href="../../../../include/finclude/petsc.h.html">include/finclude/petsc.h</A>
 
17
<a name="line7">  7: </a>       integer        ierr,<A href="../../../../docs/manualpages/Sys/rank.html#rank">rank</A>
 
18
<a name="line8">  8: </a>       character*(80) arch
 
19
 
 
20
<a name="line10"> 10: </a>       call <A href="../../../../docs/manualpages/Sys/PetscInitialize.html#PetscInitialize">PetscInitialize</A>(PETSC_NULL_CHARACTER,ierr)
 
21
 
 
22
<a name="line12"> 12: </a>       <font color="#4169E1">if</font> (ierr .ne. 0) then
 
23
<a name="line13"> 13: </a>         print*, 'Unable to begin PETSc program'
 
24
<a name="line14"> 14: </a>       endif
 
25
 
 
26
<a name="line16"> 16: </a>       call <A href="http://www.mcs.anl.gov/mpi/www/www3/MPI_Comm_rank.html#MPI_Comm_rank">MPI_Comm_rank</A>(<A href="../../../../docs/manualpages/Sys/PETSC_COMM_WORLD.html#PETSC_COMM_WORLD">PETSC_COMM_WORLD</A>,<A href="../../../../docs/manualpages/Sys/rank.html#rank">rank</A>,ierr)
 
27
<a name="line17"> 17: </a>       print*, 'Greetings from', <A href="../../../../docs/manualpages/Sys/rank.html#rank">rank</A>
 
28
 
 
29
<a name="line19"> 19: </a>       call <A href="../../../../docs/manualpages/Sys/PetscGetArchType.html#PetscGetArchType">PetscGetArchType</A>(arch,ierr)
 
30
<a name="line20"> 20: </a>       print*, 'Machine type ',arch
 
31
 
 
32
<a name="line22"> 22: </a>       call <A href="../../../../docs/manualpages/Sys/PetscFinalize.html#PetscFinalize">PetscFinalize</A>(ierr)
 
33
<a name="line23"> 23: </a>       end
 
34
</pre>
 
35
</body>
 
36
 
 
37
</html>