language: Fortran (gfortran-4.3.4)
date: 143 days 0 hours ago
link:
visibility: public
1
2
3
4
5
6
7
8
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