SUBROUTINE TXPWR ( P, ALF, NCH )

Argument Definitions (+ indicates altered content)
CHARACTER*10      +ALF
INTEGER           +NCH
REAL               P
Source file:txpwr.f
Local Variables (+ indicates altered content)
CHARACTER*10      +ALFT
INTEGER           +I,         +J