home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / octave-1.1.1p1-src.tgz / tar.out / fsf / octave / libcruft / villad / vilerr.f < prev   
Text File  |  1996-09-28  |  2KB  |  90 lines
  1.       SUBROUTINE VILERR ( IER, LSTOP )
  2. C
  3.       INTEGER  IER
  4.       LOGICAL  LSTOP
  5. C
  6. C***********************************************************************
  7. C
  8. C     THIS SUBROUTINE HANDLES ERRORS FOR THE SUBROUTINES JCOBI, DFOPR,
  9. C     INTRP, AND RADAU GIVEN BY VILLADSEN AND MICHELSEN.
  10. C
  11. C     PARAMETER LIST:
  12. C
  13. C       IER    : ERROR NUMBER
  14. C       LSTOP  : LOGICAL FLAG
  15. C
  16. C                LSTOP = .TRUE.   ==>  FATAL ERROR, PROGRAM TERMINATION
  17. C                LSTOP = .FALSE.  ==>  WARNING ERROR, NORMAL RETURN
  18. C
  19. C     COMMON BLOCKS:      NONE
  20. C
  21. C     REQUIRED ROUTINES:  NONE
  22. C
  23. C***********************************************************************
  24. C
  25. C -- BEGIN
  26. C
  27.       IF      ( IER .EQ.  1) THEN
  28. C
  29.         WRITE(*,*) '** VILERR : Illegal value for N0 '
  30. C
  31.       ELSE IF ( IER .EQ.  2) THEN
  32. C
  33.         WRITE(*,*) '** VILERR : Illegal value for N1 '
  34. C
  35.       ELSE IF ( IER .EQ.  3 ) THEN
  36. C
  37.         WRITE(*,*) '** VILERR : Insufficient dimension for problem '
  38. C
  39.       ELSE IF ( IER .EQ.  4 ) THEN
  40. C
  41.         WRITE(*,*) '** VILERR : Index less than zero in DFOPR '
  42. C
  43.       ELSE IF ( IER .EQ.  5 ) THEN
  44. C
  45.         WRITE(*,*) '** VILERR : Index greater than NTOTAL in DFOPR '
  46. C
  47.       ELSE IF ( IER .EQ.  6 ) THEN
  48. C
  49.         WRITE(*,*) '** VILERR : Illegal ID in DFOPR '
  50. C
  51.       ELSE IF ( IER .EQ.  7 ) THEN
  52. C
  53.         WRITE(*,*) '** VILERR : Number of interpolation points '
  54.         WRITE(*,*) '            less than 1 '
  55. C
  56.       ELSE IF ( IER .EQ.  8 ) THEN
  57. C
  58.         WRITE(*,*) '** VILERR : Illegal ID in RADAU '
  59. C
  60.       ELSE IF ( IER .EQ.  9 ) THEN
  61. C
  62.         WRITE(*,*) '** VILERR : ID = 1 but N1 not equal to 1 in RADAU '
  63. C
  64.       ELSE IF ( IER .EQ. 10 ) THEN
  65. C
  66.         WRITE(*,*) '** VILERR : ID = 2 but N0 not equal to 1 in RADAU '
  67. C
  68.       ELSE IF ( IER .EQ. 11 ) THEN
  69. C
  70.         WRITE(*,*) '** VILERR : ID = 3 but N0 not equal to 1 or '
  71.         WRITE(*,*) '            N1 not equal to 1 in RADAU '
  72. C
  73.       ELSE
  74. C
  75.         WRITE(*,*) 'UNRECOGNIZED ERROR FLAG SET FOR VILERR '
  76. C
  77.       END IF
  78. C
  79.       IF ( LSTOP ) THEN
  80. C
  81. C -- PROGRAM EXECUTION TERMINATES HERE
  82. C
  83.         CALL XSTOPX (' ')
  84. C
  85.       ELSE
  86.       END IF
  87. C
  88.       RETURN
  89.       END
  90.