GCC Code Coverage Report


Directory: ./
File: rad/mysendset_mod.f90
Date: 2022-01-11 19:19:34
Exec Total Coverage
Lines: 0 5 0.0%
Branches: 0 6 0.0%

Line Branch Exec Source
1 MODULE MYSENDSET_MOD
2 CONTAINS
3 FUNCTION MYSENDSET(KSETS,KMYSET,KSET)
4
5
6 USE PARKIND1 ,ONLY : JPIM ,JPRB
7 USE ABORT_TRANS_MOD
8
9 IMPLICIT NONE
10 INTEGER(KIND=JPIM) :: MYSENDSET
11 INTEGER(KIND=JPIM),INTENT(IN) :: KSETS,KMYSET,KSET
12
13
14 ! ------------------------------------------------------------------
15
16 !* 1. Check input argument for validity
17 ! ---------------------------------
18
19 IF(KSETS < 1 .OR. KMYSET > KSETS .OR. KSET > KSETS-1) THEN
20
21 CALL ABORT_TRANS(' MYSENDSET: INVALID ARGUMENT ')
22
23 ELSE
24
25 !* 2. Compute output parameters
26 ! -------------------------
27
28 MYSENDSET = MOD(KMYSET+KSET-1,KSETS)+1
29
30 ENDIF
31
32 END FUNCTION MYSENDSET
33 END MODULE MYSENDSET_MOD
34