*DECK TRIDQ SUBROUTINE TRIDQ (MR, A, B, C, Y, D) C***BEGIN PROLOGUE TRIDQ C***SUBSIDIARY C***PURPOSE Subsidiary to POIS3D C***LIBRARY SLATEC C***TYPE SINGLE PRECISION (TRIDQ-S) C***AUTHOR (UNKNOWN) C***SEE ALSO POIS3D C***ROUTINES CALLED (NONE) C***REVISION HISTORY (YYMMDD) C 801001 DATE WRITTEN C 891214 Prologue converted to Version 4.0 format. (BAB) C 900308 Renamed routine from TRID to TRIDQ. (WRB) C 900402 Added TYPE section. (WRB) C***END PROLOGUE TRIDQ