Commits

BarryFSmith committed 473c83c

*** empty log message ***

Comments (0)

Files changed (37)

src/contrib/sda/examples/tests/ex2.F

 !
-!    "$Id: ex2.F,v 1.13 2000/01/11 21:03:33 bsmith Exp balay $"
+!    "$Id: ex2.F,v 1.14 2000/05/05 22:19:43 balay Exp bsmith $"
 !
-
+      program main
 #include "include/finclude/petsc.h"
 #include "include/finclude/petscvec.h"
 #include "include/finclude/petscda.h"

src/mat/examples/tests/ex16f90.F

 !
-!  "$Id: ex16f90.F,v 1.12 2000/01/11 21:01:03 bsmith Exp balay $";
+!  "$Id: ex16f90.F,v 1.13 2000/05/05 22:16:17 balay Exp bsmith $";
 !
 !
 !  Tests MatGetArray() on a dense matrix
 !
 
-      program ex16f90
+      program main
       implicit none
 
 

src/mat/examples/tests/ex36.F

 !
-!      "$Id: ex36.F,v 1.26 2000/01/11 21:01:03 bsmith Exp balay $";
+!      "$Id: ex36.F,v 1.27 2000/05/05 22:16:17 balay Exp bsmith $";
 !
 !   This program demonstrates use of PETSc dense matrices.
 !
+      program main
 
 #include "include/finclude/petsc.h"
 

src/mat/examples/tests/ex58f.F

 !
-!      "$Id: ex58f.F,v 1.8 1999/03/27 14:43:46 bsmith Exp balay $";
+!      "$Id: ex58f.F,v 1.9 2000/05/05 22:16:17 balay Exp bsmith $";
 !
 !   This program demonstrates use of MatGetRow() from Fortran
 !
-
+      program main
 #include "include/finclude/petsc.h"
 #include "include/finclude/petscmat.h"
 #include "include/finclude/petscviewer.h"

src/mat/examples/tests/ex63.F

 !
-!      "$Id: ex63.F,v 1.5 1998/12/03 04:01:49 bsmith Exp balay $";
+!      "$Id: ex63.F,v 1.6 2000/05/05 22:16:17 balay Exp bsmith $";
 !
 !   This program tests storage of PETSc Dense matrix. 
 !   It Creates a Dense matrix, and stores it into a file,
 !   and then reads it back in as a SeqDense and MPIDense
 !   matrix, and prints out the contents.
 !
+      program main
       implicit none
 #include "include/finclude/petsc.h"
 #include "include/finclude/petscmat.h"

src/mat/examples/tests/ex67f.F

 
-C      "$Id: ex67f.F,v 1.5 2000/01/11 21:01:03 bsmith Exp balay $";
+C      "$Id: ex67f.F,v 1.6 2000/05/05 22:16:17 balay Exp bsmith $";
 C
 C   This program demonstrates use of MatGetSubMatrices() from Fortran
 C
-
+      program main
 #include "include/finclude/petsc.h"
 #include "include/finclude/petscmat.h"
 #include "include/finclude/petscis.h"

src/sles/examples/tests/ex12.F

 !
-!      "$Id: ex12.F,v 1.30 2000/01/11 21:02:16 bsmith Exp balay $";
+!      "$Id: ex12.F,v 1.31 2000/05/05 22:17:55 balay Exp bsmith $";
 !
+      program main
        implicit none
 
 #include "include/finclude/petsc.h"

src/sles/examples/tests/ex16.F

 !
-!      "$Id: ex16.F,v 1.23 2000/05/05 22:17:55 balay Exp balay $";
+!      "$Id: ex16.F,v 1.24 2000/08/08 15:47:15 balay Exp bsmith $";
 !
+      program main
        implicit none
 
 #include "include/finclude/petsc.h"

src/sles/examples/tests/ex5f.F

 !
-!      "$Id: ex5f.F,v 1.7 1998/04/21 18:30:54 balay Exp balay $";
+!      "$Id: ex5f.F,v 1.8 2000/05/05 22:17:55 balay Exp bsmith $";
 !
+      program main
        implicit none
 
 #include "include/finclude/petsc.h"

src/sles/examples/tutorials/ex6f.F

 !
-!    "$Id: ex6f.F,v 1.29 2000/05/05 22:18:00 balay Exp bsmith $";
+!    "$Id: ex6f.F,v 1.30 2000/09/22 20:45:46 bsmith Exp bsmith $";
 !
 !  Description: This example demonstrates repeated linear solves as
 !  well as the use of different preconditioner and linear system
 !     petscviewer.h - viewers
 !     petscis.h     - index sets
 !
+      program main
 #include "include/finclude/petsc.h"
 #include "include/finclude/petscvec.h"
 #include "include/finclude/petscmat.h"

