Skip to content

Commit 795b8ab

Browse files
CGS-GISCGS-GIS
authored
Add files via upload
1 parent 8b300b9 commit 795b8ab

18 files changed

+44129
-2
lines changed

‎GPT2.F

+501
Large diffs are not rendered by default.

‎IGRF12.F

+1,125
Large diffs are not rendered by default.

‎Licence.txt

+87
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,87 @@
1+
2+
* License_en.txt
3+
4+
GPSPACE software - Terms and Conditions of Use
5+
6+
Unless otherwise noted, computer program source code of the GPSPACE
7+
software is covered under Crown Copyright, Government of Canada, and is
8+
distributed under the MIT License.
9+
10+
The Canada wordmark and related graphics associated with this distribution
11+
are protected under trademark law and copyright law. No permission is
12+
granted to use them outside the parameters of the Government of Canada's
13+
corporate identity program. For more information, see
14+
http://www.tbs-sct.gc.ca/fip-pcim/index-eng.asp
15+
16+
Copyright title to all 3rd party software distributed with the GPSPACE is
17+
held by the respective copyright holders as noted in those files. Users
18+
are asked to read the 3rd Party Licenses referenced with those assets.
19+
20+
MIT License
21+
22+
Copyright (c) 2018 Government of Canada
23+
24+
Permission is hereby granted, free of charge, to any person obtaining a
25+
copy of this software and associated documentation files (the "Software"),
26+
to deal in the Software without restriction, including without limitation
27+
the rights to use, copy, modify, merge, publish, distribute, sublicense,
28+
and/or sell copies of the Software, and to permit persons to whom the
29+
Software is furnished to do so, subject to the following conditions:
30+
31+
The above copyright notice and this permission notice shall be included in
32+
all copies or substantial portions of the Software.
33+
34+
THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
35+
IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
36+
FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
37+
IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
38+
CLAIM, DAMAGES OR OTHER LIABILITY,WHETHER IN AN ACTION OF CONTRACT, TORT
39+
OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR
40+
THE USE OR OTHER DEALINGS IN THE SOFTWARE.
41+
42+
* Licence_fr.txt
43+
44+
Logiciel GPSPACE - Conditions r�gissant l'utilisation
45+
46+
Sauf indication contraire, le code source du logiciel GPSPACE est prot�g�
47+
par le droit d'auteur de la Couronne du gouvernement du Canada et
48+
distribu� sous la licence MIT.
49+
50+
Le mot-symbole "Canada" et les �l�ments graphiques connexes li�s � cette
51+
distribution sont prot�g�s en vertu des lois portant sur les marques de
52+
commerce et le droit d'auteur.
53+
54+
Aucune autorisation n'est accord�e pour leur utilisation � l'ext�rieur des
55+
param�tres du programme de coordination de l'image de marque du
56+
gouvernement du Canada. Pour obtenir davantage de renseignements � ce
57+
sujet, veuillez consulter
58+
http://www.tbs-sct.gc.ca/fip-pcim/index-fra.asp
59+
60+
La propri�t� du droit d'auteur de tout logiciel tiers distribu� avec le
61+
Logiciel GPSPACE est conserv�e par les d�tenteurs du droit d'auteur
62+
mentionn�s dans ces fichiers. Nous demandons aux utilisateurs de lire les
63+
licences des tiers indiqu�s � titre de r�f�rence dans ces logiciels.
64+
65+
Licence MIT
66+
67+
Droit d'auteur (c) Gouvernement du Canada, 2018
68+
69+
La pr�sente autorise toute personne d'obtenir gratuitement une copie du
70+
pr�sent logiciel et des documents connexes (le "logiciel"), de traiter
71+
le logiciel sans restriction, y compris, mais sans s'y limiter, les droits
72+
d'utiliser, de copier, de modifier, de fusionner, de publier, de
73+
distribuer, d'accorder une sous licence et de vendre des copies dudit
74+
logiciel, et de permettre aux personnes auxquelles le logiciel est fourni
75+
de le faire, selon les conditions suivantes :
76+
77+
L'avis de droit d'auteur ci-dessus et le pr�sent avis de permission seront
78+
inclus dans toutes les copies et les sections importantes du logiciel.
79+
80+
LE LOGICIEL EST FOURNI "TEL QUEL", SANS AUCUNE GARANTIE, EXPRESSE OU
81+
IMPLICITE, Y COMPRIS, MAIS SANS S'Y LIMITER, LA GARANTIE DE QUALIT�
82+
MARCHANDE, L'ADAPTATION � UN USAGE PARTICULIER ET L'ABSENCE DE
83+
CONTREFA�ON. EN AUCUN CAS LES AUTEURS OU LES D�TENTEURS DU DROIT D'AUTEUR
84+
NE SERONT TENUS RESPONSABLES DE TOUTE DEMANDE, DOMMAGE OU BRIS DE CONTRAT,
85+
D�LIT CIVIL OU TOUT AUTRE MANQUEMENT LI� AU LOGICIEL, � SON UTILISATION OU
86+
� D'AUTRES �CHANGES LI�S AU LOGICIEL.
87+

‎MAXDIM

