;      FUNCTION ENG(K,I)
FUNCTION eng,k
;
;       NOTE: The single parameter to the IDL function is the
;	satellite number 6..12.
;
;      SAVE
;      CHARACTER*3 I
;      DIMENSION EN6(20),EN7(20),EN8(20),EN9(20),ENG10(20),ENG11(40)
COMMON engstuff,en6,en7,en8,en9,eng10,eng11
;C
;      DATA EN6/30180.,20620.,14040.,9580.,6500.,4420.,3050.,2060.,1410.,
;     +  984.,992.,679.,462.,317.,213.,145.,100.,68.,46.,32./
en6=[30180.,20620.,14040.,9580.,6500.,4420.,3050.,2060.,1410., $
     984.,992.,679.,462.,317.,213.,145.,100.,68.,46.,32.]
;C
;      DATA EN7/30340.,20710.,14070.,9570.,6570.,4470.,3050.,2100.,1430.,
;     +         985.,995.,679.,462.,314.,215.,147.,100.,69.,47.,32./
en7=[30340.,20710.,14070.,9570.,6570.,4470.,3050.,2100.,1430., $
     985.,995.,679.,462.,314.,215.,147.,100.,69.,47.,32.]
;C
;      DATA EN8/31300.,21100.,14300.,9720.,6610.,4500.,3050.,2070.,1400.,
;     +         950.,950.,640.,440.,310.,210.,144.,98.,68.,45.,31./
en8=[31300.,21100.,14300.,9720.,6610.,4500.,3050.,2070.,1400., $
     950.,950.,640.,440.,310.,210.,144.,98.,68.,45.,31.]
;C
;      DATA EN9/31300.,21100.,14300.,9720.,6610.,4500.,3050.,2070.,1400.,
;     +         950.,950.,640.,440.,310.,210.,144.,98.,68.,45.,31./
en9=[31300.,21100.,14300.,9720.,6610.,4500.,3050.,2070.,1400., $
     950.,950.,640.,440.,310.,210.,144.,98.,68.,45.,31.]
;C
;      DATA ENG10/30500.,20800.,14000.,9400.,6400.,4400.,2980.,2030.,
;     +           1380.,950.,960.,650.,440.,300.,206.,140.,96.,66.,46.,
;     +           31./
eng10=[30500.,20800.,14000.,9400.,6400.,4400.,2980.,2030., $
       1380.,950.,960.,650.,440.,300.,206.,140.,96.,66.,46., $
       31.]
;C
;      DATA ENG11/29500.,20500.,14000.,9500.,6500.,4430.,3030.,2080.,
;     +           1430.,950.,960.,670.,460.,320.,218.,150.,101.,71.,49.,
;     +           34.,29500.,20500.,14000.,9500.,6500.,4430.,3030.,2080.,
;     +           1430.,950.,940.,640.,440.,290.,195.,134.,90.,62.,42.,
;     +           28./
eng11=[29500.,20500.,14000.,9500.,6500.,4430.,3030.,2080., $
       1430.,950.,960.,670.,460.,320.,218.,150.,101.,71.,49., $
       34.,29500.,20500.,14000.,9500.,6500.,4430.,3030.,2080., $
       1430.,950.,940.,640.,440.,290.,195.,134.,90.,62.,42., $
       28.]
;C
;      IF(I.EQ.' F6')THEN
;	ENG=EN6(MOD(K-1,20)+1)
;      ELSE IF(I.EQ.' F8') THEN
;	ENG=EN8(MOD(K-1,20)+1)
;      ELSE IF(I.EQ.' F9') THEN
;	ENG=EN9(MOD(K-1,20)+1)
;      ELSE IF(I.EQ.' F7') THEN
;	ENG=EN7(MOD(K-1,20)+1)
;      ELSE IF(I.EQ.'F10') THEN
;	ENG=ENG10(MOD(K-1,20)+1)
;      ELSE
;	ENG=ENG11(K)
;      ENDIF
CASE j OF
 6: engp=[en6,en6]
 7: engp=[en7,en7]
 8: engp=[en8,en8]
 9: engp=[en9,en9]
10: engp=[eng10,eng10]
11: engp=eng11
12: engp=eng11		; assume F12 is similar to F11
ELSE:
    ENDCASE
;C
;      ENG=ENG/1000.
engp=engp/1000.
;C
;      RETURN
;      END
RETURN,engp
END