*DECK HWSSS1 SUBROUTINE HWSSS1 (TS, TF, M, MBDCND, BDTS, BDTF, PS, PF, N, + NBDCND, BDPS, BDPF, ELMBDA, F, IDIMF, PERTRB, AM, BM, CM, SN, + SS, SINT, D) C***BEGIN PROLOGUE HWSSS1 C***SUBSIDIARY C***PURPOSE Subsidiary to HWSSSP C***LIBRARY SLATEC C***TYPE SINGLE PRECISION (HWSSS1-S) C***AUTHOR (UNKNOWN) C***SEE ALSO HWSSSP C***ROUTINES CALLED GENBUN C***REVISION HISTORY (YYMMDD) C 801001 DATE WRITTEN C 891009 Removed unreferenced variables. (WRB) C 891214 Prologue converted to Version 4.0 format. (BAB) C 900402 Added TYPE section. (WRB) C***END PROLOGUE HWSSS1