Close the CCM package.
Minimal calling sequence:
Call with all Optional Arguments:
See Specifying Optional Arguments for the syntax for using optional arguments.
- the_err :: integer, intent (out)
- Error code 0 - success, != 0 failure.
The call to Ccm_close is the last CCM routine in a program. If there
is another communication package in use, such as MPI, then the finalization routines
for that package needs to be called after ccm_init. Ccm_close sets a warning condition
and the_err != 0 if ccm_init has not been called, or if ccm_close is called a second time.
integer :: time_info_array(8),hour,min,sec,millisec
integer :: the_err
write(*,fmt="(""hello at "",i2.2,"":"",i2.2,"":"",i2.2,""."",i3.3)") &
if(the_err .ne. 0)write(*,*)"error in ccm_close"
Example output on 4 processors
[ccm_home:~/ccm/source] % ccm_close_x1
hello at 14:03:36.135
hello at 14:03:36.138
hello at 14:03:36.141
hello at 14:03:36.143
The call to ccm_init initializes the communication package. Each
task gets and prints the time. The call to ccm_close closes the
- The CCM package is not open, either CCM_init has not been called or CCM_close has
already been called.
- Not fatal, a warning is set by ccm_warning and the_err = -1.
- Underlining communications error. There is an error detected in the underling communications package.
- Fatal, ccm_fatal is called and the program exits.
Back to API and user's guide