ESDU 94038 introduces a Fortran program@ ESDUpac A9438@ that calculates the total theoretical leading-edge suction and its normalised spanwise distribution for wings from the tabulated values for the distribution given in ESDU 94037@ making any necessary interpolations. It applies to wings with unswept or swept back leading-edges. The input to and output from the program are explained and illustrated by a worked example and the program is provided on disc (uncompiled) in the software volume.