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