SUBROUTINE SUBSUM(IN1,IN2,OUT)
        REAL IN1,IN2,OUT
C
        OUT=IN1+IN2
        RETURN
        END