d9.02.03 Description of routine CALCUL#