C Illustrates complex numbers

C Created:  Joe Zachary, November 15, 1992
C Modified:


      PROGRAM COMPLX

      IMPLICIT NONE
      REAL X
      COMPLEX  C

      PRINT *, 'Please enter a REAL number'
      READ *, X

      C = SQRT(CMPLX(X))
      
      PRINT *, C

      STOP
      END