Документ взят из кэша поисковой машины. Адрес оригинального документа : http://xmm.vilspa.esa.es/sas/8.0.0/doc/ssclib/node152.html
Дата изменения: Wed Jul 2 03:52:42 2008
Дата индексирования: Fri Sep 5 19:38:23 2008
Кодировка:

XMM-Newton Science Analysis System


ssclib (ssclib-3.33.4) [xmmsas_20080701_1801-8.0.0]

Meta Index / Home Page / Some functions for testing/debugging

isNearlyEqual(): Comparing numbers with a given precision

This function returns .true. if the given pair of values agree with each other in the given precision (order), or .false. otherwise.

  LOGICAL(bool) FUNCTION isNearlyEqual(cmp, compared, precision)
    REAL,    intent(in) :: cmp, compared   ! or INTEGER
    INTEGER, intent(in) :: precision
  END FUNCTION isNearlyEqual

For the pair of the first two arguments, any combination of int8, int16, int32, single and double is allowed.