nrerror Subroutine

public subroutine nrerror(string)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	string

Contents

Source Code

nrerror

Source Code

	SUBROUTINE nrerror(string)
	CHARACTER(LEN=*), INTENT(IN) :: string
	write (*,*) 'nrerror: ',string
	STOP 'program terminated by nrerror'
	END SUBROUTINE nrerror