Surface:

• genere_kg.f - when kgbar = 0, division by zero occured, fixed by putting the condition not to call genere_kg when kgbar=0
• rass.f - in certain cases when variable phrass ~ 0 (very small number) the result of division was infinity, fixed by re-aranging formula by moving division to the end.
• gira.f - using a square of variable umgira produces infinity values in case of big value of umgira -> fixed by putting division first then multiplication.