ottbot

month = 5
year = 2009

century = (year - (year % 100))/100

century_offset = ((39 - century) % 4) * 2
 
is_leap = (year % 4 == 0 && year % 100 != 0) || year % 400 == 0
 
year_offset = ((year % 100) + (year % 100)/4) % 7 

ottbot

rob@cosmo kiva (master) $ gfortran -o kiva3v *.F
begin.F:51.18:

      call second(tstart)                                               
                 1
Error: 'time' argument of 'second' intrinsic at (1) must be of kind 4
exitk.F:32.19:

      call second (tfinish)                                             
                  1

ottbot

class Staff < Sequel::Model(:staff)
  
  require 'sequel/extensions/pagination'
  
  def box_times
    if box
      box.split(';#')
    else
      []
    end