dodphd Subroutine

public impure subroutine dodphd(head, lunit)

Print report heading.

Arguments

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

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

The logical unit number to which the heading is written.

Called by

proc~~dodphd~~CalledByGraph proc~dodphd dodphd proc~dodpcr dodpcr proc~dodpcr->proc~dodphd proc~dodper dodper proc~dodper->proc~dodphd proc~odr odr proc~odr->proc~dodphd proc~dodcnt dodcnt proc~odr->proc~dodcnt proc~doddrv doddrv proc~doddrv->proc~dodper proc~dodmn dodmn proc~doddrv->proc~dodmn proc~dodmn->proc~dodpcr 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 proc~dodcnt->proc~doddrv

Source Code

   impure subroutine dodphd(head, lunit)
   !! Print report heading.
   ! Routines Called  (NONE)
   ! Date Written   860529   (YYMMDD)
   ! Revision Date  920619   (YYMMDD)

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

      ! Variable Definitions (alphabetically)
      !  HEAD:    The variable designating whether the heading is to be printed (HEAD=.TRUE.) 
      !           or not (HEAD=.FALSE.).
      !  LUNIT:    The logical unit number to which the heading is written.

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

      ! Format statements

   1000 format( &
         ' ********************************************************* '/ &
         ' * ODRPACK95 version 1.00 of 12-27-2005 (REAL (wp)) * '/ &
         ' ********************************************************* '/ &
         )

   end subroutine dodphd