forums.silverfrost.com

[Jim]

I came across the function DFLOTJ in some code and did a web search where this intrinsic function performs conversion from one data type to another, i.e. DFLOTJ converts INTEGER*4 to REAL*8.

I am getting "Error 29, call to missing routine: _DFLOTJ". Here's the code which uses DFLOTJ.

NP = 11
NL = 10
NN = 2
NP1 = NP-1
NP2 = NP+1
DL = 2.00D0/DFLOTJ(NL)
NML2 = NL/2
IR = NML2+1
ETA(IR) = 0.00
DO 10 I=1,NML2
L = I+IR
M = IR-I
ETA(L) = I*DL
ETA(M) =-I*DL
10 CONTINUE
NMP1 = NUMNP - 1
NMP2 = NUMNP+1
IF(NEN.EQ.2) GO TO 20
DL = 1.0D00/DFLOTJ(NMP1)
DO 30 I=1,NUMNP,2
RS = I-1
SR = NUMEL
ZTA(I) = DSQRT(RS/SR)
30 CONTINUE
DO 40 I=2,NMP1,2
ZTA(I) = (ZTA(I+1) + ZTA(I-1))/2.0D 00
40 CONTINUE
GO TO 50
20 CONTINUE
DO 60 I=1,NUMNP
RS = I-1
ZTA(I) = RS/DFLOTJ(NUMEL)

[LitusSaxonicum]

Jim,

Use the intrinsic function DFLOAT. You might get away with FLOAT - or even just use mixed type in the statement and let FTN95 sort it out ....

Eddie

[Jim]

Thanks! That worked.