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