Télécharger la plaquette Cast3M


fr en

Télécharger cham1i.eso

Retour à la liste

Numérotation des lignes : 

cham1i

  1. C CHAM1I    SOURCE    CB215821  20/11/25    13:19:14     10792          
  2.       SUBROUTINE CHAM1i(ith)
  3.  
  4.       COMMON/cham1c/IPARA1,IPARA2
  5.  
  6.       SEGMENT SPARA1
  7.         INTEGER NBTHR1
  8.         INTEGER IPCH1
  9.         INTEGER IPTP1
  10.         INTEGER IPTR1
  11.       ENDSEGMENT
  12.  
  13.       SEGMENT SPARA2
  14.         INTEGER NBTHRD
  15.         INTEGER IISUP
  16.         INTEGER IPSAU
  17.         INTEGER IPMOD
  18.         INTEGER IPCHE
  19.         INTEGER IPTPR
  20.         INTEGER IPTRA
  21.       ENDSEGMENT
  22.  
  23.       IF(IPARA1 .NE. 0 .AND. IPARA2 .EQ. 0)THEN
  24. C       Pour effectuer le remplissage du MTRA2  en parallele
  25. C       Recupere le SEGMENT dans le COMMON/cham1c
  26.         SPARA1=IPARA1
  27.  
  28.         NBTHR =SPARA1.NBTHR1
  29.         MCHPOI=SPARA1.IPCH1
  30.         ICPR  =SPARA1.IPTP1
  31.         MTRA2 =SPARA1.IPTR1
  32.  
  33. C       Appel de la SUBROUTINE qui fait le travail
  34.         CALL CHAM11(NBTHR,ith,MCHPOI,ICPR,MTRA2)
  35.  
  36.       ELSEIF(IPARA1 .EQ. 0 .AND. IPARA2 .NE. 0)THEN
  37. C       Pour effectuer le remplissage du MCHAML en parallele
  38. C       Recupere le SEGMENT dans le COMMON/cham1c
  39.         SPARA2=IPARA2
  40.  
  41.         NBTHR =SPARA2.NBTHRD
  42.         ISUP  =SPARA2.IISUP
  43.         ISAUT =SPARA2.IPSAU
  44.         MMODEL=SPARA2.IPMOD
  45.         MCHELM=SPARA2.IPCHE
  46.         ICPR  =SPARA2.IPTPR
  47.         MTRA2 =SPARA2.IPTRA
  48.  
  49. C       Appel de la SUBROUTINE qui fait le travail
  50.         CALL CHAM12(NBTHR,ith,ISUP,ISAUT,MMODEL,MCHELM,ICPR,MTRA2)
  51.       ELSE
  52.         CALL ERREUR(5)
  53.  
  54.       ENDIF
  55.  
  56.       END
  57.  
  58.  
  59.  
  60.  

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