Arrumada versao fortran