Sky watchers will witness a total lunar eclipse in the early hours of Thursday 21st February, subject to weather conditions. For a total lunar eclipse to occur, the Moon in its orbit around the Earth must pass fully into the cone-shaped shadow of the Earth in space. ... The Moon does not usually go completely dark because the Earth's atmosphere refracts direct sunlight around the edge of the shadow on to the Moon's surface. This causes the Moon to turn a dark, blood-red or copper colour. ...

In addition to the four old program units: PROGRAM (that is the main program), SUBROUTINE, FUNCTION and BLOCK DATA , the new concept MODULE has been added, as well as some new things in the old units. ... POSITIVE NUMBERS ASSUMED TYPE(INTERVAL), INTENT(IN) :: A, B TYPE (INTERVAL) :: INTERVAL_MULTIPLICATION INTERVAL_MULTIPLICATION%LOWER = A%LOWER * B%LOWER INTERVAL_MULTIPLICATION%UPPER = A%UPPER * B%UPPER END FUNCTION INTERVAL_MULTIPLICATION FUNCTION INTERVAL_DIVISION(A, B) ! ...