Télécharger la plaquette Cast3M


fr en

Télécharger SIZFFB.INC

Retour à la liste

Numérotation des lignes : 

  1.  
  2. C* -INC SIZFFB   DEBUT **************************************************       
  3. C     -------------------------------------------------------------------       
  4. C                                                                               
  5. C     -------------- SEGMENT MODIFICATI ----------                              
  6. C     7/7/1988  MODIFICATION  : PASSAGE EN DOUBLE PRECISION                     
  7. C                                                                               
  8.       SEGMENT IZFFM                                                             
  9.       CHARACTER*8 NOMEL                                                         
  10.       REAL*8      FN(NP,NPG),GR(NES,NP,NPG),PG(NPG),XREF(NES,NP)
  11.       POINTEUR    KTP(N1).IZFFM,KZHR(N2).IZHR                                   
  12.       ENDSEGMENT                                                                
  13.  
  14.       SEGMENT IZHR                                                              
  15.       REAL*8      HR(IES,NP,NPG),PGSQ(NPG),RPG(NPG)                             
  16.       REAL*8      XYZ(IES,NP),AJ(IES,IES,NPG)                                   
  17.       ENDSEGMENT                                                                
  18. C                                                                               
  19. C     IZFFM PORTA INFORMAZIONI SULLO ELEMENTO DI RIFERIMENTO                    
  20. C     IZHR PORTA INFORMAZIONI SULLO ELEMENTO REALE                              
  21. C                                                                               
  22. C     FN      = FUNZIONI DI FORMA                                               
  23. C     GR      = GRADIENTE DELLE FUNZIONI DI FORMA NEL SISTEMA                   
  24. C               DI RIFERIMENTO LOCALE                                           
  25. C     PG      = PESI DELLE FORMULE DI INTEGRAZIONE                              
  26. C     XREF    = Coordonnées des noeuds de l'élément de référence
  27. C     KTP     = POINTEUR DI SEGMENT/IZFFM/                                      
  28. C     KZHRB   = POINTEUR DI SEGMENT/IZHR/                                       
  29. C     NOMEL*D = NOME DELLO ELEMENTO                                             
  30. C                                                                               
  31. C     HR      = GRADIENTE DELLE FUNZIONI DI FORMA NEL SISTEMA                   
  32. C               DI RIFERIMENTO GLOBALE                                          
  33. C     PGSQ    = PESO DI INTEGRAZIONE PER ELEMENTO DI AREA                       
  34. C               ( PGSQ=PG*DET(J) )                                              
  35. C     RPG     = RAGGIO DEI PUNTI DI INTEGRAZIONE (AXISIMMETRIC)                 
  36. C     XYZ     = COORDINATE DEI NODI                                             
  37. C     AJ      = JACOBIANO                                                       
  38. C                                                                               
  39. C     NP      = NUMERO DEI NODI DELLO ELEMENTO                                  
  40. C     NPG     = NUMERO DEI PUNTI DI INTEGRAZIONE                                
  41. C     NES     = NUMERO DELLE DIMENSIONI DELLO ELEMENTO                          
  42. C               DI RIFERIMENTO                                                  
  43. C     IES     = NUMERO DELLE DIMENSIONI DELLO ELEMENTO REALE                    
  44. C     N1      = NUMERO DI SEGMENT/IZFFM                                         
  45. C     N2      = NUMERO DI SEGMENT/IZHR                                          
  46. C                                                                               
  47. C     -------------------------------------------------------------------       
  48. C* -INC SIZFFB   FIN   **************************************************       
  49.  
  50.  

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