parameters_gyro_write_task Subroutine

private subroutine parameters_gyro_write_task(task, key, comment, stdout)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: task
character(len=*), intent(in) :: key
character(len=*), intent(in) :: comment
integer, intent(in) :: stdout

Called by

proc~~parameters_gyro_write_task~~CalledByGraph proc~parameters_gyro_write_task parameters_gyro_write_task proc~w90_postw90_readwrite_write w90_postw90_readwrite_write proc~w90_postw90_readwrite_write->proc~parameters_gyro_write_task program~postw90 postw90 program~postw90->proc~w90_postw90_readwrite_write

Source Code

  subroutine parameters_gyro_write_task(task, key, comment, stdout)
    !================================================!
    integer, intent(in) :: stdout
    character(len=*), intent(in) :: task, key, comment
    character(len=42) :: comment1

    comment1 = comment
    if ((index(task, key) > 0) .or. (index(task, 'all') > 0)) then
      write (stdout, '(1x,a2,a42,a2,10x,a8,13x,a1)') '| ', comment1, ' :', '       T', '|'
    else
      write (stdout, '(1x,a2,a42,a2,10x,a8,13x,a1)') '| ', comment1, ' :', '       F', '|'
    end if
  end subroutine parameters_gyro_write_task