1 /** 2 * Copyright 1981-2016 ECMWF. 3 * 4 * This software is licensed under the terms of the Apache Licence 5 * Version 2.0 which can be obtained at http://www.apache.org/licenses/LICENSE-2.0. 6 * 7 * In applying this licence, ECMWF does not waive the privileges and immunities 8 * granted to it by virtue of its status as an intergovernmental organisation 9 * nor does it submit to any jurisdiction. 10 */ 11 #include "common/fortint.h" 12 #include "common/fortreal.h" 13 #define ISECTION_0 2 14 #define ISECTION_1 1024 /* WARN: (in parim.h this is different??) */ /* beware of for ocean data */ 15 #define ISECTION_2 5000 16 #define ISECTION_3 3 /* WARN: (in parim.h this is different??) */ 17 #define ISECTION_4 512 /* WARN: (in parim.h this is different??) */ 18 19 #define RSECTION_2 512 /* WARN: (in parim.h this is different??) */ 20 #define RSECTION_3 2 21 #define RSECTION_4 1 22 23 24 fortint int2_global(); 25 fortint outrep_(); 26 fortint estima_(); 27 fortint gettru_(); 28 fortint setrep_(fortint*); 29 fortint chkout_(); 30 fortint global_(); 31 fortint intf_(const char*, fortint*, fortfloat[], const char*, fortint*, fortfloat[]); 32 fortint intout_(const char*, fortint[], fortfloat[], const char*, fortint, fortint); 33 fortint intin_(const char*, fortint[], fortfloat[], const char*, fortint, fortint); 34 fortint gasetup_( fortint isec1[], fortint isec2[], fortint isec3[], fortint isec4[], fortfloat rsec2[], fortfloat zsec3[]); 35 fortint intuvs_(fortfloat[], fortfloat[], fortint*, fortfloat[], fortfloat[], fortint*); 36 fortint intuvy_(fortfloat[], fortfloat[], fortint*, fortfloat[], fortfloat[], fortint*); 37 fortint intuvu_(fortfloat[], fortfloat[], fortint*, fortfloat[], fortfloat[], fortint*); 38 fortint intvecy_(fortfloat[], fortfloat[], fortint*, fortfloat[], fortfloat[], fortint*); 39 fortint int2_intvecy(fortfloat[],fortfloat[] , fortint, fortfloat*, fortfloat*, fortint*); 40 41 42