save_partial_xs_file_header Subroutine

public subroutine save_partial_xs_file_header()

save "header" of the partial cross-sections file: -- label, "itype", number of levels in the basis, reduced mass of the system -- vibrational and rotational quantum numbers -- rovibrational energies -- index pointing to the initial level and the kinetic/total energy

Arguments

None

Calls

proc~~save_partial_xs_file_header~~CallsGraph proc~save_partial_xs_file_header save_partial_xs_file_header proc~file_io_status file_io_status proc~save_partial_xs_file_header->proc~file_io_status proc~write_message write_message proc~save_partial_xs_file_header->proc~write_message proc~integer_to_character integer_to_character proc~file_io_status->proc~integer_to_character proc~write_error write_error proc~file_io_status->proc~write_error proc~write_error->proc~write_message

Called by

proc~~save_partial_xs_file_header~~CalledByGraph proc~save_partial_xs_file_header save_partial_xs_file_header program~scattering SCATTERING program~scattering->proc~save_partial_xs_file_header

Contents

Variables

Source Code

save_partial_xs_file_header

Variables

Type Visibility Attributes Name Initial
character(len=200), private :: err_message
integer(kind=int32), private :: io_status

Source Code

      subroutine save_partial_xs_file_header
         !! save "header" of the partial cross-sections file:
         !! -- label, "itype", number of levels in the basis, reduced mass of the system
         !! -- vibrational and rotational quantum numbers
         !! -- rovibrational energies
         !! -- index pointing to the initial level and the kinetic/total energy
         !---------------------------------------------------------------------!
         character(len=200) :: err_message
         integer(int32) :: io_status
         !---------------------------------------------------------------------!
         open(partial_file_unit, file=trim(partial_xs_file_name),              &
            form='formatted', status='unknown', iostat = io_status,            &
            iomsg = err_message)
         call file_io_status(io_status, err_message, partial_file_unit, "o")
         !---------------------------------------------------------------------!
         call write_message( "  jtot  iblock  v1_f  j1_f  <-  v1_i  j1_i'" //  &
            repeat(" ", 13) // "K.E." // repeat(" ", 16) // "XS",              &
            unit_ = partial_file_unit)
         !---------------------------------------------------------------------!
      end subroutine save_partial_xs_file_header