DEC$ ATTRIBUTES DLLEXPORT attribute can not be assigned to an internal procedure

Hi,

I am trying to expose some Fortran subroutines in a DLL.
I didn't write the Fortran code, and I'm having some difficulties creating the DLL.

The Fortran code is something like this (simplified):

! ===========================================================================
 
 ! Some declarations, initialisations etc
 
 contains
 
   subroutine Initialisation

   !DEC$ ATTRIBUTES DLLEXPORT::Initialisation

   !Do some stuff here   
   
   end subroutine Initialisation
   
! ===========================================================================

I keep getting this error:

DEC$ ATTRIBUTES DLLEXPORT attribute can not be assigned to an internal procedure.

I understand that this is because the subroutine is define underneath the "contains" keyword.

I've tried removing this but then I get a load more errors, so i'd rather not go down that route.

Is there an easy was of getting round this problem? I have googled for the error message but can't find a solution

Thanks

Dom