Procedures | Cast3M

   1 : * INICHI2   PROCEDUR  AURI      98/12/29    21:18:11     3419           
   2 : DEBPROC INICHI2 TB3*TABLE TBC2*OBJET G1/MAILLAGE ;
   3 : *********************************************************************
   4 : *   modification d'un objet DONCHI2
   5 : *      TB3 table issue de chi1
   6 : *      TBC2 objet DONCHI2
   7 : *********************************************************************
   8 : CTOT= TBC2.TOT ;
   9 : CLGC= TBC2.LOGC ;
  10 : LICOMP= EXTR  CTOT 'COMP';
  11 : LILGC= EXTR  CLGC 'COMP';
  12 : LIIDX= TB3.DESCHI.IDX ;
  13 : NBIDX= DIME LIIDX ;
  14 : 'SI' ('NON' ( 'EXIS' G1)) ;
  15 :       G1= EXTR  CTOT 'MAIL' ;
  16 : 'FINS' ;
  17 : IMODT= FAUX ;
  18 : IMODL= FAUX ;
  19 : MOCOM1= MOTS ;
  20 : REPE BOUIDX NBIDX ;
  21 : NUNU= EXTR LIIDX &BOUIDX ;
  22 :  MO4 MO3 NU2 = NOCOMCHI TB3 'NUMCOMP' NUNU ;
  23 : MOCOM1= MOCOM1 ET (MOTS MO3) ;
  24 : SI ( NON (EXIS LICOMP MO3)) ;
  25 : CTOT= CTOT+ ( MANU CHPO G1 1 MO3 0.) ;
  26 : IMODT= VRAI ;
  27 : FINSI ;
  28 : SI ( NON (EXIS LILGC MO3)) ;
  29 : CLGC= CLGC+ ( MANU CHPO G1 1 MO3 0.) ;
  30 : IMODL= VRAI ;
  31 : FINSI ;
  32 : FIN BOUIDX ;
  33 : NBCOMP= DIME LIIDX ;
  34 : LICOMP= EXTR  CTOT 'COMP';
  35 : NBCOMT= DIME LICOMP ;
  36 : SI (NBCOMT NEG NBCOMP) ;
  37 : CTOT = EXCO MOCOM1 CTOT MOCOM1 ;
  38 : LICOMP= MOCOM1
  39 :   TBC2%GTOT CTOT ;
  40 : FINSI ;
  41 : LILGC= EXTR  CLGC 'COMP';
  42 : NBCOML= DIME LILGC ;
  43 : SI (NBCOML NEG NBCOMP) ;
  44 : CLGC = EXCO MOCOM1 CLGC MOCOM1 ;
  45 : LILGC= MOCOM1
  46 :   TBC2%GLOGC CLGC ;
  47 : FINSI ;
  48 : SI IMODT ;
  49 : IMODII='OUI' ;
  50 :  'MESS''Vous devez modifier la concentration totale ' ;
  51 : SINON ;
  52 :  'MESS''Voulez vous modifier les concentrations totales ?' ;
  53 : 'OBTE' IMODII ;
  54 : FINSI ;
  55 : SI (EGA IMODII 'OUI' ) ;
  56 : *
  57 :  REPE BCTOT ;
  58 :   NTAB CTOT TITR 'CONCENTRATION TOTALE' ;
  59 :   LIMOT= EXTR CTOT 'COMP'  ;
  60 :  MOTOT= 'MENU' 'POUR MODIFIER UNE VALEUR CLIQUER SUR SON NOM ' LIMOT ;
  61 :  'SI' ('EGA' MOTOT 'Quitter' ) ;
  62 :  'QUIT' BCTOT ;
  63 :  'FINS' ;
  64 :   MO4 MO3 NU2 = NOCOMCHI TB3 'NOMINT' MOTOT ;
  65 :  'MESS' ' Entrez la concentration totale de ' NU2   MO4 ;
  66 :   'OBTE' VTOT*FLOTTANT ;
  67 :   'SI' ('NON' ('EGA' VTOT ('MOT' 'NON')))  ;
  68 :   CTOT1=  MANU CHPO G1 1 MO3 VTOT ;
  69 :   CTOT2= EXCO MO3 CTOT MO3 ;
  70 :   CTOT= CTOT+CTOT1 -CTOT2 ;
  71 :   'FINS' ;
  72 :  FIN BCTOT ;
  73 : *
  74 : * LIST CTOT   ;
  75 :   TBC2%GTOT CTOT ;
  76 : FINSI ;
  77 : SI IMODL ;
  78 : IMODII='OUI' ;
  79 :  'MESS''Vous devez modifier LOGC ' ;
  80 : SINON ;
  81 :  'MESS''Voulez vous modifier LOGC ?' ;
  82 : 'OBTE' IMODII ;
  83 : FINSI ;
  84 : SI (EGA IMODII 'OUI' ) ;
  85 :  REPE BLGC1 ;
  86 :   NTAB CLGC 'TITR' ' VALEURS DE LOGC' ;
  87 :   LIMOT= EXTR CLGC 'COMP'  ;
  88 :  MOLGC= 'MENU' 'POUR MODIFIER UNE VALEUR CLIQUER SUR SON NOM ' LIMOT ;
  89 :  'SI' ('EGA' MOLGC 'Quitter' ) ;
  90 :  'QUIT' BLGC1 ;
  91 :  'FINS' ;
  92 :   MO4 MO3 NU2 = NOCOMCHI TB3 'NOMINT' MOLGC ;
  93 :  'MESS' ' Entrez LOGC de ' NU2   MO4 ;
  94 :   'OBTE' VLGC*FLOTTANT ;
  95 :   'SI' ('NON' ('EGA' VLGC ('MOT' 'NON')) ) ;
  96 :   CLGC1=  MANU CHPO G1 1 MO3 VLGC ;
  97 :   CLGC2=  EXCO MO3 CLGC MO3 ;
  98 :   CLGC= CLGC+CLGC1- CLGC2 ;
  99 :   'FINS' ;
 100 :  FIN BLGC1 ;
 101 : * LIST CLGC   ;
 102 :   TBC2%GLOGC CLGC ;
 103 : FINSI ;
 104 :  TIDEN=TB3.IDEN ;
 105 :  SI (EXIS TIDEN IMP3) ;
 106 :  NBIMP3= DIME TIDEN.IMP3 ;
 107 : SI (EXIS TBC2 'CLIM') ;
 108 :  IMOD3= FAUX ;
 109 :  CCLIM= TBC2.CLIM ;
 110 : LICLIM= EXTR CCLIM 'COMP';
 111 :  MOCOM1= MOTS ;
 112 :  REPE BOUIMP3 NBIMP3 ;
 113 :  NUNU=EXTR (  TIDEN.IMP3 ) &BOUIMP3 ;
 114 :    MO3 NU2 = NOESPCHI TB3  NUNU ;
 115 :  MOCOM1= MOCOM1 ET (MOTS MO3) ;
 116 :  SI (NON (EXIS LICLIM MO3) ) ;
 117 :  CCLIM= CCLIM+ (  MANU CHPO G1 1 MO3 0.) ;
 118 :  IMOD3= VRAI ;
 119 :  FINSI ;
 120 : FIN BOUIMP3 ;
 121 : LICLIM= EXTR CCLIM 'COMP';
 122 : NBCLIM= DIME LICLIM ;
 123 : SI( NBCLIM NEG NBIMP3 ) ;
 124 : CCLIM= EXCO MOCOM1 CCLIM MOCOM1 ;
 125 :  TBC2%GCLIM CCLIM;
 126 : FINSI ;
 127 : FINSI ;
 128 : SI IMOD3 ;
 129 :  'MESS''Vous devez modifier l  activité  imposée ' ;
 130 :   IMODII= MOT 'OUI' ;
 131 : SINON ;
 132 :  'MESS''Voulez vous modifier l  activité  imposée ?' ;
 133 : 'OBTE' IMODII ;
 134 : FINSI ;
 135 : SI (EGA IMODII 'OUI' ) ;
 136 : SI (EXIS TBC2 'CLIM') ;
 137 :  CCLIM= TBC2.CLIM ;
 138 : LICLIM= EXTR CCLIM 'COMP';
 139 : NBCLIM= DIME TIDEN.IMP3 ;
 140 :      'REPE' BOUCLIM NBCLIM ;
 141 :      NUCLIM= 'EXTR' LICLIM &BOUCLIM ;
 142 :    MO3 NU2 = NOESPCHI TB3  NUCLIM ;
 143 :  VAL0= EXTR CCLIM MO3 ( G1 POIN 1) ;
 144 :  'MESS' ' Entrez l activité de ' NU2   ' Valeur actuelle ' VAL0 ;
 145 :   'OBTE' VLIM      ;
 146 :  'SI' (EGA ( TYPE VLIM)  'FLOTTANT') ;
 147 :   CCLIM0= EXCO MO3 CCLIM MO3 ;
 148 :   CCLIM1=  MANU CHPO G1 1 MO3 VLIM ;
 149 :   CCLIM= CCLIM+CCLIM1-CCLIM0 ;
 150 :   FINSI ;
 151 :      'FIN' BOUCLIM ;
 152 : * LIST CCLIM  ;
 153 :   TBC2%GCLIM CCLIM;
 154 : SINON  ;
 155 :  MESS ' Il n y a pas d activité imposée ' ;
 156 : FINSI ;
 157 : FINSI ;
 158 : SINON ;
 159 : SI (EXIS TBC2 'CLIM') ;
 160 : TBC2%OUBLIER CLIM ;
 161 : FINSI ;
 162 : FINSI ;
 163 : FINP ;
 164 :