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

Re: [TRNSYS-users] TRNSYS 15 components Legacy mode : gettim



Cédric,

I'm trying to use TRNSYS 15 components in legacy mode and I have some problems. One of this type is using the command GETTIM wich permits to obtain the time of the simulation thanks to the clock.for file. When I build the TRNDLL, I have the error :
Type240.obj : error LNK2001: unresolved external symbol _GETTIM
Debug/TRNDll.dll : fatal error LNK1120: 1 unresolved externals
Error executing link.exe.
I've seen that in TRNSYS 16, the file clock.for doesn't exist anymore. Does it have any importance if I run the TRNSYS 15 components in legacy mode ? What can I do to solve this problem ? Shall I use another commmand ? The command DATE_AND_TIME, for example ?

GETTIM is a Fortran runtime subroutine, not a TRNSYS-specific routine. In order to call GETTIM in a Type you need to USE the module where it is declared:

! With CVF 6.6b
use dflib
...
integer(2) :: tmphour, tmpminute, tmpsecond, tmphund
...
call gettim(tmphour, tmpminute, tmpsecond, tmphund)

! With IVF 8.1
use ifport
...
integer(4) :: tmphour, tmpminute, tmpsecond, tmphund
...
call gettim(tmphour, tmpminute, tmpsecond, tmphund)

I would prefer to use the DATE_AND_TIME routine because it is an intrinsic routine (you do not need to explicitely use a module):

Example from the CVF help:

Consider the following example executed on 2000 March 28 at 11:04:14.5:
  INTEGER DATE_TIME (8)
  CHARACTER (LEN = 12) REAL_CLOCK (3)
  CALL DATE_AND_TIME (REAL_CLOCK (1), REAL_CLOCK (2), &
                      REAL_CLOCK (3), DATE_TIME)

This assigns the value "20000328" to REAL_CLOCK (1), the value "110414.500" to REAL_CLOCK (2), and the value "-0500" to REAL_CLOCK (3). The following values are assigned to DATE_TIME: 2000, 3, 28, -300, 11, 4, 14, and 500.

The following shows another example:

CHARACTER(10) t
CHARACTER(5) z
CALL DATE_AND_TIME(TIME = t, ZONE = z)


Kind regards,

Michaël Kummert

--
_________________________________________________________

Michaël Kummert

Solar Energy Laboratory - University of Wisconsin-Madison
1303 Engr Res Bldg, 1500 Engineering Drive
Madison, WI 53706

Tel: +1 (608) 263-1589
Fax: +1 (608) 262-8464
E-mail: kummert@engr.wisc.edu

SEL Web Site: http://sel.me.wisc.edu
TRNSYS Web Site: http://sel.me.wisc.edu/trnsys