1 : C KSISI1 SOURCE PV 11/03/07 21:17:22 6885 2 : SUBROUTINE KSISI1(xmatjc,JC,WRK2,NCOURB,KERRE) 3 : C KSISIG SOURCE STRU 94/06/16 21:26:38 1185 4 : c SUBROUTINE KSISIG(WRK0,JC,WRK2,NCOURB,KERRE) 5 : IMPLICIT INTEGER(I-N) 6 : IMPLICIT REAL*8(A-H,O-Z) 7 : -INC SMEVOLL 8 : -INC SMLREEL 9 : SEGMENT/WRK2/(TRAC(LTRAC)*D) 10 : DATA NCOMAX/130/ 11 : KERRE=0 12 : c MEVOLL=XMAT(JC) 13 : MEVOLL=nint(xmatjc) 14 : IF(MEVOLL.EQ.0) THEN 15 : KERRE=37 16 : RETURN 17 : ENDIF 18 : SEGACT MEVOLL 19 : KEVOLL=IEVOLL(1) 20 : SEGACT KEVOLL 21 : MLREEL=IPROGX 22 : MLREE1=IPROGY 23 : SEGDES KEVOLL 24 : SEGACT MLREEL,MLREE1 25 : NBPOIX=PROG(/1) 26 : NBPOIY=MLREE1.PROG(/1) 27 : IF(NBPOIX.GT.NCOMAX+1) KERRE=31 28 : IF(NBPOIX.LT.2) KERRE=32 29 : IF(KERRE.EQ.0) GO TO 693 30 : 692 CONTINUE 31 : C 32 : C ERREUR 33 : C 34 : SEGDES MLREEL,MLREE1 35 : SEGDES MEVOLL 36 : GO TO 777 37 : 693 CONTINUE 38 : C 39 : C VERIFICATION ANODINE 40 : C 41 : DO 100 I=3,NBPOIX 42 : I1=I-1 43 : DEPS=PROG(I)-PROG(I1) 44 : IF(DEPS.EQ.0.D0) THEN 45 : KERRE=33 46 : GO TO 692 47 : ENDIF 48 : 100 CONTINUE 49 : C 50 : NCOURB=0 51 : DO 695 I=1,NBPOIX 52 : PKSI=PROG(I) 53 : PK=MLREE1.PROG(I) 54 : NCOURB=NCOURB+1 55 : TRAC(2*NCOURB-1)=PKSI 56 : TRAC(2*NCOURB)=PK 57 : 695 CONTINUE 58 : C 59 : SEGDES MLREEL,MLREE1 60 : SEGDES MEVOLL 61 : RETURN 62 : C 63 : 777 CONTINUE 64 : RETURN 65 : END 66 : 67 : 68 :
© Cast3M 2003 - All rights reserved.
Disclaimer