julia> contour(c[1,:],c[2,:],c[3,:]) *** IDENTICAL DATA POINTS. NDP =12629 IP1 = 1 IP2 = 346 XD=1.02114e-99 YD=0.478687 ERROR DETECTED IN ROUTINE IDTANG.
julia> c[:,1]3-element Array{Float64,1}: 1.02114e-99 0.478687 56193.8
julia> c[:,346]3-element Array{Float64,1}: 1.38697e-84 0.477974 56196.2
julia> contour(cf[3,:],cf[2,:],cf[1,:]) *** IDENTICAL DATA POINTS. NDP =12629 IP1 = 23 IP2 = 3286 XD=56192.9 YD=0.55634
ERROR DETECTED IN ROUTINE IDTANG.
julia> cf[:,[23,3286]]3x2 Array{Float32,2}: 0.0 6.64646e-20 0.55634 0.555965 56192.9 56192.9