!    ===================================================================

      SubRoutine OFits (Lu,Nom,BP,Comment,Nc,Nl,Dx,Dy,Xd,Yd)
!    ===================================================================
!     Ouverture d'une image au format FITS avec iBP bits par pixel.
!    ===================================================================
      character Nom*40,     &           ! nom de l'image
              & Comment*80              ! definition des keywords
      character Label*40               ! commentaire associe aux erreurs

      integer*4 NAxes(2),iStatus,BlockSize,Naxis,Lu, &
                BP,Nc,Nl,ReadWrite,Nfound,pcount,     &
                gcount
      real*4 Dx,Dy,Xd,Yd
      Logical*1  Simple,Extend

!    -------------------------------------------------------------------
      Naxis=2
      BlockSize=1
      iStatus = 0
      ReadWrite = 0                       ! read only

!    ===================================================================

      call FTOpen(Lu,Nom,ReadWrite,BlockSize,iStatus)

      if (iStatus.gt.0)then

      call PrintError (iStatus)
       endif

      call FTGHPr (Lu,2,Simple,BP,NAxis,NAxes,pcount,gcount,Extend,iStatus)

      if (iStatus.gt.0)then

       call PrintError (iStatus)
       endif

      Nc   = NAxes(1)
      Nl    = NAxes(2)


      call FTGkyE (Lu,'CRVAL1',Xd,Label,iStatus)
      if (iStatus.gt.0)then
         Xd = 1.
       endif

      call ftGkyE (Lu,'CRVAL2',Yd,Label,iStatus)
      if (iStatus.gt.0)then
         Yd = 1.
       endif

       call FTGkyE (Lu,'CDELT1',Dx,Label,iStatus)
       if (iStatus.gt.0)then
       Dx = 1.
       endif

      call ftGkyE (Lu,'CDELT2',Dy,Label,iStatus)
      if (iStatus.gt.0)then
         Dy = 1.
       endif
      end SubRoutine OFits