|
subroutine efg2fc |
( |
integer |
fid, |
|
|
character*32 |
maa, |
|
|
character *80:dimension(*) |
nomgro, |
|
|
integer:dimension(*) |
ind, |
|
|
integer |
ngro, |
|
|
integer:dimension(*) |
ent, |
|
|
integer |
nent, |
|
|
integer |
typent, |
|
|
integer:dimension(*) |
typgeo, |
|
|
integer:dimension(*) |
indgeo, |
|
|
integer |
ngeo, |
|
|
integer |
cret | |
|
) |
| | |
|