Dear SX user,
attached is a substitute for the system_clock_mpi routine located in
mpp.F90 which seems to work on the SX, too.
mpp.F90 line 1132: to see the ticks per sec in teh output change i10 to
at least i13, i20 is as fine.
test1 on 2 processors:
There remains a problem with the stack size. Although the first line in
the printout tells me that the stack size was set to 103022592, both
processes terminate with a FATAL error from mpp_domains
NOTE from PE 0: MPP_DOMAINS_SET_STACK_SIZE: mpp_domains_stack overflow,
call mpp_domains_set_stack_size( 103022592) from all PEs
Rene
_______________________________________________________________
Dr. Ren� Redler
C&C Research Laboratories
NEC Europe Ltd. Tel: +49 (0)2241 925240
Rathausallee 10 Fax: +49 (0)2241 925299
53757 Sankt Augustin URL: www.ccrl-nece.de/~redler
_______________________________________________________________
#ifdef use_libMPI
subroutine system_clock_mpi( count, count_rate, count_max )
!mimics F90 SYSTEM_CLOCK intrinsic
integer(LONG_KIND), intent(out), optional :: count, count_rate, count_max
!count must return a number between 0 and count_max
integer(LONG_KIND), parameter :: maxtick=HUGE(count_max)
logical, save :: first_call = .true.
real(8), save :: count0
if ( first_call ) count0 = MPI_WTime(); first_call = .false.
if( PRESENT(count) )then
count = (MPI_WTime()-count0)/MPI_WTick()
end if
if( PRESENT(count_rate) )then
count_rate = MPI_Wtick()**(-1)
end if
if( PRESENT(count_max) )then
count_max = maxtick-1
end if
return
end subroutine system_clock_mpi
#endif
