PPT Slide
c function calculates energy of the system
Function energy(array, j, max)
Implicit none
Integer array(max), i, max
Real*8 energy, j
energy=0
Do 22 i=1,(max-1)
energy=energy+array(i)*array(i+1)
22 Continue
Return
End
energy=array(max)*array(1)
Previous slide
Next slide
Back to first slide
View graphic version