Description: Gregorian Calendar to Julian Date.
The source code for the Fortran routine CAL2JD is available: