!     DLL1.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.
!
! DLL1.F90, This DLL is for use with the MAIN1 example.
! Please refer to the MK1_FF.BAT and MK1_CF.BAT files for 
! instructions for building this example
!
! This example demonstrates 'simple' interfaces between
! DLL and MAIN, using intrinsic data types
! This DLL works with both an LF95 MAIN and a C MAIN.

INTEGER FUNCTION dll1(a, a1, i, i1, l)
DLL_EXPORT dll1   !  make this available through the DLL interface
REAL a, a1(10)
INTEGER i, i1(10)
LOGICAL*1 l

a= 1.23
i = 9876
l = .TRUE.
a1 = (/(ido, ido=1, 20,2)/)  ! odd values

i1 = (/(ido, ido=2, 20,2)/)  ! even values
dll1 = 9999
RETURN
END