write (ulsort,90002) 'lgtrc3, npqurc', lgtrc3, npqurc
write (ulsort,90002) 'lgtrc4, npterc', lgtrc4, npterc
write (ulsort,90002) 'lgtrc5, npherc', lgtrc5, npherc
- write (ulsort,90002) 'lgtrc6, nptrrc+npqurc', lgtrc6, nptrrc+npqurc
- write (ulsort,90002) 'lgtrc7, nptrrc+npqurc', lgtrc7, nptrrc+npqurc
+ write (ulsort,90002) 'lgtrc6, nptrrc+npqurc', lgtrc6,
+ > nptrrc+npqurc
+ write (ulsort,90002) 'lgtrc7, nptrrc+npqurc', lgtrc7,
+ > nptrrc+npqurc
#endif
c
call gmecat ( nospec, 1, nparrc, codre1 )
SET(${PROJECT_NAME_UC}_VERSION ${${PROJECT_NAME_UC}_VERSION_MAJOR}.${${PROJECT_NAME_UC}_VERSION_MINOR}.${${PROJECT_NAME_UC}_VERSION_PATCH})
# Fortran options
-SET(CMAKE_Fortran_FLAGS "-ffixed-line-length-0 -fdefault-double-8 -fdefault-real-8 -fdefault-integer-8 -fimplicit-none -O2")
-SET(CMAKE_Fortran_FLAGS "${CMAKE_Fortran_FLAGS} -fpp")
+#SET(CMAKE_Fortran_FLAGS "-ffixed-line-length-0 -fdefault-double-8 -fdefault-real-8 -fdefault-integer-8 -fimplicit-none")
+SET(CMAKE_Fortran_FLAGS "${CMAKE_Fortran_FLAGS} -fpp -i8")
# static libraries to build
SET(_HT_libs
ES_MED
Utilitaire
Gestion_MTU
- #Dependance_Machine
+ Dependance_Machine
)
-SET (_DMC
- Dependance_Machine_C
- )
-
-SET (_DMF
- Dependance_Machine_fortran
- )
IF (WIN32)
ADD_DEFINITIONS(-Dextern_stdcall)
+ ADD_DEFINITIONS(-D_DEBUG_HOMARD_)
+ ADD_DEFINITIONS(-D_USE_64_BITS)
ENDIF (WIN32)
FUNCTION(HT_BUILD_LIBRARY dir)
FILE(GLOB _f_sources LIST_DIRECTORIES false ${CMAKE_CURRENT_SOURCE_DIR}/${dir}/*.F)
FILE(GLOB _c_sources LIST_DIRECTORIES false ${CMAKE_CURRENT_SOURCE_DIR}/${dir}/*.c)
INCLUDE_DIRECTORIES(Includes_Generaux ${CMAKE_CURRENT_SOURCE_DIR})
- ADD_LIBRARY (${dir} STATIC ${_f_sources} ${_c_sources})
-ENDFUNCTION()
-FILE(GLOB _c_sources LIST_DIRECTORIES false ${CMAKE_CURRENT_SOURCE_DIR}/${_DMC}/*.c)
-INCLUDE_DIRECTORIES(Includes_Generaux ${CMAKE_CURRENT_SOURCE_DIR})
-ADD_LIBRARY (${_DMC} STATIC ${_c_sources})
-
-set_target_properties(${_DMC} PROPERTIES COMPILE_FLAGS "/MT" )
-
-FILE(GLOB _f_sources LIST_DIRECTORIES false ${CMAKE_CURRENT_SOURCE_DIR}/${_DMF}/*.F)
-INCLUDE_DIRECTORIES(Includes_Generaux ${CMAKE_CURRENT_SOURCE_DIR})
-ADD_LIBRARY (${_DMF} STATIC ${_f_sources})
+ IF (_f_sources)
+ INCLUDE_DIRECTORIES(Includes_Generaux ${CMAKE_CURRENT_SOURCE_DIR})
+ ADD_LIBRARY (${dir}_f_lib STATIC ${_f_sources})
+ set_target_properties(${dir}_f_lib PROPERTIES LINKER_LANGUAGE Fortran)
+ set_target_properties(${dir}_f_lib PROPERTIES COMPILE_FLAGS "-i8" )
+ SET(TARGET_OBJECTS_LIST $<TARGET_OBJECTS:${dir}_f_lib> )
+ ENDIF()
+ IF (_c_sources)
+ ADD_LIBRARY (${dir}_c_lib STATIC ${_c_sources})
+ set_target_properties(${dir}_c_lib PROPERTIES COMPILE_FLAGS "/MT" )
+ SET(TARGET_OBJECTS_LIST ${TARGET_OBJECTS_LIST} $<TARGET_OBJECTS:${dir}_c_lib> )
+ ENDIF()
+ INCLUDE_DIRECTORIES(Includes_Generaux ${CMAKE_CURRENT_SOURCE_DIR})
+ add_library(${dir} STATIC ${TARGET_OBJECTS_LIST})
+ENDFUNCTION()
-#TARGET_LINK_LIBRARIES(${_DMF} ${_DMC})
FOREACH(_HT_lib ${_HT_libs})
HT_BUILD_LIBRARY(${_HT_lib})
# Main executable
ADD_EXECUTABLE(homard homard.f)
-TARGET_LINK_LIBRARIES(homard ${_HT_libs} ${_link_LIBRARIES} ${_DMC} ${_DMF} )
+TARGET_LINK_LIBRARIES(homard ${_HT_libs} ${_link_LIBRARIES})
INSTALL(TARGETS homard EXPORT ${PROJECT_NAME}TargetGroup DESTINATION ${SALOME_INSTALL_BINS})
jaux=0
do 1105 , iaux = 1 , nbquto
if ( nivqua(iaux).eq.3 .and. decfac(-iaux).lt.0) then
- write (ulsort,90015) 'quadrangle', iaux, ' decision,niveau,etat',
- > decfac(-iaux), nivqua(iaux), hetqua(iaux)
+ write (ulsort,90015) 'quadrangle', iaux, ' decision,niveau,etat'
+ > ,decfac(-iaux), nivqua(iaux), hetqua(iaux)
write (ulsort,90002) 'aretes',
> arequa(iaux,1), arequa(iaux,2), arequa(iaux,3), arequa(iaux,4)
write (ulsort,90002) 'decare',
void dmalmc_( long * const ad_mem, const INTGR * const size )
#else
#ifdef extern_stdcall
-extern void __stdcall DMALMC( long * const ad_mem, const INTGR * const size )
+extern void __stdcall DMALMC( long long * const ad_mem, const INTGR * const size )
#else
void FortranCInterface_GLOBAL(dmalmc, DMALMC)(long * const ad_mem, const INTGR * const size)
#endif
#endif
// p_intgr est un pointeur sur des entiers de taille sizeof(INTGR)
- INTGR * p_intgr = malloc( *size * sizeof(INTGR) ) ;
+ printf("============dmalmc================\n");
+ printf("%d\n", sizeof(long*));
+ printf("%d\n", sizeof(INTGR));
+ size_t size_pintgr = (*size) * sizeof(INTGR);
+ printf("%d\n", size_pintgr);
+ printf("==================================\n");
+ INTGR* p_intgr = malloc(size_pintgr) ;
// On renvoie la valeur de notre pointeur alloué dans la variable Fortran *ad_mem
- (*ad_mem) = (long) p_intgr;
+ (*ad_mem) = (long long) p_intgr;
#ifdef _DEBUG_HOMARD_
printf ("==> ad_mem = %d\n",*ad_mem);
#include "FC.h"
#include <string.h>
+// for getenv
+#include <stdlib.h>
+
/* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% */
/* Retourne le nom de la machine, son système, etc. */
/* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% */
void dmmacc_( char *nodeno, INTGR *nodelg, char *machno, INTGR *machlg, char *systno, INTGR *systlg, char *releno, INTGR *relelg, char *versno, INTGR *verslg, LNSTRF nodebi, LNSTRF machbi, LNSTRF systbi, LNSTRF relebi, LNSTRF versbi )
#else
#ifdef extern_stdcall
-extern void __stdcall DMMACC( char *nodeno, LNSTRF nodebi, INTGR *nodelg, char *machno, LNSTRF machbi, INTGR *machlg, char *systno, LNSTRF systbi, INTGR *systlg, char *releno, LNSTRF relebi, INTGR *relelg, char *versno, LNSTRF versbi, INTGR *verslg )
+extern void __stdcall DMMACC( char *nodeno, INTGR *nodelg, char *machno, INTGR *machlg, char *systno, INTGR *systlg, char *releno, INTGR *relelg, char *versno, INTGR *verslg, LNSTRF nodebi, LNSTRF machbi, LNSTRF systbi, LNSTRF relebi, LNSTRF versbi )
#else
void FortranCInterface_GLOBAL(dmmacc, DMMACC)(char *nodeno, INTGR *nodelg, char *machno, INTGR *machlg, char *systno, INTGR *systlg, char *releno, INTGR *relelg, char *versno, INTGR *verslg)
#endif
#define DOUBLE double
#ifdef _USE_64_BITS
-#warning "-------- passage par ifdef _USE_64_BITS --------"
- typedef long INTGR ;
+#pragma message ( "-------- passage par ifdef _USE_64_BITS --------" )
+ typedef long long INTGR ;
#define INTEGER_NB_CHIFFRES_SIGNIFICATIFS 19
#else
#pragma message ( "-------- passage par else de ifdef _USE_64_BITS --------" )
/* comme arguments cachés par les compilateurs fortran) */
/* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% */
#ifdef _USE_64_BITS
- typedef long LNSTRF ;
+ typedef long long LNSTRF ;
#else
typedef int LNSTRF ;
#endif
+++ /dev/null
-/* __________________________________________________________________________ *.
-/* */
-/* H O M A R D */
-/* */
-/* Outil de Maillage Adaptatif par Raffinement et Deraffinement d'EDF R&D */
-/* */
-/* Version originale enregistrée le 18 juin 1996 sous le numéro 96036 auprès */
-/* des huissiers de justice Simart et Lavoir à Clamart */
-/* Version 11.2 enregistrée le 13 février 2015 sous le numéro 2015/014 auprès */
-/* des huissiers de justice Lavoir, Silinski & Cherqui-Abrahmi à Clamart */
-/* */
-/* HOMARD est une marque déposée d'Electricite de France */
-/* */
-/* Copyright EDF 1997 */
-/* Copyright EDF 1998 */
-/* Copyright EDF 1999 */
-/* Copyright EDF 2021 */
-/* __________________________________________________________________________ */
-
-#include "dminfc.h"
-#include "dmport.h"
-#include "FC.h"
-#include <stdlib.h>
-
-/* %%%%%%%%%%%%%%%%% début de zone à préprocesser %%%%%%%%%%%%%%%%%% */
-#ifdef _POSIX
-void dmaboc_(INTGR *codret)
-#else
-#ifdef extern_stdcall
-extern void __stdcall DMABOC(INTGR *codret)
-#else
-void FortranCInterface_GLOBAL(dmaboc, DMABOC)(INTGR *codret)
-#endif
-#endif
-/* %%%%%%%%%%%%%%%%%% fin de zone à préprocesser %%%%%%%%%%%%%%%%%%% */
-
-{
-
-/* %%%%%%%%%%%%%%%%% début de zone à préprocesser %%%%%%%%%%%%%%%%%% */
-#ifdef _POSIX
- *codret = 0 ;
- abort() ;
-
-#else
- *codret = 1 ;
-
-#endif
-/* %%%%%%%%%%%%%%%%%% fin de zone à préprocesser %%%%%%%%%%%%%%%%%%% */
-
-}
-
+++ /dev/null
-/* __________________________________________________________________________ */
-/* */
-/* H O M A R D */
-/* */
-/* Outil de Maillage Adaptatif par Raffinement et Deraffinement d'EDF R&D */
-/* */
-/* Version originale enregistrée le 18 juin 1996 sous le numéro 96036 auprès */
-/* des huissiers de justice Simart et Lavoir à Clamart */
-/* Version 11.2 enregistrée le 13 février 2015 sous le numéro 2015/014 auprès */
-/* des huissiers de justice Lavoir, Silinski & Cherqui-Abrahmi à Clamart */
-/* */
-/* HOMARD est une marque déposée d'Electricite de France */
-/* */
-/* Copyright EDF 1997 */
-/* Copyright EDF 1998 */
-/* Copyright EDF 2014 */
-/* Copyright EDF 2021 */
-/* __________________________________________________________________________ */
-
-// long est en général de la taille des adresses gérées par le processeur (taille des pointeurs).
-// machines 64bits => long=64bits
-// machines 32bits => long=32bits
-
-// 1) ad_mem est un pointeur (32/64 bits fonction de la machine) sur une variable fortran
-// dont la taille doit être celle des pointeurs de la machine (car cette variable stocke un pointeur C)
-// Le type long (C) est correct pour stocker les pointeurs sur machines 32/64 bits. Cependant il faut faire attention à ce que la taille de la variable fortran corresponde aux caractéristiques de la machine.
-// En effet, sur machine 32bits certains fortrans sont capables de gérer des integer*8 en 64bits ce qui ne correspondrait pas à la taille d'un long sur machine 32 bits. (cf détection configuration autoconf med)
-// 2) size est le nombre d'éléments de type INTGR (entiers 32/64 bits) que l'on veut allouer.
-// size pourrait être de type int (C) / integer*4 (F) mais en général si l'on a besoin d'entier 64bits pour stoker des grandeurs on a aussi besoin de dénombrer un grand nombre d'éléments.
-// C'est la raison pour laquelle on a le type INTGR (C) <=> INTEGER*4 ou INTEGER*8 <=> INTEGER avec option gfortran -fdefault-integer-8 (F)
-
-#include "dminfc.h"
-#include "dmport.h"
-#include "FC.h"
-#include <stdlib.h>
-#include <stdio.h>
-#include <malloc.h>
-
-/* %%%%%%%%%%%%%%%%% début de zone à préprocesser %%%%%%%%%%%%%%%%%% */
-#ifdef _POSIX
-void dmalmc_( long * const ad_mem, const INTGR * const size )
-#else
-#ifdef extern_stdcall
-extern void __stdcall DMALMC( long * const ad_mem, const INTGR * const size )
-#else
-void FortranCInterface_GLOBAL(dmalmc, DMALMC)(long * const ad_mem, const INTGR * const size)
-#endif
-#endif
-/* %%%%%%%%%%%%%%%%%% fin de zone à préprocesser %%%%%%%%%%%%%%%%%%% */
-
-{
-
- if ( *size == 0 )
- { printf(" demande d allocation d une taille nulle\n") ; }
-
- if ( *size >= 0 )
- {
-#ifdef _DEBUG_HOMARD_
- printf ("demande de %d octets\n",*size*sizeof(int));
-#endif
-
- // p_intgr est un pointeur sur des entiers de taille sizeof(INTGR)
- INTGR * p_intgr = malloc( *size * sizeof(INTGR) ) ;
- // On renvoie la valeur de notre pointeur alloué dans la variable Fortran *ad_mem
- (*ad_mem) = (long) p_intgr;
-
-#ifdef _DEBUG_HOMARD_
- printf ("==> ad_mem = %d\n",*ad_mem);
-#endif
- }
-
- else
- {
- printf(" demande d allocation d une taille negative\n") ;
- *ad_mem = 0 ;
- }
-
-}
-
+++ /dev/null
-/* __________________________________________________________________________ */
-/* */
-/* H O M A R D */
-/* */
-/* Outil de Maillage Adaptatif par Raffinement et Deraffinement d'EDF R&D */
-/* */
-/* Version originale enregistrée le 18 juin 1996 sous le numéro 96036 auprès */
-/* des huissiers de justice Simart et Lavoir à Clamart */
-/* Version 11.2 enregistrée le 13 février 2015 sous le numéro 2015/014 auprès */
-/* des huissiers de justice Lavoir, Silinski & Cherqui-Abrahmi à Clamart */
-/* */
-/* HOMARD est une marque déposée d'Electricite de France */
-/* */
-/* Copyright EDF 1997 */
-/* Copyright EDF 1998 */
-/* Copyright EDF 1999 */
-/* Copyright EDF 2021 */
-/* __________________________________________________________________________ */
-
-#include "dminfc.h"
-#include "dmport.h"
-#include "FC.h"
-#include <string.h>
-#include <time.h>
-
-/* %%%%%%%%%%%%%%%%% début de zone à préprocesser %%%%%%%%%%%%%%%%%% */
-#ifdef _POSIX
-void dmdate_( char *ladate, LNSTRF bidon )
-#else
-#ifdef extern_stdcall
-extern void __stdcall DMDATE( char *ladate, LNSTRF bidon )
-#else
-void FortranCInterface_GLOBAL(dmdate, DMDATE)(char *ladate, LNSTRF bidon)
-#endif
-#endif
-/* %%%%%%%%%%%%%%%%%% fin de zone à préprocesser %%%%%%%%%%%%%%%%%%% */
-
-/* time renvoie le nombre de secondes écoulées depuis le 1er janvier 1970 à 0h */
-/* ctime convertit ce nombre en une chaine de 26 caractères */
-/* sous la forme 'day mon dd hh:mm:ss yyyy\n\0' */
-/* 123456789012345678901234 5 6 */
-/* ex : 'Thu Jul 19 9:42:23 1994' */
-/* On renvoie alors les 24 premiers caractères utiles. */
-{
-
- char *c ;
- time_t t ;
-
- t = time( (time_t *)0 ) ;
- c = ctime(&t) ;
- strncpy(ladate, c, (size_t)24 ) ;
-
-}
-
+++ /dev/null
-/* __________________________________________________________________________ */
-/* */
-/* H O M A R D */
-/* */
-/* Outil de Maillage Adaptatif par Raffinement et Deraffinement d'EDF R&D */
-/* */
-/* Version originale enregistrée le 18 juin 1996 sous le numéro 96036 auprès */
-/* des huissiers de justice Simart et Lavoir à Clamart */
-/* Version 11.2 enregistrée le 13 février 2015 sous le numéro 2015/014 auprès */
-/* des huissiers de justice Lavoir, Silinski & Cherqui-Abrahmi à Clamart */
-/* */
-/* HOMARD est une marque déposée d'Electricite de France */
-/* */
-/* Copyright EDF 1997 */
-/* Copyright EDF 1998 */
-/* Copyright EDF 1999 */
-/* Copyright EDF 2021 */
-/* __________________________________________________________________________ */
-
-#include "dminfc.h"
-#include "dmport.h"
-#include "FC.h"
-#include <stdio.h>
-
-/* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% */
-/* Ce programme vide les buffers des entrees-sorties */
-/* . avec stdout comme argument, seul le buffer de la sortie standard (print fortran) est vide. */
-/* . avec 0 comme argument, les buffers de toutes les sorties sont vides. */
-/* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% */
-
-/* %%%%%%%%%%%%%%%%% début de zone à préprocesser %%%%%%%%%%%%%%%%%% */
-#ifdef _POSIX
-void dmflsc_(INTGR *codret)
-#else
-#ifdef extern_stdcall
-extern void __stdcall DMFLSC(INTGR *codret)
-#else
-void FortranCInterface_GLOBAL(dmflsc, DMFLSC)(INTGR *codret)
-#endif
-#endif
-/* %%%%%%%%%%%%%%%%%% fin de zone à préprocesser %%%%%%%%%%%%%%%%%%% */
-
-{
-/* fflush(stdout) ; */
-
-/* %%%%%%%%%%%%%%%%% début de zone à préprocesser %%%%%%%%%%%%%%%%%% */
-#ifdef _POSIX
- *codret = fflush(0) ;
-
-#else
- _flushall() ;
- *codret = 0 ;
-
-#endif
-/* %%%%%%%%%%%%%%%%%% fin de zone à préprocesser %%%%%%%%%%%%%%%%%%% */
-
-}
-
+++ /dev/null
-/* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% */
-/* Commentaires sur les dépendances aux machines */
-/* 1. Les programmes C ne sont appelés que par les programmes */
-/* fortran du répertoire Dependance_Machine */
-/* 2. Les programmes en dm...c sont appelés par dm.... */
-/* 3. Les dépendances des source_c pour les arguments : */
-/* _POSIX, extern_stdcall, autres */
-/* 4. Les autres dépendances des source_c sont : */
-/* . Le programme d'abort (dmaboc) */
-/* _POSIX, autres */
-/* . Le vidage des buffers (dmflsc) */
-/* _POSIX, autres */
-/* . Le vidage des buffers (dmflsc) */
-/* _POSIX, autres */
-/* . Les caractéristiques des machines (dmmacc) */
-/* _POSIX, autres */
-/* . La précision des machines (dmprmc) */
-/* _USE_64_BITS, autres */
-/* . Le caractère de séparation des répertoires (dmsepc) */
-/* _POSIX, autres */
-/* . Le temps système (dmtemc) */
-/* CLK_TCK, _POSIX */
-/* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% */
+++ /dev/null
-/* __________________________________________________________________________ */
-/* */
-/* H O M A R D */
-/* */
-/* Outil de Maillage Adaptatif par Raffinement et Deraffinement d'EDF R&D */
-/* */
-/* Version originale enregistrée le 18 juin 1996 sous le numéro 96036 auprès */
-/* des huissiers de justice Simart et Lavoir à Clamart */
-/* Version 11.2 enregistrée le 13 février 2015 sous le numéro 2015/014 auprès */
-/* des huissiers de justice Lavoir, Silinski & Cherqui-Abrahmi à Clamart */
-/* */
-/* HOMARD est une marque déposée d'Electricite de France */
-/* */
-/* Copyright EDF 1997 */
-/* Copyright EDF 1998 */
-/* Copyright EDF 1999 */
-/* Copyright EDF 2021 */
-/* __________________________________________________________________________ */
-
-#include "dminfc.h"
-#include "dmport.h"
-#include "FC.h"
-#include <stdlib.h>
-#include <malloc.h>
-
-/* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% */
-/* Libération de la mémoire associée à malloc */
-/* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% */
-
-/* %%%%%%%%%%%%%%%%% début de zone à préprocesser %%%%%%%%%%%%%%%%%% */
-#ifdef _POSIX
-void dmlibc_( long **iad_mem )
-#else
-#ifdef extern_stdcall
-extern void __stdcall DMLIBC( long **iad_mem )
-#else
-void FortranCInterface_GLOBAL(dmlibc, DMLIBC)(long **iad_mem)
-#endif
-#endif
-/* %%%%%%%%%%%%%%%%%% fin de zone à préprocesser %%%%%%%%%%%%%%%%%%% */
-
-{
- free( *iad_mem ) ;
-}
-
+++ /dev/null
-/* __________________________________________________________________________ */
-/* */
-/* H O M A R D */
-/* */
-/* Outil de Maillage Adaptatif par Raffinement et Deraffinement d'EDF R&D */
-/* */
-/* Version originale enregistrée le 18 juin 1996 sous le numéro 96036 auprès */
-/* des huissiers de justice Simart et Lavoir à Clamart */
-/* Version 11.2 enregistrée le 13 février 2015 sous le numéro 2015/014 auprès */
-/* des huissiers de justice Lavoir, Silinski & Cherqui-Abrahmi à Clamart */
-/* */
-/* HOMARD est une marque déposée d'Electricite de France */
-/* */
-/* Copyright EDF 1997 */
-/* Copyright EDF 1998 */
-/* Copyright EDF 1999 */
-/* Copyright EDF 2021 */
-/* __________________________________________________________________________ */
-
-#include "dminfc.h"
-#include "dmport.h"
-#include "FC.h"
-
-/* %%%%%%%%%%%%%%%%% début de zone à préprocesser %%%%%%%%%%%%%%%%%% */
-#ifdef _POSIX
-void dmloca_( void *a, INTGR *iad )
-#else
-#ifdef extern_stdcall
-extern void __stdcall DMLOCA( void *a, INTGR *iad )
-#else
-void FortranCInterface_GLOBAL(dmloca, DMLOCA)(void *a, INTGR *iad)
-#endif
-#endif
-/* %%%%%%%%%%%%%%%%%% fin de zone à préprocesser %%%%%%%%%%%%%%%%%%% */
-
-{
- *iad = (long) a ;
-}
-
+++ /dev/null
-/* __________________________________________________________________________ */
-/* */
-/* H O M A R D */
-/* */
-/* Outil de Maillage Adaptatif par Raffinement et Deraffinement d'EDF R&D */
-/* */
-/* Version originale enregistrée le 18 juin 1996 sous le numéro 96036 auprès */
-/* des huissiers de justice Simart et Lavoir à Clamart */
-/* Version 11.2 enregistrée le 13 février 2015 sous le numéro 2015/014 auprès */
-/* des huissiers de justice Lavoir, Silinski & Cherqui-Abrahmi à Clamart */
-/* */
-/* HOMARD est une marque déposée d'Electricite de France */
-/* */
-/* Copyright EDF 1997 */
-/* Copyright EDF 1998 */
-/* Copyright EDF 1999 */
-/* Copyright EDF 2021 */
-/* __________________________________________________________________________ */
-
-#include "dminfc.h"
-#include "dmport.h"
-#include "FC.h"
-#include <string.h>
-
-/* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% */
-/* Retourne le nom de la machine, son système, etc. */
-/* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% */
-
-/* %%%%%%%%%%%%%%%%% début de zone à préprocesser %%%%%%%%%%%%%%%%%% */
-#ifdef _POSIX
-#include <sys/utsname.h> /* Pour le nom de la machine d'execution */
-#endif
-/* %%%%%%%%%%%%%%%%%% fin de zone à préprocesser %%%%%%%%%%%%%%%%%%% */
-
-#include <stdio.h>
-
-/* %%%%%%%%%%%%%%%%% début de zone à préprocesser %%%%%%%%%%%%%%%%%% */
-
-#ifdef _POSIX
-void dmmacc_( char *nodeno, INTGR *nodelg, char *machno, INTGR *machlg, char *systno, INTGR *systlg, char *releno, INTGR *relelg, char *versno, INTGR *verslg, LNSTRF nodebi, LNSTRF machbi, LNSTRF systbi, LNSTRF relebi, LNSTRF versbi )
-#else
-#ifdef extern_stdcall
-extern void __stdcall DMMACC( char *nodeno, LNSTRF nodebi, INTGR *nodelg, char *machno, LNSTRF machbi, INTGR *machlg, char *systno, LNSTRF systbi, INTGR *systlg, char *releno, LNSTRF relebi, INTGR *relelg, char *versno, LNSTRF versbi, INTGR *verslg )
-#else
-void FortranCInterface_GLOBAL(dmmacc, DMMACC)(char *nodeno, INTGR *nodelg, char *machno, INTGR *machlg, char *systno, INTGR *systlg, char *releno, INTGR *relelg, char *versno, INTGR *verslg)
-#endif
-#endif
-/* %%%%%%%%%%%%%%%%%% fin de zone à préprocesser %%%%%%%%%%%%%%%%%%% */
-
-{
- int lg ;
-
-/* %%%%%%%%%%%%%%%%% début de zone à préprocesser %%%%%%%%%%%%%%%%%% */
-#ifdef _POSIX
-
- struct utsname myname ;
-
- lg = fflush(0) ;
-
- if ( uname ( &myname ) != -1 ) {
-
- lg = (int)strlen(myname.nodename) ;
- if ( *nodelg > lg ) *nodelg = lg ;
- strncpy (nodeno,myname.nodename, (size_t)*nodelg ) ;
-
- lg = (int)strlen(myname.machine) ;
- if ( *machlg > lg ) *machlg = lg ;
- strncpy (machno,myname.machine, (size_t)*machlg ) ;
-
- lg = (int)strlen(myname.sysname) ;
- if ( *systlg > lg ) *systlg = lg ;
- strncpy (systno,myname.sysname, (size_t)*systlg ) ;
-
- lg = (int)strlen(myname.release) ;
- if ( *relelg > lg ) *relelg = lg ;
- strncpy (releno,myname.release, (size_t)*relelg ) ;
-
- lg = (int)strlen(myname.version) ;
- if ( *verslg > lg ) *verslg = lg ;
- strncpy (versno,myname.version, (size_t)*verslg ) ;
-
- }
-
- else {
-
- if ( *nodelg > 7 ) *nodelg = 7 ;
- strncpy (nodeno,"inconnu", (size_t)*nodelg ) ;
- if ( *machlg > 1 ) *machlg = 1 ;
- strncpy (machno," ", (size_t)*machlg ) ;
- if ( *systlg > 4 ) *systlg = 4 ;
- strncpy (systno,"Unix", (size_t)*systlg ) ;
- if ( *relelg > 1 ) *relelg = 1 ;
- strncpy (releno," ", (size_t)*relelg ) ;
- if ( *verslg > 1 ) *verslg = 1 ;
- strncpy (versno," ", (size_t)*verslg ) ;
- }
-
-#else
-
-
- char *nodename, *machine, *sysname, *release, *version;
-
- nodename=getenv("COMPUTERNAME");
- if ( nodename == NULL ) {
- nodename="inconnu";
- }
- lg = (int)strlen(nodename) ;
- if ( *nodelg > lg ) *nodelg = lg ;
- strncpy (nodeno,nodename, (size_t)*nodelg ) ;
-
- machine=getenv ("CPU");
- if ( machine == NULL ) {
- machine="inconnu";
- }
- lg = (int)strlen(machine) ;
- if ( *machlg > lg ) *machlg = lg ;
- strncpy (machno,machine, (size_t)*machlg ) ;
-
- sysname=getenv ("OS");
- if ( sysname == NULL ) {
- sysname="inconnu";
- }
- lg = (int)strlen(sysname) ;
- if ( *systlg > lg ) *systlg = lg ;
- strncpy (systno,sysname, (size_t)*systlg ) ;
-
- release="inconnu";
- lg = (int)strlen(release) ;
- if ( *relelg > lg ) *relelg = lg ;
- strncpy (releno,release, (size_t)*relelg ) ;
-
- version="inconnu";
- lg = (int)strlen(version) ;
- if ( *verslg > lg ) *verslg = lg ;
- strncpy (versno,version, (size_t)*verslg ) ;
-
-#endif
-/* %%%%%%%%%%%%%%%%%% fin de zone à préprocesser %%%%%%%%%%%%%%%%%%% */
-
-
-}
-
+++ /dev/null
-/* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% */
-/* include (langage C ou C++) pour portage des routines */
-/* "dependance_machine" */
-/* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% */
-
-#ifndef dmport_h
-#define dmport_h
-
-#if defined(__unix__)
-#define _POSIX
-#warning "-------- definition de _POSIX --------"
-#endif
-
-#if defined __LP64__ || defined __MINGW64__
-#define _USE_64_BITS
-#warning "-------- definition de _USE_64_BITS --------"
-#endif
-
-
-/* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% */
-/* Correspondance entre les entiers fortran et les entiers C : */
-/* Utile par exemple sur machine DEC, quand les pointeurs sont sur */
-/* 64 bits et qu'on utilise une option du compilateur fortran qui */
-/* force tous les entiers fortran a 64 bits */
-/* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% */
-#define DOUBLE double
-
-#ifdef _USE_64_BITS
-#warning "-------- passage par ifdef _USE_64_BITS --------"
- typedef long INTGR ;
- #define INTEGER_NB_CHIFFRES_SIGNIFICATIFS 19
-#else
-#pragma message ( "-------- passage par else de ifdef _USE_64_BITS --------" )
- typedef int INTGR ;
- #define INTEGER_NB_CHIFFRES_SIGNIFICATIFS 9
-#endif
-
-
-/* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% */
-/* Longueur des chaines de caractères fortran (telles que passées */
-/* comme arguments cachés par les compilateurs fortran) */
-/* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% */
-#ifdef _USE_64_BITS
- typedef long LNSTRF ;
-#else
- typedef int LNSTRF ;
-#endif
-//
-#endif
+++ /dev/null
-/* __________________________________________________________________________ */
-/* */
-/* H O M A R D */
-/* */
-/* Outil de Maillage Adaptatif par Raffinement et Deraffinement d'EDF R&D */
-/* */
-/* Version originale enregistrée le 18 juin 1996 sous le numéro 96036 auprès */
-/* des huissiers de justice Simart et Lavoir à Clamart */
-/* Version 11.2 enregistrée le 13 février 2015 sous le numéro 2015/014 auprès */
-/* des huissiers de justice Lavoir, Silinski & Cherqui-Abrahmi à Clamart */
-/* */
-/* HOMARD est une marque déposée d'Electricite de France */
-/* */
-/* Copyright EDF 1997 */
-/* Copyright EDF 1998 */
-/* Copyright EDF 1999 */
-/* Copyright EDF 2021 */
-/* __________________________________________________________________________ */
-
-#include "dminfc.h"
-#include "dmport.h"
-#include "FC.h"
-
-/* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% */
-/* Retourne la précision machine */
-/* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% */
-
-/* %%%%%%%%%%%%%%%%% début de zone à préprocesser %%%%%%%%%%%%%%%%%% */
-#ifdef _POSIX
-void dmprmc_( DOUBLE *epsima, INTGR *nbchii )
-#else
-#ifdef extern_stdcall
-extern void __stdcall DMPRMC( DOUBLE *epsima, INTGR *nbchii )
-#else
-void FortranCInterface_GLOBAL(dmprmc, DMPRMC)(DOUBLE *epsima, INTGR *nbchii)
-#endif
-#endif
-/* %%%%%%%%%%%%%%%%%% fin de zone à préprocesser %%%%%%%%%%%%%%%%%%% */
-
-{
-
-/* %%%%%%%%%%%%%%%%% début de zone à préprocesser %%%%%%%%%%%%%%%%%% */
-#ifdef _USE_64_BITS
- *epsima = 1.e-31;
-
-#else
- *epsima = 1.e-15;
-
-#endif
-/* %%%%%%%%%%%%%%%%%% fin de zone à préprocesser %%%%%%%%%%%%%%%%%%% */
-
-/* printf (". INTEGER_NB_CHIFFRES_SIGNIFICATIFS : %d\n", INTEGER_NB_CHIFFRES_SIGNIFICATIFS); */
- *nbchii = INTEGER_NB_CHIFFRES_SIGNIFICATIFS ;
-
-
-}
-
+++ /dev/null
-/* __________________________________________________________________________ */
-/* */
-/* H O M A R D */
-/* */
-/* Outil de Maillage Adaptatif par Raffinement et Deraffinement d'EDF R&D */
-/* */
-/* Version originale enregistrée le 18 juin 1996 sous le numéro 96036 auprès */
-/* des huissiers de justice Simart et Lavoir à Clamart */
-/* Version 11.2 enregistrée le 13 février 2015 sous le numéro 2015/014 auprès */
-/* des huissiers de justice Lavoir, Silinski & Cherqui-Abrahmi à Clamart */
-/* */
-/* HOMARD est une marque déposée d'Electricite de France */
-/* */
-/* Copyright EDF 1997 */
-/* Copyright EDF 1998 */
-/* Copyright EDF 1999 */
-/* Copyright EDF 2021 */
-/* __________________________________________________________________________ */
-
-#include "dminfc.h"
-#include "dmport.h"
-#include "FC.h"
-#include <stdlib.h>
-#include <malloc.h>
-
-/* %%%%%%%%%%%%%%%%% début de zone à préprocesser %%%%%%%%%%%%%%%%%% */
-#ifdef _POSIX
-void dmralc_( INTGR *iad_mem, INTGR *size )
-#else
-#ifdef extern_stdcall
-extern void __stdcall DMRALC( INTGR *iad_mem, INTGR *size )
-#else
-void FortranCInterface_GLOBAL(dmralc, DMRALC)(INTGR *iad_mem, INTGR *size)
-#endif
-#endif
-/* %%%%%%%%%%%%%%%%%% fin de zone à préprocesser %%%%%%%%%%%%%%%%%%% */
-
-{
- void *adret ;
-
- adret = realloc( (void *) *iad_mem, (size_t) *size ) ;
-
- if ( adret != NULL )
- {
- *iad_mem = (INTGR) adret ;
- }
- else
- {
- *iad_mem = 0 ;
- }
-
-}
-
+++ /dev/null
-/* __________________________________________________________________________ */
-/* */
-/* H O M A R D */
-/* */
-/* Outil de Maillage Adaptatif par Raffinement et Deraffinement d'EDF R&D */
-/* */
-/* Version originale enregistrée le 18 juin 1996 sous le numéro 96036 auprès */
-/* des huissiers de justice Simart et Lavoir à Clamart */
-/* Version 11.2 enregistrée le 13 février 2015 sous le numéro 2015/014 auprès */
-/* des huissiers de justice Lavoir, Silinski & Cherqui-Abrahmi à Clamart */
-/* */
-/* HOMARD est une marque déposée d'Electricite de France */
-/* */
-/* Copyright EDF 1997 */
-/* Copyright EDF 1998 */
-/* Copyright EDF 1999 */
-/* Copyright EDF 2021 */
-/* __________________________________________________________________________ */
-
-#include "dminfc.h"
-#include "dmport.h"
-#include "FC.h"
-
-/* but : retourne le caractère séparateur de répertoires */
-
-/* %%%%%%%%%%%%%%%%% début de zone à préprocesser %%%%%%%%%%%%%%%%%% */
-#ifdef _POSIX
-void dmsepc_( char *slash, LNSTRF bidon )
-#else
-#ifdef extern_stdcall
-extern void __stdcall DMSEPC( char *slash, LNSTRF bidon )
-#else
-void FortranCInterface_GLOBAL(dmsepc, DMSEPC)(char *slash, LNSTRF bidon)
-#endif
-#endif
-/* %%%%%%%%%%%%%%%%%% fin de zone à préprocesser %%%%%%%%%%%%%%%%%%% */
-
-{
-
-/* %%%%%%%%%%%%%%%%% début de zone à préprocesser %%%%%%%%%%%%%%%%%% */
-#ifdef _POSIX
-
- slash[0] = '/' ;
-
-#else
-
- slash[0] = '\\' ;
-
-#endif
-/* %%%%%%%%%%%%%%%%%% fin de zone à préprocesser %%%%%%%%%%%%%%%%%%% */
-
-}
-
+++ /dev/null
-/* __________________________________________________________________________ */
-/* */
-/* H O M A R D */
-/* */
-/* Outil de Maillage Adaptatif par Raffinement et Deraffinement d'EDF R&D */
-/* */
-/* Version originale enregistrée le 18 juin 1996 sous le numéro 96036 auprès */
-/* des huissiers de justice Simart et Lavoir à Clamart */
-/* Version 11.2 enregistrée le 13 février 2015 sous le numéro 2015/014 auprès */
-/* des huissiers de justice Lavoir, Silinski & Cherqui-Abrahmi à Clamart */
-/* */
-/* HOMARD est une marque déposée d'Electricite de France */
-/* */
-/* Copyright EDF 1997 */
-/* Copyright EDF 1998 */
-/* Copyright EDF 1999 */
-/* Copyright EDF 2021 */
-/* __________________________________________________________________________ */
-
-#include "dminfc.h"
-#include "dmport.h"
-#include "FC.h"
-
-/* %%%%%%%%%%%%%%%%% début de zone à préprocesser %%%%%%%%%%%%%%%%%% */
-#ifdef _POSIX
-void dmsizc_( INTGR *tentie, INTGR *treel, INTGR *tchain )
-#else
-#ifdef extern_stdcall
-extern void __stdcall DMSIZC( INTGR *tentie, INTGR *treel, INTGR *tchain )
-#else
-void FortranCInterface_GLOBAL(dmsizc, DMSIZC)(INTGR *tentie, INTGR *treel, INTGR *tchain)
-#endif
-#endif
-/* %%%%%%%%%%%%%%%%%% fin de zone à préprocesser %%%%%%%%%%%%%%%%%%% */
-
-{
-/* malloc fonctionne en octets */
- *tentie = sizeof(INTGR) ;
- *treel = 8 ;
- *tchain = 8 ;
-
-#ifdef _DEBUG_HOMARD_
- printf ("Dans dmsizc, tailles en octets :\n");
- printf (". Entiers : %d\n", *tentie);
- printf (". Reels : %d\n", *treel);
- printf (". Chaine : %d\n", *tchain);
- printf (". taille de INTGR : %d\n", sizeof(INTGR));
- printf (". taille de int : %d\n", sizeof(int));
- printf (". taille de int* : %d\n", sizeof(int*));
- printf (". taille de long : %d\n", sizeof(long));
- printf (". taille de tentie : %d\n", sizeof(*tentie));
-
-#endif
-
-}
-
+++ /dev/null
-/* __________________________________________________________________________ */
-/* */
-/* H O M A R D */
-/* */
-/* Outil de Maillage Adaptatif par Raffinement et Deraffinement d'EDF R&D */
-/* */
-/* Version originale enregistrée le 18 juin 1996 sous le numéro 96036 auprès */
-/* des huissiers de justice Simart et Lavoir à Clamart */
-/* Version 11.2 enregistrée le 13 février 2015 sous le numéro 2015/014 auprès */
-/* des huissiers de justice Lavoir, Silinski & Cherqui-Abrahmi à Clamart */
-/* */
-/* HOMARD est une marque déposée d'Electricite de France */
-/* */
-/* Copyright EDF 1997 */
-/* Copyright EDF 1998 */
-/* Copyright EDF 1999 */
-/* Copyright EDF 2021 */
-/* __________________________________________________________________________ */
-
-#include "dminfc.h"
-#include "dmport.h"
-#include "FC.h"
-
-/* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% */
-/* Retourne les temps user et système écoulés depuis le début */
-/* %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% */
-
-#ifdef _POSIX
-#include <sys/times.h>
-#include <unistd.h>
-#endif
-
-#include <time.h>
-
-#ifdef CLK_TCK
-#define CLOCKS_PER_SEC_VALUE CLK_TCK
-#else
-#define CLOCKS_PER_SEC_VALUE sysconf(_SC_CLK_TCK)
-#endif
-
-/* %%%%%%%%%%%%%%%%% début de zone à préprocesser %%%%%%%%%%%%%%%%%% */
-#ifdef _POSIX
-void dmtemc_( DOUBLE *tuser, DOUBLE *tsyst )
-#else
-#ifdef extern_stdcall
-extern void __stdcall DMTEMC( DOUBLE *tuser, DOUBLE *tsyst )
-#else
-void FortranCInterface_GLOBAL(dmtemc, DMTEMC)(DOUBLE *tuser, DOUBLE *tsyst)
-#endif
-#endif
-/* %%%%%%%%%%%%%%%%%% fin de zone à préprocesser %%%%%%%%%%%%%%%%%%% */
-
-{
-
-/* %%%%%%%%%%%%%%%%% début de zone à préprocesser %%%%%%%%%%%%%%%%%% */
-#ifdef _POSIX
- struct tms temps;
- times (&temps);
- *tuser=(DOUBLE)temps.tms_utime/(DOUBLE)CLOCKS_PER_SEC_VALUE;
- *tsyst=(DOUBLE)temps.tms_stime/(DOUBLE)CLOCKS_PER_SEC_VALUE;
-
-#else
- *tuser=(DOUBLE)clock()/CLOCKS_PER_SEC_VALUE;
- *tsyst=(DOUBLE)0.;
-
-#endif
-/* %%%%%%%%%%%%%%%%%% fin de zone à préprocesser %%%%%%%%%%%%%%%%%%% */
-
-}
-
+++ /dev/null
- subroutine dmabor
-c ______________________________________________________________________
-c
-c H O M A R D
-c
-c Outil de Maillage Adaptatif par Raffinement et Deraffinement d'EDF R&D
-c
-c Version originale enregistree le 18 juin 1996 sous le numero 96036
-c aupres des huissiers de justice Simart et Lavoir a Clamart
-c Version 11.2 enregistree le 13 fevrier 2015 sous le numero 2015/014
-c aupres des huissiers de justice
-c Lavoir, Silinski & Cherqui-Abrahmi a Clamart
-c
-c HOMARD est une marque deposee d'Electricite de France
-c
-c Copyright EDF 1996
-c Copyright EDF 1998
-c Copyright EDF 2002
-c Copyright EDF 2020
-c ______________________________________________________________________
-c Dependance Machine : ABORt
-c - - ----
-c ______________________________________________________________________
-c
-c====
-c 0. declarations et dimensionnement
-c====
-c
-c 0.1. ==> generalites
-c
- implicit none
- save
-c
-c 0.2. ==> communs
-c
-c 0.3. ==> arguments
-c
-c 0.4. ==> variables locales
-c
- integer codret
-c
-c====
-c 1. vidage des buffers
-c====
-c
- call dmflsh ( codret )
-c
-c====
-c 2. appel de la fonction C equivalente
-c====
-c
- call dmaboc ( codret )
-c
- stop
-c
- end
+++ /dev/null
- subroutine dmalme ( adress, taille, codret )
-c ______________________________________________________________________
-c
-c H O M A R D
-c
-c Outil de Maillage Adaptatif par Raffinement et Deraffinement d'EDF R&D
-c
-c Version originale enregistree le 18 juin 1996 sous le numero 96036
-c aupres des huissiers de justice Simart et Lavoir a Clamart
-c Version 11.2 enregistree le 13 fevrier 2015 sous le numero 2015/014
-c aupres des huissiers de justice
-c Lavoir, Silinski & Cherqui-Abrahmi a Clamart
-c
-c HOMARD est une marque deposee d'Electricite de France
-c
-c Copyright EDF 1996
-c Copyright EDF 1998
-c Copyright EDF 2002
-c Copyright EDF 2020
-c ______________________________________________________________________
-c Dependance Machine : ALlocation de MEmoire
-c - - -- --
-c ______________________________________________________________________
-c
-c but : alloue une place memoire de taille donnee
-c ______________________________________________________________________
-c . . . . .
-c . nom . e/s . taille . description .
-c .____________________________________________________________________.
-c . adress . s . 1 . adresse de depart de la zone allouee .
-c . taille . e . 1 . taille voulue .
-c . codret . s . 1 . code retour : 0 si tout va bien, 1 sinon .
-c ______________________________________________________________________
-c
-c====
-c 0. declarations et dimensionnement
-c====
-c
-c 0.1. ==> generalites
-c
- implicit none
- save
-c
-c 0.2. ==> communs
-c
-c 0.3. ==> arguments
-c
- integer adress, taille, codret
-c
-c 0.4. ==> variables locales
-c ______________________________________________________________________
-c
-c====
-c 1. appel de la fonction C equivalente
-c====
-c
- call dmalmc ( adress, taille )
-c
- if ( adress.eq.0 ) then
- codret = 1
- else
- codret = 0
- endif
-c
- end
+++ /dev/null
- subroutine dmcpch ( chain1, long1, chain2, long2 )
-c ______________________________________________________________________
-c
-c H O M A R D
-c
-c Outil de Maillage Adaptatif par Raffinement et Deraffinement d'EDF R&D
-c
-c Version originale enregistree le 18 juin 1996 sous le numero 96036
-c aupres des huissiers de justice Simart et Lavoir a Clamart
-c Version 11.2 enregistree le 13 fevrier 2015 sous le numero 2015/014
-c aupres des huissiers de justice
-c Lavoir, Silinski & Cherqui-Abrahmi a Clamart
-c
-c HOMARD est une marque deposee d'Electricite de France
-c
-c Copyright EDF 1996
-c Copyright EDF 1998
-c Copyright EDF 2002
-c Copyright EDF 2020
-c ______________________________________________________________________
-c Dependance Machine : CoPie de CHaine de caracteres
-c - - - - --
-c ______________________________________________________________________
-c
-c
-c but : copie "prudente" de la chaine 1 dans la chaine 2
-c
-c . les eventuels caracteres non imprimables sont remplaces .
-c par des blancs ... sauf ceux en debut et fin de chaine, .
-c qui sont elimines. .
-c
-c dependance machine : code ASCII
-c ( blanc = 32, et
-c non imprimable <==> code < 32 ...
-c ... sauf que les TAB (code 9) sont remplaces
-c par un blanc chacun )
-c ______________________________________________________________________
-c . . . . .
-c . nom . e/s . taille . description .
-c .____________________________________________________________________.
-c . chain1 . e . char * . chaine "source" .
-c . long1 . e . 1 . longueur utile de la chaine "source" .
-c . chain2 . s . char * . chaine "cible" .
-c . long2 . s . 1 . longueur utile de la chaine "cible" .
-c ______________________________________________________________________
-c
-c====
-c 0. declarations et dimensionnement
-c====
-c
-c 0.1. ==> generalites
-c
- implicit none
- save
-c
-c 0.2. ==> communs
-c
-c 0.3. ==> arguments
-c
- integer long1, long2
- character*(*) chain1, chain2
-c
-c 0.4. ==> variables locales
-c
- integer long, iaux, deb, fin, dern0, deb1, p0
-c
-c 0.5. ==> initialisations
-c ______________________________________________________________________
-c
-c====
-c 1.
-c====
-c
- long = 0
- deb = 0
- deb1 = 0
- dern0 = 0
- p0 = -1
-c
- do 1 iaux = 1, min( len(chain1), long1 )
- if ( ichar(chain1(iaux:iaux)).gt.32 ) then
- if ( deb.eq.0 ) then
- deb = iaux
- endif
- fin = iaux
- p0 = 0
- if ( long.lt.len(chain2) ) then
- if ( deb1.eq.0 ) then
- deb1 = iaux
- endif
- long = long + 1
- chain2(long:long) = chain1(iaux:iaux)
- endif
- else if ( ichar(chain1(iaux:iaux)).eq.32 .or.
- > ichar(chain1(iaux:iaux)).eq.9 ) then
- if ( deb.eq.0 ) then
- deb = iaux
- endif
- if ( long.lt.len(chain2) ) then
- long = long + 1
- chain2(long:long) = ' '
- endif
- else
-c
-c non imprimables:
-c
- if ( deb.gt.0 .and. long.lt.len(chain2) ) then
- long = long + 1
- chain2(long:long) = ' '
- endif
- dern0 = iaux
- if ( p0.eq.0 ) then
- p0 = iaux
- endif
- endif
- 1 continue
-c
-c On complete eventuellement avec des blancs :
-c (mais qui ne seront pas comptes dans long2)
-c
- do 10 iaux = long+1, len(chain2)
- chain2(iaux:iaux) = ' '
- 10 continue
-c
-c Bilan :
-c
- if ( deb1.gt.0 ) then
-c
-c Il y a au moins un caractere imprimable et non blanc, qui a pu
-c etre copie de la chaine source chain1 vers la cible chain2 :
-c (deb1 est le premier de ceux-ci dans chain1)
-c
- if ( dern0.lt.fin ) then
- long2 = long
- else
-c
-c Apres le dernier caractere imprimable et non blanc de chain1 (fin),
-c on a trouve : des blancs eventuels, puis un premier caractere non
-c imprimable (p0), puis eventuellement des blancs ou non impr.
-c puis enfin un dernier caractere non impr. (dern0, >= p0),
-c puis des blancs eventuels.
-c
-c deb pointe sur le premier caractere "utile" (blanc ou imprimable)
-c de chaine1 (deb<=deb1<=fin)
-c p0-1 serait le dernier caractere "utile" de chaine1 (fin<=p0-1)
-c
- long2 = min( max(0,len(chain2)) , p0-deb )
-c
- endif
-c
- else
-c
-c chaine "source" vide, ou entierement blanche(+caracteres non impr.) :
-c
- long2 = 0
-c
- endif
-c
- end
+++ /dev/null
- subroutine dmflsh ( codret )
-c ______________________________________________________________________
-c
-c H O M A R D
-c
-c Outil de Maillage Adaptatif par Raffinement et Deraffinement d'EDF R&D
-c
-c Version originale enregistree le 18 juin 1996 sous le numero 96036
-c aupres des huissiers de justice Simart et Lavoir a Clamart
-c Version 11.2 enregistree le 13 fevrier 2015 sous le numero 2015/014
-c aupres des huissiers de justice
-c Lavoir, Silinski & Cherqui-Abrahmi a Clamart
-c
-c HOMARD est une marque deposee d'Electricite de France
-c
-c Copyright EDF 1996
-c Copyright EDF 1998
-c Copyright EDF 2002
-c Copyright EDF 2020
-c ______________________________________________________________________
-c Dependance Machine : FLuSH des buffers
-c - - ----
-c ______________________________________________________________________
-c
-c . . . . .
-c . nom . e/s . taille . description .
-c .____________________________________________________________________.
-c . codret . s . 1 . code de retour .
-c ______________________________________________________________________
-c
-c====
-c 0. declarations et dimensionnement
-c====
-c
-c 0.1. ==> generalites
-c
- implicit none
- save
-c
-c 0.2. ==> communs
-c
-c 0.3. ==> arguments
-c
- integer codret
-c
-c 0.4. ==> variables locales
-c 0.5. ==> initialisations
-c
-c===
-c 1. appel de la fonction C equivalente
-c===
-c
- call dmflsc ( codret )
-c
- end
+++ /dev/null
- subroutine dmftmp ( nomdep , lnomde , nomfic , lnomfi )
-c ______________________________________________________________________
-c
-c H O M A R D
-c
-c Outil de Maillage Adaptatif par Raffinement et Deraffinement d'EDF R&D
-c
-c Version originale enregistree le 18 juin 1996 sous le numero 96036
-c aupres des huissiers de justice Simart et Lavoir a Clamart
-c Version 11.2 enregistree le 13 fevrier 2015 sous le numero 2015/014
-c aupres des huissiers de justice
-c Lavoir, Silinski & Cherqui-Abrahmi a Clamart
-c
-c HOMARD est une marque deposee d'Electricite de France
-c
-c Copyright EDF 1996
-c Copyright EDF 1998
-c Copyright EDF 2002
-c Copyright EDF 2020
-c ______________________________________________________________________
-c Dependance Machine - Fichier TeMPoraire
-c - - - - --
-c ______________________________________________________________________
-c
-c on determine un nom de fichier dont on est sur qu'il n'existe pas.
-c Ce fichier doit se trouver dans le meme repertoire qu'un fichier
-c de depart pour pouvoir faire du renommage par la suite.
-c
-c "renomme" un fichier (trouve un nouveau nom, nomfic, a partir
-c du nom de depart nomdep)
-c ______________________________________________________________________
-c . . . . .
-c . nom . e/s . taille . description .
-c .____________________________________________________________________.
-c . nomdep . e . ch . ancien nom du fichier .
-c . lnomde . e . e . longueur de l'ancien nom du fichier .
-c . nomfic . s . ch . nouveau nom du fichier .
-c . lnomfi . s . e . . longueur du nouveau nom du fichier .
-c . ulsort . e . 1 . unite logique de la liste standard .
-c . langue . e . 1 . langue des messages .
-c . . . . 1 : francais, 2 : anglais .
-c . codret . s . 1 . code de retour .
-c . . . . 0 : pas de probleme .
-c . . . . 1 : probleme .
-c ______________________________________________________________________
-c
-c====
-c 0. declarations et dimensionnement
-c====
-c
-c 0.1. ==> generalites
-c
- implicit none
- save
-c
-c 0.2. ==> communs
-c
-c 0.3. ==> arguments
-c
- character*(*) nomdep, nomfic
-c
- integer lnomde, lnomfi
-c
-c 0.4. ==> variables locales
-c
- integer iaux, jaux, lnomd
-c
- character*4 fmt
-c
- logical old
-c
-c 0.5. ==> initialisations
-c ______________________________________________________________________
-c
-c====
-c 1. on concatene une chaine de caracteres jusqu'a trouver un fichier
-c qui n'existe pas.
-c====
-c
- lnomd = min( max(0,lnomde), max(0,len(nomdep)) )
- do 1 iaux = 1, len(nomfic)
- nomfic(iaux:iaux) = ' '
- 1 continue
-c
- if ( lnomd.lt.len(nomfic) ) then
- if ( lnomd.gt.0 ) then
- nomfic(1:lnomd) = nomdep( 1 : lnomd )
- endif
- jaux = lnomd + 1
- else
- lnomfi = 0
- goto 12
- endif
-c
- do 11 , iaux = 1 , 999999
-c
- if ( iaux.le.9 ) then
- fmt = '(I1)'
- lnomfi = lnomd + 1
- elseif ( iaux.le.99 ) then
- fmt = '(I2)'
- lnomfi = lnomd + 2
- elseif ( iaux.le.999 ) then
- fmt = '(I3)'
- lnomfi = lnomd + 3
- elseif ( iaux.le.9999 ) then
- fmt = '(I4)'
- lnomfi = lnomd + 4
- elseif ( iaux.le.99999 ) then
- fmt = '(I5)'
- lnomfi = lnomd + 5
- else
- fmt = '(I6)'
- lnomfi = lnomd + 6
- endif
-c
- if ( lnomfi.le.len(nomfic) ) then
-c
- write ( nomfic(jaux:lnomfi) , fmt ) iaux
-c
- inquire (file=nomfic(1:lnomfi),exist=old)
-c
- if ( .not.old ) then
- goto 12
- endif
-c
- else
- lnomfi = 0
- goto 12
- endif
-c
- 11 continue
-c
- lnomfi = 0
-c
- 12 continue
-c
- end
+++ /dev/null
- subroutine dmindf ( iindef, rindef, sindef )
-c ______________________________________________________________________
-c
-c H O M A R D
-c
-c Outil de Maillage Adaptatif par Raffinement et Deraffinement d'EDF R&D
-c
-c Version originale enregistree le 18 juin 1996 sous le numero 96036
-c aupres des huissiers de justice Simart et Lavoir a Clamart
-c Version 11.2 enregistree le 13 fevrier 2015 sous le numero 2015/014
-c aupres des huissiers de justice
-c Lavoir, Silinski & Cherqui-Abrahmi a Clamart
-c
-c HOMARD est une marque deposee d'Electricite de France
-c
-c Copyright EDF 1996
-c Copyright EDF 1998
-c Copyright EDF 2002
-c Copyright EDF 2020
-c ______________________________________________________________________
-c Dependance Machine : valeurs INDeFinies
-c - - --- -
-c ______________________________________________________________________
-c
-c affecte les valeurs indefinies
-c ______________________________________________________________________
-c . . . . .
-c . nom . e/s . taille . description .
-c .____________________________________________________________________.
-c . iindef . s . 1 . valeur indefinie entiere .
-c . rindef . s . 1 . valeur indefinie double precision reelle .
-c . sindef . s . c8 . valeur indefinie caractere .
-c ______________________________________________________________________
-c
-c====
-c 0. declarations et dimensionnement
-c====
-c
-c 0.1. ==> generalites
-c
- implicit none
- save
-c
-c 0.2. ==> communs
-c
-c 0.3. ==> arguments
-c
- integer iindef
-c
- double precision rindef
-c
- character*8 sindef
-c
-c 0.4. ==> variables locales
-c
-c====
-c 1. On met une tres grande valeur, reconnaissble
-c====
-c
- iindef = 17891792
-c
- rindef = 1848.1871d12
-c
- sindef = 'INDEFINI'
-c
- end
+++ /dev/null
- subroutine dmjohe ( numann, nummoi, numjou, numjos,
- > numheu, nummin, numsec )
-c ______________________________________________________________________
-c
-c H O M A R D
-c
-c Outil de Maillage Adaptatif par Raffinement et Deraffinement d'EDF R&D
-c
-c Version originale enregistree le 18 juin 1996 sous le numero 96036
-c aupres des huissiers de justice Simart et Lavoir a Clamart
-c Version 11.2 enregistree le 13 fevrier 2015 sous le numero 2015/014
-c aupres des huissiers de justice
-c Lavoir, Silinski & Cherqui-Abrahmi a Clamart
-c
-c HOMARD est une marque deposee d'Electricite de France
-c
-c Copyright EDF 1996
-c Copyright EDF 1998
-c Copyright EDF 2002
-c Copyright EDF 2020
-c ______________________________________________________________________
-c Dependance Machine : JOur et HEure
-c - - -- --
-c ______________________________________________________________________
-c
-c
-c retourne la date et l'heure
-c ______________________________________________________________________
-c . . . . .
-c . nom . e/s . taille . description .
-c .____________________________________________________________________.
-c . numann . s . 1 . numero de l'annee .
-c . nummoi . s . 1 . numero du mois .
-c . numjou . s . 1 . numero du jour (1-->31) .
-c . numjos . s . 1 . numero du jour symbolique (0-->7) .
-c . . . . 0 : rien n'est fourni par la machine .
-c . . . . 1-->7 : numero du jour dans la semaine .
-c . numheu . s . 1 . numero de l'heure .
-c . nummin . s . 1 . numero des minutes .
-c . numsec . s . 1 . numero des secondes .
-c ______________________________________________________________________
-c
-c====
-c 0. declarations et dimensionnement
-c====
-c
-c 0.1. ==> generalites
-c
- implicit none
- save
-c
-cgn character*6 nompro
-cgn parameter ( nompro = 'DMJOHE' )
-c
-c 0.2. ==> communs
-c
-c 0.3. ==> arguments
-c
- integer numann, nummoi, numjou, numjos
- integer numheu, nummin, numsec
-c
-c 0.4. ==> variables locales
-c
- integer iaux
-c
- character*24 tampon
- character*8 chjour, heurus
- character*4 nomann
- character*3 tabday (7)
- character*3 tabmon (12)
- character*3 nomjou, nommoi
-c
-c====
-c 1. les constantes
-c====
-c 1.1. ==> nom des jours
-c
- tabday (1) = 'Mon'
- tabday (2) = 'Tue'
- tabday (3) = 'Wed'
- tabday (4) = 'Thu'
- tabday (5) = 'Fri'
- tabday (6) = 'Sat'
- tabday (7) = 'Sun'
-c
-c 1.2. ==> nom des mois
-c
- tabmon (1) = 'Jan'
- tabmon (2) = 'Feb'
- tabmon (3) = 'Mar'
- tabmon (4) = 'Apr'
- tabmon (5) = 'May'
- tabmon (6) = 'Jun'
- tabmon (7) = 'Jul'
- tabmon (8) = 'Aug'
- tabmon (9) = 'Sep'
- tabmon (10) = 'Oct'
- tabmon (11) = 'Nov'
- tabmon (12) = 'Dec'
-c
-c====
-c 2. determination de la date et de l'heure de passage du calcul
-c====
-c
- chjour = '07/19/94'
- heurus = '09:42:23'
- tampon = 'Thu Jul 19 9:42:23 1994'
- nomann = '1994'
-c
-c sur machine UNIX ou WINDOWS de base
-c 1234567890123456789012345678
-c 'day mon dd hh:mm:ss yyyy'
-c ex : 'Thu Jul 19 9:42:23 1994'
-c====
-c
-c 2.1. ==> appel a la fonction machine
-c
- call dmdate ( tampon )
-c
-c 2.2. ==> archivage sous forme standard
-c
- nomann = tampon(21:24)
- nommoi = tampon(5:7)
- nomjou = tampon(1:3)
- chjour(4:5) = tampon(9:10)
-c
- heurus = tampon(12:19)
-c
-c====
-c 3. decodage commun a toutes les machines
-c====
-c
- if ( index('0123456789',nomann(3:3)).gt.0 .and.
- > index('0123456789',nomann(4:4)).gt.0 ) then
-c
- read ( nomann(3:4) , fmt='(i2)' ) numann
-c
- if (nomann(1:2).eq.'19') then
- numann = numann + 1900
- else
- numann = numann + 2000
- endif
- else
- numann = 1970
- endif
-c
- if ( chjour(4:4).eq.' ' ) then
- chjour(4:4) = '0'
- endif
- if ( index('0123',chjour(4:4)).gt.0 .and.
- > index('0123456789',chjour(5:5)).gt.0 ) then
-c
- read ( chjour(4:5) , fmt='(i2)' ) numjou
-c
- if ( numjou.le.0 .or. numjou.gt.31 ) then
- numjou = 1
- endif
- else if ( chjour(5:5).eq.' ' .and.
- > index('123456789',chjour(4:4)).gt.0 ) then
-c
- read ( chjour(4:4) , fmt='(i1)' ) numjou
-c
- else
- numjou = 1
- endif
-c
-c apres la date, on s'occupe maintenant de l'heure :
-c
- if ( heurus(1:1).eq.' ' ) then
- heurus(1:1) = '0'
- endif
- if ( index('012',heurus(1:1)).gt.0 .and.
- > index('0123456789',heurus(2:2)).gt.0 ) then
-c
- read ( heurus(1:2),fmt='(i2)' ) numheu
-c
- if (numheu.gt.23) then
- numheu = 0
- endif
-c
- else if ( heurus(2:2).eq.' ' .and.
- > index('0123456789',heurus(1:1)).gt.0 ) then
-c
- read ( heurus(1:1),fmt='(i1)' ) numheu
-c
- else
-c
- numheu = 0
-c
- endif
-c
- if ( index(' 012345',heurus(4:4)).gt.0 .and.
- > index('0123456789',heurus(5:5)).gt.0 ) then
-c
- read ( heurus(4:5),fmt='(i2)' ) nummin
-c
- if (nummin.gt.59) then
- nummin = 0
- endif
-c
- else if ( heurus(5:5).eq.' ' .and.
- > index('0123456789',heurus(4:4)).gt.0 ) then
-c
- read ( heurus(4:4),fmt='(i1)' ) nummin
-c
- else
-c
- nummin = 0
-c
- endif
-c
- if ( index(' 012345',heurus(7:7)).gt.0 .and.
- > index('0123456789',heurus(8:8)).gt.0 ) then
-c
- read ( heurus(7:8),fmt='(i2)' ) numsec
-c
- if (numsec.gt.59) then
- numsec = 0
- endif
-c
- else if ( heurus(8:8).eq.' ' .and.
- > index('0123456789',heurus(7:7)).gt.0 ) then
-c
- read ( heurus(7:7),fmt='(i1)' ) numsec
-c
- else
-c
- numsec = 0
-c
- endif
-c
-c====
-c 4. decodages specifiques
-c . nummoi = numero du mois
-c . numjos = numero du jour dans la semaine
-c====
-c
- nummoi = 0
- do 41 , iaux = 1 , 12
- if ( nommoi .eq. tabmon(iaux) ) then
- nummoi = iaux
- endif
- 41 continue
-c
- numjos = 0
- do 42 , iaux = 1 , 7
- if ( nomjou .eq. tabday(iaux) ) then
- numjos = iaux
- endif
- 42 continue
-c
- if (numjou.gt.28 .and. nummoi.gt.1) then
- if (nummoi.eq.2 .and. mod(numann,4).ne.0) then
- nummoi = 0
- else if (nummoi.eq.2 .and. mod(numann,4).eq.0) then
- if (numjou.gt.29) then
- nummoi = 0
- endif
- else if (nummoi.eq.4 .or. nummoi.eq.6) then
- if (numjou.gt.30) then
- nummoi = 0
- endif
- else if (nummoi.eq.9 .or. nummoi.eq.11) then
- if (numjou.gt.30) then
- nummoi = 0
- endif
- endif
- endif
-c
- end
+++ /dev/null
- subroutine dmlibe ( iad, err )
-c ______________________________________________________________________
-c
-c H O M A R D
-c
-c Outil de Maillage Adaptatif par Raffinement et Deraffinement d'EDF R&D
-c
-c Version originale enregistree le 18 juin 1996 sous le numero 96036
-c aupres des huissiers de justice Simart et Lavoir a Clamart
-c Version 11.2 enregistree le 13 fevrier 2015 sous le numero 2015/014
-c aupres des huissiers de justice
-c Lavoir, Silinski & Cherqui-Abrahmi a Clamart
-c
-c HOMARD est une marque deposee d'Electricite de France
-c
-c Copyright EDF 1996
-c Copyright EDF 1998
-c Copyright EDF 2002
-c Copyright EDF 2020
-c ______________________________________________________________________
-c Dependance Machine : LIBEration de place memoire
-c - - ----
-c ______________________________________________________________________
-c
-c
-c but : libere une place memoire demarrant a iad
-c ______________________________________________________________________
-c . . . . .
-c . nom . e/s . taille . description .
-c .____________________________________________________________________.
-c . iad . e . 1 . adresse de depart de la zone allouee .
-c . err . s . 1 . code d'erreur .
-c ______________________________________________________________________
-c
-c====
-c 0. declarations et dimensionnement
-c====
-c
-c 0.1. ==> generalites
-c
- implicit none
- save
-c
-c 0.2. ==> communs
-c
-c 0.3. ==> arguments
-c
- integer iad,err
-c
-c 0.4. ==> variables locales
-c ______________________________________________________________________
-c
-c====
-c 1. appel de la fonction C equivalente
-c====
-c
- call dmlibc ( iad )
- err = 0
-c
- end
+++ /dev/null
- subroutine dmloci (var,iad)
-c ______________________________________________________________________
-c
-c H O M A R D
-c
-c Outil de Maillage Adaptatif par Raffinement et Deraffinement d'EDF R&D
-c
-c Version originale enregistree le 18 juin 1996 sous le numero 96036
-c aupres des huissiers de justice Simart et Lavoir a Clamart
-c Version 11.2 enregistree le 13 fevrier 2015 sous le numero 2015/014
-c aupres des huissiers de justice
-c Lavoir, Silinski & Cherqui-Abrahmi a Clamart
-c
-c HOMARD est une marque deposee d'Electricite de France
-c
-c Copyright EDF 1996
-c Copyright EDF 1998
-c Copyright EDF 2002
-c Copyright EDF 2020
-c ______________________________________________________________________
-c Dependance Machine : LOCalisation en memoire - entIer
-c - - --- -
-c ______________________________________________________________________
-c
-c Ce programme retourne l'adresse en machine ou est la variable var.
-c Il utilise la fonction machine loc qui est une extension par
-c rapport au fortran 77 ansi.
-c Si cette extension n'est pas disponible, on reactivera la
-c fonction C dmloca qui joue sur la facon de passer les arguments :
-c par adresse / par valeur.
-c ______________________________________________________________________
-c . . . . .
-c . nom . e/s . taille . description .
-c .____________________________________________________________________.
-c . iad . s . 1 . adresse de depart de la zone allouee .
-c . var . e . 1 . .
-c ______________________________________________________________________
-c
-c====
-c 0. declarations et dimensionnement
-c====
-c
-c 0.1. ==> generalites
-c
- implicit none
- save
-c
-c 0.2. ==> communs
-c
-c 0.3. ==> arguments
-c
- integer var, iad
-c
-c 0.4. ==> variables locales
-c ______________________________________________________________________
-c
-c====
-c 1. appel du programme ad-hoc
-c====
-c
- iad = loc(var)
-c
- end
+++ /dev/null
- subroutine dmlocr (var,iad)
-c ______________________________________________________________________
-c
-c H O M A R D
-c
-c Outil de Maillage Adaptatif par Raffinement et Deraffinement d'EDF R&D
-c
-c Version originale enregistree le 18 juin 1996 sous le numero 96036
-c aupres des huissiers de justice Simart et Lavoir a Clamart
-c Version 11.2 enregistree le 13 fevrier 2015 sous le numero 2015/014
-c aupres des huissiers de justice
-c Lavoir, Silinski & Cherqui-Abrahmi a Clamart
-c
-c HOMARD est une marque deposee d'Electricite de France
-c
-c Copyright EDF 1996
-c Copyright EDF 1998
-c Copyright EDF 2002
-c Copyright EDF 2020
-c ______________________________________________________________________
-c Dependance Machine : LOCalisation en memoire - Reel
-c - - --- -
-c ______________________________________________________________________
-c
-c Ce programme retourne l'adresse en machine ou est la variable var.
-c Il utilise la fonction machine loc qui est une extension par
-c rapport au fortran 77 ansi.
-c Si cette extension n'est pas disponible, on reactivera la
-c fonction C dmloca qui joue sur la facon de passer les arguments :
-c par adresse / par valeur.
-c ______________________________________________________________________
-c . . . . .
-c . nom . e/s . taille . description .
-c .____________________________________________________________________.
-c . iad . s . 1 . adresse de depart de la zone allouee .
-c . var . e . 1 . .
-c ______________________________________________________________________
-c
-c====
-c 0. declarations et dimensionnement
-c====
-c
-c 0.1. ==> generalites
-c
- implicit none
- save
-c
-c 0.2. ==> communs
-c
-c 0.3. ==> arguments
-c
- double precision var
- integer iad
-c
-c 0.4. ==> variables locales
-c ______________________________________________________________________
-c
-c====
-c 1. appel du programme ad-hoc
-c====
-c
- iad = loc(var)
-c
- end
+++ /dev/null
- subroutine dmlocs (var,iad)
-c ______________________________________________________________________
-c
-c H O M A R D
-c
-c Outil de Maillage Adaptatif par Raffinement et Deraffinement d'EDF R&D
-c
-c Version originale enregistree le 18 juin 1996 sous le numero 96036
-c aupres des huissiers de justice Simart et Lavoir a Clamart
-c Version 11.2 enregistree le 13 fevrier 2015 sous le numero 2015/014
-c aupres des huissiers de justice
-c Lavoir, Silinski & Cherqui-Abrahmi a Clamart
-c
-c HOMARD est une marque deposee d'Electricite de France
-c
-c Copyright EDF 1996
-c Copyright EDF 1998
-c Copyright EDF 2002
-c Copyright EDF 2020
-c ______________________________________________________________________
-c Dependance Machine : LOCalisation en memoire - String
-c - - --- -
-c ______________________________________________________________________
-c
-c Ce programme retourne l'adresse en machine ou est la variable var.
-c Il utilise la fonction machine loc qui est une extension par
-c rapport au fortran 77 ansi.
-c Si cette extension n'est pas disponible, on reactivera la
-c fonction C dmloca qui joue sur la facon de passer les arguments :
-c par adresse / par valeur.
-c ______________________________________________________________________
-c . . . . .
-c . nom . e/s . taille . description .
-c .____________________________________________________________________.
-c . iad . s . 1 . adresse de depart de la zone allouee .
-c . var . e . 1 . .
-c ______________________________________________________________________
-c
-c====
-c 0. declarations et dimensionnement
-c====
-c
-c 0.1. ==> generalites
-c
- implicit none
- save
-c
-c 0.2. ==> communs
-c
-c 0.3. ==> arguments
-c
- character*8 var
- integer iad
-c
-c 0.4. ==> variables locales
-c ______________________________________________________________________
-c
-c====
-c 1. appel du programme ad-hoc
-c====
-c
- iad = loc(var)
-c
- end
+++ /dev/null
- subroutine dmmach ( nomare, nomais, typmac,
- > noarch, systre, systve,
- > lgcar )
-c ______________________________________________________________________
-c
-c H O M A R D
-c
-c Outil de Maillage Adaptatif par Raffinement et Deraffinement d'EDF R&D
-c
-c Version originale enregistree le 18 juin 1996 sous le numero 96036
-c aupres des huissiers de justice Simart et Lavoir a Clamart
-c Version 11.2 enregistree le 13 fevrier 2015 sous le numero 2015/014
-c aupres des huissiers de justice
-c Lavoir, Silinski & Cherqui-Abrahmi a Clamart
-c
-c HOMARD est une marque deposee d'Electricite de France
-c
-c Copyright EDF 1996
-c Copyright EDF 1998
-c Copyright EDF 2002
-c Copyright EDF 2020
-c ______________________________________________________________________
-c Dependance Machine : caracteristiques de la MACHine
-c - - ----
-c ______________________________________________________________________
-c
-c retourne le type de machine sur laquelle a lieu le calcul
-c ______________________________________________________________________
-c . . . . .
-c . nom . e/s . taille . description .
-c .____________________________________________________________________.
-c . nomare . s . char* . nom reseau de la machine .
-c . nomais . s . char* . nom de la machine isolee .
-c . typmac . s . char* . type de la machine .
-c . noarch . s . char* . nom de l'architecture systeme .
-c . systre . s . char* . release du systeme .
-c . systve . s . char* . version du systeme .
-c . lgcar . s . 6 . longueurs de chacune des chaines de caract..
-c ______________________________________________________________________
-c
-c====
-c 0. declarations et dimensionnement
-c====
-c
-c 0.1. ==> generalites
-c
- implicit none
- save
-c
- integer nbcar
- parameter ( nbcar = 6 )
-c
-c 0.2. ==> communs
-c
-c 0.3. ==> arguments
-c
- character*(*) nomare
- character*(*) nomais
- character*(*) typmac
- character*(*) noarch
- character*(*) systre
- character*(*) systve
-c
- integer lgcar(nbcar)
-c
-c 0.4. ==> variables locales
-#ifdef _DEBUG_HOMARD_
- integer enstul, sostul
-#endif
-c
- integer iaux, jaux
- integer luname(nbcar)
- integer lgcloc(nbcar)
- character*255 uname(nbcar)
-c
-c 0.5. ==> initialisations
-c
-c===
-c 1. nom et numero de la machine
-c===
-c
-c 1.1. ==> on suppose que l'on ignore tout
-c
- lgcloc(1) = len(nomare)
- lgcloc(2) = len(nomais)
- lgcloc(3) = len(typmac)
- lgcloc(4) = len(noarch)
- lgcloc(5) = len(systre)
- lgcloc(6) = len(systve)
-c
- nomare = ' '
- nomais = ' '
- typmac = ' '
- noarch = ' '
- systre = ' '
- systve = ' '
-c
- do 11 , iaux = 1 , nbcar
- lgcar(iaux) = 1
- 11 continue
-c
-c 1.2. ==> preparation de l'appel a dmmacc : on met la chaine a blanc
-c jaux est la taille (nombre de caracteres) de chaque element
-c du tableau uname. 256 semblerait etre une bonne valeur,
-c preconisee sous unix, ...
-c mais ftnchek rale au dela de 255 (portabilite).
-c
- jaux = len (uname(1))
-c
- do 121 , iaux = 1, jaux
- uname(1)(iaux:iaux) = ' '
- 121 continue
- luname(1) = jaux
-c
- do 122 , iaux = 2, nbcar
- uname(iaux) = uname(1)
- luname(iaux) = luname(1)
- 122 continue
-c
-c 1.3. ==> appel de la fonction C equivalente
-c argument 1 = nomare
-c argument 2 = typmac
-c argument 3 = noarch
-c argument 4 = systre
-c argument 5 = systve
-c
- call dmmacc ( uname(1), luname(1), uname(2), luname(2),
- > uname(3), luname(3), uname(4), luname(4),
- > uname(5), luname(5) )
-c
-c====
-c 2. transfert dans les bonnes variables
-c====
-c 2.1. ==> nettoyage eventuel (caracteres non impr.)
-c
- do 21 , iaux = 1, nbcar
- call dmcpch ( uname(iaux), luname(iaux),
- > uname(iaux), luname(iaux) )
- 21 continue
-c
-c 2.2. ==> transfert
-c 2.2.1. ==> argument 1 = nomare
-c
- if ( luname(1).gt.0 ) then
- iaux = min(luname(1),lgcloc(1))
- nomare(1:iaux) = uname(1)(1:iaux)
- lgcar(1) = iaux
- endif
- if ( luname(1).gt.0 ) then
- do 22 , iaux = 1 , lgcar(1)
- if ( nomare(iaux:iaux).eq.'.' ) then
- lgcar(2) = iaux-1
- goto 221
- endif
- nomais(iaux:iaux) = nomare(iaux:iaux)
- 22 continue
- lgcar(2) = lgcar(1)
- 221 continue
- endif
-c
-c 2.2.2. ==> argument 2 = typmac
-c
- if ( luname(2).gt.0 ) then
- iaux = min(luname(2),lgcloc(2))
- typmac(1:iaux) = uname(2)(1:iaux)
- lgcar(3) = iaux
- endif
-c
-c 2.2.3. ==> argument 2 = noarch
-c
- if ( luname(3).gt.0 ) then
- iaux = min(luname(3),lgcloc(3))
- noarch(1:iaux) = uname(3)(1:iaux)
- lgcar(4) = iaux
- endif
-c
-c 2.2.4. ==> argument 4 = systre
-c
- if ( luname(4).gt.0 ) then
- iaux = min(luname(4),lgcloc(4))
- systre(1:iaux) = uname(4)(1:iaux)
- lgcar(5) = iaux
- endif
-c
-c 2.2.5. ==> argument 5 = systve
-c
- if ( luname(5).gt.0 ) then
- iaux = min(luname(5),lgcloc(5))
- systve(1:iaux) = uname(5)(1:iaux)
- lgcar(6) = iaux
- endif
-c
-#ifdef _DEBUG_HOMARD_
- call dmunit ( enstul, sostul )
- write(sostul,*) 'Dans dmmach :'
- write(sostul,*) 'nom reseau = ', nomare
- write(sostul,*) 'nom isole = ', nomais
- write(sostul,*) 'typmac = ', typmac
- write(sostul,*) 'architecture = ', noarch
- write(sostul,*) 'release = ', systre
- write(sostul,*) 'version = ', systve
-#endif
-c
- end
+++ /dev/null
- subroutine dmnfcv ( nfichi, lfichi )
-c
-c ______________________________________________________________________
-c
-c H O M A R D
-c
-c Outil de Maillage Adaptatif par Raffinement et Deraffinement d'EDF R&D
-c
-c Version originale enregistree le 18 juin 1996 sous le numero 96036
-c aupres des huissiers de justice Simart et Lavoir a Clamart
-c Version 11.2 enregistree le 13 fevrier 2015 sous le numero 2015/014
-c aupres des huissiers de justice
-c Lavoir, Silinski & Cherqui-Abrahmi a Clamart
-c
-c HOMARD est une marque deposee d'Electricite de France
-c
-c Copyright EDF 1996
-c Copyright EDF 1998
-c Copyright EDF 2002
-c Copyright EDF 2020
-c ______________________________________________________________________
-c Dependance Machine : Nom de Fichier ConVerti
-c - - - - - -
-c ______________________________________________________________________
-c
-c REMARQUE : en fait on ne fait RIEN
-c il faudrait traiter le probleme en C pour Windows
-c
-c but : convertit un nom de fichier UNIX en un nom de fichier
-c acceptable par le systeme d'exploitation utilise.
-c autrement dit, sous WINDOWS, change les / en \ , et .
-c ailleurs (sous UNIX, en particulier), ne fait RIEN .
-c ______________________________________________________________________
-c . . . . .
-c . nom . e/s . taille . description .
-c .____________________________________________________________________.
-c . nfichi . es . char * . nom de fichier .
-c . lfichi . e . 1 . longueur de ce nom .
-c ______________________________________________________________________
-c
-c====
-c 0. declarations et dimensionnement
-c====
-c
-c 0.1. ==> generalites
-c
- implicit none
- save
-c
-c 0.2. ==> communs
-c
-c 0.3. ==> arguments
-c
- integer lfichi
- character*(*) nfichi
-c
-c 0.4. ==> variables locales
-c
- integer iaux
-c
- character*1 slash
-c
- character*1 slashu
- parameter ( slashu = '/' )
-c
-c 0.5. ==> initialisations
-c ______________________________________________________________________
-c
-c====
-c 1. Recherche du caractere de separation pour la machine courante
-c====
-c
- call dmsepf ( slash )
-c
-c====
-c 2. Substitution le cas echeant
-c====
-c
- if ( slash.ne.slashu ) then
-c
- do 21 , iaux = 1 , lfichi
- if ( nfichi(iaux:iaux).eq.slashu ) then
- nfichi(iaux:iaux) = slash
- endif
- 21 continue
-c
- endif
-c
- end
+++ /dev/null
- subroutine dmoubs ( nuroul , nomfic, lnomfi,
- > ulmess, codret )
-c ______________________________________________________________________
-c
-c H O M A R D
-c
-c Outil de Maillage Adaptatif par Raffinement et Deraffinement d'EDF R&D
-c
-c Version originale enregistree le 18 juin 1996 sous le numero 96036
-c aupres des huissiers de justice Simart et Lavoir a Clamart
-c Version 11.2 enregistree le 13 fevrier 2015 sous le numero 2015/014
-c aupres des huissiers de justice
-c Lavoir, Silinski & Cherqui-Abrahmi a Clamart
-c
-c HOMARD est une marque deposee d'Electricite de France
-c
-c Copyright EDF 1996
-c Copyright EDF 1998
-c Copyright EDF 2002
-c Copyright EDF 2020
-c ______________________________________________________________________
-c Dependance Machine - OUverture en Binaire Sequentiel
-c - - -- - -
-c ______________________________________________________________________
-c
-c . . . . .
-c . nom . e/s . taille . description .
-c .____________________________________________________________________.
-c . nuroul . e . 1 . numero de l'unite logique attribuee .
-c . nomfic . e . ch<200 . nom du fichier a ouvrir .
-c . lnomfi . e . 1 . longueur du nom du fichier a ouvrir .
-c . ulmess . e . 1 . numero d'unite logique des messages .
-c . codret . s . 1 . code de retour : 0 si c'est bon .
-c ______________________________________________________________________
-c
-c====
-c 0. declarations et dimensionnement
-c====
-c
-c 0.1. ==> generalites
-c
- implicit none
- save
-c
-c 0.2. ==> communs
-c
-c 0.3. ==> arguments
-c
- integer nuroul, lnomfi, codret, ulmess
-c
- character*(*) nomfic
-c
-c 0.4. ==> variables locales
-c
-c 0.5. ==> initialisations
-c
-c===
-c 1. pas de differences entre les machines
-c===
-c
- open ( unit=nuroul, err=10, file=nomfic(1:lnomfi),
- > access='SEQUENTIAL', form='UNFORMATTED',
- > status='UNKNOWN', iostat=codret )
-c
- goto 11
-c
- 10 continue
- if ( codret.eq.0 ) then
- codret = -1
- endif
-c
- 11 continue
-c
- if ( codret.ne.0 ) then
- write(ulmess,*) 'Ouverture du fichier :'
- write(ulmess,*) nomfic(1:lnomfi)
- write(ulmess,*) 'Code retour dans dmoubs : ',codret
- endif
-c
- end
+++ /dev/null
- subroutine dmoufs ( nuroul , nomfic, lnomfi,
- > ulmess, codret )
-c ______________________________________________________________________
-c
-c H O M A R D
-c
-c Outil de Maillage Adaptatif par Raffinement et Deraffinement d'EDF R&D
-c
-c Version originale enregistree le 18 juin 1996 sous le numero 96036
-c aupres des huissiers de justice Simart et Lavoir a Clamart
-c Version 11.2 enregistree le 13 fevrier 2015 sous le numero 2015/014
-c aupres des huissiers de justice
-c Lavoir, Silinski & Cherqui-Abrahmi a Clamart
-c
-c HOMARD est une marque deposee d'Electricite de France
-c
-c Copyright EDF 1996
-c Copyright EDF 1998
-c Copyright EDF 2002
-c Copyright EDF 2020
-c ______________________________________________________________________
-c Dependance Machine - OUverture en Formate Sequentiel
-c - - -- - -
-c ______________________________________________________________________
-c
-c . . . . .
-c . nom . e/s . taille . description .
-c .____________________________________________________________________.
-c . nuroul . e . 1 . numero de l'unite logique attribuee .
-c . nomfic . e . ch<200 . nom du fichier a ouvrir .
-c . lnomfi . e . 1 . longueur du nom du fichier a ouvrir .
-c . ulmess . e . 1 . numero d'unite logique des messages .
-c . codret . s . 1 . code de retour : 0 si c'est bon .
-c ______________________________________________________________________
-c
-c====
-c 0. declarations et dimensionnement
-c====
-c
-c 0.1. ==> generalites
-c
- implicit none
- save
-c
-c 0.2. ==> communs
-c
-c 0.3. ==> arguments
-c
- integer nuroul, lnomfi, codret, ulmess
-c
- character*(*) nomfic
-c
-c 0.4. ==> variables locales
-c
-c 0.5. ==> initialisations
-c
-c===
-c 1. pas de differences entre les machines
-c===
-c
- open ( unit=nuroul, err=10, file=nomfic(1:lnomfi),
- > access='SEQUENTIAL', form='FORMATTED',
- > status='UNKNOWN', iostat=codret )
-c
- goto 11
-c
- 10 continue
- if ( codret.eq.0 ) then
- codret = -1
- endif
-c
- 11 continue
-c
- if ( codret.ne.0 ) then
- write(ulmess,*) 'Ouverture du fichier :'
- write(ulmess,*) nomfic(1:lnomfi)
- write(ulmess,*) 'Code retour dans dmoufs : ',codret
- endif
-c
- end
+++ /dev/null
- subroutine dmprma ( epsima, dmxent, nbchii )
-c ______________________________________________________________________
-c
-c H O M A R D
-c
-c Outil de Maillage Adaptatif par Raffinement et Deraffinement d'EDF R&D
-c
-c Version originale enregistree le 18 juin 1996 sous le numero 96036
-c aupres des huissiers de justice Simart et Lavoir a Clamart
-c Version 11.2 enregistree le 13 fevrier 2015 sous le numero 2015/014
-c aupres des huissiers de justice
-c Lavoir, Silinski & Cherqui-Abrahmi a Clamart
-c
-c HOMARD est une marque deposee d'Electricite de France
-c
-c Copyright EDF 1996
-c Copyright EDF 1998
-c Copyright EDF 2002
-c Copyright EDF 2020
-c ______________________________________________________________________
-c Dependance Machine : PRecision MAchine
-c - - -- --
-c ______________________________________________________________________
-c
-c retourne la precision machine
-c ______________________________________________________________________
-c . . . . .
-c . nom . e/s . taille . description .
-c .____________________________________________________________________.
-c . epsima . s . dp . la precision de la machine .
-c . dmxent . s . dp . plus grand entier, exprime en double .
-c . nbchii . s . i . nombre de chiffres significatifs des entier.
-c ______________________________________________________________________
-c
-c====
-c 0. declarations et dimensionnement
-c====
-c
-c 0.1. ==> generalites
-c
- implicit none
- save
-c
-c 0.2. ==> communs
-c
-c 0.3. ==> arguments
-c
- integer nbchii
-c
- double precision epsima, dmxent
-c
-c 0.4. ==> variables locales
-c
-c 0.5. ==> initialisations
-c
-c====
-c 1. appel de la fonction generique
-c====
-c
- call dmprmc ( epsima, nbchii )
-cgn print *,epsima
-cgn print *,nbchii
-c
-c====
-c 2. plus grand entier, exprime en double
-c====
-c
- dmxent = 10.d0**nbchii
-cgn print *,dmxent
-cgn print *,int(dmxent)
-c
- end
+++ /dev/null
- subroutine dmralo ( adress, taille, codret )
-c
-c ______________________________________________________________________
-c
-c H O M A R D
-c
-c Outil de Maillage Adaptatif par Raffinement et Deraffinement d'EDF R&D
-c
-c Version originale enregistree le 18 juin 1996 sous le numero 96036
-c aupres des huissiers de justice Simart et Lavoir a Clamart
-c Version 11.2 enregistree le 13 fevrier 2015 sous le numero 2015/014
-c aupres des huissiers de justice
-c Lavoir, Silinski & Cherqui-Abrahmi a Clamart
-c
-c HOMARD est une marque deposee d'Electricite de France
-c
-c Copyright EDF 1996
-c Copyright EDF 1998
-c Copyright EDF 2002
-c Copyright EDF 2020
-c ______________________________________________________________________
-c Dependance Machine : ReALlOcation
-c - - - -- -
-c ______________________________________________________________________
-c
-c but : re-alloue une place memoire demarrant a adress,
-c a la nouvelle taille
-c Attention : l'adresse de depart peut etre MODIFIEE, meme si la
-c nouvelle taille est plus petite que l'ancienne.
-c Le contenu, lui, est conserve.
-c ______________________________________________________________________
-c . . . . .
-c . nom . e/s . taille . description .
-c .____________________________________________________________________.
-c . adress . es . 1 . adresse de depart de la zone allouee .
-c . taille . e . 1 . nouvelle taille de la zone allouee .
-c . codret . s . 1 . code d'erreur ( 0 : tout va bien ) .
-c ______________________________________________________________________
-c
-c====
-c 0. declarations et dimensionnement
-c====
-c
-c 0.1. ==> generalites
-c
- implicit none
- save
-c
-c 0.2. ==> communs
-c
-c 0.3. ==> arguments
-c
- integer adress, taille, codret
-c
-c 0.4. ==> variables locales
-c ______________________________________________________________________
-c
-c Precautions generales d'emploi:
-c - la taille finale doit etre strictement positive
-c (sinon, ce serait une desallocation complete: cf. dmlibe)
-c - l'adresse de depart doit correspondre (en entree) a une
-c adresse de depart d'une zone allouee (cf. dmalme) ou
-c re-allouee...
-c
- if ( taille.gt.0 ) then
-c
- call dmralc ( adress, taille )
-c
- if ( adress.eq.0 ) then
- codret = 1
- else
- codret = 0
- endif
-c
- else
-c
- codret = -1
-c
- endif
-c
- end
+++ /dev/null
- subroutine dmsepf ( slash )
-c ______________________________________________________________________
-c
-c H O M A R D
-c
-c Outil de Maillage Adaptatif par Raffinement et Deraffinement d'EDF R&D
-c
-c Version originale enregistree le 18 juin 1996 sous le numero 96036
-c aupres des huissiers de justice Simart et Lavoir a Clamart
-c Version 11.2 enregistree le 13 fevrier 2015 sous le numero 2015/014
-c aupres des huissiers de justice
-c Lavoir, Silinski & Cherqui-Abrahmi a Clamart
-c
-c HOMARD est une marque deposee d'Electricite de France
-c
-c Copyright EDF 1996
-c Copyright EDF 1998
-c Copyright EDF 2002
-c Copyright EDF 2020
-c ______________________________________________________________________
-c Dependance Machine : SEParateur Fichiers
-c - - --- -
-c ______________________________________________________________________
-c . . . . .
-c . nom . e/s . taille . description .
-c .____________________________________________________________________.
-c . slash . s . char* . separateur des noms de fichiers .
-c ______________________________________________________________________
-c
-c====
-c 0. declarations et dimensionnement
-c====
-c
-c 0.1. ==> generalites
-c
- implicit none
- save
-c
-c 0.2. ==> communs
-c
-c 0.3. ==> arguments
-c
- character*(*) slash
-c
-c 0.4. ==> variables locales
-c
-c 0.5. ==> initialisations
-c
-c===
-c 1. appel de la fonction C equivalente
-c===
-c
- call dmsepc ( slash )
-c
- end
+++ /dev/null
- subroutine dmsize ( tentie , treel, tchain )
-c ______________________________________________________________________
-c
-c H O M A R D
-c
-c Outil de Maillage Adaptatif par Raffinement et Deraffinement d'EDF R&D
-c
-c Version originale enregistree le 18 juin 1996 sous le numero 96036
-c aupres des huissiers de justice Simart et Lavoir a Clamart
-c Version 11.2 enregistree le 13 fevrier 2015 sous le numero 2015/014
-c aupres des huissiers de justice
-c Lavoir, Silinski & Cherqui-Abrahmi a Clamart
-c
-c HOMARD est une marque deposee d'Electricite de France
-c
-c Copyright EDF 1996
-c Copyright EDF 1998
-c Copyright EDF 2002
-c Copyright EDF 2020
-c ______________________________________________________________________
-c Dependance Machine : SIZE des variables selon leurs types
-c - - ----
-c ______________________________________________________________________
-c
-c . . . . .
-c . nom . e/s . taille . description .
-c .____________________________________________________________________.
-c . tentie . s . 1 . tailles des entiers en octets .
-c . treel . s . 1 . tailles des reels en octets .
-c . tchain . s . 1 . tailles des chaines en octets .
-c ______________________________________________________________________
-c
-c====
-c 0. declarations et dimensionnement
-c====
-c
-c 0.1. ==> generalites
-c
- implicit none
- save
-c
-#ifdef _DEBUG_HOMARD_
- character*6 nompro
- parameter ( nompro = 'DMSIZE' )
-#endif
-c
-c 0.2. ==> communs
-c
-c 0.3. ==> arguments
-c
- integer tentie , treel, tchain
-c
-c 0.4. ==> variables locales
-c 0.5. ==> initialisations
-c
-c===
-c 1. appel de la fonction C equivalente
-c===
-c
-#ifdef _DEBUG_HOMARD_
- write (*,*) 'Appel de DMSIZC par ', nompro
-#endif
- call dmsizc ( tentie , treel, tchain )
-c
-#ifdef _DEBUG_HOMARD_
- write (*,*) 'Dans ', nompro,', apres dmsizc, tailles en octets :'
- write (*,*) ' Entier : ', tentie
- write (*,*) ' Reel : ', treel
- write (*,*) ' Chaine : ', tchain
-#endif
-c
- end
+++ /dev/null
- subroutine dmtemp ( tuser, tsyst )
-c ______________________________________________________________________
-c
-c H O M A R D
-c
-c Outil de Maillage Adaptatif par Raffinement et Deraffinement d'EDF R&D
-c
-c Version originale enregistree le 18 juin 1996 sous le numero 96036
-c aupres des huissiers de justice Simart et Lavoir a Clamart
-c Version 11.2 enregistree le 13 fevrier 2015 sous le numero 2015/014
-c aupres des huissiers de justice
-c Lavoir, Silinski & Cherqui-Abrahmi a Clamart
-c
-c HOMARD est une marque deposee d'Electricite de France
-c
-c Copyright EDF 1996
-c Copyright EDF 1998
-c Copyright EDF 2002
-c Copyright EDF 2020
-c ______________________________________________________________________
-c Dependance Machine : TEMPs de calcul
-c - - ----
-c ______________________________________________________________________
-c
-c
-c retourne les temps user et systeme ecoules depuis le dernier appel
-c ______________________________________________________________________
-c . . . . .
-c . nom . e/s . taille . description .
-c .____________________________________________________________________.
-c . tuser . s . 1 . temps user depuis le dernier appel .
-c . tsyst . s . 1 . temps systeme .................... .
-c ______________________________________________________________________
-c
-c====
-c 0. declarations et dimensionnement
-c====
-c
-c 0.1. ==> generalites
-c
- implicit none
- save
-c
-c 0.2. ==> communs
-c
-c 0.3. ==> arguments
-c
- double precision tuser, tsyst
-c
-c 0.4. ==> variables locales
-c
- logical prem
-c
- double precision tuser0, tsyst0
- double precision tuser1, tsyst1
-c
-c 0.5. ==> initialisations
-c
- data prem / .true. /
-c
-c===
-c 1. appel de la fonction C equivalente
-c===
-c
- call dmtemc ( tuser, tsyst )
-c
-c 1.1 ==> Archivage du depart
-c
- if ( prem ) then
-c
- tuser0 = tuser
- tsyst0 = tsyst
-c
- tuser = 0.d0
- tsyst = 0.0d0
-c
- prem = .false.
-c
- else
-c
-c 1.2. ==> Difference
-c
- tuser1 = tuser
- tsyst1 = tsyst
-c
- tuser = tuser - tuser0
- tsyst = tsyst - tsyst0
-c
- tuser0 = tuser1
- tsyst0 = tsyst1
-c
- endif
-c
- end
+++ /dev/null
- subroutine dmunit ( enstul, sostul )
-c ______________________________________________________________________
-c
-c H O M A R D
-c
-c Outil de Maillage Adaptatif par Raffinement et Deraffinement d'EDF R&D
-c
-c Version originale enregistree le 18 juin 1996 sous le numero 96036
-c aupres des huissiers de justice Simart et Lavoir a Clamart
-c Version 11.2 enregistree le 13 fevrier 2015 sous le numero 2015/014
-c aupres des huissiers de justice
-c Lavoir, Silinski & Cherqui-Abrahmi a Clamart
-c
-c HOMARD est une marque deposee d'Electricite de France
-c
-c Copyright EDF 1996
-c Copyright EDF 1998
-c Copyright EDF 2002
-c Copyright EDF 2020
-c ______________________________________________________________________
-c Dependance Machine : UNITes logiques d'entree et de sortie standard
-c - - ----
-c ______________________________________________________________________
-c
-c but : retourne les numeros d'entree et de sortie standard sur
-c la machine concernee
-c ______________________________________________________________________
-c . . . . .
-c . nom . e/s . taille . description .
-c .____________________________________________________________________.
-c . enstul . s . 1 . entree standard : numero de l'unite logique.
-c . sostul . s . 1 . sortie standard : numero de l'unite logique.
-c ______________________________________________________________________
-c
-c====
-c 0. declarations et dimensionnement
-c====
-c
-c 0.1. ==> generalites
-c
- implicit none
- save
-c
-c 0.2. ==> communs
-c
-c 0.3. ==> arguments
-c
- integer enstul, sostul
-c
-c 0.4. ==> variables locales
-c
-c====
-c 1. affectation
-c====
-c
- enstul = 5
-c
- sostul = 6
-c
- end
+++ /dev/null
- subroutine dmvaen ( nomvar, lgnova, nomuti, lgnout,
- > ulsort, langue, codret )
-c ______________________________________________________________________
-c
-c H O M A R D
-c
-c Outil de Maillage Adaptatif par Raffinement et Deraffinement d'EDF R&D
-c
-c Version originale enregistree le 18 juin 1996 sous le numero 96036
-c aupres des huissiers de justice Simart et Lavoir a Clamart
-c Version 11.2 enregistree le 13 fevrier 2015 sous le numero 2015/014
-c aupres des huissiers de justice
-c Lavoir, Silinski & Cherqui-Abrahmi a Clamart
-c
-c HOMARD est une marque deposee d'Electricite de France
-c
-c Copyright EDF 1996
-c Copyright EDF 1998
-c Copyright EDF 2002
-c Copyright EDF 2020
-c ______________________________________________________________________
-c Dependance Machine - decodage d'une VAriable d'ENvironnement
-c - - -- --
-c ______________________________________________________________________
-c
-c
-c but : decode les variables d'environnement
-c ______________________________________________________________________
-c . . . . .
-c . nom . e/s . taille . description .
-c .____________________________________________________________________.
-c . nomvar . e . char* . nom de la variable a decoder .
-c . lgnova . e . i . longueur reelle de nomvar .
-c . nomuti . s . char* . nom utilisable pour cette variable .
-c . lgnout . s . i . longueur reelle de nomuti .
-c . ulsort . e . 1 . unite logique de la liste standard .
-c . langue . e . 1 . langue des messages .
-c . . . . 1 : francais, 2 : anglais .
-c . codret . s . 1 . code de retour .
-c . . . . 0 : pas de probleme .
-c . . . . 1 : impossible de decoder la variable .
-c ______________________________________________________________________
-c
-c====
-c 0. declarations et dimensionnement
-c====
-c
-c 0.1. ==> generalites
-c
- implicit none
- save
-c
- character*6 nompro
- parameter ( nompro = 'DMVAEN' )
-c
-#include "nblang.h"
-c
-c 0.2. ==> communs
-c
-c 0.3. ==> arguments
-c
- character*(*) nomvar, nomuti
-c
- integer lgnova, lgnout
- integer ulsort, langue, codret
-c
-c 0.4. ==> variables locales
-c
- integer iaux, lgmax
-c
- integer nbmess
- parameter ( nbmess = 10 )
- character*80 texte(nblang,nbmess)
-c
-c 0.5. ==> initialisations
-c
- parameter ( lgmax = 200 )
-c ______________________________________________________________________
-c
-c====
-c 1. messages
-c====
-c
-#include "impr01.h"
-c
-#ifdef _DEBUG_HOMARD_
- write (ulsort,texte(langue,1)) 'Entree', nompro
- call dmflsh (iaux)
-#endif
-c
- texte(1,4) = '(''Variable d''''environnement :'')'
- texte(1,5) = '(''Impossible de la decoder.'')'
- texte(1,6) = '(''Valeur interpretee :'')'
-c
- texte(2,4) = '(''Environment variable :'')'
- texte(2,5) = '(''It cannot be uncoded.'')'
- texte(2,6) = '(''It is equal to :'')'
-c
-c====
-c 2. appel a la fonction machine
-c====
-c
- lgnout = 0
-c
- do 2 iaux = 1 , len(nomuti)
- nomuti(iaux:iaux) = ' '
- 2 continue
-c
-c 2.1. ==> attention a la taille maximale ...
-c
- if ( lgnova.le.0 .or. lgnova.gt.len(nomvar) ) then
-c
- codret = 1
-c
- else
-c
-c 2.2. ==> appel a la fonction standard ailleurs et
-c comptage du nombre de lettres effectives
-c
-c NB: sous WINDOWS + Visual Fortran 6.0, l'appel a getenv impose
-c le rajout de la bibliotheque Dfport.lib
-c pour que l'edition des liens se passe bien.
-c
- call getenv ( nomvar(1:lgnova) , nomuti )
-c
- do 221 , iaux = 1 , min(lgmax,len(nomuti))
- if ( nomuti(iaux:iaux).eq.' ' ) then
- codret = 0
- goto 222
- endif
- lgnout = lgnout + 1
- 221 continue
-c
- codret = 1
-c
- 222 continue
-c
-c nettoyage eventuel:
-c
- call dmcpch( nomuti, lgnout, nomuti, lgnout )
-c
- endif
-c
-c====
-c 3. la fin
-c====
-c
-#ifdef _DEBUG_HOMARD_
- iaux = -1
-#else
- iaux = 0
-#endif
-c
- if ( codret.ne.iaux ) then
- write (ulsort,texte(langue,1)) 'Sortie', nompro
- write (ulsort,texte(langue,2)) codret
- write (ulsort,texte(langue,4))
- if (min(lgnova,len(nomvar)).ge.1) then
- write (ulsort,*) nomvar( 1 : min(lgnova,len(nomvar)) )
- else
- write (ulsort,*)
- endif
- if ( codret.eq.1 ) then
- write (ulsort,texte(langue,5))
- else
- if ( iaux.eq.-1 ) then
- write (ulsort,texte(langue,6))
- if (lgnout.ge.1) then
- write (ulsort,*) nomuti(1:lgnout)
- else
- write (ulsort,*)
- endif
- endif
- endif
- endif
-c
-#ifdef _DEBUG_HOMARD_
- write (ulsort,texte(langue,1)) 'Sortie', nompro
- call dmflsh (iaux)
-#endif
-c
- end
+++ /dev/null
- subroutine dmze10 ( vinfpo, zero, pd10vi, pd10ze )
-c ______________________________________________________________________
-c
-c H O M A R D
-c
-c Outil de Maillage Adaptatif par Raffinement et Deraffinement d'EDF R&D
-c
-c Version originale enregistree le 18 juin 1996 sous le numero 96036
-c aupres des huissiers de justice Simart et Lavoir a Clamart
-c Version 11.2 enregistree le 13 fevrier 2015 sous le numero 2015/014
-c aupres des huissiers de justice
-c Lavoir, Silinski & Cherqui-Abrahmi a Clamart
-c
-c HOMARD est une marque deposee d'Electricite de France
-c
-c Copyright EDF 1996
-c Copyright EDF 1998
-c Copyright EDF 2002
-c Copyright EDF 2020
-c ______________________________________________________________________
-c Dependance Machine : ZEros en puissance de 10
-c - - -- --
-c ______________________________________________________________________
-c
-c
-c retourne la plus petite et la plus grande valeur possible
-c et leurs puissances de 10 associees : x = 0.abc*10**n
-c exemple : avec x = 1.e9, on a x = 0.1*10**10, donc n = 10
-c avec x = 1.e-40, on a x = 0.1*10**-39, donc n = -39
-c ______________________________________________________________________
-c . . . . .
-c . nom . e/s . taille . description .
-c .____________________________________________________________________.
-c . vinfpo . s . dp . plus grande valeur positive possible .
-c . zero . s . dp . le zero de la machine .
-c . pd10vi . s . i . la puissance de 10 associee a vinfpo .
-c . pd10ze . s . i . la puissance de 10 associee a zero .
-c ______________________________________________________________________
-c
-c====
-c 0. declarations et dimensionnement
-c====
-c
-c 0.1. ==> generalites
-c
- implicit none
- save
-c
-c 0.2. ==> communs
-c
-c 0.3. ==> arguments
-c
- double precision vinfpo, zero
- integer pd10vi, pd10ze
-c
-c 0.4. ==> variables locales
-c
-c 0.5. ==> initialisations
-c
-c====
-c 1. les valeurs extremes
-c===
-c
-c 1.1. ==> le maximum
-c
- vinfpo = 1.d29
- pd10vi = 30
-c
-c 1.2. ==> le minimum : l'inverse du maximum
-c
- zero = 1.d0 / vinfpo
-c
-c 1.3. ==> les puissances de 10 associees
-c
- pd10ze = 2 - pd10vi
-c
- end
+++ /dev/null
- subroutine dmzero ( vinfpo, zero )
-c ______________________________________________________________________
-c
-c H O M A R D
-c
-c Outil de Maillage Adaptatif par Raffinement et Deraffinement d'EDF R&D
-c
-c Version originale enregistree le 18 juin 1996 sous le numero 96036
-c aupres des huissiers de justice Simart et Lavoir a Clamart
-c Version 11.2 enregistree le 13 fevrier 2015 sous le numero 2015/014
-c aupres des huissiers de justice
-c Lavoir, Silinski & Cherqui-Abrahmi a Clamart
-c
-c HOMARD est une marque deposee d'Electricite de France
-c
-c Copyright EDF 1996
-c Copyright EDF 1998
-c Copyright EDF 2002
-c Copyright EDF 2020
-c ______________________________________________________________________
-c Dependance Machine : ZEROs machine
-c - - ----
-c ______________________________________________________________________
-c
-c retourne la plus petite et la plus grande valeur possible
-c ______________________________________________________________________
-c . . . . .
-c . nom . e/s . taille . description .
-c .____________________________________________________________________.
-c . vinfpo . s . dp . plus grande valeur positive possible .
-c . zero . s . dp . le zero de la machine .
-c ______________________________________________________________________
-c
-c====
-c 0. declarations et dimensionnement
-c====
-c
-c 0.1. ==> generalites
-c
- implicit none
- save
-c
-c 0.2. ==> communs
-c
-c 0.3. ==> arguments
-c
- double precision vinfpo, zero
-c
-c 0.4. ==> variables locales
-c
- integer pd10vi, pd10ze
-c
-c 0.5. ==> initialisations
-c
-c====
-c 1. appel de la fonction generique
-c====
-c
- call dmze10 ( vinfpo, zero, pd10vi, pd10ze )
-c
- end
write (ulsort,*) 'Famille ', saux64
write (ulsort,90002) 'ngro', ngro
do 224 , jaux = 1 , ngro
- write (ulsort,1002) (tbsaux(kaux),kaux=10*(jaux-1)+1,10*jaux)
+ write (ulsort,1002)
+ > (tbsaux(kaux),kaux=10*(jaux-1)+1,10*jaux)
224 continue
#endif
#ifdef _DEBUG_HOMARD_
c====
c
#ifdef _DEBUG_HOMARD_
- write (ulsort,90002) '3. lecture au format HOMARD ; codret', codret
+ write (ulsort,90002) '3. lecture au format HOMARD ; codret',
+ & codret
#endif
c
c
c . Aux iterations suivantes : toujours
c====
#ifdef _DEBUG_HOMARD_
- write (ulsort,90002) '8. creation des noeuds supp ; codret', codret
+ write (ulsort,90002) '8. creation des noeuds supp ; codret',
+ & codret
#endif
c
if ( imem(adopti+30).ne.0 .or. imem(adopti+31).ne.0 ) then
