83a84,85
> cNadia
>       yw=.true.
130,131c132
< c        if(yw)print*,'longat,longorb,orb',longat,longorb,trim(orb)
<          if(yw)print*,'kdeb,kfin',kdeb,kfin
---
>          if(yw)print*,'longat,longorb,orb',longat,longorb,trim(orb)
162a164,165
> cNadia
>          yw=.false.
214c217,218
<       yw=.false.
---
> cN    yw=.false.
>       yw=.true.
271c275,276
<       yw=.false.
---
> cN    yw=.false.
>       yw=.true.
331c336,337
<       yw=.false.
---
> cN    yw=.false.
>       yw=.true.
363c369,370
<       yw=.false.
---
> cN    yw=.false.
>       yw=.true.
