1 : C ELLA09 SOURCE CHAT 05/01/12 23:33:54 5004 2 : 3 : SUBROUTINE ELLA09(COMP,ICOMP,IERROR) 4 : C 5 : IMPLICIT INTEGER(I-N) 6 : 7 : C 8 : C CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 9 : C 10 : C OPERATEUR ELFE LAPLACE ACOU 11 : C 12 : C CONVERSION DES CONDITIONS AUX LIMITES TYPE CHARACTERE EN ENTIER 13 : C SUIVANT LE CODE SUIVANT : 14 : C 15 : C UX --> 1 16 : C UY --> 2 17 : C UZ --> 3 18 : C RX --> 4 19 : C RY --> 5 20 : C RZ --> 6 21 : C FX --> 7 22 : C FY --> 8 23 : C FZ --> 9 24 : C MX --> 10 25 : C MY --> 11 26 : C MZ --> 12 27 : C P OU DP --> 13 28 : C Q OU DQ --> 14 29 : C A --> 15 30 : C B --> 16 31 : C R --> 17 32 : C MA --> 18 33 : C J0X --> 19 34 : C J0Y --> 20 35 : C J0Z --> 21 36 : C KX --> 22 37 : C KY --> 23 38 : C KZ --> 24 39 : C CX --> 25 40 : C CY --> 26 41 : C CZ --> 27 42 : C 43 : C PARAMETRES : 44 : C COMP : TYPE DE CONDITION AUX LIMITES (CHARACTER*4) 45 : C 46 : C SORTIES : 47 : C 48 : C ICOMP : ENTIER CALCULE SUIVANT LE CODE PRECEDENT 49 : C 50 : C IERROR : ENTIER VALANT 0 OU 1 SI LA CONVERSION S'EST FAITE SANS 51 : C OU AVEC UNE ERREUR 52 : C 53 : C 54 : C AUTEURS : SAINT-DIZIER ET GORCY 55 : C DATE : 24 JANVIER 1991 56 : C MISE A JOUR : 21 JUIN 1991 57 : C 58 : C CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 59 : C 60 : CHARACTER*4 COMP 61 : C 62 : ICOMP = 0 63 : IERROR = 0 64 : C 65 : IF (COMP.EQ.'UX') THEN 66 : ICOMP = 1 67 : ELSE IF (COMP.EQ.'UY') THEN 68 : ICOMP = 2 69 : ELSE IF (COMP.EQ.'UZ') THEN 70 : ICOMP = 3 71 : ELSE IF (COMP.EQ.'RX') THEN 72 : ICOMP = 4 73 : ELSE IF (COMP.EQ.'RY') THEN 74 : ICOMP = 5 75 : ELSE IF (COMP.EQ.'RZ') THEN 76 : ICOMP = 6 77 : ELSE IF (COMP.EQ.'FX') THEN 78 : ICOMP = 7 79 : ELSE IF (COMP.EQ.'FY') THEN 80 : ICOMP = 8 81 : ELSE IF (COMP.EQ.'FZ') THEN 82 : ICOMP = 9 83 : ELSE IF (COMP.EQ.'MX') THEN 84 : ICOMP = 10 85 : ELSE IF (COMP.EQ.'MY') THEN 86 : ICOMP = 11 87 : ELSE IF (COMP.EQ.'MZ') THEN 88 : ICOMP = 12 89 : ELSE IF ((COMP.EQ.'P').OR.(COMP.EQ.'DP')) THEN 90 : ICOMP = 13 91 : ELSE IF ((COMP.EQ.'Q').OR.(COMP.EQ.'DQ')) THEN 92 : ICOMP = 14 93 : ELSE IF (COMP.EQ.'A') THEN 94 : ICOMP = 15 95 : ELSE IF (COMP.EQ.'B') THEN 96 : ICOMP = 16 97 : ELSE IF (COMP.EQ.'R') THEN 98 : ICOMP = 17 99 : ELSE IF (COMP.EQ.'MA') THEN 100 : ICOMP = 18 101 : ELSE IF (COMP.EQ.'J0X') THEN 102 : ICOMP = 19 103 : ELSE IF (COMP.EQ.'J0Y') THEN 104 : ICOMP = 20 105 : ELSE IF (COMP.EQ.'J0Z') THEN 106 : ICOMP = 21 107 : ELSE IF (COMP.EQ.'KX') THEN 108 : ICOMP = 22 109 : ELSE IF (COMP.EQ.'KY') THEN 110 : ICOMP = 23 111 : ELSE IF (COMP.EQ.'KZ') THEN 112 : ICOMP = 24 113 : ELSE IF (COMP.EQ.'CX') THEN 114 : ICOMP = 25 115 : ELSE IF (COMP.EQ.'CY') THEN 116 : ICOMP = 26 117 : ELSE IF (COMP.EQ.'CZ') THEN 118 : ICOMP = 27 119 : ELSE 120 : IERROR = 1 121 : C 122 : END IF 123 : C 124 : END 125 :
© Cast3M 2003 - All rights reserved.
Disclaimer