comp.lang.idl-pvwave archive - RDF feed
type: channel
description: Messages from Usenet group comp.lang.idl-pvwave, compiled by Paulo Penteado
items: RSI and the 24. Tagname...

RSI and the 24. Tagname...
type: item
description: This is my problem since December 1996! RSI was not able to fix the problem yet.,,, Another person here in the net was complaining about the same problem some weeks ago here... failing systems: IDL 4.01A on VMS IDL 4.01B on VMS IDL 4.01A on DU 3.2C IDL 4.01A on DU 3.2G IDL 4.01B on DU 3.2C IDL 4.01B on DU 3.2G for IDL 5.0b3 on VMS (cannot give you the result due to contract) on every platform the programm fails at 24. Tagname! they advised me to use an iterative create_struct fro it, but this can due to the huge variety of array form a huge programm to simulate. A simple simulation in our programm now give us only 1% of the speed we expected. Dr. Roepcke ------------------------------------------------------------ ------------------ pro fail ; preparations typ=[�bytarr(19)�,�intarr(19)�,�lonarr(19)�,�f ltarr(19)�,�dblarr(19)�, $ �strarr(19)�,�complexarr(19)�,�dcomplexarr(19)�] trun=0 ; RSI claims it works up to 128 in IDL 4.01 ; on IDL 5.0 the limit should be higher I heard for try=1,100 do begin tstr=�� ; for the try build strings... for te=1,try do begin ; commata in the middle if te gt 1 then str=str+�,� ; build tagname str=str+�TN_�+strcompress(string(te),/remove_all) ; change type every time! str=str+�:�+typ(trun) trun=trun+1 if trun eq n_elements(typ) then trun=0 endfor ; clear target target=byte(0) ; build execute-string estring='target={'+str+�}� ; the big momment: Will it work???? if execute(estring) then begin print,' Execute was OK with ',te,� Tagnames...� endif else begin goto,failing endelse endfor print,� Programm will never come to this point!� stop failing: print, ' Execute failed with ',te,�Tagnames!!!� end -- Panther in the Jungle __..--''``\--....___ _..,_ -BELIEVE AND DECEIVE- _.-' .-/"; ` ``<._ ``-+'~=. http://www.ang-physik _.-' _..--.'_ \ `(^) ) .uni-kiel.de/~hendrik ((..-' (< _ ;_..__ ; `'
creator: alpha
date: 1997-03-22T08:00:00-00:00