- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
Hello everybody,
I'm a structural engineer trying to generate some plots of the output of dynamic calculations.
Therefore I'm trying to install DISLIN with Intel Fortran.
when I try to compile the dislin examples, I get the following errors:
I did compile the dislin.mod file and added the necessery path and include variables.
When compiling from within MSVS I get the same errors.
c:\dislin\examples>ifort -a exa_f90.f90
Intel(R) Fortran Intel(R) 64 Compiler Classic for applications running on Intel(R) 64, Version 2021.11.1 Build 20231117_000000
Copyright (C) 1985-2023 Intel Corporation. All rights reserved.
ifort: remark #10448: Intel(R) Fortran Compiler Classic (ifort) is now deprecated and will be discontinued late 2024. Intel recommends that customers transition now to using the LLVM-based Intel(R) Fortran Compiler (ifx) for continued Windows* and Linux* support, new language support, new language features, and optimizations. Use '/Qdiag-disable:10448' to disable this message.
ifort: command line remark #10148: option '/asmfile' not supported
exa_f90.f90(295): error #6633: The type of the actual argument differs from the type of the dummy argument. [0.]
CALL GRAF(0.,360.,0.,90.,-1.,1.,-1.,0.5)
----------------^
exa_f90.f90(295): error #6633: The type of the actual argument differs from the type of the dummy argument. [360.]
CALL GRAF(0.,360.,0.,90.,-1.,1.,-1.,0.5)
-------------------^
exa_f90.f90(295): error #6633: The type of the actual argument differs from the type of the dummy argument. [0.]
CALL GRAF(0.,360.,0.,90.,-1.,1.,-1.,0.5)
------------------------^
exa_f90.f90(295): error #6633: The type of the actual argument differs from the type of the dummy argument. [90.]
CALL GRAF(0.,360.,0.,90.,-1.,1.,-1.,0.5)
---------------------------^
exa_f90.f90(295): error #6633: The type of the actual argument differs from the type of the dummy argument.
CALL GRAF(0.,360.,0.,90.,-1.,1.,-1.,0.5)
-------------------------------^
exa_f90.f90(295): error #6633: The type of the actual argument differs from the type of the dummy argument. [1.]
CALL GRAF(0.,360.,0.,90.,-1.,1.,-1.,0.5)
-----------------------------------^
exa_f90.f90(295): error #6633: The type of the actual argument differs from the type of the dummy argument.
CALL GRAF(0.,360.,0.,90.,-1.,1.,-1.,0.5)
--------------------------------------^
exa_f90.f90(295): error #6633: The type of the actual argument differs from the type of the dummy argument. [0.5]
CALL GRAF(0.,360.,0.,90.,-1.,1.,-1.,0.5)
------------------------------------------^
exa_f90.f90(299): error #6633: The type of the actual argument differs from the type of the dummy argument. [XRAY]
CALL CURVE(XRAY,Y1RAY,N)
-----------------^
exa_f90.f90(299): error #6633: The type of the actual argument differs from the type of the dummy argument. [Y1RAY]
CALL CURVE(XRAY,Y1RAY,N)
----------------------^
exa_f90.f90(301): error #6633: The type of the actual argument differs from the type of the dummy argument. [XRAY]
CALL CURVE(XRAY,Y2RAY,N)
-----------------^
exa_f90.f90(301): error #6633: The type of the actual argument differs from the type of the dummy argument. [Y2RAY]
CALL CURVE(XRAY,Y2RAY,N)
----------------------^
exa_f90.f90(346): error #6633: The type of the actual argument differs from the type of the dummy argument. [1.]
CALL GRAFP(1.,0., 0.2, 0., 30.)
-----------------^
exa_f90.f90(346): error #6633: The type of the actual argument differs from the type of the dummy argument. [0.]
CALL GRAFP(1.,0., 0.2, 0., 30.)
--------------------^
exa_f90.f90(346): error #6633: The type of the actual argument differs from the type of the dummy argument. [0.2]
CALL GRAFP(1.,0., 0.2, 0., 30.)
------------------------^
exa_f90.f90(346): error #6633: The type of the actual argument differs from the type of the dummy argument. [0.]
CALL GRAFP(1.,0., 0.2, 0., 30.)
-----------------------------^
exa_f90.f90(346): error #6633: The type of the actual argument differs from the type of the dummy argument. [30.]
CALL GRAFP(1.,0., 0.2, 0., 30.)
---------------------------------^
exa_f90.f90(347): error #6633: The type of the actual argument differs from the type of the dummy argument. [XRAY]
CALL CURVE(XRAY,YRAY,N)
-----------------^
exa_f90.f90(347): error #6633: The type of the actual argument differs from the type of the dummy argument. [YRAY]
CALL CURVE(XRAY,YRAY,N)
----------------------^
exa_f90.f90(355): error #6633: The type of the actual argument differs from the type of the dummy argument. [5.]
CALL BARWTH (5.)
-------------------^
exa_f90.f90(357): error #6633: The type of the actual argument differs from the type of the dummy argument. [10.]
CALL GRAFP(10.,0.,2.,0.,30.)
-----------------^
exa_f90.f90(357): error #6633: The type of the actual argument differs from the type of the dummy argument. [0.]
CALL GRAFP(10.,0.,2.,0.,30.)
---------------------^
exa_f90.f90(357): error #6633: The type of the actual argument differs from the type of the dummy argument. [2.]
CALL GRAFP(10.,0.,2.,0.,30.)
------------------------^
exa_f90.f90(357): error #6633: The type of the actual argument differs from the type of the dummy argument. [0.]
CALL GRAFP(10.,0.,2.,0.,30.)
---------------------------^
exa_f90.f90(357): error #6633: The type of the actual argument differs from the type of the dummy argument. [30.]
CALL GRAFP(10.,0.,2.,0.,30.)
------------------------------^
exa_f90.f90(358): error #6633: The type of the actual argument differs from the type of the dummy argument.
CALL BARWTH(-5.)
------------------^
exa_f90.f90(360): error #6633: The type of the actual argument differs from the type of the dummy argument. [X2]
CALL CURVE(X2,Y2,M)
-----------------^
exa_f90.f90(360): error #6633: The type of the actual argument differs from the type of the dummy argument. [Y2]
CALL CURVE(X2,Y2,M)
--------------------^
exa_f90.f90(444): error #6633: The type of the actual argument differs from the type of the dummy argument. [0.]
CALL GRAF(0.,3.,0.,1.,-1.,2.,-1.,1.)
------------------^
exa_f90.f90(444): error #6633: The type of the actual argument differs from the type of the dummy argument. [3.]
CALL GRAF(0.,3.,0.,1.,-1.,2.,-1.,1.)
---------------------^
exa_f90.f90(460): catastrophic error: Too many errors, exiting
compilation aborted for exa_f90.f90 (code 1)
Thank you for your advice.
Roger
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
Link Copied
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
use the build tool IF90LINK.BAT there are libs required etc.
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
The compiler is complaining of argument type mismatches given that explicit interfaces are available (presumably from the .mod).
-a is not a supported option. I wonder if the modules were compiled with non-default /real-size options.
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
-a is an option of IF90LINK.bat. (compile link run)
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
Whatever I try I get the same errors.
for example
if90link.bat -a exa_f90
gives the same errors.
Roger
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
I made a trial run by (1) downloading and unzipping the DISLIN distribution in dl_11_ic.zip, and (2) opening an Ifort/Ifx 64 bit command window (current version, Build 20231213, VS 2019 community), changing to the extraction directory, and built the test program:
ifx /MD /Od /c dislin.f90
ifx /MD /Od exa_f90.f90 disifd.lib gdi32.lib user32.lib legacy_stdio_definitions.lib
The resulting program ran and produced nice plots.
I did not run the DISLIN setup program, nor did I use the DISLIN batch files.
There are several other combinations possible, depending on your objectives.
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content

- Subscribe to RSS Feed
- Mark Topic as New
- Mark Topic as Read
- Float this Topic for Current User
- Bookmark
- Subscribe
- Printer Friendly Page