1 : C COIN SOURCE CHAT 05/01/12 22:13:01 5004 2 : C PROCEDURE DE RECHERCHE DES 4 COINS D'UNE FACE (POINTEE PAR IPT1) 3 : C ET DE SES DIMENSIONS. 4 : C 5 : SUBROUTINE COIN(IPT1,IP1,IP2,IP3,IP4,N1,N2) 6 : IMPLICIT INTEGER(I-N) 7 : -INC SMELEME 8 : -INC CCOPTIO 9 : MELEME=IPT1.LISREF(1) 10 : SEGACT MELEME 11 : N1=NUM(/2) 12 : NBNN1=NUM(/1) 13 : IP1=IPT1.NUM(1,1) 14 : SEGDES MELEME 15 : MELEME=IPT1.LISREF(2) 16 : SEGACT MELEME 17 : N2=NUM(/2) 18 : IP2=IPT1.NUM(NBNN1,N1) 19 : IP3=IPT1.NUM(2*NBNN1-1,N1*N2) 20 : SEGDES MELEME 21 : MELEME=IPT1.LISREF(4) 22 : SEGACT MELEME 23 : IP4=IPT1.NUM(3*NBNN1-2,N1*(N2-1)+1) 24 : SEGDES MELEME 25 : RETURN 26 : END 27 :
© Cast3M 2003 - All rights reserved.
Disclaimer