84 |
|
|
85 |
! Special pour poles |
! Special pour poles |
86 |
|
|
|
REAL sbms, sfms, sfzs, sbmn, sfmn, sfzn |
|
|
REAL sns0(ntra), snsz(ntra), snsm |
|
|
REAL s1v(llm), slatv(llm) |
|
|
REAL qy1(iim, llm, ntra), qylat(iim, llm, ntra) |
|
|
REAL cx1(llm, ntra), cxlat(llm, ntra) |
|
|
REAL cy1(llm, ntra), cylat(llm, ntra) |
|
|
REAL z1(iim), zcos(iim), zsin(iim) |
|
|
REAL smpn, smps, s0pn, s0ps |
|
87 |
REAL ssum |
REAL ssum |
88 |
EXTERNAL ssum |
EXTERNAL ssum |
89 |
|
|
|
REAL sqi, sqf |
|
90 |
LOGICAL limit |
LOGICAL limit |
91 |
|
|
92 |
lon = iim ! rem : Il est possible qu'un pbl. arrive ici |
lon = iim ! rem : Il est possible qu'un pbl. arrive ici |