PSS ID Number: 149506
Article Last Modified on 11/3/1999
C Compile options needed: none
COMPLEX A, B
C = 3.1415926535897932384626434
D = 3.0/2.0
B = CMPLX(COS(1.5), SIN(D)) ** 3
WRITE(*,*) B
A = B - CMPLX(COS(4.5), -SIN(4.5 + C))
WRITE(*,*) A
END
(-2.107958E-01,-9.775301E-01)
(9.473733E-09,0.000000E+00)
(-3.537882E-05,6.484614E-05)
(2.107604E-01,9.775950E-01)
Additional query words: 4.00
Keywords: kbLangFortran KB149506
Technology: kbAudDeveloper kbFORTRANPower400NT kbFortranSearch kbZNotKeyword8