CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC PROGRAM OBFUSCATE CONSTANT = 5. INVERSE = 1./CONSTANT photo1 = 5.*INVERSE + 5. pH = CONSTANT + 3. X = photo1 * pH C strange combination of pH and photolysis... GOTO 1 X = X + 17. 1 CONTINUE IF (X .LT. 60.) THEN X = X + 7. PRINT *,'RESULT=',X STOP END CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
Hopefully the formatting comes out OK; consult the original if in doubt. The question, of course, is what does the code print, and more importantly exactly why? I'm off to the Lakes for a few days to get rained on, so unless you can work out the answer for yourselves, you'll have to wait till I come back.
Obviously, C would never do anything so odd.