379
463
call daxpy(6,1.0d0,ehsic_lstress,1,lstress,1)
380
464
call daxpy(6,1.0d0,excsic_lstress,1,lstress,1)
381
465
call daxpy(6,1.0d0,hfx_lstress,1,lstress,1)
466
call daxpy(6,1.0d0,LJ_lstress,1,lstress,1)
467
call daxpy(6,1.0d0,Q_lstress,1,lstress,1)
468
call daxpy(6,1.0d0,spring_lstress,1,lstress,1)
469
call daxpy(6,1.0d0,dftu_lstress,1,lstress,1)
382
470
call write_lstress(lstress,"TOTAL FD")
384
472
* **************************************