CCL Home Page
Up Directory CCL README.TXT
*********************************************************************
                            LibString 1.0
	      (c) 1998 Giulio Vistoli & Alex Pedretti
*********************************************************************

Index

1.	Introduction
2.	Installation
3.	Usage
4.	Concluding Remarks


1. Introduction
===============

This fortran77 library is developed to simplify strings handling
and i/o parsing operation.
In fortan the read operation of free format files (like C files) is 
not very easy, because this language requires fields with formatted 
position.
On the other hand the native fortran77 does'nt have directed functions 
to manage the strings also for simpliest operations.
In this library you can find functions & routines to read also the 
free format files and handle the strings.

2. Installation
===============

In archive file you can find a Makefile to build a libstr.a library
in order to use routines & functions in your program.
Check in makefile compilation and link options for your computer.
Default options are for SGI machines.
If you can move the libstr.a in your lib directory, make install and 
link your programs with -lstr option, otherwise use -L -lstr 
options (PATH is directory who is placed libstr.a).


3. Usage
========

3.1 Functions
~~~~~~~~~~~~~

3.1.1. Length - Return the string length without the blanks characters

Synopsis:

	integer function length(char)
	character *N char

Description:
Instead of the standard len function, this routine returns the 
real length of a string (without the blanks).

3.1.2 Isnumber - Check if the string argument contain a number 

Synopsis:

	logical function isnumber(char)
	character *N char

Description:
This routine returns a true value if char contain a number otherwise
returns false.

3.1.3 Valnum - Return the real value contained into string argument

Synopsis:

	real function valnum(char)
	character *N char

Description:
Obviously this routine can be used also with an integer value making a 
final casting.


3.2 Subroutines
~~~~~~~~~~~~~~~

3.2.1 Right - return the right string portion.

Synopsis:

	subroutine right(input,nchar,output)
	character *N input,output
	integer nchar

Description:
This routine returns in output argument the right nchar portion 
of input string.

3.2.2 Union - Join two strings 

Synopsis:

	subroutine union(input1,input2,output)
	character *N input1,input2,output

Description:
This routine chains two input strings in output argument.

3.2.3 Uniblk - Join two strings with spacing

Synopsis:

	subroutine uniblk(input1,input2,nblank,output)
	character *N input1,input2,output
	integer nblank

Description:
This routine returns in output argument the chaining of the
two input strings with nblank blank characters between them

3.2.4 Intstr - Translate a integer value into string
Synopsis:

	subroutine intstr(int,char,nchar)
	character *N char
	integer nchar,int

Description:
This routine translates the int integer into char string. Nchar is
the output string length to obtain a fixed size of output (example:
001,002,....,023,etc). If nchar is zero, the routine generates a 
string with the exact size of the int number 
(example:1,2,....,3423,etc).


3.2.5 Flostr - Translate a real*8 value into string
Synopsis:

	subroutine intstr(real,char,ndec)
	character *N char
	integer	ndec
	real*8  real

Description:
This routine translates the real value into char string. The real value
must be in double precision. Ndec value is the size of decimal part
      

3.2.6 Pars - Perform the string parsing

Synopsis:

	subroutine pars(char,word,nword)
	character *N char,word(*)
	integer nword

Description:
This routine parses a string in word defined by blank 
characters. The routine output is a string array (word(*)) and the 
nword value is the word number obtained from string parsing.

Example:
	character *20 char,word(5)
        integer nword,i

	char='Fortran77 is a beautiful language'
	call pars(char,word,nword)
	doi=1,nword 
	write(6,*)word(i)
	end do
	end

This program shows this output:
	Fortran77	(word(1))
	is		 ......
	a		 ......
	beautiful	 ......
	language	(word(5))

3.2.7 readf - Parse a string with specified template
Synopsis:

	subroutine readf(line,format,float,int,char,success)
	character *N line,format,char(*)
	integer int(*)
	real float(*)
        logical success

Description:
This routine searchs elements indicated into format string and puts
them in float, int and char arrays.
Possibilities for format elements are:
a	string field
i	integer field
f	float field
x	skip a field
the logical success is returned false if routine readf finds a format
error.

Example:
With readf routine you can read a PDB file with this simple program:

	implicit integer (k-l)
	parameter (maxatom=10000)
	character *80 line
	character *4 str(2)	! atom name and residue name
	character *4 atmname(maxatom),resname(maxatom)
	real flo(3)		! x,y,z coordinates
	real x(maxatom),y(maxatom),z(maxatom)
	integer in(2)		! atom e residue number
	integer atmnum(maxatom),resnum(maxatom)
	logical suc

	open(10,file='file.pdb')
	i=0
10	read(10,'(a80)',end=99)line
	if(line(1:4).eq.'ATOM')then
	i=i+1
	call readf(line,'xiaaxifff',flo,in,str,suc)
	if(.not.suc)stop
	X(i)=flo(1)
	Y(i)=flo(2)
	Z(i)=flo(3)
	atmnum(i)=in(1)
	resnum(i)=in(2)
	atmname(i)=str(1)
	resname(i)=str(2)
	end if
	goto 10
99	end

Note:
The utility of this routine is very remarkeable with files written
in free format such the Quanta/Chemnote mol files or Hyperchem hin
files, unreadable with native fortran read instruction. 
  
4. Concluding Remarks
=====================

All trademarks and  softwares  directly  or  indirectly  referred  in  this
document,  are  copyrighted from legal owners. LibString is a program freeware
and can be spreaded trough Internet, BBS, CD-ROM and each other electronic form.
Authors of this library accepts no responsabilty for hardware/software
damages resulting from the use of this package.


Authors of this library are:

Giulio Vistoli	&   Alex Pedretti
School of Pharmacy
Medicinal Chemistry Institute
Milan University
e-mail giulio@indigo.farma.unimi.it

Bugs and suggestios are willcommed







Modified: Sun Mar 22 17:00:00 1998 GMT
Page accessed 10743 times since Sat Apr 17 21:35:18 1999 GMT