diff options
Diffstat (limited to 'src/PJ_mod_ster.c')
| -rw-r--r-- | src/PJ_mod_ster.c | 86 |
1 files changed, 43 insertions, 43 deletions
diff --git a/src/PJ_mod_ster.c b/src/PJ_mod_ster.c index 04fecb68..090b6a73 100644 --- a/src/PJ_mod_ster.c +++ b/src/PJ_mod_ster.c @@ -101,9 +101,9 @@ setup(PJ *P) { /* general initialization */ ENTRY0(mil_os) static COMPLEX /* Miller Oblated Stereographic */ AB[] = { - 0.924500, 0., - 0., 0., - 0.019430, 0. + {0.924500, 0.}, + {0., 0.}, + {0.019430, 0.} }; P->n = 2; @@ -115,9 +115,9 @@ ENDENTRY(setup(P)) ENTRY0(lee_os) static COMPLEX /* Lee Oblated Stereographic */ AB[] = { - 0.721316, 0., - 0., 0., - -0.0088162, -0.00617325 + {0.721316, 0.}, + {0., 0.}, + {-0.0088162, -0.00617325} }; P->n = 2; @@ -129,11 +129,11 @@ ENDENTRY(setup(P)) ENTRY0(gs48) static COMPLEX /* 48 United States */ AB[] = { - 0.98879, 0., - 0., 0., - -0.050909, 0., - 0., 0., - 0.075528, 0. + {0.98879, 0.}, + {0., 0.}, + {-0.050909, 0.}, + {0., 0.}, + {0.075528, 0.} }; P->n = 4; @@ -146,19 +146,19 @@ ENDENTRY(setup(P)) ENTRY0(alsk) static COMPLEX ABe[] = { /* Alaska ellipsoid */ - .9945303, 0., - .0052083, -.0027404, - .0072721, .0048181, - -.0151089, -.1932526, - .0642675, -.1381226, - .3582802, -.2884586}, + {.9945303, 0.}, + {.0052083, -.0027404}, + {.0072721, .0048181}, + {-.0151089, -.1932526}, + {.0642675, -.1381226}, + {.3582802, -.2884586}}, ABs[] = { /* Alaska sphere */ - .9972523, 0., - .0052513, -.0041175, - .0074606, .0048125, - -.0153783, -.1968253, - .0636871, -.1408027, - .3660976, -.2937382 + {.9972523, 0.}, + {.0052513, -.0041175}, + {.0074606, .0048125}, + {-.0153783, -.1968253}, + {.0636871, -.1408027}, + {.3660976, -.2937382} }; P->n = 5; @@ -176,28 +176,28 @@ ENDENTRY(setup(P)) ENTRY0(gs50) static COMPLEX ABe[] = { /* GS50 ellipsoid */ - .9827497, 0., - .0210669, .0053804, - -.1031415, -.0571664, - -.0323337, -.0322847, - .0502303, .1211983, - .0251805, .0895678, - -.0012315, -.1416121, - .0072202, -.1317091, - -.0194029, .0759677, - -.0210072, .0834037 + {.9827497, 0.}, + {.0210669, .0053804}, + {-.1031415, -.0571664}, + {-.0323337, -.0322847}, + {.0502303, .1211983}, + {.0251805, .0895678}, + {-.0012315, -.1416121}, + {.0072202, -.1317091}, + {-.0194029, .0759677}, + {-.0210072, .0834037} }, ABs[] = { /* GS50 sphere */ - .9842990, 0., - .0211642, .0037608, - -.1036018, -.0575102, - -.0329095, -.0320119, - .0499471, .1223335, - .0260460, .0899805, - .0007388, -.1435792, - .0075848, -.1334108, - -.0216473, .0776645, - -.0225161, .0853673 + {.9842990, 0.}, + {.0211642, .0037608}, + {-.1036018, -.0575102}, + {-.0329095, -.0320119}, + {.0499471, .1223335}, + {.0260460, .0899805}, + {.0007388, -.1435792}, + {.0075848, -.1334108}, + {-.0216473, .0776645}, + {-.0225161, .0853673} }; P->n = 9; |