|
subroutine efchrl |
( |
integer |
fid, |
|
|
character *(*) |
maa, |
|
|
character *(*) |
cha, |
|
|
real*8:dimension(*) |
val, |
|
|
integer |
interlace, |
|
|
integer |
numco, |
|
|
character *(*) |
locname, |
|
|
character *(*) |
profil, |
|
|
integer |
pflmod, |
|
|
integer |
typent, |
|
|
integer |
typgeo, |
|
|
integer |
numdt, |
|
|
integer |
numo, |
|
|
integer |
cret | |
|
) |
| | |
|