Calculating Number of Calendar Days in a Year

Hi,

      I am trying to calculate the Number of Calendar Days in a Year (1 through 365/366) in every step, along with other calculations and output with the other calculated output. I tried to do this as in the attached program, but was not successful. I would appreciate any help or pointers in this regard. I was wondering if there is a Fortran  intrinsic function for the calendar day output.

Thank you.