Esope source files

   1 : C GRAF      SOURCE    FANDEUR   10/12/14    21:16:43     6812           
   2 : 
   3 :       SUBROUTINE GRAF                                                           
   4 : 
   5 :       IMPLICIT INTEGER(I-N)
   6 :       IMPLICIT REAL*8(A-H,O-Z)                                                  
   7 : 
   8 : *--------------------------------------------------------------------*          
   9 : *                                                                    *          
  10 : *                     Opérateur GRADIENT DE FLEXION                  *          
  11 : *                     ________________________________               *          
  12 : *                                                                    *          
  13 : *          Syntaxe :  GRAF1 = GRAF MOD1 DEP1 ( CAR1 ) ;              *          
  14 : *                                                                    *          
  15 : *     Entrees:                                                       *          
  16 : *                                                                    *          
  17 : *        MOD1      objet MMODEL                                      *          
  18 : *        DEP1      CHPOINT ou MCHAML de déplacements                 *
  19 : *        CAR1      MCHAML de sous-type CARACTERISTIQUES              *          
  20 : *                                                                    *          
  21 : *     Sortie:                                                        *          
  22 : *                                                                    *          
  23 : *       GRAF1      MCHAML de sous-type GRADIENT DE FLEXION           *
  24 : *                                                                    *          
  25 : *      passage aux nouveaux MCHAMLs par P.DOWLATYARI le 28/03/91     *          
  26 : *                                                                    *          
  27 : *--------------------------------------------------------------------*          
  28 : -INC CCOPTIO                                                                    
  29 : *
  30 :       IPCHL1=0
  31 :       IPCHE1=0
  32 :       IRET1=0 
  33 :       IRET2=0
  34 :       IRET3=0                                                                   
  35 : *                                                                               
  36 : *     LECTURE D'UN MMODEL                                                       
  37 : *                                                                               
  37 :       CALL LIROBJ('MMODEL',IPMODL,1,IRET)                                       
  38 :       IF (IERR.NE.0) RETURN                                                     
  39 : *                                                                               
  40 : *       LECTURE D'UN CHPOINT                                                    
  41 : *                                                                               
  41 :       CALL LIROBJ('CHPOINT',IPCHP1,0,IRET1)                                   
  42 :       IF(IERR.NE.0) RETURN
  43 : *                                                                               
  44 : *    CHPOINT DE DEPLACEMENT ---> MCHAML AUX NOEUDS                              
  45 : *                                                                               
  46 :       IF (IRET1.NE.0) THEN                                                    
  46 :          CALL CHAME1(0,IPMODL,IPCHP1,' ',IPCHE2,1)
  47 :          IF (IERR.NE.0) RETURN                                                
  48 : *                                                                               
  49 : *     LECTURE D'UN PREMIER MCHAML (DEPLACEMENTS)
  50 : *                                                                               
  51 :       ELSE
  51 :          CALL LIROBJ('MCHAML',IPCHE2,1,IRET2)                                 
  52 :          IF (IERR.NE.0) RETURN
  53 :       ENDIF
  54 : *                                                                               
  55 : *     LECTURE D'UN DEUXIEME MCHAML (CARACTERISTIQUE)                            
  56 : *                                                                               
  56 :       CALL LIROBJ('MCHAML',IPCHE1,0,IRET3)                                
  57 :       IF (IERR.NE.0) RETURN
  58 :       IF (IRET3.NE.0.AND.IRET2.NE.0) THEN             
  58 :         CALL RNGCHA (IPCHE1,IPCHE2,'CARACTERISTIQUES',        
  59 :      1               'DEPLACEMENTS',IPCHA1,IPCHA2)                            
  60 :         IF(IPCHA1.EQ.0.OR.IPCHA2.EQ.0)THEN                                   
  60 :            CALL ERREUR(805)                                                  
  61 :            RETURN                                                               
  62 :         ENDIF
  63 :         IPCHE1=IPCHA1
  64 :         IPCHE2=IPCHA2                                                           
  65 :       ENDIF                                                                     
  66 : *                                                                               
  67 : *     GESTION DES OPERANDES                                                     
  68 : *                                                                               
  68 :       CALL GRAF1(IPMODL,IPCHE2,IPCHE1,IPCHL1,IRET)                              
  69 : *                                                                               
  70 :       IF (IRET.EQ.1) THEN                                                       
  70 :           IF (IRET1.NE.0) CALL DTCHAM(IPCHE2)                                   
  70 :           CALL ECROBJ('MCHAML',IPCHL1)                                          
  71 :       ENDIF                                                                     
  72 : 
  73 :       RETURN                                                                    
  74 :       END                                                                       
  75 : 
  76 :