Write Millepede-II F-binary record. More...

Modules
module	mpmille
	The data transmitted by MILLE calls are collected in two arrays, a real array and an integer array, of same length.

Functions/Subroutines
subroutine	mille (nlc, derlc, ngl, dergl, label, rmeas, sigma)
	Add data block to record. More...

subroutine	millsp (nsp, dergl, label)
	Add special data. More...

subroutine	kille
	Stop record. More...

subroutine	endle
	End-of-record. More...

Variables
integer(mpi), parameter	mpmille::lun =51
	unit More...

integer(mpi), parameter	mpmille::ndim =10000
	max. More...

integer(mpi)	mpmille::nr =0
	current record length More...

integer(mpi)	mpmille::icount =0
	number of records exceeding max. More...

integer(mpi)	mpmille::isp
	spcial data flag More...

real(mps), dimension(ndim)	mpmille::glder
	real data record array More...

integer(mpi), dimension(ndim)	mpmille::inder
	integer data record array More...

Detailed Description

Write Millepede-II F-binary record.

Author: Volker Blobel, University Hamburg, 2005-2009 (initial Fortran77 version); Claus Kleinwort, DESY (maintenance and developement)

Copyright: Copyright (c) 2009 - 2021 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.

Definition in file mille.f90.

Function/Subroutine Documentation

◆ endle()

subroutine endle

End-of-record.

Definition at line 208 of file mille.f90.

References mpmille::glder, mpmille::inder, mpmille::lun, and mpmille::nr.

Referenced by mptest(), and mptst2().

◆ kille()

subroutine kille

Stop record.

Definition at line 198 of file mille.f90.

References mpmille::nr.

◆ mille()

subroutine mille	(	integer(mpi), intent(in)	nlc,
		real(mps), dimension(nlc), intent(in)	derlc,
		integer(mpi), intent(in)	ngl,
		real(mps), dimension(ngl), intent(in)	dergl,
		integer(mpi), dimension(ngl), intent(in)	label,
		real(mps), intent(in)	rmeas,
		real(mps), intent(in)	sigma
	)

Add data block to record.

Called from user code.

    CALL MILLE(...)       ! measured value, derivatives (one set)
    CALL ENDLE            ! complete, write record (many sets)
(or CALL KILLE            ! stop record)

Parameters

[in]	NLC	number of local derivatives
[in]	DERLC	local derivatives
[in]	NGL	number of global derivatives
[in]	DERGL	global derivatives
[in]	LABEL	labels for global derivatives
[in]	RMEAS	measurement
[in]	SIGMA	error of measurement

Definition at line 90 of file mille.f90.

References mpmille::glder, mpmille::icount, mpmille::inder, mpmille::isp, mpmille::ndim, and mpmille::nr.

Referenced by mptest(), and mptst2().

◆ millsp()

subroutine millsp	(	integer(mpi), intent(in)	nsp,
		real(mps), dimension(nsp), intent(in)	dergl,
		integer(mpi), dimension(nsp), intent(in)	label
	)

Add special data.

add NSP special words (floating-point and integer)

0.0            0
-float(NSP)    0   ! indicates special data
following NSP floating and NSP integer data

Parameters

[in]	NSP	size of special data
[in]	DERGL	special float values
[in]	LABEL	special integer values

Definition at line 162 of file mille.f90.

References mpmille::glder, mpmille::inder, mpmille::isp, mpmille::ndim, and mpmille::nr.

Modules