rmkx = ram – rap
if sign(rmkx) = -1
rmkx = rmkx +360
endif
**** First Kendra ******
fken = rmkx + 180
fken = fken % 360
if fken < 90
rbh = fken
endif
if fken > 90 .and. fken < 180
rbh = 180- fken
endif
if fken > 180 .and. fken < 270
rbh = fken -180
endif
if fken > 270 .and. fken < 360
rbh = 360 -fken
endif
fsec = sin(dtor(rbh))*658rmkx = ram – rap
if sign(rmkx) = -1
rmkx = rmkx +360
endif
**** First Kendra ******
fken = rmkx + 180
fken = fken % 360
if fken < 90
rbh = fken
endif
if fken > 90 .and. fken < 180
rbh = 180- fken
endif
if fken > 180 .and. fken < 270
rbh = fken -180
endif
if fken > 270 .and. fken < 360
rbh = 360 -fken
endif
fsec = sin(dtor(rbh))*658