INPI-France/Brevets-Francais-2024-Chunked huggingface dataset:
Pour le cas du réchauffeur 9 à chauffage direct, le combustible est acheminé à ce réchauffeur par une canalisation 67 et un brûleur 68. La boucle de régulation de débit combinée à ce réchauffeur comprend le débitmètre 69, le régulateur de débit 65, une vanne de réglage 66 et une ligne 70 de transmission du signal de débit. Un enregistreur-régulateur de température 62 est monté en cascade avec le régulateur de débit 65. Cet appareil 62 reçoit un signal de température du thermocouple 61 intercalé dans la conduite 10. Le régulateur de température 62 et le régulateur de débit 65 ont tous deux des points de consigne automatiquement ajustables.Le signal de sortie correspondant du calculateur est transmis par la ligne 63 pour corriger le point de consigne du régulateur de température 62 ; ce dernier, par la ligne de transmission 64, corrige le point de consigne du régulateur de débit 65 et, à son tour, ce dernier ajuste la vanne de réglage 66 de la façon voulue pour assurer la régulation du débit de combustible introduit dans le réchauffeur 9 par la canalisation 67.
De même, le réchauffeur à chauffage direct 13 est équipé d'une boucle de régulation du débit d'alimentation en combustible.
Le débit de combustible circulant dans la canalisation 81 et qui est introduit dans le réchauffeur 13 par le bru leur 84 contient un débitmètre 82 et une vanne de réglage 83. L'appareil 82 transmet un signal de débit par une canalisation 86 à un régulateur de débit 85 à point de consigne automatiquement ajustable. Un thermocouple 88 capte la température de l'effluent du réchauffeur qui circule dans la canalisation 14 et transmet un signal de température au ré gulateur de température 89, également à point de consigne automatiquement ajustable et qui est monté en -cascade par rapport au régulateur de débit 45 auquel-il est relié par une ligne 87. Les signaux de- sortie correspondants du calculateur 31 sont transmis au régulateur 89 par la ligne 90.
En dehors des signaux de sortie du calculateur qui ont été décrits plus haut, le programme du calculateur assure la régulation du débit de la matière de départ fraîche, du débit de la phase de vapeur recyclée riche enhydrogène et de la quantité de phase vapeur qui est éliminée du circuit du traitement par la canalisation 25 dans laquelle est intercalée la vanne de réglage 26. Un indicateur de débit 55 transmet un signal de sortie représentatif du débit de la matière de départ au calculateur/comparateur 31 par une ligne de transmission 58.Ce signal est traité pour déterminer les réglages nécessaires pour obtenir le rapport molaire hydrogène/hydrocarbure le mieux approprié à l'instant considéré ; un signal de sortie approprié du calculateur est transmis par une ligne 60 pour commander la vanne 59 de réglage du débit, ce qui augmente ou réduit le débit de matière de départ circulant dans la canalisation 1. De même, le débit de la phase vapeur recyclée est capté par un indicateur de débit 79, lequel forme un signal représentatif et le transmet par la ligne 80. Ce signal est traité en combinaison avec le signal représentatif de la pression du séparateur, capté par l'indicateur de pression 107 et transmis par la ligne de transmission 108, pour la formation de signaux de sortie du calculateur qui circulent sur les lignes 102 et 116.Le signal transmis par la ligne 116 commande la vanne de réglage 26 intercalée dans la canalisation 25 pour régler la quantité de phase vapeur séparée éliminée du circuit. Le premier signal, transmis sur la ligne 102, est utilisé pour commander les moyens de réglage du débit et régler la quantité de gaz recyclé qui est refoulé par le compresseur 24 dans la canalisation 2. On peut utiliser pour cela n'importe quel moyen approprié de réglage du débit, par exemple des moyens qui agissent sur la perte de charge ou sur la vitesse du compresseur, etc... On a représenté sur le dessin une technique préférée dans laquelle les moyens de réglage du débit sont constitués par une vanne de réglage 101 qui est commandée de manière à régler le débit de retour circulant dans la conduite 100.
Ainsi, la pressionde la zone de réaction et le débit de la phase vapeur recyclée sont réglés d'une façon compatible avec les divers autres signaux reçus par le calculateur/comparateur 31 pour régler le rapport molaire hydrogène/hydrocarbure sur le niveau optimal qui maintient à la fois (1) la qualité et la quantité de produit et (2) l'activité et la stabilité du catalyseur.
Le procédé suivant lequel l'installation de régulation suivant l'invention est mise en oeuvre ressort de façon évidente pour l'homme de l'art de la description donnée ci-dessus. En outre, les bénéfices et avantages de ce procédé sont très visibles. Le-princi- pal des avantages réside dans la surveillance continue et la régulation continue, qui'améliorent la stabilité du catalyseur et maintiennent l'activité du catalyseur par régulation du rapport molaire hydrogène/hydrocarbure de la zone de reaction sur la valeur optimale compatible avec les caractéristiques de qualité et de quantité qu'on cherche à obtenir dans le produit. Les procédés et installations de régulation de la technique antérieure qui ont été décrits plus haut, et qui surveillent uniquement l'indice d'octane de la phase liquide sortant du séparateur à haute pression et ajustent uniquement la rigueur des conditions (de la température) de la zone de réaction en réponse à cet indice doivent nécessairement accepter les résultats de cet ajustement concernant l'activité et la stabilite du catalyseur.
Au contraire, l'installation de régulation suivant l'invention tend principalement à régler le rapport molaire hydrogène/ hydrocarbure de façon à améliorer la stabilité du catalyseur ou à allonger le temps pendant lequel le catalyseur fonctionne de façon acceptable, tout en obtenant en même temps un produit présentant les caractéristiques de qualité et de quantité voulues. Suivant l'in vention, on tient compte de la nécessité de surveiller en supplément les caractéristiques de la matière de départ ainsi que son débit, et le débit et la teneur en hydrogène de la phase vapeur recyclée.
La présente invention se rapporte à une machine à affranchir électronique, et concerne plus partioulièrement une telle machine réalisée avec un micro-calculateur.
La présente machine à affranchir électronique est une machine autonome de seconde génération, remplaçant celle décrite dans la demande de brevet des Etats-Unis d'Amérique n 406 898 déposée le 16 octobre 1973, dans le brevet des Etats-Unis d'Amé- rique n 3 832 946 et dans la demande de brevet des Etats-Unis d'Amérique n 337 254 déposée le 9 juillet 1973.
Cette machine antérieure était l'une des premières de son type mettant en oeuvre des techniques électroniques de comptabilité et de commande pour enregistrer et garder trace d'opérations postales. La présente machine remplit les mêmes fonctions que la précédente, mais en y ajoutant la souplesse, les petites dimensions, et la richesse de possibilités du principe de mesure électronique. Les circuits logiques TTL de la machine antérieure sont maintenant remplacés par un ensemble totalement autonome, réalisé avec un micro-calculateur à intégration poussée. Ce micro-calculateur apporte de la souplesse en ce qu'il permet des changements faciles, par l'adjonction d'un équipement péri phénique et d'une programmation associée.Toute la personnalité de la machine à affranchir est déterminée par des instructions dans une mémoire permanente. La machine à affranchir à microcalculateur selon ltinvention peut disposer de possibilitds programmées d'une manière plus complexe, et lorsqu'il y a lieu d'en effectuer une extension, ceci peut se faire sans changement complique de câblage, comme cela était nécessaire avec les anciens circuits logiques TTL. Chaque machine à affranchir à micro-calculateur peut donc eAtre adaptée -spécifiquement et sans difficultés aux besoins d'un utilisateur individuel.
L'invention concerne donc une machine à affranchir à calculateur comprenant une unité centrale de traitement, plusieurs unités de mémoire, un circuit multiplex d'entrée et de sortie et un dispositif d'affranchissement réagissant au fonctionnement conjoint de l'unité centrale de traitement, des mémoires, des entres et sorties, en établissant un affranchissement prédé- terminé et en l'imprimant à volonté. L'ensemble est réalisé au moyen de composants à intégration poussée, et met en oeuvre cette technologie pour établir des relations fonctionnelles per mettant à la machine électronique de remplir ses fonctions.
Concentration Monde opéra- point Analyse élémentaire Spectre nécessaire ( m) toire de de en haut : calculé, % infra pour doubler prépara- fusion; en bas : trouvé, % rouge la durée de tion de C (KBr), cm- coagulation l'exemple N C H N 50,62 5,40 11,17 30400 1 160-165 3.210 (dec.) 50,39 5,28 11,15 1.740 54,43 6,55 13,80 3.280 1 poudre 1.590 54,27 6,28 13,59 @@@@@@@ 52,07 6,37 12,65 3.360 3.200 5 1 " 51,89 6,39 12,51 1.600 54,86 7,33 14,54 3.350 20 S 210-213 1.630 54,72 7,21 14,27 55,73 7,52 14,13 3.350 S 120-130 1.630 55,82 7,50 14,01 52,15 6,88 14,48 3.300 10 5 108-110 (large) 52,21 6,71 14,52 1.630 58,23 6,45 13,58 3.300 (large) 30 5 poudre 58,01 6,35 13,46 1.635 Composé
H HNN\ t NO H2NACNCH2CH2CH2lHCOR H2Xz H-N-S 02-Ar Ar R ' Sel de 134 / } / CH2-CH, À -N N CH2CO2H "CqHg 135 -N CH2CH2CO2H A CH 136 tc -N ~ \ CH2C 2H 137 1À )lez \CH2C02H 138 0 t3 / CH2 CH CH CO2H 139 L -N wL39 C1 C 2C02H Cl n ,' C4H9 140 - -N Br \ CH2CO2H
Concentration Mode opéra- point Analyse élémentaire Spectre énessaire ( m) toire de de en haut : calculé, % infra pour doubler prépara- fusion; en bas : trouvé , % rouge -1 la durée de tion de oC (KBr), cm coagulation l'exemple C H N 58,96 6,66 13,22 3.200 (large) 5 poudre 1.635 58,91 6,79 13,15 @@@@@ 5 " 55,73 7,52 14,13 1.300 (large) 55,81 7,40 14,10 1.630 5 170-173 57,56 7,54 13,43 3.335 1.630 57,41 7,39 13250 56,78 7,35 13,80 3.200 S poudre (large) 56,85 7,29 13,71 1.630 @ " 58,96 6,66 13,22 3.300 (large) 1.630 58,79 6,51 13,19 5 142-145 49,07 5,49 13,63 3.150 (large) 48,90 5,38 13,42 1.620 5 poudre 47,47 5,43 12,58 3.150 47229 5,31 12,39 1.630 Composé
H HN C-N-CH2CH2CH2CHCOR (I) A I H-N-S 02-Ar I R I Sel de Ar R Sel de CH CH .
/CH2CIf20CH3 -N 141 - A C1 \ "'CH CO H 2 2 142 -N -C5H11 CH3 CH3CHZC02H 143 > CH3 -C4H9 143 vl3 -N CH2CO2H 144 " OCH 144 .. N/ 2 2 3 CH2C02H I 145 n /CH2CH2 -N xCH2C02H CH /2 146 " -N uCH2C02H J sCH2CH20CH3 147 oXoS CH ~
Concentration Monde opéra- point Analyse élémentaire Spectre nécessaire ( m) toire de de en haut : calculé, % infra pour doubler prépara- fusion; en bas : trouvé, % rouge la durée de tion de C (KBr), cm- coagulation l'exemple NO C H N 5 poudre 49,07 5,49 13,63 3.150 1.630 49,12 5,28 13,59 57,01 6, 98 13,85 3.300 1.635 5 123-130 56,88 6,71 13,65 56,19 6,77 14,25 3.300 0,3 5 poudre 3.150 56,00 6,50 14,00 1.630 0,2 5 " 53,53 6,33 14,19 3.300 (large) 53,24 6,19 13,99 1.630 60,09 6,15 12,93 3.300 5 " (large) 59,79 6,02 12,61 1.630 3.380 58,73 7,01 13,17 14 5 " 1.635 58,66 6,90 12,91 52,59 6,10 14,61 3.380 5 147~150 52,31 6,01 14,33 1.640 Composé
H HN CI) C-N-CH,CH,CH,CHCOR (I) NO H2NA 2C1HCOR .
Ar 1 R j Sel de i48 C -N -(7 > I jl CH,CO,H i49/CH 'tt; 1 \CH2C02H nC4Hg "-CqHg - ~~ 151 Ê1Ùi CH3 fCH,CO,H i52 1CH3 /CH2CH2OCH3 152 r i -N NN i CH3 \ CH2C02H Cl3 2 2 n-C J 4H9 153 \ CH2C02H CH 22 154 g -N A' CH2CH2oeH3 154 - CH2CH20CH3 ~ N CH2CO2H
Concentration Monde opéra- point Analyse élémentaire Spectre nécessaire ( m) toire de de en haut : calculé,% infra pour doubler prépara- fusion; en bas : trouvé ,% rouge ~1 la durée de tion de C (KBr),cm coagulation l'exemple N0 C H N 3.300 57,23 6,61 13,91 (large) S poudre 56,98 6,33 13,81 1.630 6" 58,69 5,71 13,69 3.300 3.150 58,79 5,55 13,39 1.630 5 " 56,19 6,77 14,25 3.190 (large) 55,95 6,58 13,97 1.620 53,53 6,33 14,19 3.350 20 5 130-135 1.640 53,28 6,19 13,97 54,42 6,55 13,80 3.350 10 5 152-157 54,28 6,32 13,59 1.635 55,36 6,97 16,14 3.380 4 5 poudre 55,10 6,76 16,07 1.630 5 " 52,86 6,56 16,08 52,71 6,29 16,07 Composé
H HN, C-N-CH,CH ,CH ,CHCOR (I) N0 H2N/ H-N-S 02-Ar H-N-S02Ar Ar I R t Sel de - ,CH,CH,OCK, 155 CXOH XCH2C02H ~ L 156 6 nC4Hg CH2C02C2H5 nC4Hg 158 n -N HC sCH2Co2cH2-e, 2 159 .. ZnC4Hg -N 'CH2CO2H 1 'CH3 L O/ v É(H3 / CH2CO2H 160 -N CH2CO2H /CHIC07 161 rr -N XCH2C02H
Concentration Monde opéra- point Analyse élémentaire Spectre nécessaire ( m) toire de de en haut : calculé, % infra pour doubler prépara- fusion; en bas : trouvé, % rouge la durée de tion de C (KBr), cm- coagulation l'exemple N N0 C H N 5 poudre 50,90 5,90 14,13 3.180 (large) 50,91 5,70 13,89 1.630 5 " 59,41 5,95 13,33 3.170 (large) 59,22 5,73 13,28 1.620 53,17 6,6@ @@@@@ 6 52,89 6,52 12,74 6 " 57,66 6,34 11,59 57,31 6,14 11,16 55, 33 6, 54 14, 67 3.200 (large) 5 " 55,26 6,62 14,58 1.630 0,25 1 " 55,47 6,40 13,48 3.350 (large) @@@@@ @@@@@ @@@@@ 1.630 1.380 55,05 7,12 13,38 3.200 0,2 0,2 5 @ (large) 55,28 7,00 13,12 1.635 1.380 Composé
H N 2CH2CH2CHCOR (I) N0 2 H-N-S02-Ar L I f 163 " /CH 2[0 -N \CH2CO2C(CH3)3 CH 3 CH2' 164 .. -N CH2C02H /CH20J -N 165 " CH2C02C(CH3)3 CH,-PO 5 X A /;= ( 166 -N CH3C02H K#ÂCH3)2 CH2CO2H 167 l -N/ CH2ÊÊ) CI C1 \ CH2C02H Â 168 À NCH22s0- ~ N CH2C02H
Concentration Monde opéra- point Analyse élémentaire Spectre nécessaire ( m) toire de de en haut : calculé, % infra pour doubler prépara- fusion; en bas : trouvé, % rouge la durée de tion de C (KBr), cm- coagulation l'exemple N C H N 0,2 1 poudre 54,22 5,50 13,18 3.320 (large) 53,98 5,55 13,24 1.630 1.380 1 " 57,22 6,35 11,92 3.400 (large) 57,23 6,36 12,08 1.740 1.620 3.360 0,15 1 " 53,82 6,21 13,08 (large) 1.625 53,78 6,19 12,86 1.380 1 " 56,83 6,98 11,84 3.400 (large) 56,95 6,83 11,98 1.735 1.630 5 " 53,28 6,62 13,81 3.320 (large) 53,13 6,82 13,71 1.630 1.140 3.320 5 " 51,15 5,60 12,97 (large) 1.630 50,86 5,66 12,87 1.380 5 " 54,64 6,18 13,85 3.350 53,36 6,00 13,58 1.390 Composé
H HN N\ CJCH2CH2CH2CHC0R (I) N0 H2NA I H-N-S 02-Ar Ar R Sel de 169 IXoBc XH2i Hs \ CH2C02H M i -~~M 170 CH2 I' -N CH2C02H 1 I 171 tS OCH3 CH2Çj) -7 171 È OCH3 \CH C0 H 3 22 172 " CH1 / 2 " 0' i- - CH2CO2C(CH3)3 k-H CH3 CO2H 173 t/ CH3 i73 CO,C,H5 N\ > )CH3 CO H 175 n N\CHCCH3)2
Concentration Monde opéra- point Analyse élémentaire Spectre nécessaire ( m) toire de de en haut : calculé, % infrapour doubler prépara- fusion; en bas : trouvé, % rouge la durée de tion de C (KBr), cm- coagulation l'exemple N C H N 56,27 6,61 13,12 3.350 1.630 5 poudre 55,98 6,78 13,24 1.380 1.140 5 " 54,21 6,92 13,74 3.300 (large) 1.625 54,36 6,93 13,76 1.380 1.160 3.300 1,2 " 53,08 6,24 12,38 (large) 1.640 52,86 6,33 12,41 1.160 3.400 1 " 56,02 6,97 11,27 (large) 1.745 55,83 6,88 11,20 1.620 0,2 3 " 57,23 6,61 13,91 3.390 (large) 56,89 6,50 13,70 1.625 3 " 56,83 6,98 11,84 3.400 1.735 56,72 6,81 11,56 1.640 58,73 7,01 13,17 3,380 0,1 2 t' (large) 58,52 6,77 13,00 1,620 Composé
H ff % C-N1-CH2CH2CH2CHC0R CI) NO 2 H-N-S02-Ar Ar R Sel de C02C2H5 112H 50 - i/2H 176 - / CH3 C02C2H5 2 3 ~ C 2H 177 oW O CH3 CH(CH3 ) 2 : C02C2H5 178 .. S CH(CH3)2 CH3COOH CO H 179 'ÈÉ 3 3 C02C2H5 CH,,COOH 25 180 CO2H -b -- CH(CH3)2 181- Ă; -N CH I (CH3)2 C02C2H5 182 .. n CH5(CH3)2 CH3COOH eCH(CH3)2 3
IT=((TME(4)-TME(1))*60+TME(5)-TME(2))*60+TME(6)-TME(3) WRITE(10,916) IT 916 FORMAT(" PRE PROCESS REQUIRED". 13. " SECONDS") CALL OPCL(-1) CALL FCHAN("CO.SV") C***************************************** C C..........ERROR CONDITIONS...............
C 800 WRITE (10,915)ISTAT,ISMT,NORCS,ISCALE 915 FORMAT (" 800 ERROR",010,315) C 810 CALL OPCL(-1) STOP ABNORMAL C 820 TYPE "820 CALIB FILE READ ERROR" GO TO 810 823 TYPE "INIT ERROR ",IER GO TO 810 806 TYPE "806-TASK INT ERROR" STOP ABNORMALLY END C..NPROC.FR (PROC) C 21 AUG 1975 W HOMAH C 25 JULY REMOVE AVERAGING IN THE SCAL ING PART.
C THIS IS DOME AS THE DIFERENCES ACCOMPLISHES C THE SAME EFECT.
C PURPOSE : C MAKE THE FOLLOWING CORRECTIONS C 1, OFFSET C 2. PLASTIC C 3. INTERPOLATE TO 509 POTNTS C PRRRMETER LP=12 C SUBROUTIBE PROC (J.NORCS) C C****************COMION AREA**************** C COMMON IN(3760),R(750),V(750),X(512),W(512),ANGLE(194) COMMON/CO/CEHTER(180),Y(180),JZX(4,12),FACT,SCALE,IANG COMMON/MULTI/KEY,IEFR,KEYT,JREAD,XANG COMMON/IO/100(6),KTRL,IPM(6) EOUTVALENCE (ANG,IN(1)) EOUIVALENCE(100(1),L1),(100(2),L2),(100(3),L3) EOUIVALENCE (100(4)),L4),(100(5),L5),(100(6),L6) C C L1=MT C L2=C4ANGLE.SC FILE FOR BACKPROJECTION C L3=RAW.SC FILE - FILE FOR NEW CONVOLUTION C L4=RAW.KO FILE - FILE FOR OLD CONVOLUTION C L5=PARM.DI FILE-PARAMETER CONTROLL FILE FOR CONVOLUTION C L6=CALTB.SC FILE FOR PRE PROCESSING PROGRAM SCANNER C******************************************************* C C C..V(1)=CURRENT DETECTOR AND J IS INPUT PARM (ISCALE FRM MAIN) C TASK TAPIO (IS), ID=3,PRI=4,ERR=821 IF(IANG,EQ.1) IBFR=1 ZEROSUM=0.0 121=JZX(1,J) 122=MAX0(IZ1,JZX(2,J)-5) 124=JZX(4,J) 123=MIN0(124,JZX(3,J)+5) 122=0 C IF(IZl.EO.6.OR.IZI.GE.1Z2) GO TO 165 DO 100 1=IZI,122 X IF(KTRL.GE.10) WRITE(LP,901)I,R(I),ZEROSUM,IZI,122 X 901 FORMAT(" VR", 15,3F12.6,215) 100 ZEROSUM=ZEROSUM+V(I)/R(I) IZZ=122+1 105 IF(124,EQ.0.OR.123.GE.124) go to 115 DO 110 1=123,124 X IF(KTRL.GE.10) WRITE(LP,901) I,V(1),R(1),ZEROSUM,123,124 110 ZEROSUM=ZEROSUM+V(I)/R(I) C IZZ=122+1 155 IF(IZZ.EQ.0) 122=1 ZEROSUM=ZEROSUM/(122-121+124-123+122) C C+++ DO 120 I=1,750 CALL REFC(V,R,ZEROSUM.750) C+++ 120 V(I)= (V(I)/R(I)-ZEROSUM) C CSET UP TO DO THE INTERPOLATIUN C....THIS PART IS DOUBLE BUFFERED ALL INPUT IS IN (V(I), R(I) C....WHILE ALL DUTPUT IS IN X(I) OR W(I) DEPENDING ON THE VALUE OF IBFR C....IBFR IS CHANGED IN THE IHTERPOLATION/STORE ROUTINE C C IF(KTRL.GE.10)WRITE(12,900)IANG,J.121,122,123,124,122,IBFR,ZEROSUM 900 FORWAT (" PROC",8110,F10.5) IF(IGFR.LT.0) GO TO 140 C..IBFR=1 THUS USE X (GE 0) CALL INTER (X.J) GO TO 155 C********************************* C C..IBFR=2 THUS USEW (LT.0) 140 CALL INTER (W.J) C C C 155 IF(IBFR.EQ.0) GO TO 821 IANG=IANG+1 RETURN C..........ERRORS...........
C 820 TYPE "DISK WRITE ERROR (LER, IER 821 J=-1 RETURN END C..RFINTER.FR C 26 AUG 1975 W HOMAN C 25 JULY REMOVE AVERAGING IN THE SCALING PART.
C THIS IS DONE AS THE DIFERENCE ACCOMPLISHES C THE SAHE EFECT.
C 10 AUGUST - REVAHP INTERPOLATION AND C DIFFERENTIATION INTERPOLATION. (J.DEHNERT) C PURPOSE: C DO THE INTERPOLATIO AND ACT C PARAMETER ANGX=-6.5,LP=12,ANGV SUBROUTINE INTER (X,J) C****************COHMOH AREA******************* COMMON IN(3760),R(750),V(750),DUMMY(512),W(512),ANGLE(194) COMMON/CO/CEHTER(180),Y(180),JZX(4,12),FACT,SCALE,IANG COMMON/MULTI/KEY,BFR,KEYT,JREAD,XANG COMMON/IO/IOO(6),KTRL,IPM(6) COMMON/AVERAG/AV1,AVN,AVX DOUBLE PRECISION SQ,PNT,FRAC DIMENION X(512) EQUIVALENCE (ANG,IN(1)) EQUIVALENCE (IOO(1),L1),(TOO(2),L2),(IOO(3),L3) EQUIVALENCE (IOO(4),L4),(IOO(5),L5),(IOO(6),L6) C C L1=MT INPUT DMA C L2=C4ANGLE.SC FILE FOR BACKPROJECTION C L3=RAW.SC FILE - FILE FOR NEW CONVOLUTION C L4=RAW.KO FILE - FILE FOR OLD CONVOLUTION C L5=PARM.D1 FILE-PARAMETER CONTROLL FILE FOR CONVOLUTION C L6=CALTB.SC FILE FOR PRE PROCESSING PROGRAM SCANNER C C******************************************************** C C C DO THE INTERROLATION FROM PLASTIC,PHAN (H),PLASTIC C ITWO=2 IFOUR=4 ZERO=0.0 IF(IANG.GT.12) KTRL=0 IF(IANG.LE.3.AND.KTRL.GE.9) WRITE(LP.901) V 901 FORMAT(" V",10F10.6) C **** INITIALIZE FRACTION, LOOP BOUNDS.AND DIFFERENCES SOS = Y(IANG) SQ = DBLE(SOS) RNT = DBLE(CENTER(IANG)) - 253.500*SQ IS = PNT FRAC = PNT-DFLOAT(IS) IE = DBLE(CENTER(IANG)) + 253.500*SQ Y1 = V(IS-1) Y2 = V(IS) Y3 = V(IS+1) Y4 = (IS+2) DY1 = Y2-Y1 DY2 = Y3-Y2 DY3 = Y4-Y3 DDY1 = DY2-DY1 DDY2 = DY3-DY2 DDDY = DDY2-DDY1 IT = 1 C **** PERFORM-INTERPCLATION DO 130 I=IS.IE IF (FRAC.GT.1.0) GO TO 125 FR=FRAC UX=((DDDY*(FR-1,0)/6.0+DDY1/2)*FR+DY1)*(FR+1.0)+Y1 DUX=(DDDY*FR/2.0+DDYI)*FR+DY1+DDY1/2.0-DDDY/6.0 X(IT) = SCALE*DUX/UX/SQS IT = IT+1 FRAC = FRAC+SQ 125 FRAC = FRAC-1.0D0 Y1=Y2 Y2=Y3 Y3=Y4 Y4=V(I+3) DY1=DY2 DY2=DY3 DY3=Y4-Y3 DDY1=DDY2 DDY2=DY3-DY2 DDDY=DDY2-DDY1 130 CONTINUE C C **** SET THE ANGLE IN RADIANS ANGLE(IANG)=(XANG-ANGX+J)/57.29577951-ANGY C C **** OUTPUT INTERPOLATION RESULTS (ACTIVATE DSKIO) JBFR=IBFR CALL XMTW(KEY,JBFR,ERR=810) IBFR=-1*IBFR RETURH C*********************************** C+++SINGLE TASK+++ JBFR=IBFR C+++SINGLE TASK+++ CALL DSKIO (JBFR) C+++SINGLE TASK+++ IF(IABS(JBFR).NE.1) IBFR=0 C+++ IBFR=-I*IBFR C+++ RETURN 810 TYPE "XMT SET UP ERROR" RETURN END C..NOPCL.FR (OPCL) C C 29 AUG 1975 W, HOMAN C PURPOSE OPEN AND CLOSE FILES TO SWITCH TO FORT V THIS PGM C MUST eE CHANGED C PARAMETER SCX=400.0 SUBROUTINE OPCL (K) C C IF K 'PLUS OPEN FILES IF - CLOSE FILES C COMMON/MT/MTX(4) COMMON IN(3760),R(750),X(512),W(512),ANGLE(194) COMMON/CO/CENTER(180),Y(180),JZX(4,12),FACT,SCALE,IANG COMMON/IO/IOO(6),KTRL,IPM(6) EQUIVALENCE (ANG,IN(1)) EQUIVALENCE (IOO(1),L1),(IOO(3\2),L2),(IOO(3),L3) EQUIVALENCE (IOO(4),L4),(IOO(5),L5),(IOO(6),L6) COMMON/FILES/KAN(6),KRB(4),KPM(5),KCL(5) COMMON/FXFIL/KPAT(5),MSET(12) DATA MSET/"0"."1","2","3","4","5","6","7","8","9","10","11"/ DATA KPAT/"C4","PA","T.","SC",0/ C..............................NOTE SCALE IS COMPUTED 4000/1024*80000/180 DATA SCALE/SCX/ DATA MTX/"MT","0:","0",0/ DATA KRA/"C4","AN","GL","E.","SC",0/ DATA KRA/"RA","W.","KO",0/ DATA KRB/"RA","W.","SC",0/ DATA KPM/"PA","PM","S.","SC",0/ DATA KCL/"CA","LI","B.","SC",0/ IF (K.LT.0) GO TO 100 C.......TEMPORARY FILE CONTROL IN KTRL...................
C C C............................................
C COPEN THE FILES **************** C OPEN 7,KPAT CALL RDBLK (7,0,IN,I,IER) IF(IER.NE.1) GO TO 800 CLOSE 7 KTRO = IN(256-3) N=IN(256) IF(N.LE.0) N=1 IF(N.GT.12) RETURN MTX(3)=MSET(N) C L=1 CALL MTOPD(1,MTX,4000K,IER) IF(IER.NE.1) GO TO 800 C L=L2 OPEN L2,KAN,ATT="RE",LEN=19 =L3 C L L' OPEN L4,KRA,ATT="RO",LEN=512*2 C =L4 OPEN L4,KRA,ATT="RO",LEN=512*2 C L=LS OPEN L5,KPM,ATT="RO",LEN=12 C L=L6 OPEN L6,KCL,ATT="RE,LEN= C , ' RETURN C********************************* C CLOSE ALL FILES ***************** C 166 CLOSE L2 CLOSE L3 CLOSE L4 CLOSE L5 CLOSE L6 RETURN C******************************** C C ERRORS********* C 800 TYPE "FILE OPEN ERROR :: GO TO 100 ***************** END C..TAPIO.FR C PURPOSE -MULTI TASK MAG TAPE IO IN PRE-PROCESSING C C 5 SEPT 1975 C SUBROUTINE TAPIO (IS) COMMON IN(3760),R(750),V(750),X(512),W(512),ANGLE(194) COMMON/MULTI/KEY,IBFR,KEYT,JREAD,XANG COMMON/NR/NR DATA NR.1.
800 STOP ERROR-EXIT C END C CONIT.FR.
C C FUNCTION TO HABDLE THE INITIALIZATION OF CONVOLUTION C C 28 JULY 1975 C C LHOMAN.
C PARAMETER CLEN = 1024 PARAMETER LU1 = 1, RAW=2, MSR=3, LU4=4 C FUNCTION COMIT (KTIME) C INTEGER PARM, FFH COMMON /PARMS/ IEXT, NDP, IB, MP, INPX(4), IOTX (6), PARM(5), FFH (4) COMMON /FCN/ COM (CLEN) CONIT = 1 C **** IF KIIME C IF KTIME = 0 OR 1 OPEN F IL ES AND IMITIALIZE C IF KTIME > I JUST OPEN INPUT AND OUTPUT FILES IF (KTIME. LT. 0) GO TO 800 IF (KITME. GT. 1) GO TO 400 C **** READ IN PARAMETERS FROM FILE "PARMS" ON LUI LUX-LUI OPEN LU1, PARM READ BIMARY (LU1, ERR=820, END=838) IEXT, NDP. 1B. NP CLOSE LUI 200 INPX (3) = IEXT IOTX (5) = IEXT C C **** INITIALIZE CONVOLUTION FUNCTION FROM FILE FFTH. D2 ON LU4 LUX=LU4 OPEH LU4, FFH CALL RDBLK (LU4, 0, CON, 8, IER) CLOSE LU4 C C **** OPEN. RAW DATA ENPUT FILE RAW. 400 OPEN RAW, INPX.BTT = "ci", LEN=4096.REC=180 C C **** OPEN. MEASUREMENT OUTPUT FILE C4MEASR. OPEN MSR, 10TX,ATT = "C", LEN=2048, REC-180 C C **** EXIT FROM CONIT HERE ****** 500 COMTINUE RETURN C C ***** ERROR RETURN - CLOSE FILES 800 CLOSE RAW CLOSE ItiR CONIT=2 RETURN C **** INPUT ERROR RETURN 828 TYPE "ERR LU = ", LUX GO TO 800 C **** END OF FILE ERROR 830 TYPE "DEFAULT PARAMETERS USED." CLOSE LU1 DELETE PARM GOTO 200 END : ; **** ASSEMBLY LANGUAGE SUBROUTINES FOR THE CONVOLUTION PROSRAM.