program output_complex
      implicit none
      complex c 
      real a, b
      write(*,*)'Please input a complex number (**.** , **.**): '
      read(*,*) c
      write(*,*) 'The complex number is' , c
      write(*,*)
      write(*,*)" Its real part is ", real(c),';  imaginary part is'
     &,imag(c)
      write(*,*)" Its real part is ", real(c),';  imaginary part is'
     &,aimag(c)
      end