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 |         include 'pmm_constants.h'
  14 | 
  15 |         DOM_INT :: ierr, end_prog
  16 | 
  17 |         CALL pmm_begin(ierr)
  18 | 
  19 | #ifdef USEPALM
  20 |         IF (pmm_rank.eq.PMM_HOST) THEN
  21 |           WRITE(*,*) " PRISSMA - Palm version by J.AMAYA - CERFACS CFD"
  22 |         ENDIF
  23 | #endif
  24 | 
  25 |         CALL pmm_readinput(end_prog)
  26 | 
  27 |         CALL master
  28 |         CALL slave
  29 | 
  30 |         IF (pmm_rank.eq.PMM_HOST) THEN
  31 | #ifdef USEPALM
  32 |           WRITE(*,*) " (PRISSMA) << MAIN: Successful run."
  33 | #else
  34 |           WRITE(*,*) " << MAIN: Successful run."
  35 | #endif
  36 |         ENDIF
  37 | 
  38 |         CALL pmm_end(ierr)
  39 | 
  40 | #ifdef USEPALM
  41 |       END SUBROUTINE mpiprissma_lib
  42 | #else
  43 |       END PROGRAM mpiprissma
  44 | #endif
  45 |