5 February 2008 2:49:56.182 PM DIGITS FORTRAN90 version How many digits are appropriate for data? TEST01 REAL ( KIND = 4 ) arithmetic Store PI using 1 through 20 digits. Digits sin(PI(I)) 1+cos(PI(I)) (PI(I)-PI(20)) 1 0.141120 0.100075E-01 -0.141593 2 0.415808E-01 0.864863E-03 -0.415928E-01 3 0.159255E-02 0.125170E-05 -0.159264E-02 4 0.592621E-03 0.178814E-06 -0.592709E-03 5 0.926574E-04 0.00000 -0.927448E-04 6 0.253518E-05 0.00000 -0.262260E-05 7 0.627833E-06 0.00000 -0.715256E-06 8 0.150996E-06 0.00000 -0.238419E-06 9 -0.874228E-07 0.00000 0.00000 10 -0.874228E-07 0.00000 0.00000 11 -0.874228E-07 0.00000 0.00000 12 -0.874228E-07 0.00000 0.00000 13 -0.874228E-07 0.00000 0.00000 14 -0.874228E-07 0.00000 0.00000 15 -0.874228E-07 0.00000 0.00000 16 -0.874228E-07 0.00000 0.00000 17 -0.874228E-07 0.00000 0.00000 18 -0.874228E-07 0.00000 0.00000 19 -0.874228E-07 0.00000 0.00000 20 -0.874228E-07 0.00000 0.00000 TEST02 REAL ( KIND = 8 ) arithmetic Store PI using 1 through 20 digits. Digits sin(PI(I)) 1+cos(PI(I)) (PI(I)-PI(20)) 1 0.141120 0.100075E-01 -0.141593 2 0.415807E-01 0.864850E-03 -0.415927E-01 3 0.159265E-02 0.126827E-05 -0.159265E-02 4 0.592654E-03 0.175619E-06 -0.592654E-03 5 0.926536E-04 0.429234E-08 -0.926536E-04 6 0.265359E-05 0.352074E-11 -0.265359E-05 7 0.653590E-06 0.213607E-12 -0.653590E-06 8 0.535898E-07 0.144329E-14 -0.535898E-07 9 0.358979E-08 0.00000 -0.358979E-08 10 0.589793E-09 0.00000 -0.589793E-09 11 0.897932E-10 0.00000 -0.897931E-10 12 0.979318E-11 0.00000 -0.979306E-11 13 0.793266E-12 0.00000 -0.793143E-12 14 0.933812E-13 0.00000 -0.932587E-13 15 0.323109E-14 0.00000 -0.310862E-14 16 0.122465E-15 0.00000 0.00000 17 0.122465E-15 0.00000 0.00000 18 0.122465E-15 0.00000 0.00000 19 0.122465E-15 0.00000 0.00000 20 0.122465E-15 0.00000 0.00000 DIGITS: Normal end of execution. 5 February 2008 2:49:56.184 PM