program MMA implicit none integer(16)::A, B read*, A read*, B if(mod(A, 2_16) == 1_16 .and. mod(B, 2_16) == 1_16) then print'(a)', "Odd" else print'(a)', "Even" end if end program MMA