gmm.inc

这是一个实数编码的遗传算法

interface
    SUBROUTINE GMM(gmm_type,a,wtmtx_a,gmm_a,weighting_type, &
                   nma,init_estimate,gmm_itts,do_stats,     &
                   deriv_type,eps_vector,itmax,FRET,covmtx, &
                   use_gmm_a,indep_var,nerr)
        real(8), dimension(:)   ::a,eps_vector,wtmtx_a,gmm_a
        real(8), dimension(:,:) ::covmtx
        real(8), dimension(:,:) ::indep_var
        integer  weighting_type,deriv_type
        integer  nerr,gmm_itts,itmax,nma
        integer  init_estimate,do_stats,gmm_type
        real(8)  fret
        logical  use_gmm_a
    end SUBROUTINE GMM
end interface