1 : C MODPOI SOURCE CHAT 05/01/13 01:50:39 5004 2 : SUBROUTINE MODPOI (R1,R2,R3,DENS,IPOIN) 3 : ************************************************************************ 4 : * 5 : * M O D P O I 6 : * ----------- 7 : * 8 : * FONCTION: 9 : * --------- 10 : * 11 : * MODIFICATION DE LA DENSITE ET DES COORDONNEES D'UN POINT 12 : * 13 : * 14 : * 15 : * MODE D'APPEL: 16 : * ------------- 17 : * 17 : * CALL MODPOI (R1,R2,R3,DENS,IPOIN) 18 : * 19 : * PARAMETRES: (E)=ENTREE (S)=SORTIE 20 : * ----------- 21 : * 22 : * R1 REEL DP (E) 1-ERE COORDONNEE DU POINT. 23 : * R2 REEL DP (E) 2-EME COORDONNEE DU POINT. 24 : * R3 REEL DP (E) 3-EME COORDONNEE DU POINT (QUELCONQUE SI 25 : * PROBLEME BIDIMENSIONNEL). 26 : * DENS REEL DP (E) DENSITE DU POINT 27 : * IPOIN ENTIER (E) NUMERO DU POINT 28 : * 29 : IMPLICIT INTEGER(I-N) 30 : REAL*8 R1,R2,R3,DENS 31 : * 32 : * MODULES UTILISES: 33 : * ----------------- 34 : -INC CCOPTIO 35 : -INC SMCOORD 36 : * 37 : * COMMENTAIRE 38 : * ----------- 39 : * 40 : * ON NE VERIFIE PAS DANS CE SOUS-PROGRAMME QUE LE POINT EXISTE 41 : * 42 : * AUTEUR, DATE DE CREATION: 43 : * ------------------------- 44 : * 45 : * PASCAL MANIGOT 23 NOVEMBRE 1987 46 : * 47 : * LANGAGE: 48 : * -------- 49 : * 50 : * ESOPE + FORTRAN77 51 : * 52 : ************************************************************************ 53 : * 54 : IF (IDIM .LT. 2 .OR. IDIM .GT. 3) THEN 55 : NUMERR = 219 55 : CALL ERREUR (NUMERR) 56 : RETURN 57 : END IF 58 : * 59 : SEGACT,MCOORD*MOD 60 : NBPTS=IPOIN 61 : XCOOR((NBPTS-1)*(IDIM+1)+1) = R1 62 : XCOOR((NBPTS-1)*(IDIM+1)+2) = R2 63 : IF (IDIM .EQ. 3) THEN 64 : XCOOR((NBPTS-1)*(IDIM+1)+3) = R3 65 : END IF 66 : XCOOR(NBPTS*(IDIM+1)) = DENS 67 : * 68 : END 69 : 70 :
© Cast3M 2003 - All rights reserved.
Disclaimer