Initial commit

2016-02-03 18:52:05 +00:00
commit d40505e161
507 changed files with 91383 additions and 0 deletions
@@ -0,0 +1,17 @@
+!determine if year is a leap year
+      integer function isitaleapyear(year)
+!isitaleapyear =0, not a leap year (365 days)
+!              =1, leap year (366 days)
+      implicit none
+      integer year
+      isitaleapyear=0
+      if((mod(year,4).eq.0).and.(mod(year,100).gt.0))
+     &isitaleapyear=1
+      if((mod(year,4).eq.0).and.(mod(year,100).eq.0))then
+        if(mod(year,400).eq.0)isitaleapyear=1
+      endif
+      return
+      end
+
+
+