imoab_coupler_fortran.F90 File Reference

#include "moab/MOABConfig.h"
#include "mpif.h"

Include dependency graph for imoab_coupler_fortran.F90:

Go to the source code of this file.

Functions/Subroutines
subroutine	errorout (ierr, message)
program	imoab_coupler_fortran

Function/Subroutine Documentation

errorout()

subroutine errorout	(	integer	ierr,
		character*(*)	message
	)

Definition at line 9 of file imoab_coupler_fortran.F90.

 integer ierr
 character*(*) message
 if (ierr .ne. 0) then
 print *, message
 call exit(1)
 end if
 return

imoab_coupler_fortran()

program imoab_coupler_fortran

Definition at line 25 of file imoab_coupler_fortran.F90.

References errorout(), and readopts().