Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in
Toggle navigation
Menu
Open sidebar
Scientific Software
LAMP
Commits
4ed839b3
Commit
4ed839b3
authored
May 07, 2021
by
Miguel Angel Gonzalez
Browse files
Remove useless comments
parent
c76843bb
Changes
1
Hide whitespace changes
Inline
Side-by-side
lamp_mac/D17/rdid_d17.pro
View file @
4ed839b3
...
...
@@ -310,10 +310,6 @@ PRO rdid_d17, INST,numor,nvers,text,exper,scan,cnt,WOUT,vparm,param,par1,par2,pa
if
idx
ge
0
then
PARAM
[
116
]
=
par4
[
idx
]
endelse
;
Shuffle
parameters
to
be
consistent
with
order
in
ASCII
file
,
but
the
inconsistency
between
ASCII
and
NeXuS
should
be
solved
in
the
files
;
TS
2021
-
04
-
20
:
I
do
think
they
are
in
the
correct
order
.
;
PARAM
[
109
:
116
]
=
[
PARAM
[
109
],
PARAM
[
113
],
PARAM
[
111
],
PARAM
[
115
],
PARAM
[
110
],
PARAM
[
114
],
PARAM
[
112
],
PARAM
[
116
]]
;
PUT
NeXus
PARAMETERS
in
PAR1
par1
=
fltarr
(
128
)
...
...
@@ -723,10 +719,10 @@ PRO rdid_d17, INST,numor,nvers,text,exper,scan,cnt,WOUT,vparm,param,par1,par2,pa
ysize=LONG(par1[100]-par1[99]+1)
;IF (tot ne ((xsize*ysize*tsize))) THEN PRINT,'read_d17
:
Error
in
data
array
dimensions'
;
IF (iprint GT 0) THEN BEGIN
IF (iprint GT 0) THEN BEGIN
PRINT,'tsize
=
',tsize,'
detector
size
=
',xsize*ysize
PRINT,'xsize
=
',xsize,'
ysize
=
',ysize,'
tot1
=
',xsize*ysize*tsize,'
tot2
=
',tot
;
ENDIF
ENDIF
mon=par1[4]
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment