Lines Matching refs:fname2
27 character*255 fname2 local
64 write (fname2,"('connectivity boundary',i1)") iblk
66 write (fname2,"('connectivity boundary linear tetrahedron')")
69 call phio_readheader(fhandle, fname2 // char(0),
87 write (fname2,"('connectivity boundary',i1)") iblk
89 write (fname2,"('connectivity boundary linear tetrahedron')")
94 call phio_readheader(fhandle, fname2 // char(0),
114 call phio_readdatablock(fhandle, fname2 // char(0),
121 write (fname2,"('nbc codes',i1)") iblk
123 write (fname2,"('nbc codes linear tetrahedron')")
126 call phio_readheader(fhandle, fname2 // char(0),
129 call phio_readdatablock(fhandle, fname2 // char(0),
136 write (fname2,"('nbc values',i1)") iblk
138 write (fname2,"('nbc values linear tetrahedron')")
141 call phio_readheader(fhandle, fname2 // char(0),
145 call phio_readdatablock(fhandle, fname2 // char(0),