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  20/11/25    13:18:21     10792          
  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 PPARAM
  22. -INC CCOPTIO
  23.  
  24.       CHARACTER*(*) NOCOM
  25.  
  26.       MCHPO1=IPO1
  27.       SEGACT MCHPO1
  28.       NSOUPO=MCHPO1.IPCHP(/1)
  29.       NAT=MCHPO1.JATTRI(/1)
  30.       SEGINI MCHPOI
  31.       IRET=MCHPOI
  32.       MTYPOI=MCHPO1.MTYPOI
  33.       MOCHDE=MCHPO1.MOCHDE
  34.       IFOPOI=MCHPO1.IFOPOI
  35.       DO 72 IA=1,NSOUPO
  36.         MSOUP1=MCHPO1.IPCHP(IA)
  37.         SEGACT MSOUP1
  38.         NC=MSOUP1.NOCOMP(/2)
  39.         SEGINI MSOUPO
  40.         IPCHP(IA)=MSOUPO
  41.         IGEOC=MSOUP1.IGEOC
  42.         DO 73 IB=1,NC
  43.           NOCOMP(IB)=MSOUP1.NOCOMP(IB)
  44.           NOHARM(IB)=MSOUP1.NOHARM(IB)
  45.   73    CONTINUE
  46.         MPOVA1=MSOUP1.IPOVAL
  47.         SEGACT MPOVA1
  48.         N=MPOVA1.VPOCHA(/1)
  49.         NC=MPOVA1.VPOCHA(/2)
  50.         SEGINI MPOVAL
  51.         IPOVAL=MPOVAL
  52.         DO 75 IC=1,NC
  53.           IF (NOCOMP(IC).NE.NOCOM) GOTO 755
  54.           DO 751 IB=1,N
  55.             VPOCHA(IB,IC)=0.D0
  56.   751     CONTINUE
  57.           GOTO 75
  58.   755     CONTINUE
  59.           DO 756 IB=1,N
  60.             VPOCHA(IB,IC)=MPOVA1.VPOCHA(IB,IC)
  61.   756     CONTINUE
  62.   75    CONTINUE
  63.   72  CONTINUE
  64.       END
  65.  
  66.  
  67.  

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