;+ ; Contains the conv_lis_bob procedure ; ; :Author: ; Philippe Zarka ; ; :History: ; 2003/12/08: Created ; ; 2003/12/08: Last Edit ;- ; ;+ ; conv_lis_bob is a procedure that <behavior desc here> ; ; :Params: ; nomlis: in, required, type=sometype ; A parameter named nomlis ; nombob: in, required, type=sometype ; A parameter named nombob ;- pro CONV_LIS_BOB, nomlis, nombob path='/user4/rpws/sum/' openr,ur,path+nomlis,/get_lun openw,uw,path+nombob,/get_lun b='' a=[0 ,12,17,20,23,26,29,32,35,38,41,43,49,54,57,61,64,69,70,71,73,75,78,81,84,$ 86,90,91,92,94,96,98,103,108,112,117,120,123,125,128,129,130,132,$ 134,136,142,148,152] l=[11, 4, 2, 2, 2, 2, 2, 2, 2, 2, 1, 4, 2, 2, 3, 2, 4, 1, 1, 2, 2, 1, 2, 2, 1,$ 3, 1, 1, 2, 2, 1, 4, 4, 3, 3, 2, 2, 1, 2, 1, 1, 2, 2,$ 1, 5, 5, 3, 3] on_ioerror, fin suite: readf,ur,b for i=1,strlen(b) do if strmid(b,i,1) eq string(202b) then $ b=strmid(b,0,i)+' '+strmid(b,i+1,strlen(b)-i-1) bb=strmid(b,0,11) if strmid(b,41,1) eq 'A' then for i=1,47 do bb=bb+' '+strmid(b,a(i),l(i)) $ else for i=1,11 do bb=bb+' '+strmid(b,a(i),l(i)) printf,uw,bb goto,suite fin: close,ur & free_lun,ur close,uw & free_lun,uw return end