Changeset 663 in Sophya for trunk/SophyaLib/NTools


Ignore:
Timestamp:
Nov 29, 1999, 1:48:11 PM (26 years ago)
Author:
ansari
Message:

Preparation pour tag V_Oct99 , Reza 29/11/99

Location:
trunk/SophyaLib/NTools
Files:
1 added
3 edited

Legend:

Unmodified
Added
Removed

  • trunk/SophyaLib/NTools/Makefile

    r510 r663  
    33all: $(LIB)libNTools.a
    44clean:
    5         rm -f $(OBJ)cimage.o $(OBJ)cspline.o $(OBJ)cvector.o $(OBJ)datacards.o $(OBJ)datatypes.o $(OBJ)dates.o $(OBJ)difeq.o $(OBJ)dvlist.o $(OBJ)dynccd.o $(OBJ)fct1dfit.o $(OBJ)fct2dfit.o $(OBJ)fftserver.o $(OBJ)generaldata.o $(OBJ)generalfit.o $(OBJ)hisprof.o $(OBJ)histos.o $(OBJ)histos2.o $(OBJ)imageop.o $(OBJ)integ.o $(OBJ)linfit.o $(OBJ)matrix.o $(OBJ)median.o $(OBJ)ntupintf.o $(OBJ)ntuple.o $(OBJ)outilsinit.o $(OBJ)perandom.o $(OBJ)poly.o $(OBJ)pversion.o $(OBJ)rk4cdifeq.o $(OBJ)rzimage.o $(OBJ)simplesort.o $(OBJ)tabmath.o $(OBJ)tmatrix.o $(OBJ)tvector.o $(OBJ)utils.o $(OBJ)datime.o $(OBJ)fftpackc.o $(OBJ)matxop.o $(OBJ)nbmath.o $(OBJ)nbrandom.o $(OBJ)nbtri.o $(OBJ)strutil.o
    6         rm $(LIB)libNTools.a
    7 $(LIB)libNTools.a : $(OBJ)cimage.o $(OBJ)cspline.o  $(OBJ)cvector.o $(OBJ)datacards.o $(OBJ)datatypes.o $(OBJ)dates.o $(OBJ)datime.o $(OBJ)difeq.o $(OBJ)dvlist.o $(OBJ)dynccd.o $(OBJ)fct1dfit.o $(OBJ)fct2dfit.o $(OBJ)fftpackc.o $(OBJ)fftserver.o $(OBJ)generaldata.o $(OBJ)generalfit.o $(OBJ)hisprof.o $(OBJ)histos.o $(OBJ)histos2.o $(OBJ)imageop.o $(OBJ)integ.o $(OBJ)linfit.o $(OBJ)matrix.o $(OBJ)matxop.o $(OBJ)median.o $(OBJ)nbmath.o $(OBJ)nbrandom.o $(OBJ)nbtri.o $(OBJ)ntupintf.o $(OBJ)ntuple.o $(OBJ)outilsinit.o $(OBJ)perandom.o $(OBJ)poly.o $(OBJ)pversion.o $(OBJ)rk4cdifeq.o $(OBJ)rzimage.o $(OBJ)simplesort.o $(OBJ)strutil.o $(OBJ)tabmath.o $(OBJ)tmatrix.o $(OBJ)tvector.o $(OBJ)utils.o
     5        rm -f $(OBJ)cimage.o $(OBJ)cspline.o $(OBJ)cvector.o $(OBJ)datacards.o $(OBJ)datatypes.o $(OBJ)dates.o $(OBJ)difeq.o $(OBJ)dvlist.o $(OBJ)dynccd.o $(OBJ)fct1dfit.o $(OBJ)fct2dfit.o $(OBJ)fftserver.o $(OBJ)generaldata.o $(OBJ)generalfit.o $(OBJ)hisprof.o $(OBJ)histos.o $(OBJ)histos2.o $(OBJ)imageop.o $(OBJ)integ.o $(OBJ)linfit.o $(OBJ)matrix.o $(OBJ)median.o $(OBJ)ntupintf.o $(OBJ)ntuple.o $(OBJ)outilsinit.o $(OBJ)perandom.o $(OBJ)poly.o $(OBJ)rk4cdifeq.o $(OBJ)rzimage.o $(OBJ)simplesort.o $(OBJ)tabmath.o $(OBJ)tmatrix.o $(OBJ)tvector.o $(OBJ)utils.o $(OBJ)datime.o $(OBJ)fftpackc.o $(OBJ)matxop.o $(OBJ)nbmath.o $(OBJ)nbrandom.o $(OBJ)nbtri.o $(OBJ)strutil.o
     6        rm -f $(LIB)libNTools.a
     7$(LIB)libNTools.a : $(OBJ)cimage.o $(OBJ)cspline.o $(OBJ)cvector.o $(OBJ)datacards.o $(OBJ)datatypes.o $(OBJ)dates.o $(OBJ)datime.o $(OBJ)difeq.o $(OBJ)dvlist.o $(OBJ)dynccd.o $(OBJ)fct1dfit.o $(OBJ)fct2dfit.o $(OBJ)fftpackc.o $(OBJ)fftserver.o $(OBJ)generaldata.o $(OBJ)generalfit.o $(OBJ)hisprof.o $(OBJ)histos.o $(OBJ)histos2.o $(OBJ)imageop.o $(OBJ)integ.o $(OBJ)linfit.o $(OBJ)matrix.o $(OBJ)matxop.o $(OBJ)median.o $(OBJ)nbmath.o $(OBJ)nbrandom.o $(OBJ)nbtri.o $(OBJ)ntupintf.o $(OBJ)ntuple.o $(OBJ)outilsinit.o $(OBJ)perandom.o $(OBJ)poly.o $(OBJ)rk4cdifeq.o $(OBJ)rzimage.o $(OBJ)simplesort.o $(OBJ)strutil.o $(OBJ)tabmath.o $(OBJ)tmatrix.o $(OBJ)tvector.o $(OBJ)utils.o
    88        $(ARCXX) $(ARCXXFLAGS) $@ $?
    99ifeq ($(CXX),cxx)
    10         $(CXX) $? $(CPPFLAGS) $(CXXFLAGS) -L$(LIB) -lNTools -lSamba -o $(OBJ)xx.x -Hf
     10        $(CXX) $? $(CPPFLAGS) $(CXXFLAGS) -L$(LIB) -lNTools -lSysTools -o $(OBJ)xx.x -Hf
    1111endif
    1212 
    … …  
    1919 $(INC)objfio.h \
    2020 $(INC)anydataobj.h fct1dfit.h generalfit.h \
    21  matrix.h peida.h utils.h fmath.h cvector.h generaldata.h ntupintf.h \
    22  poly.h histos.h nbconst.h
     21 tvector.h tmatrix.h $(INC)ndatablock.h \
     22 generaldata.h ntupintf.h poly.h peida.h utils.h fmath.h histos.h \
     23 nbconst.h
    2324$(OBJ)cspline.o: cspline.cc $(INC)machdefs.h \
    2425 $(INC)pclassids.h nbtri.h cspline.h \
    25  cvector.h matrix.h peida.h utils.h \
    26  $(INC)perrors.h \
    27  $(INC)pexceptions.h fmath.h \
    28  $(INC)ppersist.h \
    29  $(INC)md5.h
     26 $(INC)pexceptions.h
    3027$(OBJ)cvector.o: cvector.cc $(INC)machdefs.h \
    3128 $(INC)pclassids.h cvector.h matrix.h \
    3229 peida.h utils.h $(INC)perrors.h \
    3330 $(INC)pexceptions.h fmath.h \
    34  $(INC)ppersist.h \
    35  $(INC)md5.h generalfit.h generaldata.h \
    36  $(INC)objfio.h \
    37  $(INC)anydataobj.h ntupintf.h poly.h \
    38  tvector.h tmatrix.h $(INC)ndatablock.h
     31 $(INC)anydataobj.h \
     32 $(INC)ppersist.h \
     33 $(INC)md5.h generalfit.h tvector.h \
     34 tmatrix.h $(INC)ndatablock.h generaldata.h \
     35 $(INC)objfio.h ntupintf.h poly.h
    3936$(OBJ)datacards.o: datacards.cc $(INC)machdefs.h \
    4037 $(INC)pclassids.h datacards.h peida.h \
    … …  
    5047$(OBJ)difeq.o: difeq.cc difeq.h $(INC)machdefs.h \
    5148 $(INC)pclassids.h \
    52  $(INC)pexceptions.h cvector.h matrix.h \
    53  peida.h utils.h $(INC)perrors.h fmath.h \
    54  $(INC)ppersist.h \
    55  $(INC)md5.h \
     49 $(INC)pexceptions.h tvector.h tmatrix.h \
     50 $(INC)ppersist.h \
     51 $(INC)md5.h \
     52 $(INC)anydataobj.h \
     53 $(INC)ndatablock.h \
    5654 $(INC)ctimer.h
    5755$(OBJ)dvlist.o: dvlist.cc $(INC)machdefs.h \
    … …  
    6967 $(INC)pexceptions.h \
    7068 $(INC)md5.h peida.h utils.h \
    71  $(INC)perrors.h cvector.h matrix.h \
    72  nbrandom.h cimage.h rzimage.h rzvect.h datatypes.h dvlist.h dynccd.h
     69 $(INC)perrors.h tvector.h tmatrix.h \
     70 $(INC)ndatablock.h nbrandom.h cimage.h \
     71 rzimage.h rzvect.h datatypes.h dvlist.h dynccd.h
    7372$(OBJ)fct1dfit.o: fct1dfit.cc $(INC)machdefs.h \
    7473 $(INC)pclassids.h fct1dfit.h generalfit.h \
    75  $(INC)pexceptions.h matrix.h peida.h \
    76  utils.h $(INC)perrors.h fmath.h \
    77  $(INC)ppersist.h \
    78  $(INC)md5.h cvector.h generaldata.h \
    79  $(INC)objfio.h \
    80  $(INC)anydataobj.h ntupintf.h poly.h \
    81  nbconst.h tabmath.h
     74 $(INC)pexceptions.h tvector.h tmatrix.h \
     75 $(INC)ppersist.h \
     76 $(INC)md5.h \
     77 $(INC)anydataobj.h \
     78 $(INC)ndatablock.h generaldata.h \
     79 $(INC)objfio.h ntupintf.h poly.h peida.h \
     80 utils.h $(INC)perrors.h fmath.h nbconst.h \
     81 tabmath.h
    8282$(OBJ)fct2dfit.o: fct2dfit.cc $(INC)machdefs.h \
    8383 $(INC)pclassids.h fct2dfit.h generalfit.h \
    84  $(INC)pexceptions.h matrix.h peida.h \
    85  utils.h $(INC)perrors.h fmath.h \
    86  $(INC)ppersist.h \
    87  $(INC)md5.h cvector.h generaldata.h \
    88  $(INC)objfio.h \
    89  $(INC)anydataobj.h ntupintf.h poly.h \
    90  nbconst.h tabmath.h simps2d.h
    91 $(OBJ)fftserver.o: fftserver.cc fftserver.h cvector.h matrix.h peida.h \
    92  $(INC)machdefs.h \
    93  $(INC)pclassids.h utils.h \
    94  $(INC)perrors.h \
    95  $(INC)pexceptions.h fmath.h \
    96  $(INC)ppersist.h \
    97  $(INC)md5.h
     84 $(INC)pexceptions.h tvector.h tmatrix.h \
     85 $(INC)ppersist.h \
     86 $(INC)md5.h \
     87 $(INC)anydataobj.h \
     88 $(INC)ndatablock.h generaldata.h \
     89 $(INC)objfio.h ntupintf.h poly.h peida.h \
     90 utils.h $(INC)perrors.h fmath.h nbconst.h \
     91 tabmath.h simps2d.h
     92$(OBJ)fftserver.o: fftserver.cc fftserver.h tvector.h tmatrix.h \
     93 $(INC)machdefs.h \
     94 $(INC)pclassids.h \
     95 $(INC)ppersist.h \
     96 $(INC)pexceptions.h \
     97 $(INC)md5.h \
     98 $(INC)anydataobj.h \
     99 $(INC)ndatablock.h
    98100$(OBJ)generaldata.o: generaldata.cc \
    99101 $(INC)machdefs.h \
    100102 $(INC)pclassids.h strutil.h nbtri.h \
    101  generalfit.h $(INC)pexceptions.h matrix.h \
    102  peida.h utils.h $(INC)perrors.h fmath.h \
    103  $(INC)ppersist.h \
    104  $(INC)md5.h cvector.h generaldata.h \
    105  $(INC)objfio.h \
    106  $(INC)anydataobj.h ntupintf.h poly.h
     103 generalfit.h $(INC)pexceptions.h tvector.h \
     104 tmatrix.h $(INC)ppersist.h \
     105 $(INC)md5.h \
     106 $(INC)anydataobj.h \
     107 $(INC)ndatablock.h generaldata.h \
     108 $(INC)objfio.h ntupintf.h poly.h peida.h \
     109 utils.h $(INC)perrors.h fmath.h
    107110$(OBJ)generalfit.o: generalfit.cc $(INC)machdefs.h \
    108111 $(INC)pclassids.h \
    109  $(INC)pexceptions.h generalfit.h matrix.h \
    110  peida.h utils.h $(INC)perrors.h fmath.h \
    111  $(INC)ppersist.h \
    112  $(INC)md5.h cvector.h generaldata.h \
    113  $(INC)objfio.h \
    114  $(INC)anydataobj.h ntupintf.h poly.h
     112 $(INC)pexceptions.h generalfit.h tvector.h \
     113 tmatrix.h $(INC)ppersist.h \
     114 $(INC)md5.h \
     115 $(INC)anydataobj.h \
     116 $(INC)ndatablock.h generaldata.h \
     117 $(INC)objfio.h ntupintf.h poly.h peida.h \
     118 utils.h $(INC)perrors.h fmath.h
    115119$(OBJ)hisprof.o: hisprof.cc $(INC)machdefs.h \
    116120 $(INC)pclassids.h hisprof.h peida.h utils.h \
    117121 $(INC)perrors.h \
    118  $(INC)pexceptions.h fmath.h cvector.h \
    119  matrix.h $(INC)ppersist.h \
    120  $(INC)md5.h histos.h \
    121  $(INC)objfio.h \
    122  $(INC)anydataobj.h
     122 $(INC)pexceptions.h fmath.h tvector.h \
     123 tmatrix.h $(INC)ppersist.h \
     124 $(INC)md5.h \
     125 $(INC)anydataobj.h \
     126 $(INC)ndatablock.h histos.h \
     127 $(INC)objfio.h
    123128$(OBJ)histos.o: histos.cc $(INC)machdefs.h \
    124129 $(INC)pclassids.h histos.h \
    … …  
    128133 $(INC)pexceptions.h \
    129134 $(INC)md5.h peida.h utils.h \
    130  $(INC)perrors.h fmath.h cvector.h matrix.h \
    131  poly.h strutil.h generalfit.h generaldata.h ntupintf.h
     135 $(INC)perrors.h fmath.h tvector.h tmatrix.h \
     136 $(INC)ndatablock.h poly.h strutil.h \
     137 generalfit.h generaldata.h ntupintf.h
    132138$(OBJ)histos2.o: histos2.cc $(INC)machdefs.h \
    133139 $(INC)pclassids.h histos2.h peida.h utils.h \
    … …  
    137143 $(INC)anydataobj.h \
    138144 $(INC)ppersist.h \
    139  $(INC)md5.h cvector.h matrix.h generalfit.h \
     145 $(INC)md5.h tvector.h tmatrix.h \
     146 $(INC)ndatablock.h generalfit.h \
    140147 generaldata.h ntupintf.h poly.h
    141148$(OBJ)imageop.o: imageop.cc $(INC)machdefs.h \
    … …  
    146153 $(INC)anydataobj.h \
    147154 $(INC)ppersist.h \
    148  $(INC)md5.h cvector.h matrix.h datatypes.h \
    149  imageop.h cimage.h rzimage.h rzvect.h dvlist.h cspline.h dynccd.h \
    150  nbtri.h
     155 $(INC)md5.h tvector.h tmatrix.h \
     156 $(INC)ndatablock.h datatypes.h imageop.h \
     157 cimage.h rzimage.h rzvect.h dvlist.h cspline.h dynccd.h nbtri.h
    151158$(OBJ)integ.o: integ.cc integ.h $(INC)machdefs.h \
    152159 $(INC)pclassids.h \
    153  $(INC)pexceptions.h generalfit.h matrix.h \
    154  peida.h utils.h $(INC)perrors.h fmath.h \
    155  $(INC)ppersist.h \
    156  $(INC)md5.h cvector.h generaldata.h \
    157  $(INC)objfio.h \
    158  $(INC)anydataobj.h ntupintf.h poly.h
     160 $(INC)pexceptions.h generalfit.h tvector.h \
     161 tmatrix.h $(INC)ppersist.h \
     162 $(INC)md5.h \
     163 $(INC)anydataobj.h \
     164 $(INC)ndatablock.h generaldata.h \
     165 $(INC)objfio.h ntupintf.h poly.h peida.h \
     166 utils.h $(INC)perrors.h fmath.h
    159167$(OBJ)linfit.o: linfit.cc $(INC)machdefs.h \
    160168 $(INC)pclassids.h peida.h utils.h \
    161169 $(INC)perrors.h \
    162170 $(INC)pexceptions.h fmath.h linfit.h \
    163  matrix.h $(INC)ppersist.h \
    164  $(INC)md5.h cvector.h
     171 tvector.h tmatrix.h $(INC)ppersist.h \
     172 $(INC)md5.h \
     173 $(INC)anydataobj.h \
     174 $(INC)ndatablock.h
    165175$(OBJ)matrix.o: matrix.cc $(INC)machdefs.h \
    166176 $(INC)pclassids.h peida.h utils.h \
    167177 $(INC)perrors.h \
    168178 $(INC)pexceptions.h fmath.h matrix.h \
     179 $(INC)anydataobj.h \
    169180 $(INC)ppersist.h \
    170181 $(INC)md5.h cvector.h generalfit.h \
    171  generaldata.h $(INC)objfio.h \
    172  $(INC)anydataobj.h ntupintf.h poly.h \
    173  tmatrix.h $(INC)ndatablock.h
     182 tvector.h tmatrix.h $(INC)ndatablock.h \
     183 generaldata.h $(INC)objfio.h ntupintf.h \
     184 poly.h
    174185$(OBJ)median.o: median.cc
    175186$(OBJ)ntupintf.o: ntupintf.cc ntupintf.h \
    … …  
    191202 $(INC)perrors.h \
    192203 $(INC)pexceptions.h fmath.h \
    193  $(INC)ppersist.h \
    194  $(INC)md5.h cvector.h poly.h dvlist.h \
    195  $(INC)objfio.h \
    196  $(INC)anydataobj.h histos.h histos2.h \
    197  hisprof.h ntuple.h ntupintf.h generaldata.h tmatrix.h \
    198  $(INC)ndatablock.h tvector.h cimage.h \
     204 $(INC)anydataobj.h \
     205 $(INC)ppersist.h \
     206 $(INC)md5.h cvector.h poly.h \
     207 $(INC)objfio.h tvector.h tmatrix.h \
     208 $(INC)ndatablock.h dvlist.h histos.h \
     209 histos2.h hisprof.h ntuple.h ntupintf.h generaldata.h cimage.h \
    199210 rzimage.h rzvect.h datatypes.h tabmath.h nbconst.h dates.h datime.h
    200211$(OBJ)perandom.o: perandom.cc $(INC)machdefs.h \
    … …  
    205216 $(INC)ppersist.h \
    206217 $(INC)md5.h peida.h utils.h \
    207  $(INC)perrors.h fmath.h cvector.h matrix.h \
    208  nbrandom.h pemath.h
     218 $(INC)perrors.h fmath.h tvector.h tmatrix.h \
     219 $(INC)ndatablock.h nbrandom.h pemath.h
    209220$(OBJ)poly.o: poly.cc $(INC)machdefs.h \
    210  $(INC)pclassids.h poly.h peida.h utils.h \
    211  $(INC)perrors.h \
    212  $(INC)pexceptions.h fmath.h cvector.h \
    213  matrix.h $(INC)ppersist.h \
    214  $(INC)md5.h linfit.h
    215 $(OBJ)pversion.o: pversion.cc pversion.h \
    216  $(INC)peidainit.h \
    217  $(INC)machdefs.h \
    218  $(INC)pclassids.h
     221 $(INC)pclassids.h poly.h \
     222 $(INC)objfio.h \
     223 $(INC)anydataobj.h \
     224 $(INC)ppersist.h \
     225 $(INC)pexceptions.h \
     226 $(INC)md5.h peida.h utils.h \
     227 $(INC)perrors.h fmath.h tvector.h tmatrix.h \
     228 $(INC)ndatablock.h linfit.h
    219229$(OBJ)rk4cdifeq.o: rk4cdifeq.cc $(INC)machdefs.h \
    220230 $(INC)pclassids.h rk4cdifeq.h difeq.h \
    221  $(INC)pexceptions.h cvector.h matrix.h \
    222  peida.h utils.h $(INC)perrors.h fmath.h \
    223  $(INC)ppersist.h \
    224  $(INC)md5.h \
     231 $(INC)pexceptions.h tvector.h tmatrix.h \
     232 $(INC)ppersist.h \
     233 $(INC)md5.h \
     234 $(INC)anydataobj.h \
     235 $(INC)ndatablock.h \
    225236 $(INC)ctimer.h
    226237$(OBJ)rzimage.o: rzimage.cc $(INC)machdefs.h \
    … …  
    231242 $(INC)md5.h dvlist.h \
    232243 $(INC)objfio.h \
    233  $(INC)anydataobj.h generalfit.h matrix.h \
    234  peida.h utils.h fmath.h cvector.h generaldata.h ntupintf.h poly.h
     244 $(INC)anydataobj.h generalfit.h tvector.h \
     245 tmatrix.h $(INC)ndatablock.h generaldata.h \
     246 ntupintf.h poly.h peida.h utils.h fmath.h
    235247$(OBJ)simplesort.o: simplesort.cc $(INC)machdefs.h \
    236248 $(INC)pclassids.h simplesort.h peida.h \
    … …  
    248260 $(INC)anydataobj.h \
    249261 $(INC)ndatablock.h \
    250  $(INC)objfio.h matrix.h peida.h utils.h \
    251  $(INC)perrors.h fmath.h generalfit.h \
    252  cvector.h generaldata.h ntupintf.h poly.h tvector.h
     262 $(INC)objfio.h generalfit.h tvector.h \
     263 generaldata.h ntupintf.h poly.h peida.h utils.h \
     264 $(INC)perrors.h fmath.h
    253265$(OBJ)tvector.o: tvector.cc $(INC)machdefs.h \
    254266 $(INC)pclassids.h \
    … …  
    258270 $(INC)anydataobj.h \
    259271 $(INC)ndatablock.h \
    260  $(INC)objfio.h generalfit.h matrix.h \
    261  peida.h utils.h $(INC)perrors.h fmath.h \
    262  cvector.h generaldata.h ntupintf.h poly.h
     272 $(INC)objfio.h generalfit.h generaldata.h \
     273 ntupintf.h poly.h peida.h utils.h \
     274 $(INC)perrors.h fmath.h
    263275$(OBJ)utils.o: utils.cc $(INC)machdefs.h \
    264276 $(INC)pclassids.h utils.h \

  • trunk/SophyaLib/NTools/fftpackc.c

    r459 r663  
    88/* #include "f2c.h" -- Remplace par ce qui suit */
    99#include "fftpackc.h"
     10#include <math.h>
    1011
    1112/*  ------ File cfftb.f ------ */
    … …  
    2627    iw1 = *n + *n + 1;
    2728    iw2 = iw1 + *n + *n;
    28     cfftb1_(n, &c__[1], &wsave[1], &wsave[iw1], &wsave[iw2]);
     29    cfftb1_(n, &c__[1], &wsave[1], &wsave[iw1], (int *)&wsave[iw2]);  /* (int *) ajoute - Reza 29/11/99 */
    2930    return 0;
    3031} /* cfftb_ */
    … …  
    179180    iw1 = *n + *n + 1;
    180181    iw2 = iw1 + *n + *n;
    181     cfftf1_(n, &c__[1], &wsave[1], &wsave[iw1], &wsave[iw2]);
     182    cfftf1_(n, &c__[1], &wsave[1], &wsave[iw1], (int *)&wsave[iw2]);   /* (int *) ajoute - Reza 29/11/99 */
    182183    return 0;
    183184} /* cfftf_ */
    … …  
    330331    iw1 = *n + *n + 1;
    331332    iw2 = iw1 + *n + *n;
    332     cffti1_(n, &wsave[iw1], &wsave[iw2]);
     333    cffti1_(n, &wsave[iw1], (int *)&wsave[iw2]);  /*  (int *) ajoute Reza 29/11/99 */
    333334    return 0;
    334335} /* cffti_ */
    … …  
    344345    integer i__1, i__2, i__3;
    345346
    346     /* Builtin functions */
    347     double cos(doublereal), sin(doublereal);
     347    /* Builtin functions */ 
     348/*    double cos(doublereal), sin(doublereal);   commente, remplace par math.h - Reza  29/11/99 */
    348349
    349350    /* Local variables */
    … …  
    645646
    646647    /* Builtin functions */
    647     double cos(doublereal);
     648/*    double cos(doublereal);    commente - Remplace par math.h  Reza 29/11/99 */
    648649
    649650    /* Local variables */
    … …  
    762763
    763764    /* Builtin functions */
    764     double sin(doublereal), cos(doublereal);
     765/*    double sin(doublereal), cos(doublereal);  commente - Remplace par math.h  Reza 29/11/99 */
    765766
    766767    /* Local variables */
    … …  
    807808
    808809    /* Builtin functions */
    809     double cos(doublereal), sin(doublereal);
     810/*    double cos(doublereal), sin(doublereal);  commente - Remplace par math.h  Reza 29/11/99 */
    810811
    811812    /* Local variables */
    … …  
    27282729
    27292730    /* Builtin functions */
    2730     double cos(doublereal), sin(doublereal);
     2731/*    double cos(doublereal), sin(doublereal);  commente - Remplace par math.h  Reza 29/11/99 */
    27312732
    27322733    /* Local variables */
    … …  
    34603461
    34613462    /* Builtin functions */
    3462     double cos(doublereal), sin(doublereal);
     3463/*    double cos(doublereal), sin(doublereal);    */
    34633464
    34643465    /* Local variables */
    … …  
    38073808        return 0;
    38083809    }
    3809     rfftb1_(n, &r__[1], &wsave[1], &wsave[*n + 1], &wsave[(*n << 1) + 1]);
     3810    rfftb1_(n, &r__[1], &wsave[1], &wsave[*n + 1], (int *)&wsave[(*n << 1) + 1]);   /* (int *) rajoute Reza 29/11/99 */
    38103811    return 0;
    38113812} /* rfftb_ */
    … …  
    39533954        return 0;
    39543955    }
    3955     rfftf1_(n, &r__[1], &wsave[1], &wsave[*n + 1], &wsave[(*n << 1) + 1]);
     3956    rfftf1_(n, &r__[1], &wsave[1], &wsave[*n + 1], (int *)&wsave[(*n << 1) + 1]); /* (int *) rajoute Reza 29/11/99 */
    39563957    return 0;
    39573958} /* rfftf_ */
    … …  
    40924093        return 0;
    40934094    }
    4094     rffti1_(n, &wsave[*n + 1], &wsave[(*n << 1) + 1]);
     4095    rffti1_(n, &wsave[*n + 1], (int *)&wsave[(*n << 1) + 1]); /* (int *) rajoute Reza 29/11/99 */
    40954096    return 0;
    40964097} /* rffti_ */
    … …  
    41074108
    41084109    /* Builtin functions */
    4109     double cos(doublereal), sin(doublereal);
     4110/*   double cos(doublereal), sin(doublereal);  Remplace par math.h , Reza 29/11/99 */
    41104111
    41114112    /* Local variables */
    … …  
    43194320    iw2 = iw1 + np1;
    43204321    iw3 = iw2 + np1;
    4321     sint1_(n, &x[1], &wsave[1], &wsave[iw1], &wsave[iw2], &wsave[iw3]);
     4322    sint1_(n, &x[1], &wsave[1], &wsave[iw1], &wsave[iw2], (int *)&wsave[iw3]);  /* (int *) rajoute Reza 29/11/99 */
    43224323    return 0;
    43234324} /* sint_ */
    … …  
    44204421
    44214422    /* Builtin functions */
    4422     double sin(doublereal);
     4423/*    double sin(doublereal);  remplace par math.h , Reza 29/11/99 */
    44234424
    44244425    /* Local variables */
    … …  
    44654466    iw1 = *n + *n + 1;
    44664467    iw2 = iw1 + *n + *n;
    4467     cdfftb1_(n, &c__[1], &wsave[1], &wsave[iw1], &wsave[iw2]);
     4468    cdfftb1_(n, &c__[1], &wsave[1], &wsave[iw1], (int *)&wsave[iw2]); /* (int *) rajoute Reza 29/11/99 */
    44684469    return 0;
    44694470} /* cdfftb_ */
    … …  
    46184619    iw1 = *n + *n + 1;
    46194620    iw2 = iw1 + *n + *n;
    4620     cdfftf1_(n, &c__[1], &wsave[1], &wsave[iw1], &wsave[iw2]);
     4621    cdfftf1_(n, &c__[1], &wsave[1], &wsave[iw1], (int *)&wsave[iw2]); /* (int *) rajoute Reza 29/11/99 */
    46214622    return 0;
    46224623} /* cdfftf_ */
    … …  
    47694770    iw1 = *n + *n + 1;
    47704771    iw2 = iw1 + *n + *n;
    4771     cdffti1_(n, &wsave[iw1], &wsave[iw2]);
     4772    cdffti1_(n, &wsave[iw1], (int *)&wsave[iw2]); /* (int *) rajoute Reza 29/11/99 */
    47724773    return 0;
    47734774} /* cdffti_ */
    … …  
    47844785
    47854786    /* Builtin functions */
    4786     double cos(doublereal), sin(doublereal);
     4787/*    double cos(doublereal), sin(doublereal);  remplace par math.h  Reza 29/11/99 */
    47874788
    47884789    /* Local variables */
    … …  
    50845085
    50855086    /* Builtin functions */
    5086     double cos(doublereal);
     5087/*    double cos(doublereal); remplace par math.h  Reza 29/11/99 */
    50875088
    50885089    /* Local variables */
    … …  
    52015202
    52025203    /* Builtin functions */
    5203     double sin(doublereal), cos(doublereal);
     5204/*    double sin(doublereal), cos(doublereal);  remplace par math.h  Reza 29/11/99 */
    52045205
    52055206    /* Local variables */
    … …  
    52465247
    52475248    /* Builtin functions */
    5248     double cos(doublereal), sin(doublereal);
     5249/*    double cos(doublereal), sin(doublereal);  remplace par math.h  Reza 29/11/99  */
    52495250
    52505251    /* Local variables */
    … …  
    71677168
    71687169    /* Builtin functions */
    7169     double cos(doublereal), sin(doublereal);
     7170/*    double cos(doublereal), sin(doublereal);  remplace par math.h  Reza 29/11/99 */
    71707171
    71717172    /* Local variables */
    … …  
    78997900
    79007901    /* Builtin functions */
    7901     double cos(doublereal), sin(doublereal);
     7902/*    double cos(doublereal), sin(doublereal);   */
    79027903
    79037904    /* Local variables */
    … …  
    82468247        return 0;
    82478248    }
    8248     dfftb1_(n, &r__[1], &wsave[1], &wsave[*n + 1], &wsave[(*n << 1) + 1]);
     8249    dfftb1_(n, &r__[1], &wsave[1], &wsave[*n + 1], (int *)&wsave[(*n << 1) + 1]); /* (int *) rajoute Reza 29/11/99 */
    82498250    return 0;
    82508251} /* dfftb_ */
    … …  
    83928393        return 0;
    83938394    }
    8394     dfftf1_(n, &r__[1], &wsave[1], &wsave[*n + 1], &wsave[(*n << 1) + 1]);
     8395    dfftf1_(n, &r__[1], &wsave[1], &wsave[*n + 1], (int *)&wsave[(*n << 1) + 1]);/* (int *) rajoute Reza 29/11/99 */
    83958396    return 0;
    83968397} /* dfftf_ */
    … …  
    85318532        return 0;
    85328533    }
    8533     dffti1_(n, &wsave[*n + 1], &wsave[(*n << 1) + 1]);
     8534    dffti1_(n, &wsave[*n + 1], (int *)&wsave[(*n << 1) + 1]); /* (int *) rajoute Reza 29/11/99 */
    85348535    return 0;
    85358536} /* dffti_ */
    … …  
    85468547
    85478548    /* Builtin functions */
    8548     double cos(doublereal), sin(doublereal);
     8549/*    double cos(doublereal), sin(doublereal); remplace par math.h  Reza 29/11/99 */
    85498550
    85508551    /* Local variables */
    … …  
    87588759    iw2 = iw1 + np1;
    87598760    iw3 = iw2 + np1;
    8760     dsint1_(n, &x[1], &wsave[1], &wsave[iw1], &wsave[iw2], &wsave[iw3]);
     8761    dsint1_(n, &x[1], &wsave[1], &wsave[iw1], &wsave[iw2], (int *) &wsave[iw3]); /* (int *) rajoute Reza 29/11/99 */
    87618762    return 0;
    87628763} /* dsint_ */
    … …  
    88598860
    88608861    /* Builtin functions */
    8861     double sin(doublereal);
     8862/*    double sin(doublereal);  remplace par math.h  Reza 29/11/99 */
    88628863
    88638864    /* Local variables */

  • trunk/SophyaLib/NTools/tmatrix.h

    r552 r663  
    7171  inline TMatrix<T>& operator = (T x)
    7272    {if(mNr!=mNc || mNr==0) throw(SzMismatchError("TMatrix::operator= mNc!=mNr ou ==0\n"));
    73      for(uint_4 r=0;r<mNr;r++) for(uint_4 c=0;c<mNc;c++) (*this)(r,c)=(r==c)?x:0;
     73     for(uint_4 r=0;r<mNr;r++) for(uint_4 c=0;c<mNc;c++) (*this)(r,c)=(r==c)?x:(T)0;
    7474     return *this;}
    7575  // A = B : partage les donnees si "a" est temporaire, clone sinon.
Note: See TracChangeset for help on using the changeset viewer.