print_header Subroutine

public impure subroutine print_header(head, lunit)

Print report heading.

Arguments

Type IntentOptional Attributes Name
logical, intent(inout) :: head

Variable designating whether the heading is to be printed (.true.) or not (.false.).
integer, intent(in) :: lunit

Logical unit number to which the heading is written.

Called by

proc~~print_header~~CalledByGraph proc~print_header print_header proc~odr odr proc~odr->proc~print_header proc~print_errors print_errors proc~odr->proc~print_errors proc~print_reports print_reports proc~odr->proc~print_reports proc~print_errors->proc~print_header proc~print_reports->proc~print_header proc~odr_long_c odr_long_c proc~odr_long_c->proc~odr proc~odr_medium_c odr_medium_c proc~odr_medium_c->proc~odr proc~odr_short_c odr_short_c proc~odr_short_c->proc~odr program~example1 example1 program~example1->proc~odr program~example2 example2 program~example2->proc~odr program~example3 example3 program~example3->proc~odr program~example4 example4 program~example4->proc~odr program~example5 example5 program~example5->proc~odr

Source Code

   impure subroutine print_header(head, lunit)
   !! Print report heading.

      logical, intent(inout) :: head
         !! Variable designating whether the heading is to be printed (`.true.`) or not (`.false.`).
      integer, intent(in) :: lunit
         !! Logical unit number to which the heading is written.

      if (head) then
         write (lunit, 1000)
         head = .false.
      end if

      ! Format statements

1000  format( &
         ' ****************************************************************************** '/ &
         ' *                                ODRPACK REPORT                              * '/ &
         ' ****************************************************************************** '/ &
         )

   end subroutine print_header