Skip to content
Snippets Groups Projects
Commit b39dc3d6 authored by Julien Michel's avatar Julien Michel
Browse files

Corrections suite à mise à jour de 6S

parent 6df8bbfc
No related branches found
No related tags found
No related merge requests found
Showing with 17 additions and 16 deletions
#include "f2c.h" #include "otb_6S.h"
#ifdef __cplusplus #ifdef __cplusplus
extern "C" { extern "C" {
......
#include "f2c.h" #include "otb_6S.h"
#ifdef __cplusplus #ifdef __cplusplus
extern "C" { extern "C" {
......
#include "f2c.h" #include "otb_6S.h"
#ifdef __cplusplus #ifdef __cplusplus
extern "C" { extern "C" {
......
#include "f2c.h" #include "otb_6S.h"
#ifdef __cplusplus #ifdef __cplusplus
extern "C" { extern "C" {
......
...@@ -13,6 +13,7 @@ nm libotb_6s.a |grep " [TR] " ...@@ -13,6 +13,7 @@ nm libotb_6s.a |grep " [TR] "
/* Functions */ /* Functions */
#define varsol_ otb_6s_varsol_ #define varsol_ otb_6s_varsol_
#define enviro_ otb_6s_enviro_
/* otb 6S Main function */ /* otb 6S Main function */
#define ssssss_otb_main_function otb_6s_ssssss_otb_main_function #define ssssss_otb_main_function otb_6s_ssssss_otb_main_function
......
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
mangle/unmangle repeatedly. */ mangle/unmangle repeatedly. */
/* Functions */ /* Functions */
#undef enviro_
#undef varsol_ #undef varsol_
/* otb 6S Main function */ /* otb 6S Main function */
#undef ssssss_otb_main_function #undef ssssss_otb_main_function
......
...@@ -18,7 +18,7 @@ static integer c__4 = 4; ...@@ -18,7 +18,7 @@ static integer c__4 = 4;
static integer c__3 = 3; static integer c__3 = 3;
/*< program call6Sv1_0b >*/ /*< program call6Sv1_0b >*/
/* Main program */ MAIN__() /* Main program */ OTB_6S_MAIN__()
{ {
/* Format strings */ /* Format strings */
static char fmt_100[] = "(10x,\002 -----> atmospheric reflectance : \ static char fmt_100[] = "(10x,\002 -----> atmospheric reflectance : \
...@@ -439,7 +439,7 @@ static integer c__3 = 3; ...@@ -439,7 +439,7 @@ static integer c__3 = 3;
*/ */
/* goto 800 */ /* goto 800 */
/*< >*/ /*< >*/
otb_6s__(&asol, &phi0, &avis, &phiv, &month, &jday, &pressure, &uw, &uo3, otb_6s_ssssss_otb_main_function(&asol, &phi0, &avis, &phiv, &month, &jday, &pressure, &uw, &uo3,
&iaer, &taer55, &wlinf, &wlsup, s, &otb_ratm__, &sast, &tgasm, & &iaer, &taer55, &wlinf, &wlsup, s, &otb_ratm__, &sast, &tgasm, &
sdtott, &sutott, &otb_tdif_up__, &otb_tdir_up__, & sdtott, &sutott, &otb_tdif_up__, &otb_tdir_up__, &
otb_tdif_up_ray__, &otb_tdif_up_aer__); otb_tdif_up_ray__, &otb_tdif_up_aer__);
...@@ -498,7 +498,7 @@ L999: ...@@ -498,7 +498,7 @@ L999:
return 0; return 0;
} /* MAIN__ */ } /* MAIN__ */
/* Main program alias */ int call6sv1_0b__ () { MAIN__ (); return 0; } /* Main program alias */ int call6sv1_0b__ () { OTB_6S_MAIN__ (); return 0; }
#ifdef __cplusplus #ifdef __cplusplus
} }
#endif #endif
#include "f2c.h" #include "otb_6S.h"
#ifdef __cplusplus #ifdef __cplusplus
extern "C" { extern "C" {
......
#include "f2c.h" #include "otb_6S.h"
#ifdef __cplusplus #ifdef __cplusplus
extern "C" { extern "C" {
......
#include "f2c.h" #include "otb_6S.h"
#ifdef __cplusplus #ifdef __cplusplus
extern "C" { extern "C" {
......
#include "f2c.h" #include "otb_6S.h"
#ifdef __cplusplus #ifdef __cplusplus
extern "C" { extern "C" {
......
#include "f2c.h" #include "otb_6S.h"
#ifdef __cplusplus #ifdef __cplusplus
extern "C" { extern "C" {
......
#include "f2c.h" #include "otb_6S.h"
#ifdef __cplusplus #ifdef __cplusplus
extern "C" { extern "C" {
......
#include "f2c.h" #include "otb_6S.h"
#ifdef __cplusplus #ifdef __cplusplus
extern "C" { extern "C" {
......
#include "f2c.h" #include "otb_6S.h"
#ifdef __cplusplus #ifdef __cplusplus
extern "C" { extern "C" {
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment