comp.lang.idl-pvwave archive: archive » Re: How to get file UNIT from file NAME?

Home » Public Forums » archive » Re: How to get file UNIT from file NAME?

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

Re: How to get file UNIT from file NAME? [message #58880]

Tue, 26 February 2008 11:22

Paul Van Delst[1]
Messages: 1157
Registered: April 2002

Senior Member

Vince Hradil wrote:
> On Feb 26, 12:27 pm, Paul van Delst <Paul.vanDe...@noaa.gov> wrote:
>> Hello,
>>
>> Is it possible to get a file UNIT from a file NAME? For example, in Fortran95 you can do,
>>
>> INQUIRE( FILE=Filename, NUMBER=FileID )
>>
>> i.e. supplying a Filename yields its associated unit number, FileID (which is -1 if no
>> unit is connected to the file)
>>
>> Is there an equivalent IDL command? FSTAT requires one to supply a UNIT argument, which is
>> opposite of what I need, i.e. similar to the f95
>>
>> INQUIRE( UNIT=FileID, NAME=Filename )
>>
>> Basically I want to be able to derive all the necessary info about the file, in particular
>> answering the "Is it open? If so, what unit number?" questions just from the filename.
>>
>> Any info appreciated.
>>
>> cheers,
>>
>> paulv
>
> You could loop through all possible luns (1:128) and check to see if
> they are open:
>
> for i=1, 128 do begin
> a = fstat(i)
> if a.open eq 1 then print, 'File ' + a.name + ' is open as LUN ' +
> string(i,format='(I3.3)')
> endfor

Yeah... I guess that would work. But.... uff da! :o)

cheers.

paulv

Report message to a moderator

[Message index]

		Re: How to get file UNIT from file NAME? By: Paul Van Delst[1] on Tue, 26 February 2008 11:22
		Re: How to get file UNIT from file NAME? By: Paul Van Delst[1] on Tue, 26 February 2008 11:19
		Re: How to get file UNIT from file NAME? By: Vince Hradil on Tue, 26 February 2008 10:57
		Re: How to get file UNIT from file NAME? By: Foldy Lajos on Tue, 26 February 2008 10:52

Previous Topic:	Re: Images with coordinate axes, log scale etc.
Next Topic:	Code for selecting a study from a dicomdir

-=] Back to Top [=-

[ Syndicate this forum (XML) ] [

] [

]

Current Time: Sat Oct 11 03:58:39 PDT 2025

Total time taken to generate the page: 2.31492 seconds