From 3c78ada4256564ae7446fc8928a5d2eae03789ff Mon Sep 17 00:00:00 2001 From: Dominik Brodowski Date: Mon, 22 Mar 2004 12:00:00 +0100 Subject: Fix gtd7d output if sw->flags[0] is set Bugfix to error noted by Dr. Vasiliy Yurasov. Signed-off-by: Dominik Brodowski --- nrlmsise-00.c | 2 ++ 1 file changed, 2 insertions(+) diff --git a/nrlmsise-00.c b/nrlmsise-00.c index 17413d0..af48e19 100644 --- a/nrlmsise-00.c +++ b/nrlmsise-00.c @@ -1061,6 +1061,8 @@ void gtd7(struct nrlmsise_input *input, struct nrlmsise_flags *flags, struct nrl void gtd7d(struct nrlmsise_input *input, struct nrlmsise_flags *flags, struct nrlmsise_output *output) { gtd7(input, flags, output); output->d[5] = 1.66E-24 * (4.0 * output->d[0] + 16.0 * output->d[1] + 28.0 * output->d[2] + 32.0 * output->d[3] + 40.0 * output->d[4] + output->d[6] + 14.0 * output->d[7] + 16.0 * output->d[8]); + if (flags->sw[0]) + output->d[5]=output->d[5]/1000; } -- cgit v1.2.3