rskey's Calculator forensics in Fortran

[Paul Berger (Canada)]

(03-08-2016 09:09 AM)HP67 Wrote:  I guess I should consolidate the results from the two other people who contributed. Guys, please let me know if it is ok and I'll copy your results into the first post also. And if you still have it, please post your source code. Thanks.

Here you go you may consolidate my result if you wish. I had to look around a bit for it and found it on a disk that is not longer in a system.

Edit: I just compiled with a later version of the MS compiler V3.2 using the software floating point and I get the same result.

Code:

      PROGRAM foren
C       IMPLICIT NONE

       REAL*8  DR, RD, PI

       PI = 3.14159265358979323846264
       DR = PI / 180.0
       RD = 180.0 / PI

       WRITE (*,*) RD * DASIN(RD * DACOS(RD * DATAN(DTAN(DR * DCOS(DR *
     CDSIN(DR * 9.0))))))
      END