PSS ID Number: 149517
Article Last Modified on 11/2/1999
C Compile options needed: /Ox /4Ya REAL*8 a(3), x, y a(1) = -1.D0 a(2) = -2.D0 a(3) = -3.D0 x = 0.D0 y = 0.23D0 a(3) = 1.D0/SQRT(1.D0+x*x+y*y) a(1) = x*a(3) a(2) = y*a(3) PRINT *,'a(1) = ',a(1) PRINT *,'a(2) = ',a(2) PRINT *,'a(3) = ',a(3) END
a(1) = 0.000000000000000E+000
a(2) = 2.241476929214269E-001
a(3) = 9.745551866148997E-001
a(1) = 0.000000000000000E+000
a(2) = 2.241476929214269E-001
a(3) = 2.241476929214269E-001
Additional query words: 4.00
Keywords: kbCodeGen KB149517
Technology: kbAudDeveloper kbFORTRANPower400NT kbFortranSearch kbZNotKeyword8