home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l292 / 1.ddi / REALTYPE.FOR < prev    next >
Encoding:
Text File  |  1990-02-20  |  400 b   |  16 lines
  1.  
  2.       SUBROUTINE CheckMem(error)
  3.       INTEGER error
  4.       IF (error .NE. 0)
  5.      +  STOP 'Not enough storage for data; aborting...'
  6.       END !SUBROUTINE
  7.  
  8.       SUBROUTINE CheckDealloc(error)
  9.       INTEGER error
  10.       IF (error .NE. 0) THEN
  11.         PRINT *,'Unsuccessful Deallocation... Runtime error = ',error
  12.         STOP  'Program Terminated'
  13.       END IF
  14.       END !SUBROUTINE
  15.  
  16.