Searched refs:FArray (Results 1 – 2 of 2) sorted by relevance
6 subroutine PetscBagRegisterEnum(bag, addr, FArray, def, n, h, ierr) argument13 character(*) FArray(*)44 list1(i) = trim(FArray(i))//C_NULL_CHAR
14 character(*) FArray(*) local38 list1(i) = trim(FArray(i))//C_NULL_CHAR