PROGRAM wrapper
use, intrinsic :: iso_c_binding
!Declare types for logical variables
  LOGICAL          :: BOOLE
  LOGICAL (c_bool) :: george
! ...
  BOOLE = .TRUE.
! Transfer value of Fortran LOGICAL to c_bool type
  george = BOOLE
  WRITE(*,*) BOOLE, george
  george = .FALSE.
! Transfer value of c_bool type to Fortran LOGICAL 
  BOOLE = george
  WRITE(*,*) BOOLE, george
END PROGRAM wrapper