Searched refs:fixed_restraint (Results 1 – 6 of 6) sorted by relevance
379 ALLOCATE (cons_info%fixed_restraint(isize))399 CALL reallocate(cons_info%fixed_restraint, 1, isize + SIZE(tmplist))408 is_restraint=cons_info%fixed_restraint(isize_old + 1), &412 … cons_info%fixed_restraint(isize_old + 1:isize) = cons_info%fixed_restraint(isize_old + 1)
69 LOGICAL, POINTER :: fixed_restraint(:) ! Restraints control component321 NULLIFY (constraint_info%fixed_restraint)573 IF (ASSOCIATED(constraint_info%fixed_restraint)) THEN574 DEALLOCATE (constraint_info%fixed_restraint)
741 fixd_list(kk)%restraint%active = cons_info%fixed_restraint(k2loc)