blob: 8bf956bf018d87ffa051d903c7b70e9ab788b959 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
subroutine sunder (amol,i1,i2)
c******************************************************************************
c This routine breaks up molecule amol into leftmost atom i1 and
c the rest of the molecule i2
c******************************************************************************
implicit real*8 (a-h,o-z)
dimension itest(5)
data itest/100000000,1000000,10000,100,1/
im = nint(amol)
do i=1,5
i1 = im/itest(i)
if (i1 .eq. 0) cycle
i2 = im - i1*itest(i)
exit
enddo
return
end
|
