1 | include(dom.inc)
   2 |       MODULE mod_inout
   3 | 
   4 | !       ===============================================================!
   5 | !                                                                      !
   6 | !       writedatas.F : Module that saves data on the input and output  !
   7 | !                      parameters for PRISSMA                          !
   8 | !                                                                      !
   9 | !       in           : INPUT file                                      !
  10 | !                                                                      !
  11 | !       author       : J. AMAYA (june 2007)                            !
  12 | !                                                                      !
  13 | !       ===============================================================!
  14 | 
  15 |         IMPLICIT NONE
  16 | 
  17 |         CHARACTER*80     :: path
  18 |         CHARACTER*80     :: pathspec
  19 |         CHARACTER*80     :: outpath
  20 |         CHARACTER*80     :: quadtype
  21 |         DOM_INT          :: nquad, nquad1, nquad2, nquad3
  22 |         CHARACTER*80     :: spascheme
  23 |         CHARACTER*80     :: mediumtype, nb_base
  24 |         CHARACTER*80     :: homosyst
  25 |         DOM_REAL         :: critconv
  26 |         DOM_REAL         :: Nq_kabs
  27 |         DOM_REAL         :: alpha
  28 |         DOM_INT          :: I_SCHEME
  29 |         DOM_INT          :: i_refstate 
  30 |         DOM_REAL         :: s_Tp 
  31 |         DOM_INT          :: i_dom_npart
  32 |         DOM_INT          :: i_dom_nthread
  33 |         DOM_INT          :: i_dom_inter
  34 | 
  35 |       END MODULE mod_inout