Sources Esope | Cast3M

C MANUCE    SOURCE    FANDEUR   10/12/14    21:18:03     6812
      SUBROUTINE MANUCE
*______________________________________________________________________
*
*         Donne une valeur en 1 point pour un MCHAML
*
*   Syntaxe :
*   ---------
*
*     CHA1 = MANU CHEL MODL1 MOT1 MOT2 IEN1 IEN2 IEN3 XFLO ;
*
*     OB1     Objet MMODEL
*     MOT1    Mot indiquant le sous type du MCHAML a creer
*     MOT2    Nom de la composante concernee
*     IEN1    Numero de l'element
*     IEN2    Numero du point de gauss
*     IEN3    Numero de la sous zone concernee (=1 par defaut)
*     XFLO    Flottant ( Valeur de la composante MOT2 )
*     CHA1    MCHAML resultat
*
*   EBERSOLT     JANVIER 86
*
*   Passage aux nouveaux MCHAMLs par JM CAMPENON le 06/91
*
*______________________________________________________________________
*
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
*
-INC CCOPTIO
*
      CHARACTER*(4) MOT2
*
      PARAMETER (NMOT=22)
      CHARACTER*8 LISMOT(NMOT),MOT1
*
      DATA LISMOT / 'NOEUD   ', 'GRAVITE ', 'RIGIDITE', 'MASSE   ',
     1              'STRESSES', 'DEPLACEM', 'FORCES  ', 'REACTUAL',
     1              'FVOLUMIQ', 'GRADIENT', 'CONTRAIN', 'DEFORMAT',
     1              'MATERIAU', 'CARACTER', 'TEMPERAT', 'PRINCIPA',
     1              'MAHOOKE ', 'HOTANGEN', 'DILATATI', 'VARINTER',
     1              'GRAFLEXI', 'VONMISES'/
*
*     Lecture du type du MCHAML
*
      CALL LIRMOT(LISMOT,NMOT,IPLAC,1)
      IF (IPLAC.EQ.0) THEN
        CALL ERREUR(78)
        RETURN
      ELSE
        MOT1=LISMOT(IPLAC)
      ENDIF
*
      CALL LIRCHA(MOT2,1,IRET)
      IF (IERR.NE.0) RETURN
*
      CALL LIROBJ('MMODEL',IPMODL,1,IRET)
      IF (IERR.NE.0) RETURN
*
      CALL LIRENT(IEN1,1,IRET)
      IF (IERR.NE.0) RETURN
      IF (IEN1.LE.0) THEN
        INTERR(1)=1
        INTERR(2)=IEN1
        CALL ERREUR(190)
        RETURN
      ENDIF
*
      CALL LIRENT(IEN2,1,IRET)
      IF (IERR.NE.0) RETURN
      IF (IEN2.LE.0) THEN
        INTERR(1)=1
        INTERR(2)=IEN2
        CALL ERREUR(190)
        RETURN
      ENDIF
*
      CALL LIRENT(IEN3,0,IRET)
      IF (IERR.NE.0) RETURN
      IF (IRET.EQ.0) IEN3=1
      IF (IEN3.LE.0) THEN
        INTERR(1)=1
        INTERR(2)=IEN3
        CALL ERREUR(190)
        RETURN
      ENDIF
*
      CALL LIRREE(XFLO,1,IRET)
      IF (IERR.NE.0) RETURN
*
      CALL MANUCI(IPMODL,MOT1,MOT2,IEN1,IEN2,IEN3,XFLO,IPRES)
*
*     IPRES = 0 en cas d'ERREUR & IERR non nul
      IF (IERR.EQ.0) CALL ECROBJ('MCHAML',IPRES)
*
      RETURN
      END