Télécharger kadj.eso

Retour à la liste

Numérotation des lignes :

  1. C KADJ SOURCE CHAT 05/01/13 00:50:25 5004
  2. SUBROUTINE KADJ(I,J,KBITM,NR,NADJ,IADJ,JADJ)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5. C Calcul des facteurs de forme en 3D
  6. C Sp appele par KPARC
  7. C Determination des points adjacents au point I J
  8.  
  9. DIMENSION IADJ(4),JADJ(4),KBITM(NR,NR)
  10. N = 0
  11. C
  12. IF (I.GT.1.AND.KBITM(I-1,J).EQ.0) THEN
  13. N = N + 1
  14. IADJ(N) = I-1
  15. JADJ(N) = J
  16. ENDIF
  17. IF (J.GT.1.AND.KBITM(I,J-1).EQ.0) THEN
  18. N = N + 1
  19. IADJ(N) = I
  20. JADJ(N) = J-1
  21. ENDIF
  22. IF (I.LT.NR.AND.KBITM(I+1,J).EQ.0) THEN
  23. N = N + 1
  24. IADJ(N) = I+1
  25. JADJ(N) = J
  26. ENDIF
  27. IF (J.LT.NR.AND.KBITM(I,J+1).EQ.0) THEN
  28. N = N + 1
  29. IADJ(N) = I
  30. JADJ(N) = J+1
  31. ENDIF
  32. NADJ = N
  33. RETURN
  34. END
  35.  
  36.  
  37.  

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