PROGRAM Converter
    IMPLICIT NONE
    REAL Celcius, Fahrenheit
    DO
        READ (*,*) Celcius
        IF (Celcius .LE. -273.0) EXIT
        Fahrenheit = 32.0+(9.0/5.0)*Celcius
        WRITE (*,*) Fahrenheit
    END DO
END PROGRAM Converter