I'm currently writing some programs for the
next edition of our book and am converting
some fortran 66 style code to fortran 90 style.
The code has one line if statements, e.g.
if(modulo(yyyy, 400) /= 0 .and. modulo(yyyy, 100) == 0) t = 0
if(ddd > 59+t) dd = dd + 2 - t
if(mm >= 1 .and. mm <= 12) return
Jane and I tend to write this type of statement as an
If then
Endif
I was curious as to what other people did with
essentially one line if statements.
cheers
Ian Chivers
|