src/snes/examples/tests/ex12.F

 !
-!    "$Id: ex12.F,v 1.55 2000/05/05 22:18:29 balay Exp balay $";
+!    "$Id: ex12.F,v 1.56 2000/09/26 23:20:16 balay Exp bsmith $";
 !
 !  This example demonstrates basic use of the SNES Fortran interface.
 !  
 #define xx(ib)  vxx(ixx + (ib))
 #define ff(ib)  vff(iff + (ib))
 #define F2(ib)  vF2(iF2 + (ib))
-
-       implicit none
+      program main
+      implicit none
 
 #include "include/finclude/petsc.h"
 #include "include/finclude/petscvec.h"

src/snes/mf/snesmfj.c

-/*$Id: snesmfj.c,v 1.111 2000/09/07 15:17:55 balay Exp bsmith $*/
+/*$Id: snesmfj.c,v 1.112 2000/09/22 20:45:59 bsmith Exp bsmith $*/
 
 #include "src/snes/snesimpl.h"
 #include "src/snes/mf/snesmfj.h"   /*I  "petscsnes.h"   I*/
   if (isascii) {
      ierr = ViewerASCIIPrintf(viewer,"  SNES matrix-free approximation:\n");CHKERRQ(ierr);
      ierr = ViewerASCIIPrintf(viewer,"    err=%g (relative error in function evaluation)\n",ctx->error_rel);CHKERRQ(ierr);
-     ierr = ViewerASCIIPrintf(viewer,"    Using %s compute h routine\n",ctx->type_name);CHKERRQ(ierr);
+     if (!ctx->type_name) {
+       ierr = ViewerASCIIPrintf(viewer,"    The compute h routine has not yet been set\n");CHKERRQ(ierr);
+     } else {
+       ierr = ViewerASCIIPrintf(viewer,"    Using %s compute h routine\n",ctx->type_name);CHKERRQ(ierr);
+     }
      if (ctx->ops->view) {
        ierr = (*ctx->ops->view)(ctx,viewer);CHKERRQ(ierr);
      }

src/sys/examples/tests/ex17f.F

 !
-! "$Id: ex17f.F,v 1.1 2000/07/03 18:00:54 bsmith Exp bsmith $";
+! "$Id: ex17f.F,v 1.2 2000/07/10 03:39:03 bsmith Exp bsmith $";
 !
 !
 !     Test for PetscFOpen() from Fortran
 !
-
+       program main
 #include "finclude/petsc.h"
 
       integer          ierr,rank

src/sys/examples/tests/ex5.F

-!    "$Id: ex5.F,v 1.11 1998/04/15 18:00:59 balay Exp bsmith $";
+!    "$Id: ex5.F,v 1.12 2000/01/11 20:59:47 bsmith Exp bsmith $";
 !
 !  Simple PETSc Program written in Fortran 77.
 !
+       program main
 #include "include/finclude/petsc.h"
        integer        ierr,rank
        character*(80) arch

src/sys/examples/tests/ex6.F

-!    "$Id: ex6.F,v 1.9 2000/01/11 20:59:47 bsmith Exp balay $";
+!    "$Id: ex6.F,v 1.10 2000/05/05 22:14:28 balay Exp bsmith $";
 !
 !  Progran to test random number generation routines from fortran.
 !
+       program main
 #include "include/finclude/petsc.h"
 #include "include/finclude/petscsys.h"
       integer         ierr

src/sys/examples/tests/ex7f.F

 !
-! "$Id: ex7f.F,v 1.5 1998/03/24 16:42:22 balay Exp balay $";
+! "$Id: ex7f.F,v 1.6 1998/04/15 18:00:53 balay Exp bsmith $";
 !
 !
 !     Formatted test for PetscSetCommWorld()
 !
-
+       program main
 #include "finclude/petsc.h"
 
       integer size,ierr

src/sys/src/draw/examples/tests/ex4f.F

 !
-!    "$Id: ex4f.F,v 1.5 2000/01/11 20:59:19 bsmith Exp balay $";
+!    "$Id: ex4f.F,v 1.6 2000/05/05 22:13:41 balay Exp bsmith $";
 !
 !
 !  This example demonstrates use of DrawZoom()
       return 
       end
 
+      program main
 #include "include/finclude/petsc.h"
 #include "include/finclude/petscdraw.h"
       Draw draw

src/sys/src/draw/examples/tests/ex5.F

 !
-!    "$Id: ex5.F,v 1.23 2000/01/11 20:59:19 bsmith Exp balay $";
+!    "$Id: ex5.F,v 1.24 2000/05/05 22:13:41 balay Exp bsmith $";
 !
+      program main
 #include "include/finclude/petsc.h"
 #include "include/finclude/petscdraw.h"
 !

src/vec/examples/tests/ex19.F

 !
-!    "$Id: ex19.F,v 1.33 2000/01/11 21:00:17 bsmith Exp balay $";
+!    "$Id: ex19.F,v 1.34 2000/05/05 22:15:11 balay Exp bsmith $";
 !
+      program main
 #include "include/finclude/petsc.h"
 #include "include/finclude/petscvec.h"
 !

src/vec/examples/tests/ex20.F

 !
-!    "$Id: ex20.F,v 1.9 2000/01/11 21:00:17 bsmith Exp balay $";
+!    "$Id: ex20.F,v 1.10 2000/05/05 22:15:11 balay Exp bsmith $";
 !
-       implicit none
+      program main
+      implicit none
 #include "include/finclude/petsc.h"
 #include "include/finclude/petscsys.h"
 #include "include/finclude/petscvec.h"

src/vec/examples/tests/ex30f.F

 !
-!    "$Id: ex30f.F,v 1.1 2000/04/26 01:17:32 bsmith Exp balay $";
+!    "$Id: ex30f.F,v 1.2 2000/05/05 22:15:11 balay Exp bsmith $";
 !
 !  Tests parallel to parallel scatter where a to from index are 
 !  duplicated
-       implicit none
+      program main
+      implicit none
 
 #include "include/finclude/petsc.h"
 #include "include/finclude/petscis.h"

src/vec/examples/tests/ex32f.F

 !
-!    "$Id: ex32f.F,v 1.1 2000/05/30 15:23:15 bsmith Exp bsmith $";
+!    "$Id: ex32f.F,v 1.2 2000/07/10 03:39:23 bsmith Exp bsmith $";
 !
 !  Tests PescOffsetFortran()
 !  duplicated
+      program main
        implicit none
 
 #include "include/finclude/petsc.h"

src/vec/examples/tutorials/ex11f.F

 !
-! "$Id: ex11f.F,v 1.6 2000/05/05 22:15:21 balay Exp bsmith $";
+! "$Id: ex11f.F,v 1.7 2000/09/22 20:43:24 bsmith Exp bsmith $";
 !
 !
 ! Program usage:  mpirun ex1 [-help] [all PETSc options] 
 !   Processors: n
 !T*/
 
-      program ex11f
+      program main
       implicit none
 
 !

src/vec/examples/tutorials/ex14f.F

 !
-!     "$Id: ex14f.F,v 1.3 2000/05/05 22:15:21 balay Exp bsmith $";
+!     "$Id: ex14f.F,v 1.4 2000/09/22 20:43:24 bsmith Exp bsmith $";
 !
 ! Description: Illustrates the use of VecCreateGhost()
 !
 !      vector computations are otherwise unaffected.
 !T*/
 
-      program ex14f
+      program main
       implicit none
 
 !

src/vec/examples/tutorials/ex1f.F

 !
-!    "$Id: ex1f.F,v 1.25 2000/08/03 20:15:20 balay Exp bsmith $"
+!    "$Id: ex1f.F,v 1.26 2000/09/22 20:43:24 bsmith Exp bsmith $"
 !
 !   Program usage:  mpirun ex1f [-help] [all PETSc options] 
 !
 !
 ! -----------------------------------------------------------------------
 
-      program ex1f
+      program main
       implicit none
 
 ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

src/vec/examples/tutorials/ex1f90.F

 !
-!    "$Id: ex1f90.F,v 1.21 2000/08/07 22:20:00 bsmith Exp bsmith $"
+!    "$Id: ex1f90.F,v 1.22 2000/09/22 20:43:24 bsmith Exp bsmith $"
 !
 !/*T
 !   Concepts: vectors^using basic vector routines;
 !
 ! -----------------------------------------------------------------------
 
-      program ex1f90
+      program main
       implicit none
 
 ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

src/vec/examples/tutorials/ex2f.F

 !
-!    "$Id: ex2f.F,v 1.10 2000/05/05 22:15:21 balay Exp bsmith $"
+!    "$Id: ex2f.F,v 1.11 2000/09/22 20:43:24 bsmith Exp bsmith $"
 !
 !  Description: Builds a parallel vector with 1 component on the first
 !               processor, 2 on the second, etc.  Then each processor adds
 !T*/
 ! -----------------------------------------------------------------------
 
-      program ex2f
+      program main
       implicit none
 
 ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

src/vec/examples/tutorials/ex3f.F

 !
-!      "$Id: ex3f.F,v 1.12 2000/05/05 22:15:21 balay Exp bsmith $";
+!      "$Id: ex3f.F,v 1.13 2000/09/22 20:43:24 bsmith Exp bsmith $";
 !
 !  Description: Displays a vector visually.
 !
 !T*/
 ! -----------------------------------------------------------------------
 
-      program ex3f
+      program main
       implicit none
 
 ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

src/vec/examples/tutorials/ex4f.F

 !
-!      "$Id: ex4f.F,v 1.23 2000/05/05 22:15:21 balay Exp bsmith $";
+!      "$Id: ex4f.F,v 1.24 2000/09/22 20:43:24 bsmith Exp bsmith $";
 !
 !  Description:  Illustrates the use of VecSetValues() to set
 !  multiple values at once; demonstrates VecGetArray().
 !T*/
 ! -----------------------------------------------------------------------
 
-      program ex4f
+      program main
       implicit none
 
 ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

src/vec/examples/tutorials/ex4f90.F

 !
-!      "$Id: ex4f90.F,v 1.9 2000/05/05 22:15:21 balay Exp bsmith $";
+!      "$Id: ex4f90.F,v 1.10 2000/09/22 20:43:24 bsmith Exp bsmith $";
 !
 !  Description:  Illustrates the use of VecSetValues() to set
 !  multiple values at once; demonstrates VecGetArrayF90().
 !T*/
 ! -----------------------------------------------------------------------
 
-      program ex4f90
+      program main
       implicit none
 
 ! - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

src/vec/examples/tutorials/ex9f.F

 !
-!     "$Id: ex9f.F,v 1.4 2000/08/03 20:15:06 balay Exp bsmith $";
+!     "$Id: ex9f.F,v 1.5 2000/09/22 20:43:24 bsmith Exp bsmith $";
 !
 ! Description: Illustrates the use of VecCreateGhost()
 !
 !      vector computations are otherwise unaffected.
 !T*/
 
-      program ex9f
+      program main
       implicit none
 
 !

src/vec/is/examples/tests/ex1f.F

 !
-!  "$Id: ex1f.F,v 1.16 2000/05/05 22:14:45 balay Exp bsmith $"
+!  "$Id: ex1f.F,v 1.17 2000/07/10 03:39:09 bsmith Exp bsmith $"
 !
 !  Formatted test for IS general routines
 !
+      program main
       implicit none
 #include "finclude/petsc.h"
 #include "finclude/petscis.h"

src/vec/is/examples/tests/ex2f.F

 !
-!  "$Id: ex2f.F,v 1.15 2000/07/10 03:39:09 bsmith Exp balay $"
+!  "$Id: ex2f.F,v 1.16 2000/08/03 20:15:22 balay Exp bsmith $"
 !
 !  Formatted Test for IS stride routines
 !
+      program main
       implicit none
 #include "finclude/petsc.h"
 #include "finclude/petscis.h"

src/vec/is/examples/tutorials/ex1f.F

 !
-!  "$Id: ex1f.F,v 1.20 2000/07/10 03:39:11 bsmith Exp bsmith $";
+!  "$Id: ex1f.F,v 1.21 2000/09/22 20:42:58 bsmith Exp bsmith $";
 !
 !/*T
 !    Concepts: Index sets^manipulating a general index set;
 !     petsc.h  - base PETSc routines
 !     petscis.h     - index sets (IS objects)
 !
+      program main
       implicit none
 
 #include "include/finclude/petsc.h"

src/vec/is/examples/tutorials/ex1f90.F

 !
-!  "$Id: ex1f90.F,v 1.14 2000/08/06 03:52:30 bsmith Exp bsmith $";
+!  "$Id: ex1f90.F,v 1.15 2000/09/22 20:42:58 bsmith Exp bsmith $";
 !
 !/*T
 !    Concepts: Index sets^manipulating a general index set;
 !     petscis.h     - index sets (IS objects)
 !     petscis.h90   - to allow access to Fortran90 features of index sets
 !
+      program main
       implicit none
 
 #include "finclude/petsc.h"

src/vec/is/examples/tutorials/ex2f.F

 !
-!      "$Id: ex2f.F,v 1.15 2000/05/05 22:14:48 balay Exp bsmith $";
+!      "$Id: ex2f.F,v 1.16 2000/09/22 20:42:58 bsmith Exp bsmith $";
 !
 !/*T
 !    Concepts: Index sets^manipulating a stride index set;
 !
 !  Include petscis.h so we can use PETSc IS objects.
 !
+      program main
       implicit none
 #include "finclude/petsc.h"
 #include "finclude/petscis.h"

src/vec/is/examples/tutorials/ex3f90.F

 !
-!      "$Id: ex3f90.F,v 1.12 2000/07/10 03:39:11 bsmith Exp bsmith $"; */
+!      "$Id: ex3f90.F,v 1.13 2000/09/22 20:42:58 bsmith Exp bsmith $"; */
 !
 !
 !/*T
 !     petscis.h     - index sets (IS objects)
 !     petscis.h90   - to allow access to Fortran90 features of index sets
 !
+      program main
       implicit none
 
 #include "finclude/petsc.h"