mirror of
https://github.com/retro-software/B5500-software.git
synced 2026-03-02 17:44:40 +00:00
2c72f7fd1d
1. Commit library tape images, directories, and extracted text files. 2. Commit additional utilities under Unisys-Emode-Tools.
66 lines
5.1 KiB
Plaintext
66 lines
5.1 KiB
Plaintext
COMMENT INCLUDED HERE ARE THE ARRAY DECLARATIONS AND FILL HVPC0001
|
|
STATEMENTS FOR THE VARIABLES HVC10 TO HVC13. THESE HVPC0002
|
|
VARIABLES ARE NON-LOCAL TO THE HVPICK PROCEDURE AND ARE HVPC0003
|
|
USED IN THE KELLOGG VAPOR ENTHALPY CORRELATION. ; HVPC0004
|
|
REAL ARRAY HVC10[0:3,0:6], HVC11[0:3,0:6], HVC12[0:140] ; HVPC0005
|
|
INTEGER ARRAY HVC13[0:3] ; HVPC0006
|
|
COMMENT FILL THE HVC10 ARRAY ; HVPC0007
|
|
FILL HVC10[1,*] WITH 0,-761.11111,-1303.7539,-983.68122, HVPC0008
|
|
-1096.8939,-861.67605,-600.65265 ; HVPC0009
|
|
FILL HVC10[2,*] WITH 0,-53.714285,-63.193774,-54.883794, HVPC0010
|
|
-58.125263,0,0 ; HVPC0011
|
|
FILL HVC10[3,*] WITH 0,-255.55555,-336.44441,-297.48554, HVPC0012
|
|
0,0,0 ; HVPC0013
|
|
COMMENT FILL THE HVC11 ARRAY ; HVPC0014
|
|
FILL HVC11[1,*] WITH 0,0,-384321.0,-249628.16,-246543.2, HVPC0015
|
|
-255497.96,-76808.579 ; HVPC0016
|
|
FILL HVC11[2,*] WITH 0,0,-722.77562,-658.60677,-470.28599,HVPC0017
|
|
0,0 ; HVPC0018
|
|
FILL HVC11[3,*] WITH 0,0,-38580.247,-26460.019,0,0,0 ; HVPC0019
|
|
COMMENT FILL THE HVC12 ARRAY ; HVPC0020
|
|
FILL HVC12[*] WITH 0,18476.524,28.998149,0.012017808, HVPC0021
|
|
0.35614028@-5,286.4377,0.48420937,0.00023912557, HVPC0022
|
|
0.64297464@-7,-0.49370633,-0.00006964696,-0.31681229@-6, HVPC0023
|
|
-0.10290886@-9,0.008329568,0.5701361@-5,-0.31672961@-7, HVPC0024
|
|
-0.1988962@-10,-0.00014120377,0.33924988@-7,0.11363392@-8,HVPC0025
|
|
-0.26590991@-11,-2.2151685,0.0014721823,-0.89638312@-6, HVPC0026
|
|
0.23521694@-8,-0.059723264,0.000024615051,-0.24871031@-8, HVPC0027
|
|
0.17989189@-9,-0.00026137932,-0.85898077@-7,0.65697289@-9,HVPC0028
|
|
0.15282049@-11,0.38456964@-5,0.1569199@-8,0.67816683@-11, HVPC0029
|
|
-0.68821506@-13,-0.55467108@-7,0.5423596@-10, HVPC0030
|
|
0.76698397@-12,-0.16745037@-14,0.00072455923, HVPC0031
|
|
-0.61615193@-6,0.23064381@-8,0.23862173@-11, HVPC0032
|
|
0.000028714666,-0.63842133@-8,0.56837213@-10, HVPC0033
|
|
0.22227931@-12,0.4268957@-6,0.10343964@-9,0.67695387@-12, HVPC0034
|
|
0.21929573@-14,-0.19019623@-8,-0.24576658@-11, HVPC0035
|
|
0.31169546@-13,-0.27537831@-15,-0.63457251@-10, HVPC0036
|
|
0.18028653@-12,-0.77462862@-15,-0.11939762@-16, HVPC0037
|
|
-0.12974751@-5,0.26472696@-8,0.44505174@-11, HVPC0038
|
|
-0.13244617@-14,-0.38598776@-7,0.80278918@-10,0.13904@-12,HVPC0039
|
|
-0.77004701@-16,-0.94539088@-10,0.12172272@-12, HVPC0040
|
|
0.39222715@-15,-0.49782875@-18,0.1714693@-11, HVPC0041
|
|
-0.16656714@-13,0.1356848@-16,-0.61718776@-19, HVPC0042
|
|
-0.35825766@-12,0.13296682@-15,0.39268857@-17, HVPC0043
|
|
0.19687@-19,-0.90417807@-9,-0.47938045@-12,0.14790621@-15,HVPC0044
|
|
0.17264735@-16,-0.28670953@-10,0.35321191@-13, HVPC0045
|
|
-0.22817455@-15,0.28121467@-20,-0.72619032@-13, HVPC0046
|
|
0.24321681@-14,-0.24930756@-17,-0.39402064@-19, HVPC0047
|
|
0.81558777@-14,0.26870263@-16,0.11709094@-18, HVPC0048
|
|
-0.11935488@-20,0.16083096@-15,0.1036573@-17, HVPC0049
|
|
-0.14420377@-19,-0.32733122@-22,-0.24290044@-12, HVPC0050
|
|
0.37906392@-14,0.18380997@-16,-0.85139608@-19, HVPC0051
|
|
0.45884161@-14,0.21167226@-15,0.97736318@-18, HVPC0052
|
|
-0.39847134@-20,0.1639275@-15,0.14584069@-17, HVPC0053
|
|
0.32041512@-19,-0.30973553@-22,-0.10096406@-16, HVPC0054
|
|
-0.24724871@-18,0.86988199@-21,0.12615896@-23, HVPC0055
|
|
-0.10535051@-17,-0.71302923@-20,0.11867620@-22, HVPC0056
|
|
-0.32811395@-25,-0.11178733@-13,0.55203187@-16, HVPC0057
|
|
-0.69733288@-19,-0.82442572@-22,-0.2874314@-15, HVPC0058
|
|
0.14875463@-17,-0.26967868@-20,-0.26915402@-23, HVPC0059
|
|
0.15892876@-17,-0.25869773@-20,-0.29765509@-22, HVPC0060
|
|
-0.82226301@-26,0.20613157@-18,-0.53614579@-21, HVPC0061
|
|
0.3996563@-24,-0.14123339@-25,0.48563845@-20, HVPC0062
|
|
-0.25794064@-22,0.52538375@-25,-0.1103624@-26 ; HVPC0063
|
|
COMMENT FILL THE HVC13 ARRAY ; HVPC0064
|
|
FILL HVC13[*] WITH 0, 6, 4, 3 ; HVPC0065
|