[TRNSYS-users] Component created in FORTRAN doesn't work: Output equal to zero

To: TRNSYS users mailing list at OneBuilding.org <trnsys-users@lists.onebuilding.org>

Subject: [TRNSYS-users] Component created in FORTRAN doesn't work: Output equal to zero

From: RUBIO RUBIO, JOSÉ JAVIER <josejavier.rubio@edu.upct.es>

Date: Tue, 14 Dec 2021 10:37:55 +0000

Accept-language: es-ES, en-US

Arc-authentication-results: i=1; mx.microsoft.com 1; spf=pass smtp.mailfrom=edu.upct.es; dmarc=pass action=none header.from=edu.upct.es; dkim=pass header.d=edu.upct.es; arc=none

Arc-message-signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=microsoft.com; s=arcselector9901; h=From:Date:Subject:Message-ID:Content-Type:MIME-Version:X-MS-Exchange-AntiSpam-MessageData-ChunkCount:X-MS-Exchange-AntiSpam-MessageData-0:X-MS-Exchange-AntiSpam-MessageData-1; bh=FJA6aLuv/d/74rvwqtLqH3Pg/98jLHQUL+tmo5bhzb0=; b=EPRXZGPgXXQ4SpbbKoiswKom6nfXqijAF5SLvmRuLkpQpzlddB3ZfxUS55s/FD372dFplEoaVl3hn874ygPEB54Q7BEx7REw1btpWeEFk8N9oSu/tMiRupL3rEmRt70Z9hLhYV/Y6cxVFlmL9PoOJLOMGfSqVkHoTUhOGX0q0YzB1Vy/kvuvmo/WCUM9iwPU2nfzrbJ8JCmc9x+a7/6gTy1bssTySr29G6Y8ft8KI+FFNgU8n1JmIcn16v56G+1hv4EE/Cf8otlcbsg9Yiof2U5kVkbZ7TbrGt6NX+9wSs+QkW+hPNMSR4X6jl1lDPHzLjnlSFmPg1hyDxxV8ZtwUA==

Arc-seal: i=1; a=rsa-sha256; s=arcselector9901; d=microsoft.com; cv=none; b=TUtjdVVF49zDk+iU6pgNINd9TB7ELQ9oYkee8Y79HTvbj/C7tAJx5YMXOqiBs+pptQDp00THyf6BgYZSsgU0NzNQ2tR8/mRQl52F8GnLeN0U3hC6YWpe30HFNE0A86X0PodxRVQoMr9XrFLzcIjW2jDyuMktU5N5ZWJG2/CNi6y1PTVNO2NZv1lsNrYYXL/sdlRgn/AV0lOZ9tVaipi0thgsFRL/B0fDXTXNLZ6/xZ1ec6+cdTGq4k79qsX90Vp5VeOjDHME2cw6PNXBtbz5ZNxMeG5h8YoLDKLFsohNCatH3vMF5Pbf8hkSu+yY2iJF0723vI32y2h1jh4f8CTfAw==

Authentication-results: dkim=none (message not signed) header.d=none;dmarc=none action=none header.from=edu.upct.es;

Delivered-to: trnsys-users-onebuilding.org@pdx1-mailman02.dreamhost.com

Dkim-signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=UPCT.onmicrosoft.com; s=selector2-UPCT-onmicrosoft-com; h=From:Date:Subject:Message-ID:Content-Type:MIME-Version:X-MS-Exchange-SenderADCheck; bh=FJA6aLuv/d/74rvwqtLqH3Pg/98jLHQUL+tmo5bhzb0=; b=diTGYmHFvBGHkiJV6K8mDBsyL3kKEjMxtKE1SQ0cZyjVToSnyD1UUYlaLiI+f6ktond/MKfyEofPi4PfaKJqGRtzEWrf1vUC+Y8Ybsjw8OCgRF1+sVEFu/PxTPlB55jfx7xm3my/P3l50zgNmBjw2/W9+KcAhhc1D+VhwWxw4Jk=

List-archive: <http://lists.onebuilding.org/pipermail/trnsys-users-onebuilding.org/>

List-help: <mailto:trnsys-users-request@lists.onebuilding.org?subject=help>

List-id: "TRNSYS users mailing list at OneBuilding.org" <trnsys-users-onebuilding.org>

List-post: <mailto:trnsys-users@lists.onebuilding.org>

List-subscribe: <http://lists.onebuilding.org/listinfo.cgi/trnsys-users-onebuilding.org>, <mailto:trnsys-users-request@lists.onebuilding.org?subject=subscribe>

List-unsubscribe: <http://lists.onebuilding.org/options.cgi/trnsys-users-onebuilding.org>, <mailto:trnsys-users-request@lists.onebuilding.org?subject=unsubscribe>

Thread-index: Adfw1Z8GHKQvmGIbTKaxtBRoyhJ3kQ==

Thread-topic: Component created in FORTRAN doesn't work: Output equal to zero

Dear all,

I have created and coded a new Type through the integrated tool of FORTRAN in TRNSYS 18 whose purpose is very simple because it is only to do a simple mathematical operation. Even though it compiles properly, when I start a simulation in TRNSYS, the output from the new Type is zero. I have already checked inputs, code and everything but I can figure it out. Anyone might help? I coded a new type in the same way some time ago and it worked perfectly but this time it is impossible. Attached you will find the .f90 for those who want to take a look at the code.

Thank you very much in advance,

Best regards,

José Javier Rubio Rubio

Attachment: Type9998.f90
Description: Type9998.f90