double precision a complex c c=(2.2,3.3) a=cdabs(c) print *,a end