Searched refs:FRTHDF (Results 1 – 1 of 1) sorted by relevance
19066 DOUBLE PRECISION FRTHDF, FUNCEN, WIDTHI local19077 FRTHDF = 6*FUNCEN19079 FRTHDF = FRTHDF + FUNCTN(NDIM,Z)19081 FRTHDF = FRTHDF - 4*FUNCTN(NDIM,Z)19083 FRTHDF = FRTHDF - 4*FUNCTN(NDIM,Z)19085 FRTHDF = FRTHDF + FUNCTN(NDIM,Z)19087 IF ( FUNCEN + FRTHDF/8 .NE. FUNCEN ) 19088 & DIF(I) = DIF(I) + ABS(FRTHDF)*WIDTH(I)