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 |         IF (pmm_rank.eq.PMM_HOST) THEN
  20 |           WRITE(*,*) "==============================================================================="
  21 |           WRITE(*,*) "|                  PRISSMA - J.AMAYA & D.Poitou - CERFACS CFD                 |"
  22 |           WRITE(*,*) "|                                                                             |"
  23 |           WRITE(*,*) "| Parallel RadIation Solver with Spectral integration on Multicomponent mediA |"
  24 |           WRITE(*,*) "|                      ->> http://www.cerfacs.fr/prissma                      |"
  25 | #ifdef USEPALM
  26 |           WRITE(*,*) "| Palm version by J.AMAYA                                                     |"
  27 | #endif
  28 |           WRITE(*,*) "==============================================================================="
  29 |           WRITE(*,*)
  30 |         ENDIF
  31 | 
  32 |         CALL pmm_readinput(end_prog)
  33 | 
  34 |         CALL master
  35 |         CALL slave
  36 | 
  37 |         IF (pmm_rank.eq.PMM_HOST) THEN
  38 | #ifdef USEPALM
  39 |           WRITE(*,*) " (PRISSMA) << MAIN: Successful run."
  40 | #else
  41 |           WRITE(*,*) " << MAIN: Successful run."
  42 | #endif
  43 |         ENDIF
  44 | 
  45 |         CALL pmm_end(ierr)
  46 | 
  47 | #ifdef USEPALM
  48 |       END SUBROUTINE mpiprissma_lib
  49 | #else
  50 |       END PROGRAM mpiprissma
  51 | #endif
  52 |