Initial version of donated sources by Avertec, 3.4p5.
[tas-yagle.git] / distrib / sources / tas / stm / stm_modiv_print.c
1 /****************************************************************************/
2 /* */
3 /* Chaine de CAO & VLSI AVERTEC */
4 /* */
5 /* Produit : STM Version 1.00 */
6 /* Fichier : stm_modiv_print.c */
7 /* */
8 /* (c) copyright 2000 AVERTEC */
9 /* Tous droits reserves */
10 /* */
11 /* Auteur(s) : Grégoire Avot */
12 /* */
13 /****************************************************************************/
14
15 #include "stm.h"
16
17 void stm_modiv_print( FILE *f, timing_iv *iv )
18 {
19 int ne;
20 int ns;
21
22 fprintf( f, "\t\tiv (\n" );
23
24 fprintf( f, "\t\t\tnve ( %d )\n", iv->NVE );
25 fprintf( f, "\t\t\tnvs ( %d )\n", iv->NVS );
26
27 fprintf( f, "\t\t\tve ( " );
28 for( ne = 0 ; ne < iv->NVE ; ne++ ) {
29 fprintf( f, "%g ", iv->VE[ne] );
30 }
31 fprintf( f, ")\n" );
32
33 fprintf( f, "\t\t\tvs ( " );
34 for( ns = 0 ; ns < iv->NVS ; ns++ ) {
35 fprintf( f, "%g ", iv->VS[ns] );
36 }
37 fprintf( f, ")\n" );
38
39 fprintf( f, "\t\t\tcurrent (\n" );
40 for( ne = 0 ; ne < iv->NVE ; ne++ ) {
41 fprintf( f, "\t\t\t ( " );
42 for( ns = 0 ; ns < iv->NVS ; ns++ ) {
43 fprintf( f, "%g ", stm_modiv_getis( iv, ne, ns ) );
44 }
45 fprintf( f, ")\n" );
46 }
47 fprintf( f, "\t\t\t)\n" );
48
49 fprintf( f, "\t\t\tconf ( %.5g %.5g %.5g %.5g)\n", iv->IV_CONF.PCONF0,
50 iv->IV_CONF.PCONF1,
51 iv->IV_CONF.IRAP,
52 iv->IV_CONF.CI
53 );
54 fprintf( f, "\t\t\tinput ( %.5g %.5g %.5g %.5g)\n", iv->IV_INPUT.VT,
55 iv->IV_INPUT.VI,
56 iv->IV_INPUT.VF,
57 iv->IV_INPUT.VTH
58 );
59 fprintf( f, "\t\t\tinitial ( %.5g)\n", iv->IV_INIT.VI );
60 fprintf( f, "\t\t\t)\n" );
61 fprintf( f, "\t\t )\n" );
62 }