Due to the lapse in federal government funding, NASA is not updating this website. We sincerely regret this inconvenience.
A sphere with three ocean waves in differing shades of blue. Next to the sphere, there is the bolded text "Ocean Color". Under that, there are two acronyms, separated by a vertical pipe: OB.DAAC (Ocean Biology Distributed Active Archive Center) and OBPG (Ocean Biology Processing Group).
Lorem
ipsum
dolor
sit
amet
Toggle navigation
Ocean Color Science Software
Jump to content
ocssw
V2022
web
ocssw
ocssw_src
src
libswfnav
leapchk.f
Go to the documentation of this file.
1
c ====================================================================
2
c
3
c leapchk - determines if the input year is a leap year
4
c
5
c Synopsis:
6
c
7
c result = leapchk( year )
8
c
9
c Parameter Scope Type Range
10
c year input integer*4 (+/- 2**31)
11
c result output logical*1 (.true. or .false.)
12
c
13
c Description:
14
c
15
c Function returns true if "year" is a leap year, otherwise it
16
c returns false. The year is expressed as a four-digit number
17
c (e.g., 1992 or 2006).
18
c
19
c Programmer:
20
c
21
c Bryan A. Franz, General Sciences Corp., 1/16/96
22
c
23
c Modifications:
24
c
25
c
26
c ====================================================================
27
28
logical*1
function
leapchk
(year)
29
c
30
implicit none
31
32
integer*4
year
33
c
34
if
(mod(year,4) .eq. 0)
then
35
leapchk
= .true.
36
else
37
leapchk
= .false.
38
endif
39
c
40
return
41
end
42
leapchk
logical *1 function leapchk(year)
Definition:
leapchk.f:29
