forrtl: severe (71): integer divide by zero Image PC Routine Line Source ingridd 08087AFF Unknown Unknown Unknown Stack trace terminated abnormally.