sdawts.f
SUBROUTINE SDAWTS (NEQ, IWT, RTOL, ATOL, Y, WT, RPAR, IPAR)
C***BEGIN PROLOGUE SDAWTS
....
....
Warning: this routine is not intended to be user-callable.
....
....
C***SUBSIDIARY
C***PURPOSE Set error weight vector for SDASSL.
C***LIBRARY SLATEC (DASSL)
C***TYPE SINGLE PRECISION (SDAWTS-S, DDAWTS-D)
C***AUTHOR Petzold, Linda R., (LLNL)
C***DESCRIPTION
C-----------------------------------------------------------------------
C THIS SUBROUTINE SETS THE ERROR WEIGHT VECTOR
C WT ACCORDING TO WT(I)=RTOL(I)*ABS(Y(I))+ATOL(I),
C I=1,-,N.
C RTOL AND ATOL ARE SCALARS IF IWT = 0,
C AND VECTORS IF IWT = 1.
C-----------------------------------------------------------------------
C***ROUTINES CALLED (NONE)
C***REVISION HISTORY (YYMMDD)
C 830315 DATE WRITTEN
C 901009 Finished conversion to SLATEC 4.0 format (F.N.Fritsch)
C 901019 Merged changes made by C. Ulrich with SLATEC 4.0 format.
C 901026 Added explicit declarations for all variables and minor
C cosmetic changes to prologue. (FNF)
C***END PROLOGUE SDAWTS