Adicionado ssrow na parte de fortran