[okey777]

ошибку совершил в описании интерфейса фортран программы, правильно так:
SUBROUTINE GTD(INI)
IMPLICIT NONE
cDEC$ ATTRIBUTES DLLEXPORT::GTD
cDEC$ ATTRIBUTES DLLEXPORT:: /DB1/
INTEGER :: INI

COMMON/DB1/ A
REAL*8, DIMENSION(200) :: A