PSS ID Number: 112011
Article Last Modified on 3/24/2000
c Compile options needed: -G3 -Ox
c
subroutine s[c](rr,r4,r8,rt,rs)
real*8 r8
write(*,*) rr, r4, r8, rt,rs
end
real*8 r8 /0.d0/
r4 = 0.
rr = 0.
rs = 0.
rt = 0.
call s(rr, r4, r8, rt, rs)
call s(rr, r4+1.0, r8-1.0, rt, rs)
end
Additional query words: 1.00 Dr. Watson
Keywords: kbbug kbCompiler KB112011
Technology: kbAudDeveloper kbFORTRANPower32100NT kbFortranSearch kbZNotKeyword2