! Внимание. В этом шаблоне подразумевается, что параметры передаются по ссылке
        integer ( LRESULT ) function LPCFUNCTION( ReturnValue, Arg0 )
            
            use ifwin
            
            implicit none
            
            ! Здесь мы используем встроенный тип, т.к. он полностью совпадает
            ! с описанием типа COMPLEXSCALAR в mcadincl.h            
            double complex, intent(in) :: ReturnValue
            double complex, intent(in) :: Arg0
        
        end function