1 subroutine utbide ( codebi, nbval1, tabaux )
2 c ______________________________________________________________________
6 c Outil de Maillage Adaptatif par Raffinement et Deraffinement d'EDF R&D
8 c Version originale enregistree le 18 juin 1996 sous le numero 96036
9 c aupres des huissiers de justice Simart et Lavoir a Clamart
10 c Version 11.2 enregistree le 13 fevrier 2015 sous le numero 2015/014
11 c aupres des huissiers de justice
12 c Lavoir, Silinski & Cherqui-Abrahmi a Clamart
14 c HOMARD est une marque deposee d'Electricite de France
20 c ______________________________________________________________________
22 c UTilitaire : du BInaire vers le DEcimal
24 c ______________________________________________________________________
26 c . nom . e/s . taille . description .
27 c .____________________________________________________________________.
28 c . codebi . e . 1 . code binaire a decoder (<4095=2*12-1) .
29 c . nbval1 . s . 1 . nombre de valeurs 1 .
30 c . tabaux . s . 12 . valeurs 0/1 .
31 c .____________________________________________________________________.
34 c 0. declarations et dimensionnement
37 c 0.1. ==> generalites
47 integer nbval1, tabaux(12)
49 c 0.4. ==> variables locales
54 c 0.5. ==> initialisations
55 c ______________________________________________________________________
59 c Remarque : on pourrait proceder avec des if sucessifs.
60 c Est-ce plus economique ?
68 if ( reste.eq.0 ) then