Actual source code: somefort.F

      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