1 : C RESNUA SOURCE CHAT 05/01/13 02:52:43 5004 2 : SUBROUTINE RESNUA (ICOLAC,ITLACC,IMAX1) 3 : IMPLICIT INTEGER(I-N) 4 : IMPLICIT REAL*8 (A-H,O-Z) 5 : C======================================================================= 6 : C RESTAURATION DES POINTEURS 7 : C 8 : C APPELE PAR RESTPI 9 : C APPELLE : ERREUR 10 : C======================================================================= 11 : C TABLEAU KCOLA : 12 : C 1 MELEME 2 CHPOIN 3 MRIGID 4 MCHAFF 5 MCHELM 6 MCLSTR 13 : C 7 MELSTR 8 MSOLUT 9 MSTRUC 10 11 MAFFEC 12 MSOSTU 14 : C 13 IMATRI 14 MJONCT 15 MATTAC 16 MMATRI 17 MDEFOR 18 MLREEL 15 : C 19 MLENTI 20 MCHARG 21 MODELE 22 MEVOLL 23 MSUPER 16 : C======================================================================= 17 : -INC CCOPTIO 18 : -INC SMNUAGE 19 : -INC TMCOLAC 20 : C 21 : CHARACTER*8 CTYP 22 : 23 : C 24 : C 25 : C *********************** NUAGE ********************************* 26 : DO 1101 IEL=1,IMAX1 27 : MNUAGE=ITLAC(IEL) 28 : IF (MNUAGE.EQ.0) GO TO 1101 29 : SEGACT MNUAGE 30 : NVAR=NUAPOI(/1) 31 : DO 1 I= 1,NVAR 32 : CTYP =NUATYP(I) 33 : IF(CTYP.EQ.'FLOTTANT'.OR.CTYP.EQ.'LOGIQUE '.OR. 34 : $ CTYP.EQ.'ENTIER '.OR.CTYP.EQ.'MOT ') GO TO 1 34 : CALL TYPFIL (CTYP,J) 35 : IF(J.EQ.0) GO TO 5 36 : ITLAC1=KCOLA(J) 37 : NUAVIN=NUAPOI(I) 38 : SEGACT NUAVIN*MOD 39 : DO 2 K=1,NUAINT(/1) 40 : IVA=NUAINT(K) 41 : NUAINT(K)=ITLAC1.ITLAC(IVA) 42 : 2 CONTINUE 43 : SEGDES NUAVIN 44 : 1 CONTINUE 45 : SEGDES MNUAGE 46 : 1101 CONTINUE 47 : RETURN 48 : 5 CONTINUE 49 : MOTERR(1:8)=CTYP 49 : CALL ERREUR (336) 50 : RETURN 51 : END 52 : 53 : 54 : 55 : 56 : 57 : 58 :
© Cast3M 2003 - All rights reserved.
Disclaimer