genf77.c#78     bbprintf0(stmt,"integer %s_len\n",f77name(dsym));
#82 f77name(dsym));
#85 f77name(dsym),
#99     bbprintf0(stmt,"integer %s_dim\n",f77name(dsym));
#117     bbprintf0(stmt,"integer %s_rank\n", f77name(vsym));
#120     f77name(vsym),
#130     f77name(vsym), f77name(vsym));
#144 nfdtype(typecode),f77name(vsym));
#161     f77name(vsym),
#238                  codify(dsym->name), f77name(dsym), f77dimncid(dsym));
#261     f77name(vsym),
#271 f77name(vsym),
#272 (dimset->ndims == 0?"0":poolcat(f77name(vsym),"_dims")),
#404    tmp1 = f77name(vsym);
#418    tmp1 = f77name(dsym);
#434        name = f77name(tsym);
#440f77name(Symbolsym)
#738     f77name(vsym),bbContents(code));
#743 f77name(vsym));
#756          f77name(vsym),index,f77name(vsym));
#768                        f77name(vsym),index,f77name(vsym));
#771        bbprintf0(stmt,"integer %s_id\n",f77name(vsym));
#777                        f77name(vsym),(unsigned int)rank);
#780                        f77name(vsym),(unsigned int)rank);
#797                                f77name(vsym),
#804        bbprintf0(stmt,"data %s /",f77name(vsym));
#815     f77name(vsym),
#823 f77name(vsym),
#831 f77name(vsym),
#832 f77name(vsym));
#838     codeprintf("%s",f77name(vsym));
genlib.h#137extern const char* f77name(Symbol*);


HyperKWIC - Version 7.20DA executed at 11:37 on 27 Oct 2017 | Polyhedron Solutions - INTERNAL USE | COMMERCIAL (Any O/S) SN 4AKIed