C UNIFOR SOURCE CB215821 20/11/25 13:41:49 10792 SUBROUTINE UNIFOR ************************************************************************ * * U N I F O R * ----------- * * SOUS-PROGRAMME ASSOCIE A L'OPTION "UNIFORME" DE L'OPERATEUR * "CHPOINT". * * FONCTION: * --------- * * FOURNIR UN 'CHPOINT' DE MEME VALEUR EN TOUT POINT. * * PHRASE D'APPEL (EN GIBIANE): * ---------------------------- * * CC = CHPOINT UNIFORME KK XX ; * * OPERANDE ET RESULTAT: * --------------------- * * KK 'RIGIDITE' * XX 'FLOTTANT' VALEUR DU 'CHPOINT' EN TOUT POINT. * CC 'CHPOINT ' APPUYE SUR LE MEME SUPPORT GEOMETRIQUE QUE "KK" * * LEXIQUE: (ORDRE ALPHABETIQUE) * -------- * * IPRIGI ENTIER POINTEUR SUR "KK". * IPCHPO ENTIER POINTEUR SUR "CC". * * SOUS-PROGRAMMES APPELES: * ------------------------ * * LIROBJ, LIRREE, ECROBJ, UNIFO1. * * AUTEUR, DATE DE CREATION: * ------------------------- * * PASCAL MANIGOT 1ER AVRIL 1985 * * LANGAGE: * -------- * * FORTRAN77 + EXTENSION: CARACTERES MIS DANS DES ENTIERS * ************************************************************************ * IMPLICIT INTEGER(I-N) REAL*8 XX -INC PPARAM -INC CCOPTIO -INC SMCHPOI * * * ICODE = 1 CALL LIROBJ ('RIGIDITE',IPRIGI,ICODE,IRETOU) IF (IERR .NE. 0) RETURN * ICODE = 1 CALL LIRREE (XX,ICODE,IRETOU) IF (IERR .NE. 0) RETURN * CALL UNIFO1 (IPRIGI,XX, IPCHPO) IF (IERR .NE. 0) RETURN * * ON ATTRIBUT UNE NATURE DIFFUSE A PRIORI * MCHPOI = IPCHPO SEGACT MCHPOI*MOD JATTRI(1) = 1 SEGDES MCHPOI * CALL ECROBJ ('CHPOINT ',IPCHPO) * END