Bernese GPS Software Version 5.0 - Bernese GNSS Software

21. Program Structure
! -------------------------------------------------------------------------
! 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.: 29-Dec-2003
!
! 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=100
INTEGER(i4b),PARAMETER :: maxsac=5
INTEGER(i4b),PARAMETER :: maxint=1700
#ifdef DIM SMALL
INTEGER(i4b),PARAMETER :: maxamb=300
INTEGER(i4b),PARAMETER :: maxfls=20
INTEGER(i4b),PARAMETER :: maxgim=15
INTEGER(i4b),PARAMETER :: maxpot=30
INTEGER(i4b),PARAMETER :: maxsas=15
INTEGER(i4b),PARAMETER :: maxsat=48
INTEGER(i4b),PARAMETER :: maxsta=100
INTEGER(i4b),PARAMETER :: maxstc=30
#endif
#ifdef DIM MEDIUM
INTEGER(i4b),PARAMETER :: maxamb=600
INTEGER(i4b),PARAMETER :: maxfls=28
INTEGER(i4b),PARAMETER :: maxgim=30
INTEGER(i4b),PARAMETER :: maxpot=30
INTEGER(i4b),PARAMETER :: maxsas=15
INTEGER(i4b),PARAMETER :: maxsat=48
INTEGER(i4b),PARAMETER :: maxsta=200
INTEGER(i4b),PARAMETER :: maxstc=30
#endif
#ifdef DIM LARGE
INTEGER(i4b),PARAMETER :: maxamb=500
INTEGER(i4b),PARAMETER :: maxfls=90
INTEGER(i4b),PARAMETER :: maxgim=200
INTEGER(i4b),PARAMETER :: maxpot=140
INTEGER(i4b),PARAMETER :: maxsas=40
INTEGER(i4b),PARAMETER :: maxsat=48
INTEGER(i4b),PARAMETER :: maxsta=350
INTEGER(i4b),PARAMETER :: maxstc=60
#endif
END MODULE m maxdim
Figure 21.2: Module file ${I}/M MAXDIM.f90.
Page 474 AIUB