|
◆ mlclow()
subroutine mlclow |
( |
integer*8 |
fid, |
|
|
character*(*) |
lname, |
|
|
integer |
gtype, |
|
|
integer |
sdim, |
|
|
real*8, dimension(*) |
ecoo, |
|
|
integer |
swm, |
|
|
integer |
nip, |
|
|
real*8, dimension(*) |
ipcoo, |
|
|
real*8, dimension(*) |
wght, |
|
|
character*(*) |
giname, |
|
|
character*(*) |
isname, |
|
|
integer |
cret |
|
) |
| |
|