cmpl_binding.F90

Go to the documentation of this file.

SUBROUTINE cmpl_recv(KBUF,KCOUNT,KTYPE,KSOURCE,KTAG,KCOMM,&
 &KSYNC,KBLOCK,KRCOUNT,KRFROM,KRTAG,KERROR)
USE parkind1  ,ONLY : jpim     ,jprb
USE mpl_module
IMPLICIT NONE
INTEGER KCOUNT,KTYPE,KSOURCE,KTAG,KCOMM
INTEGER KRCOUNT,KRFROM,KRTAG,KERROR,KSYNC,KBLOCK
INTEGER(KIND=JPIM) :: KBUF(*)
INTEGER,EXTERNAL :: CONVIN,CONVOUT
INTEGER ILENB,ILEN
ilenb=convin(kcount,ktype)
IF(ksource > 0) THEN
  IF(ktag /= -1) THEN
    CALL mpl_recv(kbuf(1:ilenb),ksource=ksource,ktag=ktag,&
     kfrom=krfrom,krecvtag=krtag,kount=ilen,kerror=kerror)
  ELSE
    CALL mpl_recv(kbuf(1:ilenb),ksource=ksource,&
     kfrom=krfrom,krecvtag=krtag,kount=ilen,kerror=kerror)
  ENDIF
ELSE
  IF(ktag /= -1) THEN
    CALL mpl_recv(kbuf(1:ilenb),ktag=ktag,&
     kfrom=krfrom,krecvtag=krtag,kount=ilen,kerror=kerror)
  ELSE
    CALL mpl_recv(kbuf(1:ilenb),&
     kfrom=krfrom,krecvtag=krtag,kount=ilen,kerror=kerror)
  ENDIF
ENDIF
krcount=convout(ilen,ktype)
END SUBROUTINE cmpl_recv

SUBROUTINE cmpl_send(KBUF,KCOUNT,KTYPE,KDEST,KTAG,KCOMM,&
 &KSYNC,KBLOCK,KERROR)
USE parkind1  ,ONLY : jpim     ,jprb
USE mpl_module
IMPLICIT NONE
INTEGER KCOUNT,KTYPE,KTAG,KCOMM,KSYNC,KBLOCK,KDEST
INTEGER KERROR
INTEGER KBUF(*)
INTEGER,EXTERNAL :: CONVIN,CONVOUT
INTEGER ILEN
ilen=convin(kcount,ktype)
CALL mpl_send(kbuf(1:ilen),kdest=kdest,ktag=ktag,kerror=kerror)
END SUBROUTINE cmpl_send

SUBROUTINE cmpl_broadcast(KBUF,KCOUNT,KTYPE,KROOT,KTAG,KCOMM,&
 &KSYNC,KBLOCK,KERROR)
USE mpl_module
IMPLICIT NONE
INTEGER KCOUNT,KTYPE,KTAG,KCOMM,KSYNC,KBLOCK,KROOT
INTEGER KERROR
INTEGER KBUF(*)
INTEGER,EXTERNAL :: CONVIN,CONVOUT
INTEGER ILEN
ilen=convin(kcount,ktype)
CALL mpl_broadcast(kbuf(1:ilen),kroot=kroot,ktag=ktag,kerror=kerror)
END SUBROUTINE cmpl_broadcast

SUBROUTINE cmpl_abort(CDMESS)
USE mpl_module
IMPLICIT NONE
CHARACTER(LEN=*) CDMESS
CALL mpl_abort(cdmess)
END SUBROUTINE cmpl_abort

SUBROUTINE cmpl_init(LDTRMSG,KERROR)
USE mpl_module
IMPLICIT NONE
LOGICAL LDTRMSG
INTEGER KERROR
CALL mpl_init(kerror=kerror,ldinfo=.false.)
END SUBROUTINE cmpl_init

FUNCTION cmpl_nproc()
USE mpl_module
IMPLICIT NONE
INTEGER CMPL_NPROC
cmpl_nproc=mpl_nproc()
END FUNCTION cmpl_nproc

FUNCTION cmpl_myrank()
USE mpl_module
IMPLICIT NONE
INTEGER CMPL_MYRANK
cmpl_myrank=mpl_myrank()
END FUNCTION cmpl_myrank

SUBROUTINE cmpl_barrier(KERROR)
USE mpl_module
IMPLICIT NONE
INTEGER KERROR
CALL mpl_barrier(kerror=kerror)
END SUBROUTINE cmpl_barrier

SUBROUTINE cmpl_end(KERROR)
USE mpl_module
IMPLICIT NONE
INTEGER KERROR
CALL mpl_end(kerror=kerror)
END SUBROUTINE cmpl_end

SUBROUTINE cmpl_getarg(KARGNO, CDARG)
USE mpl_module
IMPLICIT NONE
INTEGER KARGNO
CHARACTER(LEN=*) CDARG
CALL mpl_getarg(kargno, cdarg)
END SUBROUTINE cmpl_getarg

FUNCTION cmpl_iargc()
USE mpl_module
IMPLICIT NONE
INTEGER CMPL_IARGC
cmpl_iargc = mpl_iargc()
END FUNCTION cmpl_iargc

FUNCTION mpe_myrank()
USE mpl_module
IMPLICIT NONE
INTEGER MPE_MYRANK
mpe_myrank=mpl_myrank()
END FUNCTION mpe_myrank

SUBROUTINE mpei_abort(CDMESS)
USE mpl_module
IMPLICIT NONE
CHARACTER(LEN=*) CDMESS
CALL mpl_abort()
END SUBROUTINE mpei_abort