module modfgat 68
  implicit none
  save 
  ! AUTHOR: Simon Pellerin *ARMA/SMC Nov. 2001
  integer :: numthreads        ! number of OpenMP threads Used.  
  integer :: nstepobs                          ! number of stepobs
  integer :: istepobs                          ! number of stepobs
  integer, pointer, dimension(:) :: nstamplist ! (nstepobs) list of stamps corresponding at stepobs bin
  integer, pointer, dimension(:) :: nobsgid    ! (nstepobs) grid id for ezscint corresponding to stepobs bin
  integer, pointer, dimension(:) :: nobs       ! (nstepobs) number of observation in stepobs bin
  integer, pointer, dimension(:,:) :: notag    ! (nobtot,nstepobs) obs tag associated to observations of each bin
  integer, pointer, dimension(:,:) :: nstart,nend
  integer, pointer, dimension(:,:) :: nobtag_to
  integer, pointer, dimension(:) :: nobs_to

  integer, pointer,dimension(:) :: nobs_start,nobs_end  
   integer, pointer, dimension(:,:) :: nobtag_go
   integer, pointer, dimension(:) :: nobs_go

     integer, pointer, dimension(:,:) :: nobtag_ro
    integer, pointer, dimension(:) :: nobs_ro

    integer, pointer, dimension(:,:) :: nobtag_gp
   integer, pointer, dimension(:) :: nobs_gp    

   real*8 ,pointer,dimension(:) :: robdata8_loc !  

  character(len=512) :: TL_prof_file 
  integer, pointer, dimension(:) :: astepobs 
  integer  :: icount 
  integer :: istepobs_first,istepobs_last,istepobs_partial
  
  integer  :: id_nonzero  
end module modfgat