1 : C UNIFOR SOURCE CHAT 05/01/13 03:58:41 5004 2 : SUBROUTINE UNIFOR 3 : ************************************************************************ 4 : * 5 : * U N I F O R 6 : * ----------- 7 : * 8 : * SOUS-PROGRAMME ASSOCIE A L'OPTION "UNIFORME" DE L'OPERATEUR 9 : * "CHPOINT". 10 : * 11 : * FONCTION: 12 : * --------- 13 : * 14 : * FOURNIR UN 'CHPOINT' DE MEME VALEUR EN TOUT POINT. 15 : * 16 : * PHRASE D'APPEL (EN GIBIANE): 17 : * ---------------------------- 18 : * 19 : * CC = CHPOINT UNIFORME KK XX ; 20 : * 21 : * OPERANDE ET RESULTAT: 22 : * --------------------- 23 : * 24 : * KK 'RIGIDITE' 25 : * XX 'FLOTTANT' VALEUR DU 'CHPOINT' EN TOUT POINT. 26 : * CC 'CHPOINT ' APPUYE SUR LE MEME SUPPORT GEOMETRIQUE QUE "KK" 27 : * 28 : * LEXIQUE: (ORDRE ALPHABETIQUE) 29 : * -------- 30 : * 31 : * IPRIGI ENTIER POINTEUR SUR "KK". 32 : * IPCHPO ENTIER POINTEUR SUR "CC". 33 : * 34 : * SOUS-PROGRAMMES APPELES: 35 : * ------------------------ 36 : * 37 : * LIROBJ, LIRFLO, ECROBJ, UNIFO1. 38 : * 39 : * AUTEUR, DATE DE CREATION: 40 : * ------------------------- 41 : * 42 : * PASCAL MANIGOT 1ER AVRIL 1985 43 : * 44 : * LANGAGE: 45 : * -------- 46 : * 47 : * FORTRAN77 + EXTENSION: CARACTERES MIS DANS DES ENTIERS 48 : * 49 : ************************************************************************ 50 : * 51 : IMPLICIT INTEGER(I-N) 52 : -INC CCOPTIO 53 : -INC SMCHPOI 54 : * 55 : * 56 : * 57 : ICODE = 1 57 : CALL LIROBJ ('RIGIDITE',IPRIGI,ICODE,IRETOU) 58 : IF (IERR .NE. 0) RETURN 59 : * 60 : ICODE = 1 60 : CALL LIRFLO (XX,ICODE,IRETOU) 61 : IF (IERR .NE. 0) RETURN 62 : * 62 : CALL UNIFO1 (IPRIGI,XX, IPCHPO) 63 : IF (IERR .NE. 0) RETURN 64 : * 65 : * ON ATTRIBUT UNE NATURE DIFFUSE A PRIORI 66 : * 67 : MCHPOI = IPCHPO 68 : SEGACT MCHPOI*MOD 69 : JATTRI(1) = 1 70 : SEGDES MCHPOI * 70 : CALL ECROBJ ('CHPOINT ',IPCHPO) 71 : * 72 : END 73 : 74 :
© Cast3M 2003 - All rights reserved.
Disclaimer