00001 !----------------------------------------------------------------------- 00002 ! Copyright 2006-2010, CERFACS, Toulouse, France. 00003 ! Copyright 2006-2010, NEC High Performance Computing, Duesseldorf, Germany. 00004 ! All rights reserved. Use is subject to OASIS4 license terms. 00005 !----------------------------------------------------------------------- 00006 !BOP 00007 ! 00008 ! !ROUTINE: PRISMTrs_get_trans_rank 00009 ! 00010 ! !INTERFACE: 00011 00012 subroutine prismtrs_get_trans_rank (id_trans_rank, id_err) 00013 ! 00014 ! !USES: 00015 ! 00016 USE PRISMDrv, dummy_interface => PRISMTrs_get_trans_rank 00017 00018 IMPLICIT NONE 00019 ! 00020 ! !PARAMETERS: 00021 ! 00022 ! ! RETURN VALUE 00023 ! 00024 ! Returns the rank of the transformer process to deal with 00025 INTEGER, INTENT (Out) :: id_trans_rank 00026 00027 ! Returns the error code of Prismtrs_get_trans_rank; 00028 ! id_err = 0 : No error 00029 ! id_err > 0 : Severe error 00030 INTEGER, INTENT (Out) :: id_err 00031 00032 ! 00033 ! !LOCAL VARIABLES 00034 ! 00035 Integer, save :: is_trans_rank = 0 00036 ! 00037 ! 00038 ! !DESCRIPTION: 00039 ! 00040 ! Subroutine "PRISMTrs_get_trans_rank" returns the rank of the transformer. 00041 ! 00042 ! 00043 ! !REVISION HISTORY: 00044 ! 00045 ! Date Programmer Description 00046 ! ---------- ----------- ----------- 00047 ! 17/06/2004 Schoenemeyer creation 00048 ! 00049 !EOP 00050 !---------------------------------------------------------------------- 00051 ! 00052 ! $Id: prismtrs_get_trans_rank.F90 2325 2010-04-21 15:00:07Z valcke $ 00053 ! $Author: valcke $ 00054 ! 00055 Character(len=len_cvs_string), save :: mycvs = 00056 '$Id: prismtrs_get_trans_rank.F90 2325 2010-04-21 15:00:07Z valcke $' 00057 ! 00058 !---------------------------------------------------------------------- 00059 ! 00060 ! 1. Verry simple choice ! 00061 ! 00062 id_trans_rank = is_trans_rank + PRISMdrv_root 00063 00064 is_trans_rank = is_trans_rank+1 00065 IF (is_trans_rank == ig_driver_nb_pes) is_trans_rank = 0 00066 ! 00067 id_err = 0 00068 ! 00069 END SUBROUTINE PRISMTrs_get_trans_rank
1.6.1