madel2out Subroutine

public subroutine madel2out(iprint, naez, lrecamad, lmpotd, nleftoff, nrightoff, nleftall, nrightall)

Reads the full Madelung coefficients from an unformatted file, and then writes the necessary ones to a formatted file.

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	iprint	Printing index controller
integer,	intent(in)			::	naez	Number of atoms in unit cell
integer,	intent(in)			::	lrecamad	Record length for unformatted files
integer,	intent(in)			::	lmpotd	(lpot+1)**2
integer,	intent(in)			::	nleftoff	naez*naez
integer,	intent(in)			::	nrightoff	nleftoff + naeznleftnlbasis
integer,	intent(in)			::	nleftall	nleft*nlbasis
integer,	intent(in)			::	nrightall	nright*nrbasis