Esope source files

   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 :