Searched refs:g46_k0 (Results 1 – 6 of 6) sorted by relevance
121 REAL(KIND=dp), POINTER :: g46_k0(:) ! Restraints control component367 NULLIFY (constraint_info%g46_k0)711 IF (ASSOCIATED(constraint_info%g46_k0)) THEN712 DEALLOCATE (constraint_info%g46_k0)
237 ALLOCATE (cons_info%g46_k0(ncons))243 k0=cons_info%g46_k0(ig), &
1034 g4x6_list(ng4x6)%restraint%k0 = cons_info%g46_k0(j)