! -------------------------------------------------------------------------
! Bernese GPS Software Version 5.0
! -------------------------------------------------------------------------

MODULE m_maxdim

! -------------------------------------------------------------------------
! Purpose:    This module defines several maximum dimension parameters
!
! Author:     L. Mervart
!
! Created:    12-Feb-2003
! Last mod.:  03-May-2007
!
! Changes:    07-Mar-2003 HU: MAXINT added, MAXPOT changed from 120 to 140
!             08-Mar-2003 DS: maxamb=600->500 maxsat=48->42 in LARGE
!             17-Apr-2003 MR: maxint=510 --> maxint=1700 (LAGEOS)
!             22-May-2003 RD: maxsat=42->48 in LARGE
!             27-Jun-2003 SS: maxrec from 200 to 300
!             03-Nov-2003 HB: MAXSAS=10 ->15 in SMALL
!             29-Dec-2003 HU: MAXSAA 100 to 200
!             03-May-2007 RD: maxsat=48->56
!
! Copyright:  Astronomical Institute
!             University of Berne
!             Switzerland
! -------------------------------------------------------------------------

! MAXAMB: Maximum number of ambiguities
! MAXFLS: Maximum number of files in a session
! MAXGIM: Maximum number of global/local ionosphere models
! MAXGIT: Maximum number of terms per global/local ionosphere models
! MAXPOT: Maximum number of geo-potential terms
! MAXREC: Maximum number of receivers that are processed
! MAXSAA: Maximum number of satellites in satellite information file
! MAXSAC: Maximum number of satellite clock parameters (polynomial degree + 1)
! MAXSAS: Maximum number of satellites at one epoch
! MAXSAT: Maximum number of satellites that are processed
! MAXSTA: Maximum number of stations allowed in coordinate file and neqs
! MAXINT: Maximum number of integration intervals

  USE m_bern
  IMPLICIT NONE

  INTEGER(i4b),PARAMETER  :: maxpid=400
  INTEGER(i4b),PARAMETER  :: maxwat=10
  INTEGER(i4b),PARAMETER  :: maxcpu=100
  INTEGER(i4b),PARAMETER  :: maxdsc=40
  INTEGER(i4b),PARAMETER  :: maxvar=100
  INTEGER(i4b),PARAMETER  :: maxbad=200
  INTEGER(i4b),PARAMETER  :: maxgit=300
  INTEGER(i4b),PARAMETER  :: maxocn=11
  INTEGER(i4b),PARAMETER  :: maxrec=300
  INTEGER(i4b),PARAMETER  :: maxsaa=200
  INTEGER(i4b),PARAMETER  :: maxsac=5
  INTEGER(i4b),PARAMETER  :: maxint=1700
  INTEGER(i4b),PARAMETER  :: maxsat=56

#ifdef DIM_SMALL
  INTEGER(i4b),PARAMETER  :: maxamb=1000
  INTEGER(i4b),PARAMETER  :: maxfls=20
  INTEGER(i4b),PARAMETER  :: maxgim=15
  INTEGER(i4b),PARAMETER  :: maxpot=30
  INTEGER(i4b),PARAMETER  :: maxsas=15
  INTEGER(i4b),PARAMETER  :: maxsta=100
  INTEGER(i4b),PARAMETER  :: maxstc=30
#endif

#ifdef DIM_MEDIUM
  INTEGER(i4b),PARAMETER  :: maxamb=1000
  INTEGER(i4b),PARAMETER  :: maxfls=28
  INTEGER(i4b),PARAMETER  :: maxgim=30
  INTEGER(i4b),PARAMETER  :: maxpot=30
  INTEGER(i4b),PARAMETER  :: maxsas=15
  INTEGER(i4b),PARAMETER  :: maxsta=200
  INTEGER(i4b),PARAMETER  :: maxstc=30
#endif

#ifdef DIM_LARGE
  INTEGER(i4b),PARAMETER  :: maxamb=1000
  INTEGER(i4b),PARAMETER  :: maxfls=90
  INTEGER(i4b),PARAMETER  :: maxgim=200
  INTEGER(i4b),PARAMETER  :: maxpot=140
  INTEGER(i4b),PARAMETER  :: maxsas=40
  INTEGER(i4b),PARAMETER  :: maxsta=350
  INTEGER(i4b),PARAMETER  :: maxstc=60
#endif

! INTEGER(i4b),PARAMETER  :: maxfls=200

END MODULE m_maxdim