| H A D | cell_base.f90 | 82 INTEGER :: iforceh(3,3) = 1 ! if iforceh( i, j ) = 0 then h( i, j ) variable
853 SUBROUTINE cell_steepest( hnew, h, delt, iforceh, fcell ) argument
856 INTEGER, INTENT(IN) :: iforceh(3,3) local
890 SUBROUTINE cell_verlet( hnew, h, hold, delt, iforceh, fcell, frich, tnoseh, hnos ) argument
893 INTEGER, INTENT(IN) :: iforceh(3,3) local
947 subroutine cell_hmove( h, hold, delt, iforceh, fcell ) argument
951 integer, intent(in) :: iforceh(3,3) local
1008 subroutine cell_move( hnew, h, hold, delt, iforceh, fcell, frich, tnoseh, vnhh, velh, tsdc ) argument
1012 integer, intent(in) :: iforceh(3,3) local
|