C FATIG SOURCE KICH 19/10/25 21:15:11 10351 SUBROUTINE FATIG IMPLICIT INTEGER(I-N) IMPLICIT REAL*8 (A-H,O-Z) C================================== C CH2 = FATI TAB1 CH1 MOT1 ; C=================================== PARAMETER (NCLE=7) -INC CCOPTIO -INC SMCHARG LOGICAL L0,L1 CHARACTER*4 CLE(NCLE) DATA CLE/'TOUS','DVKP','PAPA','SINE','CROS','DC','VMIS'/ IF (IERR.NE.0) RETURN IF (IRt1.EQ.0) GOTO 100 IF(IERR.NE.0) RETURN IF(IRETOU.EQ.0) GO TO 100 * caracteristiques critere if (ierr.ne.0) return if(iret.eq.0) xre1 = 0.D0 if(iret.eq.0) xre2 = 0.D0 if(icle.eq.0) icle = 1 if (ierr.ne.0) return MCHARG = ichar segact mcharg if (kcharg(/1).ne.1) then return endif icharg = kcharg(1) segact icharg ittemp = ichpo1 itcont = ichpo2 * write(6,*)'sr',ierr,ITCONT,ITTEMP,IPMODE,IP1,xre1,xre2,ICLE &CLE,ICHOUT) if(ierr.ne.0) return 100 CONTINUE RETURN END
© Cast3M 2003 - Tous droits réservés.
Mentions légales