comp.lang.idl-pvwave archive: archive » Convert Function to Procedure

Home » Public Forums » archive » Convert Function to Procedure

Show: Today's Messages :: Show Polls :: Message Navigator
E-mail to friend

Convert Function to Procedure [message #93237]

Tue, 17 May 2016 09:33

dmfl0590
Messages: 17
Registered: December 2015

Junior Member

Hi

I have the following function:

FUNCTION CREATE_NEW, Im1, Im2, B, step=step, itmax=itmax
Bnew = B
ffd_precompute,Im1,size(REFORM(B[0,*,*]), /dimensions)
ffd_grad_precompute, size(REFORM(B[0,*,*]), /dimensions)
for it=1L, itmax do begin
FIRST_FUN, Im1, Im2, Bnew, G=G
Bnew = SECOND_FUN(Im1, Im2, Bnew, G, conv=converged,step=step)
if converged then return, Bnew
endfor
return, Bnew
END

Then I changed this Function to Procedure like this:

PRO CREATE_NEW, Im1, Im2, B, step=step, itmax=itmax
Breg = B
ffd_precompute,Im1,size(REFORM(B[0,*,*]), /dimensions)
ffd_grad_precompute, size(REFORM(B[0,*,*]), /dimensions)
for it=1L, itmax do begin
FIRST_FUN, Im1, Im2, Bnew, G=G
Bnew = SECOND_FUN(Im1, Im2, Bnew, G, conv=converged,step=step)
if converged then begin
B=Bnew
return
endif
endfor
B=Bnew
END

I don't get the same results for some reason. I thought that I can put the output variables in the calling statement. The output variable in this case is the B. However, I don't get the output variable. Can anyone help with this?

Report message to a moderator

[Message index]

		Convert Function to Procedure By: dmfl0590 on Tue, 17 May 2016 09:33
		Re: Convert Function to Procedure By: wlandsman on Tue, 17 May 2016 10:57
		Re: Convert Function to Procedure By: dmfl0590 on Wed, 18 May 2016 00:46

Previous Topic:	How to label a time axes on an image?
Next Topic:	issues appending roi from IDLanROI to IDLanROIGroup

-=] Back to Top [=-

[ Syndicate this forum (XML) ] [

] [

]

Current Time: Wed Oct 08 13:32:38 PDT 2025

Total time taken to generate the page: 0.00539 seconds