C CREPO1 SOURCE CB215821 23/01/25 21:15:08 11573 C----------------------------------------------------------------------- C C R E P O 1 C ----------- C C Fonction : C ---------- C Creation d'un POINT (equivalent au sous-programme CREPOI sans C les lectures et ecritures). La densite du point cree est la C valeur courante (stockee dans CCOPTION). C C Mode d'appel : C -------------- C CALL CREPO1 (R1,R2,R3, IPOIN) C C Parametres : (E)=Entree (S)=Sortie C ------------ C R1 REEL DP (E) 1ere coordonnee du point C R2 REEL DP (E) 2e coordonnee du point (si IDIM=2 ou 3) C R3 REEL DP (E) 3e coordonnee du point (si IDIM=3) C IPOIN ENTIER (S) numero du point cree (dans SMCOORD) C C Auteur, date de creation : C -------------------------- C PASCAL MANIGOT 19 AVRIL 1985 C 10/2003 : Modifications pour traiter le cas IDIM=1 C C Langage : FORTRAN77 + ESOPE C----------------------------------------------------------------------- SUBROUTINE CREPO1 (R1,R2,R3, IPOIN) IMPLICIT INTEGER(I-N) IMPLICIT REAL*8 (A-H,O-Z) -INC CCGEOME -INC PPARAM -INC CCOPTIO -INC SMCOORD IF ((IDIM.LT.1).OR.(IDIM.GT.3)) THEN CALL ERREUR (219) RETURN ENDIF idimp1=IDIM+1 segact mcoord*mod NBPTS=nbpts+1 SEGADJ MCOORD IPoin=(NBPTS-1)*idimp1 XCOOR(IPoin+1)=R1 IF (IDIM.GE.2) XCOOR(IPoin+2)=R2 IF (IDIM.GE.3) XCOOR(IPoin+3)=R3 XCOOR(IPoin+idimp1)=DENSIT IPOIN=NBPTS RETURN END