1 | include(dom.inc)
   2 | 
   3 |       SUBROUTINE pmm_readinput(end_prog)
   4 | 
   5 | !       ================================================================!
   6 | !                                                                       !
   7 | !       read_data.F   : Reads and stores data from input.dat file.      !
   8 | !                                                                       !
   9 | !       out           : Global I/O options for PRISSMA.                 !
  10 | !                                                                       !
  11 | !       author        : J. AMAYA (september 2007)                       !
  12 | !                                                                       !
  13 | !       ================================================================!
  14 | 
  15 |         USE mod_inout
  16 | 
  17 |         IMPLICIT NONE
  18 | 
  19 |         include 'dom_constants.h'
  20 | 
  21 | !       IN
  22 |         DOM_INT :: end_prog
  23 | 
  24 | !       --------------------!
  25 | !       Read input.dat file !
  26 | !       --------------------!
  27 | 
  28 |         OPEN(UNIT=1,FILE='prissma.choices')
  29 | 
  30 |         READ(1,*) path
  31 |         READ(1,*) pathspec
  32 |         READ(1,*) outpath
  33 |         READ(1,*) datastatus
  34 |         READ(1,*) spascheme
  35 |         READ(1,*) mediumtype
  36 |         READ(1,*) Nq_kabs
  37 |         READ(1,*) critconv
  38 |         READ(1,*) homosyst
  39 | 
  40 |         CLOSE(1)
  41 | 
  42 | !       -----------------------------------------!
  43 | !         CHOIX DU SCHEMA DE DERIVATION SPATIALE !
  44 | !       -----------------------------------------!
  45 | 
  46 |         IF (spascheme==DMFS) THEN
  47 |           alpha=0.5
  48 |           I_SCHEME=1
  49 |         ELSE IF (spascheme==SMFS) THEN
  50 |           alpha=1.0
  51 |           I_SCHEME=1
  52 |         ELSE IF (spascheme==EXPON) THEN
  53 |           alpha=0.0
  54 |           I_SCHEME=2
  55 |         ELSE
  56 |           end_prog=1
  57 |         ENDIF
  58 | 
  59 |       END SUBROUTINE pmm_readinput