ibis_kevranges=['20-40keV','40-60keV','60-80keV','80-100keV','100-200keV']


sources=['Cen X-3','Vela X-1','GX 1+4','OAO 1657-415','SAX J1808.4-3658',$
         'SAX J0635.2+0533','GRO J1744-28','4U 1822-371','XTE J1906+09',$
         'AX J1820.5-1434','SAX J1324.4-6200','1H 1238-599',$
         'RX J0440.9+4431','1E 1145.1-6141','2S 1145-619','SAX J2103.5+4545',$
         'XTE J1855-026','SAX J1452.8-5949','4U 1907+09','4U 1538-52',$
         'GX 301-2','AX J1700.1-4157','RX J1037.5-5647','A 0114+65',$
         '4U 0115+63','A0535+26']
srcnam =['cenx3','velax1','gx14','oao1657','j1808','j0635','j1744','4u1822',$
         'j1906','j1820','j1324','1h1238','j0440','1e1145','2s1145','j2103',$
         'j1855','j1452','4u1907','4u1538','gx301','j1700','j1037','a0114',$
         '4u0115','a0535']
srccall=['Cen X-3','Vela X-1','GX 1+4','OAO 1657-415','SAX J1808.4-3658',$
         'SAX J0635.2+0533','GRO J1744-28','3A 1822-371','EQ J1906+09',$
         'AX J1820.5-1434','SAX J1324.4-6200','3A 1239-599',$
         'RX J0440.9+4431','1E 1145.1-6141','H 1145-619','SAX J2103.5+4545',$
         'XTE J1855-026','SAX J1452.8-5949','H 1907+097','H 1538-522',$
         'GX 301-2','AX J1700.1-4157','4U 1036-56','3A 0114+650',$
         'H 0115+634','1A 0535+262']

FOR j=0,n_elements(sources)-1 DO BEGIN 
    basename=srcnam[j]
    FOR i=0,n_elements(ibis_kevranges)-1 DO BEGIN 
        istr=strtrim(string(i+1),2)
        file=basename+'_ibis_eband'+istr


        command='/integralarray/intscripts/objflux --ibis '
        command=command+' --eband='+istr
        command=command+' '+srccall[j]
        command=command+' > '+file+'.flx'

        spawn,command

    
      
    ENDFOR 
ENDFOR 



END