PROGRAM TESTSCM
      IMPLICIT DOUBLE PRECISION (A-H,O-Z)
      DO 10 T=-19.5,0.5,1.0
      CALL DSCM(T,S,C)
      PRINT 101,T,S,SIN(T),C,COS(T)
   10 CONTINUE
  101 FORMAT(F8.1,4F18.16)
      END