skip_lines Subroutine

public subroutine skip_lines(f, n)

Uses

  • proc~~skip_lines~~UsesGraph proc~skip_lines skip_lines module~mod_memory mod_memory proc~skip_lines->module~mod_memory module~mod_io mod_io module~mod_memory->module~mod_io module~mod_constants mod_constants module~mod_memory->module~mod_constants iso_c_binding iso_c_binding module~mod_memory->iso_c_binding module~mod_io->module~mod_constants module~mod_constants->iso_c_binding

Skips n lines while reading an input file

Arguments

Type IntentOptional Attributes Name
integer(kind=ip), intent(in) :: f

unit file
integer(kind=ip), intent(in) :: n

number of line to be skipped

Called by

proc~~skip_lines~~CalledByGraph proc~skip_lines skip_lines proc~mmpol_init_from_mmp mmpol_init_from_mmp proc~mmpol_init_from_mmp->proc~skip_lines proc~ommp_init_mmp ommp_init_mmp proc~ommp_init_mmp->proc~mmpol_init_from_mmp proc~c_ommp_init_mmp C_ommp_init_mmp proc~c_ommp_init_mmp->proc~ommp_init_mmp

Contents

Source Code

skip_lines

Source Code

    subroutine skip_lines(f, n)
        !! Skips n lines while reading an input file
        use mod_memory, only: ip
        
        implicit none

        integer(ip), intent(in) :: f
        !! unit file
        integer(ip), intent(in) :: n
        !! number of line to be skipped

        integer(ip) :: i

        do i=1, n
            read(f, *)
        end do
    end subroutine skip_lines