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