Go to the documentation of this file. 1 SUBROUTINE cld_fchk( status, file, line )
5 integer,
intent (in) :: status, line
6 character(*),
intent (in) :: file
7 if( status .ne. 0 )
then
8 print*,
"Code failure, file: ", file,
' Line: ', line,
' Status: ', status
subroutine cld_fchk(status, file, line)
void print(std::ostream &stream, const char *format)
