1*fordeck wr_motra_info $Revision: 7.7 $
2      Subroutine WR_MOTRA_Info(Lu,iOpt,iDisk,
3     &                         TCONEMO,nTCONEMO,ECOR,NSYM,
4     &                         NBAS,NORB,NFRO,NDEL,MxSym,BSLBL,nBSLBL)
5      Implicit Real*8 (a-h,o-z)
6*#include <SysDef.fh>
7      Integer*8 TCONEMO(nTCONEMO),nSym, nBas(MxSym), nOrb(MxSym),
8     & nFro(MxSym), nDel(MxSym)
9      Character BSLBL(nBSLBL)*1
10*
11      NTEST = 0
12      Call iDafile(Lu,iOpt,TCONEMO,nTCONEMO,iDisk)
13      if(NTEST.ge.10) then
14        write(6,*) ' ***************************'
15        write(6,*) ' nTCONEMO:',nTCONEMO
16        write(6,*) ' TCONEMO :',TCONEMO
17      End IF
18      Call dDafile(Lu,iOpt,ECor,   1,       iDisk)
19      if(NTEST.ge.10) then
20        write(6,*) ' ECor    : ',ECor
21      End IF
22      Call iDafile(Lu,iOpt,nSym,   1,       iDisk)
23      if(NTEST.ge.10) then
24        write(6,*) ' nSym    : ',nSym
25      End IF
26      Call iDafile(Lu,iOpt,nBas,   MxSym,   iDisk)
27      if(NTEST.ge.10) then
28        write(6,*) ' nBas    : ',nBas
29      End IF
30      Call iDafile(Lu,iOpt,nOrb,   MxSym,   iDisk)
31      if(NTEST.ge.10) then
32        write(6,*) ' nOrb    : ',nOrb
33      End IF
34      Call iDafile(Lu,iOpt,nFro,   MxSym,   iDisk)
35      if(NTEST.ge.10) then
36        write(6,*) ' nFro    : ',nFro
37      End IF
38      Call iDafile(Lu,iOpt,nDel,   MxSym,   iDisk)
39      if(NTEST.ge.10) then
40        write(6,*) ' nDel    : ',nDel
41      End IF
42      Call cDafile(Lu,iOpt,BSLBL,  nBSLBL,  iDisk)
43      if(NTEST.ge.10) then
44        write(6,*) ' nBSLBL  : ', nBSLBL
45        write(6,*) ' BSLBL   : '
46        write(6,*) BSLBL
47        write(6,*) ' ***************************'
48      End IF
49*
50      Return
51      End
52c $Id$
53