parameters_gyro_write_task Subroutine

  1. parameters.F90
  2. w90_parameters
  3. parameters_gyro_write_task

private subroutine parameters_gyro_write_task(task, key, comment)

Uses

  • proc~~parameters_gyro_write_task~~UsesGraph proc~parameters_gyro_write_task parameters_gyro_write_task module~w90_io w90_io proc~parameters_gyro_write_task->module~w90_io module~w90_constants w90_constants module~w90_io->module~w90_constants

Arguments

Type IntentOptional AttributesName
character(len=*), intent(in) :: task
character(len=*), intent(in) :: key
character(len=*), intent(in) :: comment

Called by

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

Contents

Source Code

parameters_gyro_write_task

Source Code

  subroutine parameters_gyro_write_task(task, key, comment)
    use w90_io, only: 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', '|'
    endif
  end subroutine parameters_gyro_write_task