8.7 SUBROUTINE NAM_OP

c----------------------------------------------------------------------
      subroutine nam_op(name,comp,ncomp,np,fak,center,lc)
c----------------------------------------------------------------------
      implicit double precision (a-h,o-z)
      character*(*) name,comp(*),center

returns for given operator name name the component names comp and the number of components ncomp.

Input parameters:

name

operator name, either generic or component.

Output parameters:

name

generic operator name

comp

component names

ncomp

number of components.
If on input name is a component name, ncomp=1 is returned. In this case, comp(1) will be set to name, and name will be replaced by the generic operator name.
If operator is not supported, ncomp=0 is returned.

np

parity of operator;
np=1: symmetric
np=-1: antisymmetric
np=0: unsymmetric, square (applies only to overlap of displaced basis sets)

fak

factor for electronic part

center

string holding the center number or center symbol if this is contained in name.

lc

length of string center (zero if center is blank)