des.f
SUBROUTINE DES (F, NEQ, T, Y, TOUT, INFO, RTOL, ATOL, IDID, YPOUT,
+ YP, YY, WT, P, PHI, ALPHA, BETA, PSI, V, W, SIG, G, GI, H, EPS,
+ X, XOLD, HOLD, TOLD, DELSGN, TSTOP, TWOU, FOURU, START, PHASE1,
+ NORND, STIFF, INTOUT, NS, KORD, KOLD, INIT, KSTEPS, KLE4,
+ IQUIT, KPREV, IVC, IV, KGI, RPAR, IPAR)
C***BEGIN PROLOGUE DES
....
....
Warning: this routine is not intended to be user-callable.
....
....
C***SUBSIDIARY
C***PURPOSE Subsidiary to DEABM
C***LIBRARY SLATEC
C***TYPE SINGLE PRECISION (DES-S, DDES-D)
C***AUTHOR Watts, H. A., (SNLA)
C***DESCRIPTION
C
C DEABM merely allocates storage for DES to relieve the user of the
C inconvenience of a long call list. Consequently DES is used as
C described in the comments for DEABM .
C
C***SEE ALSO DEABM
C***ROUTINES CALLED R1MACH, SINTRP, STEPS, XERMSG
C***REVISION HISTORY (YYMMDD)
C 800501 DATE WRITTEN
C 890531 Changed all specific intrinsics to generic. (WRB)
C 890831 Modified array declarations. (WRB)
C 891214 Prologue converted to Version 4.0 format. (BAB)
C 900328 Added TYPE section. (WRB)
C 900510 Convert XERRWV calls to XERMSG calls, replace GOTOs with
C IF-THEN-ELSEs. (RWC)
C 910722 Updated AUTHOR section. (ALS)
C***END PROLOGUE DES