Avoid high level of Nesting in Functions (FORTRAN) | CAST Appmarq