Journal des modifications 1993 |
Aliases | |
---|---|
DM | Daniel.Martin@univ-rennes1.fr |
ODB | Olivier.de.Bayser |
4 Jan. Odb |Couplag | COUMAT correction boucle 123 | CALERI faute de frappe lignes 1 et 2 |Caltrm | VNCALC NUKALE=2,3 termes valeurs nodales |Lecdire | LCTERM mise a jour |Sdexplo | MKTERM mise a jour 13 Jan. Odb |Caltrm | DSKBMO NUDOK au lieu de NVSTKB dans call prbmor 18 Jan. Odb |Lecdire | LCESSE xN au lieu XN dans le test | LCTERM modif NUKALE cas Valnod et C.esse |Sdexplo | MKTERM modif NUKALE cas Valnod et C.esse |Caltrm | VNCALC modif NUKALE cas Valnod et C.esse |Assembl | ASMOPV modif: dicoto pour KSTART av boucle 8 19 Jan. Odb |Syslin | SYPREP mise a jour cas compactage PROFIL en dl | FASV,GBCT,GCJ,GCS mise a jour '&PROFD' |Assembl | ASPLMO,ASPLPV modif NGNCOB(1) et RETURN ap boucle 8 20 Jan. Odb |Integran | SCAWVN R2=RNORME*RNORME + argument NDIM en plus | WNWN argument NDIM en plus |Calelem | CALINT mise a jour CALL SCAWVN et WNWN et POIDS/ELTDIF et non * | ELDIFF modif impressions |Calgeo | CALGEO,ADWNOR : IRPLOC.GT.0.AND.NDMDOM.LT.NDIM |Assembl | ASMAMO remplacement argt. ITTRMR par TYTRMR ... | ASMTRM mise a jour | ASVTRM variable LONTRM + IF(NUASSE.LT.0 ... |Sdexplo | DFTERM Format 20000,30000,42000,43000 + calcul NBITEM 28 Jan. Odb |Assembl | ASMBSK modif construction '&BMORS',NVSTOR |Sdexplo | PRBMOR correction boucle 5 | PRPROF MIN(10*NIVIMP,NBLIGN) et non MAX |Couplag | RELDIR,RELFRI,RELPRE passage en d.l. vectoriels |Assembl | MATVEC dimensionnement de bimorse |Syslin | SYPREP idem 2 Fev. Odb |Caltrm | VNATRI LGWORK =2 au minimum parite adrs. complexes | VNQLTR precautions pour les adresses R ou C de $WORK$,1 8 Fev. Odb |Caltrm | VNCALC modif NUKALE=6 cas Valnod | VNATRI correction sur LGWORK |Lecdire | LCTERM modif NUKALE=6 cas Valnod |Sdexplo | MKTERM modif NUKALE=6 cas Valnod |Assembl | MATVEC TBAR1 et non TBAR2 sur &BMORS seul + longueur &BMODL+TBAJST |Couplag | RELPRE TBRR1 sur &BMORS remonte de qcq lignes+ longueur &BMODL+TBAJST |Syslin | SYPREP calcul longueur &BMODL+TBAJST 16 Fev. Odb |Sdexplo | DFTERM recalcul IACOOR 22 Fev. Odb |Alodyn | ASSURC format I9 a la fin 24 Fev. Odb |Integran | TANGRA creation cas inconnue vectorielle | SCAROT corrections sur IDER | DIVDIV correction sur JTERM | INTATR,INTGKL mise a jour noms integrands |Calelem | CALINT mise a jour nouvel integrand |Calelem | MDTERM destruction ... enfin ! | MKTERM modification de nom: '^n' |Lecdire | LCESSE modification de nom: '^n' 2 Mars DM |Simplification des types de Valeurs Nodales qui deviennent | 'F' valeur par defaut | 'DF/DN' pour DERIVEE NORMALE | 'TABF' pour FOURNI | 'NF' pour produit simple par la normale | 'N.F' pour produit scalaire par la normale | 'N^F' pour produit vectoriel par la normale | 'N^(N^F)' pour double produit vectoriel par la normale | Les mots-cles DERIVEE NORMALE et FOURNI sont conserves | pour compatibilite |Utiliter | INVANO creation : codage du type de VALNOD | INCESS creation : codage du type de C.ESSE |Lecdire | LCVANO creation : analogue de LCESSE pour les VALNOD |Caltrm | VANATR creation : analogue de INTATR pour les VALNOD | De plus les types de calculs sont systematiquement en MAJUSCULES | ELFINI, C.ESSE, VALNOD, ELFLOC, etc. | Ces nouveautes sont reportees dans |Lecdire | LCKDOM,LCTERM,LCESSE | Librairie Sdexplo | MKTERM,MKDOMK,PRSDTR |Caltrm | VNQLTR,VNATRI,VNCALC |Utiliter | TEXTT3 nouveaute produit vectoriel de vecteurs de type | quelconque (introduit dans VNCALC) | De plus dans VNCALC on ne transmet plus les tableaux | VALEUR et VALEUC mais leurs adresses dans le super-tableau 3 Mars Odb |Ef3d | TE02FB corrections ... DM |Sdexplo | MKTERM correction d'une petite baise : | INCESS(NMTYPE(MAX(1,NUEGAL-2):)) au cas ou NMTYPE='=g'! 11 Mars Odb |Sdexplo | PRTERM go to 100 au lieu return sec ... |Syslin | FAPREP modification NVSTFA pour eviter inflation 16 Mars Odb |Sdexplo | PRSDTR WRITE(IMPNUM,10010) dans le cas SOLUTI 19 Mars Odb |Utiliter R * TPTDAT,TPTADT,TPTDMT,TPTQAT Creation 20 Mars DM |Specfct | STCH01 NOUVEAUTE function de Struve a argument complexe DM |Appl-houle3dc NOUVEAUTE | Fonction de Green Houle a frequence complexe | CCEXP1, GHOULE, GLAPLA, GREEN, IEXPE1, IEXPNU DM |Util_sun | I1MACH constantes entieres dependantes de la machine | R1MACH constantes reelles dependantes de la machine 27 Mars Odb |Efloc | ELPLOC modification sur BETA | INTEGR,INEXRE,INEXSE argument BETA en plus 1 Avr. Odb |EF3d | TE01FB,TE02AR,TE02CO,TE02FA,TE02FB corrections 2 Avr. DM |Cdesse refonte complete (Bimorse etait completement FAUX) | CDLINH devient CDMODL | CDCONH devient CDMODC | CBCONH est coupe en CDBLDC (colonnes Dirichlet triangle inferieur) | et CDBUDC (colonnes Dirichlet triangle superieur) | CBLINH est coupe en CDBLDL (lignes Dirichlet triangle inferieur) | et CDBUDL (lignes Dirichlet triangle superieur) | et CDBDD (second membre ligne Dirichlet) | CDSCNH est coupe en CDSCDI (lignes Dirichlet) et CDSCND (colonnes) | CDESSE est modifie en consequence et permet la prise en compte | d'une matrice symetrique (cas courant!). ATTENTION | a l'ordre d'elimination dans le cas non symetrique DM |Lecdire | LCASSE lecture de la directive ASSEMBLAGE | LCDIRE modification subsequente | LCESSE correction d'une petite baise : | INCESS(TEXTE(MAX(1,NUEGAL-2):NCAR)) au cas ou TEXTE='u=g'! | LCVANO creation des types de valeurs nodales | LCTERM attributs de l'inconnue en colonne pour C.Esse DM |Caldom | NUMDOM il manquait TBRR1 de #GNEDO si on repasse sur le domaine | (ajout de l'argument NUDOK) | idem pour les tables de stockage | CALKEF modifie en consequence, | idem pour les tables de stockage : | IF(NVSTKB/L/C.GT.0) devient IF(NVSTKB/L/C.NE.0) | avant les CALL DSKBMO/MLI/MCO DM |Caltrm | VNCALC modification (cf.dessus) | VNTBLG modification (cf.dessus) et nouvelles fonctionnalites | VNATRI modification (cf.dessus) | VNQLTR modification (cf.dessus) et bug corrige lorsque la | fonction associee n'a pas de constante associee | TRMDOM attributs de l'inconnue en COLONNE pour C.ESSE | EFADRS correction FORMAT DM |Morse | N2DLMO,N2DLPR transferes de Sdexplo a Morse DM |Utiliter | INVANO codage des types de valeurs nodales | INCESS codage des types de condition essentielle | ASSIND decodage des types d'assemblage | INDASS codage des types d'assemblage | FACIND codage des types de factorisation |Modeles : CREATION | FCTRM, DFCTRM, GREEN pour le cas ou l'on n'en a pas besoin |Syslin | SOPREP bug corrige ELSE IF(NVNUML.NE.-99999.AND.CRESOL) | remplace par ELSE IF(NVNUML.NE.-99999..NOT.IDMSCM) 13 Avr. Odb |Caltrm | SAVTRM corrections d'adresses a cause de PRTERM 15 Avr. DM |Caltrm | VNCALC, VNQLTR corrections ODB a Rennes DM |Cordom | CPTDOM (en cas de modification de la geometrie) DM |Multmat | PPLVC nouveau nom de PLVC (produit partiel) | PLVC creation produit complet matrice pleine x vecteur | BMVC creation produit matrice bimorse x vecteur | report effectue dans MATVEC et COUVEC | PRVC creation produit matrice profil x vecteur DM |Couplag (mise a jour pour INDSYM) | COUMAT, COUVEC, RELDIR, RELFRI, RELPRE, RLDGTR, RLBMTR | CALERI, REPINT, RICAL DM |Sdexplo | SOTERM, CPTERM, ADTERM, CLTERM, ASMAKE introduction de INDASS | (pour assemblage par directive) DM |Calgeo | CALGEO modification pour le cas ou la geometrie a changee | ASCORN, ASNORM, UNNORM transfert des impressions dans CALGEO DM |Assembl | Changement de la structure $ASMBL et refonte totale | Creation d'une directive d'ASSEMBLAGE et modification des structures | $ASMBL qui deviennent standard, meme pour l'assemblage simple | avec un increment egal a 1 et NBTRAC qui contient le type | d'assemblage (egal a NUKALE pour le terme resultat) | Nouvelle denomination ASMS.. creation du stockage | ASMSTM nouveau nom de ASMBSK | ASMSTP ASMLSK | ASMSML ASMLML | ASMSPL ASMLPL | Nouvelle denomination ASMP.. creation des pointeurs | ASMPTM nouveau nom de ASMOPT | ASMPVM ASMOPV | ASMPTD ASMDPT | ASMPTP ASPLPT | ASMPVP ASPLPV | ASMPTG ASPDPT | ASMTVG ASPDPV | ASMATR nouveau nom de ASMAMO | ASMOPL ASPLMO | ASMCLI creation assemblage simple (par Combinaison LIneaire) | ASMCPT creation assemblage par pointeurs (par Combinaison PoinTeurs) | ASMNSY assemblage complementaires pour des matrices non symetriques | ASCOOR test supplementaires de creation correcte DM |Lecdire | LCASSE et LCTERM modifications mineures 20 Avr. DM |Cdesse | CDMODL bug a l'edition de liens (AST, IST non declares) 30 Avr. Odb |Modeles | FCTRM,DFCTRM,GREEN modif du call baise |Initial | LCIMPR creation directive IMPRESSION PRINCIPALE | INITIE mise a jour |Redlib | REDTIT correction NECAR=40+... et IMPPAL |Utiliter | PTITRE installation IMPPAL |Lecdire | LCESSE corrections: '#OMINC' pour call prnoms et non NOMINC | + INCESS(TEXTE(MAX(1,NUEGAL-2):NUEGAL-1)) cf 2avril |Sdexplo | PRTERM double virgule dans le CALL de PRMABM |Caltrm | VNQLTR, VNCALC se passent PREFIX,NIVESP | VNCALC MCVAL et MCVAL(R/C) inverse dans cas n^(n^f) | VNCALC, VNTBLG mis a jour |Couplag | RELPRE NCHTRM argument en + | RELFRI,RELDIR mise a jour + test symetries/stockage |Assembl | MATVEC tbrr1 sur NMSTOK mal place | ne pas tuer BMODL quand BMORS n'existe pas ... | ASNUME correction MCASMB+LGETRA et non MCASMB+1 10 Mai DM | MODUMELI completement revu et s'appelle maintenant MOME DM |Lecgeom | LCGEOM decoupe en LCGEOM + LCGMAI pour que | LCGMAI puisse etre directement appele par MOME | ECGEOM,ECFORM,ECDESG,ECDESL,ECELEM,ECNOMD,ECDOMA nouveautes | reciproque de LCxxxx : creation d'un fichier de maillage | ECGEOM peut etre directement appele par MOME DM |Initial | INITIE decoupe en INITIE + INITIA pour que INITIA puisse etre directement appele par MOME | CREESD modifie pour ne creer que les structures de longueur initiale | strictement positive DM |Sdexplo | DFTERM formats | ECTERM mise a jour (pour creer une S.D. B) | RKGEOM nouveaute mise a jour de #TERDO et $SDTRM pour recalculer | tout ce qui depend des coordonnes DM |Assembl et Librairie Sdexplo | Transfert de ADTERM, AXTERM, CLTERM ,CPTERM, SOTERM | de Sdexplo a Assembl |Integran | PRINTV rajout d'un argument de dimension | DIVDIV,SCAROT,SCAWVN,SCAWW,TANGRA,WNWN mises a jour | DIVDIV,SCAROT extension en 2D | GRAWW,WGRAW,GRATWW,WGRATW,ROTBT0,DIVBT0,UV1122,UV33 creations | DWW,GRAWW,WDW,WGRAW modifications a reprendre tel quel | INTATR,INTGKL mises a jour | PRINTV coef 1,2 OdB |Utiliter | PROEXT correction du cas 2d Odb |Calelem | CALINT mise a jour pour les nouveaux integrands 11 Mai Odb |Assembl | ASMTRM LONTRM= .... - NEMOIN + calcul &BMODL |Sdexplo | PRTERM dans FORMAT I9 + impression &PROFD | PRLIBM modification pour ecrire tout les coef. en d.l. | DFTERM format 10002 T12 et T20 , et HNORM2/NBNEIN dans le write 15 Mai Odb |Syslin | FAPREP,FIPREP installation d.l. vectoriels | FALDLA,FALDLT,FALLA,FALLT,FALU et FIMLU,FILU mis a jour | GAUSMC adaptation a SYPREP et SOPREP et passage en d.l. vect | SYPREP arguments ITYSYM en plus | SOPREP arguments NBSCMB en plus + correction LGSOLU | FASV,GBCT,GCJ,GCS mise a jour + correction NBDLLM=NBNELM*NCPINL 17 Mai DM |Redlib | Nouvelle directive utilitaire ECRITURE : changement du fichier | d'impression principale | (au lieu de la directive IMPRESSION PRINCIPALE mal placee !) | REDOUT nouveaute (lecture du nom du fichier) | REDLE (qui appelle REDOUT) modifier en consequence DM |Lecgeom | ECDOMA,ECGEOM correction des formats variables | ECFORM,ECELEM modifs. 19 Mai Odb |Caltrm | VNQLTR modif NUVALE avant VNCALC si cond. ess. 24 Juin Odb |Cdesse | CDESSE reprise des argts. colonne au lieu ligne apres GETTRM |Lecgeom | LCGMAI avant l'appel RDELEM, TAZERO sur NGNEEL 2 Juil DM |Assembl - nouveautes | MATADJ adjointe d'une matrice | MATRAN transposee d'une matrice | ABTERM terme dont les coeff. sont les valeurs absolues d'un terme | CJTERM copie du conjugue d'un terme 10 Juil Odb |Assembl | MATVEC IF(INDSTK.NE.INDSTO('PLEIN..') CALL TBRR1 et | NBDLLM et non NBDLMM dans CALL PLVC | distinction cas PLEIN-L et PLEIN |Sdexplo | PRTERM,PRMAPL mise a jour |Utiliter | INDSTO,STOIND mise a jour 11 Juil Odb |Assembl | ASMOMO correction IDBPTR avant CALL ASMPVM ............ | ASMPVM correction LGCUMS et non LGCUAS dans DIKLPL boucle 16 | ASMPVP idem + NBNCOB en argument d'entree | ASMOPL mise a jour 13 Juil Odb |Assembl | ASMOPL correction IDBPTR avec NCFSSD | ASMOMO idem | ASMPVG,ASMPVP corrections 15 Juil Odb |Syslin | SYPREP corrections INDSYM(' ') | FILU ITSYMP au lieu ITSYMM 9 Sep. Odb |Integran | TANDW creation pour calculer somme(div u) | INTATR,INTGKL mise a jour | PRINTV impression de l'integrand complet |Assembl | PSTERM TBAR.( ...MCINCO) et d.l. vectoriels |Syslin | SOPREP call tbrr sur NM2MMB apres CALL PRTERM Odb |Caltrm | PAVVEC DO 20 MCAUDL et non IAAUDL 14 Sep. Odb |Integran | WN creation pour calculer somme(u.n) | NROTWW creation pour calculer somme(n^Rotu.v) | NDIVWW creation pour calculer somme(divu (n.v)) | INTATR,INTGKL mise a jour | SCAROT,DIVDIV,WNWN,SCAWVN modifications Odb |Calelem | CALINT mise a jour pour les nouveaux integrands Odb |Assembl | ASCOOR IF(NVNUME.LE.0) et non EQ 20 Sep. Odb |Syslin | GAUSMC ligne 112 une virgule en trop 22 Sep. Odb |Lecgeom | ECGEOM,ECDESG modification format FORMAN Odb |Caldom | NUMDOM LGGOLI=LGGNDO-LGGOCO+1 et non LGCOLI=NBNEXX*NBELDO+1 | NBNELI et non NBMELI dans 2ieme CALL RGNEDO 23 Sep. Odb |Syslin | FIPREP corrections remise en service FIMLU matrice Bimorse | FASV MCENV=MCMATR+NBLIGN et non +NBL Odb |Morse | BM2BM creation 28 Sep. Odb |Assembl | ASVTRM CHANGD vire | MATVEC NVCOOR=0 et non NVCOMA si matrice non carre ... | ASCOOR &CORNE,NVCOOR tue si il est incomplet |Syslin | GCS,GCJ comme GBCT NMSTOK non tue a la fin si NCPILM.gt.1 | NMSTOP non tue a la fin si NCPILP.gt.1 29 Sep. Odb |Utiliter | WARNNG comme BAISE ... |Sdexplo | PRTRDO rajout d'une virgule FORMAT 10010 | ASMAKE tbcree asmbl '' interdit ,faire ' ' | MKTERM , et non ,, dans un GET ou PUTTRM | PRBMOR IDB au lieu IBLIMP Odb |Morse | N2DLMO dans boucle 3, une ligne vide peut s'intercaller | + KOLDEB,LGPLAG initialiser en cas de ligne vide ... 1 Oct. OdB | *** Compilation sur cray *** |Assembl | DSMTRI integer ENMOIN | ASMSTM double declaration de ERCODE | ASMSTB idem | ASMCLI emploi de ERCODE(1:1) avant BAISE | ASMOMO tbar sur CHCSTE,1 | ASMNSY tue | ASMNIV IGTNLI realigne sur colonne 72 ... | VCTENS NVDUMC dans gettrm et non NDNUMC |Sdexplo | SDEKAM NBRESC*NBRESL au lieu de NBMATL |Syslin | FAPREP ITSYMA et non ITSYMMA |Caltrm | DSKMLH MCPLAJ remplace MCPLAG+4 |Cdesse | CDMOVC MCMATR au lieu MCMATL |Utiliter | TTENST un retour chariot manquait ... |Alodyn | TBCREE emploi de RUMEUR*99 avant ENRUME |Calgeo | ADWNOR,CALGEO passage de NDMDOM en argument |Calelem | CALELB indication complete des pointeurs de KEL...(1:6) | CALINT emploi de WORK*6 avant BAISE |Cdesse | RASREP adresse MCNEES,MCNORM,MCRLOC remplaces | MCNEDO,MCNEDR,NCNORC,MCREPR |Couplag | RELLNU etiquette retour 1er LISUNI 3 au lieu de 1 | RICAL #OMTRM au lieu de #OMDOM au debut |Integran | DNW correction dans WRITE K, vire |Multmat | PLVC MCMATR et non MCPLEI |Redlib | REDLE GIORIT double declaree 4 Oct. Odb |Caldom | NUMDOM IST(MCGOCO)=LGGOCO+1 | et CALL TBAJST('#RGNDO',NUDOK,LGGOCO+LGGOLI-1) 6 Oct. Odb |Caldom | NUMDOM respect col 72 en ligne 225 CALL NUDLDO | PRNOMD 1 blanc en - dans format 10000 Odb |Integran | PRINTV arrangement de la matrice (NDIM,NBLIGN,NDIM,*) | GRAWW,NDIVWW,NROTWW,SCAWVN,WGRAW,WNWN mise a jour 8 Oct. Odb |Assembl | ASMOMO rajout TBRR1 et TBSAVE sur NMSTOK,NVSTOB si existe deja Odb |Caltrm | PAVLBM installation de INCREM et MCDOEF pour se deplacer | dans la ligne + CST au lieu RST boucle 400 | PAVUBM idem pour boucle 400 12 Oct. Odb |Alodyn | TBOPEN modification du format 140 |Integran | DW,TANDW COFVAC dans le cas complex et non COFVAR ... Odb |Alodyn | STINIT,TAMPON modifications au sujet de l'age des buffers 13 Oct. |Sdexplo | KLUNIT NXTNUF=NXTNUF+1 vire apres etiquette 2 sinon | risque de debordement si LASNUF atteint Odb |Alodyn | TBOPEN modification pour determiner IUNIT 10 Nov. Odb |Syslin | GAUSMC initialisation par TAZERO matrice decompactee |Alodyn | TBCREE modification des call BAISE 90 et 91. Odb |Caldom | NUMDOM rajout LGGOLI=LGGOLI-1 apres 2ieme RGNEDO | et LGGOCO+LGGOLI pour le TBAJST (pas -1) |Alodyn | ASSURC modification du format 90001 20 Nov. Odb |SDexplo | KLDOMN complement de test INDEXC.LT.0.AND.INDEXL.LT.0 30 Nov. Odb |Alodyn | TBRECH,CPRSTR modif dans format T73 au lieu T80 | TAILTR modif format 10002 | TBCRSU message d'erreur en plus (format 10002) pour | expliquer que ASSURC ne se termine pas par STOP ... | + TBRR2 #GNEDO,NVNUL1,NVNUC1 avant les TBCRSU de compactage 5 Dec. Odb |Alodyn | TBCREE message d'erreur complete par NOM,NIVEAU 13 Dec. Odb |Lecgeom | LCGMAI initialisation de NCHDOM avant LCNOMD par SDEXDB Odb |Integran | W un blanc devant COFVAR
1) verifier le rangement "a la fortran" de toutes les matrices elememtaires c'est a dire (NBLIGN,NBCOLO) 2) verifier les deplacements a l'assemblage "pavlbm" et compagnie remarque les integran symetriques sont ranges dans l'autre sens ca plantera quand on fera des interpolations mixtes ...