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