16 August 2022   7:59:12.419 AM
 
asa121_test():
  FORTRAN90 version
  Test asa121().
 
test01():
  Compare tabulated values of the trigamma
  function against values computed
  computed by trigamma().
 
        X          FX                        FX                     DIFF
                  (Tabulated)               (TRIGAMMA)
 
      1.0000     1.644934066848226         1.644934065473284      0.1375E-08
      1.1000     1.433299150792759         1.433299149682242      0.1111E-08
      1.2000     1.267377205423779         1.267377204523234      0.9005E-09
      1.3000     1.134253434996619         1.134253434263521      0.7331E-09
      1.4000     1.025356590529597         1.025356589930587      0.5990E-09
      1.5000    0.9348022005446793        0.9348022000534715      0.4912E-09
      1.6000    0.8584318931245799        0.8584318927203769      0.4042E-09
      1.7000    0.7932328301639984        0.7932328298302757      0.3337E-09
      1.8000    0.7369741375017002        0.7369741372252769      0.2764E-09
      1.9000    0.6879720582426356        0.6879720580129576      0.2297E-09
      2.0000    0.6449340668482264        0.6449340654732836      0.1375E-08
 
asa121_test():
  Normal end of execution.
 
16 August 2022   7:59:12.419 AM