https://community.intel.com/t5/Software-Archive/function-arguments/m-p/941571#M17162 Inside of the subroutine "SECTION" the variables have the proper values, when the program execution reaches the function "SolveTooth" the arguments take on the value of the argument immediately to it's right. <BR /> <BR /> SolveTooth(rbs,m2s,gamma,thetaOS,Yg,Zg,thetaS,phiS,us) <BR />eg: rbs=m2s, <BR />m2s=gamma <BR />etc. <BR />us=useless data (value=1e-135) <BR /> <BR />What could possibly be causing this? <BR /> <BR />Subroutine SECTION(GeomVec,nt,nf,zeta,XLIST,evec) <BR />!program SECTION <BR />!DEC$ ATTRIBUTES DLLEXPORT :: SECTION ! This exports the name <BR />!DEC$ ATTRIBUTES ALIAS : "SECTION" :: FortranCall !This sets it <BR /> use dfwin !use standard windows dll packs <BR /> IMPLICIT NONE <BR /> <BR /> DOUBLE PRECISION:: zeta <BR /> DOUBLE PRECISION ::gamma <BR /> <BR /> INTEGER :: i,j,k,maxits <BR /> <BR /> DOUBLE PRECISION, PARAMETER :: pi = 3.14159265358979, delmax=0.00001 <BR /> DOUBLE PRECISION :: Xg,Yg,Zg,dels,errorCurrent,flat2,Cx,Cy <BR /> DOUBLE PRECISION :: rbs,thetaOS,thetaStar,m2s <BR /> DOUBLE PRECISION :: A,Guess,err,FA,F1A,B,L1,L2,Zpoint,thetaS <BR /> DOUBLE PRECISION :: delta,temp,InnerR,Length,location,ToothBottom,intersection,interval <BR /> DOUBLE PRECISION :: us,phiS,toothstep,filletstep,phi2,rad,Nt,Nf,F2,ToothHeight <BR /> DOUBLE PRECISION :: SolveTooth,ToothWidth,SolveFillet,MeshFillet,FilletWidth <BR /> DOUBLE PRECISION :: FindphiS <BR /> <BR /> DOUBLE PRECISION, DIMENSION(1:3,1:600)::XLIST, TEMPLIST <BR /> DOUBLE PRECISION, DIMENSION(1:2)::parameters <BR /> <BR />parameters=SolveTooth(rbs,m2s,gamma,thetaOS,Yg,Zg,thetaS,phiS,us) <BR /> <BR />__________________________________________________ <BR /> <BR />FUNCTION SolveTooth(rbs,m2s,gamma,thetaOS,Yg,Zg,thetaS,phiS,us) <BR /> <BR /> IMPLICIT NONE <BR /> <BR /> DOUBLE PRECISION, INTENT(in) :: rbs !,m2s,gamma,thetaOS <BR /> <BR />DOUBLE PRECISION :: thetaS,phiS,us,Yg,Zg,dels,delmax,errorCurrent,F2,F3,solve,m2s,gamma,thetaOS <BR /> <BR />DOUBLE PRECISION, DIMENSION(2,3) :: jac <BR />DOUBLE PRECISION, DIMENSION(2) :: adjust, SolveTooth Wed, 07 Mar 2001 07:34:58 GMT Intel_C_Intel 2001-03-07T07:34:58Z https://community.intel.com/t5/Software-Archive/function-arguments/m-p/941571#M17162 Inside of the subroutine "SECTION" the variables have the proper values, when the program execution reaches the function "SolveTooth" the arguments take on the value of the argument immediately to it's right. <BR /> <BR /> SolveTooth(rbs,m2s,gamma,thetaOS,Yg,Zg,thetaS,phiS,us) <BR />eg: rbs=m2s, <BR />m2s=gamma <BR />etc. <BR />us=useless data (value=1e-135) <BR /> <BR />What could possibly be causing this? <BR /> <BR />Subroutine SECTION(GeomVec,nt,nf,zeta,XLIST,evec) <BR />!program SECTION <BR />!DEC$ ATTRIBUTES DLLEXPORT :: SECTION ! This exports the name <BR />!DEC$ ATTRIBUTES ALIAS : "SECTION" :: FortranCall !This sets it <BR /> use dfwin !use standard windows dll packs <BR /> IMPLICIT NONE <BR /> <BR /> DOUBLE PRECISION:: zeta <BR /> DOUBLE PRECISION ::gamma <BR /> <BR /> INTEGER :: i,j,k,maxits <BR /> <BR /> DOUBLE PRECISION, PARAMETER :: pi = 3.14159265358979, delmax=0.00001 <BR /> DOUBLE PRECISION :: Xg,Yg,Zg,dels,errorCurrent,flat2,Cx,Cy <BR /> DOUBLE PRECISION :: rbs,thetaOS,thetaStar,m2s <BR /> DOUBLE PRECISION :: A,Guess,err,FA,F1A,B,L1,L2,Zpoint,thetaS <BR /> DOUBLE PRECISION :: delta,temp,InnerR,Length,location,ToothBottom,intersection,interval <BR /> DOUBLE PRECISION :: us,phiS,toothstep,filletstep,phi2,rad,Nt,Nf,F2,ToothHeight <BR /> DOUBLE PRECISION :: SolveTooth,ToothWidth,SolveFillet,MeshFillet,FilletWidth <BR /> DOUBLE PRECISION :: FindphiS <BR /> <BR /> DOUBLE PRECISION, DIMENSION(1:3,1:600)::XLIST, TEMPLIST <BR /> DOUBLE PRECISION, DIMENSION(1:2)::parameters <BR /> <BR />parameters=SolveTooth(rbs,m2s,gamma,thetaOS,Yg,Zg,thetaS,phiS,us) <BR /> <BR />__________________________________________________ <BR /> <BR />FUNCTION SolveTooth(rbs,m2s,gamma,thetaOS,Yg,Zg,thetaS,phiS,us) <BR /> <BR /> IMPLICIT NONE <BR /> <BR /> DOUBLE PRECISION, INTENT(in) :: rbs !,m2s,gamma,thetaOS <BR /> <BR />DOUBLE PRECISION :: thetaS,phiS,us,Yg,Zg,dels,delmax,errorCurrent,F2,F3,solve,m2s,gamma,thetaOS <BR /> <BR />DOUBLE PRECISION, DIMENSION(2,3) :: jac <BR />DOUBLE PRECISION, DIMENSION(2) :: adjust, SolveTooth Wed, 07 Mar 2001 07:34:58 GMT https://community.intel.com/t5/Software-Archive/function-arguments/m-p/941571#M17162 Intel_C_Intel 2001-03-07T07:34:58Z https://community.intel.com/t5/Software-Archive/function-arguments/m-p/941572#M17163 An explicit interface is REQUIRED when calling a function that returns an array (as well as in a number of other circumstances - see the Language Reference Manual). What's happening is that the function expects a hidden argument with the address of the function value return, but the caller doesn't pass it.<BR /><BR />Steve Wed, 07 Mar 2001 11:53:36 GMT https://community.intel.com/t5/Software-Archive/function-arguments/m-p/941572#M17163 Steven_L_Intel1 2001-03-07T11:53:36Z