SUBROUTINE SOMA PAR IMPAR

SUBROUTINE SOMA_PAR_IMPAR(IMPAR,PAR)
!lOCAIS DE MEMÓRIA
INTEGER IMPAR, PAR, I
!CÁLCULOS
IMPAR = 0
DO I = 1, 100, 2
    IMPAR = IMPAR + 1
    PAR = PAR + I + 1
END DO
END SUBROUTINE