chitet
C CHITET SOURCE CHAT 05/01/12 21:58:20 5004 IMPLICIT INTEGER(I-N) IMPLICIT REAL*8 (A-H,O-Z) C------------------------------------------------------------------ C C CHARGEMENT DE LA TABLE TEMPE C C------------------------------------------------------------------ -INC SMTABLE -INC SMLENTI -INC SMLREEL -INC PPARAM -INC CCOPTIO SEGMENT IDSCHI REAL*8 GK(NYDIM),AA(NYDIM,NXDIM),FF(NZDIM,NPDIM) INTEGER IDX(NXDIM),IDY(NYDIM),IDZ(NZDIM),IDP(NPDIM),NN(6) INTEGER IDECY(NYDIM),IONZ(NXDIM) CHARACTER*32 NAME(NXDIM),NAMESP(NYDIM) ENDSEGMENT SEGMENT LGKMOD REAL*8 DELH0(NYDIM),DELCP0(NYDIM) ENDSEGMENT SEGMENT LGKTMP INTEGER NUMT(NYDIM),NTVT(NYDIM) REAL*8 TMIMA(NYDIM,NT) REAL*8 POLYT(NYDIM,NT4),TGKLU(NYDIM,NT) ENDSEGMENT CHARACTER*8 MTYPI,CHARI,MTYPR,CHARR C NYDIM=IDY(/1) NXDIM=IDX(/1) NZDIM=IDZ(/1) NPDIM=IDP(/1) SEGACT MTAB1 IF(LBDD.EQ.0)THEN C BASE MINEQL IVALI=0 XVALI=0.D0 IRETI=0 IVALR=0 XVALR=0.D0 MTYPI='MOT ' JG=NYDIM SEGINI MLREEL IRETR=MLREEL MTYPR='LISTREEL' CHARR=' ' *IRETI,MTYPR,IVALR,XVALR,CHARR,.TRUE.,IRETR) SEGDES MLREEL SEGINI MLREEL IRETR=MLREEL MTYPR='LISTREEL' CHARR=' ' *IRETI,MTYPR,IVALR,XVALR,CHARR,.TRUE.,IRETR) SEGDES MLREEL SEGSUP LGKMOD IRETR=0 MTYPR='ENTIER ' CHARR=' ' IVALR=LTMP *IRETI,MTYPR,IVALR,XVALR,CHARR,.TRUE.,IRETR) ELSEIF(LBDD.EQ.1)THEN C BASE DE STASBOURG NT=TMIMA(/2) IVALI=0 XVALI=0.D0 IRETI=0 IVALR=0 XVALR=0.D0 MTYPI='MOT ' JG=NYDIM*NT SEGINI MLREEL IRETR=MLREEL MTYPR='LISTREEL' CHARR=' ' *IRETI,MTYPR,IVALR,XVALR,CHARR,.TRUE.,IRETR) SEGDES MLREEL JG=NYDIM*NT*4 SEGINI MLREEL IRETR=MLREEL MTYPR='LISTREEL' CHARR=' ' *IRETI,MTYPR,IVALR,XVALR,CHARR,.TRUE.,IRETR) SEGDES MLREEL JG=NYDIM*NT SEGINI MLREEL IRETR=MLREEL MTYPR='LISTREEL' CHARR=' ' *IRETI,MTYPR,IVALR,XVALR,CHARR,.TRUE.,IRETR) SEGDES MLREEL JG=NYDIM SEGINI MLENTI IRETR=MLENTI MTYPR='LISTENTI' CHARR=' ' *IRETI,MTYPR,IVALR,XVALR,CHARR,.TRUE.,IRETR) SEGDES MLENTI JG=NYDIM SEGINI MLENTI IRETR=MLENTI MTYPR='LISTENTI' CHARR=' ' *IRETI,MTYPR,IVALR,XVALR,CHARR,.TRUE.,IRETR) SEGDES MLENTI SEGSUP LGKTMP ENDIF RETURN END
© Cast3M 2003 - Tous droits réservés.
Mentions légales