1
TO: PEOPLE INTERESTED IN USING TEVATRON DIPOLE DATA ON THE CYBERS
FROM: J.A.MALKO / COMPUTER-JOCK (EX-PHYSICIST)
LAST REVISION: 06-MARCH-86 (FILE NAME IS COMPJOK IN 93982)
NOTE: THIS MAGNET DATA BASE IS NOW UNDER THE CONTROL OF
EUGENE ("J") SCHMIDT, X4328 (MAIL STATION 344). ALL
QUESTIONS SHOULD BE REFERRED TO HIM.
TEVATRON DIPOLE DATA ARE STORED ON SEVEN RANDOM ACCESS DATA FILES ON
THE CYBER. THE FACT THAT THEY ARE RANDOM ACCESS MEANS THAT YOU DO NOT
HAVE TO READ THROUGH UNWANTED DATA TO FIND A PARTICULAR PIECE OF DATA.
THESE RANDOM ACCESS FILES ARE OFFICIALLY KNOWN AS "EXTENDED
INDEXED SEQUENTIAL FILES". THIS OFFICIAL NAME WILL BE USEFUL IF
YOU WANT TO READ THE DESCRIPTION OF THESE FILES IN THE CDC MANUAL.
THESE SEVEN RANDOM ACCESS DATABASES ARE PUBLIC DIRECT-ACCESS FILES
KEPT IN USER AREA 93982 AND ARE CALLED DATAB1,DATAB2,DATAB3,DATAB4,
DATAB5,DATAB6 AND DATAB7. DATAB1-5, AND DATAB7 CONTAIN THE ACTUAL
MEASUREMENT DATA WHILE DATAB6 CONTAINS BOOKKEEPING INFORMATION WHICH
IS NEEDED TO PROCESS THE OTHER SIX FILES. IN ORDER TO USE THESE
DATABASE FILES YOU MUST ATTACH THEM EITHER WITH CYBER CONTROL
LANGUAGE (I.E. ATTACH,DATAB1/UN=93982.) OR WITH FORTRAN CALLABLE
PERMANENT FILE ROUTINES (SEE ORANGE CYBER USER'S GUIDE, PAGE 4-10).
AT THE PRESENT TIME THERE IS ROOM FOR 16 DIFFERENT TYPES OF MEASUREMENT
DATA. EACH OF THE 16 TYPES OF MEASUREMENT DATA ARE GIVEN A TYPE
NUMBER(1 TO 16). FIVE OF THE DATABASES CONTAIN THREE TYPES
OF MEASUREMENT DATA, WHILE DATAB7 CONTAINS ONLY DCH DATA. THE FOLLOWING
TABLE LISTS THE TYPES OF MEASUREMENTS FOUND IN EACH DATABASE AND
THE ASSOCIATED TYPE NUMBER:
DATABASE TYPES OF DATA CONTAINED TYPE NO.
******** *********************** ***************
DATAB1 QUENCH 1
DATAB1 VERTICAL PLANE 2
DATAB1 DC EXCITATION 3
DATAB2 ACLOSS 4
DATAB2 NMR 5
DATAB2 ASSEMBLY 6
DATAB3 ELECT 7
DATAB3 COMMENTS 8
DATAB3 YOKE 9
DATAB4 ELEVEN HERTZ 10
DATAB4 HIPOT 11
DATAB4 PRESENTLY NOT USED 12
DATAB5 DCH SHIFTED AND COMBINED 13
DATAB5 ACH 14
DATAB5 PRESENTLY NOT USED 15
DATAB7 DCH 16
1
THE DATA ARE STORED RANDOMLY BY MAGNET NUMBER (ALLOWED RANGE OF 1
TO 2000 ALTHOUGH THERE ARE PRESENTLY NO MAGNET NUMBERS BELOW 200
AND NUMBERS GREATER THAN 1900 ARE SPECIAL 10 FT DIPOLES),
MEASUREMENT TYPE NUMBER, AND A SERIAL COUNTER (ISER) WHICH KEEPS
TRACK OF HOW MANY MEASUREMENTS OF A CERTAIN TYPE EXIST FOR A
PARTICULAR MAGNET. FOR EXAMPLE, THE FIRST DCX MEASUREMENT STORED
FOR A PARTICULAR MAGNET WILL HAVE ISER=1, THE NEXT DCX MEASRUREMENT
STORED FOR THIS SAME MAGNET WILL HAVE ISER=2, ETC.
DATAB6 CONTAINS INFORMATION ON HOW MANY MEASUREMENTS THERE WERE FOR
EACH MAGNET AND MEASUREMENT TYPE; I.E. THE HIGHEST VALUE OF ISER.
TO ACCESS A PIECE OF DATA YOU MUST CALCULATE THE "KEY" ASSOCIATED
WITH THIS PIECE OF DATA. THIS KEY HAS A UNIQUE VALUE FOR EACH
MAGNET NUMBER(IMAG), TYPE NUMBER(ITYPE), AND ISER NUMBER. THE KEY CAN
BE CALCULATED WITH A CALL TO THE FOLLOWING SUBROUTINE:
SUBROUTINE MAKEKEY(IMAG, ITYPE, ISER, KEY)
INTEGER IMAG, ITYPE, ISER, KEY, I, I1
IF (ITYPE .NE. 16) THEN
KEY = (IMAG - 1)*99 + ISER
ELSE
I = ITYPE - 1
I1 = INT(REAL(I)/3.0)*3
KEY = (IMAG - 1)*297 + (I-I1)*99 + ISER
END IF
RETURN
END
I.E. TO CALCULATE THE KEY ASSOCIATED WITH THE FIRST DCX MEASUREMENT
STORED FOR MAGNET 440 YOU USE : CALL MAKEKEY(440,3,1,KEY)
YOU NOW USE THIS VALUE OF KEY IN A CALL TO A SYSTEM SUBROUTINE GET:
CALL GET(FIT,WORD,KEY)
IN THE ABOVE, FIT IS A 35-ELEMENT ARRAY WHICH
SPECIFIES PARAMETERS OF THE DATABASE BEING ACCESSED,IN THIS CASE
DATAB1 BECAUSE THE DCX DATA ARE STORED IN DATAB1.
FIT MUST HAVE BEEN PREVIOUSLY DEFINE IN YOUR PROGRAM; IT IS
ALWAYS DEFINED IN THE SAME WAY AND WILL BE DESCRIBED LATER.
AFTER THE CALL TO GET,THE ARRAY "WORD" WILL CONTAIN ALL THE DATA
ASSOCIATED WITH THE FIRST DCX MEASUREMENT FOR MAGNET 440. WORD
CAN BE DIMENSIONED 2800 TO AVOID PROBLEMS ALTHOUGH A DIMENSION
OF 700 IS SUFFICIENT FOR ALL BUT DATABASE 7.
ALL DATA ARE STORED AS REAL NUMBERS (INCLUDING "INTEGER
NUMBERS" SUCH AS NUMBER OF RUNS, ETC.) EXCEPT FOR THE
DATA IN DATAB6 WHICH ARE STORED AS INTEGERS.
1
DATAB6 IS SPECIAL IN THAT THE KEY TO ACCESS THE DATA IS SIMPLY THE
MAGNET NUMBER. A "CALL GET" FOR THIS DATABASE RETURNS INFORMATION ON
THE NUMBER OF MEASUREMENTS STORED FOR EACH DATA TYPE. I.E. ASSUME FIT
CORRESPONDS TO DATAB6, THEN CALL GET(FIT,IWORD,440) RETURNS IN THE
16-DIMENTIONAL ARRAY IWORD THE FOLLOWING INFORMATION:
IWORD(1)= NO. OF QUENCH MEASUREMENTS STORED FOR MAGNET 440
IWORD(2)= NO. OF VPLANE MEASUREMENTS STORED FOR MAGNET 440
.
ETC
.
IWORD(16)=NO. OF DCH MEASUREMENTS STORED FOR MAGNET 440
A FEW WORDS NOW ABOUT SETTING UP THE FIT ARRAY. THESE ARRAYS MUST
CORRESPOND TO THE PARAMETERS USED TO INITIALLY CREATE THE VARIOUS
RANDOM ACCESS DATABASES. THE FOLLOWING SET OF CARDS SERVE TO DEFINE
THE FIT ARRAY FOR EACH OF THE SEVEN DATABASES AND SHOULD BE USED
IN YOUR PROGRAM:
DIMENSION INFO1(35),INFO2(35),INFO3(35),INFO4(35),INFO5(35),
+ INFO6(35),INFO7(35)
CALL FILEIS(INFO1,3HLFN,6HDATAB1,3HBFS,7322,3HDFC,3,3HEFC,3,
+ 3HORG,3HNEW)
CALL FILEIS(INFO2,3HLFN,6HDATAB2,3HBFS,7322,3HDFC,3,3HEFC,3,
+ 3HORG,3HNEW)
CALL FILEIS(INFO3,3HLFN,6HDATAB3,3HBFS,7322,3HDFC,3,3HEFC,3,
+ 3HORG,3HNEW)
CALL FILEIS(INFO4,3HLFN,6HDATAB4,3HBFS,7322,3HDFC,3,3HEFC,3,
+ 3HORG,3HNEW)
CALL FILEIS(INFO5,3HLFN,6HDATAB5,3HBFS,7322,3HDFC,3,3HEFC,3,
+ 3HORG,3HNEW)
CALL FILEIS(INFO6,3HLFN,6HDATAB6,3HBFS,1113,3HDFC,3,3HEFC,3,
+ 3HORG,3HNEW)
CALL FILEIS(INFO7,3HLFN,6HDATAB7,3HBFS,14233,3HDFC,3,3HEFC,3,
+ 3HORG,3HNEW)
THE ABOVE CARDS HAVE DEFINED THE FIT FOR DATAB1 TO BE AN ARRAY CALLED
INFO1 (YOU COULD HAVE NAMED IT ANYTHING YOU WISHED). THEREFORE,
IN A CALL TO GET DATA FROM DATAB1 YOU WRITE:
CALL GET(INFO1,WORD,KEY) ETC.
1
THE ARE A FEW MORE DETAILS THAT MUST BE DISCUSSED. FIRST,BEFORE ANY
DATABASE CAN BE ACCESSED IT MUST BE OPENED, THIS IS DONE BY THE
BY THE FOLLOWING CALL IN YOUR PROGRAM:
CALL OPENM(INFO1,5HINPUT,1HR) : THIS WILL OPEN DATAB1
ETC. FOR THE OTHER DATABASES.
WHEN YOU ARE DONE WITH A DATABASE YOU SHOULD CLOSE IT:
CALL CLOSEM(INFO1,'RET') : THIS CLOSES AND RETURNS DATAB1
ETC. FOR OTHER DATABASES
THE DATABASES ARE WORKING FILES AND ARE PERIODICALLY UPDATED BY THE
MTF DATA GROUP. WHEN THE FILES ARE BEING UPDATED, THEY WILL BE
UNAVAILABLE FOR GENERAL USE SINCE THE DATA GROUP MUST ATTACH THEM
IN WRITE MODE. LIKEWISE, THE DATA GROUP WILL BE UNABLE TO UPDATE
THE FILES IF A GENERAL USER IS ATTACHED TO ANY OF THE DATABASES.
THE DATABASES SHOULD ALWAYS BE RETURNED WHEN THEY ARE NOT IN USE.
SPECIFYING 'RET' IN THE CLOSEM STATEMENT FORCES THE RETURN OF THE
GIVEN FILE BEING CLOSED.
THE SYSTEM ROUTINES TO USE EXTENDED INDEXED SEQUENTIAL FILES COME
FROM THE LIBRARY BAMLIB. THERE EXISTS A CONFLICT IN NAMES BETWEEN
BAMLIB AND CERNLIB. IN PARTICULAR, THE SUBROUTINE NAME 'GET' EXISTS IN
BOTH BAMLIB AND CERNLIB. SINCE DATA ARE RETRIEVED FROM THE DATABASES
USING SUBROUTINE GET, THIS CONFLICT MUST BE RESOLVED IF CERNLIB IS
BEING USED (FOR EXAMPLE, IF THE HBOOK PACKAGE IS INVOKED).
IN THE HBOOK EXAMPLE, THE FOLLOWING LOAD COMMAND MIGHT BE USED.
LDSET(LIB=BAMLIB/HBOOK,CERNLIB)
NOTE THAT BAMLIB DOES NOT HAVE TO BE SPECIFICALLY ATTACHED FROM
ANYWHERE.
THESE DATABASES CONTAIN DATA FOR BOTH STANDARD 20 FT DIPOLES
('TB' AND 'TC' TYPE) AND FOR SPECIAL 10 FT DIPOLES WHICH ARE
LABELED AS 'TD' MAGNETS. THE 10 FT DIPOLES HAVE MAGNET NUMBERS
GREATER THAN 1900.
A SAMPLE FORTRAN PROGRAM USING THE DATABASES IS INCLUDED AT THE END
OF THIS WRITEUP.
1
FOLLOWING IS A DESCRIPTION OF THE DATA LOADED INTO THE WORD ARRAY
FOR EACH DATA TYPE:
QUENCH DATA - INCLUDES NORMAL QUENCH, SAVER, HEATER AND
AND CYCLE DATA
- DATAB1 (TYPE=1)
WORD
----
1 MAGNET NUMBER
2 DATE
3 TEST VERSION
4 TIME
5 DATA TYPE = 1 NORMAL QUENCH
= 50 HEATER
= 70 SAVER
= 90 CYCLE
6 NCOM
7 STAND NUMBER
8 MEASUREMENT NUMBER
9 MEASUREMENT CODE
THEN FOLLOW NCOM*7 COMMENT WORDS, WRITE OUT EACH IN A10 FORMAT
K=9+NCOM*7
K+1 MEASUREMENT SYSTEM(0 OR 1)
K+2 NEWFIR = 1 FOR NEW HEATER FIRING CIRCUIT (HEATER DATA ONLY)
K+6 SHUNT CALIBRATION
BRANCH FOR THE TYPE OF DATA (NORMAL, HEATER, SAVER, CYCLE)
**** N.B. ****
IN THE NORMAL QUENCH DATA DESCRIBED BELOW,WORD(L+4), THE
TEST STATUS, HAS THE FOLLOWING MEANING:
TEST STATUS = -1 : MANUAL TRIP TO TEST CIUCUITS
OR, IF TEST STATUS .GT.0, TEST STATUS=I1+I2+I3+I4 , WHERE
I1 = 0 (DUMP RESISTOR NOT SHORTED), = 1 (SHORTED)
I2 = 0 (NO LN2 IN WARMBORE), = 2 (LN2 IN WARMBORE)
I3 = 4 : STATIONARY QUENCH TEST(OLD-STYPE AND RARE TEST)
I3 = 0 : NOT A STATIONARY QUENCH TEST
I4 = 8 : TOP/RIGHT HEATER FIRED(OLD-STYPE HEATER TEST)
I4= 16 : BOTTOM/LEFT HEATER FIRED( " )
I4= 0 : NO HEATER FIRED
1
FOR NORMAL QUENCH DATA (WORD(5)=1):
-----------------------------------
K+11,K+12 IGNORE
K+13 NRUN = NUMBER OF RUNS
THE QUENCH TEST HAS BEEN MODIFIED A NUMBER OF TIMES. THE
NUMBER OF DATA WORDS(KWDS) FOR EACH RUN THEREFORE DEPENDS ON THE
TEST VERSION, WORD(3). DEFINE IP=WORD(3)*10
IF(IP.LT.60) KWDS=12
IF(IP.GE.60 .AND. IP.LT.70)KWDS=13
IF(IP.EQ.70)KWDS=24
IF(IP.GT.70)KWDS=32
THEN FOR EACH OF THE I=1,NRUN RUNS , L=22+NCOM*7+(I-1)*KWDS
FOR KWDS=12 FOR KWDS=13
----------- -----------
L+1 RUN NUMBER DITTO
L+2 RAMP RATE DITTO
L+3 QUENCH CURRENT DITTO
L+4 TEST STATUS DITTO
L+5 T-1P-IN DITTO
L+6 T-1P-OUT DITTO
L+7 P-1P-IN DITTO
L+8 ENERGY IN MAG(KJOULES) DITTO
L+9 ENERGY IN DUMP RES DITTO
L+10 HTRCUR MIITS
L+11 IGNORE HTRCUR
L+12 IGNORE IGNORE
L+13 NA IGNORE
FOR KWDS=24 FOR KWDS=32
----------- -----------
L+1 RUN NUMBER DITTO
L+2 RAMP RATE DITTO
L+3 QUENCH CURRENT DITTO
L+4 TEST STATUS DITTO
L+5 ENERGY IN MAG(KJOULES) DITTO
L+6 ENERGY IN DUMP RES DITTO
L+7 MIITS DITTO
L+8 TO L+10 IGNORE IGNORE
L+11 HTRCUR DITTO
L+12 LN2 CODE DITTO
L+13 SC-1P-IN P-1P-IN
L+14 SC-1P-OUT P-1P-OUT
L+15 SC-2P-IN P-2P-IN
L+16 SC-2P-OUT P-2P-OUT
L+17 SCT-1P-IN VP-1P-IN
L+18 SCT-1P-OUT VP-1P-OUT
L+19 SCT-2P-IN VP-2P-IN
L+20 SCT-2P-OUT VP-2P-OUT
L+21 T-1P-IN SC-1P-IN
L+22 T-1P-OUT SC-1P-OUT
L+23 T-2P-IN SC-2P-IN
L+24 T-2P-OUT SC-2P-OUT
L+25 TO L+28 NA SUBCOOLING TEMP(1P-IN,1P-OUT,2P-IN,2P-OUT)
L+29 TO L+32 NA TEMP(1P-IN,1P-OUT,2P-IN,2P-OUT)
1
FOR HEATER DATA (WORD(5)=50 AND WORD(3).LT.6.0)
-----------------------------------------------
K+11 STAND NUMBER
K+12 SHUNT CALIBRATION
K+13 GAIN OF CURRENT AMPLIFIER
K+14 RATIO OF TEST VOLTAGE TO BUCKING COIL VOLTAGE
K+15 GAIN OF MAGNET VOLTAGE AMPLIFIER
K+16 GAIN OF DUMP VOLTAGE AMPLIFIER
K+17 DUMP CIRCUIT RESISTANCE
K+18 IGNORE
K+19 DATA ACQUISITION TIME
K+20 DELAY BETWEEN FLAT-TOP AND HEATER FIRING
K+21 NRUN = NUMBER OF RUNS
FOR EACH OF THE I=1,NRUN RUNS THERE ARE 33 WORDS:
L= 30 + NCOM*7 +(I-1)*33
L+1 XXXX
L+2 DATA ACQUISITION TIME
L+3 RUN COUNTER(1,2,3, ETC.)
L+4 QUENCH STATUS: =-1(MANUAL TRIP), =0(NO QUENCH), =1(QUENCH)
L+5 HEATER CODE: =1(TOP/RIGHT), =2(BOTTOM/LEFT), =3(BOTH)
L+6 DUMP RESISTOR CODE, =0(NOT SHORTED), =1(SHORTED)
L+7 TIME DELAY BETWEEN HEATER FIRING AND QUENCH, IF ANY.
L+8 STEADY CURRENT IN MAGNET WHEN HEATER FIRED.
L+9 ENERGY ABSORBED IN MAGNET DURING QUENCH
L+10 ENERGY ABSORBED IN DUMP RESISTOR DURING QUENCH
L+11 MIITS IN MAGNET
L+12 QUENCH PRESSURE
L+13 LIQUID N2 CODE: =0(NO LN2), =1(LN2 PRESENT).
L+14 TO L+17 : PRESSURE(1P-IN,1P-OUT,2P-IN,2P-OUT).
L+18 TO L+21 : VAPOR PRESSURE(1P-IN,1P-OUT,2P-IN,2P-OUT).
L+22 TO L+25 : SUBCOOLING PRESS(1P-IN,1P-OUT,2P-IN,2P-OUT).
L+26 TO L+29 : SUBCOOLING TEMP(1P-IN,1P-OUT,2P-IN,2P-OUT).
L+30 TO L+33 : TEMP DEG KELVIN(1P-IN,1P-OUT,2P-IN,2P-OUT)
***** N.B. *****
SOME OLD-STYLE HEATER DATA WERE TAKEN BY FIRING THE HEATERS ON A
RISING RAMP AND RECORDING THE RESULTING QUENCH,IF ANY, AS IN A
NORMAL QUENCH TEST. THESE LIMITED HEATER DATA HAVE WORD(5)=50
BUT WORD(3) .GE. 6.1. ASIDE FROM THIS THEY HAVE THE SAME FORMAT
AS THE NORMAL QUENCH DATA DESCRIBED ABOVE. THE CURRENT AT WHICH
THE HEATERS ARE FIRED IS THE QUANTITY HTRCUR MENTIONED IN THE
ABOVE DESCRIPTION OF NORMAL QUENCH DATA.
1
FOR SAVER DATA (WORD(5)=70):
---------------------------
K+11 NUMBER OF RUNS
FOR EACH OF THE I=1,NRUN RUNS THERE ARE 12 WORDS PLUS COOLING
DATA. THE AMOUNT OF COOLING DATA HAS CHANGED WITH THE DIFFERENT
TEST VERSIONS AND THEREFORE THE TOTAL NUMBER OF WORDS (KWDS) FOR
EACH RUN DEPENDS ON THE TEST VERSION = WORD(3).
FOR WORD(3) .LE. 3.9 KWDS=17
FOR WORD(3) .EQ. 4.0 KWDS=24
FOR WORD(3) .GE. 4.1 KWDS=32
L= 20 + NCOM*7 + (I-1)*KWDS
L+1 NUMBER OF COMPLETED RAMP CYCLES
L+2 MINIMUM CURRENT OF RAMP CYCLE
L+3 MAXIMUM CURRENT OF RAMP CYCLE
L+4 RAMP RATE
L+5 TIME IN SEC AT BEGINNING OF FLAT-TOP(T=0 START OF RAMP)
L+6 TIME AT END OF FLAT-TOP
L+7 TIME AT BOTTOM OF DOWN-RAMP
L+8 TIME AT BEGINNING OF NEXT CYCLE
L+9 QUENCH CODE =0(NO QUENCH), =1(QUENCH ON UP-RAMP)
=2(QUENCH ON DOWN-RAMP), =3(QUENCH BEFORE START NEXT CYCLE)
L+10 QUENCH CURRENT IF A QUENCH OCCURED
L+11 TIME OF QUENCH IF ONE OCCURED
L+12 =0(NO LIQUID N2 IN WARMBORE), =1(LN2 IN WARMBORE)
FOR KWDS=17 FOR KWDS=24 FOR KWDS=32
------------ ----------- -----------
L+13 T-1P-IN SC-1P-IN P-1P-IN
L+14 T-1P-OUT SC-1P-OUT P-1P-OUT
L+15 P-1P-IN SC-2P-IN P-2P-IN
L+16 SC-1P-IN SC-2P-OUT P-2P-OUT
L+17 SC-1P-OUT SCT--IN VP--IN
L+18 NA SCT-1P-OUT VP-1P-OUT
L+19 NA SCT-2P-IN VP-2P-IN
L+20 NA SCT-2P-OUT VP-2P-OUT
L+21 NA T-1P-IN SC-1P-IN
L+22 NA T-1P-OUT SC-1P-OUT
L+23 NA T-2P-IN SC-2P-IN
L+24 NA T-2P-OUT SC-2P-OUT
L+25 NA NA SCT-1P-IN
L+26 NA NA SCT-1P-OUT
L+27 NA NA SCT-2P-IN
L+28 NA NA SCT-2P-OUT
L+29 NA NA T-1P-IN
L+30 NA NA T-1P-OUT
L+31 NA NA T-2P-IN
L+32 NA NA T-2P- OUT
IN THE ABOVE TABLE, T=TEMP DEGREES KELVIN, 1P=SINGLE PHASE
2P=TWO PHASE, P=PRESSURE(PSIG), SC=SUBCOOLING(PSIG),
SCT=SUBCOOLING(DEG. KELVIN), VP=VAPOR PRESSURE
1
FOR CYCLE DATA (WORD(5)=90):
---------------------------
CYCLE DATA CONSISTS OF HEADER INFORMATION (STARTING AT WORD 1),
COMMENTS (STARTING AT WORD 10), MORE HEADER INFORMATION (STARTING
AT WORD K+1), COOLING INFORMATION (STARTING AT WORD K1), AND
DATA RUNS (STARTING AT WORD K2+2). THE CONTENTS OF THE HEADER
INFORMATION HAVE ALREADY BEEN DESCRIBED.
WORD
----
K+11 = K1 NUMBER OF WORDS IN COOLING BLOCK (=L1)
K1+L1 = K2 NUMBER OF DATA RUNS TO FOLLOW (=NRUN)
K2+1 NUMBER OF WORDS IN EACH DATA RUN (=NWORD)
FOR DATA RUNS I = 1,NRUN; FIRST WORD KK(I)+1 = K2 + 2 + (I-1)*NWORD
TO REVIEW:
NCOM = W(6)
K = 9 + NCOM*7
K1 = K + 11
L1 = W(K1)
K2 = K1 + L1
NRUN = W(K2)
NWORD = W(K2+1)
KK(I) = K2 + 1 + (I-1)*NWORD
COOLING BLOCK DATA
------------------
K1+1 = 0 IF THERE IS NO LN2 IN WARM BORE
= 1 IF THERE IS LN2 IN WARM BORE
K1+2 1 PHASE IN - PRESSURE (PSI)
+3 1 PHASE OUT
+4 2 PHASE IN
+5 2 PHASE OUT
+6 1 PHASE IN - VPT READING (PSI)
+7 1 PHASE OUT
+8 2 PHASE IN
+9 2 PHASE OUT
+10 1 PHASE IN - SUBCOOLING (PSI)
+11 1 PHASE OUT
+12 2 PHASE IN
+13 2 PHASE OUT
+14 1 PHASE IN - SUBCOOLING (DEGREES KELVIN)
+15 1 PHASE OUT
+16 2 PHASE IN
+17 2 PHASE OUT
+18 1 PHASE IN - TEMPERATURE (DEGREES KELVIN)
+19 1 PHASE OUT
+20 2 PHASE IN
+21 2 PHASE OUT
1
CYCLE DATA RUNS
---------------
KK(I)+1 NUMBER OF COMPLETE RAMPS
KK(I)+2 AVERAGE MINIMUM CURRENT (AMPS) FOR RAMP CYCLE
+3 AVERAGE MAXIMUM CURRENT (AMPS) FOR RAMP CYCLE
+4 RAMP RATE (AMPERES/SEC)
+5 FLAT TOP START TIME (SECONDS)
+6 FLAT TOP END TIME (SECONDS)
+7 TIME (SECONDS) WHEN MAGNET WAS RAMPED DOWN TO BIAS LEVEL
+8 TIME (SECONDS) AT END OF BACK PORCH BIAS LEVEL
+9 QUENCH STATUS
= 0 NO QUENCH DURING RAMP SET
= 1 QUENCHED BETWEEN START OF RAMP AND FLAT TOP
= 2 QUENCHED ON FLAT TOP
= 3 QUENCHED WHILE RAMPING DOWN FROM FLAT TOP
= 4 QUENCHED WHILE AT BIAS LEVEL
+10 QUENCH CURRENT (AMPERES)
+11 TIME (SECONDS) AT QUENCH (RELATIVE TO START OF RAMP CYCLE)
1
VPLANE DATA - DATAB1 (TYPE=2)
(NOTE THAT THIS TEST HAS BEEN REPLACED, SEE YOKE, TYPE=9.)
WORD
----
1 MAGNET NUMBER
2 DATE
3 IGNORE
4 TIME
5 IGNORE
6 NCOM
7 MEASUREMENT NUMBER
8 INTEGRATOR NUMBER
9 IGNORE
10 MEASUREMENT CODE
THEN FOLLOW NCOM*7 COMMENT WORDS, WRITE OUT IN A10 FORMAT
K = 10 + NCOM*7
K+1 MEASUREMENT SYSTEM(0 OR 1)
K+2 TO K+10 : IGNORE
K+11 RUN NUMBER
K+12 NCUR = NUMBER OF CURRENTS
K+13 TO K+16 : IGNORE
K+17 DOWNSTREAM SUPPORT NUMBER
K+18 UPSTREAM SUPPORT NUMBER
K+19 DOWNSTREAM OFSET ANGLE
K+20 UPSTREAM OFSET ANGLE
THEN FOR EACH I=1,NCUR CURRENTS THERE FOLLOW 4 WORDS:
L= 10 + NCOM*7 + 20 + (I-1)*4
L+1 SERIAL COUNTER(1,2,3,4 ETC)
L+2 CURRENT
L+3 INTEGRAL B.DL
L+4 STRETCHED WIRE ANGLE IN MILLIRADIANS.
1
DCX DATA - DATAB1 (TYPE=3)
WORD
----
1 MAGNET NO.
2 DATE
3 IGNORE
4 TIME
5 IGNORE
6 NCOM = NO. OF COMMENT CARDS
7 MEASUREMENT NO.
8 INTEGRATOR NO.
9 MEASUREMENT NUMBER OF CORRESPONDING DCH MEASUREMENT
10 MEASUREMENT CODE.
THEN FOLLOW NCOM*7 COMMENT WORDS
K=10 + NCOM*7
K+1 MEASUREMENT SYSTEM.
K+2 TO K+10 BLANK
K+11 RUN NUMBER
K+12 NCUR = NO. OF CURRENTS IN THIS RUN
K+13 TO K+18 IGNORE
THEN FOR EACH I=1,NCUR CURRENT THERE ARE THREE WORDS:
L=K + 18 + (I-1)*3
L+1 SERIAL COUNTER( 1,2,3,4 ETC)
L+2 CURRENT IN AMPS
L+3 DCX
1
ACLOSS - DATAB2 (TYPE=4)
NOTE THAT THE ACLOSS TEST WAS DROPPED AS A ROUTINE TEST AND DATA
ONLY EXIST FOR ABOUT 386 MAGNETS.
WORD
----
1 MAGNET NUMBER
2 DATE
3 PDP-11 PROGRAM VERSION NUMBER
4 TIME
5 PROCESSING PROGRAM VERSION NUMBER
6 NCOM
7 MEASUREMENT NUMBER
8 MEASUREMENT CODE.
THEN FOLLOW NCOM*7 COMMENT WORDS
K=8 + NCOM*7
K+1 MEASUREMENT SYSTEM (FOR DATES GREATER THAN MAY 10, 1981)
- VALUE IS 0 OR 1
K+5 SHUNT CALIBRATION (PDP - 11 PROGRAM VERSION 7.7 AND HIGHER)
K+11 NCUR= NUMBER OF CURRENTS
FOR EACH OF THE I=1,NCUR CURRENTS THERE ARE FIVE WORDS
L = 8 + NCOM*7 + 11 + (I-1)*5
L+1 SERIAL COUNTER( 1,2,3,4 ETC.)
L+2 TIME RANGE
L+3 RAMP RATE IN AMPS/SEC
L+4 CURRENT IN AMPS
L+5 LOSS IN JOULES
1
NMR - DATAB2 (TYPE=5)
WORD
----
1 MAGNET NUMBER
2 DATE
3 PDP11 PROGRAM VERSION
4 TIME
5 CYBER NMR PROCESSING PROGRAM VERSION
6 NCOM
7 MEASUREMENT NUMBER
8 MEASUREMENT CODE
THEN FOLLOW NCOM*7 COMMENT WORDS, WRITE OUT IN A10 FORMAT.
K=8 + NCOM*7
K+1 MEASUREMENT SYSTEM(0 OR 1)
(WORDS K+2 TO K+5 ARE SET ONLY FOR PROCESSING PROGRAM GE 2.0
AND ARE NOT OF GENERAL INTEREST. STARTING WITH VERSION 5.0, THESE
3 WORDS APPLY ONLY TO THE RANGE OF ACCEPTED POINTS. PRIOR TO
VERSION 5.0, THEY APPLY TO THE ENTIRE RANGE OF DATA POINTS.)
K+2 ENCODER NOISE FOR NON DATA STEPS
K+3 ENCODER NOISE FOR DATA STEPS
K+4 ENCODER COUNT CORRECTION APPLIED
K+5 NUMBER OF BAD DATA POINTS DELETED
K+6 SHUNT
K+7 7TH WORD FROM SECOND PACHNIK HEADER CARD
K+8 REVERSE ENCODER COUNTS OVER RANGE OF ACCEPTED POINTS
(PDP11 VERSION 4.20 AND GREATER)
K+9 NULL (CAN ONLY BE SET IN PRGME). THE NMR MEASUREMENT
IS A FREQUENCY DIVIDED BY A CURRENT. THERE ARE
SEVERAL OBVIOUSLY CLUNKER MEASUREMENTS. A WAY TO FIND
CANDIDATES IS TO COMPUTE THE "MAGNETIC LENGTH" WHICH
IS THE DCX VALUE DIVIDED BY THE AVERAGE NMR. IN THIS
CALCULATION THE CURRENT DIVIDES OUT, SO IF THERE IS
A SYSTEMATIC CURRENT READING ERROR THAT EFFECTS BOTH
DCX AND NMR IT DISAPPEARS FROM THE "LENGTH". THE LENGTH
COMPARES THE NMR FREQUENCY AND THE MECHANICAL FIXTURE
DATA + INTEGRATOR DATA OF DCX. KNOWLEDGE OF SYSTEMATIC
CURRENT READOUT ERRORS COMES FROM TWO SOURCES, WHICH DO NOT
AGREE VERY WELL ON THE MAGNITUDE OF THE CURRENT READOUT
PROBLEM, BUT THEY DO AGREE THAT THERE HAS BEEN SOME
SORT OF SLOW DRIFT AS MONTHS GO BY. ONE SOURCE IS THE
REPEATED MEASUREMENTS OF MAGNETS WHICH HAVE NOT BEEN
REWORKED BETWEEN MEASUREMENTS. THE OTHER IS THE ROOM
TEMPERATURE ESTIMATE OF B.DL, WHICH UNLIKE DCX, HAS
A BUILT-IN WEEKLY CALIBRATION WITH A "STANDARD" COIL.
I HAVE DEVELOPED AN APPROXIMATE CORRECTION FACTOR
BASED MOSTLY ON REPEATED MEASUREMENT DATA.
** MULTIPLY ALL TRANSFER FUNCTION DATA IN THIS RECORD
BY THE NON-ZERO CONTENTS OF THIS WORD TO GET
THE CALIBRATED RESULTS. THIS FACTOR HAS BEEN
WRITTEN INTO THE RECORD IN AUG 1984 BY PROGRAM
"CURCAL"
K+10 NPOINT
(AFTER PDP11 VERSION 4.20, THERE WILL USUALLY EXIST ADDITIONAL
NMR INDICATIVE INFORMATION AFTER THE ACTUAL DATA POINTS.
IF NPOINT IS NON-ZERO, THEN THIS ADDITIONAL DATA EXISTS AND
NPOINT+1 IS THE FIRST WORD OF THE EXTRA DATA.)
K+11 TOTAL NUMBER OF POINTS TAKEN(INCLUDING HALL PROBE PONITS)
K+12 TOTAL NUMBER OF NMR POINTS
K+13 NUMBER OF ONE-INCH BINS USED TO AVERAGE DATA
K+14 NUMBER OF NMR POINTS
NOT INCLUDING FIRST AND LAST 6 INCHES OF MAGNET.
K+15 AVERAGE OF ALL NMR POINTS
K+16 STANDARD DEVIATION OF ALL NMR POINTS
K+17 AVERAGE OF NMR POINTS NOT INCLUDING ENDS(1ST AND LAST 6 INCHES)
K+18 STANDARD DEVIATION OF NMR POINTS NOT INCLUDING ENDS
K+19 AVERAGE CURRENT
THEN FOR EACH OF THE I=1,NBIN BINS THERE ARE TWO WORDS:
L=8 + NCOM*7 +19 +(I-1)*2
L+1 CENTER OF BIN IN INCHES
L+2 AVERAGE OF NMR POINTS IN THIS BIN
IF NPOINT IS NON-ZERO, LET N=NPOINT AND WE HAVE:
N+1 NUMBER OF WORDS (INCLUDING THIS ONE) IN THIS DATA BLOCK
(CURRENTLY 60)
N+2 NMR EQUIPMENT SERIAL NUMBER
N+3 PREMEASUREMENT AVERAGE OF REFERENCE FREQUENCY (MHZ)
N+4 STANDARD DEVIATION OF ABOVE AVERAGE
N+5 POSTMEASUREMENT AVERAGE OF REFERENCE FREQUENCY (MHZ)
N+6 STANDARD DEVIATION OF ABOVE AVERAGE
N+7 NOMINAL REFERENCE FREQUENCY
N+8,9 CHARACTER MAGNET LABEL (2A10 FORMAT)
N+10,11 OPERATOR INITIALS (2A10 FORMAT)
N+12 WARM BORE NUMBER
N+13 STAND NUMBER
N+14 FILE NUMBER
N+15 4TH WORD FROM SECOND PACHNIK HEADER CARD
N+16 5TH WORD FROM SECOND PACHNIK HEADER CARD
N+17 NULL (NOTHING IS PASSED INTO THIS WORD CURRENTLY)
N+18 NULL (NOTHING IS PASSED INTO THIS WORD CURRENTLY)
(ABOVE 2 WORDS COULD BE SET IN NMR PREPROCESSOR PROGRAM OR
IN PRGME)
N+19 TO N+60 CORRESPOND TO PACHNIK'S ARRAY P(19) TO P(60)
1
SO-CALLED ASSEMBLY DATA - DATAB2 (TYPE=6)
NOTE THAT THESE DATA HAVE NOT BEEN KEPT UP TO DATE.
WORD
----
1 MAGNET NUMBER
THEN COME 40 WORDS,10 EACH FOR THE LOWER-INNER COIL,LOWER-OUTER
COIL,UPPER-INNER COIL AND UPPER-OUTER COIL, IN THAT ORDER.
FOR EACH COIL SECTION THESE 10 WORDS CONTAIN:
1 - COIL NUMBER
2 - REEL NUMBER OF WIRE USED
3 - WIRE TYPE (1=EBANOL,2=ZEBRA,4=ZEBRA/BUS)
4 - WIRE SIZE IN MILS,EDGE A
5 - WIRE SIZE IN MILS,EDGE B
6 - WIRE SIZE IN MILS,THICKNESS
7 - WIRE SIZE IN 10-THS OF MILS, FROM "LUNDY-GAUGE".
8 - SHORT-SAMPLE CRITICAL CURRENT(0 MEANS NOT MEASURED)
9 - SHORT-SAMPLE QUENCH CURRENT
10 - 0 MEANS SHORT-SAMPLE QUENCH CURRENT IS AS GIVEN
1 MEANS S-S QUENCH CURRENT LISTED IS MAX OF POWER SUPPLY,
DID NOT ACTUALLY QUENCH.
42 - 50 IGNORE
THEN FOLLOW 100 WORDS FOR THE LOWER COIL HALF AND THEN 100
WORDS FOR THE UPPER COIL HALF.
EACH 100 WORDS CONTAINS THE FOLLOWING INFORMATION:
(ALL SIZES IN MILS, UNLESS STATED OTHERWISE)
1 - COIL ASSEMBLY SERIAL NUMBER
2 - CURE NUMBER
3 - INNER COIL SERIAL NUMBER
4 - OUTER COIL REEL NUMBER
5 - INNER COIL SIZING SHIM, QUAD I/III
6 - " " " " " II/IV
7 - OUTER " " " " I/III
8 - " " " " " II/IV
9 - INNER COIL RESISTANCE(AT 75 DEG F) IN OHMS
10 - OUTER " " " "
11 - IRRIGATION SPACER, QUAD I/III
12 - " " " II/IV
13 - 17 COIL INDUCTANCE(VOLTAGES 1-5)
18 - TURT TO TURN SHORT,1=CONDITION EXISTS,0=DOES NOT EXIST
(INNER COIL) (X10 INITIAL CHECK, X1 AFTER REPAIR)
19 - TURN TO TURN SHORT "
(OUTER COIL)
20 - LAYER TO LAYER SHORT "
21 - BUS TO COIL SHORT "
22 - STRAND(S) BROKEN "
23 - INSULATION PROBLEM "
24 - OTHER "
25 - COIL ON HOLD "
THEN SIZING INFO FOR THE INNER COIL OF HALF COIL
26 - COIL SERIAL NUMBER
27 - CURE
28 - INSPECTORS NUMBER
29 - DATE
30-33 - SIZING INFO,CALIB BLK,2000 LBS,POS I/II(1,2,3,4)
34-37 - " " 4000 " "
38-41 - " ,COIL DISP,2000 "
42-45 - " " 4000 " "
46-49 - " ,CALIB BLK,2000 LBS,POS II/IV(5,6,7,8)
50-53 - " " 4000 " "
54-57 - " ,COIL DISP,2000 " "
58-61 - " " 4000 " "
62 - COIL SERIAL NUMBER AGAIN
63 - FINAL HALF-COIL CURE NUMBER
64 - INSPECTORS NUMBER
65 - DATE
66-97 SAME AS 30-61
BUT FOR COMPLETED COIL HALF AND 4000/6000 LBS.
98-100 IGNORE
1
ELECTRICAL MEASUREMENTS - DATAB3 (TYPE=7)
NOTE THAT THESE DATA HAVE NOT BEEN KEPT UP TO DATE.
WORD
----
1 MAGNET NUMBER
2 DATE
3 IGNORE
4 NCOM
5,6 IGNORE
THEN FOLLOW NCOM*7 COMMENT WORDS
K=6 + NCOM*7
K+1 DC RESISTANCE COIL AND BUS
K+2 TEMP DEGREES F. FOR ABOVE MEASUREMENT
K+3 DC RES LEFT HEATER
K+4 DC RES RIGHT HEATER
K+5 DC RES E-DNST COIL LEAD
THE FOLLOWING DATA COME FROM THE 1000HK MAGNET TEST BOX MEASUREMENTS
K+6 TO K+12 RAW VOLTAGES FROM TEST BOX MEASUREMENT
FOLLOWING NUMBERS ARE DERIVED FROM THE ABOVE VOLTAGES
RESISTANCES IN OHMS, INDUCTANCES IN MH, CAPACITANCES IN NF:
K+13 UNGROUNDED INDUCTANCE
K+14 GROUNDED INDUCTANCE
K+15 UNGROUNDED RESISTANCE
K+16 GROUNDED RESISTANCE
K+17 CAPACITANCE COIL TO CRYOSTAT
K+18 CAPACITANCE COIL TO BUS
K+19 CAPACITANCE BUS TO CRYOSTAT
1
COMMENTS - DATAB3 (TYPE=8)
COMMENTS ARE NOT UP TO DATE AS OF 4-FEB-83.
WORD
----
1 MAGNET NUMBER
2 DATE
3 NCOM
4 UNKNOWN
5 UNKNOWN
6 UNKNOWN
THEN FOLLOW NCOM*8 COMMENT WORDS (WRITE IN A10 FORMAT).
I.E. WORDS 7 THRU (6+NCOM*8) ARE COMMENT WORDS.
1
YOKE DATA - DATAB3 (TYPE=9)
(NOTE THAT VERSION 6 OF THE YOKE PROGRAM DOES A BETTER JOB OF
COMPUTING THE ANGLE BY CORRECTING THE SYSTEM TIME CONSTANT FOR THE
NOMINAL PROBE RESISTANCE OF 135 OHMS. VERSION 7 DOES AN EVEN BETTER
JOB BY CORRECTING WITH THE ACTUAL PROBE RESISTANCE AND INTEGRATOR
CAPACITANCE. SINCE THE TYPICAL RESISTANCE OF THE INTEGRATOR IS
3 KOHMS, IGNORING THE PROBE RESISTANCE OF 135 OHMS RESULTS IN AN
ERROR OF ABOUT 3.000/3.135 . ALL DATA PROCESSED BY YOKE PROGRAM
VERSION NUMBERS LESS THAN 6 SUFFER FROM THIS 4% ERROR. THE PROBE
RESISTANCE AND INTEGRATOR CAPACITANCE ARE NOT AVAILABLE UNTIL PDP-11
PROGRAM VERSION 9.0. NOTE THAT THE REPORTED STRETCHED WIRE VOLTAGES
FROM WHICH THE ANGLE IS COMPUTED WERE NOT DRIFT CORRECTED UNTIL
PDP-11 PROGRAM VERSION 9.0.)
WORD
----
1 MAGNET NUMBER
2 DATE
3 PDP-11 PROGRAM VERSION NUMBER
4 TIME
5 YOKE PROGRAM VERSION NUMBER
6 NCOM = NUMBER OF COMMENT LINES
7 MEASUREMENT NUMBER
8 STRETECHED WIRE INTEGRATOR
9 YOKE COIL INTEGRATOR
10 VALUE USED FOR DCX AT 2000 AMPS
11 MEASUREMENT CODE
THEN FOLLOW NCOM*7 COMMENT WORDS.
K=11 + NCOM*7
K+1 MEASUREMENT SYSTEM (0 OR 1)
K+2 UPSTREAM SUPPORT NUMBER
K+3 DOWNSTREAM SUPPORT NUMBER
K+4 STRETCHED WIRE INTEGRATOR AGAIN
K+5 YOKE COIL INTEGRATOR AGAIN
K+6 SHUNT (FROM PDP-11)
K+7 STRETCHED WIRE LOOP WIDTH IN INCHES MULTIPLIED BY 1000
K+8 KAISER COIL/WILSON COIL INDICATOR
0. = KAISER COIL
1. = WILSON COIL
NEXT 2 WORDS ARE SET FOR PDP-11 VERSION 9.0 AND LATER.
K+9 STRETCHED WIRE PROBE RESISTANCE (OHMS)
K+10 STRETCHED WIRE INTEGRATOR CAPATICANCE (UF)
K+11 RUN NUMBER
K+12 NCUR = NUMBER OF CURRENTS
K+13 TIME CONSTANT (MSEC) OF STRETCHED WIRE INTEGRATOR
K+14 GAIN OF THE STRETCHED WIRE VOLTAGE AMPLIFIER
K+15 TIME CONSTANT (MSEC) OF THE YOKE INTEGRATOR
K+16 GAIN OF THE YOKE VOLTAGE AMPLIFIER
K+17 UPSTREAM SUPPORT NUMBER AGAIN
K+18 DOWNSTREAM SUPPORT NUMBER AGAIN
K+19 UPSTREAM OFFSET ANGLE
K+20 DOWNSTREAM OFFSET ANGLE
1
THEN FOR EACH OF THE I=1,NCUR CURRENTS ARE 5 WORDS:
L = 11 + NCOM*7 + 20 + (I-1)*5
L+1 A SERIAL COUNTER (EQUIVALENT TO I)
L+2 CURRENT IN AMPS.
L+3 STRETCHED WIRE ANGLE IN MILLIRADIANS.
L+4 STRETCHED WIRE VOLTAGE
L+5 YOKE COIL VOLTAGE
1
HERTZ DATA - DATAB4 (TYPE=10)
WORD
----
1 MAGNET NO.
2 TEMPERATURE (A2 FORMAT, W OR C)
3 DATE
4 TIME
5 MEASUREMENT NO.
6 GENERATION NO. (BUILDING*1000, MOUNTING*100, COOLDOWN)
7 PDP11 DATA ACQUISITION NO.
8 UNUSED
9 NCOM = NO. OF COMMENT CARDS
10 CORRECTION CODE
******* ON 10-JUNE-1986 I NOTICED THAT THE DESCRIPTION OF
THE CORRECTION CODES (= PARKEY CODES) CONTAINED IN THE
HOW TO PUT 11-HERTZ DATA INTO THE ARCHIVE = HTZHELP/UN=90617
DIFFER FROM THOSE LISTED BELOW!!!
0 DATA WAS ORIGINALLY OK. NO CHANGES HAVE BEEN MADE.
IF MORE THAN ONE RUN IS AVAILABLE, THIS IS THE LATEST ONE.
1 DATA WAS ORIGINALLY OK. NO CHANGES HAVE BEEN MADE.
THIS IS THE EARLIER RUN MADE, OF AT LEAST TWO RUNS.
2 DATA WAS ALTERED BECAUSE OF OBVIOUS ERROR. SEE COMMENT.
3 DATA ERROR NOT SO OBVIOUS. EDUCATED GUESS MADE AS TO ERROR
INVOLVED AND DATA HAS BEEN ALTERED ACCORDINGLY. SEE COMMENT.
4 DEFINITE ERROR IS INVOLVED BUT NO IDEA WHAT IT IS OR
HOW TO FIX IT. DATA HAS NOT BEEN ALTERED. SEE COMMENT.
5 NO 11 HERTZ DATA AVAILABLE.
6 NO YOKE DATA AVAILABLE.
7 YOKE COIL POLARITY LIKELY WRONG; 11-HZ DATA SIGNS CHANGED;
NO GUARANTEE MAGNET HAS BEEN FIXED.
8 NO STRETCHED WIRE IN PLACE DURING MEASUREMENT.
9 ERROR OTHER THAN 0-6. SEE COMMENT.
HERE ARE THE CORRECTION CODE DEFINITIONS AS LIFTED FROM
THE "HTZHELP" FILES:
CORRECTION CODE ("PARKEY CODE") (FIRST OF THE TWO "CODES")
0 DATA HAS NO KNOWN FAULT. NO CHANGES HAVE BEEN MADE.
1 11-HERTZ YOKE SIGNAL DATA PROBABLY WRONG, BECAUSE THEY ARE
INCONSISTENT WITH OTHER DATA, WHICH IS USUALLY MORE RELIABLE.
NO FIX HAS BEEN ATTEMPTED.
OCCASIONALLY THE 11-HERTZ SIGNAL IS OUTLANDISH,
AND THIS FLAG IS RAISED. FOR COLD 11-HERTZ DATA
COMPARISON WITH THE MTF YOKE PROGRAM YOKE SIGNAL
MAY INDICATE THIS FLAG SHOULD BE RAISED.
2 11-HERTZ YOKE SIGNAL AND 11-HERTZ STRETCHED WIRE ANGLE
DO NOT AGREE AS WELL AS IS THE CASE WITH OTHER MAGNETS.
NO INDICATION AS TO WHAT ( IF ANYTHING ) IS WRONG.
THIS IS THE ONLY TEST POSSIBLE FOR WARM DATA. WHEN
THE 11-HERTZ S.W. ANGLE (ROLL/TWIST CORRECTED)
DIFFERS FROM THE ANGLE IMPLIED BY THE 11-HERTZ YOKE
SIGNAL BY MORE THAN 1.0 MILLIRADIANS, THIS FLAG
IS RAISED.
3 11-HERTZ YOKE SIGNAL DATA AS REPORTED HAVE BEEN MODIFIED IN
A FAIRLY OBVIOUS WAY TO IMPROVE CONSISTENCY WITH OTHER DATA.
4 NO 11-HERTZ YOKE DATA AVAILABLE.
5 YOKE COIL PROBABLY WIRED BACKWARDS.
DATA HAS BEEN APPROPRIATELY CHANGED -
BUT NO GUARANTEE THE MAGNET HAS BEEN FIXED.
6 11-HERTZ ANGLE DATA HAVE BEEN ADJUSTED IN A
FAIRLY OBVIOUS WAY TO IMPROVE CONSISTENCY WITH OTHER DATA.
7 11-HERTZ ANGLE DATA DO NOT AGREE WITH OTHER
DATA AS WELL AS IS THE CASE WITH OTHER MAGNETS.
NO INDICATION AS TO WHAT ( IF ANYTHING ) IS WRONG.
THIS FLAG IS RAISED FOR COLD 11-HERTZ DATA WHEN
THE 11-HERTZ S.W. ANGLE DIFFERS FROM THE MTF YOKE PROGRAM
S.W. ANGLE (EXTRAPOLATED TO ZERO CURRENT) BY MORE
THAN 1.0 MILLIRADIAN, OR WHEN THE 11-HERTZ S.W. ANGLE
(ROLL/TWIST CORRECTED) DIFFERS FROM THE ANGLE PREDICTED
FROM THE 11-HERTZ YOKE COIL SIGNAL BY MORE THAN 1.8 MILLIRADIANS.
8 NO 11-HERTZ ANGLE DATA AVAILABLE.
9 OTHER - INCLUDES NO MTF REGULAR MEASUREMENT DATA
AVAILABLE TO TEST DATA CONSISTENCY.
INCLUDES CASES WHERE DATA IS TOO WIDE TO FIT FIELD
- THESE MAGNETS ARE USUALLY REBUILT.
CERTAINLY, DATA PROCESSED IN RECENT TIMES HAVE BEEN
PROCESSED USING THE PRESCRIPTION IN THE COOK-BOOK
"HTZHELP". IT IS UNCLEAR WHETHER OLDER DATA WERE
PROCESSED USING THE DIFFERENT SET OF CORRECTION CODE = PARKEY
DEFINITIONS SHOWN ABOVE!
****** END OF CONFUSION SURROUNDING CORRECTION COEDS!!!!
11 MEASUREMENT CODE
1 BAD OR SPECIAL MEASUREMENT, OR MAGNET HAS BEEN REBUILT.
YOU NEED TO READ THE COMMENT IN ORDER TO USE THIS DATA.
2 DATA ARE FROM A PREVOUS MOUNTING.
3 DATA ARE NOT FROM THE LATEST COOLDOWN THE MAGNET HAD,
BUT IT IS FROM THE LATEST COOLDOWN IN WHICH AN 11 HERTZ
MEASUREMENT WAS MADE.
4 DATA ARE FROM THE LATEST COOLDOWN THE MAGNET HAD.
-3 OR -4 IF YOU WANT TO USE ONLY ONE 11 HERTZ MEASUREMENT FOR
THIS MAGNET THIS IS THE BEST GUESS AS TO WHICH ONE TO USE.
12 SERIAL NO. OF MEASUREMENT TO BE SUPERCEDED.
13 NEW MEASUREMENT CODE FOR SUPERCEDED MEASUREMENT.
14 UNUSED
15 UNUSED
THEN FOLLOW NCOM*7 COMMENT WORDS
K = 15 + NCOM*7
K+1 MEASUREMENT SYSTEM.
K+2 TYPE OF COIL (0 = KAISER COIL, 1 = WILSON COIL)
K+3 TO K+5 UNUSED
K+6 SHUNT CALIBRATION (5000A/7500A SYSTEM, NOT 11-HERTZ SHUNT)
K+7 & K+8 UNUSED
K+9 TYPE OF MAGNET (TB OR TC OR TD)
K+10 STAND NO.
K+11 & K+12 SUPPORTS
K+13 CURRENT
ASSUMES DVM GAIN 100X, LOCKIN GAIN -30 DB, ASIN(PHI)
K+14 CURRENT
ASSUMES DVM GAIN 100X, LOCKIN GAIN -30 DB, ACOS(PHI)
K+15 VOLTAGE
ASSUMES DVM GAIN 100X, LOCKIN GAIN -30 DB, ASIN(PHI)
K+16 VOLTAGE
ASSUMES DVM GAIN 100X, LOCKIN GAIN -30 DB, ACOS(PHI)
K+17 STRETCHED WIRE SIGNAL
ASSUMES DVM GAIN 1X, LOCKIN GAIN -90 DB, ASIN(PHI)
K+18 STRETCHED WIRE SIGNAL
ASSUMES DVM GAIN 1X, LOCKIN GAIN -90 DB, ACOS(PHI)
K+19 STRETCHED WIRE SIGNAL, DCX POSITION
ASSUMES DVM GAIN 1X, LOCKIN GAIN -50 DB, ASIN(PHI)
K+20 STRETCHED WIRE SIGNAL, DCX POSITION
ASSUMES DVM GAIN 1X, LOCKIN GAIN -50 DB, ACOS(PHI)
K+21 YOKE COIL (EITHER KAISER OR WILSON) SIGNAL
ASSUMES DVM GAIN 1X, LOCKIN GAIN -90 DB, ASIN(PHI)
K+22 YOKE COIL (EITHER KAISER OR WILSON) SIGNAL
ASSUMES DVM GAIN 1X, LOCKIN GAIN -90 DB, ACOS(PHI)
K+23 STRETCHED WIRE ANGLE, IN MILLIRADIANS, FROM THESE DATA =
-1000((ASIN(PHI)(ENTRY#5)/ASIN(PHI)(ENTRY#7))
/ GAIN FACTOR (USUALLY 100) + FIXTURE OFFSET
K+24 KAISER COIL VOLTAGE AT 2000 A UP
ENTERED FROM "YOKE" RUN OF OPERATOR'S CHOICE
K+25 STRETCHED WIRE ANGLE AT 2000 A UP
CALCULATED FROM STRETCHED WIRE VOLTAGE SIGNAL IN "YOKE"
K+26 STRETCHED WIRE ANGLE, EXTRAPOLATED TO ZERO MAGNET CURRENT
LOW CURRENT DATA FIT TO POLYNOMIAL, WHICH IS THEN
EVALUATED AT ZERO CURRENT. THE 11-HERTZ STRETCHED WIRE
MEASUREMENT IS ALSO A ZERO CURRENT MEASUREMENT, AND
THIS ANGLE AT K+26 IN MILLIRADIANS CAN BE COMPARED
TO THE ANGLE IN K+23 IN MILLIRADIANS. GENERALLY SPEAKING
FOR SOME MAGNETS, THE "YOKE" PROGRAM DATA SHOWS
MONOTONIC CHANGES IN FIELD ANGLE AT LOW CURRENTS
(BELOW A FEW HUNDRED AMPS), BUT THE FIELD ANGLE IS
ESSENTIALLY FLAT AT HIGHER CURRENTS.
K+27 EXTRAPOLATION OF "YOKE" PROGRAM DATA: THE YOKE COIL
VOLTAGES AT LOW MAGNET CURRENTS ARE SCALED BY
CURRENT RATIO TO "EFFECTIVE 2000 A" VALUE. THESE DATA
AT LOW CURRENTS ARE FIT TO A POLYNOMIAL AND IT IS
EVALUATED AT ZERO CURRENT. GENERALLY SPEAKING, THESE
"EFFECTIVE 2000 A" DATA ARE FLAT, INDEPENDENT OF CURRENT.
1
HIPOT DATA - DATAB4 (TYPE=11)
WORD
----
1 MAGNET NUMBER
2 DATE HIPOT PROGRAM WAS RUN
3 TIME HIPOT PROGRAM WAS RUN
4 HIPOT PROGRAM VERSION NUMBER
5 DATA SOURCE TAPE'S NAME - A10 FORMAT (I.E. JAM215)
6 NOT PRESENTLY USED
7 NOT PRESENTLY USED
8 NOT PRESENTLY USED
9 NOT PRESENTLY USED
10 NW = NUMBER OF WORDS IN FOLLOWING BLOCK
(ALL PROGRAM VERSIONS, NW = 9)
11 MAGNET NAME - A10 FORMAT
12 TYPE OF TEST -
PRESSURE (OR COLD) BEFORE / AFTER COOLDOWN
------------------ -----------------------
1 - NORMAL BEFORE
2 - NORMAL AFTER
4 - HIGH BEFORE
5 - HIGH AFTER
6 - COLD (DURING)
NORMAL - 1 ATM. HIGH - 4 ATM.
13 STAND NUMBER
14 PRESSURE FOR WARM; % HELIUM FOR COLD
15 DATE OF HIPOT MEASUREMENT
16 TIME OF HIPOT MEASUREMENT
17 OPERATOR INITIALS - A10 FORMAT
18 NT = NUMBER OF TRIALS
19 NWORD = NUMBER OF DATA WORDS PER TRIAL
(ALL PROGRAM VERSIONS, NWORD = 5)
FOR EACH OF I = 1 TO NT TRIALS THERE ARE NWORD WORDS
K = 10 + NW + (I - 1) * NWORD
K + 1 TRIP INDICATOR
0 - NO TRIP
1 - TRIP
K + 2 HIPOT VOLTAGE
K + 3 VARIAC SETTING
K + 4 MAGNET LEAKAGE IN MICROAMPS (OR 0.0 FOR TRIP)
K + 5 HIPOT LEAKAGE IN MICROAMPS (OR 0.0 FOR TRIP)
L = 10 + NW + NT * NWORD
L + 1 NCOM = NUMBER OF COMMENT LINES TO FOLLOW
HAVE NCOM * 8 WORDS OF COMMENTS IN A10 FORMAT
1
DCHSC - DCH SHIFTED AND COMBINED DATA - DATAB5 (TYPE=13)
WORD
----
1 MAGNET TYPE = 'TB' OR 'TC' OR 'TD' (A3 FORMAT)
2 MAGNET NUMBER
3 DATE
4 TIME
5 RNSHIFT PROGRAM VERSION NUMBER
6 PDP-11 PROGRAM VERSION NUMBER
7 NUMBER OF COMMENT LINES PLUS 5 TIMES THE NUMBER OF CURRENTS
(USELESS WORD)
8 NCOM = NUMBER OF COMMENT LINES
9 NUMBER OF SECTIONS USED IN GETTING AVERAGE,
3 FOR 20 FT DIPOLES, 2 FOR 10 FT DIPOLES
10 =1(USED CENTER DOWNSTREAM SECTION) =2(USED CENTR UPST.)
11 AT PRESENT = 1
12 AT PRESENT = 0 FROM PROGE. THIS GETS SET = 1. WHEN
THE FIXUP PROGRAM READS DATA BASE 7 (THE RAW DATA)
AND RESHIFTS AND RECOMBINES THE DATA. THE FIXUP OF
DATA BASE 5 DATA BY "FIXB5" OCCURRED IN AUGUST 1984
AFTER DATA BASE 7 DATA WERE TREATED BY "FIXB7" TO
COMPENSATE FOR VARIOUS PROBE GEOMETRY ERRORS.
13 MEASUREMENT NUMBER
14 STAND NUMBER
15 NCUR = NUMBER OF CURRENTS
16 MEASUREMENT CODE
THEN FOLLOW NCOM*7 COMMENT WORDS, WRITE OUT IN A10 FORMAT.
K=16 + NCOM*7
THE FOLLOWING 9 WORDS HAVE BEEN PROMOTED FROM THE DOWNSTREAM
MEASUREMENT AND ARE DATA WHICH IN PRINCIPAL MAY VARY FROM
POSITION TO POSITION. HOWEVER ESSENTIALLY ALWAYS THESE QUANTITIES
ARE THE SAME FOR ALL THREE POSITION MEASUREMENTS THAT
HAVE BEEN COMBINED HERE.
K+1 MEASUREMENT SYSTEM(0 OR 1) (1=NEW=7500A=SOUTH)
K+2 NULL (PDP-11). SET EQUAL TO "RDIR", THE SENSE OF PROBE
ROTATION, AS FAR AS THIS COULD BE DETERMINED AT THE TIME
"FIXB7" WAS RUN. THE FIX-UP REQUIRES KNOWLEDGE OF
SENSE OF PROBE ROTATION. FOR PRODUCTION MEASUREMENTS,
"RDIR" = -1.0 ESSENTIALLY ALL THE TIME, BUT THE ON-LINE
PROGRAM WOULD ALLOW THE OPPOSITE SENSE OF ROTATION
(AND THE ON-LINE PROGRAM DID NOT PUT THE SENSE OF ROTATION
INTO THE OUTPUT RECORD). SEVERAL TEST RUNS WERE MADE TO
CHECK WHETHER THE RESULTS WERE INDEPENDENT OF SENSE OF ROTATION
AS THEY SHOULD BE; UNFORTUNATELY THESE INDICATE SOME PROBLEMS.
IT IS LIKELY SOME OF THESE TEST RUNS WERE NOT RECOGNIZED
AS BEING TEST RUNS WHEN THE "FIXB7" RUN WAS DONE.
K+3 NULL (PDP-11). VALUE OF WIDTH OF (OUTER) SENSE COIL,
A CRUCIAL PARAMETER IN DATA REDUCTION. PUT INTO RECORD
BY "FIXB7" IN CENTIMETERS.
K+4 INTEGRATOR SERIAL NUMBER (PDP-11)
K+5 NULL (PDP-11). "FIXB7" PUTS THE TURKOT PROBE FLATTENING ANGLE
"ALPHA-GAMMA" INTO THIS SLOT IN DEGREES. NOTE THERE IS A SLIGHT
MOTOR DRIVE UPSTREAM/MOTOR DRIVE DOWNSTREAM VARIATION IN THIS
EMPIRICALLY DETERMINED QUANTITY.
K+6 SHUNT (PDP-11)
K+7 ALPHA (PDP-11). THIS IS DAN GROSS' PROBE FLATTENING ANGLE,
IN DEGREES, AS DETERMINED DURING THE ACTUAL DCH MEASUREMENTS.
IT IS CHARACTERISTIC OF THE PROBE. THE ON-LINE ADJUSTED THE
DATA BASED ON DAN'S THEORY INCORPORATING THIS ANGLE.
TURKOT SHOW DAN'S THEORY WAS WRONG. "FIXB7" UN-DOES THE
GROSS CORRECTION. THIS "ALPHA" PLAYS A ROLE IN TURKOT'S
ANALYSIS, UNDER A DIFFERENT NAME. SO DAN'S "ALPHA"
HAS AN EFFECT ON THE HARMONICS AND HAS BEEN RETAINED.
K+8 RADIUS (PDP-11). ONE OF THE ERRORS REPAIRED BY "FIXB7"
IS THE ON-LINE'S INCORRECT VALUES OF PROBE RADIUS DUE
TO SOME EARLY BLUNDERS IN PROBE CALIBRATION. "FIXB7"
USES THE LATEST PROBE RADII, AND "FIXB7" PUTS THE VALUE IT
USED HERE.
K+9 BLANK (FROM PRGME). "FIXB7" SET THIS = 1.0 TO INDICATE THAT
THE RAW DATA HAD BEEN FIXED-UP.
THE FOLLOWING WORD WAS PREVIOUSLY COPIED OUT OF THE
DOWNSTREAM POSITION. "FIXB7" PUTS THERE A WORD THAT ENCODES ERRORS
K+10 BLANK (FROM PROGME). "FIXB7" VARIOUS DETECTED ERRORS:
(1 OR 0)*10000. 1 MEANS THE CURRENT CONTROL
DURING THE MEASUREMENT IS SUSPECT
AND THE DATA SHOULD BE USED WITH
CAUTION FOR HYSTERESIS STUDY
+ N*100. "N" IS THE NUMBER OF CURRENTS
WHERE THE 18-POLE AMPLITUDE
HAS THE WRONG VALUE (WHEN SHIFTED, LIES
OUTSIDE 12.5+-1.7 STANDARD UNITS)
+ M "M" IS THE NUMBER OF CURRENTS
WHERE THE 18-POLE PHASE IS BAD.
(WHEN SHIFTED, LIES OUTSIDE 0+-2.2
STANDARD UNITS)
THE PROGRAM "FIXB5" ADDS THESE ERROR WORDS TOGETHER AND PUTS
THE SUM HERE.
FOR EACH OF THE I=1,NCUR CURRENTS THERE ARE 37 WORDS
L=16 + NCOM*7 + 10 + (I-1)*37
L+1 CURRENT FROM END-DOWNSTREAM SECTION
L+2 CURRENT FROM CENTER SECTION
L+3 CURRENT FROM END-UPSTREAM SECTION (0 FOR 10 FT DIPOLES)
L+4 X SHIFT IN MILS FOR ED SECTION
L+5 Y SHIFT IN MILS FOR ED SECTION
L+6 X SHIFT IN MILS FOR CNTR SECTION
L+7 Y SHIFT IN MILS FOR CNTR SECTION
L+8 X SHIFT IN MILS FOR EU SECTION (0 FOR 10 FT DIPOLES)
L+9 Y SHIFT IN MILS FOR EU SECTION (0 FOR 10 FT DIPOLES)
L+10 TO L+23 : B(1) TO B(14)
L+24 TO L+37 : A(1) TO A(14)
1
ACH - DATAB5 (TYPE=14)
ACH DATA EXISTS IN THE ARCHIVE (AS OF 4-FEB-83) FOR ONLY
15 MAGNETS AND ARE NOT DESCRIBED HERE.
1
DCH DATA - DATAB7 (TYPE=16)
WORD
----
1 MAGNET TYPE = 'TB' OR 'TC' OR 'TD' (A3 FORMAT)
2 MAGNET NO.
3 DATE YYMMDD
4 TIME HHMMSS
5 RNSHIFT PROGRAM VERION NUMBER
6 PDP-11 PROGRAM VERSION NUMBER
7 SUM OVER THE NUMBER OF SECTIONS OF 7+10*NCUR[OF THE SECTION]
PLUS THE NUMBER OF COMMENT LINES PLUS THE NUMBER OF SECTIONS
(USELESS WORD)
8 NCOM = NO. OF COMMENT CARDS, TO BE USED BELOW.
9 NSECT = NO. OF SECTIONS (3 FOR 20 FT DIPOLE, 2 FOR 10 FT DIPOLE)
10 CENTER CODE: =1 FOR CENTER DOWNSTREAM , =2 FOR CENTER UPSTREAM
11 AT THE PRESENT = 1
12 AT THE PRESENT = 0 AS SET BY "PROGE". THE FIXUP PROGRAM
"FIXB7" CHANGES THIS TO -1.0 TO SIGNIFY IT HAS BEEN RUN.
"FIXB7" MAKES CORRECTIONS TO THE DATA TO COMPENSATE FOR
THE DATA HAVING BEEN ORIGINALLY REDUCED WITH WRONG
PROBE GEOMETRY....
13 MEASUREMENT NO.
14 MEASUREMENT CODE.
THEN FOLLOW NCOM*7 WORDS OF COMMENTS CONCERNING THIS PARTICULAR
MEASUREMENT, WRITE OUT EACH WORD IN A10 FORMAT.
THEN FOLLOW DATA FOR EACH OF THE NSECT SECTIONS. FOR EACH OF THE
I=1,NSECT SECTIONS DEFINE A POINTER K(I), WHERE:
K(1)=14 + NCOM*7
K(2)=K(1) + 36 + WORD(K(1)+35))*32
K(3)=K(2) + 36 + WORD(K(2)+35))*32
ETC.
K(I)+1 MAGNET NO. AGAIN
K(I)+2 DATE
K(I)+3 PDP-11 PROGRAM VERSION
K(I)+4 TIME OF MEASUREMENT THIS SECTION
K(I)+5 MEASUREMENT SYSTEM USED : OLD=NORTH=5000 A TRANSREX (=0)
NEW=SOUTH=7500 A TRANSREX (=1)
K(I)+6 NULL (FROM PDP-11). THE ON-LINE PROGRAM HAS PUT OUT A ZERO
WHICH IS PASSED ON. THE CORRECT ANALYSIS OF THE RAW DATA
REQUIRED USING THE SENSE OF PROBE ROTATION, WHICH
IS NOT PUT INTO THE RECORD BY THE ON-LINE. THE
STANDARD SENSE OF ROTATION IS "+", WHICH MEANS "RDIR"
AS STUFFED HERE IS -1.0. THE OTHER SENSE OF ROTATION
IS "-", WHOSE VALUE FOR "RDIR" IS +1.0. IT IS NOT
EASY TO FIND WHICH MEASUREMENTS HAVE BEEN TAKEN WITH
THE OTHER SENSE OF ROTATION, AND SOME ERRORS IN FIXING UP
THE DATA HAVE OCCURRED AS A RESULT.
K(I)+7 NULL (FROM PDP-11). THE ON-LINE PROGRAM PUTS OUT A SINGLE 0,
WHICH IS THEN PASSED ON. THE CORRECT ANALYSIS OF THE DATA
INVOLVES THE WIDTH OF THE OUTER SENSE COIL; THE FIXUP
PROGRAM PUTS THE WIDTH IN INCHES INTO THIS WORD. THE
ACTION OF THE FIXUP PROGRAM IS INDICATED BY K(I)+13 = 1.
K(I)+8 INTEGRATOR SERIAL NUMBER (FROM PDP-11). IT IS THE INTEGRATOR
RC TIME CONSTANT THAT COUNTS. HARMONIC COEFFICIENTS
ARE THE RESULT OF TWO MEASUREMENTS - A BUCKED RUN
AND AN UNBUCKED RUN - TAKEN AT DIFFERENT TIME
CONSTANTS (GAINS).
K(I)+9 NULL (FROM PDP-11) THE ON-LINE PROGRAM PUTS OUT A SINGLE 0,
WHICH IS PASSED THROUGH. THE REDUCTION OF DCH DATA PROPERLY
INVOLVES AN ANGLE, CALLED "ALPHA-GAMMA" IN TURKOT'S FORMALISM,
WHICH IS STUFFED INTO THIS WORD, IN DEGREES, BY THE FIXUP
PROGRAM, WHOSE ACTION IS REPORTED BY MAKING WORD K(I)+13 = 1.
THIS ANGLE IS IN DEGREES.
K(I)+10 SHUNT (FROM PDP-11)
K(I)+11 ALPHA (FROM PDP-11), THIS IS DAN GROSS' PROBE FLATTENING
ANGLE. HIS ANALYSIS WAS WRONG, AND IT IS NECSSARY
TO REMOVE ITS EFFECT FROM THE DATA. HOWEVER THIS ANGLE
DOES PLAY A ROLE IN THE MORE REFINED "TURKOT ANALYSIS"
AND IS THEREFORE RETAINED. ANGLE REPORTED IN DEGREES.
K(I)+12 = BLANK (FROM RNSHIFT VERSION 1, 0 SUPPLIED BY PRGME)
= RADIUS (FROM PDP-11 VIA RNSHIFT VERSION 2)
THE OUTER RADIUS OF THE OUTER SENSE COIL IN THE PROBE
IS AN ESSENTIAL NUMBER IN THE DATA REDUCTION, AND DATA HAVE
OFTEN BEEN WRONG DUE TO USING AN INAPPROPRIATE VALUE.
THIS WORD CONTAINS THE RADIUS IN INCHES ACTUALLY USED
TO GET THE COEFFICIENTS STORED HEREIN.
K(I)+13 BLANK FROM PRGME. THE FIXUP PROGRAM CHANGES IT TO 1.
THE FIXUP PROGRAM SETS THIS WORD THE SAME AS WORD
NUMBER 12 IN THE HEADER.
K(I)+14 BLANK (FROM PRGME)
= AN ERROR CODE GENERATED BY THE FIXUP PROGRAM "FIXB7".
THIS IS THE SUM OF DIGITS REPRESENTING VARIOUS FAULTS
IF THE 1'S AND/OR 10'S DIGIT IS ON, THEN THE 18-POLE AMPLITUDE
(WHEN SHIFTED ACCORDING TO USUAL PRESCRIPTION)
IS OUT OF RANGE (12.5+-1.7) UNITS FOR ONE
OR MORE CURRENTS IN THIS SECTION
IF THE 100'S AND/OR 1000'S DIGIT IS ON, THEN THE 18-POLE PHASE
ANGLE (AFTER REMOVAL OF GROSS' CORRECTION,
BUT BEFORE AND OTHER CORRECTION) IS UNUSUAL.
THE TEST USED IS WITH RESPECT TO THE SHIFTED
SKEW 18-POLE, WHICH IS EXPECTED TO BE WITHIN
+- 2.2 UNITS OF THE MEAN FOR THIS PROBE SEEN
IN A HISTOGRAM OF MANY MEASUREMENTS.
IF THE 10000'S DIGIT IS ON, THEN THE MEASUREMENT WAS MADE
DURING A TIME WHEN POOR CURRENT CONTROL EXISTED AT MTF
GIVING RISE TO CURRENT OVERSHOOT/UNDERSHOOT PROBLEMS.
FOR OLD=5000A SYSTEM, THIS "NDAYS" = 440-476
FOR NEW=7500A SYSTEM, THIS IS "NDAYS" < 583 AND
ALSO "NDAYS" = 665-889.
K(I)+15 TO K(I)+30 INTERNAL COMMENTS GENERATED BY THE PDP-11
USE FORMAT(7A10/7A10) TO WRITE OUT
K(I)+31 POSITION/STAND CODE =IP*10**7 + (STAND NO.)*10**6
WHERE IP= 1111 FOR END DOWNSTREAM
IP= 1121 FOR END UPSTREAM
IP= 1211 FOR CENTER DOWNSTREAM
IP= 1221 FOR CENTER UPSTREAM
K(I)+32 DIPOLE AMPLITUDE TO USE IN AVERAGING
K(I)+33 23 = PROBE DEPTH (THIS MEASUREMENT IS NO LONGER USED,
FROM THE PDP-11)
K(I)+34 HARMONICS PROBE NUMER
K(I)+35 NCUR = NO. OF CURRENTS GOING UP AND DOWN
FOR EACH OF THE J=1,NCUR CURRENTS DEFINE:
1
LOCB=K(I) + 35 + (J-1)*16
LOCA=LOCB + 1 + NCUR*16
LOCB+1 NOMINAL CURRENT(I.E. 2000.)
LOCB+2 ACTUAL CURRENT(I.E. 2003.)
LOCB+3 TO LOCB+16 B(1) TO B(14)
LOCA NCUR = NO. OF CURRENTS GOING UP AND DOWN AGAIN
LOCA+1 NOMINAL CURRENT(I.E. 2000.) AGAIN
LOCA+2 ACTUAL CURRENT(I.E. 2003.) AGAIN
LOCA+3 TO LOCA+16 A(1) TO A(14)
1
A SAMPLE PROGRAM USING SOME OF THE DATABASES FOLLOWS.
PROGRAM GETNMR(INPUT,OUTPUT,TAPE5=INPUT,TAPE6=OUTPUT)
C
C THIS FORTRAN 5 PROGRAM NEEDS ONLY TO BE COMPILED AND RUN,
C NO EXTERNAL LIBRARIES NEED BE SPECIFICALLY ATTACHED AND LOADED
C
C DESIGNED TO ACCESS DIPOLE NMR DATA FROM
C THE MTF DATA BASE. DATAB2 (TYPE=5)
C
DIMENSION W(700), IW(16), INF2(35), INF6(35)
C ATTACH NECESSARY DATA BASES
CALL PFM('ATTACH','DATAB2','DATAB2','UN','93982','M','READ')
CALL PFM('ATTACH','DATAB6','DATAB6','UN','93982','M','READ')
C SET UP TO USE DATABASES
CALL FILEIS(INF2,'LFN','DATAB2','BFS',7322,
+'DFC',3,'EFC',3,'ORG','NEW')
CALL FILEIS(INF6,'LFN','DATAB6','BFS',1113,
+'DFC',3,'EFC',3,'ORG','NEW')
CALL OPENM(INF2,'INPUT','R')
CALL OPENM(INF6,'INPUT','R')
C GET A MAGNET NUMBER TO PROCESS
2000 WRITE(6,200)
200 FORMAT('ENTER MAGNET NUMBER')
READ(5,*,ERR=3000,END=3000) NMAG
IF(NMAG.LE.0) GO TO 3000
IF(NMAG.GT.1999) GO TO 2000
C GET NUMBER OF MEASUREMENTS ARRAY FROM DATABASE6
CALL GET(INF6, IW, NMAG)
C..> FOR NMR DATA (TYPE=5)
NMS = IW(5)
IF(NMS.LE.0) GO TO 2000
C LOOP OVER NUMBER OF NMR MEASUREMENTS FOR THIS MAGNET
DO 1000 K=1,NMS
C BE SURE TO INCLUDE SUBROUTINE MAKEKEY IN YOUR PROGRAM
CALL MAKEKEY( NMAG,5, K, KEY )
CALL GET( INF2, W, KEY )
NCOM=W(6)
KK=8+NCOM*7
WRITE(6,300) W(1),W(2),W(4),W(KK+17),W(KK+18)
300 FORMAT(/' MAGNET',F6.0,' DATE, TIME',2F8.0/
+' AVERAGE TRANSFER FUNCTION AND DEVIATION',2F8.4)
C
1000 CONTINUE
C
GO TO 2000
C
3000 CONTINUE
C CLOSE AND RETURN FILES
CALL CLOSEM(INF2,'RET')
CALL CLOSEM(INF6,'RET')
STOP
END
1