PROGRAM invert
    IMPLICIT NONE
    REAL :: valUE, Inverse
    PRINT *, "TYPE in a value to invert"
    READ *, Value
    Inverse = 1.0/Value
    PRINT *, "Value", Value, "  Inverse", Inverse
END PROGRAM INVERT