Defining Leap years

[Katherin Kullgren]

Hello there,
I am wondering if anyone could assist me.  I am trying to write daily data
into one file from many year files.  I am trying to use a (if then)
statement to define the files that contain a leap year.  Something like this

year = 1950
endday = 365
leap = 366



while (pfile <= 50)
..
..
..
if (year/4 = real(year)/4.0) then
while (t <= endday)
..
..
..
endwhile
else
while (t <= leap)
..
..
..
endwhile
endif

pfile = pfile + 1
endwhile

but the format is not the same as fortran.  It does not understand
real(year).  Can anyone make a suggestion on how to define the leap year files?
Thanks for your help in advance.
Katherin