8.2 SUBROUTINE WRITE_OP

c----------------------------------------------------------------------
      subroutine write_op(oper,opnuc,isy,np,icen,origin,name)
c----------------------------------------------------------------------
      implicit double precision (a-h,o-z)
      character*(*) name
      dimension oper(*),origin(3)

writes a one-electron operator the operator record.

Input parameters:

oper

operator in AO basis

opnuc

nuclear value

isy

symmetry of operator

np

parity of operator
np=0: square
np=1: symmetric, lower triangle
np=-1: antisymmetric, lower triangle

icen

center number (possibly zero)

origin

cartesian coordinates (au) of origin

name

component name of operator (string)