                 T D I P
 
      TDIP takes the bound state wavefunction coefficients generated by
      BOUND and the transition moments generated by TMTCJG and
      multiplies them together to produce transition dipoles.
 
      Input files:
        First bound state coefficients          (on unit LUBND1 )
        Second bound state coefficients         (on unit LUBND2 )
        Transition moment                       (on unit LUMOM )
 
      Output files:
        Transition dipoles                       (on unit LUTRD )
 
 
 
      Namelist input /TRDIP/
 
        The format of the following is
       (Name, Type, Dimension, Default, Limits, ! description)
        Unless specified otherwise, the default value applies to all
        elements of array variables.
 
 
 
        IBFORM1  C   1         'U'   ['U'|'F']
           ! format flag for dataset on unit LUBND1, 'F' for formatted,
             'U' for unformatted
 
        IBFORM2  C   1         'U'   ['U'|'F']
           ! format flag for dataset on unit LUBND2, 'F' for formatted,
             'U' for unformatted
 
        IPRNT    I   2          0    [0|1]
           ! Debug print switches :
             In each case 1 gives output
                 (1) =1 Print all input bound state coefficients
                 (2) =1 Print input transition dipole matrix
 
        ITDFORM  C   1         'U'   ['U'|'F']
           ! format flag for dataset on unit LUTRD, 'F' for formatted,
             'U' for unformatted
 
        IWRITE   I   1          6    [1:]
           ! logical unit for printed output
 
        LUBND1   I   1         21     [1:]
           ! logical unit for 1st bound state coefficients
 
        LUBND2   I   1         22     [1:]
           ! logical unit for 2nd bound state coefficients
 
        LUMOM    I   1         50     [1:]
           ! logical unit for output transition dipoles
 
        LUTRD    I   1         40     [1:]
           ! logical unit for transition moments
 
        NAME     C   80
           ! title for any output
 
        NBSET1   I   1          1     [1:]
           ! set number on unit LUBND1
 
        NBSET2   I   1          1     [1:]
           ! set number on unit LUBND2
 
        NMSET    I   1          1     [1:]
           ! set number on unit LUMOM
 
        NTDSET   I   1          1     [1:]
           ! set number on unit LUTRD
 
        NWFN1I   I   1          1     [1:]
           ! number of 1st wavefunction on set NBSET1 on unit LUBND1
             to be used in the calculation
 
        NWFN1F   I   1          1     [1:]
           ! number of last wavefunction on set NBSET1 on unit LUBND1
             to be used in the calculation
 
        NWFN2I   I   1          1     [1:]
           ! number of 1st wavefunction on set NBSET2 on unit LUBND2
             to be used in the calculation
 
        NWFN2F   I   1          1     [1:]
           ! number of last wavefunction on set NBSET1 on unit LUBND2
             to be used in the calculation
 
        RAB      R   1          0.0
           ! internuclear separation
 