Esope source files

   1 : C J3LOAP    SOURCE    CHAT      05/01/13    00:47:02     5004           
   2 :       SUBROUTINE J3LOAP(MELEME,NPTO,BLOCOM,NPOINT)
   3 : C----------------------------------------------------
   4 : C     TRANSFERT DES POINTS INITIAUX DANS J3LOAP
   5 : C
   6 : C     PP 9/97
   7 : C     Pierre Pegon/JRC Ispra
   8 : C----------------------------------------------------
   9 :       IMPLICIT INTEGER(I-N)
  10 :       IMPLICIT REAL*8(A-H,O-Z)
  11 :       DIMENSION P1(3)
  12 : C
  13 : -INC CCOPTIO
  14 : -INC SMCOORD
  15 : -INC SMELEME
  16 : C
  17 :       SEGMENT BLOCOM
  18 :         INTEGER POINT(NPOINT)
  19 :         REAL*8 YCOOR(IDIM+1,NPOINT)
  20 :         INTEGER MAILL(MM1)
  21 :       ENDSEGMENT
  22 : C
  23 :       MM1=MAILL(/1)
  24 :       NPOIN1=NPOINT
  25 :       NPOINT=NPOINT+NPTO
  26 :       SEGADJ,BLOCOM
  27 : C
  28 :       DO IE1=1,NPTO
  29 :         NUME=NUM(1,IE1)
  30 :         POINT(NPOIN1+IE1)=NUME
  31 :         IREF=(NUME-1)*(IDIM+1)
  32 :         DO IE2=1,IDIM+1
  33 :           YCOOR(IE2,NPOIN1+IE1)=XCOOR(IREF+IE2)
  34 :         ENDDO
  35 :       ENDDO
  36 : C
  37 :       RETURN
  38 :       END
  39 :  
  40 :