C #DECHK V1A 19-JAN-73. C LAST UPDATE: C SUBROUTINE DECHK(Y,NN,X,STOP) LOGICAL STOP C C *PURPOSE. C TO PROVIDE A MONITORING FACILITY FOR DIFFERENTIAL C EQUATION INTEGRATORS "DFFSB" AND "RNKTB". C C *PARAMETERS. C C Y - CURRENT REAL VECTOR OF "NN" INDEPENDENT VARIABLES AT C THE MOST RECENT POINT REACHED BY THE DIFFERENTIAL C EQUATION INTEGRATOR. MUST NO TBE CHANGED BY THIS ROUTINE C "DECHK". C NN - THE NUMBER OF INDEPENDENT VARIABLES CURRENTLY BEING C INTEGRATED. C X - THE VALUE OF THE INDEPENDENT VARIABLE AT THE MOST C RECENT POINT REACHED BY THE INTEGRATOR. IT MUST NOT BE C CHANGED BY THE ROUTINE. C STOP- A LOGICAL VARIABLE WHICH IS SET .FALSE. ON ENTRY AND IF C SET .TRUE. BY THE ROUTINE WILL TERMINATE THE INTEGRATION C IMMEDIATELY. C C INPUT PARAMETERS: C Y, NN, X C OUTPUT PARAMETERS: C STOP C C *COMMENTS. C THIS IS JUST A DUMMY ROUTINE FOR THE LIBRARY. IF THE C USER WANTS TO USE THIS FACILITY HE PROVIDES HIS OWN C ROUTINE TO THESE SPECIFICATIONS. C C #END. C RETURN END