module faces interface subroutine energy(element,form,i,Natoms,r,x,L,E) use defs character(len=20),intent(in)::element,form integer(i4b),intent(in)::i,Natoms real(dp),dimension(3),intent(in)::r real(dp),dimension(:,:),intent(in)::x real(dp),intent(in)::L real(dp),intent(out)::E end subroutine energy end interface interface subroutine stat(N,sweepEnergy,ethalpy,sigma) use defs integer(i4b),intent(in)::N real(dp),dimension(N),intent(in)::sweepEnergy real(dp),intent(out)::ethalpy,sigma end subroutine stat end interface end module faces