C This software DLL1.FOR is part of the Compaq Visual Fortran kit.
C
      PROGRAM DLL1
      END
      
      SUBROUTINE DLL1_SUB
cDEC$ ATTRIBUTES DLLEXPORT:: /DLL1_COMMON/, DLL1_SUB
cDEC$ ATTRIBUTES DLLIMPORT:: /DLL2_COMMON/ 
      COMMON /DLL1_COMMON/ DLL1_DATA
      COMMON /DLL2_COMMON/ DLL2_DATA

      REAL DLL1_DATA, DLL2_DATA

      DLL1_DATA = DLL1_DATA + 1
      DLL2_DATA = DLL2_DATA + 1

      WRITE (6,*) 'In DLL1_SUB, values are: ', DLL1_DATA, DLL2_DATA

      END
