Actual source code: somefort.F
1: !
2: ! "$Id: somefort.F,v 1.22 2001/08/10 16:50:46 balay 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,PETSC_NULL_SCALAR, &
18: & PETSC_NULL_DOUBLE,PETSC_NULL_REAL,PETSC_NULL_FUNCTION)
20: return
21: end