Function DFLOTJ.

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 INTEGER4 to REAL8.

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)

😦

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

Thanks! That worked.

😄