Numérotation des lignes :

C MODPOI    SOURCE    CHAT      05/01/13    01:50:39     5004      SUBROUTINE MODPOI (R1,R2,R3,DENS,IPOIN)**************************************************************************                             M O D P O I*                             -----------** FONCTION:* ---------**     MODIFICATION DE LA DENSITE ET DES COORDONNEES D'UN POINT**** MODE D'APPEL:* -------------**     CALL MODPOI (R1,R2,R3,DENS,IPOIN)** PARAMETRES:   (E)=ENTREE   (S)=SORTIE* -----------**     R1      REEL DP   (E)  1-ERE COORDONNEE DU POINT.*     R2      REEL DP   (E)  2-EME COORDONNEE DU POINT.*     R3      REEL DP   (E)  3-EME COORDONNEE DU POINT (QUELCONQUE SI*                            PROBLEME BIDIMENSIONNEL).*     DENS    REEL DP   (E)  DENSITE DU POINT*     IPOIN   ENTIER    (E)  NUMERO DU POINT*      IMPLICIT INTEGER(I-N)      REAL*8 R1,R2,R3,DENS** MODULES UTILISES:* ------------------INC CCOPTIO-INC SMCOORD** COMMENTAIRE* -----------**     ON NE VERIFIE PAS DANS CE SOUS-PROGRAMME QUE LE POINT EXISTE** AUTEUR, DATE DE CREATION:* -------------------------**     PASCAL MANIGOT     23 NOVEMBRE 1987** LANGAGE:* --------**     ESOPE + FORTRAN77**************************************************************************      IF (IDIM .LT. 2 .OR. IDIM .GT. 3) THEN         NUMERR = 219         CALL ERREUR (NUMERR)         RETURN      END IF*      SEGACT,MCOORD*MOD      NBPTS=IPOIN      XCOOR((NBPTS-1)*(IDIM+1)+1) = R1      XCOOR((NBPTS-1)*(IDIM+1)+2) = R2      IF (IDIM .EQ. 3) THEN         XCOOR((NBPTS-1)*(IDIM+1)+3) = R3      END IF      XCOOR(NBPTS*(IDIM+1)) = DENS*      END

© Cast3M 2003 - Tous droits réservés.
Mentions légales