24 lines
488 B
Fortran
24 lines
488 B
Fortran
|
module subroutines
|
||
|
|
|
||
|
|
use precision_comm_module
|
||
|
|
|
||
|
|
implicit none
|
||
|
|
|
||
|
|
public
|
||
|
|
contains
|
||
|
|
|
||
|
|
|
||
|
|
!This subroutine is just used to break the code and exit on an error
|
||
|
|
subroutine read_error_check(para, loc)
|
||
|
|
|
||
|
|
integer, intent(in) :: para
|
||
|
|
character(len=100), intent(in) :: loc
|
||
|
|
|
||
|
|
if (para > 0) then
|
||
|
|
print *, "Read error in ", trim(loc), " because of ", para
|
||
|
|
stop "Exit with error"
|
||
|
|
end if
|
||
|
|
end subroutine
|
||
|
|
|
||
|
|
|
||
|
|
end module subroutines
|