Intel® Fortran Compiler
Build applications that can scale for the future with optimized code designed for Intel® Xeon® and compatible processors.

dislin examples not compiling.

rmoortgat
New Contributor I
1,354 Views

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

0 Kudos
1 Solution
rmoortgat
New Contributor I
1,302 Views

This worked for me too.

Thank you very much!

 

Roger

View solution in original post

0 Kudos
6 Replies
andrew_4619
Honored Contributor III
1,342 Views

use the build tool IF90LINK.BAT there are libs required  etc.

 

0 Kudos
Steve_Lionel
Honored Contributor III
1,339 Views

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.

0 Kudos
andrew_4619
Honored Contributor III
1,336 Views

-a is an option of IF90LINK.bat. (compile link run)

0 Kudos
rmoortgat
New Contributor I
1,315 Views

Whatever I try I get the same errors.

for example

if90link.bat -a exa_f90

gives the same errors.

 

Roger

0 Kudos
mecej4
Honored Contributor III
1,307 Views

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.

 

0 Kudos
rmoortgat
New Contributor I
1,303 Views

This worked for me too.

Thank you very much!

 

Roger

0 Kudos
Reply