+106
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,106 @@
1+
C2345678901234567890123456789012345678901234567890123456789012345678901234567890
2+
C
3+
C*************************************************************** MAXDIM
4+
C
5+
C PURPOSE: ALL ARRAY DIMENSIONS AND SOME HARDCODED PARAMETERS
6+
C
7+
C Copyright (c) 2018 Government of Canada. Under MIT Licence terms
8+
C Droit d'auteur (c) Gouvernement du Canada, 2018. Sous termes de Licence MIT
9+
C
10+
C MAXARC - MAXIMUM NUMBER OF SATELLITE ARCS
11+
C MAXBUF - MAXIMUM NUMBER OF BUFFERED SATELLITE CLOCKS
12+
C MAXCOR - MAXIMUM NUMBER OF COORDINATES
13+
C MAXDEG - MAXIMUM DEGREE OF POLYNOMIAL
14+
C MAXEPH - MAXIMUM NUMBER OF EPHEMERIS PER SATELLITE
15+
C MAXFLT - MAXIMUM NUMBER OF SUMS IN OBSERVATION FILTER
16+
C MAXKEP - MAXIMUM NUMBER OF EPHEMERIS PARAMETERS
17+
C MAXPAR - MAXIMUM NUMBER OF PARAMETERS
18+
C MAXOBS - MAXIMUM NUMBER OF SATELLITES OBSERVED
19+
C MAXOBS2 - MAXIMUM NUMBER OF OBSERVATIONS
20+
C MAXPAR - MAXIMUM NUMBER OF STATION PARAMETERS
21+
C MAXSAT - MAXIMUM NUMBER OF SATELLITES
22+
C MAXDAYS- MAXIMUM NUMBER OF CONSECUTIVE DAYS OF PRECISE PRODUCTS
23+
INTEGER NREDUND
24+
C
25+
INTEGER MAXADT
26+
INTEGER MAXAMB
27+
INTEGER MAXARC
28+
INTEGER MAXBUF
29+
INTEGER MAXCLK
30+
INTEGER MAXCMD
31+
INTEGER MAXCOR
32+
INTEGER MAXDEG
33+
INTEGER MAXEPH
34+
INTEGER MAXFLT
35+
INTEGER MAXKEP
36+
INTEGER MAXLAT
37+
INTEGER MAXLIN
38+
INTEGER MAXLON
39+
INTEGER MAXOBS
40+
INTEGER MAXOBS2
41+
INTEGER MAXOPT
42+
INTEGER MAXORD
43+
INTEGER MAXPAR
44+
INTEGER MAXPAR2
45+
INTEGER MAXPFIT
46+
INTEGER MAXREC
47+
INTEGER MAXREJ
48+
INTEGER MAXSAT
49+
INTEGER MAXRES
50+
INTEGER MAXDAYS
51+
INTEGER MAXOTLC
52+
INTEGER MAXSHDEG
53+
INTEGER MAXSHCOEF
54+
INTEGER MAXHOION
55+
INTEGER MAXBLK
56+
INTEGER MAXLBK
57+
C
58+
PARAMETER (NREDUND=1)
59+
PARAMETER (MAXRES=400)
60+
PARAMETER (MAXADT=764)
61+
PARAMETER (MAXAMB=10)
62+
PARAMETER (MAXBUF=10)
63+
PARAMETER (MAXCLK=10)
64+
PARAMETER (MAXCMD=21)
65+
PARAMETER (MAXCOR=3)
66+
PARAMETER (MAXDEG=20)
67+
PARAMETER (MAXEPH=70)
68+
PARAMETER (MAXFLT=24)
69+
PARAMETER (MAXKEP=30)
70+
PARAMETER (MAXLAT=180)
71+
PARAMETER (MAXLIN=20)
72+
PARAMETER (MAXLON=360)
73+
PARAMETER (MAXOBS=36)
74+
PARAMETER (MAXOBS2=72)
75+
PARAMETER (MAXOPT=21)
76+
PARAMETER (MAXORD=21)
77+
PARAMETER (MAXREC=584)
78+
PARAMETER (MAXPAR=10)
79+
PARAMETER (MAXPAR2=46)
80+
PARAMETER (MAXPFIT=150)
81+
PARAMETER (MAXREJ=10)
82+
PARAMETER (MAXSAT=136)
83+
PARAMETER (MAXDAYS=45)
84+
PARAMETER (MAXOTLC=12)
85+
PARAMETER (MAXSHDEG=16)
86+
PARAMETER (MAXSHCOEF=153)
87+
C MAXARC should be multiple of MAXDAYS (at least 4*)
88+
PARAMETER (MAXARC=180)
89+
PARAMETER (MAXHOION=19)
90+
PARAMETER (MAXBLK=32)
91+
C
92+
C USED IN GIMP
93+
C
94+
INTEGER MAXCHN
95+
INTEGER MAXNLR
96+
INTEGER MAXNLP
97+
INTEGER MAXIOB
98+
INTEGER MAXTYP
99+
C
100+
PARAMETER (MAXCHN=36)
101+
PARAMETER (MAXNLR=5)
102+
PARAMETER (MAXNLP=8)
103+
PARAMETER (MAXIOB=5)
104+
PARAMETER (MAXTYP=5)
105+
C
106+
C

0 commit comments

Comments
 (0)