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     :: datastatus
  18 |         CHARACTER*80     :: path
  19 |         CHARACTER*80     :: pathspec
  20 |         CHARACTER*80     :: outpath
  21 |         CHARACTER*80     :: quadtype
  22 |         DOM_INT          :: nquad, nquad1, nquad2, nquad3
  23 |         CHARACTER*80     :: spascheme
  24 |         CHARACTER*80     :: mediumtype
  25 |         CHARACTER*80     :: homosyst
  26 |         DOM_REAL :: critconv
  27 |         DOM_REAL :: Nq_kabs
  28 |         DOM_REAL :: alpha
  29 |         DOM_INT          :: I_SCHEME
  30 | 
  31 |       END MODULE mod_inout
mod_inout.F could be called by: