Philippe 23/02/2016: lfi2cdf: modif for JPHEXT/=1
[MNH-git_open_source-lfs.git] / LIBTOOLS / tools / diachro / src / DIAPRO / caresolv.f90
1 !     ######spl
2       MODULE MODI_CARESOLV
3 !     ####################
4 !
5 INTERFACE
6 !
7 SUBROUTINE CARESOLV(HCARIN)
8 CHARACTER(LEN=*) :: HCARIN
9 END SUBROUTINE CARESOLV
10 !
11 END INTERFACE
12 !
13 END MODULE MODI_CARESOLV
14 !     ######spl
15       SUBROUTINE CARESOLV(HCARIN)
16 !     ###########################
17 !
18 !!****  *CARESOLV* - 
19 !!
20 !!    PURPOSE
21 !!    -------
22 !      
23 !
24 !!**  METHOD
25 !!    ------
26 !!     
27 !!     N.A.
28 !!
29 !!    EXTERNAL
30 !!    --------
31 !!      None
32 !!
33 !!    IMPLICIT ARGUMENTS
34 !!    ------------------
35 !!      Module MODD_CST  : declares model physical constants
36 !!
37 !!      Module MODN_NCAR : defines NAM_DIRTRA_POS namelist 
38 !!                         (former NCAR common)
39 !!
40 !!       NIOFFD     : Label normalisation (=0 none, =/=0 active)
41 !!       NULBLL     : Nb of contours between 2 labelled contours
42 !!       NIOFFM     : =0    --> message at picture bottom
43 !!                    =/= 0 --> no message
44 !!       NIOFFP     : Special point value detection
45 !!                    (=0 none, =/=0 active)
46 !!       NHI        : Extrema detection
47 !!                    (=0 --> H+L, <0 nothing)
48 !!       NINITA     : For streamlimes
49 !!       NINITB     : Not yet implemented
50 !!       NIGRNC     : Not yet implemented
51 !!       NDOT       : Line style
52 !!                    (=0|1|1023|65535 --> solid lines;
53 !!                    <0 --> solid lines for positive values and
54 !!                    dotted lines(ABS(NDOT))for negative values;
55 !!                    >0 --> dotted lines(ABS(NDOT)) )
56 !!       NIFDC      : Coastline data style (0 none, 1 NCAR, 2 IGN)
57 !!       NLPCAR     : Number of land-mark points to be plotted
58 !!       NIMNMX     : Contour selection option
59 !!                    (=-1 Min, max and inc. automatically set;
60 !!                    =0 Min, max automatically set; inc. given;
61 !!                    >0 Min, max, inc. given by user)
62 !!       NISKIP     : Rate for drawing velocity vectors
63 !!       CTYPHOR    : Horizontal cross-section type
64 !!                    (='K' --> model level section;
65 !!                     ='Z' --> constant-altitude section;
66 !!                     ='P' --> isobar section (planned)
67 !!                     ='T' --> isentrope section (planned)
68 !!       XSPVAL     : Special value
69 !!       XSIZEL     : Label size
70 !!       XLATCAR, XLONCAR :  Lat. and Long. of land-mark points
71 !!       LXY        : If =.TRUE., plots  a grid-mesh stencil background
72 !!       LXZ        : If =.TRUE., plots  a model-level stencil background 
73 !!
74 !!      Module MODN_PARA  : Defines NAM_DOMAIN_POS namelist 
75 !!                          (former PARA common)
76 !!
77 !!       XIDEBCOU, XJDEBCOU : Origin of a vertical cross-section
78 !!                            in cartesian (or conformal) real values
79 !!       XHMIN      : Altitude of the vert. cross-section
80 !!                    bottom (in meters above sea-level)
81 !!       XHMAX      : Altitude of the vert. cross-section
82 !!                    top (in meters above sea-level)
83 !!
84 !!      Module MODD_ALLVAR 
85 !!
86 !!
87 !!    REFERENCE
88 !!    ---------
89 !!
90 !!
91 !!    AUTHOR
92 !!    ------
93 !!      J. Duron    * Laboratoire d'Aerologie *
94 !!
95 !!
96 !!    MODIFICATIONS
97 !!    -------------
98 !!      Original       06/06/94
99 !!      Updated   PM   02/12/94
100 !-------------------------------------------------------------------------------
101 !
102 !*       0.    DECLARATIONS
103 !              ------------
104 !
105 #ifdef NAGf95
106 USE F90_UNIX  ! for FLUSH and GETENV
107 #endif
108 USE MODD_RESOLVCAR
109 USE MODE_GRIDPROJ
110 USE MODD_SUPER
111 USE MODD_EXPR 
112 USE MODD_RADAR 
113 USE MODD_MASK3D
114 USE MODN_NCAR
115 USE MODN_PARA
116 USE MODI_RESOLVT
117 USE MODI_RESOLVN
118 USE MODI_RESOLVON
119 USE MODI_RESOLVP
120 USE MODI_RESOLVK
121 USE MODI_RESOLVZ
122 USE MODI_RESOLVX
123 USE MODI_CAREAL
124 USE MODI_CARINT
125 USE MODI_RESOLVI
126 USE MODI_RESOLVIARRAY
127 USE MODI_RESOLVL
128 USE MODI_CARMEMORY
129 USE MODI_RESOLVXISOLEV
130 USE MODD_FILES_DIACHRO
131 USE MODD_DIM1
132 USE MODD_GRID1
133 USE MODD_GRID, ONLY: XLONORI,XLATORI
134 USE MODD_HACH
135 USE MODD_PVT
136 USE MODD_COORD
137 USE MODD_DEFCV
138 USE MODD_TIT
139 USE MODD_RSISOCOL
140 USE MODD_MEMCV
141 USE MODD_CTL_AXES_AND_STYL
142 USE MODD_PARAMETERS
143 USE MODD_ALLOC_FORDIACHRO
144 USE MODI_LOADMNMX_FT_PVKT
145 USE MODI_LOADMNMXINT_ISO
146 USE MODI_LOADXISOLEVP
147 !!!!!!!!!!!!JOEL!!!!!!!!!!
148 !!!!!!!!!!!!JOEL!!!!!!!!!!
149 USE MODD_TRAJ3D
150 !!!!!!!!!!!!JOEL!!!!!!!!!!
151 !!!!!!!!!!!!JOEL!!!!!!!!!!
152 USE MODI_WRITEDIR
153
154 IMPLICIT NONE
155 !
156 !*       0.1   Dummy arguments
157 !              ---------------
158
159 CHARACTER(LEN=*) :: HCARIN
160 !CHARACTER(LEN=32) :: HGRP
161 !
162 !*       0.1   Local variables
163 !              ---------------
164 !
165 CHARACTER(LEN=80)  :: YCAR80
166 !CHARACTER(LEN=LEN(HCARIN)+240) :: YCARIN, YCAR
167 !CHARACTER(LEN=800) :: YCAROUT
168 CHARACTER(LEN=LEN(HCARIN)) :: YCARIN, YCAROUT, YCAR
169 !
170 INTEGER   ::   INDPARTIEL
171 INTEGER   ::   ILENC, ILENGRP, ILENC2, IETOILE, ILOG, ILEN, INDEXPR
172 INTEGER   ::   INDP, INDT, INDK, INDZ, INDCV, INDPV, INDPVT, INDPH, INDON, &
173                INDTOT, INDMIN, INDFI, INDN, INDID, INDPVKT, INDPXT, INDPYT
174 INTEGER   ::   INDNDOMAINL, INDNDOMAINR, INDNDOMAINB, INDNDOMAINT
175 INTEGER   ::   INDNSZLBX, INDNSZLBY, INDTMP
176 INTEGER   ::   INDPVKT1, INDZT, INDXT, INDYT, INDXY, INDZTPVKT1, INDXYZ
177 INTEGER   ::   INDFT, INDFT1, INDMASK, INDMASKCUM, INDMASKSUM
178 INTEGER   ::   INDTK, INDPR, INDRS, INDRS1, INDEV, INDUMVMPV
179 INTEGER   ::   INDIINF, INDJINF, INDISUP, INDJSUP, INDIM, INDNZSTR, INDNARSTR
180 INTEGER   ::   INDIDEBCOU, INDJDEBCOU, INDXIDEBCOU, INDXJDEBCOU, INDNLANGLE, &
181                INDNLMAX, INDXHMIN, INDXHMAX, INDXISOMIN, INDXISOMAX
182 INTEGER   ::   INDXPMIN, INDXPMAX, INDXPINT, INDXSSP, INDXLWSTR, INDXARLSTR
183 INTEGER   ::   INDXISOMIN_, INDXISOMAX_, INDXDIAINT_, INDXANGULVT
184 INTEGER   ::   INDXDIAINT, INDLXY, INDLXZ, INDLISO, INDLMINMAX, INDATFILE,  &
185                INDLCOLAREA, INDLCOLINE, INDLISOWHI, INDLCOLBR, INDLCOLAREASEL, &
186                INDLSPVALT, INDLSEGM, INDLPRESY, INDLSPSECT, INDLEGVECT , &
187                INDLINTERPTOP, INDLCOLISONE, INDLCOLRSONE, INDLCOLRS1ONE,   &
188                INDLCOLINESEL, INDLTABCOLDEF, INDVISU, INDNOVISU, INDXSIZEL, &
189                INDLMNMXUSER, INDLCOLUSER, INDLVECTMNMX, INDLANIMK, INDLANIMT, &
190                INDLMNMXLOC, INDLULMVTMOLD, INDLTITFTUSER, INDLFMTAXEX,  &
191                INDLTIMEUSER, INDXTIMEMIN, INDXTIMEMAX, INDLSTREAM, &
192                INDLNOUVRS, INDLMYHEURX, INDNHEURXLBL, INDNHEURXGRAD
193 INTEGER   ::   INDLINZEROPV, INDLBLFT1SUP, INDL24H
194 INTEGER   ::   INDNVERBIA, INDLISOWHI2, INDLISOWHI3, INDLFMTAXEY
195 INTEGER   ::   INDLINVWB , INDLGEOG, INDLMASK3D, INDMSKTOP, INDSV3
196 INTEGER   ::   INDLINVPTIR, INDLDOMAIN, INDLNOLABELX, INDLNOLABELY
197 INTEGER   ::   INDLNOLBLBAR
198 INTEGER   ::   INDLMASK3D_XY,INDLMASK3D_XZ,INDLMASK3D_YZ,INDLXYZ00
199 INTEGER   ::   INDLINDSP, INDLOGNEP, INDLTABCOLDEF2, INDLCONT, INDLRELIEF, &
200                INDLCONV2XY, INDLINDAX, INDLCHREEL,INDLCOLUSERUV,INDL2CONT, &
201                INDLCONVG2MASS
202 INTEGER   ::   INDLSPLO, INDSPO, INDOSPLO, INDPHALO, INDPHAO, INDLFTBAUTO, &
203                INDLFT1BAUTO
204 INTEGER   ::   INDLPRINT, INDLPOINTG, INDL2DBX, INDL2DBY, INDLXYO, INDLPRINTXY
205 INTEGER   ::   INDLPRDAT, INDLINTERPOLSTR, INDL3D
206 INTEGER   ::   INDLVPTUSER, INDLVPTVUSER, INDLVPTPVUSER, INDLXABSC, INDLXMINTOP
207 INTEGER   ::   INDLVPTXYUSER, INDLFACTIMP, INDLFACTAXEX, INDLFACTAXEY
208 INTEGER   ::   INDLAXEXUSER, INDLAXEYUSER
209 INTEGER   ::   INDLHACH1, INDLHACH2, INDLHACH3, INDLHACH4, INDLHACHSEL
210 INTEGER   ::   INDLGREY
211 INTEGER   ::   INDLHEURX
212 INTEGER   ::   INDLABEL1, INDLBLUSER1, INDLBLUSER2, INDLBLUSER3, INDLBLUSER4
213 INTEGER   ::   INDXFACTAXEX, INDXFACTAXEY, INDXAXEXUSERD, INDXAXEYUSERD
214 INTEGER   ::   INDXAXEXUSERF, INDXAXEYUSERF
215 INTEGER   ::   INDXVPTL, INDXVPTR, INDXVPTB, INDXVPTT
216 INTEGER   ::   INDXVPTVL, INDXVPTVR, INDXVPTVB, INDXVPTVT
217 INTEGER   ::   INDXVPTPVL, INDXVPTPVR, INDXVPTPVB, INDXVPTPVT
218 INTEGER   ::   INDXVPTXYL, INDXVPTXYR, INDXVPTXYB, INDXVPTXYT
219 INTEGER   ::   INDXISOLEV, INDXFTMIN, INDXFTMAX, INDXPVKTMIN, INDXPVKTMAX
220 INTEGER   ::   INDXFT_ADTIM1, INDXFT_ADTIM2, INDXFT_ADTIM3, INDXFT_ADTIM4
221 INTEGER   ::   INDXFT_ADTIM5, INDXFT_ADTIM6, INDXFT_ADTIM7, INDXFT_ADTIM8
222 INTEGER   ::   INDXFT1_ADTIM1, INDXFT1_ADTIM2, INDXFT1_ADTIM3, INDXFT1_ADTIM4
223 INTEGER   ::   INDXFT1_ADTIM5, INDXFT1_ADTIM6, INDXFT1_ADTIM7, INDXFT1_ADTIM8
224 INTEGER   ::   INDXISOLEV_ , INDXPARCOLUV
225 INTEGER   ::   INDXFT1MIN, INDXFT1MAX, INDXFT1MIN_, INDXFT1MAX_
226 INTEGER   ::   INDXVARMIN, INDXVARMAX, INDXZTMIN, INDXZTMAX
227 INTEGER   ::   INDXLATCAR, INDXLONCAR, INDXXL, INDXXH, INDXYL, INDXYH
228 INTEGER   ::   INDXICAR, INDXJCAR
229 INTEGER   ::   INDCNOMCAR, INDCSYMCAR, INDXPOSNOM, INDXSZNOM, INDXSZSYM
230 INTEGER   ::   INDXPOSXVARNPV1TOP,INDXPOSYVARNPV1TOP
231 INTEGER   ::   INDXPOSXVARNPV5BOT,INDXPOSYVARNPV5BOT
232 INTEGER   ::   INDXSZVARNPVTOP,INDXSZVARNPVBOT
233 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
234 !! 19/12/2008 : modification pour controler la taille et le format des labels !!
235 !! pour les retrotrajectoires                                                 !!
236 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
237 INTEGER   ::   INDNSZRTRAJ,INDLFMTRTRAJ
238 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
239 INTEGER   ::   INDXLWPH1, INDXLWPH2, INDXLWPH3, INDXLWPH4
240 INTEGER   ::   INDXLWPH5, INDXLWPH6, INDXLWPH7, INDXLWPH8
241 INTEGER   ::   INDXSZTITYT, INDXSZTITYM, INDXSZTITYB
242 INTEGER   ::   INDXSZTITT1, INDXSZTITT2, INDXSZTITT3
243 INTEGER   ::   INDXSZTITB1, INDXSZTITB2, INDXSZTITB3
244 INTEGER   ::   INDXSZTITVAR1, INDXSZTITVAR2, INDXSZTITVAR3, INDXSZTITVAR4
245 INTEGER   ::   INDXSZTITVAR5, INDXSZTITVAR6, INDXSZTITVAR7, INDXSZTITVAR8
246 INTEGER   ::   INDXPOSTITYT, INDXPOSTITYM, INDXPOSTITYB
247 INTEGER   ::   INDXPOSTITT1, INDXPOSTITT2, INDXPOSTITT3
248 INTEGER   ::   INDXPOSTITB1, INDXPOSTITB2, INDXPOSTITB3
249 INTEGER   ::   INDXPOSTITVAR1, INDXPOSTITVAR2, INDXPOSTITVAR3, INDXPOSTITVAR4
250 INTEGER   ::   INDXPOSTITVAR5, INDXPOSTITVAR6, INDXPOSTITVAR7, INDXPOSTITVAR8
251 INTEGER   ::   INDXYPOSTITYT, INDXYPOSTITYM, INDXYPOSTITYB
252 INTEGER   ::   INDXYPOSTITT1, INDXYPOSTITT2, INDXYPOSTITT3
253 INTEGER   ::   INDXYPOSTITB1, INDXYPOSTITB2, INDXYPOSTITB3
254 INTEGER   ::   INDXYPOSTITVAR1, INDXYPOSTITVAR2, INDXYPOSTITVAR3,INDXYPOSTITVAR4
255 INTEGER   ::   INDXYPOSTITVAR5, INDXYPOSTITVAR6, INDXYPOSTITVAR7,INDXYPOSTITVAR8
256 INTEGER   ::   INDICOLNOM, INDICOLSYM
257 INTEGER   ::   INDXZL, INDXZH
258 INTEGER   ::   INDNIFDC, INDNIGRNC, INDNDOT, INDNISKIP, INDNISKIPVX, INDNISKIPVY
259 INTEGER   ::   INDNIOFFD, INDNULBLL, INDNHI, INDNIMNMX, INDNPROFILE, INDNSD
260 INTEGER   ::   INDMINUS, INDPLUS, INDNFT1ITVXMJ, INDNFT1ITVXMN
261 INTEGER   ::   INDNFT1ITVYMJ, INDNFT1ITVYMN, INDNINDCOLUV
262 INTEGER   ::   INDNFTITVXMJ, INDNFTITVXMN, INDNFTITVYMJ, INDNFTITVYMN
263 INTEGER   ::   INDNCHITVXMJ, INDNCHITVXMN, INDNCHITVYMJ, INDNCHITVYMN
264 INTEGER   ::   INDNCHPCITVXMJ, INDNCHPCITVXMN, INDNCHPCITVYMJ, INDNCHPCITVYMN
265 INTEGER   ::   INDNCVITVXMJ, INDNCVITVXMN, INDNCVITVYMJ, INDNCVITVYMN
266 INTEGER   ::   INDNPVITVXMJ, INDNPVITVXMN, INDNPVITVYMJ, INDNPVITVYMN
267 INTEGER   ::   INDNMASKITVXMJ, INDNMASKITVXMN, INDNMASKITVYMJ, INDNMASKITVYMN
268 INTEGER   ::   INDNXYITVXMJ, INDNXYITVXMN, INDNXYITVYMJ, INDNXYITVYMN
269 INTEGER   ::   INDXPVMIN, INDXPVMAX, INDXPVMINT, INDXPVMAXT
270 INTEGER   ::   INDXLWV, INDXLWDEF, INDXLWVDEF, INDXLWCONT, INDLMARKER
271 INTEGER   ::   INDXLWFTALL, INDXLWSEGM
272 INTEGER   ::   INDXLW, INDXLW1, INDXLW2, INDXLW3, INDXLW4, INDXLWDOMAIN
273 INTEGER   ::   INDXLWPV1, INDXLWPV2, INDXLWPV3, INDXLWPV4, INDXLWPV5
274 INTEGER   ::   INDXLWPV6, INDXLWPV7, INDXLWPV8, INDXLWTRACECV
275 INTEGER   ::   INDXLWPV9, INDXLWPV10
276 INTEGER   ::   INDXLWPV11, INDXLWPV12, INDXLWPV13, INDXLWPV14, INDXLWPV15
277 INTEGER   ::   INDXSTYLPV1, INDXSTYLPV2, INDXSTYLPV3, INDXSTYLPV4, INDXSTYLPV5
278 INTEGER   ::   INDXSTYLPV6, INDXSTYLPV7, INDXSTYLPV8
279 INTEGER   ::   INDXSTYLPV9, INDXSTYLPV10
280 INTEGER   ::   INDXSTYLPV11, INDXSTYLPV12, INDXSTYLPV13, INDXSTYLPV14, INDXSTYLPV15
281 INTEGER   ::   INDXAMX, INDXVHC, INDXVRL, INDXVLC, INDXVRLPH, INDXVHCPH
282 INTEGER   ::   INDNIRS, INDNJRS, INDXIRS, INDXJRS, INDXSPVAL, INDXSPVALT
283 INTEGER   ::   INDLCOLZERO, INDNCOLZERO, INDLFT1STYLUSER, INDLFTSTYLUSER
284 INTEGER   ::   INDNCOLSEGM, INDLFT3C, INDLFT4C, INDLFTCLIP
285 INTEGER   ::   INDNCOLUV1, INDNCOLUV2, INDNCOLUV3, INDNCOLUV4, INDNCOLUV5
286 INTEGER   ::   INDNCOLISONE1, INDNCOLISONE2, INDNCOLISONE3,INDNCOLISONE4
287 INTEGER   ::   INDNCOLISONE5, INDNCOLRSONE, INDNCOLRS1ONE1,INDNCOLRS1ONE2
288 INTEGER   ::   INDNCOLRS1ONE3, INDNCOLRS1ONE4,INDNCOLRS1ONE5
289 INTEGER   ::   INDXSZTITXL, INDXSZTITXM, INDXSZTITXR
290 INTEGER   ::   INDLDEFCV2, INDLDEFCV2LL, INDLDEFCV2IND
291 INTEGER   ::   INDXIDEBCV, INDXIFINCV, INDXJDEBCV, INDXJFINCV
292 INTEGER   ::   INDXIDEBCVLL, INDXIFINCVLL, INDXJDEBCVLL, INDXJFINCVLL
293 INTEGER   ::   INDNIDEBCV, INDNIFINCV, INDNJDEBCV, INDNJFINCV
294 INTEGER   ::   INDLSYMB, INDLTEXTG, INDLTEXTIT, INDLSYMBTEXTG, INDLSTI
295 INTEGER   ::   INDLTRACECV, INDLM5S3, INDLCVZOOM, INDLDILW, INDLVST
296 INTEGER   ::   INDLVSUPSCA, INDLXYWINCUR, INDLXYNVARTOP, INDLXYSTYLTOP
297 INTEGER   ::   INDLRADAR, INDXLATRAD1,INDXLATRAD2,INDXLATRAD3,INDXLATRAD4
298 INTEGER   ::   INDLRADIST, INDLRADRAY
299 INTEGER   ::   INDXLONRAD1,INDXLONRAD2,INDXLONRAD3,INDXLONRAD4
300 INTEGER   ::   INDXPORTRAD1,INDXPORTRAD2,INDXPORTRAD3,INDXPORTRAD4
301 INTEGER   ::   INDXLWRAD1,INDXLWRAD2,INDXLWRAD3,INDXLWRAD4
302 INTEGER   ::   INDCSYMRAD1,INDCSYMRAD2,INDCSYMRAD3,INDCSYMRAD4
303 INTEGER   ::   INDXISOREF,INDXISOREF_,INDLSPOT
304 INTEGER   ::   INDLFT1LUSER,INDNFT1STY1,INDNFT1STY2,INDNFT1STY3,INDNFT1STY4
305 INTEGER   ::   INDNFT1STY5,INDNFT1STY6,INDNFT1STY7,INDNFT1STY8,INDNFT1STY9
306 INTEGER   ::   INDNFT1STY10,INDNFT1STY11,INDNFT1STY12,INDNFT1STY13,INDNFT1STY14
307 INTEGER   ::   INDNFT1STY15
308 INTEGER   ::   INDNFT1COL1,INDNFT1COL2,INDNFT1COL3,INDNFT1COL4,INDNFT1COL5
309 INTEGER   ::   INDNFT1COL6,INDNFT1COL7,INDNFT1COL8,INDNFT1COL9,INDNFT1COL10
310 INTEGER   ::   INDNFT1COL11,INDNFT1COL12,INDNFT1COL13,INDNFT1COL14,INDNFT1COL15
311 INTEGER   ::   INDXFT1LW1,INDXFT1LW2,INDXFT1LW3,INDXFT1LW4,INDXFT1LW5
312 INTEGER   ::   INDXFT1LW6,INDXFT1LW7,INDXFT1LW8,INDXFT1LW9,INDXFT1LW10
313 INTEGER   ::   INDXFT1LW11,INDXFT1LW12,INDXFT1LW13,INDXFT1LW14,INDXFT1LW15
314 INTEGER   ::   INDCFT1TIT1,INDCFT1TIT2,INDCFT1TIT3,INDCFT1TIT4,INDCFT1TIT5
315 INTEGER   ::   INDCFT1TIT6,INDCFT1TIT7,INDCFT1TIT8,INDCFT1TIT9,INDCFT1TIT10
316 INTEGER   ::   INDCFT1TIT11,INDCFT1TIT12,INDCFT1TIT13,INDCFT1TIT14,INDCFT1TIT15
317 INTEGER   ::   INDXVPTFT1L,INDXVPTFT1R,INDXVPTFT1B,INDXVPTFT1T
318 INTEGER   ::   INDLVPTFT1USER, INDLVARNPVUSER, INDNSTYLINZEROPV
319 INTEGER   ::   INDCVARNPV1,INDCVARNPV2,INDCVARNPV3,INDCVARNPV4,INDCVARNPV5
320 INTEGER   ::   INDCVARNPV6,INDCVARNPV7,INDCVARNPV8,INDCVARNPV9,INDCVARNPV10
321 INTEGER   ::   INDCVARNPV11,INDCVARNPV12,INDCVARNPV13,INDCVARNPV14,INDCVARNPV15
322 INTEGER   ::   INDCVARNPH1,INDCVARNPH2,INDCVARNPH3,INDCVARNPH4,INDCVARNPH5
323 INTEGER   ::   INDCVARNPH6,INDCVARNPH7,INDCVARNPH8,INDLVARNPHUSER
324 INTEGER   ::   INDNPHCOL1,INDNPHCOL2,INDNPHCOL3,INDNPHCOL4,INDNPHCOL5
325 INTEGER   ::   INDNPHCOL6,INDNPHCOL7,INDNPHCOL8
326 INTEGER   ::   INDNPHSTY1,INDNPHSTY2,INDNPHSTY3,INDNPHSTY4,INDNPHSTY5
327 INTEGER   ::   INDNPHSTY6,INDNPHSTY7,INDNPHSTY8
328 INTEGER   ::   INDLPHCOLUSER,INDLPHSTYUSER
329 INTEGER   ::   INDLPATCH
330 #ifdef RHODES
331 INTEGER          :: ISTAF
332 #endif
333 !!!!!!!!!!!!JOEL!!!!!!!!!!
334 !!!!!!!!!!!!JOEL!!!!!!!!!!
335 INTEGER   ::   INDXXPART,INDXYPART,INDXZPART,INDLTRAJ3D,INDLFLUX3D
336 INTEGER   ::   INDLTRAJ_GROUP
337 !!!!!!!!!!!!JOEL!!!!!!!!!!
338 !!!!!!!!!!!!JOEL!!!!!!!!!!
339 INTEGER   ::   INBMIN, J, JJ, JM
340 INTEGER   ::   ISTA
341 INTEGER   ::   INBV, IND9999
342 INTEGER   ::   INDQ1,INDQ2
343 INTEGER,DIMENSION(30,100) :: IIMIN
344 !!!!!!!!!!!!JOEL!!!!!!!!!!
345 INTEGER,DIMENSION(603)     :: IT
346 REAL,DIMENSION(100) :: ZISOLEV
347 REAL      ::   ZISO, ZX, ZY
348 LOGICAl   ::   GXI=.FALSE., GXJ=.FALSE.
349 !!! NOVEMBRE 2009 G. TANGUY
350 INTEGER :: INDL90TITYT,INDL90TITYM,INDL90TITYB
351 !------------------------------------------------------------------------------
352 !
353 YCARIN=' '
354 YCARIN = ADJUSTL(HCARIN)
355 YCARIN = ADJUSTL(YCARIN)
356 ILENC = LEN_TRIM(YCARIN)
357 if(nverbia >0)then
358 print *,' **entree caresolv YCARIN(1:LEN_TRIM(YCARIN)) ',YCARIN(1:ILENC)
359 endif
360 !
361 INDID = INDEX(YCARIN,'_IDEM')
362 IF(INDID /= 0)THEN
363   CALL CARMEMORY(YCAR,2)
364   YCAR=ADJUSTL(YCAR)
365 ! print *,' AP CARMEMORY YCAR ',YCAR(1:LEN_TRIM(YCAR))
366   ILENGRP=0
367 ! ILENGRP=INDEX(YCAR,'_')-1
368   ILENC2 = LEN_TRIM(YCAR)
369   YCARIN(INDID:INDID+ILENC2-ILENGRP-1)=YCAR(ILENGRP+1:ILENC2)
370   ILENC = LEN_TRIM(YCARIN)
371
372   DO J=1,20
373     IF((INDID-1+ILENC2-ILENGRP) >= ILENC)THEN
374       EXIT
375     ELSE
376       YCARIN(ILENC:ILENC)=' '
377       ILENC=ILENC-1
378     ENDIF
379   ENDDO
380
381 ENDIF
382
383 INDNSZLBX=INDEX(YCARIN,'NSZLBX')
384 INDNSZLBY=INDEX(YCARIN,'NSZLBY')
385 INDIINF=INDEX(YCARIN,'NIINF') 
386 INDISUP=INDEX(YCARIN,'NISUP')
387 INDJINF=INDEX(YCARIN,'NJINF')
388 INDJSUP=INDEX(YCARIN,'NJSUP')
389 INDNHEURXLBL=INDEX(YCARIN,'NHEURXLBL')
390 INDNHEURXGRAD=INDEX(YCARIN,'NHEURXGRAD')
391 INDIDEBCOU=INDEX(YCARIN,'NIDEBCOU') 
392 INDJDEBCOU=INDEX(YCARIN,'NJDEBCOU') 
393 INDXTIMEMIN=INDEX(YCARIN,'XTIMEMIN')
394 INDXTIMEMAX=INDEX(YCARIN,'XTIMEMAX')
395 INDXIDEBCOU=INDEX(YCARIN,'XIDEBCOU') 
396 INDXJDEBCOU=INDEX(YCARIN,'XJDEBCOU') 
397 INDXSSP=INDEX(YCARIN,'XSSP')
398 INDXARLSTR=INDEX(YCARIN,'XARLSTR')
399 INDXLWSTR=INDEX(YCARIN,'XLWSTR')
400 INDXANGULVT=INDEX(YCARIN,'XANGULVT')
401 INDXFACTAXEX=INDEX(YCARIN,'XFACTAXEX')
402 INDXFACTAXEY=INDEX(YCARIN,'XFACTAXEY')
403 INDXAXEXUSERD=INDEX(YCARIN,'XAXEXUSERD')
404 INDXAXEYUSERD=INDEX(YCARIN,'XAXEYUSERD')
405 INDXAXEXUSERF=INDEX(YCARIN,'XAXEXUSERF')
406 INDXAXEYUSERF=INDEX(YCARIN,'XAXEYUSERF')
407 INDXSIZEL=INDEX(YCARIN,'XSIZEL')
408 INDXSZTITXL=INDEX(YCARIN,'XSZTITXL')
409 INDXSZTITXM=INDEX(YCARIN,'XSZTITXM')
410 INDXSZTITXR=INDEX(YCARIN,'XSZTITXR')
411 INDXSZTITYT=INDEX(YCARIN,'XSZTITYT')
412 INDXSZTITYM=INDEX(YCARIN,'XSZTITYM')
413 INDXSZTITYB=INDEX(YCARIN,'XSZTITYB')
414
415 INDXSZTITT1=INDEX(YCARIN,'XSZTITT1')
416 INDXSZTITT2=INDEX(YCARIN,'XSZTITT2')
417 INDXSZTITT3=INDEX(YCARIN,'XSZTITT3')
418 INDXPOSTITYT=INDEX(YCARIN,'XPOSTITYT')
419 INDXPOSTITYM=INDEX(YCARIN,'XPOSTITYM')
420 INDXPOSTITYB=INDEX(YCARIN,'XPOSTITYB')
421 INDXPOSTITT1=INDEX(YCARIN,'XPOSTITT1')
422 INDXPOSTITT2=INDEX(YCARIN,'XPOSTITT2')
423 INDXPOSTITT3=INDEX(YCARIN,'XPOSTITT3')
424 INDXYPOSTITT1=INDEX(YCARIN,'XYPOSTITT1')
425 INDXYPOSTITT2=INDEX(YCARIN,'XYPOSTITT2')
426 INDXYPOSTITT3=INDEX(YCARIN,'XYPOSTITT3')
427
428 INDXSZTITB1=INDEX(YCARIN,'XSZTITB1')
429 INDXSZTITB2=INDEX(YCARIN,'XSZTITB2')
430 INDXSZTITB3=INDEX(YCARIN,'XSZTITB3')
431 INDXPOSTITB1=INDEX(YCARIN,'XPOSTITB1')
432 INDXPOSTITB2=INDEX(YCARIN,'XPOSTITB2')
433 INDXPOSTITB3=INDEX(YCARIN,'XPOSTITB3')
434 INDXYPOSTITYT=INDEX(YCARIN,'XYPOSTITYT')
435 INDXYPOSTITYM=INDEX(YCARIN,'XYPOSTITYM')
436 INDXYPOSTITYB=INDEX(YCARIN,'XYPOSTITYB')
437 INDXYPOSTITB1=INDEX(YCARIN,'XYPOSTITB1')
438 INDXYPOSTITB2=INDEX(YCARIN,'XYPOSTITB2')
439 INDXYPOSTITB3=INDEX(YCARIN,'XYPOSTITB3')
440 INDXSZTITVAR1=INDEX(YCARIN,'XSZTITVAR1')
441 INDXSZTITVAR2=INDEX(YCARIN,'XSZTITVAR2')
442 INDXSZTITVAR3=INDEX(YCARIN,'XSZTITVAR3')
443 INDXSZTITVAR4=INDEX(YCARIN,'XSZTITVAR4')
444 INDXSZTITVAR5=INDEX(YCARIN,'XSZTITVAR5')
445 INDXSZTITVAR6=INDEX(YCARIN,'XSZTITVAR6')
446 INDXSZTITVAR7=INDEX(YCARIN,'XSZTITVAR7')
447 INDXSZTITVAR8=INDEX(YCARIN,'XSZTITVAR8')
448 INDXPOSTITVAR1=INDEX(YCARIN,'XPOSTITVAR1')
449 INDXPOSTITVAR2=INDEX(YCARIN,'XPOSTITVAR2')
450 INDXPOSTITVAR3=INDEX(YCARIN,'XPOSTITVAR3')
451 INDXYPOSTITVAR1=INDEX(YCARIN,'XYPOSTITVAR1')
452 INDXYPOSTITVAR2=INDEX(YCARIN,'XYPOSTITVAR2')
453 INDXYPOSTITVAR3=INDEX(YCARIN,'XYPOSTITVAR3')
454 INDXPOSTITVAR4=INDEX(YCARIN,'XPOSTITVAR4')
455 INDXPOSTITVAR5=INDEX(YCARIN,'XPOSTITVAR5')
456 INDXPOSTITVAR6=INDEX(YCARIN,'XPOSTITVAR6')
457 INDXYPOSTITVAR4=INDEX(YCARIN,'XYPOSTITVAR4')
458 INDXYPOSTITVAR5=INDEX(YCARIN,'XYPOSTITVAR5')
459 INDXYPOSTITVAR6=INDEX(YCARIN,'XYPOSTITVAR6')
460 INDXPOSTITVAR7=INDEX(YCARIN,'XPOSTITVAR7')
461 INDXPOSTITVAR8=INDEX(YCARIN,'XPOSTITVAR8')
462 INDXYPOSTITVAR7=INDEX(YCARIN,'XYPOSTITVAR7')
463 INDXYPOSTITVAR8=INDEX(YCARIN,'XYPOSTITVAR8')
464 !*JD*Mars 2009
465 INDXPOSXVARNPV1TOP=INDEX(YCARIN,'XPOSXVARNPV1TOP')
466 INDXPOSYVARNPV1TOP=INDEX(YCARIN,'XPOSYVARNPV1TOP')
467 INDXPOSXVARNPV5BOT=INDEX(YCARIN,'XPOSXVARNPV5BOT')
468 INDXPOSYVARNPV5BOT=INDEX(YCARIN,'XPOSYVARNPV5BOT')
469 INDXSZVARNPVTOP=INDEX(YCARIN,'XSZVARNPVTOP')
470 INDXSZVARNPVBOT=INDEX(YCARIN,'XSZVARNPVBOT')
471 !*JD*Mars 2009
472
473 INDXIDEBCVLL=INDEX(YCARIN,'XIDEBCVLL')
474 INDXIDEBCV=0
475 IF(INDXIDEBCVLL == 0)THEN
476   INDXIDEBCV=INDEX(YCARIN,'XIDEBCV')
477 ENDIF
478 INDXJDEBCVLL=INDEX(YCARIN,'XJDEBCVLL')
479 INDXJDEBCV=0
480 IF(INDXJDEBCVLL == 0)THEN
481   INDXJDEBCV=INDEX(YCARIN,'XJDEBCV')
482 ENDIF
483 INDXIFINCVLL=INDEX(YCARIN,'XIFINCVLL')
484 INDXIFINCV=0
485 IF(INDXIFINCVLL == 0)THEN
486   INDXIFINCV=INDEX(YCARIN,'XIFINCV')
487 ENDIF
488 INDXJFINCVLL=INDEX(YCARIN,'XJFINCVLL')
489 INDXJFINCV=0
490 IF(INDXJFINCVLL == 0)THEN
491   INDXJFINCV=INDEX(YCARIN,'XJFINCV')
492 ENDIF
493 INDNIDEBCV=INDEX(YCARIN,'NIDEBCV')
494 INDNJDEBCV=INDEX(YCARIN,'NJDEBCV')
495 INDNIFINCV=INDEX(YCARIN,'NIFINCV')
496 INDNJFINCV=INDEX(YCARIN,'NJFINCV')
497 INDXAMX=INDEX(YCARIN,'XAMX')
498 INDXVHC=INDEX(YCARIN,'XVHC=')
499 IF(INDXVHC == 0)THEN
500   INDXVHC=INDEX(YCARIN,'XVHC =')
501 ENDIF
502 INDXVHCPH=INDEX(YCARIN,'XVHCPH')
503 INDXVLC=INDEX(YCARIN,'XVLC')
504 INDXVRL=INDEX(YCARIN,'XVRL=')
505 IF(INDXVRL == 0)THEN
506   INDXVRL=INDEX(YCARIN,'XVRL =')
507 ENDIF
508 INDXVRLPH=INDEX(YCARIN,'XVRLPH')
509 INDVISU=INDEX(YCARIN,'VISU')
510 INDNOVISU=INDEX(YCARIN,'NOVISU')
511 INDNVERBIA=INDEX(YCARIN,'NVERBIA')
512 INDXPMIN=INDEX(YCARIN,'XPMIN')
513 INDXPMAX=INDEX(YCARIN,'XPMAX')
514 INDXPINT=INDEX(YCARIN,'XPINT')
515 INDXHMIN=INDEX(YCARIN,'XHMIN')
516 INDXHMAX=INDEX(YCARIN,'XHMAX')
517 INDXLATRAD1=INDEX(YCARIN,'XLATRAD1')
518 INDXLATRAD2=INDEX(YCARIN,'XLATRAD2')
519 INDXLATRAD3=INDEX(YCARIN,'XLATRAD3')
520 INDXLATRAD4=INDEX(YCARIN,'XLATRAD4')
521 INDXLONRAD1=INDEX(YCARIN,'XLONRAD1')
522 INDXLONRAD2=INDEX(YCARIN,'XLONRAD2')
523 INDXLONRAD3=INDEX(YCARIN,'XLONRAD3')
524 INDXLONRAD4=INDEX(YCARIN,'XLONRAD4')
525 INDXSPVALT=INDEX(YCARIN,'XSPVALT')
526 INDXSPVAL=INDEX(YCARIN,'XSPVAL=')
527 IF(INDXSPVAL == 0)THEN
528   INDXSPVAL=INDEX(YCARIN,'XSPVAL =')
529   IF(INDXSPVAL == 0)THEN
530     INDXSPVAL=INDEX(YCARIN,'XSPVAL  =')
531   ENDIF
532 ENDIF
533 INDXPORTRAD1=INDEX(YCARIN,'XPORTRAD1')
534 INDXPORTRAD2=INDEX(YCARIN,'XPORTRAD2')
535 INDXPORTRAD3=INDEX(YCARIN,'XPORTRAD3')
536 INDXPORTRAD4=INDEX(YCARIN,'XPORTRAD4')
537 INDXLWRAD1=INDEX(YCARIN,'XLWRAD1')
538 INDXLWRAD2=INDEX(YCARIN,'XLWRAD2')
539 INDXLWRAD3=INDEX(YCARIN,'XLWRAD3')
540 INDXLWRAD4=INDEX(YCARIN,'XLWRAD4')
541 INDXISOMIN_=INDEX(YCARIN,'XISOMIN_')
542 INDXISOMAX_=INDEX(YCARIN,'XISOMAX_')
543 INDXISOMIN=INDEX(YCARIN,'XISOMIN')
544 INDXISOMAX=INDEX(YCARIN,'XISOMAX')
545 IF(INDXISOMIN_ /= 0)THEN
546   INDXISOMIN=0
547 ENDIF
548 IF(INDXISOMAX_ /= 0)THEN
549   INDXISOMAX=0
550 ENDIF
551 INDNLANGLE=INDEX(YCARIN,'NLANGLE')
552 INDNLMAX=INDEX(YCARIN,'NLMAX')
553 INDNZSTR=INDEX(YCARIN,'NZSTR')
554 INDNARSTR=INDEX(YCARIN,'NARSTR')
555 INDNIOFFD=INDEX(YCARIN,'NIOFFD')
556 INDNSD=INDEX(YCARIN,'NSD')
557 INDNULBLL=INDEX(YCARIN,'NULBLL')
558 INDNDOT=INDEX(YCARIN,'NDOT')
559 INDNISKIP=INDEX(YCARIN,'NISKIP=')
560 IF(INDNISKIP == 0)THEN
561   INDNISKIP=INDEX(YCARIN,'NISKIP =')
562 ENDIF
563 INDNISKIPVX=INDEX(YCARIN,'NISKIPVX')
564 INDNISKIPVY=INDEX(YCARIN,'NISKIPVY')
565 INDNHI=INDEX(YCARIN,'NHI')
566 INDNIMNMX=INDEX(YCARIN,'NIMNMX')
567 INDNFT1ITVXMJ=INDEX(YCARIN,'NFT1ITVXMJ')
568 INDNFT1ITVXMN=INDEX(YCARIN,'NFT1ITVXMN')
569 INDNFT1ITVYMJ=INDEX(YCARIN,'NFT1ITVYMJ')
570 INDNFT1ITVYMN=INDEX(YCARIN,'NFT1ITVYMN')
571 INDNFTITVXMJ=INDEX(YCARIN,'NFTITVXMJ')
572 INDNFTITVXMN=INDEX(YCARIN,'NFTITVXMN')
573 INDNFTITVYMJ=INDEX(YCARIN,'NFTITVYMJ')
574 INDNFTITVYMN=INDEX(YCARIN,'NFTITVYMN')
575 INDNCHITVXMJ=INDEX(YCARIN,'NCHITVXMJ')
576 INDNCHITVXMN=INDEX(YCARIN,'NCHITVXMN')
577 INDNCHITVYMJ=INDEX(YCARIN,'NCHITVYMJ')
578 INDNCHITVYMN=INDEX(YCARIN,'NCHITVYMN')
579 INDNCHPCITVXMJ=INDEX(YCARIN,'NCHPCITVXMJ')
580 INDNCHPCITVXMN=INDEX(YCARIN,'NCHPCITVXMN')
581 INDNCHPCITVYMJ=INDEX(YCARIN,'NCHPCITVYMJ')
582 INDNCHPCITVYMN=INDEX(YCARIN,'NCHPCITVYMN')
583 INDNCVITVXMJ=INDEX(YCARIN,'NCVITVXMJ')
584 INDNCVITVXMN=INDEX(YCARIN,'NCVITVXMN')
585 INDNCVITVYMJ=INDEX(YCARIN,'NCVITVYMJ')
586 INDNCVITVYMN=INDEX(YCARIN,'NCVITVYMN')
587 INDNPVITVXMJ=INDEX(YCARIN,'NPVITVXMJ')
588 INDNPVITVXMN=INDEX(YCARIN,'NPVITVXMN')
589 INDNPVITVYMJ=INDEX(YCARIN,'NPVITVYMJ')
590 INDNPVITVYMN=INDEX(YCARIN,'NPVITVYMN')
591 INDNXYITVXMJ=INDEX(YCARIN,'NXYITVXMJ')
592 INDNXYITVXMN=INDEX(YCARIN,'NXYITVXMN')
593 INDNXYITVYMJ=INDEX(YCARIN,'NXYITVYMJ')
594 INDNXYITVYMN=INDEX(YCARIN,'NXYITVYMN')
595 INDNMASKITVXMJ=INDEX(YCARIN,'NMASKITVXMJ')
596 INDNMASKITVXMN=INDEX(YCARIN,'NMASKITVXMN')
597 INDNMASKITVYMJ=INDEX(YCARIN,'NMASKITVYMJ')
598 INDNMASKITVYMN=INDEX(YCARIN,'NMASKITVYMN')
599 INDXDIAINT_=INDEX(YCARIN,'XDIAINT_')
600 INDXDIAINT=INDEX(YCARIN,'XDIAINT')
601 IF(INDXDIAINT_ /= 0)THEN
602   INDXDIAINT=0
603 ENDIF
604 !!!!!!!!!!
605 INDLVARNPVUSER=INDEX(YCARIN,'LVARNPVUSER')
606 INDLVPTFT1USER=INDEX(YCARIN,'LVPTFT1USER')
607 INDLVARNPHUSER=INDEX(YCARIN,'LVARNPHUSER')
608 !!!!!!!!!!
609 INDLM5S3=INDEX(YCARIN,'LM5S3')
610 INDLSYMBTEXTG=INDEX(YCARIN,'LSYMBTEXTG')
611 INDLCVZOOM=INDEX(YCARIN,'LCVZOOM')
612 INDLVST=INDEX(YCARIN,'LVST')
613 INDLDILW=INDEX(YCARIN,'LDILW')
614 INDLXYNVARTOP=INDEX(YCARIN,'LXYNVARTOP')
615 INDLXYSTYLTOP=INDEX(YCARIN,'LXYSTYLTOP')
616 INDLXYWINCUR=INDEX(YCARIN,'LXYWINCUR')
617 INDLVSUPSCA=INDEX(YCARIN,'LVSUPSCA')
618 INDLSYMB=INDEX(YCARIN,'LSYMB=')
619 IF(INDLSYMB == 0)THEN
620   INDLSYMB=INDEX(YCARIN,'LSYMB =')
621 ENDIF
622 INDLTEXTG=INDEX(YCARIN,'LTEXTG')
623 INDLTEXTIT=INDEX(YCARIN,'LTEXTIT')
624 INDLTRACECV=INDEX(YCARIN,'LTRACECV')
625 INDLSTI=INDEX(YCARIN,'LSTI')
626 INDLSEGM=INDEX(YCARIN,'OLSEGM')
627 IF(INDLSEGM == 0)THEN
628   INDLSEGM=INDEX(YCARIN,'LSEGM')
629 ELSE
630   INDLSEGM=0
631 ENDIF
632 INDLXY=INDEX(YCARIN,'LXY=')
633 IF(INDLXY == 0)THEN
634   INDLXY=INDEX(YCARIN,'LXY =')
635 ENDIF
636 INDLXZ=INDEX(YCARIN,'LXZ')
637 INDLVECTMNMX=INDEX(YCARIN,'LVECTMNMX')
638 INDLISO=INDEX(YCARIN,'LISO=')
639 IF(INDLISO == 0)THEN
640   INDLISO=INDEX(YCARIN,'LISO =')
641 ENDIF
642 INDLANIMK=INDEX(YCARIN,'LANIMK')
643 INDLANIMT=INDEX(YCARIN,'LANIMT')
644 INDLMINMAX=INDEX(YCARIN,'LMINMAX')
645 INDATFILE=INDEX(YCARIN,'LDATFILE')
646 INDLINTERPTOP=INDEX(YCARIN,'LINTERPTOP=')
647 INDLSPSECT=INDEX(YCARIN,'LSPSECT')
648 INDLSPVALT=INDEX(YCARIN,'LSPVALT')
649 INDLPRESY=INDEX(YCARIN,'LPRESY')
650 INDLEGVECT=INDEX(YCARIN,'LEGVECT')
651 INDLSTREAM=INDEX(YCARIN,'LSTREAM')
652 INDLINTERPOLSTR=INDEX(YCARIN,'LINTERPOLSTR')
653 INDLNOLBLBAR=INDEX(YCARIN,'LNOLBLBAR')
654 INDLNOLABELX=INDEX(YCARIN,'LNOLABELX')
655 INDLNOLABELY=INDEX(YCARIN,'LNOLABELY')
656 INDLNOUVRS=INDEX(YCARIN,'LNOUVRS')
657 INDLMYHEURX=INDEX(YCARIN,'LMYHEURX')
658 INDLRADAR=INDEX(YCARIN,'LRADAR')
659 INDLRADIST=INDEX(YCARIN,'LRADIST')
660 INDLRADRAY=INDEX(YCARIN,'LRADRAY')
661 INDLCOLAREA=INDEX(YCARIN,'LCOLAREA=')
662 IF(INDLCOLAREA == 0)THEN
663   INDLCOLAREA=INDEX(YCARIN,'LCOLAREA =')
664 ENDIF
665 INDLFT1LUSER=INDEX(YCARIN,'LFT1LUSER')
666 INDLFTBAUTO=INDEX(YCARIN,'LFTBAUTO')
667 INDLFT1BAUTO=INDEX(YCARIN,'LFT1BAUTO')
668 INDLTITFTUSER=INDEX(YCARIN,'LTITFTUSER')
669 INDLPHCOLUSER=INDEX(YCARIN,'LPHCOLUSER')
670 INDLPHSTYUSER=INDEX(YCARIN,'LPHSTYUSER')
671 INDLXABSC=INDEX(YCARIN,'LXABSC')
672 INDLXMINTOP=INDEX(YCARIN,'LXMINTOP')
673 INDLABEL1=INDEX(YCARIN,'LABEL1')
674 INDLDEFCV2LL=INDEX(YCARIN,'LDEFCV2LL')
675 INDLDEFCV2IND=INDEX(YCARIN,'LDEFCV2IND')
676 INDLDEFCV2=0
677 INDLDEFCV2=INDEX(YCARIN,'LDEFCV2=')
678 IF(INDLDEFCV2 == 0)THEN
679   INDLDEFCV2=INDEX(YCARIN,'LDEFCV2 =')
680 ENDIF
681 IF(INDLDEFCV2 == 0)THEN
682   INDLDEFCV2=INDEX(YCARIN,'LDEFCV2  =')
683 ENDIF
684 IF(NVERBIA > 0)THEN
685 print *,' INDLDEFCV2LL,INDLDEFCV2IND,INDLDEFCV2 ',INDLDEFCV2LL,INDLDEFCV2IND,INDLDEFCV2
686 ENDIF
687 INDLBLUSER1=INDEX(YCARIN,'LBLUSER1')
688 INDLBLUSER2=INDEX(YCARIN,'LBLUSER2')
689 INDLBLUSER3=INDEX(YCARIN,'LBLUSER3')
690 INDLBLUSER4=INDEX(YCARIN,'LBLUSER4')
691 INDLINDSP=INDEX(YCARIN,'LINDSP')
692 INDLINDAX=INDEX(YCARIN,'LINDAX')
693 INDLCOLUSERUV=INDEX(YCARIN,'LCOLUSERUV')
694 INDLTIMEUSER=INDEX(YCARIN,'LTIMEUSER')
695 INDLCHREEL=INDEX(YCARIN,'LCHREEL')
696 INDLOGNEP=INDEX(YCARIN,'LOGNEP')
697 INDLCOLISONE=INDEX(YCARIN,'LCOLISONE')
698 INDLCOLRSONE=INDEX(YCARIN,'LCOLRSONE')
699 INDLCOLRS1ONE=INDEX(YCARIN,'LCOLRS1ONE')
700 INDLCOLINE=INDEX(YCARIN,'LCOLINE')
701 INDL24H=INDEX(YCARIN,'L24H')
702 INDLCONT=INDEX(YCARIN,'LCONT')
703 INDL2CONT=INDEX(YCARIN,'L2CONT')
704 INDLRELIEF=INDEX(YCARIN,'LRELIEF')
705 INDLCONV2XY=INDEX(YCARIN,'LCONV2XY')
706 INDLCONVG2MASS=INDEX(YCARIN,'LCONVG2MASS')
707 INDLCOLZERO=INDEX(YCARIN,'LCOLZERO')
708 INDL3D=INDEX(YCARIN,'L3D')
709 INDLMARKER=INDEX(YCARIN,'LMARKER')
710 INDLPRDAT=INDEX(YCARIN,'LPRDAT')
711 INDLPRINTXY=INDEX(YCARIN,'LPRINTXY')
712 INDLPRINT=INDEX(YCARIN,'LPRINT')
713 IF((INDLPRINTXY == 0 .AND. INDLPRINT == 0) .OR. (INDLPRINTXY /= INDLPRINT))THEN
714 ELSE
715  INDLPRINT=INDEX(YCARIN(INDLPRINTXY+1:LEN_TRIM(YCARIN)),'LPRINT')
716  IF(INDLPRINT /= 0)THEN
717    INDLPRINT=INDLPRINT+INDLPRINTXY
718  ENDIF
719 ENDIF
720 INDLPOINTG=INDEX(YCARIN,'LPOINTG')
721 INDLXYO=INDEX(YCARIN,'LXYO')
722 INDL2DBX=INDEX(YCARIN,'L2DBX')
723 INDL2DBY=INDEX(YCARIN,'L2DBY')
724 INDLTIMEUSER=INDEX(YCARIN,'LTIMEUSER=')
725 INDLCOLUSER=INDEX(YCARIN,'LCOLUSER=')
726 IF(INDLCOLUSER == 0)THEN
727   INDLCOLUSER=INDEX(YCARIN,'LCOLUSER =')
728 ENDIF
729 IF(INDLCOLUSER == 0)THEN
730   INDLCOLUSER=INDEX(YCARIN,'LCOLUSER  =')
731 ENDIF
732 INDLISOWHI2=INDEX(YCARIN,'LISOWHI2')
733 INDLISOWHI3=INDEX(YCARIN,'LISOWHI3')
734 INDLISOWHI=INDEX(YCARIN,'LISOWHI=')
735 IF(INDLISOWHI == 0)THEN
736   INDLISOWHI=INDEX(YCARIN,'LISOWHI =')
737 ENDIF
738 IF(INDLISOWHI == 0)THEN
739   INDLISOWHI=INDEX(YCARIN,'LISOWHI  =')
740 ENDIF
741 IF(INDLISOWHI == 0)THEN
742   INDLISOWHI=INDEX(YCARIN,'LISOWHI   =')
743 ENDIF
744 INDLCOLBR=INDEX(YCARIN,'LCOLBR')
745 INDLCOLAREASEL=INDEX(YCARIN,'LCOLAREASEL')
746 INDLCOLINESEL=INDEX(YCARIN,'LCOLINESEL')
747 INDLINVWB=INDEX(YCARIN,'LINVWB')
748 INDLINVPTIR=INDEX(YCARIN,'LINVPTIR')
749 INDLDOMAIN=INDEX(YCARIN,'LDOMAIN')
750 INDLGEOG=INDEX(YCARIN,'LGEOG')
751 INDLBLFT1SUP=INDEX(YCARIN,'LBLFT1SUP')
752 INDLMASK3D_XY=INDEX(YCARIN,'LMASK3D_XY')
753 INDLMASK3D_XZ=INDEX(YCARIN,'LMASK3D_XZ')
754 INDLMASK3D_YZ=INDEX(YCARIN,'LMASK3D_YZ')
755 INDLMASK3D=INDEX(YCARIN,'LMASK3D=')
756 IF(INDLMASK3D == 0)THEN
757   INDLMASK3D=INDEX(YCARIN,'LMASK3D =')
758 ENDIF
759 IF(INDLMASK3D == 0)THEN
760   INDLMASK3D=INDEX(YCARIN,'LMASK3D  =')
761 ENDIF
762 !!!!!!!!!!!!JOEL!!!!!!!!!!
763 !!!!!!!!!!!!JOEL!!!!!!!!!!
764 INDLTRAJ3D=INDEX(YCARIN,'LTRAJ3D=')
765 IF(INDLTRAJ3D == 0)THEN
766   INDLTRAJ3D=INDEX(YCARIN,'LTRAJ3D =')
767 ENDIF
768 IF(INDLTRAJ3D == 0)THEN
769   INDLTRAJ3D=INDEX(YCARIN,'LTRAJ3D  =')
770 ENDIF
771 !
772 INDLFLUX3D=INDEX(YCARIN,'LFLUX3D=')
773 IF(INDLFLUX3D == 0)THEN
774   INDLFLUX3D=INDEX(YCARIN,'LFLUX3D =')
775 ENDIF
776 IF(INDLFLUX3D == 0)THEN
777   INDLFLUX3D=INDEX(YCARIN,'LFLUX3D  =')
778 ENDIF
779 !
780 INDLTRAJ_GROUP=INDEX(YCARIN,'LTRAJ_GROUP=')
781 IF(INDLTRAJ_GROUP == 0)THEN
782   INDLTRAJ_GROUP=INDEX(YCARIN,'LTRAJ_GROUP =')
783 ENDIF
784 IF(INDLTRAJ_GROUP == 0)THEN
785   INDLTRAJ_GROUP=INDEX(YCARIN,'LTRAJ_GROUP  =')
786 ENDIF
787 !!!!!!!!!!!!JOEL!!!!!!!!!!
788 !!!!!!!!!!!!JOEL!!!!!!!!!!
789 !IF(INDLMASK3D /= 0)THEN
790 ! LMASK3D_XY=.TRUE.
791 ! LMASK3D_XZ=.TRUE.
792 ! LMASK3D_YZ=.TRUE.
793 !ENDIF
794 INDLXYZ00=INDEX(YCARIN,'LXYZ00')
795 INDLFT3C=INDEX(YCARIN,'LFT3C')
796 INDLFT4C=INDEX(YCARIN,'LFT4C')
797 INDLFTCLIP=INDEX(YCARIN,'LFTCLIP')
798 INDLFT1STYLUSER=INDEX(YCARIN,'LFT1STYLUSER')
799 INDLFTSTYLUSER=INDEX(YCARIN,'LFTSTYLUSER')
800 INDLHEURX=INDEX(YCARIN,'LHEURX')
801 INDLHACH1=INDEX(YCARIN,'LHACH1')
802 INDLHACH2=INDEX(YCARIN,'LHACH2')
803 INDLHACH3=INDEX(YCARIN,'LHACH3')
804 INDLHACH4=INDEX(YCARIN,'LHACH4')
805 INDLHACHSEL=INDEX(YCARIN,'LHACHSEL')
806 INDLGREY=INDEX(YCARIN,'LGREY')
807 INDLTABCOLDEF2=INDEX(YCARIN,'LTABCOLDEF2')
808 IF(INDLTABCOLDEF2 == 0)THEN
809 INDLTABCOLDEF=INDEX(YCARIN,'LTABCOLDEF')
810 ELSE
811 LTABCOLDEF=.TRUE.
812 ENDIF
813 INDLTABCOLDEF=INDEX(YCARIN,'LTABCOLDEF=')
814 IF(INDLTABCOLDEF == 0)THEN
815   INDLTABCOLDEF=INDEX(YCARIN,'LTABCOLDEF =')
816 ENDIF
817 INDLMNMXUSER=INDEX(YCARIN,'LMNMXUSER')
818 !Mars 2009
819 INDLINZEROPV=INDEX(YCARIN,'LINZEROPV')
820 INDNSTYLINZEROPV=INDEX(YCARIN,'NSTYLINZEROPV')
821 IF(INDNSTYLINZEROPV /= 0 .AND. (ABS(INDNSTYLINZEROPV-INDLINZEROPV) == 4))THEN
822   INDLINZEROPV=0
823 ENDIF
824 !Mars 2009
825 INDLMNMXLOC=INDEX(YCARIN,'LMNMXLOC')
826 INDLULMVTMOLD=INDEX(YCARIN,'LULMVTMOLD')
827 INDLVPTUSER=INDEX(YCARIN,'LVPTUSER')
828 INDLVPTVUSER=INDEX(YCARIN,'LVPTVUSER')
829 INDLVPTPVUSER=INDEX(YCARIN,'LVPTPVUSER')
830 INDLVPTXYUSER=INDEX(YCARIN,'LVPTXYUSER')
831 INDLFACTIMP=INDEX(YCARIN,'LFACTIMP')
832 INDLFACTAXEX=INDEX(YCARIN,'LFACTAXEX')
833 INDLFACTAXEY=INDEX(YCARIN,'LFACTAXEY')
834 INDLAXEYUSER=INDEX(YCARIN,'LAXEYUSER')
835 INDLAXEXUSER=INDEX(YCARIN,'LAXEXUSER')
836 INDLFMTAXEX=INDEX(YCARIN,'LFMTAXEX')
837 INDLFMTAXEY=INDEX(YCARIN,'LFMTAXEY')
838 INDLSPOT=INDEX(YCARIN,'LSPOT')
839 INDNIFDC=INDEX(YCARIN,'NIFDC')
840 INDNDOMAINL=INDEX(YCARIN,'NDOMAINL')
841 INDNDOMAINR=INDEX(YCARIN,'NDOMAINR')
842 INDNDOMAINB=INDEX(YCARIN,'NDOMAINB')
843 INDNDOMAINT=INDEX(YCARIN,'NDOMAINT')
844 INDNIGRNC=INDEX(YCARIN,'NIGRNC')
845 INDNPROFILE=INDEX(YCARIN,'PROFILE')
846 INDXPVMIN=INDEX(YCARIN,'XPVMIN_')
847 INDXPVMAX=INDEX(YCARIN,'XPVMAX_')
848 INDXPVMINT=INDEX(YCARIN,'XPVMINT')
849 INDXPVMAXT=INDEX(YCARIN,'XPVMAXT')
850 INDXLWFTALL=INDEX(YCARIN,'XLWFTALL')
851 INDXLWSEGM=INDEX(YCARIN,'XLWSEGM')
852 INDXLWDOMAIN=INDEX(YCARIN,'XLWDOMAIN')
853 INDXLWTRACECV=INDEX(YCARIN,'XLWTRACECV')
854 INDXLWV=INDEX(YCARIN,'XLWV=')
855 IF(INDXLWV == 0)THEN
856   INDXLWV=INDEX(YCARIN,'XLWV =')
857 ENDIF
858 IF(INDXLWV == 0)THEN
859   INDXLWV=INDEX(YCARIN,'XLWV  =')
860 ENDIF
861 IF(INDXLWV == 0)THEN
862   INDXLWV=INDEX(YCARIN,'XLWV   =')
863 ENDIF
864 INDXLW=INDEX(YCARIN,'XLW=')
865 IF(INDXLW == 0)THEN
866   INDXLW=INDEX(YCARIN,'XLW =')
867 ENDIF
868 IF(INDXLW == 0)THEN
869   INDXLW=INDEX(YCARIN,'XLW  =')
870 ENDIF
871 IF(INDXLW == 0)THEN
872   INDXLW=INDEX(YCARIN,'XLW   =')
873 ENDIF
874 INDXLW1=INDEX(YCARIN,'XLW1')
875 INDXLW2=INDEX(YCARIN,'XLW2')
876 INDXLW3=INDEX(YCARIN,'XLW3')
877 INDXLW4=INDEX(YCARIN,'XLW4')
878 INDXLWDEF=INDEX(YCARIN,'XLWDEF')
879 INDXLWVDEF=INDEX(YCARIN,'XLWVDEF')
880 INDXLWCONT=INDEX(YCARIN,'XLWCONT')
881 INDXLWPV1=INDEX(YCARIN,'XLWPV1')
882 INDXLWPV2=INDEX(YCARIN,'XLWPV2')
883 INDXLWPV3=INDEX(YCARIN,'XLWPV3')
884 INDXLWPV4=INDEX(YCARIN,'XLWPV4')
885 INDXLWPV5=INDEX(YCARIN,'XLWPV5')
886 INDXLWPV6=INDEX(YCARIN,'XLWPV6')
887 INDXLWPV7=INDEX(YCARIN,'XLWPV7')
888 INDXLWPV8=INDEX(YCARIN,'XLWPV8')
889 INDXLWPV9=INDEX(YCARIN,'XLWPV9')
890 INDXLWPV10=INDEX(YCARIN,'XLWPV10')
891 INDXLWPV11=INDEX(YCARIN,'XLWPV11')
892 INDXLWPV12=INDEX(YCARIN,'XLWPV12')
893 INDXLWPV13=INDEX(YCARIN,'XLWPV13')
894 INDXLWPV14=INDEX(YCARIN,'XLWPV14')
895 INDXLWPV15=INDEX(YCARIN,'XLWPV15')
896 INDXSTYLPV1=INDEX(YCARIN,'XSTYLPV1')
897 INDXSTYLPV2=INDEX(YCARIN,'XSTYLPV2')
898 INDXSTYLPV3=INDEX(YCARIN,'XSTYLPV3')
899 INDXSTYLPV4=INDEX(YCARIN,'XSTYLPV4')
900 INDXSTYLPV5=INDEX(YCARIN,'XSTYLPV5')
901 INDXSTYLPV6=INDEX(YCARIN,'XSTYLPV6')
902 INDXSTYLPV7=INDEX(YCARIN,'XSTYLPV7')
903 INDXSTYLPV8=INDEX(YCARIN,'XSTYLPV8')
904 INDXSTYLPV9=INDEX(YCARIN,'XSTYLPV9')
905 INDXSTYLPV10=INDEX(YCARIN,'XSTYLPV10')
906 INDXSTYLPV11=INDEX(YCARIN,'XSTYLPV11')
907 INDXSTYLPV12=INDEX(YCARIN,'XSTYLPV12')
908 INDXSTYLPV13=INDEX(YCARIN,'XSTYLPV13')
909 INDXSTYLPV14=INDEX(YCARIN,'XSTYLPV14')
910 INDXSTYLPV15=INDEX(YCARIN,'XSTYLPV15')
911 INDXPARCOLUV=INDEX(YCARIN,'XPARCOLUV')
912 INDXISOLEV_=INDEX(YCARIN,'XISOLEV_')
913 INDXISOLEV=INDEX(YCARIN,'XISOLEV')
914 IF(INDXISOLEV_ /= 0)THEN
915   INDXISOLEV=0
916 ENDIF
917 INDXICAR=INDEX(YCARIN,'XICAR')
918 INDXJCAR=INDEX(YCARIN,'XJCAR')
919 INDXLWPH1=INDEX(YCARIN,'XLWPH1')
920 INDXLWPH2=INDEX(YCARIN,'XLWPH2')
921 INDXLWPH3=INDEX(YCARIN,'XLWPH3')
922 INDXLWPH4=INDEX(YCARIN,'XLWPH4')
923 INDXLWPH5=INDEX(YCARIN,'XLWPH5')
924 INDXLWPH6=INDEX(YCARIN,'XLWPH6')
925 INDXLWPH7=INDEX(YCARIN,'XLWPH7')
926 INDXLWPH8=INDEX(YCARIN,'XLWPH8')
927 INDXLATCAR=INDEX(YCARIN,'XLATCAR')
928 INDXLONCAR=INDEX(YCARIN,'XLONCAR')
929 INDCNOMCAR=INDEX(YCARIN,'CNOMCAR')
930 INDCSYMCAR=INDEX(YCARIN,'CSYMCAR')
931 INDCSYMRAD1=INDEX(YCARIN,'CSYMRAD1')
932 INDCSYMRAD2=INDEX(YCARIN,'CSYMRAD2')
933 INDCSYMRAD3=INDEX(YCARIN,'CSYMRAD3')
934 INDCSYMRAD4=INDEX(YCARIN,'CSYMRAD4')
935 INDXPOSNOM=INDEX(YCARIN,'XPOSNOM')
936 INDXSZNOM=INDEX(YCARIN,'XSZNOM')
937 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
938 !! 19/12/2008 : modification pour controler la taille et le format des labels !!
939 !! pour les retrotrajectoires                                                 !!
940 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
941 INDNSZRTRAJ=INDEX(YCARIN,'NSZRTRAJ')
942 INDLFMTRTRAJ=INDEX(YCARIN,'LFMTRTRAJ')
943 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
944 INDXSZSYM=INDEX(YCARIN,'XSZSYM')
945 INDICOLNOM=INDEX(YCARIN,'ICOLNOM')
946 INDICOLSYM=INDEX(YCARIN,'ICOLSYM')
947 INDNINDCOLUV=INDEX(YCARIN,'NINDCOLUV')
948 INDXXL=INDEX(YCARIN,'XXL')
949 INDXXH=INDEX(YCARIN,'XXH')
950 INDXVPTXYL=INDEX(YCARIN,'XVPTXYL')
951 INDXYL=0
952 IF(INDXVPTXYL == 0)THEN
953   INDXYL=INDEX(YCARIN,'XYL')
954 ! Aout 2001 Pour tenir compte de EMIS_XYLE (xylene chimie)
955   IF(INDXYL /= 0)THEN
956    INDTMP=0
957    INDTMP=INDEX(YCARIN,'_XYLE')
958    IF(INDTMP /= 0)THEN
959     INDXYL=0
960    ENDIF
961   ENDIF
962 ! Aout 2001 Pour tenir compte de EMIS_XYLE (xylene chimie)
963 ENDIF
964 INDXYH=INDEX(YCARIN,'XYH')
965 INDXZL=INDEX(YCARIN,'XZL')
966 INDXZH=INDEX(YCARIN,'XZH')
967 INDXFT_ADTIM1=INDEX(YCARIN,'XFT_ADTIM1')
968 INDXFT_ADTIM2=INDEX(YCARIN,'XFT_ADTIM2')
969 INDXFT_ADTIM3=INDEX(YCARIN,'XFT_ADTIM3')
970 INDXFT_ADTIM4=INDEX(YCARIN,'XFT_ADTIM4')
971 INDXFT_ADTIM5=INDEX(YCARIN,'XFT_ADTIM5')
972 INDXFT_ADTIM6=INDEX(YCARIN,'XFT_ADTIM6')
973 INDXFT_ADTIM7=INDEX(YCARIN,'XFT_ADTIM7')
974 INDXFT_ADTIM8=INDEX(YCARIN,'XFT_ADTIM8')
975 INDXFT1_ADTIM1=INDEX(YCARIN,'XFT1_ADTIM1')
976 INDXFT1_ADTIM2=INDEX(YCARIN,'XFT1_ADTIM2')
977 INDXFT1_ADTIM3=INDEX(YCARIN,'XFT1_ADTIM3')
978 INDXFT1_ADTIM4=INDEX(YCARIN,'XFT1_ADTIM4')
979 INDXFT1_ADTIM5=INDEX(YCARIN,'XFT1_ADTIM5')
980 INDXFT1_ADTIM6=INDEX(YCARIN,'XFT1_ADTIM6')
981 INDXFT1_ADTIM7=INDEX(YCARIN,'XFT1_ADTIM7')
982 INDXFT1_ADTIM8=INDEX(YCARIN,'XFT1_ADTIM8')
983 INDXFTMIN=INDEX(YCARIN,'XFTMIN')
984 INDXFTMAX=INDEX(YCARIN,'XFTMAX')
985 INDXFT1MIN=INDEX(YCARIN,'XFT1MIN')
986 INDXFT1MAX=INDEX(YCARIN,'XFT1MAX')
987 print *,' ***CARESOLV INDXFT1MIN,INDXFT1MAX ',INDXFT1MIN,INDXFT1MAX
988 INDXFT1MIN_=INDEX(YCARIN,'XFT1MIN_')
989 INDXFT1MAX_=INDEX(YCARIN,'XFT1MAX_')
990 IF(INDXFT1MIN_ /= 0)THEN
991   INDXFT1MIN=0
992 ENDIF
993 IF(INDXFT1MAX_ /= 0)THEN
994   INDXFT1MAX=0
995 ENDIF
996 !!!!!!!!!!!!JOEL!!!!!!!!!!
997 !!!!!!!!!!!!JOEL!!!!!!!!!!
998 INDXXPART=INDEX(YCARIN,'XXPART')
999 INDXYPART=INDEX(YCARIN,'XYPART')
1000 INDXZPART=INDEX(YCARIN,'XZPART')
1001 !!!!!!!!!!!!JOEL!!!!!!!!!!
1002 !!!!!!!!!!!!JOEL!!!!!!!!!!
1003 INDXPVKTMIN=INDEX(YCARIN,'XPVKTMIN')
1004 INDXPVKTMAX=INDEX(YCARIN,'XPVKTMAX')
1005 INDXVARMIN=INDEX(YCARIN,'XVARMIN')
1006 INDXVARMAX=INDEX(YCARIN,'XVARMAX')
1007 INDXZTMIN=INDEX(YCARIN,'XZTMIN')
1008 INDXZTMAX=INDEX(YCARIN,'XZTMAX')
1009 INDXVPTL=INDEX(YCARIN,'XVPTL')
1010 INDXVPTR=INDEX(YCARIN,'XVPTR')
1011 INDXVPTB=INDEX(YCARIN,'XVPTB')
1012 INDXVPTT=INDEX(YCARIN,'XVPTT')
1013 INDXVPTVL=INDEX(YCARIN,'XVPTVL')
1014 INDXVPTVR=INDEX(YCARIN,'XVPTVR')
1015 INDXVPTVB=INDEX(YCARIN,'XVPTVB')
1016 INDXVPTVT=INDEX(YCARIN,'XVPTVT')
1017 INDXVPTPVL=INDEX(YCARIN,'XVPTPVL')
1018 INDXVPTPVR=INDEX(YCARIN,'XVPTPVR')
1019 INDXVPTPVB=INDEX(YCARIN,'XVPTPVB')
1020 INDXVPTPVT=INDEX(YCARIN,'XVPTPVT')
1021 INDXVPTXYL=INDEX(YCARIN,'XVPTXYL')
1022 INDXVPTXYR=INDEX(YCARIN,'XVPTXYR')
1023 INDXVPTXYB=INDEX(YCARIN,'XVPTXYB')
1024 INDXVPTXYT=INDEX(YCARIN,'XVPTXYT')
1025 !!!!!!!!!!!!!
1026 INDXVPTFT1L=INDEX(YCARIN,'XVPTFT1L')
1027 INDXVPTFT1R=INDEX(YCARIN,'XVPTFT1R')
1028 INDXVPTFT1B=INDEX(YCARIN,'XVPTFT1B')
1029 INDXVPTFT1T=INDEX(YCARIN,'XVPTFT1T')
1030 !!!!!!!!!!!!!
1031 INDNIRS=INDEX(YCARIN,'NIRS')
1032 INDNJRS=INDEX(YCARIN,'NJRS')
1033 INDXIRS=INDEX(YCARIN,'XIRS')
1034 INDXJRS=INDEX(YCARIN,'XJRS')
1035 INDNCOLZERO=INDEX(YCARIN,'NCOLZERO')
1036 INDNCOLUV1=INDEX(YCARIN,'NCOLUV1')
1037 INDNCOLUV2=INDEX(YCARIN,'NCOLUV2')
1038 INDNCOLUV3=INDEX(YCARIN,'NCOLUV3')
1039 INDNCOLUV4=INDEX(YCARIN,'NCOLUV4')
1040 INDNCOLUV5=INDEX(YCARIN,'NCOLUV5')
1041 INDNCOLSEGM=INDEX(YCARIN,'NCOLSEGMS')
1042 INDNCOLISONE1=INDEX(YCARIN,'NCOLISONE1')
1043 INDNCOLISONE2=INDEX(YCARIN,'NCOLISONE2')
1044 INDNCOLISONE3=INDEX(YCARIN,'NCOLISONE3')
1045 INDNCOLISONE4=INDEX(YCARIN,'NCOLISONE4')
1046 INDNCOLISONE5=INDEX(YCARIN,'NCOLISONE5')
1047 INDNCOLRS1ONE1=INDEX(YCARIN,'NCOLRS1ONE1')
1048 INDNCOLRS1ONE2=INDEX(YCARIN,'NCOLRS1ONE2')
1049 INDNCOLRS1ONE3=INDEX(YCARIN,'NCOLRS1ONE3')
1050 INDNCOLRS1ONE4=INDEX(YCARIN,'NCOLRS1ONE4')
1051 INDNCOLRS1ONE5=INDEX(YCARIN,'NCOLRS1ONE5')
1052 INDNCOLRSONE=INDEX(YCARIN,'NCOLRSONE')
1053 INDXISOREF_=INDEX(YCARIN,'XISOREF_')
1054 INDXISOREF=INDEX(YCARIN,'XISOREF')
1055 IF(INDXISOREF_ /= 0)THEN
1056   INDXISOLEV=0
1057 ENDIF
1058 !*JD* Mars 2009
1059 INDNFT1STY1=INDEX(YCARIN,'NFT1STY1')
1060 INDNFT1STY2=INDEX(YCARIN,'NFT1STY2')
1061 INDNFT1STY3=INDEX(YCARIN,'NFT1STY3')
1062 INDNFT1STY4=INDEX(YCARIN,'NFT1STY4')
1063 INDNFT1STY5=INDEX(YCARIN,'NFT1STY5')
1064 INDNFT1STY6=INDEX(YCARIN,'NFT1STY6')
1065 INDNFT1STY7=INDEX(YCARIN,'NFT1STY7')
1066 INDNFT1STY8=INDEX(YCARIN,'NFT1STY8')
1067 INDNFT1STY9=INDEX(YCARIN,'NFT1STY9')
1068 INDNFT1STY10=INDEX(YCARIN,'NFT1STY10')
1069 INDNFT1STY11=INDEX(YCARIN,'NFT1STY11')
1070 INDNFT1STY12=INDEX(YCARIN,'NFT1STY12')
1071 INDNFT1STY13=INDEX(YCARIN,'NFT1STY13')
1072 INDNFT1STY14=INDEX(YCARIN,'NFT1STY14')
1073 INDNFT1STY15=INDEX(YCARIN,'NFT1STY15')
1074 !
1075 INDNFT1COL1=INDEX(YCARIN,'NFT1COL1')
1076 INDNFT1COL2=INDEX(YCARIN,'NFT1COL2')
1077 INDNFT1COL3=INDEX(YCARIN,'NFT1COL3')
1078 INDNFT1COL4=INDEX(YCARIN,'NFT1COL4')
1079 INDNFT1COL5=INDEX(YCARIN,'NFT1COL5')
1080 INDNFT1COL6=INDEX(YCARIN,'NFT1COL6')
1081 INDNFT1COL7=INDEX(YCARIN,'NFT1COL7')
1082 INDNFT1COL8=INDEX(YCARIN,'NFT1COL8')
1083 INDNFT1COL9=INDEX(YCARIN,'NFT1COL9')
1084 INDNFT1COL10=INDEX(YCARIN,'NFT1COL10')
1085 INDNFT1COL11=INDEX(YCARIN,'NFT1COL11')
1086 INDNFT1COL12=INDEX(YCARIN,'NFT1COL12')
1087 INDNFT1COL13=INDEX(YCARIN,'NFT1COL13')
1088 INDNFT1COL14=INDEX(YCARIN,'NFT1COL14')
1089 INDNFT1COL15=INDEX(YCARIN,'NFT1COL15')
1090 !
1091 INDXFT1LW1=INDEX(YCARIN,'XFT1LW1')
1092 INDXFT1LW2=INDEX(YCARIN,'XFT1LW2')
1093 INDXFT1LW3=INDEX(YCARIN,'XFT1LW3')
1094 INDXFT1LW4=INDEX(YCARIN,'XFT1LW4')
1095 INDXFT1LW5=INDEX(YCARIN,'XFT1LW5')
1096 INDXFT1LW6=INDEX(YCARIN,'XFT1LW6')
1097 INDXFT1LW7=INDEX(YCARIN,'XFT1LW7')
1098 INDXFT1LW8=INDEX(YCARIN,'XFT1LW8')
1099 INDXFT1LW9=INDEX(YCARIN,'XFT1LW9')
1100 INDXFT1LW10=INDEX(YCARIN,'XFT1LW10')
1101 INDXFT1LW11=INDEX(YCARIN,'XFT1LW11')
1102 INDXFT1LW12=INDEX(YCARIN,'XFT1LW12')
1103 INDXFT1LW13=INDEX(YCARIN,'XFT1LW13')
1104 INDXFT1LW14=INDEX(YCARIN,'XFT1LW14')
1105 INDXFT1LW15=INDEX(YCARIN,'XFT1LW15')
1106 !
1107 INDCFT1TIT1=INDEX(YCARIN,'CFT1TIT1')
1108 INDCFT1TIT2=INDEX(YCARIN,'CFT1TIT2')
1109 INDCFT1TIT3=INDEX(YCARIN,'CFT1TIT3')
1110 INDCFT1TIT4=INDEX(YCARIN,'CFT1TIT4')
1111 INDCFT1TIT5=INDEX(YCARIN,'CFT1TIT5')
1112 INDCFT1TIT6=INDEX(YCARIN,'CFT1TIT6')
1113 INDCFT1TIT7=INDEX(YCARIN,'CFT1TIT7')
1114 INDCFT1TIT8=INDEX(YCARIN,'CFT1TIT8')
1115 INDCFT1TIT9=INDEX(YCARIN,'CFT1TIT9')
1116 INDCFT1TIT10=INDEX(YCARIN,'CFT1TIT10')
1117 INDCFT1TIT11=INDEX(YCARIN,'CFT1TIT11')
1118 INDCFT1TIT12=INDEX(YCARIN,'CFT1TIT12')
1119 INDCFT1TIT13=INDEX(YCARIN,'CFT1TIT13')
1120 INDCFT1TIT14=INDEX(YCARIN,'CFT1TIT14')
1121 INDCFT1TIT15=INDEX(YCARIN,'CFT1TIT15')
1122 !
1123 INDCVARNPV1=INDEX(YCARIN,'CVARNPV1')
1124 INDCVARNPV2=INDEX(YCARIN,'CVARNPV2')
1125 INDCVARNPV3=INDEX(YCARIN,'CVARNPV3')
1126 INDCVARNPV4=INDEX(YCARIN,'CVARNPV4')
1127 INDCVARNPV5=INDEX(YCARIN,'CVARNPV5')
1128 INDCVARNPV6=INDEX(YCARIN,'CVARNPV6')
1129 INDCVARNPV7=INDEX(YCARIN,'CVARNPV7')
1130 INDCVARNPV8=INDEX(YCARIN,'CVARNPV8')
1131 INDCVARNPV9=INDEX(YCARIN,'CVARNPV9')
1132 INDCVARNPV10=INDEX(YCARIN,'CVARNPV10')
1133 INDCVARNPV11=INDEX(YCARIN,'CVARNPV11')
1134 INDCVARNPV12=INDEX(YCARIN,'CVARNPV12')
1135 INDCVARNPV13=INDEX(YCARIN,'CVARNPV13')
1136 INDCVARNPV14=INDEX(YCARIN,'CVARNPV14')
1137 INDCVARNPV15=INDEX(YCARIN,'CVARNPV15')
1138 !
1139 INDCVARNPH1=INDEX(YCARIN,'CVARNPH1')
1140 INDCVARNPH2=INDEX(YCARIN,'CVARNPH2')
1141 INDCVARNPH3=INDEX(YCARIN,'CVARNPH3')
1142 INDCVARNPH4=INDEX(YCARIN,'CVARNPH4')
1143 INDCVARNPH5=INDEX(YCARIN,'CVARNPH5')
1144 INDCVARNPH6=INDEX(YCARIN,'CVARNPH6')
1145 INDCVARNPH7=INDEX(YCARIN,'CVARNPH7')
1146 INDCVARNPH8=INDEX(YCARIN,'CVARNPH8')
1147 !
1148 INDNPHCOL1=INDEX(YCARIN,'NPHCOL1')
1149 INDNPHCOL2=INDEX(YCARIN,'NPHCOL2')
1150 INDNPHCOL3=INDEX(YCARIN,'NPHCOL3')
1151 INDNPHCOL4=INDEX(YCARIN,'NPHCOL4')
1152 INDNPHCOL5=INDEX(YCARIN,'NPHCOL5')
1153 INDNPHCOL6=INDEX(YCARIN,'NPHCOL6')
1154 INDNPHCOL7=INDEX(YCARIN,'NPHCOL7')
1155 INDNPHCOL8=INDEX(YCARIN,'NPHCOL8')
1156 !
1157 INDNPHSTY1=INDEX(YCARIN,'NPHSTY1')
1158 INDNPHSTY2=INDEX(YCARIN,'NPHSTY2')
1159 INDNPHSTY3=INDEX(YCARIN,'NPHSTY3')
1160 INDNPHSTY4=INDEX(YCARIN,'NPHSTY4')
1161 INDNPHSTY5=INDEX(YCARIN,'NPHSTY5')
1162 INDNPHSTY6=INDEX(YCARIN,'NPHSTY6')
1163 INDNPHSTY7=INDEX(YCARIN,'NPHSTY7')
1164 INDNPHSTY8=INDEX(YCARIN,'NPHSTY8')
1165 !*JD* Mars 2009
1166 !
1167 !G. TANGUY NOVEMBRE 2009
1168 INDL90TITYT=INDEX(YCARIN,'L90TITYT')
1169 INDL90TITYM=INDEX(YCARIN,'L90TITYM')
1170 INDL90TITYB=INDEX(YCARIN,'L90TITYB')
1171 !
1172 INDLPATCH=INDEX(YCARIN,'LPATCH')
1173 if(nverbia >0)then
1174   print *,' ***caresolv AV CARMEMORY'
1175 endif
1176 !!!0701
1177    INDPARTIEL=0
1178    INDPARTIEL= &
1179    INDIINF+INDISUP+INDJINF+INDJSUP+INDIDEBCOU+INDJDEBCOU+INDXIDEBCOU+ &
1180    INDXTIMEMIN + INDXTIMEMAX + INDNSZLBX + INDNSZLBY + &
1181    INDXJDEBCOU+INDNLANGLE+INDNLMAX+INDNIOFFD+INDNULBLL+INDNHI+INDNIMNMX &
1182    +INDNFT1ITVXMJ+INDNFT1ITVXMN+INDNFT1ITVYMJ+INDNFT1ITVYMN  &
1183    +INDNFTITVXMJ+INDNFTITVXMN+INDNFTITVYMJ+INDNFTITVYMN  + INDNSD &
1184    +INDNCHITVXMJ+INDNCHITVXMN+INDNCHITVYMJ+INDNCHITVYMN  &
1185    +INDNCHPCITVXMJ+INDNCHPCITVXMN+INDNCHPCITVYMJ+INDNCHPCITVYMN  &
1186    +INDNCVITVXMJ+INDNCVITVXMN+INDNCVITVYMJ+INDNCVITVYMN  &
1187    +INDNPVITVXMJ+INDNPVITVXMN+INDNPVITVYMJ+INDNPVITVYMN  &
1188    +INDNXYITVXMJ+INDNXYITVXMN+INDNXYITVYMJ+INDNXYITVYMN  &
1189    +INDNMASKITVXMJ+INDNMASKITVXMN+INDNMASKITVYMJ+INDNMASKITVYMN  &
1190    +INDXDIAINT+INDLXY+INDLXZ+INDLISO+INDLMINMAX+INDLCOLAREA+INDATFILE  &
1191    +INDLINTERPTOP+ INDLCOLISONE + INDLCOLRSONE+ INDLCOLRS1ONE+INDLRADAR   &
1192    +INDLRADIST+ INDLRADRAY + INDLFTBAUTO + INDLFT1BAUTO+ INDLSPOT &
1193    +INDLNOUVRS + INDLMYHEURX + INDNHEURXLBL + INDNHEURXGRAD   &
1194    +INDLCOLINE+INDLISOWHI+INDLCOLBR+INDLCOLAREASEL+INDLCOLINESEL+      &
1195    INDLSPVALT + INDLSEGM + INDLPRESY + INDLSPSECT + INDLEGVECT + &
1196    INDLVECTMNMX + INDLANIMK +INDLANIMT + INDLPRINT + INDLPRINTXY +     &
1197    INDLPOINTG + INDL2DBX + INDL2DBY + INDLXYO + INDLISOWHI2+INDLISOWHI3 + &
1198    INDLTABCOLDEF+INDNIFDC+INDNIGRNC+INDXHMIN+INDXHMAX+INDXISOMIN+      &
1199    INDXPMIN + INDXPMAX + INDXPINT + INDLSTREAM + INDLNOLABELX + INDLNOLABELY + &
1200    INDLMNMXUSER + INDLCOLUSER + INDNDOT + INDNISKIP +  INDLMNMXLOC +         &
1201    INDNISKIPVX + INDNISKIPVY + INDLTIMEUSER + INDLINTERPOLSTR +&
1202    INDLULMVTMOLD + INDNIRS + INDNJRS + INDXIRS + INDXJRS + INDXSPVAL + &
1203    INDXSPVALT + INDLPRDAT + INDNARSTR + INDNZSTR +                      &
1204    INDXISOMAX+INDVISU+INDNOVISU+INDXSIZEL+INDNPROFILE+INDXPVMIN+       &
1205    INDXAMX+INDXVHC+INDXVRL+INDXLATCAR+INDXLONCAR+ INDNVERBIA +           &
1206    INDXICAR + INDXJCAR + INDXLWPH1 + INDXLWPH2 + INDXLWPH3 + INDXLWPH4 + &
1207    INDXLWPH5 + INDXLWPH6 + INDXLWPH7 + INDXLWPH8 + &
1208    INDICOLNOM + INDICOLSYM + INDXSZTITT1 + INDXSZTITT2 +INDXSZTITT3 +      &
1209    INDXSZTITYT + INDXSZTITYM +INDXSZTITYB +      &
1210    INDNINDCOLUV + INDXVRLPH + INDXVHCPH + INDXSSP + INDXARLSTR + INDXLWSTR + &
1211    INDXSZTITB1 + INDXSZTITB2 + INDXSZTITB3 + INDXSZTITVAR1 + &
1212    INDXSZTITVAR2 + INDXSZTITVAR3 + INDXSZTITVAR4 + INDXSZTITVAR5 +   &
1213    INDXSZTITVAR6 + INDXSZTITVAR7 + INDXSZTITVAR8  + INDXPOSTITYT +   &
1214    INDXPOSTITYM + INDXPOSTITYB + INDXPOSTITT1 +   &
1215    INDXPOSTITT2 + INDXPOSTITT3 + INDXPOSTITB1 + INDXPOSTITB2 +   &
1216    INDXPOSTITB3 + INDXYPOSTITT1 + INDLCOLUSERUV + INDLNOLBLBAR + &
1217    INDXYPOSTITT2 + INDXYPOSTITT3 + INDXYPOSTITYT + INDXYPOSTITYM +   &
1218    INDXYPOSTITYB + INDXYPOSTITB1 + INDXYPOSTITB2 +   &
1219    INDXYPOSTITB3 + INDXPOSTITVAR1 +INDXPOSTITVAR2 + INDXPOSTITVAR3 + INDXPOSTITVAR4 
1220 !  INDXYPOSTITB3 + INDXPOSTITVAR1 +INDXPOSTITVAR2 + INDXPOSTITVAR3 + INDXPOSTITVAR4 + &
1221 !!!0701
1222    INDPARTIEL=INDPARTIEL + &
1223    INDXPOSTITVAR5 + INDXPOSTITVAR6 + INDXPOSTITVAR7 + INDXPOSTITVAR8 +  &
1224    INDXYPOSTITVAR1 + INDXYPOSTITVAR2 + INDXYPOSTITVAR3 + INDXYPOSTITVAR4 + &
1225    INDXYPOSTITVAR5 + INDXYPOSTITVAR6 + INDXYPOSTITVAR7 + INDXYPOSTITVAR8 +  &
1226    INDCSYMRAD1+INDCSYMRAD2+INDCSYMRAD3+INDCSYMRAD4+ &
1227    INDXLATRAD1+INDXLATRAD2+INDXLATRAD3+INDXLATRAD4+ &
1228    INDXLONRAD1+INDXLONRAD2+INDXLONRAD3+INDXLONRAD4+ &
1229    INDXISOMIN_ + INDXISOMAX_ + INDXDIAINT_ + INDLABEL1 + INDXVLC +        &
1230    INDXPORTRAD1+INDXPORTRAD2+INDXPORTRAD3+INDXPORTRAD4+ &
1231    INDXLWRAD1+INDXLWRAD2+INDXLWRAD3+INDXLWRAD4+ &
1232    INDCNOMCAR + INDCSYMCAR + INDXPOSNOM + INDXSZNOM + INDXSZSYM +     &
1233 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
1234 !! 19/12/2008 : modification pour controler la taille et le format des labels !!
1235 !! pour les retrotrajectoires                                                 !!
1236 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
1237
1238    INDNSZRTRAJ + INDLFMTRTRAJ + &
1239    !!!!!!!!!!!!!!!!!!!!!
1240    INDXPVMAX+INDXISOLEV+INDXFTMAX+INDXFTMIN+INDXPVKTMIN+INDXPVKTMAX+      &
1241    INDXPARCOLUV + &
1242    INDXFT_ADTIM1+ INDXFT_ADTIM2+INDXFT_ADTIM3 +INDXFT_ADTIM4 + &
1243    INDXFT_ADTIM5 + INDXFT_ADTIM6 + INDXFT_ADTIM7 + INDXFT_ADTIM8 + &
1244    INDXFT1_ADTIM1 + INDXFT1_ADTIM2 + INDXFT1_ADTIM3 + INDXFT1_ADTIM4 + &
1245    INDXFT1_ADTIM5 + INDXFT1_ADTIM6 + INDXFT1_ADTIM7 + INDXFT1_ADTIM8 + &
1246    INDXFT1MIN+INDXFT1MAX+INDXFT1MIN_+INDXFT1MAX_+INDXISOLEV_+             &
1247    INDLVPTUSER + INDLVPTVUSER + INDLVPTPVUSER + INDLXABSC + INDLXMINTOP +&
1248    INDXVPTL + INDXVPTR + INDXVPTB + INDXVPTT + INDLVPTXYUSER +         &
1249    INDXVPTVL + INDXVPTVR + INDXVPTVB + INDXVPTVT + INDLFACTIMP +           &
1250    INDXVPTPVL + INDXVPTPVR + INDXVPTPVB + INDXVPTPVT + INDLFMTAXEX +   &
1251    INDXVPTXYL + INDXVPTXYR + INDXVPTXYB + INDXVPTXYT + INDLFMTAXEY +       &
1252    INDLFACTAXEX + INDLFACTAXEY + INDLAXEXUSER + INDLAXEYUSER + &
1253    INDXFACTAXEX + INDXFACTAXEY + INDXAXEXUSERD + INDXAXEXUSERF + &
1254    INDXAXEYUSERD + INDXAXEYUSERF +  INDLBLFT1SUP + &
1255    INDXLWV + INDXLWDEF + INDXLWVDEF + INDLINVWB + INDLGEOG + INDLMASK3D + &
1256 !!!!!!!!!!!!JOEL!!!!!!!!!!
1257 !!!!!!!!!!!!JOEL!!!!!!!!!!
1258    INDXXPART+INDXYPART+INDXZPART+INDLTRAJ3D+INDLFLUX3D+INDLTRAJ_GROUP
1259 !!!!!!!!!!!!JOEL!!!!!!!!!!
1260 !!!!!!!!!!!!JOEL!!!!!!!!!!
1261    INDPARTIEL=INDPARTIEL + &
1262    INDLINVPTIR + INDLDOMAIN + INDXLWFTALL + INDXLWSEGM + INDNSTYLINZEROPV + &
1263    INDNDOMAINL + INDNDOMAINR + INDNDOMAINB + INDNDOMAINT + &
1264    INDLMASK3D_XY + INDLMASK3D_XZ + INDLMASK3D_YZ + INDLXYZ00 + &
1265    INDXLWPV1 + INDXLWPV2 + INDXLWPV3 + INDXLWPV4 + INDXLWPV5 + &
1266    INDXLWPV6 + INDXLWPV7 + INDXLWPV8 + INDXLWTRACECV + INDXLWDOMAIN + &
1267    INDXLWPV9 + INDXLWPV10 + &
1268    INDXLWPV11 + INDXLWPV12 + INDXLWPV13 + INDXLWPV14 + INDXLWPV15 + &
1269    INDXSTYLPV1 + INDXSTYLPV2 + INDXSTYLPV3 + INDXSTYLPV4 + INDXSTYLPV5 + &
1270    INDXSTYLPV6 + INDXSTYLPV7 + INDXSTYLPV8 + &
1271    INDXSTYLPV9 + INDXSTYLPV10 + &
1272    INDXSTYLPV11 + INDXSTYLPV12 + INDXSTYLPV13 + INDXSTYLPV14 + INDXSTYLPV15 + &
1273    INDLFT1STYLUSER + INDLFTSTYLUSER + INDLTITFTUSER + INDXLWCONT + &
1274    INDLPHCOLUSER + INDLPHSTYUSER + INDL24H +  &
1275    INDXLW + INDXLW1 + INDXLW2 + INDXLW3 + INDXLW4 + INDLMARKER + INDLFTCLIP + &
1276    INDLCOLZERO + INDNCOLZERO + INDLHACH1 + INDLHACH2 + INDLHACH3 + INDL3D +   &
1277    INDNCOLISONE1 + INDNCOLISONE2 + INDNCOLISONE3+INDNCOLISONE4+INDNCOLISONE5+ &
1278    INDNCOLRS1ONE1+INDNCOLRS1ONE2+INDNCOLRS1ONE3+INDNCOLRS1ONE4+INDNCOLRS1ONE5+ &
1279    INDNCOLRSONE  +   INDLHEURX + INDNCOLSEGM +                            &
1280 !!!0701
1281    INDXISOREF + INDXISOREF_ + INDLSPOT 
1282 !  print *,' ***caresolv INDPARTIEL C ',INDPARTIEL
1283 !JD240209
1284    INDPARTIEL=INDPARTIEL + &
1285    INDLFT1LUSER+INDNFT1STY1+INDNFT1STY2+INDNFT1STY3+INDNFT1STY4+ &
1286    INDNFT1STY5+INDNFT1STY6+INDNFT1STY7+INDNFT1STY8+INDNFT1STY9+ &
1287    INDNFT1STY10+INDNFT1STY11+INDNFT1STY12+INDNFT1STY13+INDNFT1STY14+ &
1288    INDNFT1STY15+INDNFT1COL1+INDNFT1COL2+INDNFT1COL3+INDNFT1COL4+INDNFT1COL5
1289 !  print *,' ***caresolv INDPARTIEL CA ',INDPARTIEL
1290    INDPARTIEL=INDPARTIEL + &
1291    INDNFT1COL6+INDNFT1COL7+INDNFT1COL8+INDNFT1COL9+INDNFT1COL10+ &
1292    INDNFT1COL11+INDNFT1COL12+INDNFT1COL13+INDNFT1COL14+INDNFT1COL15
1293 !  print *,' ***caresolv INDPARTIEL CB ',INDPARTIEL
1294    INDPARTIEL=INDPARTIEL + &
1295    INDXFT1LW1+INDXFT1LW2+INDXFT1LW3+INDXFT1LW4+INDXFT1LW5+ &
1296    INDXFT1LW6+INDXFT1LW7+INDXFT1LW8+INDXFT1LW9+INDXFT1LW10+ &
1297    INDXFT1LW11+INDXFT1LW12+INDXFT1LW13+INDXFT1LW14+INDXFT1LW15
1298 !  print *,' ***caresolv INDPARTIEL CC',INDPARTIEL
1299    INDPARTIEL=INDPARTIEL + &
1300    INDCFT1TIT1+INDCFT1TIT2+INDCFT1TIT3+INDCFT1TIT4+INDCFT1TIT5+ &
1301    INDCFT1TIT6+INDCFT1TIT7+INDCFT1TIT8+INDCFT1TIT9+INDCFT1TIT10+ &
1302    INDCFT1TIT11+INDCFT1TIT12+INDCFT1TIT13+INDCFT1TIT14+INDCFT1TIT15+ &
1303    INDLVPTFT1USER+INDXVPTFT1L+INDXVPTFT1R+INDXVPTFT1B+INDXVPTFT1T + &
1304    INDXSZVARNPVTOP + INDXSZVARNPVBOT + &
1305    INDXPOSXVARNPV5BOT + INDXPOSYVARNPV5BOT + INDLINZEROPV + &
1306    INDLVARNPVUSER + INDXPOSXVARNPV1TOP + INDXPOSYVARNPV1TOP +&
1307    INDCVARNPV1+INDCVARNPV2+INDCVARNPV3+INDCVARNPV4+INDCVARNPV5+ &
1308    INDCVARNPV6+INDCVARNPV7+INDCVARNPV8+INDCVARNPV9+INDCVARNPV10+ &
1309    INDCVARNPV11+INDCVARNPV12+INDCVARNPV13+INDCVARNPV14+INDCVARNPV15+&
1310    INDL90TITYT+INDL90TITYM+INDL90TITYB+&
1311    INDLVARNPHUSER + INDCVARNPH1+INDCVARNPH2+INDCVARNPH3+INDCVARNPH4+&
1312    INDCVARNPH5+ INDCVARNPH6+INDCVARNPH7+INDCVARNPH8+INDLPATCH
1313 !  print *,' ***caresolv INDPARTIEL D ',INDPARTIEL
1314 !  
1315    IF(INDPARTIEL + &
1316    INDNPHSTY1+INDNPHSTY2+INDNPHSTY3+INDNPHSTY4+ &
1317    INDNPHSTY5+INDNPHSTY6+INDNPHSTY7+INDNPHSTY8+ &
1318    INDNPHCOL1+INDNPHCOL2+INDNPHCOL3+INDNPHCOL4+ &
1319    INDNPHCOL5+INDNPHCOL6+INDNPHCOL7+INDNPHCOL8+ &
1320    INDLGREY + INDLXYNVARTOP + INDLXYSTYLTOP +&
1321    INDLHACH4 + INDLHACHSEL + INDLBLUSER1 + INDLBLUSER2 +               &
1322    INDLBLUSER3 + INDLBLUSER4 + INDLINDSP + INDLOGNEP + INDLTABCOLDEF2+ &
1323    INDXVARMIN +INDXVARMAX + INDXZTMIN + INDXZTMAX  + INDLINDAX + INDLCHREEL+ &
1324    INDXSZTITXL + INDXSZTITXM + INDXSZTITXR + INDXANGULVT + &
1325    INDLDEFCV2  + INDLDEFCV2LL + INDLDEFCV2IND + &
1326    INDXIDEBCV + INDXJDEBCV + INDXIFINCV + INDXJFINCV + &
1327    INDXXL + INDXXH + INDXYL + INDXYH + INDXZL + INDXZH + &
1328    INDXIDEBCVLL + INDXJDEBCVLL + INDXIFINCVLL + INDXJFINCVLL + & 
1329    INDLCONVG2MASS +&
1330    INDNIDEBCV + INDNJDEBCV + INDNIFINCV + INDNJFINCV + INDLM5S3 +  &
1331    INDLSYMB + INDLSYMBTEXTG + INDLSTI + INDLTEXTIT +INDLTEXTG + INDLTRACECV +&
1332    INDLCVZOOM + INDLVST + INDLDILW + INDLVSUPSCA + INDLXYWINCUR + &
1333    INDL2CONT + INDNCOLUV1 + INDNCOLUV2 + INDNCOLUV3 + INDNCOLUV4+ INDNCOLUV5 +&
1334    INDLCONT + INDLRELIEF +INDLCONV2XY + INDXPVMINT + INDXPVMAXT == 0)THEN
1335   CALL CARMEMORY(YCARIN,1)
1336 ENDIF
1337 if(nverbia >0)then
1338   print *,' ***caresolv INDPARTIEL ',INDPARTIEL
1339   print *,' ***caresolv AP CARMEMORY'
1340 endif
1341
1342 LCH =.TRUE.
1343 LCHXY=.FALSE.
1344 LCV =.FALSE.
1345 LCVXZ=.FALSE.
1346 LCVYZ=.FALSE.
1347 LPV =.FALSE.
1348 LPH =.FALSE.
1349 LPVT =.FALSE.
1350 LPXT =.FALSE.
1351 LPYT =.FALSE.
1352 LPVKT =.FALSE.
1353 LCN = .FALSE.
1354 LCNCUM = .FALSE.
1355 LCNSUM = .FALSE.
1356 LFT = .FALSE.
1357 LFT1 = .FALSE.
1358 L1K=.FALSE.
1359 LMINUS=.FALSE.
1360 LPLUS=.FALSE.
1361 LTK= .FALSE.
1362 LEV= .FALSE.
1363 LPR= .FALSE.
1364 LRS= .FALSE.
1365 LRS1= .FALSE.
1366 LPVKT1 =.FALSE.
1367 LZTPVKT1 =.FALSE.
1368 LMSKTOP=.FALSE.
1369 LSV3=.FALSE.
1370 LZT=.FALSE.
1371 LXT=.FALSE.
1372 LYT=.FALSE.
1373 LXYZ=.FALSE.
1374 LUMVMPV=.FALSE.
1375 LXYDIA=.FALSE.
1376 !LANIMK=.FALSE.
1377 !LANIMT=.FALSE.
1378 LSPLO=.FALSE.
1379 LSPO=.FALSE.
1380 LOSPLO=.FALSE.
1381 LPHALO=.FALSE.
1382 LPHAO=.FALSE.
1383 !LCONV2XY=.FALSE.
1384 if(nverbia > 0)then
1385 print *,' **caresolv LTK,LPR,LEV,LSV3 ',LTK,LPR,LEV,LSV3
1386 endif
1387
1388 LSUPERDIA=.FALSE.
1389 NSUPERDIA=0
1390 CARSUP(:)(1:LEN(CARSUP))=' '
1391 LSUPER=.FALSE.
1392 NSUPER=0
1393 LARROVL=.FALSE.
1394
1395 NBNDIA(:)=0
1396 NNDIA(:,:)=0
1397 LNDIALL(:)=.FALSE.
1398 NBPROCDIA(:)=0
1399 NPROCDIA(:,:)=0
1400 LPROCDIALL(:)=.FALSE.
1401 NBLVLKDIA(:,:)=0
1402 NLVLKDIA(:,:,:)=0
1403 LVLKDIALL(:,:)=.FALSE.
1404 NBLVLZDIA(:)=0
1405 XLVLZDIA(:,:)=0.
1406 NBTIMEDIA(:,:)=0
1407 NTIMEDIA(:,:,:)=0
1408 XTIMEDIA(:,:,:)=0.
1409 LTIMEDIALL(:,:)=.FALSE.
1410 NHISTORY(:)=0
1411
1412 NBPM=1
1413 NBPMT=0
1414 NUMPM(:)=0
1415 NGRIDIAM=0
1416
1417 NOPE(:)=0
1418 NOPEL=0
1419 XCONSTANTE(:)=0.
1420 CFACT(:)(1:LEN(CFACT))=' '
1421 if(nverbia >0)then
1422   print *,' ***caresolv AP INIT Logiques'
1423 endif
1424 ! Juillet 2001
1425 NMULTDIV(:)=0
1426 CMULTDIV(:)(1:LEN(CMULTDIV))=' '
1427 ! Juillet 2001
1428
1429 IF(INDIINF /= 0)THEN
1430   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDIINF,NIINF)
1431   IF(NIINF /= 999999999)THEN
1432     PRINT *,' NIINF FOURNI ',NIINF
1433   ENDIF
1434 ENDIF
1435 IF(INDJINF /= 0)THEN
1436   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDJINF,NJINF)
1437   IF(NJINF /= 999999999)THEN
1438     PRINT *,' NJINF FOURNI ',NJINF
1439   ENDIF
1440 ENDIF
1441 IF(INDNSZLBX /= 0)THEN
1442   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNSZLBX,NSZLBX)
1443   PRINT *,' NSZLBX FOURNI ',NSZLBX
1444 ENDIF
1445 IF(INDNSZLBY /= 0)THEN
1446   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNSZLBY,NSZLBY)
1447   PRINT *,' NSZLBY FOURNI ',NSZLBY
1448 ENDIF
1449 if(nverbia >5)then
1450   print *,' caresolv AV RESOLVI(INDISUP)'
1451 endif
1452 IF(INDISUP /= 0)THEN
1453   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDISUP,NISUP)
1454   IF(NISUP /= 999999999)THEN
1455     PRINT *,' NISUP FOURNI ',NISUP
1456   ENDIF
1457 ENDIF
1458 IF(INDJSUP /= 0)THEN
1459   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDJSUP,NJSUP)
1460   IF(NJSUP /= 999999999)THEN
1461     PRINT *,' NJSUP FOURNI ',NJSUP
1462   ENDIF
1463 ENDIF
1464 IF(INDIDEBCOU /= 0)THEN
1465   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDIDEBCOU,NIDEBCOU)
1466   IF(NIDEBCOU /= 999999999)THEN
1467     PRINT *,' NIDEBCOU FOURNI ',NIDEBCOU
1468   ENDIF
1469 ENDIF
1470 IF(INDJDEBCOU /= 0)THEN
1471   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDJDEBCOU,NJDEBCOU)
1472   IF(NJDEBCOU /= 999999999)THEN
1473     PRINT *,' NJDEBCOU FOURNI ',NJDEBCOU
1474   ENDIF
1475 ENDIF
1476 IF(INDNIDEBCV /= 0)THEN
1477   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNIDEBCV,NIDEBCV)
1478   print *,' VALEUR NIDEBCV FOURNIE : ',NIDEBCV
1479 ENDIF
1480 IF(INDNJDEBCV /= 0)THEN
1481   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNJDEBCV,NJDEBCV)
1482   print *,' VALEUR NJDEBCV FOURNIE : ',NJDEBCV
1483 ENDIF
1484 IF(INDNHEURXLBL /= 0)THEN
1485   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNHEURXLBL,NHEURXLBL)
1486   print *,' VALEUR NHEURXLBL FOURNIE : ',NHEURXLBL
1487 ENDIF
1488 IF(INDNHEURXGRAD /= 0)THEN
1489   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNHEURXGRAD,NHEURXGRAD)
1490   print *,' VALEUR NHEURXGRAD FOURNIE : ',NHEURXGRAD
1491 ENDIF
1492 IF(INDNIFINCV /= 0)THEN
1493   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNIFINCV,NIFINCV)
1494   print *,' VALEUR NIFINCV FOURNIE : ',NIFINCV
1495 ENDIF
1496 if(nverbia >5)then
1497   print *,' caresolv AV RESOLVI(INDNJFINCV)'
1498 endif
1499 IF(INDNJFINCV /= 0)THEN
1500   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNJFINCV,NJFINCV)
1501   print *,' VALEUR NJFINCV FOURNIE : ',NJFINCV
1502 ENDIF
1503 IF(INDXFACTAXEX /= 0)THEN
1504   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXFACTAXEX,XFACTAXEX)
1505   print *,' VALEUR XFACTAXEX FOURNIE : ',XFACTAXEX
1506 ENDIF
1507 IF(INDXFACTAXEY /= 0)THEN
1508   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXFACTAXEY,XFACTAXEY)
1509   print *,' VALEUR XFACTAXEY FOURNIE : ',XFACTAXEY
1510 ENDIF
1511 IF(INDXAXEXUSERD /= 0)THEN
1512   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXAXEXUSERD,XAXEXUSERD)
1513   print *,' VALEUR XAXEXUSERD FOURNIE : ',XAXEXUSERD
1514 ENDIF
1515 IF(INDXAXEYUSERD /= 0)THEN
1516   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXAXEYUSERD,XAXEYUSERD)
1517   print *,' VALEUR XAXEYUSERD FOURNIE : ',XAXEYUSERD
1518 ENDIF
1519 IF(INDXAXEXUSERF /= 0)THEN
1520   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXAXEXUSERF,XAXEXUSERF)
1521   print *,' VALEUR XAXEXUSERF FOURNIE : ',XAXEXUSERF
1522 ENDIF
1523 IF(INDXAXEYUSERF /= 0)THEN
1524   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXAXEYUSERF,XAXEYUSERF)
1525   print *,' VALEUR XAXEYUSERF FOURNIE : ',XAXEYUSERF
1526 ENDIF
1527 IF(INDXANGULVT /= 0)THEN
1528   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXANGULVT,XANGULVT)
1529   print *,' VALEUR XANGULVT FOURNIE : ',XANGULVT
1530 ENDIF
1531 if(nverbia >5)then
1532   print *,' caresolv AV RESOLVX(INDXIDEBCV)',INDXIDEBCV
1533 endif
1534 IF(INDXSSP /= 0)THEN
1535   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXSSP,XSSP)
1536   print *,' VALEUR XSSP FOURNIE : ',XSSP
1537 ENDIF
1538 IF(INDXARLSTR /= 0)THEN
1539   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXARLSTR,XARLSTR)
1540   print *,' VALEUR XARLSTR FOURNIE : ',XARLSTR
1541 ENDIF
1542 IF(INDXLWSTR /= 0)THEN
1543   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXLWSTR,XLWSTR)
1544   print *,' VALEUR XLWSTR FOURNIE : ',XLWSTR
1545 ENDIF
1546 IF(INDXIDEBCV /= 0)THEN
1547   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXIDEBCV,XIDEBCV)
1548   print *,' VALEUR XIDEBCV FOURNIE : ',XIDEBCV
1549 ENDIF
1550 if(nverbia >5)then
1551   print *,' caresolv AV RESOLVX(INDXJDEBCV)',INDXJDEBCV
1552 endif
1553 IF(INDXJDEBCV /= 0)THEN
1554   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXJDEBCV,XJDEBCV)
1555   print *,' VALEUR XJDEBCV FOURNIE : ',XJDEBCV
1556 ENDIF
1557 if(nverbia >5)then
1558   print *,' caresolv AV RESOLVX(INDXIDEBCVLL)',INDXIDEBCVLL
1559 endif
1560 IF(INDXIDEBCVLL /= 0)THEN
1561   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXIDEBCVLL,XIDEBCVLL)
1562   print *,' VALEUR XIDEBCVLL FOURNIE : ',XIDEBCVLL
1563 ENDIF
1564 IF(INDXJDEBCVLL /= 0)THEN
1565   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXJDEBCVLL,XJDEBCVLL)
1566   print *,' VALEUR XJDEBCVLL FOURNIE : ',XJDEBCVLL
1567 ENDIF
1568 IF(INDXIFINCV /= 0)THEN
1569   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXIFINCV,XIFINCV)
1570   print *,' VALEUR XIFINCV FOURNIE : ',XIFINCV
1571 ENDIF
1572 IF(INDXJFINCV /= 0)THEN
1573   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXJFINCV,XJFINCV)
1574   print *,' VALEUR XJFINCV FOURNIE : ',XJFINCV
1575 ENDIF
1576 IF(INDXIFINCVLL /= 0)THEN
1577   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXIFINCVLL,XIFINCVLL)
1578   print *,' VALEUR XIFINCVLL FOURNIE : ',XIFINCVLL
1579 ENDIF
1580 IF(INDXJFINCVLL /= 0)THEN
1581   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXJFINCVLL,XJFINCVLL)
1582   print *,' VALEUR XJFINCVLL FOURNIE : ',XJFINCVLL
1583 ENDIF
1584 IF(INDXTIMEMIN /= 0)THEN
1585   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXTIMEMIN,XTIMEMIN)
1586   print *,' VALEUR XTIMEMIN FOURNIE : ',XTIMEMIN
1587 ENDIF
1588 IF(INDXTIMEMAX /= 0)THEN
1589   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXTIMEMAX,XTIMEMAX)
1590   print *,' VALEUR XTIMEMAX FOURNIE : ',XTIMEMAX
1591 ENDIF
1592 IF(INDXIDEBCOU /= 0)THEN
1593   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXIDEBCOU,XIDEBCOU)
1594   print *,' VALEUR XIDEBCOU FOURNIE : ',XIDEBCOU
1595 ENDIF
1596 IF(INDXJDEBCOU /= 0)THEN
1597   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXJDEBCOU,XJDEBCOU)
1598   print *,' VALEUR XJDEBCOU FOURNIE : ',XJDEBCOU
1599 ENDIF
1600 IF(INDXPMIN /= 0)THEN
1601   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXPMIN,XPMIN)
1602   print *,' VALEUR XPMIN FOURNIE : ',XPMIN
1603 ENDIF
1604 IF(INDXPMAX /= 0)THEN
1605   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXPMAX,XPMAX)
1606   print *,' VALEUR XPMAX FOURNIE : ',XPMAX
1607 ENDIF
1608 IF(INDXPINT /= 0)THEN
1609   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXPINT,XPINT)
1610   print *,' VALEUR XPINT FOURNIE : ',XPINT
1611 ENDIF
1612 IF(INDXHMIN /= 0)THEN
1613   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXHMIN,XHMIN)
1614   print *,' VALEUR XHMIN FOURNIE : ',XHMIN
1615 ENDIF
1616 IF(INDXHMAX /= 0)THEN
1617   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXHMAX,XHMAX)
1618   print *,' VALEUR XHMAX FOURNIE : ',XHMAX
1619 ENDIF
1620 IF(INDXLATRAD1 /= 0)THEN
1621   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXLATRAD1,XLATRAD1)
1622   print *,' VALEUR XLATRAD1 FOURNIE : ',XLATRAD1
1623 ENDIF
1624 IF(INDXLATRAD2 /= 0)THEN
1625   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXLATRAD2,XLATRAD2)
1626   print *,' VALEUR XLATRAD2 FOURNIE : ',XLATRAD2
1627 ENDIF
1628 IF(INDXLATRAD3 /= 0)THEN
1629   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXLATRAD3,XLATRAD3)
1630   print *,' VALEUR XLATRAD3 FOURNIE : ',XLATRAD3
1631 ENDIF
1632 IF(INDXLATRAD4 /= 0)THEN
1633   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXLATRAD4,XLATRAD4)
1634   print *,' VALEUR XLATRAD4 FOURNIE : ',XLATRAD4
1635 ENDIF
1636 IF(INDXLONRAD1 /= 0)THEN
1637   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXLONRAD1,XLONRAD1)
1638   print *,' VALEUR XLONRAD1 FOURNIE : ',XLONRAD1
1639 ENDIF
1640 IF(INDXLONRAD2 /= 0)THEN
1641   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXLONRAD2,XLONRAD2)
1642   print *,' VALEUR XLONRAD2 FOURNIE : ',XLONRAD2
1643 ENDIF
1644 IF(INDXLONRAD3 /= 0)THEN
1645   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXLONRAD3,XLONRAD3)
1646   print *,' VALEUR XLONRAD3 FOURNIE : ',XLONRAD3
1647 ENDIF
1648 IF(INDXLONRAD4 /= 0)THEN
1649   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXLONRAD4,XLONRAD4)
1650   print *,' VALEUR XLONRAD4 FOURNIE : ',XLONRAD4
1651 ENDIF
1652 IF(INDXSPVAL /= 0)THEN
1653   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXSPVAL,XSPVAL)
1654   print *,' VALEUR XSPVAL FOURNIE : ',XSPVAL
1655 ENDIF
1656 IF(INDXSPVALT /= 0)THEN
1657   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXSPVALT,XSPVALT)
1658   print *,' VALEUR XSPVALT FOURNIE : ',XSPVALT
1659 ENDIF
1660 IF(INDXISOMIN /= 0)THEN
1661   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXISOMIN,XISOMIN)
1662   print *,' VALEUR XISOMIN FOURNIE : ',XISOMIN
1663 ENDIF
1664 IF(INDXISOMAX /= 0)THEN
1665   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXISOMAX,XISOMAX)
1666   print *,' VALEUR XISOMAX FOURNIE : ',XISOMAX
1667 ENDIF
1668 IF(INDXISOMIN_ /= 0)THEN
1669   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXISOMIN_,ZISO)
1670   CALL LOADMNMXINT_ISO(YCARIN(1:LEN_TRIM(YCARIN)),INDXISOMIN_,ZISO,1)
1671   print *,' VALEUR XISOMIN_ FOURNIE : ',ZISO
1672 ENDIF
1673 IF(INDXISOMAX_ /= 0)THEN
1674   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXISOMAX_,ZISO)
1675   CALL LOADMNMXINT_ISO(YCARIN(1:LEN_TRIM(YCARIN)),INDXISOMAX_,ZISO,2)
1676   print *,' VALEUR XISOMAX_ FOURNIE : ',ZISO
1677 ENDIF
1678 IF(INDXDIAINT /= 0)THEN
1679   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXDIAINT,XDIAINT)
1680   print *,' VALEUR XDIAINT FOURNIE : ',XDIAINT
1681 ENDIF
1682 IF(INDXDIAINT_ /= 0)THEN
1683   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXDIAINT_,ZISO)
1684   CALL LOADMNMXINT_ISO(YCARIN(1:LEN_TRIM(YCARIN)),INDXDIAINT_,ZISO,3)
1685   print *,' VALEUR XDIAINT_ FOURNIE : ',ZISO
1686 ENDIF
1687 IF(INDXISOREF /= 0)THEN
1688   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXISOREF,XISOREF)
1689   print *,' VALEUR XISOREF FOURNIE : ',XISOREF
1690 ENDIF
1691 IF(INDXISOREF_ /= 0)THEN
1692   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXISOREF_,ZISO)
1693   CALL LOADMNMXINT_ISO(YCARIN(1:LEN_TRIM(YCARIN)),INDXISOREF_,ZISO,4)
1694   print *,' VALEUR XISOREF_ FOURNIE : ',ZISO
1695 ENDIF
1696 IF(INDNLANGLE /= 0)THEN
1697   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNLANGLE,NLANGLE)
1698   IF(NLANGLE /= 999999999)THEN
1699     PRINT *,' NLANGLE FOURNI ',NLANGLE
1700   ENDIF
1701 ENDIF
1702 IF(INDNLMAX /= 0)THEN
1703   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNLMAX,NLMAX)
1704   IF(NLMAX /= 999999999)THEN
1705     PRINT *,' NLMAX FOURNI ',NLMAX
1706   ENDIF
1707 ENDIF
1708 IF(INDNZSTR /= 0)THEN
1709   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNZSTR,NZSTR)
1710   IF(NZSTR /= 999999999)THEN
1711     PRINT *,' NZSTR FOURNI ',NZSTR
1712   ENDIF
1713 ENDIF
1714 IF(INDNARSTR /= 0)THEN
1715   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNARSTR,NARSTR)
1716   IF(NARSTR /= 999999999)THEN
1717     PRINT *,' NARSTR FOURNI ',NARSTR
1718   ENDIF
1719 ENDIF
1720 IF(INDNIOFFD /= 0)THEN
1721   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNIOFFD,NIOFFD)
1722   IF(NIOFFD /= 999999999)THEN
1723     PRINT *,' NIOFFD FOURNI ',NIOFFD
1724   ENDIF
1725 ENDIF
1726 IF(INDNSD /= 0)THEN
1727   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNSD,NSD)
1728   IF(NSD /= 999999999)THEN
1729     PRINT *,' NSD FOURNI ',NSD
1730   ENDIF
1731 ENDIF
1732 !*JD* Mars 2009
1733 IF(INDNSTYLINZEROPV /=0)THEN
1734   if(nverbia >0)then
1735     print *,' **caresolv INDNSTYLINZEROPV,YCARIN ',INDNSTYLINZEROPV,YCARIN(1:LEN_TRIM(YCARIN))
1736   endif
1737   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNSTYLINZEROPV,NSTYLINZEROPV)
1738   print *,' VALEUR NSTYLINZEROPV FOURNIE : ',NSTYLINZEROPV
1739 ENDIF
1740 !*JD* Mars 2009
1741 IF(INDNULBLL /= 0)THEN
1742   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNULBLL,NULBLL)
1743   IF(NULBLL /= 999999999)THEN
1744     PRINT *,' NULBLL FOURNI ',NULBLL
1745   ENDIF
1746 ENDIF
1747 IF(INDNDOT /= 0)THEN
1748   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNDOT,NDOT)
1749   IF(NDOT /= 999999999)THEN
1750     PRINT *,' NDOT FOURNI ',NDOT
1751   ENDIF
1752 ENDIF
1753 IF(INDNISKIP /= 0)THEN
1754   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNISKIP,NISKIP)
1755   IF(NISKIP /= 999999999)THEN
1756     PRINT *,' NISKIP FOURNI ',NISKIP
1757   ENDIF
1758 ENDIF
1759 IF(INDNCOLSEGM /= 0)THEN
1760   CALL RESOLVIARRAY(YCARIN(1:LEN_TRIM(YCARIN)),INDNCOLSEGM,NCOLSEGMS,NCOLSEGM)
1761   PRINT *,' NCOLSEGMS FOURNI ',NCOLSEGMS(1:NCOLSEGM)
1762   DO J=NCOLSEGM+1,SIZE(NCOLSEGMS)
1763     NCOLSEGMS(J)=1
1764   ENDDO
1765   if(nverbia > 0)THEN
1766     print *,' ** NCOLSEGMS ',NCOLSEGMS
1767   endif
1768 ENDIF
1769 !IF(INDNCOLSEGM /= 0)THEN
1770 ! CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNCOLSEGM,NCOLSEGM)
1771 ! PRINT *,' NCOLSEGM FOURNI ',NCOLSEGM
1772 !ENDIF
1773 IF(INDNISKIPVY /= 0)THEN
1774   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNISKIPVY,NISKIPVY)
1775   IF(NISKIPVY /= 999999999)THEN
1776     PRINT *,' NISKIPVY FOURNI ',NISKIPVY
1777   ENDIF
1778 ENDIF
1779 IF(INDNISKIPVX /= 0)THEN
1780   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNISKIPVX,NISKIPVX)
1781   IF(NISKIPVX /= 999999999)THEN
1782     PRINT *,' NISKIPVX FOURNI ',NISKIPVX
1783   ENDIF
1784 ENDIF
1785 IF(INDNHI /= 0)THEN
1786   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNHI,NHI)
1787   IF(NHI /= 999999999)THEN
1788     PRINT *,' NHI FOURNI ',NHI
1789   ENDIF
1790 ENDIF
1791 IF(INDNIMNMX /= 0)THEN
1792   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNIMNMX,NIMNMX)
1793   IF(NIMNMX /= 999999999)THEN
1794     PRINT *,' NIMNMX FOURNI ',NIMNMX
1795   ENDIF
1796 ENDIF
1797 IF(INDNFT1ITVXMJ /= 0)THEN
1798   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNFT1ITVXMJ,NFT1ITVXMJ)
1799   IF(NFT1ITVXMJ /= 999999999)THEN
1800     PRINT *,' NFT1ITVXMJ FOURNI ',NFT1ITVXMJ
1801   ENDIF
1802 ENDIF
1803 IF(INDNFT1ITVXMN /= 0)THEN
1804   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNFT1ITVXMN,NFT1ITVXMN)
1805   IF(NFT1ITVXMN /= 999999999)THEN
1806     PRINT *,' NFT1ITVXMN FOURNI ',NFT1ITVXMN
1807   ENDIF
1808 ENDIF
1809 IF(INDNFT1ITVYMJ /= 0)THEN
1810   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNFT1ITVYMJ,NFT1ITVYMJ)
1811   IF(NFT1ITVYMJ /= 999999999)THEN
1812     PRINT *,' NFT1ITVYMJ FOURNI ',NFT1ITVYMJ
1813   ENDIF
1814 ENDIF
1815 IF(INDNFT1ITVYMN /= 0)THEN
1816   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNFT1ITVYMN,NFT1ITVYMN)
1817   IF(NFT1ITVYMN /= 999999999)THEN
1818     PRINT *,' NFT1ITVYMN FOURNI ',NFT1ITVYMN
1819   ENDIF
1820 ENDIF
1821 IF(INDNFTITVXMJ /= 0)THEN
1822   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNFTITVXMJ,NFTITVXMJ)
1823   IF(NFTITVXMJ /= 999999999)THEN
1824     PRINT *,' NFTITVXMJ FOURNI ',NFTITVXMJ
1825   ENDIF
1826 ENDIF
1827 IF(INDNFTITVXMN /= 0)THEN
1828   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNFTITVXMN,NFTITVXMN)
1829   IF(NFTITVXMN /= 999999999)THEN
1830     PRINT *,' NFTITVXMN FOURNI ',NFTITVXMN
1831   ENDIF
1832 ENDIF
1833 IF(INDNFTITVYMJ /= 0)THEN
1834   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNFTITVYMJ,NFTITVYMJ)
1835   IF(NFTITVYMJ /= 999999999)THEN
1836     PRINT *,' NFTITVYMJ FOURNI ',NFTITVYMJ
1837   ENDIF
1838 ENDIF
1839 IF(INDNFTITVYMN /= 0)THEN
1840   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNFTITVYMN,NFTITVYMN)
1841   IF(NFTITVYMN /= 999999999)THEN
1842     PRINT *,' NFTITVYMN FOURNI ',NFTITVYMN
1843   ENDIF
1844 ENDIF
1845 IF(INDNCHITVXMJ /= 0)THEN
1846   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNCHITVXMJ,NCHITVXMJ)
1847   IF(NCHITVXMJ /= 999999999)THEN
1848     PRINT *,' NCHITVXMJ FOURNI ',NCHITVXMJ
1849   ENDIF
1850 ENDIF
1851 IF(INDNCHITVXMN /= 0)THEN
1852   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNCHITVXMN,NCHITVXMN)
1853   IF(NCHITVXMN /= 999999999)THEN
1854     PRINT *,' NCHITVXMN FOURNI ',NCHITVXMN
1855   ENDIF
1856 ENDIF
1857 IF(INDNCHITVYMJ /= 0)THEN
1858   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNCHITVYMJ,NCHITVYMJ)
1859   IF(NCHITVYMJ /= 999999999)THEN
1860     PRINT *,' NCHITVYMJ FOURNI ',NCHITVYMJ
1861   ENDIF
1862 ENDIF
1863 IF(INDNCHITVYMN /= 0)THEN
1864   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNCHITVYMN,NCHITVYMN)
1865   IF(NCHITVYMN /= 999999999)THEN
1866     PRINT *,' NCHITVYMN FOURNI ',NCHITVYMN
1867   ENDIF
1868 ENDIF
1869 IF(INDNCHPCITVXMJ /= 0)THEN
1870   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNCHPCITVXMJ,NCHPCITVXMJ)
1871   IF(NCHPCITVXMJ /= 999999999)THEN
1872     PRINT *,' NCHPCITVXMJ FOURNI ',NCHPCITVXMJ
1873   ENDIF
1874 ENDIF
1875 IF(INDNCHPCITVXMN /= 0)THEN
1876   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNCHPCITVXMN,NCHPCITVXMN)
1877   IF(NCHPCITVXMN /= 999999999)THEN
1878     PRINT *,' NCHPCITVXMN FOURNI ',NCHPCITVXMN
1879   ENDIF
1880 ENDIF
1881 IF(INDNCHPCITVYMJ /= 0)THEN
1882   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNCHPCITVYMJ,NCHPCITVYMJ)
1883   IF(NCHPCITVYMJ /= 999999999)THEN
1884     PRINT *,' NCHPCITVYMJ FOURNI ',NCHPCITVYMJ
1885   ENDIF
1886 ENDIF
1887 IF(INDNCHPCITVYMN /= 0)THEN
1888   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNCHPCITVYMN,NCHPCITVYMN)
1889   IF(NCHPCITVYMN /= 999999999)THEN
1890     PRINT *,' NCHPCITVYMN FOURNI ',NCHPCITVYMN
1891   ENDIF
1892 ENDIF
1893 IF(INDNCVITVXMJ /= 0)THEN
1894   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNCVITVXMJ,NCVITVXMJ)
1895   IF(NCVITVXMJ /= 999999999)THEN
1896     PRINT *,' NCVITVXMJ FOURNI ',NCVITVXMJ
1897   ENDIF
1898 ENDIF
1899 IF(INDNCVITVXMN /= 0)THEN
1900   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNCVITVXMN,NCVITVXMN)
1901   IF(NCVITVXMN /= 999999999)THEN
1902     PRINT *,' NCVITVXMN FOURNI ',NCVITVXMN
1903   ENDIF
1904 ENDIF
1905 IF(INDNCVITVYMJ /= 0)THEN
1906   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNCVITVYMJ,NCVITVYMJ)
1907   IF(NCVITVYMJ /= 999999999)THEN
1908     PRINT *,' NCVITVYMJ FOURNI ',NCVITVYMJ
1909   ENDIF
1910 ENDIF
1911 IF(INDNCVITVYMN /= 0)THEN
1912   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNCVITVYMN,NCVITVYMN)
1913   IF(NCVITVYMN /= 999999999)THEN
1914     PRINT *,' NCVITVYMN FOURNI ',NCVITVYMN
1915   ENDIF
1916 ENDIF
1917 IF(INDNPVITVXMJ /= 0)THEN
1918   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNPVITVXMJ,NPVITVXMJ)
1919   IF(NPVITVXMJ /= 999999999)THEN
1920     PRINT *,' NPVITVXMJ FOURNI ',NPVITVXMJ
1921   ENDIF
1922 ENDIF
1923 IF(INDNPVITVXMN /= 0)THEN
1924   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNPVITVXMN,NPVITVXMN)
1925   IF(NPVITVXMN /= 999999999)THEN
1926     PRINT *,' NPVITVXMN FOURNI ',NPVITVXMN
1927   ENDIF
1928 ENDIF
1929 IF(INDNPVITVYMJ /= 0)THEN
1930   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNPVITVYMJ,NPVITVYMJ)
1931   IF(NPVITVYMJ /= 999999999)THEN
1932     PRINT *,' NPVITVYMJ FOURNI ',NPVITVYMJ
1933   ENDIF
1934 ENDIF
1935 IF(INDNPVITVYMN /= 0)THEN
1936   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNPVITVYMN,NPVITVYMN)
1937   IF(NPVITVYMN /= 999999999)THEN
1938     PRINT *,' NPVITVYMN FOURNI ',NPVITVYMN
1939   ENDIF
1940 ENDIF
1941 IF(INDNXYITVXMJ /= 0)THEN
1942   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNXYITVXMJ,NXYITVXMJ)
1943   IF(NXYITVXMJ /= 999999999)THEN
1944     PRINT *,' NXYITVXMJ FOURNI ',NXYITVXMJ
1945   ENDIF
1946 ENDIF
1947 IF(INDNXYITVXMN /= 0)THEN
1948   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNXYITVXMN,NXYITVXMN)
1949   IF(NXYITVXMN /= 999999999)THEN
1950     PRINT *,' NXYITVXMN FOURNI ',NXYITVXMN
1951   ENDIF
1952 ENDIF
1953 IF(INDNXYITVYMJ /= 0)THEN
1954   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNXYITVYMJ,NXYITVYMJ)
1955   IF(NXYITVYMJ /= 999999999)THEN
1956     PRINT *,' NXYITVYMJ FOURNI ',NXYITVYMJ
1957   ENDIF
1958 ENDIF
1959 IF(INDNXYITVYMN /= 0)THEN
1960   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNXYITVYMN,NXYITVYMN)
1961   IF(NXYITVYMN /= 999999999)THEN
1962     PRINT *,' NXYITVYMN FOURNI ',NXYITVYMN
1963   ENDIF
1964 ENDIF
1965 IF(INDNMASKITVXMJ /= 0)THEN
1966   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNMASKITVXMJ,NMASKITVXMJ)
1967   IF(NMASKITVXMJ /= 999999999)THEN
1968     PRINT *,' NMASKITVXMJ FOURNI ',NMASKITVXMJ
1969   ENDIF
1970 ENDIF
1971 IF(INDNMASKITVXMN /= 0)THEN
1972   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNMASKITVXMN,NMASKITVXMN)
1973   IF(NMASKITVXMN /= 999999999)THEN
1974     PRINT *,' NMASKITVXMN FOURNI ',NMASKITVXMN
1975   ENDIF
1976 ENDIF
1977 IF(INDNMASKITVYMJ /= 0)THEN
1978   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNMASKITVYMJ,NMASKITVYMJ)
1979   IF(NMASKITVYMJ /= 999999999)THEN
1980     PRINT *,' NMASKITVYMJ FOURNI ',NMASKITVYMJ
1981   ENDIF
1982 ENDIF
1983 IF(INDNMASKITVYMN /= 0)THEN
1984   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNMASKITVYMN,NMASKITVYMN)
1985   IF(NMASKITVYMN /= 999999999)THEN
1986     PRINT *,' NMASKITVYMN FOURNI ',NMASKITVYMN
1987   ENDIF
1988 ENDIF
1989 !!!!!!!!!!!
1990 IF(INDLINZEROPV /= 0)THEN
1991   if(nverbia >0)then
1992     print *,' ++caresolv AV RESOLVL(INDLINZEROPV ',INDLINZEROPV
1993   endif
1994   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLINZEROPV,LINZEROPV)
1995 ENDIF
1996 IF(INDLVARNPVUSER /= 0)THEN
1997   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLVARNPVUSER,LVARNPVUSER)
1998 ENDIF
1999 IF(INDLVARNPHUSER /= 0)THEN
2000   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLVARNPHUSER,LVARNPHUSER)
2001 ENDIF
2002
2003 IF(INDLVPTFT1USER /= 0)THEN
2004   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLVPTFT1USER,LVPTFT1USER)
2005 ENDIF
2006 !!!!!!!!!!!
2007 IF(INDLM5S3 /= 0)THEN
2008   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLM5S3,LM5S3)
2009 ENDIF
2010 IF(INDLCVZOOM /= 0)THEN
2011   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLCVZOOM,LCVZOOM)
2012 ENDIF
2013 IF(INDLVST /= 0)THEN
2014   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLVST,LVST)
2015 ENDIF
2016 IF(INDLDILW /= 0)THEN
2017   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLDILW,LDILW)
2018 ENDIF
2019 IF(INDLXYNVARTOP /= 0)THEN
2020   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLXYNVARTOP,LXYNVARTOP)
2021 ENDIF
2022 IF(INDLXYSTYLTOP /= 0)THEN
2023   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLXYSTYLTOP,LXYSTYLTOP)
2024 ENDIF
2025 IF(INDLXYWINCUR /= 0)THEN
2026   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLXYWINCUR,LXYWINCUR)
2027 ENDIF
2028 IF(INDLVSUPSCA /= 0)THEN
2029   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLVSUPSCA,LVSUPSCA)
2030 ENDIF
2031 IF(INDLSYMB /= 0)THEN
2032   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLSYMB,LSYMB)
2033 ENDIF
2034 IF(INDLSYMBTEXTG /= 0)THEN
2035   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLSYMBTEXTG,LSYMBTEXTG)
2036 ENDIF
2037 IF(INDLTEXTG /= 0)THEN
2038   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLTEXTG,LTEXTG)
2039 ENDIF
2040 IF(INDLSTI /= 0)THEN
2041   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLSTI,LSTI)
2042 ENDIF
2043 IF(INDLTEXTIT /= 0)THEN
2044   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLTEXTIT,LTEXTIT)
2045 ENDIF
2046 IF(INDLTRACECV /= 0)THEN
2047   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLTRACECV,LTRACECV)
2048 ENDIF
2049 IF(INDLSEGM /= 0)THEN
2050   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLSEGM,LSEGM)
2051 ENDIF
2052 IF(INDLXY /= 0)THEN
2053   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLXY,LXY)
2054 ENDIF
2055 IF(INDLXZ /= 0)THEN
2056   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLXZ,LXZ)
2057 ENDIF
2058 IF(INDLISO /= 0)THEN
2059   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLISO,LISO)
2060 ENDIF
2061 IF(INDLANIMK /= 0)THEN
2062   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLANIMK,LANIMK)
2063 ENDIF
2064 IF(INDLANIMT /= 0)THEN
2065   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLANIMT,LANIMT)
2066 ENDIF
2067 IF(INDLMINMAX /= 0)THEN
2068   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLMINMAX,LMINMAX)
2069 ENDIF
2070 IF(INDATFILE /= 0)THEN
2071   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDATFILE,LDATFILE)
2072 ENDIF
2073 IF(INDLINTERPTOP /= 0)THEN
2074   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLINTERPTOP,LINTERPTOP)
2075 ENDIF
2076 IF(INDLRADAR /= 0)THEN
2077   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLRADAR,LRADAR)
2078 ENDIF
2079 IF(INDLRADRAY /= 0)THEN
2080   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLRADRAY,LRADRAY)
2081 ENDIF
2082 IF(INDLRADIST /= 0)THEN
2083   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLRADIST,LRADIST)
2084 ENDIF
2085 IF(INDLFTBAUTO /= 0)THEN
2086   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLFTBAUTO,LFTBAUTO)
2087 ENDIF
2088 IF(INDLFT1BAUTO /= 0)THEN
2089   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLFT1BAUTO,LFT1BAUTO)
2090 ENDIF
2091 IF(INDLCOLAREA /= 0)THEN
2092   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLCOLAREA,LCOLAREA)
2093 ! IF(.NOT.LCOLAREA)CALL TABCOL_FORDIACHRO
2094 ENDIF
2095 IF(INDLEGVECT /= 0)THEN
2096   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLEGVECT,LEGVECT)
2097 ENDIF
2098 IF(INDLSTREAM /= 0)THEN
2099   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLSTREAM,LSTREAM)
2100 ENDIF
2101 IF(INDLINTERPOLSTR /= 0)THEN
2102   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLINTERPOLSTR,LINTERPOLSTR)
2103 ENDIF
2104 IF(INDLNOLBLBAR /= 0)THEN
2105   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLNOLBLBAR,LNOLBLBAR)
2106 ENDIF
2107 IF(INDLNOLABELX /= 0)THEN
2108   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLNOLABELX,LNOLABELX)
2109 ENDIF
2110 IF(INDLNOLABELY /= 0)THEN
2111   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLNOLABELY,LNOLABELY)
2112 ENDIF
2113 IF(INDLPRESY /= 0)THEN
2114   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLPRESY,LPRESY)
2115 ENDIF
2116 IF(INDLSPSECT /= 0)THEN
2117   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLSPSECT,LSPSECT)
2118 ENDIF
2119 IF(INDLSPVALT /= 0)THEN
2120   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLSPVALT,LSPVALT)
2121 ENDIF
2122 IF(INDLXABSC /= 0)THEN
2123   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLXABSC,LXABSC)
2124 ENDIF
2125 IF(INDLTITFTUSER /= 0)THEN
2126   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLTITFTUSER,LTITFTUSER)
2127 ENDIF
2128 IF(INDLPHCOLUSER /= 0)THEN
2129   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLPHCOLUSER,LPHCOLUSER)
2130 ENDIF
2131 IF(INDLPHSTYUSER /= 0)THEN
2132   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLPHSTYUSER,LPHSTYUSER)
2133 ENDIF
2134 IF(INDLXMINTOP /= 0)THEN
2135   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLXMINTOP,LXMINTOP)
2136 ENDIF
2137 IF(INDLABEL1 /= 0)THEN
2138   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLABEL1,LABEL1)
2139 ENDIF
2140 IF(INDLDEFCV2 /= 0)THEN
2141   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLDEFCV2,LDEFCV2)
2142   IF(LDEFCV2)THEN
2143     LDEFCV2LL=.FALSE.
2144     LDEFCV2IND=.FALSE.
2145   ENDIF
2146 ENDIF
2147 IF(INDLDEFCV2LL /= 0)THEN
2148   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLDEFCV2LL,LDEFCV2LL)
2149   IF(LDEFCV2LL)THEN
2150     LDEFCV2=.FALSE.
2151     LDEFCV2IND=.FALSE.
2152   ENDIF
2153 ENDIF
2154 IF(INDLDEFCV2IND /= 0)THEN
2155   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLDEFCV2IND,LDEFCV2IND)
2156   IF(LDEFCV2IND)THEN
2157     LDEFCV2=.FALSE.
2158     LDEFCV2LL=.FALSE.
2159   ENDIF
2160 ENDIF
2161 ! NOV 2009 G. TANGUY
2162 IF(INDL90TITYT /= 0)THEN
2163   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDL90TITYT,L90TITYT)
2164 ENDIF
2165 IF(INDL90TITYM /= 0)THEN
2166   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDL90TITYM,L90TITYM)
2167 ENDIF
2168 IF(INDL90TITYB /= 0)THEN
2169   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDL90TITYB,L90TITYB)
2170 ENDIF
2171 IF(INDLPATCH /= 0)THEN
2172   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLPATCH,LPATCH)
2173 ENDIF
2174
2175 !!! NOV 2009
2176 IF(NVERBIA > 0)THEN
2177 print *,' CARESOLV LDEFCV2,LDEFCV2LL,LDEFCV2IND,LDEFCV2CC ',LDEFCV2,LDEFCV2LL,LDEFCV2IND,LDEFCV2CC
2178 ENDIF
2179 IF(LDEFCV2 .OR. LDEFCV2LL .OR. LDEFCV2IND)THEN
2180   LDEFCV2CC=.TRUE.
2181 ELSE
2182   LDEFCV2CC=.FALSE.
2183 ENDIF
2184 IF(INDLBLUSER1 /= 0)THEN
2185   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLBLUSER1,LBLUSER1)
2186   IF(LBLUSER1)THEN
2187     IF(ALLOCATED(XLBLUSER1))THEN
2188       DEALLOCATE(XLBLUSER1)
2189     ENDIF
2190     PRINT *,'Indiquez le nombre de isolignes à labeller'
2191     READ(5,*)NLBL1
2192     YCAR80(1:80)=' '
2193   !  WRITE(YCAR80,*)NLBL1
2194   !  YCAR80=ADJUSTL(ADJUSTR(YCAR80))
2195     !WRITE(NDIR,*)YCAR80
2196     CALL WRITEDIR(NDIR,NLBL1)
2197 #ifdef RHODES
2198         CALL FLUSH(NDIR,ISTAF)
2199 #else
2200         CALL FLUSH(NDIR)
2201 #endif
2202     YCAR80(1:80)=' '
2203     ALLOCATE(XLBLUSER1(NLBL1))
2204     PRINT *,'Indiquez les ',NLBL1,' valeurs'
2205     READ(5,*)XLBLUSER1
2206     !WRITE(YCAR80,*)XLBLUSER1(1:NLBL1)
2207     !YCAR80=ADJUSTL(ADJUSTR(YCAR80))
2208     !WRITE(NDIR,*)YCAR80
2209     CALL WRITEDIR(NDIR,XLBLUSER1(1:NLBL1))
2210 #ifdef RHODES
2211         CALL FLUSH(NDIR,ISTAF)
2212 #else
2213         CALL FLUSH(NDIR)
2214 #endif
2215   ENDIF
2216 ENDIF
2217 IF(INDLBLUSER2 /= 0)THEN
2218   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLBLUSER2,LBLUSER2)
2219   IF(LBLUSER2)THEN
2220     IF(ALLOCATED(XLBLUSER2))THEN
2221       DEALLOCATE(XLBLUSER2)
2222     ENDIF
2223     PRINT *,'Indiquez le nombre de isolignes à labeller'
2224     READ(5,*)NLBL2
2225     !YCAR80(1:80)=' '
2226    ! WRITE(YCAR80,*)NLBL2
2227   !  YCAR80=ADJUSTL(ADJUSTR(YCAR80))
2228     !WRITE(NDIR,*)YCAR80
2229     CALL WRITEDIR(NDIR,NLBL2)
2230 #ifdef RHODES
2231         CALL FLUSH(NDIR,ISTAF)
2232 #else
2233         CALL FLUSH(NDIR)
2234 #endif
2235     YCAR80(1:80)=' '
2236     ALLOCATE(XLBLUSER2(NLBL2))
2237     PRINT *,'Indiquez les ',NLBL2,' valeurs'
2238     READ(5,*)XLBLUSER2
2239   !  WRITE(YCAR80,*)XLBLUSER2(1:NLBL2)
2240   !  YCAR80=ADJUSTL(ADJUSTR(YCAR80))
2241     !WRITE(NDIR,*)YCAR80
2242     CALL WRITEDIR(NDIR,XLBLUSER2(1:NLBL2))
2243 #ifdef RHODES
2244         CALL FLUSH(NDIR,ISTAF)
2245 #else
2246         CALL FLUSH(NDIR)
2247 #endif
2248   ENDIF
2249 ENDIF
2250 IF(INDLBLUSER3 /= 0)THEN
2251   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLBLUSER3,LBLUSER3)
2252   IF(LBLUSER3)THEN
2253     IF(ALLOCATED(XLBLUSER3))THEN
2254       DEALLOCATE(XLBLUSER3)
2255     ENDIF
2256     PRINT *,'Indiquez le nombre de isolignes à labeller'
2257     READ(5,*)NLBL3
2258    ! YCAR80(1:80)=' '
2259    ! WRITE(YCAR80,*)NLBL3
2260    ! YCAR80=ADJUSTL(ADJUSTR(YCAR80))
2261     !WRITE(NDIR,*)YCAR80
2262     CALL WRITEDIR(NDIR,NLBL3)
2263 #ifdef RHODES
2264         CALL FLUSH(NDIR,ISTAF)
2265 #else
2266         CALL FLUSH(NDIR)
2267 #endif
2268     YCAR80(1:80)=' '
2269     ALLOCATE(XLBLUSER3(NLBL3))
2270     PRINT *,'Indiquez les ',NLBL3,' valeurs'
2271     READ(5,*)XLBLUSER3
2272     !WRITE(YCAR80,*)XLBLUSER3(1:NLBL3)
2273     !YCAR80=ADJUSTL(ADJUSTR(YCAR80))
2274     !WRITE(NDIR,*)YCAR80
2275     CALL WRITEDIR(NDIR,XLBLUSER3(1:NLBL3))
2276 #ifdef RHODES
2277         CALL FLUSH(NDIR,ISTAF)
2278 #else
2279         CALL FLUSH(NDIR)
2280 #endif
2281   ENDIF
2282 ENDIF
2283 IF(INDLBLUSER4 /= 0)THEN
2284   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLBLUSER4,LBLUSER4)
2285   IF(LBLUSER4)THEN
2286     IF(ALLOCATED(XLBLUSER4))THEN
2287       DEALLOCATE(XLBLUSER4)
2288     ENDIF
2289     PRINT *,'Indiquez le nombre de isolignes à labeller'
2290     READ(5,*)NLBL4
2291     YCAR80(1:80)=' '
2292     !WRITE(YCAR80,*)NLBL4
2293     !YCAR80=ADJUSTL(ADJUSTR(YCAR80))
2294     !WRITE(NDIR,*)YCAR80
2295     CALL WRITEDIR(NDIR,NLBL4)
2296 #ifdef RHODES
2297         CALL FLUSH(NDIR,ISTAF)
2298 #else
2299         CALL FLUSH(NDIR)
2300 #endif
2301     YCAR80(1:80)=' '
2302     ALLOCATE(XLBLUSER4(NLBL4))
2303     PRINT *,'Indiquez les ',NLBL4,' valeurs'
2304     READ(5,*)XLBLUSER4
2305     !WRITE(YCAR80,*)XLBLUSER4(1:NLBL4)
2306     !YCAR80=ADJUSTL(ADJUSTR(YCAR80))
2307     !WRITE(NDIR,*)YCAR80
2308     CALL WRITEDIR(NDIR,XLBLUSER4(1:NLBL4))
2309 #ifdef RHODES
2310         CALL FLUSH(NDIR,ISTAF)
2311 #else
2312         CALL FLUSH(NDIR)
2313 #endif
2314   ENDIF
2315 ENDIF
2316 IF(INDLINDSP /= 0)THEN
2317   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLINDSP,LINDSP)
2318 ENDIF
2319 IF(INDLINDAX /= 0)THEN
2320   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLINDAX,LINDAX)
2321 ENDIF
2322 IF(INDLCHREEL /= 0)THEN
2323   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLCHREEL,LCHREEL)
2324 ENDIF
2325 IF(INDLOGNEP /= 0)THEN
2326   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLOGNEP,LOGNEP)
2327 ENDIF
2328 IF(INDLCOLISONE /= 0)THEN
2329   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLCOLISONE,LCOLISONE)
2330 ENDIF
2331 IF(INDLCOLRSONE /= 0)THEN
2332   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLCOLRSONE,LCOLRSONE)
2333 ENDIF
2334 IF(INDLCOLRS1ONE /= 0)THEN
2335   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLCOLRS1ONE,LCOLRS1ONE)
2336 ENDIF
2337 IF(INDLCOLINE /= 0)THEN
2338   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLCOLINE,LCOLINE)
2339 ENDIF
2340 IF(INDL24H /= 0)THEN
2341   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDL24H,L24H)
2342 ENDIF
2343 IF(INDLCONT /= 0)THEN
2344   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLCONT,LCONT)
2345 ENDIF
2346 IF(INDL2CONT /= 0)THEN
2347   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDL2CONT,L2CONT)
2348 ENDIF
2349 IF(INDLRELIEF /= 0)THEN
2350   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLRELIEF,LRELIEF)
2351 ENDIF
2352 IF(INDLCONV2XY /= 0)THEN
2353   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLCONV2XY,LCONV2XY)
2354 ENDIF
2355 IF(INDLCONVG2MASS /= 0)THEN
2356   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLCONVG2MASS,LCONVG2MASS)
2357 ENDIF
2358 IF(INDLCOLZERO /= 0)THEN
2359   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLCOLZERO,LCOLZERO)
2360 ENDIF
2361 IF(INDL3D /= 0)THEN
2362   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDL3D,L3D)
2363 ENDIF
2364 IF(INDLMARKER /= 0)THEN
2365   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLMARKER,LMARKER)
2366 ENDIF
2367 IF(INDLSPOT /= 0)THEN
2368   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLSPOT,LSPOT)
2369 ENDIF
2370 IF(INDLHEURX /= 0)THEN
2371   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLHEURX,LHEURX)
2372 ENDIF
2373 IF(INDLMYHEURX /= 0)THEN
2374   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLMYHEURX,LMYHEURX)
2375 ENDIF
2376 IF(INDLNOUVRS /= 0)THEN
2377   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLNOUVRS,LNOUVRS)
2378 ENDIF
2379 IF(INDLHACH1 /= 0)THEN
2380   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLHACH1,LHACH1)
2381 ENDIF
2382 IF(INDLHACH2 /= 0)THEN
2383   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLHACH2,LHACH2)
2384 ENDIF
2385 IF(INDLHACH3 /= 0)THEN
2386   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLHACH3,LHACH3)
2387 ENDIF
2388 IF(INDLHACH4 /= 0)THEN
2389   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLHACH4,LHACH4)
2390 ENDIF
2391 IF(INDLHACHSEL /= 0)THEN
2392   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLHACHSEL,LHACHSEL)
2393 ENDIF
2394 IF(INDLGREY /= 0)THEN
2395   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLGREY,LGREY)
2396 ENDIF
2397 IF(INDLPRDAT /= 0)THEN
2398   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLPRDAT,LPRDAT)
2399 ENDIF
2400 IF(INDLPRINT /= 0)THEN
2401   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLPRINT,LPRINT)
2402 ENDIF
2403 IF(INDLPRINTXY /= 0)THEN
2404   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLPRINTXY,LPRINTXY)
2405 ENDIF
2406 IF(INDLPOINTG /= 0)THEN
2407   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLPOINTG,LPOINTG)
2408 ENDIF
2409 IF(INDLXYO /= 0)THEN
2410   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLXYO,LXYO)
2411 ENDIF
2412 IF(INDL2DBX /= 0)THEN
2413   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDL2DBX,L2DBX)
2414 ENDIF
2415 IF(INDL2DBY /= 0)THEN
2416   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDL2DBY,L2DBY)
2417 ENDIF
2418 IF(INDLCOLUSER /= 0)THEN
2419   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLCOLUSER,LCOLUSER)
2420 ENDIF
2421 IF(INDLTIMEUSER /= 0)THEN
2422   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLTIMEUSER,LTIMEUSER)
2423 ENDIF
2424 IF(INDLCOLUSERUV /= 0)THEN
2425   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLCOLUSERUV,LCOLUSERUV)
2426 ENDIF
2427 IF(INDLVECTMNMX /= 0)THEN
2428   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLVECTMNMX,LVECTMNMX)
2429 ENDIF
2430 IF(INDLISOWHI /= 0)THEN
2431   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLISOWHI,LISOWHI)
2432 ENDIF
2433 IF(INDLISOWHI2 /= 0)THEN
2434   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLISOWHI2,LISOWHI2)
2435 ENDIF
2436 IF(INDLISOWHI3 /= 0)THEN
2437   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLISOWHI3,LISOWHI3)
2438 ENDIF
2439 IF(INDLCOLBR /= 0)THEN
2440   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLCOLBR,LCOLBR)
2441 ENDIF
2442 IF(INDLINVWB /= 0)THEN
2443   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLINVWB,LINVWB)
2444 ENDIF
2445 IF(INDLINVPTIR /= 0)THEN
2446   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLINVPTIR,LINVPTIR)
2447 ENDIF
2448 IF(INDLDOMAIN /= 0)THEN
2449   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLDOMAIN,LDOMAIN)
2450 ENDIF
2451 IF(INDLGEOG /= 0)THEN
2452   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLGEOG,LGEOG)
2453 ENDIF
2454 IF(INDLBLFT1SUP /= 0)THEN
2455   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLBLFT1SUP,LBLFT1SUP)
2456 ENDIF
2457 IF(INDLXYZ00 /= 0)THEN
2458   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLXYZ00,LXYZ00)
2459 ENDIF
2460 IF(INDLFT1LUSER /= 0)THEN
2461   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLFT1LUSER,LFT1LUSER)
2462 ENDIF
2463 ! Si LMASK3D_XY=T ou LMASK3D_XZ=T ou LMASK3D_YZ=T -> LMASK3D=T
2464 IF(INDLMASK3D_XY /= 0)THEN
2465   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLMASK3D_XY,LMASK3D_XY)
2466 ! IF(LMASK3D_XY)THEN
2467 !   LMASK3D=.TRUE.
2468 ! ENDIF
2469 ENDIF
2470 IF(INDLMASK3D_XZ /= 0)THEN
2471   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLMASK3D_XZ,LMASK3D_XZ)
2472 ! IF(LMASK3D_XZ)THEN
2473 !   LMASK3D=.TRUE.
2474 ! ENDIF
2475 ENDIF
2476 IF(INDLMASK3D_YZ /= 0)THEN
2477   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLMASK3D_YZ,LMASK3D_YZ)
2478 ! IF(LMASK3D_YZ)THEN
2479 !   LMASK3D=.TRUE.
2480 ! ENDIF
2481 ENDIF
2482 !IF(INDLMASK3D /= 0 .OR. LMASK3D)THEN
2483 IF(INDLMASK3D /= 0 )THEN
2484 ! IF(.NOT.LMASK3D)THEN
2485     CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLMASK3D,LMASK3D)
2486     IF(LMASK3D)THEN
2487       LMASK3D_XY=.TRUE.
2488       LMASK3D_XZ=.TRUE.
2489       LMASK3D_YZ=.TRUE.
2490     ENDIF
2491 ENDIF
2492   IF(LMASK3D .OR. LMASK3D_XY .OR. LMASK3D_XZ .OR. LMASK3D_YZ)THEN
2493     IF(XXL == 0. .AND. XXH == 0. .AND. XYL == 0. .AND. XYH == 0. &
2494        .AND. XZL == 0. .AND. XZH == 0.)THEN
2495        print *,' Definissez une fenetre (en metres) dans XXL= XXH= XYL= XYH= XZL= XZH='
2496        print *,' Et rentrez a nouveau votre directive '
2497        IF(LMASK3D)THEN
2498          LMASK3D=.FALSE.
2499          LMASK3D_XY=.FALSE.
2500          LMASK3D_XZ=.FALSE.
2501          LMASK3D_YZ=.FALSE.
2502        ENDIF
2503 ! Septembre 2000
2504 #ifdef RHODES
2505         CALL FLUSH(NDIR,ISTAF)
2506 #else
2507         CALL FLUSH(NDIR)
2508 #endif
2509        RETURN
2510     ELSE
2511       CALL TRAMASK3D
2512       IF(LPBREAD)THEN
2513         LPBREAD=.FALSE.
2514       ENDIF
2515 !     IF(.NOT.LMASK3D_XY .AND. .NOT.LMASK3D_XZ .AND. .NOT.LMASK3D_YZ)THEN
2516       IF(LMASK3D)THEN
2517         LMASK3D=.FALSE.
2518         print *,' LMASK3D remis a .FALSE. Pour une nouvelle visualisation du masque'
2519         print *,' Rentrez a nouveau la directive LMASK3D=T . '
2520         LMASK3D_XY=.FALSE.
2521         LMASK3D_XZ=.FALSE.
2522         LMASK3D_YZ=.FALSE.
2523       ELSE IF(LMASK3D_XY)THEN
2524         LMASK3D_XY=.FALSE.
2525         print *,' LMASK3D_XY remis a .FALSE. '
2526 !       LMASK3D=.FALSE.
2527       ELSE IF(LMASK3D_XZ)THEN
2528         LMASK3D_XZ=.FALSE.
2529         print *,' LMASK3D_XZ remis a .FALSE. '
2530 !       LMASK3D=.FALSE.
2531       ELSE IF(LMASK3D_YZ)THEN
2532         LMASK3D_YZ=.FALSE.
2533 !       LMASK3D=.FALSE.
2534         print *,' LMASK3D_YZ remis a .FALSE. '
2535       ENDIF
2536 !   ENDIF
2537   ENDIF
2538 ENDIF
2539 !!!!!!!!!!!!JOEL!!!!!!!!!!
2540 !!!!!!!!!!!!JOEL!!!!!!!!!!
2541 !
2542 IF(INDLTRAJ_GROUP /= 0 )THEN
2543     CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLTRAJ_GROUP,LTRAJ_GROUP)
2544 ENDIF
2545 !
2546 IF(INDLFLUX3D /= 0 )THEN
2547     CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLFLUX3D,LFLUX3D)
2548 ENDIF
2549 IF (LFLUX3D) THEN
2550   IF(XXPART(1) == -999.)THEN
2551     print *,' Definissez d abord les positions initiales de vos particules'
2552     print *,' par des tableaux XXPART= ....,9999. '
2553     print *,'                  XYPART= ....,9999. '
2554     print *,' et               XZPART= ....,9999. '
2555     print *,' Et rentrez a nouveau votre directive '
2556 ! Septembre 2000
2557 #ifdef RHODES
2558         CALL FLUSH(NDIR,ISTAF)
2559 #else
2560         CALL FLUSH(NDIR)
2561 #endif
2562     RETURN
2563   ELSE
2564     CALL TRAFLUX3D
2565     IF(LPBREAD)THEN
2566       LPBREAD=.FALSE.
2567     ENDIF
2568     IF(LFLUX3D)THEN
2569       LFLUX3D=.FALSE.
2570       print *,' LFLUX3D remis a .FALSE. Pour une nouvelle visualisation '
2571       print *,' de lignes de flux'
2572       print *,' Rentrez a nouveau la directive LFLUX3D=T . '
2573     ENDIF
2574   ENDIF
2575 ENDIF
2576 !
2577 IF(INDLTRAJ3D /= 0 )THEN
2578     CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLTRAJ3D,LTRAJ3D)
2579 ENDIF
2580 IF(LTRAJ3D) THEN
2581   IF(XXPART(1) == -999.)THEN
2582     print *,' Definissez d abord les positions initiales de vos particules'
2583     print *,' par des tableaux XXPART= ....,9999. '
2584     print *,'                  XYPART= ....,9999. '
2585     print *,' et               XZPART= ....,9999. '
2586     print *,' Et rentrez a nouveau votre directive '
2587 ! Septembre 2000
2588 #ifdef RHODES
2589         CALL FLUSH(NDIR,ISTAF)
2590 #else
2591         CALL FLUSH(NDIR)
2592 #endif
2593     RETURN
2594   ELSE
2595     CALL TRATRAJ3D
2596     IF(LPBREAD)THEN
2597       LPBREAD=.FALSE.
2598     ENDIF
2599     IF(LTRAJ3D)THEN
2600       LTRAJ3D=.FALSE.
2601       print *,' LTRAJ3D remis a .FALSE. Pour une nouvelle visualisation '
2602       print *,' de particules'
2603       print *,' Rentrez a nouveau la directive LTRAJ3D=T . '
2604     ENDIF
2605   ENDIF
2606 ENDIF
2607 !!!!!!!!!!!!JOEL!!!!!!!!!!
2608 !!!!!!!!!!!!JOEL!!!!!!!!!!
2609 IF(INDLFT3C /= 0)THEN
2610   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLFT3C,LFT3C)
2611 ENDIF
2612 IF(INDLFT4C /= 0)THEN
2613   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLFT4C,LFT4C)
2614 ENDIF
2615 IF(INDLFTCLIP /= 0)THEN
2616   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLFTCLIP,LFTCLIP)
2617 ENDIF
2618 IF(INDLFT1STYLUSER /= 0)THEN
2619   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLFT1STYLUSER,LFT1STYLUSER)
2620 ENDIF
2621 IF(INDLFTSTYLUSER /= 0)THEN
2622   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLFTSTYLUSER,LFTSTYLUSER)
2623 ENDIF
2624 IF(INDLCOLAREASEL /= 0)THEN
2625   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLCOLAREASEL,LCOLAREASEL)
2626 ENDIF
2627 IF(INDLCOLINESEL /= 0)THEN
2628   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLCOLINESEL,LCOLINESEL)
2629 ENDIF
2630 IF(INDLTABCOLDEF /= 0)THEN
2631   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLTABCOLDEF,LTABCOLDEF)
2632 ENDIF
2633 IF(INDLTABCOLDEF2 /= 0)THEN
2634   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLTABCOLDEF2,LTABCOLDEF2)
2635 ENDIF
2636 IF(INDLMNMXUSER /= 0)THEN
2637   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLMNMXUSER,LMNMXUSER)
2638 ENDIF
2639 IF(INDLMNMXLOC /= 0)THEN
2640   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLMNMXLOC,LMNMXLOC)
2641 ENDIF
2642 IF(INDLULMVTMOLD /= 0)THEN
2643   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLULMVTMOLD,LULMVTMOLD)
2644 ENDIF
2645 IF(INDLVPTUSER /= 0)THEN
2646   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLVPTUSER,LVPTUSER)
2647 ENDIF
2648 IF(INDLVPTVUSER /= 0)THEN
2649   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLVPTVUSER,LVPTVUSER)
2650 ENDIF
2651 IF(INDLVPTPVUSER /= 0)THEN
2652   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLVPTPVUSER,LVPTPVUSER)
2653 ENDIF
2654 IF(INDLVPTXYUSER /= 0)THEN
2655   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLVPTXYUSER,LVPTXYUSER)
2656 ENDIF
2657 IF(INDLFACTIMP /= 0)THEN
2658   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLFACTIMP,LFACTIMP)
2659 ENDIF
2660 IF(INDLFACTAXEX /= 0)THEN
2661   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLFACTAXEX,LFACTAXEX)
2662 ENDIF
2663 IF(INDLFACTAXEY /= 0)THEN
2664   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLFACTAXEY,LFACTAXEY)
2665 ENDIF
2666 IF(INDLAXEXUSER /= 0)THEN
2667   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLAXEXUSER,LAXEXUSER)
2668 ENDIF
2669 IF(INDLAXEYUSER /= 0)THEN
2670   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLAXEYUSER,LAXEYUSER)
2671 ENDIF
2672 IF(INDLFMTAXEX /= 0)THEN
2673   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLFMTAXEX,LFMTAXEX)
2674 ENDIF
2675 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
2676 !! 19/12/2008 : modification pour controler la taille et le format des labels !!
2677 !! pour les retrotrajectoires                                                 !!
2678 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
2679 IF(INDLFMTRTRAJ /= 0)THEN
2680   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLFMTRTRAJ,LFMTRTRAJ)
2681 ENDIF
2682 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
2683 IF(INDLFMTAXEY /= 0)THEN
2684   CALL RESOLVL(YCARIN(1:LEN_TRIM(YCARIN)),INDLFMTAXEY,LFMTAXEY)
2685 ENDIF
2686 IF(INDNIFDC /= 0)THEN
2687   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNIFDC,NIFDC)
2688   IF(NIFDC /= 999999999)THEN
2689     PRINT *,' NIFDC FOURNI ',NIFDC
2690   ENDIF
2691 ENDIF
2692 IF(INDNDOMAINL /= 0)THEN
2693   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNDOMAINL,NDOMAINL)
2694   IF(NDOMAINL /= 999999999)THEN
2695     PRINT *,' NDOMAINL FOURNI ',NDOMAINL
2696   ENDIF
2697 ENDIF
2698 IF(INDNDOMAINR /= 0)THEN
2699   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNDOMAINR,NDOMAINR)
2700   IF(NDOMAINR /= 999999999)THEN
2701     PRINT *,' NDOMAINR FOURNI ',NDOMAINR
2702   ENDIF
2703 ENDIF
2704 IF(INDNDOMAINB /= 0)THEN
2705   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNDOMAINB,NDOMAINB)
2706   IF(NDOMAINB /= 999999999)THEN
2707     PRINT *,' NDOMAINB FOURNI ',NDOMAINB
2708   ENDIF
2709 ENDIF
2710 IF(INDNDOMAINT /= 0)THEN
2711   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNDOMAINT,NDOMAINT)
2712   IF(NDOMAINT /= 999999999)THEN
2713     PRINT *,' NDOMAINT FOURNI ',NDOMAINT
2714   ENDIF
2715 ENDIF
2716 IF(INDNIGRNC /= 0)THEN
2717   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNIGRNC,NIGRNC)
2718   IF(NIGRNC /= 999999999)THEN
2719     PRINT *,' NIGRNC FOURNI ',NIGRNC
2720   ENDIF
2721 ENDIF
2722 IF(INDNPROFILE /= 0)THEN
2723   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNPROFILE,NPROFILE)
2724   IF(NPROFILE /= 999999999)THEN
2725     PRINT *,' PROFILE FOURNI ',NPROFILE
2726   ENDIF
2727 ENDIF
2728 IF(INDNIRS /= 0)THEN
2729   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNIRS,NIRS)
2730   IF(NIRS /= 999999999)THEN
2731     PRINT *,' NIRS FOURNI ',NIRS
2732     XIRS=-999.
2733   ENDIF
2734 ENDIF
2735 IF(INDNJRS /= 0)THEN
2736   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNJRS,NJRS)
2737   IF(NJRS /= 999999999)THEN
2738     PRINT *,' NJRS FOURNI ',NJRS
2739     XJRS=-999.
2740   ENDIF
2741 ENDIF
2742 IF(INDNCOLUV1 /= 0)THEN
2743   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNCOLUV1,NCOLUV1)
2744   PRINT *,' NCOLUV1 FOURNI ',NCOLUV1
2745 ENDIF
2746 IF(INDNCOLUV2 /= 0)THEN
2747   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNCOLUV2,NCOLUV2)
2748   PRINT *,' NCOLUV2 FOURNI ',NCOLUV2
2749 ENDIF
2750 IF(INDNCOLUV3 /= 0)THEN
2751   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNCOLUV3,NCOLUV3)
2752   PRINT *,' NCOLUV3 FOURNI ',NCOLUV3
2753 ENDIF
2754 IF(INDNCOLUV4 /= 0)THEN
2755   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNCOLUV4,NCOLUV4)
2756   PRINT *,' NCOLUV4 FOURNI ',NCOLUV4
2757 ENDIF
2758 IF(INDNCOLUV5 /= 0)THEN
2759   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNCOLUV5,NCOLUV5)
2760   PRINT *,' NCOLUV5 FOURNI ',NCOLUV5
2761 ENDIF
2762 IF(INDNCOLISONE1 /= 0)THEN
2763   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNCOLISONE1,NCOLISONE1)
2764   PRINT *,' NCOLISONE1 FOURNI ',NCOLISONE1
2765 ENDIF
2766 IF(INDNCOLISONE2 /= 0)THEN
2767   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNCOLISONE2,NCOLISONE2)
2768   PRINT *,' NCOLISONE2 FOURNI ',NCOLISONE2
2769 ENDIF
2770 IF(INDNCOLISONE3 /= 0)THEN
2771   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNCOLISONE3,NCOLISONE3)
2772   PRINT *,' NCOLISONE3 FOURNI ',NCOLISONE3
2773 ENDIF
2774 IF(INDNCOLISONE4 /= 0)THEN
2775   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNCOLISONE4,NCOLISONE4)
2776   PRINT *,' NCOLISONE4 FOURNI ',NCOLISONE4
2777 ENDIF
2778 IF(INDNCOLISONE5 /= 0)THEN
2779   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNCOLISONE5,NCOLISONE5)
2780   PRINT *,' NCOLISONE5 FOURNI ',NCOLISONE5
2781 ENDIF
2782 IF(INDNCOLRS1ONE1 /= 0)THEN
2783   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNCOLRS1ONE1,NCOLRS1ONE1)
2784   PRINT *,' NCOLRS1ONE1 FOURNI ',NCOLRS1ONE1
2785 ENDIF
2786 IF(INDNCOLRS1ONE2 /= 0)THEN
2787   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNCOLRS1ONE2,NCOLRS1ONE2)
2788   PRINT *,' NCOLRS1ONE2 FOURNI ',NCOLRS1ONE2
2789 ENDIF
2790 IF(INDNCOLRS1ONE3 /= 0)THEN
2791   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNCOLRS1ONE3,NCOLRS1ONE3)
2792   PRINT *,' NCOLRS1ONE3 FOURNI ',NCOLRS1ONE3
2793 ENDIF
2794 IF(INDNCOLRS1ONE4 /= 0)THEN
2795   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNCOLRS1ONE4,NCOLRS1ONE4)
2796   PRINT *,' NCOLRS1ONE4 FOURNI ',NCOLRS1ONE4
2797 ENDIF
2798 IF(INDNCOLRS1ONE5 /= 0)THEN
2799   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNCOLRS1ONE5,NCOLRS1ONE5)
2800   PRINT *,' NCOLRS1ONE5 FOURNI ',NCOLRS1ONE5
2801 ENDIF
2802 IF(INDNCOLRSONE /= 0)THEN
2803   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNCOLRSONE,NCOLRSONE)
2804   PRINT *,' NCOLRSONE FOURNI ',NCOLRSONE
2805 ENDIF
2806 IF(INDNCOLZERO /= 0)THEN
2807   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNCOLZERO,NCOLZERO)
2808   PRINT *,' NCOLZERO FOURNI ',NCOLZERO
2809 ENDIF
2810 IF(INDNVERBIA /= 0)THEN
2811   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNVERBIA,NVERBIA)
2812   PRINT *,' NVERBIA FOURNI ',NVERBIA
2813 ENDIF
2814 !
2815 IF(INDNFT1STY1 /= 0)THEN
2816   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNFT1STY1,NFT1STY1)
2817   PRINT *,' NFT1STY1 FOURNI ',NFT1STY1
2818 ENDIF
2819 IF(INDNFT1STY2 /= 0)THEN
2820   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNFT1STY2,NFT1STY2)
2821   PRINT *,' NFT1STY2 FOURNI ',NFT1STY2
2822 ENDIF
2823 IF(INDNFT1STY3 /= 0)THEN
2824   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNFT1STY3,NFT1STY3)
2825   PRINT *,' NFT1STY3 FOURNI ',NFT1STY3
2826 ENDIF
2827 IF(INDNFT1STY4 /= 0)THEN
2828   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNFT1STY4,NFT1STY4)
2829   PRINT *,' NFT1STY4 FOURNI ',NFT1STY4
2830 ENDIF
2831 IF(INDNFT1STY5 /= 0)THEN
2832   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNFT1STY5,NFT1STY5)
2833   PRINT *,' NFT1STY5 FOURNI ',NFT1STY5
2834 ENDIF
2835 IF(INDNFT1STY6 /= 0)THEN
2836   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNFT1STY6,NFT1STY6)
2837   PRINT *,' NFT1STY6 FOURNI ',NFT1STY6
2838 ENDIF
2839 IF(INDNFT1STY7 /= 0)THEN
2840   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNFT1STY7,NFT1STY7)
2841   PRINT *,' NFT1STY7 FOURNI ',NFT1STY7
2842 ENDIF
2843 IF(INDNFT1STY8 /= 0)THEN
2844   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNFT1STY8,NFT1STY8)
2845   PRINT *,' NFT1STY8 FOURNI ',NFT1STY8
2846 ENDIF
2847 IF(INDNFT1STY9 /= 0)THEN
2848   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNFT1STY9,NFT1STY9)
2849   PRINT *,' NFT1STY9 FOURNI ',NFT1STY9
2850 ENDIF
2851 IF(INDNFT1STY10 /= 0)THEN
2852   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNFT1STY10,NFT1STY10)
2853   PRINT *,' NFT1STY10 FOURNI ',NFT1STY10
2854 ENDIF
2855 IF(INDNFT1STY11 /= 0)THEN
2856   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNFT1STY11,NFT1STY11)
2857   PRINT *,' NFT1STY11 FOURNI ',NFT1STY11
2858 ENDIF
2859 IF(INDNFT1STY12 /= 0)THEN
2860   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNFT1STY12,NFT1STY12)
2861   PRINT *,' NFT1STY12 FOURNI ',NFT1STY12
2862 ENDIF
2863 IF(INDNFT1STY13 /= 0)THEN
2864   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNFT1STY13,NFT1STY13)
2865   PRINT *,' NFT1STY13 FOURNI ',NFT1STY13
2866 ENDIF
2867 IF(INDNFT1STY14 /= 0)THEN
2868   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNFT1STY14,NFT1STY14)
2869   PRINT *,' NFT1STY14 FOURNI ',NFT1STY14
2870 ENDIF
2871 IF(INDNFT1STY15 /= 0)THEN
2872   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNFT1STY15,NFT1STY15)
2873   PRINT *,' NFT1STY15 FOURNI ',NFT1STY15
2874 ENDIF
2875 !
2876 IF(INDNFT1COL1 /= 0)THEN
2877   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNFT1COL1,NFT1COL1)
2878   PRINT *,' NFT1COL1 FOURNI ',NFT1COL1
2879 ENDIF
2880 IF(INDNFT1COL2 /= 0)THEN
2881   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNFT1COL2,NFT1COL2)
2882   PRINT *,' NFT1COL2 FOURNI ',NFT1COL2
2883 ENDIF
2884 IF(INDNFT1COL3 /= 0)THEN
2885   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNFT1COL3,NFT1COL3)
2886   PRINT *,' NFT1COL3 FOURNI ',NFT1COL3
2887 ENDIF
2888 IF(INDNFT1COL4 /= 0)THEN
2889   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNFT1COL4,NFT1COL4)
2890   PRINT *,' NFT1COL4 FOURNI ',NFT1COL4
2891 ENDIF
2892 IF(INDNFT1COL5 /= 0)THEN
2893   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNFT1COL5,NFT1COL5)
2894   PRINT *,' NFT1COL5 FOURNI ',NFT1COL5
2895 ENDIF
2896 IF(INDNFT1COL6 /= 0)THEN
2897   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNFT1COL6,NFT1COL6)
2898   PRINT *,' NFT1COL6 FOURNI ',NFT1COL6
2899 ENDIF
2900 IF(INDNFT1COL7 /= 0)THEN
2901   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNFT1COL7,NFT1COL7)
2902   PRINT *,' NFT1COL7 FOURNI ',NFT1COL7
2903 ENDIF
2904 IF(INDNFT1COL8 /= 0)THEN
2905   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNFT1COL8,NFT1COL8)
2906   PRINT *,' NFT1COL8 FOURNI ',NFT1COL8
2907 ENDIF
2908 IF(INDNFT1COL9 /= 0)THEN
2909   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNFT1COL9,NFT1COL9)
2910   PRINT *,' NFT1COL9 FOURNI ',NFT1COL9
2911 ENDIF
2912 IF(INDNFT1COL10 /= 0)THEN
2913   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNFT1COL10,NFT1COL10)
2914   PRINT *,' NFT1COL10 FOURNI ',NFT1COL10
2915 ENDIF
2916 IF(INDNFT1COL11 /= 0)THEN
2917   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNFT1COL11,NFT1COL11)
2918   PRINT *,' NFT1COL11 FOURNI ',NFT1COL11
2919 ENDIF
2920 IF(INDNFT1COL12 /= 0)THEN
2921   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNFT1COL12,NFT1COL12)
2922   PRINT *,' NFT1COL12 FOURNI ',NFT1COL12
2923 ENDIF
2924 IF(INDNFT1COL13 /= 0)THEN
2925   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNFT1COL13,NFT1COL13)
2926   PRINT *,' NFT1COL13 FOURNI ',NFT1COL13
2927 ENDIF
2928 IF(INDNFT1COL14 /= 0)THEN
2929   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNFT1COL14,NFT1COL14)
2930   PRINT *,' NFT1COL14 FOURNI ',NFT1COL14
2931 ENDIF
2932 IF(INDNFT1COL15 /= 0)THEN
2933   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNFT1COL15,NFT1COL15)
2934   PRINT *,' NFT1COL15 FOURNI ',NFT1COL15
2935 ENDIF
2936 !
2937 IF(INDNPHCOL1 /= 0)THEN
2938   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNPHCOL1,NPHCOL1)
2939   PRINT *,' NPHCOL1 FOURNI ',NPHCOL1
2940 ENDIF
2941 IF(INDNPHCOL2 /= 0)THEN
2942   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNPHCOL2,NPHCOL2)
2943   PRINT *,' NPHCOL2 FOURNI ',NPHCOL2
2944 ENDIF
2945 IF(INDNPHCOL3 /= 0)THEN
2946   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNPHCOL3,NPHCOL3)
2947   PRINT *,' NPHCOL3 FOURNI ',NPHCOL3
2948 ENDIF
2949 IF(INDNPHCOL4 /= 0)THEN
2950   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNPHCOL4,NPHCOL4)
2951   PRINT *,' NPHCOL4 FOURNI ',NPHCOL4
2952 ENDIF
2953 IF(INDNPHCOL5 /= 0)THEN
2954   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNPHCOL5,NPHCOL5)
2955   PRINT *,' NPHCOL5 FOURNI ',NPHCOL5
2956 ENDIF
2957 IF(INDNPHCOL6 /= 0)THEN
2958   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNPHCOL6,NPHCOL6)
2959   PRINT *,' NPHCOL6 FOURNI ',NPHCOL6
2960 ENDIF
2961 IF(INDNPHCOL7 /= 0)THEN
2962   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNPHCOL7,NPHCOL7)
2963   PRINT *,' NPHCOL7 FOURNI ',NPHCOL7
2964 ENDIF
2965 IF(INDNPHCOL8 /= 0)THEN
2966   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNPHCOL8,NPHCOL8)
2967   PRINT *,' NPHCOL8 FOURNI ',NPHCOL8
2968 ENDIF
2969 !
2970 IF(INDNPHSTY1 /= 0)THEN
2971   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNPHSTY1,NPHSTY1)
2972   PRINT *,' NPHSTY1 FOURNI ',NPHSTY1
2973 ENDIF
2974 IF(INDNPHSTY2 /= 0)THEN
2975   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNPHSTY2,NPHSTY2)
2976   PRINT *,' NPHSTY2 FOURNI ',NPHSTY2
2977 ENDIF
2978 IF(INDNPHSTY3 /= 0)THEN
2979   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNPHSTY3,NPHSTY3)
2980   PRINT *,' NPHSTY3 FOURNI ',NPHSTY3
2981 ENDIF
2982 IF(INDNPHSTY4 /= 0)THEN
2983   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNPHSTY4,NPHSTY4)
2984   PRINT *,' NPHSTY4 FOURNI ',NPHSTY4
2985 ENDIF
2986 IF(INDNPHSTY5 /= 0)THEN
2987   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNPHSTY5,NPHSTY5)
2988   PRINT *,' NPHSTY5 FOURNI ',NPHSTY5
2989 ENDIF
2990 IF(INDNPHSTY6 /= 0)THEN
2991   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNPHSTY6,NPHSTY6)
2992   PRINT *,' NPHSTY6 FOURNI ',NPHSTY6
2993 ENDIF
2994 IF(INDNPHSTY7 /= 0)THEN
2995   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNPHSTY7,NPHSTY7)
2996   PRINT *,' NPHSTY7 FOURNI ',NPHSTY7
2997 ENDIF
2998 IF(INDNPHSTY8 /= 0)THEN
2999   CALL RESOLVI(YCARIN(1:LEN_TRIM(YCARIN)),INDNPHSTY8,NPHSTY8)
3000   PRINT *,' NPHSTY8 FOURNI ',NPHSTY8
3001 ENDIF
3002 !
3003 !
3004 IF(INDVISU /=0 .AND. INDNOVISU == 0)THEN
3005   CALL GQOPS(ISTA)
3006   IF(ISTA == 0)THEN
3007     CALL OPNGKS
3008   ENDIF
3009   CALL GOPWK(2,0,8)
3010   CALL GACWK(2)
3011   CALL TABCOL_FORDIACHRO
3012 ENDIF
3013 IF(INDNOVISU/=0)THEN
3014   CALL GDAWK(2)
3015   CALL GCLWK(2)
3016 ENDIF
3017 IF(INDXSIZEL /=0)THEN
3018   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXSIZEL,XSIZEL)
3019   print *,' VALEUR XSIZEL FOURNIE : ',XSIZEL
3020 ENDIF
3021 IF(INDXSZTITXL /=0)THEN
3022   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXSZTITXL,XSZTITXL)
3023   print *,' VALEUR XSZTITXL FOURNIE : ',XSZTITXL
3024 ENDIF
3025 IF(INDXSZTITXM /=0)THEN
3026   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXSZTITXM,XSZTITXM)
3027   print *,' VALEUR XSZTITXM FOURNIE : ',XSZTITXM
3028 ENDIF
3029 IF(INDXSZTITXR /=0)THEN
3030   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXSZTITXR,XSZTITXR)
3031   print *,' VALEUR XSZTITXR FOURNIE : ',XSZTITXR
3032 ENDIF
3033 IF(INDXSZTITT1 /=0)THEN
3034   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXSZTITT1,XSZTITT1)
3035   print *,' VALEUR XSZTITT1 FOURNIE : ',XSZTITT1
3036 ENDIF
3037 IF(INDXSZTITT2 /=0)THEN
3038   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXSZTITT2,XSZTITT2)
3039   print *,' VALEUR XSZTITT2 FOURNIE : ',XSZTITT2
3040 ENDIF
3041 IF(INDXSZTITT3 /=0)THEN
3042   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXSZTITT3,XSZTITT3)
3043   print *,' VALEUR XSZTITT3 FOURNIE : ',XSZTITT3
3044 ENDIF
3045 IF(INDXSZTITYT /=0)THEN
3046   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXSZTITYT,XSZTITYT)
3047   print *,' VALEUR XSZTITYT FOURNIE : ',XSZTITYT
3048 ENDIF
3049 IF(INDXSZTITYM /=0)THEN
3050   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXSZTITYM,XSZTITYM)
3051   print *,' VALEUR XSZTITYM FOURNIE : ',XSZTITYM
3052 ENDIF
3053 IF(INDXSZTITYB /=0)THEN
3054   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXSZTITYB,XSZTITYB)
3055   print *,' VALEUR XSZTITYB FOURNIE : ',XSZTITYB
3056 ENDIF
3057 IF(INDXPOSTITYT /=0)THEN
3058   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXPOSTITYT,XPOSTITYT)
3059   print *,' VALEUR XPOSTITYT FOURNIE : ',XPOSTITYT
3060 ENDIF
3061 IF(INDXPOSTITYM /=0)THEN
3062   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXPOSTITYM,XPOSTITYM)
3063   print *,' VALEUR XPOSTITYM FOURNIE : ',XPOSTITYM
3064 ENDIF
3065 IF(INDXPOSTITYB /=0)THEN
3066   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXPOSTITYB,XPOSTITYB)
3067   print *,' VALEUR XPOSTITYB FOURNIE : ',XPOSTITYB
3068 ENDIF
3069 IF(INDXPOSTITT1 /=0)THEN
3070   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXPOSTITT1,XPOSTITT1)
3071   print *,' VALEUR XPOSTITT1 FOURNIE : ',XPOSTITT1
3072 ENDIF
3073 IF(INDXPOSTITT2 /=0)THEN
3074   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXPOSTITT2,XPOSTITT2)
3075   print *,' VALEUR XPOSTITT2 FOURNIE : ',XPOSTITT2
3076 ENDIF
3077 IF(INDXPOSTITT3 /=0)THEN
3078   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXPOSTITT3,XPOSTITT3)
3079   print *,' VALEUR XPOSTITT3 FOURNIE : ',XPOSTITT3
3080 ENDIF
3081 IF(INDXYPOSTITT1 /=0)THEN
3082   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXYPOSTITT1,XYPOSTITT1)
3083   print *,' VALEUR XYPOSTITT1 FOURNIE : ',XYPOSTITT1
3084 ENDIF
3085 IF(INDXYPOSTITT2 /=0)THEN
3086   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXYPOSTITT2,XYPOSTITT2)
3087   print *,' VALEUR XYPOSTITT2 FOURNIE : ',XYPOSTITT2
3088 ENDIF
3089 IF(INDXYPOSTITT3 /=0)THEN
3090   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXYPOSTITT3,XYPOSTITT3)
3091   print *,' VALEUR XYPOSTITT3 FOURNIE : ',XYPOSTITT3
3092 ENDIF
3093 IF(INDXSZTITB1 /=0)THEN
3094   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXSZTITB1,XSZTITB1)
3095   print *,' VALEUR XSZTITB1 FOURNIE : ',XSZTITB1
3096 ENDIF
3097 IF(INDXSZTITB2 /=0)THEN
3098   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXSZTITB2,XSZTITB2)
3099   print *,' VALEUR XSZTITB2 FOURNIE : ',XSZTITB2
3100 ENDIF
3101 IF(INDXSZTITB3 /=0)THEN
3102   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXSZTITB3,XSZTITB3)
3103   print *,' VALEUR XSZTITB3 FOURNIE : ',XSZTITB3
3104 ENDIF
3105 IF(INDXPOSTITB1 /=0)THEN
3106   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXPOSTITB1,XPOSTITB1)
3107   print *,' VALEUR XPOSTITB1 FOURNIE : ',XPOSTITB1
3108 ENDIF
3109 IF(INDXPOSTITB2 /=0)THEN
3110   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXPOSTITB2,XPOSTITB2)
3111   print *,' VALEUR XPOSTITB2 FOURNIE : ',XPOSTITB2
3112 ENDIF
3113 IF(INDXPOSTITB3 /=0)THEN
3114   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXPOSTITB3,XPOSTITB3)
3115   print *,' VALEUR XPOSTITB3 FOURNIE : ',XPOSTITB3
3116 ENDIF
3117 IF(INDXYPOSTITYT /=0)THEN
3118   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXYPOSTITYT,XYPOSTITYT)
3119   print *,' VALEUR XYPOSTITYT FOURNIE : ',XYPOSTITYT
3120 ENDIF
3121 IF(INDXYPOSTITYM /=0)THEN
3122   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXYPOSTITYM,XYPOSTITYM)
3123   print *,' VALEUR XYPOSTITYM FOURNIE : ',XYPOSTITYM
3124 ENDIF
3125 IF(INDXYPOSTITYB /=0)THEN
3126   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXYPOSTITYB,XYPOSTITYB)
3127   print *,' VALEUR XYPOSTITYB FOURNIE : ',XYPOSTITYB
3128 ENDIF
3129 IF(INDXYPOSTITB1 /=0)THEN
3130   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXYPOSTITB1,XYPOSTITB1)
3131   print *,' VALEUR XYPOSTITB1 FOURNIE : ',XYPOSTITB1
3132 ENDIF
3133 IF(INDXYPOSTITB2 /=0)THEN
3134   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXYPOSTITB2,XYPOSTITB2)
3135   print *,' VALEUR XYPOSTITB2 FOURNIE : ',XYPOSTITB2
3136 ENDIF
3137 IF(INDXYPOSTITB3 /=0)THEN
3138   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXYPOSTITB3,XYPOSTITB3)
3139   print *,' VALEUR XYPOSTITB3 FOURNIE : ',XYPOSTITB3
3140 ENDIF
3141 IF(INDXSZTITVAR1 /=0)THEN
3142   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXSZTITVAR1,XSZTITVAR1)
3143   print *,' VALEUR XSZTITVAR1 FOURNIE : ',XSZTITVAR1
3144 ENDIF
3145 IF(INDXSZTITVAR2 /=0)THEN
3146   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXSZTITVAR2,XSZTITVAR2)
3147   print *,' VALEUR XSZTITVAR2 FOURNIE : ',XSZTITVAR2
3148 ENDIF
3149 IF(INDXSZTITVAR3 /=0)THEN
3150   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXSZTITVAR3,XSZTITVAR3)
3151   print *,' VALEUR XSZTITVAR3 FOURNIE : ',XSZTITVAR3
3152 ENDIF
3153 IF(INDXSZTITVAR4 /=0)THEN
3154   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXSZTITVAR4,XSZTITVAR4)
3155   print *,' VALEUR XSZTITVAR4 FOURNIE : ',XSZTITVAR4
3156 ENDIF
3157 IF(INDXSZTITVAR5 /=0)THEN
3158   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXSZTITVAR5,XSZTITVAR5)
3159   print *,' VALEUR XSZTITVAR5 FOURNIE : ',XSZTITVAR5
3160 ENDIF
3161 IF(INDXSZTITVAR6 /=0)THEN
3162   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXSZTITVAR6,XSZTITVAR6)
3163   print *,' VALEUR XSZTITVAR6 FOURNIE : ',XSZTITVAR6
3164 ENDIF
3165 IF(INDXSZTITVAR7 /=0)THEN
3166   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXSZTITVAR7,XSZTITVAR7)
3167   print *,' VALEUR XSZTITVAR7 FOURNIE : ',XSZTITVAR7
3168 ENDIF
3169 IF(INDXSZTITVAR8 /=0)THEN
3170   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXSZTITVAR8,XSZTITVAR8)
3171   print *,' VALEUR XSZTITVAR8 FOURNIE : ',XSZTITVAR8
3172 ENDIF
3173 IF(INDXPOSTITVAR1 /=0)THEN
3174   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXPOSTITVAR1,XPOSTITVAR1)
3175   print *,' VALEUR XPOSTITVAR1 FOURNIE : ',XPOSTITVAR1
3176 ENDIF
3177 IF(INDXPOSTITVAR2 /=0)THEN
3178   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXPOSTITVAR2,XPOSTITVAR2)
3179   print *,' VALEUR XPOSTITVAR2 FOURNIE : ',XPOSTITVAR2
3180 ENDIF
3181 IF(INDXPOSTITVAR3 /=0)THEN
3182   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXPOSTITVAR3,XPOSTITVAR3)
3183   print *,' VALEUR XPOSTITVAR3 FOURNIE : ',XPOSTITVAR3
3184 ENDIF
3185 IF(INDXYPOSTITVAR1 /=0)THEN
3186   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXYPOSTITVAR1,XYPOSTITVAR1)
3187   print *,' VALEUR XYPOSTITVAR1 FOURNIE : ',XYPOSTITVAR1
3188 ENDIF
3189 IF(INDXYPOSTITVAR2 /=0)THEN
3190   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXYPOSTITVAR2,XYPOSTITVAR2)
3191   print *,' VALEUR XYPOSTITVAR2 FOURNIE : ',XYPOSTITVAR2
3192 ENDIF
3193 IF(INDXYPOSTITVAR3 /=0)THEN
3194   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXYPOSTITVAR3,XYPOSTITVAR3)
3195   print *,' VALEUR XYPOSTITVAR3 FOURNIE : ',XYPOSTITVAR3
3196 ENDIF
3197 IF(INDXPOSTITVAR4 /=0)THEN
3198   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXPOSTITVAR4,XPOSTITVAR4)
3199   print *,' VALEUR XPOSTITVAR4 FOURNIE : ',XPOSTITVAR4
3200 ENDIF
3201 IF(INDXPOSTITVAR5 /=0)THEN
3202   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXPOSTITVAR5,XPOSTITVAR5)
3203   print *,' VALEUR XPOSTITVAR5 FOURNIE : ',XPOSTITVAR5
3204 ENDIF
3205 IF(INDXPOSTITVAR6 /=0)THEN
3206   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXPOSTITVAR6,XPOSTITVAR6)
3207   print *,' VALEUR XPOSTITVAR6 FOURNIE : ',XPOSTITVAR6
3208 ENDIF
3209 IF(INDXYPOSTITVAR4 /=0)THEN
3210   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXYPOSTITVAR4,XYPOSTITVAR4)
3211   print *,' VALEUR XYPOSTITVAR4 FOURNIE : ',XYPOSTITVAR4
3212 ENDIF
3213 IF(INDXYPOSTITVAR5 /=0)THEN
3214   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXYPOSTITVAR5,XYPOSTITVAR5)
3215   print *,' VALEUR XYPOSTITVAR5 FOURNIE : ',XYPOSTITVAR5
3216 ENDIF
3217 IF(INDXYPOSTITVAR6 /=0)THEN
3218   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXYPOSTITVAR6,XYPOSTITVAR6)
3219   print *,' VALEUR XYPOSTITVAR6 FOURNIE : ',XYPOSTITVAR6
3220 ENDIF
3221 IF(INDXPOSTITVAR7 /=0)THEN
3222   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXPOSTITVAR7,XPOSTITVAR7)
3223   print *,' VALEUR XPOSTITVAR7 FOURNIE : ',XPOSTITVAR7
3224 ENDIF
3225 IF(INDXPOSTITVAR8 /=0)THEN
3226   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXPOSTITVAR8,XPOSTITVAR8)
3227   print *,' VALEUR XPOSTITVAR8 FOURNIE : ',XPOSTITVAR8
3228 ENDIF
3229 IF(INDXYPOSTITVAR7 /=0)THEN
3230   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXYPOSTITVAR7,XYPOSTITVAR7)
3231   print *,' VALEUR XYPOSTITVAR7 FOURNIE : ',XYPOSTITVAR7
3232 ENDIF
3233 IF(INDXYPOSTITVAR8 /=0)THEN
3234   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXYPOSTITVAR8,XYPOSTITVAR8)
3235   print *,' VALEUR XYPOSTITVAR8 FOURNIE : ',XYPOSTITVAR8
3236 ENDIF
3237 !*JD* Mars 2009
3238 IF(INDXPOSXVARNPV1TOP /=0)THEN
3239   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXPOSXVARNPV1TOP,XPOSXVARNPV1TOP)
3240   print *,' VALEUR XPOSXVARNPV1TOP FOURNIE : ',XPOSXVARNPV1TOP
3241 ENDIF
3242 IF(INDXPOSYVARNPV1TOP /=0)THEN
3243   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXPOSYVARNPV1TOP,XPOSYVARNPV1TOP)
3244   print *,' VALEUR XPOSYVARNPV1TOP FOURNIE : ',XPOSYVARNPV1TOP
3245 ENDIF
3246 IF(INDXPOSXVARNPV5BOT /=0)THEN
3247   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXPOSXVARNPV5BOT,XPOSXVARNPV5BOT)
3248   print *,' VALEUR XPOSXVARNPV5BOT FOURNIE : ',XPOSXVARNPV5BOT
3249 ENDIF
3250 IF(INDXPOSYVARNPV5BOT /=0)THEN
3251   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXPOSYVARNPV5BOT,XPOSYVARNPV5BOT)
3252   print *,' VALEUR XPOSYVARNPV5BOT FOURNIE : ',XPOSYVARNPV5BOT
3253 ENDIF
3254 IF(INDXSZVARNPVTOP /=0)THEN
3255   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXSZVARNPVTOP,XSZVARNPVTOP)
3256   print *,' VALEUR XSZVARNPVTOP FOURNIE : ',XSZVARNPVTOP
3257 ENDIF
3258 IF(INDXSZVARNPVBOT /=0)THEN
3259   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXSZVARNPVBOT,XSZVARNPVBOT)
3260   print *,' VALEUR XSZVARNPVBOT FOURNIE : ',XSZVARNPVBOT
3261 ENDIF
3262 IF(INDXAMX /=0)THEN
3263   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXAMX,XAMX)
3264   print *,' VALEUR XAMX FOURNIE : ',XAMX
3265 ENDIF
3266 IF(INDXLWTRACECV /=0)THEN
3267   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXLWTRACECV,XLWTRACECV)
3268   print *,' VALEUR XLWTRACECV FOURNIE : ',XLWTRACECV
3269 ENDIF
3270 IF(INDXLWDOMAIN /=0)THEN
3271   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXLWDOMAIN,XLWDOMAIN)
3272   print *,' VALEUR XLWDOMAIN FOURNIE : ',XLWDOMAIN
3273 ENDIF
3274 IF(INDXLWSEGM /=0)THEN
3275   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXLWSEGM,XLWSEGM)
3276   print *,' VALEUR XLWSEGM FOURNIE : ',XLWSEGM
3277 ENDIF
3278 IF(INDXLWFTALL /=0)THEN
3279   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXLWFTALL,XLWFTALL)
3280   print *,' VALEUR XLWFTALL FOURNIE : ',XLWFTALL
3281 ENDIF
3282 IF(INDXLWV /=0)THEN
3283   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXLWV,XLWV)
3284   print *,' VALEUR XLWV FOURNIE : ',XLWV
3285 ENDIF
3286 IF(INDXLW /=0)THEN
3287   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXLW,XLW)
3288   print *,' VALEUR XLW FOURNIE : ',XLW
3289 ENDIF
3290 IF(INDXLW1 /=0)THEN
3291   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXLW1,XLW1)
3292   print *,' VALEUR XLW1 FOURNIE : ',XLW1
3293 ENDIF
3294 IF(INDXLW2 /=0)THEN
3295   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXLW2,XLW2)
3296   print *,' VALEUR XLW2 FOURNIE : ',XLW2
3297 ENDIF
3298 IF(INDXLW3 /=0)THEN
3299   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXLW3,XLW3)
3300   print *,' VALEUR XLW3 FOURNIE : ',XLW3
3301 ENDIF
3302 IF(INDXLW4 /=0)THEN
3303   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXLW4,XLW4)
3304   print *,' VALEUR XLW4 FOURNIE : ',XLW4
3305 ENDIF
3306 IF(INDXLWPV1 /=0)THEN
3307   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXLWPV1,XLWPV1)
3308   print *,' VALEUR XLWPV1 FOURNIE : ',XLWPV1
3309 ENDIF
3310 IF(INDXLWPV2 /=0)THEN
3311   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXLWPV2,XLWPV2)
3312   print *,' VALEUR XLWPV2 FOURNIE : ',XLWPV2
3313 ENDIF
3314 IF(INDXLWPV3 /=0)THEN
3315   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXLWPV3,XLWPV3)
3316   print *,' VALEUR XLWPV3 FOURNIE : ',XLWPV3
3317 ENDIF
3318 IF(INDXLWPV4 /=0)THEN
3319   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXLWPV4,XLWPV4)
3320   print *,' VALEUR XLWPV4 FOURNIE : ',XLWPV4
3321 ENDIF
3322 IF(INDXLWPV5 /=0)THEN
3323   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXLWPV5,XLWPV5)
3324   print *,' VALEUR XLWPV5 FOURNIE : ',XLWPV5
3325 ENDIF
3326 IF(INDXLWPV6 /=0)THEN
3327   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXLWPV6,XLWPV6)
3328   print *,' VALEUR XLWPV6 FOURNIE : ',XLWPV6
3329 ENDIF
3330 IF(INDXLWPV7 /=0)THEN
3331   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXLWPV7,XLWPV7)
3332   print *,' VALEUR XLWPV7 FOURNIE : ',XLWPV7
3333 ENDIF
3334 IF(INDXLWPV8 /=0)THEN
3335   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXLWPV8,XLWPV8)
3336   print *,' VALEUR XLWPV8 FOURNIE : ',XLWPV8
3337 ENDIF
3338 IF(INDXLWPV9 /=0)THEN
3339   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXLWPV9,XLWPV9)
3340   print *,' VALEUR XLWPV9 FOURNIE : ',XLWPV9
3341 ENDIF
3342 IF(INDXLWPV10 /=0)THEN
3343   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXLWPV10,XLWPV10)
3344   print *,' VALEUR XLWPV10 FOURNIE : ',XLWPV10
3345 ENDIF
3346 IF(INDXLWPV11 /=0)THEN
3347   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXLWPV11,XLWPV11)
3348   print *,' VALEUR XLWPV11 FOURNIE : ',XLWPV11
3349 ENDIF
3350 IF(INDXLWPV12 /=0)THEN
3351   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXLWPV12,XLWPV12)
3352   print *,' VALEUR XLWPV12 FOURNIE : ',XLWPV12
3353 ENDIF
3354 IF(INDXLWPV13 /=0)THEN
3355   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXLWPV13,XLWPV13)
3356   print *,' VALEUR XLWPV13 FOURNIE : ',XLWPV13
3357 ENDIF
3358 IF(INDXLWPV14 /=0)THEN
3359   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXLWPV14,XLWPV14)
3360   print *,' VALEUR XLWPV14 FOURNIE : ',XLWPV14
3361 ENDIF
3362 IF(INDXLWPV15 /=0)THEN
3363   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXLWPV15,XLWPV15)
3364   print *,' VALEUR XLWPV15 FOURNIE : ',XLWPV15
3365 ENDIF
3366 IF(INDXSTYLPV1 /=0)THEN
3367   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXSTYLPV1,XSTYLPV1)
3368   print *,' VALEUR XSTYLPV1 FOURNIE : ',XSTYLPV1
3369 ENDIF
3370 IF(INDXSTYLPV2 /=0)THEN
3371   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXSTYLPV2,XSTYLPV2)
3372   print *,' VALEUR XSTYLPV2 FOURNIE : ',XSTYLPV2
3373 ENDIF
3374 IF(INDXSTYLPV3 /=0)THEN
3375   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXSTYLPV3,XSTYLPV3)
3376   print *,' VALEUR XSTYLPV3 FOURNIE : ',XSTYLPV3
3377 ENDIF
3378 IF(INDXSTYLPV4 /=0)THEN
3379   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXSTYLPV4,XSTYLPV4)
3380   print *,' VALEUR XSTYLPV4 FOURNIE : ',XSTYLPV4
3381 ENDIF
3382 IF(INDXSTYLPV5 /=0)THEN
3383   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXSTYLPV5,XSTYLPV5)
3384   print *,' VALEUR XSTYLPV5 FOURNIE : ',XSTYLPV5
3385 ENDIF
3386 IF(INDXSTYLPV6 /=0)THEN
3387   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXSTYLPV6,XSTYLPV6)
3388   print *,' VALEUR XSTYLPV6 FOURNIE : ',XSTYLPV6
3389 ENDIF
3390 IF(INDXSTYLPV7 /=0)THEN
3391   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXSTYLPV7,XSTYLPV7)
3392   print *,' VALEUR XSTYLPV7 FOURNIE : ',XSTYLPV7
3393 ENDIF
3394 IF(INDXSTYLPV8 /=0)THEN
3395   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXSTYLPV8,XSTYLPV8)
3396   print *,' VALEUR XSTYLPV8 FOURNIE : ',XSTYLPV8
3397 ENDIF
3398 IF(INDXSTYLPV9 /=0)THEN
3399   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXSTYLPV9,XSTYLPV9)
3400   print *,' VALEUR XSTYLPV9 FOURNIE : ',XSTYLPV9
3401 ENDIF
3402 IF(INDXSTYLPV11 /=0)THEN
3403   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXSTYLPV11,XSTYLPV11)
3404   print *,' VALEUR XSTYLPV11 FOURNIE : ',XSTYLPV11
3405 ENDIF
3406 IF(INDXSTYLPV12 /=0)THEN
3407   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXSTYLPV12,XSTYLPV12)
3408   print *,' VALEUR XSTYLPV12 FOURNIE : ',XSTYLPV12
3409 ENDIF
3410 IF(INDXSTYLPV13 /=0)THEN
3411   CALL RESOLVX(YCARIN(1:LEN_TRIM(YCARIN)),INDXSTYLPV13,XSTYLPV13)
3412   print *,' VALEUR XSTYLPV13 FOURNIE : ',XSTYLPV13