Actual source code: somefort.F
1: !
2: ! "$Id: somefort.F,v 1.21 2000/05/04 16:27:10 bsmith Exp $";
3: !
4: ! Utility routine used to set some values into a Fortran common block
6: subroutine PetscSetCommonBlock(c1,c2)
7: implicit none
9: #include "../../../include/finclude/petsc.h"
11: integer c1,c2
13: PETSC_COMM_WORLD = c1
14: PETSC_COMM_SELF = c2
16: call PetscSetFortranBasePointers(PETSC_NULL_CHARACTER, &
17: & PETSC_NULL_INTEGER,PETSC_NULL_SCALAR,PETSC_NULL_DOUBLE, &
18: & PETSC_NULL_FUNCTION)
20: return
21: end