O inday, inmonth,
logical inmonth
else if ( ( inmonth ) .and.
O inmonth,
inmonth = .true.
inmonth = .false.