test_dnum0 Subroutine

subroutine test_dnum0()

Arguments

None

Variables

Type Visibility Attributes Name Initial
doubleprecision, public :: y
doubleprecision, public :: z

Source Code

subroutine test_dnum0()
doubleprecision :: y, z
   Y=DNUM0('CI = 10 * sin(3.1416/4)')
   Z=DNUM0('CI')
   call unit_test_start('dnum0',msg='')
   call unit_test('dnum0', y.eq.z.and.almost(y,10*sin(3.1416d0/4d0),15),&
           & 'checking CI',dnum0('CI')+bug,dnum0('10*sin(3.1416/4)')+bug,10*sin(3.1416d0/4.0d0))


   call unit_test_end('dnum0',msg='')
end subroutine test_dnum0