| RSI and the 24. Tagname... [message #8635] |
Sat, 22 March 1997 00:00 |
alpha
Messages: 49
Registered: September 1996
|
Member |
|
|
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 ((..-' (< _ ;_..__ ; `'
|
|
|
|
comp.lang.idl-pvwave archive
Members
Search
Help
Login
Home
