1 | include(dom.inc)
   2 | 
   3 |       PROGRAM mpiprissma
   4 | 
   5 |         USE mod_pmm
   6 | 
   7 |         IMPLICIT NONE
   8 | 
   9 |         DOM_INT :: ierr, end_prog
  10 | 
  11 |         CALL pmm_begin(ierr)
  12 | 
  13 |         CALL pmm_readinput(end_prog)
  14 | 
  15 |         CALL master
  16 |         CALL slave
  17 | 
  18 |         CALL pmm_end(ierr)
  19 | 
  20 |         WRITE(*,*) " << MAIN: Succesful run."
  21 | 
  22 |       END PROGRAM mpiprissma