Sources Esope | Cast3M

lipoin
C LIPOIN    SOURCE    PV        20/03/24    21:18:55     10554          
      SUBROUTINE LIPOIN(IMAX1,NOBJN,NOMM1,NOMM2,NBANC,IRET,IFORM)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
C=======================================================================
C   BUT         : LECTURE DES COORD
C                 MISE A LA SUITE DES COORD EXISTANTES
C                 AJOUT DANS LA TABLE DES OBJETS
C   APPELLE PAR :  LIPIL
C   APPELLE     :  LFCDI2 NOMNST
C   ECRIT PAR FARVACQUE -LENA
C
C=======================================================================
-INC SMCOORD
 
-INC PPARAM
-INC CCOPTIO
C
C=======================================================================
      SEGMENT/NOMM1/(NOM1(NOBJN1))
      SEGMENT NOMM2
       CHARACTER*(8) NOM2(NOBJN1)
      ENDSEGMENT
C
      CHARACTER*8 NOMM
C--------------------------------------------------------------------
      IRET=0
C --- ON PREND LA TAILLE DES COORD ACTUELLES  S IL Y EN A DEJA
      SEGACT MCOORD*mod
      NBANC=nbpts
      NBNOUV=NBANC+IMAX1
      NBPTS=NBNOUV
C --- ON AUGMENTE COORD : TAILLE= NBANC+NBRE LU
      SEGADJ MCOORD
      NDEBB=NBANC+1
      LL=NBANC*(IDIM+1)+1
      L=(IDIM+1)*IMAX1
      CALL LFCDI2(IORES,L,XCOOR(LL),IRET,IFORM)
      IF(IRET.NE.0) GOTO 1000
C ------------------------------------------------
C --- DANS NOM1 ON A LE NUMERO DU POINT
C     ON L INCREMENTE DE NBANC AVANT RAJOUT DANS LA TABLE DES OBJETS
      IF (NOBJN.NE.0) THEN
         SEGACT NOMM1*MOD,NOMM2
         DO 18 I=1,NOBJN
            NOM1(I)=NOM1(I)+NBANC
            NOMM= NOM2(I)
            ITTVAL=NOM1(I)
            CALL NOMOBJ('POINT   ',NOMM,ITTVAL)
*            WRITE(IOIMP,801) NOMM,NOM1(I)
  18     CONTINUE
         SEGDES NOMM1,NOMM2
    1 ENDIF
 1000 RETURN
C ------------------------------------------------
*  801 FORMAT(2X,'POINT   ',2X,A8,2X,I8)
      END