Millepede-I to Millepede-II interface. More...

Functions/Subroutines
subroutine	initgl (nagbar, nalcar, nstd, iprlim)
	Initialization of package. More...

subroutine	parglo (par)
	Initialize global parameters. More...

subroutine	parsig (INDEX, sigma)
	Define sigma for single parameter (optional). More...

subroutine	nonlin (INDEX)
	Set nonlinear flag for single parameter (optional). More...

subroutine	initun (lun, cutfac)
	Define unit for iterations (optional) - dummy. More...

subroutine	constf (dercs, rhs)
	Add constraint (optional). More...

subroutine	equloc (dergb, derlc, rrmeas, sigma)
	Add single equation with its derivatives. More...

subroutine	zerloc (dergb, derlc)
	Reset derivatives. More...

subroutine	fitloc
	Fit after end of local block. More...

subroutine	fitglo (par)
	Final global fit. More...

function	errpar (i)
	Return error for parameter I - dummy. More...

function	corpar (i, j)
	Return correlation between parameters I and J - dummy. More...

subroutine	prtglo (lun)
	Print result on file - dummy. More...

Detailed Description

Millepede-I to Millepede-II interface.

Author: Claus Kleinwort, DESY, 2018-2024 (Claus.nosp@m..Kle.nosp@m.inwor.nosp@m.t@de.nosp@m.sy.de)

Copyright: Copyright (c) 2024 Deutsches Elektronen-Synchroton, Member of the Helmholtz Association, (DESY), HAMBURG, GERMANY

This library is free software; you can redistribute it and/or modify it under the terms of the GNU Library General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version.

This library is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library General Public License for more details.

You should have received a copy of the GNU Library General Public License along with this program (see the file COPYING.LIB for more details); if not, write to the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.

Produce MP2 steering, constraints and binary file from MP1 calls.

 Implemented are:
     INITGL      initialization
     PARGLO       optional: initialize parameters with nonzero values
     PARSIG       optional: define sigma for single parameter
     INITCS       optional: constraints
     EQULOC      equations for local fit
     FITLOC      local parameter fit
     FITGLO      final global parameter fit

 Not implemented/dummy are:
     INITUN       optional: unit for iterations
     ERRPAR       optional: get parameter errors
     CORPAR       optional: get parameter correlations
     PRTGLO       optional: print results

Definition in file mp1to2.f90.

Function/Subroutine Documentation

◆ constf()

subroutine constf	(	real, dimension(*), intent(in)	dercs,
		real, intent(in)	rhs
	)

Add constraint (optional).

Definition at line 248 of file mp1to2.f90.

◆ corpar()

function corpar	(	i,
		j
	)

Return correlation between parameters I and J - dummy.

Definition at line 589 of file mp1to2.f90.

References corpar().

◆ equloc()

subroutine equloc	(	real, dimension(*), intent(out)	dergb,
		real, dimension(*), intent(out)	derlc,
		real, intent(in)	rrmeas,
		real, intent(in)	sigma
	)

Add single equation with its derivatives.

DERGB(1) ... DERGB(NAGB) = derivatives w.r.t. global parameters
DERLC(1) ... DERLC(NALC) = derivatives w.r.t. local parameters
RMEAS       = measured value
SIGMA       = standard deviation
(WGHT       = weight = 1/SIGMA**2)

Definition at line 296 of file mp1to2.f90.

◆ errpar()

function errpar ( i )

Return error for parameter I - dummy.

Definition at line 583 of file mp1to2.f90.

References errpar().

◆ fitglo()

subroutine fitglo ( real, dimension(*), intent(inout) par )

Final global fit.

Definition at line 485 of file mp1to2.f90.

◆ fitloc()

subroutine fitloc

Fit after end of local block.

Definition at line 434 of file mp1to2.f90.

◆ initgl()

subroutine initgl	(	integer, intent(in)	nagbar,
		integer, intent(in)	nalcar,
		integer, intent(inout)	nstd,
		integer, intent(in)	iprlim
	)

Initialization of package.

NAGB = number of global parameters
DERGB(1) ... DERGB(NAGB) = derivatives w.r.t. global parameters
NALC = number of local parameters (maximum)
DERLC(1) ... DERLC(NALC) = derivatives w.r.t. local parameters

Definition at line 50 of file mp1to2.f90.

◆ initun()

subroutine initun	(	lun,
		cutfac
	)

Define unit for iterations (optional) - dummy.

Definition at line 243 of file mp1to2.f90.

◆ nonlin()

subroutine nonlin ( integer, intent(in) INDEX )

Set nonlinear flag for single parameter (optional).

Definition at line 208 of file mp1to2.f90.

◆ parglo()

subroutine parglo ( real, dimension(*), intent(in) par )

Initialize global parameters.

optional: initialize parameters with nonzero values

Definition at line 133 of file mp1to2.f90.

◆ parsig()

subroutine parsig	(	integer, intent(in)	INDEX,
		real, intent(in)	sigma
	)

Define sigma for single parameter (optional).

Definition at line 171 of file mp1to2.f90.

◆ prtglo()

subroutine prtglo ( lun )

Print result on file - dummy.

Definition at line 595 of file mp1to2.f90.

◆ zerloc()

subroutine zerloc	(	real, dimension(*), intent(out)	dergb,
		real, dimension(*), intent(out)	derlc
	)

Reset derivatives.

DERGB(1) ... DERGB(NAGB) = derivatives w.r.t. global parameters
DERLC(1) ... DERLC(NALC) = derivatives w.r.t. local parameters

Definition at line 392 of file mp1to2.f90.

Functions/Subroutines