Error: The type of argument differs from the typeof dummy argument

boukes · ‎09-03-2008

Whencompiling the code below I get the error typed down in the subject box. Does anyone know how to resolve this problem?

c **********************************************************************

lmloc = ninfel(igrc)

nin = ninfe(igrc)

call sforcx ((kndid),(kcoord),(kid),(kxlod),dd,ielm,

1 nnods,ntnds,neqq,nedof(igrc),lmloc,nin)

c **********************************************************************

RETURN

END

c **********************************************************************

SUBROUTINE SFORCX (ndid,coord,id,xlod,dd,ielm,nnods,ntnds,

1 neqq,ndf,lmloc,nin)

Steven_L_Intel1 · ‎09-03-2008

What's the complete text of the error? You don't show all the relevant code either, including declarations. Assuming Fortran implicit rules, kcoord and kxlod are integers but coord and xlod are reals. This mismatch would be an error.

boukes · ‎09-03-2008

It is a code dated from 1994 and originally compiled with Powerstation 1. Because I want to execute on an xp pc, it is not possible to use powerstation anymore. After my last post I did the building again by placing the .for codes in a new project. Now I get the same error, but in another .for file. The complete code ca be found below and the errors are

Error: the type of the actual argument differs from the type of the dummy argument [ENER] and resp [ENED].[EEXT].[BETO],[RELAS].[RDAMP],[RINIT],[DDISE],[DISE],[VELE]

after these errors the following error is:

The type matching rules of actual arguments and dummy arguments have been violated.

I Think it is strange these errors are given at line 47 (at the rule call resp02)

c *********************************************************************

SUBROUTINE RESPXX (kel,kresis,ksave,kgem,kstep,ndf,kst,kenr,

1 ener,ened,eext,beto)

c *********************************************************************

c PURPOSE : To perform element response computations.

c----------------------------------------------------------------------

c DOUBLE PRECISION / LARGE

include 'double.h'

c----------------------------------------------------------------------

c CALLED FROM : respon

c SUBR. CALLS : resp**

c----------------------------------------------------------------------

c ARGUMENTS

C INPUT

c kel = element type.

c kresis = resisting force indicator.

c 1: static

c 2: static + damping

c kgem = > 0 if geometric stiffness included.

c kstep = segment step number (-1 resets envelop values).

c ndf = no. of element dofs.

c ksave = saving print indictor (1: print, 0: no print).

c kenr = energy calculation code.

c 1: perform calculation

c 0: omit

c beto = element stiffness proportional damping factor.

C OUTPUT

c ener = element elasto-plastic work.

c ened = element damping work.

c eext = second order external work done by element.

c relas(ndf) = element resisting force vector.

c rdamp(ndf) = element damping force vector.

c rinit(ndf) = element initial force vector.

C MODIFY

c kst = stiffness change indicator (set = 1 if change).

c ----------------------------------------------------------------------

c LABELLED COMMONS

include 'para.h'

include 'disvel.h'

c **********************************************************************

if (kel .eq. 1) then

call resp01 (kresis,ksave,kgem,kstep,ndf,kst,kenr,ener,ened,