ADFAC

AcronymDefinition
ADFACAid to Distressed Families of Appalachian Counties
ADFACAid to Distressed Families of Anderson County (est. 1987; Oak Ridge, TN)
ADFACAir Directorate Field Advisory Council (National Guard Bureau)
References in periodicals archive ?
code adjoint code H(O) = 1.0 ADH(N) = ADFAC ADFAC = 0.0 DO I = 1, N DO I = N,1,-1 H(I) = H(I-1) * X(I) ADX(I) = ADX(I) + ADH(I)*H(I-1) ADH(I-l) = ADH(I-l) + ADH(I)*X(I) ADH(I) = 0.0 END DO END D0 FAC = H(N) ADH(O) = 0.0 (3) The required value of FAC can be recomputed before every pass of the adjoint kernel.
code D0 I = N, 1, -1 FAC = 1.0 DO L = 1, I-1 FAC = FAC * X(I) END DO ADX(I) = ADX(I) + ADFAC * FAC ADFAC = ADFAC * X(I) END DO ADFAC = 0.0 An important application of sequential loops is the computation of the limit of a converging sequence.
The last two assignments and the last assignment to ADFAC are not necessary, since these adjoint local variables are not used afterward.