Searched refs:fishweight (Results 1 – 1 of 1) sorted by relevance
13 integer, target, dimension(2) :: fishweight, numFish variable25 fishweight(1) = 1.2326 fishweight(2) = 1.2344 call phio_writedatablock(handle(i), phrase, c_loc(fishweight(i)),55 call phio_readdatablock(handle(i), phrase, c_loc(fishweight(i)),60 & fishweight(1) .ne. fishweight(2) ) then