PPT Slide
integer :: Month, Year, NDays
write (unit = *, fmt = *) " Please enter the year (4 digits). "
read (unit = *, fmt = *) Year
write (unit = *, fmt = *) " Please enter the month number (1 to 12). "
read (unit = *, fmt = *) Month
case (9, 4, 6, 11) ! Sep, Apr, Jun, Nov
if (modulo( Year, 4 ) == 0) then
case default ! Jan, Mar, May, Jul, Aug, Oct, Dec
write (unit = *, fmt = *) " The number of days in month: ", Month, " is: ", NDays