[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[TRNSYS-users] query about creating the new components
Hello everybody
I have a problem in creating the new components.
Regarding to item 1.8 of first chapter (getting start) I followed the procedure to making new component but there is some thing wrong.
1-First I installed the Compaq visual basic in my system.
2-in simulation studio I made a new component setting one input, one output and one parameter.
3-I saved it on studio/Performa and then exported it as FORTRAN and save it on my project folder.
4- After appearing a dialog box automatically Compaq visual FORTRAN comes up.
5- I set the equation output=input*mult on the source FORTRAN file.
6- After setting the “Release DLL” I pushed the F7 to make the DLL
But the problem is instead of generation of DLL lots of error comes up (30 errors, 0 warnings).
I am sure that I followed the steps right according to mentioned instruction in pages 1-65 to 1-70 but the new component is not generated
The list of errors has been mentioned below.
I was wondering if you could give me an instruction to solve it.
Regards
Mehdi Shahrestani
--------------------Configuration: Type201Lib - Win32 Release--------------------
C:\Trnsys17\MyProjects\type201.for(44): Could not find the file TrnsysConstants.mod.
C:\Trnsys17\MyProjects\type201.for(45): Could not find the file TrnsysFunctions.mod.
C:\Trnsys17\MyProjects\type201.for(47): Could not find the file TrnsysData.mod.
Compiling Fortran...
C:\Trnsys17\MyProjects\type201.for
C:\Trnsys17\MyProjects\type201.for(44) : Error: Error in opening the Library module file. [TRNSYSCONSTANTS]
Use TrnsysConstants
----------^
C:\Trnsys17\MyProjects\type201.for(45) : Error: Error in opening the Library module file. [TRNSYSFUNCTIONS]
Use TrnsysFunctions
----------^
C:\Trnsys17\MyProjects\type201.for(47) : Error: Error in opening the Library module file. [TRNSYSDATA]
Use TrnsysData, Only:LastCallofSimulation, ConvergenceReached,
----------^
C:\Trnsys17\MyProjects\type201.for(77) : Error: This name does not have a type, and must have an explicit type. [GETSIMULATIONTIME]
Time=getSimulationTime()
-----------^
C:\Trnsys17\MyProjects\type201.for(78) : Error: This name does not have a type, and must have an explicit type. [GETSIMULATIONTIMESTEP]
Timestep=getSimulationTimeStep()
---------------^
C:\Trnsys17\MyProjects\type201.for(83) : Error: Conflicting attributes or multiple declaration of name. [VERSIONSIGNINGTIME]
If(VersionSigningTime) Then
---------^
C:\Trnsys17\MyProjects\type201.for(83) : Error: A logical data type is required in this context. [VERSIONSIGNINGTIME]
If(VersionSigningTime) Then
---------^
C:\Trnsys17\MyProjects\type201.for(91) : Error: Conflicting attributes or multiple declaration of name. [LASTCALLOFSIMULATION]
If(LastCallofSimulation) Then
---------^
C:\Trnsys17\MyProjects\type201.for(91) : Error: A logical data type is required in this context. [LASTCALLOFSIMULATION]
If(LastCallofSimulation) Then
---------^
C:\Trnsys17\MyProjects\type201.for(98) : Error: Conflicting attributes or multiple declaration of name. [CONVERGENCEREACHED]
If(ConvergenceReached) Then
---------^
C:\Trnsys17\MyProjects\type201.for(98) : Error: A logical data type is required in this context. [CONVERGENCEREACHED]
If(ConvergenceReached) Then
---------^
C:\Trnsys17\MyProjects\type201.for(105) : Error: Conflicting attributes or multiple declaration of name. [FIRSTCALLOFSIMULATION]
If(FirstCallofSimulation) Then
---------^
C:\Trnsys17\MyProjects\type201.for(105) : Error: A logical data type is required in this context. [FIRSTCALLOFSIMULATION]
If(FirstCallofSimulation) Then
---------^
C:\Trnsys17\MyProjects\type201.for(123) : Error: Conflicting attributes or multiple declaration of name. [FIRSTTIMESTEP]
If (FirstTimestep) Then
----------^
C:\Trnsys17\MyProjects\type201.for(123) : Error: A logical data type is required in this context. [FIRSTTIMESTEP]
If (FirstTimestep) Then
----------^
C:\Trnsys17\MyProjects\type201.for(125) : Error: This name does not have a type, and must have an explicit type. [GETPARAMETERVALUE]
mult = getParameterValue(1)
-------------^
C:\Trnsys17\MyProjects\type201.for(127) : Error: This name does not have a type, and must have an explicit type. [GETINPUTVALUE]
iput = GetInputValue(1)
-------------^
C:\Trnsys17\MyProjects\type201.for(156) : Error: Conflicting attributes or multiple declaration of name. [REREADPARAMETERS]
If(ReReadParameters) Then
---------^
C:\Trnsys17\MyProjects\type201.for(156) : Error: A logical data type is required in this context. [REREADPARAMETERS]
If(ReReadParameters) Then
---------^
C:\Trnsys17\MyProjects\type201.for(171) : Error: This name does not have a type, and must have an explicit type. [ERRORFOUND]
If(ErrorFound()) Return
---------^
C:\Trnsys17\MyProjects\type201.for(171) : Error: A logical data type is required in this context. [ERRORFOUND]
If(ErrorFound()) Return
---------^
C:\Trnsys17\MyProjects\type201.for(205) : Error: This name does not have a type, and must have an explicit type. [OPUT]
oput=iput*mult
--------^
C:\Trnsys17\MyProjects\type201.for(47) : Error: Name in only-list does not exist. [LASTCALLOFSIMULATION]
Use TrnsysData, Only:LastCallofSimulation, ConvergenceReached,
---------------------------^
C:\Trnsys17\MyProjects\type201.for(47) : Error: Name in only-list does not exist. [CONVERGENCEREACHED]
Use TrnsysData, Only:LastCallofSimulation, ConvergenceReached,
-------------------------------------------------^
C:\Trnsys17\MyProjects\type201.for(48) : Error: Name in only-list does not exist. [FIRSTCALLOFSIMULATION]
1FirstCallofSimulation, FirstTimestep, ReReadParameters,
------^
C:\Trnsys17\MyProjects\type201.for(48) : Error: Name in only-list does not exist. [FIRSTTIMESTEP]
1FirstCallofSimulation, FirstTimestep, ReReadParameters,
-----------------------------^
C:\Trnsys17\MyProjects\type201.for(48) : Error: Name in only-list does not exist. [REREADPARAMETERS]
1FirstCallofSimulation, FirstTimestep, ReReadParameters,
--------------------------------------------^
C:\Trnsys17\MyProjects\type201.for(49) : Error: Name in only-list does not exist. [VERSIONSIGNINGTIME]
1VersionSigningTime, CurrentUnit, CurrentType
------^
C:\Trnsys17\MyProjects\type201.for(49) : Error: Name in only-list does not exist. [CURRENTUNIT]
1VersionSigningTime, CurrentUnit, CurrentType
--------------------------^
C:\Trnsys17\MyProjects\type201.for(49) : Error: Name in only-list does not exist. [CURRENTTYPE]
1VersionSigningTime, CurrentUnit, CurrentType
---------------------------------------^
(229) : Severe: Too many errors, exiting
Error executing df.exe.
type201.dll - 30 error(s), 0 warning(s)