!     DLLb.F90  Copyright(c) 1994 - 1998, Lahey Computer Systems, Inc.
!     Copying for sale requires permission from Lahey Computers Systems.
!     Otherwise, distribution of all or part of this file is permitted
!     if these four lines are included.
!
! DLLb.F90, This DLL is for use with the MAIN1 example.
! Please refer to the MK3_FF.BAT and MK3_CF.BAT files for
! instructions for building this example
!
! This example demonstrates calling a DLL from another DLL.
! DLLa calls DLLb, DLLa is called from MAIN1.C or MAIN1.F90.

subroutine dllb(l1)
dll_export dllb
logical :: l1(10)

l1(1:10:2) = .TRUE.
l1(2:10:2) = .FALSE.

return
end