one more fortran macro fixage