Use of complex numbers in impedance and admittance

c  complex numbers throggh an example of impedance Z and admittance Y
c angles are given in radians
      real L
      complex Z ,vsource, amp , Y
      data R, L, C , omega ,v0 ,thetav/100.,150e-3,1.e-6,2.E3, 110.,
     $3.1416/
      z =cmplx(R , omega*L-1./(omega*c) )
      Y=1./Z
      print*,'admittance=',real(y),   '    j',aimag(y)
      print*,'abs(y) , angleY=',abs(y) , atan(aimag(y)/real(y))
      print*,'   '
      vsource=cmplx(v0*cos(thetav),v0*sin(thetav))
      amp=Vsource/Z
      anglZ=atan(aimag(z)/real(z))
      print*,'real(z), aimag(z)=',real(z), aimag(z)
      print*,'   '
      print*,'abs(z),thetaz=',abs(z) , anglZ
      print*,'   '
      print *,'amp, anglamp =',abs(amp),atan(aimag(amp)/real(amp))
      stop
      end
      
       admittance=  0.00200000033    j  0.00400000019
 abs(y) , angleY=  0.0044721365  1.10714865

 real(z), aimag(z)=  100. -199.999985

 abs(z),thetaz=  223.606781 -1.10714865

 amp, anglamp =  0.491934985  1.10715592