[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [TRNSYS-users] inquire in TRNSYS17



Dear Hermann,

 

have you tried to use  the TRNSYS function getLUfileName(fileID)?

 

Kind regards,

Arno

 

 

 

7.4.2.13. function getLUfileName (i)

 

A character function that returns the name of the file corresponding to the logical unit i. If the file logical unit number has not been assigned, it returns an error message.

Example Usage

INTEGER LU

CHARACTER (len=maxLabelLength) fileName

...

fileName = getLUfileName(LU)

 

____________________________________

Arno Dentel - MEng, Dipl.-Ing.(FH)

Forschungsgebiet Gebäudesysteme 

 

ieg - Institut für Energie und Gebäude

Georg-Simon-Ohm-Hochschule

für angewandte Wissenschaften -

Fachhochschule Nürnberg

 

Keßlerplatz 12

90489 Nürnberg

 

Fon: +49 – 911 – 5880 1846

Fax: +49 – 911 – 5880 5846

 

E-Mail: arno.dentel@ohm-hochschule.de

Web:    www.ieg.ohm-hochschule.de

 

P Be green - please print only when necessary.

 

Von: trnsys-users-bounces@cae.wisc.edu [mailto:trnsys-users-bounces@cae.wisc.edu] Im Auftrag von Hermann Schranzhofer
Gesendet: Montag, 25. Juli 2011 12:41
An: trnsys-users@cae.wisc.edu
Betreff: [TRNSYS-users] inquire in TRNSYS17

 

Dear all,

 

we have some TRNSYS 16.1 Types and we want to use them with TRNSYS 17. Some of them use the INQUIRE command to get the filename of a data file. The syntax is:

INQUIRE(fileID, EXIST=flag_exist, OPENED=flag_open,NAME=file_name).

 

This works fine with TRNSYS 16.1 but not with TRNSYS 17. Debugging the code shows that the INQUIRE command returns an empty character array for file_name.

 

I also did a small example (see attachment).

 

Can anyone help me?

 

Thanks and best regards,

Hermann Schranzhofer. 

 

_______________________________________________________________

DI Dr. mont. Hermann Schranzhofer
Institut fuer Waermetechnik / Institute of Thermal Engineering
TU Graz / Graz University of Technology
Inffeldgasse 25 / B, A-8010 Graz

Tel.: +43 316 873 7314
mobil: +43 664 60 873 7314
Fax : +43 316 873 7305
http://www.iwt.tugraz.at/
_______________________________________________________________