Foortran Toolkit

Fortran toolkit
Borja Petit


Download toolkit

Back to index

error

subroutine error(mess,i)
  implicit none
  character(len=*)   , intent(in) :: mess
  integer , optional , intent(in) :: i

This subroutine prints an error message mess. If the user supplies any integer i the subroutine pauses the execution of the program until the user types any key.

Internal dependencies: none

Example

Error message with execution pause:

call error('error message',1)

! The output would be:
!   error message --> type any key to continue...

Error message without execution pause:

call error('error message')

! The output would be:
!   error message