Added a program to calculate the extinction