mirror of
https://github.com/LCPQ/Cost_package.git
synced 2024-11-18 12:03:46 +01:00
45 lines
1.2 KiB
Plaintext
Executable File
45 lines
1.2 KiB
Plaintext
Executable File
**************************************************************************
|
|
ecrimat ecrimat ecrimat ecrimat ecrimat ecrimat ecrimat
|
|
**************************************************************************
|
|
|
|
Programme d'ecriture sur papier de la matrice d'IC calculee par CASDI
|
|
|
|
Donnees :
|
|
call LECNAM('&ECRM',namel,5,ierr,1)
|
|
call namela(namel,prefix,'PREFIX')
|
|
call namela(namel,DET,'DET')
|
|
call namela(namel,MAT,'MAT')
|
|
call namela(namel,CDI,'CDI')
|
|
call namela(namel,INFO,'INFO')
|
|
call namela(namel,DAVEC,'DAVEC')
|
|
call nameli(namel,PRECIS,'PRECIS',4)
|
|
call namell(namel,YDETV,'YDETV',1)
|
|
call nameli(namel,NPRINT,'NPRINT',4)
|
|
|
|
|
|
Fichiers en entree :
|
|
|
|
davec de casdi: calcul='MD' ou calcul='D'
|
|
det de casdet
|
|
mat de casdi: calcul='M'
|
|
info de molcost
|
|
cdi de casdet
|
|
|
|
|
|
exemple :
|
|
|
|
seward sewin
|
|
scf scfin
|
|
motra motrain
|
|
molcost < molcostin
|
|
casdet < casdetin
|
|
casdi90 < casdiinM
|
|
casdi90 < casdiinD
|
|
ecrimat << EOF
|
|
&ECRM prefix='...' /
|
|
EOF
|
|
|
|
- ou, dans casdiinM, on calcul='M' (creation d'un fichier .mat contenant la matrice)
|
|
- dans casdiinD, on calcul='D' (lecture du fichier .mat, diagonalisation)
|
|
- dans ecrimat, la seule donnée obligatoire est prefix
|