Télécharger la plaquette Cast3M


fr en

Télécharger j3tes1.eso

Retour à la liste

Numérotation des lignes : 

j3tes1

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

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