C=======================================================================
       double precision function DATAN3( Y , X )
C=============================================[ documentation       ]===
C---------------------------------------------[ identification      ]---
C     auteur            : CMS
C     date de creation  : 20/12/94
C---------------------------------------------[ role                ]---
c      Renvoie l'Arctangente de Y/X
c      idem DATAN2   avec   DATAN2( 0.D0 ,0.D0 ) = 0.D0
C---------------------------------------------[ domaine de validite ]---
C     Aucune restriction
C---------------------------------------------[ modifications       ]---
C=============================================[ declarations        ]===
      implicit none
C---------------------------------------------[ parameters          ]---
C---------------------------------------------[ arguments           ]---
       double precision X,Y
C---------------------------------------------[ commons             ]---
C---------------------------------------------[ variables locales   ]---
C---------------------------------------------[ equivalences        ]---
C---------------------------------------------[ fonctions appelees  ]---
C---------------------------------------------[ data                ]---
C=============================================[ instructions        ]===
       if(DABS(Y).lt.1D-6 .and.DABS(X).lt.1D-6 ) then
         DATAN3 = 0.d0
       else
         DATAN3 = DATAN2( Y , X )
       endif
      return
C=============================================[ formats             ]===
      end