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