Searched refs:pID (Results 1 – 1 of 1) sorted by relevance
46 real*8, allocatable :: pID(:), vID(:), dwalN(:), ybarN(:,:) local607 allocate( pID(nshg) )609 call readdatablock(descriptor,fname1//char(0) ,pID,iqsiz,669 ifileN=pID(i)+1.1710 ifileN=pID(i)+1.1 !shift pID to start from 1854 ifileN = pID(i)+1.1 !shift to start from 1970 ifileN = pID(i)+1.1 !shift to start from 11154 ifileN=pID(i)+1.1 !shift pID to start from 11180 ifileN=pID(i)+1.1 !shift pID to start from 11208 deallocate(pID)