19 int nshp =0;  variable
422     int nshp = 0;  in HexShapeAndDrv()  local
442     if(p<1) return nshp;  in HexShapeAndDrv()
506     nshp = 8;  in HexShapeAndDrv()
586                 N[nshp]= EdgeBlend * entfn[nm];  in HexShapeAndDrv()
587                 dN[nshp][0]= EdgeBlend * endrv[nm][0] + dEBdxi * entfn[nm];  in HexShapeAndDrv()
588                 dN[nshp][1]= EdgeBlend * endrv[nm][1] + dEBdeta * entfn[nm];  in HexShapeAndDrv()
589                 dN[nshp][2]= EdgeBlend * endrv[nm][2] + dEBdzeta * entfn[nm];  in HexShapeAndDrv()
591                 nshp++;  in HexShapeAndDrv()
661                 N[nshp] =  FaceBlend * entfn[nm];   in HexShapeAndDrv()
662                 dN[nshp][0] = FaceBlend * endrv[nm][0] + dFBdxi * entfn[nm];  in HexShapeAndDrv()
663                 dN[nshp][1] = FaceBlend * endrv[nm][1] + dFBdeta * entfn[nm];  in HexShapeAndDrv()
664                 dN[nshp][2] = FaceBlend * endrv[nm][2] + dFBdzeta * entfn[nm];  in HexShapeAndDrv()
666                 nshp++;  in HexShapeAndDrv()
689             N[nshp] = entfn[nm];  in HexShapeAndDrv()
691                 dN[nshp][d] = endrv[nm][d];  in HexShapeAndDrv()
693             nshp++;  in HexShapeAndDrv()
701     return nshp;  in HexShapeAndDrv()
723     int nshp = 0;  in WedgeShapeAndDrv()  local
730     if(p<1) return nshp;  in WedgeShapeAndDrv()
768    nshp = 6;  in WedgeShapeAndDrv()
884     return nshp;  in WedgeShapeAndDrv()
914     if(p<1) return nshp;  in PyrShapeAndDrv()
968     nshp = 5;  in PyrShapeAndDrv()
1057                 N[nshp]= EdgeBlend * EdgeEntity[j];  in PyrShapeAndDrv()
1058                 dN[nshp][0]= EdgeBlend * EdgeEntityDrv[j][0] + EdgeBlendDrv[0] * EdgeEntity[j];  in PyrShapeAndDrv()
1059                 dN[nshp][1]= EdgeBlend * EdgeEntityDrv[j][1] + EdgeBlendDrv[1] * EdgeEntity[j];  in PyrShapeAndDrv()
1060                 dN[nshp][2]= EdgeBlend * EdgeEntityDrv[j][2] + EdgeBlendDrv[2] * EdgeEntity[j];  in PyrShapeAndDrv()
1061                 nshp++;  in PyrShapeAndDrv()
1094                     N[nshp]= FaceBlend * EdgeEntity[j];  in PyrShapeAndDrv()
1095                     dN[nshp][0]= FaceBlend * FaceEntityDrv[j][0] + FaceBlendDrv[0] * FaceEntity[j];  in PyrShapeAndDrv()
1096                     dN[nshp][1]= FaceBlend * FaceEntityDrv[j][1] + FaceBlendDrv[1] * FaceEntity[j];  in PyrShapeAndDrv()
1097                     dN[nshp][2]= FaceBlend * FaceEntityDrv[j][2] + FaceBlendDrv[2] * FaceEntity[j];  in PyrShapeAndDrv()
1098                     nshp++;  in PyrShapeAndDrv()
1104     return nshp;  in PyrShapeAndDrv()