Dear All,
I have recently just brought this piece of code over to a Sun (Solaris)
platform where it no longer works. It works without incident on a PC
with Digitals v6.0 compiler but produces gibberish on a Sparc. I am
wondering whether this has anything to do with a recent upgrade of our
Sparcs to the latest Solaris platform. Does anyone have any ideas as to
why this prolem occurs or a work around to this ?
write(11,*)((TETRANS(H,J,K,L)),H=1,LYRSTOTAL)
write(11,*)(convdb(TETRANS(H,J,K,L)),H=1,LYRSTOTAL)
The implied do loop without the function produces the correct data in
the file, while with the function call convdb (which converts that data
to dB) the resutls are complete gibberish. I should also add that the
function operates correctly, the correct value is being passed to the
function and returned, checked by internal writes within the function
but the combination doesn't work.
Output from file :
Correct-> 0.999999075217264 0.999996336132736 0.9999854176859434
Rubbish-> 7.81244162159147E-3 7.812273983528039E-3 7.811588530113122E-3
Thanks in advance,
Andrew
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Andrew L. Reynolds Photonic Band Gap Research Group
Research Student Rankine Building
University of Glasgow Glasgow G12 8LT
http://www.elec.gla.ac.uk/~areynolds/Welcome.html
Telephone:
Office : 0141-330-6022
Fax : 0141-330-4907
Main SwitchBoard : 0141-339-8855
This e-mail and attachments if any are confidential. If you have
received this e-mail in error, please contact me immediately.
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|