1
2
3
4
5
6
7
8
9
10
11
12
| module utils
| implicit none
| contains
| subroutine my_abort(message)
| implicit none
| character(len=*), intent(in) :: message
| !f2py callstatement PyErr_SetString(PyExc_ValueError, message);f2py_success = 0;
| !f2py callprotoargument char*
| write(0,*) "THIS SHOULD NOT APPEAR"
| stop 1
| end subroutine my_abort
| end module utils
|
|
