Télécharger la plaquette Cast3M


fr en

Télécharger anchpo.eso

Retour à la liste

Numérotation des lignes : 

anchpo

  1. C ANCHPO    SOURCE    CB215821  25/04/23    21:15:02     12247          
  2.       SUBROUTINE ANCHPO(IPO1,NOCOM,IRET)
  3. C=======================================================================
  4. C
  5. C     MISE A ZERO DES TERMES SUR UNE COMPOSANTE DONNEE
  6. C          DANS UN CHPOINT
  7. C     LE CHPOINT RESULTANT VOIT SON POINTEUR STOCKE DANS IRET
  8. C  ENTREES
  9. C     IPO1=POINTEUR SUR LE CHPOINT
  10. C     NOCOM=NOM DE COMPOSANTE
  11. C  SORTIES
  12. C     IRET=POINTEUR SUR LE CHAMPS RESULTANT
  13. C
  14. C     J  BROCHARD  NOVEMBRE 85
  15. C
  16. C=======================================================================
  17.  
  18.       IMPLICIT INTEGER(I-N)
  19.       IMPLICIT REAL*8(A-H,O-Z)
  20. -INC SMCHPOI
  21. -INC SMCOORD
  22. -INC PPARAM
  23. -INC CCOPTIO
  24.  
  25.       CHARACTER*(*) NOCOM
  26.  
  27.       MCHPO1=IPO1
  28.       SEGACT MCHPO1
  29.       NSOUPO=MCHPO1.IPCHP(/1)
  30.       NAT=MCHPO1.JATTRI(/1)
  31.       SEGINI MCHPOI
  32.       IRET=MCHPOI
  33.       MTYPOI=MCHPO1.MTYPOI
  34.       MOCHDE=MCHPO1.MOCHDE
  35.       IFOPOI=MCHPO1.IFOPOI
  36.       DO 72 IA=1,NSOUPO
  37.         MSOUP1=MCHPO1.IPCHP(IA)
  38.         SEGACT MSOUP1
  39.         NC=MSOUP1.NOCOMP(/2)
  40.         SEGINI MSOUPO
  41.         IPCHP(IA)=MSOUPO
  42.         IGEOC=MSOUP1.IGEOC
  43.         DO 73 IB=1,NC
  44.           NOCOMP(IB)=MSOUP1.NOCOMP(IB)
  45.           NOHARM(IB)=MSOUP1.NOHARM(IB)
  46.   73    CONTINUE
  47.         MPOVA1=MSOUP1.IPOVAL
  48.         SEGACT MPOVA1
  49.         N=MPOVA1.VPOCHA(/1)
  50.         NC=MPOVA1.VPOCHA(/2)
  51.         SEGINI MPOVAL
  52.         IPOVAL=MPOVAL
  53.         DO 75 IC=1,NC
  54.           IF (NOCOMP(IC).NE.NOCOM) GOTO 755
  55.           DO 751 IB=1,N
  56.             VPOCHA(IB,IC)=0.D0
  57.   751     CONTINUE
  58.           GOTO 75
  59.   755     CONTINUE
  60.           DO 756 IB=1,N
  61.             VPOCHA(IB,IC)=MPOVA1.VPOCHA(IB,IC)
  62.   756     CONTINUE
  63.   75    CONTINUE
  64.   72  CONTINUE
  65.       END
  66.  
  67.  
  68.  
  69.  

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