GRASP rci-qed
|
Checks if filename
exists or stops the program with ERROR STOP
.
More...
Public Member Functions | |
subroutine | file_exists_or_stop (filename) |
subroutine | file_exists_or_stop_where (filename, file, line) |
Checks if filename
exists or stops the program with ERROR STOP
.
The 3-argument version should be called by passing the __FILE__
and __LINE__
preprocessor variables as the second and third arguments:
subroutine grasp_rciqed_system::file_exists_or_stop::file_exists_or_stop | ( | character(*), intent(in) | filename | ) |
subroutine grasp_rciqed_system::file_exists_or_stop::file_exists_or_stop_where | ( | character(*), intent(in) | filename, |
character(*), intent(in) | file, | ||
integer, intent(in) | line | ||
) |