MODULE interfaces

        INTERFACE
                SUBROUTINE mrqmin_TGM(x,y,sig,a,maska,covar,alpha,chisq,func_TGM,alamda)
                USE nrtype
                USE util_minim, ONLY : assert_eq,diagmult,covsrt,gaussj
                IMPLICIT NONE
                REAL(DP), DIMENSION(:), INTENT(IN) :: x,y,sig
                REAL(DP), DIMENSION(:), INTENT(INOUT) :: a
                REAL(DP), DIMENSION(:,:), INTENT(OUT) :: covar,alpha
                REAL(DP), INTENT(OUT) :: chisq
                REAL(DP), INTENT(INOUT) :: alamda
                LOGICAL(LGT), DIMENSION(:), INTENT(IN) :: maska
                INTERFACE
                        SUBROUTINE func_TGM(x,a,yfit,dyda)
                        USE nrtype
                        REAL(DP), DIMENSION(:), INTENT(IN) :: x,a
                        REAL(DP), DIMENSION(:), INTENT(OUT) :: yfit
                        REAL(DP), DIMENSION(:,:), INTENT(OUT) :: dyda
                        END SUBROUTINE func_TGM
                END INTERFACE
                INTEGER(I4B) :: ma,ndata
                INTEGER(I4B), SAVE :: mfit
        END SUBROUTINE mrqmin_TGM
        END INTERFACE
        INTERFACE
                SUBROUTINE mrqmin_ABD(x,y,sig,a,maska,covar,alpha,chisq,func_ABD,alamda)
                USE nrtype
                USE util_minim, ONLY : assert_eq,diagmult,covsrt,gaussj
                IMPLICIT NONE
                REAL(DP), DIMENSION(:), INTENT(IN) :: x,y,sig
                REAL(DP), DIMENSION(:), INTENT(INOUT) :: a
                REAL(DP), DIMENSION(:,:), INTENT(OUT) :: covar,alpha
                REAL(DP), INTENT(OUT) :: chisq
                REAL(DP), INTENT(INOUT) :: alamda
                LOGICAL(LGT), DIMENSION(:), INTENT(IN) :: maska
                INTERFACE
                        SUBROUTINE func_ABD(x,a,yfit,dyda)
                        USE nrtype
                        REAL(DP), DIMENSION(:), INTENT(IN) :: x,a
                        REAL(DP), DIMENSION(:), INTENT(OUT) :: yfit
                        REAL(DP), DIMENSION(:,:), INTENT(OUT) :: dyda
                        END SUBROUTINE func_ABD
                END INTERFACE
                INTEGER(I4B) :: ma,ndata
                INTEGER(I4B), SAVE :: mfit
        END SUBROUTINE mrqmin_ABD
        END INTERFACE
        INTERFACE
                SUBROUTINE fit_cont(f_sp,f_model,cont)
                USE nrtype
                USE stats
                USE share, ONLY: dimsp,weights,rad_pix
                IMPLICIT NONE
                REAL(DP) :: avg_f,avg_r,avg_m,var,sig,sig_r,avg_mm,sig_mm,set
                REAL(DP),DIMENSION(dimsp), INTENT(IN) :: f_sp,f_model
                REAL(DP),DIMENSION(dimsp) :: resid
                REAL(DP),DIMENSION(dimsp), INTENT(OUT) :: cont
                INTEGER(I2B) :: i,iinf,isup,dimsp_loop
                LOGICAL,DIMENSION(dimsp) :: mask
                END SUBROUTINE fit_cont
        END INTERFACE
        INTERFACE
        SUBROUTINE write_res(flag,chisq)
        USE nrtype
        USE share, ONLY: TGM, ABD, ele_ll,dim_ll,select_ll_mask,&
        &ew,sn,wave_ll,w_sp,f_sp,f_sp_norm,f_model,cont,&
        &dimsp,ele2meas,weights,obs_sp_file,ele2write
        USE utils, ONLY: ABD_mask
        USE uncertains2, ONLY: up_TGM,lo_TGM,up_ABD,lo_ABD
        USE space_pars, ONLY: null_val
        IMPLICIT NONE        
        LOGICAL, INTENT(IN) :: flag
        REAL(DP), INTENT(IN) :: chisq
        END SUBROUTINE write_res
        END INTERFACE
END MODULE interfaces