source: trunk/yao/src/analyzers/testANTLR/40eigvvcgmnz.d @ 1

#==========================================================
#                  fichier de DESCRIPTION
#==========================================================
#DEFVAL : permet de définir des valeurs -------------DEFVAL
#defval SZX         20 |   30 |   50 |    80 |   100 |  5
#defval SZXpo2x2   800 | 1800 | 5000 | 12800 | 20000 | 50 | must be = pow(SZX,2) * 2
#defval SZXnx2     840 | 1860 | 5100 | 12960 | 20200 | 60 | must be = (SZX + pow(SZX,2)) * 2
defval SZX         100
defval SZXpo2x2  20000 |  must be = pow(SZX,2) * 2
defval SZXnx2    20200 |  must be = (SZX + pow(SZX,2)) * 2
defval SZXx2       200 |  must be = SZX * 2
defval SZXpo2    10000 |  must be = pow(SZX,2)
# ATTENTION confusion (ds les modules?) entre SZX et SZR : plm faire SZR = SZX !!!!!
#           et aussi entre SZR et SZM !!!!! (plm c'est comme si SZM=SZR)
defval SZR         100 |   200 |  = NR (nbr de maille en longueur)
defval SZXR      10000 | 20000 |  must be = SZX*SZR (nbr de maille)
defval SZXRx2    20000 | 40000 |  must be = SZXR*2  (nbr de maille reel et imag)
#
##defval SZX          10 |   6
##defval SZXpo2x2    200 |  72 |  must be = pow(SZX,2) * 2
##defval SZXnx2      220 |  84 |  must be = (SZX + pow(SZX,2)) * 2
##defval SZXx2        20 |  12 |  must be = SZX * 2
##defval SZXpo2      100 |  36 |  must be = pow(SZX,2)
#
##defval SZR           5 |  1 |  = NR (nbr de maille en longueur)
##defval SZXR         50 |  6 |  must be = SZX*SZR (nbr de maille)
##defval SZXRx2      100 | 12 |  must be = SZXR*2  (nbr de maille reel et imag)
#
defval SZU           0
defval SZT           1
defval SZA           1

#NAME : nom des sources  "hat" --------------------HAT_NAME
hat_name cgmnz

#OPTION : des options de g?n?ration -----------------OPTION
option  O_M1QN3
option  O_GRADTEST
#option O_REAL FLOAT
#option O_EXTOBJ eigvvcgm.o eigvvcgmb.o eigvvcgmd.o adBuffer.o adStack.o
option  O_EXTOBJ cgall.o cgallb.o cgalld.o adBuffer.o adStack.o

#TRAJECTOIRES -----------------------------------------TRAJ
traj Tcal M SZU SZT

#ESPACE ----------------------------------------------SPACE
space  ScalA  M    1      Tcal

#MODULES: les modules et leurs attributs -----------MODULES
modul  Cz         space ScalA noward  output SZX target
#modul Cisd       space ScalA noward  output SZX
#modul BuildM     space ScalA input array SZX output SZXpo2x2
modul  BuildM3DMN space ScalA hidjac input array SZX output SZXpo2x2
modul  Cgall      space ScalA hidjac input array SZXpo2x2 output SZXnx2 tempo | cout
#modul Sqrk       space ScalA hidjac input array SZXx2 output SZXx2 tempo cout
modul  Sqrk       space ScalA hidjac input array SZX   output SZXx2 tempo | cout
#modul Norm       space ScalA hidjac input array SZXpo2x2 output SZXpo2x2 tempo cout
#modul Norm       space ScalA hidjac input array SZXpo2  output SZXpo2 tempo cout
modul  Norm       space ScalA hidjac input array SZXpo2  output SZXpo2 tempo | cout
#modul Excit      space ScalA hidjac input array SZXpo2  output SZXpo2 tempo cout
modul  Scalex     space ScalA hidjac input array SZXpo2  output SZXpo2 tempo  cout
#
modul  Phi        space ScalA hidjac input array SZX output SZXRx2 tempo | cout

#CONNECTIONS: liens sorties->entrées ----------------CTIN-M
#ctin BuildM 1..SZX       from Cz     1..SZX       1
#ctin Cgall  1..SZXpo2x2  from BuildM 1..SZXpo2x2  1
exec disp_ct_in

#ORDER: ----------------------------------------------ORDER
#    ordre de parcourt de l'espace et de calcul des modules
order modinspace ScalA
   order YA1
#          BuildM Cgall
           BuildM3DMN Cgall
                 Sqrk
     Norm
#    Excit
     Scalex
                 Phi
   forder
forder
#
order spaceintraj Tcal
    ScalA
forder
#

#USER FUNCTIONS: --------------------------------------UFCT
#       instructions sp?cifiques de l'application
insert_fct     xdisplay
insert_fct     xinit_appli
insert_fct arg xset_freq
insert_fct arg xset_delta
insert_fct     xinit_cz
insert_fct arg xperturb_cz
insert_fct arg xsetstep
insert_fct arg xset_zs
#insert_fct arg xinit_cisd

#FIN ================================================== END