Télécharger la plaquette Cast3M


fr en

Télécharger j3test.eso

Retour à la liste

Numérotation des lignes : 

j3test

  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