Numérotation des lignes :

chmmst
1. C CHMMST SOURCE CB215821 20/11/25 13:19:32 10792
2. SUBROUTINE CHMmST(MCHPOI,Mmsolu,IPtidx,JPOVAL)
3. IMPLICIT INTEGER(I-N)
4. IMPLICIT REAL*8 (A-H,O-Z)
5. C------------------------------------------------------------------
6. C
7. C CORRESPONDANCE ENTRE LES COMPOSANTES D' UN CHPOINT ET LES ???
8. C JPOVAL POINTEUR DU TABLEAU DE VALEURS DU CHPOINT
9. C
10. C On cherche si toutes les composantes du chpoint correspondent
11. C a un identificateur et réciproquement .On vérifie l'unicité
12. C------------------------------------------------------------------
13. -INC SMCHPOI
14. -INC SMLMOTS
15.
16. -INC PPARAM
17. -INC CCOPTIO
18. SEGMENT IPTIDX
19. INTEGER ITDX(NXDIM)
20. ENDSEGMENT
21. SEGMENT ITBID
22. INTEGER IBID(NXDIM)
23. ENDSEGMENT
24. MLmots=Mmsolu
25. SEGACT MCHPOI
26. MSOUPO=IPCHP(1)
27. SEGACT MSOUPO
28. NXDIM=mots(/2)
29. SEGINI IPTIDX
30. SEGINI ITBID
31. CALL INITI(ITDX,NXDIM,0)
32. CALL initi(IBID,NXDIM,1)
33. NC=NOCOMP(/2)
34. * write(6,*)' mots ',(mots(ik),ik=1,nxdim)
35. * write(6,*)' comp ',(nocomp(ik),ik=1,nxdim)
36.
37. DO 50 I=1,NC
38. c
39. c
40. C WRITE(6,*)'COMPOSANTE ',NLL
41. DO 20 J=1,NXDIM
42. IF(nocomp(i).eq.mots(j))then
43. ITDX(J)=I
44. IBID(J)=0
45. * write(6,*)' i j ',i,j
46. GO TO 30
47. ENDIF
48. 20 CONTINUE
49. MOTERR=NOCOMP(I)
50. CALL ERREUR(197)
51. RETURN
52. 30 CONTINUE
53. 50 CONTINUE
54. DO 60 J=1,NXDIM
55. IF(ITDX(J).EQ.0)THEN
56. WRITE(MOTERR(1:LOCOMP),110)mots(J)
57. CALL ERREUR(77)
58. RETURN
59. ENDIF
60. 60 CONTINUE
61. 110 FORMAT('X',I3.3)
62. MPOVAL=IPOVAL
63. SEGACT MPOVAL
64. JPOVAL= IPOVAL
65. SEGDES MSOUPO,MCHPOI
66. SEGSUP ITBID
67. * write(6,*)' ITDX ',(itdx(j),j=1,nxdim)
68. RETURN
69. END
70.
71.
72.
73.
74.

© Cast3M 2003 - Tous droits réservés.
Mentions légales