double complex function wzdtoc()
end function

program main
end program

