| christmas survey on structures... [message #7736] |
Fri, 20 December 1996 00:00 |
alpha
Messages: 49
Registered: September 1996
|
Member |
|
|
hello,
here is a little programm for you...
please test on your system and tell me the point of failure
pro fail
for te=1,105 do begin
anzahl=te
tname=strarr(anzahl)
for i=0,anzahl-1 do tname(i)='TN_'+strcompress(string(i),/remove_all)
ttyp=strarr(anzahl)
; for testing choose one of it
;ttyp(*)="'String-test'"
;ttyp(*)="fltarr(10)"
ttyp(*)="dcomplexarr(102)"
ziel=byte(0)
estring='ziel={'
for i=0,anzahl-1 do begin
if i gt 0 then estring=estring+','
estring=estring+tname(i)+':'+ttyp(i)
endfor
estring=estring+'}'
if execute(estring) then begin
print,' Execute OK: ',te
endif else begin
goto,abbruch
endelse
endfor
abbruch:
print, ' Execute failed at ',te
end
i testet it with IDL 4.0.1
on VMS alpha: failed at 45
DU 3.2 G : failed at 36
i testet it with string-test two:
VMS failes on 100
DU failes on 86
i know that i can use create_struct for it, i havent testet
the error in that case so far...
Happy Xmas for you all !
Panther
--
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
