1: ! 2: ! 3: ! Utility routine used to set some values into a Fortran common block 5: subroutine PetscSetCommonBlock(c1,c2) 6: implicit none 8: #include ../../../include/finclude/petsc.h 10: integer c1,c2 12: PETSC_COMM_WORLD = c1 13: PETSC_COMM_SELF = c2 15: call PetscSetFortranBasePointers(PETSC_NULL_CHARACTER, & 16: & PETSC_NULL_INTEGER,PETSC_NULL,PETSC_NULL_SCALAR, & 17: & PETSC_NULL_DOUBLE,PETSC_NULL_REAL,PETSC_NULL_OBJECT, & 18: & PETSC_NULL_FUNCTION) 20: return 21: end