       parameter (MAXS=256, MAXMTH=20)
       integer dm1
       common /avsi_com/  itranspose, igrid, init, idmm1,
     + ierror, dm1, iflds, itxt, iscript, ibinary, ilocrm, iremrm,
     + ibias, ibts, mindim, maxdim, maxstrl,
     + idev, idev1, idev2, iunscr, idebug, iserver, ipause,
     + iminmax, rmin_val, rmax_val, ivispr, inetwork, 
c netdir, ldir, cdisp, cavsop, clocrm, cremrm, crsh, chost, cuser, rdir,
c cmacrodir
     + ind, ild, idp, iop, ilrm, irrm, irs, ilh, ilu, ird, imd
     + ,nmth, imth, nettp(MAXMTH), irpt
       character *(MAXS) chost, cuser, cdisp, cavsop, netdir,
     + ldir, rdir, crsh, cmacrodir, clocrm, cremrm
       character *(30) mthnm(MAXMTH), netnm(MAXMTH)
       character *1 cnot, cpar
       character *80 flddes
       character *9 pid
c next characters only in local, but in common to evade HP warnings
       character *(MAXS) buf, buff, file, sfile, snet
       common /cavs/ cnot, chost, cuser, cdisp, cavsop, netdir,
     + ldir, rdir, crsh, cmacrodir, cpar, clocrm, cremrm, flddes,
     + buf, buff, file, sfile, snet,pid
     + ,mthnm, netnm



