set_filters Subroutine

private pure elemental subroutine set_filters(this, binary, binaryObject, commentOnly, demangle, directives, execute, intel, labels, libraryCode, trim, debugCalls)

Type Bound

options

Arguments

Type IntentOptional Attributes Name
class(options), intent(inout) :: this
logical, intent(in), optional :: binary
logical, intent(in), optional :: binaryObject
logical, intent(in), optional :: commentOnly
logical, intent(in), optional :: demangle
logical, intent(in), optional :: directives
logical, intent(in), optional :: execute
logical, intent(in), optional :: intel
logical, intent(in), optional :: labels
logical, intent(in), optional :: libraryCode
logical, intent(in), optional :: trim
logical, intent(in), optional :: debugCalls

Contents

Source Code


Source Code

   elemental pure subroutine set_filters(this,&
      binary, binaryObject, commentOnly, demangle, directives, execute, intel,&
      labels, libraryCode, trim, debugCalls)
      
      class(options), intent(inout) :: this
      logical, intent(in), optional :: binary
      logical, intent(in), optional :: binaryObject
      logical, intent(in), optional :: commentOnly
      logical, intent(in), optional :: demangle
      logical, intent(in), optional :: directives
      logical, intent(in), optional :: execute
      logical, intent(in), optional :: intel
      logical, intent(in), optional :: labels
      logical, intent(in), optional :: libraryCode
      logical, intent(in), optional :: trim
      logical, intent(in), optional :: debugCalls

      if (present(binary)) call this%filters%set_binary(binary)
      if (present(binaryObject)) call this%filters%set_binaryObject(binaryObject)
      if (present(commentOnly)) call this%filters%set_commentOnly(commentOnly)
      if (present(demangle)) call this%filters%set_demangle(demangle)
      if (present(directives)) call this%filters%set_directives(directives)
      if (present(execute)) call this%filters%set_execute(execute)
      if (present(intel)) call this%filters%set_intel(intel)
      if (present(labels)) call this%filters%set_labels(labels)
      if (present(libraryCode)) call this%filters%set_libraryCode(libraryCode)
      if (present(trim)) call this%filters%set_trim(trim)
      if (present(debugCalls)) call this%filters%set_debugCalls(debugCalls)
   end subroutine set_filters