ibcoff.F File Reference

#include "implicit_f.inc"
#include "comlock.inc"
#include "task_c.inc"
#include "lockon.inc"
#include "lockoff.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	ibcoff (ibc, icodt)

Function/Subroutine Documentation

ibcoff()

subroutine ibcoff	(	integer	ibc,
		integer	icodt )

Definition at line 43 of file ibcoff.F.

C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
#include      "comlock.inc"
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
#include      "task_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER IBC, ICODT
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER J1, L, J2, J3, K1, K2, K3, ICODTN
C-----------------------------------------------
C
      j1=icodt/4
      l=icodt-4*j1
      j2=l/2
      j3=l-2*j2
      k1=ibc/4
      l=ibc-4*k1
      k2=l/2
      k3=l-2*k2
C     CALL MY_LOCK
C      ICODT=4*MAX0(0,J1-K1)+2*MAX0(0,J2-K2)+MAX0(0,J3-K3)
C     CALL MY_FREE
      icodtn = 4*max0(0,j1-k1)+2*max0(0,j2-k2)+max0(0,j3-k3)
      IF (icodtn/=icodt) THEN
#include "lockon.inc"
        icodt = icodtn
#include "lockoff.inc"
C var pour le SPMD
        iexicodt = 1
      ENDIF
      RETURN