fnncrd(xncrd,cncrd,dncrd) = (xncrd+cncrd)/dncrd +1.0d0