test_020 Subroutine

subroutine test_020(id, nfail)

Uses

  • proc~~test_020~~UsesGraph proc~test_020 test_020 module~forcolormap_parameters forcolormap_parameters proc~test_020->module~forcolormap_parameters module~forcolormap_utils forcolormap_utils proc~test_020->module~forcolormap_utils iso_fortran_env iso_fortran_env module~forcolormap_parameters->iso_fortran_env module~forcolormap_utils->module~forcolormap_parameters

Integer scaling should respect a nontrivial target range [10,20].

Arguments

Type IntentOptional Attributes Name
integer, intent(inout) :: id
integer, intent(inout) :: nfail

Calls

proc~~test_020~~CallsGraph proc~test_020 test_020 proc~report_test report_test proc~test_020->proc~report_test

Called by

proc~~test_020~~CalledByGraph proc~test_020 test_020 program~check check program~check->proc~test_020

Source Code

   subroutine test_020(id, nfail)
      use forcolormap_parameters, only: wp
      use forcolormap_utils,      only: scale
      integer, intent(inout) :: id, nfail
      character(len=*), parameter :: name = "scale(real,int): nontrivial integer range [10,20]"
      logical :: ok
      real(wp) :: x(3)
      integer  :: y(3)

      x = [ -1.0_wp, 0.0_wp, 1.0_wp ]
      y = scale(x, 10, 20)

      ok = (y(1) == 10) .and. (y(3) == 20) .and. (y(2) >= 10) .and. (y(2) <= 20)
      call report_test(name, ok, id, nfail)
   end subroutine test_020