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         
<BR>
<HR>
<A HREF="http://www.fnal.gov/pub/disclaim.html">Legal Notices</A>