Re: More than one Type 45 component

[Rauch-Muenster@xxxxxxxxxxx (Dr.Karl-Christian Rauch)]

Hi Juan,
 
I like this program!
 
Some months ago here in this user list the open source from TYPE56
was given to us .
 
In the following you can see some important statements of this routine which 
are relevant to that, what you are searching for:
 
C ---------- ONLY ONE UNIT OF THIS COMPONENT ALLOWED ------------------
C
 IF(INFO(7).EQ.-1) THEN
 
   IF(ICALL.NE.0) THEN
 
C      WARN THE USER THAT THIS TYPE REQUIRES THE TALF FUNCTION
     CALL LINKCK('TYPE35',' TALF ',4,INFO(1))
 
     CALL TYPECK(-6,INFO,0,0,0)
     RETURN 1
   ELSE
     CALL SETUP(TIME,INFO,XIN,PAR,INP,SHISTI,SHISTO,THISTI,
     .               THISTO,QHISTI,QHISTO,TSI,TSO,QSI,QSO,RSTAR,REQV,
     .               TF,TBAR,WF,WBAR,VERSNO,CALTSTAR,
     .               WSURFF,WSBAR,WDEEPF,WDBAR,KSURF,KDEEP,
     .               ALPHI,ALPHO,LUWIN,AOPT,XCALC)
   ENDIF
 ENDIF
 
In ALL subroutine types which are accessed in your TYPE45 (the original) you have
to comment the statement  CALL TYPECK (Type Check) where the
first parameter is set to the value -6. If in your case there is a programmed
return statement after this call you have to comment this statement also.
 
But if as in this example of subroutine TYPE56 there is an if statement
asking for the variable ICALL you must change the if statement for
your wishes; than you have not to change the statements with the
call typeck (-6) and possibly the following programmed return.
 
Look at all!! subroutines which interdepend with TYPE45; do not believe,
what was mentioned in a recent e-mail which you referenced in your mail.
No other CALL TYPECK(-6,info,0,0,0) aught to follow in subsequent calls
of other called subroutines in routine type45.
Perhaps you have to look for some statements according to the question
of the regarded UNIT number, too.
 
I hope this will help you.
 
Kind regards
Christian
----- Original Message ----- 
From: Juan Pablo Salazar 
To: trnsys@relay.doit.wisc.edu 
Sent: Monday, March 24, 2003 9:57 PM
Subject: More than one Type 45 component

Dear TRNSYS Users,
 
I am trying to run a deck with two Type 45 components. I followed instructions given in a previous occasion to Thomaz Borges http://sel.me.wisc.edu/trnsys/MailingList/Archive1999-2002/msg00245.html and made a copy of the Type45.for file, renamed it to Type145.for, renamed its subroutine PIPE to PIPE145 and also changed all occurrences of Type45 (to Type145) in the new Type145.for file. After rebuilding trnlib.dll and running TRNSYS I got the same #103 error, now mentioning TYPE 145!
 
Where does TRNSYS set the maximum number of each component after all? Is there any way to change these settings? 
 
Best regards,
Juan Pablo de L. C. Salazar
BEGIN:VCARD

VERSION:2.1

N:Rauch;Dr.Karl-Christian;;Dr.-Ing.

FN:Dr.Karl-Christian Rauch

NICKNAME:Christian

ORG:IPS Informations- und Prozeßsysteme;Zweigniederlassung der MCE Computer Peripherie GmbH

TITLE:SAP R/3  Application-Developer; System Engineer Tivoli

TEL;WORK;VOICE:+49 (0)2054 95 77 33

TEL;WORK;FAX:+49 (0)2054 95 77 44

ADR;WORK:;kcr@ips.de;Im Teelbruch 122;Essen;NRW;D 45219;Germany

LABEL;WORK;ENCODING=QUOTED-PRINTABLE:kcr@ips.de=0D=0AIm Teelbruch 122=0D=0AEssen, NRW D 45219=0D=0AGermany

URL;WORK:http://www.ips.de;   http://www.mce.de

EMAIL;PREF;INTERNET:rauch-muenster@t-online.de

EMAIL;INTERNET:doc.rauch@web.de

EMAIL;INTERNET:rauch.karl-christian@vdi.de

REV:20030330T010739Z

END:VCARD