1 subroutine dmoufs ( nuroul , nomfic, lnomfi,
3 c ______________________________________________________________________
7 c Outil de Maillage Adaptatif par Raffinement et Deraffinement d'EDF R&D
9 c Version originale enregistree le 18 juin 1996 sous le numero 96036
10 c aupres des huissiers de justice Simart et Lavoir a Clamart
11 c Version 11.2 enregistree le 13 fevrier 2015 sous le numero 2015/014
12 c aupres des huissiers de justice
13 c Lavoir, Silinski & Cherqui-Abrahmi a Clamart
15 c HOMARD est une marque deposee d'Electricite de France
21 c ______________________________________________________________________
22 c Dependance Machine - OUverture en Formate Sequentiel
24 c ______________________________________________________________________
27 c . nom . e/s . taille . description .
28 c .____________________________________________________________________.
29 c . nuroul . e . 1 . numero de l'unite logique attribuee .
30 c . nomfic . e . ch<200 . nom du fichier a ouvrir .
31 c . lnomfi . e . 1 . longueur du nom du fichier a ouvrir .
32 c . ulmess . e . 1 . numero d'unite logique des messages .
33 c . codret . s . 1 . code de retour : 0 si c'est bon .
34 c ______________________________________________________________________
37 c 0. declarations et dimensionnement
40 c 0.1. ==> generalites
49 integer nuroul, lnomfi, codret, ulmess
53 c 0.4. ==> variables locales
55 c 0.5. ==> initialisations
58 c 1. pas de differences entre les machines
61 open ( unit=nuroul, err=10, file=nomfic(1:lnomfi),
62 > access='SEQUENTIAL', form='FORMATTED',
63 > status='UNKNOWN', iostat=codret )
68 if ( codret.eq.0 ) then
74 if ( codret.ne.0 ) then
75 write(ulmess,*) 'Ouverture du fichier :'
76 write(ulmess,*) nomfic(1:lnomfi)
77 write(ulmess,*) 'Code retour dans dmoufs : ',codret