skip_header_lines Subroutine

private subroutine skip_header_lines()

Skips the first n_skip_lines (read on input) lines in the coupling_terms_file

Arguments

None

Called by

proc~~skip_header_lines~~CalledByGraph proc~skip_header_lines skip_header_lines proc~read_radial_coupling_terms read_radial_coupling_terms proc~read_radial_coupling_terms->proc~skip_header_lines program~scattering SCATTERING program~scattering->proc~read_radial_coupling_terms

Contents

Variables

Source Code

skip_header_lines

Variables

Type Visibility Attributes Name Initial
integer(kind=int32), private :: line_index_

Source Code

      subroutine skip_header_lines
         !! Skips the first n_skip_lines (read on input) lines
         !! in the coupling_terms_file
         !---------------------------------------------------------------------!
         integer(int32) :: line_index_
         !---------------------------------------------------------------------!
         do line_index_ = 1, n_skip_lines
            read(coupling_terms_file_unit, *) 
         enddo
         !---------------------------------------------------------------------!
      end subroutine skip_header_lines