Original code available from NEA DATA BANK
Author: Olivier Bersillon, CEA, France

This version has been modified as stated in the source code by
Anisoara CONSTANTINESCU, Bucarest University, Romania.