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