mptext.f90 File Reference

Analyse text string. More...

Go to the source code of this file.

Modules
module	mptext
	Keyword position.

Functions/Subroutines
subroutine	ratext (text, nums, dnum, mnum)
	Translate text. More...
subroutine	rltext (text, ia, ib, nab)
	Analyse text range. More...
integer(mpi) function	matint (pat, text, npat, ntext)
	Approximate string matching. More...

Variables
integer(mpi)	mptext::keya
	start (position) of first keyword More...
integer(mpi)	mptext::keyb
	end (position) of first keyword More...
integer(mpi)	mptext::keyc
	end (position) of last keyword More...

Detailed Description

Analyse text string.

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 mptext.f90.

Function/Subroutine Documentation

matint()

integer(mpi) function matint	(	character (len=*), intent(in)	pat,
		character (len=*), intent(in)	text,
		integer(mpi), intent(out)	npat,
		integer(mpi), intent(out)	ntext
	)

Approximate string matching.

Approximate (parallel) string matching - case insensitive. Return number of matching characters (in same order) in strings PAT and TEXT, and number NPAT, NTEXT of characters of string PAT and string TEXT. Strings are considered from first to last non-blank character.

Example:

 MATCH = MATINT(' keYs ','keyWO RD',NPAT,NTEXT)
 returns MATCH=3, NPAT=4, NTEXT=8

Parameters

[in]	pat	pattern
[in]	text	text
[out]	npat	number of characters in pattern
[out]	ntext	number of characters in text

Returns

number of matching characters in pattern and text

Definition at line 308 of file mptext.f90.

References matint().

Referenced by matint(), and nufile().

ratext()

subroutine ratext	(	character (len=*), intent(in)	text,
		integer(mpi), intent(out)	nums,
		real(mpd), dimension(mnum), intent(out)	dnum,
		integer(mpi), intent(in)	mnum
	)

Translate text.

Translate TEXT into arrays of double precision numbers DNUMS(NUMS). Text preceeding numbers is TEXT(KEYA:KEYB), if KEYB >= KEYA.

Parameters

[in]	text	text
[out]	nums	number of numbers found
[out]	dnum	array of numbers found
[in]	mnum	size of dnum

Definition at line 50 of file mptext.f90.

References mptext::keya, mptext::keyb, and mptext::keyc.

Referenced by filetc(), and intext().

rltext()

subroutine rltext	(	character (len=*), intent(in)	text,
		integer(mpi), intent(out)	ia,
		integer(mpi), intent(out)	ib,
		integer(mpi), intent(out)	nab
	)

Analyse text range.

Parameters

[in]	text	text
[out]	ia	index of first non-blank character, or =1
[out]	ib	index of last non-blank character, or =0 - comment excluded
[out]	nab	index of last non-blank character (=0 for blank text)

Definition at line 255 of file mptext.f90.

Referenced by filetc(), filetx(), and intext().