|
|
| subroutine efnoee |
( |
integer |
fid, |
|
|
character*(*) |
maa, |
|
|
integer |
mdim, |
|
|
real*8:dimension(*) |
coo, |
|
|
integer |
modcoo, |
|
|
integer |
rep, |
|
|
character*(*) |
nomcoo, |
|
|
character*(*) |
unicoo, |
|
|
character*(*) |
nom, |
|
|
logical |
inom, |
|
|
integer:dimension(*) |
num, |
|
|
logical |
inum, |
|
|
integer:dimension(*) |
fam, |
|
|
integer |
nnoe, |
|
|
integer |
cret | |
|
) |
| | |
|
