1 : C MANUMO SOURCE CHAT 05/01/13 01:29:45 5004 2 : C 3 : SUBROUTINE MANUMO 4 : IMPLICIT INTEGER(I-N) 5 : IMPLICIT REAL*8(A-H,O-Z) 6 : CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 7 : C CET OPERATEUR FABRIQUE UN OBJET DE TYPE SOLUTION SOUS-TYPE MODE 8 : C SYNTAXE : 9 : C SOLUT=MANU MODE NUME N ..... NUMERO DU MODE 10 : C F MG Q1 Q2 Q3 ..FREQUENCE,MASSE GENERALISEE 11 : C ..DEPLACEMENTS GENERALISES 12 : C CHPT ....... OBJET DE TYPE CHAMPOIN 13 : C CHEL ....... OBJET DE TYPE CHAMELEM 14 : C ECRIT PAR FARVACQUE 15 : C MODIFIE PAR L. VIVAN (APPEL DE MANUSO) LE 4 AOUT 1988 16 : C APPELLE : LIRMOT LIRE ECRIRE MANUSO 17 : CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 18 : C 19 : -INC CCOPTIO 20 : C 21 : PARAMETER (LMOOPT=1) 22 : CHARACTER*4 MOOPT(LMOOPT) 23 : C 24 : DATA MOOPT/'NUME'/ 25 : C 26 : IENT = 0 27 : XQ1 = 0.D0 28 : XQ2 = 0.D0 29 : XQ3 = 0.D0 30 : ICHEL = 0 31 : IJONCT = 0 32 : C 33 : C **** LECTURE FACULTATIVE DES MOTS CLES DE L'ANCIENNE SYNTAXE 34 : C 34 : CALL LIRMOT(MOOPT,LMOOPT,IMOT,0) 35 : IF (IMOT.EQ.1) THEN 35 : CALL LIRENT(IENT,1,IRETOU) 36 : IF (IERR.NE.0) RETURN 37 : ENDIF 38 : C 39 : C LECTURE DE :FREQ,MASSE,DEP1,DEP2,DEP3 40 : C 40 : CALL LIRREE(XFREQ,1,IRETOU) 41 : IF (IERR.NE.0) RETURN 41 : CALL LIRREE(XMN,1,IRETOU) 42 : IF (IERR.NE.0) RETURN 42 : CALL LIRREE(XQ1,0,IRETOU) 43 : IF (IRETOU.EQ.1) THEN 43 : CALL LIRREE(XQ2,1,IRETOU) 44 : IF (IERR.NE.0) RETURN 44 : CALL LIRREE(XQ3,1,IRETOU) 45 : IF (IERR.NE.0) RETURN 46 : ENDIF 47 : C 47 : CALL LIROBJ('CHPOINT ',ICHPT,1,IRETOU) 48 : IF (IERR.NE.0) RETURN 49 : C 49 : CALL LIROBJ('CHAMELEM',ICHEL,0,IRETOU) 50 : IF(IERR.NE.0)RETURN 51 : C 52 : IF(IRETOU.EQ.0)THEN 52 : CALL LIROBJ('MCHAML',ICHEL,0,IRETOU) 53 : IF(IERR.NE.0)RETURN 54 : ENDIF 55 : C 55 : CALL MANUSO('MODE ',IENT,XFREQ,XMN,XQ1,XQ2,XQ3,ICHPT,ICHEL, 56 : & IJONCT,MSOLUT) 57 : C 57 : CALL ECROBJ('SOLUTION',MSOLUT) 58 : C 59 : END 60 :
© Cast3M 2003 - All rights reserved.
Disclaimer