mod_inout Module

  1. mod_inout.f90
  2. mod_inout

This module read the input user parameters (parameters.txt file / data / noise if true)


Uses

  • module~~mod_inout~~UsesGraph module~mod_inout mod_inout module~mod_constants mod_constants module~mod_inout->module~mod_constants iso_fortran_env iso_fortran_env module~mod_constants->iso_fortran_env

Used by

  • module~~mod_inout~~UsedByGraph module~mod_inout mod_inout program~rohsa ROHSA program~rohsa->module~mod_inout

Contents

Subroutines


Subroutines

public subroutine read_parameters(filename_parameters, filename, fileout, filename_noise, n_gauss, n_gauss_add, lambda_amp, lambda_mu, lambda_sig, lambda_var_amp, lambda_var_mu, lambda_var_sig, amp_fact_init, sig_init, init_option, maxiter_init, maxiter, m, noise, regul, descent, lstd, ustd, iprint, iprint_init)

Arguments

Type IntentOptional AttributesName
character(len=512), intent(in) :: filename_parameters
character(len=512), intent(inout) :: filename
character(len=512), intent(inout) :: fileout
character(len=512), intent(inout) :: filename_noise
integer, intent(inout) :: n_gauss
integer, intent(inout) :: n_gauss_add
real(kind=xp), intent(inout) :: lambda_amp
real(kind=xp), intent(inout) :: lambda_mu
real(kind=xp), intent(inout) :: lambda_sig
real(kind=xp), intent(inout) :: lambda_var_amp
real(kind=xp), intent(inout) :: lambda_var_mu
real(kind=xp), intent(inout) :: lambda_var_sig
real(kind=xp), intent(inout) :: amp_fact_init
real(kind=xp), intent(inout) :: sig_init
character(len=8), intent(inout) :: init_option
integer, intent(inout) :: maxiter_init
integer, intent(inout) :: maxiter
integer, intent(inout) :: m
logical, intent(inout) :: noise
logical, intent(inout) :: regul
logical, intent(inout) :: descent
integer, intent(inout) :: lstd
integer, intent(inout) :: ustd
integer, intent(inout) :: iprint
integer, intent(inout) :: iprint_init

public subroutine read_cube(filename, cube)

Arguments

Type IntentOptional AttributesName
character(len=512), intent(in) :: filename
real(kind=xp), intent(inout), dimension(:,:,:), allocatable:: cube

public subroutine read_map(filename, map)

Arguments

Type IntentOptional AttributesName
character(len=512), intent(in) :: filename
real(kind=xp), intent(inout), dimension(:,:), allocatable:: map