!     PERCENT.F90   - demonstrates a user-defined operator,
!			in this case a unary operator .c. 
!			that converts a floating point number
!			to a "percentage"
! Compile using 
!     df percent.f90
! From Developer's studio use default Project Settings
!

      INTERFACE OPERATOR (.c.)
        FUNCTION CENT (x)
         REAL, INTENT (IN) :: x
         REAL  cent
        END FUNCTION CENT
      END INTERFACE

!     Main Program
      REAL a

      a = 0.567
      write (*,900)  a, .C.a
 900  FORMAT (/' Convert ',f5.3,' to per cent:',f8.1,'%'/)
      END

      FUNCTION CENT (x)
      REAL, INTENT (IN) :: x
      REAL  cent
      cent = x * 100.
      END FUNCTION