!=============================================================================
SubRoutine PrintError (iStatus)
   
   integer iStatus
   character ErrText*30,ErrMessage*80         ! textes explicatifs
   
      if ( iStatus.le.0) return
          iStatus = 0
 1  call ftGErr (iStatus,ErrText)
      
    print*,'FITSIO ERROR istatus = ',istatus,':', errtext
 2   call ftgmsg (ErrMessage)
    DO WHILE ( ErrMessage /= ' ' )
       print *,ErrMessage
       call ftgmsg (ErrMessage)
    ENDDO
  
     !STOP

  end Subroutine PrintError