Sources Esope | Cast3M

manuc2
C MANUC2    SOURCE    CHAT      05/01/13    01:28:28     5004
      SUBROUTINE MANUC2(VALFLU,IPGEOM,NCOMP,IPCHPO)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)
************************************************************************
*
*                             M A N U C 2
*                             -----------
*
* FONCTION:
* ---------
*
*     CREER UN CHPOINT CONTENANT UNE OU PLUSIEURS COMPOSANTES A VALEUR
*     ALGEBRIQUE CONSTANTE SUR UN MAILLAGE
*
* MODULES UTILISES:
* -----------------
*
 
-INC PPARAM
-INC CCOPTIO
*
* PARAMETRES:   (E)=ENTREE   (S)=SORTIE   (+ = CONTENU DANS UN COMMUN)
* -----------
*
*     VALFLU  (E)  VALEUR ALGEBRIQUE DE LA COMPOSANTE
*     IPGEOM  (E)  POINTEUR SUR L'OBJET MAILLAGE
*     NCOMP   (E)  DESIGNE LE NOMBRE DE COMPOSANTES
*     IPCHPO  (S)  POINTEUR SUR LE CHPOINT RESULTAT
*
      CHARACTER*4 MOCOMP(5)
      DATA MOCOMP/'COM1','COM2','COM3','COM4','COM5'/
*
* AUTEUR, DATE DE CREATION:
* -------------------------
*
*     DENIS ROBERT,LE 28/01/88.
*
* LANGAGE:
* --------
*
*             FORTRAN77
*
************************************************************************
*
      IF(NCOMP.GT.5)THEN
        CALL ERREUR(5)
        RETURN
      ENDIF
      IF(NCOMP.EQ.1)THEN
        CALL ECRREE(VALFLU)
        CALL ECRCHA('SCAL')
        CALL ECRENT(1)
        CALL ECROBJ('MAILLAGE',IPGEOM)
        CALL MANUCH
      ELSE
       DO 10 ICOMP=1,NCOMP
        CALL ECRREE(VALFLU)
        CALL ECRCHA(MOCOMP(ICOMP))
 10    CONTINUE
        CALL ECRENT(NCOMP)
        CALL ECROBJ('MAILLAGE',IPGEOM)
        CALL MANUCH
      ENDIF
*
      CALL LIROBJ('CHPOINT',IPCHPO,1,IRET)
      IF (IERR.NE.0) RETURN
*
      END