if Subroutine

public subroutine if(opts, noelse, eb)

Arguments

TypeIntentOptionalAttributesName
character(len=*), intent(in) :: opts
integer, intent(out) :: noelse
logical :: eb

Contents


Variables

TypeVisibilityAttributesNameInitial
character(len=G_line_length), public :: expression
integer, public :: ierr
integer, public :: ios
integer, public :: ithen
character(len=G_var_len), public :: value