H A D | hecht.f | 1 subroutine mshptg(cr,h,c,nu,nbs,nbsmx,tri,arete,nba,sd,nbsd,reft argument 90 integer c(2,nbsmx),tri(*),arete(2,nba),sd(2,nbsd) local 991 subroutine mshfrt (c,nu,nbs,arete,nba,sd,nbsd,reft,w,iop,err) argument 993 integer nba,nbsd,arete(2,nba),sd(2,nbsd),err,w(*),iop local
|