Searched refs:readfile (Results 1 – 1 of 1) sorted by relevance
188 logical readfile(maxtypes) local189 save readfile190 data (readfile(i),i=1,maxtypes) / maxtypes*.false./208 if( .not. readfile(itype)) then209 readfile(itype) = .true.405 logical readfile(maxtypes) local406 save readfile407 data (readfile(i),i=1,maxtypes) / maxtypes*.false./426 if( .not. readfile(itype)) then427 readfile(itype) = .true.