1 | include(dom.inc)
   2 | 
   3 | #ifdef USEPALM
   4 |       SUBROUTINE mpiprissma_lib
   5 | #else
   6 |       PROGRAM mpiprissma
   7 | #endif
   8 | 
   9 |         USE mod_pmm
  10 | 
  11 |         IMPLICIT NONE
  12 | 
  13 |         DOM_INT :: ierr, end_prog
  14 | 
  15 | #ifdef USEPALM
  16 |         WRITE(*,*) " PRISSMA - Palm version by J.AMAYA - CERFACS CFD"
  17 | #endif
  18 | 
  19 |         CALL pmm_begin(ierr)
  20 | 
  21 |         CALL pmm_readinput(end_prog)
  22 | 
  23 |         CALL master
  24 |         CALL slave
  25 | 
  26 |         CALL pmm_end(ierr)
  27 | 
  28 | #ifdef USEPALM
  29 |         WRITE(*,*) " (",pmm_rank,") << MAIN: Succesful run."
  30 | #else
  31 |         WRITE(*,*) " << MAIN: Succesful run."
  32 | #endif
  33 | 
  34 | #ifdef USEPALM
  35 |       END SUBROUTINE mpiprissma_lib
  36 | #else
  37 |       END PROGRAM mpiprissma
  38 | #endif
  39 |