! The PSML library calls a "die" routine when it encounters ! an error. This routine should take care of carrying out any ! needed cleaning and terminating the program. ! As the details would vary with the client program, each program ! has to provide its own. ! ! This is an example implementation that could be used for serial programs. subroutine psml_die(str) character(len=*), intent(in) :: str write(0,"(a)") trim(str) stop end subroutine psml_die