Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
-
Tricky Fortran if-statement
The function finishes like this: ROUND N = DSIGN (ROUND,NUMBER) It should be (meaning it is interpreted as): ROUNDN = DSIGN (ROUND,NUMBER) No 'N' of type 'ROUND', as it seems. Don't understand how things like this even compile... :-\ -
Tricky Fortran if-statement
Thank you again xwb! Yes that one is even worse, really hope something like it never comes up. Seems there is an old math functions library I have here, where we have this old stuff... -
Tricky Fortran if-statement
Hi xwb Thank you for splendid answer! And no, it doesn't fall through since it does RETURN before next label. I suspected this was REALLY old stuff... :-Thanks again! Perry -
Tricky Fortran if-statement
Hi I am trying to translate Fortran to C++, and I encountered a Fortran line I can't understand: DOUBLE PRECISION FUNCTION ROUNDN (NUMBER,DEC) DOUBLE PRECISION ARG,FACT,NUMBER,ROUND ARG = DABS (NUMBER) IF(DEC-1.) 1,2,2 1...
