Télécharger j3test.eso

Retour à la liste

Numérotation des lignes :

  1. C J3TEST SOURCE CHAT 05/01/13 00:47:37 5004
  2. SUBROUTINE J3TES1(IST,NPTO,LIN,LOU,LON,NPON)
  3. C----------------------------------------------------------
  4. C SERVICE
  5. C
  6. C PP 6/97
  7. C Pierre Pegon/JRC Ispra
  8. C----------------------------------------------------------
  9. C
  10. IMPLICIT INTEGER(I-N)
  11. DIMENSION IST(3,NPTO)
  12. LOGICAL LIN,LOU,LON
  13. C
  14. LIN=.FALSE.
  15. LOU=.FALSE.
  16. LON=.FALSE.
  17. NPON=0
  18. DO IE1=1,NPTO
  19. IF(IST(1,IE1).EQ.-1)LIN=.TRUE.
  20. IF(IST(1,IE1).EQ.-2)LOU=.TRUE.
  21. IF(IST(1,IE1).GT. 0)THEN
  22. LON=.TRUE.
  23. NPON=NPON+1
  24. ENDIF
  25. ENDDO
  26. C
  27. RETURN
  28. END
  29. C
  30. SUBROUTINE J3TES2(CRO,NPTO,LCIN,LCOU,LCON)
  31. C----------------------------------------------------------
  32. C SERVICE
  33. C
  34. C PP 6/97
  35. C----------------------------------------------------------
  36. C
  37. IMPLICIT INTEGER(I-N)
  38. INTEGER CRO(2,NPTO)
  39. LOGICAL LCIN,LCOU,LCON
  40. C
  41. LCIN=.FALSE.
  42. LCOU=.FALSE.
  43. LCON=.FALSE.
  44. DO IE1=1,NPTO
  45. DO IE2=1,2
  46. IF(CRO(IE2,IE1).EQ.-1)LCIN=.TRUE.
  47. IF(CRO(IE2,IE1).EQ.-2)LCOU=.TRUE.
  48. IF(CRO(IE2,IE1).EQ. 1)LCON=.TRUE.
  49. ENDDO
  50. ENDDO
  51. C
  52. RETURN
  53. END
  54.  
  55.  
  56.  
  57.  

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